DataMuseum.dk

top - metrics - download

    Length: 2632 (0xa48)
    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⟧ 

TextFile

with Log;
with Errors;
with Compose;
with Profile;
with Subtypes;
use Subtypes;
with Arguments;
with Pathnames;
with Assertions;
with Debug_Tools;
procedure Format_Release_Notice (For_Catalog : in Simple_Name := "<DEFAULT>";
                                 This_Version : 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,
                             "Format_Release_Notice");
    --
begin
    Profile.Set (New_Response_Profile);
    Log.Put_Line ("[Format_Release_Notice (For_Catalog => """ &
                  For_Catalog & """, This_Version => """ & This_Version &
                  """, Response => """ & Response & """)]",
                  Profile.Auxiliary_Msg);
    declare
        The_Version : constant Full_Name :=
           Arguments.Version_From (For_Catalog, This_Version);
    begin  
        Assertions.Assert_Has_Release_Notice (The_Version);
        Log.Put_Line ("Formatting release notice");
        begin
            Compose (Document => Pathnames.Release_Notice_For (The_Version),
                     Options => "Include => " &
                                   Pathnames.Document_Setup_File_For
                                      (The_Version),
                     Response => "PROPAGATE," & Response);
            Assertions.Assert_Has_Formatted_Release_Notice (The_Version);
            --
        exception
            when others =>
                Error.Report ("Release notice formatting failed",
                              Nested => True);
        end;
    end;
    Log.Put_Line
       ("[end of Format_Release_Notice operation--no errors detected]");
    Profile.Set (Old_Response_Profile);
    --
exception
    when Arguments.Invalid_Catalog =>
        Error.Report ("Specified catalog is invalid");
    when Arguments.Invalid_Version =>
        Error.Report ("Specified version is invalid");
    when Arguments.Io_Failure =>
        Error.Report ("Can't find default(s)--run ""Catalog.Set_Defaults""");
    when Assertions.Has_No_Release_Notice =>
        Error.Report ("Can't find unformatted release notice");
    when Error.Propagate =>
        raise;
    when Error.Quit =>
        null;
    when others =>
        Error.Report ("EXCEPTION: " & Debug_Tools.Get_Exception_Name,
                      Profile.Exception_Msg);
        --
end Format_Release_Notice;