]> (define x "25") (define nnl (named-node-list-names (attributes current-node))) (define attributumok (attributes current-node)) (element etik:class (make sequence (if (attribute-string "id") (make element gi: "A" attributes: (list (list "NAME" (attribute-string "id"))) (empty-sosofo)) (empty-sosofo)) (if (attribute-string "xreflabel") (empty-sosofo) ( literal "ures xreflabel")) ;; (toc-entry (current-node)) (process-children))) (element (etik:class etik:name) (make element gi: "H2" (process-children))) (element (etik:class etik:description) (make sequence (make element gi: "H3" (literal "Description")) (make element gi: "P" (process-children)))) (element (etik:class etik:example) (make sequence (make element gi: "H3" (literal "Example")) (make element gi: "P" (process-children)))) (element (etik:class etik:definition) (make sequence (make element gi: "H3" (literal "Definition")) (make element gi: "P" (process-children)))) (element (etik:template_param etik:templ_name) (make element gi: "TD" (process-children))) (element (etik:template_param etik:templ_description) (make element gi: "TD" (process-children))) (element (etik:template_param etik:templ_requirement) (make element gi: "TD" (process-children))) (element (etik:template_param etik:templ_default) (make element gi: "TD" (process-children))) (element (etik:template_params etik:template_param) (make element gi: "TR" (process-children))) (element (etik:class etik:template_params) (make sequence (make element gi: "H3" (literal "Template parameters")) (make element gi: "TABLE" attributes: (list (list "CELLSPACING" "1") (list "BORDER" "1")) (make element gi: "TR" (make element gi: "TH" (literal "Name")) (make element gi: "TH" (literal "Description")) (make element gi: "TH" (literal "Requirement")) (make element gi: "TH" (literal "Default"))) (process-children)))) (element (etik:member etik:m_name) (make element gi: "TD" (process-children))) (element (etik:member etik:m_where_def) (make element gi: "TD" (process-children))) (element (etik:member etik:m_description) (make element gi: "TD" (process-children))) (element (etik:members etik:member) (make element gi: "TR" (process-children))) (element (etik:class etik:members) (make sequence (make element gi: "H3" (literal "Public members")) (make element gi: "TABLE" attributes: (list (list "CELLSPACING" "1") (list "BORDER" "1")) (make element gi: "TR" (make element gi: "TH" (literal "Name")) (make element gi: "TH" (literal "Where defined")) (make element gi: "TH" (literal "Description")) (process-children))))) (element (etik:class etik:prot_members) (make sequence (make element gi: "H3" (literal "Protected members")) (make element gi: "TABLE" attributes: (list (list "CELLSPACING" "1") (list "BORDER" "1")) (make element gi: "TR" (make element gi: "TH" (literal "Name")) (make element gi: "TH" (literal "Where defined")) (make element gi: "TH" (literal "Description")) (process-children))))) (element (etik:prot_members etik:member) (make element gi: "TR" (process-children))) (element (etik:class etik:priv_members) (make sequence (make element gi: "H3" (literal "Private members")) (make element gi: "TABLE" attributes: (list (list "CELLSPACING" "1") (list "BORDER" "1")) (make element gi: "TR" (make element gi: "TH" (literal "Name")) (make element gi: "TH" (literal "Where defined")) (make element gi: "TH" (literal "Description")) (process-children))))) (element (etik:priv_members etik:member) (make element gi: "TR" (process-children))) (element (etik:example etik:code) ($verbatim-display$ #f ;; mivel indentaljon #f)) ;; legyen-e sorszamozas (element (etik:class etik:notes) (make sequence (make element gi: "H3" (literal "Notes")) (make element gi: "P" (process-children)))) (element (etik:class etik:category) (make sequence (make element gi: "H3" (literal "Category")) (make element gi: "P" (process-children))))