|
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_Orb, seg_0555d0
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦cfc2e13cd⟧ »Space Info Vol 2«
└─⟦this⟧
with Transport_Defs;
with Transmission_Utils;
with Gestion_Table;
with V_String;
package Gestion_Orb is
procedure Traite_Objet (Objet_Traite : in out Transmission_Utils.Objet;
Socket_Recep : Transport_Defs.Socket_Id;
Host_Recep : Transport_Defs.Host_Id;
Socket_Emis : in out Transport_Defs.Socket_Id;
Host_Emis : in out Transport_Defs.Host_Id);
function Registration_Of_Server
(Nsocket : Transport_Defs.Socket_Id;
Hname : Transport_Defs.Host_Id) return Integer;
procedure Add_Service (Competence : String; Ident_I : Integer);
procedure Get_Host_Socket_Of_Service
(Competence : String;
Ordre : in out Integer;
Hname : in out Transport_Defs.Host_Id;
Socket : in out Transport_Defs.Socket_Id;
All_Seen : in out Boolean);
procedure Init_Tableaux;
procedure Give_Host_Socket_Of_Indice
(Indice : Integer;
Hname : in out Transport_Defs.Host_Id;
Socket : in out Transport_Defs.Socket_Id);
end Gestion_Orb;
nblk1=2
nid=0
hdr6=4
[0x00] rec0=16 rec1=00 rec2=01 rec3=00c
[0x01] rec0=06 rec1=00 rec2=02 rec3=000
tail 0x2175f867087bd421b8a20 0x42a00088462060003