|
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: B T
Length: 1350 (0x546)
Types: TextFile
Names: »B«
└─⟦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 one of a number of optional PIWG_IO bodies.
-- This body is for systems that have TEXT_IO and want either
-- screen or printed output.
with Text_Io;
use Text_Io;
with Duration_Io; -- A000001.ADA or A000002.ADA
package body Piwg_Io is -- A000042.ADA
procedure Piwg_Output (Testname : in String;
Classname : in String;
Cpu_Delta : in Duration;
Wall_Delta : in Duration;
Num_Of_Iterations : in Integer;
Test_Desc_1 : in String;
Test_Desc_2 : in String;
Test_Desc_3 : in String) is
begin
New_Line;
Put ("Test Name: ");
Put (Testname);
Put (" Class Name: ");
Put_Line (Classname);
Put ("CPU Time: ");
Duration_Io.Put (Cpu_Delta, 6, 1);
Put_Line (" microseconds ");
Put ("Wall Time: ");
Duration_Io.Put (Wall_Delta, 6, 1);
Put (" microseconds. Iteration Count: ");
Put_Line (Integer'Image (Num_Of_Iterations));
Put_Line ("Test Description:");
Put_Line (Test_Desc_1);
Put_Line (Test_Desc_2);
Put_Line (Test_Desc_3);
New_Line (2);
end Piwg_Output;
end Piwg_Io;