--- a/SmaCC__ParserGeneratorTest.st	Thu Apr 10 09:11:12 2008 +0000
+++ b/SmaCC__ParserGeneratorTest.st	Sun Jun 08 17:29:10 2008 +0000
@@ -513,259 +513,30 @@
 								collect: [:each | Character value: each])))
 ! !
 
-!ParserGeneratorTest::TestParser class methodsFor:'generated-accessing'!
-
-scannerClass
-	^SmaCC::ParserGeneratorTest::TestScanner
-! !
-
-!ParserGeneratorTest::TestParser class methodsFor:'generated-starting states'!
-
-startingStateForExpression
-	^1
-!
-
-startingStateForStart
-	^1
-!
+!ParserGeneratorTest::TestParser class methodsFor:'documentation'!
 
-startingStateForTest
-	^1
-!
-
-startingStateForbegin
-	^1
-!
-
-startingStateForexpr
-	^1
-!
-
-startingStateFormultiply
-	^1
-!
-
-startingStateForplus
-	^2
+version
+    ^'$Id$'
 ! !
 
-!ParserGeneratorTest::TestParser methodsFor:'generated-reduction actions'!
 
-reduceActionForExpression1:nodes 
-    ^ (nodes at:1) + (nodes at:3)
-!
-
-reduceActionForExpression2:nodes 
-    ^ (nodes at:1) - (nodes at:3)
-!
-
-reduceActionForExpression3:nodes 
-    ^ (nodes at:1) * (nodes at:3)
-!
-
-reduceActionForExpression4:nodes 
-    ^ (nodes at:1) / (nodes at:3)
-!
-
-reduceActionForExpression5:nodes 
-    ^ (nodes at:1) raisedTo:(nodes at:3)
-!
-
-reduceActionForExpression6:nodes 
-    ^ nodes at:2
-!
-
-reduceActionForExpression7:nodes 
-    ^ (nodes at:1) value asNumber
-!
-
-reduceActionForGroup______IDENTIFIER_1:nodes 
-    ^ nodes at:1
-!
 
-reduceActionForGroup________1:nodes 
-    ^ nodes at:1
-!
 
-reduceActionForGroup______________1:nodes 
-    ^ nodes at:1
-!
-
-reduceActionForGroup______________2:nodes 
-    ^ nodes at:1
-!
-
-reduceActionForOptional__Group________1:nodes 
-    ^ nil
-!
-
-reduceActionForOptional__Group________2:nodes 
-    ^ nodes at:1
-!
-
-reduceActionForOptional_____1:nodes 
-    ^ nil
-!
-
-reduceActionForOptional_____2:nodes 
-    ^ nodes at:1
-!
-
-reduceActionForRecursive2:nodes 
-    ^ (nodes at:1)
-        add:(nodes at:3) value;
-        yourself
-!
-
-reduceActionForRepeat_Multiple___IDENTIFIER_1:nodes 
-    ^ OrderedCollection with:(nodes at:1)
-!
 
-reduceActionForRepeat_Multiple___IDENTIFIER_2:nodes 
-    ^ (nodes at:1)
-        add:(nodes at:2);
-        yourself
-!
-
-reduceActionForRepeat__Group______IDENTIFIER_1:nodes 
-    ^ OrderedCollection new
-!
-
-reduceActionForRepeat__Group______IDENTIFIER_2:nodes 
-    ^ (nodes at:1)
-        add:(nodes at:2);
-        yourself
-!
-
-reduceActionForRepeat___IDENTIFIER_1:nodes 
-    ^ OrderedCollection new
-!
-
-reduceActionForRepeat___IDENTIFIER_2:nodes 
-    ^ (nodes at:1)
-        add:(nodes at:2);
-        yourself
-!
-
-reduceActionForStart1:nodes 
-    ^ true
-!
-
-reduceActionForStart2:nodes 
-    ^ false
-!
-
-reduceActionForTest11:nodes 
-    ^ (nodes at:1) value
-!
+!ParserGeneratorTest::TestScanner class methodsFor:'documentation'!
 
-reduceActionForbegin1:nodes 
-    ^ true
-!
-
-reduceActionForbegin2:nodes 
-    ^ true
-!
-
-reduceActionForbegin3:nodes 
-    ^ false
-!
-
-reduceActionForexpr1:nodes 
-    ^ true
-!
-
-reduceActionForexpr2:nodes 
-    ^ true
-!
-
-reduceActionForexpr3:nodes 
-    ^ true
-!
-
-reduceActionForexpr4:nodes 
-    ^ true
-!
-
-reduceActionForexpr5:nodes 
-    ^ true
-!
-
-reduceActionFormultiply1:nodes 
-    ^ true
-!
-
-reduceActionForplus1:nodes 
-    ^ false
-!
-
-reduceActionForplus2:nodes 
-    ^ false
+version
+    ^'$Id$'
 ! !
 
-!ParserGeneratorTest::TestParser methodsFor:'generated-tables'!
-
-reduceTable
-	^#(
-#(2 1 #reduceActionForbegin1:)
-#(3 1 #reduceFor:)
-)
-!
-
-transitionTable
-	^#(
-#[1 0 9 0 1 0 13 0 2]
-#[0 0 6 0 4]
-#[0 0 0 0 4]
-)
-! !
-
-!ParserGeneratorTest::TestScanner class methodsFor:'generated-initialization'!
-
-initializeKeywordMap
-    keywordMap := Dictionary new.
-    #( #(1 'a' 1) ) do:[:each | 
-        (keywordMap at:each first ifAbsentPut:[ Dictionary new ]) at:(each at:2)
-            put:each last
-    ].
-    ^ keywordMap
-! !
-
-!ParserGeneratorTest::TestScanner methodsFor:'generated-scanner'!
 
-keywordFor: aString 
-	^aString asUppercase
-!
 
-scanForToken
-    self step.
-    (currentCharacter == $a) ifTrue:[
-        ^ self recordAndReportMatch:#( 1 ).
-    ].
-    ^ self reportLastMatch
-! !
-
-!ParserGeneratorTest::TestScanner methodsFor:'generated-tokens'!
-
-aId
-	^1
-!
-
-allId
-	^2
-!
-
-emptySymbolTokenId
-	^4
-!
-
-errorTokenId
-	^5
-! !
 
 !ParserGeneratorTest::TestScanner methodsFor:'others'!
 
 all self recordAndReportMatch: (Array with: self allId)
+
+    "Modified: / 08-06-2008 / 10:04:37 / Jan Vrany <vranyj1@fel.cvut.cz>"
 ! !
 
 !ParserGeneratorTest class methodsFor:'documentation'!