-- File: StatsHot.mesa,  Last Edit: HGM  February 17, 1979  9:55 PM

-- Copyright  Xerox Corporation 1979, 1980

DIRECTORY
  StatsDefs: FROM "StatsDefs" USING [StatCounterIndex],
  StatsPrivateDefs: FROM "StatsPrivateDefs" USING [statLock];

StatsHot: MONITOR LOCKS StatsPrivateDefs.statLock
    IMPORTS StatsPrivateDefs
  EXPORTS StatsDefs, StatsPrivateDefs =
BEGIN OPEN StatsDefs;

-- These are the master counters.  They are the only ones that get bumped by StatIncr and StatBump.  The numbers that StatSince prints out are obtained by subtracting two copies of statGrand.

statGrand: PUBLIC ARRAY StatCounterIndex OF LONG CARDINAL;

StatIncr: PUBLIC ENTRY PROCEDURE [which: StatCounterIndex] =
  BEGIN
  statGrand[which] _ statGrand[which]+1;
  END;

StatBump: PUBLIC ENTRY PROCEDURE [which: StatCounterIndex, howmuch: CARDINAL] =
  BEGIN
  statGrand[which] _ statGrand[which]+howmuch;
  END;

-- initialization
END.(2048)\79t2 29t0 25t10 1t0 1t2 2t0 16t2 8t0 16t2 9t0 8t2 1t10 1t0 2b8B81t2 9t0 18t2 3t0 11t2 9t0 3i77I8i5I8i20I9i54I9i3I60b8B110b8B