hg/stx-goodies-petitparser: PPActionParser.st@439c4057517f (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:#PPActionParser
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	!PPActionParser 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: aParser block: aBlock
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	14	^ (self on: aParser) setBlock: 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
161 798f60fd396a update Claus Gittinger <cg@exept.de> parents: 21 diff changeset	17
0 739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	18	!PPActionParser methodsFor:'accessing'!
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	block
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	21	"Answer the action block of the receiver."
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	^ block
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	24	! !
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	!PPActionParser methodsFor:'initialization'!
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	27
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	28	setBlock: aBlock
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	29	block := aBlock
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	!PPActionParser methodsFor:'parsing'!
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	33
377 6112a403a52d Updated to latest version from Moose repository. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 161 diff changeset	34	parseOn: aPPContext
0 739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	35	\| element \|
377 6112a403a52d Updated to latest version from Moose repository. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 161 diff changeset	36	^ (element := parser parseOn: aPPContext) isPetitFailure
0 739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	37	ifFalse: [ block value: element ]
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	38	ifTrue: [ element ]
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	39	! !
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	40
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	41	!PPActionParser class methodsFor:'documentation'!
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	42
21 b93d472b6e8c Checkin from browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	43	version
161 798f60fd396a update Claus Gittinger <cg@exept.de> parents: 21 diff changeset	44	^ '$Header: /cvs/stx/stx/goodies/petitparser/PPActionParser.st,v 1.4 2014-03-04 14:32:21 cg Exp $'
21 b93d472b6e8c Checkin from browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	45	!
b93d472b6e8c Checkin from browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	46
b93d472b6e8c Checkin from browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	47	version_CVS
161 798f60fd396a update Claus Gittinger <cg@exept.de> parents: 21 diff changeset	48	^ '$Header: /cvs/stx/stx/goodies/petitparser/PPActionParser.st,v 1.4 2014-03-04 14:32:21 cg Exp $'
21 b93d472b6e8c Checkin from browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	49	!
b93d472b6e8c Checkin from browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	50
0 739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	51	version_SVN
161 798f60fd396a update Claus Gittinger <cg@exept.de> parents: 21 diff changeset	52	^ '$Id: PPActionParser.st,v 1.4 2014-03-04 14:32:21 cg Exp $'
0 739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	53	! !
161 798f60fd396a update Claus Gittinger <cg@exept.de> parents: 21 diff changeset	54

author	Jan Vrany <jan.vrany@fit.cvut.cz>
	Mon, 24 Aug 2015 23:42:53 +0100
changeset 529	439c4057517f
parent 377	6112a403a52d
permissions	-rw-r--r--