hg/jv-cface: comparison Cface__CDefinitionScanner.st

equal deleted inserted replaced

-:cfd2c393abfe
+:110a9cbf8594
 <whitespace>    :       \s+     ;
 <file>                  :       [\w-_/] [\w-_/.]* ;
 "
-"Modified: / 17-02-2008 / 18:45:28 / janfrog"
+"Modified: / 04-07-2008 / 09:23:46 / Jan Vrany <vranyj1@fel.cvut.cz>"
 ! !
 !CDefinitionScanner class methodsFor:'generated-initialization'!
 initializeKeywordMap
 keywordMap := Dictionary new.
-#( #(27 'argument' 5)
+#( #(30 'argument' 14)
-#(27 'array' 26)
+#(30 'array' 25)
-#(27 'char' 14)
+#(30 'char' 5)
-#(27 'const' 25)
+#(30 'const' 26)
-#(27 'double' 20)
+#(30 'double' 12)
-#(27 'enum' 17)
-#(27 'field' 16)
-#(27 'float' 22)
-#(27 'function' 11)
-#(27 'int' 13)
-#(27 'long' 3)
-#(27 'return' 6)
-#(27 'short' 4)
-#(27 'struct' 21)
-#(27 'typedef' 7)
-#(27 'union' 15)
-#(27 'unsigned' 2)
-#(27 'value' 18)
-#(27 'void' 24)
-#(30 'argument' 5)
-#(30 'array' 26)
-#(30 'char' 14)
-#(30 'const' 25)
-#(30 'double' 20)
 #(30 'enum' 17)
 #(30 'field' 16)
-#(30 'float' 22)
+#(30 'float' 23)
-#(30 'function' 11)
+#(30 'function' 15)
-#(30 'int' 13)
+#(30 'int' 7)
-#(30 'long' 3)
+#(30 'long' 2)
 #(30 'return' 6)
-#(30 'short' 4)
+#(30 'short' 3)
-#(30 'struct' 21)
+#(30 'struct' 28)
-#(30 'typedef' 7)
+#(30 'typedef' 20)
-#(30 'union' 15)
+#(30 'union' 21)
-#(30 'unsigned' 2)
+#(30 'unsigned' 1)
-#(30 'value' 18)
+#(30 'value' 22)
-#(30 'void' 24) )
+#(30 'void' 24)
+#(33 'argument' 14)
+#(33 'array' 25)
+#(33 'char' 5)
+#(33 'const' 26)
+#(33 'double' 12)
+#(33 'enum' 17)
+#(33 'field' 16)
+#(33 'float' 23)
+#(33 'function' 15)
+#(33 'int' 7)
+#(33 'long' 2)
+#(33 'return' 6)
+#(33 'short' 3)
+#(33 'struct' 28)
+#(33 'typedef' 20)
+#(33 'union' 21)
+#(33 'unsigned' 1)
+#(33 'value' 22)
+#(33 'void' 24) )
 do:[:each |
 (keywordMap at:each first ifAbsentPut:[ Dictionary new ]) at:(each at:2)
 put:each last
 ].
 ^ keywordMap
-"Modified: / 17-02-2008 / 18:45:28 / janfrog"
+"Modified: / 04-07-2008 / 09:23:44 / Jan Vrany <vranyj1@fel.cvut.cz>"
 ! !
 !CDefinitionScanner methodsFor:'generated-scanner'!
 scan1
 [
-self recordMatch:#( 27 30 ).
+self recordMatch:#( 30 33 ).
 self step.
 (currentCharacter isLetterOrDigit or:[ currentCharacter == $_ ])
 ] whileTrue.
 (currentCharacter between:$- and:$/) ifTrue:[
 [
-self recordMatch:#( 30 ).
+self recordMatch:#( 33 ).
 self step.
 (currentCharacter isLetterOrDigit
 or:[ (currentCharacter between:$- and:$/) or:[ currentCharacter == $_ ] ])
 ] whileTrue.
 ^ self reportLastMatch
 ].
 ^ self reportLastMatch
