hg/stx-goodies-petitparser: parsers/java/PPJavaWhitespaceParser.st@a9cd5ea7cc36 (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	"{ NameSpace: Smalltalk }"
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	PPParser subclass:#PPJavaWhitespaceParser
3bc08fb90133 Initial commit of PetitJava Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	6	instanceVariableNames:'separator'
3bc08fb90133 Initial commit of PetitJava Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	7	classVariableNames:''
3bc08fb90133 Initial commit of PetitJava Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	8	poolDictionaries:''
3bc08fb90133 Initial commit of PetitJava Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	9	category:'PetitJava-Core'
3bc08fb90133 Initial commit of PetitJava Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	10	!
3bc08fb90133 Initial commit of PetitJava Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	11
454 a9cd5ea7cc36 Portability: fixes for Smalltalk/X Jan Vrany <jan.vrany@fit.cvut.cz> parents: 436 diff changeset	12
435 3bc08fb90133 Initial commit of PetitJava Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	13	!PPJavaWhitespaceParser methodsFor:'as yet unclassified'!
3bc08fb90133 Initial commit of PetitJava Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	14
3bc08fb90133 Initial commit of PetitJava Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	15	acceptsEpsilon
3bc08fb90133 Initial commit of PetitJava Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	16	^ true
3bc08fb90133 Initial commit of PetitJava Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	17	!
3bc08fb90133 Initial commit of PetitJava Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	18
3bc08fb90133 Initial commit of PetitJava Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	19	acceptsEpsilonOpenSet: set
3bc08fb90133 Initial commit of PetitJava Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	20	^ true
3bc08fb90133 Initial commit of PetitJava Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	21	!
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	firstCharParser
3bc08fb90133 Initial commit of PetitJava Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	24	^ PPFailingParser new
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
3bc08fb90133 Initial commit of PetitJava Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	27	firstCharSet
3bc08fb90133 Initial commit of PetitJava Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	28	^ PPCharSetPredicate on: [:e \| false ]
3bc08fb90133 Initial commit of PetitJava Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	29	!
3bc08fb90133 Initial commit of PetitJava Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	30
3bc08fb90133 Initial commit of PetitJava Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	31	isNullable
3bc08fb90133 Initial commit of PetitJava Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	32	^ true
3bc08fb90133 Initial commit of PetitJava Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	33	!
3bc08fb90133 Initial commit of PetitJava Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	34
3bc08fb90133 Initial commit of PetitJava Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	35	name
3bc08fb90133 Initial commit of PetitJava Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	36	^ 'java_ws'
3bc08fb90133 Initial commit of PetitJava Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	37	!
3bc08fb90133 Initial commit of PetitJava Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	38
3bc08fb90133 Initial commit of PetitJava Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	39	parseOn: context
454 a9cd5ea7cc36 Portability: fixes for Smalltalk/X Jan Vrany <jan.vrany@fit.cvut.cz> parents: 436 diff changeset	40
a9cd5ea7cc36 Portability: fixes for Smalltalk/X Jan Vrany <jan.vrany@fit.cvut.cz> parents: 436 diff changeset	41	\| start \|
435 3bc08fb90133 Initial commit of PetitJava Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	42
454 a9cd5ea7cc36 Portability: fixes for Smalltalk/X Jan Vrany <jan.vrany@fit.cvut.cz> parents: 436 diff changeset	43	[
a9cd5ea7cc36 Portability: fixes for Smalltalk/X Jan Vrany <jan.vrany@fit.cvut.cz> parents: 436 diff changeset	44	\| peekTwice \|
a9cd5ea7cc36 Portability: fixes for Smalltalk/X Jan Vrany <jan.vrany@fit.cvut.cz> parents: 436 diff changeset	45	[ context atEnd not and: [ context peek isSeparator ] ]
a9cd5ea7cc36 Portability: fixes for Smalltalk/X Jan Vrany <jan.vrany@fit.cvut.cz> parents: 436 diff changeset	46	whileTrue: [ context next ].
a9cd5ea7cc36 Portability: fixes for Smalltalk/X Jan Vrany <jan.vrany@fit.cvut.cz> parents: 436 diff changeset	47	peekTwice := context peekTwice.
a9cd5ea7cc36 Portability: fixes for Smalltalk/X Jan Vrany <jan.vrany@fit.cvut.cz> parents: 436 diff changeset	48	((peekTwice first = $/) and:
a9cd5ea7cc36 Portability: fixes for Smalltalk/X Jan Vrany <jan.vrany@fit.cvut.cz> parents: 436 diff changeset	49	[ (peekTwice second = $*) or: [peekTwice second = $/]])
a9cd5ea7cc36 Portability: fixes for Smalltalk/X Jan Vrany <jan.vrany@fit.cvut.cz> parents: 436 diff changeset	50	] whileTrue: [
a9cd5ea7cc36 Portability: fixes for Smalltalk/X Jan Vrany <jan.vrany@fit.cvut.cz> parents: 436 diff changeset	51	context next.
a9cd5ea7cc36 Portability: fixes for Smalltalk/X Jan Vrany <jan.vrany@fit.cvut.cz> parents: 436 diff changeset	52	start := context position.
a9cd5ea7cc36 Portability: fixes for Smalltalk/X Jan Vrany <jan.vrany@fit.cvut.cz> parents: 436 diff changeset	53	(context next = $*)
a9cd5ea7cc36 Portability: fixes for Smalltalk/X Jan Vrany <jan.vrany@fit.cvut.cz> parents: 436 diff changeset	54	ifTrue: [ context upToAll: '*/' ]
a9cd5ea7cc36 Portability: fixes for Smalltalk/X Jan Vrany <jan.vrany@fit.cvut.cz> parents: 436 diff changeset	55	ifFalse: [
a9cd5ea7cc36 Portability: fixes for Smalltalk/X Jan Vrany <jan.vrany@fit.cvut.cz> parents: 436 diff changeset	56	\| position \|
a9cd5ea7cc36 Portability: fixes for Smalltalk/X Jan Vrany <jan.vrany@fit.cvut.cz> parents: 436 diff changeset	57	position := context position.
a9cd5ea7cc36 Portability: fixes for Smalltalk/X Jan Vrany <jan.vrany@fit.cvut.cz> parents: 436 diff changeset	58	context upToAnyOf: String crlf].
a9cd5ea7cc36 Portability: fixes for Smalltalk/X Jan Vrany <jan.vrany@fit.cvut.cz> parents: 436 diff changeset	59	].
a9cd5ea7cc36 Portability: fixes for Smalltalk/X Jan Vrany <jan.vrany@fit.cvut.cz> parents: 436 diff changeset	60
a9cd5ea7cc36 Portability: fixes for Smalltalk/X Jan Vrany <jan.vrany@fit.cvut.cz> parents: 436 diff changeset	61	"Modified: / 10-05-2015 / 07:57:03 / Jan Vrany <jan.vrany@fit.cvut.cz>"
435 3bc08fb90133 Initial commit of PetitJava Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	62	! !
3bc08fb90133 Initial commit of PetitJava Jan Vrany <jan.vrany@fit.cvut.cz> parents: diff changeset	63

author	Jan Vrany <jan.vrany@fit.cvut.cz>
	Sun, 10 May 2015 14:20:24 +0100
changeset 454	a9cd5ea7cc36
parent 436	e1c44b571db9
permissions	-rw-r--r--