-- 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.