Re: using charles library

[Preben Randhol <randhol+abuse@pvv.org>]

Preben Randhol wrote:
> Roman V. Isaev wrote:
>>> > I'm learning the ropes, so it might be stupid question but I tried
>>> > use charles.maps.sorted.strings.unbounded (used sample code by 
>>> > mheaney@on2.com from this newsgroup archive):
>>> > with Ada.Strings.Unbounded; use Ada.Strings.Unbounded;
>>> > with Charles.Maps.Sorted.Strings.Unbounded;
>>> > with Charles.Strings.Unbounded; use Charles.Strings.Unbounded;
>>> > package body gettext is
>>> >    package Translation_Tables is
>>> >       new Charles.Maps.Sorted.Strings.Unbounded
>>> >         (Element_Type => Charles.Strings.Unbounded.Container_Type);
>>> >    TT : Translation_Tables.Container_Type;
>>> > ........
>>> >    procedure load_mo_file is
>>> > ........
>>> >          Insert(TT, "key", Element => To_Container("value"));
>>> Because it is:
>>>            Insert(TT, "key", New_Item => To_Container("value"));
>>> as I can see from the .ads file although I haven't tried to compile
>>> this.
>> 
>>    It still complains: 
> 
> Ah because you have to do:
> 
>    Charles.Maps.Sorted.Strings.Unbounded.Insert
>       (TT, "key", New_Item => To_Container("value"));

Ooops sorry forget what I said my fault:

Should be: 

   with Ada.Strings.Unbounded; use Ada.Strings.Unbounded;
   with Charles.Maps.Sorted.Strings.Unbounded;
   with Charles.Strings.Unbounded; use Charles.Strings.Unbounded;
   package body gettext is
      package Translation_Tables is
         new Charles.Maps.Sorted.Strings.Unbounded
           (Element_Type =>
           Charles.Strings.Unbounded.Container_Type);
      TT : Translation_Tables.Container_Type;

      procedure load_mo_file is

         Translation_Tables.Insert(TT, "key", New_Item => To_Container("value"));

As you know want to call the Insert in the Translation_Tables package
you made.

-- 
Preben Randhol                    http://www.pvv.org/~randhol/