Re: I18N gettext style

[Jeff Carter <jrcarter@acm.org>]

David Starner wrote:
> 
> On Sat, 04 Mar 2000 08:28:01 GMT, tmoran@bix.com <tmoran@bix.com> wrote:
> >>  Ada.Text_IO.Put (N("Hi! There are ") && To_String(I) && N("widgets!"));
> >>won't put I in the proper position in the translated message for some
> >  Certainly an Ada version of printf in the form of a set like
> >    procedure print0(s : in string);
> >    procedure print1(s : in string; a : in string);
> >    procedure print2(s : in string; a : in string; b : in string);
> 
> Is there any reason you used print0, print1, print2, instead of
> print, print, print? My instinct is to overload them.

My instinct is to only have one, which can handle an indeterminate
number of arguments:

with Ada.Strings.Unbounded;
use Ada.Strings.Unbounded;
...
type String_Set is array (Positive range <>) of Unbounded_String;

procedure Print (Format : in String; Arguments : in String_Set);
...
Print
  (Format    => "There are %s arguments.", -- is this correct?
   Arguments => (1 => Image (Num_Args) );

-- 
Jeff Carter
"Your mother was a hamster and your father smelt of elderberries."
Monty Python & the Holy Grail