compiler/stdc/fclose.c

   1 /*
   2     Copyright © 1995-2013, The AROS Development Team. All rights reserved.
   3     $Id$
   4
   5     C99 function fclose().
   6 */
   7
   8 #include <proto/exec.h>
   9 #include <proto/dos.h>
  10 #include <aros/libcall.h>
  11
  12 #include <stdlib.h>
  13 #include <errno.h>
  14 #include <string.h>
  15
  16 #include "__stdcio_intbase.h"
  17
  18 #define DEBUG 0
  19 #include <aros/debug.h>
  20
  21 /*****************************************************************************
  22
  23     NAME */
  24 #include <stdio.h>
  25
  26         int fclose (
  27
  28 /*  SYNOPSIS */
  29         FILE * stream)
  30
  31 /*  FUNCTION
  32         Closes a stream.
  33
  34     INPUTS
  35         stream - Stream to close.
  36
  37     RESULT
  38         Upon successful completion 0 is returned. Otherwise, EOF is
  39         returned and the global variable errno is set to indicate the
  40         error. In either case no further access to the stream is possible.
  41
  42     NOTES
  43
  44     EXAMPLE
  45
  46     BUGS
  47
  48     SEE ALSO
  49         fopen()
  50
  51     INTERNALS
  52
  53 ******************************************************************************/
  54 {
  55     struct StdCIOIntBase *StdCIOBase =
  56         (struct StdCIOIntBase *)__aros_getbase_StdCIOBase();
  57
  58     int ret = 0;
  59     char s[L_tmpnam+20] = "";
  60
  61     if (stream->flags & __STDCIO_STDIO_TMP)
  62     {
  63         if (!NameFromFH(stream->fh, s, L_tmpnam+20))
  64         {
  65             /* Just leave the file in T: */
  66             D(bug("[fclose]: Could not get name from fh, IoErr()=%d\n", IoErr()));
  67             s[0] = 0;
  68         }
  69     }
  70
  71     if (!(stream->flags & __STDCIO_STDIO_DONTCLOSE))
  72     {
  73         if (Close(stream->fh))
  74             ret = 0;
  75         else
  76         {
  77             ret = EOF;
  78             errno = __stdc_ioerr2errno(IoErr());
  79         }
  80     }
  81
  82     Remove((struct Node *)stream);
  83     if (!(stream->flags & __STDCIO_STDIO_DONTFREE))
  84         FreePooled(StdCIOBase->streampool, stream, sizeof(FILE));
  85
  86     if (strlen(s) > 0)
  87     {
  88         D(bug("[fclose]: Deleting file '%s'\n", s));
  89         DeleteFile(s); /* File will be left there if delete fails */
  90     }
  91
  92     return ret;
  93 } /* fclose */
  94