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.2 2001-07-20 21:33:45 adam Exp $
9 <style-specification use="docbook">
10 <style-specification-body>
12 (define %html-ext% ".php")
13 (define %shade-verbatim% #t)
15 (define (php-code code)
16 (make processing-instruction
17 data: (string-append "php " code "?")))
19 (define (html-document title-sosofo body-sosofo)
20 (let* (;; Let's look these up once, so that we can avoid calculating
21 ;; them over and over again.
22 (prev (prev-chunk-element))
23 (next (next-chunk-element))
24 (prevm (prev-major-component-chunk-element))
25 (nextm (next-major-component-chunk-element))
26 (navlist (list prev next prevm nextm))
28 ;; Let's make it possible to control the output even in the
29 ;; nochunks case. Note: in the nochunks case, (chunk?) will
30 ;; return #t for only the root element.
31 (make-entity? (and (or (not nochunks) rootchunk)
34 (make-head? (or make-entity?
36 (node-list=? (current-node)
37 (sgml-root-element)))))
41 (php-code "require \"../id_common.inc\"")
42 (make element gi: "HTML"
43 (make element gi: "HEAD"
44 (make element gi: "TITLE " title-sosofo)
45 ($standard-html-header$ prev next prevm nextm))
46 (make element gi: "BODY"
48 (list (list "CLASS" (gi)))
50 (header-navigation (current-node) navlist)
52 (footer-navigation (current-node) navlist)
55 (php-code "id_footer();")
63 system-id: (html-entity-file (html-file))
67 public-id: %html-pubid%)
70 (if (node-list=? (current-node) (sgml-root-element))
75 public-id: %html-pubid%)
80 </style-specification-body>
81 </style-specification>
82 <external-specification id="docbook" document="docbook.dsl">