|
DataMuseum.dkPresents historical artifacts from the history of: Rational R1000/400 Tapes |
This is an automatic "excavation" of a thematic subset of
See our Wiki for more about Rational R1000/400 Tapes Excavated with: AutoArchaeologist - Free & Open Source Software. |
top - metrics - downloadIndex: T V
Length: 851 (0x353)
Types: TextFile
Names: »V«
└─⟦180fe333a⟧ Bits:30000405 8mm tape, Rational 1000, SW CATALOG, 10_20_0
└─⟦180fe333a⟧ Bits:30000537 8mm tape, Rational 1000, SW Catalog 10_20_0
└─⟦5cb1d1d7f⟧ »DATA«
└─⟦3b1ee7bd8⟧
└─⟦this⟧
generic
type Operand_Type is limited private;
with function "=" (Left, Right : Operand_Type) return Boolean;
package Equality_Operator is
--------------------------------------------------------------------------
-- Abstract : This package enables one to declare a user-defined equality
-- operator for any type. This package was obtained from
-- Goodenough, John B.
-- "On defining "=" in Ada,
-- ACM Ada Letters, Vol. IV, Issue 4, 1985, pp. 27-31
-- Association for Computing Machinery
--------------------------------------------------------------------------
package Equals is
function "=" (Left, Right : Operand_Type) return Boolean
renames Equality_Operator."=";
end Equals;
end Equality_Operator;