|
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 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 ┆