equal
deleted
inserted
replaced
9 category:'PetitCompiler-Nodes' |
9 category:'PetitCompiler-Nodes' |
10 ! |
10 ! |
11 |
11 |
12 |
12 |
13 !PPCSequenceNode methodsFor:'accessing'! |
13 !PPCSequenceNode methodsFor:'accessing'! |
|
14 |
|
15 defaultName |
|
16 ^ #seq |
|
17 ! |
14 |
18 |
15 preferredChildrenVariableNames |
19 preferredChildrenVariableNames |
16 "Return an array of preferred variable names of variables where to store |
20 "Return an array of preferred variable names of variables where to store |
17 particular child's result value." |
21 particular child's result value." |
18 |
22 |
46 "Sets an array of preferred variable names" |
50 "Sets an array of preferred variable names" |
47 |
51 |
48 self propertyAt: #preferredChildrenVariableNames put: aSequenceableCollection |
52 self propertyAt: #preferredChildrenVariableNames put: aSequenceableCollection |
49 |
53 |
50 "Created: / 04-06-2015 / 23:09:12 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
54 "Created: / 04-06-2015 / 23:09:12 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
51 ! |
|
52 |
|
53 prefix |
|
54 ^ #seq |
|
55 ! |
55 ! |
56 |
56 |
57 returnParsedObjectsAsCollection |
57 returnParsedObjectsAsCollection |
58 ^ self propertyAt: #returnParsedObjectsAsCollection ifAbsent:[ true ] |
58 ^ self propertyAt: #returnParsedObjectsAsCollection ifAbsent:[ true ] |
59 |
59 |
116 set := Set new. |
116 set := Set new. |
117 |
117 |
118 child recognizedSentences do: [ :suffix | |
118 child recognizedSentences do: [ :suffix | |
119 retval do: [ :prefix | |
119 retval do: [ :prefix | |
120 set add: prefix, suffix. |
120 set add: prefix, suffix. |
121 ] |
121 ] |
122 ]. |
122 ]. |
123 retval := set. |
123 retval := set. |
124 ]. |
124 ]. |
125 ^ retval asArray |
125 ^ retval asArray |
126 ! ! |
126 ! ! |