Re: I wish I could ...

[Jeffrey Carter <spam@spam.com>]

Bj�rn Persson wrote:

> Right now I'm writing code like this in several places:
> 
>    case Going is
>       when Forward =>
>          for Pos in 1 .. Source.Last loop
>             if Source.Reference.all (Pos) /= Character'Pos(Space) then
>                return Pos;
>             end if;
>          end loop;
>       when Backward =>
>          for Pos in reverse 1 .. Source.Last loop
>             if Source.Reference.all (Pos) /= Character'Pos(Space) then
>                return Pos;
>             end if;
>          end loop;
>    end case;

This looks like a function:

function Find_Other (Source : Whatever; Item : Whatever_Else)
return Thingy;

Where
Whatever      is the type of Source in your code
Whatever_Else is the type of Source.Reference (Pos)
Thingy        is the type of Pos

You would also want a similar function that uses "=" rather than "/=":

function Find_Equal (Source : Whatever; Item : Whatever_Else)
return Thingy;

Then all the cases where you're writing code like your example would be 
replaced by a call to one of these functions.

It's probably more complicated than that.

-- 
Jeff Carter
"The time has come to act, and act fast. I'm leaving."
Blazing Saddles
36