/*
    (C) 1995-96 AROS - The Amiga Replacement OS
    $Id: fread.c,v 1.2 1997/04/02 05:26:41 ldp Exp $

    Desc: ANSI C function fread()
    Lang: english
*/
#include <errno.h>
#include <dos/dos.h>
#include <dos/dosextens.h>
#include <proto/exec.h>
#include <proto/dos.h>
#include "__errno.h"
#include "__stdio.h"

/*****************************************************************************

    NAME */
#include <unistd.h>

	size_t fread (

/*  SYNOPSIS */
	void * buf,
	size_t size,
	size_t nblocks,
	FILE * stream)

/*  FUNCTION
	Read an amount of bytes from a stream.

    INPUTS
	buf - The buffer to read the bytes into
	size - Size of one block to read
	nblocks - The number of blocks to read
	stream - Read from this stream

    RESULT
	The number of blocks read. This may range from 0 when the stream
	contains no more blocks up to nblocks. In case of an error, 0 is
	returned.

    NOTES

    EXAMPLE

    BUGS

    SEE ALSO
	fopen(), fwrite()

    INTERNALS

    HISTORY
	15.12.1996 digulla created

******************************************************************************/
{
    size_t cnt;
    BPTR   fh;

    switch ((IPTR)stream)
    {
    case 1: /* Stdin */
	fh = Input ();
	break;

    case 2: /* Stdout */
    case 3: /* Stderr */
	errno = EINVAL;
	return 0;

    default:
	fh = (BPTR)stream->fh;

	break;
    }

    cnt = FRead (fh, buf, size, nblocks);

    if (cnt == -1)
    {
	errno = IoErr2errno (IoErr ());
	stream->flags |= _STDIO_FILEFLAG_ERROR;

	cnt = 0;
    }
    else if (cnt == 0)
    {
	stream->flags |= _STDIO_FILEFLAG_EOF;
    }

    return cnt;
} /* fread */