]> (define %stylesheet% "stylesheet.css") (element funcprototype (make element gi: "TABLE" attributes: '(("CLASS" "funcprototype")) (make element gi: "TR" (make element gi: "TD" (process-children))))) (element variablelist (make element gi: "TABLE" attributes: '(("CLASS" "variablelist")) (make element gi: "TR" (make element gi: "TD" (make element gi: "DL" (process-children)))))) (define %shade-verbatim% #t) (define ($shade-verbatim-attr$) (list (list "CLASS" "verbatim"))) (element lineannotation (make sequence font-posture: 'italic (literal "<") (process-children) (literal ">"))) (element anchor (if (equal? "over-under" (attribute-string (normalize "id") (current-node))) (make sequence (make element gi: "SPAN" attributes: '(("CLASS" "overline")) (literal "S")) (literal "(") (make element gi: "SPAN" attributes: '(("CLASS" "underline")) (literal "freq")) (literal ")")) (make sequence (literal "")))) (define %html-ext% ".@HTML_EXT@") (define %root-filename% "index") (define html-manifest #t) (define html-manifest-filename "@HTML_MANIFEST@") (define use-output-dir #t) (define %use-id-as-filename% #t)