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