hg/stx-goodies-petitparser: PPLiteralParser.st@1e45d3c96ec5 (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	PPParser subclass:#PPLiteralParser
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	4	instanceVariableNames:'literal message'
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	!PPLiteralParser class methodsFor:'instance creation'!
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	on: anObject
377 6112a403a52d Updated to latest version from Moose repository. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 171 diff changeset	14	^ self on: anObject message: anObject printString , ' expected'
0 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
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	17	on: anObject message: aString
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	18	^ self new initializeOn: anObject message: aString
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	19	! !
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	20
171 eebf3d210c09 update Claus Gittinger <cg@exept.de> parents: 35 diff changeset	21
0 739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	22	!PPLiteralParser methodsFor:'accessing'!
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	literal
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	25	"Answer the parsed literal."
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	^ literal
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	28	!
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	29
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	30	message
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	31	"Answer the failure message."
35 f34ac42e9496 Checkin from browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	32
0 739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	33	^ message
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
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	36	!PPLiteralParser methodsFor:'initialization'!
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	37
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	38	initializeOn: anObject message: aString
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	39	literal := anObject.
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	40	message := aString
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	41	! !
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	42
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	43	!PPLiteralParser methodsFor:'operators'!
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	44
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	45	caseInsensitive
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	46	"Answer a parser that can parse the receiver case-insensitive."
35 f34ac42e9496 Checkin from browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	47
0 739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	48	self subclassResponsibility
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	49	! !
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	50
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	51	!PPLiteralParser methodsFor:'printing'!
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	52
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	53	printNameOn: aStream
377 6112a403a52d Updated to latest version from Moose repository. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 171 diff changeset	54	super printNameOn: aStream.
6112a403a52d Updated to latest version from Moose repository. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 171 diff changeset	55	aStream nextPutAll: ', '; print: literal
0 739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	56	! !
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	57
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	58	!PPLiteralParser class methodsFor:'documentation'!
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	59
35 f34ac42e9496 Checkin from browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	60	version
171 eebf3d210c09 update Claus Gittinger <cg@exept.de> parents: 35 diff changeset	61	^ '$Header: /cvs/stx/stx/goodies/petitparser/PPLiteralParser.st,v 1.4 2014-03-04 14:33:03 cg Exp $'
35 f34ac42e9496 Checkin from browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	62	!
f34ac42e9496 Checkin from browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	63
f34ac42e9496 Checkin from browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	64	version_CVS
171 eebf3d210c09 update Claus Gittinger <cg@exept.de> parents: 35 diff changeset	65	^ '$Header: /cvs/stx/stx/goodies/petitparser/PPLiteralParser.st,v 1.4 2014-03-04 14:33:03 cg Exp $'
35 f34ac42e9496 Checkin from browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	66	!
f34ac42e9496 Checkin from browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	67
0 739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	68	version_SVN
171 eebf3d210c09 update Claus Gittinger <cg@exept.de> parents: 35 diff changeset	69	^ '$Id: PPLiteralParser.st,v 1.4 2014-03-04 14:33:03 cg Exp $'
0 739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	70	! !
171 eebf3d210c09 update Claus Gittinger <cg@exept.de> parents: 35 diff changeset	71

author	Jan Vrany <jan.vrany@fit.cvut.cz>
	Fri, 24 Jul 2015 15:06:54 +0100
changeset 502	1e45d3c96ec5
parent 377	6112a403a52d
permissions	-rw-r--r--