Renaming a generic package (???)

Renaming a generic package (???)

[Andrew Lynch]

Hi,

the CORBA IDL to Ada mapping says that the package
CORBA.Bounded_Strings should appear as if it were a renaming of
Ada.Strings.Bounded.Generic_Bounded_Length:

   --with Ada.Strings.Bounded;
   --package CORBA.Bounded_Strings
   --    renames Ada.Strings.Bounded.Generic_Bounded_Length;

It also points out that this cannot be done so easily, because
library units must be renames of library units and G_B_L is not
a library unit.

Do any of you experts here have any suggestions as to how I can
avoid having to write a whole new bounded strings package?

I had thought of maybe copying the spec of G_B_L as the spec of
CORBA.B_S and having its body instantiate the original G_B_L.
Something like this:

   generic
      Max : Positive;
   package Foo_CORBA is
      ...
      procedure Foo;
      ...
   end Foo_CORBA;

   package body Foo_CORBA is
      ...
      package X is new Foo_Ada95(Max);

      procedure Foo is
      begin
         X.Foo;
      end Foo;
      ...
   end Foo_CORBA;

Any hope of this succeeding..?

Andrew.