compiler/posixc/__stdio.c

   1 /*
   2     Copyright © 1995-2013, The AROS Development Team. All rights reserved.
   3     $Id$
   4
   5     Desc: stdio internals
   6     Lang: English
   7 */
   8
   9 #include "__posixc_intbase.h"
  10
  11 #include <stdio.h>
  12 #include <stdlib.h>
  13 #include <fcntl.h>
  14 #include <unistd.h>
  15 #include <errno.h>
  16
  17 #include <exec/lists.h>
  18 #include <dos/dos.h>
  19 #include <proto/exec.h>
  20 #include <proto/dos.h>
  21 #include <aros/symbolsets.h>
  22 #include <aros/debug.h>
  23 #include "__stdio.h"
  24
  25 int __smode2oflags(const char *mode)
  26 {
  27     int ret = -1;
  28     int theresb = 0;
  29
  30     switch (*mode++)
  31     {
  32         case 'r':
  33             ret = O_RDONLY;
  34             break;
  35
  36         case 'w':
  37             ret = O_WRONLY | O_CREAT | O_TRUNC;
  38             break;
  39
  40         case 'a':
  41             ret = O_WRONLY | O_CREAT | O_APPEND;
  42             break;
  43
  44         default:
  45             errno = EINVAL;
  46             return -1;
  47     }
  48
  49     if (*mode == 'b')
  50     {
  51         theresb = 1;
  52         mode++;
  53     }
  54     else if (*mode == 't')
  55     {
  56         // Silently ignore 't' (=text).
  57         // It's deprecated, but it's still in some sources,
  58         // and on other platforms they can compiled without problems.
  59         mode++;
  60     }
  61
  62     if (*mode == '+')
  63     {
  64         ret = O_RDWR | (ret & ~O_ACCMODE);
  65         mode++;
  66     }
  67
  68     if (*mode == 'b' && !theresb)
  69     {
  70         mode++;
  71     }
  72
  73     if (*mode != '\0')
  74     {
  75         errno = EINVAL;
  76         return -1;
  77     }
  78
  79     return ret;
  80 }
  81
  82 int __oflags2sflags(int omode)
  83 {
  84     int ret;
  85
  86     switch (omode & O_ACCMODE)
  87     {
  88         case O_RDONLY:
  89             ret = __POSIXC_STDIO_READ;
  90             break;
  91
  92         case O_WRONLY:
  93             ret = __POSIXC_STDIO_WRITE;
  94             break;
  95
  96         case O_RDWR:
  97             ret = __POSIXC_STDIO_READ | __POSIXC_STDIO_WRITE;
  98             break;
  99
 100         default:
 101             errno = EINVAL;
 102             return 0;
 103     }
 104
 105     if (omode & O_APPEND)
 106         ret |= __POSIXC_STDIO_APPEND;
 107
 108     return ret;
 109 }
 110
 111 int __init_stdio(struct PosixCIntBase *PosixCIntBase)
 112 {
 113     struct PosixCBase *PosixCBase = (struct PosixCBase *)PosixCIntBase;
 114     NEWLIST(&PosixCIntBase->stdio_files);
 115
 116     if
 117     (
 118         !(PosixCBase->_stdin  = fdopen(STDIN_FILENO, NULL))  ||
 119         !(PosixCBase->_stdout = fdopen(STDOUT_FILENO, NULL)) ||
 120         !(PosixCBase->_stderr = fdopen(STDERR_FILENO, NULL))
 121     )
 122     {
 123         SetIoErr(ERROR_NO_FREE_STORE);
 124         return 0;
 125     }
 126
 127     return 1;
 128 }
 129
 130 ADD2OPENLIB(__init_stdio, 5);