|
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: 3072 (0xc00)
Types: Ada Source
Notes: 03_class, FILE, R1k_Segment, e3_tag, package Gestion_Table, seg_055193
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦cfc2e13cd⟧ »Space Info Vol 2«
└─⟦this⟧
with V_String;
with Liste;
with H_Code_Tab_Liste;
with Transport_Defs;
with Utils;
with Byte_Defs;
package Gestion_Table is
type Itemorb is
record
Num_Socket : Transport_Defs.Socket_Id (1 .. 2);
Host_Name : Transport_Defs.Host_Id (1 .. 4);
Enabled : Boolean;
end record;
type Tab1 is array (Positive range <>) of Itemorb;
procedure Affiche_Tab_A;
function Add_Item_Tab_A (Nsocket : Transport_Defs.Socket_Id;
Hname : Transport_Defs.Host_Id) return Integer;
procedure Give_Host_Socket_Tab_A (Indice : Integer;
Hname : in out Transport_Defs.Host_Id;
Socket : in out Transport_Defs.Socket_Id);
procedure Init_Tab_B;
procedure Add_Service_Tab_B (Competence : String; Ident_I : Integer);
function Return_Liste_Tab_B (Competence1 : String) return Liste.List;
procedure Affiche_Liste (Liste_A_Afficher : Liste.List);
procedure Return_Contenu_Liste_Position (Liste_Concernee : Liste.List;
Indice : Integer;
Result : in out Integer;
Enabled : in out Boolean;
All_Seen : in out Boolean);
procedure Disable (Serveur_Id_Int : Integer);
end Gestion_Table;
nblk1=2
nid=0
hdr6=4
[0x00] rec0=1b rec1=00 rec2=01 rec3=02a
[0x01] rec0=09 rec1=00 rec2=02 rec3=000
tail 0x2175ec2f087bc504caa1b 0x42a00088462060003