initial check-in, version 0.5.0
[musl] / src / stdio / fread.c
1 #include "stdio_impl.h"
2
3 #define MIN(a,b) ((a)<(b) ? (a) : (b))
4
5 size_t fread(void *destv, size_t size, size_t nmemb, FILE *f)
6 {
7         unsigned char *dest = destv;
8         size_t len = size*nmemb, l = len, k;
9
10         /* Never touch the file if length is zero.. */
11         if (!l) return 0;
12
13         FLOCK(f);
14
15         for (;;) {
16                 /* First exhaust the buffer. */
17                 k = MIN(f->rend - f->rpos, l);
18                 memcpy(dest, f->rpos, k);
19                 f->rpos += k;
20                 dest += k;
21                 l -= k;
22
23                 /* Stop on EOF or errors */
24                 if (f->flags & (F_EOF|F_ERR|F_NORD)) goto eof;
25
26                 /* Done? Or going unbuffered? */
27                 if (!l || l > f->buf_size/2) break;
28
29                 /* Otherwise, refill & read thru buffer. */
30                 __underflow(f);
31         }
32
33         /* Read the remainder directly */
34         for (; l; l-=k, dest+=k) {
35                 k = f->read(f, dest, l);
36                 if (k+1<=1) {
37                         f->flags |= F_EOF | (F_ERR & k);
38                         goto eof;
39                 }
40         }
41
42         FUNLOCK(f);
43         return nmemb;
44 eof:
45         FUNLOCK(f);
46         return (len-l)/size;
47 }
48
49 weak_alias(fread, fread_unlocked);