Extra new-line for yaz-date.h.

[yaz-moved-to-github.git] / doc / yazphp.dsl

diff --git a/doc/yazphp.dsl b/doc/yazphp.dsl
index 0f3f672..e0c2fda 100644 (file)
--- a/doc/yazphp.dsl
+++ b/doc/yazphp.dsl
@@ -1,10 +1,9 @@
 <!DOCTYPE style-sheet PUBLIC "-//James Clark//DTD DSSSL Style Sheet//EN" [
-<!ENTITY docbook.dsl SYSTEM "/home/adam/proj/docbook-dsssl-1.70/html/docbook.dsl" CDATA DSSSL>
-<!-- ENTITY docbook.dsl SYSTEM "/usr/lib/sgml/stylesheet/dsssl/docbook/nwalsh/html/docbook.dsl" CDATA DSSSL -->
-<!ENTITY html-common.dsl SYSTEM "./html-common.dsl">
+<!ENTITY docbook.dsl SYSTEM "../../docbook-dsssl/html/docbook.dsl"
+  CDATA DSSSL>
 ]>
 <!--
-  $Header: /home/cvsroot/yaz/doc/Attic/yazphp.dsl,v 1.1 2001-07-19 12:46:57 adam Exp $
+  $Id: yazphp.dsl,v 1.3 2001-08-14 11:50:07 adam Exp $
 -->
 <style-sheet>
 <style-specification use="docbook">
@@ -13,9 +12,7 @@
 (define %html-ext% ".php")
 (define %shade-verbatim% #t)
 
-(define (php-code code)
-  (make processing-instruction
-    data: (string-append "php " code "?")))
+(define newline "\U-000D")
 
 (define (html-document title-sosofo body-sosofo)
   (let* (;; Let's look these up once, so that we can avoid calculating
@@ -39,21 +36,27 @@
          (doc-sosofo 
           (if make-head?
              (make sequence
-               (php-code "require \"../id_common.inc\"")
-               (make element gi: "HTML"
-                     (make element gi: "HEAD"
-                           (make element gi: "TITLE " title-sosofo)
-                           ($standard-html-header$ prev next prevm nextm))
-                     (make element gi: "BODY"
-                           attributes: (append
-                                        (list (list "CLASS" (gi)))
-                                        %body-attr%)
-                           (header-navigation (current-node) navlist)
-                           body-sosofo
-                           (footer-navigation (current-node) navlist)
-                           )
+               (make formatting-instruction data:
+                     (string-append "<" "?php "
+                                    newline
+                                    "require \"../../id_common.inc\";"
+                                    newline
+                                    "id_header(\""
+                                    )
+                     )
+               title-sosofo
+               (make formatting-instruction data:
+                     (string-append "\");"
+                                    newline
+                                    "?" ">"
+                                    )
+                     )
+               (header-navigation (current-node) navlist)
+               body-sosofo
+               (footer-navigation (current-node) navlist)
+               (make formatting-instruction data:
+                     (string-append "<" "?php id_footer() ?>")
                      )
-               (php-code "id_footer();")
                )
              body-sosofo
              )
@@ -76,10 +79,18 @@
                    public-id: %html-pubid%)
                  (empty-sosofo))
              doc-sosofo)
-           doc-sosofo))))
+           doc-sosofo)
+       )
+    )
+  )
 
 </style-specification-body>
 </style-specification>
 <external-specification id="docbook" document="docbook.dsl">
 </style-sheet>
-  
+
+<!--
+Local Variables:
+mode: scheme
+End:
+-->