PPStartOfLine.st
author Jan Vrany <jan.vrany@fit.cvut.cz>
Thu, 18 Jun 2015 06:40:15 +0100
changeset 495 555f59e60886
parent 377 6112a403a52d
permissions -rw-r--r--
Send #sourceNode instead of #ast as there's no #ast in Pharo ...I was mistaken.

"{ 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
! !