File: freopen.c

package info (click to toggle)
cc65 2.19-2
  • links: PTS
  • area: main
  • in suites: forky, sid, trixie
  • size: 20,268 kB
  • sloc: ansic: 117,151; asm: 66,339; pascal: 4,248; makefile: 1,009; perl: 607
file content (43 lines) | stat: -rw-r--r-- 959 bytes parent folder | download | duplicates (3)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
/*
** freopen.c
**
** Ullrich von Bassewitz, 17.06.1998
*/



#include <stdio.h>
#include <fcntl.h>
#include <errno.h>
#include "_file.h"



/*****************************************************************************/
/*                                   Code                                    */
/*****************************************************************************/



FILE* __fastcall__ freopen (const char* name, const char* mode, FILE* f)
{
    /* Check if the file is open, if so, close it */
    if ((f->f_flags & _FOPEN) == 0) {
        /* File is not open */
        return (FILE*) _seterrno (EINVAL);      /* File not input */
    }

    /* Close the file. Don't bother setting the flag, it will get
    ** overwritten by _fopen.
    */
    if (close (f->f_fd) < 0) {
        /* An error occured, errno is already set */
        return 0;
    }

    /* Open the file and return the descriptor */
    return _fopen (name, mode, f);
}