|
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: 21547 (0x542b)
Types: TextFile
Names: »B«
└─⟦85b835f43⟧ Bits:30000549 8mm tape, Rational 1000, Xlib rev 6.00
└─⟦0c20f784e⟧ »DATA«
└─⟦1abbe589f⟧
└─⟦591c5b094⟧
└─⟦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;
--\f
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;
--\f
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;
--\f
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;
--\f
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;
--\f
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;