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

⟦501900abd⟧ Ada Source

    Length: 6144 (0x1800)
    Types: Ada Source
    Notes: 03_class, FILE, R1k_Segment, e3_tag, package Lrm_Renames, seg_0045e2

Derivation

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

--| @SUMMARY Defines shorter names for most of the LRM interface packages
--| and renames equality operator for all exported types.  The intended
--| usage is that Lrm_Renames with be both with'ed and used, providing
--| direct visibility to all renames.
with Ada_Program;
with Type_Information;
with Names_And_Expressions;
with Declarations;
with Statements;
with Compilation_Units;
with Pragmas;
with Representation_Clauses;
package Lrm_Renames is

    package Ada        renames Ada_Program;
    package Types      renames Type_Information;
    package Exprs      renames Names_And_Expressions;
    package Decls      renames Declarations;
    package Stmts      renames Statements;
    package Comp_Units renames Compilation_Units;
    package Rep_Specs  renames Representation_Clauses;

    function "=" (Left, Right : Ada.Element)  
                 return Boolean renames Ada."=";

    function "=" (Left, Right : Ada.Element_List) return Boolean
        renames Ada."=";


    function "=" (Left, Right : Ada.Element_Kinds)  
                 return Boolean renames Ada."=";

    function "=" (Left, Right : Ada_Program.Id_Kinds)  
                 return Boolean renames Ada."=";

    function "=" (Left, Right : Ada.Traversal_Control)  
                 return Boolean renames Ada."=";

    function "=" (Left, Right : Compilation_Units.Context_Clause_Kinds)
                 return Boolean renames Compilation_Units."=";

    function "=" (Left, Right : Declarations.Declaration_Kinds)  
                 return Boolean renames Declarations."=";

    function "=" (Left, Right :
                     Declarations.Generic_Formal_Subprogram_Default_Kinds)  
                 return Boolean renames Declarations."=";

    function "=" (Left, Right : Declarations.Generic_Parameter_Kinds)  
                 return Boolean renames Declarations."=";

    function "=" (Left, Right : Declarations.Subprogram_Parameter_Kinds)  
                 return Boolean renames Decls."=";

    function "=" (Left, Right : Exprs.Allocation_Kinds)  
                 return Boolean renames Exprs."=";

    function "=" (Left, Right : Exprs.Complex_Expression_Kinds)  
                 return Boolean renames Exprs."=";

    function "=" (Left, Right : Exprs.Expression_Kinds)  
                 return Boolean renames Exprs."=";

    function "=" (Left, Right : Exprs.Selection_Kinds)  
                 return Boolean renames Exprs."=";

    function "=" (Left, Right : Exprs.Special_Operation_Kinds)  
                 return Boolean renames Exprs."=";

    function "=" (Left, Right :
                     Representation_Clauses.Length_Clause_Attribute_Kinds)  
                 return Boolean renames Representation_Clauses."=";

    function "=" (Left, Right :
                     Representation_Clauses.Representation_Clause_Kinds)  
                 return Boolean renames Representation_Clauses."=";

    function "=" (Left, Right : Stmts.Loop_Kinds)  
                 return Boolean renames Stmts."=";

    function "=" (Left, Right : Stmts.Select_Alternative_Kinds)  
                 return Boolean renames Stmts."=";

    function "=" (Left, Right : Stmts.Statement_Kinds)  
                 return Boolean renames Stmts."=";

    function "=" (Left, Right : Types.Choice_Kinds)  
                 return Boolean renames Types."=";

    function "=" (Left, Right : Types.Component_Kinds)  
                 return Boolean renames Types."=";

    function "=" (Left, Right : Types.Range_Kinds)  
                 return Boolean renames Types."=";

    function "=" (Left, Right : Types.Type_Constraint_Kinds)  
                 return Boolean renames Types."=";

    function "=" (Left, Right : Types.Type_Definition_Kinds)  
                 return Boolean renames Types."=";


end Lrm_Renames;

    nblk1=5
    nid=0
    hdr6=a
        [0x00] rec0=1c rec1=00 rec2=01 rec3=010
        [0x01] rec0=03 rec1=00 rec2=05 rec3=006
        [0x02] rec0=17 rec1=00 rec2=02 rec3=02e
        [0x03] rec0=19 rec1=00 rec2=03 rec3=028
        [0x04] rec0=1a rec1=00 rec2=04 rec3=000
    tail 0x217002376815c657bb565 0x42a00088462061e03