Re: Question on bounded / unbounded strings

["Björn Lundin" <b.f.lundin@gmail.com>]

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