Remove unused custom versions of monad combinators from IOEnv
[ghc-hetmet.git] / InstallShield / runexe.c
1 #include <stdarg.h>
2 #include <stdio.h>
3 #include <windows.h>
4
5 const char *prog = "runexe";
6
7 #define BUFLEN 65537
8
9 void die(char *fmt, ...)
10 {
11   va_list ap = va_start(ap, fmt);
12
13   fprintf(stderr, "%s: ", prog);
14   vfprintf(stderr, fmt, ap);
15   fprintf(stderr, "\n");
16   va_end(ap);
17   exit(1);
18 }
19
20 void warn(char *fmt, ...)
21 {
22   va_list ap = va_start(ap, fmt);
23
24   fprintf(stderr, "%s: ", prog);
25   vfprintf(stderr, fmt, ap);
26   fprintf(stderr, "\n");
27   va_end(ap);
28 }
29
30 int APIENTRY WinMain(HINSTANCE hInstance, HINSTANCE hPrevInstance, LPSTR lpszCmdParam, int nCmdShow)
31 {
32   STARTUPINFO sInfo;
33   PROCESS_INFORMATION pInfo;
34   TCHAR buf[BUFLEN];
35   DWORD retCode;
36
37   sInfo.cb              = sizeof(STARTUPINFO);
38   sInfo.lpReserved      = NULL;
39   sInfo.lpReserved2     = NULL;
40   sInfo.cbReserved2     = 0;
41   sInfo.lpDesktop       = NULL;
42   sInfo.lpTitle         = NULL;
43   sInfo.dwFlags         = 0;
44
45   if (GetCurrentDirectory(BUFLEN, buf) == 0) die("couldn't get current directory");
46   if (strlen(lpszCmdParam) == 0) die("no parameters given");
47   warn("cwd: %s\n", buf);
48   warn("runexing >>>%s<<<\n", lpszCmdParam);
49   if (!CreateProcess(NULL, lpszCmdParam, NULL, NULL, TRUE, 0, NULL, NULL, &sInfo, &pInfo))
50     die("could not create process");
51
52   WaitForSingleObject(pInfo.hProcess, INFINITE);
53   if (GetExitCodeProcess(pInfo.hProcess, &retCode) == 0) retCode = -1;
54   CloseHandle(pInfo.hProcess);
55   CloseHandle(pInfo.hThread);
56   printf("return code %ld\n", retCode);
57
58   return retCode;
59 }