|
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: 1756 (0x6dc)
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⟧
with Log;
with Profile;
with Calendar;
with Report_Times;
with System_Utilities;
--
--
-- ********** ADD ANY "WITH'S" YOU NEED HERE
--
--
procedure Execution_Benchmark (Response : in String := "<PROFILE>") is
--
Old_Response_Profile : Profile.Response_Profile := Profile.Get;
New_Response_Profile : Profile.Response_Profile := Profile.Value (Response);
--
Starting_Wall_Clock_Time : Calendar.Time;
Ending_Wall_Clock_Time : Calendar.Time;
Starting_Cpu_Time : Duration;
Ending_Cpu_Time : Duration;
--
begin
--
Profile.Set (New_Response_Profile);
Log.Put_Line ("[Execution_Benchmark (Response => """ &
Profile.Image (New_Response_Profile) & """);]",
Profile.Auxiliary_Msg);
--
Log.Put_Line ("Timing execution");
Starting_Wall_Clock_Time := Calendar.Clock;
Starting_Cpu_Time := System_Utilities.Cpu;
--
--
-- ********** PUT THE CODE YOU WANT TO TIME EXECUTION OF HERE
--
--
Ending_Cpu_Time := System_Utilities.Cpu;
Ending_Wall_Clock_Time := Calendar.Clock;
Log.Put_Line ("Execution timed", Profile.Positive_Msg);
--
Report_Times ("EXECUTION TIME:", Starting_Wall_Clock_Time,
Ending_Wall_Clock_Time,
Starting_Cpu_Time,
Ending_Cpu_Time);
--
Log.Put_Line ("[end of Execution_Benchmark command - no error(s) detected]",
Profile.Auxiliary_Msg);
Profile.Set (Old_Response_Profile);
--
exception
when others =>
Log.Put_Line
("[end of Execution_Benchmark command - error(s) detected]",
Profile.Auxiliary_Msg);
Profile.Set (Old_Response_Profile);
--
end Execution_Benchmark;