===================================================================
RCS file: /home/cvs/OpenXM/src/kan96xx/Doc/xml.sm1,v
retrieving revision 1.4
retrieving revision 1.7
diff -u -p -r1.4 -r1.7
--- OpenXM/src/kan96xx/Doc/xml.sm1	1999/11/20 05:17:31	1.4
+++ OpenXM/src/kan96xx/Doc/xml.sm1	2000/02/28 13:22:27	1.7
@@ -1,10 +1,11 @@
-%% $OpenXM: OpenXM/src/kan96xx/Doc/xml.sm1,v 1.3 1999/11/11 08:06:44 takayama Exp $
+%% $OpenXM: OpenXM/src/kan96xx/Doc/xml.sm1,v 1.6 1999/12/15 09:17:15 takayama Exp $
 %% xml.sm1  XML support for sm1.
 %% This package requires ox.sm1
 [(parse) (ox.sm1) pushfile] extension
 (xml.sm1 :  1999, 11/20 Sat) message
 %%%%% These should be under /usr/local/OpenXM or OpenXM_HOME
 /oxpath.java-support (lib/java-support) def
+/@@@.xml null def
 
 [(getenv) (OpenXM_HOME)] extension 
 tag 0 eq {
@@ -49,7 +50,11 @@ tag 0 eq {
   [/in-cmo2xml /ob] pushVariables
   [
      /ob arg1 def
+     @@@.xml tag 0 eq {
+        xmlconnect
+     }{ } ifelse
      @@@.xml ob oxpushcmo
+     @@@.xml 1 oxpushcmo
      @@@.xml (CMO2OMXML) oxexec
      @@@.xml oxpopcmo /arg1 set
   ] pop
@@ -69,7 +74,11 @@ tag 0 eq {
   [/in-xml_to_cmo /ob] pushVariables
   [
      /ob arg1 def
+     @@@.xml tag 0 eq {
+        xmlconnect
+     }{ } ifelse
      @@@.xml ob oxpushcmo
+     @@@.xml 1 oxpushcmo
      @@@.xml (OMXML2CMO) oxexec
      @@@.xml oxpopcmo /arg1 set
   ] pop
@@ -287,3 +296,42 @@ tag 0 eq {
   popVariables
   arg1
 } def
+
+/xml_tree_to_prefix_string {
+   /arg1 set
+   [/in-xml_tree_to_prefix_string /sss] pushVariables
+   [
+     /sss arg1 def
+     sss isString {
+     }{
+       (string xml_tree_to_prefix_string) error
+     }ifelse
+     sss xml_to_cmo cmoTreeToPrefix /ans set
+     /arg1 ans def
+   ] pop
+   arg1
+} def
+  
+
+/OMproxy-testsuits2 {
+  xmlconnect
+  1 1 30 {
+    /i set
+    [( (x-T-2)^) i toString] cat . /p set
+    p [(class) (recursivePolynomial)] dc xml /ff set 
+    ff xml_to_cmo cmoTreeToPostfix /gg set 
+    [(parse) gg] extension pop p sub /result set
+    result (0). eq 
+    {
+    } 
+    {
+         (p = ) messagen p message
+         (i=) messagen i message (Error in OMproxy-testsuits2 ) error
+    } ifelse
+  } for
+  (Done.) message
+} def
+
+
+
+