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

Last change on this file since 2314 was 2314, checked in by orlov, 14 years ago
  • Fixed formatting.
  • Property svn:eol-style set to native
  • Property svn:keywords set to Author Date Id Revision
File size: 214 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.