1 "{ Package: 'stx:goodies/petitparser/parsers/smalltalk' }"!

     2 

     3 !PPParser methodsFor:'*petitsmalltalk-operations'!

     4 

     5 smalltalkToken

     6 	^ PPSmalltalkTokenParser on: self

     7 ! !

     8 

     9 !RBProgramNode methodsFor:'*petitsmalltalk-accessing'!

    10 

    11 addComments: aCollectionOfIntervals

    12 	(aCollectionOfIntervals isNil or: [ aCollectionOfIntervals isEmpty ])

    13 		ifFalse: [ self comments: self comments , aCollectionOfIntervals ]

    14 ! !

    15 

    16 !RBValueToken methodsFor:'*PetitSmalltalk-Test'!

    17 

    18 inputValue

    19 	self flag: 'ugly hack to deal with PPToken #value deprecation '.

    20 	^ self value

    21 ! !

    22 

    23 !stx_goodies_petitparser_parsers_smalltalk class methodsFor:'documentation'!

    24 

    25 extensionsVersion_HG

    26 

    27     ^ '$Changeset: <not expanded> $'

    28 ! !