obliqrt/derived/ObValue_RemFileSystem_v1.i3


INTERFACE ObValue_RemFileSystem_v1;

IMPORT Rd, Wr, StubLib, ObValue, Thread, NetObj;
TYPE Surrogate_ObValue_RemFileSystem = ObValue.RemFileSystem OBJECT
      OVERRIDES
        OpenRead := Surrogate_OpenRead;
        OpenWrite := Surrogate_OpenWrite;
        OpenAppend := Surrogate_OpenAppend;
      END;

PROCEDURE Surrogate_OpenRead(self: ObValue.RemFileSystem; fileName: TEXT)
    : Rd.T RAISES {NetObj.Error, ObValue.ServerError, Thread.Alerted};

PROCEDURE Surrogate_OpenWrite(self: ObValue.RemFileSystem; fileName: TEXT)
    : Wr.T RAISES {NetObj.Error, ObValue.ServerError, Thread.Alerted};

PROCEDURE Surrogate_OpenAppend(self: ObValue.RemFileSystem; fileName: TEXT)
    : Wr.T RAISES {NetObj.Error, ObValue.ServerError, Thread.Alerted};

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

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

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

END ObValue_RemFileSystem_v1.