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


Reply via email to