Re: + Operator

[Paul Chardon <paul.chardon@avions.aerospatiale.fr>]

Hello Fabrice,

	Two notes about your short program. String is a unconstrained type and
therefore you can't use it to declare a variable, you must declare a
constrained type built with the string type; secondly you can use the
predefined unary "+" operator with any other type parameter.
Here is a little example that can help you.

procedure Test is

   subtype Str20 is String(1..20);

   type String_Ptr is access all Str20;

   function "+"(S : in Str20) return String_Ptr is
   begin
      return new Str20'(S);
   end "+";

   My_Str20    : Str20 := (others => ' ');   
   A_Str20_Ptr : String_Ptr;

begin
   A_Str20_Ptr:= + My_Str20 ;
end Test;

		Bye, Paul.