|
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: 20480 (0x5000)
Types: Ada Source
Notes: 03_class, FILE, R1k_Segment, e3_tag, package body Info, seg_0042a4, separate Release
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦cfc2e13cd⟧ »Space Info Vol 2«
└─⟦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-7/src/";
Unix_Exe : constant String := "/src/X/rxi/rev10-7/exe/";
Unix_Tst : constant String := "/src/X/rxi/rev10-7/test/";
Vms_Src : constant String := "User:[src.X.rxi.rev10-7.src.";
Vms_Exe : constant String := "User:[src.X.rxi.rev10-7.exe.";
Vms_Tst : constant String := "User:[src.X.rxi.rev10-7.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")),
------------------------------------------------------------------------------
----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")),
------------------------------------------------------------------------------
----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_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")));
--\x0c
function Number return String is separate;
--\x0c
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;
--\x0c
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;
--\x0c
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;
--\x0c
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;
--\x0c
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;
--\x0c
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;
--\x0c
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;
--\x0c
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;
--\x0c
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;
--\x0c
end Info;
nblk1=13
nid=0
hdr6=26
[0x00] rec0=1d rec1=00 rec2=01 rec3=00e
[0x01] rec0=00 rec1=00 rec2=13 rec3=02c
[0x02] rec0=16 rec1=00 rec2=02 rec3=01c
[0x03] rec0=16 rec1=00 rec2=0b rec3=010
[0x04] rec0=14 rec1=00 rec2=0c rec3=04a
[0x05] rec0=15 rec1=00 rec2=03 rec3=046
[0x06] rec0=14 rec1=00 rec2=04 rec3=058
[0x07] rec0=15 rec1=00 rec2=05 rec3=05a
[0x08] rec0=15 rec1=00 rec2=06 rec3=012
[0x09] rec0=15 rec1=00 rec2=07 rec3=03e
[0x0a] rec0=14 rec1=00 rec2=08 rec3=06c
[0x0b] rec0=19 rec1=00 rec2=09 rec3=008
[0x0c] rec0=14 rec1=00 rec2=0a rec3=00a
[0x0d] rec0=00 rec1=00 rec2=12 rec3=008
[0x0e] rec0=1a rec1=00 rec2=0d rec3=09c
[0x0f] rec0=17 rec1=00 rec2=0e rec3=086
[0x10] rec0=19 rec1=00 rec2=0f rec3=048
[0x11] rec0=19 rec1=00 rec2=10 rec3=054
[0x12] rec0=0d rec1=00 rec2=11 rec3=000
tail 0x21700097c815772eefca2 0x42a00088462063203