cvs: phpdoc / html-common.dsl

hholzgra Wed May 16 16:37:26 2001 EDT Modified files: /phpdoc html-common.dsl Log: make <type> link to language.types.-typename- pages Index: phpdoc/html-common.dsl diff -u phpdoc/html-common.dsl:1.9 phpdoc/html-common.dsl:1.10 --- phpdoc/html-common.dsl:1.9 Wed May 16 10:52:54 2001 +++ phpdoc/html-common.dsl Wed May 16 16:37:25 2001 @@ -1,6 +1,6 @@ ;; -*- Scheme -*- ;; -;; $Id: html-common.dsl,v 1.9 2001/05/16 17:52:54 hholzgra Exp $ +;; $Id: html-common.dsl,v 1.10 2001/05/16 23:37:25 hholzgra Exp $ ;; ;; Returns the depth of the auto-generated TOC (table of contents) that @@ -146,6 +146,23 @@ (element (funcprototype varargs) (make sequence ( literal " (...)" ))) + + +(element type + (let* ((orig-name (data (current-node))) + (type-name (cond + ((equal-ci? orig-name "float") "double") + ((equal-ci? orig-name "int") "integer") + (else orig-name))) + (linkend (string-append "language.types." type-name)) + (target (element-with-id linkend)) + ) + (make element gi: "A" + attributes: (list (list "HREF" (href-to target))) + ($bold-seq$ (make sequence (process-children) ) ) + ) + ) + ) (element function