diff -r 840942b96eea -r 3bc08fb90133 parsers/java/PJFloatLiteralNode.st
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/parsers/java/PJFloatLiteralNode.st	Tue Apr 21 14:57:16 2015 +0100
@@ -0,0 +1,47 @@
+"{ Package: 'stx:goodies/petitparser/parsers/java' }"
+
+"{ NameSpace: Smalltalk }"
+
+PJExpressionNode subclass:#PJFloatLiteralNode
+	instanceVariableNames:'literalValue isLong isFloat'
+	classVariableNames:''
+	poolDictionaries:''
+	category:'PetitJava-AST'
+!
+
+PJFloatLiteralNode comment:''
+!
+
+!PJFloatLiteralNode class methodsFor:'as yet unclassified'!
+
+newFrom: literalString
+	| instanse |
+	
+	instanse := super new.
+	instanse isFloat: literalString last asUppercase = $F.
+	instanse literalValue: (instanse isFloat ifTrue: [ literalString allButLast ] ifFalse: [ literalString ]).
+	^ instanse 
+! !
+
+!PJFloatLiteralNode methodsFor:'as yet unclassified'!
+
+acceptVisitor: aVisitor
+	^ aVisitor visitFloatLiteralNode: self
+!
+
+isFloat
+	^ isFloat
+!
+
+isFloat: anObject
+	isFloat := anObject
+!
+
+literalValue
+	^ literalValue
+!
+
+literalValue: anObject
+	literalValue := anObject
+! !
+