-"Modified: / 17-02-2008 / 18:45:28 / janfrog"
+"Modified: / 04-07-2008 / 09:23:45 / Jan Vrany <vranyj1@fel.cvut.cz>"
 !
 scan2
 [
-self recordMatch:#( 28 30 ).
+self recordMatch:#( 31 33 ).
 self step.
 (currentCharacter isLetter) ifTrue:[
 [
-self recordMatch:#( 28 30 ).
+self recordMatch:#( 31 33 ).
 self step.
 (currentCharacter isLetter)
 ] whileTrue.
 (currentCharacter isXMLDigit
 or:[ (currentCharacter between:$- and:$/) or:[ currentCharacter == $_ ] ])
 ifTrue:[
 [
-self recordMatch:#( 30 ).
+self recordMatch:#( 33 ).
 self step.
 (currentCharacter isLetterOrDigit
 or:[ (currentCharacter between:$- and:$/) or:[ currentCharacter == $_ ] ])
 ] whileTrue.
 ^ self reportLastMatch
 ].
 (currentCharacter isXMLDigit)
 ] whileTrue.
 ((currentCharacter between:$- and:$/) or:[ currentCharacter == $_ ]) ifTrue:[
 [
-self recordMatch:#( 30 ).
+self recordMatch:#( 33 ).
 self step.
 (currentCharacter isLetterOrDigit
 or:[ (currentCharacter between:$- and:$/) or:[ currentCharacter == $_ ] ])
 ] whileTrue.
 ^ self reportLastMatch
 ].
 ^ self reportLastMatch
-"Modified: / 17-02-2008 / 18:45:28 / janfrog"
+"Modified: / 04-07-2008 / 09:23:45 / Jan Vrany <vranyj1@fel.cvut.cz>"
 !
 scan3
 [
 self recordMatch:#( 30 32 ).
 self step.
 ((currentCharacter between:$A and:$Z)
 or:[
 currentCharacter == $_
 or:[
-(currentCharacter between:$a and:$e)
+(currentCharacter between:$a and:$d)
 or:[
 (currentCharacter between:$g and:$o)
-or:[ (currentCharacter between:$q and:$z) ]
+or:[
+(currentCharacter between:$q and:$r)
+or:[ (currentCharacter between:$v and:$z) ]
+]
 ]
 ]
 ])
 ifTrue:[ ^ self scan1 ].
 (currentCharacter isXMLDigit) ifTrue:[
 (currentCharacter == $t) ifTrue:[
 self step.
 (currentCharacter == $e) ifTrue:[
 self step.
 (currentCharacter == $d) ifTrue:[
-^ self recordAndReportMatch:#( 8 ).
+^ self recordAndReportMatch:#( 9 ).
 ].
 ^ self reportLastMatch
 ].
 ^ self reportLastMatch
 ].
 ^ self reportLastMatch
 ].
 ^ self reportLastMatch
 ].
 (currentCharacter == $() ifTrue:[
-^ self recordAndReportMatch:#( 10 ).
+^ self recordAndReportMatch:#( 11 ).
 ].
 (currentCharacter == $)) ifTrue:[
-^ self recordAndReportMatch:#( 12 ).
+^ self recordAndReportMatch:#( 13 ).
 ].
 (currentCharacter == $-) ifTrue:[
-self recordMatch:#( 30 ).
+self recordMatch:#( 33 ).
 self step.
-((currentCharacter between:$- and:$/)
+(currentCharacter isLetter
-or:[
+or:[ (currentCharacter between:$- and:$/) or:[ currentCharacter == $_ ] ])
-(currentCharacter between:$A and:$Z)
-or:[
-currentCharacter == $_
-or:[
-(currentCharacter between:$a and:$e)
-or:[ (currentCharacter between:$g and:$z) ]
-]
-]
-])
 ifTrue:[
 [
-self recordMatch:#( 30 ).
+self recordMatch:#( 33 ).
 self step.
 (currentCharacter isLetterOrDigit
 or:[ (currentCharacter between:$- and:$/) or:[ currentCharacter == $_ ] ])
 ] whileTrue.
 ^ self reportLastMatch
 ].
 (currentCharacter isXMLDigit) ifTrue:[
 ^ self scan2
 ].
-(currentCharacter == $f) ifTrue:[
+^ self reportLastMatch
-self recordMatch:#( 30 ).
+].
+(currentCharacter == $/) ifTrue:[
+[
+self recordMatch:#( 33 ).
+self step.
+(currentCharacter isLetterOrDigit
+or:[ (currentCharacter between:$- and:$/) or:[ currentCharacter == $_ ] ])
+] whileTrue.
+^ self reportLastMatch
+].
+(currentCharacter == $e) ifTrue:[
+self recordMatch:#( 30 33 ).
+self step.
+((currentCharacter between:$0 and:$9)
+or:[
+(currentCharacter between:$A and:$Z)
+or:[
+currentCharacter == $_
+or:[
+(currentCharacter between:$a and:$m)
+or:[ (currentCharacter between:$o and:$z) ]
+]
+]
+])
+ifTrue:[ ^ self scan1 ].
+(currentCharacter between:$- and:$/) ifTrue:[
+[
+self recordMatch:#( 33 ).
+self step.
+(currentCharacter isLetterOrDigit
+or:[ (currentCharacter between:$- and:$/) or:[ currentCharacter == $_ ] ])
+] whileTrue.
+^ self reportLastMatch
+].
+(currentCharacter == $n) ifTrue:[
+self recordMatch:#( 30 33 ).
 self step.
 (currentCharacter isXMLDigit
 or:[
-(currentCharacter between:$- and:$/)
+(currentCharacter between:$A and:$Z)
 or:[
-(currentCharacter between:$A and:$Z)
+currentCharacter == $_
 or:[
-currentCharacter == $_
+(currentCharacter between:$a and:$t)
-or:[
+or:[ (currentCharacter between:$v and:$z) ]
-(currentCharacter between:$a and:$n)
-or:[ (currentCharacter between:$p and:$z) ]
-]
 ]
 ]
 ])
-ifTrue:[
+ifTrue:[ ^ self scan1 ].
+(currentCharacter between:$- and:$/) ifTrue:[
+[
+self recordMatch:#( 33 ).
+self step.
+(currentCharacter isLetterOrDigit
+or:[ (currentCharacter between:$- and:$/) or:[ currentCharacter == $_ ] ])
+] whileTrue.
+^ self reportLastMatch
+].
+(currentCharacter == $u) ifTrue:[
+self recordMatch:#( 30 33 ).
+self step.
+((currentCharacter between:$0 and:$9)
+or:[
+(currentCharacter between:$A and:$Z)
+or:[
+currentCharacter == $_
+or:[
+(currentCharacter between:$a and:$l)
+or:[ (currentCharacter between:$n and:$z) ]
+]
+]
+])
+ifTrue:[ ^ self scan1 ].
+(currentCharacter between:$- and:$/) ifTrue:[
+[
+self recordMatch:#( 33 ).
+self step.
+(currentCharacter isLetterOrDigit
+or:[ (currentCharacter between:$- and:$/) or:[ currentCharacter == $_ ] ])
+] whileTrue.
+^ self reportLastMatch
+].
+(currentCharacter == $m) ifTrue:[
+self recordMatch:#( 30 33 ).
+self step.
+(currentCharacter isLetterOrDigit or:[ currentCharacter == $_ ]) ifTrue:[
+^ self scan1
+].
+(currentCharacter between:$. and:$/) ifTrue:[
 [
-self recordMatch:#( 30 ).
+self recordMatch:#( 33 ).
 self step.
 (currentCharacter isLetterOrDigit
 or:[ (currentCharacter between:$- and:$/) or:[ currentCharacter == $_ ] ])
 ] whileTrue.
 ^ self reportLastMatch
 ].
-(currentCharacter == $o) ifTrue:[
+(currentCharacter == $-) ifTrue:[
-self recordMatch:#( 30 ).
+self recordMatch:#( 33 ).
 self step.
 ((currentCharacter between:$- and:$9)
-or:[
-(currentCharacter between:$A and:$Z)
 or:[
-currentCharacter == $_
+(currentCharacter between:$A and:$Z)
 or:[
-(currentCharacter between:$a and:$q)
+currentCharacter == $_
-or:[ (currentCharacter between:$s and:$z) ]
-]
-]
-])
-ifTrue:[
-[
-self recordMatch:#( 30 ).
-self step.
-(currentCharacter isLetterOrDigit
-or:[ (currentCharacter between:$- and:$/) or:[ currentCharacter == $_ ] ])
-] whileTrue.
-^ self reportLastMatch
-].
-(currentCharacter == $r) ifTrue:[
-self recordMatch:#( 30 ).
-self step.
-(currentCharacter isXMLDigit
-or:[
-(currentCharacter between:$- and:$/)
-or:[
-(currentCharacter between:$A and:$Z)
-or:[
-currentCharacter == $_
-or:[
-(currentCharacter between:$a and:$d)
-or:[ (currentCharacter between:$f and:$z) ]
-]
-]
-]
-])
-ifTrue:[
-[
-self recordMatch:#( 30 ).
-self step.
-(currentCharacter isLetterOrDigit
-or:[ (currentCharacter between:$- and:$/) or:[ currentCharacter == $_ ] ])
-] whileTrue.
-^ self reportLastMatch
-].
-(currentCharacter == $e) ifTrue:[
-self recordMatch:#( 30 ).
-self step.
-(currentCharacter isXMLDigit
-or:[
-(currentCharacter between:$- and:$/)
-or:[
-(currentCharacter between:$A and:$Z)
 or:[
-currentCharacter == $_
+(currentCharacter between:$a and:$e)
-or:[
+or:[ (currentCharacter between:$g and:$z) ]
-(currentCharacter between:$a and:$h)
-or:[ (currentCharacter between:$j and:$z) ]
-]
 ]
 ]
 ])
 ifTrue:[
 [
-self recordMatch:#( 30 ).
+self recordMatch:#( 33 ).
 self step.
 (currentCharacter isLetterOrDigit
 or:[ (currentCharacter between:$- and:$/) or:[ currentCharacter == $_ ] ])
 ] whileTrue.
 ^ self reportLastMatch
 ].
-(currentCharacter == $i) ifTrue:[
+(currentCharacter == $f) ifTrue:[
-self recordMatch:#( 30 ).
+self recordMatch:#( 33 ).
 self step.
-((currentCharacter between:$- and:$9)
+(currentCharacter isXMLDigit
 or:[
-(currentCharacter between:$A and:$Z)
+(currentCharacter between:$- and:$/)
 or:[
-currentCharacter == $_
+(currentCharacter between:$A and:$Z)
 or:[
-(currentCharacter between:$a and:$f)
+currentCharacter == $_
-or:[ (currentCharacter between:$h and:$z) ]
+or:[
+(currentCharacter between:$a and:$n)
+or:[ (currentCharacter between:$p and:$z) ]
+]
 ]
 ]
 ])
 ifTrue:[
 [
-self recordMatch:#( 30 ).
+self recordMatch:#( 33 ).
 self step.
 (currentCharacter isLetterOrDigit
 or:[ (currentCharacter between:$- and:$/) or:[ currentCharacter == $_ ] ])
 ] whileTrue.
 ^ self reportLastMatch
 ].
-(currentCharacter == $g) ifTrue:[
+(currentCharacter == $o) ifTrue:[
-self recordMatch:#( 30 ).
+self recordMatch:#( 33 ).
 self step.
 ((currentCharacter between:$- and:$9)
 or:[
 (currentCharacter between:$A and:$Z)
 or:[
 currentCharacter == $_
 or:[
-(currentCharacter between:$a and:$m)
+(currentCharacter between:$a and:$q)
-or:[ (currentCharacter between:$o and:$z) ]
+or:[ (currentCharacter between:$s and:$z) ]
 ]
 ]
 ])
 ifTrue:[
 [
-self recordMatch:#( 30 ).
+self recordMatch:#( 33 ).
 self step.
 (currentCharacter isLetterOrDigit
 or:[ (currentCharacter between:$- and:$/) or:[ currentCharacter == $_ ] ])
 ] whileTrue.
 ^ self reportLastMatch
 ].
-(currentCharacter == $n) ifTrue:[
+(currentCharacter == $r) ifTrue:[
-self recordMatch:#( 19 30 ).
+self recordMatch:#( 33 ).
 self step.
-(currentCharacter isLetterOrDigit
+(currentCharacter isXMLDigit
-or:[ (currentCharacter between:$- and:$/) or:[ currentCharacter == $_ ] ])
+or:[
+(currentCharacter between:$- and:$/)
+or:[
+(currentCharacter between:$A and:$Z)
+or:[
+currentCharacter == $_
+or:[
+(currentCharacter between:$a and:$d)
+or:[ (currentCharacter between:$f and:$z) ]
+]
+]
+]
+])
 ifTrue:[
 [
-self recordMatch:#( 30 ).
+self recordMatch:#( 33 ).
 self step.
 (currentCharacter isLetterOrDigit
 or:[ (currentCharacter between:$- and:$/) or:[ currentCharacter == $_ ] ])
 ] whileTrue.
 ^ self reportLastMatch
 ].
+(currentCharacter == $e) ifTrue:[
+self recordMatch:#( 33 ).
+self step.
+(currentCharacter isXMLDigit
+or:[
+(currentCharacter between:$- and:$/)
+or:[
+(currentCharacter between:$A and:$Z)
+or:[
+currentCharacter == $_
+or:[
+(currentCharacter between:$a and:$h)
+or:[ (currentCharacter between:$j and:$z) ]
+]
+]
+]
+])
+ifTrue:[
+[
+self recordMatch:#( 33 ).
+self step.
+(currentCharacter isLetterOrDigit
+or:[ (currentCharacter between:$- and:$/) or:[ currentCharacter == $_ ] ])
+] whileTrue.
+^ self reportLastMatch
+].
+(currentCharacter == $i) ifTrue:[
+self recordMatch:#( 33 ).
+self step.
+((currentCharacter between:$- and:$9)
+or:[
+(currentCharacter between:$A and:$Z)
+or:[
+currentCharacter == $_
+or:[
+(currentCharacter between:$a and:$f)
+or:[ (currentCharacter between:$h and:$z) ]
+]
+]
+])
+ifTrue:[
+[
+self recordMatch:#( 33 ).
+self step.
+(currentCharacter isLetterOrDigit
+or:[ (currentCharacter between:$- and:$/) or:[ currentCharacter == $_ ] ])
+] whileTrue.
+^ self reportLastMatch
+].
+(currentCharacter == $g) ifTrue:[
+self recordMatch:#( 33 ).
+self step.
+((currentCharacter between:$- and:$9)
+or:[
+(currentCharacter between:$A and:$Z)
+or:[
+currentCharacter == $_
+or:[
+(currentCharacter between:$a and:$m)
+or:[ (currentCharacter between:$o and:$z) ]
+]
+]
+])
+ifTrue:[
+[
+self recordMatch:#( 33 ).
+self step.
+(currentCharacter isLetterOrDigit
+or:[ (currentCharacter between:$- and:$/) or:[ currentCharacter == $_ ] ])
+] whileTrue.
+^ self reportLastMatch
+].
+(currentCharacter == $n) ifTrue:[
+self recordMatch:#( 18 33 ).
+self step.
+(currentCharacter isLetterOrDigit
+or:[ (currentCharacter between:$- and:$/) or:[ currentCharacter == $_ ] ])
+ifTrue:[
+[
+self recordMatch:#( 33 ).
+self step.
+(currentCharacter isLetterOrDigit
+or:[ (currentCharacter between:$- and:$/) or:[ currentCharacter == $_ ] ])
+] whileTrue.
+^ self reportLastMatch
+].
+^ self reportLastMatch
+].
+^ self reportLastMatch
+].
+^ self reportLastMatch
+].
+^ self reportLastMatch
+].
 ^ self reportLastMatch
 ].
 ^ self reportLastMatch
 ].
 ^ self reportLastMatch
 ].
 ^ self reportLastMatch
 ].
 ^ self reportLastMatch
 ].
-(currentCharacter == $/) ifTrue:[
-[
-self recordMatch:#( 30 ).
-self step.
-(currentCharacter isLetterOrDigit
-or:[ (currentCharacter between:$- and:$/) or:[ currentCharacter == $_ ] ])
-] whileTrue.
-^ self reportLastMatch
-].
 (currentCharacter == $f) ifTrue:[
-self recordMatch:#( 27 30 ).
+self recordMatch:#( 30 33 ).
 self step.
 (currentCharacter isXMLDigit
 or:[
 (currentCharacter between:$A and:$Z)
 or:[
 ]
 ])
 ifTrue:[ ^ self scan1 ].
 (currentCharacter between:$- and:$/) ifTrue:[
 [
-self recordMatch:#( 30 ).
+self recordMatch:#( 33 ).
 self step.
 (currentCharacter isLetterOrDigit
 or:[ (currentCharacter between:$- and:$/) or:[ currentCharacter == $_ ] ])
 ] whileTrue.
 ^ self reportLastMatch
 ].
 (currentCharacter == $r) ifTrue:[
-self recordMatch:#( 27 30 ).
+self recordMatch:#( 30 33 ).
 self step.
 (currentCharacter isXMLDigit
 or:[
 (currentCharacter between:$A and:$Z)
 or:[
 ]
 ])
 ifTrue:[ ^ self scan1 ].
 (currentCharacter between:$- and:$/) ifTrue:[
 [
-self recordMatch:#( 30 ).
+self recordMatch:#( 33 ).
 self step.
 (currentCharacter isLetterOrDigit
 or:[ (currentCharacter between:$- and:$/) or:[ currentCharacter == $_ ] ])
 ] whileTrue.
 ^ self reportLastMatch
 ].
 (currentCharacter == $o) ifTrue:[
-self recordMatch:#( 27 30 ).
+self recordMatch:#( 30 33 ).
 self step.
 ((currentCharacter between:$0 and:$9)
 or:[
 (currentCharacter between:$A and:$Z)
 or:[
 ]
 ])
 ifTrue:[ ^ self scan1 ].
 (currentCharacter between:$- and:$/) ifTrue:[
 [
-self recordMatch:#( 30 ).
+self recordMatch:#( 33 ).
 self step.
 (currentCharacter isLetterOrDigit
 or:[ (currentCharacter between:$- and:$/) or:[ currentCharacter == $_ ] ])
 ] whileTrue.
 ^ self reportLastMatch
 ].
 (currentCharacter == $m) ifTrue:[
-self recordMatch:#( 27 30 ).
+self recordMatch:#( 30 33 ).
 self step.
 (currentCharacter isLetterOrDigit or:[ currentCharacter == $_ ]) ifTrue:[
 ^ self scan1
 ].
 (currentCharacter between:$- and:$/) ifTrue:[
 [
-self recordMatch:#( 30 ).
+self recordMatch:#( 33 ).
 self step.
 (currentCharacter isLetterOrDigit
 or:[ (currentCharacter between:$- and:$/) or:[ currentCharacter == $_ ] ])
 ] whileTrue.
 ^ self reportLastMatch
 ].
 (currentCharacter == $:) ifTrue:[
-^ self recordAndReportMatch:#( 9 ).
+^ self recordAndReportMatch:#( 10 ).
 ].
 ^ self reportLastMatch
 ].
 ^ self reportLastMatch
 ].
 ^ self reportLastMatch
 ].
 (currentCharacter == $u) ifTrue:[
-self recordMatch:#( 27 30 ).
+self recordMatch:#( 30 33 ).
 self step.
 ((currentCharacter between:$0 and:$9)
 or:[
 (currentCharacter between:$A and:$Z)
 or:[
 ]
 ])
 ifTrue:[ ^ self scan1 ].
 (currentCharacter between:$- and:$/) ifTrue:[
 [
-self recordMatch:#( 30 ).
+self recordMatch:#( 33 ).
 self step.
 (currentCharacter isLetterOrDigit
 or:[ (currentCharacter between:$- and:$/) or:[ currentCharacter == $_ ] ])
 ] whileTrue.
 ^ self reportLastMatch
 ].
 (currentCharacter == $n) ifTrue:[
-self recordMatch:#( 27 30 ).
+self recordMatch:#( 30 33 ).
 self step.
 ((currentCharacter between:$0 and:$9)
 or:[
 (currentCharacter between:$A and:$Z)
 or:[
 ]
 ])
 ifTrue:[ ^ self scan1 ].
 (currentCharacter between:$- and:$/) ifTrue:[
 [
-self recordMatch:#( 30 ).
+self recordMatch:#( 33 ).
 self step.
 (currentCharacter isLetterOrDigit
 or:[ (currentCharacter between:$- and:$/) or:[ currentCharacter == $_ ] ])
 ] whileTrue.
 ^ self reportLastMatch
 ].
 (currentCharacter == $c) ifTrue:[
-self recordMatch:#( 27 30 ).
+self recordMatch:#( 30 33 ).
 self step.
 ((currentCharacter between:$0 and:$9)
 or:[
 (currentCharacter between:$A and:$Z)
 or:[
 ]
 ])
 ifTrue:[ ^ self scan1 ].
 (currentCharacter between:$- and:$/) ifTrue:[
 [
-self recordMatch:#( 30 ).
+self recordMatch:#( 33 ).
 self step.
 (currentCharacter isLetterOrDigit
 or:[ (currentCharacter between:$- and:$/) or:[ currentCharacter == $_ ] ])
 ] whileTrue.
 ^ self reportLastMatch
 ].
 (currentCharacter == $t) ifTrue:[
-self recordMatch:#( 27 30 ).
+self recordMatch:#( 30 33 ).
 self step.
 (currentCharacter isXMLDigit
 or:[
 (currentCharacter between:$A and:$Z)
 or:[
 ]
 ])
 ifTrue:[ ^ self scan1 ].
 (currentCharacter between:$- and:$/) ifTrue:[
 [
-self recordMatch:#( 30 ).
+self recordMatch:#( 33 ).
 self step.
 (currentCharacter isLetterOrDigit
 or:[ (currentCharacter between:$- and:$/) or:[ currentCharacter == $_ ] ])
 ] whileTrue.
 ^ self reportLastMatch
 ].
 (currentCharacter == $i) ifTrue:[
-self recordMatch:#( 27 30 ).
+self recordMatch:#( 30 33 ).
 self step.
 (currentCharacter isXMLDigit
 or:[
 (currentCharacter between:$A and:$Z)
 or:[
 ]
 ])
 ifTrue:[ ^ self scan1 ].
 (currentCharacter between:$- and:$/) ifTrue:[
 [
-self recordMatch:#( 30 ).
+self recordMatch:#( 33 ).
 self step.
 (currentCharacter isLetterOrDigit
 or:[ (currentCharacter between:$- and:$/) or:[ currentCharacter == $_ ] ])
 ] whileTrue.
 ^ self reportLastMatch
 ].
 (currentCharacter == $o) ifTrue:[
-self recordMatch:#( 27 30 ).
+self recordMatch:#( 30 33 ).
 self step.
 ((currentCharacter between:$0 and:$9)
 or:[
 (currentCharacter between:$A and:$Z)
 or:[
 ]
 ])
 ifTrue:[ ^ self scan1 ].
 (currentCharacter between:$- and:$/) ifTrue:[
 [
-self recordMatch:#( 30 ).
+self recordMatch:#( 33 ).
 self step.
 (currentCharacter isLetterOrDigit
 or:[ (currentCharacter between:$- and:$/) or:[ currentCharacter == $_ ] ])
 ] whileTrue.
 ^ self reportLastMatch
 ].
 (currentCharacter == $n) ifTrue:[
-self recordMatch:#( 27 30 ).
+self recordMatch:#( 30 33 ).
 self step.
 (currentCharacter isLetterOrDigit or:[ currentCharacter == $_ ]) ifTrue:[
 ^ self scan1
 ].
 (currentCharacter between:$. and:$/) ifTrue:[
 [
-self recordMatch:#( 30 ).
+self recordMatch:#( 33 ).
 self step.
 (currentCharacter isLetterOrDigit
 or:[ (currentCharacter between:$- and:$/) or:[ currentCharacter == $_ ] ])
 ] whileTrue.
 ^ self reportLastMatch
 ].
 (currentCharacter == $-) ifTrue:[
-self recordMatch:#( 30 ).
+self recordMatch:#( 33 ).
 self step.
 ((currentCharacter between:$- and:$9)
 or:[
 (currentCharacter between:$A and:$Z)
 or:[
 ]
 ]
 ])
 ifTrue:[
 [
-self recordMatch:#( 30 ).
+self recordMatch:#( 33 ).
 self step.
 (currentCharacter isLetterOrDigit
 or:[ (currentCharacter between:$- and:$/) or:[ currentCharacter == $_ ] ])
 ] whileTrue.
 ^ self reportLastMatch
 ].
 (currentCharacter == $t) ifTrue:[
-self recordMatch:#( 30 ).
+self recordMatch:#( 33 ).
 self step.
 ((currentCharacter between:$- and:$9)
 or:[
 (currentCharacter between:$A and:$Z)
 or:[
 or:[ (currentCharacter between:$a and:$x) or:[ currentCharacter == $z ] ]
 ]
 ])
 ifTrue:[
 [
-self recordMatch:#( 30 ).
+self recordMatch:#( 33 ).
 self step.
 (currentCharacter isLetterOrDigit
 or:[ (currentCharacter between:$- and:$/) or:[ currentCharacter == $_ ] ])
 ] whileTrue.
 ^ self reportLastMatch
 ].
 (currentCharacter == $y) ifTrue:[
-self recordMatch:#( 30 ).
+self recordMatch:#( 33 ).
 self step.
 ((currentCharacter between:$- and:$9)
 or:[
 (currentCharacter between:$A and:$Z)
 or:[
 ]
 ]
 ])
 ifTrue:[
 [
-self recordMatch:#( 30 ).
+self recordMatch:#( 33 ).
 self step.
 (currentCharacter isLetterOrDigit
 or:[ (currentCharacter between:$- and:$/) or:[ currentCharacter == $_ ] ])
 ] whileTrue.
 ^ self reportLastMatch
 ].
 (currentCharacter == $p) ifTrue:[
-self recordMatch:#( 30 ).
+self recordMatch:#( 33 ).
 self step.
 (currentCharacter isXMLDigit
 or:[
 (currentCharacter between:$- and:$/)
 or:[
 ]
 ]
 ])
 ifTrue:[
 [
-self recordMatch:#( 30 ).
+self recordMatch:#( 33 ).
 self step.
 (currentCharacter isLetterOrDigit
 or:[ (currentCharacter between:$- and:$/) or:[ currentCharacter == $_ ] ])
 ] whileTrue.
 ^ self reportLastMatch
 ].
 (currentCharacter == $e) ifTrue:[
-self recordMatch:#( 1 30 ).
+self recordMatch:#( 4 33 ).
 self step.
 (currentCharacter isLetterOrDigit
 or:[ (currentCharacter between:$- and:$/) or:[ currentCharacter == $_ ] ])
 ifTrue:[
 [
-self recordMatch:#( 30 ).
+self recordMatch:#( 33 ).
 self step.
 (currentCharacter isLetterOrDigit
 or:[ (currentCharacter between:$- and:$/) or:[ currentCharacter == $_ ] ])
 ] whileTrue.
 ^ self reportLastMatch
 ^ self reportLastMatch
 ].
 ^ self reportLastMatch
 ].
 (currentCharacter == $p) ifTrue:[
-self recordMatch:#( 27 30 ).
+self recordMatch:#( 30 33 ).
 self step.
 (currentCharacter isXMLDigit
 or:[
 (currentCharacter between:$A and:$Z)
 or:[
 ]
 ])
 ifTrue:[ ^ self scan1 ].
 (currentCharacter between:$- and:$/) ifTrue:[
 [
-self recordMatch:#( 30 ).
+self recordMatch:#( 33 ).
 self step.
 (currentCharacter isLetterOrDigit
 or:[ (currentCharacter between:$- and:$/) or:[ currentCharacter == $_ ] ])
 ] whileTrue.
 ^ self reportLastMatch
 ].
 (currentCharacter == $o) ifTrue:[
-self recordMatch:#( 27 30 ).
+self recordMatch:#( 30 33 ).
 self step.
 (currentCharacter isXMLDigit
 or:[
 (currentCharacter between:$A and:$Z)
 or:[
 ]
 ])
 ifTrue:[ ^ self scan1 ].
 (currentCharacter between:$- and:$/) ifTrue:[
 [
-self recordMatch:#( 30 ).
+self recordMatch:#( 33 ).
 self step.
 (currentCharacter isLetterOrDigit
 or:[ (currentCharacter between:$- and:$/) or:[ currentCharacter == $_ ] ])
 ] whileTrue.
 ^ self reportLastMatch
 ].
 (currentCharacter == $i) ifTrue:[
-self recordMatch:#( 27 30 ).
+self recordMatch:#( 30 33 ).
 self step.
 ((currentCharacter between:$0 and:$9)
 or:[
 (currentCharacter between:$A and:$Z)
 or:[
 ]
 ])
 ifTrue:[ ^ self scan1 ].
 (currentCharacter between:$- and:$/) ifTrue:[
 [
-self recordMatch:#( 30 ).
+self recordMatch:#( 33 ).
 self step.
 (currentCharacter isLetterOrDigit
 or:[ (currentCharacter between:$- and:$/) or:[ currentCharacter == $_ ] ])
 ] whileTrue.
 ^ self reportLastMatch
 ].
 (currentCharacter == $n) ifTrue:[
-self recordMatch:#( 27 30 ).
+self recordMatch:#( 30 33 ).
 self step.
 ((currentCharacter between:$0 and:$9)
 or:[
 (currentCharacter between:$A and:$Z)
 or:[
 ]
 ])
 ifTrue:[ ^ self scan1 ].
 (currentCharacter between:$- and:$/) ifTrue:[
 [
-self recordMatch:#( 30 ).
+self recordMatch:#( 33 ).
 self step.
 (currentCharacter isLetterOrDigit
 or:[ (currentCharacter between:$- and:$/) or:[ currentCharacter == $_ ] ])
 ] whileTrue.
 ^ self reportLastMatch
 ].
 (currentCharacter == $t) ifTrue:[
-self recordMatch:#( 27 30 ).
+self recordMatch:#( 30 33 ).
 self step.
 (currentCharacter isXMLDigit
 or:[
 (currentCharacter between:$A and:$Z)
 or:[
 ]
 ])
 ifTrue:[ ^ self scan1 ].
 (currentCharacter between:$- and:$/) ifTrue:[
 [
-self recordMatch:#( 30 ).
+self recordMatch:#( 33 ).
 self step.
 (currentCharacter isLetterOrDigit
 or:[ (currentCharacter between:$- and:$/) or:[ currentCharacter == $_ ] ])
 ] whileTrue.
 ^ self reportLastMatch
 ].
 (currentCharacter == $e) ifTrue:[
-self recordMatch:#( 27 30 ).
+self recordMatch:#( 30 33 ).
 self step.
 ((currentCharacter between:$0 and:$9)
 or:[
 (currentCharacter between:$A and:$Z)
 or:[
 ]
 ])
 ifTrue:[ ^ self scan1 ].
 (currentCharacter between:$- and:$/) ifTrue:[
 [
-self recordMatch:#( 30 ).
+self recordMatch:#( 33 ).
 self step.
 (currentCharacter isLetterOrDigit
 or:[ (currentCharacter between:$- and:$/) or:[ currentCharacter == $_ ] ])
 ] whileTrue.
 ^ self reportLastMatch
 ].
 (currentCharacter == $r) ifTrue:[
-self recordMatch:#( 27 30 ).
+self recordMatch:#( 30 33 ).
 self step.
 (currentCharacter isLetterOrDigit or:[ currentCharacter == $_ ]) ifTrue:[
 ^ self scan1
 ].
 (currentCharacter between:$. and:$/) ifTrue:[
 [
-self recordMatch:#( 30 ).
+self recordMatch:#( 33 ).
 self step.
 (currentCharacter isLetterOrDigit
 or:[ (currentCharacter between:$- and:$/) or:[ currentCharacter == $_ ] ])
 ] whileTrue.
 ^ self reportLastMatch
 ].
 (currentCharacter == $-) ifTrue:[
-self recordMatch:#( 30 ).
+self recordMatch:#( 33 ).
 self step.
 ((currentCharacter between:$- and:$9)
 or:[
 (currentCharacter between:$A and:$Z)
 or:[
 ]
 ]
 ])
 ifTrue:[
 [
-self recordMatch:#( 30 ).
+self recordMatch:#( 33 ).
 self step.
 (currentCharacter isLetterOrDigit
 or:[ (currentCharacter between:$- and:$/) or:[ currentCharacter == $_ ] ])
 ] whileTrue.
 ^ self reportLastMatch
 ].
 (currentCharacter == $t) ifTrue:[
-self recordMatch:#( 30 ).
+self recordMatch:#( 33 ).
 self step.
 (currentCharacter isXMLDigit
 or:[
 (currentCharacter between:$- and:$/)
 or:[
 ]
 ]
 ])
 ifTrue:[
 [
-self recordMatch:#( 30 ).
+self recordMatch:#( 33 ).
 self step.
 (currentCharacter isLetterOrDigit
 or:[ (currentCharacter between:$- and:$/) or:[ currentCharacter == $_ ] ])
 ] whileTrue.
 ^ self reportLastMatch
 ].
 (currentCharacter == $o) ifTrue:[
-self recordMatch:#( 23 30 ).
+self recordMatch:#( 29 33 ).
 self step.
 (currentCharacter isLetterOrDigit
 or:[ (currentCharacter between:$- and:$/) or:[ currentCharacter == $_ ] ])
 ifTrue:[
 [
-self recordMatch:#( 30 ).
+self recordMatch:#( 33 ).
 self step.
 (currentCharacter isLetterOrDigit
 or:[ (currentCharacter between:$- and:$/) or:[ currentCharacter == $_ ] ])
 ] whileTrue.
 ^ self reportLastMatch
 ].
 ^ self reportLastMatch
 ].
 ^ self reportLastMatch
 ].
+(currentCharacter == $s) ifTrue:[
+self recordMatch:#( 30 33 ).
+self step.
+((currentCharacter between:$0 and:$9)
+or:[
+(currentCharacter between:$A and:$Z)
+or:[
+currentCharacter == $_
+or:[
+(currentCharacter between:$a and:$s)
+or:[ (currentCharacter between:$u and:$z) ]
+]
+]
+])
+ifTrue:[ ^ self scan1 ].
+(currentCharacter between:$- and:$/) ifTrue:[
+[
+self recordMatch:#( 33 ).
+self step.
+(currentCharacter isLetterOrDigit
+or:[ (currentCharacter between:$- and:$/) or:[ currentCharacter == $_ ] ])
+] whileTrue.
+^ self reportLastMatch
+].
+(currentCharacter == $t) ifTrue:[
+self recordMatch:#( 30 33 ).
+self step.
+((currentCharacter between:$0 and:$9)
+or:[
+(currentCharacter between:$A and:$Z)
+or:[
+currentCharacter == $_
+or:[
+(currentCharacter between:$a and:$q)
+or:[ (currentCharacter between:$s and:$z) ]
+]
+]
+])
+ifTrue:[ ^ self scan1 ].
+(currentCharacter between:$- and:$/) ifTrue:[
+[
+self recordMatch:#( 33 ).
+self step.
+(currentCharacter isLetterOrDigit
+or:[ (currentCharacter between:$- and:$/) or:[ currentCharacter == $_ ] ])
+] whileTrue.
+^ self reportLastMatch
+].
+(currentCharacter == $r) ifTrue:[
+self recordMatch:#( 30 33 ).
+self step.
+(currentCharacter isXMLDigit
+or:[
+(currentCharacter between:$A and:$Z)
+or:[
+currentCharacter == $_
+or:[
+(currentCharacter between:$a and:$t)
+or:[ (currentCharacter between:$v and:$z) ]
+]
+]
+])
+ifTrue:[ ^ self scan1 ].
+(currentCharacter between:$- and:$/) ifTrue:[
+[
+self recordMatch:#( 33 ).
+self step.
+(currentCharacter isLetterOrDigit
+or:[ (currentCharacter between:$- and:$/) or:[ currentCharacter == $_ ] ])
+] whileTrue.
+^ self reportLastMatch
+].
+(currentCharacter == $u) ifTrue:[
+self recordMatch:#( 30 33 ).
+self step.
+((currentCharacter between:$0 and:$9)
+or:[
+(currentCharacter between:$A and:$Z)
+or:[
+currentCharacter == $_
+or:[
+(currentCharacter between:$a and:$b)
+or:[ (currentCharacter between:$d and:$z) ]
+]
+]
+])
+ifTrue:[ ^ self scan1 ].
+(currentCharacter between:$- and:$/) ifTrue:[
+[
+self recordMatch:#( 33 ).
+self step.
+(currentCharacter isLetterOrDigit
+or:[ (currentCharacter between:$- and:$/) or:[ currentCharacter == $_ ] ])
+] whileTrue.
+^ self reportLastMatch
+].
+(currentCharacter == $c) ifTrue:[
+self recordMatch:#( 30 33 ).
+self step.
+((currentCharacter between:$0 and:$9)
+or:[
+(currentCharacter between:$A and:$Z)
+or:[
+currentCharacter == $_
+or:[
+(currentCharacter between:$a and:$s)
+or:[ (currentCharacter between:$u and:$z) ]
+]
+]
+])
+ifTrue:[ ^ self scan1 ].
+(currentCharacter between:$- and:$/) ifTrue:[
+[
+self recordMatch:#( 33 ).
+self step.
+(currentCharacter isLetterOrDigit
+or:[ (currentCharacter between:$- and:$/) or:[ currentCharacter == $_ ] ])
+] whileTrue.
+^ self reportLastMatch
+].
+(currentCharacter == $t) ifTrue:[
+self recordMatch:#( 30 33 ).
+self step.
+(currentCharacter isLetterOrDigit or:[ currentCharacter == $_ ]) ifTrue:[
+^ self scan1
+].
+(currentCharacter between:$. and:$/) ifTrue:[
+[
+self recordMatch:#( 33 ).
+self step.
+(currentCharacter isLetterOrDigit
+or:[ (currentCharacter between:$- and:$/) or:[ currentCharacter == $_ ] ])
+] whileTrue.
+^ self reportLastMatch
+].
+(currentCharacter == $-) ifTrue:[
+self recordMatch:#( 33 ).
+self step.
+((currentCharacter between:$- and:$9)
+or:[
+(currentCharacter between:$A and:$Z)
+or:[
+currentCharacter == $_
+or:[
+(currentCharacter between:$a and:$e)
+or:[ (currentCharacter between:$g and:$z) ]
+]
+]
+])
+ifTrue:[
+[
+self recordMatch:#( 33 ).
+self step.
+(currentCharacter isLetterOrDigit
+or:[ (currentCharacter between:$- and:$/) or:[ currentCharacter == $_ ] ])
+] whileTrue.
+^ self reportLastMatch
+].
+(currentCharacter == $f) ifTrue:[
+self recordMatch:#( 33 ).
+self step.
+(currentCharacter isXMLDigit
+or:[
+(currentCharacter between:$- and:$/)
+or:[
+(currentCharacter between:$A and:$Z)
+or:[
+currentCharacter == $_
+or:[
+(currentCharacter between:$a and:$n)
+or:[ (currentCharacter between:$p and:$z) ]
+]
+]
+]
+])
+ifTrue:[
+[
+self recordMatch:#( 33 ).
+self step.
+(currentCharacter isLetterOrDigit
+or:[ (currentCharacter between:$- and:$/) or:[ currentCharacter == $_ ] ])
+] whileTrue.
+^ self reportLastMatch
+].
+(currentCharacter == $o) ifTrue:[
+self recordMatch:#( 33 ).
+self step.
+((currentCharacter between:$- and:$9)
+or:[
+(currentCharacter between:$A and:$Z)
+or:[
+currentCharacter == $_
+or:[
+(currentCharacter between:$a and:$q)
+or:[ (currentCharacter between:$s and:$z) ]
+]
+]
+])
+ifTrue:[
+[
+self recordMatch:#( 33 ).
+self step.
+(currentCharacter isLetterOrDigit
+or:[ (currentCharacter between:$- and:$/) or:[ currentCharacter == $_ ] ])
+] whileTrue.
+^ self reportLastMatch
+].
+(currentCharacter == $r) ifTrue:[
+self recordMatch:#( 33 ).
+self step.
+(currentCharacter isXMLDigit
+or:[
+(currentCharacter between:$- and:$/)
+or:[
+(currentCharacter between:$A and:$Z)
+or:[
+currentCharacter == $_
+or:[
+(currentCharacter between:$a and:$d)
+or:[ (currentCharacter between:$f and:$z) ]
+]
+]
+]
+])
+ifTrue:[
+[
+self recordMatch:#( 33 ).
+self step.
+(currentCharacter isLetterOrDigit
+or:[ (currentCharacter between:$- and:$/) or:[ currentCharacter == $_ ] ])
+] whileTrue.
+^ self reportLastMatch
+].
+(currentCharacter == $e) ifTrue:[
+self recordMatch:#( 33 ).
+self step.
+(currentCharacter isXMLDigit
+or:[
+(currentCharacter between:$- and:$/)
+or:[
+(currentCharacter between:$A and:$Z)
+or:[
+currentCharacter == $_
+or:[
+(currentCharacter between:$a and:$h)
+or:[ (currentCharacter between:$j and:$z) ]
+]
+]
+]
+])
+ifTrue:[
+[
+self recordMatch:#( 33 ).
+self step.
+(currentCharacter isLetterOrDigit
+or:[ (currentCharacter between:$- and:$/) or:[ currentCharacter == $_ ] ])
+] whileTrue.
+^ self reportLastMatch
+].
+(currentCharacter == $i) ifTrue:[
+self recordMatch:#( 33 ).
+self step.
+((currentCharacter between:$- and:$9)
+or:[
+(currentCharacter between:$A and:$Z)
+or:[
+currentCharacter == $_
+or:[
+(currentCharacter between:$a and:$f)
+or:[ (currentCharacter between:$h and:$z) ]
+]
+]
+])
+ifTrue:[
+[
+self recordMatch:#( 33 ).
+self step.
+(currentCharacter isLetterOrDigit
+or:[ (currentCharacter between:$- and:$/) or:[ currentCharacter == $_ ] ])
+] whileTrue.
+^ self reportLastMatch
+].
+(currentCharacter == $g) ifTrue:[
+self recordMatch:#( 33 ).
+self step.
+((currentCharacter between:$- and:$9)
+or:[
+(currentCharacter between:$A and:$Z)
+or:[
+currentCharacter == $_
+or:[
+(currentCharacter between:$a and:$m)
+or:[ (currentCharacter between:$o and:$z) ]
+]
+]
+])
+ifTrue:[
+[
+self recordMatch:#( 33 ).
+self step.
+(currentCharacter isLetterOrDigit
+or:[ (currentCharacter between:$- and:$/) or:[ currentCharacter == $_ ] ])
+] whileTrue.
+^ self reportLastMatch
+].
+(currentCharacter == $n) ifTrue:[
+self recordMatch:#( 27 33 ).
+self step.
+(currentCharacter isLetterOrDigit
+or:[ (currentCharacter between:$- and:$/) or:[ currentCharacter == $_ ] ])
+ifTrue:[
+[
+self recordMatch:#( 33 ).
+self step.
+(currentCharacter isLetterOrDigit
+or:[ (currentCharacter between:$- and:$/) or:[ currentCharacter == $_ ] ])
+] whileTrue.
+^ self reportLastMatch
+].
+^ self reportLastMatch
+].
+^ self reportLastMatch
+].
+^ self reportLastMatch
+].
+^ self reportLastMatch
+].
+^ self reportLastMatch
+].
+^ self reportLastMatch
+].
+^ self reportLastMatch
+].
+^ self reportLastMatch
+].
+^ self reportLastMatch
+].
+^ self reportLastMatch
+].
+^ self reportLastMatch
+].
+^ self reportLastMatch
+].
+^ self reportLastMatch
+].
+^ self reportLastMatch
+].
+(currentCharacter == $t) ifTrue:[
+self recordMatch:#( 30 33 ).
+self step.
+((currentCharacter between:$0 and:$9)
+or:[
+(currentCharacter between:$A and:$Z)
+or:[
+currentCharacter == $_
+or:[ (currentCharacter between:$a and:$x) or:[ currentCharacter == $z ] ]
+]
+])
+ifTrue:[ ^ self scan1 ].
+(currentCharacter between:$- and:$/) ifTrue:[
+[
+self recordMatch:#( 33 ).
+self step.
+(currentCharacter isLetterOrDigit
+or:[ (currentCharacter between:$- and:$/) or:[ currentCharacter == $_ ] ])
+] whileTrue.
+^ self reportLastMatch
+].
+(currentCharacter == $y) ifTrue:[
+self recordMatch:#( 30 33 ).
+self step.
+((currentCharacter between:$0 and:$9)
+or:[
+(currentCharacter between:$A and:$Z)
+or:[
+currentCharacter == $_
+or:[
+(currentCharacter between:$a and:$o)
+or:[ (currentCharacter between:$q and:$z) ]
+]
+]
+])
+ifTrue:[ ^ self scan1 ].
+(currentCharacter between:$- and:$/) ifTrue:[
+[
+self recordMatch:#( 33 ).
+self step.
+(currentCharacter isLetterOrDigit
+or:[ (currentCharacter between:$- and:$/) or:[ currentCharacter == $_ ] ])
+] whileTrue.
+^ self reportLastMatch
+].
+(currentCharacter == $p) ifTrue:[
+self recordMatch:#( 30 33 ).
+self step.
+(currentCharacter isXMLDigit
+or:[
+(currentCharacter between:$A and:$Z)
+or:[
+currentCharacter == $_
+or:[
+(currentCharacter between:$a and:$d)
+or:[ (currentCharacter between:$f and:$z) ]
+]
+]
+])
+ifTrue:[ ^ self scan1 ].
+(currentCharacter between:$- and:$/) ifTrue:[
+[
+self recordMatch:#( 33 ).
+self step.
+(currentCharacter isLetterOrDigit
+or:[ (currentCharacter between:$- and:$/) or:[ currentCharacter == $_ ] ])
+] whileTrue.
+^ self reportLastMatch
+].
+(currentCharacter == $e) ifTrue:[
+self recordMatch:#( 30 33 ).
+self step.
+((currentCharacter between:$0 and:$9)
+or:[
+(currentCharacter between:$A and:$Z)
+or:[
+currentCharacter == $_
+or:[
+(currentCharacter between:$a and:$c)
+or:[ (currentCharacter between:$e and:$z) ]
+]
+]
+])
+ifTrue:[ ^ self scan1 ].
+(currentCharacter between:$- and:$/) ifTrue:[
+[
+self recordMatch:#( 33 ).
+self step.
+(currentCharacter isLetterOrDigit
+or:[ (currentCharacter between:$- and:$/) or:[ currentCharacter == $_ ] ])
+] whileTrue.
+^ self reportLastMatch
+].
+(currentCharacter == $d) ifTrue:[
+self recordMatch:#( 30 33 ).
+self step.
+(currentCharacter isXMLDigit
+or:[
+(currentCharacter between:$A and:$Z)
+or:[
+currentCharacter == $_
+or:[
+(currentCharacter between:$a and:$d)
+or:[ (currentCharacter between:$f and:$z) ]
+]
+]
+])
+ifTrue:[ ^ self scan1 ].
+(currentCharacter between:$- and:$/) ifTrue:[
+[
+self recordMatch:#( 33 ).
+self step.
+(currentCharacter isLetterOrDigit
+or:[ (currentCharacter between:$- and:$/) or:[ currentCharacter == $_ ] ])
+] whileTrue.
+^ self reportLastMatch
+].
+(currentCharacter == $e) ifTrue:[
+self recordMatch:#( 30 33 ).
+self step.
+((currentCharacter between:$0 and:$9)
+or:[
+(currentCharacter between:$A and:$Z)
+or:[
+currentCharacter == $_
+or:[
+(currentCharacter between:$a and:$e)
+or:[ (currentCharacter between:$g and:$z) ]
+]
+]
+])
+ifTrue:[ ^ self scan1 ].
+(currentCharacter between:$- and:$/) ifTrue:[
+[
+self recordMatch:#( 33 ).
+self step.
+(currentCharacter isLetterOrDigit
+or:[ (currentCharacter between:$- and:$/) or:[ currentCharacter == $_ ] ])
+] whileTrue.
+^ self reportLastMatch
+].
+(currentCharacter == $f) ifTrue:[
+self recordMatch:#( 30 33 ).
+self step.
+(currentCharacter isLetterOrDigit or:[ currentCharacter == $_ ]) ifTrue:[
+^ self scan1
+].
+(currentCharacter between:$. and:$/) ifTrue:[
+[
+self recordMatch:#( 33 ).
+self step.
+(currentCharacter isLetterOrDigit
+or:[ (currentCharacter between:$- and:$/) or:[ currentCharacter == $_ ] ])
+] whileTrue.
+^ self reportLastMatch
+].
+(currentCharacter == $-) ifTrue:[
+self recordMatch:#( 33 ).
+self step.
+((currentCharacter between:$- and:$9)
+or:[
+(currentCharacter between:$A and:$Z)
+or:[
+currentCharacter == $_
+or:[
+(currentCharacter between:$a and:$e)
+or:[ (currentCharacter between:$g and:$z) ]
+]
+]
+])
+ifTrue:[
+[
+self recordMatch:#( 33 ).
+self step.
+(currentCharacter isLetterOrDigit
+or:[ (currentCharacter between:$- and:$/) or:[ currentCharacter == $_ ] ])
+] whileTrue.
+^ self reportLastMatch
+].
+(currentCharacter == $f) ifTrue:[
+self recordMatch:#( 33 ).
+self step.
+(currentCharacter isXMLDigit
+or:[
+(currentCharacter between:$- and:$/)
+or:[
+(currentCharacter between:$A and:$Z)
+or:[
+currentCharacter == $_
+or:[
+(currentCharacter between:$a and:$n)
+or:[ (currentCharacter between:$p and:$z) ]
+]
+]
+]
+])
+ifTrue:[
+[
+self recordMatch:#( 33 ).
+self step.
+(currentCharacter isLetterOrDigit
+or:[ (currentCharacter between:$- and:$/) or:[ currentCharacter == $_ ] ])
+] whileTrue.
+^ self reportLastMatch
+].
+(currentCharacter == $o) ifTrue:[
+self recordMatch:#( 33 ).
+self step.
+((currentCharacter between:$- and:$9)
+or:[
+(currentCharacter between:$A and:$Z)
+or:[
+currentCharacter == $_
+or:[
+(currentCharacter between:$a and:$q)
+or:[ (currentCharacter between:$s and:$z) ]
+]
+]
+])
+ifTrue:[
+[
+self recordMatch:#( 33 ).
+self step.
+(currentCharacter isLetterOrDigit
+or:[ (currentCharacter between:$- and:$/) or:[ currentCharacter == $_ ] ])
+] whileTrue.
+^ self reportLastMatch
+].
+(currentCharacter == $r) ifTrue:[
+self recordMatch:#( 33 ).
+self step.
+(currentCharacter isXMLDigit
+or:[
+(currentCharacter between:$- and:$/)
+or:[
+(currentCharacter between:$A and:$Z)
+or:[
+currentCharacter == $_
+or:[
+(currentCharacter between:$a and:$d)
+or:[ (currentCharacter between:$f and:$z) ]
+]
+]
+]
+])
+ifTrue:[
+[
+self recordMatch:#( 33 ).
+self step.
+(currentCharacter isLetterOrDigit
+or:[ (currentCharacter between:$- and:$/) or:[ currentCharacter == $_ ] ])
+] whileTrue.
+^ self reportLastMatch
+].
+(currentCharacter == $e) ifTrue:[
+self recordMatch:#( 33 ).
+self step.
+(currentCharacter isXMLDigit
+or:[
+(currentCharacter between:$- and:$/)
+or:[
+(currentCharacter between:$A and:$Z)
+or:[
+currentCharacter == $_
+or:[
+(currentCharacter between:$a and:$h)
+or:[ (currentCharacter between:$j and:$z) ]
+]
+]
+]
+])
+ifTrue:[
+[
+self recordMatch:#( 33 ).
+self step.
+(currentCharacter isLetterOrDigit
+or:[ (currentCharacter between:$- and:$/) or:[ currentCharacter == $_ ] ])
+] whileTrue.
+^ self reportLastMatch
+].
+(currentCharacter == $i) ifTrue:[
+self recordMatch:#( 33 ).
+self step.
+((currentCharacter between:$- and:$9)
+or:[
+(currentCharacter between:$A and:$Z)
+or:[
+currentCharacter == $_
+or:[
+(currentCharacter between:$a and:$f)
+or:[ (currentCharacter between:$h and:$z) ]
+]
+]
+])
+ifTrue:[
+[
+self recordMatch:#( 33 ).
+self step.
+(currentCharacter isLetterOrDigit
+or:[ (currentCharacter between:$- and:$/) or:[ currentCharacter == $_ ] ])
+] whileTrue.
+^ self reportLastMatch
+].
+(currentCharacter == $g) ifTrue:[
+self recordMatch:#( 33 ).
+self step.
+((currentCharacter between:$- and:$9)
+or:[
+(currentCharacter between:$A and:$Z)
+or:[
+currentCharacter == $_
+or:[
+(currentCharacter between:$a and:$m)
+or:[ (currentCharacter between:$o and:$z) ]
+]
+]
+])
+ifTrue:[
+[
+self recordMatch:#( 33 ).
+self step.
+(currentCharacter isLetterOrDigit
+or:[ (currentCharacter between:$- and:$/) or:[ currentCharacter == $_ ] ])
+] whileTrue.
+^ self reportLastMatch
+].
+(currentCharacter == $n) ifTrue:[
+self recordMatch:#( 8 33 ).
+self step.
+(currentCharacter isLetterOrDigit
+or:[ (currentCharacter between:$- and:$/) or:[ currentCharacter == $_ ] ])
+ifTrue:[
+[
+self recordMatch:#( 33 ).
+self step.
+(currentCharacter isLetterOrDigit
+or:[ (currentCharacter between:$- and:$/) or:[ currentCharacter == $_ ] ])
+] whileTrue.
+^ self reportLastMatch
+].
+^ self reportLastMatch
+].
+^ self reportLastMatch
+].
+^ self reportLastMatch
+].
+^ self reportLastMatch
+].
+^ self reportLastMatch
+].
+^ self reportLastMatch
+].
+^ self reportLastMatch
+].
+^ self reportLastMatch
+].
+^ self reportLastMatch
+].
+^ self reportLastMatch
+].
+^ self reportLastMatch
+].
+^ self reportLastMatch
+].
+^ self reportLastMatch
+].
+^ self reportLastMatch
+].
+^ self reportLastMatch
+].
+(currentCharacter == $u) ifTrue:[
+self recordMatch:#( 30 33 ).
+self step.
+((currentCharacter between:$0 and:$9)
+or:[
+(currentCharacter between:$A and:$Z)
+or:[
+currentCharacter == $_
+or:[
+(currentCharacter between:$a and:$m)
+or:[ (currentCharacter between:$o and:$z) ]
+]
+]
+])
+ifTrue:[ ^ self scan1 ].
+(currentCharacter between:$- and:$/) ifTrue:[
+[
+self recordMatch:#( 33 ).
+self step.
+(currentCharacter isLetterOrDigit
+or:[ (currentCharacter between:$- and:$/) or:[ currentCharacter == $_ ] ])
+] whileTrue.
+^ self reportLastMatch
+].
+(currentCharacter == $n) ifTrue:[
+self recordMatch:#( 30 33 ).
+self step.
+(currentCharacter isXMLDigit
+or:[
+(currentCharacter between:$A and:$Z)
+or:[
+currentCharacter == $_
+or:[
+(currentCharacter between:$a and:$h)
+or:[ (currentCharacter between:$j and:$z) ]
+]
+]
+])
+ifTrue:[ ^ self scan1 ].
+(currentCharacter between:$- and:$/) ifTrue:[
+[
+self recordMatch:#( 33 ).
+self step.
+(currentCharacter isLetterOrDigit
+or:[ (currentCharacter between:$- and:$/) or:[ currentCharacter == $_ ] ])
+] whileTrue.
+^ self reportLastMatch
+].
+(currentCharacter == $i) ifTrue:[
+self recordMatch:#( 30 33 ).
+self step.
+(currentCharacter isXMLDigit
+or:[
+(currentCharacter between:$A and:$Z)
+or:[
+currentCharacter == $_
+or:[
+(currentCharacter between:$a and:$n)
+or:[ (currentCharacter between:$p and:$z) ]
+]
+]
+])
+ifTrue:[ ^ self scan1 ].
+(currentCharacter between:$- and:$/) ifTrue:[
+[
+self recordMatch:#( 33 ).
+self step.
+(currentCharacter isLetterOrDigit
+or:[ (currentCharacter between:$- and:$/) or:[ currentCharacter == $_ ] ])
+] whileTrue.
+^ self reportLastMatch
+].
+(currentCharacter == $o) ifTrue:[
+self recordMatch:#( 30 33 ).
+self step.
+((currentCharacter between:$0 and:$9)
+or:[
+(currentCharacter between:$A and:$Z)
+or:[
+currentCharacter == $_
+or:[
+(currentCharacter between:$a and:$m)
+or:[ (currentCharacter between:$o and:$z) ]
+]
+]
+])
+ifTrue:[ ^ self scan1 ].
+(currentCharacter between:$- and:$/) ifTrue:[
+[
+self recordMatch:#( 33 ).
+self step.
+(currentCharacter isLetterOrDigit
+or:[ (currentCharacter between:$- and:$/) or:[ currentCharacter == $_ ] ])
+] whileTrue.
+^ self reportLastMatch
+].
+(currentCharacter == $n) ifTrue:[
+self recordMatch:#( 30 33 ).
+self step.
+(currentCharacter isLetterOrDigit or:[ currentCharacter == $_ ]) ifTrue:[
+^ self scan1
+].
+(currentCharacter between:$. and:$/) ifTrue:[
+[
+self recordMatch:#( 33 ).
+self step.
+(currentCharacter isLetterOrDigit
+or:[ (currentCharacter between:$- and:$/) or:[ currentCharacter == $_ ] ])
+] whileTrue.
+^ self reportLastMatch
+].
+(currentCharacter == $-) ifTrue:[
+self recordMatch:#( 33 ).
+self step.
+((currentCharacter between:$- and:$9)
+or:[
+(currentCharacter between:$A and:$Z)
+or:[
+currentCharacter == $_
+or:[
+(currentCharacter between:$a and:$e)
+or:[ (currentCharacter between:$g and:$z) ]
+]
+]
+])
+ifTrue:[
+[
+self recordMatch:#( 33 ).
+self step.
+(currentCharacter isLetterOrDigit
+or:[ (currentCharacter between:$- and:$/) or:[ currentCharacter == $_ ] ])
+] whileTrue.
+^ self reportLastMatch
+].
+(currentCharacter == $f) ifTrue:[
+self recordMatch:#( 33 ).
+self step.
+(currentCharacter isXMLDigit
+or:[
+(currentCharacter between:$- and:$/)
+or:[
+(currentCharacter between:$A and:$Z)
+or:[
+currentCharacter == $_
+or:[
+(currentCharacter between:$a and:$n)
+or:[ (currentCharacter between:$p and:$z) ]
+]
+]
+]
+])
+ifTrue:[
+[
+self recordMatch:#( 33 ).
+self step.
+(currentCharacter isLetterOrDigit
+or:[ (currentCharacter between:$- and:$/) or:[ currentCharacter == $_ ] ])
+] whileTrue.
+^ self reportLastMatch
+].
+(currentCharacter == $o) ifTrue:[
+self recordMatch:#( 33 ).
+self step.
+((currentCharacter between:$- and:$9)
+or:[
+(currentCharacter between:$A and:$Z)
+or:[
+currentCharacter == $_
+or:[
+(currentCharacter between:$a and:$q)
+or:[ (currentCharacter between:$s and:$z) ]
+]
+]
+])
+ifTrue:[
+[
+self recordMatch:#( 33 ).
+self step.
+(currentCharacter isLetterOrDigit
+or:[ (currentCharacter between:$- and:$/) or:[ currentCharacter == $_ ] ])
+] whileTrue.
+^ self reportLastMatch
+].
+(currentCharacter == $r) ifTrue:[
+self recordMatch:#( 33 ).
+self step.
+(currentCharacter isXMLDigit
+or:[
+(currentCharacter between:$- and:$/)
+or:[
+(currentCharacter between:$A and:$Z)
+or:[
+currentCharacter == $_
+or:[
+(currentCharacter between:$a and:$d)
+or:[ (currentCharacter between:$f and:$z) ]
+]
+]
+]
+])
+ifTrue:[
+[
+self recordMatch:#( 33 ).
+self step.
+(currentCharacter isLetterOrDigit
+or:[ (currentCharacter between:$- and:$/) or:[ currentCharacter == $_ ] ])
+] whileTrue.
+^ self reportLastMatch
+].
+(currentCharacter == $e) ifTrue:[
+self recordMatch:#( 33 ).
+self step.
+(currentCharacter isXMLDigit
+or:[
+(currentCharacter between:$- and:$/)
+or:[
+(currentCharacter between:$A and:$Z)
+or:[
+currentCharacter == $_
+or:[
+(currentCharacter between:$a and:$h)
+or:[ (currentCharacter between:$j and:$z) ]
+]
+]
+]
+])
+ifTrue:[
+[
+self recordMatch:#( 33 ).
+self step.
+(currentCharacter isLetterOrDigit
+or:[ (currentCharacter between:$- and:$/) or:[ currentCharacter == $_ ] ])
+] whileTrue.
+^ self reportLastMatch
+].
+(currentCharacter == $i) ifTrue:[
+self recordMatch:#( 33 ).
+self step.
+((currentCharacter between:$- and:$9)
+or:[
+(currentCharacter between:$A and:$Z)
+or:[
+currentCharacter == $_
+or:[
+(currentCharacter between:$a and:$f)
+or:[ (currentCharacter between:$h and:$z) ]
+]
+]
+])
+ifTrue:[
+[
+self recordMatch:#( 33 ).
+self step.
+(currentCharacter isLetterOrDigit
+or:[ (currentCharacter between:$- and:$/) or:[ currentCharacter == $_ ] ])
+] whileTrue.
+^ self reportLastMatch
+].
+(currentCharacter == $g) ifTrue:[
+self recordMatch:#( 33 ).
+self step.
+((currentCharacter between:$- and:$9)
+or:[
+(currentCharacter between:$A and:$Z)
+or:[
+currentCharacter == $_
+or:[
+(currentCharacter between:$a and:$m)
+or:[ (currentCharacter between:$o and:$z) ]
+]
+]
+])
+ifTrue:[
+[
+self recordMatch:#( 33 ).
+self step.
+(currentCharacter isLetterOrDigit
+or:[ (currentCharacter between:$- and:$/) or:[ currentCharacter == $_ ] ])
+] whileTrue.
+^ self reportLastMatch
+].
+(currentCharacter == $n) ifTrue:[
+self recordMatch:#( 19 33 ).
+self step.
+(currentCharacter isLetterOrDigit
+or:[ (currentCharacter between:$- and:$/) or:[ currentCharacter == $_ ] ])
+ifTrue:[
+[
+self recordMatch:#( 33 ).
+self step.
+(currentCharacter isLetterOrDigit
+or:[ (currentCharacter between:$- and:$/) or:[ currentCharacter == $_ ] ])
+] whileTrue.
+^ self reportLastMatch
+].
+^ self reportLastMatch
+].
+^ self reportLastMatch
+].
+^ self reportLastMatch
+].
+^ self reportLastMatch
+].
+^ self reportLastMatch
+].
+^ self reportLastMatch
+].
+^ self reportLastMatch
+].
+^ self reportLastMatch
+].
+^ self reportLastMatch
+].
+^ self reportLastMatch
+].
+^ self reportLastMatch
+].
+^ self reportLastMatch
+].
+^ self reportLastMatch
+].
 ^ self reportLastMatch
-"Modified: / 17-02-2008 / 18:45:28 / janfrog"
+"Modified: / 04-07-2008 / 09:23:45 / Jan Vrany <vranyj1@fel.cvut.cz>"
 ! !
 !CDefinitionScanner methodsFor:'generated-tokens'!
 emptySymbolTokenId
-	^59
+	^60
-"Modified: / 17-02-2008 / 18:45:28 / janfrog"
+"Modified: / 04-07-2008 / 09:23:45 / Jan Vrany <vranyj1@fel.cvut.cz>"
 !
 errorTokenId
-	^60
+	^61
-"Modified: / 17-02-2008 / 18:45:28 / janfrog"
+"Modified: / 04-07-2008 / 09:23:45 / Jan Vrany <vranyj1@fel.cvut.cz>"
 ! !
 !CDefinitionScanner class methodsFor:'documentation'!
 version

changeset 3	110a9cbf8594
parent 1	b6c0180314d1
child 4	fc74bd43a3eb