diff options
author | Kaz Kylheku <kaz@kylheku.com> | 2015-06-17 22:21:42 -0700 |
---|---|---|
committer | Kaz Kylheku <kaz@kylheku.com> | 2015-06-17 22:21:42 -0700 |
commit | b41b2cc220d9ba53024045fd3f84cd7be495d6a4 (patch) | |
tree | 75a7d2bcacb30513f05c15da0e62e71a9367e13f /lisplib.c | |
parent | 90166275e015baddb82e56203b73bf5e1b8014ab (diff) | |
download | txr-b41b2cc220d9ba53024045fd3f84cd7be495d6a4.tar.gz txr-b41b2cc220d9ba53024045fd3f84cd7be495d6a4.tar.bz2 txr-b41b2cc220d9ba53024045fd3f84cd7be495d6a4.zip |
Adding anaphoric ifa macro.
* Makefile (install): Install .tl files present in stdlib directory.
(INSTALL): Handle argument 2 being a list.
* eval.c (load): New function.
* eval.h (load): Declared.
* lisplib.c (ifa_set_entries, ifa_instantiate): New functions
to lazily load ifa.tl.
(lisplib_init): Register new functions.
* txr.c (stdlib_path): New variable.
(sysroot_init): Store the stdlib path in stdlib_path.
* txr.h (stdlib_path): Declared.
* share/txr/stdlib/ifa.tl: New file.
Diffstat (limited to 'lisplib.c')
-rw-r--r-- | lisplib.c | 16 |
1 files changed, 16 insertions, 0 deletions
@@ -36,6 +36,7 @@ #include "hash.h" #include "gc.h" #include "place.h" +#include "txr.h" #include "lisplib.h" static val dl_table; @@ -82,6 +83,20 @@ static val place_instantiate(val set_fun) colon_k, lit("place.tl")), nil); } +static val ifa_set_entries(val dlt, val fun) +{ + val name[] = { lit("ifa"), nil }; + set_dlt_entries(dlt, name, fun); + return nil; +} + +static val ifa_instantiate(val set_fun) +{ + funcall1(set_fun, nil); + load(format(nil, lit("~a/ifa.tl"), stdlib_path, nao)); + return nil; +} + static val dlt_register(val dlt, val (*instantiate)(val), val (*set_entries)(val, val)) @@ -94,6 +109,7 @@ void lisplib_init(void) prot1(&dl_table); dl_table = make_hash(nil, nil, nil); dlt_register(dl_table, place_instantiate, place_set_entries); + dlt_register(dl_table, ifa_instantiate, ifa_set_entries); } val lisplib_try_load(val sym) |