hg/stx-goodies-petitparser: PPFailingParser.st@d86e2db09346 (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:#PPFailingParser
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	4	instanceVariableNames:'message'
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	!PPFailingParser 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	message: aString
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	14	^ self new setMessage: aString
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
164 36ec78ddf4fe update Claus Gittinger <cg@exept.de> parents: 41 diff changeset	17
0 739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	18	!PPFailingParser 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	message
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	21	"Answer the error message of the receiving parser."
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	^ message
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	!PPFailingParser 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	setMessage: aString
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	29	message := aString
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
377 6112a403a52d Updated to latest version from Moose repository. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 164 diff changeset	32	!PPFailingParser methodsFor:'pp-context'!
0 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: 164 diff changeset	34	parseOn: aPPContext
6112a403a52d Updated to latest version from Moose repository. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 164 diff changeset	35	^ PPFailure message: message context: aPPContext
0 739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	36	! !
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	37
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	38	!PPFailingParser methodsFor:'printing'!
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	printNameOn: aStream
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	41	super printNameOn: aStream.
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	42	aStream nextPutAll: ', '; print: message
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	43	! !
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	44
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	45	!PPFailingParser class methodsFor:'documentation'!
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	46
41 c5b10aacc813 Checkin from browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	47	version
164 36ec78ddf4fe update Claus Gittinger <cg@exept.de> parents: 41 diff changeset	48	^ '$Header: /cvs/stx/stx/goodies/petitparser/PPFailingParser.st,v 1.4 2014-03-04 14:32:28 cg Exp $'
41 c5b10aacc813 Checkin from browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	49	!
c5b10aacc813 Checkin from browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	50
c5b10aacc813 Checkin from browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	51	version_CVS
164 36ec78ddf4fe update Claus Gittinger <cg@exept.de> parents: 41 diff changeset	52	^ '$Header: /cvs/stx/stx/goodies/petitparser/PPFailingParser.st,v 1.4 2014-03-04 14:32:28 cg Exp $'
41 c5b10aacc813 Checkin from browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	53	!
c5b10aacc813 Checkin from browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	54
380 8fe3cb4e607f Remove Pharoisms to make code more portable and running on Smalltalk/X Jan Vrany <jan.vrany@fit.cvut.cz> parents: 377 diff changeset	55	version_HG
8fe3cb4e607f Remove Pharoisms to make code more portable and running on Smalltalk/X Jan Vrany <jan.vrany@fit.cvut.cz> parents: 377 diff changeset	56
8fe3cb4e607f Remove Pharoisms to make code more portable and running on Smalltalk/X Jan Vrany <jan.vrany@fit.cvut.cz> parents: 377 diff changeset	57	^ '$Changeset: <not expanded> $'
8fe3cb4e607f Remove Pharoisms to make code more portable and running on Smalltalk/X Jan Vrany <jan.vrany@fit.cvut.cz> parents: 377 diff changeset	58	!
8fe3cb4e607f Remove Pharoisms to make code more portable and running on Smalltalk/X Jan Vrany <jan.vrany@fit.cvut.cz> parents: 377 diff changeset	59
0 739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	60	version_SVN
164 36ec78ddf4fe update Claus Gittinger <cg@exept.de> parents: 41 diff changeset	61	^ '$Id: PPFailingParser.st,v 1.4 2014-03-04 14:32:28 cg Exp $'
0 739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	62	! !
164 36ec78ddf4fe update Claus Gittinger <cg@exept.de> parents: 41 diff changeset	63

author	Jan Vrany <jan.vrany@fit.cvut.cz>
	Mon, 15 Jun 2015 17:12:54 +0100
changeset 485	d86e2db09346
parent 380	8fe3cb4e607f
permissions	-rw-r--r--