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

⟦dd77d9e6b⟧ Ada Source

    Length: 14336 (0x3800)
    Types: Ada Source
    Notes: 03_class, FILE, R1k_Segment, e3_tag, package Object_Subclass, pragma Module_Name 4 1723, pragma Subsystem Directory, seg_0063ac

Derivation

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

E3 Source Code



with Directory;

package Object_Subclass is

    -- Parent class is Nil.
    function Nil_Subclass     return Directory.Subclass renames Directory.Nil;
    function Unknown_Subclass return Directory.Subclass;

    -- Parent class is Library.
    function Combined_Subsystem_Subclass                   -- COMB_SS
                return Directory.Subclass;
    function Combined_View_Subclass                        -- COMB_VIEW
                return Directory.Subclass;
    function Directory_Subclass                            -- DIRECTORY
                return Directory.Subclass;
    function Load_View_Subclass                            -- LOAD_VIEW
                return Directory.Subclass;
    function Mailbox_Subclass                              -- MAILBOX
                return Directory.Subclass;
    function Spec_Load_Subsystem_Subclass                  -- SPEC_LOAD
                return Directory.Subclass;
    function Spec_View_Subclass                            -- SPEC_VIEW
                return Directory.Subclass;
    function Subsystem_Subclass                            -- SUBSYSTEM
                return Directory.Subclass;
    function World_Subclass                                -- WORLD
                return Directory.Subclass;
    -- Parent class is Ada.

    function Alternative_List_Subclass                     -- ALT_LIST
                return Directory.Subclass;
    function Compilation_Unit_Subclass                     -- COMP_UNIT
                return Directory.Subclass;
    function Context_List_Subclass                         -- CONTEXT
                return Directory.Subclass;
    function Declaration_List_Subclass                     -- DECL_LIST
                return Directory.Subclass;
    function Function_Body_Subclass                        -- FUNC_BODY
                return Directory.Subclass;
    function Function_Instantiation_Subclass               -- FUNC_INST
                return Directory.Subclass;
    function Function_Rename_Subclass                      -- FUNC_REN
                return Directory.Subclass;
    function Function_Spec_Subclass                        -- FUNC_SPEC
                return Directory.Subclass;
    function Generic_Function_Subclass                     -- GEN_FUNC
                return Directory.Subclass;
    function Generic_Package_Subclass                      -- GEN_PACK
                return Directory.Subclass;
    function Generic_Parameter_List_Subclass               -- GEN_PARAM
                return Directory.Subclass;
    function Generic_Procedure_Subclass                    -- GEN_PROC
                return Directory.Subclass;
    function Loaded_Function_Spec_Subclass                 -- LOAD_FUNC
                return Directory.Subclass;
    function Loaded_Procedure_Spec_Subclass                -- LOAD_PROC
                return Directory.Subclass;
    function Main_Function_Spec_Subclass                   -- MAIN_FUNC
                return Directory.Subclass;
    function Main_Function_Body_Subclass                   -- MAIN_BODY
                return Directory.Subclass;
    function Main_Procedure_Spec_Subclass                  -- MAIN_PROC
                return Directory.Subclass;
    function Main_Procedure_Body_Subclass                  -- MAIN_BODY
                return Directory.Subclass;
    function Nonterminal_Subclass                          -- INSERTION
                return Directory.Subclass;
    function Package_Body_Subclass                         -- PACK_BODY
                return Directory.Subclass;
    function Package_Instantiation_Subclass                -- PACK_INST
                return Directory.Subclass;
    function Package_Rename_Subclass                       -- PACK_REN
                return Directory.Subclass;
    function Package_Spec_Subclass                         -- PACK_SPEC
                return Directory.Subclass;
    function Pragma_List_Subclass                          -- PRAGMA
                return Directory.Subclass;
    function Procedure_Body_Subclass                       -- PROC_BODY
                return Directory.Subclass;
    function Procedure_Instantiation_Subclass              -- PROC_INST
                return Directory.Subclass;
    function Procedure_Rename_Subclass                     -- PROC_REN
                return Directory.Subclass;
    function Procedure_Spec_Subclass                       -- PROC_SPEC
                return Directory.Subclass;
    function Statement_List_Subclass                       -- STATEMENT
                return Directory.Subclass;
    function Subprogram_Body_Subclass                      -- SUBP_BODY
                return Directory.Subclass;
    function Subprogram_Instantiation_Subclass             -- SUBP_INST
                return Directory.Subclass;
    function Subprogram_Rename_Subclass                    -- SUBP_REN
                return Directory.Subclass;
    function Subprogram_Spec_Subclass                      -- SUBP_SPEC
                return Directory.Subclass;
    function Task_Body_Subclass                            -- TASK_BODY
                return Directory.Subclass;
    function Unrecognizable_Function_Spec_Subclass         -- ????_FUNC
                return Directory.Subclass;
    function Unrecognizable_Generic_Subclass               -- ????_GEN
                return Directory.Subclass;
    function Unrecognizable_Package_Spec_Subclass          -- ????_PACK
                return Directory.Subclass;
    function Unrecognizable_Procedure_Spec_Subclass        -- ????_PROC
                return Directory.Subclass;
    function Unrecognizable_Subprogram_Spec_Subclass       -- ????_SUBP
                return Directory.Subclass;
    function Unrecognizable_Subclass                       -- ????
                return Directory.Subclass;
    -- Parent class is File.

    function Activity_Subclass                             -- ACTIVITY
                return Directory.Subclass;
    function Binary_Subclass                               -- BINARY
                return Directory.Subclass;
    function Byte_Aligned_Subclass                         -- BYTE
                return Directory.Subclass;
    function Cmvc_Database_Subclass                        -- CMVC_DB
                return Directory.Subclass;
    function Code_Database_Subclass                        -- CODE_DB
                return Directory.Subclass;
    function Compatibility_Database_Subclass               -- COMPAT_DB
                return Directory.Subclass;
    function Dictionary_Subclass                           -- DICTIONRY
                return Directory.Subclass;
    function Incoming_Mail_Message_Subclass                -- MSG_IN
                return Directory.Subclass;
    function Log_Subclass                                  -- LOG
                return Directory.Subclass;
    function Mail_Subclass                                 -- MAIL
                return Directory.Subclass;
    function Mail_Database_Subclass                        -- MAIL_DB
                return Directory.Subclass;
    function Object_Set_Subclass                           -- OBJECTS
                return Directory.Subclass;
    function Outgoing_Mail_Message_Subclass                -- MSG_OUT
                return Directory.Subclass;
    function Pure_Element_File_Map_Subclass                -- FILE_MAP
                return Directory.Subclass;
    function Postscript_Subclass                           -- PS
                return Directory.Subclass;
    function Search_List_Subclass                          -- SEARCH
                return Directory.Subclass;
    function Switch_Definition_Subclass                    -- SWTCH_DEF
                return Directory.Subclass;
    function Switch_Subclass                               -- SWITCH
                return Directory.Subclass;
    function Temporary_Subclass                            -- TEMP
                return Directory.Subclass;
    function Text_Subclass                                 -- TEXT
                return Directory.Subclass;

    -- Some newer subclasses which should be mixed with the above.

    function Document_Database_Subclass return Directory.Subclass;
    function Configuration_Subclass     return Directory.Subclass;
    function Venture_Subclass           return Directory.Subclass;
    function Work_Order_Subclass        return Directory.Subclass;
    function Work_Order_List_Subclass   return Directory.Subclass;

    -- Newer yet subclasses

    function System_View_Subclass                          -- SYSTEM_VIEW
                return Directory.Subclass;
    function System_Subsystem_Subclass                     -- SYSTEM
                return Directory.Subclass;
    --
    -- Still newer yet subclasses (for CDF)

    function Object_Code_Subclass                          -- OBJ_CODE
                return Directory.Subclass;
    function Executable_Code_Subclass                      -- EXE_CODE
                return Directory.Subclass;


    -- cmvc access_control file

    function Cmvc_Access_Subclass return Directory.Subclass;   -- CMVC_ACC

    -- design facility element cache

    function Element_Cache_Subclass return Directory.Subclass;   -- ELEMENTS

    function Design_Info_Subclass return Directory.Subclass; -- DESIGN

    function Markup_Subclass return Directory.Subclass; -- MARKUP

    --------------------------------------------------------------------------
    pragma Consume_Offset (4);
    --------------------------------------------------------------------------

    type Iterator is array (Integer range <>) of Directory.Subclass;

    function Defined_Subclasses
                (For_Classes : String := "<ALL CLASSES>") return Iterator;

    -- Returns an array of the defined subclasses of the specified
    -- classes.  The classes are specified by a list of the Class images
    -- separated by spaces

    function Maximum_Subclass (For_Classes : String := "<ALL CLASSES>")
                              return Directory.Subclass;
    function Minimum_Subclass (For_Classes : String := "<ALL CLASSES>")
                              return Directory.Subclass;

    -- Returns the maximum/minimum subclass value for the set of classes
    -- specified.

    function Diagram_Subclass return Directory.Subclass; -- DIAGRAM

    pragma Subsystem (Directory);
    pragma Module_Name (4, 1723);
end Object_Subclass;

E3 Meta Data

    nblk1=d
    nid=0
    hdr6=1a
        [0x00] rec0=17 rec1=00 rec2=01 rec3=058
        [0x01] rec0=00 rec1=00 rec2=0d rec3=008
        [0x02] rec0=13 rec1=00 rec2=02 rec3=01a
        [0x03] rec0=11 rec1=00 rec2=03 rec3=04a
        [0x04] rec0=11 rec1=00 rec2=04 rec3=03a
        [0x05] rec0=11 rec1=00 rec2=05 rec3=06a
        [0x06] rec0=12 rec1=00 rec2=06 rec3=00c
        [0x07] rec0=12 rec1=00 rec2=07 rec3=06a
        [0x08] rec0=12 rec1=00 rec2=08 rec3=036
        [0x09] rec0=15 rec1=00 rec2=09 rec3=00c
        [0x0a] rec0=01 rec1=00 rec2=0c rec3=02a
        [0x0b] rec0=1b rec1=00 rec2=0a rec3=06a
        [0x0c] rec0=13 rec1=00 rec2=0b rec3=000
    tail 0x21701a96481bf8102afee 0x42a00088462065003