lib/msvcrt/stdio/freopen.c

   1 /* Copyright (C) 1995 DJ Delorie, see COPYING.DJ for details */
   2
   3 #include <msvcrt/sys/types.h>
   4 #include <msvcrt/stdio.h>
   5 #include <msvcrt/fcntl.h>
   6 #include <msvcrt/io.h>
   7 #include <msvcrt/internal/file.h>
   8
   9
  10 /*
  11  * @implemented
  12  */
  13 FILE *freopen(const char *file, const char *mode, FILE *f)
  14 {
  15   int fd, rw, oflags=0;
  16   char tbchar;
  17
  18   if (file == 0 || mode == 0 || f == 0)
  19     return 0;
  20
  21   rw = (mode[1] == '+');
  22
  23   fclose(f);
  24
  25   switch (*mode) {
  26   case 'a':
  27     oflags = O_CREAT | (rw ? O_RDWR : O_WRONLY);
  28     break;
  29   case 'r':
  30     oflags = rw ? O_RDWR : O_RDONLY;
  31     break;
  32   case 'w':
  33     oflags = O_TRUNC | O_CREAT | (rw ? O_RDWR : O_WRONLY);
  34     break;
  35   default:
  36     return NULL;
  37   }
  38   if (mode[1] == '+')
  39     tbchar = mode[2];
  40   else
  41     tbchar = mode[1];
  42   if (tbchar == 't')
  43     oflags |= O_TEXT;
  44   else if (tbchar == 'b')
  45     oflags |= O_BINARY;
  46   else
  47     oflags |= (_fmode & (O_TEXT|O_BINARY));
  48
  49   fd = _open(file, oflags, 0666);
  50   if (fd < 0)
  51     return NULL;
  52
  53   if (*mode == 'a')
  54     lseek(fd, 0, SEEK_END);
  55
  56   f->_cnt = 0;
  57   f->_file = fd;
  58   f->_bufsiz = 0;
  59   if (rw)
  60     f->_flag = _IOREAD | _IOWRT;
  61   else if (*mode == 'r')
  62     f->_flag = _IOREAD;
  63   else
  64     f->_flag = _IOWRT;
  65
  66   f->_base = f->_ptr = NULL;
  67   return f;
  68 }
  69
  70 /*
  71  * @implemented
  72  */
  73 FILE *_wfreopen(const wchar_t *file, const wchar_t *mode, FILE *f)
  74 {
  75   int fd, rw, oflags=0;
  76   wchar_t tbchar;
  77
  78   if (file == 0 || mode == 0 || f == 0)
  79     return 0;
  80
  81   rw = (mode[1] == L'+');
  82
  83   fclose(f);
  84
  85   switch (*mode) {
  86   case L'a':
  87     oflags = O_CREAT | (rw ? O_RDWR : O_WRONLY);
  88     break;
  89   case L'r':
  90     oflags = rw ? O_RDWR : O_RDONLY;
  91     break;
  92   case L'w':
  93     oflags = O_TRUNC | O_CREAT | (rw ? O_RDWR : O_WRONLY);
  94     break;
  95   default:
  96     return NULL;
  97   }
  98   if (mode[1] == L'+')
  99     tbchar = mode[2];
 100   else
 101     tbchar = mode[1];
 102   if (tbchar == L't')
 103     oflags |= O_TEXT;
 104   else if (tbchar == L'b')
 105     oflags |= O_BINARY;
 106   else
 107     oflags |= (_fmode & (O_TEXT|O_BINARY));
 108
 109   fd = _wopen(file, oflags, 0666);
 110   if (fd < 0)
 111     return NULL;
 112
 113   if (*mode == L'a')
 114     lseek(fd, 0, SEEK_END);
 115
 116   f->_cnt = 0;
 117   f->_file = fd;
 118   f->_bufsiz = 0;
 119   if (rw)
 120     f->_flag = _IOREAD | _IOWRT;
 121   else if (*mode == L'r')
 122     f->_flag = _IOREAD;
 123   else
 124     f->_flag = _IOWRT;
 125
 126   f->_base = f->_ptr = NULL;
 127   return f;
 128 }