external/io_grib_share/open_file.c

   1 #include <stdio.h>
   2 #include <stdlib.h>
   3 #include <fcntl.h>
   4 #ifdef _WIN32
   5 #include <io.h>
   6 #include <strings.h>
   7 #else
   8 #include <unistd.h>
   9 #include <string.h>
  10 #endif
  11
  12 #ifndef CRAY
  13 # ifdef NOUNDERSCORE
  14 #      define OPEN_FILE open_file
  15 #      define CLOSE_FILE close_file
  16 #      define WRITE_FILE write_file
  17 #      define WRITE_FILE_N write_file_n
  18 #      define FLUSH_FILE flush_file
  19 # else
  20 #   ifdef F2CSTYLE
  21 #      define OPEN_FILE open_file__
  22 #      define CLOSE_FILE close_file__
  23 #      define WRITE_FILE write_file__
  24 #      define WRITE_FILE_N write_file_n__
  25 #      define FLUSH_FILE flush_file__
  26 #   else
  27 #      define OPEN_FILE open_file_
  28 #      define CLOSE_FILE close_file_
  29 #      define WRITE_FILE write_file_
  30 #      define WRITE_FILE_N write_file_n_
  31 #      define FLUSH_FILE flush_file_
  32 #   endif
  33 # endif
  34 #endif
  35
  36 /*
  37  * Fortran-callable function to open/close files
  38  */
  39 int OPEN_FILE (char *filename, char *permissions, int *outfd, int *ierr,
  40                int strlen1, int strlen2)
  41 {
  42   char filename2[1000];
  43   char permstring[1000];
  44   int permvals;
  45
  46   strncpy(filename2,filename,strlen1);
  47   filename2[strlen1]='\0';
  48
  49   strncpy(permstring,permissions,strlen2);
  50   permstring[strlen2]='\0';
  51
  52   if (strcmp(permstring,"w") == 0) {
  53     permvals = O_CREAT|O_WRONLY|O_TRUNC;
  54   } else {
  55     permvals = O_RDONLY;
  56   }
  57
  58   *outfd = open(filename2,permvals,0644);
  59   if (*outfd == -1)
  60     {
  61       fprintf(stderr,"setting ierr to -1, filename: %s\n",filename);
  62       perror("");
  63       *ierr = -1;
  64       return -1;
  65     }
  66   else
  67     {
  68       *ierr = 0;
  69       return 0;
  70     }
  71 }
  72
  73 int WRITE_FILE(int *fd, char *buf, int *ierr, int strlen)
  74 {
  75   int nbytes;
  76
  77   nbytes = write(*fd,buf,strlen);
  78   if (nbytes != strlen)
  79     {
  80       *ierr = -1;
  81     }
  82   else
  83     {
  84       *ierr = 0;
  85     }
  86   return *ierr;
  87 }
  88
  89 int WRITE_FILE_N(int *fd, char *buf, int *nbytes, int *ierr)
  90 {
  91   int bytes_written;
  92
  93   bytes_written = write(*fd,buf,*nbytes);
  94   if (bytes_written != *nbytes)
  95     {
  96       *ierr = -1;
  97     }
  98   else
  99     {
 100       *ierr = 0;
 101     }
 102   return *ierr;
 103 }
 104
 105 int CLOSE_FILE (int *fd)
 106 {
 107   close(*fd);
 108   return 0;
 109 }
 110
 111 int FLUSH_FILE (int *fd)
 112 {
 113 #ifdef _WIN32
 114   _commit(*fd);
 115 #else
 116   fsync(*fd);
 117 #endif
 118   return 0;
 119 }
 120