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: 
 border1.nntp.ams3.giganews.com!border1.nntp.ams2.giganews.com!border3.nntp.ams.giganews.com!border1.nntp.ams.giganews.com!nntp.giganews.com!weretis.net!feeder4.news.weretis.net!rt.uk.eu.org!aioe.org!.POSTED!not-for-mail
From: Emanuel Berg <embe8573@student.uu.se>
Newsgroups: comp.lang.ada
Subject: Re: 4 beginner's questions on the PL Ada
Date: Sat, 10 Aug 2013 01:56:08 +0200
Organization: Aioe.org NNTP Server
Message-ID: <87vc3ebeqv.fsf@VLAN-3434.student.uu.se>
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>
NNTP-Posting-Host: SWN/nubmpQxYKwY7hPy4YA.user.speranza.aioe.org
Mime-Version: 1.0
Content-Type: text/plain; charset=us-ascii
X-Complaints-To: abuse@aioe.org
User-Agent: Gnus/5.13 (Gnus v5.13) Emacs/23.4 (gnu/linux)
X-Notice: Filtered by postfilter v. 0.8.2
Cancel-Lock: sha1:gSBtQjlZYqSplCb6tSp0WKlk2XY=
X-Original-Bytes: 1703
Xref: number.nntp.dca.giganews.com comp.lang.ada:182919
Date: 2013-08-10T01:56:08+02:00
List-Id: <comp.lang.ada>

Robert A Duff <bobduff@shell01.TheWorld.com> writes:

>     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;

Works excellent.

-- 
Emanuel Berg - programmer (hire me! CV below)
computer projects: http://user.it.uu.se/~embe8573
internet activity: http://home.student.uu.se/embe8573