OpenXM/src/kan96xx/Doc/xml.sm1 - diff

Return to xml.sm1 CVS log

Up to [local] / OpenXM / src / kan96xx / Doc

-version 1.4, 1999/11/20 05:17:31
+version 1.5, 1999/12/14 10:00:45
 Line 1
 Line 1
 Line 1
- %% $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
 Line 287  tag 0 eq {
 Line 287  tag 0 eq {
 Line 287  tag 0 eq {
    popVariables
    arg1
  } def
+ /OMproxy-testsuits2 {
+   xmlconnect
+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