Red Bear OS
1b3e94a20d
From release 0.1.0 pre-patched archive. This includes all Red Bear modifications previously maintained as patches in local/patches/relibc/.
28 lines
483 B
C
28 lines
483 B
C
#include <wchar.h>
|
|
#include <wctype.h>
|
|
#include <stdio.h>
|
|
#include <stdlib.h>
|
|
#include <assert.h>
|
|
#include <locale.h>
|
|
|
|
int main()
|
|
{
|
|
setlocale(LC_ALL, "");
|
|
FILE *stream;
|
|
wint_t wc;
|
|
wint_t wc2;
|
|
|
|
if (NULL == (stream = fopen("wchar/ungetwc.in", "r+")))
|
|
return 1;
|
|
|
|
while (WEOF != (wc = fgetwc(stream)) && iswdigit(wc)) {}
|
|
|
|
if (WEOF != wc)
|
|
ungetwc(wc, stream);
|
|
|
|
wc2 = fgetwc(stream);
|
|
assert(WEOF != wc2);
|
|
assert(wc == wc2);
|
|
|
|
return 0;
|
|
} |