PPStartOfLineParser.st
author Jan Vrany <jan.vrany@fit.cvut.cz>
Fri, 31 Jul 2015 08:16:54 +0100
changeset 508 c74a0dbfa161
parent 427 a7f5e6de19d2
permissions -rw-r--r--
Temporarily disabled #acceptsEpsilon test in PPCTokenizingCodeGenerator>>visitChoiceNode: JK should have a look and come up with proper solution.

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