DataMuseum.dk

top - download

    Length: 4376 (0x1118)
    Types: TextFile
    Names: »B«

└─⟦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

separate (Release)
package body Info is

    type Workstation_Info is
        record
            Source_Dir     : Heap_String;
            Source_Machine : Heap_String;
        end record;

    type Workstation_Info_Array is array (Terminal_Type) of Workstation_Info;

    Unix_Src : constant String := "/src/X/rwi/rev10-9/src/";

    Vms_Src : constant String := "User:[src.X.rwi.rev10-9.src.";

    Wrk : constant Workstation_Info_Array :=
       (

------------------------------------------------------------------------------
----IBM PC's
------------------------------------------------------------------------------

        Pc101_Ms_Windows_3_0   =>  
        (Source_Dir     => Hs (Unix_Src & "pc101"),  
         Source_Machine => Hs (My_Sun)),

        Pc91_Ms_Windows_3_0    =>  
           (Source_Dir     => Hs (Unix_Src & "pc91"),  
            Source_Machine => Hs (My_Sun)),

        Pcbasic_Ms_Windows_3_0 => (Source_Dir     => Hs (Unix_Src & "pcBasic"),
                                   Source_Machine => Hs (My_Sun)),

        Pc86_Ms_Windows_3_0    =>  
           (Source_Dir     => Hs (Unix_Src & "pc86"),  
            Source_Machine => Hs (My_Sun)));

--\f

    function Number return String is separate;

--\f

    function R1000_Working return String is
------------------------------------------------------------------------------
-- This is the current development source directory.  Rational internal only.
-- eg. "!Environment.RWI.Rev10_Working.Unit."
------------------------------------------------------------------------------
        Here     : constant String :=
           Directory_Tools.Naming.Full_Name
              (Directory_Tools.Naming.Resolution ("$$.Units"));
        Official : constant String := "!Environment.RWI.Rev";
    begin

        if Here'Length >= Official'Length and then  
           String_Utilities.Equal
              (Official,  
               Here (Here'First .. Here'First + Official'Length - 1),  
               Ignore_Case => True) then
            ----We're in one of the RWI working directories so we're ok.
            --  Return our current location ($$.Units).
            return Here & '.';
        else
            ----Don't know where we are.  This is our official main working
            --  area.  Return that.  If we're in a !Machine.Release area then
            --  our caller will know what to do.
            return "!Environment.RWI.Rev10_Working.Units.";
        end if;

    end R1000_Working;

--\f

    function R1000_Release return String is
------------------------------------------------------------------------------
-- This is the current customer release directory.
-- eg. "!Machine.Release.X_Interface.Release10_5_0."
------------------------------------------------------------------------------
    begin

        return "!Machine.Release.RWI." & Number & ".";

    end R1000_Release;

--\f

    function R1000_Archive return String is
------------------------------------------------------------------------------
-- This is the current customer release archive.
-- eg. "!Machine.Release.Archive.X_Interface.Release10_5_0.Release."
------------------------------------------------------------------------------
    begin

        return "!Machine.Release.Archive.RWI." & Number & ".Release.";

    end R1000_Archive;

--\f

    function Workstation_Source_Dir (Kbd : Terminal_Type) return String is
------------------------------------------------------------------------------
-- 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.
------------------------------------------------------------------------------
    begin

        return Wrk (Kbd).Source_Dir.all;

    end Workstation_Source_Dir;

--\f

    function Workstation_Source_Machine (Kbd : Terminal_Type) return String is
------------------------------------------------------------------------------
-- 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.
------------------------------------------------------------------------------
    begin

        return Wrk (Kbd).Source_Machine.all;

    end Workstation_Source_Machine;

--\f

end Info;