equal
deleted
inserted
replaced
1 "{ Package: 'stx:goodies/petitparser' }" |
1 "{ Package: 'stx:goodies/petitparser' }" |
|
2 |
|
3 "{ NameSpace: Smalltalk }" |
2 |
4 |
3 Object subclass:#PPParser |
5 Object subclass:#PPParser |
4 instanceVariableNames:'properties' |
6 instanceVariableNames:'properties' |
5 classVariableNames:'' |
7 classVariableNames:'' |
6 poolDictionaries:'' |
8 poolDictionaries:'' |
16 |
18 |
17 new |
19 new |
18 ^ self basicNew initialize |
20 ^ self basicNew initialize |
19 ! ! |
21 ! ! |
20 |
22 |
21 |
|
22 |
|
23 |
|
24 |
|
25 |
|
26 |
|
27 |
|
28 |
|
29 |
|
30 |
|
31 |
|
32 |
|
33 !PPParser methodsFor:'accessing'! |
23 !PPParser methodsFor:'accessing'! |
34 |
24 |
35 children |
25 children |
36 "Answer a set of child parsers that could follow the receiver." |
26 "Answer a set of child parsers that could follow the receiver." |
37 |
27 |
105 "Answer the receiving parser." |
95 "Answer the receiving parser." |
106 |
96 |
107 ^ self |
97 ^ self |
108 ! ! |
98 ! ! |
109 |
99 |
110 !PPParser methodsFor:'copying'! |
100 !PPParser methodsFor:'copying-private'! |
111 |
101 |
112 postCopy |
102 postCopy |
113 super postCopy. |
103 super postCopy. |
114 properties := properties copy |
104 properties := properties copy |
115 ! ! |
105 ! ! |
552 |
542 |
553 isUnresolved |
543 isUnresolved |
554 ^ false |
544 ^ false |
555 ! ! |
545 ! ! |
556 |
546 |
557 |
|
558 !PPParser class methodsFor:'documentation'! |
547 !PPParser class methodsFor:'documentation'! |
559 |
548 |
560 version |
549 version |
561 ^ '$Header: /cvs/stx/stx/goodies/petitparser/PPParser.st,v 1.7 2014-03-04 23:58:41 cg Exp $' |
550 ^ '$Header$' |
562 ! |
551 ! |
563 |
552 |
564 version_CVS |
553 version_CVS |
565 ^ '$Header: /cvs/stx/stx/goodies/petitparser/PPParser.st,v 1.7 2014-03-04 23:58:41 cg Exp $' |
554 ^ '$Header$' |
566 ! |
555 ! |
567 |
556 |
568 version_SVN |
557 version_SVN |
569 ^ '$Id: PPParser.st,v 1.7 2014-03-04 23:58:41 cg Exp $' |
558 ^ '$Id$' |
570 ! ! |
559 ! ! |
571 |
560 |