Re: friend classes in ada95

["David Botton" <David@Botton.com>]

If I had the time I would modify GNAT even if just for my own use to add
support for something like:

class type X is new Y with
    interface
        A, B
    record
        new_var : abc;
    end record;

and

interface type ABC;

procedure A_Func (This : ABC) is abstract;

interface type DEF is new ABC;

procedure B_Func (This : ABC) is abstract;

You could then have vars like:

A : ABC'Class := An_X object;

type ABC_Pointer is access all ABC'Class;

I would have a syntax for OO that was not embarassing to talk about in
public and would stop turning purple when confronted by OO people about MI
since I have at least interface inheritance _directly_ suported by the
language.

On Win32 I would implement the interfaces using the same "vtbl" style used
by MSVC++ and therefore COM.

Perhaps some day......

(Ok, enough day dreaming, I've got to get back to work...)

David Botton


Robert Dewar wrote in message <8dc8oi$kda$1@nnrp1.deja.com>...
>  class type x is record ....