|
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 Set_Of_Fil_Observ, seg_055a5c, seg_055a6c
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦cfc2e13cd⟧ »Space Info Vol 2«
└─⟦this⟧
with Set_Generic;
with All_String;
with Com_Defs;
package Set_Of_Fil_Observ is
type T_Filtre_Observer is
record
The_Adress_String_And_Apply_Number :
All_String.Adress_String_And_Apply_Number;
The_Specification : Com_Defs.V_String;
The_Machine : Com_Defs.V_String;
The_Appli_Number : Com_Defs.V_String;
end record;
package My_Set_Of_Fil_Ob is new Set_Generic (T_Filtre_Observer);
procedure Initialize (The_Set : in out My_Set_Of_Fil_Ob.Set);
function Contains_This_Adress
(The_Set : in My_Set_Of_Fil_Ob.Set;
This_Adress : in All_String.Adress_String_And_Apply_Number)
return Boolean;
procedure Add_To (This_Set : in out My_Set_Of_Fil_Ob.Set;
This_Adress : in All_String.
Adress_String_And_Apply_Number;
This_Machine : Com_Defs.V_String;
This_Appli_Number : Com_Defs.V_String);
procedure Delete_To (This_Set : in out My_Set_Of_Fil_Ob.Set;
This_Adress : in All_String.
Adress_String_And_Apply_Number);
procedure Add_Specification
(This_Set : in out My_Set_Of_Fil_Ob.Set;
This_Adress : in All_String.Adress_String_And_Apply_Number;
This_Specification : in Com_Defs.V_String);
procedure Contains_This_Specification
(This_Set : in My_Set_Of_Fil_Ob.Set;
This_Specification : in Com_Defs.V_String;
The_Adress : out All_String.Adress_String_And_Apply_Number;
The_Status : out Boolean);
procedure Extract_The_Specification
(This_Set : in My_Set_Of_Fil_Ob.Set;
This_Adress : in All_String.Adress_String_And_Apply_Number;
Answer_In : out Com_Defs.V_String;
Is_Ok : out Boolean);
procedure Extract_The_Adress
(This_Set : in My_Set_Of_Fil_Ob.Set;
This_Specification : in Com_Defs.V_String;
Answer_In : out All_String.Adress_String_And_Apply_Number;
Is_Ok : out Boolean);
procedure Extract_The_Machine
(This_Set : in My_Set_Of_Fil_Ob.Set;
This_Adress : in All_String.Adress_String_And_Apply_Number;
Answer_In : out Com_Defs.V_String;
Is_Ok : out Boolean);
procedure Extract_The_Machine (This_Set : in My_Set_Of_Fil_Ob.Set;
This_Specification : in Com_Defs.V_String;
Answer_In : out Com_Defs.V_String;
Is_Ok : out Boolean);
procedure Extract_The_Appli_Number
(This_Set : in My_Set_Of_Fil_Ob.Set;
This_Adress : in All_String.Adress_String_And_Apply_Number;
Answer_In : out Com_Defs.V_String;
Is_Ok : out Boolean);
procedure Extract_The_Appli_Number (This_Set : in My_Set_Of_Fil_Ob.Set;
This_Specification : Com_Defs.V_String;
Answer_In : out Com_Defs.V_String;
Is_Ok : out Boolean);
function Is_Empty (The_Set : in My_Set_Of_Fil_Ob.Set) return Boolean;
procedure Print (The_Set : in My_Set_Of_Fil_Ob.Set);
end Set_Of_Fil_Observ;
nblk1=4
nid=0
hdr6=8
[0x00] rec0=1c rec1=00 rec2=01 rec3=056
[0x01] rec0=14 rec1=00 rec2=02 rec3=028
[0x02] rec0=16 rec1=00 rec2=04 rec3=006
[0x03] rec0=0e rec1=00 rec2=03 rec3=000
tail 0x217608c1687bf574af455 0x42a00088462060003