hg/stx-goodies-petitparser: PPLiteralObjectParser.st@7b8093caf796 (annotated)

4 90de244a7fa2 move to package Claus Gittinger <cg@exept.de> parents: 0 diff changeset	1	"{ Package: 'stx:goodies/petitparser' }"
0 739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	2
459 4751c407bb40 Merged with PetitCompiler-JanKurs.20150510144201, PetitCompiler-Tests-JanKurs.20150510144201, PetitCompiler-Extras-Tests-JanKurs.20150510144201, PetitCompiler-Benchmarks-JanKurs.20150510144201 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 377 diff changeset	3	"{ NameSpace: Smalltalk }"
4751c407bb40 Merged with PetitCompiler-JanKurs.20150510144201, PetitCompiler-Tests-JanKurs.20150510144201, PetitCompiler-Extras-Tests-JanKurs.20150510144201, PetitCompiler-Benchmarks-JanKurs.20150510144201 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 377 diff changeset	4
0 739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	5	PPLiteralParser subclass:#PPLiteralObjectParser
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	6	instanceVariableNames:''
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	7	classVariableNames:''
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	8	poolDictionaries:''
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	9	category:'PetitParser-Parsers'
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	10	!
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	11
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	12
459 4751c407bb40 Merged with PetitCompiler-JanKurs.20150510144201, PetitCompiler-Tests-JanKurs.20150510144201, PetitCompiler-Extras-Tests-JanKurs.20150510144201, PetitCompiler-Benchmarks-JanKurs.20150510144201 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 377 diff changeset	13
0 739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	14	!PPLiteralObjectParser methodsFor:'operators'!
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	15
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	16	caseInsensitive
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	17	"Answer a parser that can parse the receiver case-insensitive."
17 8d881a6c0ea3 Checkin from browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	18
0 739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	19	literal asUppercase = literal asLowercase ifTrue: [ ^ self ].
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	20	^ PPPredicateObjectParser on: [ :value \| literal sameAs: value ] message: message
170 38bf7423a5d4 update Claus Gittinger <cg@exept.de> parents: 17 diff changeset	21	!
38bf7423a5d4 update Claus Gittinger <cg@exept.de> parents: 17 diff changeset	22
38bf7423a5d4 update Claus Gittinger <cg@exept.de> parents: 17 diff changeset	23	negate
38bf7423a5d4 update Claus Gittinger <cg@exept.de> parents: 17 diff changeset	24	^ (PPPredicateObjectParser expect: literal message: message) negate
0 739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	25	! !
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	26
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	27	!PPLiteralObjectParser methodsFor:'parsing'!
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	28
377 6112a403a52d Updated to latest version from Moose repository. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 170 diff changeset	29	parseOn: aPPContext
6112a403a52d Updated to latest version from Moose repository. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 170 diff changeset	30	^ (aPPContext stream atEnd not and: [ literal = aPPContext stream uncheckedPeek ])
6112a403a52d Updated to latest version from Moose repository. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 170 diff changeset	31	ifFalse: [ PPFailure message: message context: aPPContext ]
6112a403a52d Updated to latest version from Moose repository. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 170 diff changeset	32	ifTrue: [ aPPContext stream next ]
0 739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	33	! !
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	34
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	35	!PPLiteralObjectParser class methodsFor:'documentation'!
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	36
17 8d881a6c0ea3 Checkin from browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	37	version
170 38bf7423a5d4 update Claus Gittinger <cg@exept.de> parents: 17 diff changeset	38	^ '$Header: /cvs/stx/stx/goodies/petitparser/PPLiteralObjectParser.st,v 1.4 2014-03-04 14:33:00 cg Exp $'
17 8d881a6c0ea3 Checkin from browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	39	!
8d881a6c0ea3 Checkin from browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	40
8d881a6c0ea3 Checkin from browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	41	version_CVS
170 38bf7423a5d4 update Claus Gittinger <cg@exept.de> parents: 17 diff changeset	42	^ '$Header: /cvs/stx/stx/goodies/petitparser/PPLiteralObjectParser.st,v 1.4 2014-03-04 14:33:00 cg Exp $'
17 8d881a6c0ea3 Checkin from browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	43	!
8d881a6c0ea3 Checkin from browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	44
459 4751c407bb40 Merged with PetitCompiler-JanKurs.20150510144201, PetitCompiler-Tests-JanKurs.20150510144201, PetitCompiler-Extras-Tests-JanKurs.20150510144201, PetitCompiler-Benchmarks-JanKurs.20150510144201 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 377 diff changeset	45	version_HG
4751c407bb40 Merged with PetitCompiler-JanKurs.20150510144201, PetitCompiler-Tests-JanKurs.20150510144201, PetitCompiler-Extras-Tests-JanKurs.20150510144201, PetitCompiler-Benchmarks-JanKurs.20150510144201 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 377 diff changeset	46
4751c407bb40 Merged with PetitCompiler-JanKurs.20150510144201, PetitCompiler-Tests-JanKurs.20150510144201, PetitCompiler-Extras-Tests-JanKurs.20150510144201, PetitCompiler-Benchmarks-JanKurs.20150510144201 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 377 diff changeset	47	^ '$Changeset: <not expanded> $'
4751c407bb40 Merged with PetitCompiler-JanKurs.20150510144201, PetitCompiler-Tests-JanKurs.20150510144201, PetitCompiler-Extras-Tests-JanKurs.20150510144201, PetitCompiler-Benchmarks-JanKurs.20150510144201 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 377 diff changeset	48	!
4751c407bb40 Merged with PetitCompiler-JanKurs.20150510144201, PetitCompiler-Tests-JanKurs.20150510144201, PetitCompiler-Extras-Tests-JanKurs.20150510144201, PetitCompiler-Benchmarks-JanKurs.20150510144201 Jan Vrany <jan.vrany@fit.cvut.cz> parents: 377 diff changeset	49
0 739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	50	version_SVN
170 38bf7423a5d4 update Claus Gittinger <cg@exept.de> parents: 17 diff changeset	51	^ '$Id: PPLiteralObjectParser.st,v 1.4 2014-03-04 14:33:00 cg Exp $'
0 739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	52	! !
170 38bf7423a5d4 update Claus Gittinger <cg@exept.de> parents: 17 diff changeset	53

author	Jan Vrany <jan.vrany@fit.cvut.cz>
	Fri, 31 Jul 2015 09:35:15 +0100
changeset 513	7b8093caf796
parent 459	4751c407bb40
permissions	-rw-r--r--