altos: Add lisp reader

[fw/altos] / src / test / ao_lisp_test.c

diff --git a/src/test/ao_lisp_test.c b/src/test/ao_lisp_test.c
index bbadfa755289ec35818a7992b421bf349ac70aa3..96f1fd726e8109bc63fddf9a7cb292fd39561e9d 100644 (file)
--- a/src/test/ao_lisp_test.c
+++ b/src/test/ao_lisp_test.c
@@ -23,6 +23,7 @@ main (int argc, char **argv)
 {
        int     i, j;
        struct ao_lisp_atom     *atom;
+       ao_lisp_poly            poly;
        ao_lisp_root_add(&ao_lisp_cons_type, (void **) &list);
        ao_lisp_root_add(&ao_lisp_string_type, (void **) &string);
 
@@ -55,4 +56,12 @@ main (int argc, char **argv)
        printf ("\n");
        ao_lisp_poly_print(ao_lisp_eval(ao_lisp_cons_poly(list)));
        printf ("\n");
+
+       while ((poly = ao_lisp_read())) {
+               poly = ao_lisp_eval(poly);
+               ao_lisp_poly_print(poly);
+               putchar ('\n');
+               fflush(stdout);
+       }
+
 }