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

⟦94230b4f0⟧ TextFile

    Length: 1904 (0x770)
    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 Errors;
with Common;
with Profile;
with Subtypes;
use Subtypes;
with Pathnames;
with Arguments;
with Assertions;
with Debug_Tools;
procedure Sections (For_Catalog : in Simple_Name := "<DEFAULT>";
                    Response : in String := "<PROFILE>") is
    --
    Old_Response_Profile : Profile.Response_Profile := Profile.Get;
    New_Response_Profile : Profile.Response_Profile := Profile.Value (Response);
    --
    package Error is
       new Errors  
              (Old_Response_Profile, New_Response_Profile, "Sections");
    --
    procedure Report (This_Message : in String;
                      This_Kind : in Profile.Msg_Kind := Profile.Error_Msg) is
    begin
        Profile.Set (New_Response_Profile);
        Log.Put_Line ("[Sections (For_Catalog => """ & For_Catalog &
                      """, Response => """ & Response & """)]",
                      Profile.Auxiliary_Msg);
        Error.Report (This_Message, This_Kind);
    end Report;
    --
begin
    declare
        The_Catalog : constant Full_Name :=
           Arguments.Catalog_From (For_Catalog);
    begin  
        Assertions.Assert_Catalog_Exists (The_Catalog);
        Assertions.Assert_Has_Sections_Context (The_Catalog);
        Profile.Set (Old_Response_Profile);
        Common.Definition (Pathnames.Sections_Context_For (The_Catalog));
    end;
    --
exception
    when Arguments.Invalid_Catalog =>
        Report ("Specified catalog is invalid");
    when Arguments.Io_Failure =>
        Report ("Can't find default--run ""Catalog.Set_Defaults""");
    when Assertions.Has_No_Sections_Context =>
        Report ("Cannot find sections context for specified catalog");
    when Error.Propagate =>
        raise;
    when Error.Quit =>
        null;
    when others =>
        Report ("EXCEPTION: " & Debug_Tools.Get_Exception_Name,
                Profile.Exception_Msg);
        --
end Sections;