/* Taken from the Li18nux base test suite. */ #define _XOPEN_SOURCE 500 #include <locale.h> #include <stdio.h> #include <stdlib.h> #include <unistd.h> #include <wchar.h> int main (void) { FILE *fp; const char *str = "abcdef"; wint_t ret, wc, ungetone = 0x00E4; /* 0x00E4 means `a umlaut'. */ char fname[] = "/tmp/tst-ungetwc1.out.XXXXXX"; int fd; int result = 0; 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 (fname); if (fd == -1) { printf ("cannot open temp file: %m\n"); exit (EXIT_FAILURE); } /* Write some characters to `testfile'. */ if ((fp = fdopen (fd, "w")) == NULL) { fprintf (stderr, "Cannot open 'testfile'."); exit (EXIT_FAILURE); } fputs (str, fp); fclose (fp); /* Open `testfile'. */ if ((fp = fopen (fname, "r")) == NULL) { fprintf (stderr, "Cannot open 'testfile'."); exit (EXIT_FAILURE); } /* Unget a character. */ ret = ungetwc (ungetone, fp); printf ("Unget a character (0x%04x)\n", (unsigned int) ungetone); fflush (stdout); if (ret == WEOF) { puts ("ungetwc() returns NULL."); exit (EXIT_SUCCESS); } /* Reget a character. */ wc = getwc (fp); printf ("Reget a character (0x%04x)\n", (unsigned int) wc); fflush (stdout); if (wc == ungetone) { puts ("The ungotten character is equal to the regotten character."); fflush (stdout); } else { puts ("The ungotten character is not equal to the regotten character."); printf ("ungotten one: %04x, regetone: %04x", ungetone, wc); fflush (stdout); result = 1; } fclose (fp); unlink (fname); return result; }