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