|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - download
Length: 6144 (0x1800) Types: Ada Source Notes: 03_class, FILE, R1k_Segment, e3_tag, package Lrm_Renames, seg_0045e2
└─⟦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