1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
|
#include "stdio_impl.h"
size_t __fwritex(const unsigned char *s, size_t l, FILE *f)
{
size_t i = 0;
size_t k = f->wend - f->wpos;
/* Handle line-buffered mode by breaking into 2 parts */
if (f->lbf >= 0) {
/* Match /^(.*\n|)/ */
for (i=l; i && s[i-1] != '\n'; i--);
if (i) {
f->lbf = EOF;
__fwritex(s, i, f);
f->lbf = '\n';
__oflow(f);
return ferror(f) ? 0 : i + __fwritex(s+i, l-i, f);
}
}
/* Buffer initial segment */
if (k > l) k = l;
memcpy(f->wpos, s, k);
f->wpos += k;
if (f->wpos < f->wend) return l;
/* If there's work left to do, flush buffer */
__oflow(f);
if (ferror(f)) return 0;
/* If the remainder will not fit in buffer, write it directly */
if (l - k >= f->wend - f->wpos)
return k + f->write(f, s+k, l-k);
/* Otherwise, buffer the remainder */
memcpy(f->wpos, s+k, l-k);
f->wpos += l-k;
return l;
}
size_t fwrite(const void *src, size_t size, size_t nmemb, FILE *f)
{
size_t l = size*nmemb;
if (!l) return l;
FLOCK(f);
l = __fwritex(src, l, f);
FUNLOCK(f);
return l/size;
}
weak_alias(fwrite, fwrite_unlocked);
|
