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
|
/****************************************************************
* *
* Copyright 2001, 2009 Fidelity Information Services, Inc *
* *
* This source code contains the intellectual property *
* of its copyright holder(s), and is made available *
* under a license. If you do not know the terms of *
* the license, please stop and do not read further. *
* *
****************************************************************/
/* iob_close - buffered I/O with GT.M error signaling
void iob_close(BFILE *bf)
bf: file to close
*/
#include "mdef.h"
#include <errno.h>
#include "gtm_unistd.h"
#include "error.h"
#include "iob.h"
#include "gtmio.h"
void iob_close(BFILE *bf)
{
int rc;
iob_flush(bf);
CLOSEFILE_RESET(bf->fd, rc); /* resets "bf->fd" to FD_INVALID */
if (-1 == rc)
rts_error(VARLSTCNT(1) errno);
free(bf->buf);
free(bf->path);
free(bf);
}
|
