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
43int
44filemap(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}
99