forked from pharo-project/pharo
-
Notifications
You must be signed in to change notification settings - Fork 0
/
RBEnglobingErrorNode.class.st
91 lines (76 loc) · 2.76 KB
/
RBEnglobingErrorNode.class.st
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
"
I am a node representing a source code segment that parsed but never used in a node because of an unexpected error at the end. I am mainly used for source-code coloring and icon styling where all the code parsed should be colored normaly but underlined as part of the error.
This node also propose a reparation research.
Parsing faulty code without raising a syntax error is done by
RBParser parseFaultyExpression:
or
RBParser parseFaultyMethod:
Accessing to the parsed nodes contained inside the node is the method 'content'.
"
Class {
#name : #RBEnglobingErrorNode,
#superclass : #RBParseErrorNode,
#instVars : [
'content'
],
#category : #'AST-Core-Nodes'
}
{ #category : #'as yet unclassified' }
RBEnglobingErrorNode class >> content: aCollection start: aStart stop: aStop errorMessage: message [
^self new
content: aCollection;
start: aStart;
stop: aStop;
errorMessage: message
]
{ #category : #construction }
RBEnglobingErrorNode class >> error: aToken withNodes: aCollection [
"Realise a selection between the different englobing error node classes possible according to the
received token. If the value of the token is not recognised, we create an undetermined one."
('()' includes: aToken value)
ifTrue: [ ^RBParenthesesErrorNode error: aToken withNodes: aCollection ].
('[]' includes: aToken value)
ifTrue: [ ^RBBlockErrorNode error: aToken withNodes: aCollection ].
('#(' = aToken value asString)
ifTrue: [ ^RBLiteralArrayErrorNode error: aToken withNodes: aCollection ].
('#[' = aToken value asString)
ifTrue: [ ^RBLiteralByteArrayErrorNode error: aToken withNodes: aCollection ].
('{}' includes: aToken value)
ifTrue: [ ^RBArrayErrorNode error: aToken withNodes: aCollection ].
('|' = aToken value asString)
ifTrue: [ ^RBTemporariesErrorNode error: aToken withNodes: aCollection ].
('<' = aToken value asString)
ifTrue: [ ^RBPragmaErrorNode error: aToken withNodes: aCollection ].
^self new content: aCollection; start: aCollection first start; stop: aToken stop; errorMessage: 'complementary of''',aToken value,''' expected'
]
{ #category : #visiting }
RBEnglobingErrorNode >> acceptVisitor: aVisitor [
^ aVisitor visitEnglobingErrorNode: self
]
{ #category : #accessing }
RBEnglobingErrorNode >> children [
^ content
]
{ #category : #accessing }
RBEnglobingErrorNode >> content [
^content
]
{ #category : #accessing }
RBEnglobingErrorNode >> content: aCollection [
content := aCollection.
aCollection do: [:each | each parent: self ]
]
{ #category : #initialization }
RBEnglobingErrorNode >> initialize [
super initialize.
content := OrderedCollection new.
value := ''.
]
{ #category : #testing }
RBEnglobingErrorNode >> isEnglobingError [
^true
]
{ #category : #accessing }
RBEnglobingErrorNode >> stop: anInterger [
stop := anInterger.
]