|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 Tapes |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Tapes Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - downloadIndex: T V
Length: 1385 (0x569)
Types: TextFile
Names: »V«
└─⟦180fe333a⟧ Bits:30000405 8mm tape, Rational 1000, SW CATALOG, 10_20_0
└─⟦180fe333a⟧ Bits:30000537 8mm tape, Rational 1000, SW Catalog 10_20_0
└─⟦5cb1d1d7f⟧ »DATA«
└─⟦3b1ee7bd8⟧
└─⟦this⟧
-- 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;