|
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: 1362 (0x552)
Types: TextFile
Names: »B«
└─⟦149519bd4⟧ Bits:30000546 8mm tape, Rational 1000, !projects 93-07-13
└─ ⟦124ff5788⟧ »DATA«
└─⟦this⟧
└─⟦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⟧
package body Net_Info is
R1000_Ip_Address : constant Transport_Defs.Host_Id := (192, 5, 60, 20);
Rs6k_Ip_Address : constant Transport_Defs.Host_Id := (192, 5, 60, 40);
The_R1000_Socket : constant Transport_Defs.Socket_Id := (1, 28);
-- This socket is used by the R1000 Server and the rs6k Client
The_Rs6k_Socket : constant Transport_Defs.Socket_Id := (4, 86);
-- This socket is used by the rs6k Server and the R1000 Client
The_Net_Name : constant Transport_Defs.Network_Name :=
Transport_Defs.Normalize ("TCP/IP");
The_Test_String : constant String := "Hello There";
function Test_String return String is
begin
return The_Test_String;
end Test_String;
function Net_Name return Transport_Defs.Network_Name is
begin
return The_Net_Name;
end Net_Name;
function R1000_Address return Transport_Defs.Host_Id is
begin
return R1000_Ip_Address;
end R1000_Address;
function Rs6k_Address return Transport_Defs.Host_Id is
begin
return Rs6k_Ip_Address;
end Rs6k_Address;
function R1000_Socket return Transport_Defs.Socket_Id is
begin
return The_R1000_Socket;
end R1000_Socket;
function Rs6k_Socket return Transport_Defs.Socket_Id is
begin
return The_Rs6k_Socket;
end Rs6k_Socket;
end Net_Info;