Introducing structs.

* args.c (args_cat_zap): New function.

* args.h: (args_cat_zap): Declared.

* eval.c (struct_lit_s): New symbol variable.
(eval_init): Initialize struct_lit_s.

* eval.h (struct_lit_s): Declared.

* gc.c (finalize): If a symbol has a struct slot
hash attached to it, we must free it when
the symbol is reclaimed.

* lib.c (make_sym): Initialize symbol's slot_cache pointer
to null.
(copy): Copy structure objects.
(init): Call struct_init to initialize struct module.

* lib.h (SLOT_CACHE_SIZE): New preprocessor symbol
(slot_cache_line_t, slot_cache_t): New typedefs.
(struct sym): New member, slot_cache.

* lisplib.c (struct_set_entries, struct_instantiate):  New
static functions.
(liplib_init): Register new functions in dl_table.

parser.y (HASH_S): New terminal symbol.
(struct): New grammar rule.
(n_expr): Derive struct.
(yybadtoken): Map HASH_S to #S string.

parser.l (grammar): Recognize #S and return HASH_S token.

share/txr/stdlib/place.tl (slot): New defplace.

share/txr/stdlib/struct.tl: New file.

struct.c: New file.

struct.h: New file.

* Makefile (OBJS): Adding struct.o.

1 files changed, 2 insertions, 1 deletions

diff --git a/eval.c b/eval.c
index 54df59b8..d5345c78 100644
--- a/eval.c
+++ b/eval.c
@@ -90,7 +90,7 @@ val gen_s, gun_s, generate_s, rest_s, plus_s;
 val promise_s, promise_forced_s, promise_inprogress_s, force_s;
 val op_s, ap_s, identity_s, apf_s, ipf_s;
 val ret_s, aret_s;
-val hash_lit_s, hash_construct_s, qref_s;
+val hash_lit_s, hash_construct_s, struct_lit_s, qref_s;
 val vector_lit_s, vector_list_s;
 val macro_time_s, with_saved_vars_s, macrolet_s;
 val defsymacro_s, symacrolet_s, prof_s;
@@ -4018,6 +4018,7 @@ void eval_init(void)
   rest_s = intern(lit("rest"), user_package);
   hash_lit_s = intern(lit("hash-construct"), system_package);
   hash_construct_s = intern(lit("hash-construct"), user_package);
+  struct_lit_s = intern(lit("struct-lit"), system_package);
   qref_s = intern(lit("qref"), user_package);
   vector_lit_s = intern(lit("vector-lit"), system_package);
   vector_list_s = intern(lit("vector-list"), user_package);