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 - download

⟦0c3d5c640⟧ Ada Source

    Length: 4096 (0x1000)
    Types: Ada Source
    Notes: 03_class, FILE, R1k_Segment, e3_tag, package Object_Class, pragma Module_Name 4 1711, pragma Subsystem Directory, seg_028467

Derivation

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

with Directory;

package Object_Class is

    -- This package provides functions for getting the Directory.Class for
    -- all of the pre-defined managed types as of Gamma_0.  This includes
    -- types which have type-specific operations defined at the
    -- directory level (Ada, File) as well as those types
    -- for which one must have direct visibility to the object manager
    -- (devices, code segments, user/group/session).


    function Ada return Directory.Class;
    -- Equivalent to Directory.Ada.Get_Class (Ada_Manager.Class).

    function Library return Directory.Class;
    -- Equivalent to Directory.Control_Point.Get_Class (Directory_Manager.Class).

    function File return Directory.Class;
    -- Equivalent to Polymorphic_IO.Get_Class (File_Manager.Class).

    function Tape return Directory.Class;
    -- No directory level equivalent (Tape_Manager.Class).

    function Terminal return Directory.Class;
    -- No directory level equivalent (Terminal_Manager.Class).

    function User return Directory.Class;
    -- No directory level equivalent (User.Class).

    function Group return Directory.Class;
    -- No directory level equivalent (User.Group.Class).

    function Session return Directory.Class;
    -- No directory level equivalent (User.Session.Class).

    function Code_Segment return Directory.Class;
    -- No directory level equivalent (Code_Segment_Manager.Class).

    function Link return Directory.Class;
    -- No directory level equivalent (Link_Manager.Class).

    function Null_Device return Directory.Class;
    -- No directory level equivalent (Null_Device_Manager.Class).

    function Pipe return Directory.Class;
    -- No directory level equivalent (Pipe_Manager.Class).

    function Ddb return Directory.Class;
    -- No directory level equivalent (Dependency_Database_Manager.Class).

    function Archived_Code return Directory.Class;
    -- No directory level equivalent (Code_Db_Manager.Class).

    pragma Subsystem (Directory);
    pragma Module_Name (4, 1711);

end Object_Class;

    nblk1=3
    nid=0
    hdr6=6
        [0x00] rec0=1b rec1=00 rec2=01 rec3=03c
        [0x01] rec0=1b rec1=00 rec2=02 rec3=030
        [0x02] rec0=06 rec1=00 rec2=03 rec3=000
    tail 0x21722371c83c1734772b0 0x42a00088462065003