|
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 - metrics - download
Length: 5120 (0x1400)
Types: Ada Source
Notes: 03_class, FILE, R1k_Segment, e3_tag, package Object_Manager, seg_055e2a
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─⟦cfc2e13cd⟧ »Space Info Vol 2«
└─⟦this⟧
with S_Generic_List;
with Registrated_Object;
with Parametre_Defs, Parametre;
with Message;
package Object_Manager is
package Registrated_Objects is
new S_Generic_List (Element => Registrated_Object.Object);
type Object_Id is new Parametre_Defs.Identificator;
package Objects_Id is new S_Generic_List (Element => Object_Id);
type Object is limited private;
function Null_Id return Object_Id;
function Is_Equal (Left, Right : Object_Id) return Boolean;
function Image (D_B : Object) return String;
function Get_Object_By_Id (The_Orb : Object;
Id : Parametre_Defs.Identificator)
return Registrated_Object.Object;
function Search_Object_Doing_Method
(Data_Base : Object;
Class : Parametre.Variable_String;
Method : Parametre.Variable_String) return Objects_Id.S_List;
function Search_Method_By_Object_Id (Data_Base : Object;
Object : Parametre_Defs.Identificator;
Method : Parametre.Variable_String) return Object_Id;
procedure Add_Object (D_B : in out Object;
Id : out Object_Id;
In_Mess : Message.Object;
Out_Mess : in out Message.Object);
procedure Talk_To_Object (Data_Base : Object;
Id : Object_Id;
Mess : in out Message.Object;
Result : out Boolean);
function Is_Unknown (D_B : Object; Id : Object_Id) return Boolean;
procedure Set_To_Free (D_B : in out Object; Id : Object_Id);
procedure Set_To_Unknow (D_B : in out Object; Id : Object_Id);
procedure Give_Work (D_B : in out Object; Id : Object_Id);
procedure Work_Finished (D_B : in out Object; Id : Object_Id);
procedure Remove_Object (D_B : in out Object; Id : in Object_Id);
procedure Add_Method
(D_B : in out Object; Id : Object_Id; Mess : Message.Object);
procedure Remove_Method
(D_B : in out Object; Id : Object_Id; Mess : Message.Object);
procedure Subscribe (D_B : in out Object;
Subscripter_Id, Subscripted_Id : Object_Id;
Mess : Message.Object);
procedure Unsubscribe (D_B : in out Object;
Subscripter_Id, Subscripted_Id : Object_Id;
Mess : Message.Object);
function Get_All_Subscripter
(D_B : in Object;
Subscripted : Object_Id;
Method_N : Parametre.Variable_String) return Objects_Id.S_List;
private
type Object is
record
List : Registrated_Objects.S_List;
end record;
end Object_Manager;
nblk1=4
nid=2
hdr6=6
[0x00] rec0=1b rec1=00 rec2=01 rec3=002
[0x01] rec0=10 rec1=00 rec2=04 rec3=08a
[0x02] rec0=18 rec1=00 rec2=03 rec3=000
[0x03] rec0=0f rec1=00 rec2=02 rec3=000
tail 0x2176144a487c08436098c 0x42a00088462060003
Free Block Chain:
0x2: 0000 00 00 01 e2 80 05 6a 65 63 74 3b 05 00 46 20 20 ┆ ject; F ┆