/* Taken from the Li18nux base test suite.  */

#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);

    }

  /* Make a file `il_str1'. */

  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);

  /* Make a file `il_str2'. */

  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);

  /* Test for il_str1. */

  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;

    }

  /* Test for il_str2. */

  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;

}