obliqrt/derived/ObValue_RemEngine_v1.i3


INTERFACE ObValue_RemEngine_v1;

IMPORT Rd, Wr, StubLib, ObValue, Thread, NetObj;
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, Thread.Alerted};

PROCEDURE Surrogate_Eval(
    self: ObValue.RemEngine;
    proc: ObValue.Val;
    mySelf: ObValue.ValObj): ObValue.Val RAISES {ObValue.Error,
    ObValue.Exception, ObValue.ServerError, NetObj.Error, Thread.Alerted};

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.