Subversion Repositories Kolibri OS

/*

 * Copyright (c) 1990 The Regents of the University of California.

 * All rights reserved.

 *

 * Redistribution and use in source and binary forms are permitted

 * provided that the above copyright notice and this paragraph are

 * duplicated in all such forms and that any documentation,

 * advertising materials, and other materials related to such

 * distribution and use acknowledge that the software was developed

 * by the University of California, Berkeley.  The name of the

 * University may not be used to endorse or promote products derived

 * from this software without specific prior written permission.

 * THIS SOFTWARE IS PROVIDED ``AS IS'' AND WITHOUT ANY EXPRESS OR

 * IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED

 * WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE.

 */

/*

FUNCTION

<>---write array elements

INDEX

	fwrite

INDEX

	_fwrite_r

ANSI_SYNOPSIS

	#include 

	size_t fwrite(const void *restrict <[buf]>, size_t <[size]>,

		      size_t <[count]>, FILE *restrict <[fp]>);

	#include 

	size_t _fwrite_r(struct _reent *<[ptr]>, const void *restrict <[buf]>, size_t <[size]>,

		      size_t <[count]>, FILE *restrict <[fp]>);

TRAD_SYNOPSIS

	#include 

	size_t fwrite(<[buf]>, <[size]>, <[count]>, <[fp]>)

	char *<[buf]>;

	size_t <[size]>;

	size_t <[count]>;

	FILE *<[fp]>;

	#include 

	size_t _fwrite_r(<[ptr]>, <[buf]>, <[size]>, <[count]>, <[fp]>)

	struct _reent *<[ptr]>;

	char *<[buf]>;

	size_t <[size]>;

	size_t <[count]>;

	FILE *<[fp]>;

DESCRIPTION

<> attempts to copy, starting from the memory location

<[buf]>, <[count]> elements (each of size <[size]>) into the file or

stream identified by <[fp]>.  <> may copy fewer elements than

<[count]> if an error intervenes.

<> also advances the file position indicator (if any) for

<[fp]> by the number of @emph{characters} actually written.

<<_fwrite_r>> is simply the reentrant version of <> that

takes an additional reentrant structure argument: <[ptr]>.

RETURNS

If <> succeeds in writing all the elements you specify, the

result is the same as the argument <[count]>.  In any event, the

result is the number of complete elements that <> copied to

the file.

PORTABILITY

ANSI C requires <>.

Supporting OS subroutines required: <>, <>, <>,

<>, <>, <>, <>.

*/

#if defined(LIBC_SCCS) && !defined(lint)

static char sccsid[] = "%W% (Berkeley) %G%";

#endif /* LIBC_SCCS and not lint */

#include <_ansi.h>

#include 

#include 

#if 0

#include 

#endif

#include "local.h"

#if 1

#include "fvwrite.h"

#endif

/*

 * Write `count' objects (each size `size') from memory to the given file.

 * Return the number of whole objects written.

 */

size_t

_DEFUN(_fwrite_r, (ptr, buf, size, count, fp),

       struct _reent * ptr _AND

       _CONST _PTR __restrict buf _AND

       size_t size     _AND

       size_t count    _AND

       FILE * __restrict fp)

{

  size_t n;

#ifdef _FVWRITE_IN_STREAMIO

  struct __suio uio;

  struct __siov iov;

  iov.iov_base = buf;

  uio.uio_resid = iov.iov_len = n = count * size;

  uio.uio_iov = &iov;

  uio.uio_iovcnt = 1;

  /*

   * The usual case is success (__sfvwrite_r returns 0);

   * skip the divide if this happens, since divides are

   * generally slow and since this occurs whenever size==0.

   */

  CHECK_INIT(ptr, fp);

  _newlib_flockfile_start (fp);

  ORIENT (fp, -1);

  if (__sfvwrite_r (ptr, fp, &uio) == 0)

    {

      _newlib_flockfile_exit (fp);

      return count;

    }

  _newlib_flockfile_end (fp);

  return (n - uio.uio_resid) / size;

#else

  size_t i = 0;

  _CONST char *p = buf;

  n = count * size;

  CHECK_INIT (ptr, fp);

  _newlib_flockfile_start (fp);

  ORIENT (fp, -1);

  /* Make sure we can write.  */

  if (cantwrite (ptr, fp))

    goto ret;

  while (i < n)

    {

      if (__sputc_r (ptr, p[i], fp) == EOF)

	break;

      i++;

    }

ret:

  _newlib_flockfile_end (fp);

  return i / size;

#endif

}

#ifndef _REENT_ONLY

size_t

_DEFUN(fwrite, (buf, size, count, fp),

       _CONST _PTR __restrict buf _AND

       size_t size     _AND

       size_t count    _AND

       FILE * fp)

{

  return _fwrite_r (_REENT, buf, size, count, fp);

}

#endif