|
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: 1263 (0x4ef)
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«
└─⟦447be2534⟧
└─⟦this⟧
with Byte_Defs;
with Transport_Defs;
with Transport;
with Text_Io;
with Utils;
--use Transport;
procedure Transmet is
Iter : Transport.Connection_Id_Iterator;
Ref : Transport.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);
Count : Natural;
Msg : Byte_Defs.Byte_String (1 .. 4);
begin
Msg := Utils.String_To_Byte_String ("anne");
Text_Io.Put_Line ("Initialisation O.K.");
Transport.Open (Ref, Status, Net);
if Transport.Is_Open (Ref) then
Text_Io.Put_Line ("Ouverture canal O.K.");
else
Text_Io.Put_Line ("Ouverture canal echec");
end if;
Text_Io.Put_Line ("Local_Host recupere");
Transport.Connect (Ref, Status, Transport.Local_Host (Ref), Socket);
Emission:
while not Transport.Is_Connected (Ref) loop
Transport.Connect (Ref, Status, Transport.Local_Host (Ref), Socket);
end loop Emission;
Transport.Transmit (Ref, Status, Msg, Count);
Text_Io.Put_Line ("Transmission termine");
Transport.Disconnect (Ref);
Transport.Close (Ref);
end Transmet;