--- a/PPToken.st Mon Sep 12 19:48:53 2011 +0200
+++ b/PPToken.st Fri Jan 13 12:22:50 2012 +0100
@@ -1,4 +1,4 @@
-"{ Package: 'squeak:petitparser' }"
+"{ Package: 'stx:goodies/petitparser' }"
Object subclass:#PPToken
instanceVariableNames:'collection start stop'
@@ -9,9 +9,9 @@
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.'
+ collection <SequenceableCollection> The collection this token comes from.
+ start <Integer> The start position in the collection.
+ stop <Integer> The stop position in the collection.'
!
@@ -26,7 +26,7 @@
!
on: aSequenceableCollection start: aStartInteger stop: aStopInteger
- ^ self basicNew
+ ^ self basicNew
initializeOn: aSequenceableCollection
start: aStartInteger stop: aStopInteger
! !
@@ -53,7 +53,7 @@
stop
"Answer the stop position of this token in the underlying collection."
-
+
^ stop
!
@@ -107,7 +107,7 @@
column
"Answer the column number of this token in the underlying collection."
-
+
| position |
position := 0.
(self newline , [ :stream |
@@ -121,7 +121,7 @@
line
"Answer the line number of this token in the underlying collection."
-
+
| line |
line := 1.
(self newline , [ :stream |
@@ -136,5 +136,5 @@
!PPToken class methodsFor:'documentation'!
version_SVN
- ^ '$Id: PPToken.st,v 1.1 2011-08-18 18:56:17 cg Exp $'
+ ^ '$Id: PPToken.st,v 1.2 2012-01-13 11:22:50 cg Exp $'
! !