diff options
author | Hans-Christoph Steiner <eighthave@users.sourceforge.net> | 2005-12-16 00:53:00 +0000 |
---|---|---|
committer | Hans-Christoph Steiner <eighthave@users.sourceforge.net> | 2005-12-16 00:53:00 +0000 |
commit | e28a07fba67af0af818dda6afa4cf67c09700816 (patch) | |
tree | b0e8f2c7817bd72b8a6ce8353b1743c764a3a83a /debug/teststuff.c | |
parent | c05865f60bf15e962b6b30eceb8fa81358f1eaa2 (diff) |
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
Diffstat (limited to 'debug/teststuff.c')
-rw-r--r-- | debug/teststuff.c | 29 |
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 |