carpentry/gt4carp
1
0
Fork 0
Code Issues Pull Requests Releases Wiki Activity

Add more nodes (can parse stdlib)

Browse Source
This commit is contained in:
Veit Heller
2022-03-20 20:41:05 +01:00
parent d5785629ea
commit b22d0d75af
7 changed files with 499 additions and 146 deletions
Download Patch File Download Diff File Expand all files Collapse all files

40
src/Carp/CarpMapNode.class.st Normal file
View File

@@ -0,0 +1,40 @@
Class {
#name : #CarpMapNode,
#superclass : #CarpExpressionNode,
#instVars : [
'pairs'
],
#category : #Carp
}
{ #category : #generated }
CarpMapNode >> acceptVisitor: anExpressionVisitor [
^ anExpressionVisitor visitMap: self
]
{ #category : #generated }
CarpMapNode >> compositeNodeVariables [
^ #( #pairs )
]
{ #category : #'generated-initialize-release' }
CarpMapNode >> initialize [
super initialize.
pairs := OrderedCollection new: 2.
]
{ #category : #generated }
CarpMapNode >> pairs [
^ pairs
]
{ #category : #generated }
CarpMapNode >> pairs: anOrderedCollection [
self setParents: self pairs to: nil.
pairs := anOrderedCollection.
self setParents: self pairs to: self
]

49
src/Carp/CarpPairNode.class.st Normal file
View File

@@ -0,0 +1,49 @@
Class {
#name : #CarpPairNode,
#superclass : #CarpExpressionNode,
#instVars : [
'key',
'value'
],
#category : #Carp
}
{ #category : #generated }
CarpPairNode >> acceptVisitor: anExpressionVisitor [
^ anExpressionVisitor visitPair: self
]
{ #category : #generated }
CarpPairNode >> key [
^ key
]
{ #category : #generated }
CarpPairNode >> key: aCarpExpressionNode [
self key notNil ifTrue: [ self key parent: nil ].
key := aCarpExpressionNode.
self key notNil ifTrue: [ self key parent: self ]
]
{ #category : #generated }
CarpPairNode >> nodeVariables [
^ #( #key #value )
]
{ #category : #generated }
CarpPairNode >> value [
^ value
]
{ #category : #generated }
CarpPairNode >> value: aCarpExpressionNode [
self value notNil ifTrue: [ self value parent: nil ].
value := aCarpExpressionNode.
self value notNil ifTrue: [ self value parent: self ]
]

246
src/Carp/CarpParser.class.st
View File

@@ -6,7 +6,7 @@ Class {
{ #category : #'generated-accessing' } { #category : #'generated-accessing' }
CarpParser class >> cacheId [ CarpParser class >> cacheId [
^'2022-03-20T19:54:13.067877+01:00' ^'2022-03-20T20:34:27.408287+01:00'
] ]
{ #category : #generated } { #category : #generated }
@@ -20,7 +20,7 @@ CarpParser class >> definitionComment [
: \\ (. | u[0-9A-F]{4,4} | o[0-7]{3,3} | newline | return | space | tab | space | backspace | formfeed) # other character types : \\ (. | u[0-9A-F]{4,4} | o[0-7]{3,3} | newline | return | space | tab | space | backspace | formfeed) # other character types
; ;
<string_literal> <string_literal>
: (\"" ([^\""\\] | <escape>)* \"") : \"" ([^\""\\] | <escape>)* \""
; ;
<open_paren> <open_paren>
: \( : \(
@@ -61,9 +61,12 @@ default <variable>
<decimal_integer> <decimal_integer>
: [0-9]+ : [0-9]+
; ;
<sign>
: \-
;
<decimal> <decimal>
: (<decimal_integer> \. <decimal_integer> f?) : <sign>? (<decimal_integer> \. <decimal_integer> f?)
| (<decimal_integer> (f|l|b)?) | <sign>? (<decimal_integer> (f|l|b)?)
; ;
<numeric_literal> <numeric_literal>
: <decimal> | <hex_integer> | <binary_integer> : <decimal> | <hex_integer> | <binary_integer>
@@ -88,8 +91,12 @@ Expression
: Literal : Literal
| Deref | Deref
| Ref | Ref
| RefCall
| Unquote | Unquote
; ;
RefCall
: ""~"" Expression 'value' {{}}
;
Unquote Unquote
: (""%"" | ""%@"") Expression 'value' {{}} : (""%"" | ""%@"") Expression 'value' {{}}
; ;
@@ -100,7 +107,20 @@ Deref
: ""@"" Expression 'value' {{}} : ""@"" Expression 'value' {{}}
; ;
Literal Literal
: String | List | Array | Symbol | Quote | Number | Character : String | List | Array | Symbol | Quote | Number | Character | Pattern | Map
;
Map
: ""{"" MapPairs ""}"" {{}}
;
MapPairs
:
| MapPairs MapPair 'pair'
;
MapPair
: Expression 'key' Expression 'value' {{Pair}}
;
Pattern
: ""#"" <string_literal> 'value' {{}}
; ;
Character Character
: <character> 'value' {{}} : <character> 'value' {{}}
@@ -135,35 +155,44 @@ String
{ #category : #generated } { #category : #generated }
CarpParser class >> reduceTable [ CarpParser class >> reduceTable [
^#( ^#(
#(20 0 #reduceActionForExpressions1: 1258497 false) #(24 0 #reduceActionForExpressions1: 1289217 false)
#(19 1 #reduceActionForStart1: 1227777 false) #(23 1 #reduceActionForStart1: 1258497 false)
#(34 1 #reduceActionForString1: 1988609 false) #(32 0 #reduceActionForExpressions1: 1712129 false)
#(31 1 #reduceActionForVariable1: 1811457 false) #(43 1 #reduceActionForString1: 2274305 false)
#(32 1 #reduceActionForModuleOrType2: 1851394 false) #(40 1 #reduceActionForVariable1: 2097153 false)
#(27 1 #reduceActionForNumber1: 1620993 false) #(41 1 #reduceActionForModuleOrType2: 2137090 false)
#(26 1 #reduceActionForCharacter1: 1579009 false) #(36 1 #reduceActionForNumber1: 1906689 false)
#(20 2 #reduceActionForExpressions2: 1258498 false) #(35 1 #reduceActionForCharacter1: 1864705 false)
#(21 1 #liftFirstValue: 1316868 false) #(24 2 #reduceActionForExpressions2: 1289218 false)
#(21 1 #liftFirstValue: 1316867 false) #(25 1 #liftFirstValue: 1347588 false)
#(21 1 #liftFirstValue: 1316866 false) #(25 1 #liftFirstValue: 1347589 false)
#(21 1 #liftFirstValue: 1316865 false) #(25 1 #liftFirstValue: 1347587 false)
#(25 1 #liftFirstValue: 1502215 false) #(25 1 #liftFirstValue: 1347586 false)
#(25 1 #liftFirstValue: 1502214 false) #(25 1 #liftFirstValue: 1347585 false)
#(25 1 #liftFirstValue: 1502211 false) #(30 1 #liftFirstValue: 1587209 false)
#(25 1 #liftFirstValue: 1502213 false) #(30 1 #liftFirstValue: 1587208 false)
#(25 1 #liftFirstValue: 1502212 false) #(30 1 #liftFirstValue: 1587207 false)
#(30 1 #liftFirstValue: 1773570 false) #(30 1 #liftFirstValue: 1587206 false)
#(30 1 #liftFirstValue: 1773569 false) #(30 1 #liftFirstValue: 1587203 false)
#(25 1 #liftFirstValue: 1502210 false) #(30 1 #liftFirstValue: 1587205 false)
#(25 1 #liftFirstValue: 1502209 false) #(30 1 #liftFirstValue: 1587204 false)
#(22 2 #reduceActionForUnquote1: 1370113 false) #(39 1 #liftFirstValue: 2059266 false)
#(22 2 #reduceActionForUnquote1: 1370114 false) #(39 1 #liftFirstValue: 2059265 false)
#(23 2 #reduceActionForRef1: 1422337 false) #(30 1 #liftFirstValue: 1587202 false)
#(24 2 #reduceActionForDeref1: 1461249 false) #(30 1 #liftFirstValue: 1587201 false)
#(29 2 #reduceActionForQuote1: 1728513 false) #(34 2 #reduceActionForPattern1: 1815553 false)
#(33 3 #reduceActionForList1: 1932289 false) #(27 2 #reduceActionForUnquote1: 1455105 false)
#(32 3 #reduceActionForModuleOrType1: 1851393 false) #(27 2 #reduceActionForUnquote1: 1455106 false)
#(28 3 #reduceActionForArray1: 1667073 false) #(28 2 #reduceActionForRef1: 1507329 false)
#(29 2 #reduceActionForDeref1: 1546241 false)
#(26 2 #reduceActionForRefCall1: 1412097 false)
#(38 2 #reduceActionForQuote1: 2014209 false)
#(31 3 #reduceActionForMap1: 1679361 false)
#(32 2 #reduceActionForExpressions2: 1712130 false)
#(42 3 #reduceActionForList1: 2217985 false)
#(41 3 #reduceActionForModuleOrType1: 2137089 false)
#(37 3 #reduceActionForArray1: 1952769 false)
#(33 2 #reduceActionForMapPair1: 1755137 false)
). ).
] ]
@@ -181,12 +210,13 @@ CarpParser class >> startingStateForStart [
{ #category : #generated } { #category : #generated }
CarpParser class >> symbolNames [ CarpParser class >> symbolNames [
^ #( '"%"' '"%@"' '"&"' '"@"' '<string_literal>' '<open_paren>' ^ #( '"#"' '"%"' '"%@"' '"&"' '"@"' '"{"' '"}"' '"~"' '<string_literal>'
'<close_paren>' '<quote>' '<variable>' '<module>' '<dot>' '<open_paren>' '<close_paren>' '<quote>' '<variable>'
'<open_bracket>' '<close_bracket>' '<numeric_literal>' '<module>' '<dot>' '<open_bracket>' '<close_bracket>'
'<comment>' '<whitespace>' '<character>' 'B e g i n' 'Start' '<numeric_literal>' '<comment>' '<whitespace>' '<character>'
'Expressions' 'Expression' 'Unquote' 'Ref' 'Deref' 'Literal' 'B e g i n' 'Start' 'Expressions' 'Expression' 'RefCall'
'Character' 'Number' 'Array' 'Quote' 'Symbol' 'Variable' 'Unquote' 'Ref' 'Deref' 'Literal' 'Map' 'MapPairs' 'MapPair'
'Pattern' 'Character' 'Number' 'Array' 'Quote' 'Symbol' 'Variable'
'ModuleOrType' 'List' 'String' 'E O F' 'error' ) 'ModuleOrType' 'List' 'String' 'E O F' 'error' )
] ]
@@ -196,9 +226,11 @@ CarpParser class >> symbolTypes [
^ #( #SmaCCToken #SmaCCToken #SmaCCToken #SmaCCToken #SmaCCToken ^ #( #SmaCCToken #SmaCCToken #SmaCCToken #SmaCCToken #SmaCCToken
#SmaCCToken #SmaCCToken #SmaCCToken #SmaCCToken #SmaCCToken #SmaCCToken #SmaCCToken #SmaCCToken #SmaCCToken #SmaCCToken
#SmaCCToken #SmaCCToken #SmaCCToken #SmaCCToken #SmaCCToken #SmaCCToken #SmaCCToken #SmaCCToken #SmaCCToken #SmaCCToken
#SmaCCToken #SmaCCToken #CarpStartNode #CarpStartNode #SmaCCToken #SmaCCToken #SmaCCToken #SmaCCToken #SmaCCToken
#OrderedCollection #CarpExpressionNode #CarpUnquoteNode #SmaCCToken #CarpStartNode #CarpStartNode #OrderedCollection
#CarpExpressionNode #CarpRefCallNode #CarpUnquoteNode
#CarpRefNode #CarpDerefNode #CarpExpressionNode #CarpRefNode #CarpDerefNode #CarpExpressionNode
#CarpMapNode #OrderedCollection #CarpPairNode #CarpPatternNode
#CarpCharacterNode #CarpNumberNode #CarpArrayNode #CarpQuoteNode #CarpCharacterNode #CarpNumberNode #CarpArrayNode #CarpQuoteNode
#CarpExpressionNode #CarpVariableNode #CarpModuleOrTypeNode #CarpExpressionNode #CarpVariableNode #CarpModuleOrTypeNode
#CarpListNode #CarpStringNode #SmaCCToken #SmaCCErrorNode ) #CarpListNode #CarpStringNode #SmaCCToken #SmaCCErrorNode )
@@ -207,46 +239,59 @@ CarpParser class >> symbolTypes [
{ #category : #generated } { #category : #generated }
CarpParser class >> transitionTable [ CarpParser class >> transitionTable [
^#( ^#(
#[1 0 6 0 1 0 6 0 2 0 6 0 3 0 6 0 4 0 6 0 5 0 6 0 6 0 6 0 8 0 6 0 9 0 6 0 10 0 6 0 12 0 6 0 14 0 6 0 17 0 9 0 19 0 13 0 20 0 6 0 35] #[1 0 6 0 1 0 6 0 2 0 6 0 3 0 6 0 4 0 6 0 5 0 6 0 6 0 6 0 8 0 6 0 9 0 6 0 10 0 6 0 12 0 6 0 13 0 6 0 14 0 6 0 16 0 6 0 18 0 6 0 21 0 9 0 23 0 13 0 24 0 6 0 44]
#[0 0 0 0 35] #[0 0 0 0 44]
#[1 0 17 0 1 0 21 0 2 0 25 0 3 0 29 0 4 0 33 0 5 0 37 0 6 0 41 0 8 0 45 0 9 0 49 0 10 0 53 0 12 0 57 0 14 0 61 0 17 0 65 0 21 0 65 0 22 0 65 0 23 0 65 0 24 0 65 0 25 0 65 0 26 0 65 0 27 0 65 0 28 0 65 0 29 0 65 0 30 0 65 0 31 0 65 0 32 0 65 0 33 0 65 0 34 0 10 0 35] #[1 0 17 0 1 0 21 0 2 0 25 0 3 0 29 0 4 0 33 0 5 0 37 0 6 0 41 0 8 0 45 0 9 0 49 0 10 0 53 0 12 0 57 0 13 0 61 0 14 0 65 0 16 0 69 0 18 0 73 0 21 0 77 0 25 0 77 0 26 0 77 0 27 0 77 0 28 0 77 0 29 0 77 0 30 0 77 0 31 0 77 0 34 0 77 0 35 0 77 0 36 0 77 0 37 0 77 0 38 0 77 0 39 0 77 0 40 0 77 0 41 0 77 0 42 0 77 0 43 0 10 0 44]
#[1 0 17 0 1 0 21 0 2 0 25 0 3 0 29 0 4 0 33 0 5 0 37 0 6 0 41 0 8 0 45 0 9 0 49 0 10 0 53 0 12 0 57 0 14 0 61 0 17 0 121 0 21 0 121 0 22 0 121 0 23 0 121 0 24 0 121 0 25 0 121 0 26 0 121 0 27 0 121 0 28 0 121 0 29 0 121 0 30 0 121 0 31 0 121 0 32 0 121 0 33 0 121 0 34] #[0 0 145 0 9]
#[1 0 17 0 1 0 21 0 2 0 25 0 3 0 29 0 4 0 33 0 5 0 37 0 6 0 41 0 8 0 45 0 9 0 49 0 10 0 53 0 12 0 57 0 14 0 61 0 17 0 125 0 21 0 125 0 22 0 125 0 23 0 125 0 24 0 125 0 25 0 125 0 26 0 125 0 27 0 125 0 28 0 125 0 29 0 125 0 30 0 125 0 31 0 125 0 32 0 125 0 33 0 125 0 34] #[1 0 17 0 1 0 21 0 2 0 25 0 3 0 29 0 4 0 33 0 5 0 37 0 6 0 41 0 8 0 45 0 9 0 49 0 10 0 53 0 12 0 57 0 13 0 61 0 14 0 65 0 16 0 69 0 18 0 73 0 21 0 149 0 25 0 149 0 26 0 149 0 27 0 149 0 28 0 149 0 29 0 149 0 30 0 149 0 31 0 149 0 34 0 149 0 35 0 149 0 36 0 149 0 37 0 149 0 38 0 149 0 39 0 149 0 40 0 149 0 41 0 149 0 42 0 149 0 43]
#[1 0 17 0 1 0 21 0 2 0 25 0 3 0 29 0 4 0 33 0 5 0 37 0 6 0 41 0 8 0 45 0 9 0 49 0 10 0 53 0 12 0 57 0 14 0 61 0 17 0 129 0 21 0 129 0 22 0 129 0 23 0 129 0 24 0 129 0 25 0 129 0 26 0 129 0 27 0 129 0 28 0 129 0 29 0 129 0 30 0 129 0 31 0 129 0 32 0 129 0 33 0 129 0 34] #[1 0 17 0 1 0 21 0 2 0 25 0 3 0 29 0 4 0 33 0 5 0 37 0 6 0 41 0 8 0 45 0 9 0 49 0 10 0 53 0 12 0 57 0 13 0 61 0 14 0 65 0 16 0 69 0 18 0 73 0 21 0 153 0 25 0 153 0 26 0 153 0 27 0 153 0 28 0 153 0 29 0 153 0 30 0 153 0 31 0 153 0 34 0 153 0 35 0 153 0 36 0 153 0 37 0 153 0 38 0 153 0 39 0 153 0 40 0 153 0 41 0 153 0 42 0 153 0 43]
#[1 0 17 0 1 0 21 0 2 0 25 0 3 0 29 0 4 0 33 0 5 0 37 0 6 0 41 0 8 0 45 0 9 0 49 0 10 0 53 0 12 0 57 0 14 0 61 0 17 0 133 0 21 0 133 0 22 0 133 0 23 0 133 0 24 0 133 0 25 0 133 0 26 0 133 0 27 0 133 0 28 0 133 0 29 0 133 0 30 0 133 0 31 0 133 0 32 0 133 0 33 0 133 0 34] #[1 0 17 0 1 0 21 0 2 0 25 0 3 0 29 0 4 0 33 0 5 0 37 0 6 0 41 0 8 0 45 0 9 0 49 0 10 0 53 0 12 0 57 0 13 0 61 0 14 0 65 0 16 0 69 0 18 0 73 0 21 0 157 0 25 0 157 0 26 0 157 0 27 0 157 0 28 0 157 0 29 0 157 0 30 0 157 0 31 0 157 0 34 0 157 0 35 0 157 0 36 0 157 0 37 0 157 0 38 0 157 0 39 0 157 0 40 0 157 0 41 0 157 0 42 0 157 0 43]
#[0 0 14 0 1 0 2 0 3 0 4 0 5 0 6 0 7 0 8 0 9 0 10 0 12 0 13 0 14 0 17 0 35] #[1 0 17 0 1 0 21 0 2 0 25 0 3 0 29 0 4 0 33 0 5 0 37 0 6 0 41 0 8 0 45 0 9 0 49 0 10 0 53 0 12 0 57 0 13 0 61 0 14 0 65 0 16 0 69 0 18 0 73 0 21 0 161 0 25 0 161 0 26 0 161 0 27 0 161 0 28 0 161 0 29 0 161 0 30 0 161 0 31 0 161 0 34 0 161 0 35 0 161 0 36 0 161 0 37 0 161 0 38 0 161 0 39 0 161 0 40 0 161 0 41 0 161 0 42 0 161 0 43]
#[1 0 6 0 1 0 6 0 2 0 6 0 3 0 6 0 4 0 6 0 5 0 6 0 6 0 6 0 7 0 6 0 8 0 6 0 9 0 6 0 10 0 6 0 12 0 6 0 14 0 6 0 17 0 137 0 20] #[1 0 14 0 1 0 14 0 2 0 14 0 3 0 14 0 4 0 14 0 5 0 14 0 6 0 14 0 7 0 14 0 8 0 14 0 9 0 14 0 10 0 14 0 12 0 14 0 13 0 14 0 14 0 14 0 16 0 14 0 18 0 14 0 21 0 165 0 32]
#[1 0 17 0 1 0 21 0 2 0 25 0 3 0 29 0 4 0 33 0 5 0 37 0 6 0 41 0 8 0 45 0 9 0 49 0 10 0 53 0 12 0 57 0 14 0 61 0 17 0 141 0 21 0 141 0 22 0 141 0 23 0 141 0 24 0 141 0 25 0 141 0 26 0 141 0 27 0 141 0 28 0 141 0 29 0 141 0 30 0 141 0 31 0 141 0 32 0 141 0 33 0 141 0 34] #[1 0 17 0 1 0 21 0 2 0 25 0 3 0 29 0 4 0 33 0 5 0 37 0 6 0 41 0 8 0 45 0 9 0 49 0 10 0 53 0 12 0 57 0 13 0 61 0 14 0 65 0 16 0 69 0 18 0 73 0 21 0 169 0 25 0 169 0 26 0 169 0 27 0 169 0 28 0 169 0 29 0 169 0 30 0 169 0 31 0 169 0 34 0 169 0 35 0 169 0 36 0 169 0 37 0 169 0 38 0 169 0 39 0 169 0 40 0 169 0 41 0 169 0 42 0 169 0 43]
#[0 0 18 0 1 0 2 0 3 0 4 0 5 0 6 0 7 0 8 0 9 0 10 0 12 0 13 0 14 0 17 0 35] #[0 0 18 0 1 0 2 0 3 0 4 0 5 0 6 0 7 0 8 0 9 0 10 0 11 0 12 0 13 0 14 0 16 0 17 0 18 0 21 0 44]
#[1 0 22 0 1 0 22 0 2 0 22 0 3 0 22 0 4 0 22 0 5 0 22 0 6 0 22 0 7 0 22 0 8 0 22 0 9 0 22 0 10 0 145 0 11 0 22 0 12 0 22 0 13 0 22 0 14 0 22 0 17 0 22 0 35] #[1 0 6 0 1 0 6 0 2 0 6 0 3 0 6 0 4 0 6 0 5 0 6 0 6 0 6 0 8 0 6 0 9 0 6 0 10 0 6 0 11 0 6 0 12 0 6 0 13 0 6 0 14 0 6 0 16 0 6 0 18 0 6 0 21 0 173 0 24]
#[1 0 6 0 1 0 6 0 2 0 6 0 3 0 6 0 4 0 6 0 5 0 6 0 6 0 6 0 8 0 6 0 9 0 6 0 10 0 6 0 12 0 6 0 13 0 6 0 14 0 6 0 17 0 149 0 20] #[1 0 17 0 1 0 21 0 2 0 25 0 3 0 29 0 4 0 33 0 5 0 37 0 6 0 41 0 8 0 45 0 9 0 49 0 10 0 53 0 12 0 57 0 13 0 61 0 14 0 65 0 16 0 69 0 18 0 73 0 21 0 177 0 25 0 177 0 26 0 177 0 27 0 177 0 28 0 177 0 29 0 177 0 30 0 177 0 31 0 177 0 34 0 177 0 35 0 177 0 36 0 177 0 37 0 177 0 38 0 177 0 39 0 177 0 40 0 177 0 41 0 177 0 42 0 177 0 43]
#[0 0 26 0 1 0 2 0 3 0 4 0 5 0 6 0 7 0 8 0 9 0 10 0 12 0 13 0 14 0 17 0 35] #[0 0 22 0 1 0 2 0 3 0 4 0 5 0 6 0 7 0 8 0 9 0 10 0 11 0 12 0 13 0 14 0 16 0 17 0 18 0 21 0 44]
#[0 0 30 0 1 0 2 0 3 0 4 0 5 0 6 0 7 0 8 0 9 0 10 0 12 0 13 0 14 0 17 0 35] #[1 0 26 0 1 0 26 0 2 0 26 0 3 0 26 0 4 0 26 0 5 0 26 0 6 0 26 0 7 0 26 0 8 0 26 0 9 0 26 0 10 0 26 0 11 0 26 0 12 0 26 0 13 0 26 0 14 0 181 0 15 0 26 0 16 0 26 0 17 0 26 0 18 0 26 0 21 0 26 0 44]
#[0 0 34 0 1 0 2 0 3 0 4 0 5 0 6 0 7 0 8 0 9 0 10 0 12 0 13 0 14 0 17 0 35] #[1 0 6 0 1 0 6 0 2 0 6 0 3 0 6 0 4 0 6 0 5 0 6 0 6 0 6 0 8 0 6 0 9 0 6 0 10 0 6 0 12 0 6 0 13 0 6 0 14 0 6 0 16 0 6 0 17 0 6 0 18 0 6 0 21 0 185 0 24]
#[0 0 38 0 1 0 2 0 3 0 4 0 5 0 6 0 7 0 8 0 9 0 10 0 12 0 13 0 14 0 17 0 35] #[0 0 30 0 1 0 2 0 3 0 4 0 5 0 6 0 7 0 8 0 9 0 10 0 11 0 12 0 13 0 14 0 16 0 17 0 18 0 21 0 44]
#[0 0 42 0 1 0 2 0 3 0 4 0 5 0 6 0 7 0 8 0 9 0 10 0 12 0 13 0 14 0 17 0 35] #[0 0 34 0 1 0 2 0 3 0 4 0 5 0 6 0 7 0 8 0 9 0 10 0 11 0 12 0 13 0 14 0 16 0 17 0 18 0 21 0 44]
#[0 0 46 0 1 0 2 0 3 0 4 0 5 0 6 0 7 0 8 0 9 0 10 0 12 0 13 0 14 0 17 0 35] #[0 0 38 0 1 0 2 0 3 0 4 0 5 0 6 0 8 0 9 0 10 0 11 0 12 0 13 0 14 0 16 0 17 0 18 0 21 0 44]
#[0 0 50 0 1 0 2 0 3 0 4 0 5 0 6 0 7 0 8 0 9 0 10 0 12 0 13 0 14 0 17 0 35] #[0 0 42 0 1 0 2 0 3 0 4 0 5 0 6 0 7 0 8 0 9 0 10 0 11 0 12 0 13 0 14 0 16 0 17 0 18 0 21 0 44]
#[0 0 54 0 1 0 2 0 3 0 4 0 5 0 6 0 7 0 8 0 9 0 10 0 12 0 13 0 14 0 17 0 35] #[0 0 46 0 1 0 2 0 3 0 4 0 5 0 6 0 7 0 8 0 9 0 10 0 11 0 12 0 13 0 14 0 16 0 17 0 18 0 21 0 44]
#[0 0 58 0 1 0 2 0 3 0 4 0 5 0 6 0 7 0 8 0 9 0 10 0 12 0 13 0 14 0 17 0 35] #[0 0 50 0 1 0 2 0 3 0 4 0 5 0 6 0 7 0 8 0 9 0 10 0 11 0 12 0 13 0 14 0 16 0 17 0 18 0 21 0 44]
#[0 0 62 0 1 0 2 0 3 0 4 0 5 0 6 0 7 0 8 0 9 0 10 0 12 0 13 0 14 0 17 0 35] #[0 0 54 0 1 0 2 0 3 0 4 0 5 0 6 0 7 0 8 0 9 0 10 0 11 0 12 0 13 0 14 0 16 0 17 0 18 0 21 0 44]
#[0 0 66 0 1 0 2 0 3 0 4 0 5 0 6 0 7 0 8 0 9 0 10 0 12 0 13 0 14 0 17 0 35] #[0 0 58 0 1 0 2 0 3 0 4 0 5 0 6 0 7 0 8 0 9 0 10 0 11 0 12 0 13 0 14 0 16 0 17 0 18 0 21 0 44]
#[0 0 70 0 1 0 2 0 3 0 4 0 5 0 6 0 7 0 8 0 9 0 10 0 12 0 13 0 14 0 17 0 35] #[0 0 62 0 1 0 2 0 3 0 4 0 5 0 6 0 7 0 8 0 9 0 10 0 11 0 12 0 13 0 14 0 16 0 17 0 18 0 21 0 44]
#[0 0 74 0 1 0 2 0 3 0 4 0 5 0 6 0 7 0 8 0 9 0 10 0 12 0 13 0 14 0 17 0 35] #[0 0 66 0 1 0 2 0 3 0 4 0 5 0 6 0 7 0 8 0 9 0 10 0 11 0 12 0 13 0 14 0 16 0 17 0 18 0 21 0 44]
#[0 0 78 0 1 0 2 0 3 0 4 0 5 0 6 0 7 0 8 0 9 0 10 0 12 0 13 0 14 0 17 0 35] #[0 0 70 0 1 0 2 0 3 0 4 0 5 0 6 0 7 0 8 0 9 0 10 0 11 0 12 0 13 0 14 0 16 0 17 0 18 0 21 0 44]
#[0 0 82 0 1 0 2 0 3 0 4 0 5 0 6 0 7 0 8 0 9 0 10 0 12 0 13 0 14 0 17 0 35] #[0 0 74 0 1 0 2 0 3 0 4 0 5 0 6 0 7 0 8 0 9 0 10 0 11 0 12 0 13 0 14 0 16 0 17 0 18 0 21 0 44]
#[0 0 86 0 1 0 2 0 3 0 4 0 5 0 6 0 7 0 8 0 9 0 10 0 12 0 13 0 14 0 17 0 35] #[0 0 78 0 1 0 2 0 3 0 4 0 5 0 6 0 7 0 8 0 9 0 10 0 11 0 12 0 13 0 14 0 16 0 17 0 18 0 21 0 44]
#[0 0 90 0 1 0 2 0 3 0 4 0 5 0 6 0 7 0 8 0 9 0 10 0 12 0 13 0 14 0 17 0 35] #[0 0 82 0 1 0 2 0 3 0 4 0 5 0 6 0 7 0 8 0 9 0 10 0 11 0 12 0 13 0 14 0 16 0 17 0 18 0 21 0 44]
#[0 0 94 0 1 0 2 0 3 0 4 0 5 0 6 0 7 0 8 0 9 0 10 0 12 0 13 0 14 0 17 0 35] #[0 0 86 0 1 0 2 0 3 0 4 0 5 0 6 0 7 0 8 0 9 0 10 0 11 0 12 0 13 0 14 0 16 0 17 0 18 0 21 0 44]
#[0 0 98 0 1 0 2 0 3 0 4 0 5 0 6 0 7 0 8 0 9 0 10 0 12 0 13 0 14 0 17 0 35] #[0 0 90 0 1 0 2 0 3 0 4 0 5 0 6 0 7 0 8 0 9 0 10 0 11 0 12 0 13 0 14 0 16 0 17 0 18 0 21 0 44]
#[0 0 102 0 1 0 2 0 3 0 4 0 5 0 6 0 7 0 8 0 9 0 10 0 12 0 13 0 14 0 17 0 35] #[0 0 94 0 1 0 2 0 3 0 4 0 5 0 6 0 7 0 8 0 9 0 10 0 11 0 12 0 13 0 14 0 16 0 17 0 18 0 21 0 44]
#[1 0 17 0 1 0 21 0 2 0 25 0 3 0 29 0 4 0 33 0 5 0 37 0 6 0 153 0 7 0 41 0 8 0 45 0 9 0 49 0 10 0 53 0 12 0 57 0 14 0 61 0 17 0 65 0 21 0 65 0 22 0 65 0 23 0 65 0 24 0 65 0 25 0 65 0 26 0 65 0 27 0 65 0 28 0 65 0 29 0 65 0 30 0 65 0 31 0 65 0 32 0 65 0 33 0 65 0 34] #[0 0 98 0 1 0 2 0 3 0 4 0 5 0 6 0 7 0 8 0 9 0 10 0 11 0 12 0 13 0 14 0 16 0 17 0 18 0 21 0 44]
#[0 0 106 0 1 0 2 0 3 0 4 0 5 0 6 0 7 0 8 0 9 0 10 0 12 0 13 0 14 0 17 0 35] #[0 0 102 0 1 0 2 0 3 0 4 0 5 0 6 0 7 0 8 0 9 0 10 0 11 0 12 0 13 0 14 0 16 0 17 0 18 0 21 0 44]
#[1 0 45 0 9 0 49 0 10 0 157 0 30 0 157 0 31 0 157 0 32] #[0 0 106 0 1 0 2 0 3 0 4 0 5 0 6 0 7 0 8 0 9 0 10 0 11 0 12 0 13 0 14 0 16 0 17 0 18 0 21 0 44]
#[1 0 17 0 1 0 21 0 2 0 25 0 3 0 29 0 4 0 33 0 5 0 37 0 6 0 41 0 8 0 45 0 9 0 49 0 10 0 53 0 12 0 161 0 13 0 57 0 14 0 61 0 17 0 65 0 21 0 65 0 22 0 65 0 23 0 65 0 24 0 65 0 25 0 65 0 26 0 65 0 27 0 65 0 28 0 65 0 29 0 65 0 30 0 65 0 31 0 65 0 32 0 65 0 33 0 65 0 34] #[0 0 110 0 1 0 2 0 3 0 4 0 5 0 6 0 7 0 8 0 9 0 10 0 11 0 12 0 13 0 14 0 16 0 17 0 18 0 21 0 44]
#[0 0 110 0 1 0 2 0 3 0 4 0 5 0 6 0 7 0 8 0 9 0 10 0 12 0 13 0 14 0 17 0 35] #[0 0 114 0 1 0 2 0 3 0 4 0 5 0 6 0 7 0 8 0 9 0 10 0 11 0 12 0 13 0 14 0 16 0 17 0 18 0 21 0 44]
#[0 0 114 0 1 0 2 0 3 0 4 0 5 0 6 0 7 0 8 0 9 0 10 0 12 0 13 0 14 0 17 0 35] #[0 0 118 0 1 0 2 0 3 0 4 0 5 0 6 0 7 0 8 0 9 0 10 0 11 0 12 0 13 0 14 0 16 0 17 0 18 0 21 0 44]
#[0 0 118 0 1 0 2 0 3 0 4 0 5 0 6 0 7 0 8 0 9 0 10 0 12 0 13 0 14 0 17 0 35] #[0 0 122 0 1 0 2 0 3 0 4 0 5 0 6 0 7 0 8 0 9 0 10 0 11 0 12 0 13 0 14 0 16 0 17 0 18 0 21 0 44]
#[1 0 17 0 1 0 21 0 2 0 25 0 3 0 29 0 4 0 33 0 5 0 37 0 6 0 189 0 7 0 41 0 8 0 45 0 9 0 49 0 10 0 53 0 12 0 57 0 13 0 61 0 14 0 65 0 16 0 69 0 18 0 73 0 21 0 193 0 25 0 193 0 26 0 193 0 27 0 193 0 28 0 193 0 29 0 193 0 30 0 193 0 31 0 197 0 33 0 193 0 34 0 193 0 35 0 193 0 36 0 193 0 37 0 193 0 38 0 193 0 39 0 193 0 40 0 193 0 41 0 193 0 42 0 193 0 43]
#[0 0 126 0 1 0 2 0 3 0 4 0 5 0 6 0 7 0 8 0 9 0 10 0 11 0 12 0 13 0 14 0 16 0 17 0 18 0 21 0 44]
#[1 0 17 0 1 0 21 0 2 0 25 0 3 0 29 0 4 0 33 0 5 0 37 0 6 0 41 0 8 0 45 0 9 0 49 0 10 0 201 0 11 0 53 0 12 0 57 0 13 0 61 0 14 0 65 0 16 0 69 0 18 0 73 0 21 0 77 0 25 0 77 0 26 0 77 0 27 0 77 0 28 0 77 0 29 0 77 0 30 0 77 0 31 0 77 0 34 0 77 0 35 0 77 0 36 0 77 0 37 0 77 0 38 0 77 0 39 0 77 0 40 0 77 0 41 0 77 0 42 0 77 0 43]
#[0 0 130 0 1 0 2 0 3 0 4 0 5 0 6 0 7 0 8 0 9 0 10 0 11 0 12 0 13 0 14 0 16 0 17 0 18 0 21 0 44]
#[1 0 57 0 13 0 61 0 14 0 205 0 39 0 205 0 40 0 205 0 41]
#[1 0 17 0 1 0 21 0 2 0 25 0 3 0 29 0 4 0 33 0 5 0 37 0 6 0 41 0 8 0 45 0 9 0 49 0 10 0 53 0 12 0 57 0 13 0 61 0 14 0 65 0 16 0 209 0 17 0 69 0 18 0 73 0 21 0 77 0 25 0 77 0 26 0 77 0 27 0 77 0 28 0 77 0 29 0 77 0 30 0 77 0 31 0 77 0 34 0 77 0 35 0 77 0 36 0 77 0 37 0 77 0 38 0 77 0 39 0 77 0 40 0 77 0 41 0 77 0 42 0 77 0 43]
#[0 0 134 0 1 0 2 0 3 0 4 0 5 0 6 0 7 0 8 0 9 0 10 0 11 0 12 0 13 0 14 0 16 0 17 0 18 0 21 0 44]
#[1 0 17 0 1 0 21 0 2 0 25 0 3 0 29 0 4 0 33 0 5 0 37 0 6 0 41 0 8 0 45 0 9 0 49 0 10 0 53 0 12 0 57 0 13 0 61 0 14 0 65 0 16 0 69 0 18 0 73 0 21 0 213 0 25 0 213 0 26 0 213 0 27 0 213 0 28 0 213 0 29 0 213 0 30 0 213 0 31 0 213 0 34 0 213 0 35 0 213 0 36 0 213 0 37 0 213 0 38 0 213 0 39 0 213 0 40 0 213 0 41 0 213 0 42 0 213 0 43]
#[0 0 138 0 1 0 2 0 3 0 4 0 5 0 6 0 7 0 8 0 9 0 10 0 12 0 13 0 14 0 16 0 18 0 21]
#[0 0 142 0 1 0 2 0 3 0 4 0 5 0 6 0 7 0 8 0 9 0 10 0 11 0 12 0 13 0 14 0 16 0 17 0 18 0 21 0 44]
#[0 0 146 0 1 0 2 0 3 0 4 0 5 0 6 0 7 0 8 0 9 0 10 0 11 0 12 0 13 0 14 0 16 0 17 0 18 0 21 0 44]
#[0 0 150 0 1 0 2 0 3 0 4 0 5 0 6 0 7 0 8 0 9 0 10 0 11 0 12 0 13 0 14 0 16 0 17 0 18 0 21 0 44]
#[0 0 154 0 1 0 2 0 3 0 4 0 5 0 6 0 7 0 8 0 9 0 10 0 12 0 13 0 14 0 16 0 18 0 21]
). ).
] ]
@@ -303,6 +348,25 @@ CarpParser >> reduceActionForList1: nodes [
^ result ^ result
] ]
{ #category : #'generated-reduction actions' }
CarpParser >> reduceActionForMap1: nodes [
| result |
result := CarpMapNode new.
result addNodes: (nodes at: 2) to: result pairs.
^ result
]
{ #category : #'generated-reduction actions' }
CarpParser >> reduceActionForMapPair1: nodes [
| result |
result := CarpPairNode new.
result key: (nodes at: 1).
result value: (nodes at: 2).
^ result
]
{ #category : #'generated-reduction actions' } { #category : #'generated-reduction actions' }
CarpParser >> reduceActionForModuleOrType1: nodes [ CarpParser >> reduceActionForModuleOrType1: nodes [
@@ -330,6 +394,15 @@ CarpParser >> reduceActionForNumber1: nodes [
^ result ^ result
] ]
{ #category : #'generated-reduction actions' }
CarpParser >> reduceActionForPattern1: nodes [
| result |
result := CarpPatternNode new.
result value: (nodes at: 2).
^ result
]
{ #category : #'generated-reduction actions' } { #category : #'generated-reduction actions' }
CarpParser >> reduceActionForQuote1: nodes [ CarpParser >> reduceActionForQuote1: nodes [
@@ -348,6 +421,15 @@ CarpParser >> reduceActionForRef1: nodes [
^ result ^ result
] ]
{ #category : #'generated-reduction actions' }
CarpParser >> reduceActionForRefCall1: nodes [
| result |
result := CarpRefCallNode new.
result value: (nodes at: 2).
^ result
]
{ #category : #'generated-reduction actions' } { #category : #'generated-reduction actions' }
CarpParser >> reduceActionForStart1: nodes [ CarpParser >> reduceActionForStart1: nodes [

32
src/Carp/CarpPatternNode.class.st Normal file
View File

@@ -0,0 +1,32 @@
Class {
#name : #CarpPatternNode,
#superclass : #CarpExpressionNode,
#instVars : [
'value'
],
#category : #Carp
}
{ #category : #generated }
CarpPatternNode >> acceptVisitor: anExpressionVisitor [
^ anExpressionVisitor visitPattern: self
]
{ #category : #generated }
CarpPatternNode >> tokenVariables [
^ #( #value )
]
{ #category : #generated }
CarpPatternNode >> value [
^ value
]
{ #category : #generated }
CarpPatternNode >> value: aSmaCCToken [
value := aSmaCCToken
]

34
src/Carp/CarpRefCallNode.class.st Normal file
View File

@@ -0,0 +1,34 @@
Class {
#name : #CarpRefCallNode,
#superclass : #CarpExpressionNode,
#instVars : [
'value'
],
#category : #Carp
}
{ #category : #generated }
CarpRefCallNode >> acceptVisitor: anExpressionVisitor [
^ anExpressionVisitor visitRefCall: self
]
{ #category : #generated }
CarpRefCallNode >> nodeVariables [
^ #( #value )
]
{ #category : #generated }
CarpRefCallNode >> value [
^ value
]
{ #category : #generated }
CarpRefCallNode >> value: aCarpExpressionNode [
self value notNil ifTrue: [ self value parent: nil ].
value := aCarpExpressionNode.
self value notNil ifTrue: [ self value parent: self ]
]

220
src/Carp/CarpScanner.class.st
View File

@@ -7,13 +7,13 @@ Class {
{ #category : #generated } { #category : #generated }
CarpScanner >> emptySymbolTokenId [ CarpScanner >> emptySymbolTokenId [
^ 35 ^ 44
] ]
{ #category : #generated } { #category : #generated }
CarpScanner >> errorTokenId [ CarpScanner >> errorTokenId [
^ 36 ^ 45
] ]
{ #category : #generated } { #category : #generated }
@@ -21,7 +21,7 @@ CarpScanner >> scan1 [
[ [
self step. self step.
currentCharacter == $" ifTrue: [ ^ self recordAndReportMatch: #( 5 ) ]. currentCharacter == $" ifTrue: [ ^ self recordAndReportMatch: #( 9 ) ].
currentCharacter == $\ ifTrue: [ currentCharacter == $\ ifTrue: [
self step. self step.
^ self scan1 ]. ^ self scan1 ].
@@ -31,14 +31,27 @@ CarpScanner >> scan1 [
{ #category : #generated } { #category : #generated }
CarpScanner >> scan2 [ CarpScanner >> scan2 [
self recordMatch: #( 13 ).
self step. self step.
currentCharacter isDigit ifTrue: [ currentCharacter isDigit ifTrue: [ ^ self scan3 ].
(currentCharacter isLowercase or: [
currentCharacter isUppercase or: [
('!$' includes: currentCharacter) or: [
(currentCharacter between: $* and: $+) or: [
('-/:' includes: currentCharacter) or: [
(currentCharacter between: $< and: $?) or: [
currentCharacter == $_ ] ] ] ] ] ]) ifTrue: [
[ [
self recordMatch: #( 14 ). self recordMatch: #( 13 ).
self step. self step.
currentCharacter == $f ifTrue: [ currentCharacter isLowercase or: [
^ self recordAndReportMatch: #( 14 ) ]. currentCharacter isUppercase or: [
currentCharacter isDigit ] whileTrue ]. currentCharacter isDigit or: [
('!$' includes: currentCharacter) or: [
(currentCharacter between: $* and: $+) or: [
('-/:' includes: currentCharacter) or: [
(currentCharacter between: $< and: $?) or: [
currentCharacter == $_ ] ] ] ] ] ] ] ] whileTrue ].
^ self reportLastMatch ^ self reportLastMatch
] ]
@@ -46,28 +59,94 @@ CarpScanner >> scan2 [
CarpScanner >> scan3 [ CarpScanner >> scan3 [
[ [
self recordMatch: #( 14 ). self recordMatch: #( 13 18 ).
self step. self step.
currentCharacter == $. ifTrue: [ ^ self scan2 ]. currentCharacter == $. ifTrue: [ ^ self scan4 ].
currentCharacter isDigit ] whileTrue. currentCharacter isDigit ] whileTrue.
('bfl' includes: currentCharacter) ifTrue: [ ('bfl' includes: currentCharacter) ifTrue: [
^ self recordAndReportMatch: #( 14 ) ]. self recordMatch: #( 13 18 ).
self step.
(currentCharacter isLowercase or: [
currentCharacter isUppercase or: [
currentCharacter isDigit or: [
('!$' includes: currentCharacter) or: [
(currentCharacter between: $* and: $+) or: [
('-/:' includes: currentCharacter) or: [
(currentCharacter between: $< and: $?) or: [
currentCharacter == $_ ] ] ] ] ] ] ]) ifTrue: [
[
self recordMatch: #( 13 ).
self step.
currentCharacter isLowercase or: [
currentCharacter isUppercase or: [
currentCharacter isDigit or: [
('!$' includes: currentCharacter) or: [
(currentCharacter between: $* and: $+) or: [
('-/:' includes: currentCharacter) or: [
(currentCharacter between: $< and: $?) or: [
currentCharacter == $_ ] ] ] ] ] ] ] ] whileTrue ].
^ self reportLastMatch ].
(currentCharacter isUppercase or: [
currentCharacter isLowercase or: [
('!$' includes: currentCharacter) or: [
(currentCharacter between: $* and: $+) or: [
('-/:' includes: currentCharacter) or: [
(currentCharacter between: $< and: $?) or: [
currentCharacter == $_ ] ] ] ] ] ]) ifTrue: [
[
self recordMatch: #( 13 ).
self step.
currentCharacter isLowercase or: [
currentCharacter isUppercase or: [
currentCharacter isDigit or: [
('!$' includes: currentCharacter) or: [
(currentCharacter between: $* and: $+) or: [
('-/:' includes: currentCharacter) or: [
(currentCharacter between: $< and: $?) or: [
currentCharacter == $_ ] ] ] ] ] ] ] ] whileTrue ].
^ self reportLastMatch ^ self reportLastMatch
] ]
{ #category : #generated } { #category : #generated }
CarpScanner >> scan4 [ CarpScanner >> scan4 [
(self scanForString: 'ac') ifTrue: [ ^ self scan5 ]. self step.
currentCharacter isDigit ifTrue: [
[
self recordMatch: #( 18 ).
self step.
currentCharacter == $f ifTrue: [
^ self recordAndReportMatch: #( 18 ) ].
currentCharacter isDigit ] whileTrue ].
^ self reportLastMatch ^ self reportLastMatch
] ]
{ #category : #generated } { #category : #generated }
CarpScanner >> scan5 [ CarpScanner >> scan5 [
[
self recordMatch: #( 18 ).
self step.
currentCharacter == $. ifTrue: [ ^ self scan4 ].
currentCharacter isDigit ] whileTrue.
('bfl' includes: currentCharacter) ifTrue: [
^ self recordAndReportMatch: #( 18 ) ].
^ self reportLastMatch
]
{ #category : #generated }
CarpScanner >> scan6 [
(self scanForString: 'ac') ifTrue: [ ^ self scan7 ].
^ self reportLastMatch
]
{ #category : #generated }
CarpScanner >> scan7 [
self step. self step.
currentCharacter == $e ifTrue: [ currentCharacter == $e ifTrue: [
^ self recordAndReportMatch: #( 17 ) ]. ^ self recordAndReportMatch: #( 21 ) ].
^ self reportLastMatch ^ self reportLastMatch
] ]
@@ -76,20 +155,10 @@ CarpScanner >> scanForToken [
self step. self step.
currentCharacter == $" ifTrue: [ ^ self scan1 ]. currentCharacter == $" ifTrue: [ ^ self scan1 ].
currentCharacter == $# ifTrue: [ ^ self recordAndReportMatch: #( 1 ) ].
currentCharacter == $% ifTrue: [ ^ self scanForTokenX7 ]. currentCharacter == $% ifTrue: [ ^ self scanForTokenX7 ].
currentCharacter == $& ifTrue: [ ^ self recordAndReportMatch: #( 3 ) ]. currentCharacter == $& ifTrue: [ ^ self recordAndReportMatch: #( 4 ) ].
currentCharacter == $( ifTrue: [ ^ self recordAndReportMatch: #( 6 ) ]. ^ self scanForTokenX9
currentCharacter == $) ifTrue: [ ^ self recordAndReportMatch: #( 7 ) ].
currentCharacter == $, ifTrue: [
^ self recordAndReportMatch: #( 15 ) ].
currentCharacter == $. ifTrue: [
^ self recordAndReportMatch: #( 11 ) ].
currentCharacter == $0 ifTrue: [ ^ self scanForTokenX2 ].
currentCharacter == $; ifTrue: [ ^ self scanForTokenX5 ].
currentCharacter == $@ ifTrue: [ ^ self recordAndReportMatch: #( 4 ) ].
currentCharacter == $[ ifTrue: [
^ self recordAndReportMatch: #( 12 ) ].
^ self scanForTokenX8
] ]
{ #category : #generated } { #category : #generated }
@@ -97,62 +166,62 @@ CarpScanner >> scanForTokenX1 [
self step. self step.
currentCharacter == $b ifTrue: [ currentCharacter == $b ifTrue: [
self recordMatch: #( 17 ). self recordMatch: #( 21 ).
self step. self step.
currentCharacter == $a ifTrue: [ currentCharacter == $a ifTrue: [
(self scanForString: 'cksp') ifTrue: [ ^ self scan4 ] ]. (self scanForString: 'cksp') ifTrue: [ ^ self scan6 ] ].
^ self reportLastMatch ]. ^ self reportLastMatch ].
currentCharacter == $f ifTrue: [ currentCharacter == $f ifTrue: [
self recordMatch: #( 17 ). self recordMatch: #( 21 ).
self step. self step.
currentCharacter == $o ifTrue: [ currentCharacter == $o ifTrue: [
(self scanForString: 'rmfeed') ifTrue: [ (self scanForString: 'rmfeed') ifTrue: [
^ self recordAndReportMatch: #( 17 ) ] ]. ^ self recordAndReportMatch: #( 21 ) ] ].
^ self reportLastMatch ]. ^ self reportLastMatch ].
currentCharacter == $n ifTrue: [ currentCharacter == $n ifTrue: [
self recordMatch: #( 17 ). self recordMatch: #( 21 ).
self step. self step.
currentCharacter == $e ifTrue: [ currentCharacter == $e ifTrue: [
(self scanForString: 'wlin') ifTrue: [ ^ self scan5 ] ]. (self scanForString: 'wlin') ifTrue: [ ^ self scan7 ] ].
^ self reportLastMatch ]. ^ self reportLastMatch ].
currentCharacter == $o ifTrue: [ currentCharacter == $o ifTrue: [
self recordMatch: #( 17 ). self recordMatch: #( 21 ).
self step. self step.
(currentCharacter between: $0 and: $7) ifTrue: [ (currentCharacter between: $0 and: $7) ifTrue: [
self step. self step.
(currentCharacter between: $0 and: $7) ifTrue: [ (currentCharacter between: $0 and: $7) ifTrue: [
self step. self step.
(currentCharacter between: $0 and: $7) ifTrue: [ (currentCharacter between: $0 and: $7) ifTrue: [
^ self recordAndReportMatch: #( 17 ) ] ] ]. ^ self recordAndReportMatch: #( 21 ) ] ] ].
^ self reportLastMatch ]. ^ self reportLastMatch ].
currentCharacter == $r ifTrue: [ currentCharacter == $r ifTrue: [
self recordMatch: #( 17 ). self recordMatch: #( 21 ).
self step. self step.
currentCharacter == $e ifTrue: [ currentCharacter == $e ifTrue: [
(self scanForString: 'turn') ifTrue: [ (self scanForString: 'turn') ifTrue: [
^ self recordAndReportMatch: #( 17 ) ] ]. ^ self recordAndReportMatch: #( 21 ) ] ].
^ self reportLastMatch ]. ^ self reportLastMatch ].
currentCharacter == $s ifTrue: [ currentCharacter == $s ifTrue: [
self recordMatch: #( 17 ). self recordMatch: #( 21 ).
self step. self step.
currentCharacter == $p ifTrue: [ ^ self scan4 ]. currentCharacter == $p ifTrue: [ ^ self scan6 ].
^ self reportLastMatch ]. ^ self reportLastMatch ].
currentCharacter == $t ifTrue: [ currentCharacter == $t ifTrue: [
self recordMatch: #( 17 ). self recordMatch: #( 21 ).
self step. self step.
currentCharacter == $a ifTrue: [ currentCharacter == $a ifTrue: [
self step. self step.
currentCharacter == $b ifTrue: [ currentCharacter == $b ifTrue: [
^ self recordAndReportMatch: #( 17 ) ] ]. ^ self recordAndReportMatch: #( 21 ) ] ].
^ self reportLastMatch ]. ^ self reportLastMatch ].
currentCharacter == $u ifTrue: [ ^ self scanForTokenX1X1 ]. currentCharacter == $u ifTrue: [ ^ self scanForTokenX1X1 ].
^ self recordAndReportMatch: #( 17 ) ^ self recordAndReportMatch: #( 21 )
] ]
{ #category : #generated } { #category : #generated }
CarpScanner >> scanForTokenX1X1 [ CarpScanner >> scanForTokenX1X1 [
self recordMatch: #( 17 ). self recordMatch: #( 21 ).
self step. self step.
(currentCharacter isDigit or: [ currentCharacter between: $A and: $F ]) (currentCharacter isDigit or: [ currentCharacter between: $A and: $F ])
ifTrue: [ ifTrue: [
@@ -165,32 +234,32 @@ CarpScanner >> scanForTokenX1X1 [
self step. self step.
(currentCharacter isDigit or: [ (currentCharacter isDigit or: [
currentCharacter between: $A and: $F ]) ifTrue: [ currentCharacter between: $A and: $F ]) ifTrue: [
^ self recordAndReportMatch: #( 17 ) ] ] ] ]. ^ self recordAndReportMatch: #( 21 ) ] ] ] ].
^ self reportLastMatch ^ self reportLastMatch
] ]
{ #category : #generated } { #category : #generated }
CarpScanner >> scanForTokenX2 [ CarpScanner >> scanForTokenX2 [
self recordMatch: #( 14 ). self recordMatch: #( 18 ).
self step. self step.
currentCharacter == $. ifTrue: [ ^ self scan2 ]. currentCharacter == $. ifTrue: [ ^ self scan4 ].
currentCharacter == $b ifTrue: [ currentCharacter == $b ifTrue: [
self recordMatch: #( 14 ). self recordMatch: #( 18 ).
self step. self step.
(currentCharacter between: $0 and: $1) ifTrue: [ (currentCharacter between: $0 and: $1) ifTrue: [
^ self recordAndReportMatch: #( 14 ) ]. ^ self recordAndReportMatch: #( 18 ) ].
^ self reportLastMatch ]. ^ self reportLastMatch ].
currentCharacter == $x ifTrue: [ currentCharacter == $x ifTrue: [
self step. self step.
(currentCharacter isDigit or: [ (currentCharacter isDigit or: [
(currentCharacter between: $A and: $F) or: [ (currentCharacter between: $A and: $F) or: [
currentCharacter between: $a and: $f ] ]) ifTrue: [ currentCharacter between: $a and: $f ] ]) ifTrue: [
^ self recordAndReportMatch: #( 14 ) ]. ^ self recordAndReportMatch: #( 18 ) ].
^ self reportLastMatch ]. ^ self reportLastMatch ].
currentCharacter isDigit ifTrue: [ ^ self scan3 ]. currentCharacter isDigit ifTrue: [ ^ self scan5 ].
('fl' includes: currentCharacter) ifTrue: [ ('fl' includes: currentCharacter) ifTrue: [
^ self recordAndReportMatch: #( 14 ) ]. ^ self recordAndReportMatch: #( 18 ) ].
^ self reportLastMatch ^ self reportLastMatch
] ]
@@ -198,7 +267,7 @@ CarpScanner >> scanForTokenX2 [
CarpScanner >> scanForTokenX3 [ CarpScanner >> scanForTokenX3 [
[ [
self recordMatch: #( 10 ). self recordMatch: #( 14 ).
self step. self step.
currentCharacter isLowercase or: [ currentCharacter isLowercase or: [
currentCharacter isUppercase or: [ currentCharacter isUppercase or: [
@@ -215,7 +284,7 @@ CarpScanner >> scanForTokenX3 [
CarpScanner >> scanForTokenX4 [ CarpScanner >> scanForTokenX4 [
[ [
self recordMatch: #( 9 ). self recordMatch: #( 13 ).
self step. self step.
currentCharacter isLowercase or: [ currentCharacter isLowercase or: [
currentCharacter isUppercase or: [ currentCharacter isUppercase or: [
@@ -231,7 +300,7 @@ CarpScanner >> scanForTokenX4 [
CarpScanner >> scanForTokenX5 [ CarpScanner >> scanForTokenX5 [
[ [
self recordMatch: #( 15 ). self recordMatch: #( 19 ).
self step. self step.
currentCharacter <= Character tab or: [ currentCharacter <= Character tab or: [
(currentCharacter between: Character pageUp and: Character newPage) (currentCharacter between: Character pageUp and: Character newPage)
@@ -243,7 +312,7 @@ CarpScanner >> scanForTokenX5 [
CarpScanner >> scanForTokenX6 [ CarpScanner >> scanForTokenX6 [
[ [
self recordMatch: #( 16 ). self recordMatch: #( 20 ).
self step. self step.
currentCharacter isSeparator or: [ currentCharacter isSeparator or: [
currentCharacter == Character pageUp ] ] whileTrue. currentCharacter == Character pageUp ] ] whileTrue.
@@ -253,21 +322,20 @@ CarpScanner >> scanForTokenX6 [
{ #category : #generated } { #category : #generated }
CarpScanner >> scanForTokenX7 [ CarpScanner >> scanForTokenX7 [
self recordMatch: #( 1 ). self recordMatch: #( 2 ).
self step. self step.
currentCharacter == $@ ifTrue: [ ^ self recordAndReportMatch: #( 2 ) ]. currentCharacter == $@ ifTrue: [ ^ self recordAndReportMatch: #( 3 ) ].
^ self reportLastMatch ^ self reportLastMatch
] ]
{ #category : #generated } { #category : #generated }
CarpScanner >> scanForTokenX8 [ CarpScanner >> scanForTokenX8 [
currentCharacter == $\ ifTrue: [ ^ self scanForTokenX1 ]. currentCharacter == $} ifTrue: [ ^ self recordAndReportMatch: #( 7 ) ].
currentCharacter == $] ifTrue: [ currentCharacter == $~ ifTrue: [ ^ self recordAndReportMatch: #( 8 ) ].
^ self recordAndReportMatch: #( 13 ) ]. currentCharacter isDigit ifTrue: [ ^ self scan5 ].
currentCharacter isDigit ifTrue: [ ^ self scan3 ].
('''`' includes: currentCharacter) ifTrue: [ ('''`' includes: currentCharacter) ifTrue: [
^ self recordAndReportMatch: #( 8 ) ]. ^ self recordAndReportMatch: #( 12 ) ].
(currentCharacter isSeparator or: [ (currentCharacter isSeparator or: [
currentCharacter == Character pageUp ]) ifTrue: [ currentCharacter == Character pageUp ]) ifTrue: [
^ self scanForTokenX6 ]. ^ self scanForTokenX6 ].
@@ -275,16 +343,40 @@ CarpScanner >> scanForTokenX8 [
(currentCharacter isLowercase or: [ (currentCharacter isLowercase or: [
('!$' includes: currentCharacter) or: [ ('!$' includes: currentCharacter) or: [
(currentCharacter between: $* and: $+) or: [ (currentCharacter between: $* and: $+) or: [
('-/:' includes: currentCharacter) or: [ ('/:' includes: currentCharacter) or: [
(currentCharacter between: $< and: $?) or: [ (currentCharacter between: $< and: $?) or: [
currentCharacter == $_ ] ] ] ] ]) ifTrue: [ currentCharacter == $_ ] ] ] ] ]) ifTrue: [
self scanForTokenX4 ]. self scanForTokenX4 ].
^ self reportLastMatch ^ self reportLastMatch
] ]
{ #category : #generated }
CarpScanner >> scanForTokenX9 [
currentCharacter == $( ifTrue: [
^ self recordAndReportMatch: #( 10 ) ].
currentCharacter == $) ifTrue: [
^ self recordAndReportMatch: #( 11 ) ].
currentCharacter == $, ifTrue: [
^ self recordAndReportMatch: #( 19 ) ].
currentCharacter == $- ifTrue: [ ^ self scan2 ].
currentCharacter == $. ifTrue: [
^ self recordAndReportMatch: #( 15 ) ].
currentCharacter == $0 ifTrue: [ ^ self scanForTokenX2 ].
currentCharacter == $; ifTrue: [ ^ self scanForTokenX5 ].
currentCharacter == $@ ifTrue: [ ^ self recordAndReportMatch: #( 5 ) ].
currentCharacter == $[ ifTrue: [
^ self recordAndReportMatch: #( 16 ) ].
currentCharacter == $\ ifTrue: [ ^ self scanForTokenX1 ].
currentCharacter == $] ifTrue: [
^ self recordAndReportMatch: #( 17 ) ].
currentCharacter == ${ ifTrue: [ ^ self recordAndReportMatch: #( 6 ) ].
^ self scanForTokenX8
]
{ #category : #generated } { #category : #generated }
CarpScanner >> tokenActions [ CarpScanner >> tokenActions [
^ #( nil nil nil nil nil nil nil nil nil nil nil nil nil nil #comment ^ #( nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil nil
#whitespace ) nil nil #comment #whitespace )
] ]

24
src/Carp/TCarpExpressionNodeVisitor.trait.st
View File

@@ -35,6 +35,12 @@ TCarpExpressionNodeVisitor >> visitList: aList [
^ self visitExpression: aList ^ self visitExpression: aList
] ]
{ #category : #generated }
TCarpExpressionNodeVisitor >> visitMap: aMap [
^ self visitExpression: aMap
]
{ #category : #generated } { #category : #generated }
TCarpExpressionNodeVisitor >> visitModuleOrType: aModuleOrType [ TCarpExpressionNodeVisitor >> visitModuleOrType: aModuleOrType [
@@ -47,6 +53,18 @@ TCarpExpressionNodeVisitor >> visitNumber: aNumber [
^ self visitExpression: aNumber ^ self visitExpression: aNumber
] ]
{ #category : #generated }
TCarpExpressionNodeVisitor >> visitPair: aPair [
^ self visitExpression: aPair
]
{ #category : #generated }
TCarpExpressionNodeVisitor >> visitPattern: aPattern [
^ self visitExpression: aPattern
]
{ #category : #generated } { #category : #generated }
TCarpExpressionNodeVisitor >> visitQuote: aQuote [ TCarpExpressionNodeVisitor >> visitQuote: aQuote [
@@ -59,6 +77,12 @@ TCarpExpressionNodeVisitor >> visitRef: aRef [
^ self visitExpression: aRef ^ self visitExpression: aRef
] ]
{ #category : #generated }
TCarpExpressionNodeVisitor >> visitRefCall: aRefCall [
^ self visitExpression: aRefCall
]
{ #category : #generated } { #category : #generated }
TCarpExpressionNodeVisitor >> visitStart: aStart [ TCarpExpressionNodeVisitor >> visitStart: aStart [