obliqrt/derived/ObValue_RemVar_v1.i3


INTERFACE ObValue_RemVar_v1;

IMPORT Rd, Wr, StubLib, ObValue, Thread, NetObj;
TYPE Surrogate_ObValue_RemVar = ObValue.RemVar OBJECT
      OVERRIDES
        Get := Surrogate_Get;
        Set := Surrogate_Set;
      END;

PROCEDURE Surrogate_Get(self: ObValue.RemVar): ObValue.Val
     RAISES {NetObj.Error, Thread.Alerted};

PROCEDURE Surrogate_Set(self: ObValue.RemVar; val: ObValue.Val)
     RAISES {NetObj.Error, Thread.Alerted};

PROCEDURE Stub_Get(
    self: ObValue.RemVar;
    c: StubLib.Conn;
    rep: StubLib.DataRep) RAISES {NetObj.Error, Rd.Failure, Wr.Failure,
    Thread.Alerted};

PROCEDURE Stub_Set(
    self: ObValue.RemVar;
    c: StubLib.Conn;
    rep: StubLib.DataRep) RAISES {NetObj.Error, Rd.Failure, Wr.Failure,
    Thread.Alerted};

END ObValue_RemVar_v1.