2001-07-17 Hans Petter Jansson <hpj@ximian.com>

	* file.pl.in (xst_file_open_write_compressed): Implement.

	* replace.pl.in (xst_replace_xml_pcdata): Allow compressed files.
	  (xst_replace_xml_attribute): Ditto.

	* xml.pl.in (xst_xml_model_scan): Ditto.

1 files changed, 7 insertions, 2 deletions

diff --git a/xml.pl.in b/xml.pl.in
index bf14b2f..6347316 100644
--- a/xml.pl.in
+++ b/xml.pl.in
@@ -530,7 +530,7 @@ sub xst_xml_model_scan_recurse
 sub xst_xml_model_scan  # (file) If no file specified, reads stdin.
 {
   my ($file) = @_;
-  my ($doc, @tree);
+  my ($doc, $tree, $compressed);
 
   $file = $xst_input_file if $file eq undef;
 
@@ -540,6 +540,11 @@ sub xst_xml_model_scan  # (file) If no file specified, reads stdin.
     if (!$doc)
     {
       $doc = &xst_xml_read_file ($file);
+      $compressed = 0;
+    }
+    else
+    {
+      $compressed = 1;
     }
   }
   else
@@ -550,7 +555,7 @@ sub xst_xml_model_scan  # (file) If no file specified, reads stdin.
   @xst_xml_scan_list = ($doc =~ /([^\<]*)(\<[^\>]*\>)/mg); # pcdata, tag, pcdata, tag, ...
   $tree = &xst_xml_model_scan_recurse;
 
-  return $tree;
+  return ($tree, $compressed);
 }
 
 # Quote/unquote.