Return to xml.sm1 CVS log

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

Annotation of OpenXM/src/kan96xx/Doc/xml.sm1, Revision 1.1

1.1     ! takayama    1: %% $OpenXM$
        !             2: %% xml.sm1  XML support for sm1.
        !             3: %% This package requires ox.sm1
        !             4: [(parse) (ox.sm1) pushfile] extension
        !             5: %%%%% These should be under /usr/local/OpenXM or OpenXM_HOME
        !             6: /oxpath.java-support (lib/java-support) def
        !             7:
        !             8: [(getenv) (OpenXM_HOME)] extension
        !             9: tag 0 eq {
        !            10:   /oxpath.java-support [(/usr/local/OpenXM/) oxpath.java-support] cat def
        !            11: } {
        !            12:   /oxpath.java-support [ [(getenv) (OpenXM_HOME)] extension (/) oxpath.java-support] cat def
        !            13: } ifelse
        !            14:
        !            15: /xmlconnect {
        !            16:  [/in-xmlconnect  /data /control /com] pushVariables
        !            17:  [
        !            18:   /data [(oxGenPass)] extension def
        !            19:   /control [(oxGenPass)] extension def
        !            20:   [data control] message
        !            21:   [(tdiv_qr) data .. (2000)..] mpzext 1 get (integer) dc 1025 add /data set
        !            22:   [(tdiv_qr) control .. (2000)..] mpzext 1 get (integer) dc 1025 add /control set
        !            23:
        !            24:  [$($ ( cd ) oxpath.java-support ( ; )
        !            25:   ( java OMproxy )
        !            26:   ( -data ) data ( -control ) control
        !            27:   $)$
        !            28: %%  ( >& /dev/null )   %%  Syntax error: Bad fd
        !            29:   ( & )
        !            30:  ] cat /com set
        !            31:   (Executing the command ) messagen com message
        !            32:   com system
        !            33:   (sleep 5) system
        !            34:   [(oxCreateClient) (localhost) data control] extension
        !            35:   /@@@.xml set
        !            36:  (The server is binded to the variable @@@.xml) message
        !            37:   @@@.xml /arg1 set
        !            38:  ] pop
        !            39:  popVariables
        !            40:  arg1
        !            41: } def
        !            42:
        !            43: /xml {
        !            44:   /arg1 set
        !            45:   [/in-cmo2xml /ob] pushVariables
        !            46:   [
        !            47:      /ob arg1 def
        !            48:      @@@.xml ob oxpushcmo
        !            49:      @@@.xml (CMO2OMXML) oxexec
        !            50:      @@@.xml oxpopcmo /arg1 set
        !            51:   ] pop
        !            52:   popVariables
        !            53:   arg1
        !            54: } def
        !            55: [(xml)
        !            56: [(object xml xml-string)
        !            57:  (Example:   )
        !            58:  (   xmlconnect )
        !            59:  $   (12345).. xml :: $
        !            60:  $   ( (x-1)^2 ). xml :: $
        !            61: ]] putUsages
        !            62:
        !            63: