hholzgra Mon Jan 16 15:51:53 2006 UTC
Modified files:
/phpdoc/dsssl html-common.dsl
Log:
WS
http://cvs.php.net/viewcvs.cgi/phpdoc/dsssl/html-common.dsl?r1=1.24&r2=1.25&diff_format=u
Index: phpdoc/dsssl/html-common.dsl
diff -u phpdoc/dsssl/html-common.dsl:1.24 phpdoc/dsssl/html-common.dsl:1.25
--- phpdoc/dsssl/html-common.dsl:1.24 Sun Jan 15 13:55:26 2006
+++ phpdoc/dsssl/html-common.dsl Mon Jan 16 15:51:53 2006
@@ -1,6 +1,6 @@
;; -*- Scheme -*-
;;
-;; $Id: html-common.dsl,v 1.24 2006/01/15 13:55:26 hholzgra Exp $
+;; $Id: html-common.dsl,v 1.25 2006/01/16 15:51:53 hholzgra Exp $
;;
;; Returns the depth of the auto-generated TOC (table of
@@ -25,9 +25,9 @@
;; convert to lower case unless all characters are upper case
(define (case-fold-updown str)
(let (
- (upstr (case-fold-up str))
- (downstr (case-fold-down str))
- )
+ (upstr (case-fold-up str))
+ (downstr (case-fold-down str))
+ )
(if (equal? upstr str) upstr downstr )
)
)
@@ -158,22 +158,22 @@
(let* (
(function-name (data (current-node)))
(role-name (if (attribute-string (normalize "role"))
- (attribute-string (normalize
"role"))
- (normalize "php"))
- )
+ (attribute-string (normalize "role"))
+ (normalize "php"))
+ )
(id-base (case-fold-down (string-replace (string-replace
function-name "_" "-") "::" ".")))
(target (cond
- ((equal-ci? role-name "php")
- (href-to (element-with-id
(string-append "function." id-base ))))
- ((equal-ci? role-name "zend-api")
- (href-to (element-with-id
(string-append "zend-api." id-base ))))
- ((equal-ci? role-name "zend-macro")
- (href-to (element-with-id
(string-append "zend-macro." id-base ))))
- ((equal-ci? role-name "libc")
- (string-append %manpage-url-base%
function-name %manpage-url-ext%))
- (else "")
- )
- )
+ ((equal-ci? role-name "php")
+ (href-to (element-with-id (string-append "function."
id-base ))))
+ ((equal-ci? role-name "zend-api")
+ (href-to (element-with-id (string-append "zend-api."
id-base ))))
+ ((equal-ci? role-name "zend-macro")
+ (href-to (element-with-id (string-append "zend-macro."
id-base ))))
+ ((equal-ci? role-name "libc")
+ (string-append %manpage-url-base% function-name
%manpage-url-ext%))
+ (else "")
+ )
+ )
(parent-gi (gi (parent)))
)
