home *** CD-ROM | disk | FTP | other *** search
/ Netrunner 2004 October / NETRUNNER0410.ISO / regular / ActivePerl-5.8.4.810-MSWin32-x86.msi / _f25c1938f8cb672a4bde0333543801c5 < prev    next >
Encoding:
Text File  |  2004-06-01  |  1.4 KB  |  77 lines
  1. /* Copyright (c) 1998, 1999 Thai Open Source Software Center Ltd
  2.    See the file COPYING for copying permission.
  3. */
  4.  
  5. #include <sys/types.h>
  6. #include <sys/stat.h>
  7. #include <fcntl.h>
  8. #include <stdlib.h>
  9. #include <stdio.h>
  10.  
  11. #ifndef S_ISREG
  12. #ifndef S_IFREG
  13. #define S_IFREG _S_IFREG
  14. #endif
  15. #ifndef S_IFMT
  16. #define S_IFMT _S_IFMT
  17. #endif
  18. #define S_ISREG(m) (((m) & S_IFMT) == S_IFREG)
  19. #endif /* not S_ISREG */
  20.  
  21. #ifndef O_BINARY
  22. #ifdef _O_BINARY
  23. #define O_BINARY _O_BINARY
  24. #else
  25. #define O_BINARY 0
  26. #endif
  27. #endif
  28.  
  29. #include "filemap.h"
  30.  
  31. int
  32. filemap(const char *name,
  33.         void (*processor)(const void *, size_t, const char *, void *arg),
  34.         void *arg)
  35. {
  36.   size_t nbytes;
  37.   int fd;
  38.   int n;
  39.   struct stat sb;
  40.   void *p;
  41.  
  42.   fd = open(name, O_RDONLY|O_BINARY);
  43.   if (fd < 0) {
  44.     perror(name);
  45.     return 0;
  46.   }
  47.   if (fstat(fd, &sb) < 0) {
  48.     perror(name);
  49.     return 0;
  50.   }
  51.   if (!S_ISREG(sb.st_mode)) {
  52.     fprintf(stderr, "%s: not a regular file\n", name);
  53.     return 0;
  54.   }
  55.   nbytes = sb.st_size;
  56.   p = malloc(nbytes);
  57.   if (!p) {
  58.     fprintf(stderr, "%s: out of memory\n", name);
  59.     return 0;
  60.   }
  61.   n = read(fd, p, nbytes);
  62.   if (n < 0) {
  63.     perror(name);
  64.     close(fd);
  65.     return 0;
  66.   }
  67.   if (n != nbytes) {
  68.     fprintf(stderr, "%s: read unexpected number of bytes\n", name);
  69.     close(fd);
  70.     return 0;
  71.   }
  72.   processor(p, nbytes, name, arg);
  73.   free(p);
  74.   close(fd);
  75.   return 1;
  76. }
  77.