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

     2 

     3 "{ NameSpace: Smalltalk }"

     4 

     5 PJExpressionNode subclass:#PJFloatLiteralNode

     6 	instanceVariableNames:'literalValue isLong isFloat'

     7 	classVariableNames:''

     8 	poolDictionaries:''

     9 	category:'PetitJava-AST'

    10 !

    11 

    12 PJFloatLiteralNode comment:''

    13 !

    14 

    15 !PJFloatLiteralNode class methodsFor:'as yet unclassified'!

    16 

    17 newFrom: literalString

    18 	| instanse |

    19 	

    20 	instanse := super new.

    21 	instanse isFloat: literalString last asUppercase = $F.

    22 	instanse literalValue: (instanse isFloat ifTrue: [ literalString allButLast ] ifFalse: [ literalString ]).

    23 	^ instanse 

    24 ! !

    25 

    26 !PJFloatLiteralNode methodsFor:'as yet unclassified'!

    27 

    28 acceptVisitor: aVisitor

    29 	^ aVisitor visitFloatLiteralNode: self

    30 !

    31 

    32 isFloat

    33 	^ isFloat

    34 !

    35 

    36 isFloat: anObject

    37 	isFloat := anObject

    38 !

    39 

    40 literalValue

    41 	^ literalValue

    42 !

    43 

    44 literalValue: anObject

    45 	literalValue := anObject

    46 ! !

    47