--
-- COUNT_STATISTICS by Richard Conn, TI Ada Technology Branch
-- 27 Feb 85
--
generic
    type Statistic is (<>);

package Count_Statistics is
    --------------------------------------------------------------------------
    -- Abstract   : COUNT_STATISTICS maintains counters which may be used
    --               to keep track of the frequency of certain error
    --               conditions, as enumerated in the type STATISTIC.  To
    --               use this package, the routine INITIALIZE_COUNTERS will
    --               clear all counters, the routine INCREMENT_COUNTER will
    --               increment the indicated counter, and the routine
    --               COUNT will return the value of the indicated counter.
    --
    --------------------------------------------------------------------------


    procedure Initialize_Counters;
    --------------------------------------------------------------------------
    -- Abstract   : This routine sets the values of all counters to zero.
    --------------------------------------------------------------------------


    procedure Increment_Counter (Counter : Statistic);
    --------------------------------------------------------------------------
    -- Abstract   : This routine increments the indicated counter.
    --------------------------------------------------------------------------


    function Count (Counter : Statistic) return Natural;
    --------------------------------------------------------------------------
    -- Abstract   : This routine returns the value of the indicated counter.
    --------------------------------------------------------------------------

end Count_Statistics;