INTERFACE RemoteView_T_v1;
IMPORT Thread, NetObj, StubLib, Rd, Wr, RemoteView;
TYPE Surrogate_RemoteView_T = RemoteView.T OBJECT
OVERRIDES
startrun := Surrogate_startrun;
endrun := Surrogate_endrun;
event := Surrogate_event;
END;
PROCEDURE Surrogate_startrun(self: RemoteView.T) RAISES {NetObj.Error,
Thread.Alerted};
PROCEDURE Surrogate_endrun(self: RemoteView.T) RAISES {NetObj.Error,
Thread.Alerted};
PROCEDURE Surrogate_event(
self: RemoteView.T;
tfactor: REAL;
nm: TEXT;
args: TEXT) RAISES {RemoteView.Error, NetObj.Error, Thread.Alerted};
PROCEDURE Stub_startrun(
self: RemoteView.T;
c: StubLib.Conn;
rep: StubLib.DataRep) RAISES {NetObj.Error, Rd.Failure, Wr.Failure,
Thread.Alerted};
PROCEDURE Stub_endrun(
self: RemoteView.T;
c: StubLib.Conn;
rep: StubLib.DataRep) RAISES {NetObj.Error, Rd.Failure, Wr.Failure,
Thread.Alerted};
PROCEDURE Stub_event(
self: RemoteView.T;
c: StubLib.Conn;
rep: StubLib.DataRep) RAISES {NetObj.Error, Rd.Failure, Wr.Failure,
Thread.Alerted, RemoteView.Error};
END RemoteView_T_v1.