diff -r d3c4d99860a9 -r 5f42cb5cc1bf doc-docbook/src/etik-ol-html.dsl --- a/doc-docbook/src/etik-ol-html.dsl Sat Apr 03 20:33:05 2004 +0000 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,174 +0,0 @@ - -]> - - - - - -(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)))) - - - - - -