OpenCores
URL https://opencores.org/ocsvn/or1k/or1k/trunk

Subversion Repositories or1k

[/] [or1k/] [trunk/] [newlib-1.10.0/] [newlib/] [libc/] [stdio/] [fclose.c] - Blame information for rev 1773

Go to most recent revision | Details | Compare with Previous | View Log

Line No. Rev Author Line
1 1010 ivang
/*
2
FUNCTION
3
<<fclose>>---close a file
4
 
5
INDEX
6
        fclose
7
 
8
ANSI_SYNOPSIS
9
        #include <stdio.h>
10
        int fclose(FILE *<[fp]>);
11
 
12
TRAD_SYNOPSIS
13
        #include <stdio.h>
14
        int fclose(<[fp]>)
15
        FILE *<[fp]>;
16
 
17
DESCRIPTION
18
If the file or stream identified by <[fp]> is open, <<fclose>> closes
19
it, after first ensuring that any pending data is written (by calling
20
<<fflush(<[fp]>)>>).
21
 
22
RETURNS
23
<<fclose>> returns <<0>> if successful (including when <[fp]> is
24
<<NULL>> or not an open file); otherwise, it returns <<EOF>>.
25
 
26
PORTABILITY
27
<<fclose>> is required by ANSI C.
28
 
29
Required OS subroutines: <<close>>, <<fstat>>, <<isatty>>, <<lseek>>,
30
<<read>>, <<sbrk>>, <<write>>.
31
*/
32
 
33
/*
34
 * Copyright (c) 1990 The Regents of the University of California.
35
 * All rights reserved.
36
 *
37
 * Redistribution and use in source and binary forms are permitted
38
 * provided that the above copyright notice and this paragraph are
39
 * duplicated in all such forms and that any documentation,
40
 * advertising materials, and other materials related to such
41
 * distribution and use acknowledge that the software was developed
42
 * by the University of California, Berkeley.  The name of the
43
 * University may not be used to endorse or promote products derived
44
 * from this software without specific prior written permission.
45
 * THIS SOFTWARE IS PROVIDED ``AS IS'' AND WITHOUT ANY EXPRESS OR
46
 * IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED
47
 * WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE.
48
 */
49
 
50
#include <stdio.h>
51
#include <stdlib.h>
52
#include "local.h"
53
 
54
/*
55
 * Close a file.
56
 */
57
 
58
int
59
_DEFUN (fclose, (fp),
60
        register FILE * fp)
61
{
62
  int r;
63
 
64
  if (fp == NULL)
65
    return (0);                  /* on NULL */
66
 
67
  CHECK_INIT (fp);
68
 
69
  if (fp->_flags == 0)           /* not open! */
70
    return (0);
71
  r = fp->_flags & __SWR ? fflush (fp) : 0;
72
  if (fp->_close != NULL && (*fp->_close) (fp->_cookie) < 0)
73
    r = EOF;
74
  if (fp->_flags & __SMBF)
75
    _free_r (fp->_data, (char *) fp->_bf._base);
76
  if (HASUB (fp))
77
    FREEUB (fp);
78
  if (HASLB (fp))
79
    FREELB (fp);
80
  fp->_flags = 0;                /* release this FILE for reuse */
81
  return (r);
82
}

powered by: WebSVN 2.1.0

© copyright 1999-2024 OpenCores.org, equivalent to Oliscience, all rights reserved. OpenCores®, registered trademark.