Re: Question on bounded / unbounded strings

["Arie van Wingerden" <xapwing@gmail.com>]

Hi,
thank you *very* much. You are very helpful!

I created the following program, which only uses standard strings. It works 
partly.

There is one thing I cannot get to work properly:
    in the FOR loop the statement:
         ATIO.Put(Path(Start .. Len));
    outputs the first part of Path properly; but in the following cases it 
won't.
What am I doing wrong?

(Don't mind the matching; this is NOT correct currently).

(Wrongly indented pieces will be gone in final version.)

The program code (FIP stand for Find In Path):
======================================


with Ada.Text_Io;
    with Ada.Integer_Text_Io;
with Ada.Environment_Variables;
with Ada.Strings.Fixed;
with Ada.Strings.Maps.Constants;

procedure Fip is

    package ATIO   renames Ada.Text_IO;
package AITIO renames Ada.Integer_Text_Io;
    package AEV    renames Ada.Environment_Variables;
    package ASF    renames Ada.Strings.Fixed;
    package ASMC renames Ada.Strings.Maps.Constants;

    Path   : string := ASF.Translate(AEV.Value("Path"), 
ASMC.Lower_Case_Map);
    Match : string := ASF.Translate(ATIO.Get_Line, ASMC.Lower_Case_Map);

    procedure Match_Path (Match : in string; Path : in string) is
        Start : positive := 1;
        Len   : natural  := 0;
    begin
        for I in Path'Range loop
            if Path(I) = ';' then
ATIO.Put_Line("----------------------------------------------------");
ATIO.Put(Path(Start .. Len)); AITIO.Put(Start); AITIO.Put(Len); ATIO.Put(" 
"); ATIO.Put_Line(Match);
-- This matching part is not OK yet
                if Len > 0 and then Path(Start .. Len) = Match then
                    ATIO.Put_Line(Path(Start .. Len));
                end if;
                Start := I + 1;
                Len   := 0;
            else
                Len := Len + 1;
            end if;
        end loop;
    end Match_Path;

begin
    Match_Path(Match, Path);
    ATIO.Flush;
end Fip;