compiler/stdc/fopen.c

   1 /*
   2     Copyright © 1995-2012, The AROS Development Team. All rights reserved.
   3     $Id$
   4
   5     C99 function fopen().
   6 */
   7 #include <dos/dos.h>
   8 #include <proto/exec.h>
   9 #include <proto/dos.h>
  10 #include <stdlib.h>
  11 #include <errno.h>
  12 #include <aros/libcall.h>
  13
  14 #include "__stdio.h"
  15 #include "__stdcio_intbase.h"
  16
  17 /*****************************************************************************
  18
  19     NAME */
  20 #include <stdio.h>
  21
  22         FILE * fopen (
  23
  24 /*  SYNOPSIS */
  25         const char * restrict pathname,
  26         const char * restrict mode)
  27
  28 /*  FUNCTION
  29         Opens a file with the specified name in the specified mode.
  30
  31     INPUTS
  32         pathname - Path and filename of the file you want to open.
  33         mode - How to open the file:
  34
  35                 r: Open for reading. The stream is positioned at the
  36                         beginning of the file.
  37
  38                 r+: Open for reading and writing. The stream is positioned
  39                         at the beginning of the file.
  40
  41                 w: Open for writing. If the file doesn't exist, then
  42                         it is created. If it does already exist, then
  43                         it is truncated. The stream is positioned at the
  44                         beginning of the file.
  45
  46                 w+: Open for reading and writing. If the file doesn't
  47                         exist, then it is created. If it does already
  48                         exist, then it is truncated. The stream is
  49                         positioned at the beginning of the file.
  50
  51                 a: Open for writing. If the file doesn't exist, then
  52                         it is created. The stream is positioned at the
  53                         end of the file.
  54
  55                 a+: Open for reading and writing. If the file doesn't
  56                         exist, then it is created. The stream is positioned
  57                         at the end of the file.
  58
  59                 b: Open in binary more. This has no effect and is ignored.
  60
  61     RESULT
  62         A pointer to a FILE handle or NULL in case of an error. When NULL
  63         is returned, then errno is set to indicate the error.
  64
  65     NOTES
  66
  67     EXAMPLE
  68
  69     BUGS
  70         Currently errno is not set on error.
  71
  72     SEE ALSO
  73         fclose(), fread(), fwrite(), fgets(), fgetc(), fputs(), fputc()
  74
  75     INTERNALS
  76
  77 ******************************************************************************/
  78 {
  79     struct StdCIOIntBase *StdCIOBase =
  80         (struct StdCIOIntBase *)__aros_getbase_StdCIOBase();
  81     int fhmode;
  82     char l2, hasplus;
  83     FILE *file = NULL;
  84
  85     l2 = mode[1];
  86     if (l2 == 'b') l2 = mode[2];
  87     hasplus = (l2 == '+');
  88
  89     if (!StdCIOBase->streampool)
  90         StdCIOBase->streampool = CreatePool(MEMF_ANY, 20*sizeof(FILE), 2*sizeof(FILE));
  91     if (!StdCIOBase->streampool)
  92     {
  93         SetIoErr(ERROR_NO_FREE_STORE);
  94         goto error;
  95     }
  96     file = AllocPooled(StdCIOBase->streampool, sizeof(FILE));
  97     if (!file)
  98     {
  99         SetIoErr(ERROR_NO_FREE_STORE);
 100         goto error;
 101     }
 102     file->fh = (BPTR)NULL;
 103
 104     switch(mode[0])
 105     {
 106     case 'r':
 107         file->flags = __STDCIO_STDIO_READ;
 108         fhmode = MODE_OLDFILE;
 109         break;
 110     case 'w':
 111         file->flags = __STDCIO_STDIO_WRITE;
 112         fhmode = MODE_NEWFILE;
 113         break;
 114     case 'a':
 115         file->flags = __STDCIO_STDIO_WRITE|__STDCIO_STDIO_APPEND;
 116         fhmode = MODE_READWRITE;
 117         break;
 118     default:
 119         goto error;
 120     }
 121     if (hasplus)
 122         file->flags |= __STDCIO_STDIO_RDWR;
 123
 124     file->fh = Open(pathname, fhmode);
 125     if (!file->fh)
 126         goto error;
 127
 128     if (file->flags & __STDCIO_STDIO_APPEND)
 129     {
 130         if (Seek(file->fh, 0, OFFSET_END) < 0)
 131             goto error;
 132     }
 133
 134     AddTail((struct List *)&StdCIOBase->files, (struct Node *)file);
 135
 136     return file;
 137
 138  error:
 139     if (file)
 140     {
 141         if (file->fh) Close(file->fh);
 142         FreePooled(StdCIOBase->streampool, file, sizeof(FILE));
 143     }
 144     errno = __stdc_ioerr2errno(IoErr());
 145     return NULL;
 146 } /* fopen */