hg/stx-goodies-petitparser: PPLiteralSequenceParser.st@65da3a4195b6 (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: 382 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: 382 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	PPLiteralParser subclass:#PPLiteralSequenceParser
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	6	instanceVariableNames:'size'
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	!PPLiteralSequenceParser methodsFor:'accessing'!
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	14
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	15	size
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	16	"Answer the sequence size of the receiver."
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	^ size
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
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	21	!PPLiteralSequenceParser methodsFor:'initialization'!
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	initializeOn: anObject message: aString
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	24	super initializeOn: anObject message: aString.
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	25	size := literal size
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
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	28	!PPLiteralSequenceParser methodsFor:'operators'!
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	caseInsensitive
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	31	"Answer a parser that can parse the receiver case-insensitive."
9 730f53400c73 Checkin from browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	32
0 739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	33	literal asUppercase = literal asLowercase ifTrue: [ ^ self ].
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	34	^ PPPredicateSequenceParser on: [ :value \| literal sameAs: value ] message: message size: size
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	35	! !
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	!PPLiteralSequenceParser methodsFor:'parsing'!
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	38
377 6112a403a52d Updated to latest version from Moose repository. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 9 diff changeset	39	parseOn: aPPContext
6112a403a52d Updated to latest version from Moose repository. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 9 diff changeset	40	\| memento result \|
6112a403a52d Updated to latest version from Moose repository. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 9 diff changeset	41	memento := aPPContext remember.
6112a403a52d Updated to latest version from Moose repository. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 9 diff changeset	42	result := aPPContext next: size.
0 739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	43	literal = result ifTrue: [ ^ result ].
377 6112a403a52d Updated to latest version from Moose repository. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 9 diff changeset	44	aPPContext restore: memento.
6112a403a52d Updated to latest version from Moose repository. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 9 diff changeset	45	^ PPFailure message: message context: aPPContext
0 739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	46	! !
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	47
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	48	!PPLiteralSequenceParser class methodsFor:'documentation'!
739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	49
9 730f53400c73 Checkin from browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	50	version
730f53400c73 Checkin from browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	51	^ '$Header: /cvs/stx/stx/goodies/petitparser/PPLiteralSequenceParser.st,v 1.3 2012-05-04 21:58:27 vrany Exp $'
730f53400c73 Checkin from browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	52	!
730f53400c73 Checkin from browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	53
730f53400c73 Checkin from browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	54	version_CVS
730f53400c73 Checkin from browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	55	^ '$Header: /cvs/stx/stx/goodies/petitparser/PPLiteralSequenceParser.st,v 1.3 2012-05-04 21:58:27 vrany Exp $'
730f53400c73 Checkin from browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	56	!
730f53400c73 Checkin from browser Jan Vrany <jan.vrany@fit.cvut.cz> parents: 4 diff changeset	57
382 1825151d6455 Added target `mcz` to export .mcz package out of Smalltalk/X package. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 377 diff changeset	58	version_HG
1825151d6455 Added target `mcz` to export .mcz package out of Smalltalk/X package. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 377 diff changeset	59
1825151d6455 Added target `mcz` to export .mcz package out of Smalltalk/X package. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 377 diff changeset	60	^ '$Changeset: <not expanded> $'
1825151d6455 Added target `mcz` to export .mcz package out of Smalltalk/X package. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 377 diff changeset	61	!
1825151d6455 Added target `mcz` to export .mcz package out of Smalltalk/X package. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 377 diff changeset	62
0 739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	63	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: 382 diff changeset	64	^ '§Id: PPLiteralSequenceParser.st 2 2010-12-17 18:44:23Z vranyj1 §'
0 739fe9b7253e * empty log message * Claus Gittinger <cg@exept.de> parents: diff changeset	65	! !
377 6112a403a52d Updated to latest version from Moose repository. Jan Vrany <jan.vrany@fit.cvut.cz> parents: 9 diff changeset	66

author	Jan Vrany <jan.vrany@fit.cvut.cz>
	Wed, 24 Jul 2019 21:13:30 +0000
changeset 643	65da3a4195b6
parent 642	77d5fddb6462
permissions	-rw-r--r--