# HG changeset patch
# User Jan Vrany <jan.vrany@fit.cvut.cz>
# Date 1357824142 -3600
# Node ID 998b9fb92a062c45fa0ecdc52331726a303e1b7c
# Parent  57b4439a799869fc9d0a6dc8d015b3ebdfd0a03f
initial checkin

diff -r 57b4439a7998 -r 998b9fb92a06 devtools/PPCompositeParserGenerator.st
--- /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 $'
+! !