hg/stx-goodies-petitparser: PPChoiceParser.st@4c6ed0a28d18 (annotated)

642 77d5fddb6462 Issue #239: Fix all Smalltak/X source files to be in unicode (UTF8 without BOM) and prefixed by "{ Encoding: utf8 }" when any unicode character is present Patrik Svestka <patrik.svestka@gmail.com> parents: 377 diff changeset	1	"{ Encoding: utf8 }"
77d5fddb6462 Issue #239: Fix all Smalltak/X source files to be in unicode (UTF8 without BOM) and prefixed by "{ Encoding: utf8 }" when any unicode character is present Patrik Svestka <patrik.svestka@gmail.com> parents: 377 diff changeset	2
4 90de244a7fa2 move to package Claus Gittinger <cg@exept.de> parents: 0 diff changeset	3	"{ Package: 'stx:goodies/petitparser' }"
0 739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	4
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	5	PPListParser subclass:#PPChoiceParser
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	6	instanceVariableNames:''
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	7	classVariableNames:''
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	8	poolDictionaries:''
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	9	category:'PetitParser-Parsers'
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
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	!PPChoiceParser methodsFor:'operations'!
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	14
36 4fe8e6295f9e Checkin from browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	15	/ aRule
0 739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	16	^ self copyWith: aRule
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	17	! !
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	18
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	19	!PPChoiceParser methodsFor:'parsing'!
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	20
377 6112a403a52d Updated to latest version from Moose repository. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 36 diff changeset	21	parseOn: aPPContext
0 739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	22	"This is optimized code that avoids unnecessary block activations, do not change. When all choices fail, the last failure is answered."
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	\| element \|
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	25	1 to: parsers size do: [ :index \|
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	26	element := (parsers at: index)
377 6112a403a52d Updated to latest version from Moose repository. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 36 diff changeset	27	parseOn: aPPContext.
0 739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	28	element isPetitFailure
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	29	ifFalse: [ ^ element ] ].
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	30	^ element
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	!PPChoiceParser class methodsFor:'documentation'!
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	34
36 4fe8e6295f9e Checkin from browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	35	version
4fe8e6295f9e Checkin from browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	36	^ '$Header: /cvs/stx/stx/goodies/petitparser/PPChoiceParser.st,v 1.3 2012-05-04 22:05:05 vrany Exp $'
4fe8e6295f9e Checkin from browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	37	!
4fe8e6295f9e Checkin from browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	38
4fe8e6295f9e Checkin from browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	39	version_CVS
4fe8e6295f9e Checkin from browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	40	^ '$Header: /cvs/stx/stx/goodies/petitparser/PPChoiceParser.st,v 1.3 2012-05-04 22:05:05 vrany Exp $'
4fe8e6295f9e Checkin from browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	41	!
4fe8e6295f9e Checkin from browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	42
0 739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	43	version_SVN
642 77d5fddb6462 Issue #239: Fix all Smalltak/X source files to be in unicode (UTF8 without BOM) and prefixed by "{ Encoding: utf8 }" when any unicode character is present Patrik Svestka <patrik.svestka@gmail.com> parents: 377 diff changeset	44	^ '§Id: PPChoiceParser.st 2 2010-12-17 18:44:23Z vranyj1 §'
0 739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	45	! !
377 6112a403a52d Updated to latest version from Moose repository. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 36 diff changeset	46

author	Jan Vrany <jan.vrany@labware.com>
	Wed, 10 Jun 2020 21:33:27 +0100
changeset 650	4c6ed0a28d18
parent 642	77d5fddb6462
permissions	-rw-r--r--