@# This requires the man2html which was originally known as vh-man2html
@# and is now part of manutils.
@# See here: http://primates.ximian.com/~flucifredi/man/
@# It does not work with that other man2html written in Perl.
@(bind txrhash @(hash :equal-based))
@(bind txlhash @(hash :equal-based))
@(bind tgthash txrhash)
@(bind tagmap @(hash :equal-based))
@(do
(defvar dupes (hash))
(defun hash-title (title)
(let* ((h (logtrunc (hash-equal 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)))
(set [tagmap "lbAB"] (hash-title "NAME")))
Content-type: text/html
@(skip 15)
TXR
@(skip)Updated: @YEAR-@MONTH-@DAY
Index
@(bind TIME @(make-time-utc (int-str YEAR) (int-str MONTH) (int-str DAY)
0 0 0 nil))
@(bind lookup @[orf txrhash txlhash])
@(bind VERSION nil)
@(collect :vars (BODY LOOKUP))
@ (some)
@ (cases)
@ (some)
@sec @title
@ (or)
@sec @title
@ (end)
@ (bind newtag @(hash-title title))
@ (do (set [tagmap tag] newtag))
@ (output :into BODY)
@sec @title
@ (end)
@ (cat BODY "\n")
@ (or)
@BODY
@ (end)
@ (and)
@nil TXR LISP
@ (set lookup @[orf txlhash txrhash])
@ (and)
TXR - text processing language (version @ver)
@ (set VERSION ver)
@ (end)
@ (bind LOOKUP lookup)
@(until)
Index
@(end)
@(collect :vars (TOC))
@ (some)
@ (cases)
@rest
@ (output :into TOC)
@rest
@ (end)
@ (or)
@TOC
@ (end)
@ (and)
@nil TXR LISP
@ (set tgthash txlhash)
@ (and)
@(coll :vars (sym))@sym@(end)
@ (do (mapdo (do unless [tgthash @1] (set [tgthash @1] [tagmap tag]))
sym))
@ (end)
@(until)
This document was created by
@(end)
@(set BODY @(mapcar (do if (search-regex @1 #//)
@1
(regsub #/.%<\/TT>/
(do let ((tok [@1 4 -5]) tag)
(if (match-str tok "@(")
(let ((sym [tok 2 -1]))
(set tag [txrhash sym]))
(set tag [@@2 tok]))
(if tag
`@1`
@1))
@1))
BODY
LOOKUP))
@(output)
Manpage for TXR @VERSION
Manpage for TXR @VERSION
@(time-string-utc TIME "%b %d, %Y")
@(repeat)
@TOC
@(end)
@(repeat)
@BODY
@(first)
@(end)
@(end)