xemacs-beta: src/process-nt.c comparison

comparison src/process-nt.c @ 854:1d8fb2eee1bb

[xemacs-hg @ 2002-05-28 16:06:58 by didierv] Fix header inclusion order

author	didierv
date	Tue, 28 May 2002 16:07:03 +0000
parents	2b6fa2618f76
children	84762348c6f9

comparison

equal deleted inserted replaced

-:2b6fa2618f76
+:1d8fb2eee1bb
 #include "hash.h"
 #include "lstream.h"
 #include "process.h"
 #include "procimpl.h"
-#include "syssignal.h"
+#include "syssignal.h" /* Always include before sysproc.h -- didier */
 #include "sysfile.h"
 #include "sysproc.h"
 /* Bound by win32-native.el */
 Lisp_Object Qmswindows_construct_process_command_line;
 * further by other routines. Return nonzero if successful.
 *
 * The memory in other process is allocated by creating a suspended
 * thread. Initial stack of that thread is used as the memory
 * block. The thread entry point is the routine ExitThread in
 * kernel32.dll, so the allocated memory is freed just by resuming the
 * thread, which immediately terminates after that.
 */
 static int
 alloc_process_memory (HANDLE h_process, Bytecount size,
 		      process_memory *pmc)
 {
 LPTHREAD_START_ROUTINE adr_ExitThread =
 (LPTHREAD_START_ROUTINE)
 {
 HANDLE h_process;
 HMODULE h_kernel = qxeGetModuleHandle (XETEXT ("kernel32"));
 int close_process = 0;
 DWORD retval;
 assert (h_kernel != NULL);
 if (cp)
 {
 pid = cp->dwProcessId;
 h_process = cp->h_process;
 }
 else
 {
 close_process = 1;
 /* Try to open the process with required privileges */
 h_process = OpenProcess (PROCESS_CREATE_THREAD
 			       | PROCESS_QUERY_INFORMATION
 			       | PROCESS_VM_OPERATION
 			       | PROCESS_VM_WRITE,
 			       FALSE, pid);
 if (!h_process)
 	return 0;
 	sigkill_data d;
 	d.adr_ExitProcess =
 	  (void (WINAPI *) (UINT)) GetProcAddress (h_kernel, "ExitProcess");
 	assert (d.adr_ExitProcess);
 	retval = run_in_other_process (h_process,
 				       (LPTHREAD_START_ROUTINE) sigkill_proc,
 				       &d, sizeof (d));
 	break;
 }
 case SIGINT:
 	d.adr_GenerateConsoleCtrlEvent =
 	  (BOOL (WINAPI *) (DWORD, DWORD))
 	  GetProcAddress (h_kernel, "GenerateConsoleCtrlEvent");
 	assert (d.adr_GenerateConsoleCtrlEvent);
 	d.event = CTRL_C_EVENT;
 	retval = run_in_other_process (h_process,
 				       (LPTHREAD_START_ROUTINE) sigint_proc,
 				       &d, sizeof (d));
 	break;
 }
 default:
 static void
 enable_child_signals (HANDLE h_process)
 {
 HMODULE h_kernel = qxeGetModuleHandle (XETEXT ("kernel32"));
 sig_enable_data d;
 assert (h_kernel != NULL);
 d.adr_SetConsoleCtrlHandler =
 (BOOL (WINAPI *) (LPVOID, BOOL))
 GetProcAddress (h_kernel, "SetConsoleCtrlHandler");
 assert (d.adr_SetConsoleCtrlHandler);
 run_in_other_process (h_process, (LPTHREAD_START_ROUTINE)sig_enable_proc,
 			&d, sizeof (d));
 }
 /* ---------------------------- the 95 way ------------------------------- */
 static BOOL CALLBACK
 find_child_console (HWND hwnd, long putada)
 {
 send_signal_the_95_way (struct nt_process_data *cp, int pid, int signo)
 {
 HANDLE h_process;
 int close_process = 0;
 int rc = 1;
 if (cp)
 {
 pid = cp->dwProcessId;
 h_process = cp->h_process;
 /* Try to open the process with required privileges */
 h_process = OpenProcess (PROCESS_TERMINATE, FALSE, pid);
 if (!h_process)
 	return 0;
 }
 if (signo == SIGINT)
 {
 if (NILP (Vmswindows_start_process_share_console) && cp && cp->hwnd)
 	{
 	  BYTE control_scan_code = (BYTE) MapVirtualKeyA (VK_CONTROL, 0);
 if (signo != SIGKILL && signo != SIGTERM
 && signo != SIGQUIT && signo != SIGINT
 && signo != SIGHUP)
 invalid_constant ("Signal number not supported", make_int (signo));
 }
 /*-----------------------------------------------------------------------*/
 /* Process methods							 */
 /*-----------------------------------------------------------------------*/
 /*
 /* Decide whether to do I/O on process handles, or just mark the
 process exited immediately upon successful launching. We do I/O if the
 process is a console one, or if it is windowed but windowed_process_io
 is non-zero */
 do_io = !windowed || windowed_process_io ;
 if (do_io)
 {
 /* Create two unidirectional named pipes */
 HANDLE htmp;
 SECURITY_ATTRIBUTES sa;
 {
 Intbyte **env;
 REGISTER Lisp_Object tem;
 REGISTER Intbyte **new_env;
 REGISTER int new_length = 0, i;
 for (tem = Vprocess_environment;
 	 (CONSP (tem)
 	  && STRINGP (XCAR (tem)));
 	 tem = XCDR (tem))
 new_length++;
 /* FSF adds an extra env var to hold the current process ID of the
 Emacs process.  Apparently this is used only by emacsserver.c,
 which we have superseded by gnuserv.c. (#### Does it work under
 MS Windows?)
 sprintf (ppid_env_var_buffer, "EM_PARENT_PROCESS_ID=%d",
 GetCurrentProcessId ());
 arglen += strlen (ppid_env_var_buffer) + 1;
 numenv++;
 */
 /* new_length + 1 to include terminating 0.  */
 env = new_env = alloca_array (Intbyte *, new_length + 1);
 /* Copy the Vprocess_environment strings into new_env.  */
 for (tem = Vprocess_environment;
 	 (CONSP (tem)
 	  && STRINGP (XCAR (tem)));
 	 tem = XCDR (tem))
 	  }
 	*new_env++ = string;
 duplicate: ;
 }
 *new_env = 0;
 /* Sort the environment variables */
 new_length = new_env - env;
 qsort (env, new_length, sizeof (Intbyte *), mswindows_compare_env);
 {
 	    qxestrcpy (cmdname, XSTRING_DATA (Vinvocation_directory));
 	    qxestrcat (cmdname, (Intbyte *) "cmdproxy.exe");
 	  }
 }
 #endif
 /* Create process */
 {
 STARTUPINFOW si;
 PROCESS_INFORMATION pi;
 DWORD err;
 	/* These just have been inherited; we do not need a copy */
 	CloseHandle (hprocin);
 	CloseHandle (hprocout);
 	CloseHandle (hprocerr);
 }
 /* Handle process creation failure */
 if (err)
 {
 	if (do_io)
 	  {
 return ((int)pi.dwProcessId);
 }
 }
 /*
 * This method is called to update status fields of the process
 * structure. If the process has not existed, this method is expected
 * to do nothing.
 *
 * The method is called only for real child processes.
 */
 static void
 nt_update_status_if_terminated (Lisp_Process *p)
 {
 /* We don't want to be blocked on connect */
 {
 unsigned long nonblock = 1;
 ioctlsocket (s, FIONBIO, &nonblock);
 }
 retval = connect (s, (struct sockaddr *) &address, sizeof (address));
 if (retval != NO_ERROR && WSAGetLastError() != WSAEWOULDBLOCK)
 {
 errnum = WSAGetLastError ();
 goto connect_failed;

Mercurial > hg > xemacs-beta

comparison src/process-nt.c @ 854:1d8fb2eee1bb