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

⟦280689355⟧ Ada Source

    Length: 7168 (0x1c00)
    Types: Ada Source
    Notes: 03_class, FILE, R1k_Segment, e3_tag, package Cmvc_Implementation_Errors, pragma Module_Name 4 3761, pragma Subsystem Tools, seg_028456

Derivation

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

E3 Source Code



package Cmvc_Implementation_Errors is
    subtype Status is Natural range 0 .. 127;

    Nil                          : constant Status := 0;
    Successful                   : constant Status := 0;
    Config_Is_Frozen             : constant Status := 1;
    Must_Have_Set_Name           : constant Status := 2;
    Resolve_Failed               : constant Status := 3;
    Must_Specify_Element         : constant Status := 4;
    Not_Just_One_Set             : constant Status := 5;
    Bogus_Parameters             : constant Status := 6;
    Element_Not_In_Configuration : constant Status := 7;
    Must_Specify_Configuration   : constant Status := 8;
    Must_Specify_Database        : constant Status := 9;
    Bad_Class                    : constant Status := 10;
    Must_Specify_Elem_And_Config : constant Status := 11;
    Multiple_Databases_Specified : constant Status := 12;
    Must_Specify_Elem_And_Db     : constant Status := 13;
    Cant_Upgrade_Open_Type       : constant Status := 14;
    Cant_Open_Db                 : constant Status := 15;
    Cant_Create_Db               : constant Status := 16;
    No_Such_Version_Set          : constant Status := 17;
    No_Such_Element              : constant Status := 18;
    No_Such_Version              : constant Status := 19;
    Duplicate_Element_Name       : constant Status := 20;
    Duplicate_Set_Name           : constant Status := 21;
    No_Such_Configuration        : constant Status := 22;
    Duplicate_Configuration_Name : constant Status := 23;
    Must_Specify_Version_Set     : constant Status := 24;
    Must_Specify_Set_And_Config  : constant Status := 25;
    Element_Already_In_Config    : constant Status := 26;
    Cannot_Open_Source_Object    : constant Status := 27;
    Cannot_Create_Target_Object  : constant Status := 28;
    Not_Checked_Out              : constant Status := 29;
    Set_Not_In_Configuration     : constant Status := 30;
    Not_A_Config_Obj             : constant Status := 31;
    Checked_Out_To_Other_Config  : constant Status := 32;
    Can_Delete_Only_End_Versions : constant Status := 33;
    Duplicate_Class_Name         : constant Status := 34;
    Bad_Generation               : constant Status := 35;
    Bad_Generation_Pair          : constant Status := 36;
    Already_Checked_Out          : constant Status := 37;
    Cannot_Create_List_File      : constant Status := 38;
    Cannot_Close_Database        : constant Status := 39;
    Not_A_Database               : constant Status := 40;
    Unknown_Error                : constant Status := 126;
    Bad                          : constant Status := 127;

    function Is_Bad (Stat : Status) return Boolean;

    function Message (N : Status) return String;

    Text_Creation_Storage_Error       : constant Status := 41;
    Database_Storage_Error            : constant Status := 42;
    No_Common_Ancestor_Found          : constant Status := 43;
    Source_Is_Checked_Out             : constant Status := 44;
    Destination_Is_Checked_Out        : constant Status := 45;
    Database_Was_Locked               : constant Status := 46;
    Database_Access_Control_Violation : constant Status := 47;
    Source_Not_Saved_In_Database      : constant Status := 48;
    Line_Too_Long_For_Storage         : constant Status := 49;
    Source_Object_Is_Locked           : constant Status := 50;
    Source_Object_Is_Access_Protected : constant Status := 51;

    -- End status codes
    pragma Subsystem (Tools);
    pragma Module_Name (4, 3761);
end Cmvc_Implementation_Errors;

E3 Meta Data

    nblk1=6
    nid=0
    hdr6=c
        [0x00] rec0=14 rec1=00 rec2=01 rec3=044
        [0x01] rec0=03 rec1=00 rec2=06 rec3=054
        [0x02] rec0=11 rec1=00 rec2=02 rec3=04e
        [0x03] rec0=02 rec1=00 rec2=05 rec3=052
        [0x04] rec0=14 rec1=00 rec2=03 rec3=004
        [0x05] rec0=08 rec1=00 rec2=04 rec3=000
    tail 0x21520f70883c172d91c04 0x42a00088462065003