netobj/src/NetObjMonLocal.m3


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.