@# This requires a hacked version of man2html @# See here: http://www.kylheku.com/cgit/man @(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)
@(repeat) @TOC @(end) @(repeat) @BODY @(first) @(end) @(end)