diff options
| author | Richard M. Stallman | 1996-04-26 19:55:27 +0000 |
|---|---|---|
| committer | Richard M. Stallman | 1996-04-26 19:55:27 +0000 |
| commit | 7795ff9bc0ebd9dc55225f5ec0254845537ba1fc (patch) | |
| tree | 5dce33d7b01ed5e29927113a4c65ccbe9fc1d9c7 /src | |
| parent | f3849f257d7cb157c861cec9557e775b26a74e49 (diff) | |
| download | emacs-7795ff9bc0ebd9dc55225f5ec0254845537ba1fc.tar.gz emacs-7795ff9bc0ebd9dc55225f5ec0254845537ba1fc.zip | |
(Fopen_network_stream): Set process infd to inch.
(create_process, read_process_output, Fsignal_process) [WINDOWSNT]:
Remove conditional NT code.
Diffstat (limited to 'src')
| -rw-r--r-- | src/process.c | 29 |
1 files changed, 3 insertions, 26 deletions
diff --git a/src/process.c b/src/process.c index 1637ab6e7db..a5eba6c9f17 100644 --- a/src/process.c +++ b/src/process.c | |||
| @@ -1255,22 +1255,12 @@ create_process (process, new_argv, current_dir) | |||
| 1255 | } | 1255 | } |
| 1256 | #else /* not SKTPAIR */ | 1256 | #else /* not SKTPAIR */ |
| 1257 | { | 1257 | { |
| 1258 | #ifdef WINDOWSNT | ||
| 1259 | pipe_with_inherited_out (sv); | ||
| 1260 | inchannel = sv[0]; | ||
| 1261 | forkout = sv[1]; | ||
| 1262 | |||
| 1263 | pipe_with_inherited_in (sv); | ||
| 1264 | forkin = sv[0]; | ||
| 1265 | outchannel = sv[1]; | ||
| 1266 | #else /* not WINDOWSNT */ | ||
| 1267 | pipe (sv); | 1258 | pipe (sv); |
| 1268 | inchannel = sv[0]; | 1259 | inchannel = sv[0]; |
| 1269 | forkout = sv[1]; | 1260 | forkout = sv[1]; |
| 1270 | pipe (sv); | 1261 | pipe (sv); |
| 1271 | outchannel = sv[1]; | 1262 | outchannel = sv[1]; |
| 1272 | forkin = sv[0]; | 1263 | forkin = sv[0]; |
| 1273 | #endif /* not WINDOWSNT */ | ||
| 1274 | } | 1264 | } |
| 1275 | #endif /* not SKTPAIR */ | 1265 | #endif /* not SKTPAIR */ |
| 1276 | 1266 | ||
| @@ -1800,7 +1790,7 @@ Fourth arg SERVICE is name of the service desired, or an integer\n\ | |||
| 1800 | XPROCESS (proc)->filter = Qnil; | 1790 | XPROCESS (proc)->filter = Qnil; |
| 1801 | XPROCESS (proc)->command = Qnil; | 1791 | XPROCESS (proc)->command = Qnil; |
| 1802 | XPROCESS (proc)->pid = Qnil; | 1792 | XPROCESS (proc)->pid = Qnil; |
| 1803 | XSETINT (XPROCESS (proc)->infd, s); | 1793 | XSETINT (XPROCESS (proc)->infd, inch); |
| 1804 | XSETINT (XPROCESS (proc)->outfd, outch); | 1794 | XSETINT (XPROCESS (proc)->outfd, outch); |
| 1805 | XPROCESS (proc)->status = Qrun; | 1795 | XPROCESS (proc)->status = Qrun; |
| 1806 | FD_SET (inch, &input_wait_mask); | 1796 | FD_SET (inch, &input_wait_mask); |
| @@ -2463,20 +2453,12 @@ read_process_output (proc, channel) | |||
| 2463 | #else /* not VMS */ | 2453 | #else /* not VMS */ |
| 2464 | 2454 | ||
| 2465 | if (proc_buffered_char[channel] < 0) | 2455 | if (proc_buffered_char[channel] < 0) |
| 2466 | #ifdef WINDOWSNT | 2456 | nchars = read (channel, chars, sizeof (chars)); |
| 2467 | nchars = read_child_output (channel, chars, sizeof (chars)); | ||
| 2468 | #else | ||
| 2469 | nchars = read (channel, chars, sizeof chars); | ||
| 2470 | #endif | ||
| 2471 | else | 2457 | else |
| 2472 | { | 2458 | { |
| 2473 | chars[0] = proc_buffered_char[channel]; | 2459 | chars[0] = proc_buffered_char[channel]; |
| 2474 | proc_buffered_char[channel] = -1; | 2460 | proc_buffered_char[channel] = -1; |
| 2475 | #ifdef WINDOWSNT | 2461 | nchars = read (channel, chars + 1, sizeof (chars) - 1); |
| 2476 | nchars = read_child_output (channel, chars + 1, sizeof (chars) - 1); | ||
| 2477 | #else | ||
| 2478 | nchars = read (channel, chars + 1, sizeof chars - 1); | ||
| 2479 | #endif | ||
| 2480 | if (nchars < 0) | 2462 | if (nchars < 0) |
| 2481 | nchars = 1; | 2463 | nchars = 1; |
| 2482 | else | 2464 | else |
| @@ -3228,12 +3210,7 @@ SIGCODE may be an integer, or a symbol whose name is a signal name.") | |||
| 3228 | 3210 | ||
| 3229 | #undef handle_signal | 3211 | #undef handle_signal |
| 3230 | 3212 | ||
| 3231 | #ifdef WINDOWSNT | ||
| 3232 | /* Only works for kill-type signals */ | ||
| 3233 | return make_number (win32_kill_process (XINT (pid), XINT (sigcode))); | ||
| 3234 | #else | ||
| 3235 | return make_number (kill (XINT (pid), XINT (sigcode))); | 3213 | return make_number (kill (XINT (pid), XINT (sigcode))); |
| 3236 | #endif | ||
| 3237 | } | 3214 | } |
| 3238 | 3215 | ||
| 3239 | DEFUN ("process-send-eof", Fprocess_send_eof, Sprocess_send_eof, 0, 1, 0, | 3216 | DEFUN ("process-send-eof", Fprocess_send_eof, Sprocess_send_eof, 0, 1, 0, |