|
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 General_Data_Base, seg_057ec6, seg_05826e
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦cfc2e13cd⟧ »Space Info Vol 2«
└─⟦this⟧
with Method_Set;
with Agent_Set;
with Agent_Nb_Generator;
with Agent_Nb;
with Com_Chanel;
with Var_String;
with Method_Defs;
with Methode;
with Agent;
with Class;
with Spy;
with Filter;
with Spy_List;
with String_Utilities;
package General_Data_Base is
use Com_Chanel;
use Method_Defs;
type T_General_Data_Base is private;
procedure Create_General_Data_Base
(The_Data_Base : out T_General_Data_Base);
procedure Registration (The_Data_Base : in out T_General_Data_Base;
The_Object : in Com_Chanel.Object;
The_Agent_Nb : in out Agent_Nb.T_Agent_Nb;
The_Class : in Var_String.V_String);
procedure Get_Com_Chanel (The_Data_Base : in out T_General_Data_Base;
The_Agent_Nb : in Agent_Nb.T_Agent_Nb;
The_Object_Result : out Com_Chanel.Object);
procedure Unregistration (The_Data_Base : in out T_General_Data_Base;
The_Agent_Nb : in Agent_Nb.T_Agent_Nb);
procedure Publication (The_Data_Base : in out T_General_Data_Base;
The_Agent_Nb : in Agent_Nb.T_Agent_Nb;
The_Method_Name : in Var_String.V_String;
The_Parameter : in Var_String.V_String);
procedure Unpublication (The_Data_Base : in out T_General_Data_Base;
The_Agent_Nb : in Agent_Nb.T_Agent_Nb;
The_Method_Name : in Var_String.V_String);
procedure Request (The_Data_Base : in out T_General_Data_Base;
The_Method : in Var_String.V_String;
The_Agent_Nb_Set : out Agent_Nb_Set.Set;
The_Parameter : out Var_String.V_String;
Request_Result : out Boolean);
private
use Method_Set;
use Agent_Nb_Generator;
use Agent_Set;
type T_General_Data_Base is
record
One_Method_List : Method_Set.Set;
One_Agent_List : Agent_Set.Set;
One_Agent_Nb_Generator : Agent_Nb_Generator.T_Agent_Nb_Generator;
end record;
end General_Data_Base;
nblk1=4
nid=4
hdr6=6
[0x00] rec0=21 rec1=00 rec2=01 rec3=034
[0x01] rec0=13 rec1=00 rec2=02 rec3=00e
[0x02] rec0=08 rec1=00 rec2=03 rec3=000
[0x03] rec0=04 rec1=00 rec2=02 rec3=000
tail 0x217645be087c7869e56f8 0x42a00088462060003
Free Block Chain:
0x4: 0000 00 00 01 15 00 12 20 20 20 20 75 73 65 20 41 67 ┆ use Ag┆