equal
deleted
inserted
replaced
1 "{ Package: 'squeak:petitparser' }" |
1 "{ Package: 'stx:goodies/petitparser' }" |
2 |
2 |
3 PPFlattenParser subclass:#PPTokenParser |
3 PPFlattenParser subclass:#PPTokenParser |
4 instanceVariableNames:'tokenClass' |
4 instanceVariableNames:'tokenClass' |
5 classVariableNames:'' |
5 classVariableNames:'' |
6 poolDictionaries:'' |
6 poolDictionaries:'' |
7 category:'PetitParser-Parsers' |
7 category:'PetitParser-Parsers' |
8 ! |
8 ! |
9 |
9 |
10 PPTokenParser comment:'A parser that answers a token of the range my delegate parses. |
10 PPTokenParser comment:'A parser that answers a token of the range my delegate parses. |
11 Instance Variables: |
11 Instance Variables: |
12 tokenClass <PPToken class> The token sub-class to be used.' |
12 tokenClass <PPToken class> The token sub-class to be used.' |
13 ! |
13 ! |
14 |
14 |
15 |
15 |
16 !PPTokenParser methodsFor:'accessing'! |
16 !PPTokenParser methodsFor:'accessing'! |
17 |
17 |
25 |
25 |
26 !PPTokenParser methodsFor:'initialization'! |
26 !PPTokenParser methodsFor:'initialization'! |
27 |
27 |
28 initialize |
28 initialize |
29 tokenClass := self defaultTokenClass |
29 tokenClass := self defaultTokenClass |
30 |
30 |
31 ! ! |
31 ! ! |
32 |
32 |
33 !PPTokenParser methodsFor:'private'! |
33 !PPTokenParser methodsFor:'private'! |
34 |
34 |
35 create: aCollection start: aStartInteger stop: aStopInteger |
35 create: aCollection start: aStartInteger stop: aStopInteger |
41 ! ! |
41 ! ! |
42 |
42 |
43 !PPTokenParser class methodsFor:'documentation'! |
43 !PPTokenParser class methodsFor:'documentation'! |
44 |
44 |
45 version_SVN |
45 version_SVN |
46 ^ '$Id: PPTokenParser.st,v 1.1 2011-08-18 18:56:17 cg Exp $' |
46 ^ '$Id: PPTokenParser.st,v 1.2 2012-01-13 11:22:50 cg Exp $' |
47 ! ! |
47 ! ! |