Return to ox.k CVS log

Up to [local] / OpenXM / src / k097 / lib / ox

Annotation of OpenXM/src/k097/lib/ox/ox.k, Revision 1.1

1.1     ! takayama    1: /* $OpenXM$  */
        !             2:
        !             3: class OX extends Object {
        !             4:   local client,
        !             5:         engine;
        !             6:   def start(name) {
        !             7:     local c,e, pass, peer, data, s, stmp;
        !             8:     this = new(super.new0());
        !             9:     sm1(" [(oxGenPass)] extension /pass set ");
        !            10:     sm1(" [(oxGetPort1) (localhost)] extension /peer set ");
        !            11:     sm1(" /data peer 1 get toString def ");
        !            12:     s = AddString(
        !            13:       ["/home/nobuki/OpenXM/src/oxc/oxc",
        !            14:        " -c ", pass, " -h "," localhost ", " -p ", data, " -x ",
        !            15:        " & "]);
        !            16:     sm1(" [ (/bin/csh -c \") s (\") ] cat /stmp set ");
        !            17:     sm1(" stmp message ");
        !            18:     sm1(" stmp system  ");
        !            19:     sm1(" [(oxCreateControl_RFC_101) peer 0 pass] extension /c set ");
        !            20:     client = c;
        !            21:     return(this);
        !            22: }
        !            23:
        !            24:
        !            25:
        !            26: }