cvs: phpdoc(dev_docbook4) / html-common.dsl

hholzgra Sun Nov 11 18:54:51 2001 EDT Modified files: (Branch: dev_docbook4) /phpdoc html-common.dsl Log: beginning support for <methodsynopsis> renedering Index: phpdoc/html-common.dsl diff -u phpdoc/html-common.dsl:1.17 phpdoc/html-common.dsl:1.17.2.1 --- phpdoc/html-common.dsl:1.17 Fri Nov 9 06:57:04 2001 +++ phpdoc/html-common.dsl Sun Nov 11 18:54:51 2001 @@ -1,6 +1,6 @@ ;; -*- Scheme -*- ;; -;; $Id: html-common.dsl,v 1.17 2001/11/09 11:57:04 goba Exp $ +;; $Id: html-common.dsl,v 1.17.2.1 2001/11/11 23:54:51 hholzgra Exp $ ;; ;; Returns the depth of the auto-generated TOC (table of @@ -388,5 +388,59 @@ (para-check) content (para-check 'restart))))) + + + +(element methodsynopsis + (make sequence (process-children) (literal ")")) +) + +(element (methodsynopsis type) + (make sequence + (process-children-trim) + (literal " ") + ) +) + +(element (methodsynopsis methodname) + (make sequence + ($bold-seq$ + (process-children-trim) + ) + (literal " (") + ) + ) + +(element (methodsynopsis methodparam) + (make sequence + (if (equal? (attribute-string (normalize "choice")) "opt") + (literal "[") + (empty-sosofo) + ) + (process-children-trim) + (if (equal? (attribute-string (normalize "choice")) "opt") + (literal "]") + (empty-sosofo) + ) + (if (equal? (gi (ifollow (current-node))) (normalize "methodparam")) + (literal ", ") + (empty-sosofo) + ) + ) + ) + +(element (methodparam type) + (make sequence + (process-children-trim) + (literal " ") + ) + ) + +(element (methodparam parameter) + (make sequence + (process-children-trim) + ) + ) + ;; vim: ts=2 sw=2 et