-- File: StatsPhoney.mesa,  Last Edit: HGM  November 19, 1979  12:09 PM

-- Copyright  Xerox Corporation 1979, 1980

DIRECTORY
  ControlDefs: FROM "ControlDefs" USING [StateVector],
  StatsDefs: FROM "StatsDefs" USING [StatCounterIndex];

StatsPhoney: PROGRAM
  EXPORTS StatsDefs =
BEGIN OPEN StatsDefs;

StatIncr: PUBLIC PROCEDURE [StatCounterIndex] = LOOPHOLE[StatTrapIt];
StatBump: PUBLIC PROCEDURE [StatCounterIndex, CARDINAL] = LOOPHOLE[StatTrapIt];
StatLog: PUBLIC PROCEDURE [StatCounterIndex, POINTER, CARDINAL] = LOOPHOLE[StatTrapIt];

StatNew: PUBLIC PROCEDURE = LOOPHOLE[StatTrapIt];
StatStart: PUBLIC PROCEDURE [header: STRING] = LOOPHOLE[StatTrapIt];
StatPrintCurrent: PUBLIC PROCEDURE = LOOPHOLE[StatTrapIt];
StatFinish: PUBLIC PROCEDURE = LOOPHOLE[StatTrapIt];
StatReady: PUBLIC PROCEDURE = LOOPHOLE[StatTrapIt];
StatSince: PUBLIC PROCEDURE = LOOPHOLE[StatTrapIt];

StatsStringToIndex: PUBLIC PROCEDURE [STRING] RETURNS [StatCounterIndex] = LOOPHOLE[StatTrapIt];

StatUpdate: PUBLIC PROCEDURE = LOOPHOLE[StatTrapIt];
StatsGetCounters: PUBLIC PROCEDURE RETURNS [
  POINTER TO ARRAY StatCounterIndex OF LONG CARDINAL] = LOOPHOLE[StatTrapIt];
StatsGetText: PUBLIC PROCEDURE RETURNS [
  POINTER TO ARRAY StatCounterIndex OF STRING] = LOOPHOLE[StatTrapIt];

NoStatsInThisPackage: SIGNAL = CODE;

StatTrapIt: PROCEDURE =
  BEGIN
  state: ControlDefs.StateVector;
  state _ STATE;  -- keep stack happy
  SIGNAL NoStatsInThisPackage;
  END;

-- initialization
END.(2048)\83t2 33t0 20t10 1t0 1t2 29t0 25t10 1t0 33t2 9t0 14t2 9t0 2b1B1000b10B