src/stdio/fgetwc.c

   1 #include "stdio_impl.h"
   2 #include "locale_impl.h"
   3 #include <wchar.h>
   4 #include <errno.h>
   5
   6 static wint_t __fgetwc_unlocked_internal(FILE *f)
   7 {
   8         wchar_t wc;
   9         int c;
  10         size_t l;
  11
  12         /* Convert character from buffer if possible */
  13         if (f->rpos < f->rend) {
  14                 l = mbtowc(&wc, (void *)f->rpos, f->rend - f->rpos);
  15                 if (l+1 >= 1) {
  16                         f->rpos += l + !l; /* l==0 means 1 byte, null */
  17                         return wc;
  18                 }
  19         }
  20
  21         /* Convert character byte-by-byte */
  22         mbstate_t st = { 0 };
  23         unsigned char b;
  24         int first = 1;
  25         do {
  26                 b = c = getc_unlocked(f);
  27                 if (c < 0) {
  28                         if (!first) errno = EILSEQ;
  29                         return WEOF;
  30                 }
  31                 l = mbrtowc(&wc, (void *)&b, 1, &st);
  32                 if (l == -1) {
  33                         if (!first) ungetc(b, f);
  34                         return WEOF;
  35                 }
  36                 first = 0;
  37         } while (l == -2);
  38
  39         return wc;
  40 }
  41
  42 wint_t __fgetwc_unlocked(FILE *f)
  43 {
  44         locale_t *ploc = &CURRENT_LOCALE, loc = *ploc;
  45         if (f->mode <= 0) fwide(f, 1);
  46         *ploc = f->locale;
  47         wchar_t wc = __fgetwc_unlocked_internal(f);
  48         *ploc = loc;
  49         return wc;
  50 }
  51
  52 wint_t fgetwc(FILE *f)
  53 {
  54         wint_t c;
  55         FLOCK(f);
  56         c = __fgetwc_unlocked(f);
  57         FUNLOCK(f);
  58         return c;
  59 }
  60
  61 weak_alias(__fgetwc_unlocked, fgetwc_unlocked);
  62 weak_alias(__fgetwc_unlocked, getwc_unlocked);