|
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: 31744 (0x7c00)
Types: Ada Source
Notes: 03_class, FILE, R1k_Segment, e3_tag, package body Hpux_Release, package body Other, package body Places, package body Release, package body Versions, package body Working, package body Workstation, seg_005812
└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
└─ ⟦cfc2e13cd⟧ »Space Info Vol 2«
└─⟦this⟧
package body Places is
------------------------------------------------------------------------------
-- X Library Directory Names
--
-- Places - All of the places where the X Library lives.
------------------------------------------------------------------------------
-- Copyright 1990 - 1990 by Rational, Santa Clara, California.
--
-- All Rights Reserved.
--
-- Permission to use, copy, modify, and distribute this software and its
-- documentation for any purpose and without fee is hereby granted,
-- provided that the above copyright notice(s) appear in all copies and that
-- both that copyright notice(s) and this permission notice appear in
-- supporting documentation, and that the name of Rational not be
-- used in advertising or publicity pertaining to distribution of the software
-- without specific, written prior permission.
--
-- Rational disclaims all warranties with regard to this software,
-- including all implied warranties of merchantability and fitness, in no
-- event shall Rational be liable for any special, indirect or
-- consequential damages or any damages whatsoever resulting from loss of use,
-- data or profits, whether in an action of contract, negligence or other
-- tortious action, arising out of or in connection with the use or performance
-- of this software.
------------------------------------------------------------------------------
package Versions is
function Working_Version return String; -- eg. "5"
function Release_Version return String; -- eg. "5_6_0"
function Workstation_Version return String; -- eg. /src/rev5
end Versions;
package body Versions is separate;
use Versions;
--\x0c
package body Other is
Windows : constant String := "!Tools.X_Windows";
Data : constant String := Windows & ".X_Data";
App_Def : constant String := Data & ".Application_Defaults";
function X_Windows return String is
begin
return Windows;
end X_Windows;
function X_Data return String is
begin
return Data;
end X_Data;
function App_Defaults return String is
begin
return App_Def;
end App_Defaults;
end Other;
--\x0c
package body Working is
Ver : constant String := Working_Version;
Code : constant String := "Rev" & Ver & "_Code";
Load : constant String := "Rev" & Ver & "_Working";
Spec : constant String := "Rev" & Ver & "_Spec";
Base : constant String := "!X11";
Release : constant String := Base & ".Release_Tools";
Library : constant String := Base & ".X_Library";
Clients : constant String := Base & ".X_Clients";
Demos : constant String := Base & ".X_Demos";
Testing : constant String := Base & ".X_Testing";
Tools : constant String := Base & ".X_Tools";
R1000 : constant String := Base & ".X_R1000_Support";
Release_Spec : constant String := Release & "." & Spec;
Library_Spec : constant String := Library & "." & Spec;
Clients_Spec : constant String := Clients & "." & Spec;
Demos_Spec : constant String := Demos & "." & Spec;
Testing_Spec : constant String := Testing & "." & Spec;
Tools_Spec : constant String := Tools & "." & Spec;
R1000_Spec : constant String := R1000 & "." & Spec;
Release_Load : constant String := Release & "." & Load;
Library_Load : constant String := Library & "." & Load;
Clients_Load : constant String := Clients & "." & Load;
Demos_Load : constant String := Demos & "." & Load;
Testing_Load : constant String := Testing & "." & Load;
Tools_Load : constant String := Tools & "." & Load;
R1000_Load : constant String := R1000 & "." & Load;
function Version return String is
begin
return Ver;
end Version;
function Spec_Base return String is
begin
return Spec;
end Spec_Base;
function Load_Base return String is
begin
return Load;
end Load_Base;
function Release_Tools return String is
begin
return Release;
end Release_Tools;
function X_Clients return String is
begin
return Clients;
end X_Clients;
function X_Demos return String is
begin
return Demos;
end X_Demos;
function X_Library return String is
begin
return Library;
end X_Library;
function X_Testing return String is
begin
return Testing;
end X_Testing;
function X_Tools return String is
begin
return Tools;
end X_Tools;
function X_R1000 return String is
begin
return R1000;
end X_R1000;
function Release_Tools_Spec return String is
begin
return Release_Spec;
end Release_Tools_Spec;
function X_Clients_Spec return String is
begin
return Clients_Spec;
end X_Clients_Spec;
function X_Demos_Spec return String is
begin
return Demos_Spec;
end X_Demos_Spec;
function X_Library_Spec return String is
begin
return Library_Spec;
end X_Library_Spec;
function X_Testing_Spec return String is
begin
return Testing_Spec;
end X_Testing_Spec;
function X_Tools_Spec return String is
begin
return Tools_Spec;
end X_Tools_Spec;
function X_R1000_Spec return String is
begin
return R1000_Spec;
end X_R1000_Spec;
function Release_Tools_Load return String is
begin
return Release_Load;
end Release_Tools_Load;
function X_Clients_Load return String is
begin
return Clients_Load;
end X_Clients_Load;
function X_Demos_Load return String is
begin
return Demos_Load;
end X_Demos_Load;
function X_Library_Load return String is
begin
return Library_Load;
end X_Library_Load;
function X_Testing_Load return String is
begin
return Testing_Load;
end X_Testing_Load;
function X_Tools_Load return String is
begin
return Tools_Load;
end X_Tools_Load;
function X_R1000_Load return String is
begin
return R1000_Load;
end X_R1000_Load;
end Working;
--\x0c
package body Release is
Ver : constant String := Release_Version;
Code : constant String := "Rev" & Ver & "_Code";
Load : constant String := "Rev" & Ver & "_Working";
Spec : constant String := "Rev" & Ver & "_Spec";
D1_Code : constant String := "Rev" & Ver & "_D1_Code";
D1_Load : constant String := "Rev" & Ver & "_D1_Working";
D1_Spec : constant String := "Rev" & Ver & "_D1_Spec";
D2_Code : constant String := "Rev" & Ver & "_D2_Code";
D2_Load : constant String := "Rev" & Ver & "_D2_Working";
D2_Spec : constant String := "Rev" & Ver & "_D2_Spec";
Library : constant String := Other.X_Windows & ".X_Library";
Clients : constant String := Other.X_Windows & ".X_Clients";
Demos : constant String := Other.X_Windows & ".X_Demos";
Testing : constant String := Other.X_Windows & ".X_Testing";
Tools : constant String := Other.X_Windows & ".X_Tools";
R1000 : constant String := Other.X_Windows & ".X_R1000_Support";
Library_Spec : constant String := Library & "." & Spec;
Clients_Spec : constant String := Clients & "." & Spec;
Demos_Spec : constant String := Demos & "." & Spec;
Testing_Spec : constant String := Testing & "." & Spec;
Tools_Spec : constant String := Tools & "." & Spec;
R1000_D1_Spec : constant String := R1000 & "." & D1_Spec;
R1000_D2_Spec : constant String := R1000 & "." & D2_Spec;
Library_Load : constant String := Library & "." & Load;
Clients_Load : constant String := Clients & "." & Load;
Demos_Load : constant String := Demos & "." & Load;
Testing_Load : constant String := Testing & "." & Load;
Tools_Load : constant String := Tools & "." & Load;
R1000_D1_Load : constant String := R1000 & "." & D1_Load;
R1000_D2_Load : constant String := R1000 & "." & D2_Load;
Library_Code : constant String := Library & "." & Code;
Clients_Code : constant String := Clients & "." & Code;
Demos_Code : constant String := Demos & "." & Code;
Testing_Code : constant String := Testing & "." & Code;
Tools_Code : constant String := Tools & "." & Code;
R1000_D1_Code : constant String := R1000 & "." & D1_Code;
R1000_D2_Code : constant String := R1000 & "." & D2_Code;
Lib_Release : constant String :=
"!Machine.Release.X_Library.Release" & Ver;
Lib_Archive : constant String :=
"!Machine.Release.Archive.X_Library.Release" & Ver & ".Release";
Lib_Release_Contents : constant String :=
Lib_Release & ".Release_Contents";
Lib_Release_Archives : constant String :=
Lib_Release & ".Archives";
Lib_Release_Data_Archives_Contents : constant String :=
"" &
Other.X_Windows & "," &
Other.X_Windows & ".LIBRARY_SWITCHES," &
Other.X_Data & "," &
Other.X_Data & ".X_Error_Db," &
Other.App_Defaults;
Lib_Release_Switches : constant String :=
Lib_Release & ".Library_Switches";
function Version return String is
begin
return Ver;
end Version;
function Spec_Base return String is
begin
return Spec;
end Spec_Base;
function Load_Base return String is
begin
return Load;
end Load_Base;
function Code_Base return String is
begin
return Code;
end Code_Base;
function D1_Spec_Base return String is
begin
return D1_Spec;
end D1_Spec_Base;
function D1_Load_Base return String is
begin
return D1_Load;
end D1_Load_Base;
function D1_Code_Base return String is
begin
return D1_Code;
end D1_Code_Base;
function D2_Spec_Base return String is
begin
return D2_Spec;
end D2_Spec_Base;
function D2_Load_Base return String is
begin
return D2_Load;
end D2_Load_Base;
function D2_Code_Base return String is
begin
return D2_Code;
end D2_Code_Base;
function X_Clients return String is
begin
return Clients;
end X_Clients;
function X_Demos return String is
begin
return Demos;
end X_Demos;
function X_Library return String is
begin
return Library;
end X_Library;
function X_Testing return String is
begin
return Testing;
end X_Testing;
function X_Tools return String is
begin
return Tools;
end X_Tools;
function X_R1000 return String is
begin
return R1000;
end X_R1000;
function X_Clients_Spec return String is
begin
return Clients_Spec;
end X_Clients_Spec;
function X_Demos_Spec return String is
begin
return Demos_Spec;
end X_Demos_Spec;
function X_Library_Spec return String is
begin
return Library_Spec;
end X_Library_Spec;
function X_Testing_Spec return String is
begin
return Testing_Spec;
end X_Testing_Spec;
function X_Tools_Spec return String is
begin
return Tools_Spec;
end X_Tools_Spec;
function X_R1000_D1_Spec return String is
begin
return R1000_D1_Spec;
end X_R1000_D1_Spec;
function X_R1000_D2_Spec return String is
begin
return R1000_D2_Spec;
end X_R1000_D2_Spec;
function X_Clients_Load return String is
begin
return Clients_Load;
end X_Clients_Load;
function X_Demos_Load return String is
begin
return Demos_Load;
end X_Demos_Load;
function X_Library_Load return String is
begin
return Library_Load;
end X_Library_Load;
function X_Testing_Load return String is
begin
return Testing_Load;
end X_Testing_Load;
function X_Tools_Load return String is
begin
return Tools_Load;
end X_Tools_Load;
function X_R1000_D1_Load return String is
begin
return R1000_D1_Load;
end X_R1000_D1_Load;
function X_R1000_D2_Load return String is
begin
return R1000_D2_Load;
end X_R1000_D2_Load;
function X_Clients_Code return String is
begin
return Clients_Code;
end X_Clients_Code;
function X_Demos_Code return String is
begin
return Demos_Code;
end X_Demos_Code;
function X_Library_Code return String is
begin
return Library_Code;
end X_Library_Code;
function X_Testing_Code return String is
begin
return Testing_Code;
end X_Testing_Code;
function X_Tools_Code return String is
begin
return Tools_Code;
end X_Tools_Code;
function X_R1000_D1_Code return String is
begin
return R1000_D1_Code;
end X_R1000_D1_Code;
function X_R1000_D2_Code return String is
begin
return R1000_D2_Code;
end X_R1000_D2_Code;
function Xlib_Release return String is
begin
return Lib_Release;
end Xlib_Release;
function Xlib_Archive return String is
begin
return Lib_Archive;
end Xlib_Archive;
function Xlib_Release_Contents return String is
begin
return Lib_Release_Contents;
end Xlib_Release_Contents;
function Xlib_Release_Archives return String is
begin
return Lib_Release_Archives;
end Xlib_Release_Archives;
function Xlib_Release_Data_Archive_Contents return String is
begin
return Lib_Release_Data_Archives_Contents;
end Xlib_Release_Data_Archive_Contents;
function Xlib_Release_Switches return String is
begin
return Lib_Release_Switches;
end Xlib_Release_Switches;
end Release;
--\x0c
package body Hpux_Release is
Ver : constant String := Release_Version;
Code : constant String := "Rev" & Ver & "_Hpux_Code";
Load : constant String := "Rev" & Ver & "_Hpux_Working";
Spec : constant String := "Rev" & Ver & "_Hpux_Spec";
Library : constant String := Other.X_Windows & ".X_Library";
Clients : constant String := Other.X_Windows & ".X_Clients";
Demos : constant String := Other.X_Windows & ".X_Demos";
Testing : constant String := Other.X_Windows & ".X_Testing";
Tools : constant String := Other.X_Windows & ".X_Tools";
Library_Spec : constant String := Library & "." & Spec;
Clients_Spec : constant String := Clients & "." & Spec;
Demos_Spec : constant String := Demos & "." & Spec;
Testing_Spec : constant String := Testing & "." & Spec;
Tools_Spec : constant String := Tools & "." & Spec;
Library_Load : constant String := Library & "." & Load;
Clients_Load : constant String := Clients & "." & Load;
Demos_Load : constant String := Demos & "." & Load;
Testing_Load : constant String := Testing & "." & Load;
Tools_Load : constant String := Tools & "." & Load;
Lib_Release : constant String :=
"!Machine.Release.X_Library.Release" & Ver;
Lib_Archive : constant String :=
"!Machine.Release.Archive.X_Library.Release" & Ver & ".Release";
Lib_Release_Contents : constant String :=
Lib_Release & ".Release_Contents";
Lib_Release_Archives : constant String :=
Lib_Release & ".Archives";
Lib_Release_Data_Archives_Contents : constant String :=
"" &
Other.X_Windows & "," &
Other.X_Windows & ".LIBRARY_SWITCHES," &
Other.X_Data & "," &
Other.X_Data & ".X_Error_Db," &
Other.App_Defaults;
Lib_Release_Switches : constant String :=
Lib_Release & ".Library_Switches";
function Version return String is
begin
return Ver;
end Version;
function Spec_Base return String is
begin
return Spec;
end Spec_Base;
function Load_Base return String is
begin
return Load;
end Load_Base;
function Code_Base return String is
begin
return Code;
end Code_Base;
function X_Clients return String is
begin
return Clients;
end X_Clients;
function X_Demos return String is
begin
return Demos;
end X_Demos;
function X_Library return String is
begin
return Library;
end X_Library;
function X_Testing return String is
begin
return Testing;
end X_Testing;
function X_Tools return String is
begin
return Tools;
end X_Tools;
function X_Clients_Spec return String is
begin
return Clients_Spec;
end X_Clients_Spec;
function X_Demos_Spec return String is
begin
return Demos_Spec;
end X_Demos_Spec;
function X_Library_Spec return String is
begin
return Library_Spec;
end X_Library_Spec;
function X_Testing_Spec return String is
begin
return Testing_Spec;
end X_Testing_Spec;
function X_Tools_Spec return String is
begin
return Tools_Spec;
end X_Tools_Spec;
function X_Clients_Load return String is
begin
return Clients_Load;
end X_Clients_Load;
function X_Demos_Load return String is
begin
return Demos_Load;
end X_Demos_Load;
function X_Library_Load return String is
begin
return Library_Load;
end X_Library_Load;
function X_Testing_Load return String is
begin
return Testing_Load;
end X_Testing_Load;
function X_Tools_Load return String is
begin
return Tools_Load;
end X_Tools_Load;
function Xlib_Release return String is
begin
return Lib_Release;
end Xlib_Release;
function Xlib_Archive return String is
begin
return Lib_Archive;
end Xlib_Archive;
function Xlib_Release_Contents return String is
begin
return Lib_Release_Contents;
end Xlib_Release_Contents;
function Xlib_Release_Archives return String is
begin
return Lib_Release_Archives;
end Xlib_Release_Archives;
function Xlib_Release_Data_Archive_Contents return String is
begin
return Lib_Release_Data_Archives_Contents;
end Xlib_Release_Data_Archive_Contents;
function Xlib_Release_Switches return String is
begin
return Lib_Release_Switches;
end Xlib_Release_Switches;
end Hpux_Release;
--\x0c
package body Workstation is
Windows : constant String := Workstation_Version;
Library : constant String := Windows & "/x-library";
Clients : constant String := Windows & "/x-clients";
Demos : constant String := Windows & "/x-demos";
Documentation : constant String := Windows & "/documentation";
Testing : constant String := Windows & "/x-testing";
Tools : constant String := Windows & "/tools";
function X_Windows return String is
begin
return Windows;
end X_Windows;
function X_Clients return String is
begin
return Clients;
end X_Clients;
function X_Demos return String is
begin
return Demos;
end X_Demos;
function X_Documentation return String is
begin
return Documentation;
end X_Documentation;
function X_Library return String is
begin
return Library;
end X_Library;
function X_Testing return String is
begin
return Testing;
end X_Testing;
function X_Tools return String is
begin
return Tools;
end X_Tools;
end Workstation;
end Places;
nblk1=1e
nid=0
hdr6=3c
[0x00] rec0=15 rec1=00 rec2=01 rec3=05c
[0x01] rec0=17 rec1=00 rec2=02 rec3=026
[0x02] rec0=00 rec1=00 rec2=1e rec3=016
[0x03] rec0=1f rec1=00 rec2=03 rec3=064
[0x04] rec0=00 rec1=00 rec2=1d rec3=008
[0x05] rec0=13 rec1=00 rec2=04 rec3=034
[0x06] rec0=00 rec1=00 rec2=1c rec3=01c
[0x07] rec0=25 rec1=00 rec2=05 rec3=026
[0x08] rec0=22 rec1=00 rec2=06 rec3=00a
[0x09] rec0=22 rec1=00 rec2=07 rec3=058
[0x0a] rec0=13 rec1=00 rec2=08 rec3=08c
[0x0b] rec0=00 rec1=00 rec2=1b rec3=008
[0x0c] rec0=13 rec1=00 rec2=09 rec3=00e
[0x0d] rec0=00 rec1=00 rec2=1a rec3=028
[0x0e] rec0=17 rec1=00 rec2=0a rec3=026
[0x0f] rec0=00 rec1=00 rec2=19 rec3=00e
[0x10] rec0=23 rec1=00 rec2=0b rec3=01e
[0x11] rec0=24 rec1=00 rec2=0c rec3=018
[0x12] rec0=21 rec1=00 rec2=0d rec3=04c
[0x13] rec0=21 rec1=00 rec2=0e rec3=004
[0x14] rec0=20 rec1=00 rec2=0f rec3=008
[0x15] rec0=1e rec1=00 rec2=10 rec3=018
[0x16] rec0=12 rec1=00 rec2=11 rec3=022
[0x17] rec0=00 rec1=00 rec2=18 rec3=018
[0x18] rec0=1d rec1=00 rec2=12 rec3=028
[0x19] rec0=24 rec1=00 rec2=13 rec3=05c
[0x1a] rec0=21 rec1=00 rec2=14 rec3=032
[0x1b] rec0=1e rec1=00 rec2=15 rec3=000
[0x1c] rec0=1f rec1=00 rec2=16 rec3=022
[0x1d] rec0=12 rec1=00 rec2=17 rec3=000
tail 0x21700ab1081978e9f64e2 0x42a00088462063203