40 lines
895 B
C
40 lines
895 B
C
|
/****************************************************************
|
||
|
|
* *
|
||
|
|
* 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);
|
||
|
|
}
|