]]> ]]> ]]> ]]> ]]> ]]> ]]> ]]> ]]> ]]> ]]> ]]> ]]> ]]> ]]> ]]> ]]> ]]> ]]> ]]> ]]> ]]> ]]> ]]> ]]> ]]> ]]> ]]> ]> ;; $Id: docbook.dsl.html,v 1.1 2001/04/18 18:11:31 glace Exp $ ;; ;; This file is part of the Modular DocBook Stylesheet distribution. ;; See ../README or http://www.berkshire.net/~norm/dsssl/ ;; (declare-flow-object-class element "UNREGISTERED::James Clark//Flow Object Class::element") (declare-flow-object-class empty-element "UNREGISTERED::James Clark//Flow Object Class::empty-element") (declare-flow-object-class document-type "UNREGISTERED::James Clark//Flow Object Class::document-type") (declare-flow-object-class processing-instruction "UNREGISTERED::James Clark//Flow Object Class::processing-instruction") (declare-flow-object-class entity "UNREGISTERED::James Clark//Flow Object Class::entity") (declare-flow-object-class entity-ref "UNREGISTERED::James Clark//Flow Object Class::entity-ref") (declare-flow-object-class formatting-instruction "UNREGISTERED::James Clark//Flow Object Class::formatting-instruction") (declare-characteristic preserve-sdata? "UNREGISTERED::James Clark//Characteristic::preserve-sdata?" #t) (define debug (external-procedure "UNREGISTERED::James Clark//Procedure::debug")) (define read-entity (external-procedure "UNREGISTERED::James Clark//Procedure::read-entity")) (define all-element-number (external-procedure "UNREGISTERED::James Clark//Procedure::all-element-number")) (root (make sequence ; (literal ; (debug (node-property 'gi ; (node-property 'document-element (current-node))))) ;(define (docelem node) ; (node-propety 'document-element ; (node-property 'grove-root node))) (process-children) (with-mode manifest (process-children)) (if html-index (with-mode htmlindex (process-children)) (empty-sosofo)))) (mode manifest ;; this mode is really just a hack to get at the root element (root (process-children)) (default (if (node-list=? (current-node) (sgml-root-element)) (if html-manifest (make entity system-id: (html-entity-file html-manifest-filename) (let loop ((node (current-node))) (if (node-list-empty? node) (empty-sosofo) (make sequence (make formatting-instruction data: (html-file node)) (make formatting-instruction data: " ") (loop (next-chunk-element node)))))) (empty-sosofo)) (empty-sosofo)))) ;; Make text that comes from unimplemented tags easy to spot (default (make element gi: "FONT" attributes: '(("COLOR" "RED")) (process-children))) &dbcommon.dsl; &dbctable.dsl; &dbl10n.dsl; &dbadmon.dsl; &dbautoc.dsl; &dbbibl.dsl; &dbblock.dsl; &dbcallou.dsl; &dbcompon.dsl; &dbdivis.dsl; &dbfootn.dsl; &dbgloss.dsl; &dbgraph.dsl; &dbhtml.dsl; &dbindex.dsl; &dbinfo.dsl; &dbinline.dsl; &dblink.dsl; &dblists.dsl; &dblot.dsl; &dbmath.dsl; &dbmsgset.dsl; &dbnavig.dsl; &dbchunk.dsl; &dbpi.dsl; &dbprocdr.dsl; &dbrfntry.dsl; &dbsect.dsl; &dbsynop.dsl; &dbefsyn.dsl; &dbtable.dsl; &dbtitle.dsl; &dbttlpg.dsl; &dbverb.dsl; &version.dsl; &db31.dsl;