DataMuseum.dk

top - metrics - download

    Length: 1539 (0x603)
    Types: TextFile
    Notes: R1k Text-file segment

└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
    └─⟦cfc2e13cd⟧ »Space Info Vol 2« 
        └─⟦ba0268580⟧ 
            └─⟦this⟧ 

TextFile

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;