DataMuseum.dk

top - download

    Length: 5530 (0x159a)
    Types: TextFile
    Names: »V«

└─⟦bdeee703f⟧ Bits:30000538 8mm tape, Rational 1000, RWI 10_1_1
    └─ ⟦545705153⟧ »DATA« 
        └─⟦f9289093d⟧ 
└─⟦5f3412b64⟧ Bits:30000745 8mm tape, Rational 1000, ENVIRONMENT 12_6_5 TOOLS 
    └─ ⟦91c658230⟧ »DATA« 
        └─⟦f9289093d⟧ 
            └─⟦this⟧ 

TextFile

with Rwi_Install;
use Rwi_Install;
with Rwi_String;
use Rwi_String;

package Release is
------------------------------------------------------------------------------
-- Rev10_0       - 04/01/91 Beta release
--
------------------------------------------------------------------------------

    package Info is

        function Number return String;
------------------------------------------------------------------------------
-- This is the current release number/name for this version of Rwi.
-- eg. "Release10_5_0"
------------------------------------------------------------------------------

        function R1000_Working return String;
------------------------------------------------------------------------------
-- This is the current development source directory.  Rational internal only.
-- eg. "!Environment.Rwi.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/rwi/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.
------------------------------------------------------------------------------

    end Info;

------------------------------------------------------------------------------
-- 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         : Heap_String;
            Comment1   : Heap_String;
            Comment2   : 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 string value used for
--                    auto-recognition.
--  Comment1        - Comment to appear in the recognition.h file.
--  Comment2        - Comment to appear in the recognition.h file.
--  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 Rwi 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 all other files; there are 1..Source_Length source files
--  for a given Terminal_Type.

    function Source_Length (Terminal : Terminal_Type) return Natural;

    function Source (Terminal : Terminal_Type;  
                     File_No  : Positive) return File_Info;

end Release;