Changeset 12824

Timestamp:

Sep 12, 2009, 6:52:50 PM (10 years ago)

Author:

gb

Message:

moved here

Location:

trunk/aux/cocotron/win32/cocotron/WaltConsole

Files:

• . (copied) (copied from trunk/source/cocoa-ide/WaltConsole)
• WaltConsole.c (modified) (3 diffs)
• WaltConsole.exe (modified) (previous)

trunk/aux/cocotron/win32/cocotron/WaltConsole/WaltConsole.c

@@ -123 +123 @@
 int APIENTRY WinMain(HINSTANCE a,HINSTANCE b,LPSTR c,int d)
 {
-  HANDLE in, out, conin, conout;
-  DWORD navail, err;
+  HANDLE in, out, conin, conout, hppid;
+  DWORD navail, err, exitcode;
   ULONG ppid;
   HWND window;
@@ -151 +151 @@
   ppid = getppid();
   procname = parent_process_name(ppid);
+  hppid = OpenProcess(PROCESS_QUERY_INFORMATION|SYNCHRONIZE,FALSE,ppid);
   if (!procname) {
     procname = "<Unknown>";
   }
   sprintf(title, "WaltConsole for %s (pid 0x%x)", procname, ppid);
-  SetConsoleTitleA(
-title);
+  SetConsoleTitleA(title);
 
   window = GetConsoleWindow();
@@ -166 +166 @@
 
   do {
+    if (WaitForSingleObject(hppid, 0) == WAIT_OBJECT_0) {
+      break;
+    }
     if (write_pipe_input_to_console(in, conout) < 0) {
       break;