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 /* Functions close(2) and read(2) */
12 #ifdef __WATCOMC__
13 #ifndef __LINUX__
14 #include <io.h>
15 #else
16 #include <unistd.h>
17 #endif
18 #else
19 # if !defined(WIN32) && !defined(_WIN32) && !defined(_WIN64)
20 # include <unistd.h>
21 # endif
22 #endif
23
24 #ifndef S_ISREG
25 #ifndef S_IFREG
26 #define S_IFREG _S_IFREG
27 #endif
28 #ifndef S_IFMT
29 #define S_IFMT _S_IFMT
30 #endif
31 #define S_ISREG(m) (((m) & S_IFMT) == S_IFREG)
32 #endif /* not S_ISREG */
33
34 #ifndef O_BINARY
35 #ifdef _O_BINARY
36 #define O_BINARY _O_BINARY
37 #else
38 #define O_BINARY 0
39 #endif
40 #endif
41
42 #include "filemap.h"
43
44 int
filemap(const char * name,void (* processor)(const void *,size_t,const char *,void * arg),void * arg)45 filemap(const char *name,
46 void (*processor)(const void *, size_t, const char *, void *arg),
47 void *arg)
48 {
49 size_t nbytes;
50 int fd;
51 int n;
52 struct stat sb;
53 void *p;
54
55 fd = open(name, O_RDONLY|O_BINARY);
56 if (fd < 0) {
57 perror(name);
58 return 0;
59 }
60 if (fstat(fd, &sb) < 0) {
61 perror(name);
62 close(fd);
63 return 0;
64 }
65 if (!S_ISREG(sb.st_mode)) {
66 fprintf(stderr, "%s: not a regular file\n", name);
67 close(fd);
68 return 0;
69 }
70 nbytes = sb.st_size;
71 /* malloc will return NULL with nbytes == 0, handle files with size 0 */
72 if (nbytes == 0) {
73 static const char c = '\0';
74 processor(&c, 0, name, arg);
75 close(fd);
76 return 1;
77 }
78 p = malloc(nbytes);
79 if (!p) {
80 fprintf(stderr, "%s: out of memory\n", name);
81 close(fd);
82 return 0;
83 }
84 n = read(fd, p, nbytes);
85 if (n < 0) {
86 perror(name);
87 free(p);
88 close(fd);
89 return 0;
90 }
91 if (n != nbytes) {
92 fprintf(stderr, "%s: read unexpected number of bytes\n", name);
93 free(p);
94 close(fd);
95 return 0;
96 }
97 processor(p, nbytes, name, arg);
98 free(p);
99 close(fd);
100 return 1;
101 }
102