DataMuseum.dk

Presents historical artifacts from the history of:

Rational R1000/400 Tapes

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 Tapes

Excavated with: AutoArchaeologist - Free & Open Source Software. 

top - download
Index: ┃ T V ┃

⟦e3ba21ea0⟧ TextFile

    Length: 12637 (0x315d)
    Types: TextFile
    Names: »V«

Derivation

└─⟦a7d1ea751⟧ Bits:30000550 8mm tape, Rational 1000, !users!projects 94_04_11
    └─ ⟦129cab021⟧ »DATA« 
        └─⟦this⟧ 
└─⟦2f6cfab89⟧ Bits:30000547 8mm tape, Rational 1000, !projects 94-01-04
    └─ ⟦d65440be7⟧ »DATA« 
        └─⟦this⟧

TextFile

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;