static signal_handler sig_handlers[NSIG];
/* Fake signal implementation to record the SIGCHLD handler. */
-signal_handler
+signal_handler
sys_signal (int sig, signal_handler handler)
{
signal_handler old;
-
+
if (sig != SIGCHLD)
{
errno = EINVAL;
{
child_process *cp;
DWORD id;
-
+
for (cp = child_procs+(child_proc_count-1); cp >= child_procs; cp--)
if (!CHILD_ACTIVE (cp))
goto Initialise;
return NULL;
}
-void
+void
delete_child (child_process *cp)
{
int i;
is normally blocked until woken by select() to check for input by
reading one char. When the read completes, char_avail is signalled
to wake up the select emulator and the thread blocks itself again. */
-DWORD WINAPI
+DWORD WINAPI
reader_thread (void *arg)
{
child_process *cp;
-
+
/* Our identity */
cp = (child_process *)arg;
-
+
/* We have to wait for the go-ahead before we can start */
if (cp == NULL
|| WaitForSingleObject (cp->char_consumed, INFINITE) != WAIT_OBJECT_0)
if (rc == STATUS_READ_ERROR)
return 1;
-
+
/* If the read died, the child has died so let the thread die */
if (rc == STATUS_READ_FAILED)
break;
-
+
/* Wait until our input is acknowledged before reading again */
if (WaitForSingleObject (cp->char_consumed, INFINITE) != WAIT_OBJECT_0)
{
sys_spawnve, and is not generally valid at any other time. */
static char * process_dir;
-static BOOL
+static BOOL
create_child (char *exe, char *cmdline, char *env, int is_gui_app,
int * pPid, child_process *cp)
{
#endif
DWORD flags;
char dir[ MAXPATHLEN ];
-
+
if (cp == NULL) abort ();
-
+
memset (&start, 0, sizeof (start));
start.cb = sizeof (start);
-
+
#ifdef HAVE_NTGUI
if (NILP (Vw32_start_process_show_window) && !is_gui_app)
start.dwFlags = STARTF_USESTDHANDLES | STARTF_USESHOWWINDOW;
sec_attrs.nLength = sizeof (sec_attrs);
sec_attrs.lpSecurityDescriptor = NULL /* &sec_desc */;
sec_attrs.bInheritHandle = FALSE;
-
+
strcpy (dir, process_dir);
unixtodos_filename (dir);
to register the handle with the process
This way the select emulator knows how to match file handles with
entries in child_procs. */
-void
+void
register_child (int pid, int fd)
{
child_process *cp;
-
+
cp = find_child_pid (pid);
if (cp == NULL)
{
DebPrint (("register_child unable to find pid %lu\n", pid));
return;
}
-
+
#ifdef FULL_DEBUG
DebPrint (("register_child registered fd %d with pid %lu\n", fd, pid));
#endif
-
+
cp->fd = fd;
/* thread is initially blocked until select is called; set status so
signal failure to the select emulator.
The select emulator then calls this routine to clean up.
Since the thread signaled failure we can assume it is exiting. */
-static void
+static void
reap_subprocess (child_process *cp)
{
if (cp->procinfo.hProcess)
When it does, close its handle
Return the pid and fill in the status if non-NULL. */
-int
+int
sys_wait (int *status)
{
DWORD active, retval;
int pid;
child_process *cp, *cps[MAX_CHILDREN];
HANDLE wait_hnd[MAX_CHILDREN];
-
+
nh = 0;
if (dead_child != NULL)
{
nh++;
}
}
-
+
if (nh == 0)
{
/* Nothing to wait on, so fail */
retval = SIGINT;
else
retval <<= 8;
-
+
cp = cps[active];
pid = cp->pid;
#ifdef FULL_DEBUG
}
reap_subprocess (cp);
-
+
return pid;
}
{
file_data executable;
char * p;
-
+
/* Default values in case we can't tell for sure. */
*is_dos_app = FALSE;
*is_cygnus_app = FALSE;
return;
p = strrchr (filename, '.');
-
+
/* We can only identify DOS .com programs from the extension. */
if (p && stricmp (p, ".com") == 0)
*is_dos_app = TRUE;
nt_header = (PIMAGE_NT_HEADERS) ((char *) dos_header + dos_header->e_lfanew);
- if ((char *) nt_header > (char *) dos_header + executable.size)
+ if ((char *) nt_header > (char *) dos_header + executable.size)
{
/* Some dos headers (pkunzip) have bogus e_lfanew fields. */
*is_dos_app = TRUE;
- }
+ }
else if (nt_header->Signature != IMAGE_NT_SIGNATURE
&& LOWORD (nt_header->Signature) != IMAGE_OS2_SIGNATURE)
{
*is_gui_app = (nt_header->OptionalHeader.Subsystem == IMAGE_SUBSYSTEM_WINDOWS_GUI);
}
}
-
+
unwind:
close_file_data (&executable);
}
/* When a new child process is created we need to register it in our list,
so intercept spawn requests. */
-int
+int
sys_spawnve (int mode, char *cmdname, char **argv, char **envp)
{
Lisp_Object program, full;
if (NILP (Ffile_executable_p (program)))
{
struct gcpro gcpro1;
-
+
full = Qnil;
GCPRO1 (program);
openp (Vexec_path, program, Vexec_suffixes, &full, make_number (X_OK));
}
unixtodos_filename (cmdname);
}
-
+
/* we have to do some conjuring here to put argv and envp into the
form CreateProcess wants... argv needs to be a space separated/null
terminated list of parameters, and envp is a null
else
escape_char = is_cygnus_app ? '"' : '\\';
}
-
- /* Cygwin apps needs quoting a bit more often */
+
+ /* Cygwin apps needs quoting a bit more often */
if (escape_char == '"')
sepchars = "\r\n\t\f '";
targ++;
}
*--parg = '\0';
-
+
/* and envp... */
arglen = 1;
targ = envp;
numenv++;
}
/* extra env vars... */
- sprintf (ppid_env_var_buffer, "EM_PARENT_PROCESS_ID=%d",
+ sprintf (ppid_env_var_buffer, "EM_PARENT_PROCESS_ID=%d",
GetCurrentProcessId ());
arglen += strlen (ppid_env_var_buffer) + 1;
numenv++;
errno = EAGAIN;
return -1;
}
-
+
/* Now create the process. */
if (!create_child (cmdname, cmdline, env, is_gui_app, &pid, cp))
{
errno = ENOEXEC;
return -1;
}
-
+
return pid;
}
/* From process.c */
extern int proc_buffered_char[];
-int
+int
sys_select (int nfds, SELECT_TYPE *rfds, SELECT_TYPE *wfds, SELECT_TYPE *efds,
EMACS_TIME *timeout)
{
child_process *cp, *cps[MAX_CHILDREN];
HANDLE wait_hnd[MAXDESC + MAX_CHILDREN];
int fdindex[MAXDESC]; /* mapping from wait handles back to descriptors */
-
+
timeout_ms = timeout ? (timeout->tv_sec * 1000 + timeout->tv_usec / 1000) : INFINITE;
/* If the descriptor sets are NULL but timeout isn't, then just Sleep. */
- if (rfds == NULL && wfds == NULL && efds == NULL && timeout != NULL)
+ if (rfds == NULL && wfds == NULL && efds == NULL && timeout != NULL)
{
Sleep (timeout_ms);
return 0;
errno = EINVAL;
return -1;
}
-
+
orfds = *rfds;
FD_ZERO (rfds);
nr = 0;
/* Always wait on interrupt_handle, to detect C-g (quit). */
wait_hnd[0] = interrupt_handle;
fdindex[0] = -1;
-
+
/* Build a list of pipe handles to wait on. */
nh = 1;
for (i = 0; i < nfds; i++)
cps[nc] = cp;
nc++;
}
-
+
/* Nothing to look for, so we didn't find anything */
- if (nh + nc == 0)
+ if (nh + nc == 0)
{
if (timeout)
Sleep (timeout_ms);
return 0;
}
-
+
start_time = GetTickCount ();
/* Wait for input or child death to be signalled. If user input is
return TRUE;
}
-int
+int
sys_kill (int pid, int sig)
{
child_process *cp;
HANDLE proc_hand;
int need_to_free = 0;
int rc = 0;
-
+
/* Only handle signals that will result in the process dying */
if (sig != SIGINT && sig != SIGKILL && sig != SIGQUIT && sig != SIGHUP)
{
/* Try to locate console window for process. */
EnumWindows (find_child_console, (LPARAM) cp);
}
-
+
if (sig == SIGINT || sig == SIGQUIT)
{
if (NILP (Vw32_start_process_share_console) && cp && cp->hwnd)
handles[2] = GetStdHandle (STD_ERROR_HANDLE);
/* make inheritable copies of the new handles */
- if (!DuplicateHandle (parent,
+ if (!DuplicateHandle (parent,
(HANDLE) _get_osfhandle (in),
parent,
- &newstdin,
- 0,
- TRUE,
+ &newstdin,
+ 0,
+ TRUE,
DUPLICATE_SAME_ACCESS))
report_file_error ("Duplicating input handle for child", Qnil);
-
+
if (!DuplicateHandle (parent,
(HANDLE) _get_osfhandle (out),
parent,
TRUE,
DUPLICATE_SAME_ACCESS))
report_file_error ("Duplicating output handle for child", Qnil);
-
+
if (!DuplicateHandle (parent,
(HANDLE) _get_osfhandle (err),
parent,
/* and store them as our std handles */
if (!SetStdHandle (STD_INPUT_HANDLE, newstdin))
report_file_error ("Changing stdin handle", Qnil);
-
+
if (!SetStdHandle (STD_OUTPUT_HANDLE, newstdout))
report_file_error ("Changing stdout handle", Qnil);
return make_number (GetUserDefaultLCID ());
}
-
+
DEFUN ("w32-set-current-locale", Fw32_set_current_locale, Sw32_set_current_locale, 1, 1, 0,
doc: /* Make Windows locale LCID be the current locale setting for Emacs.
If successful, the new locale id is returned, otherwise nil. */)
return make_number (GetConsoleCP ());
}
-
+
DEFUN ("w32-set-console-codepage", Fw32_set_console_codepage,
Sw32_set_console_codepage, 1, 1, 0,
doc: /* Make Windows codepage CP be the current codepage setting for Emacs.
return make_number (GetConsoleOutputCP ());
}
-
+
DEFUN ("w32-set-console-output-codepage", Fw32_set_console_output_codepage,
Sw32_set_console_output_codepage, 1, 1, 0,
doc: /* Make Windows codepage CP be the current codepage setting for Emacs.
make_number ((kl >> 16) & 0xffff));
}
-
+
DEFUN ("w32-set-keyboard-layout", Fw32_set_keyboard_layout,
Sw32_set_keyboard_layout, 1, 1, 0,
doc: /* Make LAYOUT be the current keyboard layout for Emacs.
This applies when performing completions and file name expansion.
Note that the value of this setting also affects remote file names,
so you probably don't want to set to non-nil if you use case-sensitive
-filesystems via ange-ftp. */);
+filesystems via ange-ftp. */);
Vw32_downcase_file_names = Qnil;
#if 0
HCoop / bpt / emacs.git / blobdiff