equal
deleted
inserted
replaced
1 "{ Package: 'stx:goodies/petitparser/parsers/smalltalk' }"! |
1 "{ Package: 'stx:goodies/petitparser/parsers/smalltalk' }"! |
2 |
2 |
3 !PPParser methodsFor:'*petitsmalltalk-operations'! |
3 !PPParser methodsFor:'*petitsmalltalk-operations'! |
4 |
4 |
5 smalltalkToken |
5 smalltalkToken |
6 | ws | |
6 | ws | |
7 ws := PPSmalltalkWhitespaceParser new. |
7 ws := PPSmalltalkWhitespaceParser new. |
8 ^ ((ws, ((PPTokenParser on: self) tokenClass: PPSmalltalkToken; yourself), ws) ==> #second) |
8 ^ ((ws, ((PPTokenParser on: self) tokenClass: PPSmalltalkToken; yourself), ws) ==> #second) |
9 name: 'trimmingToken'; |
9 propertyAt: 'trimmingToken' put: true; |
10 yourself |
10 yourself |
|
11 |
|
12 "Modified: / 24-11-2014 / 21:36:46 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
11 ! ! |
13 ! ! |
12 |
14 |
13 !RBProgramNode methodsFor:'*petitsmalltalk-accessing'! |
15 !RBProgramNode methodsFor:'*petitsmalltalk-accessing'! |
14 |
16 |
15 addComments: aCollectionOfIntervals |
17 addComments: aCollectionOfIntervals |