From 10e62124c5c19ccdc9afe14d7586ad0efa500283 Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Thu, 14 Jan 2021 07:48:21 -0800 Subject: new: structural pattern matching. * lisplib.c (match_instantiate, match_set_entries): New static functions. (lisplib_init): Register autoload using new statics. * share/txr/stdlib/match.tl: New file. --- lisplib.c | 18 ++++++++++++++++++ 1 file changed, 18 insertions(+) (limited to 'lisplib.c') diff --git a/lisplib.c b/lisplib.c index 28865560..a77ff015 100644 --- a/lisplib.c +++ b/lisplib.c @@ -860,6 +860,23 @@ static val quips_set_entries(val dlt, val fun) return nil; } +static val match_instantiate(val set_fun) +{ + funcall1(set_fun, nil); + load(scat2(stdlib_path, lit("match"))); + return nil; +} + +static val match_set_entries(val dlt, val fun) +{ + val name[] = { + lit("when-match"), + nil + }; + set_dlt_entries(dlt, name, fun); + return nil; +} + val dlt_register(val dlt, val (*instantiate)(val), val (*set_entries)(val, val)) @@ -914,6 +931,7 @@ void lisplib_init(void) dlt_register(dl_table, copy_file_instantiate, copy_file_set_entries); dlt_register(dl_table, each_prod_instantiate, each_prod_set_entries); dlt_register(dl_table, quips_instantiate, quips_set_entries); + dlt_register(dl_table, match_instantiate, match_set_entries); reg_fun(intern(lit("try-load"), system_package), func_n1(lisplib_try_load)); } -- cgit v1.2.3