|
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 Our_Constantes, seg_054e2a
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000 └─ ⟦5a81ac88f⟧ »Space Info Vol 1« └─⟦this⟧
with Text_Io; with Transport_Defs; with Transport; package Our_Constantes is -- Type -- ==== type Type_Of_Command is (The_Registration, The_Unregistration, The_Query, The_Request, The_Notification, The_Forward, The_Publication, The_Unpublication, The_Subscription, The_Unsubscription, The_Filtration, The_Unfiltration, None); type Connection_Data is record Connection : Transport.Connection_Id; Status : Transport_Defs.Status_Code; Count : Natural; end record; type Type_Orb is record The_Host : Transport_Defs.Host_Id (1 .. 4); The_Socket : Transport_Defs.Socket_Id (1 .. 4); end record; -- package -- ======= package Our_Enumeration is new Text_Io.Enumeration_Io (Type_Of_Command); -- Constants -- ========= Free : constant Boolean := True; Not_Free : constant Boolean := False; Length_Of_A_Line : constant := 4; Length_Of_A_Command : constant := 5; Number_Max_Of_Message_In_The_Queue : constant := 4; -- Variables -- ========= The_Orb : Type_Orb := (The_Host => (193, 54, 146, 132), The_Socket => (2, 6, 0, 4)); The_Orb_Connection : Connection_Data; end Our_Constantes;
nblk1=2 nid=0 hdr6=4 [0x00] rec0=22 rec1=00 rec2=01 rec3=006 [0x01] rec0=0e rec1=00 rec2=02 rec3=001 tail 0x2154d1fe287b96a81f53d 0x42a00088462060003