290 references to ScannerState
Microsoft.CodeAnalysis.VisualBasic (273)
Parser\ParseExpression.vb (15)
734
GetNextToken(
ScannerState
.VB)
738
ResetCurrentToken(
ScannerState
.Element)
740
VerifyExpectedToken(SyntaxKind.OpenParenToken, openParen,
ScannerState
.Element)
745
GetNextToken(
ScannerState
.Element)
951
TryEatNewLine(
ScannerState
.VB)
1054
GetNextToken(
ScannerState
.VB)
1061
If PeekNextToken(
ScannerState
.VB).Kind = SyntaxKind.LessThanToken Then
1063
GetNextToken(
ScannerState
.Element)
1067
GetNextToken(
ScannerState
.VB)
1160
Private Function TransitionFromVBToXml(Of T As VisualBasicSyntaxNode)(state As
ScannerState
, node As T) As T
1185
ResetCurrentToken(
ScannerState
.Content)
1190
ResetCurrentToken(
ScannerState
.Element)
1191
Dim name = ParseXmlQualifiedName(False, False,
ScannerState
.Element,
ScannerState
.Element)
1205
ResetCurrentToken(
ScannerState
.VB)
Parser\ParseInterpolatedString.vb (18)
20
ResetCurrentToken(
ScannerState
.InterpolatedStringPunctuation)
25
GetNextToken(
ScannerState
.InterpolatedStringContent)
40
GetNextToken(
ScannerState
.InterpolatedStringPunctuation)
59
GetNextToken(
ScannerState
.InterpolatedStringContent)
71
GetNextToken(
ScannerState
.VB)
107
GetNextToken(
ScannerState
.VB)
131
GetNextToken(
ScannerState
.VB)
143
GetNextToken(
ScannerState
.VB)
157
GetNextToken(
ScannerState
.VB)
185
GetNextToken(
ScannerState
.InterpolatedStringFormatString)
191
GetNextToken(
ScannerState
.InterpolatedStringPunctuation)
226
GetNextToken(
ScannerState
.InterpolatedStringFormatString)
235
ResetCurrentToken(
ScannerState
.InterpolatedStringPunctuation)
238
GetNextToken(
ScannerState
.InterpolatedStringContent)
241
GetNextToken(
ScannerState
.VB)
247
ResetCurrentToken(
ScannerState
.InterpolatedStringFormatString)
254
ResetCurrentToken(
ScannerState
.InterpolatedStringContent)
255
GetNextToken(
ScannerState
.InterpolatedStringContent)
Parser\Parser.vb (29)
446
ResetCurrentToken(
ScannerState
.VBAllowLeadingMultilineTrivia)
452
ResetCurrentToken(If(_allowLeadingMultilineTrivia,
ScannerState
.VBAllowLeadingMultilineTrivia,
ScannerState
.VB))
464
ResetCurrentToken(If(_allowLeadingMultilineTrivia,
ScannerState
.VBAllowLeadingMultilineTrivia,
ScannerState
.VB))
4735
ResetCurrentToken(
ScannerState
.Element)
4742
If VerifyExpectedToken(SyntaxKind.LessThanToken, lessToken,
ScannerState
.Element) Then
4754
Dim unexpected = ResyncAt(
ScannerState
.Element, {SyntaxKind.GreaterThanToken})
4762
Dim unexpected = ResyncAt(
ScannerState
.Element, {SyntaxKind.GreaterThanToken})
4768
VerifyExpectedToken(SyntaxKind.GreaterThanToken, greaterToken,
ScannerState
.Element)
5484
GetNextToken(
ScannerState
.VB)
5493
GetNextToken(
ScannerState
.VB)
5511
ResetCurrentToken(
ScannerState
.VB)
5544
ResetCurrentToken(
ScannerState
.VB)
5917
Optional state As
ScannerState
=
ScannerState
.VB) As Boolean
5941
Optional state As
ScannerState
=
ScannerState
.VB) As Boolean
5970
Dim state = If(_allowLeadingMultilineTrivia,
ScannerState
.VBAllowLeadingMultilineTrivia,
ScannerState
.VB)
5974
Friend Function PeekNextToken(Optional state As
ScannerState
=
ScannerState
.VB) As SyntaxToken
5975
If _allowLeadingMultilineTrivia AndAlso state =
ScannerState
.VB Then
5976
state =
ScannerState
.VBAllowLeadingMultilineTrivia
6003
Private Sub ResetCurrentToken(state As
ScannerState
)
6011
Friend Sub GetNextToken(Optional state As
ScannerState
=
ScannerState
.VB)
6012
If _allowLeadingMultilineTrivia AndAlso state =
ScannerState
.VB Then
6013
state =
ScannerState
.VBAllowLeadingMultilineTrivia
Parser\ParseScan.vb (8)
243
Private Sub ResyncAt(skippedTokens As SyntaxListBuilder(Of SyntaxToken), state As
ScannerState
, resyncTokens As SyntaxKind())
265
Private Function ResyncAt(state As
ScannerState
, resyncTokens As SyntaxKind()) As CodeAnalysis.Syntax.InternalSyntax.SyntaxList(Of SyntaxToken)
286
GetNextToken(
ScannerState
.VB)
294
GetNextToken(
ScannerState
.VB)
304
Return ResyncAt(
ScannerState
.VB, Array.Empty(Of SyntaxKind))
309
Return ResyncAt(
ScannerState
.VB, resyncTokens)
326
Private Function TryEatNewLine(Optional state As
ScannerState
=
ScannerState
.VB) As Boolean
Parser\ParseVerify.vb (2)
163
Optional state As
ScannerState
=
ScannerState
.VB
Parser\ParseXml.vb (125)
30
ResetCurrentToken(
ScannerState
.Content)
37
Result = ParseXmlElement(
ScannerState
.VB)
52
Dim nextToken = PeekNextToken(
ScannerState
.Element)
71
body = ParseXmlElement(
ScannerState
.Misc)
74
body = ParseXmlEmbedded(
ScannerState
.Misc)
94
Return ParseXmlProcessingInstruction(
ScannerState
.VB, whitespaceChecker)
104
PeekNextToken(
ScannerState
.Element).Kind = SyntaxKind.XmlNameToken AndAlso
105
DirectCast(PeekNextToken(
ScannerState
.Element), XmlNameTokenSyntax).PossibleKeywordKind = SyntaxKind.XmlKeyword, "ParseXmlDecl called on the wrong token.")
108
GetNextToken(
ScannerState
.Element)
111
VerifyExpectedToken(SyntaxKind.XmlNameToken, nameToken,
ScannerState
.Element)
222
unexpected = ResyncAt(
ScannerState
.Element, {SyntaxKind.EndOfXmlToken,
230
VerifyExpectedToken(SyntaxKind.QuestionGreaterThanToken, endPrologue,
ScannerState
.Content)
272
VerifyExpectedToken(SyntaxKind.XmlNameToken, name,
ScannerState
.Element)
280
Dim exp = ParseXmlEmbedded(
ScannerState
.Element)
285
If Not VerifyExpectedToken(SyntaxKind.EqualsToken, equals,
ScannerState
.Element) Then
286
skipped = ResyncAt(
ScannerState
.Element,
299
value = ParseXmlString(
ScannerState
.Element)
303
Dim exp = ParseXmlEmbedded(
ScannerState
.Element)
330
skipped = ParseXmlDocType(
ScannerState
.Misc)
333
GetNextToken(
ScannerState
.Misc)
343
result = ParseXmlComment(
ScannerState
.Misc)
346
result = ParseXmlProcessingInstruction(
ScannerState
.Misc, whitespaceChecker)
365
Private Function ParseXmlDocType(enclosingState As
ScannerState
) As GreenNode
376
GetNextToken(
ScannerState
.DocType)
377
VerifyExpectedToken(SyntaxKind.XmlNameToken, name,
ScannerState
.DocType)
400
GetNextToken(
ScannerState
.DocType)
401
Dim systemLiteral = ParseXmlString(
ScannerState
.DocType)
406
GetNextToken(
ScannerState
.DocType)
407
Dim publicLiteral = ParseXmlString(
ScannerState
.DocType)
409
Dim systemLiteral = ParseXmlString(
ScannerState
.DocType)
420
unexpected = ResyncAt(
ScannerState
.DocType, {SyntaxKind.BadToken,
439
GetNextToken(
ScannerState
.DocType)
443
GetNextToken(
ScannerState
.DocType)
448
unexpected = ResyncAt(
ScannerState
.DocType, {SyntaxKind.BadToken,
462
GetNextToken(
ScannerState
.DocType)
475
GetNextToken(
ScannerState
.DocType)
481
Dim xmlPI = ParseXmlProcessingInstruction(
ScannerState
.DocType, Nothing)
485
Dim xmlComment = ParseXmlComment(
ScannerState
.DocType)
490
GetNextToken(
ScannerState
.DocType)
499
GetNextToken(
ScannerState
.DocType)
508
Private Function ParseXmlElementStartTag(enclosingState As
ScannerState
) As XmlNodeSyntax
512
GetNextToken(
ScannerState
.Element)
515
Dim Name = ParseXmlQualifiedName(False, True,
ScannerState
.Element,
ScannerState
.Element)
528
GetNextToken(
ScannerState
.Content)
541
If PeekNextToken(
ScannerState
.Element).Kind = SyntaxKind.GreaterThanToken Then
545
GetNextToken(
ScannerState
.Element)
574
Private Function ParseXmlElement(enclosingState As
ScannerState
) As XmlNodeSyntax
598
Dim nextTokenIsSlash As Boolean = PeekNextToken(
ScannerState
.Element).Kind = SyntaxKind.SlashToken
611
nextState =
ScannerState
.Content
675
Dim docTypeTrivia = ParseXmlDocType(
ScannerState
.Element)
773
Private Function ResyncXmlElement(state As
ScannerState
, lessThan As PunctuationSyntax, Name As XmlNodeSyntax, attributes As CodeAnalysis.Syntax.InternalSyntax.SyntaxList(Of XmlNodeSyntax)) As XmlNodeSyntax
775
Dim unexpectedSyntax = ResyncAt(
ScannerState
.Element,
801
GetNextToken(
ScannerState
.Content)
829
Dim unexpectedSyntax = ResyncAt(
ScannerState
.Content,
845
GetNextToken(
ScannerState
.Content)
861
Private Function ParseXmlElementEndTag(nextState As
ScannerState
) As XmlElementEndTagSyntax
869
unexpected = ResyncAt(
ScannerState
.Content,
875
If Not VerifyExpectedToken(SyntaxKind.LessThanSlashToken, beginEndElement,
ScannerState
.EndElement) Then
880
Dim slashToken As SyntaxToken = PeekNextToken(
ScannerState
.EndElement)
895
GetNextToken(
ScannerState
.EndElement)
896
GetNextToken(
ScannerState
.EndElement)
911
name = DirectCast(ParseXmlQualifiedName(False, False,
ScannerState
.EndElement,
ScannerState
.EndElement), XmlNameSyntax)
974
Dim Name = ParseXmlQualifiedName(requireLeadingWhitespace, True,
ScannerState
.Element,
ScannerState
.Element)
980
GetNextToken(
ScannerState
.Element)
985
value = ParseXmlEmbedded(
ScannerState
.Element)
993
value = ParseXmlString(
ScannerState
.Element)
1013
value = ParseXmlString(
ScannerState
.Element)
1059
Dim state As
ScannerState
1063
state = If(CurrentToken.Text = "'"c,
ScannerState
.SingleQuotedString,
ScannerState
.SmartSingleQuotedString)
1066
state = If(CurrentToken.Text = """"c,
ScannerState
.QuotedString,
ScannerState
.SmartQuotedString)
1125
GetNextToken(
ScannerState
.Element)
1156
Me.ResetCurrentToken(
ScannerState
.Element)
1382
Dim state As
ScannerState
1386
state = If(CurrentToken.Text = "'"c,
ScannerState
.SingleQuotedString,
ScannerState
.SmartSingleQuotedString)
1389
state = If(CurrentToken.Text = """"c,
ScannerState
.QuotedString,
ScannerState
.SmartQuotedString)
1425
GetNextToken(
ScannerState
.Element)
1436
Me.ResetCurrentToken(
ScannerState
.Element)
1518
stateForName As
ScannerState
,
1519
nextState As
ScannerState
1538
Private Function ParseXmlQualifiedName(requireLeadingWhitespace As Boolean, stateForName As
ScannerState
, nextState As
ScannerState
) As XmlNodeSyntax
1598
GetNextToken(
ScannerState
.VB)
1621
ResetCurrentToken(
ScannerState
.Element)
1623
GetNextToken(
ScannerState
.Element)
1633
GetNextToken(
ScannerState
.VB)
1704
GetNextToken(
ScannerState
.Content)
1707
Dim tempNodes = ParseXmlContent(
ScannerState
.Content)
1725
Friend Function ParseXmlContent(state As
ScannerState
) As CodeAnalysis.Syntax.InternalSyntax.SyntaxList(Of XmlNodeSyntax)
1750
xml = ParseXmlElement(
ScannerState
.Content)
1753
xml = ReportSyntaxError(ParseXmlElementEndTag(
ScannerState
.Content), ERRID.ERR_XmlEndElementNoMatchingStart)
1756
xml = ParseXmlComment(
ScannerState
.Content)
1759
xml = ParseXmlProcessingInstruction(
ScannerState
.Content, whitespaceChecker)
1762
xml = ParseXmlCData(
ScannerState
.Content)
1765
xml = ParseXmlEmbedded(
ScannerState
.Content)
1775
GetNextToken(
ScannerState
.Content)
1794
Dim docTypeTrivia = ParseXmlDocType(
ScannerState
.Element)
1805
If state =
ScannerState
.Content Then
1825
Private Function ParseXmlProcessingInstruction(nextState As
ScannerState
, whitespaceChecker As XmlWhitespaceChecker) As XmlProcessingInstructionSyntax
1830
GetNextToken(
ScannerState
.Element)
1838
If Not VerifyExpectedToken(SyntaxKind.XmlNameToken, name,
ScannerState
.StartProcessingInstruction) Then
1842
ResetCurrentToken(
ScannerState
.StartProcessingInstruction)
1864
GetNextToken(
ScannerState
.ProcessingInstruction)
1887
Private Function ParseXmlCData(nextState As
ScannerState
) As XmlCDataSectionSyntax
1892
GetNextToken(
ScannerState
.CData)
1898
GetNextToken(
ScannerState
.CData)
1913
Private Function ParseXmlComment(nextState As
ScannerState
) As XmlNodeSyntax
1917
GetNextToken(
ScannerState
.Comment)
1927
GetNextToken(
ScannerState
.Comment)
1942
Friend Function ParseXmlString(nextState As
ScannerState
) As XmlStringSyntax
1944
Dim state As
ScannerState
1948
state = If(CurrentToken.Text = "'"c,
ScannerState
.SingleQuotedString,
ScannerState
.SmartSingleQuotedString)
1952
state = If(CurrentToken.Text = """"c,
ScannerState
.QuotedString,
ScannerState
.SmartQuotedString)
1958
state =
ScannerState
.UnQuotedString
2004
Private Function ParseXmlEmbedded(enclosingState As
ScannerState
) As XmlEmbeddedExpressionSyntax
2010
TryEatNewLine(
ScannerState
.VB)
2018
ResyncAt(skippedTokens,
ScannerState
.VB, {SyntaxKind.PercentGreaterThanToken,
Scanner\Blender.vb (1)
459
If Not Me._currentToken.State =
ScannerState
.VBAllowLeadingMultilineTrivia AndAlso
Scanner\Directives.vb (8)
40
Me.GetNextTokenInState(
ScannerState
.VB)
52
Me.GetNextTokenInState(
ScannerState
.VB)
552
Dim nextKind = Me.PeekToken(1,
ScannerState
.VB).Kind
553
Dim nextNextToken = Me.PeekToken(2,
ScannerState
.VB)
586
GetNextTokenInState(
ScannerState
.VB)
590
GetNextTokenInState(
ScannerState
.VB)
598
GetNextTokenInState(
ScannerState
.VB)
604
GetNextTokenInState(
ScannerState
.VB)
Scanner\ScannerXml.vb (11)
56
Friend Function ScanXmlElement(Optional state As
ScannerState
=
ScannerState
.Element) As SyntaxToken
57
Debug.Assert(state =
ScannerState
.Element OrElse state =
ScannerState
.EndElement OrElse state =
ScannerState
.DocType)
210
Private Function ScanXmlForPossibleStatement(state As
ScannerState
) As Boolean
262
If state =
ScannerState
.EndElement Then
637
Friend Function ScanXmlPIData(state As
ScannerState
) As SyntaxToken
646
Debug.Assert(state =
ScannerState
.StartProcessingInstruction OrElse
647
state =
ScannerState
.ProcessingInstruction)
652
If state =
ScannerState
.StartProcessingInstruction AndAlso CanGet() Then
Scanner\TokenStream.vb (37)
17
Friend Function IsVBState(state As
ScannerState
) As Boolean
18
Return state <=
ScannerState
.VBAllowLeadingMultilineTrivia
235
Friend Sub ResetCurrentToken(state As
ScannerState
)
240
If _currentToken.State =
ScannerState
.VB AndAlso state =
ScannerState
.Content Then
281
Dim state =
ScannerState
.VB
335
Dim state =
ScannerState
.VB
341
Friend Sub TransitionFromVBToXml(state As
ScannerState
, toCompare As CoreInternalSyntax.SyntaxList(Of VisualBasicSyntaxNode), ByRef toRemove As CoreInternalSyntax.SyntaxList(Of VisualBasicSyntaxNode), ByRef toAdd As CoreInternalSyntax.SyntaxList(Of VisualBasicSyntaxNode))
375
Friend Sub GetNextTokenInState(state As
ScannerState
)
387
Friend Function PeekNextToken(state As
ScannerState
) As SyntaxToken
405
Friend Function PeekToken(tokenOffset As Integer, state As
ScannerState
) As SyntaxToken
457
Private Function GetTokenAndAddToQueue(state As
ScannerState
) As SyntaxToken
469
_currentToken = _currentToken.With(
ScannerState
.VB, Nothing)
476
_currentToken = New ScannerToken(_scannerPreprocessorState, _lineBufferOffset, _endOfTerminatorTrivia, Nothing,
ScannerState
.VB)
575
Private Function GetScannerToken(state As
ScannerState
) As SyntaxToken
579
Case
ScannerState
.VB
582
Case
ScannerState
.VBAllowLeadingMultilineTrivia
585
Case
ScannerState
.Misc
588
Case
ScannerState
.Element,
589
ScannerState
.EndElement,
590
ScannerState
.DocType
593
Case
ScannerState
.Content
596
Case
ScannerState
.CData
599
Case
ScannerState
.StartProcessingInstruction,
600
ScannerState
.ProcessingInstruction
603
Case
ScannerState
.Comment
606
Case
ScannerState
.SingleQuotedString
609
Case
ScannerState
.SmartSingleQuotedString
612
Case
ScannerState
.QuotedString
615
Case
ScannerState
.SmartQuotedString
618
Case
ScannerState
.UnQuotedString
621
Case
ScannerState
.InterpolatedStringPunctuation
624
Case
ScannerState
.InterpolatedStringContent
627
Case
ScannerState
.InterpolatedStringFormatString
643
state As
ScannerState
)
651
Friend Function [With](state As
ScannerState
, token As SyntaxToken) As ScannerToken
662
Public ReadOnly State As
ScannerState
Scanner\XmlDocComments.vb (7)
61
Me.GetNextTokenInState(
ScannerState
.Content)
98
Dim nodes = parser.ParseXmlContent(
ScannerState
.Content)
347
Friend Function ScanXmlPIDataInXmlDoc(state As
ScannerState
) As SyntaxToken
353
Debug.Assert(state =
ScannerState
.StartProcessingInstruction OrElse
354
state =
ScannerState
.ProcessingInstruction)
367
If state =
ScannerState
.StartProcessingInstruction AndAlso CanGet() Then
438
Private Function ScanXmlElementInXmlDoc(state As
ScannerState
) As SyntaxToken
Scanner\XmlTokenFactories.vb (6)
347
Private Function XmlLessThanExclamationToken(state As
ScannerState
, precedingTrivia As CoreInternalSyntax.SyntaxList(Of VisualBasicSyntaxNode)) As BadTokenSyntax
349
Return XmlMakeBadToken(SyntaxSubKind.LessThanExclamationToken, precedingTrivia, 2, If(state =
ScannerState
.DocType, ERRID.ERR_DTDNotSupported, ERRID.ERR_Syntax))
352
Private Function XmlMakeOpenBracketToken(state As
ScannerState
, precedingTrivia As CoreInternalSyntax.SyntaxList(Of VisualBasicSyntaxNode)) As BadTokenSyntax
354
Return XmlMakeBadToken(SyntaxSubKind.OpenBracketToken, precedingTrivia, 1, If(state =
ScannerState
.DocType, ERRID.ERR_DTDNotSupported, ERRID.ERR_IllegalXmlNameChar))
357
Private Function XmlMakeCloseBracketToken(state As
ScannerState
, precedingTrivia As CoreInternalSyntax.SyntaxList(Of VisualBasicSyntaxNode)) As BadTokenSyntax
360
Return XmlMakeBadToken(SyntaxSubKind.CloseBracketToken, precedingTrivia, 1, If(state =
ScannerState
.DocType, ERRID.ERR_DTDNotSupported, ERRID.ERR_IllegalXmlNameChar))
Syntax\SyntaxNodeFactories.vb (6)
132
InternalSyntax.
ScannerState
.VBAllowLeadingMultilineTrivia,
133
InternalSyntax.
ScannerState
.VB)
154
Dim state = InternalSyntax.
ScannerState
.VBAllowLeadingMultilineTrivia
165
InternalSyntax.
ScannerState
.VBAllowLeadingMultilineTrivia,
166
InternalSyntax.
ScannerState
.VB)
296
parser.GetNextToken(InternalSyntax.
ScannerState
.Element)
Microsoft.CodeAnalysis.VisualBasic.Syntax.UnitTests (17)
Scanner\ScanConditionalTests.vb (8)
54
s.GetNextTokenInState(InternalSyntax.
ScannerState
.VB) ' get off #
63
s.GetNextTokenInState(InternalSyntax.
ScannerState
.VB)
86
s.GetNextTokenInState(InternalSyntax.
ScannerState
.VB) ' skip #
95
s.GetNextTokenInState(InternalSyntax.
ScannerState
.VB) ' skip #
126
s.GetNextTokenInState(InternalSyntax.
ScannerState
.VB) ' skip #
135
s.GetNextTokenInState(InternalSyntax.
ScannerState
.VB) ' skip #
144
s.GetNextTokenInState(InternalSyntax.
ScannerState
.VB) ' skip #
153
s.GetNextTokenInState(InternalSyntax.
ScannerState
.VB) ' skip #
Scanner\XmlScannerTests.vb (9)
26
s.GetNextTokenInState(InternalSyntax.
ScannerState
.VB)
54
s.GetNextTokenInState(InternalSyntax.
ScannerState
.VB)
75
s.GetNextTokenInState(InternalSyntax.
ScannerState
.VB)
198
s.GetNextTokenInState(InternalSyntax.
ScannerState
.VB)
219
s.GetNextTokenInState(InternalSyntax.
ScannerState
.VB)
291
s.GetNextTokenInState(InternalSyntax.
ScannerState
.Element)
307
s.GetNextTokenInState(InternalSyntax.
ScannerState
.Element)
325
s.GetNextTokenInState(InternalSyntax.
ScannerState
.Content)
332
s.GetNextTokenInState(InternalSyntax.
ScannerState
.Content)