INTERFACE ObValue_RemEngine_v1;
IMPORT Thread, ObValue, NetObj, StubLib, Rd, Wr;
TYPE Surrogate_ObValue_RemEngine = ObValue.RemEngine OBJECT
OVERRIDES
Who := Surrogate_Who;
Eval := Surrogate_Eval;
END;
PROCEDURE Surrogate_Who(self: ObValue.RemEngine): TEXT
RAISES {NetObj.Error};
PROCEDURE Surrogate_Eval(
self: ObValue.RemEngine;
proc: ObValue.Val;
mySelf: ObValue.RemObj): ObValue.Val RAISES {ObValue.Error,
ObValue.Exception, ObValue.ServerError, NetObj.Error};
PROCEDURE Stub_Who(
self: ObValue.RemEngine;
c: StubLib.Conn;
rep: StubLib.DataRep) RAISES {NetObj.Error, Rd.Failure, Wr.Failure,
Thread.Alerted};
PROCEDURE Stub_Eval(
self: ObValue.RemEngine;
c: StubLib.Conn;
rep: StubLib.DataRep) RAISES {NetObj.Error, Rd.Failure, Wr.Failure,
Thread.Alerted, ObValue.Error, ObValue.Exception, ObValue.ServerError};
END ObValue_RemEngine_v1.