Re: 4 beginner's questions on the PL Ada

[Jeffrey Carter <spam.jrcarter.not@spam.not.acm.org>]

On 08/09/2013 04:48 PM, Robert A Duff wrote:
>
> Yes.  In that case, it might be reasonable to write a function to
> chop off the hex part, something like:
>
>      function My_Image return String is
>          X : constant String := Image(Current_Task);
>      begin
>          for J in reverse X'Range loop
>              if X(J) = '_' then
>                  return X(X'First..J-1);
>              end if;
>          end loop;
>          return X;
>      end My_Image;

Or use Ada.Strings.Fixed.Index to find the index of the final underline and 
avoid reinventing the wheel.

-- 
Jeff Carter
"Well, a gala day is enough for me. I don't think
I can handle any more."
Duck Soup
93