|
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_0567d7
└─⟦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 -- deux tables permettent de stocker les donnees necessaires pour l orb -- le client de ce package dispose des primitives ci dessous pour l acces et le remplissage des tableaux -- -- les deux tables sont encapsulees (A_TAB, B_TAB) -- -- A_TAB : indice --> entier contenu --> item_orb (references totale d un item -- B_TAB : indice --> string nom du service contenu --> liste d entiers fessant reference au tableau A -- ( la gestion des listes, tables de H-code est donc traitee dans cette couche) 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; function Competence_Existe return Boolean; 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; Competence_Found : in out Boolean); procedure Disable (Serveur_Id_Int : Integer); end Gestion_Table;
nblk1=2 nid=0 hdr6=4 [0x00] rec0=1a rec1=00 rec2=01 rec3=002 [0x01] rec0=11 rec1=00 rec2=02 rec3=000 tail 0x21762979c87c46978bbcf 0x42a00088462060003