From mboxrd@z Thu Jan  1 00:00:00 1970
X-Spam-Checker-Version: SpamAssassin 3.4.4 (2020-01-24) on polar.synack.me
X-Spam-Level: 
X-Spam-Status: No, score=-1.9 required=5.0 tests=BAYES_00
	autolearn=unavailable autolearn_force=no version=3.4.4
Path: 
 eternal-september.org!reader01.eternal-september.org!reader02.eternal-september.org!news.eternal-september.org!news.eternal-september.org!news.eternal-september.org!.POSTED!not-for-mail
From: Jeffrey Carter <spam.jrcarter.not@spam.not.acm.org>
Newsgroups: comp.lang.ada
Subject: Re: 4 beginner's questions on the PL Ada
Date: Fri, 09 Aug 2013 17:44:39 -0700
Organization: Also freenews.netfront.net; news.tornevall.net
Message-ID: <ku42dn$de5$2@dont-email.me>
References: <87ob96ajv6.fsf@VLAN-3434.student.uu.se>
 <03ea570b-e45f-4694-ab9b-3413c4770379@googlegroups.com>
 <ku3eb3$7ql$1@loke.gir.dk> <878v0aee8i.fsf@VLAN-3434.student.uu.se>
 <wcc61ve7c1l.fsf@shell01.TheWorld.com>
 <87ob96cxm8.fsf@VLAN-3434.student.uu.se>
 <wcc1u627apn.fsf@shell01.TheWorld.com>
 <87d2pmcwpe.fsf@VLAN-3434.student.uu.se>
 <wcca9kq5suc.fsf@shell01.TheWorld.com>
Mime-Version: 1.0
Content-Type: text/plain; charset=ISO-8859-1; format=flowed
Content-Transfer-Encoding: 7bit
Injection-Date: Sat, 10 Aug 2013 00:44:40 +0000 (UTC)
Injection-Info: mx05.eternal-september.org;
 posting-host="da68e1c0dc00d4aa5d0283c494e3a17a";
	logging-data="13765"; mail-complaints-to="abuse@eternal-september.org";
	posting-account="U2FsdGVkX1/qw73KDRStsWsK+wTOCNOEDyM5B6/ebIY="
User-Agent: Mozilla/5.0 (X11; Linux x86_64;
 rv:17.0) Gecko/17.0 Thunderbird/17.0
In-Reply-To: <wcca9kq5suc.fsf@shell01.TheWorld.com>
Cancel-Lock: sha1:a59Ls348n8Wxx54cdPtukBSd9Ts=
Xref: news.eternal-september.org comp.lang.ada:16763
Date: 2013-08-09T17:44:39-07:00
List-Id: <comp.lang.ada>

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