git.chise.org Git - chise/xemacs-chise.git-/blob - netinstall/find.cc

   1 /*
   2  * Copyright (c) 2000, Red Hat, Inc.
   3  *
   4  *     This program is free software; you can redistribute it and/or modify
   5  *     it under the terms of the GNU General Public License as published by
   6  *     the Free Software Foundation; either version 2 of the License, or
   7  *     (at your option) any later version.
   8  *
   9  *     A copy of the GNU General Public License can be found at
  10  *     http://www.gnu.org/
  11  *
  12  * Written by DJ Delorie <dj@cygnus.com>
  13  *
  14  */
  15
  16 /* The purpose of this file is to doa recursive find on a given
  17    directory, calling a given function for each file found. */
  18
  19 #include "win32.h"
  20 #include <stdio.h>
  21 #include <stdlib.h>
  22
  23 #include "port.h"
  24
  25 static void (*for_each)(char *, unsigned int);
  26 static char dir[_MAX_PATH], *found_part;
  27
  28 static int
  29 find_sub ()
  30 {
  31   WIN32_FIND_DATA wfd;
  32   HANDLE h;
  33   char *end = dir + strlen (dir);
  34   int rv = 0;
  35
  36   *end++ = '/';
  37   strcpy (end, "*");
  38
  39   h = FindFirstFile (dir, &wfd);
  40
  41   if (h == INVALID_HANDLE_VALUE)
  42     return 0;
  43
  44   do {
  45     if (strcmp (wfd.cFileName, ".") == 0
  46         || strcmp (wfd.cFileName, "..") == 0)
  47       continue;
  48
  49     strcpy (end, wfd.cFileName);
  50
  51     if (wfd.dwFileAttributes & FILE_ATTRIBUTE_DIRECTORY)
  52       find_sub ();
  53     else
  54       {
  55         for_each (found_part, wfd.nFileSizeLow);
  56         rv ++;
  57       }
  58
  59   } while (FindNextFile (h, &wfd));
  60
  61   FindClose (h);
  62   return rv;
  63 }
  64
  65 int
  66 find (char *starting_dir, void (*_for_each)(char *, unsigned int))
  67 {
  68   strcpy (dir, starting_dir);
  69   for_each = _for_each;
  70   found_part = dir + strlen (dir) + 1;
  71
  72   return find_sub ();
  73 }