Help: redefining equality

Help: redefining equality

[Paul Cohen]

This question may be an oldie (and, I know, made obsolescent by Ada95),
but ...

What was the "standard trick" in Ada83 for being able to redefine
equality for non-private types (even though the language seemingly does
not allow it)?

(You may e-mail me your answer if you like.)

Thanks.

Paul

Re: Help: redefining equality

[Robert A Duff]

In article <33A6C7B8.796A@lmco.com>, Paul Cohen  <paul.cohen@lmco.com> wrote:
>What was the "standard trick" in Ada83 for being able to redefine
>equality for non-private types (even though the language seemingly does
              ^^^^^^^^^^^
>not allow it)?

I think you mean "non-limited".  The trick (first discovered by John
Goodenough, I believe) is to declare a generic package with a limited
private formal type.  Declare "=" on that.  Then pass in a non-limited
type.  Then reach into the instance to grab the "=" operator on the
non-limited actual type.

Yuck.

(E-mailed and posted.)

- Bob

Re: Help: redefining equality

[John Herro]

Paul Cohen <paul.cohen@lmco.com> writes:
> What was the "standard trick" in Ada83
> for being able to redefine equality for
> non-private types (even though the language
> seemingly does not allow it)?

I don't know if this is a "standard trick," but the way I've always
done it in Ada 83 is to write, for example,

if Equal(X1, X2) then ...

and write my own function Equal.  The problem is that if X1 and
X2 belong to a non-private type, the language doesn't prevent
you from forgetting to call your own function and accidentally
writing

if X1 = X2 then ...

instead.

- John Herro
Software Innovations Technology
http://members.aol.com/AdaTutor
ftp://members.aol.com/AdaTutor