first rudimentary version of a parser

src/runtime/c/pgf/printer.h

@@ -33,7 +33,7 @@ public:
     PgfPrinter(PgfPrintContext *context, int priority,
                PgfMarshaller *marshaller);
 
-    PgfPrinter() { free(res); }
+    ~PgfPrinter() { free(res); }
 
     // Push a new variable in the printing context. If the name
     // collides with an existing variable, the variable is renamed
@@ -52,6 +52,12 @@ public:
 
     PgfText *get_text();
 
+    void dump() {
+        PgfText *text = get_text();
+        fprintf(stderr, "%.*s", (int) text->size, text->text);
+        free(text);
+    };
+
     void hypo(PgfTypeHypo *hypo, int prio);
 
     void parg(ref<PgfDTyp> ty, ref<PgfPArg> parg);