#define _XOPEN_SOURCE 500
#include <errno.h>
#include <locale.h>
#include <stdio.h>
#include <stdlib.h>
#include <unistd.h>
#include <wchar.h>
#define WIDE_STR_LEN 32
int
main(int argc, char *argv[])
{
size_t i;
FILE *fp;
wchar_t *ret, wcs[WIDE_STR_LEN];
int result = 0;
const char il_str1[] = { 0xe3, 0x81, '\0' };
const char il_str2[] = { '0', '\n', 'A', 'B', 0xe3, 0x81, 'E', '\0' };
char name1[] = "/tmp/tst-fgetws.out.XXXXXX";
char name2[] = "/tmp/tst-fgetws.out.XXXXXX";
int fd;
puts("This program runs on de_DE.UTF-8 locale.");
if (setlocale(LC_ALL, "de_DE.UTF-8") == NULL) {
fprintf(stderr, "Err: Cannot run on the de_DE.UTF-8 locale");
exit(EXIT_FAILURE);
}
fd = mkstemp(name1);
if (fd == -1) {
printf("cannot open temp file: %m\n");
exit(EXIT_FAILURE);
}
if ((fp = fdopen(fd, "w")) == NULL) {
printf("Can't open %s.\n", argv[1]);
exit(EXIT_FAILURE);
}
fwrite(il_str1, sizeof(char), sizeof(il_str1), fp);
fclose(fp);
fd = mkstemp(name2);
if (fd == -1) {
printf("cannot open temp file: %m\n");
exit(EXIT_FAILURE);
}
if ((fp = fdopen(fd, "w")) == NULL) {
fprintf(stderr, "Can't open %s.\n", argv[1]);
exit(EXIT_FAILURE);
}
fwrite(il_str2, sizeof(char), sizeof(il_str2), fp);
fclose(fp);
if ((fp = fopen(name1, "r")) == NULL) {
fprintf(stderr, "Can't open %s.\n", argv[1]);
exit(EXIT_FAILURE);
}
puts("--");
puts("Read a byte sequence which is invalid as a wide character string.");
puts(" bytes: 0xe3, 0x81, '\\0'");
errno = 0;
ret = fgetws(wcs, WIDE_STR_LEN, fp);
if (ret == NULL) {
puts("Return Value: NULL");
if (errno == EILSEQ)
puts("errno = EILSEQ");
else {
printf("errno = %d\n", errno);
result = 1;
}
} else {
printf("Return Value: %p\n", ret);
for (i = 0; i < wcslen(wcs) + 1; i++)
printf(" wcs[%zd] = %04x", i, (unsigned int) wcs[i]);
printf("\n");
result = 1;
}
if ((fp = fopen(name2, "r")) == NULL) {
fprintf(stderr, "Can't open %s.\n", argv[1]);
exit(EXIT_FAILURE);
}
puts("--");
puts("Read a byte sequence which is invalid as a wide character string.");
puts(" bytes: '0', '\\n', 'A', 'B', 0xe3, 0x81, 'c', '\\0'");
errno = 0;
ret = fgetws(wcs, WIDE_STR_LEN, fp);
if (ret == NULL) {
puts("Return Value: NULL");
if (errno == EILSEQ)
puts("errno = EILSEQ");
else
printf("errno = %d\n", errno);
result = 1;
} else {
size_t i;
printf("Return Value: %p\n", ret);
for (i = 0; i < wcslen(wcs) + 1; i++)
printf(" wcs[%zd] = 0x%04x", i, (unsigned int) wcs[i]);
printf("\n");
for (i = 0; il_str2[i] != '\n'; ++i)
if ((wchar_t) il_str2[i] != wcs[i]) {
puts("read string not correct");
result = 1;
break;
}
if (il_str2[i] == '\n') {
if (wcs[i] != L'\n') {
puts("newline missing");
result = 1;
} else if (wcs[i + 1] != L'\0') {
puts("read string not NUL-terminated");
result = 1;
}
}
}
puts("\nsecond line");
errno = 0;
ret = fgetws(wcs, WIDE_STR_LEN, fp);
if (ret == NULL) {
puts("Return Value: NULL");
if (errno == EILSEQ)
puts("errno = EILSEQ");
else {
printf("errno = %d\n", errno);
result = 1;
}
} else {
printf("Return Value: %p\n", ret);
for (i = 0; i < wcslen(wcs) + 1; i++)
printf(" wcs[%zd] = 0x%04x", i, (unsigned int) wcs[i]);
printf("\n");
}
fclose(fp);
unlink(name1);
unlink(name2);
return result;
}
