@# 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.
@(deffilter month-name
("01" "Jan") ("02" "Feb") ("03" "Mar") ("04" "Apr")
("05" "May") ("06" "Jun") ("07" "Jul") ("08" "Aug")
("09" "Sep") ("10" "Oct") ("11" "Nov") ("12" "Dec"))
@(bind txrhash @(hash :equal-based))
@(bind txlhash @(hash :equal-based))
@(bind tgthash txrhash)
Content-type: text/html
@(skip 15)
TXR
@(skip)Updated: @YEAR-@MONTH-@DAY
Index
@(collect)
@PREAMBLE
@(until)
TXR - text processing language @(skip)
@(end)
@(bind lookup @[orf txrhash txlhash])
@(all)
TXR - text processing language @VERSION
@ (and)
@ (collect :vars (BODY LOOKUP))
@ (some)
@BODY
@ (and)
13 TXR LISP
@ (set lookup @[orf txlhash txrhash])
@ (end)
@ (bind LOOKUP lookup)
@ (until)
Index
@ (end)
@(end)
@(collect :vars (TOC))
@ (some)
@TOC
@ (and)
@nil TXR LISP
@ (set tgthash txlhash)
@ (and)
@(coll :vars (sym))@sym@(end)
@ (do (mapdo (do unless [tgthash @1] (set [tgthash @1] 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
@{MONTH :filter month-name} @DAY, @YEAR
@(repeat)
@TOC
@(end)
@(repeat)
@PREAMBLE
@(first)
@(end)
@(repeat)
@BODY
@(end)
@(end)