filewrite.c

Go to the documentation of this file.

/* @(#)filewrite.c  1.18 12/02/26 Copyright 1986, 1995-2012 J. Schilling */
/*
 *  Copyright (c) 1986, 1995-2012 J. Schilling
 */
/*
 * The contents of this file are subject to the terms of the
 * Common Development and Distribution License, Version 1.0 only
 * (the "License").  You may not use this file except in compliance
 * with the License.
 *
 * See the file CDDL.Schily.txt in this distribution for details.
 *
 * When distributing Covered Code, include this CDDL HEADER in each
 * file and include the License file CDDL.Schily.txt from this distribution.
 */
 
#include "schilyio.h"
 
static  char    _writeerr[] = "file_write_err";
 
#ifdef  HAVE_USG_STDIO
 
EXPORT ssize_t
filewrite(f, vbuf, len)
    register FILE   *f;
    void    *vbuf;
    size_t  len;
{
    register int    n;
    ssize_t cnt;
    char    *buf = vbuf;
 
    down2(f, _IOWRT, _IORW);
 
    if (f->_flag & _IONBF) {
        cnt = _niwrite(fileno(f), buf, len);
        if (cnt < 0) {
            f->_flag |= _IOERR;
            if (!(my_flag(f) & _JS_IONORAISE))
                raisecond(_writeerr, 0L);
        }
        return (cnt);
    }
    cnt = 0;
    while (len > 0) {
        if (f->_cnt <= 0) {
            if (usg_flsbuf((unsigned char) *buf++, f) == EOF)
                break;
            cnt++;
            if (--len == 0)
                break;
        }
        if ((n = f->_cnt >= len ? len : f->_cnt) > 0) {
            f->_ptr = (unsigned char *)movebytes(buf, f->_ptr, n);
            buf += n;
            f->_cnt -= n;
            cnt += n;
            len -= n;
        }
    }
    if (!ferror(f))
        return (cnt);
    if (!(my_flag(f) & _JS_IONORAISE) && !(_io_glflag & _JS_IONORAISE))
        raisecond(_writeerr, 0L);
    return (-1);
}
 
#else
 
EXPORT ssize_t
filewrite(f, vbuf, len)
    register FILE   *f;
    void    *vbuf;
    size_t  len;
{
    ssize_t cnt;
    char    *buf = vbuf;
 
    down2(f, _IOWRT, _IORW);
 
    if (my_flag(f) & _JS_IOUNBUF)
        return (_niwrite(fileno(f), buf, len));
    cnt = fwrite(buf, 1, len, f);
 
    if (!ferror(f))
        return (cnt);
    if (!(my_flag(f) & _JS_IONORAISE) && !(_io_glflag & _JS_IONORAISE))
        raisecond(_writeerr, 0L);
    return (-1);
}
 
#endif  /* HAVE_USG_STDIO */