From aef42ed8c03dc05e4e51b068d197c9c4cfd62fa3 Mon Sep 17 00:00:00 2001
From: Kaz Kylheku <kaz@kylheku.com>
Date: Fri, 29 Nov 2019 06:32:22 -0800
Subject: getopts: new define-option-struct macro.

This provides more streamlined option processing.

* lisplib.c (getopts_set_entries): Add auto-load entry for
define-option-struct.

* share/txr/stdlib/getopts.tl (define-option-struct): New
macro.

* txr.1: Documented.
---
 lisplib.c | 2 +-
 1 file changed, 1 insertion(+), 1 deletion(-)

(limited to 'lisplib.c')

diff --git a/lisplib.c b/lisplib.c
index e3487496..30b2152a 100644
--- a/lisplib.c
+++ b/lisplib.c
@@ -473,7 +473,7 @@ static val getopts_set_entries(val dlt, val fun)
 {
   val name[] = {
     lit("opt-desc"), lit("opts"),
-    lit("opt"), lit("getopts"), lit("opthelp"),
+    lit("opt"), lit("getopts"), lit("opthelp"), lit("define-option-struct"),
     nil
   };
   val name_noload[] = {
-- 
cgit v1.2.3