|
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: 3072 (0xc00) Types: Ada Source Notes: 03_class, FILE, R1k_Segment, e3_tag, package Po_Conditions, seg_028b79
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000 └─ ⟦5a81ac88f⟧ »Space Info Vol 1« └─⟦this⟧
with Simple_Status; with Po_Handle; package Po_Conditions is subtype Condition_Class is Simple_Status.Condition_Class; subtype Condition_Name is Simple_Status.Condition_Name; subtype Condition is Simple_Status.Condition; Normal : constant Condition_Class := Simple_Status.Normal; Warning : constant Condition_Class := Simple_Status.Warning; Problem : constant Condition_Class := Simple_Status.Problem; Fatal : constant Condition_Class := Simple_Status.Fatal; function Create_Condition_Name (Error_Type : String; Severity : Condition_Class) return Condition_Name renames Simple_Status.Create_Condition_Name; Lock_Error : constant Condition_Name := Create_Condition_Name (Error_Type => "Lock Error", Severity => Problem); Name_Error : constant Condition_Name := Create_Condition_Name (Error_Type => "Name Error", Severity => Problem); Mode_Error : constant Condition_Name := Create_Condition_Name (Error_Type => "Mode Error", Severity => Problem); Status_Error : constant Condition_Name := Create_Condition_Name (Error_Type => "Status Error", Severity => Problem); Data_Error : constant Condition_Name := Create_Condition_Name (Error_Type => "Invalid Data Layout", Severity => Problem); Class_Error : constant Condition_Name := Create_Condition_Name (Error_Type => "Invalid File Class Identifier", Severity => Problem); File_Error : constant Condition_Name := Create_Condition_Name (Error_Type => "Unknown File Class", Severity => Problem); No_Error : constant Condition_Name := Create_Condition_Name (Error_Type => "", Severity => Normal); procedure Check_Condition (Cond : Condition; Handle : Po_Handle.Object; Abort_Severity : Condition_Class := Problem); end Po_Conditions;
nblk1=2 nid=0 hdr6=4 [0x00] rec0=1a rec1=00 rec2=01 rec3=026 [0x01] rec0=17 rec1=00 rec2=02 rec3=000 tail 0x21521323a83c55e0b8023 0x42a00044462022803