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

Last change on this file since 1695 was 1695, checked in by orlov, 16 years ago
  • Fixed typos.
  • Property svn:eol-style set to native
  • Property svn:keywords set to Author Date Id Revision
File size: 206 bytes
Line 
1$use Dir StdIO;
2
3Main =
4  <Open-Dir '.'> :: s.dir,
5  $iter # \{
6    <Read-Dir s.dir> : e.file,
7    {
8      e.file : 'read_' e '1.' s s =
9        <PrintLN "- a match for \"read_*1.??\" found">;;
10    };
11  };
Note: See TracBrowser for help on using the repository browser.