Add new procedures:

READ-XML
READ-XML-FILE
WRITE-XML-FILE

diff --git a/v7/src/xml/xml-output.scm b/v7/src/xml/xml-output.scm
index c38be088f747a9e79300364734268c19cac49d1d..9432737e06cf02e22ecc1d27bd0883c5843f0199 100644 (file)
--- a/v7/src/xml/xml-output.scm
+++ b/v7/src/xml/xml-output.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: xml-output.scm,v 1.8 2002/12/09 18:19:04 cph Exp $
+;;; $Id: xml-output.scm,v 1.9 2002/12/15 05:23:10 cph Exp $
 ;;;
 ;;; Copyright (c) 2001, 2002 Massachusetts Institute of Technology
 ;;;
@@ -25,6 +25,11 @@
 
 (declare (usual-integrations))
 \f
+(define (write-xml-file xml pathname)
+  (call-with-output-file pathname
+    (lambda (port)
+      (write-xml xml port))))
+
 (define-generic write-xml (object port))
 
 (define-method write-xml ((document xml-document-rtd) port)

diff --git a/v7/src/xml/xml-parser.scm b/v7/src/xml/xml-parser.scm
index a0042e0162f5feaf373f5b4faf9dd022d88c5002..b29498dee787291f98723a65a41a45f64d04d4ea 100644 (file)
--- a/v7/src/xml/xml-parser.scm
+++ b/v7/src/xml/xml-parser.scm
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: xml-parser.scm,v 1.15 2002/12/09 19:03:38 cph Exp $
+;;; $Id: xml-parser.scm,v 1.16 2002/12/15 05:23:19 cph Exp $
 ;;;
 ;;; Copyright (c) 2001, 2002 Massachusetts Institute of Technology
 ;;;
@@ -94,6 +94,15 @@
 \f
 ;;;; Top level
 
+(define (read-xml-file pathname #!optional pi-handlers)
+  (call-with-input-file pathname
+    (lambda (port)
+      (read-xml port (if (default-object? pi-handlers) '() pi-handlers)))))
+
+(define (read-xml port #!optional pi-handlers)
+  (parse-xml-document (input-port->parser-buffer port)
+                     (if (default-object? pi-handlers) '() pi-handlers)))
+
 (define (parse-xml-document buffer #!optional pi-handlers) ;[1,22]
   (if (not (parser-buffer? buffer))
       (error:wrong-type-argument buffer "parser buffer" 'PARSE-XML-DOCUMENT))

diff --git a/v7/src/xml/xml.pkg b/v7/src/xml/xml.pkg
index e97d28ad631a2b1bcc15e3bfb5179a7806631009..efe1640864379d39c38ee18a094beba0efaafc5d 100644 (file)
--- a/v7/src/xml/xml.pkg
+++ b/v7/src/xml/xml.pkg
@@ -1,6 +1,6 @@
 ;;; -*-Scheme-*-
 ;;;
-;;; $Id: xml.pkg,v 1.11 2002/12/07 04:13:49 cph Exp $
+;;; $Id: xml.pkg,v 1.12 2002/12/15 05:23:03 cph Exp $
 ;;;
 ;;; Copyright (c) 2001, 2002 Massachusetts Institute of Technology
 ;;;
@@ -150,10 +150,13 @@
   (files "xml-chars" "xml-parser")
   (parent (runtime xml))
   (export ()
-         parse-xml-document))
+         parse-xml-document
+         read-xml
+         read-xml-file))
 
 (define-package (runtime xml output)
   (files "xml-output")
   (parent (runtime xml))
   (export ()
-         write-xml))
\ No newline at end of file
+         write-xml
+         write-xml-file))
\ No newline at end of file