|
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: 6144 (0x1800) Types: Ada Source Notes: 03_class, FILE, R1k_Segment, e3_tag, package body Com_Trans_Slave, seg_054952
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000 └─ ⟦cfc2e13cd⟧ »Space Info Vol 2« └─⟦this⟧
with Transport, Transport_Defs, Byte_Defs, Text_Io, Utils, Host_Id_Io; package body Com_Trans_Slave is task body Slave_Receiver is Connection : Transport.Connection_Id; Status : Transport_Defs.Status_Code; Network_Name : constant Transport_Defs.Network_Name := "TCP/IP"; Count : Natural; Transmit_Data : Byte_Defs.Byte_String (1 .. 500); Receive_Data : Byte_Defs.Byte_String (1 .. 500); Init_Socket_Orb : Transport_Defs.Socket_Id (1 .. 2) := (10, 49); Init_Host_Orb : Transport_Defs.Host_Id (1 .. 4) := (193, 54, 146, 133); begin loop -- select -- accept Init (Init_Host_Orb : in Transport_Defs.Host_Id; -- Init_Socket_Orb : in Transport_Defs.Socket_Id) do -- begin loop Transport.Open (Connection, Status, Network_Name); exit when Transport.Is_Open (Connection) = True; end loop; Transmit_Data (6 .. 7) := Byte_Defs.Byte_String (Transport.Local_Socket (Connection)); Transmit_Data (2 .. 5) := Byte_Defs.Byte_String (Transport.Local_Host (Connection)); Transmit_Data (1) := 0; Text_Io.Put ("My Socket esclave : "); Text_Io.Put_Line (Utils.Byte_String_To_String (Byte_Defs.Byte_String (Transport.Local_Socket (Connection)))); Text_Io.Put ("My Machine esclave : "); Text_Io.Put_Line (Host_Id_Io.Image (Transport.Local_Host (Connection))); Text_Io.Put_Line ("Slave is opened"); loop Transport.Connect (Connection, Status, Init_Host_Orb, Init_Socket_Orb, Duration'Last); exit when Transport.Is_Connected (Connection) = True; end loop; Text_Io.Put_Line ("Slave is active connected"); Transport.Transmit (Connection, Status, Transmit_Data, Count, Duration'Last); Transport.Disconnect (Connection); Text_Io.Put_Line ("Slave is deconnected"); loop Transport.Connect (Connection, Status, Duration'Last); exit when Transport.Is_Connected (Connection) = True; end loop; Text_Io.Put_Line ("Slave is passive connected"); loop [statement] end loop; Transport.Disconnect (Connection); Text_Io.Put_Line ("Slave is deconnected"); Transport.Close (Connection); Text_Io.Put_Line ("Slave is closed"); Slave_Transmitter.Init (Init_Host_Orb, Init_Socket_Orb); -- end; -- end Init; -- end select; end loop; end Slave_Receiver; task body Slave_Transmitter is Connection : Transport.Connection_Id; Status : Transport_Defs.Status_Code; Network_Name : constant Transport_Defs.Network_Name := "TCP/IP"; Count : Natural; Old_Machine : Byte_Defs.Byte := 1; Transmit_Data : Byte_Defs.Byte_String (1 .. 500); begin loop select accept Init (Init_Host_Orb : in Transport_Defs.Host_Id; Init_Socket_Orb : in Transport_Defs.Socket_Id) do loop Transport.Open (Connection, Status, Network_Name); exit when Transport.Is_Open (Connection) = True; end loop; Text_Io.Put_Line ("slave transmitter is opened"); loop Transport.Connect (Connection, Status, Init_Host_Orb, Init_Socket_Orb, Duration'Last); exit when Transport.Is_Connected (Connection) = True; end loop; Text_Io.Put_Line ("Slave transmitter is active connected"); Transport.Disconnect (Connection); Text_Io.Put_Line ("Slave transmitter is deconnected"); Transport.Close (Connection); Text_Io.Put_Line ("Slave transmitter is closed"); end Init; end select; end loop; end Slave_Transmitter; end Com_Trans_Slave;
nblk1=5 nid=0 hdr6=a [0x00] rec0=16 rec1=00 rec2=01 rec3=018 [0x01] rec0=12 rec1=00 rec2=02 rec3=046 [0x02] rec0=16 rec1=00 rec2=03 rec3=00e [0x03] rec0=19 rec1=00 rec2=04 rec3=052 [0x04] rec0=0f rec1=00 rec2=05 rec3=000 tail 0x2175da8c487b8878f3a2f 0x42a00088462060003