lib/e2p/iod.c

   1 /*
   2  * iod.c                - Iterate a function on each entry of a directory
   3  *
   4  * Copyright (C) 1993, 1994  Remy Card <card@masi.ibp.fr>
   5  *                           Laboratoire MASI, Institut Blaise Pascal
   6  *                           Universite Pierre et Marie Curie (Paris VI)
   7  *
   8  * %Begin-Header%
   9  * This file may be redistributed under the terms of the GNU Library
  10  * General Public License, version 2.
  11  * %End-Header%
  12  */
  13
  14 /*
  15  * History:
  16  * 93/10/30     - Creation
  17  */
  18
  19 #include "e2p.h"
  20 #if HAVE_UNISTD_H
  21 #include <unistd.h>
  22 #endif
  23 #include <stdlib.h>
  24 #include <string.h>
  25
  26 int iterate_on_dir (const char * dir_name,
  27                     int (*func) (const char *, struct dirent *, void *),
  28                     void * private)
  29 {
  30         DIR * dir;
  31         struct dirent *de, *dep;
  32         int     max_len = -1, len, ret = 0;
  33
  34 #if HAVE_PATHCONF && defined(_PC_NAME_MAX)
  35         max_len = pathconf(dir_name, _PC_NAME_MAX);
  36 #endif
  37         if (max_len == -1) {
  38 #ifdef _POSIX_NAME_MAX
  39                 max_len = _POSIX_NAME_MAX;
  40 #else
  41 #ifdef NAME_MAX
  42                 max_len = NAME_MAX;
  43 #else
  44                 max_len = 256;
  45 #endif /* NAME_MAX */
  46 #endif /* _POSIX_NAME_MAX */
  47         }
  48         max_len += sizeof(struct dirent);
  49
  50         de = malloc(max_len+1);
  51         if (!de)
  52                 return -1;
  53         memset(de, 0, max_len+1);
  54
  55         dir = opendir (dir_name);
  56         if (dir == NULL) {
  57                 free(de);
  58                 return -1;
  59         }
  60         while ((dep = readdir (dir))) {
  61 #ifdef HAVE_RECLEN_DIRENT
  62                 len = dep->d_reclen;
  63                 if (len > max_len)
  64                         len = max_len;
  65 #else
  66                 len = sizeof(struct dirent);
  67 #endif
  68                 memcpy(de, dep, len);
  69                 if ((*func)(dir_name, de, private))
  70                         ret++;
  71         }
  72         free(de);
  73         closedir(dir);
  74         return ret;
  75 }