Re: Idiom for a class and an object in Ada

[Matthew Heaney <matthewjheaney@earthlink.net>]

"Matthew Heaney" <mheaney@on2.com> writes:

> "Kevin Cline" <kevin.cline@gmail.com> wrote in message 
> news:e749549b.0410211131.6505da@posting.google.com...
> >
> >  class AD_Converter
> >  {
> >  private:
> >
> >    AD_Converter(int line) {}
> >  public:
> >    static AD_Converter Noise;
> >  };
> >
> >  AD_Converter AD_Converter::Noise(17);
> 
> Yes, indeed.  I should have made this more clear.
> 
> Actually, directly translating the C++ code above to Ada is a little
> tricky, since you can't declare object Noise until the full view of
> the type has been declared.

I realized on my drive home that I forgot this one:

package AD_Converters is
   type AD_Converter (<>) is limited private;
   procedure Op (ADC : AD_Converter);

   Noise : constant AD_Converter;
private
   type Rep_Type is limited record ... end record;

   type AD_Converter is access all Rep_Type;
   for AD_Converter'Storage_Size use 0;

   Noise_Object : aliased Rep_Type;
   Noise : constant AD_Converter := Noise_Object'Access;
end AD_Converters;