|
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 - metrics - downloadIndex: B T
Length: 18038 (0x4676)
Types: TextFile
Names: »B«
└─⟦5f3412b64⟧ Bits:30000745 8mm tape, Rational 1000, ENVIRONMENT 12_6_5 TOOLS
└─⟦91c658230⟧ »DATA«
└─⟦5d656759a⟧
└─⟦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-9/src/";
Unix_Exe : constant String := "/src/X/rxi/rev10-9/exe/";
Unix_Tst : constant String := "/src/X/rxi/rev10-9/test/";
Vms_Src : constant String := "User:[src.X.rxi.rev10-9.src.";
Vms_Exe : constant String := "User:[src.X.rxi.rev10-9.exe.";
Vms_Tst : constant String := "User:[src.X.rxi.rev10-9.test.";
Wrk : constant Workstation_Info_Array :=
(
------------------------------------------------------------------------------
----Sun Microsystems ("Real" Workstation Terminal Types)
------------------------------------------------------------------------------
Xsun3_X11r3 =>
(Source_Dir => Hs (Unix_Src & "x11r3"),
Source_Machine => Hs (My_Sun),
Exe_Dir => Hs (Unix_Exe & "xsun3_x11r3"),
Exe_Machine => Hs (My_Sun),
Test_Dir => Hs (Unix_Tst & "xsun3_x11r3"),
Test_Machine => Hs (My_Sun)),
Xsun3_X11r3_Sparc =>
(Source_Dir => Hs (Unix_Src & "x11r3"),
Source_Machine => Hs (My_Sun),
Exe_Dir => Hs (Unix_Exe & "xsun3_x11r3_sparc"),
Exe_Machine => Hs ("keystone"),
Test_Dir => Hs (Unix_Tst & "xsun3_x11r3_sparc"),
Test_Machine => Hs ("keystone")),
Xsun4_X11r3 =>
(Source_Dir => Hs (Unix_Src & "x11r3"),
Source_Machine => Hs (My_Sun),
Exe_Dir => Hs (Unix_Exe & "xsun4_x11r3"),
Exe_Machine => Hs (My_Sun),
Test_Dir => Hs (Unix_Tst & "xsun4_x11r3"),
Test_Machine => Hs (My_Sun)),
Xsun4_X11r3_Sparc =>
(Source_Dir => Hs (Unix_Src & "x11r3"),
Source_Machine => Hs (My_Sun),
Exe_Dir => Hs (Unix_Exe & "xsun4_x11r3_sparc"),
Exe_Machine => Hs ("keystone"),
Test_Dir => Hs (Unix_Tst & "xsun4_x11r3_sparc"),
Test_Machine => Hs ("keystone")),
Xnews3_V2_0 =>
(Source_Dir => Hs (Unix_Src & "xnews20"),
Source_Machine => Hs (My_Sun),
Exe_Dir => Hs (Unix_Exe & "xnews3_v2_0"),
Exe_Machine => Hs (My_Sun),
Test_Dir => Hs (Unix_Tst & "xnews3_v2_0"),
Test_Machine => Hs (My_Sun)),
Xnews3_V2_0_Sparc =>
(Source_Dir => Hs (Unix_Src & "xnews20"),
Source_Machine => Hs (My_Sun),
Exe_Dir => Hs (Unix_Exe & "xnews3_v2_0_sparc"),
Exe_Machine => Hs ("keystone"),
Test_Dir => Hs (Unix_Tst & "xnews3_v2_0_sparc"),
Test_Machine => Hs ("keystone")),
Xnews4_V2_0 =>
(Source_Dir => Hs (Unix_Src & "xnews20"),
Source_Machine => Hs (My_Sun),
Exe_Dir => Hs (Unix_Exe & "xnews4_v2_0"),
Exe_Machine => Hs (My_Sun),
Test_Dir => Hs (Unix_Tst & "xnews4_v2_0"),
Test_Machine => Hs (My_Sun)),
Xnews4_V2_0_Sparc =>
(Source_Dir => Hs (Unix_Src & "xnews20"),
Source_Machine => Hs (My_Sun),
Exe_Dir => Hs (Unix_Exe & "xnews4_v2_0_sparc"),
Exe_Machine => Hs ("keystone"),
Test_Dir => Hs (Unix_Tst & "xnews4_v2_0_sparc"),
Test_Machine => Hs ("keystone")),
------------------------------------------------------------------------------
----APPLE ("Real" Workstation Terminal Types)
------------------------------------------------------------------------------
Xapus_Aux4_0 =>
(Source_Dir => Hs (Unix_Src & "hpux70"),
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_1_Multinet203 =>
(Source_Dir => Hs (Unix_Src & "vms51"),
Source_Machine => Hs (My_Sun),
Exe_Dir => Hs (Vms_Exe & "xdecus_vms5_1_multinet203]"),
Exe_Machine => Hs ("flip"),
Test_Dir => Hs (Vms_Tst & "xdecus_vms5_1_multinet203]"),
Test_Machine => Hs ("flip")),
Xdecus_Vms5_1_Wollongong502 =>
(Source_Dir => Hs (Unix_Src & "vms51"),
Source_Machine => Hs (My_Sun),
Exe_Dir => Hs (Vms_Exe & "xdecus_vms5_1_wollongong502]"),
Exe_Machine => Hs ("flip"),
Test_Dir => Hs (Vms_Tst & "xdecus_vms5_1_wollongong502]"),
Test_Machine => Hs ("flip")),
Xultus_Ds_Ultrix4_1 =>
(Source_Dir => Hs (Unix_Src & "xnews20"),
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 & "xnews20"),
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_Hpux7_0 =>
(Source_Dir => Hs (Unix_Src & "hpux70"),
Source_Machine => Hs (My_Sun),
Exe_Dir => Hs (Unix_Exe & "xhp46_hpux7_0"),
Exe_Machine => Hs ("pip"),
Test_Dir => Hs (Unix_Tst & "xhp46_hpux7_0"),
Test_Machine => Hs ("pip")),
------------------------------------------------------------------------------
----APOLLO ("Real" Workstation Terminal Types)
------------------------------------------------------------------------------
Xapollo3_Sr10_2_Unix =>
(Source_Dir => Hs (Unix_Src & "x11r3"),
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 & "x11r3"),
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_X11r3 =>
(Source_Dir => Hs (Unix_Src & "x11r3"),
Source_Machine => Hs (My_Sun),
Exe_Dir => Hs (Unix_Exe & "xncd_sun_x11r3"),
Exe_Machine => Hs (My_Sun),
Test_Dir => Hs (Unix_Tst & "xncd_sun_x11r3"),
Test_Machine => Hs (My_Sun)),
Xncd_Sun_X11r3_Sparc =>
(Source_Dir => Hs (Unix_Src & "x11r3"),
Source_Machine => Hs (My_Sun),
Exe_Dir => Hs (Unix_Exe & "xncd_sun_x11r3_sparc"),
Exe_Machine => Hs ("keystone"),
Test_Dir => Hs (Unix_Tst & "xncd_sun_x11r3_sparc"),
Test_Machine => Hs ("keystone")),
Xncd_Xnews_V2_0 =>
(Source_Dir => Hs (Unix_Src & "xnews20"),
Source_Machine => Hs (My_Sun),
Exe_Dir => Hs (Unix_Exe & "xncd_xnews_v2_0"),
Exe_Machine => Hs (My_Sun),
Test_Dir => Hs (Unix_Tst & "xncd_xnews_v2_0"),
Test_Machine => Hs (My_Sun)),
Xncd_Xnews_V2_0_Sparc =>
(Source_Dir => Hs (Unix_Src & "xnews20"),
Source_Machine => Hs (My_Sun),
Exe_Dir => Hs (Unix_Exe & "xncd_xnews_v2_0_sparc"),
Exe_Machine => Hs ("keystone"),
Test_Dir => Hs (Unix_Tst & "xncd_xnews_v2_0_sparc"),
Test_Machine => Hs ("keystone")),
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_1_Multinet203 =>
(Source_Dir => Hs (Unix_Src & "vms51"),
Source_Machine => Hs (My_Sun),
Exe_Dir => Hs (Vms_Exe & "xncd_vms5_1_multinet203]"),
Exe_Machine => Hs ("flip"),
Test_Dir => Hs (Vms_Tst & "xncd_vms5_1_multinet203]"),
Test_Machine => Hs ("flip")),
Xncd_Vms5_1_Wollongong502 =>
(Source_Dir => Hs (Unix_Src & "vms51"),
Source_Machine => Hs (My_Sun),
Exe_Dir => Hs (Vms_Exe & "xncd_vms5_1_wollongong502]"),
Exe_Machine => Hs ("flip"),
Test_Dir => Hs (Vms_Tst & "xncd_vms5_1_wollongong502]"),
Test_Machine => Hs ("flip")),
Xncd_Ds_Ultrix4_1 =>
(Source_Dir => Hs (Unix_Src & "xnews20"),
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 & "xnews20"),
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_Hpux7_0 =>
(Source_Dir => Hs (Unix_Src & "hpux70"),
Source_Machine => Hs (My_Sun),
Exe_Dir => Hs (Unix_Exe & "xncd_hpux7_0"),
Exe_Machine => Hs ("pip"),
Test_Dir => Hs (Unix_Tst & "xncd_hpux7_0"),
Test_Machine => Hs ("pip")),
Xncd_Sr10_2_Unix =>
(Source_Dir => Hs (Unix_Src & "x11r3"),
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/x11r3".
-- 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_x11r3".
-- 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_x11r3".
-- 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;