Test first generated doc.

2023-07-04 20:44:12 +02:00 · 2023-07-04 20:44:12 +02:00 · 28ad38926a
commit 28ad38926a
parent abeb773ce4
3 changed files with 37 additions and 6 deletions
--- a/src/gendoc.scm
+++ b/src/gendoc.scm
@ -1,7 +1,20 @@

-(import duck-extract
-	util-time)
+(import duck-extract)

-(print "# Utility modules")
-(newline)
-(print-module-duck util-time)
+(define-syntax gen-duck
+  (syntax-rules ()
+    ((_ fname title mod ...)
+     (begin
+       (import mod ...)
+       (with-output-to-file fname
+	 (lambda ()
+	   (print "# " title)
+	   (let ()
+	     (newline)
+	     (print-module-duck mod))
+	   ...
+	   ))))))
+
+(gen-duck "doc/d-utils.md"
+	  "Utility modules"
+	  util-time)