Copyright (C) 1994, Digital Equipment Corp.
NetObjMonLocal.m3
MODULE NetObjMon;
IMPORT NetObj, NGCMonitor, Fmt, Params, Process, RefList, Thread;
TYPE
TT = T OBJECT OVERRIDES
dump := Dump;
dumpNames := DumpNames;
END;
PROCEDURE Register () =
VAR reg: Registry;
BEGIN
TRY
reg := NetObj.Import(RegistryServiceName);
IF reg # NIL THEN
reg.register(NEW(TT),
Fmt.F("%s(%s)", Params.Get(0), Fmt.Int(Process.GetMyID())));
END;
EXCEPT
| NetObj.Error, Thread.Alerted => (* skip *)
END;
END Register;
PROCEDURE Dump(<*UNUSED*>m: TT) : REFANY =
BEGIN
RETURN NGCMonitor.MonitorDump();
END Dump;
PROCEDURE DumpNames(<*UNUSED*>m: TT) : RefList.T =
BEGIN
RETURN NGCMonitor.MonitorDumpNames();
END DumpNames;
BEGIN
END NetObjMon.