Re: Child packages named Ada illegal?

[Adam Beneschan <adam@irvine.com>]

On Wednesday, October 31, 2012 10:59:26 AM UTC-7, Marius Amado-Alves wrote:
> Thanks. The package is as follows (the entire thing is at sourceforge.net/projects/aalibrary/). GNAT shouts <<missing "with Ada.Characters;">> at line "(if Ada...);". The fix is to rename the package AA.Languages.Ada_Language. The Standard.Ada trick doesn't work.

Hmmm ... interesting, it should work.  I'm using an earlier version of GNAT that doesn't support Ada 2012 syntax, so I had to rewrite the function to try your example.  But it worked fine (inside AA.Languages.Ada) when I referred to Standard.Ada.Characters.Handling.Is_Alphanumeric.  So maybe this is a recently introduced bug?

                           -- Adam


> with Ada.Characters.Handling;
> ...
> package body AA.Languages.Ada is
>    ...
>    function Non_Alphanum_To_Underscore (From : Character) return Character is
>       (if Ada.Characters.Handling.Is_Alphanumeric (From) then From else '_'); 
>    ...
> end;