|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 Tapes |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Tapes Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - downloadIndex: ┃ B T ┃
Length: 1710 (0x6ae)
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⟧
with Byte_Defs;
with Text_Io;
with Transport;
with Transport_Defs;
with Utils;
procedure Get 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 := (10, 45);
Cnt : Natural;
D : Byte_Defs.Byte_String (1 .. 10);
function "=" (L, R : Transport_Defs.Status_Code) return Boolean
renames Transport_Defs."=";
begin
loop
T.Open (Connection => C,
Status => S,
Network => N,
Local_Socket => Sid);
if S /= Transport_Defs.Ok then
Text_Io.Put_Line ("*** Server Socket Open Failed. Error Code: " &
Transport_Defs.Image (S));
return;
else
Text_Io.Put_Line ("+++ Server Socket Open");
end if;
T.Connect (C, S);
if S /= Transport_Defs.Ok then
Text_Io.Put_Line ("*** Server Connect Failed. Error Code: " &
Transport_Defs.Image (S));
return;
else
Text_Io.Put_Line ("+++ Server Connected");
end if;
Text_Io.Put_Line ("get: avant receive");
T.Receive (Connection => C,
Status => S,
Data => D,
Count => Cnt,
Max_Wait => Duration'Last);
Text_Io.Put_Line ("got " & Integer'Image (Cnt) & " characters => " &
Utils.Byte_String_To_String (D));
T.Close (Connection => C);
Text_Io.Put_Line ("get: connection closed");
end loop;
end Get;