From caf064bd6a0a59f12b9cadadb2ce1e1c01c1fac7 Mon Sep 17 00:00:00 2001 From: =?UTF-8?q?Beno=C3=AEt=20Verhaeghe?= Date: Fri, 18 Aug 2023 16:48:39 +0200 Subject: [PATCH] + testCanParseAttributesWithSeveralSpaces ~organize code --- .../FamixHtmlImporterTest.class.st | 41 +- src/SmaCC_HTML/HTMLParser.class.st | 214 ++-- src/SmaCC_HTML/HTMLScanner.class.st | 1113 ++++++++--------- 3 files changed, 717 insertions(+), 651 deletions(-) diff --git a/src/Famix-Html-Importer-Tests/FamixHtmlImporterTest.class.st b/src/Famix-Html-Importer-Tests/FamixHtmlImporterTest.class.st index 8709c8a..2dcf184 100644 --- a/src/Famix-Html-Importer-Tests/FamixHtmlImporterTest.class.st +++ b/src/Famix-Html-Importer-Tests/FamixHtmlImporterTest.class.st @@ -20,7 +20,7 @@ FamixHtmlImporterTest >> setUp [ importer model: htmlModel ] -{ #category : #initialization } +{ #category : #'parse - attributes' } FamixHtmlImporterTest >> testCanImportComplexAttributeValue [ importer importString: '
'. @@ -58,7 +58,7 @@ FamixHtmlImporterTest >> testCanImportSimpleDiv [ equals: 'div' ] -{ #category : #initialization } +{ #category : #'parse - attributes' } FamixHtmlImporterTest >> testCanImportSimpleDivWithAttribute [ importer importString: '
'. @@ -99,7 +99,7 @@ FamixHtmlImporterTest >> testCanImportTagWithEndOfLine [ equals: '"hello"' ] -{ #category : #initialization } +{ #category : #'parse - attributes' } FamixHtmlImporterTest >> testCanParseAttributePrefixedWithStar [ importer importString: '
'. @@ -113,13 +113,40 @@ FamixHtmlImporterTest >> testCanParseAttributePrefixedWithStar [ equals: '*ngIf' ] -{ #category : #initialization } +{ #category : #'parse - attributes' } FamixHtmlImporterTest >> testCanParseAttributeWithComa [ importer importString: '
'. self assert: (htmlModel allWithType: FamixHtmlElement) size equals: 1 ] +{ #category : #'parse - attributes' } +FamixHtmlImporterTest >> testCanParseAttributesWithSeveralSpaces [ + + importer importString: + '
'. + self + assert: (htmlModel allWithType: FamixHtmlAttribute) size + equals: 3. + self + assert: + ((htmlModel allWithType: FamixHtmlAttribute) detect: [ :att | + att attributeName = 'class' ]) attributeValue + equals: '"hello"'. + + self + assert: + ((htmlModel allWithType: FamixHtmlAttribute) detect: [ :att | + att attributeName = 'secondAttribute' ]) attributeValue + equals: nil. + + self + assert: + ((htmlModel allWithType: FamixHtmlAttribute) detect: [ :att | + att attributeName = 'lastAttribute' ]) attributeValue + equals: '"''tired''"' +] + { #category : #initialization } FamixHtmlImporterTest >> testCanParseCommentFirstThenDiv [ @@ -127,7 +154,7 @@ FamixHtmlImporterTest >> testCanParseCommentFirstThenDiv [ self assert: (htmlModel allWithType: FamixHtmlElement) size equals: 1 ] -{ #category : #initialization } +{ #category : #'parse - attributes' } FamixHtmlImporterTest >> testCanParseConsecutiveAttributes [ importer importString: @@ -315,7 +342,7 @@ FamixHtmlImporterTest >> testParseWithInterpolation [ self assert: (htmlModel allWithType: FamixHtmlElement) size equals: 3 ] -{ #category : #initialization } +{ #category : #'parse - attributes' } FamixHtmlImporterTest >> testShortTagWithShortAttribute [ importer importString: '
'. @@ -325,7 +352,7 @@ FamixHtmlImporterTest >> testShortTagWithShortAttribute [ equals: 1 ] -{ #category : #initialization } +{ #category : #'parse - attributes' } FamixHtmlImporterTest >> testShortTagWithShortHashAttribute [ importer importString: '
'. diff --git a/src/SmaCC_HTML/HTMLParser.class.st b/src/SmaCC_HTML/HTMLParser.class.st index 47c0364..e57e5c1 100644 --- a/src/SmaCC_HTML/HTMLParser.class.st +++ b/src/SmaCC_HTML/HTMLParser.class.st @@ -16,14 +16,15 @@ HTMLParser class >> ambiguousTransitions [ #[ 0 97 0 118] #[ 0 105 0 118] #[ 0 117 0 118] -#[ 0 142 1 101] +#[ 0 122 1 29] +#[ 0 142 1 109] #[ 0 30 0 50] ). ] { #category : #'generated-accessing' } HTMLParser class >> cacheId [ - ^'2023-08-18T16:38:18.924+02:00' + ^'2023-08-18T16:48:02.877+02:00' ] { #category : #generated } @@ -75,7 +76,7 @@ Attributes ; Attribute - : 'attributeName' (StartATTVALUE 'attributeEqualSymbol' StartTag 'attributeValue')? {{}} + : 'attributeName' (? StartATTVALUE 'attributeEqualSymbol' ? StartTag 'attributeValue' )? {{}} ; htmlChardata @@ -262,7 +263,7 @@ StartATTVALUE ; attvalue - : \ * + : ; attvalue @@ -314,7 +315,7 @@ attvalue { #category : #generated } HTMLParser class >> reduceTable [ ^#( - #(42 0 #reduceActionForRetDefault1: 2500609 true) + #(42 0 #reduceActionForRetDefault1: 2522113 true) #(23 0 #nil 188417 false) #(25 1 #liftFirstValue: 295937 false) #(25 1 #liftFirstValue: 295938 false) @@ -325,26 +326,26 @@ HTMLParser class >> reduceTable [ #(22 6 #reduceActionForhtmlDocument3: 157699 false) #(22 6 #reduceActionForhtmlDocument3: 157698 false) #(24 2 #reduceActionForhtmlElements_2: 258050 false) - #(41 0 #reduceActionForStartTag1: 2458625 true) + #(41 0 #reduceActionForStartTag1: 2480129 true) #(22 7 #reduceActionForhtmlDocument4: 157700 false) - #(38 1 #liftFirstValue: 1465345 false) - #(38 1 #liftFirstValue: 1465346 false) + #(38 1 #liftFirstValue: 1486849 false) + #(38 1 #liftFirstValue: 1486850 false) #(28 1 #liftFirstValue: 423950 false) - #(37 1 #liftFirstValue: 1374211 false) - #(37 1 #liftFirstValue: 1374210 false) + #(37 1 #liftFirstValue: 1395715 false) + #(37 1 #liftFirstValue: 1395714 false) #(28 1 #reduceActionForhtmlElement1: 423937 false) - #(27 2 #liftFirstValue: 373762 false) #(28 1 #liftFirstValue: 423953 false) - #(37 1 #reduceActionForhtmlMisc1: 1374209 false) + #(27 2 #liftFirstValue: 373762 false) + #(37 1 #reduceActionForhtmlMisc1: 1395713 false) #(28 1 #liftFirstValue: 423951 false) #(28 1 #liftFirstValue: 423952 false) - #(39 2 #liftFirstValue: 1540097 false) - #(39 2 #liftFirstValue: 1540098 false) - #(40 2 #liftFirstValue: 1613825 false) - #(40 2 #liftFirstValue: 1613826 false) + #(39 2 #liftFirstValue: 1561601 false) + #(39 2 #liftFirstValue: 1561602 false) + #(40 2 #liftFirstValue: 1635329 false) + #(40 2 #liftFirstValue: 1635330 false) #(26 3 #reduceActionForhtmlElements1: 354305 false) #(35 1 #reduceActionForAttribute1: 1164289 false) - #(43 0 #reduceActionForStartATTVALUE1: 3836929 true) + #(43 0 #reduceActionForStartATTVALUE1: 3858433 true) #(34 0 #reduceActionFor__SEA_WS___Attribute__htmlAttribute___1: 1113089 false) #(30 0 #reduceActionFor__SEA_WS___Attribute__htmlAttribute___1: 658433 false) #(31 5 #reduceActionForVoidElement1: 891905 false) @@ -366,6 +367,9 @@ HTMLParser class >> reduceTable [ #(28 8 #reduceActionForhtmlElement8: 423947 false) #(31 8 #reduceActionForVoidElement5: 891912 false) #(35 5 #reduceActionForAttribute2: 1164290 false) + #(35 6 #reduceActionForAttribute4: 1164292 false) + #(35 6 #reduceActionForAttribute3: 1164291 false) + #(35 7 #reduceActionForAttribute5: 1164293 false) #(28 12 #reduceActionForhtmlElement3: 423939 false) #(28 13 #reduceActionForhtmlElement6: 423942 false) #(28 13 #reduceActionForhtmlElement9: 423945 false) @@ -456,7 +460,7 @@ HTMLParser class >> transitionTable [ #[0 0 74 0 1 0 2 0 5 0 6 0 7 0 8 0 9 0 10 0 44] #[1 0 30 0 1 0 30 0 2 0 30 0 5 0 30 0 6 0 30 0 7 0 30 0 8 0 30 0 9 0 30 0 10 0 165 0 27 0 30 0 44] #[0 0 78 0 1 0 2 0 5 0 6 0 7 0 8 0 9 0 10 0 44] -#[1 0 23 0 1 0 23 0 2 0 23 0 5 0 23 0 6 0 23 0 7 0 23 0 8 0 23 0 9 0 23 0 10 0 86 0 44] +#[1 0 23 0 1 0 23 0 2 0 23 0 5 0 23 0 6 0 23 0 7 0 23 0 8 0 23 0 9 0 23 0 10 0 82 0 44] #[0 0 90 0 1 0 2 0 5 0 6 0 7 0 8 0 9 0 10 0 44] #[0 0 94 0 1 0 2 0 5 0 6 0 7 0 8 0 9 0 10 0 44] #[0 0 98 0 1 0 2 0 5 0 6 0 7 0 8 0 9 0 10 0 44] @@ -467,7 +471,7 @@ HTMLParser class >> transitionTable [ #[0 0 114 0 1 0 2 0 5 0 6 0 7 0 8 0 9 0 10 0 44] #[1 0 27 0 1 0 31 0 2 0 118 0 5 0 35 0 6 0 118 0 7 0 118 0 8 0 118 0 9 0 39 0 10 0 173 0 37 0 133 0 38 0 118 0 44] #[1 0 177 0 14 0 181 0 15] -#[0 0 82 0 1 0 2 0 5 0 6 0 7 0 8 0 9 0 10 0 44] +#[0 0 86 0 1 0 2 0 5 0 6 0 7 0 8 0 9 0 10 0 44] #[1 0 185 0 6 0 6 0 11 0 189 0 12 0 193 0 32 0 197 0 42] #[1 0 201 0 6 0 6 0 11 0 205 0 12 0 209 0 32 0 213 0 42] #[1 0 6 0 11 0 217 0 12 0 221 0 14 0 225 0 35 0 229 0 42] @@ -479,96 +483,107 @@ HTMLParser class >> transitionTable [ #[1 1 9 0 6 0 6 0 11 1 13 0 12 1 17 0 42] #[0 1 21 0 11] #[1 0 6 0 11 1 25 0 42] -#[1 0 122 0 6 0 122 0 11 0 122 0 12 0 126 0 13 0 122 0 14 1 29 0 43] -#[1 0 130 0 6 0 130 0 11 0 130 0 12 0 130 0 14 1 33 0 34] -#[0 1 37 0 11] +#[1 0 43 0 6 0 122 0 11 0 122 0 12 0 126 0 13 0 122 0 14 1 33 0 43] +#[1 0 130 0 6 0 130 0 11 0 130 0 12 0 130 0 14 1 37 0 34] #[0 1 41 0 11] -#[1 0 6 0 11 1 45 0 12 1 49 0 42] -#[1 0 6 0 11 1 53 0 42] -#[0 1 57 0 11] -#[1 0 134 0 1 0 134 0 2 0 134 0 5 0 134 0 6 0 134 0 7 0 134 0 8 0 134 0 9 0 134 0 10 1 61 0 30] -#[1 0 6 0 11 1 65 0 42] -#[0 1 69 0 11] +#[0 1 45 0 11] +#[1 0 6 0 11 1 49 0 12 1 53 0 42] +#[1 0 6 0 11 1 57 0 42] +#[0 1 61 0 11] +#[1 0 134 0 1 0 134 0 2 0 134 0 5 0 134 0 6 0 134 0 7 0 134 0 8 0 134 0 9 0 134 0 10 1 65 0 30] +#[1 0 6 0 11 1 69 0 42] #[0 1 73 0 11] -#[1 0 6 0 11 1 77 0 12 1 81 0 42] -#[1 0 6 0 11 1 85 0 42] -#[0 1 89 0 11] -#[0 0 138 0 1 0 2 0 5 0 6 0 7 0 8 0 9 0 10 0 44] +#[0 1 77 0 11] +#[1 0 6 0 11 1 81 0 12 1 85 0 42] +#[1 0 6 0 11 1 89 0 42] #[0 1 93 0 11] -#[0 1 97 0 13] -#[1 0 43 0 6 0 142 0 11 0 142 0 12 0 221 0 14 1 105 0 33 1 105 0 35] -#[1 0 134 0 1 0 134 0 2 0 134 0 5 0 134 0 6 0 134 0 7 0 134 0 8 0 134 0 9 0 134 0 10 1 113 0 30] +#[0 0 138 0 1 0 2 0 5 0 6 0 7 0 8 0 9 0 10 0 44] +#[0 1 97 0 11] +#[1 0 126 0 13 1 101 0 43] +#[0 1 105 0 13] +#[1 0 47 0 6 0 142 0 11 0 142 0 12 0 221 0 14 1 113 0 33 1 113 0 35] +#[1 0 134 0 1 0 134 0 2 0 134 0 5 0 134 0 6 0 134 0 7 0 134 0 8 0 134 0 9 0 134 0 10 1 121 0 30] #[0 0 146 0 1 0 2 0 5 0 6 0 7 0 8 0 9 0 10 0 44] -#[1 0 6 0 11 1 117 0 42] -#[0 1 121 0 11] -#[0 1 125 0 11] -#[1 0 134 0 1 0 134 0 2 0 134 0 5 0 134 0 6 0 134 0 7 0 134 0 8 0 134 0 9 0 134 0 10 1 129 0 30] -#[1 0 30 0 1 0 30 0 2 0 30 0 5 0 30 0 6 0 30 0 7 0 30 0 8 0 47 0 9 0 30 0 10 1 137 0 26 0 85 0 27 1 137 0 29 1 141 0 41] -#[0 1 145 0 11] +#[1 0 6 0 11 1 125 0 42] +#[0 1 129 0 11] +#[0 1 133 0 11] +#[1 0 134 0 1 0 134 0 2 0 134 0 5 0 134 0 6 0 134 0 7 0 134 0 8 0 134 0 9 0 134 0 10 1 137 0 30] +#[1 0 30 0 1 0 30 0 2 0 30 0 5 0 30 0 6 0 30 0 7 0 30 0 8 0 51 0 9 0 30 0 10 1 145 0 26 0 85 0 27 1 145 0 29 1 149 0 41] +#[0 1 153 0 11] #[0 0 150 0 1 0 2 0 5 0 6 0 7 0 8 0 9 0 10 0 44] #[0 0 154 0 1 0 2 0 5 0 6 0 7 0 8 0 9 0 10 0 44] -#[1 0 6 0 11 1 149 0 42] -#[0 1 153 0 11] -#[0 1 157 0 11] +#[1 0 6 0 11 1 157 0 42] +#[0 1 161 0 11] +#[0 1 165 0 11] #[0 0 158 0 1 0 2 0 5 0 6 0 7 0 8 0 9 0 10 0 44] #[0 0 162 0 1 0 2 0 5 0 6 0 7 0 8 0 9 0 10 0 44] -#[1 0 50 0 20 1 161 0 41] -#[1 0 221 0 14 1 165 0 35] +#[0 1 169 0 13] +#[1 1 173 0 6 0 50 0 20 1 177 0 41] +#[1 0 221 0 14 1 181 0 35] #[0 0 166 0 6 0 11 0 12 0 14] #[0 0 170 0 6 0 11 0 12 0 14] -#[1 0 30 0 1 0 30 0 2 0 30 0 5 0 30 0 6 0 30 0 7 0 30 0 8 0 47 0 9 0 30 0 10 1 137 0 26 0 85 0 27 1 137 0 29 1 169 0 41] -#[0 1 173 0 11] -#[1 0 134 0 1 0 134 0 2 0 134 0 5 0 134 0 6 0 134 0 7 0 134 0 8 0 134 0 9 0 134 0 10 1 177 0 30] +#[1 0 30 0 1 0 30 0 2 0 30 0 5 0 30 0 6 0 30 0 7 0 30 0 8 0 51 0 9 0 30 0 10 1 145 0 26 0 85 0 27 1 145 0 29 1 185 0 41] +#[0 1 189 0 11] +#[1 0 134 0 1 0 134 0 2 0 134 0 5 0 134 0 6 0 134 0 7 0 134 0 8 0 134 0 9 0 134 0 10 1 193 0 30] #[0 0 174 0 1 0 2 0 5 0 6 0 7 0 8 0 9 0 10 0 44] -#[1 0 30 0 1 0 30 0 2 0 30 0 5 0 30 0 6 0 30 0 7 0 30 0 8 0 47 0 9 0 30 0 10 1 137 0 26 0 85 0 27 1 137 0 29 1 181 0 41] +#[1 0 30 0 1 0 30 0 2 0 30 0 5 0 30 0 6 0 30 0 7 0 30 0 8 0 51 0 9 0 30 0 10 1 145 0 26 0 85 0 27 1 145 0 29 1 197 0 41] #[0 0 178 0 1 0 2 0 5 0 6 0 7 0 8 0 9 0 10] #[0 0 182 0 1 0 2 0 5 0 6 0 7 0 8 0 9 0 10] -#[0 1 185 0 9] +#[0 1 201 0 9] #[0 0 186 0 1 0 2 0 5 0 6 0 7 0 8 0 9 0 10 0 44] -#[0 1 189 0 11] +#[0 1 205 0 11] #[0 0 190 0 1 0 2 0 5 0 6 0 7 0 8 0 9 0 10 0 44] #[0 0 194 0 1 0 2 0 5 0 6 0 7 0 8 0 9 0 10 0 44] -#[0 1 193 0 20] +#[1 1 209 0 6 0 50 0 20 1 213 0 41] +#[1 0 50 0 20 1 217 0 41] +#[0 1 221 0 20] #[0 0 198 0 6 0 11 0 12 0 14] -#[0 1 197 0 9] +#[0 1 225 0 9] #[0 0 202 0 1 0 2 0 5 0 6 0 7 0 8 0 9 0 10 0 44] -#[1 0 30 0 1 0 30 0 2 0 30 0 5 0 30 0 6 0 30 0 7 0 30 0 8 0 47 0 9 0 30 0 10 1 137 0 26 0 85 0 27 1 137 0 29 1 201 0 41] -#[0 1 205 0 9] -#[0 1 209 0 12] +#[1 0 30 0 1 0 30 0 2 0 30 0 5 0 30 0 6 0 30 0 7 0 30 0 8 0 51 0 9 0 30 0 10 1 145 0 26 0 85 0 27 1 145 0 29 1 229 0 41] +#[0 1 233 0 9] +#[0 1 237 0 12] #[0 0 206 0 1 0 2 0 5 0 6 0 7 0 8 0 9 0 10 0 44] +#[1 0 50 0 20 1 241 0 41] +#[0 1 245 0 20] +#[0 1 249 0 20] #[0 0 210 0 6 0 11 0 12 0 14] -#[0 1 213 0 12] -#[0 1 217 0 9] -#[0 1 221 0 12] -#[0 1 225 0 14] -#[0 1 229 0 14] -#[0 1 233 0 12] -#[0 1 237 0 14] -#[1 1 241 0 6 0 6 0 11 1 245 0 42] -#[1 1 249 0 6 0 6 0 11 1 253 0 42] -#[0 2 1 0 14] -#[1 2 5 0 6 0 6 0 11 2 9 0 42] -#[1 0 6 0 11 2 13 0 42] -#[0 2 17 0 11] -#[1 0 6 0 11 2 21 0 42] -#[0 2 25 0 11] +#[0 1 253 0 12] +#[0 2 1 0 9] +#[0 2 5 0 12] +#[0 2 9 0 14] +#[0 2 13 0 20] +#[0 0 214 0 6 0 11 0 12 0 14] +#[0 0 218 0 6 0 11 0 12 0 14] +#[0 2 17 0 14] +#[0 2 21 0 12] +#[0 2 25 0 14] #[1 2 29 0 6 0 6 0 11 2 33 0 42] -#[1 0 6 0 11 2 37 0 42] -#[0 2 41 0 11] -#[0 2 45 0 11] -#[0 0 214 0 1 0 2 0 5 0 6 0 7 0 8 0 9 0 10 0 44] -#[0 2 49 0 11] -#[0 0 218 0 1 0 2 0 5 0 6 0 7 0 8 0 9 0 10 0 44] -#[1 0 6 0 11 2 53 0 42] -#[0 2 57 0 11] +#[0 0 222 0 6 0 11 0 12 0 14] +#[1 2 37 0 6 0 6 0 11 2 41 0 42] +#[0 2 45 0 14] +#[1 2 49 0 6 0 6 0 11 2 53 0 42] +#[1 0 6 0 11 2 57 0 42] #[0 2 61 0 11] -#[0 0 222 0 1 0 2 0 5 0 6 0 7 0 8 0 9 0 10 0 44] +#[1 0 6 0 11 2 65 0 42] +#[0 2 69 0 11] +#[1 2 73 0 6 0 6 0 11 2 77 0 42] +#[1 0 6 0 11 2 81 0 42] +#[0 2 85 0 11] +#[0 2 89 0 11] #[0 0 226 0 1 0 2 0 5 0 6 0 7 0 8 0 9 0 10 0 44] +#[0 2 93 0 11] #[0 0 230 0 1 0 2 0 5 0 6 0 7 0 8 0 9 0 10 0 44] -#[0 2 65 0 11] +#[1 0 6 0 11 2 97 0 42] +#[0 2 101 0 11] +#[0 2 105 0 11] #[0 0 234 0 1 0 2 0 5 0 6 0 7 0 8 0 9 0 10 0 44] #[0 0 238 0 1 0 2 0 5 0 6 0 7 0 8 0 9 0 10 0 44] -#[0 0 242 0 1 0 2 0 5 0 6 0 7 0 8 0 9 0 10 0 44] +#[0 0 242 0 1 0 2 0 5 0 6 0 7 0 8 0 9 0 10 0 44] +#[0 2 109 0 11] +#[0 0 246 0 1 0 2 0 5 0 6 0 7 0 8 0 9 0 10 0 44] +#[0 0 250 0 1 0 2 0 5 0 6 0 7 0 8 0 9 0 10 0 44] +#[0 0 254 0 1 0 2 0 5 0 6 0 7 0 8 0 9 0 10 0 44] ). ] @@ -592,6 +607,39 @@ HTMLParser >> reduceActionForAttribute2: nodes [ ^ result ] +{ #category : #'generated-reduction actions' } +HTMLParser >> reduceActionForAttribute3: nodes [ + + | result | + result := HTMLAttributeNode new. + result attributeName: (nodes at: 1). + result attributeEqualSymbol: (nodes at: 3). + result attributeValue: (nodes at: 6). + ^ result +] + +{ #category : #'generated-reduction actions' } +HTMLParser >> reduceActionForAttribute4: nodes [ + + | result | + result := HTMLAttributeNode new. + result attributeName: (nodes at: 1). + result attributeEqualSymbol: (nodes at: 4). + result attributeValue: (nodes at: 6). + ^ result +] + +{ #category : #'generated-reduction actions' } +HTMLParser >> reduceActionForAttribute5: nodes [ + + | result | + result := HTMLAttributeNode new. + result attributeName: (nodes at: 1). + result attributeEqualSymbol: (nodes at: 4). + result attributeValue: (nodes at: 7). + ^ result +] + { #category : #'generated-reduction actions' } HTMLParser >> reduceActionForAttributes1: nodes [ diff --git a/src/SmaCC_HTML/HTMLScanner.class.st b/src/SmaCC_HTML/HTMLScanner.class.st index f945c03..5b050be 100644 --- a/src/SmaCC_HTML/HTMLScanner.class.st +++ b/src/SmaCC_HTML/HTMLScanner.class.st @@ -39,10 +39,20 @@ HTMLScanner >> errorTokenId [ { #category : #generated } HTMLScanner >> scan1 [ - [ self step. - currentCharacter == $< ifTrue: [ ^ self scan2 ]. - true ] whileTrue + currentCharacter == $" ifTrue: [ ^ self scan6 ]. + currentCharacter == $# ifTrue: [ ^ self scan1X1 ]. + currentCharacter == $' ifTrue: [ ^ self scan14 ]. + currentCharacter == $< ifTrue: [ ^ self scan10 ]. + currentCharacter isDigit ifTrue: [ ^ self scan1X2 ]. + ((currentCharacter between: Character tab and: Character lf) or: [ + currentCharacter == Character cr or: [ + currentCharacter == Character space ] ]) ifTrue: [ ^ self scan5 ]. + ((currentCharacter between: $+ and: $?) or: [ + (currentCharacter between: $A and: $Z) or: [ + currentCharacter == $_ or: [ currentCharacter between: $a and: $z ] ] ]) + ifTrue: [ ^ self scan9 ]. + ^ self scan2 ] { #category : #generated } @@ -51,7 +61,7 @@ HTMLScanner >> scan10 [ [ self recordMatch: #( 20 ). self step. - currentCharacter == Character space ifTrue: [ ^ self scan6 ]. + currentCharacter == Character space ifTrue: [ ^ self scan7 ]. currentCharacter == $/ ifTrue: [ ^ self scan11 ]. currentCharacter == $< ] whileTrue. (currentCharacter == $# or: [ @@ -60,7 +70,7 @@ HTMLScanner >> scan10 [ currentCharacter == $_ or: [ currentCharacter between: $a and: $z ] ] ] ]) ifTrue: [ ^ self scan9 ]. - ^ self scan1 + ^ self scan2 ] { #category : #generated } @@ -68,7 +78,7 @@ HTMLScanner >> scan11 [ self recordMatch: #( 20 ). self step. - currentCharacter == Character space ifTrue: [ ^ self scan6 ]. + currentCharacter == Character space ifTrue: [ ^ self scan7 ]. currentCharacter == $< ifTrue: [ ^ self scan10 ]. currentCharacter == $> ifTrue: [ ^ self scan11X1 ]. currentCharacter == $s ifTrue: [ ^ self scan12 ]. @@ -77,7 +87,7 @@ HTMLScanner >> scan11 [ currentCharacter == $@ or: [ (currentCharacter between: $[ and: $^) or: [ currentCharacter == $` or: [ currentCharacter >= ${ ] ] ] ] ]) - ifTrue: [ ^ self scan1 ]. + ifTrue: [ ^ self scan2 ]. ^ self scan9 ] @@ -86,7 +96,7 @@ HTMLScanner >> scan11X1 [ self recordMatch: #( 17 20 ). self step. - currentCharacter == Character space ifTrue: [ ^ self scan6 ]. + currentCharacter == Character space ifTrue: [ ^ self scan7 ]. currentCharacter == $< ifTrue: [ ^ self scan10 ]. (currentCharacter == $# or: [ (currentCharacter between: $+ and: $?) or: [ @@ -94,7 +104,7 @@ HTMLScanner >> scan11X1 [ currentCharacter == $_ or: [ currentCharacter between: $a and: $z ] ] ] ]) ifTrue: [ ^ self scan9 ]. - ^ self scan1 + ^ self scan2 ] { #category : #generated } @@ -102,7 +112,7 @@ HTMLScanner >> scan12 [ self recordMatch: #( 20 ). self step. - currentCharacter == Character space ifTrue: [ ^ self scan6 ]. + currentCharacter == Character space ifTrue: [ ^ self scan7 ]. currentCharacter == $< ifTrue: [ ^ self scan10 ]. currentCharacter == $c ifTrue: [ ^ self scan13 ]. (currentCharacter == $# or: [ @@ -111,7 +121,7 @@ HTMLScanner >> scan12 [ currentCharacter == $_ or: [ currentCharacter between: $a and: $z ] ] ] ]) ifTrue: [ ^ self scan9 ]. - ^ self scan1 + ^ self scan2 ] { #category : #generated } @@ -119,32 +129,32 @@ HTMLScanner >> scan13 [ self recordMatch: #( 20 ). self step. - currentCharacter == Character space ifTrue: [ ^ self scan6 ]. + currentCharacter == Character space ifTrue: [ ^ self scan7 ]. currentCharacter == $< ifTrue: [ ^ self scan10 ]. currentCharacter == $r ifTrue: [ self recordMatch: #( 20 ). self step. - currentCharacter == Character space ifTrue: [ ^ self scan6 ]. + currentCharacter == Character space ifTrue: [ ^ self scan7 ]. currentCharacter == $< ifTrue: [ ^ self scan10 ]. currentCharacter == $i ifTrue: [ self recordMatch: #( 20 ). self step. - currentCharacter == Character space ifTrue: [ ^ self scan6 ]. + currentCharacter == Character space ifTrue: [ ^ self scan7 ]. currentCharacter == $< ifTrue: [ ^ self scan10 ]. currentCharacter == $p ifTrue: [ self recordMatch: #( 20 ). self step. - currentCharacter == Character space ifTrue: [ ^ self scan6 ]. + currentCharacter == Character space ifTrue: [ ^ self scan7 ]. currentCharacter == $< ifTrue: [ ^ self scan10 ]. currentCharacter == $t ifTrue: [ self recordMatch: #( 20 ). self step. - currentCharacter == Character space ifTrue: [ ^ self scan6 ]. + currentCharacter == Character space ifTrue: [ ^ self scan7 ]. currentCharacter == $< ifTrue: [ ^ self scan10 ]. currentCharacter == $> ifTrue: [ self recordMatch: #( 16 20 ). self step. - currentCharacter == Character space ifTrue: [ ^ self scan6 ]. + currentCharacter == Character space ifTrue: [ ^ self scan7 ]. currentCharacter == $< ifTrue: [ ^ self scan10 ] ] ] ] ] ]. (currentCharacter == $# or: [ (currentCharacter between: $+ and: $?) or: [ @@ -152,15 +162,15 @@ HTMLScanner >> scan13 [ currentCharacter == $_ or: [ currentCharacter between: $a and: $z ] ] ] ]) ifTrue: [ ^ self scan9 ]. - ^ self scan1 + ^ self scan2 ] { #category : #generated } HTMLScanner >> scan14 [ - [ + [ self step. - currentCharacter == $' ifTrue: [ ^ self scan6 ]. + currentCharacter == $' ifTrue: [ ^ self scan7 ]. currentCharacter == $< ifTrue: [ ^ self scan15 ]. true ] whileTrue ] @@ -170,45 +180,45 @@ HTMLScanner >> scan15 [ [ self step. - currentCharacter == $' ifTrue: [ ^ self scan6 ]. + currentCharacter == $' ifTrue: [ ^ self scan7 ]. currentCharacter == $/ ifTrue: [ self step. - currentCharacter == $' ifTrue: [ ^ self scan6 ]. + currentCharacter == $' ifTrue: [ ^ self scan7 ]. currentCharacter == $< ifTrue: [ ^ self scan15 ]. currentCharacter == $> ifTrue: [ self recordMatch: #( 17 ). self step. - currentCharacter == $' ifTrue: [ ^ self scan6 ]. + currentCharacter == $' ifTrue: [ ^ self scan7 ]. currentCharacter == $< ifTrue: [ ^ self scan15 ]. ^ self scan14 ]. currentCharacter == $s ifTrue: [ self step. - currentCharacter == $' ifTrue: [ ^ self scan6 ]. + currentCharacter == $' ifTrue: [ ^ self scan7 ]. currentCharacter == $< ifTrue: [ ^ self scan15 ]. currentCharacter == $c ifTrue: [ self step. - currentCharacter == $' ifTrue: [ ^ self scan6 ]. + currentCharacter == $' ifTrue: [ ^ self scan7 ]. currentCharacter == $< ifTrue: [ ^ self scan15 ]. currentCharacter == $r ifTrue: [ self step. - currentCharacter == $' ifTrue: [ ^ self scan6 ]. + currentCharacter == $' ifTrue: [ ^ self scan7 ]. currentCharacter == $< ifTrue: [ ^ self scan15 ]. currentCharacter == $i ifTrue: [ self step. - currentCharacter == $' ifTrue: [ ^ self scan6 ]. + currentCharacter == $' ifTrue: [ ^ self scan7 ]. currentCharacter == $< ifTrue: [ ^ self scan15 ]. currentCharacter == $p ifTrue: [ self step. - currentCharacter == $' ifTrue: [ ^ self scan6 ]. + currentCharacter == $' ifTrue: [ ^ self scan7 ]. currentCharacter == $< ifTrue: [ ^ self scan15 ]. currentCharacter == $t ifTrue: [ self step. - currentCharacter == $' ifTrue: [ ^ self scan6 ]. + currentCharacter == $' ifTrue: [ ^ self scan7 ]. currentCharacter == $< ifTrue: [ ^ self scan15 ]. currentCharacter == $> ifTrue: [ self recordMatch: #( 16 ). self step. - currentCharacter == $' ifTrue: [ ^ self scan6 ]. + currentCharacter == $' ifTrue: [ ^ self scan7 ]. currentCharacter == $< ifTrue: [ ^ self scan15 ] ] ] ] ] ] ] ]. ^ self scan14 ]. currentCharacter == $< ] whileTrue. @@ -218,914 +228,933 @@ HTMLScanner >> scan15 [ { #category : #generated } HTMLScanner >> scan16 [ - [ - self recordMatch: #( 20 ). self step. - currentCharacter == $< ifTrue: [ ^ self scan10 ]. - currentCharacter isDigit ] whileTrue. - (currentCharacter == Character space or: [ currentCharacter == $% ]) - ifTrue: [ ^ self scan6 ]. - (currentCharacter == $# or: [ - (currentCharacter between: $+ and: $?) or: [ - (currentCharacter between: $A and: $Z) or: [ - currentCharacter == $_ or: [ - currentCharacter between: $a and: $z ] ] ] ]) ifTrue: [ - ^ self scan9 ]. - ^ self scan1 -] - -{ #category : #generated } -HTMLScanner >> scan17 [ - - self step. - currentCharacter == $< ifTrue: [ ^ self scan19 ]. + currentCharacter == $< ifTrue: [ ^ self scan18 ]. ((currentCharacter between: Character tab and: Character lf) or: [ currentCharacter == Character cr or: [ currentCharacter == Character space ] ]) ifTrue: [ [ self recordMatch: #( 6 10 ). self step. - currentCharacter == $< ifTrue: [ ^ self scan2 ]. + currentCharacter == $< ifTrue: [ ^ self scan3 ]. (currentCharacter between: Character tab and: Character lf) or: [ currentCharacter == Character cr or: [ currentCharacter == Character space ] ] ] whileTrue ]. - ^ self scan18 + ^ self scan17 ] { #category : #generated } -HTMLScanner >> scan18 [ +HTMLScanner >> scan17 [ [ self recordMatch: #( 10 ). self step. - currentCharacter == $< ifTrue: [ ^ self scan2 ]. + currentCharacter == $< ifTrue: [ ^ self scan3 ]. true ] whileTrue ] { #category : #generated } -HTMLScanner >> scan19 [ +HTMLScanner >> scan18 [ self recordMatch: #( 9 ). self step. - currentCharacter == $! ifTrue: [ ^ self scan19X2 ]. - currentCharacter == $% ifTrue: [ ^ self scan31 ]. - currentCharacter == $/ ifTrue: [ ^ self scan3 ]. - currentCharacter == $< ifTrue: [ ^ self scan2 ]. - currentCharacter == $? ifTrue: [ ^ self scan19X1 ]. + currentCharacter == $! ifTrue: [ ^ self scan18X2 ]. + currentCharacter == $% ifTrue: [ ^ self scan30 ]. + currentCharacter == $/ ifTrue: [ ^ self scan4 ]. + currentCharacter == $< ifTrue: [ ^ self scan3 ]. + currentCharacter == $? ifTrue: [ ^ self scan18X1 ]. currentCharacter == $s ifTrue: [ self step. - currentCharacter == $< ifTrue: [ ^ self scan2 ]. + currentCharacter == $< ifTrue: [ ^ self scan3 ]. currentCharacter == $c ifTrue: [ self step. - currentCharacter == $< ifTrue: [ ^ self scan2 ]. + currentCharacter == $< ifTrue: [ ^ self scan3 ]. currentCharacter == $r ifTrue: [ self step. - currentCharacter == $< ifTrue: [ ^ self scan2 ]. + currentCharacter == $< ifTrue: [ ^ self scan3 ]. currentCharacter == $i ifTrue: [ self step. - currentCharacter == $< ifTrue: [ ^ self scan2 ]. + currentCharacter == $< ifTrue: [ ^ self scan3 ]. currentCharacter == $p ifTrue: [ self step. - currentCharacter == $< ifTrue: [ ^ self scan2 ]. - currentCharacter == $t ifTrue: [ ^ self scan42 ] ] ] ]. - ^ self scan1 ]. + currentCharacter == $< ifTrue: [ ^ self scan3 ]. + currentCharacter == $t ifTrue: [ ^ self scan41 ] ] ] ]. + ^ self scan2 ]. currentCharacter == $t ifTrue: [ self step. - currentCharacter == $< ifTrue: [ ^ self scan2 ]. + currentCharacter == $< ifTrue: [ ^ self scan3 ]. currentCharacter == $y ifTrue: [ self step. - currentCharacter == $< ifTrue: [ ^ self scan2 ]. + currentCharacter == $< ifTrue: [ ^ self scan3 ]. currentCharacter == $l ifTrue: [ self step. - currentCharacter == $< ifTrue: [ ^ self scan2 ]. - currentCharacter == $e ifTrue: [ ^ self scan45 ] ] ] ] ]. - ^ self scan1 + currentCharacter == $< ifTrue: [ ^ self scan3 ]. + currentCharacter == $e ifTrue: [ ^ self scan44 ] ] ] ] ]. + ^ self scan2 ] { #category : #generated } -HTMLScanner >> scan19X1 [ +HTMLScanner >> scan18X1 [ self step. - currentCharacter == $< ifTrue: [ ^ self scan35 ]. - currentCharacter == $? ifTrue: [ ^ self scan36 ]. + currentCharacter == $< ifTrue: [ ^ self scan34 ]. + currentCharacter == $? ifTrue: [ ^ self scan35 ]. currentCharacter == $x ifTrue: [ self step. - currentCharacter == $< ifTrue: [ ^ self scan35 ]. - currentCharacter == $? ifTrue: [ ^ self scan36 ]. + currentCharacter == $< ifTrue: [ ^ self scan34 ]. + currentCharacter == $? ifTrue: [ ^ self scan35 ]. currentCharacter == $m ifTrue: [ self step. - currentCharacter == $< ifTrue: [ ^ self scan35 ]. - currentCharacter == $? ifTrue: [ ^ self scan36 ]. - currentCharacter == $l ifTrue: [ ^ self scan37 ] ] ]. - ^ self scan34 + currentCharacter == $< ifTrue: [ ^ self scan34 ]. + currentCharacter == $? ifTrue: [ ^ self scan35 ]. + currentCharacter == $l ifTrue: [ ^ self scan36 ] ] ]. + ^ self scan33 ] { #category : #generated } -HTMLScanner >> scan19X2 [ +HTMLScanner >> scan18X2 [ self step. currentCharacter == $- ifTrue: [ self step. - currentCharacter == $- ifTrue: [ ^ self scan23 ]. - currentCharacter == $< ifTrue: [ ^ self scan2 ]. - ^ self scan1 ]. - currentCharacter == $< ifTrue: [ ^ self scan21 ]. - currentCharacter == $[ ifTrue: [ ^ self scan26 ]. - ^ self scan20 + currentCharacter == $- ifTrue: [ ^ self scan22 ]. + currentCharacter == $< ifTrue: [ ^ self scan3 ]. + ^ self scan2 ]. + currentCharacter == $< ifTrue: [ ^ self scan20 ]. + currentCharacter == $[ ifTrue: [ ^ self scan25 ]. + ^ self scan19 ] { #category : #generated } -HTMLScanner >> scan2 [ +HTMLScanner >> scan19 [ - [ + [ self step. - currentCharacter == $/ ifTrue: [ ^ self scan3 ]. - currentCharacter == $< ] whileTrue. - ^ self scan1 + currentCharacter == $< ifTrue: [ ^ self scan20 ]. + currentCharacter == $> ifTrue: [ ^ self scan21 ]. + true ] whileTrue ] { #category : #generated } -HTMLScanner >> scan20 [ +HTMLScanner >> scan1X1 [ + + [ + self recordMatch: #( 20 ). + self step. + currentCharacter == Character space ifTrue: [ ^ self scan7 ]. + currentCharacter == $< ifTrue: [ ^ self scan10 ]. + currentCharacter isDigit or: [ + (currentCharacter between: $A and: $F) or: [ + currentCharacter between: $a and: $f ] ] ] whileTrue. + (currentCharacter == $# or: [ + (currentCharacter between: $+ and: $?) or: [ + (currentCharacter between: $G and: $Z) or: [ + currentCharacter == $_ or: [ + currentCharacter between: $g and: $z ] ] ] ]) ifTrue: [ + ^ self scan9 ]. + ^ self scan2 +] + +{ #category : #generated } +HTMLScanner >> scan1X2 [ - [ + [ + self recordMatch: #( 20 ). self step. - currentCharacter == $< ifTrue: [ ^ self scan21 ]. - currentCharacter == $> ifTrue: [ ^ self scan22 ]. + currentCharacter == $< ifTrue: [ ^ self scan10 ]. + currentCharacter isDigit ] whileTrue. + (currentCharacter == Character space or: [ currentCharacter == $% ]) + ifTrue: [ ^ self scan7 ]. + (currentCharacter == $# or: [ + (currentCharacter between: $+ and: $?) or: [ + (currentCharacter between: $A and: $Z) or: [ + currentCharacter == $_ or: [ + currentCharacter between: $a and: $z ] ] ] ]) ifTrue: [ + ^ self scan9 ]. + ^ self scan2 +] + +{ #category : #generated } +HTMLScanner >> scan2 [ + + [ + self step. + currentCharacter == $< ifTrue: [ ^ self scan3 ]. true ] whileTrue ] { #category : #generated } -HTMLScanner >> scan21 [ +HTMLScanner >> scan20 [ [ self step. currentCharacter == $/ ifTrue: [ self step. - currentCharacter == $< ifTrue: [ ^ self scan21 ]. + currentCharacter == $< ifTrue: [ ^ self scan20 ]. currentCharacter == $> ifTrue: [ self recordMatch: #( 4 17 ). self step. - currentCharacter == $< ifTrue: [ ^ self scan21 ]. - currentCharacter == $> ifTrue: [ ^ self scan22 ]. - ^ self scan20 ]. + currentCharacter == $< ifTrue: [ ^ self scan20 ]. + currentCharacter == $> ifTrue: [ ^ self scan21 ]. + ^ self scan19 ]. currentCharacter == $s ifTrue: [ self step. - currentCharacter == $< ifTrue: [ ^ self scan21 ]. - currentCharacter == $> ifTrue: [ ^ self scan22 ]. + currentCharacter == $< ifTrue: [ ^ self scan20 ]. + currentCharacter == $> ifTrue: [ ^ self scan21 ]. currentCharacter == $c ifTrue: [ self step. - currentCharacter == $< ifTrue: [ ^ self scan21 ]. - currentCharacter == $> ifTrue: [ ^ self scan22 ]. + currentCharacter == $< ifTrue: [ ^ self scan20 ]. + currentCharacter == $> ifTrue: [ ^ self scan21 ]. currentCharacter == $r ifTrue: [ self step. - currentCharacter == $< ifTrue: [ ^ self scan21 ]. - currentCharacter == $> ifTrue: [ ^ self scan22 ]. + currentCharacter == $< ifTrue: [ ^ self scan20 ]. + currentCharacter == $> ifTrue: [ ^ self scan21 ]. currentCharacter == $i ifTrue: [ self step. - currentCharacter == $< ifTrue: [ ^ self scan21 ]. - currentCharacter == $> ifTrue: [ ^ self scan22 ]. + currentCharacter == $< ifTrue: [ ^ self scan20 ]. + currentCharacter == $> ifTrue: [ ^ self scan21 ]. currentCharacter == $p ifTrue: [ self step. - currentCharacter == $< ifTrue: [ ^ self scan21 ]. - currentCharacter == $> ifTrue: [ ^ self scan22 ]. + currentCharacter == $< ifTrue: [ ^ self scan20 ]. + currentCharacter == $> ifTrue: [ ^ self scan21 ]. currentCharacter == $t ifTrue: [ self step. - currentCharacter == $< ifTrue: [ ^ self scan21 ]. + currentCharacter == $< ifTrue: [ ^ self scan20 ]. currentCharacter == $> ifTrue: [ self recordMatch: #( 4 16 ). self step. - currentCharacter == $< ifTrue: [ ^ self scan21 ]. - currentCharacter == $> ifTrue: [ ^ self scan22 ] ] ] ] ] ] ] ]. - ^ self scan20 ]. + currentCharacter == $< ifTrue: [ ^ self scan20 ]. + currentCharacter == $> ifTrue: [ ^ self scan21 ] ] ] ] ] ] ] ]. + ^ self scan19 ]. currentCharacter == $< ] whileTrue. - currentCharacter == $> ifTrue: [ ^ self scan22 ]. - ^ self scan20 + currentCharacter == $> ifTrue: [ ^ self scan21 ]. + ^ self scan19 ] { #category : #generated } -HTMLScanner >> scan22 [ +HTMLScanner >> scan21 [ [ self recordMatch: #( 4 ). self step. - currentCharacter == $< ifTrue: [ ^ self scan21 ]. + currentCharacter == $< ifTrue: [ ^ self scan20 ]. currentCharacter == $> ] whileTrue. - ^ self scan20 + ^ self scan19 ] { #category : #generated } -HTMLScanner >> scan23 [ +HTMLScanner >> scan22 [ - [ + [ self step. - currentCharacter == $- ifTrue: [ ^ self scan24 ]. - currentCharacter == $< ifTrue: [ ^ self scan25 ]. + currentCharacter == $- ifTrue: [ ^ self scan23 ]. + currentCharacter == $< ifTrue: [ ^ self scan24 ]. true ] whileTrue ] { #category : #generated } -HTMLScanner >> scan24 [ +HTMLScanner >> scan23 [ self step. - currentCharacter == $- ifTrue: [ - [ + currentCharacter == $- ifTrue: [ + [ self step. currentCharacter == $- ] whileTrue. - currentCharacter == $< ifTrue: [ ^ self scan25 ]. - currentCharacter == $> ifTrue: [ + currentCharacter == $< ifTrue: [ ^ self scan24 ]. + currentCharacter == $> ifTrue: [ self recordMatch: #( 1 ). self step. - currentCharacter == $< ifTrue: [ ^ self scan2 ]. - ^ self scan1 ]. - ^ self scan23 ]. - currentCharacter == $< ifTrue: [ ^ self scan25 ]. - ^ self scan23 + currentCharacter == $< ifTrue: [ ^ self scan3 ]. + ^ self scan2 ]. + ^ self scan22 ]. + currentCharacter == $< ifTrue: [ ^ self scan24 ]. + ^ self scan22 ] { #category : #generated } -HTMLScanner >> scan25 [ +HTMLScanner >> scan24 [ [ self step. - currentCharacter == $- ifTrue: [ ^ self scan24 ]. + currentCharacter == $- ifTrue: [ ^ self scan23 ]. currentCharacter == $/ ifTrue: [ self step. - currentCharacter == $- ifTrue: [ ^ self scan24 ]. - currentCharacter == $< ifTrue: [ ^ self scan25 ]. + currentCharacter == $- ifTrue: [ ^ self scan23 ]. + currentCharacter == $< ifTrue: [ ^ self scan24 ]. currentCharacter == $> ifTrue: [ self recordMatch: #( 17 ). self step. - currentCharacter == $- ifTrue: [ ^ self scan24 ]. - currentCharacter == $< ifTrue: [ ^ self scan25 ]. - ^ self scan23 ]. + currentCharacter == $- ifTrue: [ ^ self scan23 ]. + currentCharacter == $< ifTrue: [ ^ self scan24 ]. + ^ self scan22 ]. currentCharacter == $s ifTrue: [ self step. - currentCharacter == $- ifTrue: [ ^ self scan24 ]. - currentCharacter == $< ifTrue: [ ^ self scan25 ]. + currentCharacter == $- ifTrue: [ ^ self scan23 ]. + currentCharacter == $< ifTrue: [ ^ self scan24 ]. currentCharacter == $c ifTrue: [ self step. - currentCharacter == $- ifTrue: [ ^ self scan24 ]. - currentCharacter == $< ifTrue: [ ^ self scan25 ]. + currentCharacter == $- ifTrue: [ ^ self scan23 ]. + currentCharacter == $< ifTrue: [ ^ self scan24 ]. currentCharacter == $r ifTrue: [ self step. - currentCharacter == $- ifTrue: [ ^ self scan24 ]. - currentCharacter == $< ifTrue: [ ^ self scan25 ]. + currentCharacter == $- ifTrue: [ ^ self scan23 ]. + currentCharacter == $< ifTrue: [ ^ self scan24 ]. currentCharacter == $i ifTrue: [ self step. - currentCharacter == $- ifTrue: [ ^ self scan24 ]. - currentCharacter == $< ifTrue: [ ^ self scan25 ]. + currentCharacter == $- ifTrue: [ ^ self scan23 ]. + currentCharacter == $< ifTrue: [ ^ self scan24 ]. currentCharacter == $p ifTrue: [ self step. - currentCharacter == $- ifTrue: [ ^ self scan24 ]. - currentCharacter == $< ifTrue: [ ^ self scan25 ]. + currentCharacter == $- ifTrue: [ ^ self scan23 ]. + currentCharacter == $< ifTrue: [ ^ self scan24 ]. currentCharacter == $t ifTrue: [ self step. - currentCharacter == $- ifTrue: [ ^ self scan24 ]. - currentCharacter == $< ifTrue: [ ^ self scan25 ]. + currentCharacter == $- ifTrue: [ ^ self scan23 ]. + currentCharacter == $< ifTrue: [ ^ self scan24 ]. currentCharacter == $> ifTrue: [ self recordMatch: #( 16 ). self step. - currentCharacter == $- ifTrue: [ ^ self scan24 ]. - currentCharacter == $< ifTrue: [ ^ self scan25 ] ] ] ] ] ] ] ]. - ^ self scan23 ]. + currentCharacter == $- ifTrue: [ ^ self scan23 ]. + currentCharacter == $< ifTrue: [ ^ self scan24 ] ] ] ] ] ] ] ]. + ^ self scan22 ]. currentCharacter == $< ] whileTrue. - ^ self scan23 + ^ self scan22 ] { #category : #generated } -HTMLScanner >> scan26 [ +HTMLScanner >> scan25 [ - [ + [ self step. - currentCharacter == $< ifTrue: [ ^ self scan27 ]. - currentCharacter == $> ifTrue: [ ^ self scan29 ]. - currentCharacter == $] ifTrue: [ ^ self scan30 ]. + currentCharacter == $< ifTrue: [ ^ self scan26 ]. + currentCharacter == $> ifTrue: [ ^ self scan28 ]. + currentCharacter == $] ifTrue: [ ^ self scan29 ]. true ] whileTrue ] { #category : #generated } -HTMLScanner >> scan27 [ +HTMLScanner >> scan26 [ - [ + [ self step. - currentCharacter == $/ ifTrue: [ ^ self scan28 ]. + currentCharacter == $/ ifTrue: [ ^ self scan27 ]. currentCharacter == $< ] whileTrue. - currentCharacter == $> ifTrue: [ ^ self scan29 ]. - currentCharacter == $] ifTrue: [ ^ self scan30 ]. - ^ self scan26 + currentCharacter == $> ifTrue: [ ^ self scan28 ]. + currentCharacter == $] ifTrue: [ ^ self scan29 ]. + ^ self scan25 ] { #category : #generated } -HTMLScanner >> scan28 [ +HTMLScanner >> scan27 [ self step. - currentCharacter == $< ifTrue: [ ^ self scan27 ]. + currentCharacter == $< ifTrue: [ ^ self scan26 ]. currentCharacter == $> ifTrue: [ self recordMatch: #( 4 17 ). self step. - currentCharacter == $< ifTrue: [ ^ self scan27 ]. - currentCharacter == $> ifTrue: [ ^ self scan29 ]. - currentCharacter == $] ifTrue: [ ^ self scan30 ]. - ^ self scan26 ]. - currentCharacter == $] ifTrue: [ ^ self scan30 ]. + currentCharacter == $< ifTrue: [ ^ self scan26 ]. + currentCharacter == $> ifTrue: [ ^ self scan28 ]. + currentCharacter == $] ifTrue: [ ^ self scan29 ]. + ^ self scan25 ]. + currentCharacter == $] ifTrue: [ ^ self scan29 ]. currentCharacter == $s ifTrue: [ self step. - currentCharacter == $< ifTrue: [ ^ self scan27 ]. - currentCharacter == $> ifTrue: [ ^ self scan29 ]. - currentCharacter == $] ifTrue: [ ^ self scan30 ]. + currentCharacter == $< ifTrue: [ ^ self scan26 ]. + currentCharacter == $> ifTrue: [ ^ self scan28 ]. + currentCharacter == $] ifTrue: [ ^ self scan29 ]. currentCharacter == $c ifTrue: [ self step. - currentCharacter == $< ifTrue: [ ^ self scan27 ]. - currentCharacter == $> ifTrue: [ ^ self scan29 ]. - currentCharacter == $] ifTrue: [ ^ self scan30 ]. + currentCharacter == $< ifTrue: [ ^ self scan26 ]. + currentCharacter == $> ifTrue: [ ^ self scan28 ]. + currentCharacter == $] ifTrue: [ ^ self scan29 ]. currentCharacter == $r ifTrue: [ self step. - currentCharacter == $< ifTrue: [ ^ self scan27 ]. - currentCharacter == $> ifTrue: [ ^ self scan29 ]. - currentCharacter == $] ifTrue: [ ^ self scan30 ]. + currentCharacter == $< ifTrue: [ ^ self scan26 ]. + currentCharacter == $> ifTrue: [ ^ self scan28 ]. + currentCharacter == $] ifTrue: [ ^ self scan29 ]. currentCharacter == $i ifTrue: [ self step. - currentCharacter == $< ifTrue: [ ^ self scan27 ]. - currentCharacter == $> ifTrue: [ ^ self scan29 ]. - currentCharacter == $] ifTrue: [ ^ self scan30 ]. + currentCharacter == $< ifTrue: [ ^ self scan26 ]. + currentCharacter == $> ifTrue: [ ^ self scan28 ]. + currentCharacter == $] ifTrue: [ ^ self scan29 ]. currentCharacter == $p ifTrue: [ self step. - currentCharacter == $< ifTrue: [ ^ self scan27 ]. - currentCharacter == $> ifTrue: [ ^ self scan29 ]. - currentCharacter == $] ifTrue: [ ^ self scan30 ]. + currentCharacter == $< ifTrue: [ ^ self scan26 ]. + currentCharacter == $> ifTrue: [ ^ self scan28 ]. + currentCharacter == $] ifTrue: [ ^ self scan29 ]. currentCharacter == $t ifTrue: [ self step. - currentCharacter == $< ifTrue: [ ^ self scan27 ]. + currentCharacter == $< ifTrue: [ ^ self scan26 ]. currentCharacter == $> ifTrue: [ self recordMatch: #( 4 16 ). self step. - currentCharacter == $< ifTrue: [ ^ self scan27 ]. - currentCharacter == $> ifTrue: [ ^ self scan29 ] ]. - currentCharacter == $] ifTrue: [ ^ self scan30 ] ] ] ] ] ] ]. - ^ self scan26 + currentCharacter == $< ifTrue: [ ^ self scan26 ]. + currentCharacter == $> ifTrue: [ ^ self scan28 ] ]. + currentCharacter == $] ifTrue: [ ^ self scan29 ] ] ] ] ] ] ]. + ^ self scan25 ] { #category : #generated } -HTMLScanner >> scan29 [ +HTMLScanner >> scan28 [ [ self recordMatch: #( 4 ). self step. - currentCharacter == $< ifTrue: [ ^ self scan27 ]. + currentCharacter == $< ifTrue: [ ^ self scan26 ]. currentCharacter == $> ] whileTrue. - currentCharacter == $] ifTrue: [ ^ self scan30 ]. - ^ self scan26 + currentCharacter == $] ifTrue: [ ^ self scan29 ]. + ^ self scan25 ] { #category : #generated } -HTMLScanner >> scan3 [ +HTMLScanner >> scan29 [ + [ self step. - currentCharacter == $< ifTrue: [ ^ self scan2 ]. + currentCharacter == $< ifTrue: [ ^ self scan26 ]. currentCharacter == $> ifTrue: [ - self recordMatch: #( 17 ). - self step. - currentCharacter == $< ifTrue: [ ^ self scan2 ]. - ^ self scan1 ]. - currentCharacter == $s ifTrue: [ + self recordMatch: #( 2 4 ). self step. - currentCharacter == $< ifTrue: [ ^ self scan2 ]. - currentCharacter == $c ifTrue: [ - self step. - currentCharacter == $< ifTrue: [ ^ self scan2 ]. - currentCharacter == $r ifTrue: [ - self step. - currentCharacter == $< ifTrue: [ ^ self scan2 ]. - currentCharacter == $i ifTrue: [ - self step. - currentCharacter == $< ifTrue: [ ^ self scan2 ]. - currentCharacter == $p ifTrue: [ - self step. - currentCharacter == $< ifTrue: [ ^ self scan2 ]. - currentCharacter == $t ifTrue: [ - self step. - currentCharacter == $< ifTrue: [ ^ self scan2 ]. - currentCharacter == $> ifTrue: [ - self recordMatch: #( 16 ). - self step. - currentCharacter == $< ifTrue: [ ^ self scan2 ] ] ] ] ] ] ] ]. - ^ self scan1 + currentCharacter == $< ifTrue: [ ^ self scan26 ]. + currentCharacter == $> ifTrue: [ ^ self scan28 ]. + currentCharacter == $] ifTrue: [ ^ self scan29 ]. + ^ self scan25 ]. + currentCharacter == $] ] whileTrue. + ^ self scan25 ] { #category : #generated } -HTMLScanner >> scan30 [ +HTMLScanner >> scan3 [ [ self step. - currentCharacter == $< ifTrue: [ ^ self scan27 ]. - currentCharacter == $> ifTrue: [ - self recordMatch: #( 2 4 ). - self step. - currentCharacter == $< ifTrue: [ ^ self scan27 ]. - currentCharacter == $> ifTrue: [ ^ self scan29 ]. - currentCharacter == $] ifTrue: [ ^ self scan30 ]. - ^ self scan26 ]. - currentCharacter == $] ] whileTrue. - ^ self scan26 + currentCharacter == $/ ifTrue: [ ^ self scan4 ]. + currentCharacter == $< ] whileTrue. + ^ self scan2 ] { #category : #generated } -HTMLScanner >> scan31 [ +HTMLScanner >> scan30 [ [ self step. - currentCharacter == $% ifTrue: [ ^ self scan32 ]. - currentCharacter == $< ifTrue: [ ^ self scan33 ]. + currentCharacter == $% ifTrue: [ ^ self scan31 ]. + currentCharacter == $< ifTrue: [ ^ self scan32 ]. true ] whileTrue ] { #category : #generated } -HTMLScanner >> scan32 [ +HTMLScanner >> scan31 [ [ self step. currentCharacter == $% ] whileTrue. - currentCharacter == $< ifTrue: [ ^ self scan33 ]. + currentCharacter == $< ifTrue: [ ^ self scan32 ]. currentCharacter == $> ifTrue: [ self recordMatch: #( 5 ). self step. - currentCharacter == $% ifTrue: [ ^ self scan32 ]. - currentCharacter == $< ifTrue: [ ^ self scan33 ] ]. - ^ self scan31 + currentCharacter == $% ifTrue: [ ^ self scan31 ]. + currentCharacter == $< ifTrue: [ ^ self scan32 ] ]. + ^ self scan30 ] { #category : #generated } -HTMLScanner >> scan33 [ +HTMLScanner >> scan32 [ [ self step. - currentCharacter == $% ifTrue: [ ^ self scan32 ]. + currentCharacter == $% ifTrue: [ ^ self scan31 ]. currentCharacter == $/ ifTrue: [ self step. - currentCharacter == $% ifTrue: [ ^ self scan32 ]. - currentCharacter == $< ifTrue: [ ^ self scan33 ]. + currentCharacter == $% ifTrue: [ ^ self scan31 ]. + currentCharacter == $< ifTrue: [ ^ self scan32 ]. currentCharacter == $> ifTrue: [ self recordMatch: #( 17 ). self step. - currentCharacter == $% ifTrue: [ ^ self scan32 ]. - currentCharacter == $< ifTrue: [ ^ self scan33 ]. - ^ self scan31 ]. + currentCharacter == $% ifTrue: [ ^ self scan31 ]. + currentCharacter == $< ifTrue: [ ^ self scan32 ]. + ^ self scan30 ]. currentCharacter == $s ifTrue: [ self step. - currentCharacter == $% ifTrue: [ ^ self scan32 ]. - currentCharacter == $< ifTrue: [ ^ self scan33 ]. + currentCharacter == $% ifTrue: [ ^ self scan31 ]. + currentCharacter == $< ifTrue: [ ^ self scan32 ]. currentCharacter == $c ifTrue: [ self step. - currentCharacter == $% ifTrue: [ ^ self scan32 ]. - currentCharacter == $< ifTrue: [ ^ self scan33 ]. + currentCharacter == $% ifTrue: [ ^ self scan31 ]. + currentCharacter == $< ifTrue: [ ^ self scan32 ]. currentCharacter == $r ifTrue: [ self step. - currentCharacter == $% ifTrue: [ ^ self scan32 ]. - currentCharacter == $< ifTrue: [ ^ self scan33 ]. + currentCharacter == $% ifTrue: [ ^ self scan31 ]. + currentCharacter == $< ifTrue: [ ^ self scan32 ]. currentCharacter == $i ifTrue: [ self step. - currentCharacter == $% ifTrue: [ ^ self scan32 ]. - currentCharacter == $< ifTrue: [ ^ self scan33 ]. + currentCharacter == $% ifTrue: [ ^ self scan31 ]. + currentCharacter == $< ifTrue: [ ^ self scan32 ]. currentCharacter == $p ifTrue: [ self step. - currentCharacter == $% ifTrue: [ ^ self scan32 ]. - currentCharacter == $< ifTrue: [ ^ self scan33 ]. + currentCharacter == $% ifTrue: [ ^ self scan31 ]. + currentCharacter == $< ifTrue: [ ^ self scan32 ]. currentCharacter == $t ifTrue: [ self step. - currentCharacter == $% ifTrue: [ ^ self scan32 ]. - currentCharacter == $< ifTrue: [ ^ self scan33 ]. + currentCharacter == $% ifTrue: [ ^ self scan31 ]. + currentCharacter == $< ifTrue: [ ^ self scan32 ]. currentCharacter == $> ifTrue: [ self recordMatch: #( 16 ). self step. - currentCharacter == $% ifTrue: [ ^ self scan32 ]. - currentCharacter == $< ifTrue: [ ^ self scan33 ] ] ] ] ] ] ] ]. - ^ self scan31 ]. + currentCharacter == $% ifTrue: [ ^ self scan31 ]. + currentCharacter == $< ifTrue: [ ^ self scan32 ] ] ] ] ] ] ] ]. + ^ self scan30 ]. currentCharacter == $< ] whileTrue. - ^ self scan31 + ^ self scan30 ] { #category : #generated } -HTMLScanner >> scan34 [ +HTMLScanner >> scan33 [ [ self step. - currentCharacter == $< ifTrue: [ ^ self scan35 ]. - currentCharacter == $? ifTrue: [ ^ self scan36 ]. + currentCharacter == $< ifTrue: [ ^ self scan34 ]. + currentCharacter == $? ifTrue: [ ^ self scan35 ]. true ] whileTrue ] { #category : #generated } -HTMLScanner >> scan35 [ +HTMLScanner >> scan34 [ [ self step. currentCharacter == $/ ifTrue: [ self step. - currentCharacter == $< ifTrue: [ ^ self scan35 ]. + currentCharacter == $< ifTrue: [ ^ self scan34 ]. currentCharacter == $> ifTrue: [ self recordMatch: #( 17 ). self step. - currentCharacter == $< ifTrue: [ ^ self scan35 ]. - currentCharacter == $? ifTrue: [ ^ self scan36 ]. - ^ self scan34 ]. - currentCharacter == $? ifTrue: [ ^ self scan36 ]. + currentCharacter == $< ifTrue: [ ^ self scan34 ]. + currentCharacter == $? ifTrue: [ ^ self scan35 ]. + ^ self scan33 ]. + currentCharacter == $? ifTrue: [ ^ self scan35 ]. currentCharacter == $s ifTrue: [ self step. - currentCharacter == $< ifTrue: [ ^ self scan35 ]. - currentCharacter == $? ifTrue: [ ^ self scan36 ]. + currentCharacter == $< ifTrue: [ ^ self scan34 ]. + currentCharacter == $? ifTrue: [ ^ self scan35 ]. currentCharacter == $c ifTrue: [ self step. - currentCharacter == $< ifTrue: [ ^ self scan35 ]. - currentCharacter == $? ifTrue: [ ^ self scan36 ]. + currentCharacter == $< ifTrue: [ ^ self scan34 ]. + currentCharacter == $? ifTrue: [ ^ self scan35 ]. currentCharacter == $r ifTrue: [ self step. - currentCharacter == $< ifTrue: [ ^ self scan35 ]. - currentCharacter == $? ifTrue: [ ^ self scan36 ]. + currentCharacter == $< ifTrue: [ ^ self scan34 ]. + currentCharacter == $? ifTrue: [ ^ self scan35 ]. currentCharacter == $i ifTrue: [ self step. - currentCharacter == $< ifTrue: [ ^ self scan35 ]. - currentCharacter == $? ifTrue: [ ^ self scan36 ]. + currentCharacter == $< ifTrue: [ ^ self scan34 ]. + currentCharacter == $? ifTrue: [ ^ self scan35 ]. currentCharacter == $p ifTrue: [ self step. - currentCharacter == $< ifTrue: [ ^ self scan35 ]. - currentCharacter == $? ifTrue: [ ^ self scan36 ]. + currentCharacter == $< ifTrue: [ ^ self scan34 ]. + currentCharacter == $? ifTrue: [ ^ self scan35 ]. currentCharacter == $t ifTrue: [ self step. - currentCharacter == $< ifTrue: [ ^ self scan35 ]. + currentCharacter == $< ifTrue: [ ^ self scan34 ]. currentCharacter == $> ifTrue: [ self recordMatch: #( 16 ). self step. - currentCharacter == $< ifTrue: [ ^ self scan35 ] ]. - currentCharacter == $? ifTrue: [ ^ self scan36 ] ] ] ] ] ] ]. - ^ self scan34 ]. + currentCharacter == $< ifTrue: [ ^ self scan34 ] ]. + currentCharacter == $? ifTrue: [ ^ self scan35 ] ] ] ] ] ] ]. + ^ self scan33 ]. currentCharacter == $< ] whileTrue. - currentCharacter == $? ifTrue: [ ^ self scan36 ]. - ^ self scan34 + currentCharacter == $? ifTrue: [ ^ self scan35 ]. + ^ self scan33 ] { #category : #generated } -HTMLScanner >> scan36 [ +HTMLScanner >> scan35 [ [ self step. - currentCharacter == $< ifTrue: [ ^ self scan35 ]. + currentCharacter == $< ifTrue: [ ^ self scan34 ]. currentCharacter == $> ifTrue: [ self recordMatch: #( 5 ). self step. - currentCharacter == $< ifTrue: [ ^ self scan35 ]. - currentCharacter == $? ifTrue: [ ^ self scan36 ]. - ^ self scan34 ]. + currentCharacter == $< ifTrue: [ ^ self scan34 ]. + currentCharacter == $? ifTrue: [ ^ self scan35 ]. + ^ self scan33 ]. currentCharacter == $? ] whileTrue. - ^ self scan34 + ^ self scan33 ] { #category : #generated } -HTMLScanner >> scan37 [ +HTMLScanner >> scan36 [ [ self step. - currentCharacter == $< ifTrue: [ ^ self scan38 ]. - currentCharacter == $> ifTrue: [ ^ self scan40 ]. - currentCharacter == $? ifTrue: [ ^ self scan41 ]. + currentCharacter == $< ifTrue: [ ^ self scan37 ]. + currentCharacter == $> ifTrue: [ ^ self scan39 ]. + currentCharacter == $? ifTrue: [ ^ self scan40 ]. true ] whileTrue ] { #category : #generated } -HTMLScanner >> scan38 [ +HTMLScanner >> scan37 [ [ self step. - currentCharacter == $/ ifTrue: [ ^ self scan39 ]. + currentCharacter == $/ ifTrue: [ ^ self scan38 ]. currentCharacter == $< ] whileTrue. - currentCharacter == $> ifTrue: [ ^ self scan40 ]. - currentCharacter == $? ifTrue: [ ^ self scan41 ]. - ^ self scan37 + currentCharacter == $> ifTrue: [ ^ self scan39 ]. + currentCharacter == $? ifTrue: [ ^ self scan40 ]. + ^ self scan36 ] { #category : #generated } -HTMLScanner >> scan39 [ +HTMLScanner >> scan38 [ self step. - currentCharacter == $< ifTrue: [ ^ self scan38 ]. + currentCharacter == $< ifTrue: [ ^ self scan37 ]. currentCharacter == $> ifTrue: [ self recordMatch: #( 3 17 ). self step. - currentCharacter == $< ifTrue: [ ^ self scan38 ]. - currentCharacter == $> ifTrue: [ ^ self scan40 ]. - currentCharacter == $? ifTrue: [ ^ self scan41 ]. - ^ self scan37 ]. - currentCharacter == $? ifTrue: [ ^ self scan41 ]. + currentCharacter == $< ifTrue: [ ^ self scan37 ]. + currentCharacter == $> ifTrue: [ ^ self scan39 ]. + currentCharacter == $? ifTrue: [ ^ self scan40 ]. + ^ self scan36 ]. + currentCharacter == $? ifTrue: [ ^ self scan40 ]. currentCharacter == $s ifTrue: [ self step. - currentCharacter == $< ifTrue: [ ^ self scan38 ]. - currentCharacter == $> ifTrue: [ ^ self scan40 ]. - currentCharacter == $? ifTrue: [ ^ self scan41 ]. + currentCharacter == $< ifTrue: [ ^ self scan37 ]. + currentCharacter == $> ifTrue: [ ^ self scan39 ]. + currentCharacter == $? ifTrue: [ ^ self scan40 ]. currentCharacter == $c ifTrue: [ self step. - currentCharacter == $< ifTrue: [ ^ self scan38 ]. - currentCharacter == $> ifTrue: [ ^ self scan40 ]. - currentCharacter == $? ifTrue: [ ^ self scan41 ]. + currentCharacter == $< ifTrue: [ ^ self scan37 ]. + currentCharacter == $> ifTrue: [ ^ self scan39 ]. + currentCharacter == $? ifTrue: [ ^ self scan40 ]. currentCharacter == $r ifTrue: [ self step. - currentCharacter == $< ifTrue: [ ^ self scan38 ]. - currentCharacter == $> ifTrue: [ ^ self scan40 ]. - currentCharacter == $? ifTrue: [ ^ self scan41 ]. + currentCharacter == $< ifTrue: [ ^ self scan37 ]. + currentCharacter == $> ifTrue: [ ^ self scan39 ]. + currentCharacter == $? ifTrue: [ ^ self scan40 ]. currentCharacter == $i ifTrue: [ self step. - currentCharacter == $< ifTrue: [ ^ self scan38 ]. - currentCharacter == $> ifTrue: [ ^ self scan40 ]. - currentCharacter == $? ifTrue: [ ^ self scan41 ]. + currentCharacter == $< ifTrue: [ ^ self scan37 ]. + currentCharacter == $> ifTrue: [ ^ self scan39 ]. + currentCharacter == $? ifTrue: [ ^ self scan40 ]. currentCharacter == $p ifTrue: [ self step. - currentCharacter == $< ifTrue: [ ^ self scan38 ]. - currentCharacter == $> ifTrue: [ ^ self scan40 ]. - currentCharacter == $? ifTrue: [ ^ self scan41 ]. + currentCharacter == $< ifTrue: [ ^ self scan37 ]. + currentCharacter == $> ifTrue: [ ^ self scan39 ]. + currentCharacter == $? ifTrue: [ ^ self scan40 ]. currentCharacter == $t ifTrue: [ self step. - currentCharacter == $< ifTrue: [ ^ self scan38 ]. + currentCharacter == $< ifTrue: [ ^ self scan37 ]. currentCharacter == $> ifTrue: [ self recordMatch: #( 3 16 ). self step. - currentCharacter == $< ifTrue: [ ^ self scan38 ]. - currentCharacter == $> ifTrue: [ ^ self scan40 ] ]. - currentCharacter == $? ifTrue: [ ^ self scan41 ] ] ] ] ] ] ]. - ^ self scan37 + currentCharacter == $< ifTrue: [ ^ self scan37 ]. + currentCharacter == $> ifTrue: [ ^ self scan39 ] ]. + currentCharacter == $? ifTrue: [ ^ self scan40 ] ] ] ] ] ] ]. + ^ self scan36 ] { #category : #generated } -HTMLScanner >> scan4 [ +HTMLScanner >> scan39 [ [ - self recordMatch: #( 6 ). + self recordMatch: #( 3 ). self step. - currentCharacter == $< ifTrue: [ ^ self scan2 ]. - (currentCharacter between: Character tab and: Character lf) or: [ - currentCharacter == Character cr or: [ - currentCharacter == Character space ] ] ] whileTrue. - ^ self scan1 + currentCharacter == $< ifTrue: [ ^ self scan37 ]. + currentCharacter == $> ] whileTrue. + currentCharacter == $? ifTrue: [ ^ self scan40 ]. + ^ self scan36 ] { #category : #generated } -HTMLScanner >> scan40 [ +HTMLScanner >> scan4 [ - [ - self recordMatch: #( 3 ). self step. - currentCharacter == $< ifTrue: [ ^ self scan38 ]. - currentCharacter == $> ] whileTrue. - currentCharacter == $? ifTrue: [ ^ self scan41 ]. - ^ self scan37 + currentCharacter == $< ifTrue: [ ^ self scan3 ]. + currentCharacter == $> ifTrue: [ + self recordMatch: #( 17 ). + self step. + currentCharacter == $< ifTrue: [ ^ self scan3 ]. + ^ self scan2 ]. + currentCharacter == $s ifTrue: [ + self step. + currentCharacter == $< ifTrue: [ ^ self scan3 ]. + currentCharacter == $c ifTrue: [ + self step. + currentCharacter == $< ifTrue: [ ^ self scan3 ]. + currentCharacter == $r ifTrue: [ + self step. + currentCharacter == $< ifTrue: [ ^ self scan3 ]. + currentCharacter == $i ifTrue: [ + self step. + currentCharacter == $< ifTrue: [ ^ self scan3 ]. + currentCharacter == $p ifTrue: [ + self step. + currentCharacter == $< ifTrue: [ ^ self scan3 ]. + currentCharacter == $t ifTrue: [ + self step. + currentCharacter == $< ifTrue: [ ^ self scan3 ]. + currentCharacter == $> ifTrue: [ + self recordMatch: #( 16 ). + self step. + currentCharacter == $< ifTrue: [ ^ self scan3 ] ] ] ] ] ] ] ]. + ^ self scan2 ] { #category : #generated } -HTMLScanner >> scan41 [ +HTMLScanner >> scan40 [ [ self step. - currentCharacter == $< ifTrue: [ ^ self scan38 ]. + currentCharacter == $< ifTrue: [ ^ self scan37 ]. currentCharacter == $> ifTrue: [ self recordMatch: #( 3 5 ). self step. - currentCharacter == $< ifTrue: [ ^ self scan38 ]. - currentCharacter == $> ifTrue: [ ^ self scan40 ]. - currentCharacter == $? ifTrue: [ ^ self scan41 ]. - ^ self scan37 ]. + currentCharacter == $< ifTrue: [ ^ self scan37 ]. + currentCharacter == $> ifTrue: [ ^ self scan39 ]. + currentCharacter == $? ifTrue: [ ^ self scan40 ]. + ^ self scan36 ]. currentCharacter == $? ] whileTrue. - ^ self scan37 + ^ self scan36 ] { #category : #generated } -HTMLScanner >> scan42 [ +HTMLScanner >> scan41 [ [ self step. - currentCharacter == $< ifTrue: [ ^ self scan43 ]. - currentCharacter == $> ifTrue: [ ^ self scan44 ]. + currentCharacter == $< ifTrue: [ ^ self scan42 ]. + currentCharacter == $> ifTrue: [ ^ self scan43 ]. true ] whileTrue ] { #category : #generated } -HTMLScanner >> scan43 [ +HTMLScanner >> scan42 [ [ self step. currentCharacter == $/ ifTrue: [ self step. - currentCharacter == $< ifTrue: [ ^ self scan43 ]. + currentCharacter == $< ifTrue: [ ^ self scan42 ]. currentCharacter == $> ifTrue: [ self recordMatch: #( 7 17 ). self step. - currentCharacter == $< ifTrue: [ ^ self scan43 ]. - currentCharacter == $> ifTrue: [ ^ self scan44 ]. - ^ self scan42 ]. + currentCharacter == $< ifTrue: [ ^ self scan42 ]. + currentCharacter == $> ifTrue: [ ^ self scan43 ]. + ^ self scan41 ]. currentCharacter == $s ifTrue: [ self step. - currentCharacter == $< ifTrue: [ ^ self scan43 ]. - currentCharacter == $> ifTrue: [ ^ self scan44 ]. + currentCharacter == $< ifTrue: [ ^ self scan42 ]. + currentCharacter == $> ifTrue: [ ^ self scan43 ]. currentCharacter == $c ifTrue: [ self step. - currentCharacter == $< ifTrue: [ ^ self scan43 ]. - currentCharacter == $> ifTrue: [ ^ self scan44 ]. + currentCharacter == $< ifTrue: [ ^ self scan42 ]. + currentCharacter == $> ifTrue: [ ^ self scan43 ]. currentCharacter == $r ifTrue: [ self step. - currentCharacter == $< ifTrue: [ ^ self scan43 ]. - currentCharacter == $> ifTrue: [ ^ self scan44 ]. + currentCharacter == $< ifTrue: [ ^ self scan42 ]. + currentCharacter == $> ifTrue: [ ^ self scan43 ]. currentCharacter == $i ifTrue: [ self step. - currentCharacter == $< ifTrue: [ ^ self scan43 ]. - currentCharacter == $> ifTrue: [ ^ self scan44 ]. + currentCharacter == $< ifTrue: [ ^ self scan42 ]. + currentCharacter == $> ifTrue: [ ^ self scan43 ]. currentCharacter == $p ifTrue: [ self step. - currentCharacter == $< ifTrue: [ ^ self scan43 ]. - currentCharacter == $> ifTrue: [ ^ self scan44 ]. + currentCharacter == $< ifTrue: [ ^ self scan42 ]. + currentCharacter == $> ifTrue: [ ^ self scan43 ]. currentCharacter == $t ifTrue: [ self step. - currentCharacter == $< ifTrue: [ ^ self scan43 ]. + currentCharacter == $< ifTrue: [ ^ self scan42 ]. currentCharacter == $> ifTrue: [ self recordMatch: #( 7 16 ). self step. - currentCharacter == $< ifTrue: [ ^ self scan43 ]. - currentCharacter == $> ifTrue: [ ^ self scan44 ] ] ] ] ] ] ] ]. - ^ self scan42 ]. + currentCharacter == $< ifTrue: [ ^ self scan42 ]. + currentCharacter == $> ifTrue: [ ^ self scan43 ] ] ] ] ] ] ] ]. + ^ self scan41 ]. currentCharacter == $< ] whileTrue. - currentCharacter == $> ifTrue: [ ^ self scan44 ]. - ^ self scan42 + currentCharacter == $> ifTrue: [ ^ self scan43 ]. + ^ self scan41 ] { #category : #generated } -HTMLScanner >> scan44 [ +HTMLScanner >> scan43 [ [ self recordMatch: #( 7 ). self step. - currentCharacter == $< ifTrue: [ ^ self scan43 ]. + currentCharacter == $< ifTrue: [ ^ self scan42 ]. currentCharacter == $> ] whileTrue. - ^ self scan42 + ^ self scan41 ] { #category : #generated } -HTMLScanner >> scan45 [ +HTMLScanner >> scan44 [ [ self step. - currentCharacter == $< ifTrue: [ ^ self scan46 ]. - currentCharacter == $> ifTrue: [ ^ self scan47 ]. + currentCharacter == $< ifTrue: [ ^ self scan45 ]. + currentCharacter == $> ifTrue: [ ^ self scan46 ]. true ] whileTrue ] { #category : #generated } -HTMLScanner >> scan46 [ +HTMLScanner >> scan45 [ [ self step. currentCharacter == $/ ifTrue: [ self step. - currentCharacter == $< ifTrue: [ ^ self scan46 ]. + currentCharacter == $< ifTrue: [ ^ self scan45 ]. currentCharacter == $> ifTrue: [ self recordMatch: #( 8 17 ). self step. - currentCharacter == $< ifTrue: [ ^ self scan46 ]. - currentCharacter == $> ifTrue: [ ^ self scan47 ]. - ^ self scan45 ]. + currentCharacter == $< ifTrue: [ ^ self scan45 ]. + currentCharacter == $> ifTrue: [ ^ self scan46 ]. + ^ self scan44 ]. currentCharacter == $s ifTrue: [ self step. - currentCharacter == $< ifTrue: [ ^ self scan46 ]. - currentCharacter == $> ifTrue: [ ^ self scan47 ]. + currentCharacter == $< ifTrue: [ ^ self scan45 ]. + currentCharacter == $> ifTrue: [ ^ self scan46 ]. currentCharacter == $c ifTrue: [ self step. - currentCharacter == $< ifTrue: [ ^ self scan46 ]. - currentCharacter == $> ifTrue: [ ^ self scan47 ]. + currentCharacter == $< ifTrue: [ ^ self scan45 ]. + currentCharacter == $> ifTrue: [ ^ self scan46 ]. currentCharacter == $r ifTrue: [ self step. - currentCharacter == $< ifTrue: [ ^ self scan46 ]. - currentCharacter == $> ifTrue: [ ^ self scan47 ]. + currentCharacter == $< ifTrue: [ ^ self scan45 ]. + currentCharacter == $> ifTrue: [ ^ self scan46 ]. currentCharacter == $i ifTrue: [ self step. - currentCharacter == $< ifTrue: [ ^ self scan46 ]. - currentCharacter == $> ifTrue: [ ^ self scan47 ]. + currentCharacter == $< ifTrue: [ ^ self scan45 ]. + currentCharacter == $> ifTrue: [ ^ self scan46 ]. currentCharacter == $p ifTrue: [ self step. - currentCharacter == $< ifTrue: [ ^ self scan46 ]. - currentCharacter == $> ifTrue: [ ^ self scan47 ]. + currentCharacter == $< ifTrue: [ ^ self scan45 ]. + currentCharacter == $> ifTrue: [ ^ self scan46 ]. currentCharacter == $t ifTrue: [ self step. - currentCharacter == $< ifTrue: [ ^ self scan46 ]. + currentCharacter == $< ifTrue: [ ^ self scan45 ]. currentCharacter == $> ifTrue: [ self recordMatch: #( 8 16 ). self step. - currentCharacter == $< ifTrue: [ ^ self scan46 ]. - currentCharacter == $> ifTrue: [ ^ self scan47 ] ] ] ] ] ] ] ]. - ^ self scan45 ]. + currentCharacter == $< ifTrue: [ ^ self scan45 ]. + currentCharacter == $> ifTrue: [ ^ self scan46 ] ] ] ] ] ] ] ]. + ^ self scan44 ]. currentCharacter == $< ] whileTrue. - currentCharacter == $> ifTrue: [ ^ self scan47 ]. - ^ self scan45 + currentCharacter == $> ifTrue: [ ^ self scan46 ]. + ^ self scan44 ] { #category : #generated } -HTMLScanner >> scan47 [ +HTMLScanner >> scan46 [ [ self recordMatch: #( 8 ). self step. - currentCharacter == $< ifTrue: [ ^ self scan46 ]. + currentCharacter == $< ifTrue: [ ^ self scan45 ]. currentCharacter == $> ] whileTrue. - ^ self scan45 + ^ self scan44 ] { #category : #generated } -HTMLScanner >> scan48 [ +HTMLScanner >> scan47 [ [ self step. - currentCharacter == $< ifTrue: [ ^ self scan49 ]. + currentCharacter == $< ifTrue: [ ^ self scan48 ]. true ] whileTrue ] { #category : #generated } -HTMLScanner >> scan49 [ +HTMLScanner >> scan48 [ [ self step. - currentCharacter == $/ ifTrue: [ ^ self scan50 ]. + currentCharacter == $/ ifTrue: [ ^ self scan49 ]. currentCharacter == $< ] whileTrue. - ^ self scan48 -] - -{ #category : #generated } -HTMLScanner >> scan5 [ - - [ - self step. - currentCharacter == $" ifTrue: [ ^ self scan6 ]. - currentCharacter == $< ifTrue: [ ^ self scan7 ]. - true ] whileTrue + ^ self scan47 ] { #category : #generated } -HTMLScanner >> scan50 [ +HTMLScanner >> scan49 [ self step. - currentCharacter == $< ifTrue: [ ^ self scan49 ]. + currentCharacter == $< ifTrue: [ ^ self scan48 ]. currentCharacter == $> ifTrue: [ self recordMatch: #( 17 19 ). self step. - currentCharacter == $< ifTrue: [ ^ self scan49 ]. - ^ self scan48 ]. + currentCharacter == $< ifTrue: [ ^ self scan48 ]. + ^ self scan47 ]. currentCharacter == $s ifTrue: [ self step. - currentCharacter == $< ifTrue: [ ^ self scan49 ]. + currentCharacter == $< ifTrue: [ ^ self scan48 ]. currentCharacter == $c ifTrue: [ self step. - currentCharacter == $< ifTrue: [ ^ self scan49 ]. + currentCharacter == $< ifTrue: [ ^ self scan48 ]. currentCharacter == $r ifTrue: [ self step. - currentCharacter == $< ifTrue: [ ^ self scan49 ]. + currentCharacter == $< ifTrue: [ ^ self scan48 ]. currentCharacter == $i ifTrue: [ self step. - currentCharacter == $< ifTrue: [ ^ self scan49 ]. + currentCharacter == $< ifTrue: [ ^ self scan48 ]. currentCharacter == $p ifTrue: [ self step. - currentCharacter == $< ifTrue: [ ^ self scan49 ]. + currentCharacter == $< ifTrue: [ ^ self scan48 ]. currentCharacter == $t ifTrue: [ self step. - currentCharacter == $< ifTrue: [ ^ self scan49 ]. + currentCharacter == $< ifTrue: [ ^ self scan48 ]. currentCharacter == $> ifTrue: [ self recordMatch: #( 16 ). self step. - currentCharacter == $< ifTrue: [ ^ self scan49 ] ] ] ] ] ]. - ^ self scan48 ]. + currentCharacter == $< ifTrue: [ ^ self scan48 ] ] ] ] ] ]. + ^ self scan47 ]. currentCharacter == $t ifTrue: [ self step. - currentCharacter == $< ifTrue: [ ^ self scan49 ]. + currentCharacter == $< ifTrue: [ ^ self scan48 ]. currentCharacter == $y ifTrue: [ self step. - currentCharacter == $< ifTrue: [ ^ self scan49 ]. + currentCharacter == $< ifTrue: [ ^ self scan48 ]. currentCharacter == $l ifTrue: [ self step. - currentCharacter == $< ifTrue: [ ^ self scan49 ]. + currentCharacter == $< ifTrue: [ ^ self scan48 ]. currentCharacter == $e ifTrue: [ self step. - currentCharacter == $< ifTrue: [ ^ self scan49 ]. + currentCharacter == $< ifTrue: [ ^ self scan48 ]. currentCharacter == $> ifTrue: [ self recordMatch: #( 18 ). self step. - currentCharacter == $< ifTrue: [ ^ self scan49 ] ] ] ] ] ] ]. - ^ self scan48 + currentCharacter == $< ifTrue: [ ^ self scan48 ] ] ] ] ] ] ]. + ^ self scan47 ] { #category : #generated } -HTMLScanner >> scan51 [ +HTMLScanner >> scan5 [ + [ + self recordMatch: #( 6 ). self step. - currentCharacter == $< ifTrue: [ ^ self scan2 ]. + currentCharacter == $< ifTrue: [ ^ self scan3 ]. + (currentCharacter between: Character tab and: Character lf) or: [ + currentCharacter == Character cr or: [ + currentCharacter == Character space ] ] ] whileTrue. + ^ self scan2 +] + +{ #category : #generated } +HTMLScanner >> scan50 [ + + self step. + currentCharacter == $< ifTrue: [ ^ self scan3 ]. (currentCharacter == $: or: [ (currentCharacter between: $A and: $Z) or: [ - currentCharacter between: $a and: $z ] ]) ifTrue: [ ^ self scan52 ]. - ^ self scan1 + currentCharacter between: $a and: $z ] ]) ifTrue: [ ^ self scan51 ]. + ^ self scan2 ] { #category : #generated } -HTMLScanner >> scan52 [ +HTMLScanner >> scan51 [ [ self recordMatch: #( 14 ). @@ -1133,117 +1162,107 @@ HTMLScanner >> scan52 [ currentCharacter == $) ifTrue: [ self recordMatch: #( 14 ). self step. - currentCharacter == $< ifTrue: [ ^ self scan2 ]. - currentCharacter == $] ifTrue: [ ^ self scan53 ]. - ^ self scan1 ]. - currentCharacter == $< ifTrue: [ ^ self scan2 ]. - currentCharacter == $] ifTrue: [ ^ self scan53 ]. + currentCharacter == $< ifTrue: [ ^ self scan3 ]. + currentCharacter == $] ifTrue: [ ^ self scan52 ]. + ^ self scan2 ]. + currentCharacter == $< ifTrue: [ ^ self scan3 ]. + currentCharacter == $] ifTrue: [ ^ self scan52 ]. (currentCharacter between: $- and: $.) or: [ (currentCharacter between: $0 and: $:) or: [ (currentCharacter between: $A and: $Z) or: [ currentCharacter == $_ or: [ currentCharacter between: $a and: $z ] ] ] ] ] whileTrue. - ^ self scan1 + ^ self scan2 ] { #category : #generated } -HTMLScanner >> scan53 [ +HTMLScanner >> scan52 [ self recordMatch: #( 14 ). self step. - currentCharacter == $< ifTrue: [ ^ self scan2 ]. - ^ self scan1 + currentCharacter == $< ifTrue: [ ^ self scan3 ]. + ^ self scan2 ] { #category : #generated } -HTMLScanner >> scan54 [ +HTMLScanner >> scan53 [ self step. - currentCharacter == $# ifTrue: [ ^ self scan51 ]. - currentCharacter == $< ifTrue: [ ^ self scan2 ]. + currentCharacter == $# ifTrue: [ ^ self scan50 ]. + currentCharacter == $< ifTrue: [ ^ self scan3 ]. (currentCharacter == $: or: [ (currentCharacter between: $A and: $Z) or: [ - currentCharacter between: $a and: $z ] ]) ifTrue: [ ^ self scan52 ]. - ^ self scan1 + currentCharacter between: $a and: $z ] ]) ifTrue: [ ^ self scan51 ]. + ^ self scan2 ] { #category : #generated } HTMLScanner >> scan6 [ - self recordMatch: #( 20 ). + [ self step. - currentCharacter == $< ifTrue: [ ^ self scan2 ]. - ^ self scan1 + currentCharacter == $" ifTrue: [ ^ self scan7 ]. + currentCharacter == $< ifTrue: [ ^ self scan8 ]. + true ] whileTrue ] { #category : #generated } HTMLScanner >> scan7 [ + self recordMatch: #( 20 ). + self step. + currentCharacter == $< ifTrue: [ ^ self scan3 ]. + ^ self scan2 +] + +{ #category : #generated } +HTMLScanner >> scan8 [ + [ self step. - currentCharacter == $" ifTrue: [ ^ self scan6 ]. + currentCharacter == $" ifTrue: [ ^ self scan7 ]. currentCharacter == $/ ifTrue: [ self step. - currentCharacter == $" ifTrue: [ ^ self scan6 ]. - currentCharacter == $< ifTrue: [ ^ self scan7 ]. + currentCharacter == $" ifTrue: [ ^ self scan7 ]. + currentCharacter == $< ifTrue: [ ^ self scan8 ]. currentCharacter == $> ifTrue: [ self recordMatch: #( 17 ). self step. - currentCharacter == $" ifTrue: [ ^ self scan6 ]. - currentCharacter == $< ifTrue: [ ^ self scan7 ]. - ^ self scan5 ]. + currentCharacter == $" ifTrue: [ ^ self scan7 ]. + currentCharacter == $< ifTrue: [ ^ self scan8 ]. + ^ self scan6 ]. currentCharacter == $s ifTrue: [ self step. - currentCharacter == $" ifTrue: [ ^ self scan6 ]. - currentCharacter == $< ifTrue: [ ^ self scan7 ]. + currentCharacter == $" ifTrue: [ ^ self scan7 ]. + currentCharacter == $< ifTrue: [ ^ self scan8 ]. currentCharacter == $c ifTrue: [ self step. - currentCharacter == $" ifTrue: [ ^ self scan6 ]. - currentCharacter == $< ifTrue: [ ^ self scan7 ]. + currentCharacter == $" ifTrue: [ ^ self scan7 ]. + currentCharacter == $< ifTrue: [ ^ self scan8 ]. currentCharacter == $r ifTrue: [ self step. - currentCharacter == $" ifTrue: [ ^ self scan6 ]. - currentCharacter == $< ifTrue: [ ^ self scan7 ]. + currentCharacter == $" ifTrue: [ ^ self scan7 ]. + currentCharacter == $< ifTrue: [ ^ self scan8 ]. currentCharacter == $i ifTrue: [ self step. - currentCharacter == $" ifTrue: [ ^ self scan6 ]. - currentCharacter == $< ifTrue: [ ^ self scan7 ]. + currentCharacter == $" ifTrue: [ ^ self scan7 ]. + currentCharacter == $< ifTrue: [ ^ self scan8 ]. currentCharacter == $p ifTrue: [ self step. - currentCharacter == $" ifTrue: [ ^ self scan6 ]. - currentCharacter == $< ifTrue: [ ^ self scan7 ]. + currentCharacter == $" ifTrue: [ ^ self scan7 ]. + currentCharacter == $< ifTrue: [ ^ self scan8 ]. currentCharacter == $t ifTrue: [ self step. - currentCharacter == $" ifTrue: [ ^ self scan6 ]. - currentCharacter == $< ifTrue: [ ^ self scan7 ]. + currentCharacter == $" ifTrue: [ ^ self scan7 ]. + currentCharacter == $< ifTrue: [ ^ self scan8 ]. currentCharacter == $> ifTrue: [ self recordMatch: #( 16 ). self step. - currentCharacter == $" ifTrue: [ ^ self scan6 ]. - currentCharacter == $< ifTrue: [ ^ self scan7 ] ] ] ] ] ] ] ]. - ^ self scan5 ]. + currentCharacter == $" ifTrue: [ ^ self scan7 ]. + currentCharacter == $< ifTrue: [ ^ self scan8 ] ] ] ] ] ] ] ]. + ^ self scan6 ]. currentCharacter == $< ] whileTrue. - ^ self scan5 -] - -{ #category : #generated } -HTMLScanner >> scan8 [ - - [ - self recordMatch: #( 20 ). - self step. - currentCharacter == Character space ifTrue: [ ^ self scan6 ]. - currentCharacter == $< ifTrue: [ ^ self scan10 ]. - currentCharacter isDigit or: [ - (currentCharacter between: $A and: $F) or: [ - currentCharacter between: $a and: $f ] ] ] whileTrue. - (currentCharacter == $# or: [ - (currentCharacter between: $+ and: $?) or: [ - (currentCharacter between: $G and: $Z) or: [ - currentCharacter == $_ or: [ - currentCharacter between: $g and: $z ] ] ] ]) ifTrue: [ - ^ self scan9 ]. - ^ self scan1 + ^ self scan6 ] { #category : #generated } @@ -1252,14 +1271,14 @@ HTMLScanner >> scan9 [ [ self recordMatch: #( 20 ). self step. - currentCharacter == Character space ifTrue: [ ^ self scan6 ]. + currentCharacter == Character space ifTrue: [ ^ self scan7 ]. currentCharacter == $< ifTrue: [ ^ self scan10 ]. currentCharacter == $# or: [ (currentCharacter between: $+ and: $?) or: [ (currentCharacter between: $A and: $Z) or: [ currentCharacter == $_ or: [ currentCharacter between: $a and: $z ] ] ] ] ] whileTrue. - ^ self scan1 + ^ self scan2 ] { #category : #generated } @@ -1267,20 +1286,20 @@ HTMLScanner >> scanForToken [ scope == #style ifTrue: [ self step. - currentCharacter == $< ifTrue: [ ^ self scan49 ]. + currentCharacter == $< ifTrue: [ ^ self scan48 ]. ((currentCharacter between: Character tab and: Character lf) or: [ currentCharacter == Character cr or: [ currentCharacter == Character space ] ]) ifTrue: [ [ self recordMatch: #( 6 ). self step. - currentCharacter == $< ifTrue: [ ^ self scan49 ]. + currentCharacter == $< ifTrue: [ ^ self scan48 ]. (currentCharacter between: Character tab and: Character lf) or: [ currentCharacter == Character cr or: [ currentCharacter == Character space ] ] ] whileTrue ]. - ^ self scan48 ]. - scope == #default ifTrue: [ ^ self scan17 ]. - scope == #attvalue ifTrue: [ ^ self scanForTokenX2 ]. + ^ self scan47 ]. + scope == #default ifTrue: [ ^ self scan16 ]. + scope == #attvalue ifTrue: [ ^ self scan1 ]. scope == #tag ifTrue: [ ^ self scanForTokenX1 ]. ^ self reportLastMatch ] @@ -1289,7 +1308,7 @@ HTMLScanner >> scanForToken [ HTMLScanner >> scanForTokenX1 [ self step. - currentCharacter == $( ifTrue: [ ^ self scan54 ]. + currentCharacter == $( ifTrue: [ ^ self scan53 ]. ^ self scanForTokenX1X5 ] @@ -1297,13 +1316,13 @@ HTMLScanner >> scanForTokenX1 [ HTMLScanner >> scanForTokenX1X1 [ self step. - currentCharacter == $# ifTrue: [ ^ self scan51 ]. - currentCharacter == $( ifTrue: [ ^ self scan54 ]. - currentCharacter == $< ifTrue: [ ^ self scan2 ]. + currentCharacter == $# ifTrue: [ ^ self scan50 ]. + currentCharacter == $( ifTrue: [ ^ self scan53 ]. + currentCharacter == $< ifTrue: [ ^ self scan3 ]. (currentCharacter == $: or: [ (currentCharacter between: $A and: $Z) or: [ - currentCharacter between: $a and: $z ] ]) ifTrue: [ ^ self scan52 ]. - ^ self scan1 + currentCharacter between: $a and: $z ] ]) ifTrue: [ ^ self scan51 ]. + ^ self scan2 ] { #category : #generated } @@ -1311,8 +1330,8 @@ HTMLScanner >> scanForTokenX1X2 [ self recordMatch: #( 11 ). self step. - currentCharacter == $< ifTrue: [ ^ self scan2 ]. - ^ self scan1 + currentCharacter == $< ifTrue: [ ^ self scan3 ]. + ^ self scan2 ] { #category : #generated } @@ -1320,8 +1339,8 @@ HTMLScanner >> scanForTokenX1X3 [ self recordMatch: #( 13 ). self step. - currentCharacter == $< ifTrue: [ ^ self scan2 ]. - ^ self scan1 + currentCharacter == $< ifTrue: [ ^ self scan3 ]. + ^ self scan2 ] { #category : #generated } @@ -1329,52 +1348,24 @@ HTMLScanner >> scanForTokenX1X4 [ self recordMatch: #( 12 ). self step. - currentCharacter == $< ifTrue: [ ^ self scan2 ]. - ^ self scan1 + currentCharacter == $< ifTrue: [ ^ self scan3 ]. + ^ self scan2 ] { #category : #generated } HTMLScanner >> scanForTokenX1X5 [ currentCharacter == $/ ifTrue: [ ^ self scanForTokenX1X4 ]. - currentCharacter == $< ifTrue: [ ^ self scan2 ]. + currentCharacter == $< ifTrue: [ ^ self scan3 ]. currentCharacter == $= ifTrue: [ ^ self scanForTokenX1X3 ]. currentCharacter == $> ifTrue: [ ^ self scanForTokenX1X2 ]. currentCharacter == $[ ifTrue: [ ^ self scanForTokenX1X1 ]. - ('#*' includes: currentCharacter) ifTrue: [ ^ self scan51 ]. + ('#*' includes: currentCharacter) ifTrue: [ ^ self scan50 ]. ((currentCharacter between: Character tab and: Character lf) or: [ currentCharacter == Character cr or: [ - currentCharacter == Character space ] ]) ifTrue: [ ^ self scan4 ]. + currentCharacter == Character space ] ]) ifTrue: [ ^ self scan5 ]. (currentCharacter == $: or: [ (currentCharacter between: $A and: $Z) or: [ - currentCharacter between: $a and: $z ] ]) ifTrue: [ ^ self scan52 ]. - ^ self scan1 -] - -{ #category : #generated } -HTMLScanner >> scanForTokenX2 [ - - self step. - currentCharacter == Character space ifTrue: [ self scanForTokenX2X1 ]. - currentCharacter == $" ifTrue: [ ^ self scan5 ]. - currentCharacter == $# ifTrue: [ ^ self scan8 ]. - currentCharacter == $' ifTrue: [ ^ self scan14 ]. - currentCharacter == $< ifTrue: [ ^ self scan10 ]. - currentCharacter isDigit ifTrue: [ ^ self scan16 ]. - ((currentCharacter between: Character tab and: Character lf) or: [ - currentCharacter == Character cr ]) ifTrue: [ ^ self scan4 ]. - ((currentCharacter between: $+ and: $?) or: [ - (currentCharacter between: $A and: $Z) or: [ - currentCharacter == $_ or: [ currentCharacter between: $a and: $z ] ] ]) - ifTrue: [ ^ self scan9 ]. - ^ self scan1 -] - -{ #category : #generated } -HTMLScanner >> scanForTokenX2X1 [ - - [ - self recordMatch: #( 6 ). - self step. - currentCharacter == Character space ] whileTrue + currentCharacter between: $a and: $z ] ]) ifTrue: [ ^ self scan51 ]. + ^ self scan2 ]