|
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