1 <!DOCTYPE style-sheet PUBLIC "-//James Clark//DTD DSSSL Style Sheet//EN" [
2 <!ENTITY docbook.dsl SYSTEM "/home/adam/proj/docbook-dsssl-1.70/html/docbook.dsl" CDATA DSSSL>
3 <!-- ENTITY docbook.dsl SYSTEM "/usr/lib/sgml/stylesheet/dsssl/docbook/nwalsh/html/docbook.dsl" CDATA DSSSL -->
4 <!ENTITY html-common.dsl SYSTEM "./html-common.dsl">
7 $Header: /home/cvsroot/yaz/doc/Attic/yazphp.dsl,v 1.1 2001-07-19 12:46:57 adam Exp $
10 <style-specification use="docbook">
11 <style-specification-body>
13 (define %html-ext% ".php")
14 (define %shade-verbatim% #t)
16 (define (php-code code)
17 (make processing-instruction
18 data: (string-append "php " code "?")))
20 (define (html-document title-sosofo body-sosofo)
21 (let* (;; Let's look these up once, so that we can avoid calculating
22 ;; them over and over again.
23 (prev (prev-chunk-element))
24 (next (next-chunk-element))
25 (prevm (prev-major-component-chunk-element))
26 (nextm (next-major-component-chunk-element))
27 (navlist (list prev next prevm nextm))
29 ;; Let's make it possible to control the output even in the
30 ;; nochunks case. Note: in the nochunks case, (chunk?) will
31 ;; return #t for only the root element.
32 (make-entity? (and (or (not nochunks) rootchunk)
35 (make-head? (or make-entity?
37 (node-list=? (current-node)
38 (sgml-root-element)))))
42 (php-code "require \"../id_common.inc\"")
43 (make element gi: "HTML"
44 (make element gi: "HEAD"
45 (make element gi: "TITLE " title-sosofo)
46 ($standard-html-header$ prev next prevm nextm))
47 (make element gi: "BODY"
49 (list (list "CLASS" (gi)))
51 (header-navigation (current-node) navlist)
53 (footer-navigation (current-node) navlist)
56 (php-code "id_footer();")
64 system-id: (html-entity-file (html-file))
68 public-id: %html-pubid%)
71 (if (node-list=? (current-node) (sgml-root-element))
76 public-id: %html-pubid%)
81 </style-specification-body>
82 </style-specification>
83 <external-specification id="docbook" document="docbook.dsl">