Re: cvs: phpdoc /dsssl html-common.dsl

erm, this was a fake email, I mean, I'm working on another repository for my work and someone replaced my hacked loginfo.pl script with the original one.. sorry for the noise didou Mehdi Achour wrote:

didou Thu Jun 3 06:33:43 2004 EDT

  Modified files:                  /phpdoc/dsssl	html-common.dsl   Log:

new docs http://cvs.php.net/diff.php/phpdoc/dsssl/html-common.dsl?r1=1.13&r2=1.14&ty=u Index: phpdoc/dsssl/html-common.dsl diff -u phpdoc/dsssl/html-common.dsl:1.13 phpdoc/dsssl/html-common.dsl:1.14 --- phpdoc/dsssl/html-common.dsl:1.13 Fri Jan 2 14:00:10 2004 +++ phpdoc/dsssl/html-common.dsl Thu Jun 3 06:33:42 2004 @@ -1,6 +1,6 @@ ;; -*- Scheme -*- ;; -;; $Id: html-common.dsl,v 1.13 2004/01/02 19:00:10 hholzgra Exp $ +;; $Id: html-common.dsl,v 1.14 2004/06/03 10:33:42 didou Exp $ ;; ;; Returns the depth of the auto-generated TOC (table of @@ -8,7 +8,7 @@ (define (toc-depth nd) (if (string=? (gi nd) "book")

       2 ; the depth of the top-level TOC
-      1 ; the depth of all other TOCs
+      3 ; the depth of all other TOCs
       ))
  ;; re-defining element-id as we need to get the id of the parent

@@ -112,34 +112,6 @@

     )

) - -;; Linking types to the correct place -(element type - (let*

-    ((orig-name (data (current-node)))
-      (type-name (cond -        ((equal-ci? orig-name "bool")   "boolean")
-        ((equal-ci? orig-name "double") "float")
-        ((equal-ci? orig-name "int")   "integer")
-        ((equal-ci? orig-name "NULL")   "null")
-        (else orig-name))
-      )
-      (linkend (string-append "language.types." type-name))
-      (target (element-with-id linkend))
-    )
-    (cond ((node-list-empty? target)
-      (make sequence (process-children) )
-      )
-      (else -        (make element gi: "A"
-          attributes: (list (list "HREF" (href-to target)))
-          ( $bold-seq$(make sequence (process-children) ) )
-        )
-      )
-    )

- ) -) - (element function (let* ((function-name (data (current-node)))

      (linkend @@ -188,74 +160,6 @@
            (literal "()"))))))))
  -;; Link for classnames

-(element classname - (let* ((class-name (data (current-node)))

-     (linkend -      (string-append
-       "class." -        (string-replace
-         (case-fold-down class-name) "_" "-")))
-     (target (element-with-id linkend))
-     (parent-gi (gi (parent))))
-    (cond
-     ;; Function names should be plain in SYNOPSIS
-     ((equal? parent-gi "synopsis")
-      (process-children))
-     -     ;; If a valid ID for the target class is not found, or if the
-     ;; CLASSNAME tag is within the definition of the same class,
-     ;; make it bold, but don't make a link
-     ((or (node-list-empty? target)
-      (equal? (case-fold-down
-           (data (node-list-first
-              (select-elements
-               (node-list-first
-                (children
-                 (select-elements
-                  (children
-                   (ancestor-member (parent) (list "refentry")))
-                  "refnamediv")))
-               "refname"))))
-          class-name))
-      ($bold-seq$
-       (process-children)))
-     -     ;; Else make a link to the class
-     (else
-      (make element gi: "A"
-        attributes: (list
-             (list "HREF" (href-to target)))
-        ($bold-seq$
-         (process-children)))))))

- - -;; Linking to constants -(element constant - (let* ((constant-name (data (current-node)))

-     (linkend -      (string-append "constant." -             (case-fold-down
-              (string-replace constant-name "_" "-"))))
-     (target (element-with-id linkend))
-     (parent-gi (gi (parent))))

-

-    (cond
-     ;; If a valid ID for the target constant is not found
-     ;; make it bold, but don't make a link
-     ((or (node-list-empty? target)(attribute-string (normalize "id")(current-node)))

- ($bold-mono-seq$

-       (process-children)))
-     -     ;; Else make a link to the constant
-     (else
-      (make element gi: "A"
-        attributes: (list
-             (list "HREF" (href-to target)))
-        ($bold-mono-seq$
-         (process-children)))))))

- - ;; Dispaly of examples (element example (make sequence @@ -299,27 +203,6 @@

               (literal editor-name)))))

) - -;; Put version info where the refname part in the refnamediv is -(element (refnamediv refname) - (make sequence - (if (node-list-empty?

-     (select-elements (children
-       (select-elements (children (parent (parent (current-node)))) (normalize "refsect1"))
-      ) (normalize "methodsynopsis"))
-    )
-    (empty-sosofo)
-    (make element gi: "P"
-      (literal "    (")
-      (version-info (current-node))
-      (literal ")")
-      )
-    )
-    (process-children)
-    )

- ) - - ;; Display of question tags, link targets (element question (let* ((chlist (children (current-node))) @@ -365,34 +248,7 @@ content (para-check 'restart))))) -;; Special handling of note role="seealso" -(define ($admonpara$)

-  (let* ((title     (select-elements -		     (children (parent (current-node))) (normalize "title")))

- (has-title (not (node-list-empty? title))) - (adm-title (if has-title - (make sequence - (with-mode title-sosofo-mode

-			    (process-node-list (node-list-first title)))
-			  (literal (gentext-label-title-sep -				    (gi (parent (current-node))))))

- (literal - (gentext-element-name - (if (equal? (normalize "seealso") (attribute-string (normalize "role") (parent (current-node)))) - (normalize "seealsoie") - (parent (current-node)))) - (gentext-label-title-sep - (gi (parent (current-node))))))))

-    (make element gi: "P"

- (if (and (not %admon-graphics%) (= (child-number) 1))

-	      (make element gi: "B"
-		    adm-title)
-	      (empty-sosofo))

- (process-children)))) - - - (define (linebreak) (make element gi: "BR" (empty-sosofo))) - -;; vim: ts=2 sw=2 et +(define %html-header-tags% + '(("META" ("HTTP-EQUIV" "Content-type") ("CONTENT" "text/html; charset=ISO-8859-1"))))