|
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: ┃ T V ┃
Length: 12138 (0x2f6a)
Types: TextFile
Names: »V«
└─⟦d10a02448⟧ Bits:30000409 8mm tape, Rational 1000, ENVIRONMENT, D_12_7_3
└─ ⟦fc9b38f02⟧ »DATA«
└─⟦8e9e227a9⟧
└─⟦this⟧
with Rxi_Install;
use Rxi_Install;
with Rxi_String;
use Rxi_String;
package Release is
------------------------------------------------------------------------------
-- Rev10_0 - 09/20/88 Alpha release (internal)
-- Rev10_1 - 10/05/88 Beta release (external)
-- Rev10_2 - 11/02/88 Product release (X11R2,XSun)
-- Rev10_3 - 02/14/89 Product release (X11R2,X11R3,XSun3)
-- Rev10_4_0 - 04/27/89 Beta release (IBM2.1,XRTUS)
-- Rev10_4_1 - 05/09/89 Beta release (X11R2,X11R3,IBM2.1,XSun3/4,XRTUS)
-- Rev10_4_2 - 05/20/89 Product release (XSun3/4,XRTUS)
-- Rev10_4_3 - 07/12/89 Maintenance release
-- Rev10_5_0 - 09/15/89 Window resizing, XDecUS, XNCD (internal alpha)
-- Rev10_5_1 - 09/27/89 XNews support (internal alpha)
-- Release10_5_2 - 10/29/89 First encapsuled executables (internal alpha)
-- Release10_5_2 - 12/10/89 First encapsuled executables
-- Release10_5_2a- 04/04/90 Bug fix; Vms Show Display output changed
-- Release10_6_0 - 01/15/90 XHP46021A
-- Release10_6_1 - 03/19/90 XHP & XNCD on HPUX 7.0 (beta)
-- Release10_6_2 - 03/21/90 IBM R/6000 (RIOS) AIX 3.1
-- Release10_6_2a- 05/15/90 XNeWS 2.0 support
-- Release10_6_3 - 06/14/90 XHP46021A *only*; production release.
-- Release10_6_4 - 08/07/90 Full release; X11R4 support for all platforms.
-- Release10_6_4a- 08/27/90 Full release; Aix server bug workaround and
-- Release10_7_0 - 07/26/90 XApollo3 (model 7121) keyboard.
-- XNeWS font bug workaround
-- Release10_7_1 - 09/12/90 Full Product Release;
-- XSun3/4 - SUN
-- Xr6us - RS/6000
-- Xdecus - VMS, Multinet, Wollongong
-- Xhp46021a - HP
-- Xapollo3 - Apollo
-- Does *not* contain XNeWS3/4
-- Release10_7_2 - 10/29/90 Apollo - XApolloM
-- Release10_7_3 - 11/06/90 XNews4 - problem with Complt/Format keys under 2.0
-- Release10_8_0 - 10/20/90 Ultrix - XUltUS (DECstation, VAXstation)
-- 10/25/90 Apollo - XApolloM
-- Release10_8_1 - 12/12/90 Ultrix - release (DS - DECstation, VS - VAXstation)
-- VMS - fix for DECwindows 5.3
-- Release10_8_2 - 03/21/91 Apple AUX - Xapus_Aux4_0 beta
-- Release10_9_0 - 03/28/91 Full Product Release; All RXI Products;
-- XSun3/4 - SUN 4.0.3
-- XNews3/4 - SUN 4.0.3
-- Xr6us - RS/6000 3.1
-- Xdecus - VMS 5.1/2/3, Multinet, Wollongong
-- Xultux - Ultrix 4.1
-- Xhp46021a - HP 7.0
-- Xapollo3 - Apollo 10.2
-- Xapus - Apple A/UX
-- XNcd - NCD
-- Release10_10_0 - 10/01/91 Add ULTRIXConnection 1.3a.
-- 06/22/92 X11R3 support dropped
-- X11R5 support added
-- Sun type-3 keyboards dropped
-- Sun model-3 machines dropped
-- Sun IBM-style keyboards added
-- Apollo keyboards dropped
-- NeWS 3.0
-- SunOS 4.1.2
-- 08/11/92 VMS 5.4
--
------------------------------------------------------------------------------
package Info is
function Number return String;
------------------------------------------------------------------------------
-- This is the current release number/name for this version of RXI.
-- eg. "Release10_5_0"
------------------------------------------------------------------------------
function R1000_Working return String;
------------------------------------------------------------------------------
-- This is the current development source directory. Rational internal only.
-- eg. "!Environment.Rxi.Rev10_Working.Unit."
------------------------------------------------------------------------------
function R1000_Release return String;
------------------------------------------------------------------------------
-- This is the current customer release directory.
-- eg. "!Machine.Release.X_Interface.Release10_5_0."
------------------------------------------------------------------------------
function R1000_Archive return String;
------------------------------------------------------------------------------
-- This is the current customer release archive.
-- eg. "!Machine.Release.Archive.X_Interface.Release10_5_0.Release."
------------------------------------------------------------------------------
function Workstation_Source_Dir (Kbd : Terminal_Type) return String;
------------------------------------------------------------------------------
-- 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.
------------------------------------------------------------------------------
function Workstation_Source_Machine (Kbd : Terminal_Type) return String;
------------------------------------------------------------------------------
-- 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.
------------------------------------------------------------------------------
function Workstation_Exe_Dir (Kbd : Terminal_Type) return String;
------------------------------------------------------------------------------
-- 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.
------------------------------------------------------------------------------
function Workstation_Exe_Machine (Kbd : Terminal_Type) return String;
------------------------------------------------------------------------------
-- 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.
------------------------------------------------------------------------------
function Workstation_Test_Dir (Kbd : Terminal_Type) return String;
------------------------------------------------------------------------------
-- 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.
------------------------------------------------------------------------------
function Workstation_Test_Machine (Kbd : Terminal_Type) return String;
------------------------------------------------------------------------------
-- 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.
------------------------------------------------------------------------------
end Info;
------------------------------------------------------------------------------
-- Keyboard_Id_Value - each keyboard has a unique Id value associated with it.
-- We can only expect to be able to make numbers in this range work. Numbers
-- larger than this may prevent some computers from recognizing RXI as a
-- Vt100 because the 2nd parameter in the what-are-you response will be > 3
-- digits; <esc>.'['.'1'.';'.ddd.'c'; numbers larger than this will work as
-- far as the R1000/Core_Editor is concerned but we would like to continue
-- to be able to masquerade as a Vt100 emulator as well. The value 0 (zero)
-- is reserved for use when recognition is turned off in RXI completely;
-- either through "rxi -rcg 0" or by use of the Vt100 Recognition menu item;
-- in that case rxi is indistinguishable from an instance of xterm (a pure
-- Vt100 emulation).
------------------------------------------------------------------------------
subtype Keyboard_Id_Value is Natural range 1 .. 63;
------------------------------------------------------------------------------
-- Keyboard_Info - In order to automate the process of maintenance and release
-- as much as possible we need various pieces of information on each
-- Terminal_Type.
------------------------------------------------------------------------------
type Keyboard_Info is
record
Name : Heap_String;
Id : Keyboard_Id_Value;
Comment1 : Heap_String;
Comment2 : Heap_String;
R1000_Dir : Heap_String;
Source_Dir : Heap_String;
Lines : Positive;
Columns : Positive;
Tt_Extra : Heap_String;
Has_Source : Boolean;
end record;
------------------------------------------------------------------------------
-- Name - Name of the keyboard as defined by Rational. This name
-- will be used to name files, eg. XSun3_Commands.
-- Id - Unique-to-this-keyboard numeric value used for
-- auto-recognition.
-- Comment1 - Comment to appear in the recognition.h file.
-- Comment2 - Comment to appear in the recognition.h file.
-- R1000_Dir - Directory on the R1000 to use when installing workstation
-- files.
-- Source_Dir - Directory on the R1000 to use when saving master source.
-- Lines - Number of lines in maximum-window for this keybaord type.
-- Columns - Number of dolumns in maximum window for this keyboard
-- type.
-- Tt_Extra - Extra lines to insert into the system Terminal_Types file.
-- Has_Source - Some keyboards are just X terminals. Since they are not
-- workstations they do not have associated workstation
-- files. This field is TRUE if this keyboard is attached
-- to a "real" workstation and FALSE if it is "just" an
-- X terminal.
------------------------------------------------------------------------------
function Supported_Keyboards (Terminal : Terminal_Type)
return Keyboard_Info;
------------------------------------------------------------------------------
-- File_Info - For each RXI source or executable file and terminal type
-- combination we have an R1000 file name and a workstation file name.
------------------------------------------------------------------------------
type File_Kind is (Text, -- Ascii text; shipped
Binary); -- Binary file; shipped
type File_Info is
record
File_Type : File_Kind; -- What kind of file is it
Master_File : Heap_String; -- Name on master-source machine
Install_File : Heap_String; -- Name on target workstation machine
end record;
----Names for recognition.h on various targets. Have some sort of single
-- leading character that can be chopped or else used to separate from a
-- prepended prefix.
function Recognition_File (Terminal : Terminal_Type) return File_Info;
----Names for all other files; there are 1..Source_Length sources and there are
-- 1..Install_Length installation files for a given Terminal_Type.
function Install_Length (Terminal : Terminal_Type) return Natural;
function Install (Terminal : Terminal_Type;
File_No : Positive) return File_Info;
function Source_Length (Terminal : Terminal_Type) return Natural;
function Source (Terminal : Terminal_Type;
File_No : Positive) return File_Info;
end Release;