15 ! ! |
15 ! ! |
16 |
16 |
17 !PPFlattenParser methodsFor:'parsing'! |
17 !PPFlattenParser methodsFor:'parsing'! |
18 |
18 |
19 parseOn: aStream |
19 parseOn: aStream |
20 | start element stop | |
20 | start element | |
21 start := aStream position. |
21 start := aStream position. |
22 element := parser parseOn: aStream. |
22 element := parser parseOn: aStream. |
23 element isPetitFailure ifTrue: [ |
23 element isPetitFailure ifTrue: [ ^ element ]. |
24 aStream position: start. |
24 ^ self on: aStream collection start: start + 1 stop: aStream position value: element |
25 ^ element ]. |
25 ! ! |
26 stop := aStream position. |
26 |
27 ^ self create: aStream collection start: start + 1 stop: stop |
27 !PPFlattenParser methodsFor:'private'! |
|
28 |
|
29 on: aCollection start: aStartInteger stop: aStopInteger value: anObject |
|
30 ^ aCollection copyFrom: aStartInteger to: aStopInteger |
28 ! ! |
31 ! ! |
29 |
32 |
30 !PPFlattenParser class methodsFor:'documentation'! |
33 !PPFlattenParser class methodsFor:'documentation'! |
31 |
34 |
32 version |
35 version |
33 ^ '$Header: /cvs/stx/stx/goodies/petitparser/PPFlattenParser.st,v 1.3 2012-05-04 21:59:52 vrany Exp $' |
36 ^ '$Header: /cvs/stx/stx/goodies/petitparser/PPFlattenParser.st,v 1.4 2014-03-04 14:32:30 cg Exp $' |
34 ! |
37 ! |
35 |
38 |
36 version_CVS |
39 version_CVS |
37 ^ '$Header: /cvs/stx/stx/goodies/petitparser/PPFlattenParser.st,v 1.3 2012-05-04 21:59:52 vrany Exp $' |
40 ^ '$Header: /cvs/stx/stx/goodies/petitparser/PPFlattenParser.st,v 1.4 2014-03-04 14:32:30 cg Exp $' |
38 ! |
41 ! |
39 |
42 |
40 version_SVN |
43 version_SVN |
41 ^ '§Id: PPFlattenParser.st 2 2010-12-17 18:44:23Z vranyj1 §' |
44 ^ '$Id: PPFlattenParser.st,v 1.4 2014-03-04 14:32:30 cg Exp $' |
42 ! ! |
45 ! ! |
|
46 |