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

⟦da9d9eef0⟧ Ada Source

    Length: 3072 (0xc00)
    Types: Ada Source
    Notes: 03_class, FILE, R1k_Segment, e3_tag, package Registrated_Object, seg_054676, seg_054d6c

Derivation

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

with Byte_Defs;
with Transport_Name;
with Utils;
with Transport_Defs;  
with Channel_User;
with Parametre;  
use Parametre;
with Parametre_Defs;
with Bls_Constant;
with Registered_Object_State;
with S_Generic_List;  
with Method;
with My_Channel_User;
package Registrated_Object is
    package Method_List is new S_Generic_List (Element => Method.Object);
    type Object is private;
    function Image (O : in Object) return String;
    function Get_Id (O : in Object) return Parametre_Defs.Identificator;
    function Get_Channel (O : in Object) return My_Channel_User.Object;
    function Get_Class (O : in Object) return Parametre.Variable_String;
    function Get_Methods (O : in Object) return Variable_String;  
    function Get_Method (O : in Object; Meth : in Variable_String)
                        return Method.Object;
    function Is_Method (O : in Object; Meth : Variable_String) return Boolean;
    function Get_State (O : in Object) return Registered_Object_State.Object;
    procedure Add_Method (O : in out Object; Meth : Method.Object);
    procedure Remove_Method (O : in out Object; Meth : Variable_String);
    procedure Free (O : in out Object);
    procedure Init (O : in out Object;  
                    Class : Variable_String;
                    Obj_Sock : Variable_String;
                    Obj_Host : Variable_String;
                    Ok : out Boolean);
    procedure Give_Work (O : in out Object);
    procedure Work_Finished (O : in out Object);
    procedure Ready_For_Work (O : in out Object);
private  
    type Object is
        record
            Channel : My_Channel_User.Object;
            Class : Parametre.Variable_String;
            --Object_Id : Parametre_Defs.Identificator;
            Methods : Method_List.S_List;
            --Method_Iterator : Liste_Parametre.Iterator;
            State : Registered_Object_State.Object;
        end record;

end Registrated_Object;

    nblk1=2
    nid=0
    hdr6=4
        [0x00] rec0=1a rec1=00 rec2=01 rec3=06e
        [0x01] rec0=18 rec1=00 rec2=02 rec3=000
    tail 0x2175d7b3287b8842b9213 0x42a00088462060003