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!.POSTED!not-for-mail
From: "Jeffrey R. Carter" <spam.jrcarter.not@spam.not.acm.org>
Newsgroups: comp.lang.ada
Subject: Re: zLibAda vs ZipAda (which should I use, if any)?
Date: Fri, 26 Aug 2016 08:46:12 -0700
Organization: Also freenews.netfront.net; news.tornevall.net;
 news.eternal-september.org
Message-ID: <nppo84$ji$1@dont-email.me>
References: <5d516246-3a7c-4be5-abef-c34fb0f5c753@googlegroups.com>
 <21dcddb3-1e20-4e54-afc7-fb66b1b6021e@googlegroups.com>
 <e14d45f2-808c-4693-8624-b984518f8d08@googlegroups.com>
 <5477ca75-bdc1-4464-9fda-35a4a4b9b181@googlegroups.com>
 <8fdbb4cb-f250-4844-9a7e-8a4ff5b68554@googlegroups.com>
 <9ae16f03-6bb2-45b3-a166-50ee8a022f22@googlegroups.com>
 <4b233268-a28a-4f3d-a735-9a7097d12e03@googlegroups.com>
 <2e60067a-2169-4ef2-a619-d23f6dfc1ea1@googlegroups.com>
 <7f1ca2e7-b2dc-4158-a7ab-4447f6fa98f9@googlegroups.com>
Mime-Version: 1.0
Content-Type: text/plain; charset=utf-8
Content-Transfer-Encoding: 7bit
Injection-Date: Fri, 26 Aug 2016 15:46:14 -0000 (UTC)
Injection-Info: mx02.eternal-september.org;
 posting-host="d7c030f56102b58a2c16dea977db88bb";
	logging-data="626"; mail-complaints-to="abuse@eternal-september.org";
	posting-account="U2FsdGVkX18RaaaD3xbrB3cWDbuAS+2RPT8dvw7eZ3s="
User-Agent: Mozilla/5.0 (X11; Linux x86_64; rv:45.0) Gecko/20100101
 Thunderbird/45.2.0
In-Reply-To: <7f1ca2e7-b2dc-4158-a7ab-4447f6fa98f9@googlegroups.com>
Cancel-Lock: sha1:ExcQk7Y6kKN04Y3Qv1Kz4hYk4zE=
Xref: news.eternal-september.org comp.lang.ada:31590
Date: 2016-08-26T08:46:12-07:00
List-Id: <comp.lang.ada>

On 08/26/2016 08:16 AM, gautier_niouzes@hotmail.com wrote:
> 
> for i in name'Range loop
>   case name(i) is
>     when '.'       => last_dot:= i;
>     when '/' | '\' => last_slash:= i;
>   end case;
> end loop;
> 
> Or you can use Ada.Directories, there are functions to do these splits.

Or Ada.Strings.Fixed.Index.

-- 
Jeff Carter
"I'm a lumberjack and I'm OK."
Monty Python's Flying Circus
54