OpenXM/src/k097/lib/ox/ox.k - diff

Return to ox.k CVS log

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

version 1.7, 2000/12/14 10:04:57

version 1.9, 2000/12/27 10:16:12

Line 1

/* $OpenXM: OpenXM/src/k097/lib/ox/ox.k,v 1.6 2000/12/14 04:35:16 takayama Exp $ */

/* $OpenXM: OpenXM/src/k097/lib/ox/ox.k,v 1.8 2000/12/21 09:25:23 takayama Exp $ */

/* Load_sm1(["ox.sm1",AddString([GetEnv("OpenXM_HOME"),"/lib/sm1/ox.sm1"])],

"ox.sm1.loaded"); */

Line 78 class OXcontrol extends Object {

sm1(" /data peer 1 get toString def ");

s = AddString(

[GetEnv("OpenXM_HOME"),

"/src/oxc/oxc",

"/bin/oxc",

" -c ", pass, " -h "," localhost ", " -p ", data, " -x ",

" & "]);

sm1(" [ (/bin/csh -c \") s (\") ] cat /stmp set ");

Line 156 class OX extends OXcontrol {

return(engine.channel.popString());

}

def rpc(func,ar) {

def rpc_submit(func,ar) {

local n,i,one,comm;

if (! IsString(func)) {

Error("The first argument of rpc must be a string.");

Line 184 class OX extends OXcontrol {

this.pushCMO(func);

this.pushCMD(SM_executeFunction);

}

def rpc(func,ar) {

local one;

sm1(" /one 1 def ");

rpc_submit(func,ar);

this.pushCMO(one);

this.pushCMO("ox_ptod");

this.pushCMD(SM_executeFunction);

return(this.popCMO());

}

def rpc_str(func,ar) {

rpc_submit(func,ar);

return(this.popString());

}

def executeString(s) {

this.pushCMO(s);

this.pushCMD(SM_executeStringByLocalParser);