source: lemon-0.x/doc-docbook/src/etik-ol-html.dsl @ 158:4f54d89fa9d2

<!DOCTYPE style-sheet PUBLIC "-//James Clark//DTD DSSSL Style Sheet//EN" [
<!ENTITY dbstyle PUBLIC "-//Norman Walsh//DOCUMENT DocBook HTML Stylesheet//EN" CDATA DSSSL>
]>

<style-sheet>
<style-specification use="docbook">
<style-specification-body>

(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))))


</style-specification-body>
</style-specification>
<external-specification id="docbook" document="dbstyle">
</style-sheet>