hg/stx-goodies-petitparser: PPEndOfInputParser.st@548996aca274 (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	PPDelegateParser subclass:#PPEndOfInputParser
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	!PPEndOfInputParser methodsFor:'operations'!
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	end
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	14	^ self
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	!PPEndOfInputParser methodsFor:'parsing'!
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	18
377 6112a403a52d Updated to latest version from Moose repository. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 26 diff changeset	19	parseOn: aPPContext
6112a403a52d Updated to latest version from Moose repository. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 26 diff changeset	20	\| memento result \|
6112a403a52d Updated to latest version from Moose repository. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 26 diff changeset	21	memento := aPPContext remember.
6112a403a52d Updated to latest version from Moose repository. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 26 diff changeset	22	result := parser parseOn: aPPContext.
6112a403a52d Updated to latest version from Moose repository. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 26 diff changeset	23	(result isPetitFailure or: [ aPPContext stream atEnd ])
0 739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	24	ifTrue: [ ^ result ].
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	25	result := PPFailure
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	26	message: 'end of input expected'
377 6112a403a52d Updated to latest version from Moose repository. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 26 diff changeset	27	context: aPPContext.
6112a403a52d Updated to latest version from Moose repository. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 26 diff changeset	28	aPPContext restore: memento.
0 739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	29	^ result
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	!PPEndOfInputParser class methodsFor:'documentation'!
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	33
26 d5b0ca28ee55 Checkin from browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	34	version
d5b0ca28ee55 Checkin from browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	35	^ '$Header: /cvs/stx/stx/goodies/petitparser/PPEndOfInputParser.st,v 1.3 2012-05-04 22:02:18 vrany Exp $'
d5b0ca28ee55 Checkin from browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	36	!
d5b0ca28ee55 Checkin from browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	37
d5b0ca28ee55 Checkin from browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	38	version_CVS
d5b0ca28ee55 Checkin from browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	39	^ '$Header: /cvs/stx/stx/goodies/petitparser/PPEndOfInputParser.st,v 1.3 2012-05-04 22:02:18 vrany Exp $'
d5b0ca28ee55 Checkin from browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	40	!
d5b0ca28ee55 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
26 d5b0ca28ee55 Checkin from browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	43	^ '�Id: PPEndOfInputParser.st 2 2010-12-17 18:44:23Z vranyj1 �'
0 739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	44	! !
377 6112a403a52d Updated to latest version from Moose repository. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 26 diff changeset	45

author	Jan Vrany <jan.vrany@fit.cvut.cz>
	Mon, 07 Sep 2015 08:03:02 +0100
changeset 536	548996aca274
parent 377	6112a403a52d
child 642	77d5fddb6462
permissions	-rw-r--r--