[svn:parrot] r17959 - trunk/compilers/pirc/src

[kjs]

Author: kjs
Date: Tue Apr  3 09:51:34 2007
New Revision: 17959

Modified:
   trunk/compilers/pirc/src/jsonout.c

Log:
compilers/pirc:
* add more json output vtable methods.

Modified: trunk/compilers/pirc/src/jsonout.c
==============================================================================
--- trunk/compilers/pirc/src/jsonout.c  (original)
+++ trunk/compilers/pirc/src/jsonout.c  Tue Apr  3 09:51:34 2007
@@ -14,31 +14,66 @@
 
 #define OUT  stderr
 
+/* todo: re-use this code (see pastout.c) , and make it threadsafe: */
+static int indent = 0;
+
+#define indent()    indent += 4
+#define dedent()    indent -= 4
+
+
 static void
 json_init(struct parser_state *p) {
     fprintf(OUT, "{\n");
+    indent();
 }
 
 
 static void
 json_end(struct parser_state *p) {
-    fprintf(OUT, "}\n");
+    dedent();
+    fprintf(OUT, "%*s}\n", indent, (indent == 0) ? "" : " ");
+
+}
+
+
+static void
+json_sub_start(struct parser_state *p, char *source, int pos) {
+    fprintf(OUT, "%*s'sub' : {\n", indent, " ");
+    indent();
+    fprintf(OUT, "%*s'source' : '%s', 'pos' : %d,\n", indent, " ", source, 
pos);
 }
 
+static void
+json_name(struct parser_state *p, char *name) {
+    fprintf(OUT, "%*s'name' : '%s'\n", indent, " ", name);
+}
 
 static void
-json_sub_start(struct parser_state *p, char *name, int pos) {
+json_stmts_start(struct parser_state *p) {
+    fprintf(OUT, "%*s'instructions' : {\n", indent, " ");
+    indent();
+}
 
+/*
+static void
+json_next(struct parser_state *p) {
+    fprintf(OUT, ", ");
 }
+*/
 
 
 pirvtable *
 init_json_vtable(void) {
     pirvtable *vtable = new_pirvtable();
 
-    vtable->initialize = json_init;
-    vtable->sub_start  = json_sub_start;
-    vtable->end        = json_end;
+    vtable->initialize  = json_init;
+    vtable->sub_start   = json_sub_start;
+    vtable->sub_end     = json_end;
+    vtable->end         = json_end;
+    vtable->stmts_start = json_stmts_start;
+    vtable->stmts_end   = json_end;
+    vtable->name        = json_name;
+    /* vtable->next_expr   = json_next; */
 
     return vtable;
 }