DataMuseum.dk Presents historical artifacts from the history of: Rational R1000/400

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 Excavated with: AutoArchaeologist - Free & Open Source Software.

top - metrics - download

⟦3a1d8b131⟧ Ada Source

    Length: 16384 (0x4000)
    Types: Ada Source
    Notes: 03_class, FILE, R1k_Segment, e3_tag, package Places, seg_005811

Derivation

└─⟦8527c1e9b⟧ Bits:30000544 8mm tape, Rational 1000, Arrival backup of disks in PAM's R1000
    └─⟦5a81ac88f⟧ »Space Info Vol 1« 
        └─⟦this⟧ 

package Places is
------------------------------------------------------------------------------
-- X Library Directory Names
--
-- Places - All of the places where the X Library lives.
------------------------------------------------------------------------------
-- Copyright 1990 - 1991 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.
------------------------------------------------------------------------------

--\x0c
    package Other is

        function X_Windows    return String; -- eg. !Tools.X_Windows
        function X_Data       return String; -- eg. !Tools.X_Windows.X_Data
        function App_Defaults return String; -- eg. ...X_Data.App@_Defaults

    end Other;

--\x0c
    ------------------------------------------------------------------------------
-- Working - The current development working views at Rational.
------------------------------------------------------------------------------

    package Working is

        function Version   return String;       -- eg. 5
        function Spec_Base return String;       -- eg. Rev5_Spec
        function Load_Base return String;       -- eg. Rev5_Working

        function Release_Tools return String;
        function X_Clients     return String;       -- eg. !X11.X_Clients
        function X_Demos       return String;
        function X_Library     return String;
        function X_Testing     return String;
        function X_Tools       return String;
        function X_R1000       return String;

        function Release_Tools_Spec return String;
        --function X_Clients_Spec return String;  -- eg. !X11.X_Clients.Rev5_Spec
        --function X_Demos_Spec return String;
        --function X_Library_Spec return String;
        --function X_Testing_Spec return String;
        function X_Tools_Spec return String;
        function X_R1000_Spec return String;

        function Release_Tools_Load return String;
        function X_Clients_Load return String;-- eg. !X11.X_Clients.Rev5_Working
        function X_Demos_Load return String;
        function X_Library_Load return String;
        function X_Testing_Load return String;
        function X_Tools_Load return String;
        function X_R1000_Load return String;

    end Working;

--\x0c
    ------------------------------------------------------------------------------
