cvs: phpdoc /dsssl/docbook/html dblink.dsl

tony2001 Mon May 17 10:38:50 2004 EDT Modified files: /phpdoc/dsssl/docbook/html dblink.dsl Log: update dblink.dsl to support xref to varlistentry http://cvs.php.net/diff.php/phpdoc/dsssl/docbook/html/dblink.dsl?r1=1.1&r2=1.2&ty=u Index: phpdoc/dsssl/docbook/html/dblink.dsl diff -u phpdoc/dsssl/docbook/html/dblink.dsl:1.1 phpdoc/dsssl/docbook/html/dblink.dsl:1.2 --- phpdoc/dsssl/docbook/html/dblink.dsl:1.1 Sat Jul 20 11:30:10 2002 +++ phpdoc/dsssl/docbook/html/dblink.dsl Mon May 17 10:38:50 2004 @@ -1,7 +1,7 @@ -;; $Id: dblink.dsl,v 1.1 2002/07/20 15:30:10 goba Exp $ +;; $Id: dblink.dsl,v 1.2 2004/05/17 14:38:50 tony2001 Exp $ ;; ;; This file is part of the Modular DocBook Stylesheet distribution. -;; See ../README or http://www.berkshire.net/~norm/dsssl/ +;; See ../README or http://docbook.sourceforge.net/projects/dsssl/ ;; ;; ========================= LINKS AND ANCHORS ========================== @@ -226,6 +226,8 @@ (if (equal? (gi (parent target)) (normalize "orderedlist")) (literal (orderedlist-listitem-label-recursive target)) (error (string-append "XRef to LISTITEM only supported in ORDEREDLISTs")))) + ((equal? (gi target) (normalize "varlistentry")) + (xref-varlistentry target)) ((equal? (gi target) (normalize "question")) ;; questions and answers are (yet another) special case (make sequence @@ -309,6 +311,12 @@ xsosofo) xsosofo)))) +(define (xref-varlistentry target) + (let ((terms (select-elements (children target) + (normalize "term")))) + (with-mode xref-varlistentry-mode + (process-node-list (node-list-first terms))))) + (define (xref-glossentry target) (let ((glossterms (select-elements (children target) (normalize "glossterm")))) @@ -408,6 +416,10 @@ (element refentrytitle (process-children-trim))) +(mode xref-varlistentry-mode + (element term + ($italic-seq$))) + (mode xref-glossentry-mode (element glossterm ($italic-seq$)))