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 #ifndef S_ISREG

    12 #ifndef S_IFREG

    13 #define S_IFREG _S_IFREG

    14 #endif

    15 #ifndef S_IFMT

    16 #define S_IFMT _S_IFMT

    17 #endif

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

    19 #endif /* not S_ISREG */

    20 

    21 #ifndef O_BINARY

    22 #ifdef _O_BINARY

    23 #define O_BINARY _O_BINARY

    24 #else

    25 #define O_BINARY 0

    26 #endif

    27 #endif

    28 

    29 #include "filemap.h"

    30 

    31 int

    32 filemap(const char *name,

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

    34         void *arg)

    35 {

    36   size_t nbytes;

    37   int fd;

    38   int n;

    39   struct stat sb;

    40   void *p;

    41 

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

    43   if (fd < 0) {

    44     perror(name);

    45     return 0;

    46   }

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

    48     perror(name);

    49     return 0;

    50   }

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

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

    53     return 0;

    54   }

    55   nbytes = sb.st_size;

    56   p = malloc(nbytes);

    57   if (!p) {

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

    59     return 0;

    60   }

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

    62   if (n < 0) {

    63     perror(name);

    64     close(fd);

    65     return 0;

    66   }

    67   if (n != nbytes) {

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

    69     close(fd);

    70     return 0;

    71   }

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

    73   free(p);

    74   close(fd);

    75   return 1;

    76 }