Mercurial > forge

changeset 1256:38a6b618440f octave-forge

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Update xmlwrite according to the new DTD
author mazet
date Sat, 31 Jan 2004 21:39:08 +0000
parents 49e6eee5f7ff
children 7a2af2b41ce2
files main/miscellaneous/octave.dtd main/miscellaneous/xmlwrite.m
diffstat 2 files changed, 5 insertions(+), 6 deletions(-) [+]
line wrap: on
line diff
--- a/main/miscellaneous/octave.dtd	Fri Jan 30 22:08:34 2004 +0000
+++ b/main/miscellaneous/octave.dtd	Sat Jan 31 21:39:08 2004 +0000
@@ -1,4 +1,4 @@
-<!ELEMENT data (scalar | complex | string | array | structure | list | cell)*>
+<!ELEMENT octave (scalar | complex | string | array | structure | list | cell)>
 
 <!ELEMENT scalar (#PCDATA)>
 <!ATTLIST scalar
@@ -15,7 +15,6 @@
 
 <!ELEMENT array (string, string+)>
 <!ATTLIST array
-	length CDATA #REQUIRED
 	rows CDATA #REQUIRED
 	name CDATA #IMPLIED>
 
--- a/main/miscellaneous/xmlwrite.m	Fri Jan 30 22:08:34 2004 +0000
+++ b/main/miscellaneous/xmlwrite.m	Sat Jan 31 21:39:08 2004 +0000
@@ -55,8 +55,8 @@
 
     ## XML header
     fprintf (fd, "<?xml version=\"1.0\"?>\n");
-    fprintf (fd, "<!DOCTYPE data SYSTEM \"octave.dtd\">\n");
-    fprintf (fd, "<data>\n");
+    fprintf (fd, "<!DOCTYPE octave SYSTEM \"octave.dtd\">\n");
+    fprintf (fd, "<octave>\n");
     indent = "  ";
   else
     isopen = true;
@@ -124,7 +124,7 @@
     elseif isnan(value)
       ## Not-A-Number type
       
-      fprintf (fd, "%s<scalar% value=\"nan\"/>%s", indent, opt, separator);
+      fprintf (fd, "%s<scalar%s value=\"nan\"/>%s", indent, opt, separator);
       
     elseif isna(value)
       ## Not-Avaliable
@@ -199,7 +199,7 @@
   nb++;
   
   if !isopen
-    fprintf (fd, "</data>\n");
+    fprintf (fd, "</octave>\n");
     fclose(fd);
   endif