|
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 Registrated_Object, seg_054676, seg_054d6c
└─⟦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