printf("#endif /* AO_LISP_BUILTIN_CONSTS */\n");
}
+void
+dump_atoms(builtin_t[*] builtins) {
+ printf("#ifdef AO_LISP_BUILTIN_ATOMS\n");
+ printf("#undef AO_LISP_BUILTIN_ATOMS\n");
+ for (int i = 0; i < dim(builtins); i++) {
+ for (int j = 0; j < dim(builtins[i].lisp_names); j++) {
+ printf("#define _ao_lisp_atom_");
+ cify_lisp(builtins[i].lisp_names[j]);
+ printf(" _atom(");
+ cify_lisp(builtins[i].lisp_names[j]);
+ printf(")\n");
+ }
+ }
+ printf("#endif /* AO_LISP_BUILTIN_ATOMS */\n");
+}
+
void main() {
if (dim(argv) < 2) {
File::fprintf(stderr, "usage: %s <file>\n", argv[0]);
dump_funcs(builtins);
dump_decls(builtins);
dump_consts(builtins);
+ dump_atoms(builtins);
}
}