aboutsummaryrefslogtreecommitdiff
path: root/debug
diff options
context:
space:
mode:
Diffstat (limited to 'debug')
-rw-r--r--debug/teststuff.c29
1 files changed, 29 insertions, 0 deletions
diff --git a/debug/teststuff.c b/debug/teststuff.c
new file mode 100644
index 0000000..1718e57
--- /dev/null
+++ b/debug/teststuff.c
@@ -0,0 +1,29 @@
+/* some test stuff */
+
+#if 0
+
+ {
+ t_pdp_list *l = pdp_list_from_cstring("(een 2 3. (1 1 1 1 1))", 0);
+ t_pdp_list *s = pdp_list_from_cstring("(symbol int float (int int ...))", 0);
+ //PDP_ASSERT(0);
+ pdp_list_print(l);
+ pdp_list_print(s);`
+ post("%d", pdp_tree_check_syntax(l, s));
+ exit(1);
+ }
+#endif
+
+#if 0
+
+ {
+ char *c = "(test 1 2 (23 4)) ( 1 [asdflkj; las;dlfkj;a sdf]) (een (zes (ze)ven ())) [";
+ while (*c){
+ t_pdp_list *l = pdp_list_from_cstring(c, &c);
+ if (l) pdp_list_print(l);
+ else{
+ post("parse error: remaining input: %s", c); break;
+ }
+ }
+ exit(1);
+ }
+#endif