From e28a07fba67af0af818dda6afa4cf67c09700816 Mon Sep 17 00:00:00 2001
From: Hans-Christoph Steiner <eighthave@users.sourceforge.net>
Date: Fri, 16 Dec 2005 00:53:00 +0000
Subject: checking in pdp 0.12.4 from
 http://zwizwa.fartit.com/pd/pdp/pdp-0.12.4.tar.gz

svn path=/trunk/externals/pdp/; revision=4231
---
 debug/teststuff.c | 29 +++++++++++++++++++++++++++++
 1 file changed, 29 insertions(+)
 create mode 100644 debug/teststuff.c

(limited to 'debug/teststuff.c')

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
-- 
cgit v1.2.1