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

⟦0912c8979⟧ Ada Source

    Length: 15360 (0x3c00)
    Types: Ada Source
    Notes: 03_class, FILE, R1k_Segment, e3_tag, package Object_Info, seg_02963b

Derivation

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

with Directory;
with Directory_Tools;
package Object_Info is

    -- This package provides information about objects in the Environment.
    -- This package consists of several sub-packages, each of which is
    -- dedicated to a particular kind of object.
    --
    -- A few terms need definition:
    --
    --    "Simple world" : a world that is not a subsystem or view.
    --    "Simple object": an object that is not a library.
    --
    -- If "Recursive" is True, the objects in "This_Object.@??" will be
    -- analyzed. If "Recursive" is False, only the objects in "This_Object.
    -- @" will be analyzed.

    package Any is

        -- This package provides information applicable to any object in
        -- the Environment.

        function Number_Of_Objects_In
                    (This_Iterator : in Directory_Tools.Object.Iterator)
                    return Natural;

        function Number_Of_Objects_Enclosed_By
                    (This_Object : in Directory_Tools.Object.Handle;
                     Recursive : in Boolean := True) return Natural;

        function Classes_Equal
                    (This_Object : in Directory_Tools.Object.Handle;
                     This_Class : in Directory_Tools.Object.Class_Enumeration)
                    return Boolean;

        function Subclasses_Equal
                    (This_Object : in Directory_Tools.Object.Handle;
                     This_Subclass : in Directory.Subclass) return Boolean;

        function Is_Good (This_Object : in Directory_Tools.Object.Handle)
                         return Boolean;

        function Is_Bad (This_Object : in Directory_Tools.Object.Handle)
                        return Boolean;

        function Is_Library (This_Object : in Directory_Tools.Object.Handle)
                            return Boolean;

        function Is_Directory (This_Object : in Directory_Tools.Object.Handle)
                              return Boolean;

        function Is_World (This_Object : in Directory_Tools.Object.Handle)
                          return Boolean;

        function Is_Simple_World
                    (This_Object : in Directory_Tools.Object.Handle)
                    return Boolean;

        function Is_Subsystem (This_Object : in Directory_Tools.Object.Handle)
                              return Boolean;

        function Is_View (This_Object : in Directory_Tools.Object.Handle)
                         return Boolean;

        function Is_Spec_View (This_Object : in Directory_Tools.Object.Handle)
                              return Boolean;

        function Is_Load_View (This_Object : in Directory_Tools.Object.Handle)
                              return Boolean;

        function Is_Regular_Load_View
                    (This_Object : in Directory_Tools.Object.Handle)
                    return Boolean;

        function Is_Coded_Load_View
                    (This_Object : in Directory_Tools.Object.Handle)
                    return Boolean;

        function Is_Combined_View
                    (This_Object : in Directory_Tools.Object.Handle)
                    return Boolean;

        function Is_Simple_Object
                    (This_Object : in Directory_Tools.Object.Handle)
                    return Boolean;

        function Is_Ada_Unit (This_Object : in Directory_Tools.Object.Handle)
                             return Boolean;

        function Is_File (This_Object : in Directory_Tools.Object.Handle)
                         return Boolean;

        function Is_Misc_Simple_Object
                    (This_Object : in Directory_Tools.Object.Handle)
                    return Boolean;

        function Is_Frozen (This_Object : in Directory_Tools.Object.Handle)
                           return Boolean;

        function Contains_Libraries
                    (This_Object : in Directory_Tools.Object.Handle;
                     Recursive : in Boolean := True) return Boolean;

        function Contains_Directories
                    (This_Object : in Directory_Tools.Object.Handle;
                     Recursive : in Boolean := True) return Boolean;

        function Contains_Worlds
                    (This_Object : in Directory_Tools.Object.Handle;
                     Recursive : in Boolean := True) return Boolean;

        function Contains_Simple_Worlds
                    (This_Object : in Directory_Tools.Object.Handle;
                     Recursive : in Boolean := True) return Boolean;

        function Contains_Subsystems
                    (This_Object : in Directory_Tools.Object.Handle;
                     Recursive : in Boolean := True) return Boolean;

        function Contains_Views (This_Object : in Directory_Tools.Object.Handle;
                                 Recursive : in Boolean := True) return Boolean;

        function Contains_Spec_Views
                    (This_Object : in Directory_Tools.Object.Handle;
                     Recursive : in Boolean := True) return Boolean;

        function Contains_Load_Views
                    (This_Object : in Directory_Tools.Object.Handle;
                     Recursive : in Boolean := True) return Boolean;

        function Contains_Regular_Load_Views
                    (This_Object : in Directory_Tools.Object.Handle;
                     Recursive : in Boolean := True) return Boolean;

        function Contains_Coded_Load_Views
                    (This_Object : in Directory_Tools.Object.Handle;
                     Recursive : in Boolean := True) return Boolean;

        function Contains_Combined_Views
                    (This_Object : in Directory_Tools.Object.Handle;
                     Recursive : in Boolean := True) return Boolean;

        function Contains_Simple_Objects
                    (This_Object : in Directory_Tools.Object.Handle;
                     Recursive : in Boolean := True) return Boolean;

        function Contains_Ada_Units
                    (This_Object : in Directory_Tools.Object.Handle;
                     Recursive : in Boolean := True) return Boolean;

        function Contains_Files (This_Object : in Directory_Tools.Object.Handle;
                                 Recursive : in Boolean := True) return Boolean;

        function Contains_Misc_Simple_Objects
                    (This_Object : in Directory_Tools.Object.Handle;
                     Recursive : in Boolean := True) return Boolean;

        function Contains_Frozen_Objects
                    (This_Object : in Directory_Tools.Object.Handle;
                     Recursive : in Boolean := True) return Boolean;

        function Is_Contained_By_Subsystem
                    (This_Object : in Directory_Tools.Object.Handle)
                    return Boolean;

        function Is_Contained_By_View
                    (This_Object : in Directory_Tools.Object.Handle)
                    return Boolean;

        function Is_Contained_By_Spec_View
                    (This_Object : in Directory_Tools.Object.Handle)
                    return Boolean;

        function Is_Contained_By_Load_View
                    (This_Object : in Directory_Tools.Object.Handle)
                    return Boolean;

        function Is_Contained_By_Units_Directory_Of_View
                    (This_Object : in Directory_Tools.Object.Handle)
                    return Boolean;

        function All_Objects_In (This_Object : in Directory_Tools.Object.Handle;
                                 Recursive : in Boolean := True)
                                return Directory_Tools.Object.Iterator;

        function Libraries_In (This_Object : in Directory_Tools.Object.Handle;
                               Recursive : in Boolean := True)
                              return Directory_Tools.Object.Iterator;

        function Directories_In (This_Object : in Directory_Tools.Object.Handle;
                                 Recursive : in Boolean := True)
                                return Directory_Tools.Object.Iterator;

        function Worlds_In (This_Object : in Directory_Tools.Object.Handle;
                            Recursive : in Boolean := True)
                           return Directory_Tools.Object.Iterator;

        function Simple_Worlds_In (This_Object : in
                                      Directory_Tools.Object.Handle;
                                   Recursive : in Boolean := True)
                                  return Directory_Tools.Object.Iterator;

        function Subsystems_In (This_Object : in Directory_Tools.Object.Handle;
                                Recursive : in Boolean := True)
                               return Directory_Tools.Object.Iterator;

        function Views_In (This_Object : in Directory_Tools.Object.Handle;
                           Recursive : in Boolean := True)
                          return Directory_Tools.Object.Iterator;

        function Spec_Views_In (This_Object : in Directory_Tools.Object.Handle;
                                Recursive : in Boolean := True)
                               return Directory_Tools.Object.Iterator;

        function Load_Views_In (This_Object : in Directory_Tools.Object.Handle;
                                Recursive : in Boolean := True)
                               return Directory_Tools.Object.Iterator;

        function Regular_Load_Views_In
                    (This_Object : in Directory_Tools.Object.Handle;
                     Recursive : in Boolean := True)
                    return Directory_Tools.Object.Iterator;

        function Coded_Load_Views_In (This_Object : in
                                         Directory_Tools.Object.Handle;
                                      Recursive : in Boolean := True)
                                     return Directory_Tools.Object.Iterator;

        function Combined_Views_In (This_Object : in
                                       Directory_Tools.Object.Handle;
                                    Recursive : in Boolean := True)
                                   return Directory_Tools.Object.Iterator;

        function Simple_Objects_In (This_Object : in
                                       Directory_Tools.Object.Handle;
                                    Recursive : in Boolean := True)
                                   return Directory_Tools.Object.Iterator;

        function Ada_Units_In (This_Object : in Directory_Tools.Object.Handle;
                               Recursive : in Boolean := True)
                              return Directory_Tools.Object.Iterator;

        function Files_In (This_Object : in Directory_Tools.Object.Handle;
                           Recursive : in Boolean := True)
                          return Directory_Tools.Object.Iterator;

        function Misc_Simple_Objects_In
                    (This_Object : in Directory_Tools.Object.Handle;
                     Recursive : in Boolean := True)
                    return Directory_Tools.Object.Iterator;

        function Frozen_Objects_In (This_Object : in
                                       Directory_Tools.Object.Handle;
                                    Recursive : in Boolean := True)
                                   return Directory_Tools.Object.Iterator;

    end Any;

    package Cmvc is

        -- This package provides information about objects under CMVC.

        function Models_Equal
                    (This_View : in Directory_Tools.Object.Handle;
                     This_Model : in String := "!MODEL.R1000") return Boolean;

        function Is_Controlled (This_Object : in Directory_Tools.Object.Handle)
                               return Boolean;
       function Is_Checked_Out (This_Object : in Directory_Tools.Object.Handle)
                                return Boolean;

        function Contains_Controlled_Objects
                    (This_Object : in Directory_Tools.Object.Handle;
                     Recursive : in Boolean := True) return Boolean;

        function Contains_Checked_Out_Objects
                    (This_Object : in Directory_Tools.Object.Handle;
                     Recursive : in Boolean := True) return Boolean;

        function Controlled_Objects_In
                    (This_Object : in Directory_Tools.Object.Handle;
                     Recursive : in Boolean := True)
                    return Directory_Tools.Object.Iterator;

        function Checked_Out_Objects_In
                    (This_Object : in Directory_Tools.Object.Handle;
                     Recursive : in Boolean := True)
                    return Directory_Tools.Object.Iterator;

    end Cmvc;

end Object_Info;

    nblk1=e
    nid=0
    hdr6=1c
        [0x00] rec0=1d rec1=00 rec2=01 rec3=030
        [0x01] rec0=16 rec1=00 rec2=02 rec3=03e
        [0x02] rec0=1a rec1=00 rec2=03 rec3=024
        [0x03] rec0=19 rec1=00 rec2=04 rec3=074
        [0x04] rec0=16 rec1=00 rec2=05 rec3=032
        [0x05] rec0=15 rec1=00 rec2=06 rec3=07a
        [0x06] rec0=17 rec1=00 rec2=07 rec3=006
        [0x07] rec0=15 rec1=00 rec2=08 rec3=064
        [0x08] rec0=13 rec1=00 rec2=09 rec3=070
        [0x09] rec0=13 rec1=00 rec2=0a rec3=06a
        [0x0a] rec0=13 rec1=00 rec2=0b rec3=006
        [0x0b] rec0=19 rec1=00 rec2=0c rec3=002
        [0x0c] rec0=17 rec1=00 rec2=0d rec3=01a
        [0x0d] rec0=01 rec1=00 rec2=0e rec3=000
    tail 0x215218f9a83d369c88c49 0x42a00088462060003