--- 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