text: #include <wchar.h>
  
  #include "locale_impl.h"
  #include "stdio_impl.h"
  
  int fputws(const wchar_t* restrict ws, FILE* restrict f) {
    unsigned char buf[BUFSIZ];
    size_t l = 0;
    locale_t *ploc = &CURRENT_LOCALE, loc = *ploc;
  
    FLOCK(f);
  
    fwide(f, 1);
    *ploc = f->locale;
  
    while (ws && (l = wcsrtombs((void*)buf, (void*)&ws, sizeof buf, 0)) + 1 > 1)
      if (__fwritex(buf, l, f) < l) {
        FUNLOCK(f);
        *ploc = loc;
        return -1;
      }
  
    FUNLOCK(f);
  
    *ploc = loc;
    return l; /* 0 or -1 */
  }
  
  weak_alias(fputws, fputws_unlocked);
  