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, 1 insertions, 1 deletions

diff --git a/Makefile b/Makefile
index a19e41dd..66df8209 100644
--- a/Makefile
+++ b/Makefile
@@ -47,7 +47,7 @@ EXTRA_OBJS-y :=
 
 OBJS := txr.o lex.yy.o y.tab.o match.o lib.o regex.o gc.o unwind.o stream.o
 OBJS += arith.o hash.o utf8.o filter.o eval.o parser.o rand.o combi.o sysif.o
-OBJS += args.o lisplib.o cadr.o
+OBJS += args.o lisplib.o cadr.o struct.o
 OBJS-$(debug_support) += debug.o
 OBJS-$(have_syslog) += syslog.o
 OBJS-$(have_glob) += glob.o