Changeset 153:7309f1b3fc47 in lemon-0.x for doc-docbook/src/etik-ol-html.dsl

Timestamp:

03/04/04 14:08:17 (20 years ago)

Author:

beckerjc

Branch:

default

Phase:

public

Convert:

svn:c9d7d8f5-90d6-0310-b91f-818b3a526b0e/lemon/trunk@214

Message:

.

File:

• doc-docbook/src/etik-ol-html.dsl (modified) (2 diffs)

doc-docbook/src/etik-ol-html.dsl

@@ -7 +7 @@
 <style-specification-body>
 
+(define x "25")
+(define nnl (named-node-list-names (attributes current-node)))
+(define attributumok (attributes current-node))
+
+
 (element etik:class
-            (process-children))
+  (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)
@@ -96 +113 @@
             (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))))