rom/dos/fread.c

   1 /*
   2     Copyright © 1995-2007, The AROS Development Team. All rights reserved.
   3     $Id$
   4
   5     Desc:
   6     Lang: english
   7 */
   8 #include "dos_intern.h"
   9
  10 /*****************************************************************************
  11
  12     NAME */
  13 #include <proto/dos.h>
  14
  15         AROS_LH4(LONG, FRead,
  16
  17 /*  SYNOPSIS */
  18         AROS_LHA(BPTR , fh, D1),
  19         AROS_LHA(APTR , block, D2),
  20         AROS_LHA(ULONG, blocklen, D3),
  21         AROS_LHA(ULONG, number, D4),
  22
  23 /*  LOCATION */
  24         struct DosLibrary *, DOSBase, 54, Dos)
  25
  26 /*  FUNCTION
  27         Read a number of blocks from a file.
  28
  29     INPUTS
  30         fh - Read from this file
  31         block - The data is put here
  32         blocklen - This is the size of a single block
  33         number - The number of blocks
  34
  35     RESULT
  36         The number of blocks read from the file or 0 on EOF.
  37         This function may return less than the requested number of blocks
  38         IoErr() gives additional information in case of an error.
  39
  40     NOTES
  41
  42     EXAMPLE
  43
  44     BUGS
  45
  46     SEE ALSO
  47         Open(), FWrite(), FPutc(), Close()
  48
  49     INTERNALS
  50
  51 *****************************************************************************/
  52 {
  53     AROS_LIBFUNC_INIT
  54
  55     ULONG   read;
  56     ULONG   len;
  57     UBYTE  *ptr;
  58     LONG    c;
  59
  60     ptr = block;
  61     len = 0;
  62
  63     SetIoErr(0);
  64
  65     for(read = 0; read < number; read++)
  66     {
  67         for(len = blocklen; len--; )
  68         {
  69             c = FGetC(fh);
  70
  71             if(c < 0)
  72                 goto finish;
  73
  74             *ptr ++ = c;
  75         }
  76     }
  77 finish:
  78     if(read == 0 && len == blocklen)
  79     {
  80         return EOF;
  81     }
  82
  83     return read;
  84
  85     AROS_LIBFUNC_EXIT
  86 } /* FRead */