doc-docbook/src/etik-ol-html.dsl
author alpar
Fri, 19 Mar 2004 07:58:58 +0000
changeset 204 d8107ae24128
parent 126 89c6e4687fcc
permissions -rw-r--r--
.
beckerjc@123
     1
<!DOCTYPE style-sheet PUBLIC "-//James Clark//DTD DSSSL Style Sheet//EN" [
beckerjc@123
     2
<!ENTITY dbstyle PUBLIC "-//Norman Walsh//DOCUMENT DocBook HTML Stylesheet//EN" CDATA DSSSL>
beckerjc@123
     3
]>
beckerjc@123
     4
beckerjc@123
     5
<style-sheet>
beckerjc@123
     6
<style-specification use="docbook">
beckerjc@123
     7
<style-specification-body>
beckerjc@123
     8
beckerjc@153
     9
(define x "25")
beckerjc@153
    10
(define nnl (named-node-list-names (attributes current-node)))
beckerjc@153
    11
(define attributumok (attributes current-node))
beckerjc@153
    12
beckerjc@153
    13
beckerjc@123
    14
(element etik:class
beckerjc@153
    15
  (make sequence
beckerjc@153
    16
          (if (attribute-string "id")
beckerjc@153
    17
              (make element gi: "A"
beckerjc@153
    18
                    attributes: (list (list "NAME" (attribute-string "id")))
beckerjc@153
    19
                    (empty-sosofo))
beckerjc@153
    20
              (empty-sosofo))
beckerjc@153
    21
	  
beckerjc@153
    22
beckerjc@153
    23
	  (if (attribute-string "xreflabel") (empty-sosofo)
beckerjc@153
    24
	      ( literal "ures xreflabel"))
beckerjc@153
    25
beckerjc@153
    26
;;    (toc-entry (current-node))
beckerjc@153
    27
    (process-children)))
beckerjc@123
    28
beckerjc@123
    29
(element (etik:class etik:name)
beckerjc@123
    30
  (make element gi: "H2"
beckerjc@123
    31
    (process-children)))
beckerjc@123
    32
beckerjc@123
    33
(element (etik:class etik:description)
beckerjc@123
    34
  (make sequence
beckerjc@123
    35
    (make element gi: "H3"
beckerjc@123
    36
	  (literal "Description"))
beckerjc@123
    37
    (make element gi: "P"
beckerjc@123
    38
	  (process-children))))
beckerjc@123
    39
beckerjc@123
    40
(element (etik:class etik:example)
beckerjc@123
    41
  (make sequence
beckerjc@123
    42
    (make element gi: "H3"
beckerjc@123
    43
	  (literal "Example"))
beckerjc@123
    44
    (make element gi: "P"
beckerjc@123
    45
	  (process-children))))
beckerjc@123
    46
beckerjc@123
    47
(element (etik:class etik:definition)
beckerjc@123
    48
  (make sequence
beckerjc@123
    49
    (make element gi: "H3"
beckerjc@123
    50
	  (literal "Definition"))
beckerjc@123
    51
    (make element gi: "P"
beckerjc@123
    52
	  (process-children))))
beckerjc@123
    53
beckerjc@123
    54
(element (etik:template_param etik:templ_name)
beckerjc@123
    55
  (make element gi: "TD"
beckerjc@123
    56
    (process-children)))
beckerjc@123
    57
(element (etik:template_param etik:templ_description)
beckerjc@123
    58
  (make element gi: "TD"
beckerjc@123
    59
    (process-children)))
beckerjc@123
    60
(element (etik:template_param etik:templ_requirement)
beckerjc@123
    61
  (make element gi: "TD"
beckerjc@123
    62
    (process-children)))
beckerjc@123
    63
(element (etik:template_param etik:templ_default)
beckerjc@123
    64
  (make element gi: "TD"
beckerjc@123
    65
    (process-children)))
beckerjc@123
    66
beckerjc@123
    67
(element (etik:template_params etik:template_param)  
beckerjc@123
    68
  (make element gi: "TR"
beckerjc@123
    69
	  (process-children)))
beckerjc@123
    70
beckerjc@123
    71
(element (etik:class etik:template_params)
beckerjc@123
    72
  (make sequence
beckerjc@123
    73
    (make element gi: "H3"
beckerjc@123
    74
	  (literal "Template parameters"))
beckerjc@123
    75
    (make element gi: "TABLE"
beckerjc@123
    76
	  attributes: (list
beckerjc@123
    77
		       (list "CELLSPACING" "1")
beckerjc@123
    78
		       (list "BORDER" "1"))
beckerjc@123
    79
 	  (make element gi: "TR"
beckerjc@123
    80
	    (make element gi: "TH"  (literal "Name"))
beckerjc@123
    81
	    (make element gi: "TH"  (literal "Description"))
beckerjc@123
    82
	    (make element gi: "TH"  (literal "Requirement"))
beckerjc@123
    83
	    (make element gi: "TH"  (literal "Default")))
beckerjc@123
    84
	    (process-children))))
beckerjc@123
    85
