1 /* savedir.c -- save the list of files in a directory in a string
2 Copyright (C) 1990 Free Software Foundation, Inc.
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, or (at your option)
9 This program is distributed in the hope that it will be useful,
10 but WITHOUT ANY WARRANTY; without even the implied warranty of
11 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
12 GNU General Public License for more details.
14 You should have received a copy of the GNU General Public License
15 along with this program; if not, write to the Free Software
16 Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA. */
18 /* Written by David MacKenzie <djm@gnu.ai.mit.edu>. */
24 #include <sys/types.h>
32 #define NLENGTH(direct) (strlen((direct)->d_name))
33 #else /* not HAVE_DIRENT_H */
35 #define NLENGTH(direct) ((direct)->d_namlen)
36 #ifdef HAVE_SYS_NDIR_H
38 #endif /* HAVE_SYS_NDIR_H */
41 #endif /* HAVE_SYS_DIR_H */
44 #endif /* HAVE_NDIR_H */
45 #endif /* HAVE_DIRENT_H */
48 /* Fake a return value. */
49 #define CLOSEDIR(d) (closedir (d), 0)
51 #define CLOSEDIR(d) closedir (d)
67 /* Return a freshly allocated string containing the filenames
68 in directory DIR, separated by '\0' characters;
69 the end is marked by two '\0' characters in a row.
70 NAME_SIZE is the number of bytes to initially allocate
71 for the string; it will be enlarged as needed.
72 Return NULL if DIR cannot be opened or if out of memory. */
75 savedir (dir, name_size)
88 name_space = (char *) malloc (name_size);
89 if (name_space == NULL)
96 while ((dp = readdir (dirp)) != NULL)
98 /* Skip "." and ".." (some NFS filesystems' directories lack them). */
99 if (dp->d_name[0] != '.'
100 || (dp->d_name[1] != '\0'
101 && (dp->d_name[1] != '.' || dp->d_name[2] != '\0')))
103 unsigned size_needed = (namep - name_space) + NLENGTH (dp) + 2;
105 if (size_needed > name_size)
107 char *new_name_space;
109 while (size_needed > name_size)
112 new_name_space = realloc (name_space, name_size);
113 if (new_name_space == NULL)
118 namep += new_name_space - name_space;
119 name_space = new_name_space;
121 namep = stpcpy (namep, dp->d_name) + 1;