hg/stx-goodies-petitparser: PPPredicateSequenceParser.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	PPPredicateParser subclass:#PPPredicateSequenceParser
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	4	instanceVariableNames:'size'
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	!PPPredicateSequenceParser class methodsFor:'instance creation'!
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	12
46 da93c6223037 Checkin from browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	13	on: aBlock message: aString negated: aNegatedBlock message: aNegatedString size: anInteger
0 739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	14	^ self new initializeOn: aBlock message: aString negated: aNegatedBlock message: aNegatedString size: anInteger
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: aBlock message: aString size: anInteger
46 da93c6223037 Checkin from browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	18	^ self on: aBlock message: aString negated: [ :each \| (aBlock value: each) not ] message: 'no ' , aString size: anInteger
0 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
178 992088772705 update Claus Gittinger <cg@exept.de> parents: 46 diff changeset	21
0 739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	22	!PPPredicateSequenceParser 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	size
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	25	"Answer the sequence size of the receiver."
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	^ size
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	!PPPredicateSequenceParser methodsFor:'initialization'!
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	initializeOn: aBlock message: aString negated: aNegatedBlock message: aNegatedString size: anInteger
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	33	predicate := aBlock.
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	34	predicateMessage := aString.
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	35	negated := aNegatedBlock.
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	36	negatedMessage := aNegatedString.
46 da93c6223037 Checkin from browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	37	size := anInteger
0 739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	38	! !
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	!PPPredicateSequenceParser methodsFor:'operators'!
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	negate
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	43	"Answer a parser that is the negation of the receiving predicate parser."
46 da93c6223037 Checkin from browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	44
da93c6223037 Checkin from browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	45	^ self class
0 739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	46	on: negated message: negatedMessage
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	47	negated: predicate message: predicateMessage
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	48	size: size
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	!PPPredicateSequenceParser methodsFor:'parsing'!
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	52
377 6112a403a52d Updated to latest version from Moose repository. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 178 diff changeset	53	parseOn: aPPContext
6112a403a52d Updated to latest version from Moose repository. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 178 diff changeset	54	\| memento result \|
6112a403a52d Updated to latest version from Moose repository. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 178 diff changeset	55	memento := aPPContext remember.
6112a403a52d Updated to latest version from Moose repository. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 178 diff changeset	56	result := aPPContext stream next: size.
0 739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	57	(result size = size and: [ predicate value: result ])
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	58	ifTrue: [ ^ result ].
377 6112a403a52d Updated to latest version from Moose repository. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 178 diff changeset	59	aPPContext restore: memento.
6112a403a52d Updated to latest version from Moose repository. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 178 diff changeset	60	^ PPFailure message: predicateMessage context: aPPContext
0 739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	61	! !
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	62
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	63	!PPPredicateSequenceParser class methodsFor:'documentation'!
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	64
46 da93c6223037 Checkin from browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	65	version
178 992088772705 update Claus Gittinger <cg@exept.de> parents: 46 diff changeset	66	^ '$Header: /cvs/stx/stx/goodies/petitparser/PPPredicateSequenceParser.st,v 1.4 2014-03-04 14:33:22 cg Exp $'
46 da93c6223037 Checkin from browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	67	!
da93c6223037 Checkin from browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	68
da93c6223037 Checkin from browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	69	version_CVS
178 992088772705 update Claus Gittinger <cg@exept.de> parents: 46 diff changeset	70	^ '$Header: /cvs/stx/stx/goodies/petitparser/PPPredicateSequenceParser.st,v 1.4 2014-03-04 14:33:22 cg Exp $'
46 da93c6223037 Checkin from browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	71	!
da93c6223037 Checkin from browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	72
0 739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	73	version_SVN
178 992088772705 update Claus Gittinger <cg@exept.de> parents: 46 diff changeset	74	^ '$Id: PPPredicateSequenceParser.st,v 1.4 2014-03-04 14:33:22 cg Exp $'
0 739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	75	! !
178 992088772705 update Claus Gittinger <cg@exept.de> parents: 46 diff changeset	76

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--