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
]