diff options
author | Kaz Kylheku <kaz@kylheku.com> | 2022-02-18 22:13:35 -0800 |
---|---|---|
committer | Kaz Kylheku <kaz@kylheku.com> | 2022-02-18 22:13:35 -0800 |
commit | 354152f12f64166699368a6f46628a698b8fa8ca (patch) | |
tree | b138766e99eca47f626daf74e2c59b537d6e2a6a /autoload.h | |
parent | 9a2bc9a4666b0a8789eccd231dd97cf1abc74cae (diff) | |
download | txr-354152f12f64166699368a6f46628a698b8fa8ca.tar.gz txr-354152f12f64166699368a6f46628a698b8fa8ca.tar.bz2 txr-354152f12f64166699368a6f46628a698b8fa8ca.zip |
lisplib: rename to autoload.
* Makefile (OBJS): rename lisplib.o to autoload.o.
* lisplib.c: Renamed to autoload.c.
(lisplib_init_tables): Renamed to autoload_init_tables.
(lisplib_init): Renamed to autoload_init, and calls
autoload_init_tables.
(lisplib_try_load): Renamed to autoload_try.
(autoload_try_fun, autoload_try_var, autloload_try_slot,
autoload_try_struct, autoload_try_keyword): Follow rename.
* lisplib.h: Renamed to autoload.h.
(lisplib_init): Renamed to autoload_init.
* eval.c: Include autoload.h.
(eval_init): Follow rename of lisplib_init.
* gencadr.txr: include "autoload.h"
* cadr.c: Regenerated.
Diffstat (limited to 'autoload.h')
-rw-r--r-- | autoload.h | 43 |
1 files changed, 43 insertions, 0 deletions
diff --git a/autoload.h b/autoload.h new file mode 100644 index 00000000..23ad7883 --- /dev/null +++ b/autoload.h @@ -0,0 +1,43 @@ +/* Copyright 2015-2022 + * Kaz Kylheku <kaz@kylheku.com> + * Vancouver, Canada + * All rights reserved. + * + * Redistribution and use in source and binary forms, with or without + * modification, are permitted provided that the following conditions are met: + * + * 1. Redistributions of source code must retain the above copyright notice, + * this list of conditions and the following disclaimer. + * + * 2. Redistributions in binary form must reproduce the above copyright notice, + * this list of conditions and the following disclaimer in the documentation + * and/or other materials provided with the distribution. + * + * THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" + * AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE + * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE + * ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDER OR CONTRIBUTORS BE + * LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR + * CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF + * SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS + * INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN + * CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) + * ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE + * POSSIBILITY OF SUCH DAMAGE. + */ + +typedef enum autoload_ns { + al_var, al_fun, al_slot, al_struct, al_key, al_max = al_key +} al_ns_t; + +extern val trace_loaded; +void autoload_init(void); +val autoload_try_fun(val sym); +val autoload_try_var(val sym); +val autoload_try_fun_var(val sym); +val autoload_try_slot(val sym); +val autoload_try_struct(val sym); +val autoload_try_keyword(val sym); +void autoload_set(al_ns_t ns, val *name, val fun); +val autoload_reg(val (*instantiate)(val), + val (*set_entries)(val)); |