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

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

     2 

     4 

     3 Object subclass:#PPCharSetPredicate

     5 Object subclass:#PPCharSetPredicate

     4 	instanceVariableNames:'block classification'

     6 	instanceVariableNames:'block classification'

     5 	classVariableNames:''

     7 	classVariableNames:''

     6 	poolDictionaries:''

     8 	poolDictionaries:''

    31 initializeOn: aBlock

    33 initializeOn: aBlock

    32 	block := aBlock.

    34 	block := aBlock.

    33 	classification := Array new: 255.

    35 	classification := Array new: 255.

    34 	1 to: classification size do: [ :index |

    36 	1 to: classification size do: [ :index |

    35 		classification at: index put: (block

    37 		classification at: index put: (block

    37 ! !

    39 ! !

    38 

    40 

    39 !PPCharSetPredicate class methodsFor:'documentation'!

    41 !PPCharSetPredicate class methodsFor:'documentation'!

    40 

    42 

    41 version

    43 version

    47 !

    49 !

    48 

    50 

    49 version_SVN

    51 version_SVN

    50     ^ '§Id: PPCharSetPredicate.st 4 2010-12-18 17:02:23Z kursjan §'

    52     ^ '§Id: PPCharSetPredicate.st 4 2010-12-18 17:02:23Z kursjan §'

    51 ! !

    53 ! !