author | Jan Vrany <jan.vrany@fit.cvut.cz> |
Mon, 24 Nov 2014 11:38:11 +0000 | |
changeset 423 | f3b99c7c1b20 |
parent 421 | 7e08b31e0dae |
child 427 | a7f5e6de19d2 |
permissions | -rw-r--r-- |
"{ Package: 'stx:goodies/petitparser' }" 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 ! !