equal
deleted
inserted
replaced
|
1 "{ Encoding: utf8 }" |
|
2 |
1 "{ Package: 'stx:goodies/petitparser' }" |
3 "{ Package: 'stx:goodies/petitparser' }" |
|
4 |
|
5 "{ NameSpace: Smalltalk }" |
2 |
6 |
3 PPListParser subclass:#PPSequenceParser |
7 PPListParser subclass:#PPSequenceParser |
4 instanceVariableNames:'' |
8 instanceVariableNames:'' |
5 classVariableNames:'' |
9 classVariableNames:'' |
6 poolDictionaries:'' |
10 poolDictionaries:'' |
65 ! ! |
69 ! ! |
66 |
70 |
67 !PPSequenceParser methodsFor:'operators-mapping'! |
71 !PPSequenceParser methodsFor:'operators-mapping'! |
68 |
72 |
69 map: aBlock |
73 map: aBlock |
70 ^ aBlock numArgs = self children size |
74 ^ aBlock argumentCount == self children size |
71 ifTrue: [ self ==> [ :nodes | aBlock valueWithArguments: nodes ] ] |
75 ifTrue: [ self ==> [ :nodes | aBlock valueWithArguments: nodes ] ] |
72 ifFalse: [ self error: aBlock numArgs asString , ' arguments expected.' ] |
76 ifFalse: [ self error: aBlock argumentCount asString , ' arguments expected.' ] |
73 ! ! |
77 ! ! |
74 |
78 |
75 !PPSequenceParser methodsFor:'parsing'! |
79 !PPSequenceParser methodsFor:'parsing'! |
76 |
80 |
77 parseOn: aStream |
81 parseOn: aStream |
91 ! ! |
95 ! ! |
92 |
96 |
93 !PPSequenceParser class methodsFor:'documentation'! |
97 !PPSequenceParser class methodsFor:'documentation'! |
94 |
98 |
95 version |
99 version |
96 ^ '$Header: /cvs/stx/stx/goodies/petitparser/PPSequenceParser.st,v 1.4 2014-03-04 14:33:25 cg Exp $' |
100 ^ '$Header$' |
97 ! |
101 ! |
98 |
102 |
99 version_CVS |
103 version_CVS |
100 ^ '$Header: /cvs/stx/stx/goodies/petitparser/PPSequenceParser.st,v 1.4 2014-03-04 14:33:25 cg Exp $' |
104 ^ '$Header$' |
101 ! |
105 ! |
102 |
106 |
103 version_SVN |
107 version_SVN |
104 ^ '$Id: PPSequenceParser.st,v 1.4 2014-03-04 14:33:25 cg Exp $' |
108 ^ '$Id$' |
105 ! ! |
109 ! ! |
106 |
110 |