hg/stx-goodies-petitparser: PPPluggableParser.st@fc3dbe5654c5 (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:#PPPluggableParser
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	4	instanceVariableNames:'block'
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	!PPPluggableParser 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: aBlock
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	14	^ self new initializeOn: aBlock
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
174 e8984d5abf0f update Claus Gittinger <cg@exept.de> parents: 55 diff changeset	17
421 7e08b31e0dae Merged JK's version from Monticello Jan Vrany <jan.vrany@fit.cvut.cz> parents: 381 diff changeset	18
0 739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	19	!PPPluggableParser methodsFor:'accessing'!
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	20
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	21	block
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	22	"Answer the pluggable block."
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	^ block
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	!PPPluggableParser methodsFor:'initialization'!
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	initializeOn: aBlock
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	30	block := aBlock
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
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	33	!PPPluggableParser methodsFor:'parsing'!
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	34
421 7e08b31e0dae Merged JK's version from Monticello Jan Vrany <jan.vrany@fit.cvut.cz> parents: 381 diff changeset	35	acceptsEpsilon
7e08b31e0dae Merged JK's version from Monticello Jan Vrany <jan.vrany@fit.cvut.cz> parents: 381 diff changeset	36	^ false
7e08b31e0dae Merged JK's version from Monticello Jan Vrany <jan.vrany@fit.cvut.cz> parents: 381 diff changeset	37	!
7e08b31e0dae Merged JK's version from Monticello Jan Vrany <jan.vrany@fit.cvut.cz> parents: 381 diff changeset	38
377 6112a403a52d Updated to latest version from Moose repository. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 174 diff changeset	39	parseOn: aPPContext
6112a403a52d Updated to latest version from Moose repository. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 174 diff changeset	40	\| memento result \|
6112a403a52d Updated to latest version from Moose repository. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 174 diff changeset	41	memento := aPPContext remember.
6112a403a52d Updated to latest version from Moose repository. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 174 diff changeset	42	result := block value: aPPContext.
0 739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	43	result isPetitFailure
377 6112a403a52d Updated to latest version from Moose repository. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 174 diff changeset	44	ifTrue: [ aPPContext restore: memento ].
0 739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	45	^ result
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	46	! !
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	47
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	48	!PPPluggableParser class methodsFor:'documentation'!
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	49
55 e84f763c3447 Checkin from browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	50	version
174 e8984d5abf0f update Claus Gittinger <cg@exept.de> parents: 55 diff changeset	51	^ '$Header: /cvs/stx/stx/goodies/petitparser/PPPluggableParser.st,v 1.4 2014-03-04 14:33:12 cg Exp $'
55 e84f763c3447 Checkin from browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	52	!
e84f763c3447 Checkin from browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	53
e84f763c3447 Checkin from browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	54	version_CVS
174 e8984d5abf0f update Claus Gittinger <cg@exept.de> parents: 55 diff changeset	55	^ '$Header: /cvs/stx/stx/goodies/petitparser/PPPluggableParser.st,v 1.4 2014-03-04 14:33:12 cg Exp $'
55 e84f763c3447 Checkin from browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	56	!
e84f763c3447 Checkin from browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	57
381 0bbbcf5da2d4 `PPParser>>allParsers`, `allParsersDo:(seen:)` moved to base PetitParser package. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 377 diff changeset	58	version_HG
0bbbcf5da2d4 `PPParser>>allParsers`, `allParsersDo:(seen:)` moved to base PetitParser package. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 377 diff changeset	59
0bbbcf5da2d4 `PPParser>>allParsers`, `allParsersDo:(seen:)` moved to base PetitParser package. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 377 diff changeset	60	^ '$Changeset: <not expanded> $'
0bbbcf5da2d4 `PPParser>>allParsers`, `allParsersDo:(seen:)` moved to base PetitParser package. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 377 diff changeset	61	!
0bbbcf5da2d4 `PPParser>>allParsers`, `allParsersDo:(seen:)` moved to base PetitParser package. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 377 diff changeset	62
0 739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	63	version_SVN
174 e8984d5abf0f update Claus Gittinger <cg@exept.de> parents: 55 diff changeset	64	^ '$Id: PPPluggableParser.st,v 1.4 2014-03-04 14:33:12 cg Exp $'
0 739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	65	! !
174 e8984d5abf0f update Claus Gittinger <cg@exept.de> parents: 55 diff changeset	66

author	Jan Vrany <jan.vrany@fit.cvut.cz>
	Wed, 17 Jun 2015 16:49:28 +0100
changeset 492	fc3dbe5654c5
parent 421	7e08b31e0dae
permissions	-rw-r--r--