cvs: phpdoc /dsssl html-common.dsl

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))) )