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/mman.h>
7 #include <sys/stat.h>
8 #include <fcntl.h>
9 #include <errno.h>
10 #include <string.h>
11 #include <stdio.h>
12 #include <unistd.h>
13 
14 #ifndef MAP_FILE
15 #define MAP_FILE 0
16 #endif
17 
18 #include "filemap.h"
19 
20 int
filemap(const char * name,void (* processor)(const void *,size_t,const char *,void * arg),void * arg)21 filemap(const char *name,
22         void (*processor)(const void *, size_t, const char *, void *arg),
23         void *arg)
24 {
25   int fd;
26   size_t nbytes;
27   struct stat sb;
28   void *p;
29 
30   fd = open(name, O_RDONLY);
31   if (fd < 0) {
32     perror(name);
33     return 0;
34   }
35   if (fstat(fd, &sb) < 0) {
36     perror(name);
37     close(fd);
38     return 0;
39   }
40   if (!S_ISREG(sb.st_mode)) {
41     close(fd);
42     fprintf(stderr, "%s: not a regular file\n", name);
43     return 0;
44   }
45 
46   nbytes = sb.st_size;
47   /* mmap fails for zero length files */
48   if (nbytes == 0) {
49     static const char c = '\0';
50     processor(&c, 0, name, arg);
51     close(fd);
52     return 1;
53   }
54   p = (void *)mmap((caddr_t)0, (size_t)nbytes, PROT_READ,
55                    MAP_FILE|MAP_PRIVATE, fd, (off_t)0);
56   if (p == (void *)-1) {
57     perror(name);
58     close(fd);
59     return 0;
60   }
61   processor(p, nbytes, name, arg);
62   munmap((caddr_t)p, nbytes);
63   close(fd);
64   return 1;
65 }
66