[srm-cvs] CVS Update: - Add proper stylesheets for constructor synopsis

Date: Wed Nov 13 12:01:02 CET 2002
User: Derick Rethans
Directory: srmdoc

Log Message:
 [0.25]
 - Add proper stylesheets for constructor synopsis
 
Modified files:
           srmdoc/html-common.dsl (version: 1.6)

[FILE: /srmdoc/html-common.dsl]

--- srmdoc/html-common.dsl:1.5 Sun Feb 10 18:21:40 2002 GMT
+++ srmdoc/html-common.dsl Wed Nov 13 10:01:02 2002 GMT
@@ -1,6 +1,6 @@
 ;; -*- Scheme -*-
 ;;
-;; $Id: cvstemp,v 1.5 2002/02/10 19:21:40 derick Exp $
+;; $Id: cvstemp,v 1.6 2002/11/13 11:01:02 derick Exp $
 ;;
 
 ;; Returns the depth of the auto-generated TOC (table of contents) that
@@ -378,6 +378,19 @@
         )
 )
 
+(element (classsynopsis constructorsynopsis)
+ (make sequence
+ (make element gi: "DIV"
+ attributes: (list (list "CLASS" (gi)))
+ (make sequence
+ (literal "\U-00A0;\U-00A0;\U-00A0;\U-00A0;")
+ (process-children)
+ (literal ");") ;; close parameter list
+ )
+ )
+ )
+)
+
 (element (refsect2 fieldsynopsis)
         (make sequence
         (make element gi: "DIV"
@@ -390,6 +403,18 @@
         )
 )
 
+(element (refsect2 constructorsynopsis)
+ (make sequence
+ (make element gi: "DIV"
+ attributes: (list (list "CLASS" (gi)))
+ (make sequence
+ (process-children)
+ (literal ";") ;; close parameter list
+ )
+ )
+ )
+)
+
 ;; render methodsynopsis
 (element methodsynopsis
         (make sequence
@@ -399,6 +424,15 @@
     )
 )
 
+;; render constructorsynopsis
+(element constructorsynopsis
+ (make sequence
+ (process-children) ;; render content
+ (methodsynopsis-generate-closing-optionals (children (current-node))) ;; close optional brackets
+ (literal ")") ;; close parameter list
+ )
+)
+
 ;; render function name
 (element (fieldsynopsis varname)
         (make sequence
@@ -419,6 +453,49 @@
                 )
         )
 
+;; render function name
+(element (constructorsynopsis methodname)
+ (make sequence
+ ($bold-seq$
+ (process-children-trim)
+ )
+ (literal " (") ;; start parameter list
+ )
+ )
+
+;; render parameters
+(element (constructorsynopsis methodparam)
+ (make sequence
+ ;; special case -> first parameter is optional
+ (if (equal? (gi (ipreced (current-node))) (normalize "methodparam"))
+ (empty-sosofo) ;; have prev. parameters -> is not first
+ (if (equal? (attribute-string (normalize "choice")) "opt")
+ (literal %arg-choice-opt-open-str%) ;; generate opening bracket
+ (empty-sosofo)
+ )
+ )
+
+ (process-children-trim)
+
+ ;; have more parameters following me?
+ (if (equal? (gi (ifollow (current-node))) (normalize "methodparam"))
+ (make sequence
+ ;; is next parameter optional?
+ (if (equal? (attribute-string (normalize "choice") (ifollow (current-node))) "opt")
+ (make sequence
+ (literal " ")
+ (literal %arg-choice-opt-open-str%)
+ )
+ (empty-sosofo)
+ )
+ ;; parameter list separator
+ (literal ", ")
+ )
+ (empty-sosofo)
+ )
+ )
+ )
+
 ;; render parameters
 (element (methodsynopsis methodparam)
         (make sequence
@@ -452,6 +529,10 @@
     )
   )
 
+(element (constructorsynopsis void)
+ (literal "")
+)
+
 (element (methodsynopsis void)
         (literal "")
 )
@@ -467,6 +548,15 @@
         )
   
 ;; render return type
+(element (constructorsynopsis type)
+ (make sequence
+ (make element gi: "SPAN"
+ attributes: (list (list "CLASS" (gi))))
+ (literal " ")
+ )
+ )
+
+;; render return type
 (element (methodsynopsis type)
         (make sequence
         (make element gi: "SPAN"
@@ -488,5 +578,14 @@
 (element (methodparam parameter)
         (make sequence
                 (process-children-trim)
+ )
+ )
+
+;; render return type
+(element (constructorsynopsis type)
+ (make sequence
+ (make element gi: "SPAN"
+ attributes: (list (list "CLASS" (gi))))
+ (literal " ")
                 )
         )
Received on Wed Nov 13 11:59:57 2002