|
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: 19932 (0x4ddc)
Types: TextFile
Names: »B«
└─⟦d10a02448⟧ Bits:30000409 8mm tape, Rational 1000, ENVIRONMENT, D_12_7_3
└─ ⟦fc9b38f02⟧ »DATA«
└─⟦8e9e227a9⟧
└─⟦this⟧
separate (Release)
package body Info is
type Workstation_Info is
record
Source_Dir : Heap_String;
Source_Machine : Heap_String;
Exe_Dir : Heap_String;
Exe_Machine : Heap_String;
Test_Dir : Heap_String;
Test_Machine : Heap_String;
end record;
type Workstation_Info_Array is array (Terminal_Type) of Workstation_Info;
Unix_Src : constant String := "/src/X/rxi/rev10-10/src/";
Unix_Exe : constant String := "/src/X/rxi/rev10-10/exe/";
Unix_Tst : constant String := "/src/X/rxi/rev10-10/test/";
Vms_Src : constant String := "User:[src.X.rxi.rev10-10.src.";
Vms_Exe : constant String := "User:[src.X.rxi.rev10-10.exe.";
Vms_Tst : constant String := "User:[src.X.rxi.rev10-10.test.";
Wrk : constant Workstation_Info_Array :=
(
------------------------------------------------------------------------------
----Sun Microsystems ("Real" Workstation Terminal Types)
------------------------------------------------------------------------------
-- Xsun3_X11r5 =>
-- (Source_Dir => Hs (Unix_Src & "x11r5"),
-- Source_Machine => Hs (My_Sun),
-- Exe_Dir => Hs (Unix_Exe & "xsun3_x11r5"),
-- Exe_Machine => Hs ("rutabaga"),
-- Test_Dir => Hs (Unix_Tst & "xsun3_x11r5"),
-- Test_Machine => Hs ("rutabaga")),
-- Xsun3_X11r5_Sparc =>
-- (Source_Dir => Hs (Unix_Src & "x11r5"),
-- Source_Machine => Hs (My_Sun),
-- Exe_Dir => Hs (Unix_Exe & "xsun3_x11r5_sparc"),
-- Exe_Machine => Hs (My_Sun),
-- Test_Dir => Hs (Unix_Tst & "xsun3_x11r5_sparc"),
-- Test_Machine => Hs (My_Sun)),
Xsun101_X11r5_Sparc =>
(Source_Dir => Hs (Unix_Src & "x11r5"),
Source_Machine => Hs (My_Sun),
Exe_Dir => Hs (Unix_Exe & "xsun101_x11r5_sparc"),
Exe_Machine => Hs (My_Sun),
Test_Dir => Hs (Unix_Tst & "xsun101_x11r5_sparc"),
Test_Machine => Hs (My_Sun)),
-- Xsun4_X11r5 =>
-- (Source_Dir => Hs (Unix_Src & "x11r5"),
-- Source_Machine => Hs (My_Sun),
-- Exe_Dir => Hs (Unix_Exe & "xsun4_x11r5"),
-- Exe_Machine => Hs ("rutabaga"),
-- Test_Dir => Hs (Unix_Tst & "xsun4_x11r5"),
-- Test_Machine => Hs ("rutabaga")),
Xsun4_X11r5_Sparc =>
(Source_Dir => Hs (Unix_Src & "x11r5"),
Source_Machine => Hs (My_Sun),
Exe_Dir => Hs (Unix_Exe & "xsun4_x11r5_sparc"),
Exe_Machine => Hs (My_Sun),
Test_Dir => Hs (Unix_Tst & "xsun4_x11r5_sparc"),
Test_Machine => Hs (My_Sun)),
-- Xnews3_V3_0 =>
-- (Source_Dir => Hs (Unix_Src & "xnews30"),
-- Source_Machine => Hs (My_Sun),
-- Exe_Dir => Hs (Unix_Exe & "xnews3_v3_0"),
-- Exe_Machine => Hs ("rutabaga"),
-- Test_Dir => Hs (Unix_Tst & "xnews3_v3_0"),
-- Test_Machine => Hs ("rutabaga")),
-- Xnews3_V3_0_Sparc =>
-- (Source_Dir => Hs (Unix_Src & "xnews30"),
-- Source_Machine => Hs (My_Sun),
-- Exe_Dir => Hs (Unix_Exe & "xnews3_v3_0_sparc"),
-- Exe_Machine => Hs (My_Sun),
-- Test_Dir => Hs (Unix_Tst & "xnews3_v3_0_sparc"),
-- Test_Machine => Hs (My_Sun)),
Xnews101_V3_0_Sparc =>
(Source_Dir => Hs (Unix_Src & "xnews30"),
Source_Machine => Hs (My_Sun),
Exe_Dir => Hs (Unix_Exe & "xnews101_v3_0_sparc"),
Exe_Machine => Hs (My_Sun),
Test_Dir => Hs (Unix_Tst & "xnews101_v3_0_sparc"),
Test_Machine => Hs (My_Sun)),
-- Xnews4_V3_0 =>
-- (Source_Dir => Hs (Unix_Src & "xnews30"),
-- Source_Machine => Hs (My_Sun),
-- Exe_Dir => Hs (Unix_Exe & "xnews4_v3_0"),
-- Exe_Machine => Hs ("rutabaga"),
-- Test_Dir => Hs (Unix_Tst & "xnews4_v3_0"),
-- Test_Machine => Hs ("rutabaga")),
Xnews4_V3_0_Sparc =>
(Source_Dir => Hs (Unix_Src & "xnews30"),
Source_Machine => Hs (My_Sun),
Exe_Dir => Hs (Unix_Exe & "xnews4_v3_0_sparc"),
Exe_Machine => Hs (My_Sun),
Test_Dir => Hs (Unix_Tst & "xnews4_v3_0_sparc"),
Test_Machine => Hs (My_Sun)),
------------------------------------------------------------------------------
----APPLE ("Real" Workstation Terminal Types)
------------------------------------------------------------------------------
Xapus_Aux4_0 =>
(Source_Dir => Hs (Unix_Src & "hpux80"),
Source_Machine => Hs (My_Sun),
Exe_Dir => Hs (Unix_Exe & "xapus_aux4_0"),
Exe_Machine => Hs ("frodo"),
Test_Dir => Hs (Unix_Tst & "xapus_aux4_0"),
Test_Machine => Hs ("frodo")),
------------------------------------------------------------------------------
----IBM ("Real" Workstation Terminal Types)
------------------------------------------------------------------------------
Xr6us_Aix3_1 =>
(Source_Dir => Hs (Unix_Src & "aix31"),
Source_Machine => Hs (My_Sun),
Exe_Dir => Hs (Unix_Exe & "xr6us_aix3_1"),
Exe_Machine => Hs ("tilden"),
Test_Dir => Hs (Unix_Tst & "xr6us_aix3_1"),
Test_Machine => Hs ("tilden")),
------------------------------------------------------------------------------
----DEC ("Real" Workstation Terminal Types)
------------------------------------------------------------------------------
-- Xdecus_vms5_5_Multinet203 =>
-- (Source_Dir => Hs (Unix_Src & "vms54"),
-- Source_Machine => Hs (My_Sun),
-- Exe_Dir => Hs (Vms_Exe & "xdecus_vms5_4_multinet203]"),
-- Exe_Machine => Hs ("flip"),
-- Test_Dir => Hs (Vms_Tst & "xdecus_vms5_4_multinet203]"),
-- Test_Machine => Hs ("flip")),
Xdecus_Vms5_4_Wollongong502 =>
(Source_Dir => Hs (Unix_Src & "vms54"),
Source_Machine => Hs (My_Sun),
Exe_Dir => Hs (Vms_Exe & "xdecus_vms5_4_wollongong502]"),
Exe_Machine => Hs ("flip"),
Test_Dir => Hs (Vms_Tst & "xdecus_vms5_4_wollongong502]"),
Test_Machine => Hs ("flip")),
Xdecus_Vms5_4_Ultrixconnection13a =>
(Source_Dir => Hs (Unix_Src & "vms54"),
Source_Machine => Hs (My_Sun),
Exe_Dir => Hs (Vms_Exe &
"xdecus_vms5_4_ultrixconnection13a]"),
Exe_Machine => Hs ("flip"),
Test_Dir => Hs (Vms_Tst &
"xdecus_vms5_4_ultrixconnection13a]"),
Test_Machine => Hs ("flip")),
Xultus_Ds_Ultrix4_1 =>
(Source_Dir => Hs (Unix_Src & "xnews30"),
Source_Machine => Hs (My_Sun),
Exe_Dir => Hs (Unix_Exe & "xultus_ds_ultrix4_1"),
Exe_Machine => Hs ("zeke"),
Test_Dir => Hs (Unix_Tst & "xultus_ds_ultrix4_1"),
Test_Machine => Hs ("zeke")),
Xultus_Vs_Ultrix4_1 =>
(Source_Dir => Hs (Unix_Src & "xnews30"),
Source_Machine => Hs (My_Sun),
Exe_Dir => Hs (Unix_Exe & "xultus_vs_ultrix4_1"),
Exe_Machine => Hs ("batman"),
Test_Dir => Hs (Unix_Tst & "xultus_vs_ultrix4_1"),
Test_Machine => Hs ("batman")),
------------------------------------------------------------------------------
----HP ("Real" Workstation Terminal Types)
------------------------------------------------------------------------------
Xhp46021a_Hpux8_0 =>
(Source_Dir => Hs (Unix_Src & "hpux80"),
Source_Machine => Hs (My_Sun),
Exe_Dir => Hs (Unix_Exe & "xhp46021a_hpux8_0"),
Exe_Machine => Hs ("flinx"),
Test_Dir => Hs (Unix_Tst & "xhp46021a_hpux8_0"),
Test_Machine => Hs ("flinx")),
------------------------------------------------------------------------------
----APOLLO ("Real" Workstation Terminal Types)
------------------------------------------------------------------------------
-- Xapollo3_Sr10_2_Unix =>
-- (Source_Dir => Hs (Unix_Src & "x11r5"),
-- Source_Machine => Hs (My_Sun),
-- Exe_Dir => Hs (Unix_Exe & "xapollo3_sr10_2_unix"),
-- Exe_Machine => Hs ("zeus"),
-- Test_Dir => Hs (Unix_Tst & "xapollo3_sr10_2_unix"),
-- Test_Machine => Hs ("zeus")),
-- Xapollom_Sr10_2_Unix =>
-- (Source_Dir => Hs (Unix_Src & "x11r5"),
-- Source_Machine => Hs (My_Sun),
-- Exe_Dir => Hs (Unix_Exe & "xapollom_sr10_2_unix"),
-- Exe_Machine => Hs ("zeus"),
-- Test_Dir => Hs (Unix_Tst & "xapollom_sr10_2_unix"),
-- Test_Machine => Hs ("zeus")),
------------------------------------------------------------------------------
----NCD ("Parasite" Non-Workstation Terminal Types)
------------------------------------------------------------------------------
-- Xncd_Sun_X11r5 =>
-- (Source_Dir => Hs (Unix_Src & "x11r5"),
-- Source_Machine => Hs (My_Sun),
-- Exe_Dir => Hs (Unix_Exe & "xncd_sun_x11r5"),
-- Exe_Machine => Hs (My_Sun),
-- Test_Dir => Hs (Unix_Tst & "xncd_sun_x11r5"),
-- Test_Machine => Hs (My_Sun)),
Xncd_Sun_X11r5_Sparc =>
(Source_Dir => Hs (Unix_Src & "x11r5"),
Source_Machine => Hs (My_Sun),
Exe_Dir => Hs (Unix_Exe & "xncd_sun_x11r5_sparc"),
Exe_Machine => Hs (My_Sun),
Test_Dir => Hs (Unix_Tst & "xncd_sun_x11r5_sparc"),
Test_Machine => Hs (My_Sun)),
-- Xncd_Xnews_V3_0 =>
-- (Source_Dir => Hs (Unix_Src & "xnews30"),
-- Source_Machine => Hs (My_Sun),
-- Exe_Dir => Hs (Unix_Exe & "xncd_xnews_v3_0"),
-- Exe_Machine => Hs (My_Sun),
-- Test_Dir => Hs (Unix_Tst & "xncd_xnews_v3_0"),
-- Test_Machine => Hs (My_Sun)),
Xncd_Xnews_V3_0_Sparc =>
(Source_Dir => Hs (Unix_Src & "xnews30"),
Source_Machine => Hs (My_Sun),
Exe_Dir => Hs (Unix_Exe & "xncd_xnews_v3_0_sparc"),
Exe_Machine => Hs (My_Sun),
Test_Dir => Hs (Unix_Tst & "xncd_xnews_v3_0_sparc"),
Test_Machine => Hs (My_Sun)),
Xncd_Aix3_1 =>
(Source_Dir => Hs (Unix_Src & "aix31"),
Source_Machine => Hs (My_Sun),
Exe_Dir => Hs (Unix_Exe & "xncd_aix3_1"),
Exe_Machine => Hs ("tilden"),
Test_Dir => Hs (Unix_Tst & "xncd_aix3_1"),
Test_Machine => Hs ("tilden")),
-- Xncd_Vms5_4_Multinet203 =>
-- (Source_Dir => Hs (Unix_Src & "vms54"),
-- Source_Machine => Hs (My_Sun),
-- Exe_Dir => Hs (Vms_Exe & "xncd_vms5_4_multinet203]"),
-- Exe_Machine => Hs ("flip"),
-- Test_Dir => Hs (Vms_Tst & "xncd_vms5_4_multinet203]"),
-- Test_Machine => Hs ("flip")),
Xncd_Vms5_4_Wollongong502 =>
(Source_Dir => Hs (Unix_Src & "vms54"),
Source_Machine => Hs (My_Sun),
Exe_Dir => Hs (Vms_Exe & "xncd_vms5_4_wollongong502]"),
Exe_Machine => Hs ("flip"),
Test_Dir => Hs (Vms_Tst & "xncd_vms5_4_wollongong502]"),
Test_Machine => Hs ("flip")),
Xncd_Vms5_4_Ultrixconnection13a =>
(Source_Dir => Hs (Unix_Src & "vms54"),
Source_Machine => Hs (My_Sun),
Exe_Dir => Hs (Vms_Exe & "xncd_vms5_4_ultrixconnection13a]"),
Exe_Machine => Hs ("flip"),
Test_Dir => Hs (Vms_Tst & "xncd_vms5_4_ultrixconnection13a]"),
Test_Machine => Hs ("flip")),
Xncd_Ds_Ultrix4_1 =>
(Source_Dir => Hs (Unix_Src & "xnews30"),
Source_Machine => Hs (My_Sun),
Exe_Dir => Hs (Unix_Exe & "xncd_ds_ultrix4_1"),
Exe_Machine => Hs ("zeke"),
Test_Dir => Hs (Unix_Tst & "xncd_ds_ultrix4_1"),
Test_Machine => Hs ("zeke")),
Xncd_Vs_Ultrix4_1 =>
(Source_Dir => Hs (Unix_Src & "xnews30"),
Source_Machine => Hs (My_Sun),
Exe_Dir => Hs (Unix_Exe & "xncd_vs_ultrix4_1"),
Exe_Machine => Hs ("batman"),
Test_Dir => Hs (Unix_Tst & "xncd_vs_ultrix4_1"),
Test_Machine => Hs ("batman")),
Xncd_Hpux8_0 =>
(Source_Dir => Hs (Unix_Src & "hpux80"),
Source_Machine => Hs (My_Sun),
Exe_Dir => Hs (Unix_Exe & "xncd_hpux8_0"),
Exe_Machine => Hs ("flinx"),
Test_Dir => Hs (Unix_Tst & "xncd_hpux8_0"),
Test_Machine => Hs ("flinx"))
-- , Xncd_Sr10_2_Unix =>
-- (Source_Dir => Hs (Unix_Src & "x11r5"),
-- Source_Machine => Hs (My_Sun),
-- Exe_Dir => Hs (Unix_Exe & "xncd_sr10_2_unix"),
-- Exe_Machine => Hs ("zeus"),
-- Test_Dir => Hs (Unix_Tst & "xncd_sr10_2_unix"),
-- Test_Machine => Hs ("zeus"))
);
--\f
function Number return String is separate;
--\f
function R1000_Working return String is
------------------------------------------------------------------------------
-- This is the current development source directory. Rational internal only.
-- eg. "!Environment.Rxi.Rev10_Working.Unit."
------------------------------------------------------------------------------
Here : constant String :=
Directory_Tools.Naming.Full_Name
(Directory_Tools.Naming.Resolution ("$$.Units"));
Official : constant String := "!Environment.Rxi.Rev";
begin
if Here'Length >= Official'Length and then
String_Utilities.Equal
(Official,
Here (Here'First .. Here'First + Official'Length - 1),
Ignore_Case => True) then
----We're in one of the Rxi working directories so we're ok.
-- Return our current location ($$.Units).
return Here & '.';
else
----Don't know where we are. This is our official main working
-- area. Return that. If we're in a !Machine.Release area then
-- our caller will know what to do.
return "!Environment.Rxi.Rev10_Working.Units.";
end if;
end R1000_Working;
--\f
function R1000_Release return String is
------------------------------------------------------------------------------
-- This is the current customer release directory.
-- eg. "!Machine.Release.X_Interface.Release10_5_0."
------------------------------------------------------------------------------
begin
return "!Machine.Release.X_Interface." & Number & ".";
end R1000_Release;
--\f
function R1000_Archive return String is
------------------------------------------------------------------------------
-- This is the current customer release archive.
-- eg. "!Machine.Release.Archive.X_Interface.Release10_5_0.Release."
------------------------------------------------------------------------------
begin
return "!Machine.Release.Archive.X_Interface." & Number & ".Release.";
end R1000_Archive;
--\f
function Workstation_Source_Dir (Kbd : Terminal_Type) return String is
------------------------------------------------------------------------------
-- This is the directory on a remote workstation where the "master" source
-- for some terminal type is kept. eg. "/src/X/rxi/rev10-5/src/x11r5".
-- Use this in conjunction with Workstation_Source_Machine to ftp the source.
------------------------------------------------------------------------------
begin
return Wrk (Kbd).Source_Dir.all;
end Workstation_Source_Dir;
--\f
function Workstation_Source_Machine (Kbd : Terminal_Type) return String is
------------------------------------------------------------------------------
-- This is the machine where the "master" source for some terminal type is kept.
-- eg. "amber".
-- Use this in conjunction with Workstation_Source_Dir to ftp the source.
------------------------------------------------------------------------------
begin
return Wrk (Kbd).Source_Machine.all;
end Workstation_Source_Machine;
--\f
function Workstation_Exe_Dir (Kbd : Terminal_Type) return String is
------------------------------------------------------------------------------
-- This is the directory on a remote workstation where we create the
-- Rational-Supplied-Executable version of RXI for some terminal type is kept.
-- eg. "/src/X/rxi/rev10-5/exe/xsun3_x11r5".
-- Use this in conjunction with Workstation_Exe_Machine to ftp the canned RXI.
------------------------------------------------------------------------------
begin
return Wrk (Kbd).Exe_Dir.all;
end Workstation_Exe_Dir;
--\f
function Workstation_Exe_Machine (Kbd : Terminal_Type) return String is
------------------------------------------------------------------------------
-- This is the machine where we create the Rational-Supplied-Executable version
-- of RXI for some terminal type is kept. eg. "worthog"
-- Use this in conjunction with Workstation_Exe_Dir to ftp the canned RXI.
------------------------------------------------------------------------------
begin
return Wrk (Kbd).Exe_Machine.all;
end Workstation_Exe_Machine;
--\f
function Workstation_Test_Dir (Kbd : Terminal_Type) return String is
------------------------------------------------------------------------------
-- This is the directory on a remote workstation where we test the
-- Rational-Supplied-Executable version of RXI for some terminal type.
-- eg. "/src/X/rxi/rev10-5/test/xsun3_x11r5".
-- Use this in conjunction with Workstation_Test_Machine to ftp the canned RXI.
------------------------------------------------------------------------------
begin
return Wrk (Kbd).Test_Dir.all;
end Workstation_Test_Dir;
--\f
function Workstation_Test_Machine (Kbd : Terminal_Type) return String is
------------------------------------------------------------------------------
-- This is the machine where we test the Rational-Supplied-Executable version
-- of RXI for some terminal type. eg. "worthog"
-- Use this in conjunction with Workstation_Test_Dir to ftp the canned RXI.
------------------------------------------------------------------------------
begin
return Wrk (Kbd).Test_Machine.all;
end Workstation_Test_Machine;
--\f
end Info;