# HG changeset patch
# User Jan Vrany <jan.vrany@fit.cvut.cz>
# Date 1336168993 -7200
# Node ID 6d6315787d466563110301f84a0612fd96bb0a90
# Parent  2235aaee7da6873df8f4a2383babc5d418e41e0c
Checkin from browser

diff -r 2235aaee7da6 -r 6d6315787d46 PPToken.st
--- 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 §'
 ! !