1 <!DOCTYPE style-sheet PUBLIC "-//James Clark//DTD DSSSL Style Sheet//EN" [
2 <!ENTITY docbook.dsl SYSTEM "../../docbook-dsssl/html/docbook.dsl"
6 $Id: yazphp.dsl,v 1.3 2001-08-14 11:50:07 adam Exp $
9 <style-specification use="docbook">
10 <style-specification-body>
12 (define %html-ext% ".php")
13 (define %shade-verbatim% #t)
15 (define newline "\U-000D")
17 (define (html-document title-sosofo body-sosofo)
18 (let* (;; Let's look these up once, so that we can avoid calculating
19 ;; them over and over again.
20 (prev (prev-chunk-element))
21 (next (next-chunk-element))
22 (prevm (prev-major-component-chunk-element))
23 (nextm (next-major-component-chunk-element))
24 (navlist (list prev next prevm nextm))
26 ;; Let's make it possible to control the output even in the
27 ;; nochunks case. Note: in the nochunks case, (chunk?) will
28 ;; return #t for only the root element.
29 (make-entity? (and (or (not nochunks) rootchunk)
32 (make-head? (or make-entity?
34 (node-list=? (current-node)
35 (sgml-root-element)))))
39 (make formatting-instruction data:
40 (string-append "<" "?php "
42 "require \"../../id_common.inc\";"
48 (make formatting-instruction data:
54 (header-navigation (current-node) navlist)
56 (footer-navigation (current-node) navlist)
57 (make formatting-instruction data:
58 (string-append "<" "?php id_footer() ?>")
67 system-id: (html-entity-file (html-file))
71 public-id: %html-pubid%)
74 (if (node-list=? (current-node) (sgml-root-element))
79 public-id: %html-pubid%)
87 </style-specification-body>
88 </style-specification>
89 <external-specification id="docbook" document="docbook.dsl">