author | Jan Vrany <jan.vrany@fit.cvut.cz> |
Mon, 13 Apr 2015 14:19:55 +0100 | |
changeset 426 | 2a65c972b937 |
parent 377 | 6112a403a52d |
child 502 | 1e45d3c96ec5 |
permissions | -rw-r--r-- |
4 | 1 |
"{ Package: 'stx:goodies/petitparser' }" |
0 | 2 |
|
3 |
PPDelegateParser subclass:#PPFlattenParser |
|
4 |
instanceVariableNames:'' |
|
5 |
classVariableNames:'' |
|
6 |
poolDictionaries:'' |
|
7 |
category:'PetitParser-Parsers' |
|
8 |
! |
|
9 |
||
10 |
||
11 |
!PPFlattenParser methodsFor:'hooks'! |
|
12 |
||
13 |
create: aCollection start: aStartInteger stop: aStopInteger |
|
14 |
^ aCollection copyFrom: aStartInteger to: aStopInteger |
|
15 |
! ! |
|
16 |
||
17 |
!PPFlattenParser methodsFor:'parsing'! |
|
18 |
||
377
6112a403a52d
Updated to latest version from Moose repository.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
165
diff
changeset
|
19 |
parseOn: aPPContext |
165 | 20 |
| start element | |
377
6112a403a52d
Updated to latest version from Moose repository.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
165
diff
changeset
|
21 |
start := aPPContext position. |
6112a403a52d
Updated to latest version from Moose repository.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
165
diff
changeset
|
22 |
element := parser parseOn: aPPContext. |
165 | 23 |
element isPetitFailure ifTrue: [ ^ element ]. |
377
6112a403a52d
Updated to latest version from Moose repository.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
165
diff
changeset
|
24 |
^ self on: aPPContext stream collection start: start + 1 stop: aPPContext position value: element |
165 | 25 |
! ! |
26 |
||
27 |
!PPFlattenParser methodsFor:'private'! |
|
28 |
||
29 |
on: aCollection start: aStartInteger stop: aStopInteger value: anObject |
|
30 |
^ aCollection copyFrom: aStartInteger to: aStopInteger |
|
0 | 31 |
! ! |
32 |
||
33 |
!PPFlattenParser class methodsFor:'documentation'! |
|
34 |
||
15 | 35 |
version |
165 | 36 |
^ '$Header: /cvs/stx/stx/goodies/petitparser/PPFlattenParser.st,v 1.4 2014-03-04 14:32:30 cg Exp $' |
15 | 37 |
! |
38 |
||
39 |
version_CVS |
|
165 | 40 |
^ '$Header: /cvs/stx/stx/goodies/petitparser/PPFlattenParser.st,v 1.4 2014-03-04 14:32:30 cg Exp $' |
15 | 41 |
! |
42 |
||
0 | 43 |
version_SVN |
165 | 44 |
^ '$Id: PPFlattenParser.st,v 1.4 2014-03-04 14:32:30 cg Exp $' |
0 | 45 |
! ! |
165 | 46 |