diff options
-rw-r--r-- | genman.txr | 29 | ||||
-rw-r--r-- | stdlib/doc-syms.tl | 17 |
2 files changed, 16 insertions, 30 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 diff --git a/stdlib/doc-syms.tl b/stdlib/doc-syms.tl index 9f999aab..754a0ae6 100644 --- a/stdlib/doc-syms.tl +++ b/stdlib/doc-syms.tl @@ -4,13 +4,6 @@ ("%e%" "N-03F0FA9E") ("%pi%" "N-03F0FA9E") ("*" "N-022396F7") - ("*-1" "N-0187FDD2") - ("*-2" "N-0187FDD2") - ("*-20" "N-0187FDD2") - ("*0" "N-01F7C7DC") - ("*1" "N-01F7C7DC") - ("*2" "N-01F7C7DC") - ("*99" "N-01F7C7DC") ("*args*" "N-03DEE18A") ("*args-eff*" "N-03DEE18A") ("*args-full*" "N-03DEE18A") @@ -27,7 +20,6 @@ ("*load-hooks*" "N-02D09712") ("*load-path*" "N-01D1DB58") ("*match-macro*" "N-012A473F") - ("*n" "N-02E7AE5A") ("*opt-level*" "N-03FDEBBC") ("*package*" "N-000CBBA0") ("*package-alist*" "N-00E20381") @@ -42,7 +34,6 @@ ("*print-flo-digits*" "N-00F41F6C") ("*print-flo-format*" "N-02B252AA") ("*print-flo-precision*" "N-02E97D03") - ("*r" "N-03A7AE5A") ("*random-state*" "N-033875AD") ("*random-warmup*" "N-010348CD") ("*read-bad-json*" "N-01C77B65") @@ -58,22 +49,17 @@ ("*trace-output*" "N-0067A6AC") ("*tree-fun-whitelist*" "N-025AB9C9") ("*unhandled-hook*" "N-02B4A4FB") - ("*v" "N-0367AE5A") ("+" "D-0044") ("-" "D-004A") ("--" "N-0234C408") - ("--args" "N-03FCDE42") - ("--eargs" "N-03FCDE42") ("--rng" "N-01A056E4") ("--rng+" "N-01A056E4") ("--rng-" "N-01A056E4") ("->" "N-02B10DF9") ("->>" "N-02B10DF9") - ("-C" "N-036F1A29") ("-rng" "N-01A056E4") ("-rng+" "N-01A056E4") ("-rng-" "N-01A056E4") - (".." "N-0217A971") ("/" "D-0049") ("//" "N-0054C409") ("/=" "N-003BE40C") @@ -88,7 +74,6 @@ ("=" "D-0078") (">" "D-0060") (">=" "D-0053") - ("TXR_COMPAT" "N-03F5D03D") ("abort" "N-02F934F6") ("abs" "D-0017") ("abs-path-p" "N-00477B23") @@ -189,7 +174,6 @@ ("buf-alloc-size" "N-013A3727") ("buf-carray" "N-0022F54E") ("buf-d" "D-0014") - ("buf-get-" "N-0095470A") ("buf-get-char" "N-03E9074A") ("buf-get-cptr" "N-00E90766") ("buf-get-double" "N-006C6EB9") @@ -211,7 +195,6 @@ ("buf-get-ushort" "N-035691E9") ("buf-int" "N-0291625A") ("buf-list" "N-03E81617") - ("buf-put-" "N-035546D9") ("buf-put-buf" "N-009FC934") ("buf-put-char" "N-00690748") ("buf-put-cptr" "N-03690764") |