#include "stdio_impl.h"
#include <string.h>

size_t __fwritex(const unsigned char* restrict s, size_t l, FILE* restrict f) {
  size_t i = 0;

  if (!f->wend && __towrite(f))
    return 0;

  if (l > f->wend - f->wpos)
    return f->write(f, s, l);

  if (f->lbf >= 0) {
    /* Match /^(.*\n|)/ */
    for (i = l; i && s[i - 1] != '\n'; i--)
      ;
    if (i) {
      size_t n = f->write(f, s, i);
      if (n < i)
        return n;
      s += i;
      l -= i;
    }
  }

  memcpy(f->wpos, s, l);
  f->wpos += l;
  return l + i;
}

size_t fwrite(const void* restrict src,
              size_t size,
              size_t nmemb,
              FILE* restrict f) {
  size_t k, l = size * nmemb;
  if (!size)
    nmemb = 0;
  FLOCK(f);
  k = __fwritex(src, l, f);
  FUNLOCK(f);
  return k == l ? nmemb : k / size;
}

weak_alias(fwrite, fwrite_unlocked);