--- /dev/null Thu Jan 01 00:00:00 1970 +0000
+++ b/devtools/PPCompositeParserGenerator.st Thu Jan 10 14:22:22 2013 +0100
@@ -0,0 +1,62 @@
+"{ Package: 'stx:goodies/petitparser/devtools' }"
+
+Object subclass:#PPCompositeParserGenerator
+ instanceVariableNames:'productions klass changeset'
+ classVariableNames:''
+ poolDictionaries:''
+ category:'PetitParser-Utils'
+!
+
+
+!PPCompositeParserGenerator methodsFor:'accessing'!
+
+changeset
+ ^ changeset
+!
+
+klass
+ ^ klass
+!
+
+klass:something
+ klass := something.
+!
+
+productions
+ ^ productions
+!
+
+productions:something
+ productions := something.
+! !
+
+!PPCompositeParserGenerator methodsFor:'generating'!
+
+generate
+ | instvars classchange |
+
+ changeset := ChangeSet fromStream: Dart::Parser definition readStream.
+ classchange := changeset anElement.
+ classchange setupFromSource.
+
+ instvars := productions keys.
+ instvars add: classchange instanceVariableNames.
+ classchange instanceVariableNames: (instvars asSortedCollection asStringWith:' ').
+
+
+ productions do:[:p|
+
+ ].
+
+ "Created: / 10-01-2013 / 12:57:28 / 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 $'
+!
+
+version_CVS
+ ^ '$Header: /cvs/stx/stx/goodies/petitparser/devtools/PPCompositeParserGenerator.st,v 1.1 2013-01-10 13:22:22 vrany Exp $'
+! !