netobj/src/NetObjMon.m3


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.