Re: Some problems with string type(Exact String?)

[tmoran@acm.org]

>not greater than the bounds of the array.  My first hunch on the way to
>work with this strictness(or so it seems) would be keep count of the
>number of elements (characters of a string, numbers, whatever) going into
>the array, and then pad the rest of the array with with NULLs or something
  In Barnes, look at the chapter "Predefined Library", section "Characters
and strings" and you'll see Ada.Strings.Bounded (and Ada.Strings.Unbounded).
Bounded strings essentially keep a "current length", along with the fixed
length array.  There's no need then to pad with nulls or anything else.

  Alternatively, you could change
>       i.nameindex:=s; -- Ligne cinq
to
  if s'length > i.nameindex'lenth then    -- just take the first part
    i.nameindex := s(s'first .. s'first-1+i.nameindex'length)
  else  -- pad with blanks
    i.nameindex := s & (s'length+1 .. i.nameindex'length => ' ');
  end if;

or
  i.nameindex := s(s'first .. integer'min(s'length, i.nameindex'length)
                              + s'first -1)
                 & (1 .. i.namelength'length - s'length => ' ');
which would truncate if s is too long, and pad with ' ' if s is too short.

or, more simply,
  i.nameindex := Ada.Strings.Fixed.Head(s, i.namelength'length, pad => ' ');