|
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: 1332 (0x534)
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 := (89, 64, 1, 90);
Sparc_Ip_Address : CONSTANT Transport_Defs.Host_Id := (89, 64, 2, 133);
The_R1000_Socket : CONSTANT Transport_Defs.Socket_Id := (1, 28);
-- This socket is used by the R1000 Server and the Sparc Client
The_Sparc_Socket : CONSTANT Transport_Defs.Socket_Id := (4, 86);
-- This socket is used by the Sparc 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 Sparc_Address RETURN Transport_Defs.Host_Id IS
BEGIN
RETURN Sparc_Ip_Address;
END Sparc_Address;
FUNCTION R1000_Socket RETURN Transport_Defs.Socket_Id IS
BEGIN
RETURN The_R1000_Socket;
END R1000_Socket;
FUNCTION Sparc_Socket RETURN Transport_Defs.Socket_Id IS
BEGIN
RETURN The_Sparc_Socket;
END Sparc_Socket;
END Net_Info;