1 "{ Package: 'stx:goodies/petitparser/islands' }"

     1 "{ Package: 'stx:goodies/petitparser/islands' }"

     2 

     4 

     3 PPDelegateParser subclass:#PPWater

     5 PPDelegateParser subclass:#PPWater

     4 	instanceVariableNames:'waterToken context'

     6 	instanceVariableNames:'waterToken context'

     5 	classVariableNames:''

     7 	classVariableNames:''

     6 	poolDictionaries:''

     8 	poolDictionaries:''

     7 	category:'PetitIslands-Parsers'

     9 	category:'PetitIslands-Parsers'

     8 !

    10 !

     9 

    12 

    10 !PPWater class methodsFor:'as yet unclassified'!

    13 !PPWater class methodsFor:'as yet unclassified'!

    11 

    14 

    12 on: parser

    15 on: parser

    13 	^ self on: parser waterToken: #any asParser

    16 	^ self on: parser waterToken: #any asParser

    76 

    79 

    77 waterToken: aPPParser

    80 waterToken: aPPParser

    78 	^ waterToken := aPPParser

    81 	^ waterToken := aPPParser

    79 ! !

    82 ! !

    80 

    83