|
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 Transmet, seg_0548a4
└─⟦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 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 .. 4) := (193, 54, 146, 133);
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 ("emission attente connection ");
-- Transport.Connect (Ref, Status, Transport.Local_Host (Ref), Socket); Transport.Connect (Ref, Status, Host, 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;
nblk1=2
nid=0
hdr6=4
[0x00] rec0=22 rec1=00 rec2=01 rec3=002
[0x01] rec0=0d rec1=00 rec2=02 rec3=000
tail 0x2175d9db087b886de7f11 0x42a00088462060003