(require (lib "xml.ss" "xml"))

(define (make-xml-document dtd-name dtd-filename xsl-href xexpr)
  (make-document
   (make-prolog
    (if xsl-href
        (list (make-pi #f #f 'xml "version=\"1.0\"")
              (make-pi #f #f 'xml-stylesheet 
                       (string-append "href=\"" xsl-href "\" type=\"text/xsl\"")))
        (list  (make-pi #f #f 'xml "version=\"1.0\"")))
    (make-document-type dtd-name
                        (make-external-dtd/system dtd-filename) 
                        #f))
   (xexpr->xml xexpr)
   '()))

;;; Beispiel 1: Ein XML-Dokument ohne xml-stylesheet 
(display-xml
 (make-xml-document
  'liste "liste.dtd" #f
  '(liste
     (listenelement "Bla"))))

;;; Beispiel 2: Ein XML-Dokument mit xml-stylesheet 
(display-xml
 (make-xml-document
  'liste "liste.dtd" "fancy-listendarstellung.xsl"
  '(liste
     (listenelement "Bla"))))