PPStartOfLine.st
author Jan Vrany <jan.vrany@fit.cvut.cz>
Mon, 17 Aug 2015 13:39:38 +0100
changeset 517 9a7fa841f12e
parent 377 6112a403a52d
permissions -rw-r--r--
Portability: override #new for PPCScannerCodeGenerator. Not all smalltalks send #initialize by default.

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

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

!PPStartOfLine methodsFor:'parsing'!

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