Re: An example was Re: Tokens

["chris.danx" <spamoff.danx@ntlworld.com>]

"chris.danx" <spamoff.danx@ntlworld.com> wrote in message
news:dkWF8.34770$Iv.4001930@news6-win.server.ntlworld.com...

Hi,

Is there a cheap way to prevent the last "&" from being printed in the code
below?  I can think of several options but all of them require an additional
call to find_token or switching to a loop.  Is there another way that
doesn't have a repeated call to find token?

Since it's just an example there's no real harm done, it's just annoying
that's all!!!


Chris

>    procedure what_words (str    : in string;
>                          delims : in maps.character_set) is
>       first : positive := 1;
>       last  : natural := 0;
>    begin
>       fixed.find_token (str,
>                         delims,
>                         ada.strings.outside,
>                         first,
>                         last);
>
>       -- if last = 0 there are no more tokens, so we stop,
>       -- otherwise we recur!
>       --
>       if last > 0 then
>          ada.text_io.put (str(first..last) & " & ");
>
>          what_words (str (last + 1..str'last),
>                      delims);
>       end if;
>    end what_words;