Return to oxclient.m CVS log

Up to [local] / OpenXM / src / ox_math / lib

Annotation of OpenXM/src/ox_math/lib/oxclient.m, Revision 1.1

1.1     ! ohara       1: (* $OpenXM$ *)
        !             2:
        !             3: Install[Environment["OpenXM_HOME"] <> "/bin/math2ox"]
        !             4:
        !             5: asirRtostr[x_] := Module[
        !             6:        {list = {}, i, s},
        !             7:        If[ x[[0]] === List,
        !             8:          list = Append[list, " [ " ];
        !             9:          If[ Length[x] > 0 ,
        !            10:                list = Append[list, asirRtostr[ x[[1] ] ] ];
        !            11:                For[i=2, i<= Length[x], i++,
        !            12:                   list = Append[list, " , "];
        !            13:                   list = Append[list, asirRtostr[ x[[i]] ] ]
        !            14:                        ]
        !            15:                  ];
        !            16:          list = Append[list, " ] "];
        !            17:          s = StringJoin[list],
        !            18:          s = ToString[x, InputForm]
        !            19:                ]
        !            20:        ]
        !            21:
        !            22: (* The following functions are incomplete. *)
        !            23: ssh[prog_String, host_String, data_Integer, control_Integer] := Module[
        !            24:        {cmd, list},
        !            25:        cmd = StringJoin[{
        !            26:                "ssh -f ", host, " ", Environment["OpenXM_HOME"],
        !            27:                "/bin/oxlog /usr/X11R6/bin/xterm -icon -e ",
        !            28:                Environment["OpenXM_HOME"], "/bin/ox -insecure -ox ",
        !            29:                Environment["OpenXM_HOME"], "/bin/", prog,
        !            30:                " -data ", ToString[data], " -control ", ToString[control],
        !            31:                " -host ", host}];
        !            32:        Run[cmd]
        !            33:        ]
        !            34:
        !            35: oxStartRemoteSSH[prog_String, host_String] := Module[
        !            36:        {},
        !            37:        ssh[prog, host, 1200, 1300];
        !            38:        OxStartInsecure[host, 1200, 1300]
        !            39: ]