Initial commit of PetitJava
Name: PetitJava-JanKurs.160
Author: JanKurs
Time: 19-12-2014, 01:00:18.354 PM
UUID: 1cb1b46d-8c68-4751-9720-f0dd742f3e16
"{ 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
! !