diff options
author | Paul A. Patience <paul@apatience.com> | 2022-02-13 02:17:41 +0000 |
---|---|---|
committer | Kaz Kylheku <kaz@kylheku.com> | 2022-02-12 19:40:53 -0800 |
commit | e8c2a914a9d449d96ceb1fa2d1670e04daf9ffaf (patch) | |
tree | ff47b0986f554158cc697d2402712590458e513b /genman.txr | |
parent | 0a291426295271b72302926cacf0d78869c34326 (diff) | |
download | txr-e8c2a914a9d449d96ceb1fa2d1670e04daf9ffaf.tar.gz txr-e8c2a914a9d449d96ceb1fa2d1670e04daf9ffaf.tar.bz2 txr-e8c2a914a9d449d96ceb1fa2d1670e04daf9ffaf.zip |
doc: remove extraneous symbols from doc-syms.
* genman.txr: Remove from the name list those names that are not
TXR symbols, so that they don't appear in doc-syms.
* stdlib/doc-syms.tl: Updated.
Diffstat (limited to 'genman.txr')
-rw-r--r-- | genman.txr | 29 |
1 files changed, 16 insertions, 13 deletions
@@ -295,9 +295,19 @@ function tocjump(hash) { </body> </html> @(end) -@(bind (name code) @(transpose [nsort (mapcar (tb ((sym code)) - (list (html-decode sym) code)) - (hash-pairs symhash)) : car])) +@(bind (name code) @(let ((ignames '("*-1" "*-2" "*-20" + "*0" "*1" "*2" "*99" + "*n" "*r" "*v" + "--args" "--eargs" "-C" + ".." + "TXR_COMPAT" + "buf-get-" "buf-put-"))) + (flow (hash-pairs symhash) + (remove-if (op in ignames) @1 car) + (mapcar (tb ((sym code)) + (list (html-decode sym) code))) + (nsort @1 : car) + transpose))) @(do (let ((syms (append-each* ((entry [remove-if (op equal "pub") (package-alist) car]) @@ -306,17 +316,10 @@ function tocjump(hash) { (let ((fn (casequal pkg-name (("usr" "keyword") (fun tostringp)) (t (opip tostringp (join-with ":" pkg-name)))))) - (mapcar fn (package-symbols pkg))))) - (ignames '("*-1" "*-2" "*-20" - "*0" "*1" "*2" "*99" - "*n" "*r" "*v" - "--args" "--eargs" "-C" - ".." - "TXR_COMPAT" - "buf-get-" "buf-put-"))) + (mapcar fn (package-symbols pkg)))))) (mapdo (do unless (in syms @1) - (format *stderr* "~a: missing from image\n" @1)) - (remove-if (op in ignames) name)))) + (format *stderr* "~a: missing from image\n" @1)) + name))) @(output "stdlib/doc-syms.tl") (defparml doc-syms (hash-from-pairs |