1.1 --- a/doc-docbook/src/etik-ol-html.dsl	Thu Mar 04 13:01:53 2004 +0000
     1.2 +++ b/doc-docbook/src/etik-ol-html.dsl	Thu Mar 04 13:08:17 2004 +0000
     1.3 @@ -6,8 +6,25 @@
     1.4  <style-specification use="docbook">
     1.5  <style-specification-body>
     1.6  
     1.7 +(define x "25")
     1.8 +(define nnl (named-node-list-names (attributes current-node)))
     1.9 +(define attributumok (attributes current-node))
    1.10 +
    1.11 +
    1.12  (element etik:class
    1.13 -            (process-children))
    1.14 +  (make sequence
    1.15 +          (if (attribute-string "id")
    1.16 +              (make element gi: "A"
    1.17 +                    attributes: (list (list "NAME" (attribute-string "id")))
    1.18 +                    (empty-sosofo))
    1.19 +              (empty-sosofo))
    1.20 +	  
    1.21 +
    1.22 +	  (if (attribute-string "xreflabel") (empty-sosofo)
    1.23 +	      ( literal "ures xreflabel"))
    1.24 +
    1.25 +;;    (toc-entry (current-node))
    1.26 +    (process-children)))
    1.27  
    1.28  (element (etik:class etik:name)
    1.29    (make element gi: "H2"
    1.30 @@ -95,11 +112,61 @@
    1.31  	    (make element gi: "TH"  (literal "Description"))
    1.32  	    (process-children)))))
    1.33  
    1.34 +(element (etik:class etik:prot_members)
    1.35 +  (make sequence
    1.36 +    (make element gi: "H3"
    1.37 +	  (literal "Protected members"))
    1.38 +    (make element gi: "TABLE"
    1.39 +	  attributes: (list
    1.40 +		       (list "CELLSPACING" "1")
    1.41 +		       (list "BORDER" "1"))
    1.42 + 	  (make element gi: "TR"
    1.43 +	    (make element gi: "TH"  (literal "Name"))
    1.44 +	    (make element gi: "TH"  (literal "Where defined"))
    1.45 +	    (make element gi: "TH"  (literal "Description"))
    1.46 +	    (process-children)))))
    1.47 +
    1.48 +(element (etik:prot_members etik:member)  
    1.49 +  (make element gi: "TR"
    1.50 +	  (process-children)))
    1.51 +
    1.52 +(element (etik:class etik:priv_members)
    1.53 +  (make sequence
    1.54 +    (make element gi: "H3"
    1.55 +	  (literal "Private members"))
    1.56 +    (make element gi: "TABLE"
    1.57 +	  attributes: (list
    1.58 +		       (list "CELLSPACING" "1")
    1.59 +		       (list "BORDER" "1"))
    1.60 + 	  (make element gi: "TR"
    1.61 +	    (make element gi: "TH"  (literal "Name"))
    1.62 +	    (make element gi: "TH"  (literal "Where defined"))
    1.63 +	    (make element gi: "TH"  (literal "Description"))
    1.64 +	    (process-children)))))
    1.65 +
    1.66 +(element (etik:priv_members etik:member)  
    1.67 +  (make element gi: "TR"
    1.68 +	  (process-children)))
    1.69 +
    1.70  (element (etik:example etik:code)
    1.71    ($verbatim-display$
    1.72     #f   ;; mivel indentaljon
    1.73     #f)) ;; legyen-e sorszamozas
    1.74  
    1.75 +(element (etik:class etik:notes)  
    1.76 +  (make sequence
    1.77 +    (make element gi: "H3"
    1.78 +	  (literal "Notes"))
    1.79 +    (make element gi: "P"
    1.80 +	  (process-children))))
    1.81 +
    1.82 +(element (etik:class etik:category)
    1.83 +  (make sequence
    1.84 +    (make element gi: "H3"
    1.85 +	  (literal "Category"))
    1.86 +    (make element gi: "P"
    1.87 +	  (process-children))))
    1.88 +
    1.89  
    1.90  </style-specification-body>
    1.91  </style-specification>