PPToken.st
changeset 4 90de244a7fa2
parent 0 739fe9b7253e
child 30 6d6315787d46
--- 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 $'
 ! !