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);
}
|