@# This requires a hacked version of man2html @# See here: http://www.kylheku.com/cgit/man @(bind symhash @(hash :equal-based)) @(bind tagmap @(hash :equal-based)) @(bind tochash @(hash :equal-based)) @(bind closedtxt " <TT>[+]</TT>") @(bind opentxt " <TT>[-]</TT>") @(bind xpnall "[expand all]") @(bind clpsall "[collapse all]") @(bind closed t) @(do (defvar dupes (hash)) (defvar tagnum (hash :equal-based)) (defvarl disamb (hash :equal-based)) (defvarl dist-counter 0) (defun hash-str (str) (for ((lim (len str)) (i 0) (h 0) g) ((< i lim) h) ((inc i)) (set h (+ (ash h 4) (int-chr [str i]))) (set g (logand h #x7c000000)) (set h (logtrunc (logxor h (logxor (ash g -26) g)) 32)))) (defun hash-title (title) (let* ((h (logtrunc (hash-str title) 32)) (existing [dupes h])) (when existing (unless (equal title existing) (error "~a ~a hash collision!" existing title))) (set [dupes h] title) (format nil "N-~,08X" h))) (defun toc-tag (sec) `TOC-@sec`) (set [tagmap "lbAB"] (hash-title "NAME")) (defun enumerate (title) (let ((num (inc [tagnum title 0]))) `@title@(if (> num 1) `-@num` "")`)) (defun process-ambiguities (hash) (hash-update hash (do if (eql (length @1) 1) (first @1) (let ((new-tag (format nil "D-~,04X" (inc dist-counter)))) (set [disamb new-tag] (reverse @1)) new-tag))))) Content-type: text/html @(skip 15) <h1>TXR</h1> @(skip)Updated: @YEAR-@MONTH-@DAY<br><a href="#index">Index</a> @(bind TIME @(make-time-utc (int-str YEAR) (int-str MONTH) (int-str DAY) 0 0 0 nil)) @(bind VERSION nil) @(collect :vars (BODY)) @ (some) @ (cases) <a name="@tag"> </a> @ (some) <h@level>@sec @title</h@level> @ (or) <h@level>@sec @title </h@level> @ (end) @ (bind newtag @(hash-title (enumerate title))) @ (do (set [tagmap tag] newtag)) @ (output :into BODY) <a name="@newtag"> </a> <h@level><a href="#@(toc-tag sec)" onclick="tocjump('@(toc-tag sec)')">@sec</a> @title</h@level> @ (end) @ (cat BODY "\n") @ (or) @BODY @ (end) @ (and) <b>TXR</b> - text processing language (version @ver) @ (set VERSION ver) @ (end) @(until) <hr> <a name="index"> </a><h2>Index</h2> @(end) <hr> @(collect :vars (TOC)) @ (some) @ (cases) @ (cases) <dt><a href="#@tag">@num @rest</a><dd> @ (or) <dt><a href="#@tag">@num @rest </a><dd> @ (end) @ (bind TOC `<dt><a name="@(toc-tag num)" class="tocanchor">@num</a> <a href="#@[tagmap tag]">@rest</a></dt>`) @ (or) <a name="index">@(skip) @ (output :into TOC) <h2>Contents</h2> <noscript> <h3>Please turn on Javascript to use the collapsible contents.</h3> </noscript> <a href="#/" onclick="toggleall(this)">@xpnall</a> @ (end) @ (or) @TOC @ (end) @ (and) <dt><a href="@nil">@nil TXR LISP</a><dd> @ (and) <dt><a href="#@tag">@(coll :vars (sym))<tt>@sym</tt>@(end) @ (do (let ((n-tag [tagmap tag])) (mapdo (do pushnew n-tag [symhash @1]) sym) (set [tochash n-tag] rest))) @ (and) <dt><a href="#@tag">@num @nil @ (maybe) </a><dd> @ (end) <dl> @ (cat TOC) @ (bind pos @(car (search-regex TOC #/<\/dt/))) @ (bind id @(gensym)) @ (do (set [TOC pos..pos] `<a href="#/" onclick="toggle(this, '@id')" class="toggle">@(if closed closedtxt opentxt)</a>`)) @ (output :into TOC) @TOC <dd><dl id="@id" class="tocsec"@(if closed " style=\"display: none\"")> @ (end) @ (end) @(until) This document was created by @(end) @(flatten TOC) @(do (process-ambiguities symhash)) @(set BODY @(let ((inside-tt nil) (inside-syntax nil)) (mapcar (do cond ((equal @1 "<tt>") (set inside-tt t) @1) ((equal @1 "</tt>") (set inside-tt nil) (set inside-syntax nil) @1) ((equal @1 "<dt>Syntax:<dd>") (set inside-syntax t) @1) ((or (and inside-tt (not inside-syntax)) (match-regex @1 #/<dt><tt>/)) (regsub #/@?[\(\[][^ )&]+/ (do let* ((at (if (eql [@1 0] #\@) (pop @1))) (tok [@1 1..:]) (bkt [@1 0]) (tag [symhash tok])) (if tag `@at@bkt<a href="#@tag">@tok</a>` `@at@1`)) @1)) ((search-regex @1 #/<h[1-9]>/) @1) (t (regsub #/<tt>.%<\/tt>/ (do let* ((tok [@1 4 -5]) (tend (break-str tok ") ")) pfx sym sfx tag) (cond ((match-str tok "@(") (set pfx "@(" sym [tok 2 tend] sfx [tok tend .. :] tag [symhash sym])) (t (set tag [symhash tok] sym tok))) (if tag `<tt>@pfx<a href="#@tag">@sym</a>@sfx</tt>` @1)) @1))) BODY))) @(bind (d-tag n-tag) @(transpose (hash-pairs disamb))) @(output) <!doctype html public "-//W3C//DTD HTML 4.01 Transitional//EN"> <html> <head><title>Manpage for TXR @VERSION</title> <meta http-equiv="Content-Type" content="text/html; charset=UTF-8"> <style> .disambiguations dl { margin-bottom: 2048px; } dl.items dd:-moz-only-whitespace::after { content: "\00A0"; } dl.items dd:empty:after { content: "\00A0"; } dl.items dd { overflow: auto; min-width: calc(100% - 3em); margin-left: 3em; margin-bottom: 1ex; } dl.items dt { float: left; padding-right: 1ex; } </style> <script type="text/javascript"> var xpanded = false; function toggle(link, id) { var e = document.getElementById(id); if (e.style.display == '') { e.style.display = 'none'; link.innerHTML = '@closedtxt'; } else { e.style.display = ''; link.innerHTML = '@opentxt'; } } function toggleall(link) { var toc = document.getElementsByClassName("TOC"); var dls = toc[0].getElementsByClassName("tocsec"); var atoggles = toc[0].getElementsByClassName("toggle"); var ndisp = xpanded ? 'none' : ''; var nhtml = xpanded ? '@closedtxt' : '@opentxt' for (var i = 0; i < dls.length; i++) dls[i].style.display = ndisp; for (var i = 0; i < atoggles.length; i++) atoggles[i].innerHTML = nhtml; link.innerHTML = xpanded ? '@xpnall' : '@clpsall'; xpanded = !xpanded; } function tocjump(hash) { var toc = document.getElementsByClassName("TOC"); var tanch = toc[0].getElementsByClassName("tocanchor"); for (var i = 0; i < tanch.length; i++) { var ta = tanch[i]; if (ta.name == hash) { for (var e = ta.parentNode; e !== null; e = e.parentElement) { if (e.tagName == "DL") { var dt = e.previousElementSibling; e.style.display = ''; if (dt !== null) { var atoggles = dt.getElementsByClassName("toggle"); if (atoggles.length > 0) atoggles[0].innerHTML = '@opentxt'; } } } } } } </script> </head><body> <h2>Manpage for <a href="#@[tagmap "lbAB"]">TXR </a>@VERSION</h2> <h2>@(time-string-utc TIME "%b %d, %Y")</h2> <p> <form action="https://www.paypal.com/cgi-bin/webscr" method="post"> <input type="hidden" name="cmd" value="_s-xclick"> <input type="hidden" name="encrypted" value="-----BEGIN PKCS7-----MIIHJwYJKoZIhvcNAQcEoIIHGDCCBxQCAQExggEwMIIBLAIBADCBlDCBjjELMAkGA1UEBhMCVVMxCzAJBgNVBAgTAkNBMRYwFAYDVQQHEw1Nb3VudGFpbiBWaWV3MRQwEgYDVQQKEwtQYXlQYWwgSW5jLjETMBEGA1UECxQKbGl2ZV9jZXJ0czERMA8GA1UEAxQIbGl2ZV9hcGkxHDAaBgkqhkiG9w0BCQEWDXJlQHBheXBhbC5jb20CAQAwDQYJKoZIhvcNAQEBBQAEgYBQLZSe0xgg+h5deucBW3W3vj5kgJXsNm+Cmidp8krGwBTXBJJ4b6qreIdiArKKEVD6Lohb0f+267KtCvu28j/Kf6MlVfdsdI0p36jvqjisRGF/wtiJuHsHhbY5Lw27LykuZepzo9P22wAEo4dVi1n2ULhr1O3Fa2bGUJK5zFzZ1jELMAkGBSsOAwIaBQAwgaQGCSqGSIb3DQEHATAUBggqhkiG9w0DBwQI9fi0GhLipgyAgYAhyKuqSfxMrIyaHx9ul4lTPxHrzZu7SiQHPCF7+e3Sr4nxqAREmNJSrWnoE8wDAueBJ0TIcJIY8jFJbtXf/l/uawzD9XEab4WwW3LHU5ei3sOtKZzw0V+z7X+R4/21c0yu/vrvSTzGvZJbZW5T2Vck/EJa3nTqn8lOOPmSIyxRBaCCA4cwggODMIIC7KADAgECAgEAMA0GCSqGSIb3DQEBBQUAMIGOMQswCQYDVQQGEwJVUzELMAkGA1UECBMCQ0ExFjAUBgNVBAcTDU1vdW50YWluIFZpZXcxFDASBgNVBAoTC1BheVBhbCBJbmMuMRMwEQYDVQQLFApsaXZlX2NlcnRzMREwDwYDVQQDFAhsaXZlX2FwaTEcMBoGCSqGSIb3DQEJARYNcmVAcGF5cGFsLmNvbTAeFw0wNDAyMTMxMDEzMTVaFw0zNTAyMTMxMDEzMTVaMIGOMQswCQYDVQQGEwJVUzELMAkGA1UECBMCQ0ExFjAUBgNVBAcTDU1vdW50YWluIFZpZXcxFDASBgNVBAoTC1BheVBhbCBJbmMuMRMwEQYDVQQLFApsaXZlX2NlcnRzMREwDwYDVQQDFAhsaXZlX2FwaTEcMBoGCSqGSIb3DQEJARYNcmVAcGF5cGFsLmNvbTCBnzANBgkqhkiG9w0BAQEFAAOBjQAwgYkCgYEAwUdO3fxEzEtcnI7ZKZL412XvZPugoni7i7D7prCe0AtaHTc97CYgm7NsAtJyxNLixmhLV8pyIEaiHXWAh8fPKW+R017+EmXrr9EaquPmsVvTywAAE1PMNOKqo2kl4Gxiz9zZqIajOm1fZGWcGS0f5JQ2kBqNbvbg2/Za+GJ/qwUCAwEAAaOB7jCB6zAdBgNVHQ4EFgQUlp98u8ZvF71ZP1LXChvsENZklGswgbsGA1UdIwSBszCBsIAUlp98u8ZvF71ZP1LXChvsENZklGuhgZSkgZEwgY4xCzAJBgNVBAYTAlVTMQswCQYDVQQIEwJDQTEWMBQGA1UEBxMNTW91bnRhaW4gVmlldzEUMBIGA1UEChMLUGF5UGFsIEluYy4xEzARBgNVBAsUCmxpdmVfY2VydHMxETAPBgNVBAMUCGxpdmVfYXBpMRwwGgYJKoZIhvcNAQkBFg1yZUBwYXlwYWwuY29tggEAMAwGA1UdEwQFMAMBAf8wDQYJKoZIhvcNAQEFBQADgYEAgV86VpqAWuXvX6Oro4qJ1tYVIT5DgWpE692Ag422H7yRIr/9j/iKG4Thia/Oflx4TdL+IFJBAyPK9v6zZNZtBgPBynXb048hsP16l2vi0k5Q2JKiPDsEfBhGI+HnxLXEaUWAcVfCsQFvd2A1sxRr67ip5y2wwBelUecP3AjJ+YcxggGaMIIBlgIBATCBlDCBjjELMAkGA1UEBhMCVVMxCzAJBgNVBAgTAkNBMRYwFAYDVQQHEw1Nb3VudGFpbiBWaWV3MRQwEgYDVQQKEwtQYXlQYWwgSW5jLjETMBEGA1UECxQKbGl2ZV9jZXJ0czERMA8GA1UEAxQIbGl2ZV9hcGkxHDAaBgkqhkiG9w0BCQEWDXJlQHBheXBhbC5jb20CAQAwCQYFKw4DAhoFAKBdMBgGCSqGSIb3DQEJAzELBgkqhkiG9w0BBwEwHAYJKoZIhvcNAQkFMQ8XDTEyMDMxMDEwMzczNFowIwYJKoZIhvcNAQkEMRYEFFrxlUHVygBbXOOpW9sAA30sKa+lMA0GCSqGSIb3DQEBAQUABIGAnn2T3mTtic58GXWIZSnV/PruTSwnEpyfVDVDBLyBNIPVabV0a2ra0HQZfHKxvMZNAPN2bpcBLPMubDZEWCcw6XdkOKPyZ9aJ7PEv5i7t6tg3MRR62YwroREHQVedCcRInnBFExQMOrZe/hTY75Xydk9yuIST4VbMO0CuttVz4aE=-----END PKCS7----- "> <input type="image" src="https://www.paypalobjects.com/en_US/i/btn/btn_donate_LG.gif" border="0" name="submit" alt="PayPal - The safer, easier way to pay online!"> <img alt="" border="0" src="https://www.paypalobjects.com/en_US/i/scr/pixel.gif" width="1" height="1"> </form> </p> <div class="toc"> @(repeat) @TOC @(end) </div> @(repeat) @BODY @(first) @(end) <div class="disambiguations"> @(repeat) <a name="@{d-tag}"> <p>Topics matching <tt>@(hash-revget symhash d-tag)</tt>: <dl> @ (repeat :counter (n 1)) <dt><a href="#@{n-tag}">@n:</a> @[tochash n-tag]</dt> @ (end) </dl> </a> @(end) </div> </body> </html> @(end) @(do (file-put "share/txr/stdlib/doc-syms.tl" ^(defvarl doc-syms ,symhash)))