SmaCC__SmaCCGrammarCompiler.st
changeset 5 79cd4e3c7011
parent 1 b8cca2663544
child 15 8b8cd1701c33
--- a/SmaCC__SmaCCGrammarCompiler.st	Tue Sep 23 09:33:07 2008 +0000
+++ b/SmaCC__SmaCCGrammarCompiler.st	Tue Nov 18 19:09:05 2008 +0000
@@ -306,26 +306,28 @@
 !
 
 compileSymbolComment
-	| stream |
-	stream := WriteStream on: (String new: 1000).
-	stream
-		nextPutAll: 'symbolComment';
-		cr;
-		cr;
-		tab;
-		nextPut: $";
-		cr.
-	(1 to: scannerCompiler symbols size) with: scannerCompiler symbols
-		do: 
-			[:index :each | 
-			stream
-				nextPutAll: index printString;
-				nextPutAll: '. ';
-				nextPutAll: (each printString copyReplaceAll: '"' with: '""');
-				cr].
-	stream nextPut: $".
-	self parserClass metaclass compile: stream contents
-		classified: #'generated-comments'
+        | stream |
+        stream := WriteStream on: (String new: 1000).
+        stream
+                nextPutAll: 'symbolComment';
+                cr;
+                cr;
+                tab;
+                nextPut: $";
+                cr.
+        (1 to: scannerCompiler symbols size) with: scannerCompiler symbols
+                do: 
+                        [:index :each | 
+                        stream
+                                nextPutAll: index printString;
+                                nextPutAll: '. ';
+                                nextPutAll: (each printString copyReplaceString: '"' withString: '""');
+                                cr].
+        stream nextPut: $".
+        self parserClass metaclass compile: stream contents
+                classified: #'generated-comments'
+
+    "Modified: / 18-11-2008 / 20:05:44 / Jan Vrany <vranyj1@fel.cvut.cz>"
 !
 
 compileTransitionTable