#include <windows.h>
#include <stdio.h>
#include <string.h>
#include <stdlib.h>
#include <fcntl.h>

int _stdcall
WinMain (struct HINSTANCE__ *hInstance,
	struct HINSTANCE__ *hPrevInstance,
	char *lpszCmdLine,
	int   nCmdShow)
{
  if (__argc <= 2)
    {
      MessageBox (NULL, "spawn-test-win32-gui: Will write to stdout",
		  lpszCmdLine, MB_ICONINFORMATION|MB_SYSTEMMODAL);
      
      printf ("This is stdout\n");
      fflush (stdout);
      
      MessageBox (NULL, "spawn-test-win32-gui: Will write to stderr",
		  lpszCmdLine, MB_ICONINFORMATION|MB_SYSTEMMODAL);
      
      fprintf (stderr, "This is stderr\n");
      fflush (stderr);
    }
  else if (__argc == 4 && strcmp (__argv[1], "pipes") == 0)
    {
      int infd = atoi (__argv[2]);
      int outfd = atoi (__argv[3]);
      int k, n;
      char buf[100];

      if (infd < 0 || outfd < 0)
	{
	  MessageBox (NULL, "spawn-test-win32-gui: illegal fds on command line",
		      lpszCmdLine, MB_ICONERROR|MB_SYSTEMMODAL);
	  exit (1);
	}

      MessageBox (NULL, "spawn-test-win32-gui: Will write to parent",
		  lpszCmdLine, MB_ICONINFORMATION|MB_SYSTEMMODAL);

      n = strlen ("Hello there");
      if (write (outfd, &n, sizeof (n)) == -1 ||
	  write (outfd, "Hello there", n) == -1)
	{
	  sprintf (buf, "spawn-test-win32-gui: Write: %s", strerror (errno));
	  MessageBox (NULL, buf, lpszCmdLine, MB_ICONERROR|MB_SYSTEMMODAL);
	  exit (1);
	}

      MessageBox (NULL, "spawn-test-win32-gui: Will read from parent",
		  lpszCmdLine, MB_ICONINFORMATION|MB_SYSTEMMODAL);

      if ((k = read (infd, &n, sizeof (n))) != sizeof (n))
	{
	  sprintf (buf, "spawn-test-win32-gui: Got only %d bytes, wanted %d",
		   k, sizeof (n));
	  MessageBox (NULL, buf, lpszCmdLine, MB_ICONERROR|MB_SYSTEMMODAL);
	  exit (1);
	}

      sprintf (buf, "spawn-test-win32-gui: Parent says %d bytes to read", n);
      MessageBox (NULL, buf, lpszCmdLine, MB_ICONINFORMATION|MB_SYSTEMMODAL);

      if ((k = read (infd, buf, n)) != n)
	{
	  if (k == -1)
	    sprintf (buf, "spawn-test-win32-gui: Read: %s", strerror (errno));
	  else
	    sprintf (buf, "spawn-test-win32-gui: Got only %d bytes", k);
	  MessageBox (NULL, buf, lpszCmdLine, MB_ICONERROR|MB_SYSTEMMODAL);
	  exit (1);
	}

      MessageBox (NULL, "spawn-test-win32-gui: Will write more to parent",
		  lpszCmdLine, MB_ICONINFORMATION|MB_SYSTEMMODAL);

      n = strlen ("See ya");
      if (write (outfd, &n, sizeof (n)) == -1 ||
	  write (outfd, "See ya", n) == -1)
	{
	  sprintf (buf, "spawn-test-win32-gui: Write: %s", strerror (errno));
	  MessageBox (NULL, buf, lpszCmdLine, MB_ICONERROR|MB_SYSTEMMODAL);
	  exit (1);
	}
    }

  MessageBox (NULL, "spawn-test-win32-gui: Sleeping a bit.",
	      lpszCmdLine, MB_ICONINFORMATION|MB_SYSTEMMODAL);
  
  Sleep (2000);
  
  MessageBox (NULL, "spawn-test-win32-gui: Done, exiting.",
	      lpszCmdLine, MB_ICONINFORMATION|MB_SYSTEMMODAL);

  return 0;
}
