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    close(fd);
62    return 0;
63  }
64  if (!S_ISREG(sb.st_mode)) {
65    fprintf(stderr, "%s: not a regular file\n", name);
66    close(fd);
67    return 0;
68  }
69  nbytes = sb.st_size;
70  /* malloc will return NULL with nbytes == 0, handle files with size 0 */
71  if (nbytes == 0) {
72    static const char c = '\0';
73    processor(&c, 0, name, arg);
74    close(fd);
75    return 1;
76  }
77  p = malloc(nbytes);
78  if (!p) {
79    fprintf(stderr, "%s: out of memory\n", name);
80    close(fd);
81    return 0;
82  }
83  n = read(fd, p, nbytes);
84  if (n < 0) {
85    perror(name);
86    free(p);
87    close(fd);
88    return 0;
89  }
90  if (n != nbytes) {
91    fprintf(stderr, "%s: read unexpected number of bytes\n", name);
92    free(p);
93    close(fd);
94    return 0;
95  }
96  processor(p, nbytes, name, arg);
97  free(p);
98  close(fd);
99  return 1;
100}
101