From mboxrd@z Thu Jan  1 00:00:00 1970
X-Spam-Checker-Version: SpamAssassin 3.4.4 (2020-01-24) on polar.synack.me
X-Spam-Level: 
X-Spam-Status: No, score=0.2 required=5.0 tests=BAYES_00,INVALID_MSGID,
	REPLYTO_WITHOUT_TO_CC autolearn=no autolearn_force=no version=3.4.4
X-Google-Language: ENGLISH,ASCII-7-bit
X-Google-Thread: 103376,900a2c3266dfada,start
X-Google-Attributes: gid103376,public
From: Andrew Lynch <lynch@cci.de>
Subject: Renaming a generic package (???)
Date: 1998/01/15
Message-ID: <34BE2C13.71E0@cci.de>#1/1
X-Deja-AN: 316497076
Content-Transfer-Encoding: 7bit
Mime-Version: 1.0
Reply-To: lynch@cci.de
Distribution: world
Content-Type: text/plain; charset=us-ascii
Organization: Competence Center Informatik GmbH
Newsgroups: comp.lang.ada
Date: 1998-01-15T00:00:00+00:00
List-Id: <comp.lang.ada>


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.