|
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: 5120 (0x1400)
Types: Ada Source
Notes: 03_class, FILE, R1k_Segment, e3_tag, package Registrated_Object, seg_0570f7
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦cfc2e13cd⟧ »Space Info Vol 2«
└─⟦this⟧
with Transport_Defs;
with Parametre;
use Parametre;
with Parametre_Defs;
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;
procedure Close_Channel (O : in out 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 Is_Free (O : Object) return Boolean;
function Is_Unknown (O : Object) return Boolean;
function Is_Busy (O : Object) return Boolean;
procedure Add_Method (O : in out Object; Meth : Method.Object);
procedure Remove_Method (O : in out Object; Meth : Variable_String);
procedure Replace_Method
(O : in out Object;
The_Method_To_Replace, New_Method : in out Method.Object);
procedure Free (O : in out Object);
procedure Init (O : in out Object;
Class : Variable_String;
Obj_Sock : Transport_Defs.Socket_Id;
Obj_Host : Transport_Defs.Host_Id;
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);
procedure Set_To_Unknown (O : in out Object);
function Null_Object return 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=4
nid=2
hdr6=6
[0x00] rec0=17 rec1=00 rec2=01 rec3=006
[0x01] rec0=15 rec1=00 rec2=03 rec3=048
[0x02] rec0=0b rec1=00 rec2=04 rec3=000
[0x03] rec0=06 rec1=00 rec2=02 rec3=001
tail 0x21763ba8487c59abbc207 0x42a00088462060003
Free Block Chain:
0x2: 0000 00 00 00 06 00 03 20 20 20 03 20 20 20 03 03 03 ┆ ┆