8 	poolDictionaries:''

     8 	poolDictionaries:''

     9 	category:'PetitCompiler-Nodes'

     9 	category:'PetitCompiler-Nodes'

    10 !

    10 !

    11 

    11 

    12 !PPCSequenceNode methodsFor:'accessing'!

    12 !PPCSequenceNode methodsFor:'accessing'!

    13 

    17 

    14 preferredChildrenVariableNames

    18 preferredChildrenVariableNames

    15     "Return an array of preferred variable names of variables where to store

    19     "Return an array of preferred variable names of variables where to store

    16      particular child's result value."

    20      particular child's result value."

    17 

    21 

    45     "Sets an array of preferred variable names"

    49     "Sets an array of preferred variable names"

    46 

    50 

    47     self propertyAt: #preferredChildrenVariableNames put: aSequenceableCollection

    51     self propertyAt: #preferredChildrenVariableNames put: aSequenceableCollection

    48 

    52 

    49     "Created: / 04-06-2015 / 23:09:12 / Jan Vrany <jan.vrany@fit.cvut.cz>"

    53     "Created: / 04-06-2015 / 23:09:12 / Jan Vrany <jan.vrany@fit.cvut.cz>"

    54 !

    54 !

    55 

    55 

    56 returnParsedObjectsAsCollection

    56 returnParsedObjectsAsCollection

    57     ^ self propertyAt: #returnParsedObjectsAsCollection ifAbsent:[ true ]

    57     ^ self propertyAt: #returnParsedObjectsAsCollection ifAbsent:[ true ]

    58 

    58 

   115         set := Set new.

   115         set := Set new.

   116 

   116 

   117         child recognizedSentences do: [ :suffix |

   117         child recognizedSentences do: [ :suffix |

   118             retval do: [ :prefix |

   118             retval do: [ :prefix |

   119                 set add: prefix, suffix.

   119                 set add: prefix, suffix.

   121         ].

   121         ].

   122         retval := set.

   122         retval := set.

   123     ].

   123     ].

   124     ^ retval asArray

   124     ^ retval asArray

   125 ! !

   125 ! !