beckerjc@123
    86
beckerjc@123
    87
(element (etik:member etik:m_name)
beckerjc@123
    88
  (make element gi: "TD"
beckerjc@123
    89
    (process-children)))
beckerjc@123
    90
(element (etik:member etik:m_where_def)
beckerjc@123
    91
  (make element gi: "TD"
beckerjc@123
    92
    (process-children)))
beckerjc@123
    93
(element (etik:member etik:m_description)
beckerjc@123
    94
  (make element gi: "TD"
beckerjc@123
    95
    (process-children)))
beckerjc@123
    96
beckerjc@123
    97
(element (etik:members etik:member)  
beckerjc@123
    98
  (make element gi: "TR"
beckerjc@123
    99
	  (process-children)))
beckerjc@123
   100
beckerjc@123
   101
(element (etik:class etik:members)
beckerjc@123
   102
  (make sequence
beckerjc@123
   103
    (make element gi: "H3"
beckerjc@123
   104
	  (literal "Public members"))
beckerjc@123
   105
    (make element gi: "TABLE"
beckerjc@123
   106
	  attributes: (list
beckerjc@123
   107
		       (list "CELLSPACING" "1")
beckerjc@123
   108
		       (list "BORDER" "1"))
beckerjc@123
   109
 	  (make element gi: "TR"
beckerjc@123
   110
	    (make element gi: "TH"  (literal "Name"))
beckerjc@123
   111
	    (make element gi: "TH"  (literal "Where defined"))
beckerjc@123
   112
	    (make element gi: "TH"  (literal "Description"))
beckerjc@123
   113
	    (process-children)))))
beckerjc@123
   114
beckerjc@153
   115
(element (etik:class etik:prot_members)
beckerjc@153
   116
  (make sequence
beckerjc@153
   117
    (make element gi: "H3"
beckerjc@153
   118
	  (literal "Protected members"))
beckerjc@153
   119
    (make element gi: "TABLE"
beckerjc@153
   120
	  attributes: (list
beckerjc@153
   121
		       (list "CELLSPACING" "1")
beckerjc@153
   122
		       (list "BORDER" "1"))
beckerjc@153
   123
 	  (make element gi: "TR"
beckerjc@153
   124
	    (make element gi: "TH"  (literal "Name"))
beckerjc@153
   125
	    (make element gi: "TH"  (literal "Where defined"))
beckerjc@153
   126
	    (make element gi: "TH"  (literal "Description"))
beckerjc@153
   127
	    (process-children)))))
beckerjc@153
   128
beckerjc@153
   129
(element (etik:prot_members etik:member)  
beckerjc@153
   130
  (make element gi: "TR"
beckerjc@153
   131
	  (process-children)))
beckerjc@153
   132
beckerjc@153
   133
(element (etik:class etik:priv_members)
beckerjc@153
   134
  (make sequence
beckerjc@153
   135
    (make element gi: "H3"
beckerjc@153
   136
	  (literal "Private members"))
beckerjc@153
   137
    (make element gi: "TABLE"
beckerjc@153
   138
	  attributes: (list
beckerjc@153
   139
		       (list "CELLSPACING" "1")
beckerjc@153
   140
		       (list "BORDER" "1"))
beckerjc@153
   141
 	  (make element gi: "TR"
beckerjc@153
   142
	    (make element gi: "TH"  (literal "Name"))
beckerjc@153
   143
	    (make element gi: "TH"  (literal "Where defined"))
beckerjc@153
   144
	    (make element gi: "TH"  (literal "Description"))
beckerjc@153
   145
	    (process-children)))))
beckerjc@153
   146
beckerjc@153
   147
(element (etik:priv_members etik:member)  
beckerjc@153
   148
  (make element gi: "TR"
beckerjc@153
   149
	  (process-children)))
beckerjc@153
   150
beckerjc@126
   151
(element (etik:example etik:code)
beckerjc@126
   152
  ($verbatim-display$
beckerjc@126
   153
   #f   ;; mivel indentaljon
beckerjc@126
   154
   #f)) ;; legyen-e sorszamozas
beckerjc@126
   155
beckerjc@153
   156
(element (etik:class etik:notes)  
beckerjc@153
   157
  (make sequence
beckerjc@153
   158
    (make element gi: "H3"
beckerjc@153
   159
	  (literal "Notes"))
beckerjc@153
   160
    (make element gi: "P"
beckerjc@153
   161
	  (process-children))))
beckerjc@153
   162
beckerjc@153
   163
(element (etik:class etik:category)
beckerjc@153
   164
  (make sequence
beckerjc@153
   165
    (make element gi: "H3"
beckerjc@153
   166
	  (literal "Category"))
beckerjc@153
   167
    (make element gi: "P"
beckerjc@153
   168
	  (process-children))))
beckerjc@153
   169
beckerjc@123
   170
beckerjc@123
   171
</style-specification-body>
beckerjc@123
   172
</style-specification>
beckerjc@123
   173
<external-specification id="docbook" document="dbstyle">
beckerjc@123
   174
</style-sheet>