iterator for regexp matching

[vadim.godunko]

It would be nice to have iterator for regexp matching like this:

gour: то есть ещё какой-нть итератор, что ли, смастерить...

M := Start_Search (RegExp);
loop
  Find_Next (M);
  exit when Not_Found (M);
  -- делаем что-то с M
end loop;
-- грохаем M за ненужностью