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 }