source: to-imperative/trunk/samples/Dir/read_dir1.rf @ 1695

$use Dir StdIO;

Main =
  <Open-Dir '.'> :: s.dir,
  $iter # \{
    <Read-Dir s.dir> : e.file,
    {
      e.file : 'read_' e '1.' s s =
        <PrintLN "- a match for \"read_*1.??\" found">;;
    };
  };