|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
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
└─⟦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