/* 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; char fname[] = "/tmp/tst-ungetwc2.out.XXXXXX"; int fd; long int pos; 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\n"); exit (EXIT_FAILURE); } /* Write some characters to `testfile'. */ fd = mkstemp (fname); if (fd == -1) { printf ("cannot open temp file: %m\n"); exit (EXIT_FAILURE); } if ((fp = fdopen (fd, "w")) == NULL) { fprintf (stderr, "Cannot open 'testfile'.\n"); exit (EXIT_FAILURE); } fputs (str, fp); fclose (fp); /* Open `testfile'. */ if ((fp = fopen (fname, "r")) == NULL) { fprintf (stderr, "Cannot open 'testfile'."); exit (EXIT_FAILURE); } /* Get a character. */ wc = getwc (fp); pos = ftell (fp); printf ("After get a character: %ld\n", pos); if (pos != 1) result = 1; /* Unget a character. */ ret = ungetwc (wc, fp); if (ret == WEOF) { fprintf (stderr, "ungetwc() returns NULL."); exit (EXIT_FAILURE); } pos = ftell (fp); printf ("After unget a character: %ld\n", pos); if (pos != 0) result = 1; /* Reget a character. */ wc = getwc (fp); pos = ftell (fp); printf ("After reget a character: %ld\n", pos); if (pos != 1) result = 1; fclose (fp); unlink (fname); return result; }