From 8720843f7a55991fb52ca1de7be2dab341ae7517 Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Tue, 6 Oct 2015 21:32:34 -0700 Subject: New function: reset-struct. * struct.c (reset_struct): New function. (struct_init): Register reset_struct intrinsic. * struct.h (reset_struct): Declared. * txr.1: documented reset-struct. --- struct.c | 16 ++++++++++++++++ 1 file changed, 16 insertions(+) (limited to 'struct.c') diff --git a/struct.c b/struct.c index 064d0e21..7162dc3e 100644 --- a/struct.c +++ b/struct.c @@ -113,6 +113,7 @@ void struct_init(void) reg_fun(intern(lit("copy-struct"), user_package), func_n1(copy_struct)); reg_fun(intern(lit("replace-struct"), user_package), func_n2(replace_struct)); reg_fun(intern(lit("clear-struct"), user_package), func_n2o(clear_struct, 1)); + reg_fun(intern(lit("reset-struct"), user_package), func_n1(reset_struct)); reg_fun(intern(lit("slot"), user_package), func_n2(slot)); reg_fun(intern(lit("slotset"), user_package), func_n3(slotset)); reg_fun(intern(lit("static-slot"), user_package), func_n2(static_slot)); @@ -425,6 +426,21 @@ val replace_struct(val target, val source) return target; } +val reset_struct(val strct) +{ + const val self = lit("reset-struct"); + struct struct_inst *si = struct_handle(strct, self); + struct struct_type *st = coerce(struct struct_type *, si->type->co.handle); + cnum i; + + for (i = 0; i < st->nslots; i++) + si->slot[i] = nil; + + call_initfun_chain(st, strct); + + return strct; +} + static int cache_set_lookup(slot_cache_entry_t *set, cnum id) { if (set[0].id == id) -- cgit v1.2.3