hg/jv-cface: Cface__CDefinitionScanner.st@110a9cbf8594 (annotated)

1 b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1	"{ Package: 'cvut:fel/cface' }"
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	2
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	3	"{ NameSpace: Cface }"
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	4
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	5	SmaCC::SmaCCScanner subclass:#CDefinitionScanner
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	6	instanceVariableNames:''
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	7	classVariableNames:''
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	8	poolDictionaries:''
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	9	category:'Cface-Parser'
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	10	!
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	11
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	12
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	13	!CDefinitionScanner class methodsFor:'accessing'!
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	14
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	15	needsLineNumbers
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	16
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	17	^true
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	18
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	19	"Created: / 10-02-2008 / 10:17:03 / janfrog"
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	20	! !
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	21
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	22	!CDefinitionScanner class methodsFor:'generated-comments'!
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	23
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	24	scannerDefinitionComment
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	25
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	26	"<name> : [a-zA-Z_] \w* ;
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	27	<number> : \-? [0-9]+ [a-zA-Z]* ;
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	28
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	29	<whitespace> : \s+ ;
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	30
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	31	<file> : [\w-_/] [\w-_/.]* ;
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	32	"
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	33
3 110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	34	"Modified: / 04-07-2008 / 09:23:46 / Jan Vrany <vranyj1@fel.cvut.cz>"
1 b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	35	! !
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	36
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	37	!CDefinitionScanner class methodsFor:'generated-initialization'!
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	38
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	39	initializeKeywordMap
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	40	keywordMap := Dictionary new.
3 110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	41	#( #(30 'argument' 14)
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	42	#(30 'array' 25)
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	43	#(30 'char' 5)
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	44	#(30 'const' 26)
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	45	#(30 'double' 12)
1 b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	46	#(30 'enum' 17)
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	47	#(30 'field' 16)
3 110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	48	#(30 'float' 23)
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	49	#(30 'function' 15)
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	50	#(30 'int' 7)
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	51	#(30 'long' 2)
1 b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	52	#(30 'return' 6)
3 110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	53	#(30 'short' 3)
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	54	#(30 'struct' 28)
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	55	#(30 'typedef' 20)
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	56	#(30 'union' 21)
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	57	#(30 'unsigned' 1)
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	58	#(30 'value' 22)
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	59	#(30 'void' 24)
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	60	#(33 'argument' 14)
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	61	#(33 'array' 25)
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	62	#(33 'char' 5)
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	63	#(33 'const' 26)
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	64	#(33 'double' 12)
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	65	#(33 'enum' 17)
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	66	#(33 'field' 16)
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	67	#(33 'float' 23)
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	68	#(33 'function' 15)
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	69	#(33 'int' 7)
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	70	#(33 'long' 2)
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	71	#(33 'return' 6)
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	72	#(33 'short' 3)
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	73	#(33 'struct' 28)
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	74	#(33 'typedef' 20)
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	75	#(33 'union' 21)
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	76	#(33 'unsigned' 1)
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	77	#(33 'value' 22)
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	78	#(33 'void' 24) )
1 b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	79	do:[:each \|
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	80	(keywordMap at:each first ifAbsentPut:[ Dictionary new ]) at:(each at:2)
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	81	put:each last
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	82	].
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	83	^ keywordMap
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	84
3 110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	85	"Modified: / 04-07-2008 / 09:23:44 / Jan Vrany <vranyj1@fel.cvut.cz>"
1 b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	86	! !
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	87
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	88	!CDefinitionScanner methodsFor:'generated-scanner'!
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	89
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	90	scan1
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	91	[
3 110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	92	self recordMatch:#( 30 33 ).
1 b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	93	self step.
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	94	(currentCharacter isLetterOrDigit or:[ currentCharacter == $_ ])
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	95	] whileTrue.
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	96	(currentCharacter between:$- and:$/) ifTrue:[
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	97	[
3 110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	98	self recordMatch:#( 33 ).
1 b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	99	self step.
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	100	(currentCharacter isLetterOrDigit
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	101	or:[ (currentCharacter between:$- and:$/) or:[ currentCharacter == $_ ] ])
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	102	] whileTrue.
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	103	^ self reportLastMatch
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	104	].
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	105	^ self reportLastMatch
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	106
3 110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	107	"Modified: / 04-07-2008 / 09:23:45 / Jan Vrany <vranyj1@fel.cvut.cz>"
1 b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	108	!
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	109
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	110	scan2
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	111	[
3 110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	112	self recordMatch:#( 31 33 ).
1 b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	113	self step.
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	114	(currentCharacter isLetter) ifTrue:[
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	115	[
3 110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	116	self recordMatch:#( 31 33 ).
1 b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	117	self step.
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	118	(currentCharacter isLetter)
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	119	] whileTrue.
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	120	(currentCharacter isXMLDigit
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	121	or:[ (currentCharacter between:$- and:$/) or:[ currentCharacter == $_ ] ])
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	122	ifTrue:[
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	123	[
3 110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	124	self recordMatch:#( 33 ).
1 b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	125	self step.
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	126	(currentCharacter isLetterOrDigit
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	127	or:[ (currentCharacter between:$- and:$/) or:[ currentCharacter == $_ ] ])
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	128	] whileTrue.
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	129	^ self reportLastMatch
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	130	].
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	131	^ self reportLastMatch
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	132	].
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	133	(currentCharacter isXMLDigit)
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	134	] whileTrue.
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	135	((currentCharacter between:$- and:$/) or:[ currentCharacter == $_ ]) ifTrue:[
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	136	[
3 110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	137	self recordMatch:#( 33 ).
1 b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	138	self step.
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	139	(currentCharacter isLetterOrDigit
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	140	or:[ (currentCharacter between:$- and:$/) or:[ currentCharacter == $_ ] ])
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	141	] whileTrue.
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	142	^ self reportLastMatch
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	143	].
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	144	^ self reportLastMatch
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	145
3 110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	146	"Modified: / 04-07-2008 / 09:23:45 / Jan Vrany <vranyj1@fel.cvut.cz>"
1 b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	147	!
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	148
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	149	scan3
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	150	[
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	151	self recordMatch:#( 30 32 ).
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	152	self step.
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	153	(currentCharacter isLetter) ifTrue:[
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	154	[
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	155	self recordMatch:#( 30 32 ).
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	156	self step.
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	157	(currentCharacter isLetter)
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	158	] whileTrue.
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	159	(currentCharacter isXMLDigit
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	160	or:[ (currentCharacter between:$- and:$/) or:[ currentCharacter == $_ ] ])
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	161	ifTrue:[
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	162	[
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	163	self recordMatch:#( 32 ).
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	164	self step.
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	165	(currentCharacter isLetterOrDigit
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	166	or:[ (currentCharacter between:$- and:$/) or:[ currentCharacter == $_ ] ])
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	167	] whileTrue.
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	168	^ self reportLastMatch
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	169	].
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	170	^ self reportLastMatch
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	171	].
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	172	(currentCharacter isXMLDigit)
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	173	] whileTrue.
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	174	((currentCharacter between:$- and:$/) or:[ currentCharacter == $_ ]) ifTrue:[
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	175	[
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	176	self recordMatch:#( 32 ).
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	177	self step.
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	178	(currentCharacter isLetterOrDigit
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	179	or:[ (currentCharacter between:$- and:$/) or:[ currentCharacter == $_ ] ])
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	180	] whileTrue.
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	181	^ self reportLastMatch
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	182	].
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	183	^ self reportLastMatch
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	184
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	185	"Modified: / 12-02-2008 / 23:05:21 / janfrog"
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	186	!
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	187
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	188	scan4
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	189	self recordMatch:#( 29 32 ).
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	190	self step.
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	191	((currentCharacter between:$0 and:$9)
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	192	or:[
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	193	(currentCharacter between:$A and:$Z)
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	194	or:[
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	195	currentCharacter == $_
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	196	or:[
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	197	(currentCharacter between:$a and:$o)
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	198	or:[ (currentCharacter between:$q and:$z) ]
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	199	]
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	200	]
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	201	])
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	202	ifTrue:[
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	203	[
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	204	self recordMatch:#( 29 32 ).
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	205	self step.
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	206	(currentCharacter isLetterOrDigit or:[ currentCharacter == $_ ])
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	207	] whileTrue.
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	208	(currentCharacter between:$- and:$/) ifTrue:[
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	209	[
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	210	self recordMatch:#( 32 ).
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	211	self step.
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	212	(currentCharacter isLetterOrDigit
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	213	or:[ (currentCharacter between:$- and:$/) or:[ currentCharacter == $_ ] ])
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	214	] whileTrue.
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	215	^ self reportLastMatch
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	216	].
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	217	^ self reportLastMatch
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	218	].
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	219	(currentCharacter between:$- and:$/) ifTrue:[
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	220	[
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	221	self recordMatch:#( 32 ).
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	222	self step.
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	223	(currentCharacter isLetterOrDigit
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	224	or:[ (currentCharacter between:$- and:$/) or:[ currentCharacter == $_ ] ])
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	225	] whileTrue.
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	226	^ self reportLastMatch
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	227	].
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	228	(currentCharacter == $p) ifTrue:[
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	229	^ self scan5
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	230	].
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	231	^ self reportLastMatch
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	232
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	233	"Modified: / 12-02-2008 / 23:05:21 / janfrog"
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	234	!
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	235
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	236	scan5
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	237	self recordMatch:#( 29 32 ).
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	238	self step.
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	239	(currentCharacter isXMLDigit
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	240	or:[
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	241	(currentCharacter between:$A and:$Z)
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	242	or:[
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	243	currentCharacter == $_
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	244	or:[
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	245	(currentCharacter between:$a and:$d)
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	246	or:[ (currentCharacter between:$f and:$z) ]
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	247	]
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	248	]
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	249	])
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	250	ifTrue:[
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	251	[
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	252	self recordMatch:#( 29 32 ).
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	253	self step.
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	254	(currentCharacter isLetterOrDigit or:[ currentCharacter == $_ ])
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	255	] whileTrue.
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	256	(currentCharacter between:$- and:$/) ifTrue:[
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	257	[
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	258	self recordMatch:#( 32 ).
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	259	self step.
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	260	(currentCharacter isLetterOrDigit
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	261	or:[ (currentCharacter between:$- and:$/) or:[ currentCharacter == $_ ] ])
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	262	] whileTrue.
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	263	^ self reportLastMatch
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	264	].
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	265	^ self reportLastMatch
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	266	].
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	267	(currentCharacter between:$- and:$/) ifTrue:[
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	268	[
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	269	self recordMatch:#( 32 ).
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	270	self step.
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	271	(currentCharacter isLetterOrDigit
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	272	or:[ (currentCharacter between:$- and:$/) or:[ currentCharacter == $_ ] ])
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	273	] whileTrue.
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	274	^ self reportLastMatch
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	275	].
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	276	(currentCharacter == $e) ifTrue:[
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	277	^ self scan6
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	278	].
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	279	^ self reportLastMatch
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	280
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	281	"Modified: / 12-02-2008 / 23:05:21 / janfrog"
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	282	!
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	283
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	284	scan6
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	285	self recordMatch:#( 29 32 ).
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	286	self step.
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	287	((currentCharacter between:$0 and:$9)
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	288	or:[
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	289	(currentCharacter between:$A and:$Z)
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	290	or:[
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	291	currentCharacter == $_
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	292	or:[
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	293	(currentCharacter between:$a and:$c)
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	294	or:[ (currentCharacter between:$e and:$z) ]
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	295	]
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	296	]
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	297	])
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	298	ifTrue:[
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	299	[
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	300	self recordMatch:#( 29 32 ).
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	301	self step.
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	302	(currentCharacter isLetterOrDigit or:[ currentCharacter == $_ ])
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	303	] whileTrue.
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	304	(currentCharacter between:$- and:$/) ifTrue:[
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	305	[
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	306	self recordMatch:#( 32 ).
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	307	self step.
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	308	(currentCharacter isLetterOrDigit
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	309	or:[ (currentCharacter between:$- and:$/) or:[ currentCharacter == $_ ] ])
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	310	] whileTrue.
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	311	^ self reportLastMatch
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	312	].
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	313	^ self reportLastMatch
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	314	].
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	315	(currentCharacter between:$- and:$/) ifTrue:[
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	316	[
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	317	self recordMatch:#( 32 ).
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	318	self step.
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	319	(currentCharacter isLetterOrDigit
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	320	or:[ (currentCharacter between:$- and:$/) or:[ currentCharacter == $_ ] ])
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	321	] whileTrue.
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	322	^ self reportLastMatch
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	323	].
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	324	(currentCharacter == $d) ifTrue:[
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	325	^ self scan7
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	326	].
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	327	^ self reportLastMatch
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	328
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	329	"Modified: / 12-02-2008 / 23:05:21 / janfrog"
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	330	!
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	331
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	332	scan7
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	333	self recordMatch:#( 29 32 ).
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	334	self step.
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	335	(currentCharacter isXMLDigit
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	336	or:[
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	337	(currentCharacter between:$A and:$Z)
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	338	or:[
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	339	currentCharacter == $_
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	340	or:[
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	341	(currentCharacter between:$a and:$d)
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	342	or:[ (currentCharacter between:$f and:$z) ]
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	343	]
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	344	]
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	345	])
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	346	ifTrue:[
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	347	[
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	348	self recordMatch:#( 29 32 ).
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	349	self step.
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	350	(currentCharacter isLetterOrDigit or:[ currentCharacter == $_ ])
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	351	] whileTrue.
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	352	(currentCharacter between:$- and:$/) ifTrue:[
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	353	[
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	354	self recordMatch:#( 32 ).
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	355	self step.
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	356	(currentCharacter isLetterOrDigit
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	357	or:[ (currentCharacter between:$- and:$/) or:[ currentCharacter == $_ ] ])
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	358	] whileTrue.
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	359	^ self reportLastMatch
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	360	].
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	361	^ self reportLastMatch
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	362	].
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	363	(currentCharacter between:$- and:$/) ifTrue:[
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	364	[
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	365	self recordMatch:#( 32 ).
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	366	self step.
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	367	(currentCharacter isLetterOrDigit
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	368	or:[ (currentCharacter between:$- and:$/) or:[ currentCharacter == $_ ] ])
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	369	] whileTrue.
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	370	^ self reportLastMatch
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	371	].
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	372	(currentCharacter == $e) ifTrue:[
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	373	self recordMatch:#( 29 32 ).
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	374	self step.
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	375	((currentCharacter between:$0 and:$9)
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	376	or:[
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	377	(currentCharacter between:$A and:$Z)
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	378	or:[
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	379	currentCharacter == $_
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	380	or:[
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	381	(currentCharacter between:$a and:$e)
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	382	or:[ (currentCharacter between:$g and:$z) ]
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	383	]
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	384	]
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	385	])
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	386	ifTrue:[
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	387	[
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	388	self recordMatch:#( 29 32 ).
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	389	self step.
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	390	(currentCharacter isLetterOrDigit or:[ currentCharacter == $_ ])
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	391	] whileTrue.
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	392	(currentCharacter between:$- and:$/) ifTrue:[
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	393	[
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	394	self recordMatch:#( 32 ).
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	395	self step.
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	396	(currentCharacter isLetterOrDigit
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	397	or:[ (currentCharacter between:$- and:$/) or:[ currentCharacter == $_ ] ])
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	398	] whileTrue.
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	399	^ self reportLastMatch
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	400	].
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	401	^ self reportLastMatch
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	402	].
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	403	(currentCharacter between:$- and:$/) ifTrue:[
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	404	[
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	405	self recordMatch:#( 32 ).
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	406	self step.
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	407	(currentCharacter isLetterOrDigit
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	408	or:[ (currentCharacter between:$- and:$/) or:[ currentCharacter == $_ ] ])
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	409	] whileTrue.
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	410	^ self reportLastMatch
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	411	].
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	412	(currentCharacter == $f) ifTrue:[
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	413	self recordMatch:#( 29 32 ).
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	414	self step.
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	415	(currentCharacter isLetterOrDigit or:[ currentCharacter == $_ ]) ifTrue:[
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	416	[
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	417	self recordMatch:#( 29 32 ).
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	418	self step.
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	419	(currentCharacter isLetterOrDigit or:[ currentCharacter == $_ ])
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	420	] whileTrue.
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	421	(currentCharacter between:$- and:$/) ifTrue:[
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	422	[
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	423	self recordMatch:#( 32 ).
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	424	self step.
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	425	(currentCharacter isLetterOrDigit
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	426	or:[ (currentCharacter between:$- and:$/) or:[ currentCharacter == $_ ] ])
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	427	] whileTrue.
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	428	^ self reportLastMatch
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	429	].
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	430	^ self reportLastMatch
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	431	].
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	432	(currentCharacter between:$. and:$/) ifTrue:[
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	433	[
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	434	self recordMatch:#( 32 ).
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	435	self step.
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	436	(currentCharacter isLetterOrDigit
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	437	or:[ (currentCharacter between:$- and:$/) or:[ currentCharacter == $_ ] ])
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	438	] whileTrue.
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	439	^ self reportLastMatch
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	440	].
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	441	(currentCharacter == $-) ifTrue:[
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	442	self recordMatch:#( 32 ).
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	443	self step.
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	444	(currentCharacter isXMLDigit
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	445	or:[
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	446	(currentCharacter between:$- and:$/)
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	447	or:[
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	448	(currentCharacter between:$A and:$Z)
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	449	or:[
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	450	currentCharacter == $_
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	451	or:[
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	452	(currentCharacter between:$a and:$d)
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	453	or:[
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	454	(currentCharacter between:$f and:$r)
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	455	or:[ currentCharacter == $t or:[ (currentCharacter between:$v and:$z) ] ]
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	456	]
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	457	]
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	458	]
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	459	]
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	460	])
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	461	ifTrue:[
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	462	[
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	463	self recordMatch:#( 32 ).
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	464	self step.
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	465	(currentCharacter isLetterOrDigit
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	466	or:[ (currentCharacter between:$- and:$/) or:[ currentCharacter == $_ ] ])
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	467	] whileTrue.
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	468	^ self reportLastMatch
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	469	].
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	470	(currentCharacter == $e) ifTrue:[
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	471	self recordMatch:#( 32 ).
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	472	self step.
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	473	((currentCharacter between:$- and:$9)
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	474	or:[
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	475	(currentCharacter between:$A and:$Z)
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	476	or:[
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	477	currentCharacter == $_
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	478	or:[
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	479	(currentCharacter between:$a and:$m)
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	480	or:[ (currentCharacter between:$o and:$z) ]
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	481	]
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	482	]
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	483	])
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	484	ifTrue:[
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	485	[
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	486	self recordMatch:#( 32 ).
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	487	self step.
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	488	(currentCharacter isLetterOrDigit
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	489	or:[ (currentCharacter between:$- and:$/) or:[ currentCharacter == $_ ] ])
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	490	] whileTrue.
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	491	^ self reportLastMatch
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	492	].
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	493	(currentCharacter == $n) ifTrue:[
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	494	self recordMatch:#( 32 ).
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	495	self step.
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	496	(currentCharacter isXMLDigit
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	497	or:[
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	498	(currentCharacter between:$- and:$/)
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	499	or:[
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	500	(currentCharacter between:$A and:$Z)
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	501	or:[
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	502	currentCharacter == $_
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	503	or:[
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	504	(currentCharacter between:$a and:$t)
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	505	or:[ (currentCharacter between:$v and:$z) ]
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	506	]
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	507	]
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	508	]
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	509	])
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	510	ifTrue:[
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	511	[
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	512	self recordMatch:#( 32 ).
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	513	self step.
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	514	(currentCharacter isLetterOrDigit
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	515	or:[ (currentCharacter between:$- and:$/) or:[ currentCharacter == $_ ] ])
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	516	] whileTrue.
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	517	^ self reportLastMatch
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	518	].
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	519	(currentCharacter == $u) ifTrue:[
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	520	self recordMatch:#( 32 ).
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	521	self step.
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	522	((currentCharacter between:$- and:$9)
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	523	or:[
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	524	(currentCharacter between:$A and:$Z)
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	525	or:[
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	526	currentCharacter == $_
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	527	or:[
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	528	(currentCharacter between:$a and:$l)
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	529	or:[ (currentCharacter between:$n and:$z) ]
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	530	]
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	531	]
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	532	])
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	533	ifTrue:[
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	534	[
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	535	self recordMatch:#( 32 ).
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	536	self step.
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	537	(currentCharacter isLetterOrDigit
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	538	or:[ (currentCharacter between:$- and:$/) or:[ currentCharacter == $_ ] ])
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	539	] whileTrue.
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	540	^ self reportLastMatch
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	541	].
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	542	(currentCharacter == $m) ifTrue:[
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	543	self recordMatch:#( 18 32 ).
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	544	self step.
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	545	(currentCharacter isLetterOrDigit
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	546	or:[ (currentCharacter between:$- and:$/) or:[ currentCharacter == $_ ] ])
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	547	ifTrue:[
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	548	[
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	549	self recordMatch:#( 32 ).
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	550	self step.
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	551	(currentCharacter isLetterOrDigit
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	552	or:[ (currentCharacter between:$- and:$/) or:[ currentCharacter == $_ ] ])
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	553	] whileTrue.
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	554	^ self reportLastMatch
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	555	].
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	556	^ self reportLastMatch
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	557	].
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	558	^ self reportLastMatch
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	559	].
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	560	^ self reportLastMatch
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	561	].
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	562	^ self reportLastMatch
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	563	].
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	564	(currentCharacter == $s) ifTrue:[
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	565	self recordMatch:#( 32 ).
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	566	self step.
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	567	((currentCharacter between:$- and:$9)
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	568	or:[
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	569	(currentCharacter between:$A and:$Z)
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	570	or:[
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	571	currentCharacter == $_
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	572	or:[
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	573	(currentCharacter between:$a and:$s)
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	574	or:[ (currentCharacter between:$u and:$z) ]
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	575	]
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	576	]
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	577	])
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	578	ifTrue:[
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	579	[
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	580	self recordMatch:#( 32 ).
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	581	self step.
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	582	(currentCharacter isLetterOrDigit
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	583	or:[ (currentCharacter between:$- and:$/) or:[ currentCharacter == $_ ] ])
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	584	] whileTrue.
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	585	^ self reportLastMatch
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	586	].
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	587	(currentCharacter == $t) ifTrue:[
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	588	self recordMatch:#( 32 ).
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	589	self step.
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	590	((currentCharacter between:$- and:$9)
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	591	or:[
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	592	(currentCharacter between:$A and:$Z)
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	593	or:[
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	594	currentCharacter == $_
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	595	or:[
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	596	(currentCharacter between:$a and:$q)
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	597	or:[ (currentCharacter between:$s and:$z) ]
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	598	]
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	599	]
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	600	])
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	601	ifTrue:[
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	602	[
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	603	self recordMatch:#( 32 ).
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	604	self step.
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	605	(currentCharacter isLetterOrDigit
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	606	or:[ (currentCharacter between:$- and:$/) or:[ currentCharacter == $_ ] ])
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	607	] whileTrue.
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	608	^ self reportLastMatch
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	609	].
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	610	(currentCharacter == $r) ifTrue:[
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	611	self recordMatch:#( 32 ).
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	612	self step.
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	613	(currentCharacter isXMLDigit
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	614	or:[
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	615	(currentCharacter between:$- and:$/)
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	616	or:[
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	617	(currentCharacter between:$A and:$Z)
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	618	or:[
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	619	currentCharacter == $_
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	620	or:[
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	621	(currentCharacter between:$a and:$t)
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	622	or:[ (currentCharacter between:$v and:$z) ]
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	623	]
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	624	]
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	625	]
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	626	])
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	627	ifTrue:[
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	628	[
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	629	self recordMatch:#( 32 ).
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	630	self step.
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	631	(currentCharacter isLetterOrDigit
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	632	or:[ (currentCharacter between:$- and:$/) or:[ currentCharacter == $_ ] ])
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	633	] whileTrue.
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	634	^ self reportLastMatch
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	635	].
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	636	(currentCharacter == $u) ifTrue:[
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	637	self recordMatch:#( 32 ).
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	638	self step.
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	639	((currentCharacter between:$- and:$9)
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	640	or:[
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	641	(currentCharacter between:$A and:$Z)
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	642	or:[
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	643	currentCharacter == $_
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	644	or:[
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	645	(currentCharacter between:$a and:$b)
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	646	or:[ (currentCharacter between:$d and:$z) ]
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	647	]
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	648	]
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	649	])
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	650	ifTrue:[
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	651	[
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	652	self recordMatch:#( 32 ).
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	653	self step.
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	654	(currentCharacter isLetterOrDigit
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	655	or:[ (currentCharacter between:$- and:$/) or:[ currentCharacter == $_ ] ])
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	656	] whileTrue.
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	657	^ self reportLastMatch
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	658	].
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	659	(currentCharacter == $c) ifTrue:[
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	660	self recordMatch:#( 32 ).
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	661	self step.
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	662	((currentCharacter between:$- and:$9)
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	663	or:[
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	664	(currentCharacter between:$A and:$Z)
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	665	or:[
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	666	currentCharacter == $_
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	667	or:[
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	668	(currentCharacter between:$a and:$s)
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	669	or:[ (currentCharacter between:$u and:$z) ]
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	670	]
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	671	]
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	672	])
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	673	ifTrue:[
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	674	[
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	675	self recordMatch:#( 32 ).
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	676	self step.
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	677	(currentCharacter isLetterOrDigit
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	678	or:[ (currentCharacter between:$- and:$/) or:[ currentCharacter == $_ ] ])
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	679	] whileTrue.
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	680	^ self reportLastMatch
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	681	].
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	682	(currentCharacter == $t) ifTrue:[
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	683	self recordMatch:#( 28 32 ).
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	684	self step.
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	685	(currentCharacter isLetterOrDigit
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	686	or:[ (currentCharacter between:$- and:$/) or:[ currentCharacter == $_ ] ])
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	687	ifTrue:[
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	688	[
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	689	self recordMatch:#( 32 ).
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	690	self step.
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	691	(currentCharacter isLetterOrDigit
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	692	or:[ (currentCharacter between:$- and:$/) or:[ currentCharacter == $_ ] ])
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	693	] whileTrue.
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	694	^ self reportLastMatch
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	695	].
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	696	^ self reportLastMatch
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	697	].
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	698	^ self reportLastMatch
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	699	].
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	700	^ self reportLastMatch
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	701	].
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	702	^ self reportLastMatch
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	703	].
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	704	^ self reportLastMatch
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	705	].
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	706	^ self reportLastMatch
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	707	].
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	708	(currentCharacter == $u) ifTrue:[
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	709	self recordMatch:#( 32 ).
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	710	self step.
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	711	((currentCharacter between:$- and:$9)
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	712	or:[
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	713	(currentCharacter between:$A and:$Z)
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	714	or:[
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	715	currentCharacter == $_
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	716	or:[
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	717	(currentCharacter between:$a and:$m)
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	718	or:[ (currentCharacter between:$o and:$z) ]
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	719	]
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	720	]
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	721	])
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	722	ifTrue:[
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	723	[
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	724	self recordMatch:#( 32 ).
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	725	self step.
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	726	(currentCharacter isLetterOrDigit
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	727	or:[ (currentCharacter between:$- and:$/) or:[ currentCharacter == $_ ] ])
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	728	] whileTrue.
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	729	^ self reportLastMatch
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	730	].
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	731	(currentCharacter == $n) ifTrue:[
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	732	self recordMatch:#( 32 ).
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	733	self step.
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	734	(currentCharacter isXMLDigit
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	735	or:[
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	736	(currentCharacter between:$- and:$/)
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	737	or:[
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	738	(currentCharacter between:$A and:$Z)
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	739	or:[
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	740	currentCharacter == $_
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	741	or:[
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	742	(currentCharacter between:$a and:$h)
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	743	or:[ (currentCharacter between:$j and:$z) ]
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	744	]
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	745	]
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	746	]
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	747	])
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	748	ifTrue:[
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	749	[
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	750	self recordMatch:#( 32 ).
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	751	self step.
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	752	(currentCharacter isLetterOrDigit
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	753	or:[ (currentCharacter between:$- and:$/) or:[ currentCharacter == $_ ] ])
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	754	] whileTrue.
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	755	^ self reportLastMatch
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	756	].
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	757	(currentCharacter == $i) ifTrue:[
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	758	self recordMatch:#( 32 ).
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	759	self step.
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	760	(currentCharacter isXMLDigit
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	761	or:[
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	762	(currentCharacter between:$- and:$/)
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	763	or:[
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	764	(currentCharacter between:$A and:$Z)
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	765	or:[
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	766	currentCharacter == $_
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	767	or:[
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	768	(currentCharacter between:$a and:$n)
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	769	or:[ (currentCharacter between:$p and:$z) ]
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	770	]
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	771	]
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	772	]
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	773	])
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	774	ifTrue:[
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	775	[
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	776	self recordMatch:#( 32 ).
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	777	self step.
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	778	(currentCharacter isLetterOrDigit
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	779	or:[ (currentCharacter between:$- and:$/) or:[ currentCharacter == $_ ] ])
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	780	] whileTrue.
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	781	^ self reportLastMatch
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	782	].
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	783	(currentCharacter == $o) ifTrue:[
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	784	self recordMatch:#( 32 ).
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	785	self step.
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	786	((currentCharacter between:$- and:$9)
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	787	or:[
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	788	(currentCharacter between:$A and:$Z)
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	789	or:[
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	790	currentCharacter == $_
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	791	or:[
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	792	(currentCharacter between:$a and:$m)
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	793	or:[ (currentCharacter between:$o and:$z) ]
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	794	]
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	795	]
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	796	])
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	797	ifTrue:[
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	798	[
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	799	self recordMatch:#( 32 ).
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	800	self step.
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	801	(currentCharacter isLetterOrDigit
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	802	or:[ (currentCharacter between:$- and:$/) or:[ currentCharacter == $_ ] ])
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	803	] whileTrue.
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	804	^ self reportLastMatch
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	805	].
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	806	(currentCharacter == $n) ifTrue:[
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	807	self recordMatch:#( 21 32 ).
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	808	self step.
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	809	(currentCharacter isLetterOrDigit
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	810	or:[ (currentCharacter between:$- and:$/) or:[ currentCharacter == $_ ] ])
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	811	ifTrue:[
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	812	[
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	813	self recordMatch:#( 32 ).
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	814	self step.
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	815	(currentCharacter isLetterOrDigit
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	816	or:[ (currentCharacter between:$- and:$/) or:[ currentCharacter == $_ ] ])
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	817	] whileTrue.
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	818	^ self reportLastMatch
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	819	].
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	820	^ self reportLastMatch
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	821	].
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	822	^ self reportLastMatch
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	823	].
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	824	^ self reportLastMatch
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	825	].
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	826	^ self reportLastMatch
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	827	].
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	828	^ self reportLastMatch
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	829	].
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	830	^ self reportLastMatch
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	831	].
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	832	^ self reportLastMatch
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	833	].
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	834	^ self reportLastMatch
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	835	].
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	836	^ self reportLastMatch
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	837
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	838	"Modified: / 12-02-2008 / 23:05:21 / janfrog"
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	839	!
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	840
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	841	scanForToken
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	842	self step.
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	843	((currentCharacter between:$A and:$Z)
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	844	or:[
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	845	currentCharacter == $_
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	846	or:[
3 110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	847	(currentCharacter between:$a and:$d)
1 b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	848	or:[
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	849	(currentCharacter between:$g and:$o)
3 110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	850	or:[
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	851	(currentCharacter between:$q and:$r)
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	852	or:[ (currentCharacter between:$v and:$z) ]
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	853	]
1 b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	854	]
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	855	]
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	856	])
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	857	ifTrue:[ ^ self scan1 ].
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	858	(currentCharacter isXMLDigit) ifTrue:[
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	859	^ self scan2
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	860	].
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	861	(currentCharacter isSeparator
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	862	or:[ currentCharacter == (Character value:16rB) ])
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	863	ifTrue:[
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	864	[
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	865	self recordMatch:#whitespace.
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	866	self step.
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	867	(currentCharacter isSeparator
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	868	or:[ currentCharacter == (Character value:16rB) ])
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	869	] whileTrue.
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	870	^ self reportLastMatch
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	871	].
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	872	(currentCharacter == $#) ifTrue:[
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	873	self step.
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	874	(currentCharacter == $G) ifTrue:[
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	875	self step.
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	876	(currentCharacter == $e) ifTrue:[
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	877	self step.
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	878	(currentCharacter == $n) ifTrue:[
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	879	self step.
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	880	(currentCharacter == $e) ifTrue:[
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	881	self step.
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	882	(currentCharacter == $r) ifTrue:[
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	883	self step.
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	884	(currentCharacter == $a) ifTrue:[
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	885	self step.
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	886	(currentCharacter == $t) ifTrue:[
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	887	self step.
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	888	(currentCharacter == $e) ifTrue:[
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	889	self step.
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	890	(currentCharacter == $d) ifTrue:[
3 110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	891	^ self recordAndReportMatch:#( 9 ).
1 b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	892	].
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	893	^ self reportLastMatch
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	894	].
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	895	^ self reportLastMatch
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	896	].
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	897	^ self reportLastMatch
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	898	].
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	899	^ self reportLastMatch
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	900	].
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	901	^ self reportLastMatch
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	902	].
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	903	^ self reportLastMatch
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	904	].
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	905	^ self reportLastMatch
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	906	].
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	907	^ self reportLastMatch
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	908	].
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	909	^ self reportLastMatch
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	910	].
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	911	(currentCharacter == $() ifTrue:[
3 110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	912	^ self recordAndReportMatch:#( 11 ).
1 b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	913	].
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	914	(currentCharacter == $)) ifTrue:[
3 110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	915	^ self recordAndReportMatch:#( 13 ).
1 b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	916	].
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	917	(currentCharacter == $-) ifTrue:[
3 110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	918	self recordMatch:#( 33 ).
1 b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	919	self step.
3 110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	920	(currentCharacter isLetter
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	921	or:[ (currentCharacter between:$- and:$/) or:[ currentCharacter == $_ ] ])
1 b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	922	ifTrue:[
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	923	[
3 110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	924	self recordMatch:#( 33 ).
1 b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	925	self step.
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	926	(currentCharacter isLetterOrDigit
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	927	or:[ (currentCharacter between:$- and:$/) or:[ currentCharacter == $_ ] ])
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	928	] whileTrue.
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	929	^ self reportLastMatch
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	930	].
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	931	(currentCharacter isXMLDigit) ifTrue:[
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	932	^ self scan2
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	933	].
3 110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	934	^ self reportLastMatch
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	935	].
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	936	(currentCharacter == $/) ifTrue:[
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	937	[
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	938	self recordMatch:#( 33 ).
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	939	self step.
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	940	(currentCharacter isLetterOrDigit
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	941	or:[ (currentCharacter between:$- and:$/) or:[ currentCharacter == $_ ] ])
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	942	] whileTrue.
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	943	^ self reportLastMatch
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	944	].
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	945	(currentCharacter == $e) ifTrue:[
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	946	self recordMatch:#( 30 33 ).
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	947	self step.
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	948	((currentCharacter between:$0 and:$9)
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	949	or:[
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	950	(currentCharacter between:$A and:$Z)
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	951	or:[
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	952	currentCharacter == $_
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	953	or:[
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	954	(currentCharacter between:$a and:$m)
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	955	or:[ (currentCharacter between:$o and:$z) ]
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	956	]
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	957	]
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	958	])
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	959	ifTrue:[ ^ self scan1 ].
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	960	(currentCharacter between:$- and:$/) ifTrue:[
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	961	[
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	962	self recordMatch:#( 33 ).
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	963	self step.
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	964	(currentCharacter isLetterOrDigit
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	965	or:[ (currentCharacter between:$- and:$/) or:[ currentCharacter == $_ ] ])
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	966	] whileTrue.
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	967	^ self reportLastMatch
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	968	].
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	969	(currentCharacter == $n) ifTrue:[
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	970	self recordMatch:#( 30 33 ).
1 b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	971	self step.
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	972	(currentCharacter isXMLDigit
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	973	or:[
3 110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	974	(currentCharacter between:$A and:$Z)
1 b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	975	or:[
3 110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	976	currentCharacter == $_
1 b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	977	or:[
3 110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	978	(currentCharacter between:$a and:$t)
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	979	or:[ (currentCharacter between:$v and:$z) ]
1 b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	980	]
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	981	]
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	982	])
3 110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	983	ifTrue:[ ^ self scan1 ].
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	984	(currentCharacter between:$- and:$/) ifTrue:[
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	985	[
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	986	self recordMatch:#( 33 ).
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	987	self step.
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	988	(currentCharacter isLetterOrDigit
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	989	or:[ (currentCharacter between:$- and:$/) or:[ currentCharacter == $_ ] ])
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	990	] whileTrue.
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	991	^ self reportLastMatch
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	992	].
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	993	(currentCharacter == $u) ifTrue:[
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	994	self recordMatch:#( 30 33 ).
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	995	self step.
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	996	((currentCharacter between:$0 and:$9)
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	997	or:[
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	998	(currentCharacter between:$A and:$Z)
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	999	or:[
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1000	currentCharacter == $_
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1001	or:[
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1002	(currentCharacter between:$a and:$l)
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1003	or:[ (currentCharacter between:$n and:$z) ]
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1004	]
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1005	]
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1006	])
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1007	ifTrue:[ ^ self scan1 ].
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1008	(currentCharacter between:$- and:$/) ifTrue:[
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1009	[
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1010	self recordMatch:#( 33 ).
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1011	self step.
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1012	(currentCharacter isLetterOrDigit
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1013	or:[ (currentCharacter between:$- and:$/) or:[ currentCharacter == $_ ] ])
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1014	] whileTrue.
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1015	^ self reportLastMatch
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1016	].
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1017	(currentCharacter == $m) ifTrue:[
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1018	self recordMatch:#( 30 33 ).
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1019	self step.
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1020	(currentCharacter isLetterOrDigit or:[ currentCharacter == $_ ]) ifTrue:[
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1021	^ self scan1
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1022	].
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1023	(currentCharacter between:$. and:$/) ifTrue:[
1 b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1024	[
3 110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1025	self recordMatch:#( 33 ).
1 b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1026	self step.
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1027	(currentCharacter isLetterOrDigit
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1028	or:[ (currentCharacter between:$- and:$/) or:[ currentCharacter == $_ ] ])
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1029	] whileTrue.
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1030	^ self reportLastMatch
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1031	].
3 110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1032	(currentCharacter == $-) ifTrue:[
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1033	self recordMatch:#( 33 ).
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1034	self step.
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1035	((currentCharacter between:$- and:$9)
1 b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1036	or:[
3 110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1037	(currentCharacter between:$A and:$Z)
1 b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1038	or:[
3 110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1039	currentCharacter == $_
1 b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1040	or:[
3 110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1041	(currentCharacter between:$a and:$e)
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1042	or:[ (currentCharacter between:$g and:$z) ]
1 b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1043	]
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1044	]
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1045	])
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1046	ifTrue:[
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1047	[
3 110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1048	self recordMatch:#( 33 ).
1 b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1049	self step.
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1050	(currentCharacter isLetterOrDigit
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1051	or:[ (currentCharacter between:$- and:$/) or:[ currentCharacter == $_ ] ])
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1052	] whileTrue.
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1053	^ self reportLastMatch
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1054	].
3 110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1055	(currentCharacter == $f) ifTrue:[
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1056	self recordMatch:#( 33 ).
1 b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1057	self step.
3 110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1058	(currentCharacter isXMLDigit
1 b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1059	or:[
3 110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1060	(currentCharacter between:$- and:$/)
1 b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1061	or:[
3 110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1062	(currentCharacter between:$A and:$Z)
1 b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1063	or:[
3 110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1064	currentCharacter == $_
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1065	or:[
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1066	(currentCharacter between:$a and:$n)
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1067	or:[ (currentCharacter between:$p and:$z) ]
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1068	]
1 b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1069	]
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1070	]
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1071	])
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1072	ifTrue:[
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1073	[
3 110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1074	self recordMatch:#( 33 ).
1 b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1075	self step.
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1076	(currentCharacter isLetterOrDigit
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1077	or:[ (currentCharacter between:$- and:$/) or:[ currentCharacter == $_ ] ])
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1078	] whileTrue.
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1079	^ self reportLastMatch
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1080	].
3 110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1081	(currentCharacter == $o) ifTrue:[
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1082	self recordMatch:#( 33 ).
1 b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1083	self step.
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1084	((currentCharacter between:$- and:$9)
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1085	or:[
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1086	(currentCharacter between:$A and:$Z)
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1087	or:[
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1088	currentCharacter == $_
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1089	or:[
3 110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1090	(currentCharacter between:$a and:$q)
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1091	or:[ (currentCharacter between:$s and:$z) ]
1 b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1092	]
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1093	]
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1094	])
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1095	ifTrue:[
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1096	[
3 110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1097	self recordMatch:#( 33 ).
1 b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1098	self step.
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1099	(currentCharacter isLetterOrDigit
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1100	or:[ (currentCharacter between:$- and:$/) or:[ currentCharacter == $_ ] ])
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1101	] whileTrue.
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1102	^ self reportLastMatch
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1103	].
3 110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1104	(currentCharacter == $r) ifTrue:[
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1105	self recordMatch:#( 33 ).
1 b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1106	self step.
3 110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1107	(currentCharacter isXMLDigit
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1108	or:[
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1109	(currentCharacter between:$- and:$/)
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1110	or:[
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1111	(currentCharacter between:$A and:$Z)
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1112	or:[
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1113	currentCharacter == $_
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1114	or:[
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1115	(currentCharacter between:$a and:$d)
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1116	or:[ (currentCharacter between:$f and:$z) ]
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1117	]
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1118	]
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1119	]
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1120	])
1 b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1121	ifTrue:[
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1122	[
3 110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1123	self recordMatch:#( 33 ).
1 b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1124	self step.
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1125	(currentCharacter isLetterOrDigit
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1126	or:[ (currentCharacter between:$- and:$/) or:[ currentCharacter == $_ ] ])
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1127	] whileTrue.
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1128	^ self reportLastMatch
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1129	].
3 110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1130	(currentCharacter == $e) ifTrue:[
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1131	self recordMatch:#( 33 ).
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1132	self step.
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1133	(currentCharacter isXMLDigit
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1134	or:[
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1135	(currentCharacter between:$- and:$/)
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1136	or:[
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1137	(currentCharacter between:$A and:$Z)
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1138	or:[
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1139	currentCharacter == $_
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1140	or:[
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1141	(currentCharacter between:$a and:$h)
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1142	or:[ (currentCharacter between:$j and:$z) ]
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1143	]
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1144	]
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1145	]
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1146	])
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1147	ifTrue:[
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1148	[
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1149	self recordMatch:#( 33 ).
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1150	self step.
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1151	(currentCharacter isLetterOrDigit
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1152	or:[ (currentCharacter between:$- and:$/) or:[ currentCharacter == $_ ] ])
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1153	] whileTrue.
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1154	^ self reportLastMatch
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1155	].
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1156	(currentCharacter == $i) ifTrue:[
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1157	self recordMatch:#( 33 ).
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1158	self step.
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1159	((currentCharacter between:$- and:$9)
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1160	or:[
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1161	(currentCharacter between:$A and:$Z)
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1162	or:[
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1163	currentCharacter == $_
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1164	or:[
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1165	(currentCharacter between:$a and:$f)
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1166	or:[ (currentCharacter between:$h and:$z) ]
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1167	]
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1168	]
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1169	])
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1170	ifTrue:[
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1171	[
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1172	self recordMatch:#( 33 ).
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1173	self step.
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1174	(currentCharacter isLetterOrDigit
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1175	or:[ (currentCharacter between:$- and:$/) or:[ currentCharacter == $_ ] ])
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1176	] whileTrue.
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1177	^ self reportLastMatch
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1178	].
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1179	(currentCharacter == $g) ifTrue:[
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1180	self recordMatch:#( 33 ).
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1181	self step.
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1182	((currentCharacter between:$- and:$9)
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1183	or:[
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1184	(currentCharacter between:$A and:$Z)
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1185	or:[
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1186	currentCharacter == $_
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1187	or:[
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1188	(currentCharacter between:$a and:$m)
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1189	or:[ (currentCharacter between:$o and:$z) ]
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1190	]
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1191	]
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1192	])
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1193	ifTrue:[
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1194	[
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1195	self recordMatch:#( 33 ).
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1196	self step.
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1197	(currentCharacter isLetterOrDigit
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1198	or:[ (currentCharacter between:$- and:$/) or:[ currentCharacter == $_ ] ])
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1199	] whileTrue.
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1200	^ self reportLastMatch
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1201	].
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1202	(currentCharacter == $n) ifTrue:[
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1203	self recordMatch:#( 18 33 ).
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1204	self step.
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1205	(currentCharacter isLetterOrDigit
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1206	or:[ (currentCharacter between:$- and:$/) or:[ currentCharacter == $_ ] ])
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1207	ifTrue:[
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1208	[
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1209	self recordMatch:#( 33 ).
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1210	self step.
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1211	(currentCharacter isLetterOrDigit
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1212	or:[ (currentCharacter between:$- and:$/) or:[ currentCharacter == $_ ] ])
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1213	] whileTrue.
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1214	^ self reportLastMatch
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1215	].
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1216	^ self reportLastMatch
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1217	].
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1218	^ self reportLastMatch
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1219	].
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1220	^ self reportLastMatch
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1221	].
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1222	^ self reportLastMatch
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1223	].
1 b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1224	^ self reportLastMatch
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1225	].
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1226	^ self reportLastMatch
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1227	].
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1228	^ self reportLastMatch
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1229	].
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1230	^ self reportLastMatch
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1231	].
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1232	^ self reportLastMatch
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1233	].
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1234	^ self reportLastMatch
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1235	].
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1236	^ self reportLastMatch
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1237	].
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1238	^ self reportLastMatch
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1239	].
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1240	(currentCharacter == $f) ifTrue:[
3 110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1241	self recordMatch:#( 30 33 ).
1 b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1242	self step.
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1243	(currentCharacter isXMLDigit
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1244	or:[
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1245	(currentCharacter between:$A and:$Z)
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1246	or:[
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1247	currentCharacter == $_
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1248	or:[
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1249	(currentCharacter between:$a and:$q)
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1250	or:[
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1251	(currentCharacter between:$s and:$t)
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1252	or:[ (currentCharacter between:$v and:$z) ]
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1253	]
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1254	]
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1255	]
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1256	])
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1257	ifTrue:[ ^ self scan1 ].
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1258	(currentCharacter between:$- and:$/) ifTrue:[
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1259	[
3 110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1260	self recordMatch:#( 33 ).
1 b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1261	self step.
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1262	(currentCharacter isLetterOrDigit
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1263	or:[ (currentCharacter between:$- and:$/) or:[ currentCharacter == $_ ] ])
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1264	] whileTrue.
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1265	^ self reportLastMatch
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1266	].
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1267	(currentCharacter == $r) ifTrue:[
3 110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1268	self recordMatch:#( 30 33 ).
1 b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1269	self step.
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1270	(currentCharacter isXMLDigit
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1271	or:[
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1272	(currentCharacter between:$A and:$Z)
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1273	or:[
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1274	currentCharacter == $_
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1275	or:[
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1276	(currentCharacter between:$a and:$n)
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1277	or:[ (currentCharacter between:$p and:$z) ]
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1278	]
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1279	]
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1280	])
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1281	ifTrue:[ ^ self scan1 ].
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1282	(currentCharacter between:$- and:$/) ifTrue:[
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1283	[
3 110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1284	self recordMatch:#( 33 ).
1 b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1285	self step.
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1286	(currentCharacter isLetterOrDigit
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1287	or:[ (currentCharacter between:$- and:$/) or:[ currentCharacter == $_ ] ])
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1288	] whileTrue.
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1289	^ self reportLastMatch
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1290	].
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1291	(currentCharacter == $o) ifTrue:[
3 110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1292	self recordMatch:#( 30 33 ).
1 b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1293	self step.
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1294	((currentCharacter between:$0 and:$9)
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1295	or:[
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1296	(currentCharacter between:$A and:$Z)
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1297	or:[
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1298	currentCharacter == $_
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1299	or:[
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1300	(currentCharacter between:$a and:$l)
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1301	or:[ (currentCharacter between:$n and:$z) ]
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1302	]
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1303	]
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1304	])
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1305	ifTrue:[ ^ self scan1 ].
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1306	(currentCharacter between:$- and:$/) ifTrue:[
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1307	[
3 110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1308	self recordMatch:#( 33 ).
1 b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1309	self step.
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1310	(currentCharacter isLetterOrDigit
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1311	or:[ (currentCharacter between:$- and:$/) or:[ currentCharacter == $_ ] ])
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1312	] whileTrue.
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1313	^ self reportLastMatch
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1314	].
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1315	(currentCharacter == $m) ifTrue:[
3 110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1316	self recordMatch:#( 30 33 ).
1 b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1317	self step.
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1318	(currentCharacter isLetterOrDigit or:[ currentCharacter == $_ ]) ifTrue:[
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1319	^ self scan1
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1320	].
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1321	(currentCharacter between:$- and:$/) ifTrue:[
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1322	[
3 110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1323	self recordMatch:#( 33 ).
1 b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1324	self step.
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1325	(currentCharacter isLetterOrDigit
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1326	or:[ (currentCharacter between:$- and:$/) or:[ currentCharacter == $_ ] ])
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1327	] whileTrue.
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1328	^ self reportLastMatch
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1329	].
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1330	(currentCharacter == $:) ifTrue:[
3 110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1331	^ self recordAndReportMatch:#( 10 ).
1 b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1332	].
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1333	^ self reportLastMatch
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1334	].
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1335	^ self reportLastMatch
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1336	].
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1337	^ self reportLastMatch
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1338	].
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1339	(currentCharacter == $u) ifTrue:[
3 110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1340	self recordMatch:#( 30 33 ).
1 b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1341	self step.
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1342	((currentCharacter between:$0 and:$9)
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1343	or:[
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1344	(currentCharacter between:$A and:$Z)
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1345	or:[
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1346	currentCharacter == $_
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1347	or:[
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1348	(currentCharacter between:$a and:$m)
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1349	or:[ (currentCharacter between:$o and:$z) ]
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1350	]
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1351	]
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1352	])
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1353	ifTrue:[ ^ self scan1 ].
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1354	(currentCharacter between:$- and:$/) ifTrue:[
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1355	[
3 110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1356	self recordMatch:#( 33 ).
1 b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1357	self step.
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1358	(currentCharacter isLetterOrDigit
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1359	or:[ (currentCharacter between:$- and:$/) or:[ currentCharacter == $_ ] ])
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1360	] whileTrue.
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1361	^ self reportLastMatch
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1362	].
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1363	(currentCharacter == $n) ifTrue:[
3 110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1364	self recordMatch:#( 30 33 ).
1 b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1365	self step.
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1366	((currentCharacter between:$0 and:$9)
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1367	or:[
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1368	(currentCharacter between:$A and:$Z)
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1369	or:[
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1370	currentCharacter == $_
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1371	or:[
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1372	(currentCharacter between:$a and:$b)
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1373	or:[ (currentCharacter between:$d and:$z) ]
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1374	]
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1375	]
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1376	])
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1377	ifTrue:[ ^ self scan1 ].
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1378	(currentCharacter between:$- and:$/) ifTrue:[
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1379	[
3 110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1380	self recordMatch:#( 33 ).
1 b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1381	self step.
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1382	(currentCharacter isLetterOrDigit
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1383	or:[ (currentCharacter between:$- and:$/) or:[ currentCharacter == $_ ] ])
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1384	] whileTrue.
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1385	^ self reportLastMatch
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1386	].
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1387	(currentCharacter == $c) ifTrue:[
3 110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1388	self recordMatch:#( 30 33 ).
1 b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1389	self step.
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1390	((currentCharacter between:$0 and:$9)
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1391	or:[
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1392	(currentCharacter between:$A and:$Z)
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1393	or:[
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1394	currentCharacter == $_
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1395	or:[
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1396	(currentCharacter between:$a and:$s)
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1397	or:[ (currentCharacter between:$u and:$z) ]
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1398	]
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1399	]
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1400	])
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1401	ifTrue:[ ^ self scan1 ].
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1402	(currentCharacter between:$- and:$/) ifTrue:[
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1403	[
3 110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1404	self recordMatch:#( 33 ).
1 b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1405	self step.
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1406	(currentCharacter isLetterOrDigit
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1407	or:[ (currentCharacter between:$- and:$/) or:[ currentCharacter == $_ ] ])
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1408	] whileTrue.
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1409	^ self reportLastMatch
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1410	].
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1411	(currentCharacter == $t) ifTrue:[
3 110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1412	self recordMatch:#( 30 33 ).
1 b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1413	self step.
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1414	(currentCharacter isXMLDigit
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1415	or:[
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1416	(currentCharacter between:$A and:$Z)
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1417	or:[
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1418	currentCharacter == $_
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1419	or:[
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1420	(currentCharacter between:$a and:$h)
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1421	or:[ (currentCharacter between:$j and:$z) ]
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1422	]
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1423	]
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1424	])
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1425	ifTrue:[ ^ self scan1 ].
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1426	(currentCharacter between:$- and:$/) ifTrue:[
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1427	[
3 110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1428	self recordMatch:#( 33 ).
1 b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1429	self step.
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1430	(currentCharacter isLetterOrDigit
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1431	or:[ (currentCharacter between:$- and:$/) or:[ currentCharacter == $_ ] ])
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1432	] whileTrue.
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1433	^ self reportLastMatch
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1434	].
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1435	(currentCharacter == $i) ifTrue:[
3 110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1436	self recordMatch:#( 30 33 ).
1 b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1437	self step.
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1438	(currentCharacter isXMLDigit
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1439	or:[
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1440	(currentCharacter between:$A and:$Z)
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1441	or:[
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1442	currentCharacter == $_
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1443	or:[
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1444	(currentCharacter between:$a and:$n)
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1445	or:[ (currentCharacter between:$p and:$z) ]
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1446	]
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1447	]
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1448	])
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1449	ifTrue:[ ^ self scan1 ].
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1450	(currentCharacter between:$- and:$/) ifTrue:[
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1451	[
3 110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1452	self recordMatch:#( 33 ).
1 b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1453	self step.
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1454	(currentCharacter isLetterOrDigit
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1455	or:[ (currentCharacter between:$- and:$/) or:[ currentCharacter == $_ ] ])
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1456	] whileTrue.
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1457	^ self reportLastMatch
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1458	].
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1459	(currentCharacter == $o) ifTrue:[
3 110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1460	self recordMatch:#( 30 33 ).
1 b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1461	self step.
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1462	((currentCharacter between:$0 and:$9)
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1463	or:[
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1464	(currentCharacter between:$A and:$Z)
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1465	or:[
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1466	currentCharacter == $_
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1467	or:[
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1468	(currentCharacter between:$a and:$m)
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1469	or:[ (currentCharacter between:$o and:$z) ]
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1470	]
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1471	]
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1472	])
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1473	ifTrue:[ ^ self scan1 ].
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1474	(currentCharacter between:$- and:$/) ifTrue:[
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1475	[
3 110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1476	self recordMatch:#( 33 ).
1 b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1477	self step.
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1478	(currentCharacter isLetterOrDigit
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1479	or:[ (currentCharacter between:$- and:$/) or:[ currentCharacter == $_ ] ])
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1480	] whileTrue.
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1481	^ self reportLastMatch
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1482	].
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1483	(currentCharacter == $n) ifTrue:[
3 110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1484	self recordMatch:#( 30 33 ).
1 b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1485	self step.
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1486	(currentCharacter isLetterOrDigit or:[ currentCharacter == $_ ]) ifTrue:[
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1487	^ self scan1
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1488	].
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1489	(currentCharacter between:$. and:$/) ifTrue:[
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1490	[
3 110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1491	self recordMatch:#( 33 ).
1 b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1492	self step.
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1493	(currentCharacter isLetterOrDigit
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1494	or:[ (currentCharacter between:$- and:$/) or:[ currentCharacter == $_ ] ])
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1495	] whileTrue.
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1496	^ self reportLastMatch
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1497	].
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1498	(currentCharacter == $-) ifTrue:[
3 110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1499	self recordMatch:#( 33 ).
1 b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1500	self step.
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1501	((currentCharacter between:$- and:$9)
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1502	or:[
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1503	(currentCharacter between:$A and:$Z)
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1504	or:[
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1505	currentCharacter == $_
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1506	or:[
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1507	(currentCharacter between:$a and:$s)
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1508	or:[ (currentCharacter between:$u and:$z) ]
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1509	]
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1510	]
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1511	])
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1512	ifTrue:[
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1513	[
3 110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1514	self recordMatch:#( 33 ).
1 b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1515	self step.
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1516	(currentCharacter isLetterOrDigit
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1517	or:[ (currentCharacter between:$- and:$/) or:[ currentCharacter == $_ ] ])
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1518	] whileTrue.
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1519	^ self reportLastMatch
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1520	].
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1521	(currentCharacter == $t) ifTrue:[
3 110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1522	self recordMatch:#( 33 ).
1 b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1523	self step.
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1524	((currentCharacter between:$- and:$9)
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1525	or:[
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1526	(currentCharacter between:$A and:$Z)
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1527	or:[
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1528	currentCharacter == $_
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1529	or:[ (currentCharacter between:$a and:$x) or:[ currentCharacter == $z ] ]
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1530	]
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1531	])
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1532	ifTrue:[
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1533	[
3 110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1534	self recordMatch:#( 33 ).
1 b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1535	self step.
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1536	(currentCharacter isLetterOrDigit
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1537	or:[ (currentCharacter between:$- and:$/) or:[ currentCharacter == $_ ] ])
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1538	] whileTrue.
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1539	^ self reportLastMatch
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1540	].
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1541	(currentCharacter == $y) ifTrue:[
3 110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1542	self recordMatch:#( 33 ).
1 b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1543	self step.
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1544	((currentCharacter between:$- and:$9)
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1545	or:[
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1546	(currentCharacter between:$A and:$Z)
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1547	or:[
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1548	currentCharacter == $_
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1549	or:[
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1550	(currentCharacter between:$a and:$o)
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1551	or:[ (currentCharacter between:$q and:$z) ]
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1552	]
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1553	]
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1554	])
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1555	ifTrue:[
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1556	[
3 110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1557	self recordMatch:#( 33 ).
1 b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1558	self step.
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1559	(currentCharacter isLetterOrDigit
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1560	or:[ (currentCharacter between:$- and:$/) or:[ currentCharacter == $_ ] ])
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1561	] whileTrue.
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1562	^ self reportLastMatch
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1563	].
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1564	(currentCharacter == $p) ifTrue:[
3 110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1565	self recordMatch:#( 33 ).
1 b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1566	self step.
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1567	(currentCharacter isXMLDigit
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1568	or:[
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1569	(currentCharacter between:$- and:$/)
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1570	or:[
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1571	(currentCharacter between:$A and:$Z)
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1572	or:[
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1573	currentCharacter == $_
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1574	or:[
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1575	(currentCharacter between:$a and:$d)
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1576	or:[ (currentCharacter between:$f and:$z) ]
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1577	]
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1578	]
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1579	]
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1580	])
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1581	ifTrue:[
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1582	[
3 110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1583	self recordMatch:#( 33 ).
1 b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1584	self step.
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1585	(currentCharacter isLetterOrDigit
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1586	or:[ (currentCharacter between:$- and:$/) or:[ currentCharacter == $_ ] ])
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1587	] whileTrue.
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1588	^ self reportLastMatch
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1589	].
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1590	(currentCharacter == $e) ifTrue:[
3 110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1591	self recordMatch:#( 4 33 ).
1 b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1592	self step.
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1593	(currentCharacter isLetterOrDigit
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1594	or:[ (currentCharacter between:$- and:$/) or:[ currentCharacter == $_ ] ])
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1595	ifTrue:[
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1596	[
3 110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1597	self recordMatch:#( 33 ).
1 b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1598	self step.
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1599	(currentCharacter isLetterOrDigit
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1600	or:[ (currentCharacter between:$- and:$/) or:[ currentCharacter == $_ ] ])
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1601	] whileTrue.
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1602	^ self reportLastMatch
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1603	].
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1604	^ self reportLastMatch
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1605	].
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1606	^ self reportLastMatch
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1607	].
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1608	^ self reportLastMatch
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1609	].
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1610	^ self reportLastMatch
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1611	].
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1612	^ self reportLastMatch
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1613	].
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1614	^ self reportLastMatch
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1615	].
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1616	^ self reportLastMatch
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1617	].
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1618	^ self reportLastMatch
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1619	].
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1620	^ self reportLastMatch
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1621	].
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1622	^ self reportLastMatch
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1623	].
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1624	^ self reportLastMatch
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1625	].
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1626	^ self reportLastMatch
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1627	].
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1628	^ self reportLastMatch
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1629	].
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1630	(currentCharacter == $p) ifTrue:[
3 110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1631	self recordMatch:#( 30 33 ).
1 b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1632	self step.
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1633	(currentCharacter isXMLDigit
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1634	or:[
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1635	(currentCharacter between:$A and:$Z)
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1636	or:[
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1637	currentCharacter == $_
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1638	or:[
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1639	(currentCharacter between:$a and:$n)
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1640	or:[ (currentCharacter between:$p and:$z) ]
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1641	]
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1642	]
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1643	])
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1644	ifTrue:[ ^ self scan1 ].
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1645	(currentCharacter between:$- and:$/) ifTrue:[
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1646	[
3 110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1647	self recordMatch:#( 33 ).
1 b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1648	self step.
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1649	(currentCharacter isLetterOrDigit
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1650	or:[ (currentCharacter between:$- and:$/) or:[ currentCharacter == $_ ] ])
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1651	] whileTrue.
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1652	^ self reportLastMatch
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1653	].
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1654	(currentCharacter == $o) ifTrue:[
3 110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1655	self recordMatch:#( 30 33 ).
1 b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1656	self step.
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1657	(currentCharacter isXMLDigit
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1658	or:[
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1659	(currentCharacter between:$A and:$Z)
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1660	or:[
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1661	currentCharacter == $_
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1662	or:[
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1663	(currentCharacter between:$a and:$h)
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1664	or:[ (currentCharacter between:$j and:$z) ]
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1665	]
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1666	]
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1667	])
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1668	ifTrue:[ ^ self scan1 ].
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1669	(currentCharacter between:$- and:$/) ifTrue:[
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1670	[
3 110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1671	self recordMatch:#( 33 ).
1 b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1672	self step.
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1673	(currentCharacter isLetterOrDigit
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1674	or:[ (currentCharacter between:$- and:$/) or:[ currentCharacter == $_ ] ])
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1675	] whileTrue.
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1676	^ self reportLastMatch
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1677	].
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1678	(currentCharacter == $i) ifTrue:[
3 110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1679	self recordMatch:#( 30 33 ).
1 b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1680	self step.
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1681	((currentCharacter between:$0 and:$9)
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1682	or:[
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1683	(currentCharacter between:$A and:$Z)
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1684	or:[
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1685	currentCharacter == $_
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1686	or:[
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1687	(currentCharacter between:$a and:$m)
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1688	or:[ (currentCharacter between:$o and:$z) ]
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1689	]
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1690	]
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1691	])
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1692	ifTrue:[ ^ self scan1 ].
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1693	(currentCharacter between:$- and:$/) ifTrue:[
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1694	[
3 110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1695	self recordMatch:#( 33 ).
1 b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1696	self step.
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1697	(currentCharacter isLetterOrDigit
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1698	or:[ (currentCharacter between:$- and:$/) or:[ currentCharacter == $_ ] ])
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1699	] whileTrue.
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1700	^ self reportLastMatch
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1701	].
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1702	(currentCharacter == $n) ifTrue:[
3 110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1703	self recordMatch:#( 30 33 ).
1 b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1704	self step.
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1705	((currentCharacter between:$0 and:$9)
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1706	or:[
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1707	(currentCharacter between:$A and:$Z)
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1708	or:[
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1709	currentCharacter == $_
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1710	or:[
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1711	(currentCharacter between:$a and:$s)
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1712	or:[ (currentCharacter between:$u and:$z) ]
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1713	]
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1714	]
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1715	])
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1716	ifTrue:[ ^ self scan1 ].
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1717	(currentCharacter between:$- and:$/) ifTrue:[
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1718	[
3 110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1719	self recordMatch:#( 33 ).
1 b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1720	self step.
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1721	(currentCharacter isLetterOrDigit
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1722	or:[ (currentCharacter between:$- and:$/) or:[ currentCharacter == $_ ] ])
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1723	] whileTrue.
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1724	^ self reportLastMatch
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1725	].
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1726	(currentCharacter == $t) ifTrue:[
3 110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1727	self recordMatch:#( 30 33 ).
1 b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1728	self step.
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1729	(currentCharacter isXMLDigit
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1730	or:[
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1731	(currentCharacter between:$A and:$Z)
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1732	or:[
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1733	currentCharacter == $_
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1734	or:[
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1735	(currentCharacter between:$a and:$d)
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1736	or:[ (currentCharacter between:$f and:$z) ]
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1737	]
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1738	]
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1739	])
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1740	ifTrue:[ ^ self scan1 ].
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1741	(currentCharacter between:$- and:$/) ifTrue:[
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1742	[
3 110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1743	self recordMatch:#( 33 ).
1 b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1744	self step.
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1745	(currentCharacter isLetterOrDigit
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1746	or:[ (currentCharacter between:$- and:$/) or:[ currentCharacter == $_ ] ])
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1747	] whileTrue.
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1748	^ self reportLastMatch
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1749	].
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1750	(currentCharacter == $e) ifTrue:[
3 110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1751	self recordMatch:#( 30 33 ).
1 b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1752	self step.
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1753	((currentCharacter between:$0 and:$9)
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1754	or:[
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1755	(currentCharacter between:$A and:$Z)
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1756	or:[
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1757	currentCharacter == $_
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1758	or:[
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1759	(currentCharacter between:$a and:$q)
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1760	or:[ (currentCharacter between:$s and:$z) ]
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1761	]
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1762	]
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1763	])
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1764	ifTrue:[ ^ self scan1 ].
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1765	(currentCharacter between:$- and:$/) ifTrue:[
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1766	[
3 110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1767	self recordMatch:#( 33 ).
1 b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1768	self step.
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1769	(currentCharacter isLetterOrDigit
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1770	or:[ (currentCharacter between:$- and:$/) or:[ currentCharacter == $_ ] ])
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1771	] whileTrue.
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1772	^ self reportLastMatch
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1773	].
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1774	(currentCharacter == $r) ifTrue:[
3 110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1775	self recordMatch:#( 30 33 ).
1 b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1776	self step.
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1777	(currentCharacter isLetterOrDigit or:[ currentCharacter == $_ ]) ifTrue:[
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1778	^ self scan1
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1779	].
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1780	(currentCharacter between:$. and:$/) ifTrue:[
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1781	[
3 110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1782	self recordMatch:#( 33 ).
1 b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1783	self step.
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1784	(currentCharacter isLetterOrDigit
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1785	or:[ (currentCharacter between:$- and:$/) or:[ currentCharacter == $_ ] ])
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1786	] whileTrue.
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1787	^ self reportLastMatch
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1788	].
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1789	(currentCharacter == $-) ifTrue:[
3 110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1790	self recordMatch:#( 33 ).
1 b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1791	self step.
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1792	((currentCharacter between:$- and:$9)
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1793	or:[
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1794	(currentCharacter between:$A and:$Z)
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1795	or:[
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1796	currentCharacter == $_
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1797	or:[
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1798	(currentCharacter between:$a and:$s)
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1799	or:[ (currentCharacter between:$u and:$z) ]
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1800	]
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1801	]
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1802	])
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1803	ifTrue:[
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1804	[
3 110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1805	self recordMatch:#( 33 ).
1 b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1806	self step.
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1807	(currentCharacter isLetterOrDigit
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1808	or:[ (currentCharacter between:$- and:$/) or:[ currentCharacter == $_ ] ])
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1809	] whileTrue.
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1810	^ self reportLastMatch
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1811	].
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1812	(currentCharacter == $t) ifTrue:[
3 110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1813	self recordMatch:#( 33 ).
1 b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1814	self step.
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1815	(currentCharacter isXMLDigit
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1816	or:[
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1817	(currentCharacter between:$- and:$/)
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1818	or:[
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1819	(currentCharacter between:$A and:$Z)
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1820	or:[
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1821	currentCharacter == $_
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1822	or:[
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1823	(currentCharacter between:$a and:$n)
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1824	or:[ (currentCharacter between:$p and:$z) ]
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1825	]
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1826	]
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1827	]
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1828	])
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1829	ifTrue:[
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1830	[
3 110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1831	self recordMatch:#( 33 ).
1 b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1832	self step.
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1833	(currentCharacter isLetterOrDigit
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1834	or:[ (currentCharacter between:$- and:$/) or:[ currentCharacter == $_ ] ])
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1835	] whileTrue.
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1836	^ self reportLastMatch
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1837	].
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1838	(currentCharacter == $o) ifTrue:[
3 110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1839	self recordMatch:#( 29 33 ).
1 b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1840	self step.
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1841	(currentCharacter isLetterOrDigit
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1842	or:[ (currentCharacter between:$- and:$/) or:[ currentCharacter == $_ ] ])
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1843	ifTrue:[
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1844	[
3 110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1845	self recordMatch:#( 33 ).
1 b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1846	self step.
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1847	(currentCharacter isLetterOrDigit
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1848	or:[ (currentCharacter between:$- and:$/) or:[ currentCharacter == $_ ] ])
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1849	] whileTrue.
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1850	^ self reportLastMatch
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1851	].
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1852	^ self reportLastMatch
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1853	].
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1854	^ self reportLastMatch
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1855	].
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1856	^ self reportLastMatch
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1857	].
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1858	^ self reportLastMatch
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1859	].
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1860	^ self reportLastMatch
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1861	].
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1862	^ self reportLastMatch
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1863	].
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1864	^ self reportLastMatch
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1865	].
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1866	^ self reportLastMatch
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1867	].
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1868	^ self reportLastMatch
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1869	].
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1870	^ self reportLastMatch
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1871	].
3 110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1872	(currentCharacter == $s) ifTrue:[
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1873	self recordMatch:#( 30 33 ).
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1874	self step.
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1875	((currentCharacter between:$0 and:$9)
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1876	or:[
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1877	(currentCharacter between:$A and:$Z)
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1878	or:[
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1879	currentCharacter == $_
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1880	or:[
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1881	(currentCharacter between:$a and:$s)
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1882	or:[ (currentCharacter between:$u and:$z) ]
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1883	]
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1884	]
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1885	])
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1886	ifTrue:[ ^ self scan1 ].
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1887	(currentCharacter between:$- and:$/) ifTrue:[
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1888	[
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1889	self recordMatch:#( 33 ).
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1890	self step.
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1891	(currentCharacter isLetterOrDigit
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1892	or:[ (currentCharacter between:$- and:$/) or:[ currentCharacter == $_ ] ])
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1893	] whileTrue.
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1894	^ self reportLastMatch
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1895	].
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1896	(currentCharacter == $t) ifTrue:[
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1897	self recordMatch:#( 30 33 ).
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1898	self step.
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1899	((currentCharacter between:$0 and:$9)
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1900	or:[
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1901	(currentCharacter between:$A and:$Z)
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1902	or:[
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1903	currentCharacter == $_
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1904	or:[
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1905	(currentCharacter between:$a and:$q)
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1906	or:[ (currentCharacter between:$s and:$z) ]
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1907	]
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1908	]
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1909	])
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1910	ifTrue:[ ^ self scan1 ].
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1911	(currentCharacter between:$- and:$/) ifTrue:[
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1912	[
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1913	self recordMatch:#( 33 ).
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1914	self step.
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1915	(currentCharacter isLetterOrDigit
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1916	or:[ (currentCharacter between:$- and:$/) or:[ currentCharacter == $_ ] ])
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1917	] whileTrue.
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1918	^ self reportLastMatch
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1919	].
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1920	(currentCharacter == $r) ifTrue:[
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1921	self recordMatch:#( 30 33 ).
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1922	self step.
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1923	(currentCharacter isXMLDigit
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1924	or:[
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1925	(currentCharacter between:$A and:$Z)
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1926	or:[
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1927	currentCharacter == $_
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1928	or:[
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1929	(currentCharacter between:$a and:$t)
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1930	or:[ (currentCharacter between:$v and:$z) ]
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1931	]
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1932	]
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1933	])
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1934	ifTrue:[ ^ self scan1 ].
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1935	(currentCharacter between:$- and:$/) ifTrue:[
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1936	[
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1937	self recordMatch:#( 33 ).
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1938	self step.
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1939	(currentCharacter isLetterOrDigit
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1940	or:[ (currentCharacter between:$- and:$/) or:[ currentCharacter == $_ ] ])
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1941	] whileTrue.
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1942	^ self reportLastMatch
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1943	].
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1944	(currentCharacter == $u) ifTrue:[
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1945	self recordMatch:#( 30 33 ).
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1946	self step.
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1947	((currentCharacter between:$0 and:$9)
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1948	or:[
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1949	(currentCharacter between:$A and:$Z)
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1950	or:[
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1951	currentCharacter == $_
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1952	or:[
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1953	(currentCharacter between:$a and:$b)
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1954	or:[ (currentCharacter between:$d and:$z) ]
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1955	]
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1956	]
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1957	])
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1958	ifTrue:[ ^ self scan1 ].
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1959	(currentCharacter between:$- and:$/) ifTrue:[
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1960	[
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1961	self recordMatch:#( 33 ).
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1962	self step.
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1963	(currentCharacter isLetterOrDigit
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1964	or:[ (currentCharacter between:$- and:$/) or:[ currentCharacter == $_ ] ])
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1965	] whileTrue.
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1966	^ self reportLastMatch
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1967	].
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1968	(currentCharacter == $c) ifTrue:[
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1969	self recordMatch:#( 30 33 ).
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1970	self step.
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1971	((currentCharacter between:$0 and:$9)
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1972	or:[
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1973	(currentCharacter between:$A and:$Z)
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1974	or:[
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1975	currentCharacter == $_
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1976	or:[
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1977	(currentCharacter between:$a and:$s)
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1978	or:[ (currentCharacter between:$u and:$z) ]
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1979	]
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1980	]
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1981	])
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1982	ifTrue:[ ^ self scan1 ].
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1983	(currentCharacter between:$- and:$/) ifTrue:[
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1984	[
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1985	self recordMatch:#( 33 ).
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1986	self step.
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1987	(currentCharacter isLetterOrDigit
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1988	or:[ (currentCharacter between:$- and:$/) or:[ currentCharacter == $_ ] ])
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1989	] whileTrue.
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1990	^ self reportLastMatch
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1991	].
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1992	(currentCharacter == $t) ifTrue:[
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1993	self recordMatch:#( 30 33 ).
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1994	self step.
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1995	(currentCharacter isLetterOrDigit or:[ currentCharacter == $_ ]) ifTrue:[
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1996	^ self scan1
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1997	].
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1998	(currentCharacter between:$. and:$/) ifTrue:[
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	1999	[
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2000	self recordMatch:#( 33 ).
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2001	self step.
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2002	(currentCharacter isLetterOrDigit
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2003	or:[ (currentCharacter between:$- and:$/) or:[ currentCharacter == $_ ] ])
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2004	] whileTrue.
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2005	^ self reportLastMatch
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2006	].
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2007	(currentCharacter == $-) ifTrue:[
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2008	self recordMatch:#( 33 ).
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2009	self step.
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2010	((currentCharacter between:$- and:$9)
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2011	or:[
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2012	(currentCharacter between:$A and:$Z)
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2013	or:[
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2014	currentCharacter == $_
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2015	or:[
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2016	(currentCharacter between:$a and:$e)
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2017	or:[ (currentCharacter between:$g and:$z) ]
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2018	]
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2019	]
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2020	])
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2021	ifTrue:[
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2022	[
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2023	self recordMatch:#( 33 ).
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2024	self step.
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2025	(currentCharacter isLetterOrDigit
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2026	or:[ (currentCharacter between:$- and:$/) or:[ currentCharacter == $_ ] ])
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2027	] whileTrue.
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2028	^ self reportLastMatch
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2029	].
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2030	(currentCharacter == $f) ifTrue:[
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2031	self recordMatch:#( 33 ).
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2032	self step.
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2033	(currentCharacter isXMLDigit
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2034	or:[
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2035	(currentCharacter between:$- and:$/)
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2036	or:[
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2037	(currentCharacter between:$A and:$Z)
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2038	or:[
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2039	currentCharacter == $_
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2040	or:[
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2041	(currentCharacter between:$a and:$n)
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2042	or:[ (currentCharacter between:$p and:$z) ]
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2043	]
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2044	]
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2045	]
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2046	])
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2047	ifTrue:[
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2048	[
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2049	self recordMatch:#( 33 ).
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2050	self step.
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2051	(currentCharacter isLetterOrDigit
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2052	or:[ (currentCharacter between:$- and:$/) or:[ currentCharacter == $_ ] ])
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2053	] whileTrue.
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2054	^ self reportLastMatch
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2055	].
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2056	(currentCharacter == $o) ifTrue:[
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2057	self recordMatch:#( 33 ).
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2058	self step.
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2059	((currentCharacter between:$- and:$9)
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2060	or:[
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2061	(currentCharacter between:$A and:$Z)
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2062	or:[
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2063	currentCharacter == $_
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2064	or:[
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2065	(currentCharacter between:$a and:$q)
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2066	or:[ (currentCharacter between:$s and:$z) ]
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2067	]
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2068	]
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2069	])
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2070	ifTrue:[
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2071	[
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2072	self recordMatch:#( 33 ).
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2073	self step.
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2074	(currentCharacter isLetterOrDigit
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2075	or:[ (currentCharacter between:$- and:$/) or:[ currentCharacter == $_ ] ])
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2076	] whileTrue.
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2077	^ self reportLastMatch
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2078	].
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2079	(currentCharacter == $r) ifTrue:[
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2080	self recordMatch:#( 33 ).
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2081	self step.
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2082	(currentCharacter isXMLDigit
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2083	or:[
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2084	(currentCharacter between:$- and:$/)
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2085	or:[
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2086	(currentCharacter between:$A and:$Z)
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2087	or:[
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2088	currentCharacter == $_
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2089	or:[
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2090	(currentCharacter between:$a and:$d)
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2091	or:[ (currentCharacter between:$f and:$z) ]
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2092	]
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2093	]
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2094	]
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2095	])
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2096	ifTrue:[
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2097	[
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2098	self recordMatch:#( 33 ).
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2099	self step.
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2100	(currentCharacter isLetterOrDigit
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2101	or:[ (currentCharacter between:$- and:$/) or:[ currentCharacter == $_ ] ])
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2102	] whileTrue.
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2103	^ self reportLastMatch
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2104	].
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2105	(currentCharacter == $e) ifTrue:[
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2106	self recordMatch:#( 33 ).
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2107	self step.
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2108	(currentCharacter isXMLDigit
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2109	or:[
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2110	(currentCharacter between:$- and:$/)
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2111	or:[
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2112	(currentCharacter between:$A and:$Z)
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2113	or:[
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2114	currentCharacter == $_
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2115	or:[
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2116	(currentCharacter between:$a and:$h)
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2117	or:[ (currentCharacter between:$j and:$z) ]
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2118	]
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2119	]
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2120	]
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2121	])
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2122	ifTrue:[
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2123	[
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2124	self recordMatch:#( 33 ).
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2125	self step.
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2126	(currentCharacter isLetterOrDigit
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2127	or:[ (currentCharacter between:$- and:$/) or:[ currentCharacter == $_ ] ])
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2128	] whileTrue.
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2129	^ self reportLastMatch
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2130	].
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2131	(currentCharacter == $i) ifTrue:[
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2132	self recordMatch:#( 33 ).
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2133	self step.
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2134	((currentCharacter between:$- and:$9)
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2135	or:[
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2136	(currentCharacter between:$A and:$Z)
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2137	or:[
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2138	currentCharacter == $_
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2139	or:[
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2140	(currentCharacter between:$a and:$f)
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2141	or:[ (currentCharacter between:$h and:$z) ]
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2142	]
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2143	]
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2144	])
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2145	ifTrue:[
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2146	[
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2147	self recordMatch:#( 33 ).
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2148	self step.
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2149	(currentCharacter isLetterOrDigit
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2150	or:[ (currentCharacter between:$- and:$/) or:[ currentCharacter == $_ ] ])
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2151	] whileTrue.
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2152	^ self reportLastMatch
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2153	].
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2154	(currentCharacter == $g) ifTrue:[
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2155	self recordMatch:#( 33 ).
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2156	self step.
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2157	((currentCharacter between:$- and:$9)
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2158	or:[
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2159	(currentCharacter between:$A and:$Z)
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2160	or:[
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2161	currentCharacter == $_
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2162	or:[
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2163	(currentCharacter between:$a and:$m)
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2164	or:[ (currentCharacter between:$o and:$z) ]
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2165	]
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2166	]
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2167	])
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2168	ifTrue:[
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2169	[
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2170	self recordMatch:#( 33 ).
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2171	self step.
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2172	(currentCharacter isLetterOrDigit
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2173	or:[ (currentCharacter between:$- and:$/) or:[ currentCharacter == $_ ] ])
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2174	] whileTrue.
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2175	^ self reportLastMatch
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2176	].
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2177	(currentCharacter == $n) ifTrue:[
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2178	self recordMatch:#( 27 33 ).
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2179	self step.
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2180	(currentCharacter isLetterOrDigit
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2181	or:[ (currentCharacter between:$- and:$/) or:[ currentCharacter == $_ ] ])
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2182	ifTrue:[
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2183	[
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2184	self recordMatch:#( 33 ).
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2185	self step.
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2186	(currentCharacter isLetterOrDigit
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2187	or:[ (currentCharacter between:$- and:$/) or:[ currentCharacter == $_ ] ])
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2188	] whileTrue.
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2189	^ self reportLastMatch
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2190	].
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2191	^ self reportLastMatch
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2192	].
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2193	^ self reportLastMatch
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2194	].
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2195	^ self reportLastMatch
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2196	].
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2197	^ self reportLastMatch
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2198	].
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2199	^ self reportLastMatch
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2200	].
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2201	^ self reportLastMatch
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2202	].
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2203	^ self reportLastMatch
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2204	].
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2205	^ self reportLastMatch
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2206	].
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2207	^ self reportLastMatch
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2208	].
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2209	^ self reportLastMatch
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2210	].
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2211	^ self reportLastMatch
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2212	].
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2213	^ self reportLastMatch
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2214	].
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2215	^ self reportLastMatch
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2216	].
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2217	^ self reportLastMatch
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2218	].
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2219	(currentCharacter == $t) ifTrue:[
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2220	self recordMatch:#( 30 33 ).
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2221	self step.
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2222	((currentCharacter between:$0 and:$9)
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2223	or:[
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2224	(currentCharacter between:$A and:$Z)
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2225	or:[
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2226	currentCharacter == $_
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2227	or:[ (currentCharacter between:$a and:$x) or:[ currentCharacter == $z ] ]
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2228	]
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2229	])
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2230	ifTrue:[ ^ self scan1 ].
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2231	(currentCharacter between:$- and:$/) ifTrue:[
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2232	[
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2233	self recordMatch:#( 33 ).
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2234	self step.
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2235	(currentCharacter isLetterOrDigit
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2236	or:[ (currentCharacter between:$- and:$/) or:[ currentCharacter == $_ ] ])
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2237	] whileTrue.
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2238	^ self reportLastMatch
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2239	].
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2240	(currentCharacter == $y) ifTrue:[
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2241	self recordMatch:#( 30 33 ).
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2242	self step.
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2243	((currentCharacter between:$0 and:$9)
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2244	or:[
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2245	(currentCharacter between:$A and:$Z)
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2246	or:[
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2247	currentCharacter == $_
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2248	or:[
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2249	(currentCharacter between:$a and:$o)
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2250	or:[ (currentCharacter between:$q and:$z) ]
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2251	]
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2252	]
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2253	])
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2254	ifTrue:[ ^ self scan1 ].
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2255	(currentCharacter between:$- and:$/) ifTrue:[
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2256	[
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2257	self recordMatch:#( 33 ).
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2258	self step.
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2259	(currentCharacter isLetterOrDigit
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2260	or:[ (currentCharacter between:$- and:$/) or:[ currentCharacter == $_ ] ])
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2261	] whileTrue.
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2262	^ self reportLastMatch
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2263	].
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2264	(currentCharacter == $p) ifTrue:[
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2265	self recordMatch:#( 30 33 ).
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2266	self step.
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2267	(currentCharacter isXMLDigit
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2268	or:[
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2269	(currentCharacter between:$A and:$Z)
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2270	or:[
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2271	currentCharacter == $_
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2272	or:[
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2273	(currentCharacter between:$a and:$d)
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2274	or:[ (currentCharacter between:$f and:$z) ]
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2275	]
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2276	]
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2277	])
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2278	ifTrue:[ ^ self scan1 ].
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2279	(currentCharacter between:$- and:$/) ifTrue:[
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2280	[
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2281	self recordMatch:#( 33 ).
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2282	self step.
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2283	(currentCharacter isLetterOrDigit
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2284	or:[ (currentCharacter between:$- and:$/) or:[ currentCharacter == $_ ] ])
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2285	] whileTrue.
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2286	^ self reportLastMatch
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2287	].
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2288	(currentCharacter == $e) ifTrue:[
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2289	self recordMatch:#( 30 33 ).
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2290	self step.
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2291	((currentCharacter between:$0 and:$9)
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2292	or:[
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2293	(currentCharacter between:$A and:$Z)
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2294	or:[
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2295	currentCharacter == $_
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2296	or:[
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2297	(currentCharacter between:$a and:$c)
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2298	or:[ (currentCharacter between:$e and:$z) ]
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2299	]
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2300	]
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2301	])
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2302	ifTrue:[ ^ self scan1 ].
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2303	(currentCharacter between:$- and:$/) ifTrue:[
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2304	[
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2305	self recordMatch:#( 33 ).
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2306	self step.
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2307	(currentCharacter isLetterOrDigit
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2308	or:[ (currentCharacter between:$- and:$/) or:[ currentCharacter == $_ ] ])
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2309	] whileTrue.
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2310	^ self reportLastMatch
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2311	].
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2312	(currentCharacter == $d) ifTrue:[
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2313	self recordMatch:#( 30 33 ).
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2314	self step.
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2315	(currentCharacter isXMLDigit
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2316	or:[
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2317	(currentCharacter between:$A and:$Z)
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2318	or:[
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2319	currentCharacter == $_
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2320	or:[
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2321	(currentCharacter between:$a and:$d)
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2322	or:[ (currentCharacter between:$f and:$z) ]
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2323	]
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2324	]
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2325	])
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2326	ifTrue:[ ^ self scan1 ].
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2327	(currentCharacter between:$- and:$/) ifTrue:[
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2328	[
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2329	self recordMatch:#( 33 ).
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2330	self step.
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2331	(currentCharacter isLetterOrDigit
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2332	or:[ (currentCharacter between:$- and:$/) or:[ currentCharacter == $_ ] ])
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2333	] whileTrue.
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2334	^ self reportLastMatch
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2335	].
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2336	(currentCharacter == $e) ifTrue:[
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2337	self recordMatch:#( 30 33 ).
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2338	self step.
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2339	((currentCharacter between:$0 and:$9)
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2340	or:[
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2341	(currentCharacter between:$A and:$Z)
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2342	or:[
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2343	currentCharacter == $_
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2344	or:[
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2345	(currentCharacter between:$a and:$e)
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2346	or:[ (currentCharacter between:$g and:$z) ]
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2347	]
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2348	]
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2349	])
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2350	ifTrue:[ ^ self scan1 ].
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2351	(currentCharacter between:$- and:$/) ifTrue:[
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2352	[
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2353	self recordMatch:#( 33 ).
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2354	self step.
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2355	(currentCharacter isLetterOrDigit
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2356	or:[ (currentCharacter between:$- and:$/) or:[ currentCharacter == $_ ] ])
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2357	] whileTrue.
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2358	^ self reportLastMatch
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2359	].
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2360	(currentCharacter == $f) ifTrue:[
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2361	self recordMatch:#( 30 33 ).
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2362	self step.
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2363	(currentCharacter isLetterOrDigit or:[ currentCharacter == $_ ]) ifTrue:[
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2364	^ self scan1
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2365	].
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2366	(currentCharacter between:$. and:$/) ifTrue:[
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2367	[
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2368	self recordMatch:#( 33 ).
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2369	self step.
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2370	(currentCharacter isLetterOrDigit
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2371	or:[ (currentCharacter between:$- and:$/) or:[ currentCharacter == $_ ] ])
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2372	] whileTrue.
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2373	^ self reportLastMatch
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2374	].
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2375	(currentCharacter == $-) ifTrue:[
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2376	self recordMatch:#( 33 ).
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2377	self step.
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2378	((currentCharacter between:$- and:$9)
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2379	or:[
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2380	(currentCharacter between:$A and:$Z)
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2381	or:[
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2382	currentCharacter == $_
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2383	or:[
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2384	(currentCharacter between:$a and:$e)
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2385	or:[ (currentCharacter between:$g and:$z) ]
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2386	]
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2387	]
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2388	])
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2389	ifTrue:[
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2390	[
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2391	self recordMatch:#( 33 ).
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2392	self step.
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2393	(currentCharacter isLetterOrDigit
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2394	or:[ (currentCharacter between:$- and:$/) or:[ currentCharacter == $_ ] ])
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2395	] whileTrue.
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2396	^ self reportLastMatch
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2397	].
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2398	(currentCharacter == $f) ifTrue:[
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2399	self recordMatch:#( 33 ).
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2400	self step.
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2401	(currentCharacter isXMLDigit
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2402	or:[
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2403	(currentCharacter between:$- and:$/)
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2404	or:[
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2405	(currentCharacter between:$A and:$Z)
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2406	or:[
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2407	currentCharacter == $_
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2408	or:[
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2409	(currentCharacter between:$a and:$n)
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2410	or:[ (currentCharacter between:$p and:$z) ]
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2411	]
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2412	]
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2413	]
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2414	])
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2415	ifTrue:[
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2416	[
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2417	self recordMatch:#( 33 ).
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2418	self step.
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2419	(currentCharacter isLetterOrDigit
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2420	or:[ (currentCharacter between:$- and:$/) or:[ currentCharacter == $_ ] ])
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2421	] whileTrue.
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2422	^ self reportLastMatch
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2423	].
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2424	(currentCharacter == $o) ifTrue:[
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2425	self recordMatch:#( 33 ).
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2426	self step.
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2427	((currentCharacter between:$- and:$9)
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2428	or:[
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2429	(currentCharacter between:$A and:$Z)
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2430	or:[
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2431	currentCharacter == $_
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2432	or:[
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2433	(currentCharacter between:$a and:$q)
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2434	or:[ (currentCharacter between:$s and:$z) ]
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2435	]
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2436	]
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2437	])
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2438	ifTrue:[
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2439	[
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2440	self recordMatch:#( 33 ).
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2441	self step.
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2442	(currentCharacter isLetterOrDigit
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2443	or:[ (currentCharacter between:$- and:$/) or:[ currentCharacter == $_ ] ])
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2444	] whileTrue.
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2445	^ self reportLastMatch
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2446	].
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2447	(currentCharacter == $r) ifTrue:[
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2448	self recordMatch:#( 33 ).
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2449	self step.
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2450	(currentCharacter isXMLDigit
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2451	or:[
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2452	(currentCharacter between:$- and:$/)
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2453	or:[
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2454	(currentCharacter between:$A and:$Z)
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2455	or:[
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2456	currentCharacter == $_
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2457	or:[
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2458	(currentCharacter between:$a and:$d)
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2459	or:[ (currentCharacter between:$f and:$z) ]
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2460	]
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2461	]
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2462	]
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2463	])
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2464	ifTrue:[
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2465	[
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2466	self recordMatch:#( 33 ).
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2467	self step.
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2468	(currentCharacter isLetterOrDigit
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2469	or:[ (currentCharacter between:$- and:$/) or:[ currentCharacter == $_ ] ])
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2470	] whileTrue.
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2471	^ self reportLastMatch
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2472	].
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2473	(currentCharacter == $e) ifTrue:[
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2474	self recordMatch:#( 33 ).
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2475	self step.
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2476	(currentCharacter isXMLDigit
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2477	or:[
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2478	(currentCharacter between:$- and:$/)
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2479	or:[
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2480	(currentCharacter between:$A and:$Z)
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2481	or:[
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2482	currentCharacter == $_
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2483	or:[
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2484	(currentCharacter between:$a and:$h)
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2485	or:[ (currentCharacter between:$j and:$z) ]
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2486	]
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2487	]
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2488	]
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2489	])
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2490	ifTrue:[
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2491	[
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2492	self recordMatch:#( 33 ).
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2493	self step.
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2494	(currentCharacter isLetterOrDigit
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2495	or:[ (currentCharacter between:$- and:$/) or:[ currentCharacter == $_ ] ])
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2496	] whileTrue.
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2497	^ self reportLastMatch
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2498	].
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2499	(currentCharacter == $i) ifTrue:[
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2500	self recordMatch:#( 33 ).
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2501	self step.
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2502	((currentCharacter between:$- and:$9)
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2503	or:[
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2504	(currentCharacter between:$A and:$Z)
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2505	or:[
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2506	currentCharacter == $_
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2507	or:[
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2508	(currentCharacter between:$a and:$f)
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2509	or:[ (currentCharacter between:$h and:$z) ]
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2510	]
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2511	]
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2512	])
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2513	ifTrue:[
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2514	[
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2515	self recordMatch:#( 33 ).
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2516	self step.
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2517	(currentCharacter isLetterOrDigit
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2518	or:[ (currentCharacter between:$- and:$/) or:[ currentCharacter == $_ ] ])
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2519	] whileTrue.
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2520	^ self reportLastMatch
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2521	].
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2522	(currentCharacter == $g) ifTrue:[
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2523	self recordMatch:#( 33 ).
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2524	self step.
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2525	((currentCharacter between:$- and:$9)
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2526	or:[
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2527	(currentCharacter between:$A and:$Z)
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2528	or:[
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2529	currentCharacter == $_
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2530	or:[
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2531	(currentCharacter between:$a and:$m)
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2532	or:[ (currentCharacter between:$o and:$z) ]
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2533	]
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2534	]
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2535	])
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2536	ifTrue:[
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2537	[
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2538	self recordMatch:#( 33 ).
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2539	self step.
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2540	(currentCharacter isLetterOrDigit
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2541	or:[ (currentCharacter between:$- and:$/) or:[ currentCharacter == $_ ] ])
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2542	] whileTrue.
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2543	^ self reportLastMatch
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2544	].
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2545	(currentCharacter == $n) ifTrue:[
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2546	self recordMatch:#( 8 33 ).
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2547	self step.
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2548	(currentCharacter isLetterOrDigit
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2549	or:[ (currentCharacter between:$- and:$/) or:[ currentCharacter == $_ ] ])
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2550	ifTrue:[
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2551	[
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2552	self recordMatch:#( 33 ).
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2553	self step.
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2554	(currentCharacter isLetterOrDigit
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2555	or:[ (currentCharacter between:$- and:$/) or:[ currentCharacter == $_ ] ])
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2556	] whileTrue.
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2557	^ self reportLastMatch
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2558	].
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2559	^ self reportLastMatch
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2560	].
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2561	^ self reportLastMatch
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2562	].
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2563	^ self reportLastMatch
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2564	].
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2565	^ self reportLastMatch
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2566	].
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2567	^ self reportLastMatch
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2568	].
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2569	^ self reportLastMatch
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2570	].
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2571	^ self reportLastMatch
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2572	].
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2573	^ self reportLastMatch
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2574	].
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2575	^ self reportLastMatch
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2576	].
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2577	^ self reportLastMatch
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2578	].
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2579	^ self reportLastMatch
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2580	].
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2581	^ self reportLastMatch
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2582	].
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2583	^ self reportLastMatch
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2584	].
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2585	^ self reportLastMatch
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2586	].
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2587	^ self reportLastMatch
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2588	].
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2589	(currentCharacter == $u) ifTrue:[
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2590	self recordMatch:#( 30 33 ).
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2591	self step.
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2592	((currentCharacter between:$0 and:$9)
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2593	or:[
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2594	(currentCharacter between:$A and:$Z)
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2595	or:[
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2596	currentCharacter == $_
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2597	or:[
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2598	(currentCharacter between:$a and:$m)
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2599	or:[ (currentCharacter between:$o and:$z) ]
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2600	]
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2601	]
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2602	])
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2603	ifTrue:[ ^ self scan1 ].
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2604	(currentCharacter between:$- and:$/) ifTrue:[
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2605	[
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2606	self recordMatch:#( 33 ).
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2607	self step.
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2608	(currentCharacter isLetterOrDigit
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2609	or:[ (currentCharacter between:$- and:$/) or:[ currentCharacter == $_ ] ])
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2610	] whileTrue.
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2611	^ self reportLastMatch
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2612	].
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2613	(currentCharacter == $n) ifTrue:[
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2614	self recordMatch:#( 30 33 ).
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2615	self step.
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2616	(currentCharacter isXMLDigit
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2617	or:[
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2618	(currentCharacter between:$A and:$Z)
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2619	or:[
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2620	currentCharacter == $_
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2621	or:[
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2622	(currentCharacter between:$a and:$h)
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2623	or:[ (currentCharacter between:$j and:$z) ]
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2624	]
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2625	]
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2626	])
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2627	ifTrue:[ ^ self scan1 ].
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2628	(currentCharacter between:$- and:$/) ifTrue:[
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2629	[
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2630	self recordMatch:#( 33 ).
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2631	self step.
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2632	(currentCharacter isLetterOrDigit
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2633	or:[ (currentCharacter between:$- and:$/) or:[ currentCharacter == $_ ] ])
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2634	] whileTrue.
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2635	^ self reportLastMatch
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2636	].
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2637	(currentCharacter == $i) ifTrue:[
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2638	self recordMatch:#( 30 33 ).
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2639	self step.
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2640	(currentCharacter isXMLDigit
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2641	or:[
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2642	(currentCharacter between:$A and:$Z)
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2643	or:[
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2644	currentCharacter == $_
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2645	or:[
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2646	(currentCharacter between:$a and:$n)
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2647	or:[ (currentCharacter between:$p and:$z) ]
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2648	]
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2649	]
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2650	])
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2651	ifTrue:[ ^ self scan1 ].
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2652	(currentCharacter between:$- and:$/) ifTrue:[
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2653	[
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2654	self recordMatch:#( 33 ).
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2655	self step.
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2656	(currentCharacter isLetterOrDigit
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2657	or:[ (currentCharacter between:$- and:$/) or:[ currentCharacter == $_ ] ])
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2658	] whileTrue.
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2659	^ self reportLastMatch
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2660	].
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2661	(currentCharacter == $o) ifTrue:[
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2662	self recordMatch:#( 30 33 ).
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2663	self step.
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2664	((currentCharacter between:$0 and:$9)
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2665	or:[
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2666	(currentCharacter between:$A and:$Z)
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2667	or:[
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2668	currentCharacter == $_
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2669	or:[
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2670	(currentCharacter between:$a and:$m)
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2671	or:[ (currentCharacter between:$o and:$z) ]
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2672	]
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2673	]
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2674	])
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2675	ifTrue:[ ^ self scan1 ].
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2676	(currentCharacter between:$- and:$/) ifTrue:[
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2677	[
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2678	self recordMatch:#( 33 ).
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2679	self step.
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2680	(currentCharacter isLetterOrDigit
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2681	or:[ (currentCharacter between:$- and:$/) or:[ currentCharacter == $_ ] ])
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2682	] whileTrue.
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2683	^ self reportLastMatch
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2684	].
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2685	(currentCharacter == $n) ifTrue:[
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2686	self recordMatch:#( 30 33 ).
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2687	self step.
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2688	(currentCharacter isLetterOrDigit or:[ currentCharacter == $_ ]) ifTrue:[
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2689	^ self scan1
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2690	].
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2691	(currentCharacter between:$. and:$/) ifTrue:[
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2692	[
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2693	self recordMatch:#( 33 ).
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2694	self step.
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2695	(currentCharacter isLetterOrDigit
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2696	or:[ (currentCharacter between:$- and:$/) or:[ currentCharacter == $_ ] ])
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2697	] whileTrue.
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2698	^ self reportLastMatch
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2699	].
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2700	(currentCharacter == $-) ifTrue:[
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2701	self recordMatch:#( 33 ).
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2702	self step.
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2703	((currentCharacter between:$- and:$9)
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2704	or:[
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2705	(currentCharacter between:$A and:$Z)
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2706	or:[
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2707	currentCharacter == $_
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2708	or:[
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2709	(currentCharacter between:$a and:$e)
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2710	or:[ (currentCharacter between:$g and:$z) ]
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2711	]
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2712	]
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2713	])
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2714	ifTrue:[
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2715	[
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2716	self recordMatch:#( 33 ).
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2717	self step.
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2718	(currentCharacter isLetterOrDigit
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2719	or:[ (currentCharacter between:$- and:$/) or:[ currentCharacter == $_ ] ])
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2720	] whileTrue.
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2721	^ self reportLastMatch
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2722	].
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2723	(currentCharacter == $f) ifTrue:[
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2724	self recordMatch:#( 33 ).
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2725	self step.
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2726	(currentCharacter isXMLDigit
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2727	or:[
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2728	(currentCharacter between:$- and:$/)
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2729	or:[
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2730	(currentCharacter between:$A and:$Z)
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2731	or:[
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2732	currentCharacter == $_
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2733	or:[
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2734	(currentCharacter between:$a and:$n)
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2735	or:[ (currentCharacter between:$p and:$z) ]
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2736	]
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2737	]
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2738	]
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2739	])
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2740	ifTrue:[
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2741	[
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2742	self recordMatch:#( 33 ).
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2743	self step.
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2744	(currentCharacter isLetterOrDigit
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2745	or:[ (currentCharacter between:$- and:$/) or:[ currentCharacter == $_ ] ])
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2746	] whileTrue.
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2747	^ self reportLastMatch
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2748	].
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2749	(currentCharacter == $o) ifTrue:[
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2750	self recordMatch:#( 33 ).
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2751	self step.
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2752	((currentCharacter between:$- and:$9)
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2753	or:[
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2754	(currentCharacter between:$A and:$Z)
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2755	or:[
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2756	currentCharacter == $_
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2757	or:[
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2758	(currentCharacter between:$a and:$q)
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2759	or:[ (currentCharacter between:$s and:$z) ]
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2760	]
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2761	]
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2762	])
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2763	ifTrue:[
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2764	[
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2765	self recordMatch:#( 33 ).
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2766	self step.
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2767	(currentCharacter isLetterOrDigit
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2768	or:[ (currentCharacter between:$- and:$/) or:[ currentCharacter == $_ ] ])
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2769	] whileTrue.
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2770	^ self reportLastMatch
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2771	].
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2772	(currentCharacter == $r) ifTrue:[
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2773	self recordMatch:#( 33 ).
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2774	self step.
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2775	(currentCharacter isXMLDigit
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2776	or:[
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2777	(currentCharacter between:$- and:$/)
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2778	or:[
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2779	(currentCharacter between:$A and:$Z)
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2780	or:[
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2781	currentCharacter == $_
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2782	or:[
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2783	(currentCharacter between:$a and:$d)
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2784	or:[ (currentCharacter between:$f and:$z) ]
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2785	]
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2786	]
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2787	]
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2788	])
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2789	ifTrue:[
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2790	[
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2791	self recordMatch:#( 33 ).
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2792	self step.
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2793	(currentCharacter isLetterOrDigit
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2794	or:[ (currentCharacter between:$- and:$/) or:[ currentCharacter == $_ ] ])
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2795	] whileTrue.
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2796	^ self reportLastMatch
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2797	].
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2798	(currentCharacter == $e) ifTrue:[
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2799	self recordMatch:#( 33 ).
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2800	self step.
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2801	(currentCharacter isXMLDigit
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2802	or:[
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2803	(currentCharacter between:$- and:$/)
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2804	or:[
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2805	(currentCharacter between:$A and:$Z)
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2806	or:[
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2807	currentCharacter == $_
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2808	or:[
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2809	(currentCharacter between:$a and:$h)
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2810	or:[ (currentCharacter between:$j and:$z) ]
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2811	]
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2812	]
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2813	]
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2814	])
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2815	ifTrue:[
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2816	[
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2817	self recordMatch:#( 33 ).
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2818	self step.
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2819	(currentCharacter isLetterOrDigit
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2820	or:[ (currentCharacter between:$- and:$/) or:[ currentCharacter == $_ ] ])
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2821	] whileTrue.
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2822	^ self reportLastMatch
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2823	].
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2824	(currentCharacter == $i) ifTrue:[
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2825	self recordMatch:#( 33 ).
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2826	self step.
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2827	((currentCharacter between:$- and:$9)
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2828	or:[
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2829	(currentCharacter between:$A and:$Z)
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2830	or:[
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2831	currentCharacter == $_
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2832	or:[
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2833	(currentCharacter between:$a and:$f)
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2834	or:[ (currentCharacter between:$h and:$z) ]
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2835	]
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2836	]
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2837	])
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2838	ifTrue:[
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2839	[
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2840	self recordMatch:#( 33 ).
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2841	self step.
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2842	(currentCharacter isLetterOrDigit
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2843	or:[ (currentCharacter between:$- and:$/) or:[ currentCharacter == $_ ] ])
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2844	] whileTrue.
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2845	^ self reportLastMatch
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2846	].
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2847	(currentCharacter == $g) ifTrue:[
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2848	self recordMatch:#( 33 ).
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2849	self step.
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2850	((currentCharacter between:$- and:$9)
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2851	or:[
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2852	(currentCharacter between:$A and:$Z)
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2853	or:[
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2854	currentCharacter == $_
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2855	or:[
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2856	(currentCharacter between:$a and:$m)
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2857	or:[ (currentCharacter between:$o and:$z) ]
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2858	]
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2859	]
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2860	])
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2861	ifTrue:[
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2862	[
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2863	self recordMatch:#( 33 ).
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2864	self step.
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2865	(currentCharacter isLetterOrDigit
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2866	or:[ (currentCharacter between:$- and:$/) or:[ currentCharacter == $_ ] ])
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2867	] whileTrue.
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2868	^ self reportLastMatch
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2869	].
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2870	(currentCharacter == $n) ifTrue:[
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2871	self recordMatch:#( 19 33 ).
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2872	self step.
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2873	(currentCharacter isLetterOrDigit
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2874	or:[ (currentCharacter between:$- and:$/) or:[ currentCharacter == $_ ] ])
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2875	ifTrue:[
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2876	[
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2877	self recordMatch:#( 33 ).
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2878	self step.
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2879	(currentCharacter isLetterOrDigit
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2880	or:[ (currentCharacter between:$- and:$/) or:[ currentCharacter == $_ ] ])
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2881	] whileTrue.
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2882	^ self reportLastMatch
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2883	].
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2884	^ self reportLastMatch
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2885	].
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2886	^ self reportLastMatch
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2887	].
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2888	^ self reportLastMatch
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2889	].
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2890	^ self reportLastMatch
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2891	].
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2892	^ self reportLastMatch
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2893	].
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2894	^ self reportLastMatch
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2895	].
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2896	^ self reportLastMatch
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2897	].
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2898	^ self reportLastMatch
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2899	].
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2900	^ self reportLastMatch
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2901	].
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2902	^ self reportLastMatch
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2903	].
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2904	^ self reportLastMatch
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2905	].
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2906	^ self reportLastMatch
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2907	].
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2908	^ self reportLastMatch
110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2909	].
1 b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	2910	^ self reportLastMatch
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	2911
3 110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2912	"Modified: / 04-07-2008 / 09:23:45 / Jan Vrany <vranyj1@fel.cvut.cz>"
1 b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	2913	! !
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	2914
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	2915	!CDefinitionScanner methodsFor:'generated-tokens'!
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	2916
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	2917	emptySymbolTokenId
3 110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2918	^60
1 b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	2919
3 110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2920	"Modified: / 04-07-2008 / 09:23:45 / Jan Vrany <vranyj1@fel.cvut.cz>"
1 b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	2921	!
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	2922
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	2923	errorTokenId
3 110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2924	^61
1 b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	2925
3 110a9cbf8594 More improvements, now it generates usable Cairo bindings! Jan Vrany <jan.vrany@fit.cvut.cz> parents: 1 diff changeset	2926	"Modified: / 04-07-2008 / 09:23:45 / Jan Vrany <vranyj1@fel.cvut.cz>"
1 b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	2927	! !
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	2928
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	2929	!CDefinitionScanner class methodsFor:'documentation'!
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	2930
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	2931	version
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	2932	^ '$Header: /opt/data/cvs/cvut-fel/cface/Cface__CDefinitionScanner.st,v 1.1 2008/02/26 16:00:43 vranyj1 Exp $'
b6c0180314d1 Initial import Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	2933	! !

author	Jan Vrany <jan.vrany@fit.cvut.cz>
	Fri, 04 Jul 2008 08:35:55 +0000
changeset 3	110a9cbf8594
parent 1	b6c0180314d1
child 4	fc74bd43a3eb
permissions	-rw-r--r--