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

     2 

     3 !Integer class methodsFor:'*PetitJava-AST'!

     4 

     5 readFromJavaString: aString

     6 	^ Number readFromString: (

     7 		(aString asLowercase beginsWith: '0x')

     8 			ifTrue: [ '16r', (aString allButFirst: 2) ]

     9 			ifFalse: [ aString size > 1 & aString first = $0

    10 				ifTrue: [ '8r', aString ]

    11 				ifFalse: [ aString ]])

    12 ! !

    13 

    14 !PPParser methodsFor:'*petitjava-operations'!

    15 

    16 javaToken

    17 	^ PPJavaTokenParser on: self

    18 ! !

    19 

    20 !stx_goodies_petitparser_parsers_java class methodsFor:'documentation'!

    21 

    22 extensionsVersion_HG

    23 

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

    25 ! !