DataMuseum.dk

Presents historical artifacts from the history of:

Rational R1000/400 Tapes

This is an automatic "excavation" of a thematic subset of
artifacts from Datamuseum.dk's BitArchive.

See our Wiki for more about Rational R1000/400 Tapes

Excavated with: AutoArchaeologist - Free & Open Source Software.


top - download
Index: ┃ T V

⟦57fe249a6⟧ TextFile

    Length: 12138 (0x2f6a)
    Types: TextFile
    Names: »V«

Derivation

└─⟦d10a02448⟧ Bits:30000409 8mm tape, Rational 1000, ENVIRONMENT, D_12_7_3
    └─ ⟦fc9b38f02⟧ »DATA« 
        └─⟦8e9e227a9⟧ 
            └─⟦this⟧ 

TextFile

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;