Re: About String

[Simon Wright <simon.j.wright@mac.com>]

S�bastien Morand <seb.morand@gmail.com> writes:

> So the main problem is error management. If one function raise
> exception, the exception can't be catch except with the following trick:

I don't know why you call it a trick! Perfectly standard Ada ...

> procedure Patati_Patata is
> begin
> 	declare
> 		s: String := A_Function_Raising_Constraint_Error;
> 	begin
> 		--  some code
> 		null;
> 	end;
> exception
> 	when Constraint_Error =>
> 		Put_Line("I got an error");
> end;
>
> Is there nicer way to do that? I'm trying to avoid Unbounded_String
> because of the conversion when mixing Unbounded_String and String.

You might want to handle the problem locally:

   procedure Patati_Patata is
   begin
      declare
         S : String := A_Function_Raising_Constraint_Error;
      begin
         --  some code
      exception
         when Constraint_Error =>
            --  deal with the problem and carry on ..
      end;
      --  .. here
   end Patati_Patata;

In general I don't like exception handlers which output a message and
then allow the procedure to look as though it has succeeded when in
fact something unforeseen has occurred, and is waiting to cause
mysterious problems much much later. Exceptions to this guideline
could include 'last-chance' exception handlers in tasks and the main
program; but if you are controlling missiles, medical equipment or
money it's probably better not to just stumble on in the hope that
things will turn out all right.