DataMuseum.dk

Presents historical artifacts from the history of:

Rational R1000/400 Tapes

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about Rational R1000/400 Tapes

Excavated with: AutoArchaeologist - Free & Open Source Software. 

top - metrics - download
Index: B T

⟦38c0ec0e4⟧ TextFile

    Length: 1950 (0x79e)
    Types: TextFile
    Names: »B«

Derivation

└─⟦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⟧

TextFile

with Log;
with Profile;  
with Batch_Benchmark;
with String_Utilities;
with Incremental_Benchmark;
procedure Run_Benchmarks
             (Context : in String := ">> LIBRARY CONTAINING SOURCE <<";
              Main_Unit : in String := ">> MAIN PROGRAM SPEC <<";
              Type_Unit : in String := ">> LOW-LEVEL PACKAGE SPEC <<";
              Response : in String := "<PROFILE>") is
    --
    Old_Response_Profile : Profile.Response_Profile := Profile.Get;
    New_Response_Profile : Profile.Response_Profile := Profile.Value (Response);
    --
    Context_Name : constant String := String_Utilities.Upper_Case (Context);
    Main_Unit_Name : constant String := String_Utilities.Upper_Case (Main_Unit);
    Type_Unit_Name : constant String := String_Utilities.Upper_Case (Type_Unit);
    --
begin
    --
    Profile.Set (New_Response_Profile);
    Log.Put_Line ("[Run_Benchmarks (Context => """ &
                  Context_Name & """, Main_Unit => """ &
                  Main_Unit_Name & """, Type_Unit => """ &
                  Type_Unit_Name & """, Response => """ &
                  Profile.Image (New_Response_Profile) & """);]",
                  Profile.Auxiliary_Msg);
    --
    Batch_Benchmark (Context => Context_Name,
                     Main_Unit => Main_Unit_Name,
                     Response => Response);
    --
    Incremental_Benchmark (Context => Context_Name,
                           Main_Unit => Main_Unit_Name,
                           Type_Unit => Type_Unit_Name,
                           Response => Response);
    --
    Log.Put_Line ("[end of Run_Benchmarks command - no error(s) detected]",
                  Profile.Auxiliary_Msg);
    Profile.Set (Old_Response_Profile);
    --
exception
    when others =>
        Log.Put_Line ("[end of Run_Benchmarks command - error(s) detected]",
                      Profile.Auxiliary_Msg);
        Profile.Set (Old_Response_Profile);
        --
end Run_Benchmarks;