equal
deleted
inserted
replaced
5 classVariableNames:'' |
5 classVariableNames:'' |
6 poolDictionaries:'' |
6 poolDictionaries:'' |
7 category:'PetitParser-Core' |
7 category:'PetitParser-Core' |
8 ! |
8 ! |
9 |
9 |
10 PPStream comment:'A positional stream implementation used for parsing. It overrides some methods for optimization reasons.' |
|
11 ! |
|
12 |
|
13 |
10 |
14 !PPStream methodsFor:'accessing'! |
11 !PPStream methodsFor:'accessing'! |
15 |
12 |
16 next: anInteger |
13 next: anInteger |
17 "Answer up to anInteger elements of my collection. Overridden for efficiency." |
14 "Answer up to anInteger elements of my collection. Overridden for efficiency." |
18 |
15 |
19 | answer endPosition | |
16 | answer endPosition | |
20 endPosition := position + anInteger min: readLimit. |
17 endPosition := position + anInteger min: readLimit. |
21 answer := collection copyFrom: position + 1 to: endPosition. |
18 answer := collection copyFrom: position + 1 to: endPosition. |
58 nextPutAll: (collection copyFrom: position + 1 to: readLimit) |
55 nextPutAll: (collection copyFrom: position + 1 to: readLimit) |
59 ! ! |
56 ! ! |
60 |
57 |
61 !PPStream class methodsFor:'documentation'! |
58 !PPStream class methodsFor:'documentation'! |
62 |
59 |
|
60 version |
|
61 ^ '$Header: /cvs/stx/stx/goodies/petitparser/PPStream.st,v 1.3 2012-05-04 22:06:11 vrany Exp $' |
|
62 ! |
|
63 |
|
64 version_CVS |
|
65 ^ '$Header: /cvs/stx/stx/goodies/petitparser/PPStream.st,v 1.3 2012-05-04 22:06:11 vrany Exp $' |
|
66 ! |
|
67 |
63 version_SVN |
68 version_SVN |
64 ^ '$Id: PPStream.st,v 1.2 2012-01-13 11:22:50 cg Exp $' |
69 ^ '§Id: PPStream.st 2 2010-12-17 18:44:23Z vranyj1 §' |
65 ! ! |
70 ! ! |