(U+5B56): Unify AJ1-08432.
[chise/xemacs-chise.git.1] / 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 }