I wish I could ...

["Björn Persson" <spam-away@nowhere.nil>]

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;

I wish I could just write:

    for Pos in Going 1 .. Source.Last loop
       if Source.Reference.all (Pos) /= Character'Pos(Space) then
          return Pos;
       end if;
    end loop;

-- 
Björn Persson                              PGP key A88682FD
                    omb jor ers @sv ge.
                    r o.b n.p son eri nu