From 28304a063238826c7c8d1e9cad771a5d23d8b37a Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Thu, 13 May 2021 19:42:39 -0700 Subject: doc: sort doc-syms, and html-decode. * genman.txr: generate doc-syms as a sorted list fed to hash-from-pairs. Now the symbols won't jump around so much whenever we update it. Also, the names must be HTML-decoded. For instance "str<" was being stored as "str<" causing (doc 'str<) to fail. We use TXR @(output) to adjust the formatting as if it were maintained by hand. * share/txr/stdlib/doc-syms.tl: Regenerated. --- genman.txr | 15 ++++++++++++++- 1 file changed, 14 insertions(+), 1 deletion(-) (limited to 'genman.txr') diff --git a/genman.txr b/genman.txr index 07db7e04..c1416baa 100644 --- a/genman.txr +++ b/genman.txr @@ -295,4 +295,17 @@ function tocjump(hash) { @(end) -@(do (file-put "share/txr/stdlib/doc-syms.tl" ^(defvarl doc-syms ,symhash))) +@(bind (name code) @(transpose [nsort (mapcar (tb ((sym code)) + (list (html-decode sym) code)) + (hash-pairs symhash)) : car])) +@(output "share/txr/stdlib/doc-syms.tl") +(defparml doc-syms + (hash-from-pairs +@ (repeat) + (@(tostring name) @(tostring code)) +@(first) + '((@(tostring name) @(tostring code)) +@(last) + (@(tostring name) @(tostring code))))) +@ (end) +@(end) -- cgit v1.2.3