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 - metrics - download

⟦28e54f5b8⟧ Ada Source

    Length: 8192 (0x2000)
    Types: Ada Source
    Notes: 03_class, FILE, R1k_Segment, e3_tag, package Errors, pragma Module_Name 4 3584, pragma Subsystem Design_Facility, seg_001c65

Derivation

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

with Profile;
with Simple_Status;
package Errors is
    subtype Error_Kinds    is Simple_Status.Condition_Name;
    subtype Condition      is Simple_Status.Condition;
    subtype Error_Severity is Simple_Status.Condition_Class;


    function Make (Error_Name : String;  
                   Severity   : Error_Severity) return Error_Kinds
        renames Simple_Status.Create_Condition_Name;

    procedure Append_Condition (A_Condition : in out Condition;
                                Owner       :        String;
                                Error_Kind  :        Error_Kinds;
                                Message     :        String);

    procedure Set_Ok (A_Condition : in out Condition)
        renames Simple_Status.Initialize;
    procedure Set (A_Condition : in out Condition;
                   Error_Kind  : Error_Kinds;
                   Message     : String) renames Simple_Status.Create_Condition;


    function Kind (Of_Condition : Condition) return Error_Kinds
        renames Simple_Status.Error_Type;

    function Severity (Of_Condition : Condition) return Error_Severity
        renames Simple_Status.Severity;

    function Info (From_Condition : Condition) return String;


    function Exception_Info return String;
    -- To be called from within an exception handler


    function Is_Error (A_Condition : Condition;
                       Severity    : Error_Severity := Simple_Status.Warning)
                      return Boolean renames Simple_Status.Error;
    -- Returns True if the severity of A_CONDITION's error is
    -- worse than or equal to SEVERITY. (EG. PROBLEM is worse than WARNING)

    function Is_Equal
                (A_Condition : Condition; An_Error : Error_Kinds) return Boolean
        renames Simple_Status.Equal;
    -- Returns true if the ERROR_KIND of A_CONDITION is equal to AN_ERROR.


    ----------------------------------------------------------
    -- The following are utilities for logging error messages
    ----------------------------------------------------------
    subtype Log_Level is Profile.Msg_Kind;

    Debug    : constant Log_Level := Profile.Debug_Msg;
    Note     : constant Log_Level := Profile.Note_Msg;
    Positive : constant Log_Level := Profile.Positive_Msg;
    Negative : constant Log_Level := Profile.Negative_Msg;
    Warning  : constant Log_Level := Profile.Warning_Msg;
    Error    : constant Log_Level := Profile.Error_Msg;

    procedure Report_Exception (Where, What : String;
                                Level : Log_Level := Error;
                                Dont_Log, In_Message_Window : Boolean := False);
    -- To be called within an exception handler

    procedure Report (Where, What                 : String;
                      With_Condition              : Condition;
                      Level                       : Log_Level := Note;
                      Dont_Log, In_Message_Window : Boolean   := False);

    procedure Report (Where, What                 : String;
                      Level                       : Log_Level := Note;
                      Dont_Log, In_Message_Window : Boolean   := False);


    --------------------------------------------------------------
    -- The following are errors used within the design facility
    --------------------------------------------------------------
    None : Error_Kinds :=  
       Make ("NONE", Simple_Status.Normal);

    Internal_Error      : Error_Kinds :=  
       Make ("INTERNAL_ERROR", Simple_Status.Fatal);
    Unknown             : Error_Kinds :=  
       Make ("UNKNOWN", Simple_Status.Fatal);
    Unhandled_Exception : Error_Kinds :=  
       Make ("UNHANDLED_EXCEPTION", Simple_Status.Fatal);
    Unimplemented       : Error_Kinds :=  
       Make ("UNIMPLEMENTED", Simple_Status.Fatal);

    Open_Error     : Error_Kinds :=  
       Make ("OPEN_ERROR", Simple_Status.Problem);
    Create_Error   : Error_Kinds :=  
       Make ("CREATE_ERROR", Simple_Status.Problem);
    Access_Error   : Error_Kinds :=  
       Make ("ACCESS_ERROR", Simple_Status.Problem);
    Lock_Error     : Error_Kinds :=  
       Make ("LOCK_ERROR", Simple_Status.Problem);
    Mapping_Error  : Error_Kinds :=  
       Make ("MAPPING_ERROR", Simple_Status.Problem);
    Inconsistency  : Error_Kinds :=  
       Make ("INCONSISTENCY", Simple_Status.Problem);
    Table_Overflow : Error_Kinds :=
       Make ("TABLE_OVERFLOW", Simple_Status.Problem);

    Undefined : Error_Kinds :=  
       Make ("UNDEFINED", Simple_Status.Warning);

    Obsolete : Error_Kinds := Make ("OBSOLETE", Simple_Status.Warning);


    pragma Subsystem (Design_Facility, Closed);
    pragma Module_Name (4, 3584);
    pragma Bias_Key (109);
end Errors;

    nblk1=7
    nid=0
    hdr6=e
        [0x00] rec0=1a rec1=00 rec2=01 rec3=056
        [0x01] rec0=00 rec1=00 rec2=07 rec3=010
        [0x02] rec0=1a rec1=00 rec2=02 rec3=030
        [0x03] rec0=13 rec1=00 rec2=03 rec3=068
        [0x04] rec0=00 rec1=00 rec2=06 rec3=016
        [0x05] rec0=18 rec1=00 rec2=04 rec3=014
        [0x06] rec0=17 rec1=00 rec2=05 rec3=000
    tail 0x20100f6b87da18db5d10d 0x42a00088462065003