853 references to CurrentToken
Microsoft.CodeAnalysis.VisualBasic (853)
Parser\BlockContexts\BlockContext.vb (1)
438
If ifStmt.ThenKeyword IsNot Nothing AndAlso Not SyntaxFacts.IsTerminator(Parser.
CurrentToken
.Kind) Then
Parser\BlockContexts\ExecutableStatementContext.vb (1)
208
Dim kind = Parser.
CurrentToken
.Kind
Parser\BlockContexts\IfPartContext.vb (1)
78
If Not SyntaxFacts.IsTerminator(Parser.
CurrentToken
.Kind) Then
Parser\BlockContexts\SingleLineElseContext.vb (3)
32
If ifStmt.ThenKeyword IsNot Nothing AndAlso Not SyntaxFacts.IsTerminator(Parser.
CurrentToken
.Kind) Then
81
Dim token = Parser.
CurrentToken
104
Dim token = Parser.
CurrentToken
Parser\BlockContexts\SingleLineIfBlockContext.vb (3)
32
If ifStmt.ThenKeyword IsNot Nothing AndAlso Not SyntaxFacts.IsTerminator(Parser.
CurrentToken
.Kind) Then
87
Dim token = Parser.
CurrentToken
106
Dim token = Parser.
CurrentToken
Parser\BlockContexts\SingleLineLambdaContext.vb (1)
71
Dim token = Parser.
CurrentToken
Parser\ParseConditional.vb (44)
24
If
CurrentToken
.Kind = SyntaxKind.DateLiteralToken OrElse
25
CurrentToken
.Kind = SyntaxKind.BadToken Then
28
missingHash = missingHash.AddLeadingSyntax(New CodeAnalysis.Syntax.InternalSyntax.SyntaxList(Of SyntaxToken)(
CurrentToken
))
33
Debug.Assert(
CurrentToken
.Kind = SyntaxKind.HashToken, "Conditional compilation lines start with '#'.")
38
Dim hashToken = DirectCast(
CurrentToken
, PunctuationSyntax)
41
Select Case
CurrentToken
.Kind
68
Select Case DirectCast(
CurrentToken
, IdentifierTokenSyntax).PossibleKeywordKind
113
Debug.Assert(
CurrentToken
.Kind = SyntaxKind.ElseKeyword)
115
Dim elseKeyword = DirectCast(
CurrentToken
, KeywordSyntax)
118
If
CurrentToken
.Kind <> SyntaxKind.IfKeyword Then
133
Debug.Assert(
CurrentToken
.Kind = SyntaxKind.ElseIfKeyword)
140
Debug.Assert(
CurrentToken
.Kind = SyntaxKind.IfKeyword OrElse
CurrentToken
.Kind = SyntaxKind.ElseIfKeyword)
142
Dim ifKeyword As KeywordSyntax = DirectCast(
CurrentToken
, KeywordSyntax)
152
If
CurrentToken
.Kind = SyntaxKind.ThenKeyword Then
153
thenKeyword = DirectCast(
CurrentToken
, KeywordSyntax)
169
Debug.Assert(
CurrentToken
.Kind = SyntaxKind.EndKeyword)
171
Dim endKeyword = DirectCast(
CurrentToken
, KeywordSyntax)
176
If
CurrentToken
.Kind = SyntaxKind.IfKeyword Then
178
Dim ifKeyword = DirectCast(
CurrentToken
, KeywordSyntax)
183
ElseIf
CurrentToken
.Kind = SyntaxKind.IdentifierToken Then
185
Dim identifier = DirectCast(
CurrentToken
, IdentifierTokenSyntax)
188
Dim regionKeyword = _scanner.MakeKeyword(DirectCast(
CurrentToken
, IdentifierTokenSyntax))
194
Dim externalSourceKeyword = _scanner.MakeKeyword(DirectCast(
CurrentToken
, IdentifierTokenSyntax))
211
Debug.Assert(
CurrentToken
.Kind = SyntaxKind.EndIfKeyword)
213
Dim endIfKeyword = DirectCast(
CurrentToken
, KeywordSyntax)
226
Debug.Assert(
CurrentToken
.Kind = SyntaxKind.ConstKeyword)
228
Dim constKeyword = DirectCast(
CurrentToken
, KeywordSyntax)
256
Debug.Assert(
CurrentToken
.Kind = SyntaxKind.IdentifierToken AndAlso DirectCast(
CurrentToken
, IdentifierTokenSyntax).PossibleKeywordKind = SyntaxKind.RegionKeyword,
259
Dim identifier = DirectCast(
CurrentToken
, IdentifierTokenSyntax)
270
Debug.Assert(
CurrentToken
.Kind = SyntaxKind.IdentifierToken AndAlso DirectCast(
CurrentToken
, IdentifierTokenSyntax).PossibleKeywordKind = SyntaxKind.ExternalSourceKeyword,
273
Dim identifier = DirectCast(
CurrentToken
, IdentifierTokenSyntax)
317
Debug.Assert(
CurrentToken
.Kind = SyntaxKind.IdentifierToken AndAlso DirectCast(
CurrentToken
, IdentifierTokenSyntax).PossibleKeywordKind = SyntaxKind.ExternalChecksumKeyword,
320
Dim identifier = DirectCast(
CurrentToken
, IdentifierTokenSyntax)
385
Debug.Assert(
CurrentToken
.Kind = SyntaxKind.IdentifierToken,
387
Dim identifier = DirectCast(
CurrentToken
, IdentifierTokenSyntax)
403
If Not SyntaxFacts.IsTerminator(
CurrentToken
.Kind) Then
416
If SyntaxFacts.IsTerminator(
CurrentToken
.Kind) Then
449
Debug.Assert(
CurrentToken
.Kind = SyntaxKind.IdentifierToken AndAlso DirectCast(
CurrentToken
, IdentifierTokenSyntax).PossibleKeywordKind = SyntaxKind.ReferenceKeyword,
452
Dim identifier = DirectCast(
CurrentToken
, IdentifierTokenSyntax)
Parser\ParseExpression.vb (96)
63
Dim startToken As SyntaxToken =
CurrentToken
134
If Not
CurrentToken
.IsBinaryOperator Then
139
Not IsValidOperatorForConditionalCompilationExpr(
CurrentToken
) Then
146
precedence = KeywordTable.TokenOpPrec(
CurrentToken
.Kind)
184
StartsValidConditionalCompilationExpr(
CurrentToken
), "Conditional compilation expression parsing confused!!!")
187
Dim start As SyntaxToken =
CurrentToken
243
If
CurrentToken
.Kind <> SyntaxKind.DotToken Then
253
If
CurrentToken
.Kind <> SyntaxKind.DotToken Then
263
If
CurrentToken
.Kind <> SyntaxKind.DotToken Then
303
term = term.AddTrailingSyntax(
CurrentToken
, ERRID.ERR_FullWidthAsXmlDelimiter)
330
term = SyntaxFactory.TrueLiteralExpression(
CurrentToken
)
334
term = SyntaxFactory.FalseLiteralExpression(
CurrentToken
)
338
term = SyntaxFactory.NothingLiteralExpression(
CurrentToken
)
444
If
CurrentToken
IsNot Nothing AndAlso
CurrentToken
.Kind = SyntaxKind.QuestionToken Then
445
term = term.AddTrailingSyntax(
CurrentToken
, ERRID.ERR_NullableCharNotSupported)
454
Dim [Next] As SyntaxToken =
CurrentToken
490
Select Case
CurrentToken
.Kind
549
Debug.Assert(
CurrentToken
.Kind = SyntaxKind.IfKeyword)
550
Dim IfStart = DirectCast(
CurrentToken
, KeywordSyntax)
554
If
CurrentToken
.Kind = SyntaxKind.OpenParenToken Then
639
Debug.Assert(
CurrentToken
.Kind = SyntaxKind.GetTypeKeyword, "should be at GetType.")
641
Dim [getType] As KeywordSyntax = DirectCast(
CurrentToken
, KeywordSyntax)
670
Debug.Assert(
CurrentToken
.Kind = SyntaxKind.NameOfKeyword, "should be at NameOf.")
672
Dim [nameOf] As KeywordSyntax = DirectCast(
CurrentToken
, KeywordSyntax)
731
Debug.Assert(
CurrentToken
.Kind = SyntaxKind.GetXmlNamespaceKeyword, "should be at GetXmlNamespace.")
733
Dim getXmlNamespaceKeyword = DirectCast(
CurrentToken
, KeywordSyntax)
736
If
CurrentToken
.Kind = SyntaxKind.OpenParenToken Then
743
If
CurrentToken
.Kind = SyntaxKind.XmlNameToken Then
744
name = SyntaxFactory.XmlPrefixName(DirectCast(
CurrentToken
, XmlNameTokenSyntax))
770
Debug.Assert(SyntaxFacts.IsPredefinedCastExpressionKeyword(
CurrentToken
.Kind), "ParseCastExpression called with the wrong token.")
772
Dim Start = DirectCast(
CurrentToken
, KeywordSyntax)
791
Debug.Assert(
CurrentToken
.Kind = SyntaxKind.NewKeyword, "must be at a New expression.")
793
Dim NewKeyword = DirectCast(
CurrentToken
, KeywordSyntax)
796
If
CurrentToken
.Kind = SyntaxKind.WithKeyword Then
812
If
CurrentToken
.Kind = SyntaxKind.OpenParenToken Then
832
If Me.
CurrentToken
.Kind = Global.Microsoft.CodeAnalysis.VisualBasic.SyntaxKind.OpenParenToken Then
838
ElseIf
CurrentToken
.Kind = SyntaxKind.OpenBraceToken Then
867
If TryTokenAsContextualKeyword(
CurrentToken
, SyntaxKind.FromKeyword, FromToken) Then
885
If (
CurrentToken
.Kind = SyntaxKind.WithKeyword) Then
895
If
CurrentToken
.Kind = SyntaxKind.WithKeyword Then
899
If (
CurrentToken
.Kind = SyntaxKind.WithKeyword) Then
905
If TryTokenAsContextualKeyword(
CurrentToken
, SyntaxKind.FromKeyword, FromToken) AndAlso
924
Debug.Assert(
CurrentToken
.Kind = SyntaxKind.TypeOfKeyword, "must be at TypeOf.")
925
Dim [typeOf] As KeywordSyntax = DirectCast(
CurrentToken
, KeywordSyntax)
938
Dim current As SyntaxToken =
CurrentToken
998
Debug.Assert(
CurrentToken
.Kind = SyntaxKind.DotToken OrElse
999
CurrentToken
.Kind = SyntaxKind.ExclamationToken,
1002
Dim DotOrBangToken As PunctuationSyntax = DirectCast(
CurrentToken
, PunctuationSyntax)
1011
If (
CurrentToken
.IsEndOfLine() AndAlso Not
CurrentToken
.IsEndOfParse()) Then
1013
Debug.Assert(
CurrentToken
.Kind = SyntaxKind.StatementTerminatorToken AndAlso
1046
Select Case (
CurrentToken
.Kind)
1049
Dim atToken = DirectCast(
CurrentToken
, PunctuationSyntax)
1092
Dim secondDotToken = DirectCast(
CurrentToken
, PunctuationSyntax)
1100
If
CurrentToken
.Kind = SyntaxKind.LessThanToken Then
1122
If
CurrentToken
.Kind = SyntaxKind.AtToken Then
1223
Debug.Assert(
CurrentToken
.Kind = SyntaxKind.OpenParenToken)
1232
If (
CurrentToken
.Kind = SyntaxKind.IdentifierToken AndAlso
1247
If (
CurrentToken
.Kind = SyntaxKind.CommaToken) Then
1264
While
CurrentToken
.Kind = SyntaxKind.CommaToken
1271
If (
CurrentToken
.Kind = SyntaxKind.IdentifierToken AndAlso
1311
Debug.Assert(
CurrentToken
.Kind = SyntaxKind.OpenParenToken, "should be at tkLParen.")
1317
Debug.Assert(
CurrentToken
.Kind = SyntaxKind.OpenParenToken)
1336
closeParen = DirectCast(
CurrentToken
, PunctuationSyntax)
1398
If (
CurrentToken
.Kind = SyntaxKind.IdentifierToken OrElse
CurrentToken
.IsKeyword()) AndAlso
1419
ElseIf
CurrentToken
.Kind = SyntaxKind.CommaToken Then
1427
ElseIf
CurrentToken
.Kind = SyntaxKind.CloseParenToken Then
1444
ElseIf
CurrentToken
.Kind = SyntaxKind.CloseParenToken OrElse MustEndStatement(
CurrentToken
) Then
1455
If
CurrentToken
.Kind = SyntaxKind.CommaToken Then
1456
comma = DirectCast(
CurrentToken
, PunctuationSyntax)
1499
If (
CurrentToken
.Kind = SyntaxKind.IdentifierToken OrElse
CurrentToken
.IsKeyword()) AndAlso
1516
If
CurrentToken
.Kind <> SyntaxKind.CommaToken Then
1517
If
CurrentToken
.Kind = SyntaxKind.CloseParenToken OrElse MustEndStatement(
CurrentToken
) Then
1527
If
CurrentToken
.Kind <> SyntaxKind.CommaToken Then
1556
If RedimOrNewParent AndAlso
CurrentToken
.Kind = SyntaxKind.ToKeyword Then
1557
Dim toKeyword As KeywordSyntax = DirectCast(
CurrentToken
, KeywordSyntax)
1585
Dim keyword As KeywordSyntax = DirectCast(
CurrentToken
, KeywordSyntax)
1647
Debug.Assert(
CurrentToken
.Kind = SyntaxKind.IdentifierToken)
1659
Debug.Assert(
CurrentToken
.Kind = SyntaxKind.FunctionKeyword OrElse
1660
CurrentToken
.Kind = SyntaxKind.SubKeyword,
1664
Dim methodKeyword = DirectCast(
CurrentToken
, KeywordSyntax)
1674
If
CurrentToken
.Kind = SyntaxKind.OpenParenToken Then
1678
If
CurrentToken
.Kind = SyntaxKind.OpenParenToken Then
1701
If
CurrentToken
.Kind = SyntaxKind.AsKeyword Then
1702
asKeyword = DirectCast(
CurrentToken
, KeywordSyntax)
1705
If
CurrentToken
.Kind = SyntaxKind.LessThanToken Then
1727
isMultiLine = isMultiLine OrElse
CurrentToken
.Kind = SyntaxKind.StatementTerminatorToken
1783
If isMultiLine OrElse
CurrentToken
.Kind = SyntaxKind.ColonToken Then
1791
If
CurrentToken
.IsEndOfParse() Then
1890
Debug.Assert(DirectCast(
CurrentToken
, IdentifierTokenSyntax).ContextualKind = SyntaxKind.AwaitKeyword)
1893
TryIdentifierAsContextualKeyword(
CurrentToken
, awaitKeyword)
Parser\ParseInterpolatedString.vb (32)
18
Debug.Assert(
CurrentToken
.Kind = SyntaxKind.DollarSignDoubleQuoteToken, "ParseInterpolatedStringExpression called on the wrong token.")
22
Debug.Assert(
CurrentToken
.Kind = SyntaxKind.DollarSignDoubleQuoteToken, "Rescanning $"" failed.")
24
Dim dollarSignDoubleQuoteToken = DirectCast(
CurrentToken
, PunctuationSyntax)
34
Select Case
CurrentToken
.Kind
37
Dim textToken = DirectCast(
CurrentToken
, InterpolatedStringTextTokenSyntax)
42
Debug.Assert(
CurrentToken
.Kind <> SyntaxKind.InterpolatedStringTextToken,
58
skipped.Add(
CurrentToken
)
64
doubleQuoteToken = DirectCast(
CurrentToken
, PunctuationSyntax)
101
Debug.Assert(
CurrentToken
.Kind = SyntaxKind.OpenBraceToken, "ParseInterpolatedStringEmbeddedExpression called on the wrong token.")
106
Dim openBraceToken = DirectCast(
CurrentToken
, PunctuationSyntax)
111
If
CurrentToken
.Kind = SyntaxKind.ColonToken Then
120
If
CurrentToken
.Kind = SyntaxKind.ColonToken Then
127
If
CurrentToken
.Kind = SyntaxKind.CommaToken Then
130
Dim commaToken = DirectCast(
CurrentToken
, PunctuationSyntax)
133
If
CurrentToken
.Kind = SyntaxKind.ColonToken Then
139
If
CurrentToken
.Kind = SyntaxKind.MinusToken OrElse
140
CurrentToken
.Kind = SyntaxKind.PlusToken Then
142
signTokenOpt = DirectCast(
CurrentToken
, PunctuationSyntax)
145
If
CurrentToken
.Kind = SyntaxKind.ColonToken Then
154
If
CurrentToken
.Kind = SyntaxKind.IntegerLiteralToken Then
156
widthToken = DirectCast(
CurrentToken
, IntegerLiteralTokenSyntax)
159
If
CurrentToken
.Kind = SyntaxKind.ColonToken Then
182
If
CurrentToken
.Kind = SyntaxKind.ColonToken AndAlso colonToken IsNot Nothing Then
189
If
CurrentToken
.Kind = SyntaxKind.InterpolatedStringTextToken Then
190
formatStringToken = DirectCast(
CurrentToken
, InterpolatedStringTextTokenSyntax)
224
If
CurrentToken
.Kind = SyntaxKind.ColonToken Then
232
If
CurrentToken
.Kind = SyntaxKind.CloseBraceToken Then
237
closeBraceToken = DirectCast(
CurrentToken
, PunctuationSyntax)
240
ElseIf
CurrentToken
.Kind = SyntaxKind.EndOfInterpolatedStringToken Then
246
If Not IsValidStatementTerminator(
CurrentToken
) Then
250
Debug.Assert(
CurrentToken
.Kind <> SyntaxKind.CloseBraceToken)
253
If
CurrentToken
.Kind = SyntaxKind.InterpolatedStringTextToken Then
Parser\ParseQuery.vb (51)
19
If ((
CurrentToken
.Kind = SyntaxKind.IdentifierToken OrElse
CurrentToken
.IsKeyword()) AndAlso
30
Debug.Assert(
CurrentToken
.Kind = SyntaxKind.EqualsToken)
32
Equals = DirectCast(
CurrentToken
, PunctuationSyntax)
66
If
CurrentToken
.Kind = SyntaxKind.CommaToken Then
67
Dim comma = DirectCast(
CurrentToken
, PunctuationSyntax)
88
If
CurrentToken
.Kind = SyntaxKind.IdentifierToken Then
89
Dim curIdent = DirectCast(
CurrentToken
, IdentifierTokenSyntax)
103
If Not aggName.ContainsDiagnostics AndAlso
CurrentToken
.Kind = SyntaxKind.OpenParenToken Then
104
Dim lParen = DirectCast(
CurrentToken
, PunctuationSyntax)
110
If
CurrentToken
.Kind <> SyntaxKind.CloseParenToken Then
145
If Not
CurrentToken
.IsBinaryOperator AndAlso
146
CurrentToken
.Kind <> SyntaxKind.DotToken Then
159
If
CurrentToken
.Kind = SyntaxKind.QuestionToken Then
160
Dim unexpectedNullable As SyntaxToken =
CurrentToken
176
If ((
CurrentToken
.Kind = SyntaxKind.IdentifierToken OrElse
CurrentToken
.IsKeyword()) AndAlso
185
Debug.Assert(
CurrentToken
.Kind = SyntaxKind.EqualsToken)
187
Equals = DirectCast(
CurrentToken
, PunctuationSyntax)
194
If
CurrentToken
.Kind = SyntaxKind.IdentifierToken OrElse
CurrentToken
.IsKeyword() Then
196
If TryTokenAsContextualKeyword(
CurrentToken
, SyntaxKind.GroupKeyword, groupKw) AndAlso
263
If
CurrentToken
.Kind = SyntaxKind.CommaToken Then
264
Dim comma = DirectCast(
CurrentToken
, PunctuationSyntax)
312
If
CurrentToken
.Kind = SyntaxKind.QuestionToken AndAlso
316
Dim unexpectedNullable As SyntaxToken =
CurrentToken
326
If
CurrentToken
.Kind = SyntaxKind.AsKeyword Then
327
Dim AsKw As KeywordSyntax = DirectCast(
CurrentToken
, KeywordSyntax)
333
If
CurrentToken
.Kind = SyntaxKind.InKeyword Then
433
If
CurrentToken
.Kind = SyntaxKind.QuestionToken AndAlso
437
Dim unexpectedNullable As SyntaxToken =
CurrentToken
447
If
CurrentToken
.Kind = SyntaxKind.AsKeyword Then
448
Dim AsKw As KeywordSyntax = DirectCast(
CurrentToken
, KeywordSyntax)
454
If
CurrentToken
.Kind = SyntaxKind.InKeyword Then
539
Debug.Assert(
CurrentToken
.Text = contextualKeyword.Text)
786
If
CurrentToken
.Kind = SyntaxKind.QuestionToken AndAlso
789
Dim unexpectedNullable As SyntaxToken =
CurrentToken
797
If
CurrentToken
.Kind = SyntaxKind.AsKeyword Then
798
Dim AsKw As KeywordSyntax = DirectCast(
CurrentToken
, KeywordSyntax)
866
If
CurrentToken
.Kind <> SyntaxKind.StatementTerminatorToken Then
913
ElseIf
CurrentToken
.Kind = SyntaxKind.AndAlsoKeyword OrElse
914
CurrentToken
.Kind = SyntaxKind.OrKeyword OrElse
915
CurrentToken
.Kind = SyntaxKind.OrElseKeyword Then
917
Exprs(Exprs.Count - 1) = Exprs(Exprs.Count - 1).AddTrailingSyntax(
CurrentToken
, ERRID.ERR_ExpectedAnd)
1043
Dim Start =
CurrentToken
1057
Start =
CurrentToken
1090
If
CurrentToken
.Kind = SyntaxKind.WhileKeyword Then
1092
Dim whileKw = DirectCast(
CurrentToken
, KeywordSyntax)
1104
If
CurrentToken
.Kind = SyntaxKind.WhileKeyword Then
1106
Dim whileKw = DirectCast(
CurrentToken
, KeywordSyntax)
1144
If
CurrentToken
.Kind = SyntaxKind.StatementTerminatorToken Then
Parser\Parser.vb (267)
100
Debug.Assert(
CurrentToken
.Kind = SyntaxKind.OpenParenToken, "Generic parameter parsing lost!!!")
113
CurrentToken
.Kind <> SyntaxKind.DotToken AndAlso
175
If
CurrentToken
.Kind = SyntaxKind.GlobalKeyword Then
177
result = SyntaxFactory.GlobalName(DirectCast(
CurrentToken
, KeywordSyntax))
466
If
CurrentToken
.IsEndOfParse Then
480
Dim terminator = DirectCast(
CurrentToken
, PunctuationSyntax)
507
While
CurrentToken
.Kind <> SyntaxKind.EndOfFileToken
508
builder.Add(
CurrentToken
)
536
Loop While _context.Level > methodContext.Level AndAlso Not
CurrentToken
.IsEndOfParse
558
Dim result As SyntaxToken =
CurrentToken
561
If
CurrentToken
.Kind = SyntaxKind.GreaterThanToken AndAlso
572
ElseIf
CurrentToken
.Kind = SyntaxKind.EqualsToken Then
594
result = result.AddLeadingSyntax(SyntaxList.List(
CurrentToken
, nextToken), ERRID.ERR_ExpectedRelational)
653
Select Case
CurrentToken
.Kind
756
Debug.Assert(False, "Unexpected terminator: " &
CurrentToken
.Kind.ToString())
760
If IsFirstStatementOnLine(
CurrentToken
) Then
773
If TryIdentifierAsContextualKeyword(
CurrentToken
, contextualKind) Then
845
Dim idf =
CurrentToken
908
Select Case
CurrentToken
.Kind
1030
If Me.
CurrentToken
.Kind = Global.Microsoft.CodeAnalysis.VisualBasic.SyntaxKind.LessThanToken Then
1042
Select Case
CurrentToken
.Kind
1058
If TryIdentifierAsContextualKeyword(
CurrentToken
, contextualKind) Then
1078
If IsFirstStatementOnLine(
CurrentToken
) Then
1094
If TryIdentifierAsContextualKeyword(
CurrentToken
, contextualKind) Then
1178
Debug.Assert(False, "Unexpected terminator: " &
CurrentToken
.Kind.ToString())
1227
If CanFollowStatement(
CurrentToken
) Then
1244
Debug.Assert(
CurrentToken
.Kind = SyntaxKind.EmptyToken)
1245
Dim emptyToken = DirectCast(
CurrentToken
, PunctuationSyntax)
1268
If Me.
CurrentToken
.Kind = Global.Microsoft.CodeAnalysis.VisualBasic.SyntaxKind.LessThanToken Then
1287
Select Case (
CurrentToken
.Kind)
1297
If TryIdentifierAsContextualKeyword(
CurrentToken
, keyword) Then
1399
ElseIf modifiers.Any AndAlso
CurrentToken
.IsKeyword Then
1437
Debug.Assert(
CurrentToken
.Kind = SyntaxKind.EnumKeyword, "ParseEnumStatement called on the wrong token.")
1439
Dim enumKeyword As KeywordSyntax = DirectCast(
CurrentToken
, KeywordSyntax)
1446
If
CurrentToken
.Kind = SyntaxKind.OpenParenToken Then
1456
If
CurrentToken
.Kind = SyntaxKind.AsKeyword Then
1457
Dim asKeyword = DirectCast(
CurrentToken
, KeywordSyntax)
1559
Dim typeKeyword As KeywordSyntax = DirectCast(
CurrentToken
, KeywordSyntax)
1586
If
CurrentToken
.Kind = SyntaxKind.OpenParenToken Then
1638
Debug.Assert(
CurrentToken
.Kind = SyntaxKind.NamespaceKeyword, "ParseNamespaceStatement called on the wrong token.")
1640
Dim namespaceKeyword As KeywordSyntax = ReportModifiersOnStatementError(ERRID.ERR_SpecifiersInvalidOnInheritsImplOpt, attributes, Specifiers, DirectCast(
CurrentToken
, KeywordSyntax))
1676
Debug.Assert(
CurrentToken
.Kind = SyntaxKind.EndKeyword, "ParseEndStatement called on wrong token.")
1713
Debug.Assert(
CurrentToken
.Kind = SyntaxKind.EndKeyword, "ParseGroupEndStatement called on wrong token.")
1715
Dim endKeyword As KeywordSyntax = DirectCast(
CurrentToken
, KeywordSyntax)
1936
Dim t As SyntaxToken =
CurrentToken
1984
If TryTokenAsContextualKeyword(
CurrentToken
, possibleKeyword) Then
2189
If
CurrentToken
.Kind = SyntaxKind.AsKeyword Then
2190
asKeyword = DirectCast(
CurrentToken
, KeywordSyntax)
2196
If
CurrentToken
.Kind = SyntaxKind.NewKeyword Then
2197
newKeyword = DirectCast(
CurrentToken
, KeywordSyntax)
2200
If isProperty AndAlso
CurrentToken
.Kind = SyntaxKind.LessThanToken Then
2204
If
CurrentToken
.Kind = SyntaxKind.WithKeyword Then
2213
If
CurrentToken
.Kind = SyntaxKind.OpenParenToken Then
2225
If TryTokenAsContextualKeyword(
CurrentToken
, SyntaxKind.FromKeyword, fromKeyword) Then
2245
If isProperty AndAlso
CurrentToken
.Kind = SyntaxKind.LessThanToken Then
2288
If
CurrentToken
.Kind = SyntaxKind.WithKeyword Then
2293
Dim withKeyword As KeywordSyntax = DirectCast(
CurrentToken
, KeywordSyntax)
2312
If
CurrentToken
.Kind = SyntaxKind.IdentifierToken AndAlso TryIdentifierAsContextualKeyword(
CurrentToken
, possibleKeyword) Then
2367
If
CurrentToken
.Kind <> SyntaxKind.CloseBraceToken Then
2406
If
CurrentToken
.Kind <> SyntaxKind.CloseBraceToken Then
2431
Debug.Assert(
CurrentToken
.Kind = SyntaxKind.WithKeyword, "ParseObjectInitializerList called with wrong token")
2436
Dim withKeyword As KeywordSyntax = DirectCast(
CurrentToken
, KeywordSyntax)
2463
If
CurrentToken
.Kind <> SyntaxKind.CloseBraceToken AndAlso
2464
CurrentToken
.Kind <> SyntaxKind.StatementTerminatorToken AndAlso
2465
CurrentToken
.Kind <> SyntaxKind.ColonToken Then
2528
If
CurrentToken
.Kind = SyntaxKind.StatementTerminatorToken AndAlso PeekToken(1).Kind = SyntaxKind.OpenBraceToken Then
2555
TryTokenAsContextualKeyword(
CurrentToken
, SyntaxKind.KeyKeyword, optionalKey) Then
2559
If
CurrentToken
.Kind = SyntaxKind.DotToken Then
2560
dot = DirectCast(
CurrentToken
, PunctuationSyntax)
2565
If SyntaxKind.QuestionToken =
CurrentToken
.Kind Then
2566
id = id.AddTrailingSyntax(
CurrentToken
)
2573
If
CurrentToken
.Kind = SyntaxKind.EqualsToken Then
2574
equals = DirectCast(
CurrentToken
, PunctuationSyntax)
2671
Dim identifierStart As SyntaxToken =
CurrentToken
2730
If
CurrentToken
.Kind = SyntaxKind.OpenParenToken Then
2794
Dim Start As SyntaxToken =
CurrentToken
2870
If SyntaxKind.QuestionToken =
CurrentToken
.Kind Then
2873
typeName = typeName.AddTrailingSyntax(
CurrentToken
, ERRID.ERR_BadNullTypeInCCExpression)
2885
Dim questionMark As PunctuationSyntax = DirectCast(
CurrentToken
, PunctuationSyntax)
2907
If
CurrentToken
.Kind = SyntaxKind.IdentifierToken AndAlso
2908
(DirectCast(
CurrentToken
, IdentifierTokenSyntax).TypeCharacter <> TypeCharacter.None OrElse
2944
ElseIf
CurrentToken
.Kind = SyntaxKind.CloseParenToken OrElse MustEndStatement(
CurrentToken
) Then
2955
If
CurrentToken
.Kind = SyntaxKind.CommaToken Then
2956
commaToken = DirectCast(
CurrentToken
, PunctuationSyntax)
3033
Dim start As SyntaxToken =
CurrentToken
3055
If
CurrentToken
.Kind = SyntaxKind.OpenParenToken Then
3099
Debug.Assert(
CurrentToken
.Kind = SyntaxKind.OpenParenToken, "Generic arguments parsing lost!!!")
3101
openParen = DirectCast(
CurrentToken
, PunctuationSyntax)
3115
If
CurrentToken
.Kind = SyntaxKind.CommaToken OrElse
CurrentToken
.Kind = SyntaxKind.CloseParenToken Then
3171
Debug.Assert(
CurrentToken
.Kind = SyntaxKind.OpenParenToken, "should be a (.")
3181
Debug.Assert(Me.
CurrentToken
.Kind = Global.Microsoft.CodeAnalysis.VisualBasic.SyntaxKind.OpenParenToken)
3184
If
CurrentToken
.Kind = SyntaxKind.CommaToken Then
3188
ElseIf
CurrentToken
.Kind <> SyntaxKind.CloseParenToken Then
3210
Loop While
CurrentToken
.Kind = SyntaxKind.OpenParenToken
3228
Debug.Assert(
CurrentToken
.Kind = SyntaxKind.OpenParenToken, "should be a (.")
3243
Debug.Assert(
CurrentToken
.Kind = SyntaxKind.OpenParenToken)
3246
If
CurrentToken
.Kind = SyntaxKind.CommaToken Then
3250
ElseIf
CurrentToken
.Kind <> SyntaxKind.CloseParenToken Then
3283
Loop While
CurrentToken
.Kind = SyntaxKind.OpenParenToken
3324
While
CurrentToken
.Kind = kind
3325
Dim sep As PunctuationSyntax = DirectCast(
CurrentToken
, PunctuationSyntax)
3351
ElseIf
CurrentToken
.Kind = SyntaxKind.ToKeyword Then
3352
toKeyword = DirectCast(
CurrentToken
, KeywordSyntax)
3392
Debug.Assert(
CurrentToken
.Kind = SyntaxKind.GetKeyword OrElse
CurrentToken
.Kind = SyntaxKind.SetKeyword OrElse
3393
CurrentToken
.Kind = SyntaxKind.AddHandlerKeyword OrElse
CurrentToken
.Kind = SyntaxKind.RemoveHandlerKeyword OrElse
CurrentToken
.Kind = SyntaxKind.RaiseEventKeyword)
3395
Dim methodKeyword As KeywordSyntax = DirectCast(
CurrentToken
, KeywordSyntax)
3396
If Not IsFirstStatementOnLine(
CurrentToken
) Then
3414
CurrentToken
.Kind = SyntaxKind.OpenParenToken Then
3450
Debug.Assert(
CurrentToken
.Kind = SyntaxKind.ImplementsKeyword, "Implements list parsing lost.")
3452
Dim implementsKeyword As KeywordSyntax = DirectCast(
CurrentToken
, KeywordSyntax)
3501
Debug.Assert(
CurrentToken
.Kind = SyntaxKind.HandlesKeyword, "Handles list parsing lost.")
3503
Dim handlesKeyword = DirectCast(
CurrentToken
, KeywordSyntax)
3512
If
CurrentToken
.Kind = SyntaxKind.MyBaseKeyword OrElse
3513
CurrentToken
.Kind = SyntaxKind.MyClassKeyword OrElse
3514
CurrentToken
.Kind = SyntaxKind.MeKeyword Then
3516
eventContainer = SyntaxFactory.KeywordEventContainer(DirectCast(
CurrentToken
, KeywordSyntax))
3519
ElseIf
CurrentToken
.Kind = SyntaxKind.GlobalKeyword Then
3559
If
CurrentToken
.Kind <> SyntaxKind.CommaToken Then
3601
Dim subKeyword As KeywordSyntax = DirectCast(
CurrentToken
, KeywordSyntax)
3629
If
CurrentToken
.Kind = SyntaxKind.NewKeyword Then
3630
newKeyword = DirectCast(
CurrentToken
, KeywordSyntax)
3715
If
CurrentToken
.Kind = SyntaxKind.HandlesKeyword Then
3722
ElseIf
CurrentToken
.Kind = SyntaxKind.ImplementsKeyword Then
3733
If
CurrentToken
.Kind = SyntaxKind.OpenParenToken Then
3766
Dim functionKeyword As KeywordSyntax = DirectCast(
CurrentToken
, KeywordSyntax)
3825
If
CurrentToken
.Kind = SyntaxKind.NewKeyword Then
3854
If
CurrentToken
.Kind = SyntaxKind.AsKeyword Then
3855
asKeyword = DirectCast(
CurrentToken
, KeywordSyntax)
3858
If
CurrentToken
.Kind = SyntaxKind.LessThanToken Then
3873
If
CurrentToken
.Kind = SyntaxKind.HandlesKeyword Then
3881
ElseIf
CurrentToken
.Kind = SyntaxKind.ImplementsKeyword Then
3916
Dim operatorKeyword As KeywordSyntax = DirectCast(
CurrentToken
, KeywordSyntax)
3937
If TryTokenAsContextualKeyword(
CurrentToken
, keyword) Then
3940
operatorToken =
CurrentToken
3976
If
CurrentToken
.Kind <> SyntaxKind.OpenParenToken Then
3982
If
CurrentToken
.Kind = SyntaxKind.OpenParenToken Then
4010
If
CurrentToken
.Kind = SyntaxKind.AsKeyword Then
4011
asKeyword = DirectCast(
CurrentToken
, KeywordSyntax)
4014
If
CurrentToken
.Kind = SyntaxKind.LessThanToken Then
4037
If
CurrentToken
.Kind = SyntaxKind.HandlesKeyword Then
4038
handlesOrImplementsKeyword =
CurrentToken
4042
ElseIf
CurrentToken
.Kind = SyntaxKind.ImplementsKeyword Then
4043
handlesOrImplementsKeyword =
CurrentToken
4095
Debug.Assert(
CurrentToken
.Kind = SyntaxKind.PropertyKeyword, "ParsePropertyDefinition called on the wrong token.")
4097
Dim propertyKeyword As KeywordSyntax = DirectCast(
CurrentToken
, KeywordSyntax)
4103
If
CurrentToken
.Kind = SyntaxKind.GetKeyword OrElse
4104
CurrentToken
.Kind = SyntaxKind.SetKeyword OrElse
4105
CurrentToken
.Kind = SyntaxKind.LetKeyword Then
4113
If
CurrentToken
.Kind = SyntaxKind.IdentifierToken Then
4135
If
CurrentToken
.Kind = SyntaxKind.OpenParenToken Then
4160
If
CurrentToken
.Kind = SyntaxKind.ImplementsKeyword Then
4171
If
CurrentToken
.Kind <> SyntaxKind.EndOfFileToken Then
4201
Debug.Assert(
CurrentToken
.Kind = SyntaxKind.DelegateKeyword, "ParseDelegateStatement called on the wrong token.")
4203
Dim delegateKeyword As KeywordSyntax = DirectCast(
CurrentToken
, KeywordSyntax)
4216
Select Case (
CurrentToken
.Kind)
4220
methodKeyword = DirectCast(
CurrentToken
, KeywordSyntax)
4226
methodKeyword = DirectCast(
CurrentToken
, KeywordSyntax)
4274
Debug.Assert(
CurrentToken
.Kind = SyntaxKind.OpenParenToken)
4297
If
CurrentToken
.Kind = SyntaxKind.InKeyword Then
4298
optionalVarianceModifier = DirectCast(
CurrentToken
, KeywordSyntax)
4304
If TryTokenAsContextualKeyword(
CurrentToken
, SyntaxKind.OutKeyword, outKeyword) Then
4305
Dim id = DirectCast(
CurrentToken
, IdentifierTokenSyntax)
4312
If
CurrentToken
.Kind = SyntaxKind.CloseParenToken OrElse
CurrentToken
.Kind = SyntaxKind.CommaToken OrElse
CurrentToken
.Kind = SyntaxKind.AsKeyword Then
4330
If
CurrentToken
.Kind = SyntaxKind.AsKeyword Then
4332
asKeyword = DirectCast(
CurrentToken
, KeywordSyntax)
4414
If
CurrentToken
.Kind = SyntaxKind.NewKeyword Then
4416
keyword = DirectCast(
CurrentToken
, KeywordSyntax)
4422
ElseIf
CurrentToken
.Kind = SyntaxKind.ClassKeyword Then
4424
keyword = DirectCast(
CurrentToken
, KeywordSyntax)
4428
ElseIf
CurrentToken
.Kind = SyntaxKind.StructureKeyword Then
4431
keyword = DirectCast(
CurrentToken
, KeywordSyntax)
4438
If Not CanTokenStartTypeName(
CurrentToken
) Then
4473
Debug.Assert(
CurrentToken
.Kind = SyntaxKind.OpenParenToken, "Parameter list parsing confused.")
4478
If
CurrentToken
.Kind <> SyntaxKind.CloseParenToken Then
4485
If Me.
CurrentToken
.Kind = Global.Microsoft.CodeAnalysis.VisualBasic.SyntaxKind.LessThanToken Then
4502
If
CurrentToken
.Kind <> SyntaxKind.CloseParenToken AndAlso Not MustEndStatement(
CurrentToken
) Then
4568
Select Case (
CurrentToken
.Kind)
4571
keyword = DirectCast(
CurrentToken
, KeywordSyntax)
4578
keyword = DirectCast(
CurrentToken
, KeywordSyntax)
4588
keyword = DirectCast(
CurrentToken
, KeywordSyntax)
4595
keyword = DirectCast(
CurrentToken
, KeywordSyntax)
4696
Debug.Assert(
CurrentToken
.Kind = SyntaxKind.ImportsKeyword, "called on wrong token")
4698
Dim importsKeyword As KeywordSyntax = ReportModifiersOnStatementError(Attributes, Specifiers, DirectCast(
CurrentToken
, KeywordSyntax))
4734
If
CurrentToken
.Kind = SyntaxKind.LessThanToken Then
4743
If
CurrentToken
.Kind = SyntaxKind.XmlNameToken AndAlso
4744
CurrentToken
.ToFullString = "xmlns" AndAlso
4777
If (
CurrentToken
.Kind = SyntaxKind.IdentifierToken AndAlso
4779
CurrentToken
.Kind = SyntaxKind.EqualsToken Then
4791
Dim equalsToken As PunctuationSyntax = DirectCast(
CurrentToken
, PunctuationSyntax)
4814
If importsClause.ContainsDiagnostics AndAlso
CurrentToken
.Kind <> SyntaxKind.CommaToken Then
4852
Debug.Assert(
CurrentToken
.Kind = SyntaxKind.InheritsKeyword OrElse
CurrentToken
.Kind = SyntaxKind.ImplementsKeyword,
4855
Dim keyword As KeywordSyntax = ReportModifiersOnStatementError(Attributes, Specifiers, DirectCast(
CurrentToken
, KeywordSyntax))
4914
Debug.Assert(
CurrentToken
.Kind = SyntaxKind.OptionKeyword, "must be at Option.")
4916
Dim optionKeyword = ReportModifiersOnStatementError(Attributes, Specifiers, DirectCast(
CurrentToken
, KeywordSyntax))
4919
If TryTokenAsContextualKeyword(
CurrentToken
, optionType) Then
4927
If TryTokenAsContextualKeyword(
CurrentToken
, optionValue) Then
4953
If
CurrentToken
.Kind = SyntaxKind.OnKeyword Then
4954
optionValue = DirectCast(
CurrentToken
, KeywordSyntax)
4957
ElseIf TryTokenAsContextualKeyword(
CurrentToken
, optionValue) AndAlso
4961
ElseIf Not IsValidStatementTerminator(
CurrentToken
) Then
5019
Debug.Assert(
CurrentToken
.Kind = SyntaxKind.DeclareKeyword, "ParseProcDeclareStatement called on wrong token. Must be at a Declare.")
5026
Dim declareKeyword = DirectCast(
CurrentToken
, KeywordSyntax)
5034
If TryTokenAsContextualKeyword(
CurrentToken
, contextualKeyword) Then
5047
If
CurrentToken
.Kind = SyntaxKind.SubKeyword Then
5048
methodKeyword = DirectCast(
CurrentToken
, KeywordSyntax)
5052
ElseIf
CurrentToken
.Kind = SyntaxKind.FunctionKeyword Then
5053
methodKeyword = DirectCast(
CurrentToken
, KeywordSyntax)
5073
If
CurrentToken
.Kind <> SyntaxKind.LibKeyword Then
5121
CurrentToken
.Kind = SyntaxKind.AsKeyword Then
5123
Dim asKeyword As KeywordSyntax = DirectCast(
CurrentToken
, KeywordSyntax)
5128
If Me.
CurrentToken
.Kind = Global.Microsoft.CodeAnalysis.VisualBasic.SyntaxKind.LessThanToken Then
5200
If
CurrentToken
.Kind = SyntaxKind.AliasKeyword Then
5201
optionalAliasKeyword = DirectCast(
CurrentToken
, KeywordSyntax)
5224
Debug.Assert(
CurrentToken
.Kind = SyntaxKind.IdentifierToken AndAlso DirectCast(
CurrentToken
, IdentifierTokenSyntax).PossibleKeywordKind = SyntaxKind.CustomKeyword, "ParseCustomEventDefinition called on the wrong token.")
5244
optionalCustomKeyword = _scanner.MakeKeyword(DirectCast(
CurrentToken
, IdentifierTokenSyntax))
5249
Dim eventKeyword As KeywordSyntax = DirectCast(
CurrentToken
, KeywordSyntax)
5258
If
CurrentToken
.Kind = SyntaxKind.AsKeyword Then
5259
asKeyword = DirectCast(
CurrentToken
, KeywordSyntax)
5275
If
CurrentToken
.Kind = SyntaxKind.OpenParenToken Then
5286
If
CurrentToken
.Kind = SyntaxKind.AsKeyword Then
5287
asKeyword = DirectCast(
CurrentToken
, KeywordSyntax)
5301
If
CurrentToken
.Kind = SyntaxKind.ImplementsKeyword Then
5331
Debug.Assert(
CurrentToken
.Kind = SyntaxKind.EventKeyword, "ParseEventDefinition called on the wrong token.")
5333
Dim eventKeyword As KeywordSyntax = DirectCast(
CurrentToken
, KeywordSyntax)
5348
If
CurrentToken
.Kind = SyntaxKind.AsKeyword Then
5349
asKeyword = DirectCast(
CurrentToken
, KeywordSyntax)
5366
If
CurrentToken
.Kind = SyntaxKind.OpenParenToken Then
5372
If
CurrentToken
.Kind = SyntaxKind.AsKeyword Then
5388
If
CurrentToken
.Kind = SyntaxKind.ImplementsKeyword Then
5401
Debug.Assert(
CurrentToken
.Kind = SyntaxKind.LessThanGreaterThanToken)
5403
Dim token =
CurrentToken
5452
Debug.Assert(
CurrentToken
.Kind = SyntaxKind.LessThanToken, "ParseAttributeSpecifier called on the wrong token.")
5467
Dim assemblyOrModuleKeyword = GetTokenAsAssemblyOrModuleKeyword(
CurrentToken
)
5486
If
CurrentToken
.Kind = SyntaxKind.ColonToken Then
5528
ElseIf
CurrentToken
.Kind = SyntaxKind.OpenParenToken Then
5562
Loop While
CurrentToken
.Kind = SyntaxKind.LessThanToken
5740
If
CurrentToken
.Kind = SyntaxKind.StatementTerminatorToken AndAlso
5741
Not
CurrentToken
.HasLeadingTrivia Then
5771
Debug.Assert(
CurrentToken
.Kind = SyntaxKind.ColonToken)
5778
Debug.Assert(SyntaxFacts.IsTerminator(
CurrentToken
.Kind) OrElse
CurrentToken
.Kind = SyntaxKind.EmptyToken)
5780
Select Case
CurrentToken
.Kind
5806
Debug.Assert(SyntaxFacts.IsTerminator(
CurrentToken
.Kind))
5851
If
CurrentToken
.Kind = kind Then
5852
token = DirectCast(
CurrentToken
, T)
5865
If TryTokenAsContextualKeyword(
CurrentToken
, kind, keyword) Then
5899
If
CurrentToken
.Kind = SyntaxKind.StatementTerminatorToken AndAlso
5921
If
CurrentToken
.Kind = kind Then
5922
token = DirectCast(
CurrentToken
, T)
5924
If
CurrentToken
.Kind = SyntaxKind.StatementTerminatorToken Then
5945
If
CurrentToken
.Kind = kind Then
5946
token = DirectCast(
CurrentToken
, T)
5952
token = DirectCast(
CurrentToken
, T)
6082
If Me.
CurrentToken
.Kind = SyntaxKind.EndOfFileToken Then Return node
6084
While (Me.
CurrentToken
.Kind <> SyntaxKind.EndOfFileToken)
6085
b.Add(Me.
CurrentToken
)
Parser\ParseScan.vb (18)
132
If
CurrentToken
.Kind = SyntaxKind.OpenParenToken Then
206
Dim nextToken =
CurrentToken
246
While
CurrentToken
.Kind <> SyntaxKind.EndOfFileToken
249
If IsValidStatementTerminator(
CurrentToken
) OrElse
CurrentToken
.Kind = SyntaxKind.EmptyToken Then
252
ElseIf
CurrentToken
.Kind = SyntaxKind.EndOfXmlToken OrElse
CurrentToken
.Kind = SyntaxKind.EndOfInterpolatedStringToken Then
256
If IsTokenOrKeyword(
CurrentToken
, resyncTokens) Then
260
skippedTokens.Add(
CurrentToken
)
282
While
CurrentToken
.Kind <> SyntaxKind.EndOfFileToken AndAlso
283
CurrentToken
.Kind <> SyntaxKind.StatementTerminatorToken
285
skippedTokens.Add(
CurrentToken
)
289
If
CurrentToken
.Kind = SyntaxKind.StatementTerminatorToken Then
290
If
CurrentToken
.HasLeadingTrivia Then
291
skippedTokens.Add(
CurrentToken
)
330
If
CurrentToken
.Kind = SyntaxKind.StatementTerminatorToken AndAlso
400
If
CurrentToken
.IsEndOfLine Then
418
Debug.Assert(If(offset = 0,
CurrentToken
, PeekToken(offset)).IsEndOfLine)
Parser\ParseStatement.vb (138)
25
Debug.Assert(
CurrentToken
.Kind = SyntaxKind.ContinueKeyword, "ParseContinueStatement called on wrong token")
27
Dim continueKeyword As KeywordSyntax = DirectCast(
CurrentToken
, KeywordSyntax)
33
Select Case (
CurrentToken
.Kind)
37
blockKeyword = DirectCast(
CurrentToken
, KeywordSyntax)
42
blockKeyword = DirectCast(
CurrentToken
, KeywordSyntax)
47
blockKeyword = DirectCast(
CurrentToken
, KeywordSyntax)
96
Debug.Assert(
CurrentToken
.Kind = SyntaxKind.ExitKeyword, "ParseExitStatement called on wrong token")
98
Dim exitKeyword As KeywordSyntax = DirectCast(
CurrentToken
, KeywordSyntax)
105
Select Case (
CurrentToken
.Kind)
109
blockKeyword = DirectCast(
CurrentToken
, KeywordSyntax)
114
blockKeyword = DirectCast(
CurrentToken
, KeywordSyntax)
119
blockKeyword = DirectCast(
CurrentToken
, KeywordSyntax)
124
blockKeyword = DirectCast(
CurrentToken
, KeywordSyntax)
135
blockKeyword = DirectCast(
CurrentToken
, KeywordSyntax)
141
blockKeyword = DirectCast(
CurrentToken
, KeywordSyntax)
147
blockKeyword = DirectCast(
CurrentToken
, KeywordSyntax)
152
blockKeyword = DirectCast(
CurrentToken
, KeywordSyntax)
207
Select Case
CurrentToken
.Kind
220
statement = statement.AddLeadingSyntax(SyntaxList.List(exitKeyword,
CurrentToken
), stmtError)
243
Debug.Assert(
CurrentToken
.Kind = SyntaxKind.CaseKeyword, "ParseCaseStatement called on wrong token.")
245
Dim caseKeyword As KeywordSyntax = DirectCast(
CurrentToken
, KeywordSyntax)
251
If
CurrentToken
.Kind = SyntaxKind.ElseKeyword Then
252
elseKeyword = DirectCast(
CurrentToken
, KeywordSyntax)
261
Dim StartCase As SyntaxKind =
CurrentToken
.Kind ' dev10_500588 Snap the start of the expression token AFTER we've moved off the EOL (if one is present)
270
If SyntaxFacts.IsRelationalOperator(
CurrentToken
.Kind) Then
272
Dim relationalOperator = DirectCast(
CurrentToken
, PunctuationSyntax)
373
Debug.Assert(
CurrentToken
.Kind = SyntaxKind.SelectKeyword, "ParseSelectStatement called on wrong token.")
375
Dim selectKeyword As KeywordSyntax = DirectCast(
CurrentToken
, KeywordSyntax)
409
Debug.Assert(
CurrentToken
.Kind = SyntaxKind.IfKeyword, "ParseIfConstruct called on wrong token.")
411
Dim ifKeyword As KeywordSyntax = DirectCast(
CurrentToken
, KeywordSyntax)
431
Debug.Assert(
CurrentToken
.Kind = SyntaxKind.ElseKeyword, "ParseIfConstruct called on wrong token.")
433
Dim elseKeyword = DirectCast(
CurrentToken
, KeywordSyntax)
443
Debug.Assert(
CurrentToken
.Kind = SyntaxKind.ElseIfKeyword OrElse (
CurrentToken
.Kind = SyntaxKind.ElseKeyword AndAlso PeekToken(1).Kind = SyntaxKind.IfKeyword),
448
If
CurrentToken
.Kind = SyntaxKind.ElseIfKeyword Then
449
elseIfKeyword = DirectCast(
CurrentToken
, KeywordSyntax)
453
ElseIf
CurrentToken
.Kind = SyntaxKind.ElseKeyword Then
456
Dim elseKeyword = DirectCast(
CurrentToken
, KeywordSyntax)
466
Dim ifKeyword = DirectCast(
CurrentToken
, KeywordSyntax)
488
Debug.Assert(
CurrentToken
.Kind = SyntaxKind.EndIfKeyword OrElse
489
CurrentToken
.Kind = SyntaxKind.GosubKeyword OrElse
490
CurrentToken
.Kind = SyntaxKind.WendKeyword, "ParseAnachronisticEndIfStatement called on wrong token")
492
Dim keyword As KeywordSyntax = DirectCast(
CurrentToken
, KeywordSyntax)
527
Debug.Assert(
CurrentToken
.Kind = SyntaxKind.DoKeyword, "ParseDoStatement called on wrong token")
529
Dim doKeyword = DirectCast(
CurrentToken
, KeywordSyntax)
554
Debug.Assert(
CurrentToken
.Kind = SyntaxKind.LoopKeyword, "ParseDoStatement called on wrong token")
556
Dim loopKeyword = DirectCast(
CurrentToken
, KeywordSyntax)
580
Debug.Assert(
CurrentToken
.Kind = SyntaxKind.ForKeyword, "ParseForStatement called on wrong token")
582
Dim forKeyword As KeywordSyntax = DirectCast(
CurrentToken
, KeywordSyntax)
709
Debug.Assert(
CurrentToken
.Kind = SyntaxKind.NextKeyword, "ParseNextStatement called on wrong token")
711
Dim nextKeyword As KeywordSyntax = DirectCast(
CurrentToken
, KeywordSyntax)
715
If CanFollowStatement(
CurrentToken
) Then
783
Select Case (
CurrentToken
.Kind)
844
If
CurrentToken
.Kind = SyntaxKind.AsKeyword Then
845
[As] = DirectCast(
CurrentToken
, KeywordSyntax)
871
Dim label As SyntaxToken =
CurrentToken
919
Debug.Assert(
CurrentToken
.Kind = SyntaxKind.GoToKeyword, "Alleged GOTO isn't.")
921
Dim gotoKeyword As KeywordSyntax = DirectCast(
CurrentToken
, KeywordSyntax)
948
Debug.Assert(
CurrentToken
.Kind = SyntaxKind.OnKeyword, "ON statement must start with ON.")
950
Dim onKeyword As KeywordSyntax = DirectCast(
CurrentToken
, KeywordSyntax)
955
If
CurrentToken
.Kind = SyntaxKind.ErrorKeyword Then
956
errorKeyword = DirectCast(
CurrentToken
, KeywordSyntax)
964
If
CurrentToken
.Kind = SyntaxKind.ResumeKeyword Then
968
ElseIf
CurrentToken
.Kind = SyntaxKind.GoToKeyword Then
993
Debug.Assert(
CurrentToken
.Kind = SyntaxKind.ResumeKeyword, "ParseOnErrorResumeNext called on wrong token.")
995
Dim resumeKeyword As KeywordSyntax = DirectCast(
CurrentToken
, KeywordSyntax)
1008
Debug.Assert(
CurrentToken
.Kind = SyntaxKind.GoToKeyword, "ParseOnErrorGoto called on wrong token.")
1010
Dim gotoKeyword = DirectCast(
CurrentToken
, KeywordSyntax)
1055
Debug.Assert(
CurrentToken
.Kind = SyntaxKind.ResumeKeyword, "ParseResumeStatement called on wrong token.")
1057
Dim resumeKeyword As KeywordSyntax = DirectCast(
CurrentToken
, KeywordSyntax)
1063
If Not IsValidStatementTerminator(
CurrentToken
) Then
1065
If
CurrentToken
.Kind = SyntaxKind.NextKeyword Then
1067
Dim nextKeyword = DirectCast(
CurrentToken
, KeywordSyntax)
1095
If SyntaxFacts.IsAssignmentStatementOperatorToken(
CurrentToken
.Kind) Then
1097
Dim operatorToken As PunctuationSyntax = DirectCast(
CurrentToken
, PunctuationSyntax)
1126
If Not CanEndExecutableStatement(
CurrentToken
) AndAlso
1127
CurrentToken
.Kind <> SyntaxKind.BadToken AndAlso
1203
Debug.Assert(
CurrentToken
.Kind = SyntaxKind.CallKeyword, "ParseCallStatement called on wrong token.")
1205
Dim callKeyword As KeywordSyntax = DirectCast(
CurrentToken
, KeywordSyntax)
1242
Debug.Assert(
CurrentToken
.Kind = SyntaxKind.RaiseEventKeyword, "RaiseEvent statement must start with RaiseEvent.")
1244
Dim raiseEventKeyword As KeywordSyntax = DirectCast(
CurrentToken
, KeywordSyntax)
1255
If
CurrentToken
.Kind = SyntaxKind.OpenParenToken Then
1270
Debug.Assert(
CurrentToken
.Kind = SyntaxKind.ReDimKeyword, "ParseRedimStatement must start with Redim.")
1271
Dim reDimKeyword As KeywordSyntax = DirectCast(
CurrentToken
, KeywordSyntax)
1277
If
CurrentToken
.Kind = SyntaxKind.IdentifierToken AndAlso
1278
TryIdentifierAsContextualKeyword(
CurrentToken
, possibleKeyword) AndAlso possibleKeyword.Kind = SyntaxKind.PreserveKeyword Then
1328
If
CurrentToken
.Kind = SyntaxKind.AsKeyword Then
1329
statement = statement.AddTrailingSyntax(
CurrentToken
, ERRID.ERR_ObsoleteRedimAs)
1342
Debug.Assert(
CurrentToken
.Kind = SyntaxKind.AddHandlerKeyword OrElse
CurrentToken
.Kind = SyntaxKind.RemoveHandlerKeyword, "Handler statement parsing confused.")
1344
Dim keyword As KeywordSyntax = DirectCast(
CurrentToken
, KeywordSyntax)
1380
Debug.Assert(
CurrentToken
.Kind = SyntaxKind.WhileKeyword OrElse
1381
CurrentToken
.Kind = SyntaxKind.WithKeyword OrElse
1382
CurrentToken
.Kind = SyntaxKind.SyncLockKeyword, "ParseExpressionBlockStatement called on wrong token.")
1384
Dim keyword As KeywordSyntax = DirectCast(
CurrentToken
, KeywordSyntax)
1414
Debug.Assert(
CurrentToken
.Kind = SyntaxKind.LetKeyword OrElse
CurrentToken
.Kind = SyntaxKind.SetKeyword, "Assignment statement parsing is lost.")
1417
If
CurrentToken
.Kind = SyntaxKind.SetKeyword AndAlso
1425
Dim keyword As SyntaxToken =
CurrentToken
1438
Debug.Assert(
CurrentToken
.Kind = SyntaxKind.TryKeyword, "ParseTry called on wrong token")
1440
Dim tryKeyword As KeywordSyntax = DirectCast(
CurrentToken
, KeywordSyntax)
1453
Debug.Assert(
CurrentToken
.Kind = SyntaxKind.CatchKeyword, "ParseCatch called on wrong token.")
1455
Dim catchKeyword As KeywordSyntax = DirectCast(
CurrentToken
, KeywordSyntax)
1462
If
CurrentToken
.Kind = SyntaxKind.IdentifierToken Then
1502
Debug.Assert(
CurrentToken
.Kind = SyntaxKind.FinallyKeyword, "ParseFinally called on wrong token.")
1504
Dim finallyKeyword = DirectCast(
CurrentToken
, KeywordSyntax)
1513
Debug.Assert(
CurrentToken
.Kind = SyntaxKind.ThrowKeyword, "ParseThrowStatement called on wrong token.")
1515
Dim throwKeyword = DirectCast(
CurrentToken
, KeywordSyntax)
1531
Debug.Assert(
CurrentToken
.Kind = SyntaxKind.ErrorKeyword)
1533
Dim errorKeyword = DirectCast(
CurrentToken
, KeywordSyntax)
1554
Debug.Assert(
CurrentToken
.Kind = SyntaxKind.EraseKeyword, "Erase statement parsing lost.")
1556
Dim eraseKeyword As KeywordSyntax = DirectCast(
CurrentToken
, KeywordSyntax)
1569
Return IsFirstStatementOnLine(
CurrentToken
) AndAlso PeekToken(1).Kind = SyntaxKind.ColonToken
1573
Debug.Assert(
CurrentToken
.Kind = SyntaxKind.IdentifierToken OrElse
CurrentToken
.Kind = SyntaxKind.IntegerLiteralToken)
1577
If labelName.Kind = SyntaxKind.IntegerLiteralToken AndAlso
CurrentToken
.Kind <> SyntaxKind.ColonToken Then
1610
Debug.Assert(
CurrentToken
.Kind = SyntaxKind.IdentifierToken AndAlso DirectCast(
CurrentToken
, IdentifierTokenSyntax).PossibleKeywordKind = SyntaxKind.MidKeyword)
1615
Dim mid = DirectCast(
CurrentToken
, IdentifierTokenSyntax)
1618
Debug.Assert(
CurrentToken
.Kind = SyntaxKind.OpenParenToken)
1671
If Not CanFollowStatement(
CurrentToken
) Then
1674
If
CurrentToken
.Kind = SyntaxKind.WhileKeyword Then
1675
keyword = DirectCast(
CurrentToken
, KeywordSyntax)
1677
TryTokenAsContextualKeyword(
CurrentToken
, SyntaxKind.UntilKeyword, keyword)
1724
Debug.Assert(
CurrentToken
.Kind = SyntaxKind.ReturnKeyword, "ParseReturnStatement called on wrong token.")
1726
Dim returnKeyword As KeywordSyntax = DirectCast(
CurrentToken
, KeywordSyntax)
1729
Dim startToken =
CurrentToken
1755
If Not CanFollowStatement(
CurrentToken
) Then
1775
Debug.Assert(
CurrentToken
.Kind = SyntaxKind.StopKeyword OrElse
CurrentToken
.Kind = SyntaxKind.EndKeyword, "ParseStopOrEndStatement called on wrong token.")
1777
Dim stopOrEndKeyword As KeywordSyntax = DirectCast(
CurrentToken
, KeywordSyntax)
1788
Debug.Assert(
CurrentToken
.Kind = SyntaxKind.UsingKeyword, "ParseUsingStatement called on wrong token")
1790
Dim usingKeyword As KeywordSyntax = DirectCast(
CurrentToken
, KeywordSyntax)
1820
Debug.Assert(
CurrentToken
.Kind = SyntaxKind.IdentifierToken AndAlso
1821
DirectCast(
CurrentToken
, IdentifierTokenSyntax).ContextualKind = SyntaxKind.AwaitKeyword,
1839
Debug.Assert(DirectCast(
CurrentToken
, IdentifierTokenSyntax).ContextualKind = SyntaxKind.YieldKeyword)
1843
TryIdentifierAsContextualKeyword(
CurrentToken
, yieldKeyword)
1858
Dim questionToken = DirectCast(
CurrentToken
, PunctuationSyntax)
Parser\ParseTerminal.vb (23)
37
If
CurrentToken
.Kind = SyntaxKind.IdentifierToken Then
39
identifier = DirectCast(
CurrentToken
, IdentifierTokenSyntax)
53
If
CurrentToken
.IsKeyword Then
54
Dim keyword As KeywordSyntax = DirectCast(
CurrentToken
, KeywordSyntax)
65
If (
CurrentToken
.Kind = SyntaxKind.BadToken AndAlso
CurrentToken
.Text = "_") Then
66
identifier = identifier.AddLeadingSyntax(
CurrentToken
, ERRID.ERR_ExpectedIdentifier)
84
If SyntaxKind.QuestionToken =
CurrentToken
.Kind AndAlso Not identifier.ContainsDiagnostics Then
85
optionalNullable = DirectCast(
CurrentToken
, PunctuationSyntax)
112
If
CurrentToken
.Kind = SyntaxKind.IdentifierToken Then
113
identifier = DirectCast(
CurrentToken
, IdentifierTokenSyntax)
116
ElseIf
CurrentToken
.IsKeyword() Then
117
Dim keyword As KeywordSyntax = DirectCast(
CurrentToken
, KeywordSyntax)
162
Debug.Assert(
CurrentToken
.Kind = SyntaxKind.IntegerLiteralToken, "Expected Integer literal.")
164
Dim Literal As LiteralExpressionSyntax = SyntaxFactory.NumericLiteralExpression(
CurrentToken
)
171
Debug.Assert(
CurrentToken
.Kind = SyntaxKind.CharacterLiteralToken, "Expected Char literal.")
173
Dim Literal As LiteralExpressionSyntax = SyntaxFactory.CharacterLiteralExpression(
CurrentToken
)
181
Debug.Assert(
CurrentToken
.Kind = SyntaxKind.DecimalLiteralToken, "must be at a decimal literal.")
183
Dim Literal As LiteralExpressionSyntax = SyntaxFactory.NumericLiteralExpression(
CurrentToken
)
205
CurrentToken
.Kind = SyntaxKind.FloatingLiteralToken,
208
Dim Literal As LiteralExpressionSyntax = SyntaxFactory.NumericLiteralExpression(
CurrentToken
)
217
CurrentToken
.Kind = SyntaxKind.DateLiteralToken,
220
Dim Literal As LiteralExpressionSyntax = SyntaxFactory.DateLiteralExpression(
CurrentToken
)
Parser\ParseVerify.vb (1)
166
Dim current As SyntaxToken =
CurrentToken
Parser\ParseXml.vb (171)
22
Debug.Assert(
CurrentToken
.Kind = SyntaxKind.LessThanToken OrElse
23
CurrentToken
.Kind = SyntaxKind.LessThanGreaterThanToken OrElse
24
CurrentToken
.Kind = SyntaxKind.LessThanSlashToken OrElse
25
CurrentToken
.Kind = SyntaxKind.BeginCDataToken OrElse
26
CurrentToken
.Kind = SyntaxKind.LessThanExclamationMinusMinusToken OrElse
27
CurrentToken
.Kind = SyntaxKind.LessThanQuestionToken, "ParseXmlMarkup called on the wrong token.")
34
If
CurrentToken
.Kind = SyntaxKind.LessThanQuestionToken Then
49
Debug.Assert(
CurrentToken
.Kind = SyntaxKind.LessThanQuestionToken, "ParseXmlDocument called on wrong token")
69
Select Case
CurrentToken
.Kind
103
Debug.Assert(
CurrentToken
.Kind = SyntaxKind.LessThanQuestionToken AndAlso
107
Dim beginPrologue = DirectCast(
CurrentToken
, PunctuationSyntax)
127
Select Case
CurrentToken
.Kind
129
Dim optionName = DirectCast(
CurrentToken
, XmlNameTokenSyntax)
221
If
CurrentToken
.Kind <> SyntaxKind.QuestionGreaterThanToken Then
257
Debug.Assert(IsToken(
CurrentToken
,
270
Dim hasPrecedingWhitespace = PrevToken.GetTrailingTrivia.ContainsWhitespaceTrivia() OrElse
CurrentToken
.GetLeadingTrivia.ContainsWhitespaceTrivia
278
If
CurrentToken
.Kind = SyntaxKind.LessThanPercentEqualsToken Then
296
Select Case
CurrentToken
.Kind
324
Select Case (
CurrentToken
.Kind)
327
Dim badToken = DirectCast(
CurrentToken
, BadTokenSyntax)
366
Debug.Assert(
CurrentToken
.Kind = SyntaxKind.BadToken AndAlso
367
DirectCast(
CurrentToken
, BadTokenSyntax).SubKind = SyntaxSubKind.BeginDocTypeToken, "ParseDTD called on wrong token.")
371
Dim beginDocType = DirectCast(
CurrentToken
, BadTokenSyntax)
393
If
CurrentToken
.Kind = SyntaxKind.XmlNameToken Then
395
Dim name = DirectCast(
CurrentToken
, XmlNameTokenSyntax)
419
If
CurrentToken
.Kind <> SyntaxKind.BadToken OrElse DirectCast(
CurrentToken
, BadTokenSyntax).SubKind <> SyntaxSubKind.OpenBracketToken Then
433
If
CurrentToken
.Kind = SyntaxKind.BadToken AndAlso DirectCast(
CurrentToken
, BadTokenSyntax).SubKind = SyntaxSubKind.OpenBracketToken Then
437
builder.Add(
CurrentToken
)
441
If
CurrentToken
.Kind = SyntaxKind.BadToken AndAlso DirectCast(
CurrentToken
, BadTokenSyntax).SubKind = SyntaxSubKind.LessThanExclamationToken Then
442
builder.Add(
CurrentToken
)
447
If
CurrentToken
.Kind <> SyntaxKind.BadToken OrElse DirectCast(
CurrentToken
, BadTokenSyntax).SubKind <> SyntaxSubKind.CloseBracketToken Then
461
builder.Add(
CurrentToken
)
471
Select Case
CurrentToken
.Kind
473
builder.Add(
CurrentToken
)
474
Dim badToken = DirectCast(
CurrentToken
, BadTokenSyntax)
489
builder.Add(
CurrentToken
)
498
builder.Add(
CurrentToken
)
509
Debug.Assert(
CurrentToken
.Kind = SyntaxKind.LessThanToken, "ParseXmlElement call on wrong token.")
511
Dim lessThan As PunctuationSyntax = DirectCast(
CurrentToken
, PunctuationSyntax)
523
Select Case (
CurrentToken
.Kind)
527
greaterThan = DirectCast(
CurrentToken
, PunctuationSyntax)
534
endEmptyElementToken = DirectCast(
CurrentToken
, PunctuationSyntax)
543
Dim divideToken As SyntaxToken =
CurrentToken
547
greaterThan = DirectCast(
CurrentToken
, PunctuationSyntax)
575
Debug.Assert(IsToken(
CurrentToken
,
595
Select Case
CurrentToken
.Kind
659
textTokens.Add(DirectCast(
CurrentToken
, XmlTextTokenSyntax))
662
newKind =
CurrentToken
.Kind
672
Dim badToken = DirectCast(
CurrentToken
, BadTokenSyntax)
789
Select Case
CurrentToken
.Kind
791
Dim endEmptyElementToken = DirectCast(
CurrentToken
, PunctuationSyntax)
800
greaterThan = DirectCast(
CurrentToken
, PunctuationSyntax)
839
Dim currentKind =
CurrentToken
.Kind
844
result = SyntaxFactory.XmlText(
CurrentToken
)
868
If
CurrentToken
.Kind <> SyntaxKind.LessThanSlashToken Then
878
If
CurrentToken
.Kind = SyntaxKind.LessThanToken Then
879
Dim lessThan = DirectCast(
CurrentToken
, PunctuationSyntax)
909
If
CurrentToken
.Kind = SyntaxKind.XmlNameToken Then
929
Select Case
CurrentToken
.Kind
957
Debug.Assert(IsToken(
CurrentToken
,
967
If
CurrentToken
.Kind = SyntaxKind.XmlNameToken OrElse
968
(AllowNameAsExpression AndAlso
CurrentToken
.Kind = SyntaxKind.LessThanPercentEqualsToken) OrElse
969
CurrentToken
.Kind = SyntaxKind.EqualsToken OrElse
970
CurrentToken
.Kind = SyntaxKind.SingleQuoteToken OrElse
971
CurrentToken
.Kind = SyntaxKind.DoubleQuoteToken Then
976
If
CurrentToken
.Kind = SyntaxKind.EqualsToken Then
978
Dim equals = DirectCast(
CurrentToken
, PunctuationSyntax)
983
If
CurrentToken
.Kind = SyntaxKind.LessThanPercentEqualsToken Then
1005
If
CurrentToken
.Kind <> SyntaxKind.SingleQuoteToken AndAlso
1006
CurrentToken
.Kind <> SyntaxKind.DoubleQuoteToken Then
1062
If
CurrentToken
.Kind = SyntaxKind.SingleQuoteToken Then
1063
state = If(
CurrentToken
.Text = "'"c, ScannerState.SingleQuotedString, ScannerState.SmartSingleQuotedString)
1064
startQuote = DirectCast(
CurrentToken
, PunctuationSyntax)
1065
ElseIf
CurrentToken
.Kind = SyntaxKind.DoubleQuoteToken Then
1066
state = If(
CurrentToken
.Text = """"c, ScannerState.QuotedString, ScannerState.SmartQuotedString)
1067
startQuote = DirectCast(
CurrentToken
, PunctuationSyntax)
1098
If SyntaxFacts.IsPredefinedTypeKeyword(Me.
CurrentToken
.Kind) Then
1099
Dim type As PredefinedTypeSyntax = SyntaxFactory.PredefinedType(DirectCast(
CurrentToken
, KeywordSyntax))
1120
Select Case Me.
CurrentToken
.Kind
1124
Dim endQuote = DirectCast(
CurrentToken
, PunctuationSyntax)
1132
Dim token As SyntaxToken =
CurrentToken
1168
If
CurrentToken
.Kind = SyntaxKind.OpenParenToken AndAlso name.Kind <> SyntaxKind.PredefinedType Then
1174
If
CurrentToken
.Kind = SyntaxKind.AsKeyword Then
1175
Dim asKeyword As KeywordSyntax = DirectCast(
CurrentToken
, KeywordSyntax)
1198
Debug.Assert(
CurrentToken
.Kind = SyntaxKind.OpenParenToken)
1199
Dim openParen As PunctuationSyntax = DirectCast(
CurrentToken
, PunctuationSyntax)
1206
Dim currToken As SyntaxToken = Me.
CurrentToken
1231
Debug.Assert(
CurrentToken
.Kind = SyntaxKind.CommaToken)
1232
signatureTypes.AddSeparator(
CurrentToken
)
1237
While
CurrentToken
.Kind = SyntaxKind.ByValKeyword OrElse
CurrentToken
.Kind = SyntaxKind.ByRefKeyword
1240
modifier = DirectCast(
CurrentToken
, KeywordSyntax)
1243
modifier = modifier.AddTrailingSyntax(
CurrentToken
, ERRID.ERR_InvalidParameterSyntax)
1259
Dim operatorKeyword As KeywordSyntax = DirectCast(
CurrentToken
, KeywordSyntax)
1266
If TryTokenAsContextualKeyword(
CurrentToken
, keyword) Then
1269
operatorToken =
CurrentToken
1287
If
CurrentToken
.Kind = SyntaxKind.GlobalKeyword Then
1288
result = SyntaxFactory.GlobalName(DirectCast(
CurrentToken
, KeywordSyntax))
1291
ElseIf
CurrentToken
.Kind = SyntaxKind.ObjectKeyword Then
1298
DirectCast(Me.
CurrentToken
, KeywordSyntax)))
1301
ElseIf
CurrentToken
.Kind = SyntaxKind.OperatorKeyword Then
1305
ElseIf
CurrentToken
.Kind = SyntaxKind.NewKeyword Then
1317
Debug.Assert(Not SyntaxFacts.IsPredefinedTypeKeyword(
CurrentToken
.Kind))
1332
While
CurrentToken
.Kind = SyntaxKind.DotToken
1333
Dim dotToken As PunctuationSyntax = DirectCast(
CurrentToken
, PunctuationSyntax)
1336
If
CurrentToken
.Kind = SyntaxKind.OperatorKeyword Then
1385
If
CurrentToken
.Kind = SyntaxKind.SingleQuoteToken Then
1386
state = If(
CurrentToken
.Text = "'"c, ScannerState.SingleQuotedString, ScannerState.SmartSingleQuotedString)
1387
startQuote = DirectCast(
CurrentToken
, PunctuationSyntax)
1388
ElseIf
CurrentToken
.Kind = SyntaxKind.DoubleQuoteToken Then
1389
state = If(
CurrentToken
.Text = """"c, ScannerState.QuotedString, ScannerState.SmartQuotedString)
1390
startQuote = DirectCast(
CurrentToken
, PunctuationSyntax)
1402
Dim identToken As SyntaxToken =
CurrentToken
1405
identToken = Me._scanner.MakeIdentifier(DirectCast(Me.
CurrentToken
, KeywordSyntax))
1422
Dim closingToken As SyntaxToken = Me.
CurrentToken
1424
Dim endQuote = DirectCast(
CurrentToken
, PunctuationSyntax)
1521
Select Case (
CurrentToken
.Kind)
1541
(PrevToken.GetTrailingTrivia.ContainsWhitespaceTrivia() OrElse
CurrentToken
.GetLeadingTrivia.ContainsWhitespaceTrivia)
1543
Dim localName = DirectCast(
CurrentToken
, XmlNameTokenSyntax)
1552
If
CurrentToken
.Kind = SyntaxKind.ColonToken Then
1554
Dim colon As PunctuationSyntax = DirectCast(
CurrentToken
, PunctuationSyntax)
1558
If
CurrentToken
.Kind = SyntaxKind.XmlNameToken Then
1560
localName = DirectCast(
CurrentToken
, XmlNameTokenSyntax)
1593
If Not IsValidXmlQualifiedNameToken(
CurrentToken
) Then
1597
Dim localName = ToXmlNameToken(
CurrentToken
)
1614
Debug.Assert(
CurrentToken
.FullWidth = 0)
1622
Dim colon = DirectCast(
CurrentToken
, PunctuationSyntax)
1630
IsValidXmlQualifiedNameToken(
CurrentToken
) Then
1632
localName = ToXmlNameToken(
CurrentToken
)
1703
If
CurrentToken
.Kind = SyntaxKind.EndOfXmlToken Then
1706
If
CurrentToken
.Kind = SyntaxKind.DocumentationCommentLineBreakToken Then
1726
Debug.Assert(IsToken(
CurrentToken
,
1747
Select Case (
CurrentToken
.Kind)
1774
textTokens.Add(DirectCast(
CurrentToken
, XmlTextTokenSyntax))
1777
newKind =
CurrentToken
.Kind
1791
Dim badToken = DirectCast(
CurrentToken
, BadTokenSyntax)
1826
Debug.Assert(
CurrentToken
.Kind = SyntaxKind.LessThanQuestionToken, "ParseXmlPI called on the wrong token.")
1828
Dim beginProcessingInstruction = DirectCast(
CurrentToken
, PunctuationSyntax)
1853
If
CurrentToken
.Kind = SyntaxKind.XmlTextLiteralToken OrElse
CurrentToken
.Kind = SyntaxKind.DocumentationCommentLineBreakToken Then
1854
textToken = DirectCast(
CurrentToken
, XmlTextTokenSyntax)
1865
If
CurrentToken
.Kind <> SyntaxKind.XmlTextLiteralToken AndAlso
CurrentToken
.Kind <> SyntaxKind.DocumentationCommentLineBreakToken Then
1868
textToken = DirectCast(
CurrentToken
, XmlTextTokenSyntax)
1888
Debug.Assert(
CurrentToken
.Kind = SyntaxKind.BeginCDataToken, "ParseXmlCData called on the wrong token.")
1890
Dim beginCData = DirectCast(
CurrentToken
, PunctuationSyntax)
1896
Do While
CurrentToken
.Kind = SyntaxKind.XmlTextLiteralToken OrElse
CurrentToken
.Kind = SyntaxKind.DocumentationCommentLineBreakToken
1897
values.Add(DirectCast(
CurrentToken
, XmlTextTokenSyntax))
1914
Debug.Assert(
CurrentToken
.Kind = SyntaxKind.LessThanExclamationMinusMinusToken, "ParseXmlComment called on wrong token.")
1916
Dim beginComment As PunctuationSyntax = DirectCast(
CurrentToken
, PunctuationSyntax)
1921
Do While
CurrentToken
.Kind = SyntaxKind.XmlTextLiteralToken OrElse
CurrentToken
.Kind = SyntaxKind.DocumentationCommentLineBreakToken
1922
Dim textToken = DirectCast(
CurrentToken
, XmlTextTokenSyntax)
1947
If
CurrentToken
.Kind = SyntaxKind.SingleQuoteToken Then
1948
state = If(
CurrentToken
.Text = "'"c, ScannerState.SingleQuotedString, ScannerState.SmartSingleQuotedString)
1949
startQuote = DirectCast(
CurrentToken
, PunctuationSyntax)
1951
ElseIf
CurrentToken
.Kind = SyntaxKind.DoubleQuoteToken Then
1952
state = If(
CurrentToken
.Text = """"c, ScannerState.QuotedString, ScannerState.SmartQuotedString)
1953
startQuote = DirectCast(
CurrentToken
, PunctuationSyntax)
1966
Dim kind =
CurrentToken
.Kind
1972
Dim endQuote = DirectCast(
CurrentToken
, PunctuationSyntax)
1985
list.Add(DirectCast(
CurrentToken
, XmlTextTokenSyntax))
2005
Debug.Assert(
CurrentToken
.Kind = SyntaxKind.LessThanPercentEqualsToken, "ParseXmlEmbedded called on wrong token")
2007
Dim beginXmlEmbedded As PunctuationSyntax = DirectCast(
CurrentToken
, PunctuationSyntax)
2027
If
CurrentToken
.Kind = SyntaxKind.PercentGreaterThanToken Then
2028
endXmlEmbedded = DirectCast(
CurrentToken
, PunctuationSyntax)
Scanner\XmlDocComments.vb (1)
102
If nodes.Count = 0 AndAlso parser.
CurrentToken
.Kind = SyntaxKind.EndOfXmlToken Then
Syntax\SyntaxNodeFactories.vb (1)
159
curTk = parser.
CurrentToken