[BACK]Return to xml.sm1 CVS log [TXT][DIR] Up to [local] / OpenXM / src / kan96xx / Doc

Diff for /OpenXM/src/kan96xx/Doc/xml.sm1 between version 1.1 and 1.3

version 1.1, 1999/11/03 09:24:33 version 1.3, 1999/11/11 08:06:44
Line 1 
Line 1 
 %% $OpenXM$  %% $OpenXM: OpenXM/src/kan96xx/Doc/xml.sm1,v 1.2 1999/11/08 11:12:06 takayama Exp $
 %% xml.sm1  XML support for sm1.  %% xml.sm1  XML support for sm1.
 %% This package requires ox.sm1  %% This package requires ox.sm1
 [(parse) (ox.sm1) pushfile] extension  [(parse) (ox.sm1) pushfile] extension
Line 22  tag 0 eq {
Line 22  tag 0 eq {
   [(tdiv_qr) control .. (2000)..] mpzext 1 get (integer) dc 1025 add /control set    [(tdiv_qr) control .. (2000)..] mpzext 1 get (integer) dc 1025 add /control set
   
  [$($ ( cd ) oxpath.java-support ( ; )   [$($ ( cd ) oxpath.java-support ( ; )
   %% (/bin/csh -c ")
   ( java OMproxy )    ( java OMproxy )
   ( -data ) data ( -control ) control    ( -data ) data ( -control ) control
   $)$  
 %%  ( >& /dev/null )   %%  Syntax error: Bad fd  %%  ( >& /dev/null )   %%  Syntax error: Bad fd
       ( > /dev/null )
   %% (")
     $)$
   ( & )    ( & )
  ] cat /com set   ] cat /com set
   (Executing the command ) messagen com message    (Executing the command ) messagen com message
Line 60  tag 0 eq {
Line 63  tag 0 eq {
  $   ( (x-1)^2 ). xml :: $   $   ( (x-1)^2 ). xml :: $
 ]] putUsages  ]] putUsages
   
   /xml_to_cmo {
     /arg1 set
     [/in-xml_to_cmo /ob] pushVariables
     [
        /ob arg1 def
        @@@.xml ob oxpushcmo
        @@@.xml (OMXML2CMO) oxexec
        @@@.xml oxpopcmo /arg1 set
     ] pop
     popVariables
     arg1
   } def
   [(xml_to_cmo)
   [(xml-string xml_to_cmo cmo)
    (Example:   )
    (   xmlconnect )
    $   (<OMOBJ><OMI>5</OMI></OMOBJ>) xml_to_cmo :: $
    $   ( (x-1)^2 ). xml /aa set $
    $   aa xml_to_cmo :: $
   ]] putUsages
   
   
   /t_aux {
     /arg1 set
     [/in-t_aux /ob /r /r2] pushVariables
     [
        /ob arg1 def
        (_______________________________________) message
        (tag = ) messagen ob tag messagen (, ) messagen
        (Sending object :) messagen ob message
        ob xml /r set
        (XML expression is:) messagen r message
        r xml_to_cmo /r2 set
        (XML to CMO :) messagen r2 message
        (~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~~) message
     ] pop
     popVariables
   } def
   
   %% Just type in OMproxy-testsuits1
   /OMproxy-testsuits1 {
     xmlconnect
   
     @@@.xml oxmathcap
     (Mathcap is ) messagen @@@.xml message
   
     null t_aux
     123  t_aux
   %  (Hello World) t_aux  %% error in XML to CMO.
   %  [1 2 3] t_aux  %% not supported.
     (123123).. t_aux
   %  (-12).. (12345).. div t_aux  %% not supported in sm1.
   %  (x^2-1). t_aux %% not supported.  CMO_DMS_GENERIC??
   
     (End) message
   } def
   
Legend:
Removed from v.1.1  
changed lines
  Added in v.1.3
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>