110 lines
2.5 KiB
C
110 lines
2.5 KiB
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_flush - buffered I/O with GT.M error signaling
|
|
|
|
flush I/O buffer. No action is taken if the last operation was not a
|
|
write.
|
|
|
|
void iob_flush(BFILE *bf)
|
|
|
|
BFILE *bf: file to flush
|
|
|
|
Note: It is assumed that the write buffer is full. Exactly one
|
|
record of size bf->bufsiz is written.
|
|
|
|
*/
|
|
#include "mdef.h"
|
|
|
|
#include "gtm_string.h"
|
|
|
|
#include <errno.h>
|
|
#include "gtm_fcntl.h"
|
|
#include "gtm_unistd.h"
|
|
#include "gtm_stdio.h"
|
|
#include "gtm_stat.h"
|
|
|
|
#include "error.h"
|
|
#include "iob.h"
|
|
#include "gtmio.h"
|
|
|
|
void iob_flush(BFILE *bf)
|
|
{
|
|
ssize_t nwritten, nrewritten;
|
|
ssize_t nbytes;
|
|
int rc;
|
|
|
|
error_def(ERR_IOEOF);
|
|
|
|
if (!bf->write_mode)
|
|
return;
|
|
|
|
if (bf->remaining == bf->bufsiz) /* return if nothing to write */
|
|
return;
|
|
|
|
if (bf->remaining) /* set remaining bytes to null */
|
|
{
|
|
memset(bf->bptr, 0, bf->remaining);
|
|
/* bytes to transfer, rounded up to the nearest block */
|
|
nbytes = (((bf->bptr - bf->buf) + bf->blksiz - 1) / bf->blksiz)
|
|
* bf->blksiz;
|
|
}
|
|
else
|
|
nbytes = bf->bufsiz;
|
|
|
|
DOWRITERL(bf->fd, bf->buf, nbytes, nwritten);
|
|
#ifdef DEBUG_IOB
|
|
PRINTF("iob_flush:\t\twrite(%d, %x, %d) = %d\n",bf->fd,bf->buf,nbytes,nwritten);
|
|
#endif
|
|
bf->bptr = bf->buf;
|
|
bf->remaining = bf->bufsiz;
|
|
|
|
if (nwritten < nbytes)
|
|
{
|
|
CLOSEFILE_RESET(bf->fd, rc); /* resets "bf->fd" to FD_INVALID */
|
|
#ifdef SCO
|
|
if (nwritten == -1)
|
|
{
|
|
if (errno == ENXIO)
|
|
nwritten = 0;
|
|
else
|
|
{
|
|
rts_error(VARLSTCNT(1) errno);
|
|
return;
|
|
}
|
|
}
|
|
#else
|
|
if (nwritten == -1)
|
|
{
|
|
rts_error(VARLSTCNT(1) errno);
|
|
return;
|
|
}
|
|
#endif
|
|
rts_error(VARLSTCNT(1) ERR_IOEOF);
|
|
/* if we continued from here, assume that this is a magnetic
|
|
tape and we have loaded the next volume. Re-open and
|
|
finish the write operation.
|
|
*/
|
|
while (FD_INVALID == (bf->fd = OPEN3(bf->path,bf->oflag,bf->mode)))
|
|
rts_error(VARLSTCNT(1) errno);
|
|
DOWRITERL(bf->fd, bf->buf + nwritten, nbytes - nwritten, nrewritten);
|
|
#ifdef DEBUG_IOB
|
|
PRINTF("iob_flush:\t\twrite(%d, %x, %d) = %d\n", bf->fd, bf->buf, nbytes, nwritten);
|
|
#endif
|
|
if (nrewritten < nbytes - nwritten)
|
|
{
|
|
rts_error(VARLSTCNT(1) errno);
|
|
return;
|
|
}
|
|
}
|
|
}
|
|
|