hg/jv-cface: Cface__CDefinitionScanner.st@9327987437ae (annotated)

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

author	Jan Vrany <jan.vrany@fit.cvut.cz>
	Wed, 12 Aug 2015 07:32:13 +0100
changeset 43	9327987437ae
parent 32	d7464405cbda
permissions	-rw-r--r--