@# 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)) @(bind closedtxt "[+]") @(bind opentxt "[-]") @(bind xpnall "[expand all]") @(bind clpsall "[collapse all]") @(bind closed t) @(do (defvar dupes (hash)) (defvar tagnum (hash :equal-based)) (sys:set-hash-str-limit 1000) (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))) (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` "")`))) Content-type: text/html @(skip 15)