Re: Bounded String question

[Bob Duff <bobduff@theworld.com>]

Serge Robyns <serge.robyns@gmail.com> writes:

>    No_Client_Name : constant T_Client_Name;

How about:

   function No_Client_Name return T_Client_Name is
      (T_Client_Name (P_Strings.Null_Bounded_String));

?

But why do you need Preelaborate?  It's not all that much use if you use
GNAT's static elaboration model.

> Maybe I'm using bounded strings completely wrong.

Well, I think the Ada.Strings.Bounded package is way overengineered.
So "using Ada.Strings.Bounded" = "using bounded strings wrong".  ;-)
I suggest rolling your own.  No need for generics.

   type Bounded_String (Max_Length : Natural := ...) is limited record
      Length : Natural := 0;
      Chars  : String (1 .. Max_Length);
   end record;

along with a few trivial operations.

- Bob