--- a/PPToken.st Sat May 05 00:03:02 2012 +0200
+++ b/PPToken.st Sat May 05 00:03:13 2012 +0200
@@ -7,13 +7,6 @@
category:'PetitParser-Core'
!
-PPToken comment:'PPToken represents a parsed part of the input stream. Contrary to a simple String it remembers where it came from, the original collection and its start and stop position.
-Instance Variables:
- collection <SequenceableCollection> The collection this token comes from.
- start <Integer> The start position in the collection.
- stop <Integer> The stop position in the collection.'
-!
-
!PPToken class methodsFor:'instance creation'!
@@ -26,7 +19,7 @@
!
on: aSequenceableCollection start: aStartInteger stop: aStopInteger
- ^ self basicNew
+ ^ self basicNew
initializeOn: aSequenceableCollection
start: aStartInteger stop: aStopInteger
! !
@@ -53,7 +46,7 @@
stop
"Answer the stop position of this token in the underlying collection."
-
+
^ stop
!
@@ -107,7 +100,7 @@
column
"Answer the column number of this token in the underlying collection."
-
+
| position |
position := 0.
(self newline , [ :stream |
@@ -121,7 +114,7 @@
line
"Answer the line number of this token in the underlying collection."
-
+
| line |
line := 1.
(self newline , [ :stream |
@@ -135,6 +128,14 @@
!PPToken class methodsFor:'documentation'!
+version
+ ^ '$Header: /cvs/stx/stx/goodies/petitparser/PPToken.st,v 1.3 2012-05-04 22:03:13 vrany Exp $'
+!
+
+version_CVS
+ ^ '$Header: /cvs/stx/stx/goodies/petitparser/PPToken.st,v 1.3 2012-05-04 22:03:13 vrany Exp $'
+!
+
version_SVN
- ^ '$Id: PPToken.st,v 1.2 2012-01-13 11:22:50 cg Exp $'
+ ^ '§Id: PPToken.st 2 2010-12-17 18:44:23Z vranyj1 §'
! !