From: Adam Dickmeiss Date: Thu, 25 Aug 2005 12:44:24 +0000 (+0000) Subject: yazphp.dsl no longer in use X-Git-Tag: YAZXF2.1.4.2.2.release~1 X-Git-Url: http://sru.miketaylor.org.uk/cgi-bin?a=commitdiff_plain;h=457226809c15f78d68d29fd54791822d89c7ad80;p=yaz-moved-to-github.git yazphp.dsl no longer in use --- diff --git a/configure.in b/configure.in index 0d0f1c3..b5b96e3 100644 --- a/configure.in +++ b/configure.in @@ -1,6 +1,6 @@ dnl YAZ Toolkit, Index Data 1994-2005 dnl See the file LICENSE for details. -dnl $Id: configure.in,v 1.183 2005-06-23 13:09:42 adam Exp $ +dnl $Id: configure.in,v 1.184 2005-08-25 12:44:24 adam Exp $ AC_INIT(include/yaz/yaz-version.h) AM_INIT_AUTOMAKE(yaz, 2.1.9) AM_MAINTAINER_MODE @@ -370,7 +370,6 @@ zoom/Makefile doc/Makefile doc/yaz.xml doc/yazhtml.dsl -doc/yazphp.dsl doc/yazprint.dsl doc/tkl.xsl doc/yazhtml.xsl diff --git a/doc/Makefile.am b/doc/Makefile.am index de7ecd6..97cc3d4 100644 --- a/doc/Makefile.am +++ b/doc/Makefile.am @@ -1,4 +1,4 @@ -## $Id: Makefile.am,v 1.59 2005-03-13 21:43:00 adam Exp $ +## $Id: Makefile.am,v 1.60 2005-08-25 12:44:24 adam Exp $ docdir=$(datadir)/doc/@PACKAGE@ @@ -32,7 +32,7 @@ REFFILES=yaz-client-man.xml yaz-ztest-man.xml yaz-config-man.xml \ yaz-man.xml zoomsh-man.xml yaz-asncomp-man.xml \ yaz-marcdump-man.xml yaz-iconv-man.xml yaz-log-man.xml -SUPPORTFILES=yazhtml.dsl yazphp.dsl yazprint.dsl tkl.xsl xml.dcl id.eps \ +SUPPORTFILES=yazhtml.dsl yazprint.dsl tkl.xsl xml.dcl id.eps \ apilayer.obj yaz.css doc_DATA = $(HTMLFILES) yaz.pdf id.png apilayer.png yaz.css @@ -71,9 +71,6 @@ yaz-log.7: yaz-log-man.xml $(HTMLFILES): $(XMLFILES) jade -E14 -D $(srcdir) -d yazhtml.dsl -t sgml $(srcdir)/xml.dcl yaz.xml -yaz.php: $(XMLFILES) - jade -E14 -D $(srcdir) -d yazphp.dsl -t sgml $(srcdir)/xml.dcl yaz.xml - yaz.pdf: $(XMLFILES) $(srcdir)/id.png if test ! -f id.png ; then ln -s $(srcdir)/id.png .; fi if test ! -f apilayer.png ; then ln -s $(srcdir)/apilayer.png .; fi diff --git a/doc/yazphp.dsl.in b/doc/yazphp.dsl.in deleted file mode 100644 index 6992650..0000000 --- a/doc/yazphp.dsl.in +++ /dev/null @@ -1,98 +0,0 @@ - -]> - - - - - -(define %use-id-as-filename% #t) -(define %output-dir% "php") -(define %html-ext% ".php") -(define %shade-verbatim% #t) - -(define newline "\U-000D") - -(define (html-document title-sosofo body-sosofo) - (let* (;; Let's look these up once, so that we can avoid calculating - ;; them over and over again. - (prev (prev-chunk-element)) - (next (next-chunk-element)) - (prevm (prev-major-component-chunk-element)) - (nextm (next-major-component-chunk-element)) - (navlist (list prev next prevm nextm)) - - ;; Let's make it possible to control the output even in the - ;; nochunks case. Note: in the nochunks case, (chunk?) will - ;; return #t for only the root element. - (make-entity? (and (or (not nochunks) rootchunk) - (chunk?))) - - (make-head? (or make-entity? - (and nochunks - (node-list=? (current-node) - (sgml-root-element))))) - (doc-sosofo - (if make-head? - (make sequence - (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() ?>") - ) - ) - body-sosofo - ) - ) - ) - (if make-entity? - (make entity - system-id: (html-entity-file (html-file)) - (if %html-pubid% - (make document-type - name: "HTML" - public-id: %html-pubid%) - (empty-sosofo)) - doc-sosofo) - (if (node-list=? (current-node) (sgml-root-element)) - (make sequence - (if %html-pubid% - (make document-type - name: "HTML" - public-id: %html-pubid%) - (empty-sosofo)) - doc-sosofo) - doc-sosofo) - ) - ) - ) - - - - - - -