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