DataMuseum.dk

top - download

    Length: 2127 (0x84f)
    Types: TextFile
    Names: »B«

└─⟦a7d1ea751⟧ Bits:30000550 8mm tape, Rational 1000, !users!projects 94_04_11
    └─ ⟦129cab021⟧ »DATA« 
        └─⟦this⟧ 
└─⟦f64eaa120⟧ Bits:30000752 8mm tape, Rational 1000, !projects 93 02 16
    └─ ⟦6f12a12be⟧ »DATA« 
        └─⟦this⟧ 
└─⟦2f6cfab89⟧ Bits:30000547 8mm tape, Rational 1000, !projects 94-01-04
    └─ ⟦d65440be7⟧ »DATA« 
        └─⟦this⟧ 

TextFile

with Byte_Defs;
with Text_Io;
with Transport;
with Transport_Defs;
with Utils;
procedure Put is
    package T renames Transport;
    package T_Defs renames Transport_Defs;

    C : T.Connection_Id;
    S : T_Defs.Status_Code;
    N : constant T_Defs.Network_Name := "TCP/IP";
    Sid : constant Transport_Defs.Socket_Id := Transport_Defs.Null_Socket_Id;
    Rsid : constant Transport_Defs.Socket_Id := (10, 45);
    Rh : constant Transport_Defs.Host_Id := (192, 5, 60, 20);
    Cnt : Natural;
    Message : constant String := "Hello PAM";

    function "=" (L, R : Transport_Defs.Status_Code) return Boolean
        renames Transport_Defs."=";

begin
    T.Open (Connection => C, Status => S, Network => N, Local_Socket => Sid);

    if S /= Transport_Defs.Ok then
        Text_Io.Put_Line ("*** Client Socket Open Failed. Error Code: " &
                          Transport_Defs.Image (S));
        return;
    else
        Text_Io.Put_Line ("+++ Client Socket Open");
    end if;


    T.Connect (Connection => C,
               Status => S,
               Remote_Host => Rh,
               Remote_Socket => Rsid,
               Max_Wait => Duration'Last);

    if S /= Transport_Defs.Ok then
        Text_Io.Put_Line ("*** Client Connect Failed. Error Code: " &
                          Transport_Defs.Image (S));
        return;

    else
        Text_Io.Put_Line ("+++ Client Connected");
    end if;

    Text_Io.Put_Line ("Put: avant Transmit");
    T.Transmit (Connection => C,
                Status => S,
                Data => Utils.String_To_Byte_String (Message),
                Count => Cnt,
                Max_Wait => Duration'Last,
                More => False);

    if S /= Transport_Defs.Ok then

        Text_Io.Put_Line ("*** Client Transmission Failed. Error Code: " &
                          Transport_Defs.Image (S));

    elsif Cnt /= Message'Length then
        Text_Io.Put_Line ("--* Client Transmission Incomplete.");
    else
        Text_Io.Put_Line ("+++ Client Tranmission Completed.");
    end if;

    T.Close (Connection => C);
    Text_Io.Put_Line ("Put: connection closed");
end Put;