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 __BEOS__

    12 #include <unistd.h>

    13 #endif

    14 

    15 #ifndef S_ISREG

    16 #ifndef S_IFREG

    17 #define S_IFREG _S_IFREG

    18 #endif

    19 #ifndef S_IFMT

    20 #define S_IFMT _S_IFMT

    21 #endif

    22 #define S_ISREG(m) (((m) & S_IFMT) == S_IFREG)

    23 #endif /* not S_ISREG */

    24 

    25 #ifndef O_BINARY

    26 #ifdef _O_BINARY

    27 #define O_BINARY _O_BINARY

    28 #else

    29 #define O_BINARY 0

    30 #endif

    31 #endif

    32 

    33 #include "filemap.h"

    34 

    35 int

    36 filemap(const char *name,

    37         void (*processor)(const void *, size_t, const char *, void *arg),

    38         void *arg)

    39 {

    40   size_t nbytes;

    41   int fd;

    42   int n;

    43   struct stat sb;

    44   void *p;

    45 

    46   fd = open(name, O_RDONLY|O_BINARY);

    47   if (fd < 0) {

    48     perror(name);

    49     return 0;

    50   }

    51   if (fstat(fd, &sb) < 0) {

    52     perror(name);

    53     return 0;

    54   }

    55   if (!S_ISREG(sb.st_mode)) {

    56     fprintf(stderr, "%s: not a regular file\n", name);

    57     return 0;

    58   }

    59   nbytes = sb.st_size;

    60   p = malloc(nbytes);

    61   if (!p) {

    62     fprintf(stderr, "%s: out of memory\n", name);

    63     return 0;

    64   }

    65   n = read(fd, p, nbytes);

    66   if (n < 0) {

    67     perror(name);

    68     free(p);

    69     close(fd);

    70     return 0;

    71   }

    72   if (n != nbytes) {

    73     fprintf(stderr, "%s: read unexpected number of bytes\n", name);

    74     free(p);

    75     close(fd);

    76     return 0;

    77   }

    78   processor(p, nbytes, name, arg);

    79   free(p);

    80   close(fd);

    81   return 1;

    82 }