===================================================================
RCS file: /home/cvs/OpenXM/src/kan96xx/Doc/xml.sm1,v
retrieving revision 1.4
retrieving revision 1.5
diff -u -p -r1.4 -r1.5
--- OpenXM/src/kan96xx/Doc/xml.sm1	1999/11/20 05:17:31	1.4
+++ OpenXM/src/kan96xx/Doc/xml.sm1	1999/12/14 10:00:45	1.5
@@ -1,4 +1,4 @@
-%% $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.4 1999/11/20 05:17:31 takayama Exp $
 %% xml.sm1  XML support for sm1.
 %% This package requires ox.sm1
 [(parse) (ox.sm1) pushfile] extension
@@ -287,3 +287,23 @@ tag 0 eq {
   popVariables
   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
+