equal
deleted
inserted
replaced
98 unmarkForInline |
98 unmarkForInline |
99 "Forbids inlining of receiver's parsing code" |
99 "Forbids inlining of receiver's parsing code" |
100 self propertyAt: #inlined put: false |
100 self propertyAt: #inlined put: false |
101 |
101 |
102 "Created: / 23-04-2015 / 15:39:39 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
102 "Created: / 23-04-2015 / 15:39:39 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
103 ! ! |
|
104 |
|
105 !PPCNode methodsFor:'accessing-fsa'! |
|
106 |
|
107 fsa |
|
108 ^ self propertyAt: #fsa |
|
109 ! |
|
110 |
|
111 fsa: aPEGFsa |
|
112 self propertyAt: #fsa put: aPEGFsa |
|
113 ! |
|
114 |
|
115 hasFsa |
|
116 ^ self hasProperty: #fsa |
|
117 ! |
|
118 |
|
119 hasNextFsa |
|
120 ^ self hasProperty: #nextFsa |
|
121 ! |
|
122 |
|
123 nextFsa |
|
124 ^ self propertyAt: #nextFsa |
|
125 ! |
|
126 |
|
127 nextFsa: aPEGFsa |
|
128 self propertyAt: #nextFsa put: aPEGFsa |
103 ! ! |
129 ! ! |
104 |
130 |
105 !PPCNode methodsFor:'accessing-properties'! |
131 !PPCNode methodsFor:'accessing-properties'! |
106 |
132 |
107 hasProperty: aKey |
133 hasProperty: aKey |