Mercurial > hg > xemacs-beta

comparison netinstall/find.cc @ 448:3078fd1074e8 r21-2-39

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-39
author cvs
date Mon, 13 Aug 2007 11:38:25 +0200
parents
children
comparison
equal deleted inserted replaced
447:4fc5f13f3bd3 448:3078fd1074e8
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 }