altos: Add lambda support to lisp
[fw/altos] / src / test / ao_lisp_test.c
index 810a152819ad2dd3594e59fd6792c7c7329b1772..8bc677daa5a54e947f4c86c69caa704e0f4f949d 100644 (file)
 #include "ao_lisp.h"
 #include <stdio.h>
 
+#if 0
 static struct ao_lisp_cons     *list;
 static char                    *string;
+#endif
 
 int
 main (int argc, char **argv)
 {
+#if 0
        int                     i, j;
-       struct ao_lisp_atom     *atom;
 
+       struct ao_lisp_atom     *atom;
        ao_lisp_root_add(&ao_lisp_cons_type, (void **) &list);
        ao_lisp_root_add(&ao_lisp_string_type, (void **) &string);
 
@@ -36,7 +39,6 @@ main (int argc, char **argv)
                        list = ao_lisp_cons_cons(ao_lisp_string_poly(string), list);
                        list = ao_lisp_cons_cons(ao_lisp_int_poly(i), list);
                        atom = ao_lisp_atom_intern("ant");
-                       atom->val = ao_lisp_cons_poly(list);
                        list = ao_lisp_cons_cons(ao_lisp_atom_poly(atom), list);
                }
                ao_lisp_poly_print(ao_lisp_cons_poly(list));
@@ -45,10 +47,11 @@ main (int argc, char **argv)
 
        for (atom = ao_lisp_poly_atom(ao_builtin_atoms); atom; atom = ao_lisp_poly_atom(atom->next)) {
                printf("%s = ", atom->name);
-               ao_lisp_poly_print(atom->val);
+               ao_lisp_poly_print(ao_lisp_atom_get(ao_lisp_atom_poly(atom)));
                printf("\n");
        }
-#if 1
+#endif
+#if 0
        list = ao_lisp_cons_cons(ao_lisp_atom_poly(ao_lisp_atom_intern("+")),
                                 ao_lisp_cons_cons(ao_lisp_cons_poly(ao_lisp_cons_cons(ao_lisp_atom_poly(ao_lisp_atom_intern("+")),
                                                                                       ao_lisp_cons_cons(ao_lisp_int_poly(3),
@@ -59,7 +62,8 @@ main (int argc, char **argv)
        printf ("\n");
        ao_lisp_poly_print(ao_lisp_eval(ao_lisp_cons_poly(list)));
        printf ("\n");
-
+#endif
+#if 1
        ao_lisp_read_eval_print();
 #endif
 }