hg/stx-goodies-petitparser: extensions.st@0470a5e6e712 (annotated)

4 90de244a7fa2 move to package Claus Gittinger <cg@exept.de> parents: 3 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	!Block methodsFor:'*petitparser-core-converting'!
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	asParser
213 b38781d329c5 comments Claus Gittinger <cg@exept.de> parents: 155 diff changeset	6	"Answer a parser implemented in the receiving one-argument block."
b38781d329c5 comments Claus Gittinger <cg@exept.de> parents: 155 diff changeset	7
0 739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	8	^ PPPluggableParser on: self
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	9	! !
3 e1b11f74e142 initial checkin Claus Gittinger <cg@exept.de> parents: 0 diff changeset	10
0 739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	11	!BlockContext methodsFor:'*petitparser-core-converting'!
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	asParser
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	14	^ PPPluggableParser on: self
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	15	! !
3 e1b11f74e142 initial checkin Claus Gittinger <cg@exept.de> parents: 0 diff changeset	16
213 b38781d329c5 comments Claus Gittinger <cg@exept.de> parents: 155 diff changeset	17	!Character methodsFor:'*petitparser-core-converting'!
0 739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	18
154 5c8f5da40d90 manually fixed bad checkin version Claus Gittinger <cg@exept.de> parents: 153 diff changeset	19	asParser
213 b38781d329c5 comments Claus Gittinger <cg@exept.de> parents: 155 diff changeset	20	"Answer a parser that accepts the receiving character."
b38781d329c5 comments Claus Gittinger <cg@exept.de> parents: 155 diff changeset	21
154 5c8f5da40d90 manually fixed bad checkin version Claus Gittinger <cg@exept.de> parents: 153 diff changeset	22	^ PPLiteralObjectParser on: self
0 739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	23	! !
3 e1b11f74e142 initial checkin Claus Gittinger <cg@exept.de> parents: 0 diff changeset	24
0 739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	25	!Character methodsFor:'arithmetic'!
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	26
154 5c8f5da40d90 manually fixed bad checkin version Claus Gittinger <cg@exept.de> parents: 153 diff changeset	27	ppMinus: aCharacter
5c8f5da40d90 manually fixed bad checkin version Claus Gittinger <cg@exept.de> parents: 153 diff changeset	28	"Create a range of characters between the receiver and the argument."
0 739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	29
154 5c8f5da40d90 manually fixed bad checkin version Claus Gittinger <cg@exept.de> parents: 153 diff changeset	30	^ PPPredicateObjectParser between: self and: aCharacter
0 739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	31
154 5c8f5da40d90 manually fixed bad checkin version Claus Gittinger <cg@exept.de> parents: 153 diff changeset	32	"Created: / 19-12-2010 / 18:13:19 / Jan Kurs <kurs.jan@post.cz>"
0 739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	33	! !
3 e1b11f74e142 initial checkin Claus Gittinger <cg@exept.de> parents: 0 diff changeset	34
226 f88e1127557a initial Claus Gittinger <cg@exept.de> parents: 213 diff changeset	35	!Collection methodsFor:'*petitparser-core-converting'!
f88e1127557a initial Claus Gittinger <cg@exept.de> parents: 213 diff changeset	36
f88e1127557a initial Claus Gittinger <cg@exept.de> parents: 213 diff changeset	37	asChoiceParser
f88e1127557a initial Claus Gittinger <cg@exept.de> parents: 213 diff changeset	38	^ PPChoiceParser withAll: (self collect: [ :each \| each asParser ])
f88e1127557a initial Claus Gittinger <cg@exept.de> parents: 213 diff changeset	39	! !
f88e1127557a initial Claus Gittinger <cg@exept.de> parents: 213 diff changeset	40
405 0470a5e6e712 Merged PetitParser and PetitTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 383 diff changeset	41	!Collection methodsFor:'*petitparser-converting'!
0470a5e6e712 Merged PetitParser and PetitTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 383 diff changeset	42
0470a5e6e712 Merged PetitParser and PetitTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 383 diff changeset	43	asParser
0470a5e6e712 Merged PetitParser and PetitTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 383 diff changeset	44	"Create a range of characters between start and stop."
0470a5e6e712 Merged PetitParser and PetitTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 383 diff changeset	45
0470a5e6e712 Merged PetitParser and PetitTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 383 diff changeset	46	(self allSatisfy: [ :e \| e isCharacter ]) ifTrue: [
0470a5e6e712 Merged PetitParser and PetitTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 383 diff changeset	47	\| charSet \|
0470a5e6e712 Merged PetitParser and PetitTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 383 diff changeset	48	charSet := PPCharSetPredicate on: [ :char \| self includes: char ] .
0470a5e6e712 Merged PetitParser and PetitTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 383 diff changeset	49	^ PPPredicateObjectParser on: charSet message: 'One of these charactes expected: ', self printString.
0470a5e6e712 Merged PetitParser and PetitTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 383 diff changeset	50	].
0470a5e6e712 Merged PetitParser and PetitTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 383 diff changeset	51
0470a5e6e712 Merged PetitParser and PetitTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 383 diff changeset	52
0470a5e6e712 Merged PetitParser and PetitTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 383 diff changeset	53	^ super asParser
0470a5e6e712 Merged PetitParser and PetitTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 383 diff changeset	54	"
0470a5e6e712 Merged PetitParser and PetitTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 383 diff changeset	55	($a to:$f) asParser parse:'a'
0470a5e6e712 Merged PetitParser and PetitTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 383 diff changeset	56	($a to:$f) asParser parse:'g'
0470a5e6e712 Merged PetitParser and PetitTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 383 diff changeset	57	"
0470a5e6e712 Merged PetitParser and PetitTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 383 diff changeset	58	! !
0470a5e6e712 Merged PetitParser and PetitTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 383 diff changeset	59
226 f88e1127557a initial Claus Gittinger <cg@exept.de> parents: 213 diff changeset	60	!Collection methodsFor:'*petitparser-core-converting'!
f88e1127557a initial Claus Gittinger <cg@exept.de> parents: 213 diff changeset	61
f88e1127557a initial Claus Gittinger <cg@exept.de> parents: 213 diff changeset	62	asSequenceParser
f88e1127557a initial Claus Gittinger <cg@exept.de> parents: 213 diff changeset	63	^ PPSequenceParser withAll: (self collect: [ :each \| each asParser ])
f88e1127557a initial Claus Gittinger <cg@exept.de> parents: 213 diff changeset	64	! !
f88e1127557a initial Claus Gittinger <cg@exept.de> parents: 213 diff changeset	65
405 0470a5e6e712 Merged PetitParser and PetitTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 383 diff changeset	66	!Interval methodsFor:'*petitparser-core-converting'!
0 739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	67
405 0470a5e6e712 Merged PetitParser and PetitTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 383 diff changeset	68	asParser
0470a5e6e712 Merged PetitParser and PetitTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 383 diff changeset	69	"Create a range of characters between start and stop."
152 d104f89293e3 added Interval>>asParser Claus Gittinger <cg@exept.de> parents: 150 diff changeset	70
d104f89293e3 added Interval>>asParser Claus Gittinger <cg@exept.de> parents: 150 diff changeset	71	self assert:start isCharacter.
d104f89293e3 added Interval>>asParser Claus Gittinger <cg@exept.de> parents: 150 diff changeset	72	self assert:stop isCharacter.
d104f89293e3 added Interval>>asParser Claus Gittinger <cg@exept.de> parents: 150 diff changeset	73	self assert:step == 1.
d104f89293e3 added Interval>>asParser Claus Gittinger <cg@exept.de> parents: 150 diff changeset	74	^ PPPredicateObjectParser between: start and: stop
d104f89293e3 added Interval>>asParser Claus Gittinger <cg@exept.de> parents: 150 diff changeset	75
d104f89293e3 added Interval>>asParser Claus Gittinger <cg@exept.de> parents: 150 diff changeset	76	"
405 0470a5e6e712 Merged PetitParser and PetitTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 383 diff changeset	77	($a to: $f) asParser parse: 'a'
0470a5e6e712 Merged PetitParser and PetitTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 383 diff changeset	78	($a to: $f) asParser parse: 'g'
152 d104f89293e3 added Interval>>asParser Claus Gittinger <cg@exept.de> parents: 150 diff changeset	79	"
405 0470a5e6e712 Merged PetitParser and PetitTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 383 diff changeset	80
0470a5e6e712 Merged PetitParser and PetitTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 383 diff changeset	81	"Modified (comment): / 01-11-2014 / 13:13:39 / Jan Vrany <jan.vrany@fit.cvut.cz>"
152 d104f89293e3 added Interval>>asParser Claus Gittinger <cg@exept.de> parents: 150 diff changeset	82	! !
d104f89293e3 added Interval>>asParser Claus Gittinger <cg@exept.de> parents: 150 diff changeset	83
153 43cdafa051d5 added Interval asParser Claus Gittinger <cg@exept.de> parents: 152 diff changeset	84	!Object methodsFor:'*petitparser-core-converting'!
43cdafa051d5 added Interval asParser Claus Gittinger <cg@exept.de> parents: 152 diff changeset	85
154 5c8f5da40d90 manually fixed bad checkin version Claus Gittinger <cg@exept.de> parents: 153 diff changeset	86	asParser
213 b38781d329c5 comments Claus Gittinger <cg@exept.de> parents: 155 diff changeset	87	"Answer a parser accepting the receiving object."
b38781d329c5 comments Claus Gittinger <cg@exept.de> parents: 155 diff changeset	88
154 5c8f5da40d90 manually fixed bad checkin version Claus Gittinger <cg@exept.de> parents: 153 diff changeset	89	^ PPPredicateObjectParser expect: self
5c8f5da40d90 manually fixed bad checkin version Claus Gittinger <cg@exept.de> parents: 153 diff changeset	90	! !
5c8f5da40d90 manually fixed bad checkin version Claus Gittinger <cg@exept.de> parents: 153 diff changeset	91
5c8f5da40d90 manually fixed bad checkin version Claus Gittinger <cg@exept.de> parents: 153 diff changeset	92	!Object methodsFor:'*petitparser-core-testing'!
5c8f5da40d90 manually fixed bad checkin version Claus Gittinger <cg@exept.de> parents: 153 diff changeset	93
5c8f5da40d90 manually fixed bad checkin version Claus Gittinger <cg@exept.de> parents: 153 diff changeset	94	isPetitFailure
5c8f5da40d90 manually fixed bad checkin version Claus Gittinger <cg@exept.de> parents: 153 diff changeset	95	^ false
5c8f5da40d90 manually fixed bad checkin version Claus Gittinger <cg@exept.de> parents: 153 diff changeset	96	! !
5c8f5da40d90 manually fixed bad checkin version Claus Gittinger <cg@exept.de> parents: 153 diff changeset	97
5c8f5da40d90 manually fixed bad checkin version Claus Gittinger <cg@exept.de> parents: 153 diff changeset	98	!Object methodsFor:'*petitparser-core-testing'!
5c8f5da40d90 manually fixed bad checkin version Claus Gittinger <cg@exept.de> parents: 153 diff changeset	99
5c8f5da40d90 manually fixed bad checkin version Claus Gittinger <cg@exept.de> parents: 153 diff changeset	100	isPetitParser
5c8f5da40d90 manually fixed bad checkin version Claus Gittinger <cg@exept.de> parents: 153 diff changeset	101	^ false
5c8f5da40d90 manually fixed bad checkin version Claus Gittinger <cg@exept.de> parents: 153 diff changeset	102	! !
5c8f5da40d90 manually fixed bad checkin version Claus Gittinger <cg@exept.de> parents: 153 diff changeset	103
5c8f5da40d90 manually fixed bad checkin version Claus Gittinger <cg@exept.de> parents: 153 diff changeset	104	!PositionableStream methodsFor:'*petitparser-core-converting'!
5c8f5da40d90 manually fixed bad checkin version Claus Gittinger <cg@exept.de> parents: 153 diff changeset	105
5c8f5da40d90 manually fixed bad checkin version Claus Gittinger <cg@exept.de> parents: 153 diff changeset	106	asPetitStream
405 0470a5e6e712 Merged PetitParser and PetitTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 383 diff changeset	107	"Some of my subclasses do not use the instance-variables collection, position and readLimit but instead have a completely different internal representation. In these cases just use the super implementation that is inefficient but should work in all cases."
154 5c8f5da40d90 manually fixed bad checkin version Claus Gittinger <cg@exept.de> parents: 153 diff changeset	108
405 0470a5e6e712 Merged PetitParser and PetitTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 383 diff changeset	109	^ (collection isNil or: [ position isNil or: [ readLimit isNil ] ])
0470a5e6e712 Merged PetitParser and PetitTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 383 diff changeset	110	ifFalse: [ PPStream on: collection from: ( position + 1 ) to: readLimit ]
0470a5e6e712 Merged PetitParser and PetitTests Jan Vrany <jan.vrany@fit.cvut.cz> parents: 383 diff changeset	111	ifTrue: [ super asPetitStream ]
153 43cdafa051d5 added Interval asParser Claus Gittinger <cg@exept.de> parents: 152 diff changeset	112	! !
43cdafa051d5 added Interval asParser Claus Gittinger <cg@exept.de> parents: 152 diff changeset	113
379 451b5ae38b72 Some tests fixed. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 376 diff changeset	114	!PositionableStream methodsFor:'*petitparser-core'!
451b5ae38b72 Some tests fixed. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 376 diff changeset	115
451b5ae38b72 Some tests fixed. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 376 diff changeset	116	peekTwice
451b5ae38b72 Some tests fixed. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 376 diff changeset	117	"Answer what would be returned if the message next were sent to the
451b5ae38b72 Some tests fixed. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 376 diff changeset	118	receiver. If the receiver is at the end, answer nil."
451b5ae38b72 Some tests fixed. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 376 diff changeset	119
451b5ae38b72 Some tests fixed. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 376 diff changeset	120	\| array \|
451b5ae38b72 Some tests fixed. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 376 diff changeset	121	self atEnd
451b5ae38b72 Some tests fixed. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 376 diff changeset	122	ifTrue: [^Array with: nil with: nil].
451b5ae38b72 Some tests fixed. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 376 diff changeset	123	array := Array with: (self next) with: (self peek).
451b5ae38b72 Some tests fixed. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 376 diff changeset	124	position := position - 1.
451b5ae38b72 Some tests fixed. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 376 diff changeset	125	^array
451b5ae38b72 Some tests fixed. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 376 diff changeset	126	! !
451b5ae38b72 Some tests fixed. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 376 diff changeset	127
153 43cdafa051d5 added Interval asParser Claus Gittinger <cg@exept.de> parents: 152 diff changeset	128	!SequenceableCollection methodsFor:'*petitparser-core-converting'!
43cdafa051d5 added Interval asParser Claus Gittinger <cg@exept.de> parents: 152 diff changeset	129
154 5c8f5da40d90 manually fixed bad checkin version Claus Gittinger <cg@exept.de> parents: 153 diff changeset	130	asPetitStream
5c8f5da40d90 manually fixed bad checkin version Claus Gittinger <cg@exept.de> parents: 153 diff changeset	131	^ PPStream on: self
5c8f5da40d90 manually fixed bad checkin version Claus Gittinger <cg@exept.de> parents: 153 diff changeset	132	! !
5c8f5da40d90 manually fixed bad checkin version Claus Gittinger <cg@exept.de> parents: 153 diff changeset	133
0 739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	134	!Set methodsFor:'*petitparser-core-converting'!
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	135
154 5c8f5da40d90 manually fixed bad checkin version Claus Gittinger <cg@exept.de> parents: 153 diff changeset	136	asParser
5c8f5da40d90 manually fixed bad checkin version Claus Gittinger <cg@exept.de> parents: 153 diff changeset	137	^ PPChoiceParser withAll: (self collect: [ :each \| each asParser ])
0 739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	138	! !
3 e1b11f74e142 initial checkin Claus Gittinger <cg@exept.de> parents: 0 diff changeset	139
0 739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	140	!Stream methodsFor:'*petitparser-core-converting'!
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	141
154 5c8f5da40d90 manually fixed bad checkin version Claus Gittinger <cg@exept.de> parents: 153 diff changeset	142	asPetitStream
5c8f5da40d90 manually fixed bad checkin version Claus Gittinger <cg@exept.de> parents: 153 diff changeset	143	^ self contents asPetitStream
0 739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	144	! !
3 e1b11f74e142 initial checkin Claus Gittinger <cg@exept.de> parents: 0 diff changeset	145
0 739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	146	!String methodsFor:'*petitparser-core-converting'!
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	147
154 5c8f5da40d90 manually fixed bad checkin version Claus Gittinger <cg@exept.de> parents: 153 diff changeset	148	asParser
213 b38781d329c5 comments Claus Gittinger <cg@exept.de> parents: 155 diff changeset	149	"Answer a parser that accepts the receiving string."
b38781d329c5 comments Claus Gittinger <cg@exept.de> parents: 155 diff changeset	150
154 5c8f5da40d90 manually fixed bad checkin version Claus Gittinger <cg@exept.de> parents: 153 diff changeset	151	^ PPLiteralSequenceParser on: self
0 739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	152	! !
3 e1b11f74e142 initial checkin Claus Gittinger <cg@exept.de> parents: 0 diff changeset	153
0 739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	154	!Symbol methodsFor:'*petitparser-core-converting'!
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	155
154 5c8f5da40d90 manually fixed bad checkin version Claus Gittinger <cg@exept.de> parents: 153 diff changeset	156	asParser
213 b38781d329c5 comments Claus Gittinger <cg@exept.de> parents: 155 diff changeset	157	"Answer a predicate parser named after the receiving symbol. Possible symbols are the method selectors on the class-side of PPPredicateObjectParser."
b38781d329c5 comments Claus Gittinger <cg@exept.de> parents: 155 diff changeset	158
154 5c8f5da40d90 manually fixed bad checkin version Claus Gittinger <cg@exept.de> parents: 153 diff changeset	159	^ PPPredicateObjectParser perform: self
0 739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	160	! !
3 e1b11f74e142 initial checkin Claus Gittinger <cg@exept.de> parents: 0 diff changeset	161
0 739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	162	!Symbol methodsFor:'Compatibility-Squeak'!
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	163
154 5c8f5da40d90 manually fixed bad checkin version Claus Gittinger <cg@exept.de> parents: 153 diff changeset	164	value:anObject
5c8f5da40d90 manually fixed bad checkin version Claus Gittinger <cg@exept.de> parents: 153 diff changeset	165	^ anObject perform: self.
5c8f5da40d90 manually fixed bad checkin version Claus Gittinger <cg@exept.de> parents: 153 diff changeset	166
5c8f5da40d90 manually fixed bad checkin version Claus Gittinger <cg@exept.de> parents: 153 diff changeset	167	"Created: / 18-12-2010 / 16:47:22 / Jan Kurs <kurs.jan@post.cz>"
0 739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	168	! !
3 e1b11f74e142 initial checkin Claus Gittinger <cg@exept.de> parents: 0 diff changeset	169
0 739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	170	!Text methodsFor:'*petitparser-core'!
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	171
154 5c8f5da40d90 manually fixed bad checkin version Claus Gittinger <cg@exept.de> parents: 153 diff changeset	172	asPetitStream
5c8f5da40d90 manually fixed bad checkin version Claus Gittinger <cg@exept.de> parents: 153 diff changeset	173	^ string asPetitStream
0 739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	174	! !
3 e1b11f74e142 initial checkin Claus Gittinger <cg@exept.de> parents: 0 diff changeset	175
0 739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	176	!UndefinedObject methodsFor:'*petitparser-converting'!
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	177
154 5c8f5da40d90 manually fixed bad checkin version Claus Gittinger <cg@exept.de> parents: 153 diff changeset	178	asParser
213 b38781d329c5 comments Claus Gittinger <cg@exept.de> parents: 155 diff changeset	179	"Answer a parser that succeeds and does not consume anything."
b38781d329c5 comments Claus Gittinger <cg@exept.de> parents: 155 diff changeset	180
154 5c8f5da40d90 manually fixed bad checkin version Claus Gittinger <cg@exept.de> parents: 153 diff changeset	181	^ PPEpsilonParser new
0 739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	182	! !
3 e1b11f74e142 initial checkin Claus Gittinger <cg@exept.de> parents: 0 diff changeset	183
4 90de244a7fa2 move to package Claus Gittinger <cg@exept.de> parents: 3 diff changeset	184	!stx_goodies_petitparser class methodsFor:'documentation'!
3 e1b11f74e142 initial checkin Claus Gittinger <cg@exept.de> parents: 0 diff changeset	185
376 a2656b27cace Added monticelloName to package definition to ease export to .mcz Jan Vrany <jan.vrany@fit.cvut.cz> parents: 309 diff changeset	186	extensionsVersion_HG
a2656b27cace Added monticelloName to package definition to ease export to .mcz Jan Vrany <jan.vrany@fit.cvut.cz> parents: 309 diff changeset	187
a2656b27cace Added monticelloName to package definition to ease export to .mcz Jan Vrany <jan.vrany@fit.cvut.cz> parents: 309 diff changeset	188	^ '$Changeset: <not expanded> $'
150 24e8d10ff041 Character>>-not needed here - already in libbasic Claus Gittinger <cg@exept.de> parents: 58 diff changeset	189	! !

author	Jan Vrany <jan.vrany@fit.cvut.cz>
	Mon, 03 Nov 2014 09:10:56 +0000
changeset 405	0470a5e6e712
parent 383	e9919f8e47de
child 408	ead04d661728
permissions	-rw-r--r--