]>
Commit | Line | Data |
---|---|---|
5e473a71 UD |
1 | /* Taken from the Li18nux base test suite. */ |
2 | ||
3 | #define _XOPEN_SOURCE 500 | |
4 | #include <errno.h> | |
5 | #include <locale.h> | |
6 | #include <stdio.h> | |
7 | #include <stdlib.h> | |
8 | #include <unistd.h> | |
9 | #include <wchar.h> | |
10 | ||
11 | #define WIDE_STR_LEN 32 | |
12 | ||
13 | int | |
14 | main (int argc, char *argv[]) | |
15 | { | |
57b36a0a | 16 | size_t i; |
5e473a71 UD |
17 | FILE *fp; |
18 | wchar_t *ret, wcs[WIDE_STR_LEN]; | |
19 | int result = 0; | |
20 | const char il_str1[] = {0xe3, 0x81, '\0'}; | |
21 | const char il_str2[] = {'0', '\n', 'A', 'B', 0xe3, 0x81, 'E', '\0'}; | |
22 | char name1[] = "/tmp/tst-fgetws.out.XXXXXX"; | |
23 | char name2[] = "/tmp/tst-fgetws.out.XXXXXX"; | |
24 | int fd; | |
25 | ||
26 | puts ("This program runs on de_DE.UTF-8 locale."); | |
27 | if (setlocale (LC_ALL, "de_DE.UTF-8") == NULL) | |
28 | { | |
29 | fprintf (stderr, "Err: Cannot run on the de_DE.UTF-8 locale"); | |
30 | exit (EXIT_FAILURE); | |
31 | } | |
32 | ||
33 | /* Make a file `il_str1'. */ | |
34 | fd = mkstemp (name1); | |
35 | if (fd == -1) | |
36 | { | |
37 | printf ("cannot open temp file: %m\n"); | |
38 | exit (EXIT_FAILURE); | |
39 | } | |
40 | if ((fp = fdopen (fd, "w")) == NULL) | |
41 | { | |
42 | printf ("Can't open %s.\n", argv[1]); | |
43 | exit (EXIT_FAILURE); | |
44 | } | |
45 | fwrite (il_str1, sizeof (char), sizeof (il_str1), fp); | |
46 | fclose (fp); | |
47 | ||
48 | /* Make a file `il_str2'. */ | |
49 | fd = mkstemp (name2); | |
50 | if (fd == -1) | |
51 | { | |
52 | printf ("cannot open temp file: %m\n"); | |
53 | exit (EXIT_FAILURE); | |
54 | } | |
55 | if ((fp = fdopen (fd, "w")) == NULL) | |
56 | { | |
57 | fprintf (stderr, "Can't open %s.\n", argv[1]); | |
58 | exit (EXIT_FAILURE); | |
59 | } | |
60 | fwrite (il_str2, sizeof (char), sizeof (il_str2), fp); | |
61 | fclose (fp); | |
62 | ||
63 | ||
64 | /* Test for il_str1. */ | |
65 | if ((fp = fopen (name1, "r")) == NULL) | |
66 | { | |
67 | fprintf (stderr, "Can't open %s.\n", argv[1]); | |
68 | exit (EXIT_FAILURE); | |
69 | } | |
70 | ||
71 | puts ("--"); | |
72 | puts ("Read a byte sequence which is invalid as a wide character string."); | |
73 | puts (" bytes: 0xe3, 0x81, '\\0'"); | |
74 | ||
75 | errno = 0; | |
76 | ret = fgetws (wcs, WIDE_STR_LEN, fp); | |
77 | ||
78 | if (ret == NULL) | |
79 | { | |
80 | puts ("Return Value: NULL"); | |
81 | ||
82 | if (errno == EILSEQ) | |
83 | puts ("errno = EILSEQ"); | |
84 | else | |
85 | { | |
86 | printf ("errno = %d\n", errno); | |
87 | result = 1; | |
88 | } | |
89 | } | |
90 | else | |
91 | { | |
92 | printf ("Return Value: %p\n", ret); | |
93 | for (i = 0; i < wcslen (wcs) + 1; i++) | |
9a2d7205 | 94 | printf (" wcs[%zd] = %04x", i, (unsigned int)wcs[i]); |
5e473a71 UD |
95 | printf ("\n"); |
96 | result = 1; | |
97 | } | |
98 | ||
99 | /* Test for il_str2. */ | |
100 | if ((fp = fopen (name2, "r")) == NULL) | |
101 | { | |
102 | fprintf (stderr, "Can't open %s.\n", argv[1]); | |
103 | exit (EXIT_FAILURE); | |
104 | } | |
105 | ||
106 | puts ("--"); | |
107 | puts ("Read a byte sequence which is invalid as a wide character string."); | |
108 | puts (" bytes: '0', '\\n', 'A', 'B', 0xe3, 0x81, 'c', '\\0'"); | |
109 | ||
110 | errno = 0; | |
111 | ret = fgetws (wcs, WIDE_STR_LEN, fp); | |
112 | ||
113 | if (ret == NULL) | |
114 | { | |
115 | puts ("Return Value: NULL"); | |
116 | ||
117 | if (errno == EILSEQ) | |
118 | puts ("errno = EILSEQ"); | |
119 | else | |
120 | printf ("errno = %d\n", errno); | |
121 | ||
122 | result = 1; | |
123 | } | |
124 | else | |
125 | { | |
57b36a0a | 126 | size_t i; |
5e473a71 UD |
127 | |
128 | printf ("Return Value: %p\n", ret); | |
129 | for (i = 0; i < wcslen (wcs) + 1; i++) | |
9a2d7205 | 130 | printf (" wcs[%zd] = 0x%04x", i, (unsigned int)wcs[i]); |
5e473a71 UD |
131 | printf ("\n"); |
132 | ||
133 | for (i = 0; il_str2[i] != '\n'; ++i) | |
134 | if ((wchar_t) il_str2[i] != wcs[i]) | |
135 | { | |
136 | puts ("read string not correct"); | |
137 | result = 1; | |
138 | break; | |
139 | } | |
140 | if (il_str2[i] == '\n') | |
141 | { | |
142 | if (wcs[i] != L'\n') | |
143 | { | |
144 | puts ("newline missing"); | |
145 | result = 1; | |
146 | } | |
147 | else if (wcs[i + 1] != L'\0') | |
148 | { | |
149 | puts ("read string not NUL-terminated"); | |
150 | result = 1; | |
151 | } | |
152 | } | |
153 | } | |
154 | ||
155 | puts ("\nsecond line"); | |
156 | errno = 0; | |
157 | ret = fgetws (wcs, WIDE_STR_LEN, fp); | |
158 | ||
159 | if (ret == NULL) | |
160 | { | |
161 | puts ("Return Value: NULL"); | |
162 | ||
163 | if (errno == EILSEQ) | |
164 | puts ("errno = EILSEQ"); | |
165 | else | |
166 | { | |
167 | printf ("errno = %d\n", errno); | |
168 | result = 1; | |
169 | } | |
170 | } | |
171 | else | |
172 | { | |
173 | printf ("Return Value: %p\n", ret); | |
174 | for (i = 0; i < wcslen (wcs) + 1; i++) | |
9a2d7205 | 175 | printf (" wcs[%zd] = 0x%04x", i, (unsigned int)wcs[i]); |
5e473a71 UD |
176 | printf ("\n"); |
177 | } | |
178 | ||
179 | fclose (fp); | |
180 | ||
181 | unlink (name1); | |
182 | unlink (name2); | |
183 | ||
184 | return result; | |
185 | } |