cvs: phpdoc /dsssl html-common.dsl

hholzgra Sun Apr 7 04:06:40 2002 EDT Modified files: /phpdoc/dsssl html-common.dsl Log: fixed case-sensitivity problem in function-linking constant-linking finally works Index: phpdoc/dsssl/html-common.dsl diff -u phpdoc/dsssl/html-common.dsl:1.6 phpdoc/dsssl/html-common.dsl:1.7 --- phpdoc/dsssl/html-common.dsl:1.6 Tue Mar 26 14:15:58 2002 +++ phpdoc/dsssl/html-common.dsl Sun Apr 7 04:06:40 2002 @@ -1,6 +1,6 @@ ;; -*- Scheme -*- ;; -;; $Id: html-common.dsl,v 1.6 2002/03/26 19:15:58 betz Exp $ +;; $Id: html-common.dsl,v 1.7 2002/04/07 08:06:40 hholzgra Exp $ ;; ;; Returns the depth of the auto-generated TOC (table of @@ -212,7 +212,7 @@ (ancestor-member (parent) (list "refentry"))) "refnamediv"))) "refname")))) - function-name)) + (case-fold-down function-name))) ($bold-seq$ (make sequence (process-children) @@ -282,27 +282,12 @@ (string-replace constant-name "_" "-")))) (target (element-with-id linkend)) (parent-gi (gi (parent)))) + (cond -; ;; constant names should be plain in FUNCDEF -; ((equal? parent-gi "funcdef") -; (process-children)) - - ;; If a valid ID for the target constant is not found, or if the - ;; CONSTANT tag is within the definition of the same constant, + ;; 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) - (equal? (case-fold-down - (data (node-list-first - (select-elements - (node-list-first - (children - (select-elements - (children - (ancestor-member (parent) (list "refentry"))) - "refnamediv"))) - "refname")))) - constant-name)) - ($bold-mono-seq$ + ((or (node-list-empty? target)(attribute-string (normalize "id")(current-node))) + ($bold-mono-seq$ (process-children))) ;; Else make a link to the constant