DataMuseum.dk Presents historical artifacts from the history of: Rational R1000/400

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 Excavated with: AutoArchaeologist - Free & Open Source Software.

top - download

⟦e27192618⟧ Ada Source

    Length: 4096 (0x1000)
    Types: Ada Source
    Notes: 03_class, FILE, R1k_Segment, e3_tag, package body Errors, seg_02ba3f

Derivation

└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
    └─ ⟦cfc2e13cd⟧ »Space Info Vol 2« 
        └─⟦this⟧ 

with Log;
package body Errors is

    Errors_Detected : Boolean := False;

    procedure Prologue is
    begin
        Profile.Set (New_Response_Profile);
        Log.Put_Line ("[" & Operation_Name & " (" & Parameter_List & ");]",
                      Profile.Auxiliary_Msg);
    end Prologue;

    procedure Report (This_Message : in String;
                      This_Type : in Profile.Msg_Kind := Profile.Error_Msg;
                      Fatal : in Boolean := True;
                      Nested : in Boolean := False;
                      Suppress_Closing_Message : in Boolean := False) is

        procedure Output_Error_Message is
        begin
            if This_Message /= Nil_Message then
                Log.Put_Line (This_Message, This_Type);
            end if;
        end Output_Error_Message;

        procedure Output_Closing_Message is
        begin
            if not Suppress_Closing_Message then
                Log.Put_Line ("[end of " & Operation_Name &
                              " operation--error(s) detected]",
                              Profile.Auxiliary_Msg);
            end if;
            Profile.Set (Old_Response_Profile);
        end Output_Closing_Message;

    begin
        Errors_Detected := True;
        case Profile.Reaction (New_Response_Profile) is
            when Profile.Quit =>
                Output_Error_Message;
                Output_Closing_Message;
                if Nested then
                    raise Quit;  
                end if;
            when Profile.Propagate =>
                Output_Error_Message;
                Output_Closing_Message;
                raise Propagate;
            when Profile.Persevere =>
                Output_Error_Message;
                if Fatal then
                    Output_Closing_Message;
                    if Nested then
                        raise Quit;
                    end if;
                end if;
            when Profile.Raise_Error =>
                Output_Error_Message;
                if Fatal then
                    Output_Closing_Message;
                    raise Propagate;
                end if;
        end case;
    end Report;

    procedure Epilogue is
    begin  
        if Errors_Detected then
            Log.Put_Line ("[end of " & Operation_Name &
                          " operation--error(s) detected]",
                          Profile.Auxiliary_Msg);
        else
            Log.Put_Line ("[end of " & Operation_Name &
                          " operation--no errors detected]",
                          Profile.Auxiliary_Msg);
        end if;
        Profile.Set (Old_Response_Profile);
    end Epilogue;

end Errors;

    nblk1=3
    nid=0
    hdr6=6
        [0x00] rec0=1e rec1=00 rec2=01 rec3=050
        [0x01] rec0=1b rec1=00 rec2=02 rec3=02e
        [0x02] rec0=19 rec1=00 rec2=03 rec3=000
    tail 0x21724815283f07907ed3f 0x42a00088462060003