Mercurial Mercurial > hg > stx-goodies-petitparser / annotate
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | file | latest | revisions | annotate | diff | comparison | raw | help
Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
PPStartOfLogicalLineParser.st
author Jan Vrany <jan.vrany@fit.cvut.cz>
Fri, 24 Jul 2015 15:06:54 +0100
changeset 502 1e45d3c96ec5
parent 427 a7f5e6de19d2
permissions -rw-r--r--
Updated to PetitCompiler-JanVrany.135, PetitCompiler-Tests-JanKurs.93, PetitCompiler-Extras-Tests-JanVrany.16, PetitCompiler-Benchmarks-JanKurs.12 Name: PetitCompiler-JanVrany.135 Author: JanVrany Time: 22-07-2015, 06:53:29.127 PM UUID: 890178b5-275d-46af-a2ad-1738998f07cb Ancestors: PetitCompiler-JanVrany.134 Name: PetitCompiler-Tests-JanKurs.93 Author: JanKurs Time: 20-07-2015, 11:30:10.283 PM UUID: 6473e671-ad70-42ca-b6c3-654b78edc531 Ancestors: PetitCompiler-Tests-JanKurs.92 Name: PetitCompiler-Extras-Tests-JanVrany.16 Author: JanVrany Time: 22-07-2015, 05:18:22.387 PM UUID: 8f6f9129-dbba-49b1-9402-038470742f98 Ancestors: PetitCompiler-Extras-Tests-JanKurs.15 Name: PetitCompiler-Benchmarks-JanKurs.12 Author: JanKurs Time: 06-07-2015, 02:10:06.901 PM UUID: cb24f1ac-46a4-494d-9780-64576f0f0dba Ancestors: PetitCompiler-Benchmarks-JanKurs.11, PetitCompiler-Benchmarks-JanVrany.e29bd90f388e.20150619081300
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
427
a7f5e6de19d2 Merged JK's version from Monticello
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset 
     1
 
"{ Package: 'stx:goodies/petitparser' }"
a7f5e6de19d2 Merged JK's version from Monticello
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset 
     2
 












a7f5e6de19d2
Merged JK's version from Monticello



Jan Vrany <jan.vrany@fit.cvut.cz>


parents: 

diff
changeset




     3


"{ NameSpace: Smalltalk }"













a7f5e6de19d2
Merged JK's version from Monticello



Jan Vrany <jan.vrany@fit.cvut.cz>


parents: 

diff
changeset




     4














a7f5e6de19d2
Merged JK's version from Monticello



Jan Vrany <jan.vrany@fit.cvut.cz>


parents: 

diff
changeset




     5


PPParser subclass:#PPStartOfLogicalLineParser













a7f5e6de19d2
Merged JK's version from Monticello



Jan Vrany <jan.vrany@fit.cvut.cz>


parents: 

diff
changeset




     6


	instanceVariableNames:''













a7f5e6de19d2
Merged JK's version from Monticello



Jan Vrany <jan.vrany@fit.cvut.cz>


parents: 

diff
changeset




     7


	classVariableNames:''













a7f5e6de19d2
Merged JK's version from Monticello



Jan Vrany <jan.vrany@fit.cvut.cz>


parents: 

diff
changeset




     8


	poolDictionaries:''













a7f5e6de19d2
Merged JK's version from Monticello



Jan Vrany <jan.vrany@fit.cvut.cz>


parents: 

diff
changeset




     9


	category:'PetitParser-Parsers'













a7f5e6de19d2
Merged JK's version from Monticello



Jan Vrany <jan.vrany@fit.cvut.cz>


parents: 

diff
changeset




    10


!













a7f5e6de19d2
Merged JK's version from Monticello



Jan Vrany <jan.vrany@fit.cvut.cz>


parents: 

diff
changeset




    11














a7f5e6de19d2
Merged JK's version from Monticello



Jan Vrany <jan.vrany@fit.cvut.cz>


parents: 

diff
changeset




    12


!PPStartOfLogicalLineParser methodsFor:'as yet unclassified'!













a7f5e6de19d2
Merged JK's version from Monticello



Jan Vrany <jan.vrany@fit.cvut.cz>


parents: 

