Changeset 678

Timestamp:

2001-12-11T15:05:13+01:00 (22 years ago)

Author:

levsa

Message:

dump code for dumping the pccts ast

Location:

branches/pdetest-levsa/modeq

Files:

• ast/Makefile (modified) (2 diffs)
• ast/parsemod.c (modified) (3 diffs)
• runtime/rtopts.c (modified) (4 diffs)

branches/pdetest-levsa/modeq/ast/Makefile

@@ -32 +32 @@
 #AFLAGS = -CC -gt 
 #AFLAGS = -gt -gl
-AFLAGS = -gt -gl -gh
+AFLAGS = -gt -gh
 #DFLAGS = -C2 -CC -cs
 DFLAGS = -C2
@@ -41 +41 @@
       yacclib.c \
       attrib.c  \
-      parsemod.c
+      parsemod.c \
+      dump.c
 OBJ = $(SRC:.c=.o)
 ANTLR_SPAWN = modgram.c \

branches/pdetest-levsa/modeq/ast/parsemod.c

@@ -6 +6 @@
 #include "yacclib.h"
 #include <errno.h>
+#include "dump.h"
+
+extern int dump_ast; /* defined in ../runtime/rtopts.c */
 
 /* Also see rml-1.3.6/examples/etc/ccall.c */
@@ -20 +23 @@
     fprintf(stderr,"*");
 
-  if(zzchild(ast))
+  if(zzchild(ast)) {
     fprintf(stderr,"(");
-  else if(zzsibling(ast))
+    print_token(zzchild(ast));
+  }
+  else if(zzsibling(ast)) {
     fprintf(stderr,",");
+    print_token(zzsibling(ast));
+  }
 }
 
@@ -79 +86 @@
       /* if( !root )
        *   RML_TAILCALLK(rmlFC); */
-      
+
+      if (dump_ast)
+  dump(root);
       rmlA0 = sibling_list(root);
       

branches/pdetest-levsa/modeq/runtime/rtopts.c

@@ -11 +11 @@
 static int debug_flag_info;
 static int params_struct;
+int dump_ast;
+
 
 static char **debug_flags;
@@ -25 +27 @@
   params_struct = 0;
   debug_all = 0;
+  dump_ast = 0;
 }
 
@@ -113 +116 @@
   }
   break;
+      case 'r':
+  dump_ast = 1;
+  break;
       default:
   fprintf(stderr, "# Unknown option: %s\n", arg);
@@ -192 +198 @@
 
 
+RML_BEGIN_LABEL(RTOpts__dump_5fast)
+{
+  rmlA0 = RML_PRIM_MKBOOL(dump_ast);
+  RML_TAILCALLK(rmlSC);
+}
+RML_END_LABEL
+