-- This is the universal specification for collecting output
-- Various bodies supplied on the distribution tape include :
--  A000042.ADA for screen or printed output
--  A000043.ADA for saving results on disk
--  A000044.ADA for saving result in memory ( No TEXT_IO )
--
--  CPU_DELTA and WALL_DELTA come from the package ITERATION.
--  These values are the time for one feature, in microseconds, of type
--  duration. Thus the limit is 86,400 microseconds.

package Piwg_Io is -- A000041.ADA

    Save_Cpu_Time : Duration := 0.0; -- find this location in memory if using
    Save_Wall_Time : Duration := 0.0; -- A000044.ADA as body.

    procedure Piwg_Output (Testname : in String; -- only 12 characters saved
                           Classname : in String; -- only 12 characters saved
                           Cpu_Delta : in Duration; -- scaled microseconds
                           Wall_Delta : in Duration; -- scaled microseconds
                           Num_Of_Iterations : in Integer;
                           Test_Desc_1 : in String; -- only 80 characters saved
                           Test_Desc_2 : in String; -- only 80 characters saved
                           Test_Desc_3 : in String); -- ditto

-- Note that subtypes are not used because the calling programs would all
-- have to supply exactly the correct length strings for all parameters.

end Piwg_Io;