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

⟦24fae3a26⟧ Ada Source

    Length: 3072 (0xc00)
    Types: Ada Source
    Notes: 03_class, FILE, R1k_Segment, e3_tag, package Register_Contrat, seg_05490e

Derivation

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

with Set_Class;  
with Com_Defs;
with All_String;

package Register_Contrat is

    The_Registered_Table_Of_Contrat :
       Set_Class.Map_Of_Class.Map := Set_Class.Create_Empty_Map;

    type T_Contrat is
        record
            Class, Object, Method, Parameter, Number : Com_Defs.V_String;
        end record;

    function Create_Empty_Contrat return T_Contrat;


    function The_Class_Of (C : T_Contrat) return Com_Defs.V_String;
    function The_Object_Of (C : T_Contrat) return Com_Defs.V_String;
    function The_Method_Of (C : T_Contrat) return Com_Defs.V_String;
    function The_Parameter_Of (C : T_Contrat) return Com_Defs.V_String;
    function The_Number_Of (C : T_Contrat) return Com_Defs.V_String;


    function Find (This_Contrat : T_Contrat) return Boolean;  
    function Find_This_Method (Name : Com_Defs.V_String) return Boolean;
    function Find_This_Object (Name : Com_Defs.V_String) return Boolean;
    function Find_This_Class (Name : Com_Defs.V_String) return Boolean;

    function Extract_This_Contrat
                (With_Method_Name : Com_Defs.V_String) return T_Contrat;
    function Extract_This_Contrat
                (With_Method_Name : Com_Defs.V_String;
                 From_This_Object_Name : Com_Defs.V_String) return T_Contrat;
    function Extract_Adress_Server
                (From : T_Contrat) return All_String.
                                          Adress_String_And_Apply_Number;
    procedure Mark (This_Contrat : T_Contrat);

end Register_Contrat;

    nblk1=2
    nid=0
    hdr6=4
        [0x00] rec0=1d rec1=00 rec2=01 rec3=040
        [0x01] rec0=0d rec1=00 rec2=02 rec3=000
    tail 0x2175da42e87b88749e8a1 0x42a00088462060003