# HG changeset patch
# User Jan Vrany <jan.vrany@fit.cvut.cz>
# Date 1357898269 -3600
# Node ID fc28ffa9eb82398bac54662a019109ea171176d2
# Parent  353f9f08be3fc9b614c7189e04aa0d1e60501127
Added parser printer

diff -r 353f9f08be3f -r fc28ffa9eb82 devtools/PPCompositeParserGenerator.st
--- a/devtools/PPCompositeParserGenerator.st	Fri Jan 11 10:57:40 2013 +0100
+++ b/devtools/PPCompositeParserGenerator.st	Fri Jan 11 10:57:49 2013 +0100
@@ -45,18 +45,27 @@
 
 
     productions do:[:p|
+        | method |
 
+        method := MethodDefinitionChange new
+            class: klass;
+            selector: p name asSymbol;
+            source: (PPPrinter print: p);
+            category: 'grammar';
+            yourself.
+        changeset add: method.            
     ].
 
     "Created: / 10-01-2013 / 12:57:28 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+    "Modified: / 11-01-2013 / 09:52:46 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
 !PPCompositeParserGenerator class methodsFor:'documentation'!
 
 version
-    ^ '$Header: /cvs/stx/stx/goodies/petitparser/devtools/PPCompositeParserGenerator.st,v 1.1 2013-01-10 13:22:22 vrany Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/petitparser/devtools/PPCompositeParserGenerator.st,v 1.2 2013-01-11 09:57:49 vrany Exp $'
 !
 
 version_CVS
-    ^ '$Header: /cvs/stx/stx/goodies/petitparser/devtools/PPCompositeParserGenerator.st,v 1.1 2013-01-10 13:22:22 vrany Exp $'
+    ^ '$Header: /cvs/stx/stx/goodies/petitparser/devtools/PPCompositeParserGenerator.st,v 1.2 2013-01-11 09:57:49 vrany Exp $'
 ! !