-- Release - The current set of release views at Rational.
------------------------------------------------------------------------------

    package Release is

        function Version   return String;       -- eg. 5_6_0
        function Spec_Base return String;       -- eg. Rev5_6_0_Spec
        function Load_Base return String;       -- eg. Rev5_6_0_Working
        function Code_Base return String;       -- eg. Rev5_6_0_Code

        function D1_Spec_Base return String;    -- eg. Rev5_6_0_D1_Spec
        function D1_Load_Base return String;    -- eg. Rev5_6_0_D1_Working
        function D1_Code_Base return String;    -- eg. Rev5_6_0_D1_Code

        function D2_Spec_Base return String;    -- eg. Rev5_6_0_D2_Spec
        function D2_Load_Base return String;    -- eg. Rev5_6_0_D2_Working
        function D2_Code_Base return String;    -- eg. Rev5_6_0_D2_Code

        function X_Clients return String;       -- eg. !Tools.@.X_Clients
        function X_Demos   return String;
        function X_Library return String;
        function X_Testing return String;
        function X_Tools   return String;
        function X_R1000   return String;

        --function X_Clients_Spec  return String;  -- eg. !Tools.@.@.Rev5_6_0_Spec
        --function X_Demos_Spec    return String;
        --function X_Library_Spec  return String;
        --function X_Testing_Spec  return String;
        function X_Tools_Spec    return String;
        function X_R1000_D1_Spec return String;
        function X_R1000_D2_Spec return String;

        function X_Clients_Load return String;-- eg. !Tools.@.@.Rev5_6_0_Working
        function X_Demos_Load return String;
        function X_Library_Load return String;
        function X_Testing_Load return String;
        function X_Tools_Load return String;
        function X_R1000_D1_Load return String;
        function X_R1000_D2_Load return String;

        --function X_Clients_Code  return String;-- eg. !Tools.@.@.Rev5_6_0_Code
        --function X_Demos_Code    return String;
        --function X_Library_Code  return String;
        --function X_Testing_Code  return String;
        --function X_Tools_Code    return String;
        function X_R1000_D1_Code return String;
        function X_R1000_D2_Code return String;

        function Xlib_Release return String;   -- !Machine.Release.X_Library
        function Xlib_Archive return String;   -- !Mach@.Rel@.Archive.X_Library

        function Xlib_Release_Contents              return String;
        function Xlib_Release_Archives              return String;
        function Xlib_Release_Data_Archive_Contents return String;
        function Xlib_Release_Switches              return String;

    end Release;

    package Hpux_Release is

        function Version   return String;       -- eg. 5_6_0_Hpux
        function Spec_Base return String;       -- eg. Rev5_6_0_Hpux_Spec
        function Load_Base return String;       -- eg. Rev5_6_0_Hpux_Working
        function Code_Base return String;       -- eg. Rev5_6_0_Hpux_Code

        function X_Clients return String;       -- eg. !Tools.@.X_Clients
        function X_Demos   return String;
        function X_Library return String;
        function X_Testing return String;
        function X_Tools   return String;

        --function X_Clients_Spec  return String;--eg.!Tools.?.Rev5_6_0_Hpux_Spec
        --function X_Demos_Spec    return String;
        --function X_Library_Spec  return String;
        --function X_Testing_Spec  return String;
        --function X_Tools_Spec return String;

        function X_Clients_Load return String;--eg.!Tools?Rev5_6_0_Hpux_Working
        function X_Demos_Load   return String;
        function X_Library_Load return String;
        function X_Testing_Load return String;
        function X_Tools_Load   return String;

        function Xlib_Release return String;   -- !Machine.Release.X_Library
        function Xlib_Archive return String;   -- !Mach@.Rel@.Archive.X_Library

        function Xlib_Release_Contents              return String;
        function Xlib_Release_Archives              return String;
        function Xlib_Release_Data_Archive_Contents return String;
        function Xlib_Release_Switches              return String;

    end Hpux_Release;

------------------------------------------------------------------------------
-- Workstation - The current development working views on the workstation.
------------------------------------------------------------------------------

    package Workstation is
        function X_Windows return String;      -- eg. /src/X/xlib/rev5

        function X_Clients       return String;-- eg. /src/X/xlib/rev5/x-clients
        function X_Demos         return String;
        function X_Documentation return String;
        function X_Library       return String;
        function X_Testing       return String;
        function X_Tools         return String;
    end Workstation;

end Places;

    nblk1=f
    nid=0
    hdr6=1e
        [0x00] rec0=15 rec1=00 rec2=01 rec3=066
        [0x01] rec0=18 rec1=00 rec2=02 rec3=03c
        [0x02] rec0=00 rec1=00 rec2=0f rec3=016
        [0x03] rec0=15 rec1=00 rec2=03 rec3=06c
        [0x04] rec0=01 rec1=00 rec2=0e rec3=002
        [0x05] rec0=16 rec1=00 rec2=04 rec3=072
        [0x06] rec0=00 rec1=00 rec2=0d rec3=004
        [0x07] rec0=15 rec1=00 rec2=05 rec3=09c
        [0x08] rec0=01 rec1=00 rec2=0c rec3=008
        [0x09] rec0=14 rec1=00 rec2=06 rec3=03c
        [0x0a] rec0=00 rec1=00 rec2=0b rec3=034
        [0x0b] rec0=18 rec1=00 rec2=07 rec3=038
        [0x0c] rec0=00 rec1=00 rec2=0a rec3=026
        [0x0d] rec0=15 rec1=00 rec2=08 rec3=054
        [0x0e] rec0=0b rec1=00 rec2=09 rec3=000
    tail 0x21500acba81978e97a934 0x42a00088462063203