|
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, procedure Recep, seg_052e52
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦cfc2e13cd⟧ »Space Info Vol 2«
└─⟦this⟧
with Byte_Defs;
with Transport_Defs;
with Transport;
with Text_Io;
with Byte_String_Io;
with Utils;
use Transport;
procedure Recep is
Iter : Connection_Id_Iterator;
Ref : Connection_Id;
Status : Transport_Defs.Status_Code;
Net : constant Transport_Defs.Network_Name := "TCP/IP";
Socket : constant Transport_Defs.Socket_Id (1 .. 4) := (2, 6, 0, 8);
-- Host : Transport_Defs.Host_Id (1 .. 0) := (others => 0);
Count : Natural;
Msg : Byte_String_Io.Byte_String (1 .. 4);
-- String_Mes : String (1 .. 4);
begin
-- Init (Iter);
-- Ref := Value (Iter);
Text_Io.Put_Line ("Initialisation O.K.");
Open (Ref, Status, Net, Socket);
if Is_Open (Ref) then
Text_Io.Put_Line ("Ouverture Reception canal O.K.");
else
Text_Io.Put_Line ("Ouverture reception canal echec");
end if;
-- Host := Local_Host (Ref);
Text_Io.Put_Line ("Local_Host Reception recupere");
Connect (Ref, Status); -- , Local_Host (Ref), Socket);
Reception:
while not Is_Connected (Ref) loop
Text_Io.Put_Line ("Reception : Mauvaise connection");
Connect (Ref, Status);
end loop Reception;
Receive (Ref, Status, Msg, Count);
Text_Io.Put_Line ("Reception OK");
-- String_Mes := Byte_String_Io.Image (Msg);
Text_Io.Put ("Resultat : ");
Text_Io.Put_Line (Utils.Byte_String_To_String (Msg));
Text_Io.Put_Line ("Nombre de byte transmis" & Natural'Image (Count));
Disconnect (Ref);
Close (Ref);
end Recep;
nblk1=2
nid=0
hdr6=4
[0x00] rec0=24 rec1=00 rec2=01 rec3=000
[0x01] rec0=12 rec1=00 rec2=02 rec3=001
tail 0x2175a76da87a766ba82bc 0x42a00088462060003