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

author	Jan Vrany <jan.vrany@fit.cvut.cz>
	Fri, 04 Jul 2008 12:05:15 +0000
changeset 4	fc74bd43a3eb
parent 3	110a9cbf8594
child 5	c110eef5b9ef
permissions	-rw-r--r--