diff
changeset




    13














a7f5e6de19d2
Merged JK's version from Monticello



Jan Vrany <jan.vrany@fit.cvut.cz>


parents: 

diff
changeset




    14


isBlank: character













a7f5e6de19d2
Merged JK's version from Monticello



Jan Vrany <jan.vrany@fit.cvut.cz>


parents: 

diff
changeset




    15


	^ (character == Character space or: [character == Character tab])













a7f5e6de19d2
Merged JK's version from Monticello



Jan Vrany <jan.vrany@fit.cvut.cz>


parents: 

diff
changeset




    16


!













a7f5e6de19d2
Merged JK's version from Monticello



Jan Vrany <jan.vrany@fit.cvut.cz>


parents: 

diff
changeset




    17














a7f5e6de19d2
Merged JK's version from Monticello



Jan Vrany <jan.vrany@fit.cvut.cz>


parents: 

diff
changeset




    18


parseOn: aPPContext













a7f5e6de19d2
Merged JK's version from Monticello



Jan Vrany <jan.vrany@fit.cvut.cz>


parents: 

diff
changeset




    19


	aPPContext peek isAlphaNumeric ifFalse: [ 













a7f5e6de19d2
Merged JK's version from Monticello



Jan Vrany <jan.vrany@fit.cvut.cz>


parents: 

diff
changeset




    20


		^ PPFailure message: 'Start of logical line expected' context: aPPContext 













a7f5e6de19d2
Merged JK's version from Monticello



Jan Vrany <jan.vrany@fit.cvut.cz>


parents: 

diff
changeset




    21


	].













a7f5e6de19d2
Merged JK's version from Monticello



Jan Vrany <jan.vrany@fit.cvut.cz>


parents: 

diff
changeset




    22














a7f5e6de19d2
Merged JK's version from Monticello



Jan Vrany <jan.vrany@fit.cvut.cz>


parents: 

diff
changeset




    23


	aPPContext isStartOfLine ifTrue: [ ^ #startOfLogicalLine ].













a7f5e6de19d2
Merged JK's version from Monticello



Jan Vrany <jan.vrany@fit.cvut.cz>


parents: 

diff
changeset




    24


	













a7f5e6de19d2
Merged JK's version from Monticello



Jan Vrany <jan.vrany@fit.cvut.cz>


parents: 

diff
changeset




    25


	













a7f5e6de19d2
Merged JK's version from Monticello



Jan Vrany <jan.vrany@fit.cvut.cz>


parents: 

diff
changeset




    26


	[ aPPContext position ~= 0 ] whileTrue: [  













a7f5e6de19d2
Merged JK's version from Monticello



Jan Vrany <jan.vrany@fit.cvut.cz>


parents: 

diff
changeset




    27


		aPPContext back.













a7f5e6de19d2
Merged JK's version from Monticello



Jan Vrany <jan.vrany@fit.cvut.cz>


parents: 

diff
changeset




    28


		(self isBlank: aPPContext peek) ifFalse: [ 













a7f5e6de19d2
Merged JK's version from Monticello



Jan Vrany <jan.vrany@fit.cvut.cz>


parents: 

diff
changeset




    29


			^ PPFailure message: 'Start of logical line expected' context: aPPContext













a7f5e6de19d2
Merged JK's version from Monticello



Jan Vrany <jan.vrany@fit.cvut.cz>


parents: 

diff
changeset




    30


		].













a7f5e6de19d2
Merged JK's version from Monticello



Jan Vrany <jan.vrany@fit.cvut.cz>


parents: 

diff
changeset




    31


		aPPContext isStartOfLine ifTrue: [ ^ #startOfLogicalLine ].













a7f5e6de19d2
Merged JK's version from Monticello



Jan Vrany <jan.vrany@fit.cvut.cz>


parents: 

diff
changeset




    32


	]













a7f5e6de19d2
Merged JK's version from Monticello



Jan Vrany <jan.vrany@fit.cvut.cz>


parents: 

diff
changeset




    33


! !













a7f5e6de19d2
Merged JK's version from Monticello



Jan Vrany <jan.vrany@fit.cvut.cz>


parents: 

diff
changeset




    34
















hg/stx-goodies-petitparser