PPStartOfLineParser.st
author Jan Vrany <jan.vrany@fit.cvut.cz>
Tue, 08 Sep 2015 02:49:45 +0100
changeset 544 69b6f2f0df1d
parent 427 a7f5e6de19d2
permissions -rw-r--r--
Portabiluty: use `Exception new signal: message` to throw exceptions ...instead of #signalWith: It seems that this is the only portable way to throw exceptions (at least among Pharo and Smalltalk/X)

"{ Package: 'stx:goodies/petitparser' }"

"{ NameSpace: Smalltalk }"

PPParser subclass:#PPStartOfLineParser
	instanceVariableNames:''
	classVariableNames:''
	poolDictionaries:''
	category:'PetitParser-Parsers'
!


!PPStartOfLineParser methodsFor:'parsing'!

parseOn: aPPContext
	(aPPContext isStartOfLine) ifTrue: [ 
		^ #startOfLine
	].
	^ PPFailure message: 'Start of line expected' context: aPPContext at: aPPContext position
! !

!PPStartOfLineParser class methodsFor:'documentation'!

version_HG

    ^ '$Changeset: <not expanded> $'
! !