-- File: FrameFinderAlto.mesa, Last Edit: HGM  January 24, 1981  12:31 PM

DIRECTORY
  ControlDefs USING [ControlLink, FrameHandle, GlobalFrameHandle, NullLink],
  PrincOps USING [
    AllocationVector, AllocationVectorSize, AV, AVItem, FrameVec, LastAVSlot],
  ProcessOps USING [FirstProcess, LastProcess],
  PSBDefs USING [PSB],
  Resident USING [SegListHead],

  DebugUsefulDefs USING [Enumerate, Name, ShortREAD, ShortCopyREAD],
  Event USING [AddNotifier, Item, Masks, Notifier],
  Format USING [], -- Needed by Put.Number
  Menu USING [ItemObject, MCRType, Create, Instantiate],
  UserInput USING [GetDefaultWindow],
  Put USING [Char, CR, Decimal, Line, Number, Octal, Text],
  String USING [EquivalentStrings],
  Window USING [Handle];

FrameFinderAlto: PROGRAM
  IMPORTS DebugUsefulDefs, Event, Menu, UserInput, Put, String =
  BEGIN

  wh: Window.Handle _ NIL;
  AvIndex: TYPE = [0..PrincOps.AllocationVectorSize);

  All: PROCEDURE = BEGIN Free[]; InUse[]; Extra[]; END;


  Free: PROCEDURE =
    BEGIN
    myAV: PrincOps.AllocationVector;
    total: CARDINAL _ 0;
    Put.CR[wh];
    Put.Line[wh, "AV table statistics:"L];
    Put.Line[wh, "fsi  size   cnt  words"L];
    DebugUsefulDefs.ShortCopyREAD[
      to: @myAV, from: PrincOps.AV, nwords: SIZE[PrincOps.AllocationVector]];
    FOR fsi: AvIndex IN AvIndex DO
      n: CARDINAL _ 0;
      item: PrincOps.AVItem _ myAV[fsi];
      Put.Number[wh, fsi, [8, FALSE, TRUE, 3]];
      IF fsi <= PrincOps.LastAVSlot THEN
	Put.Number[wh, PrincOps.FrameVec[fsi], [10, FALSE, TRUE, 6]]
      ELSE Put.Text[wh, "      "L];
      DO
	SELECT item.tag FROM
	  frame => n _ n + 1;
	  empty => EXIT;
	  indirect => EXIT;
	  enable => EXIT;
	  ENDCASE => ERROR;
	IF item.tag # frame THEN EXIT;
	IF n > 10000 THEN ERROR;
	item _ DebugUsefulDefs.ShortREAD[item.frame];
	ENDLOOP;
      Put.Number[wh, n, [10, FALSE, TRUE, 6]];
      IF n # 0 AND fsi <= PrincOps.LastAVSlot THEN
	BEGIN
	words: CARDINAL _ n*(PrincOps.FrameVec[fsi] + 1);
	total _ total + words;
	Put.Number[wh, words, [10, FALSE, TRUE, 6]];
	END
      ELSE Put.Text[wh, "      "L];
      SELECT item.tag FROM
	frame => ERROR;
	empty => NULL;
	indirect =>
	  BEGIN
	  Put.Text[wh, " indirect to "L];
	  Put.Number[wh, item.fsi, [8, FALSE, TRUE, 0]];
	  END;
	enable => Put.Text[wh, "enable"L];
	ENDCASE => ERROR;
      Put.CR[wh];
      ENDLOOP;
    Put.Text[wh, "There are a total of "L];
    Put.Decimal[wh, total];
    Put.Line[wh, " words in use by (small) free frames."L];
    END;

  InUse: PROCEDURE =
    BEGIN
    this, last: POINTER TO PSBDefs.PSB;
    that: PSBDefs.PSB;
    hits: ARRAY AvIndex OF CARDINAL _ ALL[0];
    total: CARDINAL _ 0;
    this _ DebugUsefulDefs.ShortREAD[ProcessOps.FirstProcess];
    last _ DebugUsefulDefs.ShortREAD[ProcessOps.LastProcess];
    Put.CR[wh];
    Put.Line[wh, "Scanning active processes..."L];
    DO
      DebugUsefulDefs.ShortCopyREAD[
	to: @that, from: this, nwords: SIZE[PSBDefs.PSB]];
      IF that.state = alive THEN
	BEGIN
	frame: ControlDefs.FrameHandle _ that.frame;
	count: CARDINAL _ 0;
	Put.Octal[wh, this];
	Put.Text[wh, ": "L];
	DO
	  index: AvIndex;
	  link: ControlDefs.ControlLink;
	  IF count # 0 THEN Put.Text[wh, ", "L];
	  Put.Octal[wh, frame];
	  link.frame _ frame;
	  IF link.tag # frame OR link = ControlDefs.NullLink THEN EXIT;
	  count _ count + 1;
	  index _ DebugUsefulDefs.ShortREAD[frame - 1];
	  Put.Char[wh, '(];
	  Put.Number[wh, index, [8, FALSE, TRUE, 0]];
	  Put.Char[wh, ')];
	  IF index >= PrincOps.AllocationVectorSize THEN ERROR;
	  hits[index] _ hits[index] + 1;
	  link _ DebugUsefulDefs.ShortREAD[@frame.returnlink];
	  frame _ link.frame;
	  ENDLOOP;
	Put.CR[wh];
	END;
      IF this = last THEN EXIT;
      this _ this + SIZE[PSBDefs.PSB];
      ENDLOOP;
    Put.CR[wh];
    Put.Line[wh, "Active frame statistics:"L];
    Put.Line[wh, "fsi  size   cnt  words"L];
    FOR fsi: AvIndex IN AvIndex DO
      slot: CARDINAL _ hits[fsi];
      Put.Number[wh, fsi, [8, FALSE, TRUE, 3]];
      IF fsi <= PrincOps.LastAVSlot THEN
	Put.Number[wh, PrincOps.FrameVec[fsi], [10, FALSE, TRUE, 6]]
      ELSE Put.Text[wh, "      "L];
      Put.Number[wh, slot, [10, FALSE, TRUE, 6]];
      IF slot # 0 AND fsi <= PrincOps.LastAVSlot THEN
	BEGIN
	words: CARDINAL _ slot*(PrincOps.FrameVec[fsi] + 1);
	total _ total + words;
	Put.Number[wh, words, [10, FALSE, TRUE, 6]];
	END
      ELSE Put.Text[wh, "      "L];
      Put.CR[wh];
      ENDLOOP;
    Put.Text[wh, "There are a total of "L];
    Put.Decimal[wh, total];
    Put.Line[wh, " words in use by frames in active processes."L];
    END;

  Extra: PROCEDURE =
    BEGIN
    -- Can't get the Compiler to find Resident.SegHeader;
    SegHeader: TYPE = RECORD [seg: POINTER, link: POINTER TO SegHeader];
    count: CARDINAL _ 0;
    overflow: POINTER TO SegHeader;
    IF resident = NIL THEN
      BEGIN
      Put.Line[wh, "Looking for Resident."L];
      LookForFrames[];
      IF resident = NIL THEN
	BEGIN Put.Line[NIL, "**** Can't find Resident!"L]; RETURN; END;
      END;
    overflow _ DebugUsefulDefs.ShortREAD[@resident.SegListHead];
    UNTIL overflow = NIL DO
      IF count # 0 THEN Put.Text[wh, ", "];
      Put.Number[wh, overflow, [8, FALSE, TRUE, 6]];
      count _ count + 1;
      IF count > 1000 THEN ERROR;
      overflow _ DebugUsefulDefs.ShortREAD[@overflow.link];
      ENDLOOP;
    IF count # 0 THEN Put.CR[wh];
    Put.Text[wh, "There are  "L];
    Put.Decimal[wh, count];
    Put.Line[wh, " pages used by overflow frames."L];
    END;


  items: ARRAY [0..3] OF Menu.ItemObject _
    [["All", DoInfo], ["Free", DoInfo], ["InUse", DoInfo], ["Extra", DoInfo]];

  all: CARDINAL = 0;
  free: CARDINAL = 1;
  inUse: CARDINAL = 2;
  extra: CARDINAL = 3;

  DoInfo: Menu.MCRType =
    BEGIN
    SELECT index FROM
      all => All[];
      free => Free[];
      inUse => InUse[];
      extra => Extra[];
      ENDCASE => ERROR;
    END;

  nMods: CARDINAL = 1;
  resident: POINTER TO FRAME[Resident] _ NIL;
  LookForFrames: PROCEDURE =
    BEGIN
    moduleName: ARRAY [0..nMods) OF STRING _ ["Resident"L];
    basePtr: ARRAY [0..nMods) OF POINTER _ [@resident];
    keyString: STRING = [40];
    nFound: CARDINAL _ 0;

    CheckOneFrame: PROCEDURE [han: ControlDefs.GlobalFrameHandle]
      RETURNS [BOOLEAN] =
      BEGIN
      name: POINTER TO ARRAY [0..nMods) OF STRING = @moduleName;
      base: POINTER TO ARRAY [0..nMods) OF POINTER = @basePtr;
      key: STRING = keyString;

      key.length _ 0;
      DebugUsefulDefs.Name[name: key, gf: han];
      FOR i: CARDINAL IN [0..nMods) DO
	IF String.EquivalentStrings[key, name[i]] THEN
	  BEGIN
	  IF base[i]^ = NIL THEN BEGIN base[i]^ _ han; nFound _ nFound + 1 END
	  ELSE BEGIN Put.Text[NIL, "Duplicate: "L]; Put.Line[NIL, key]; END;
	  EXIT
	  END;
	ENDLOOP;
      RETURN[nFound = nMods];
      END;

    FOR i: CARDINAL IN [0..nMods) DO basePtr[i]^ _ NIL; ENDLOOP;
    [] _ DebugUsefulDefs.Enumerate[CheckOneFrame];
    IF nFound # nMods THEN
      BEGIN
      FOR i: CARDINAL IN [0..nMods) DO
	IF basePtr[i]^ = NIL THEN
	  BEGIN Put.Text[NIL, "Missing: "L]; Put.Line[NIL, moduleName[i]]; END;
	ENDLOOP;
      END;
    END;

  notifierItem: Event.Item _
    [eventMask: Event.Masks[newSession], eventProc: Notify];
  Notify: Event.Notifier =
    BEGIN SELECT why FROM newSession => resident _ NIL; ENDCASE; END;

  -- initialization

  Event.AddNotifier[@notifierItem];
  Menu.Instantiate[
    Menu.Create[DESCRIPTOR[items], "Frames"], UserInput.GetDefaultWindow[]];
  END.