fgetwc.c revision 103539
1101776Stjr/*- 2101776Stjr * Copyright (c) 2002 Tim J. Robbins. 3101776Stjr * All rights reserved. 4101776Stjr * 5101776Stjr * Redistribution and use in source and binary forms, with or without 6101776Stjr * modification, are permitted provided that the following conditions 7101776Stjr * are met: 8101776Stjr * 1. Redistributions of source code must retain the above copyright 9101776Stjr * notice, this list of conditions and the following disclaimer. 10101776Stjr * 2. Redistributions in binary form must reproduce the above copyright 11101776Stjr * notice, this list of conditions and the following disclaimer in the 12101776Stjr * documentation and/or other materials provided with the distribution. 13101776Stjr * 14101776Stjr * THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND CONTRIBUTORS ``AS IS'' AND 15101776Stjr * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE 16101776Stjr * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE 17101776Stjr * ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE 18101776Stjr * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL 19101776Stjr * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS 20101776Stjr * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) 21101776Stjr * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT 22101776Stjr * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY 23101776Stjr * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF 24101776Stjr * SUCH DAMAGE. 25101776Stjr */ 26101776Stjr 27101776Stjr#include <sys/cdefs.h> 28101776Stjr__FBSDID("$FreeBSD: head/lib/libc/stdio/fgetwc.c 103539 2002-09-18 12:17:28Z tjr $"); 29101776Stjr 30101776Stjr#include "namespace.h" 31101776Stjr#include <errno.h> 32101776Stjr#include <stdio.h> 33103523Stjr#include <stdlib.h> 34101776Stjr#include <wchar.h> 35101776Stjr#include "un-namespace.h" 36101776Stjr#include "libc_private.h" 37101776Stjr#include "local.h" 38101776Stjr 39103539Stjrstatic __inline wint_t __fgetwc_nbf(FILE *); 40103539Stjr 41101776Stjrwint_t 42101776Stjrfgetwc(FILE *fp) 43101776Stjr{ 44103539Stjr wint_t wc; 45103539Stjr 46103539Stjr FLOCKFILE(fp); 47103539Stjr ORIENT(fp, 1); 48103539Stjr if (MB_CUR_MAX == 1) { 49103539Stjr /* 50103539Stjr * Assume we're using a single-byte locale. A safer test 51103539Stjr * might be to check _CurrentRuneLocale->encoding. 52103539Stjr */ 53103539Stjr wc = (wint_t)__sgetc(fp); 54103539Stjr } else 55103539Stjr wc = __fgetwc_nbf(fp); 56103539Stjr FUNLOCKFILE(fp); 57103539Stjr 58103539Stjr return (wc); 59103539Stjr} 60103539Stjr 61103539Stjrstatic __inline wint_t 62103539Stjr__fgetwc_nbf(FILE *fp) 63103539Stjr{ 64103523Stjr char buf[MB_LEN_MAX]; 65103523Stjr mbstate_t mbs; 66103523Stjr size_t n, nconv; 67103523Stjr int c; 68103523Stjr wchar_t wc; 69101776Stjr 70103523Stjr n = 0; 71103523Stjr while (n < MB_CUR_MAX) { 72103539Stjr if ((c = __sgetc(fp)) == EOF) { 73103523Stjr if (n == 0) 74103523Stjr return (WEOF); 75103523Stjr break; 76103523Stjr } 77103523Stjr buf[n++] = (char)c; 78103523Stjr memset(&mbs, 0, sizeof(mbs)); 79103523Stjr nconv = mbrtowc(&wc, buf, n, &mbs); 80103523Stjr if (nconv == n) 81103523Stjr return (wc); 82103523Stjr else if (nconv == 0) 83103523Stjr return (L'\0'); 84103538Stjr else if (nconv == (size_t)-1) 85103523Stjr break; 86103523Stjr } 87101776Stjr 88103539Stjr FUNLOCKFILE(fp); 89103523Stjr while (n-- != 0) 90103523Stjr ungetc((unsigned char)buf[n], fp); 91103539Stjr FLOCKFILE(fp); 92103523Stjr errno = EILSEQ; 93103523Stjr return (WEOF); 94101776Stjr} 95