yazphp.dsl.in

harvest是一个下载html网页得机器人

<!DOCTYPE style-sheet PUBLIC "-//James Clark//DTD DSSSL Style Sheet//EN" [
<!ENTITY docbook.dsl SYSTEM "@DSSSL_DIR@/html/docbook.dsl"
  CDATA DSSSL>
]>
<!--
  $Id: yazphp.dsl.in,v 1.1 2002/03/21 21:30:45 adam Exp $
-->
<style-sheet>
<style-specification use="docbook">
<style-specification-body>

(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)
	)
    )
  )

</style-specification-body>
</style-specification>
<external-specification id="docbook" document="docbook.dsl">
</style-sheet>

<!--
Local Variables:
mode: scheme
End:
-->