diff options
| -rw-r--r-- | genman.txr | 25 | ||||
| -rw-r--r-- | stdlib/doc-syms.tl | 2 |
2 files changed, 23 insertions, 4 deletions
@@ -298,14 +298,33 @@ function tocjump(hash) { @(bind (name code) @(transpose [nsort (mapcar (tb ((sym code)) (list (html-decode sym) code)) (hash-pairs symhash)) : car])) +@(do (let ((syms (append-each* ((entry [remove-if (op equal "pub") + (package-alist) + car]) + (pkg-name [mapcar car entry]) + (pkg [mapcar cdr entry])) + (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-"))) + (mapdo (do unless (in syms @1) + (format *stderr* "~a: missing from image\n" @1)) + (remove-if (op in ignames) name)))) @(output "stdlib/doc-syms.tl") (defparml doc-syms (hash-from-pairs @ (repeat) (@(tostring name) @(tostring code)) -@(first) +@ (first) '((@(tostring name) @(tostring code)) -@(last) +@ (last) (@(tostring name) @(tostring code))))) -@ (end) +@ (end) @(end) diff --git a/stdlib/doc-syms.tl b/stdlib/doc-syms.tl index 1df28d8e..ed817076 100644 --- a/stdlib/doc-syms.tl +++ b/stdlib/doc-syms.tl @@ -727,7 +727,7 @@ ("filter-equal" "N-03136087") ("filter-string-tree" "N-00C9EEB0") ("finalize" "N-01230613") - ("finally" "D-0079") + ("finally" "D-0078") ("find" "N-00C9DFF6") ("find-frame" "N-02B97226") ("find-frames" "N-02B97226") |