|
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: 8192 (0x2000)
Types: Ada Source
Notes: 03_class, FILE, R1k_Segment, e3_tag, package body Com_Transmission, seg_05494e
└─⟦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, Text_Io, Utils, Byte_Defs, Host_Id_Io;
package body Com_Transmission is
procedure Init_Slave (Init_Connection : in out Transport.Connection_Id;
Init_Host_Orb : in Transport_Defs.Host_Id;
Init_Socket_Orb : in Transport_Defs.Socket_Id;
Init_My_Socket : out Transport_Defs.Socket_Id) is
Status : Transport_Defs.Status_Code;
Network_Name : constant Transport_Defs.Network_Name := "TCP/IP";
Count : Natural;
Transmit_Socket_Data : Byte_Defs.Byte_String (1 .. 2);
Transmit_Host_Data : Byte_Defs.Byte_String (1 .. 4);
begin
loop
Transport.Open (Init_Connection, Status, Network_Name);
exit when Transport.Is_Open (Init_Connection) = True;
end loop;
Transmit_Socket_Data := Byte_Defs.Byte_String
(Transport.Local_Socket (Init_Connection));
Transmit_Host_Data := Byte_Defs.Byte_String
(Transport.Local_Host (Init_Connection));
Text_Io.Put ("My Socket esclave : ");
Text_Io.Put_Line (Utils.Byte_String_To_String
(Byte_Defs.Byte_String
(Transport.Local_Socket (Init_Connection))));
Text_Io.Put ("My Machine esclave : ");
Text_Io.Put_Line (Host_Id_Io.Image
(Transport.Local_Host (Init_Connection)));
Text_Io.Put_Line ("Slave is opened");
loop
Transport.Connect (Init_Connection, Status,
Init_Host_Orb, Init_Socket_Orb, Duration'Last);
exit when Transport.Is_Connected (Init_Connection) = True;
end loop;
Text_Io.Put_Line ("Slave is active connected");
Transport.Transmit (Init_Connection, Status,
Transmit_Socket_Data, Count, Duration'Last);
Transport.Transmit (Init_Connection, Status,
Transmit_Host_Data, Count, Duration'Last);
Transport.Disconnect (Init_Connection);
Text_Io.Put_Line ("Slave is deconnected");
loop
Transport.Connect (Init_Connection, Status, Duration'Last);
exit when Transport.Is_Connected (Init_Connection) = True;
end loop;
Text_Io.Put_Line ("Slave is passive connected");
Transport.Disconnect (Init_Connection);
Text_Io.Put_Line ("Slave is deconnected");
Transport.Close (Init_Connection);
Text_Io.Put_Line ("Slave is closed");
end Init_Slave;
procedure Init_Orb (Init_Connection : in out Transport.Connection_Id;
Init_Host_Orb : in Transport_Defs.Host_Id;
Init_Socket_Orb : in Transport_Defs.Socket_Id;
Init_Response_Socket : in out
Transport_Defs.Socket_Id) is
Status : Transport_Defs.Status_Code;
Network_Name : constant Transport_Defs.Network_Name := "TCP/IP";
Count : Natural;
Receive_Socket_Data : Byte_Defs.Byte_String (1 .. 2);
Receive_Host_Data : Byte_Defs.Byte_String (1 .. 4);
Init_Response_Host : Transport_Defs.Host_Id (1 .. 4);
begin
loop
Transport.Open (Init_Connection, Status,
Network_Name, Init_Socket_Orb);
exit when Transport.Is_Open (Init_Connection) = True;
end loop;
Text_Io.Put_Line ("Orb is opened");
loop
Transport.Connect (Init_Connection, Status, Duration'Last);
exit when Transport.Is_Connected (Init_Connection) = True;
end loop;
Text_Io.Put_Line ("Orb is passive connected");
Transport.Receive (Init_Connection, Status,
Receive_Socket_Data, Count, Duration'Last);
Init_Response_Socket := Transport_Defs.Socket_Id (Receive_Socket_Data);
Transport.Receive (Init_Connection, Status,
Receive_Host_Data, Count, Duration'Last);
Init_Response_Host := Transport_Defs.Host_Id (Receive_Host_Data);
--Init_Response_Socket := Transport.Remote_Socket (Init_Connection);
--Init_Response_Host := Transport.Remote_Host (Init_Connection);
--Text_Io.Put ("Socket esclave : ");
--Text_Io.Put_Line (Utils.Byte_String_To_String
-- (Byte_Defs.Byte_String (Init_Response_Socket));
--Text_Io.Put ("Machine esclave : ");
--Text_Io.Put_Line (Host_Id_Io.Image (Init_Response_Host));
Transport.Disconnect (Init_Connection);
Text_Io.Put_Line ("Orb is disconnected");
loop
Transport.Connect (Init_Connection, Status, Init_Response_Host,
Init_Response_Socket, Duration'Last);
exit when Transport.Is_Connected (Init_Connection) = True;
end loop;
--loop
-- Transport.Connect (Init_Connection, Status,
-- Init_Response_Host,
-- Init_Response_Socket, Duration'Last);
-- exit when Transport.Is_Connected (Init_Connection) = True;
-- end loop;
Text_Io.Put_Line ("Orb is active connected");
Transport.Disconnect (Init_Connection);
Text_Io.Put_Line ("Orb is disconnected");
Transport.Close (Init_Connection);
Text_Io.Put_Line ("Orb is closed");
end Init_Orb;
task body Orb_Machine is
Connection : Transport.Connection_Id;
Network_Name : constant Transport_Defs.Network_Name := "TCP/IP";
Host_Orb : constant Transport_Defs.Host_Id :=
Transport.Local_Host (Network_Name);
Socket_Orb : Transport_Defs.Socket_Id (1 .. 2) := (10, 49);
Socket_Response : Transport_Defs.Socket_Id (1 .. 2);
begin
Init_Orb (Connection, Host_Orb, Socket_Orb, Socket_Response);
end Orb_Machine;
task body Slave_Machine is
Connection : Transport.Connection_Id;
Network_Name : constant Transport_Defs.Network_Name := "TCP/IP";
Host_Orb : constant Transport_Defs.Host_Id :=
Transport.Local_Host (Network_Name);
Socket_Orb : Transport_Defs.Socket_Id (1 .. 2) := (10, 49);
Socket_Slave : Transport_Defs.Socket_Id (1 .. 2);
begin
Init_Slave (Connection, Host_Orb, Socket_Orb, Socket_Slave);
end Slave_Machine;
end Com_Transmission;
nblk1=7
nid=0
hdr6=e
[0x00] rec0=15 rec1=00 rec2=01 rec3=09c
[0x01] rec0=12 rec1=00 rec2=02 rec3=08a
[0x02] rec0=15 rec1=00 rec2=03 rec3=052
[0x03] rec0=17 rec1=00 rec2=04 rec3=012
[0x04] rec0=11 rec1=00 rec2=05 rec3=044
[0x05] rec0=16 rec1=00 rec2=06 rec3=068
[0x06] rec0=11 rec1=00 rec2=07 rec3=000
tail 0x2175da86887b88787e473 0x42a00088462060003