hg/stx-goodies-petitparser: parsers/java/extensions.st@3fe67c1fc040 (annotated)

435 3bc08fb90133 Initial commit of PetitJava Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	1	"{ Package: 'stx:goodies/petitparser/parsers/java' }"!
3bc08fb90133 Initial commit of PetitJava Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	2
3bc08fb90133 Initial commit of PetitJava Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	3	!Integer class methodsFor:'*PetitJava-AST'!
3bc08fb90133 Initial commit of PetitJava Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	4
3bc08fb90133 Initial commit of PetitJava Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	5	readFromJavaString: aString
3bc08fb90133 Initial commit of PetitJava Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	6	^ Number readFromString: (
3bc08fb90133 Initial commit of PetitJava Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	7	(aString asLowercase beginsWith: '0x')
3bc08fb90133 Initial commit of PetitJava Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	8	ifTrue: [ '16r', (aString allButFirst: 2) ]
3bc08fb90133 Initial commit of PetitJava Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	9	ifFalse: [ aString size > 1 & aString first = $0
3bc08fb90133 Initial commit of PetitJava Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	10	ifTrue: [ '8r', aString ]
3bc08fb90133 Initial commit of PetitJava Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	11	ifFalse: [ aString ]])
3bc08fb90133 Initial commit of PetitJava Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	12	! !
3bc08fb90133 Initial commit of PetitJava Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	13
454 a9cd5ea7cc36 Portability: fixes for Smalltalk/X Jan Vrany <jan.vrany@fit.cvut.cz> parents: 435 diff changeset	14	!PPParser methodsFor:'*petitcompiler'!
435 3bc08fb90133 Initial commit of PetitJava Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	15
3bc08fb90133 Initial commit of PetitJava Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	16	javaToken
454 a9cd5ea7cc36 Portability: fixes for Smalltalk/X Jan Vrany <jan.vrany@fit.cvut.cz> parents: 435 diff changeset	17	\| ws \|
a9cd5ea7cc36 Portability: fixes for Smalltalk/X Jan Vrany <jan.vrany@fit.cvut.cz> parents: 435 diff changeset	18	ws := PPJavaWhitespaceParser new.
a9cd5ea7cc36 Portability: fixes for Smalltalk/X Jan Vrany <jan.vrany@fit.cvut.cz> parents: 435 diff changeset	19	^ ((ws, ((PPTokenParser on: self) tokenClass: PPJavaToken; yourself), ws) ==> #second)
a9cd5ea7cc36 Portability: fixes for Smalltalk/X Jan Vrany <jan.vrany@fit.cvut.cz> parents: 435 diff changeset	20	propertyAt: #'trimmingToken' put: true;
a9cd5ea7cc36 Portability: fixes for Smalltalk/X Jan Vrany <jan.vrany@fit.cvut.cz> parents: 435 diff changeset	21	yourself
435 3bc08fb90133 Initial commit of PetitJava Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	22	! !
3bc08fb90133 Initial commit of PetitJava Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	23
3bc08fb90133 Initial commit of PetitJava Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	24	!stx_goodies_petitparser_parsers_java class methodsFor:'documentation'!
3bc08fb90133 Initial commit of PetitJava Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	25
3bc08fb90133 Initial commit of PetitJava Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	26	extensionsVersion_HG
3bc08fb90133 Initial commit of PetitJava Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	27
3bc08fb90133 Initial commit of PetitJava Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	28	^ '$Changeset: <not expanded> $'
3bc08fb90133 Initial commit of PetitJava Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	29	! !

author	Jan Vrany <jan.vrany@fit.cvut.cz>
	Wed, 03 Jun 2015 09:06:49 +0100
changeset 483	3fe67c1fc040
parent 454	a9cd5ea7cc36
permissions	-rw-r--r--