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=-0.9 required=5.0 tests=BAYES_00,FORGED_GMAIL_RCVD,
	FREEMAIL_FROM autolearn=no 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: =?UTF-8?Q?Bj=c3=b6rn_Lundin?= <b.f.lundin@gmail.com>
Newsgroups: comp.lang.ada
Subject: Re: Question on bounded / unbounded strings
Date: Tue, 13 Sep 2016 19:59:14 +0200
Organization: A noiseless patient Spider
Message-ID: <nr9epf$3ee$1@dont-email.me>
References: <nnd$12b05e33$1843543e@b46552de0b4781f4>
Mime-Version: 1.0
Content-Type: text/plain; charset=utf-8
Content-Transfer-Encoding: 8bit
Injection-Date: Tue, 13 Sep 2016 17:59:11 -0000 (UTC)
Injection-Info: mx02.eternal-september.org;
 posting-host="b94e28d1aec1eecdeb2a1356890229ef";
	logging-data="3534"; mail-complaints-to="abuse@eternal-september.org";
	posting-account="U2FsdGVkX184Nesa9EYFp2PdZyXjdQte"
User-Agent: Mozilla/5.0 (X11; Linux x86_64; rv:45.0) Gecko/20100101
 Icedove/45.1.0
In-Reply-To: <nnd$12b05e33$1843543e@b46552de0b4781f4>
Cancel-Lock: sha1:OjBWTgRIeuQIEuXsjFF4N+Mcb34=
Xref: news.eternal-september.org comp.lang.ada:31778
Date: 2016-09-13T19:59:14+02:00
List-Id: <comp.lang.ada>

On 2016-09-13 10:46, Arie van Wingerden wrote:
> Now I am a bit stuck splitting the string of paths;
> I use GNAT.String_Split.Create, but it needs a (bounded) String as input.
> However, I only have an unbounded string.
> 


  procedure Foo(Input : in String) is
    use Gnat; use Text_Io;
    Subs : String_Split.Slice_Set;
    Seps : constant String := " ";
  begin
    String_Split.Create (S          => Subs,
                         From       => Input,
                         Separators => Seps,
                         Mode       => String_Split.Multiple);

    for j in 1 .. String_Split.Slice_Count(Subs) loop
      declare
        A_Slice : String  := String_Split.Slice(Subs, j);
      begin
        Put_Line(A_Slice);
      end;
    end loop;
  end Foo;


call like

Foo("A string to be split on spaces");

or if you have an unbounded string - use To_String on it

use Ada.Strings.Unbounded_String;
Foo(To_String(Some_Unbounded_String));


(not compiled examples)



-- 
--
Björn