|
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: 9216 (0x2400)
Types: Ada Source
Notes: 03_class, FILE, R1k_Segment, e3_tag, package The_Contrats, seg_05594a, seg_055962
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦cfc2e13cd⟧ »Space Info Vol 2«
└─⟦this⟧
with Com_Defs;
with All_String;
with Set_Generic;
with Set_Method;
package The_Contrats is
type Contrat_Record is limited private;
type Contrat_Iterator is limited private;
type T_Object is
record
Class : Com_Defs.V_String;
Object : Com_Defs.V_String;
The_Method : Set_Method.Set_Of_Methods.Set :=
Set_Method.Create_A_Set_Of_Methods;
Address : All_String.Adress_String_And_Apply_Number;
end record;
type Contrat is
record
Class_Name, Object_Name, Method_Name, Parameter, Number :
Com_Defs.V_String;
end record;
type Contrat_Array is array (1 .. 5) of Contrat_Record;
procedure Init (The_Contrat_Iterator : in out Contrat_Iterator;
The_Contrat_Array : Contrat_Array);
function Done (The_Contrat_Iterator : Contrat_Iterator) return Boolean;
procedure Next (The_Contrat_Iterator : in out Contrat_Iterator);
function Value (The_Contrat_Iterator : Contrat_Iterator) return Contrat;
package Set_Of_Objects is new Set_Generic (Element => T_Object);
function Create_A_Set_Of_Objects return Set_Of_Objects.Set;
procedure Create_Set (The_Contrat : in out Set_Of_Objects.Set);
procedure Add_A_Contrat
(The_Contrat : in out Set_Of_Objects.Set;
With_This_Class_Name : Com_Defs.V_String;
With_This_Object_Name : Com_Defs.V_String;
With_This_Method_Name : Com_Defs.V_String;
With_This_Parameter : Com_Defs.V_String;
With_This_Number : Com_Defs.V_String;
With_This_Adress : All_String.Adress_String_And_Apply_Number);
procedure Add_A_Method (The_Contrat : in out Set_Of_Objects.Set;
To_This_Class : Com_Defs.V_String;
To_This_Object_Name : Com_Defs.V_String;
Which_Has_This_Adress :
All_String.Adress_String_And_Apply_Number;
This_Method_Name : Com_Defs.V_String;
With_This_Parameter : Com_Defs.V_String;
And_This_Number : Com_Defs.V_String);
procedure Delete_A_Contrat
(The_Contrat : in out Set_Of_Objects.Set;
With_This_Class_Name : Com_Defs.V_String;
With_This_Object_Name : Com_Defs.V_String;
Which_Has_This_Adress : All_String.
Adress_String_And_Apply_Number);
procedure Extract_All_Objects (The_Contrat : in Set_Of_Objects.Set;
With_This_Name_Class : Com_Defs.V_String;
Response_In : in out Contrat_Array);
procedure Extract_All_Methods (The_Contrat : in Set_Of_Objects.Set;
From_This_Class : Com_Defs.V_String;
With_This_Object_Name : Com_Defs.V_String;
Response_In : in out Contrat_Array);
procedure Extract_The_Adress
(The_Contrat : in Set_Of_Objects.Set;
From_This_Class : Com_Defs.V_String;
With_This_Object_Name : Com_Defs.V_String;
With_This_Method_Name : Com_Defs.V_String;
With_This_Parameter : Com_Defs.V_String;
With_This_Number : Com_Defs.V_String;
Response_In : in out All_String.
Adress_String_And_Apply_Number);
function Find_This_Object
(The_Contrat : in Set_Of_Objects.Set;
With_This_Class_Name : Com_Defs.V_String) return Boolean;
function Find_This_Object
(The_Contrat : in Set_Of_Objects.Set;
With_This_Class_Name : Com_Defs.V_String;
With_This_Object_Name : Com_Defs.V_String) return Boolean;
function Find_This_Object
(The_Contrat : in Set_Of_Objects.Set;
With_This_Name_Class : Com_Defs.V_String;
With_This_Object_Name : Com_Defs.V_String;
With_This_Method_Name : Com_Defs.V_String) return Boolean;
function Find_This_Object
(The_Contrat : in Set_Of_Objects.Set;
With_This_Name_Class : Com_Defs.V_String;
With_This_Object_Name : Com_Defs.V_String;
With_This_Method_Name : Com_Defs.V_String;
With_This_Parameter : Com_Defs.V_String;
With_This_Number : Com_Defs.V_String) return Boolean;
procedure Mark_As_Lost (The_Contrat : in out Set_Of_Objects.Set;
With_This_Name_Class : Com_Defs.V_String;
With_This_Object_Name : Com_Defs.V_String;
With_This_Method_Name : Com_Defs.V_String;
With_This_Parameter : Com_Defs.V_String;
With_This_Number : Com_Defs.V_String);
procedure Unmark_As_Lost (The_Contrat : in out Set_Of_Objects.Set;
With_This_Name_Class : Com_Defs.V_String;
With_This_Object_Name : Com_Defs.V_String;
With_This_Method_Name : Com_Defs.V_String;
With_This_Parameter : Com_Defs.V_String;
With_This_Number : Com_Defs.V_String);
procedure Mark_As_Used (The_Contrat : in out Set_Of_Objects.Set;
With_This_Name_Class : Com_Defs.V_String;
With_This_Object_Name : Com_Defs.V_String;
With_This_Method_Name : Com_Defs.V_String;
With_This_Parameter : Com_Defs.V_String;
With_This_Number : Com_Defs.V_String);
procedure Unmark_As_Used (The_Contrat : in out Set_Of_Objects.Set;
With_This_Name_Class : Com_Defs.V_String;
With_This_Object_Name : Com_Defs.V_String;
With_This_Method_Name : Com_Defs.V_String;
With_This_Parameter : Com_Defs.V_String;
With_This_Number : Com_Defs.V_String);
procedure Print (The_Contrat : in Set_Of_Objects.Set);
private
type Contrat_Record is
record
The_Contrat : Contrat;
Presence : Boolean := False;
end record;
type Contrat_Iterator is
record
Data : Contrat_Array;
Index : Positive := Contrat_Array'First;
end record;
end The_Contrats;
nblk1=8
nid=0
hdr6=10
[0x00] rec0=1f rec1=00 rec2=01 rec3=054
[0x01] rec0=06 rec1=00 rec2=08 rec3=030
[0x02] rec0=10 rec1=00 rec2=03 rec3=01c
[0x03] rec0=10 rec1=00 rec2=04 rec3=052
[0x04] rec0=12 rec1=00 rec2=07 rec3=038
[0x05] rec0=0f rec1=00 rec2=06 rec3=08c
[0x06] rec0=0e rec1=00 rec2=05 rec3=090
[0x07] rec0=13 rec1=00 rec2=02 rec3=001
tail 0x21760480287be6a51e077 0x42a00088462060003