⟦9065c7a63⟧

E3 Source Code



--| @SUMMARY Defines simple names for most of the nested Directory_Tools
--| packages and renames equality operator for all exported types.  The
--| intended usage is that Directory_Renames with be both with'ed and used,
--| providing direct visibility to all renames.
with Directory_Tools;
package Directory_Renames is
    package Object         renames Directory_Tools.Object;
    package Naming         renames Directory_Tools.Naming;
    package Traversal      renames Directory_Tools.Traversal;
    package Statistics     renames Directory_Tools.Statistics;
    package Ada_Object     renames Directory_Tools.Ada_Object;
    package Any_Object     renames Directory_Tools.Any_Object;
    package Library_Object renames Directory_Tools.Library_Object;

    function "=" (Left, Right : Object.Category_Enumeration)  
                 return Boolean renames Object."=";

    function "=" (Left, Right : Ada_Object.Compilation_Kind)  
                 return Boolean renames Ada_Object."=";

    function "=" (Left, Right : Traversal.Control_Enumeration)  
                 return Boolean renames Traversal."=";

    function "=" (Left, Right : Library_Object.Library_Kind)  
                 return Boolean renames Library_Object."=";

    function "=" (Left, Right : Object.Severity_Enumeration)  
                 return Boolean renames Object."=";

    function "=" (Left, Right : Ada_Object.Unit_Kind)  
                 return Boolean renames Ada_Object."=";

    function "=" (Left, Right : Ada_Object.Unit_State)  
                 return Boolean renames Ada_Object."=";


    function "=" (Left, Right : Object.Class_Enumeration)  
                 return Boolean renames Object."=";
end Directory_Renames;
DataMuseum.dk

Rational R1000/400

⟦9065c7a63⟧ Ada Source

Derivation

E3 Source Code

E3 Meta Data
