|
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 Identification, seg_055597
└─⟦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 Bounded_String; with List_Generic; package Identification is type Tclient_Id is new Integer; type Tdescription is record Host : Bounded_String.Variable_String (246); -- machine de l'objet Sock : Bounded_String.Variable_String (246); -- socket par laquelle on peut lui envoyer un message Name : Bounded_String.Variable_String (246); -- nom de l'objet end record; type Object is private; procedure Enter_New_Object (Ident : in out Tclient_Id; Description : in Tdescription); -- creation d'un nouvel objet a partir de sa description et de son id procedure Search_Object (Ident : in Tclient_Id; Description : out Tdescription); -- recherche d'un objet a partir de son id,retourn sa description procedure Delete_Object (Ident : in Tclient_Id); -- retirer un objet de la liste procedure Host_Id_To_String (From : Transport_Defs.Host_Id; Target : in out Bounded_String.Variable_String); -- convertit le type HOST_ID en Bounded_string.variable_string; procedure String_To_Host_Id (From : Bounded_String.Variable_String; Target : in out Transport_Defs.Host_Id); -- convertit un type string en type HOST_ID procedure Socket_Id_To_String (From : Transport_Defs.Socket_Id; Target : in out Bounded_String.Variable_String); -- convertit le type SOCKET_ID en bonded procedure String_To_Socket_Id (From : Bounded_String.Variable_String; Target : in out Transport_Defs.Socket_Id); -- convertit un bounded en SOCKET_ID private type Object is record The_Description : Tdescription; The_Client : Identification.Tclient_Id; end record; package Object_List is new List_Generic (Object); List_Of_Object : Object_List.List := Object_List.Nil; end Identification;
nblk1=4 nid=0 hdr6=8 [0x00] rec0=1f rec1=00 rec2=01 rec3=006 [0x01] rec0=00 rec1=00 rec2=04 rec3=03c [0x02] rec0=1a rec1=00 rec2=03 rec3=022 [0x03] rec0=0a rec1=00 rec2=02 rec3=000 tail 0x2175f7c1a87bd40fd7949 0x42a00088462060003