# file-tree

void -rc fscan (pchar path, pchar mask, fscanproc fp)
{
  target = alloc (T_CHARS, path, "/", mask);

  files_in (target, (pchar name) {
                                   if (name->is_directory ()) 
                                     fscan (name, mask, fp);
                                   else 
                                     fp (name);
                                 });
}
/
{
  free (&target);
}