compiler/clib/__stdio.c

   1 /*
   2     Copyright © 1995-2012, The AROS Development Team. All rights reserved.
   3     $Id$
   4
   5     Desc: stdio internals
   6     Lang: English
   7 */
   8
   9 #include "__arosc_privdata.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 = _STDIO_READ;
  90             break;
  91
  92         case O_WRONLY:
  93             ret = _STDIO_WRITE;
  94             break;
  95
  96         case O_RDWR:
  97             ret = _STDIO_READ | _STDIO_WRITE;
  98             break;
  99
 100         default:
 101             errno = EINVAL;
 102             return 0;
 103     }
 104
 105     if (omode & O_APPEND)
 106         ret |= _STDIO_APPEND;
 107
 108     return ret;
 109 }
 110
 111 int __init_stdio(struct aroscbase *aroscbase)
 112 {
 113     NEWLIST(&aroscbase->acb_stdio_files);
 114
 115     if
 116     (
 117         !(stdin  = fdopen(STDIN_FILENO, NULL))  ||
 118         !(stdout = fdopen(STDOUT_FILENO, NULL)) ||
 119         !(stderr = fdopen(STDERR_FILENO, NULL))
 120     )
 121     {
 122         SetIoErr(ERROR_NO_FREE_STORE);
 123         return 0;
 124     }
 125
 126     return 1;
 127 }
 128
 129 ADD2OPENLIB(__init_stdio, 5);
 130
 131