beckerjc@123: <!DOCTYPE style-sheet PUBLIC "-//James Clark//DTD DSSSL Style Sheet//EN" [
beckerjc@123: <!ENTITY dbstyle PUBLIC "-//Norman Walsh//DOCUMENT DocBook HTML Stylesheet//EN" CDATA DSSSL>
beckerjc@123: ]>
beckerjc@123: 
beckerjc@123: <style-sheet>
beckerjc@123: <style-specification use="docbook">
beckerjc@123: <style-specification-body>
beckerjc@123: 
beckerjc@153: (define x "25")
beckerjc@153: (define nnl (named-node-list-names (attributes current-node)))
beckerjc@153: (define attributumok (attributes current-node))
beckerjc@153: 
beckerjc@153: 
beckerjc@123: (element etik:class
beckerjc@153:   (make sequence
beckerjc@153:           (if (attribute-string "id")
beckerjc@153:               (make element gi: "A"
beckerjc@153:                     attributes: (list (list "NAME" (attribute-string "id")))
beckerjc@153:                     (empty-sosofo))
beckerjc@153:               (empty-sosofo))
beckerjc@153: 	  
beckerjc@153: 
beckerjc@153: 	  (if (attribute-string "xreflabel") (empty-sosofo)
beckerjc@153: 	      ( literal "ures xreflabel"))
beckerjc@153: 
beckerjc@153: ;;    (toc-entry (current-node))
beckerjc@153:     (process-children)))
beckerjc@123: 
beckerjc@123: (element (etik:class etik:name)
beckerjc@123:   (make element gi: "H2"
beckerjc@123:     (process-children)))
beckerjc@123: 
beckerjc@123: (element (etik:class etik:description)
beckerjc@123:   (make sequence
beckerjc@123:     (make element gi: "H3"
beckerjc@123: 	  (literal "Description"))
beckerjc@123:     (make element gi: "P"
beckerjc@123: 	  (process-children))))
beckerjc@123: 
beckerjc@123: (element (etik:class etik:example)
beckerjc@123:   (make sequence
beckerjc@123:     (make element gi: "H3"
beckerjc@123: 	  (literal "Example"))
beckerjc@123:     (make element gi: "P"
beckerjc@123: 	  (process-children))))
beckerjc@123: 
beckerjc@123: (element (etik:class etik:definition)
beckerjc@123:   (make sequence
beckerjc@123:     (make element gi: "H3"
beckerjc@123: 	  (literal "Definition"))
beckerjc@123:     (make element gi: "P"
beckerjc@123: 	  (process-children))))
beckerjc@123: 
beckerjc@123: (element (etik:template_param etik:templ_name)
beckerjc@123:   (make element gi: "TD"
beckerjc@123:     (process-children)))
beckerjc@123: (element (etik:template_param etik:templ_description)
beckerjc@123:   (make element gi: "TD"
beckerjc@123:     (process-children)))
beckerjc@123: (element (etik:template_param etik:templ_requirement)
beckerjc@123:   (make element gi: "TD"
beckerjc@123:     (process-children)))
beckerjc@123: (element (etik:template_param etik:templ_default)
beckerjc@123:   (make element gi: "TD"
beckerjc@123:     (process-children)))
beckerjc@123: 
beckerjc@123: (element (etik:template_params etik:template_param)  
beckerjc@123:   (make element gi: "TR"
beckerjc@123: 	  (process-children)))
beckerjc@123: 
beckerjc@123: (element (etik:class etik:template_params)
beckerjc@123:   (make sequence
beckerjc@123:     (make element gi: "H3"
beckerjc@123: 	  (literal "Template parameters"))
beckerjc@123:     (make element gi: "TABLE"
beckerjc@123: 	  attributes: (list
beckerjc@123: 		       (list "CELLSPACING" "1")
beckerjc@123: 		       (list "BORDER" "1"))
beckerjc@123:  	  (make element gi: "TR"
beckerjc@123: 	    (make element gi: "TH"  (literal "Name"))
beckerjc@123: 	    (make element gi: "TH"  (literal "Description"))
beckerjc@123: 	    (make element gi: "TH"  (literal "Requirement"))
beckerjc@123: 	    (make element gi: "TH"  (literal "Default")))
beckerjc@123: 	    (process-children))))
beckerjc@123: 
beckerjc@123: 
beckerjc@123: (element (etik:member etik:m_name)
beckerjc@123:   (make element gi: "TD"
beckerjc@123:     (process-children)))
beckerjc@123: (element (etik:member etik:m_where_def)
beckerjc@123:   (make element gi: "TD"
beckerjc@123:     (process-children)))
beckerjc@123: (element (etik:member etik:m_description)
beckerjc@123:   (make element gi: "TD"
beckerjc@123:     (process-children)))
beckerjc@123: 
beckerjc@123: (element (etik:members etik:member)  
beckerjc@123:   (make element gi: "TR"
beckerjc@123: 	  (process-children)))
beckerjc@123: 
beckerjc@123: (element (etik:class etik:members)
beckerjc@123:   (make sequence
beckerjc@123:     (make element gi: "H3"
beckerjc@123: 	  (literal "Public members"))
beckerjc@123:     (make element gi: "TABLE"
beckerjc@123: 	  attributes: (list
beckerjc@123: 		       (list "CELLSPACING" "1")
beckerjc@123: 		       (list "BORDER" "1"))
beckerjc@123:  	  (make element gi: "TR"
beckerjc@123: 	    (make element gi: "TH"  (literal "Name"))
beckerjc@123: 	    (make element gi: "TH"  (literal "Where defined"))
beckerjc@123: 	    (make element gi: "TH"  (literal "Description"))
beckerjc@123: 	    (process-children)))))
beckerjc@123: 
beckerjc@153: (element (etik:class etik:prot_members)
beckerjc@153:   (make sequence
beckerjc@153:     (make element gi: "H3"
beckerjc@153: 	  (literal "Protected members"))
beckerjc@153:     (make element gi: "TABLE"
beckerjc@153: 	  attributes: (list
beckerjc@153: 		       (list "CELLSPACING" "1")
beckerjc@153: 		       (list "BORDER" "1"))
beckerjc@153:  	  (make element gi: "TR"
beckerjc@153: 	    (make element gi: "TH"  (literal "Name"))
beckerjc@153: 	    (make element gi: "TH"  (literal "Where defined"))
beckerjc@153: 	    (make element gi: "TH"  (literal "Description"))
beckerjc@153: 	    (process-children)))))
beckerjc@153: 
beckerjc@153: (element (etik:prot_members etik:member)  
beckerjc@153:   (make element gi: "TR"
beckerjc@153: 	  (process-children)))
beckerjc@153: 
beckerjc@153: (element (etik:class etik:priv_members)
beckerjc@153:   (make sequence
beckerjc@153:     (make element gi: "H3"
beckerjc@153: 	  (literal "Private members"))
beckerjc@153:     (make element gi: "TABLE"
beckerjc@153: 	  attributes: (list
beckerjc@153: 		       (list "CELLSPACING" "1")
beckerjc@153: 		       (list "BORDER" "1"))
beckerjc@153:  	  (make element gi: "TR"
beckerjc@153: 	    (make element gi: "TH"  (literal "Name"))
beckerjc@153: 	    (make element gi: "TH"  (literal "Where defined"))
beckerjc@153: 	    (make element gi: "TH"  (literal "Description"))
beckerjc@153: 	    (process-children)))))
beckerjc@153: 
beckerjc@153: (element (etik:priv_members etik:member)  
beckerjc@153:   (make element gi: "TR"
beckerjc@153: 	  (process-children)))
beckerjc@153: 
beckerjc@126: (element (etik:example etik:code)
beckerjc@126:   ($verbatim-display$
beckerjc@126:    #f   ;; mivel indentaljon
beckerjc@126:    #f)) ;; legyen-e sorszamozas
beckerjc@126: 
beckerjc@153: (element (etik:class etik:notes)  
beckerjc@153:   (make sequence
beckerjc@153:     (make element gi: "H3"
beckerjc@153: 	  (literal "Notes"))
beckerjc@153:     (make element gi: "P"
beckerjc@153: 	  (process-children))))
beckerjc@153: 
beckerjc@153: (element (etik:class etik:category)
beckerjc@153:   (make sequence
beckerjc@153:     (make element gi: "H3"
beckerjc@153: 	  (literal "Category"))
beckerjc@153:     (make element gi: "P"
beckerjc@153: 	  (process-children))))
beckerjc@153: 
beckerjc@123: 
beckerjc@123: </style-specification-body>
beckerjc@123: </style-specification>
beckerjc@123: <external-specification id="docbook" document="dbstyle">
beckerjc@123: </style-sheet>