hg/stx-goodies-petitparser: PPLiteralObjectParser.st@7e08b31e0dae (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
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	3	PPLiteralParser subclass:#PPLiteralObjectParser
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	4	instanceVariableNames:''
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	5	classVariableNames:''
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	6	poolDictionaries:''
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	7	category:'PetitParser-Parsers'
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	8	!
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	9
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	!PPLiteralObjectParser methodsFor:'operators'!
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	12
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	13	caseInsensitive
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	14	"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	15
0 739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	16	literal asUppercase = literal asLowercase ifTrue: [ ^ self ].
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	17	^ PPPredicateObjectParser on: [ :value \| literal sameAs: value ] message: message
170 38bf7423a5d4 update Claus Gittinger <cg@exept.de> parents: 17 diff changeset	18	!
38bf7423a5d4 update Claus Gittinger <cg@exept.de> parents: 17 diff changeset	19
38bf7423a5d4 update Claus Gittinger <cg@exept.de> parents: 17 diff changeset	20	negate
38bf7423a5d4 update Claus Gittinger <cg@exept.de> parents: 17 diff changeset	21	^ (PPPredicateObjectParser expect: literal message: message) negate
0 739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	22	! !
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	23
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	24	!PPLiteralObjectParser methodsFor:'parsing'!
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	25
377 6112a403a52d Updated to latest version from Moose repository. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 170 diff changeset	26	parseOn: aPPContext
6112a403a52d Updated to latest version from Moose repository. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 170 diff changeset	27	^ (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	28	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	29	ifTrue: [ aPPContext stream next ]
0 739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	30	! !
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	31
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	32	!PPLiteralObjectParser class methodsFor:'documentation'!
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	33
17 8d881a6c0ea3 Checkin from browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	34	version
170 38bf7423a5d4 update Claus Gittinger <cg@exept.de> parents: 17 diff changeset	35	^ '$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	36	!
8d881a6c0ea3 Checkin from browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	37
8d881a6c0ea3 Checkin from browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	38	version_CVS
170 38bf7423a5d4 update Claus Gittinger <cg@exept.de> parents: 17 diff changeset	39	^ '$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	40	!
8d881a6c0ea3 Checkin from browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	41
0 739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	42	version_SVN
170 38bf7423a5d4 update Claus Gittinger <cg@exept.de> parents: 17 diff changeset	43	^ '$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	44	! !
170 38bf7423a5d4 update Claus Gittinger <cg@exept.de> parents: 17 diff changeset	45

author	Jan Vrany <jan.vrany@fit.cvut.cz>
	Mon, 24 Nov 2014 00:09:23 +0000
changeset 421	7e08b31e0dae
parent 377	6112a403a52d
child 459	4751c407bb40
permissions	-rw-r--r--