Mercuriallemon-0.x / file revision
summary | shortlog | changelog | graph | tags | bookmarks | branches | files | changeset | file | latest | revisions | annotate | diff | comparison | raw | help
doc-docbook/src/etik-ol-html.dsl
author klao
Sat, 03 Apr 2004 18:21:25 +0000
changeset 282 7f85e99502db
parent 126 89c6e4687fcc
permissions -rw-r--r--
Bit more elaborated map concepts 
     1 <!DOCTYPE style-sheet PUBLIC "-//James Clark//DTD DSSSL Style Sheet//EN" [

     2 <!ENTITY dbstyle PUBLIC "-//Norman Walsh//DOCUMENT DocBook HTML Stylesheet//EN" CDATA DSSSL>

     3 ]>

     4 

     5 <style-sheet>

     6 <style-specification use="docbook">

     7 <style-specification-body>

     8 

     9 (define x "25")

    10 (define nnl (named-node-list-names (attributes current-node)))

    11 (define attributumok (attributes current-node))

    12 

    13 

    14 (element etik:class

    15   (make sequence

    16           (if (attribute-string "id")

    17               (make element gi: "A"

    18                     attributes: (list (list "NAME" (attribute-string "id")))

    19                     (empty-sosofo))

    20               (empty-sosofo))

    21 	  

    22 

    23 	  (if (attribute-string "xreflabel") (empty-sosofo)

    24 	      ( literal "ures xreflabel"))

    25 

    26 ;;    (toc-entry (current-node))

    27     (process-children)))

    28 

    29 (element (etik:class etik:name)

    30   (make element gi: "H2"

    31     (process-children)))

    32 

    33 (element (etik:class etik:description)

    34   (make sequence

    35     (make element gi: "H3"

    36 	  (literal "Description"))

    37     (make element gi: "P"

    38 	  (process-children))))

    39 

    40 (element (etik:class etik:example)

    41   (make sequence

    42     (make element gi: "H3"

    43 	  (literal "Example"))

    44     (make element gi: "P"

    45 	  (process-children))))

    46 

    47 (element (etik:class etik:definition)

    48   (make sequence

    49     (make element gi: "H3"

    50 	  (literal "Definition"))

    51     (make element gi: "P"

    52 	  (process-children))))

    53 

    54 (element (etik:template_param etik:templ_name)

    55   (make element gi: "TD"

    56     (process-children)))

    57 (element (etik:template_param etik:templ_description)

    58   (make element gi: "TD"

    59     (process-children)))

    60 (element (etik:template_param etik:templ_requirement)

    61   (make element gi: "TD"

    62     (process-children)))

    63 (element (etik:template_param etik:templ_default)

    64   (make element gi: "TD"

    65     (process-children)))

    66 

    67 (element (etik:template_params etik:template_param)  

    68   (make element gi: "TR"

    69 	  (process-children)))

    70 

    71 (element (etik:class etik:template_params)

    72   (make sequence

    73     (make element gi: "H3"

    74 	  (literal "Template parameters"))

    75     (make element gi: "TABLE"

    76 	  attributes: (list

    77 		       (list "CELLSPACING" "1")

    78 		       (list "BORDER" "1"))

    79  	  (make element gi: "TR"

    80 	    (make element gi: "TH"  (literal "Name"))

    81 	    (make element gi: "TH"  (literal "Description"))

    82 	    (make element gi: "TH"  (literal "Requirement"))

    83 	    (make element gi: "TH"  (literal "Default")))

    84 	    (process-children))))

    85 

    86 

    87 (element (etik:member etik:m_name)

    88   (make element gi: "TD"

    89     (process-children)))

    90 (element (etik:member etik:m_where_def)

    91   (make element gi: "TD"

    92     (process-children)))

    93 (element (etik:member etik:m_description)

    94   (make element gi: "TD"

    95     (process-children)))

    96 

    97 (element (etik:members etik:member)  

    98   (make element gi: "TR"

    99 	  (process-children)))

   100 

   101 (element (etik:class etik:members)

   102   (make sequence

   103     (make element gi: "H3"

   104 	  (literal "Public members"))

   105     (make element gi: "TABLE"

   106 	  attributes: (list

   107 		       (list "CELLSPACING" "1")

   108 		       (list "BORDER" "1"))

   109  	  (make element gi: "TR"

   110 	    (make element gi: "TH"  (literal "Name"))

   111 	    (make element gi: "TH"  (literal "Where defined"))

   112 	    (make element gi: "TH"  (literal "Description"))

   113 	    (process-children)))))

   114 

   115 (element (etik:class etik:prot_members)

   116   (make sequence

   117     (make element gi: "H3"

   118 	  (literal "Protected members"))

   119     (make element gi: "TABLE"

   120 	  attributes: (list

   121 		       (list "CELLSPACING" "1")

   122 		       (list "BORDER" "1"))

   123  	  (make element gi: "TR"

   124 	    (make element gi: "TH"  (literal "Name"))

   125 	    (make element gi: "TH"  (literal "Where defined"))

   126 	    (make element gi: "TH"  (literal "Description"))

   127 	    (process-children)))))

   128 

   129 (element (etik:prot_members etik:member)  

   130   (make element gi: "TR"

   131 	  (process-children)))

   132 

   133 (element (etik:class etik:priv_members)

   134   (make sequence

   135     (make element gi: "H3"

   136 	  (literal "Private members"))

   137     (make element gi: "TABLE"

   138 	  attributes: (list

   139 		       (list "CELLSPACING" "1")

   140 		       (list "BORDER" "1"))

   141  	  (make element gi: "TR"

   142 	    (make element gi: "TH"  (literal "Name"))

   143 	    (make element gi: "TH"  (literal "Where defined"))

   144 	    (make element gi: "TH"  (literal "Description"))

   145 	    (process-children)))))

   146 

   147 (element (etik:priv_members etik:member)  

   148   (make element gi: "TR"

   149 	  (process-children)))

   150 

   151 (element (etik:example etik:code)

   152   ($verbatim-display$

   153    #f   ;; mivel indentaljon

   154    #f)) ;; legyen-e sorszamozas

   155 

   156 (element (etik:class etik:notes)  

   157   (make sequence

   158     (make element gi: "H3"

   159 	  (literal "Notes"))

   160     (make element gi: "P"

   161 	  (process-children))))

   162 

   163 (element (etik:class etik:category)

   164   (make sequence

   165     (make element gi: "H3"

   166 	  (literal "Category"))

   167     (make element gi: "P"

   168 	  (process-children))))

   169 

   170 

   171 </style-specification-body>

   172 </style-specification>

   173 <external-specification id="docbook" document="dbstyle">

   174 </style-sheet>
lemon-0.x