diff options
| author | Gerd Moellmann | 1999-09-20 00:34:43 +0000 |
|---|---|---|
| committer | Gerd Moellmann | 1999-09-20 00:34:43 +0000 |
| commit | 41d03b9a59ba9ff8cf39ce4f225e73c32fdc6604 (patch) | |
| tree | a1eaf3de2cca8962daf5aefc5c4c7d8328eb3898 /src/process.c | |
| parent | 0868e74e52c320525ffad000732df1a1e86bf806 (diff) | |
| download | emacs-41d03b9a59ba9ff8cf39ce4f225e73c32fdc6604.tar.gz emacs-41d03b9a59ba9ff8cf39ce4f225e73c32fdc6604.zip | |
(list_processes_1): Remove unused variables.
(Fopen_network_stream, create_process): Add parentheses to
conditional expressions.
(create_process): Put declaration of sigchld in #if 0.
(Fopen_network_stream): Removed unused variables.
(Fopen_network_stream, wait_reading_process_input,
wait_reading_process_input, send_process, send_process): Ditto.
(toplevel): Add prototypes for set_waiting_for_input and
keyboard_bit_set.
Diffstat (limited to 'src/process.c')
| -rw-r--r-- | src/process.c | 24 |
1 files changed, 12 insertions, 12 deletions
diff --git a/src/process.c b/src/process.c index 362bb7c9e17..cc658400dbb 100644 --- a/src/process.c +++ b/src/process.c | |||
| @@ -143,6 +143,8 @@ Lisp_Object Qlast_nonmenu_event; | |||
| 143 | 143 | ||
| 144 | #include "syswait.h" | 144 | #include "syswait.h" |
| 145 | 145 | ||
| 146 | extern void set_waiting_for_input P_ ((EMACS_TIME *)); | ||
| 147 | |||
| 146 | extern int errno; | 148 | extern int errno; |
| 147 | extern char *strerror (); | 149 | extern char *strerror (); |
| 148 | #ifdef VMS | 150 | #ifdef VMS |
| @@ -214,6 +216,8 @@ int update_tick; | |||
| 214 | 216 | ||
| 215 | #include "sysselect.h" | 217 | #include "sysselect.h" |
| 216 | 218 | ||
| 219 | extern int keyboard_bit_set P_ ((SELECT_TYPE *)); | ||
| 220 | |||
| 217 | /* If we support a window system, turn on the code to poll periodically | 221 | /* If we support a window system, turn on the code to poll periodically |
| 218 | to detect C-g. It isn't actually used when doing interrupt input. */ | 222 | to detect C-g. It isn't actually used when doing interrupt input. */ |
| 219 | #ifdef HAVE_WINDOW_SYSTEM | 223 | #ifdef HAVE_WINDOW_SYSTEM |
| @@ -932,9 +936,7 @@ list_processes_1 () | |||
| 932 | { | 936 | { |
| 933 | register Lisp_Object tail, tem; | 937 | register Lisp_Object tail, tem; |
| 934 | Lisp_Object proc, minspace, tem1; | 938 | Lisp_Object proc, minspace, tem1; |
| 935 | register struct buffer *old = current_buffer; | ||
| 936 | register struct Lisp_Process *p; | 939 | register struct Lisp_Process *p; |
| 937 | register int state; | ||
| 938 | char tembuf[80]; | 940 | char tembuf[80]; |
| 939 | 941 | ||
| 940 | XSETFASTINT (minspace, 1); | 942 | XSETFASTINT (minspace, 1); |
| @@ -1333,9 +1335,11 @@ create_process (process, new_argv, current_dir) | |||
| 1333 | struct sigaction sighup_action; | 1335 | struct sigaction sighup_action; |
| 1334 | #endif | 1336 | #endif |
| 1335 | #else /* !POSIX_SIGNALS */ | 1337 | #else /* !POSIX_SIGNALS */ |
| 1338 | #if 0 | ||
| 1336 | #ifdef SIGCHLD | 1339 | #ifdef SIGCHLD |
| 1337 | SIGTYPE (*sigchld)(); | 1340 | SIGTYPE (*sigchld)(); |
| 1338 | #endif | 1341 | #endif |
| 1342 | #endif /* 0 */ | ||
| 1339 | #endif /* !POSIX_SIGNALS */ | 1343 | #endif /* !POSIX_SIGNALS */ |
| 1340 | /* Use volatile to protect variables from being clobbered by longjmp. */ | 1344 | /* Use volatile to protect variables from being clobbered by longjmp. */ |
| 1341 | volatile int forkin, forkout; | 1345 | volatile int forkin, forkout; |
| @@ -1445,7 +1449,7 @@ create_process (process, new_argv, current_dir) | |||
| 1445 | setup_coding_system (XPROCESS (process)->encode_coding_system, | 1449 | setup_coding_system (XPROCESS (process)->encode_coding_system, |
| 1446 | proc_encode_coding_system[outchannel]); | 1450 | proc_encode_coding_system[outchannel]); |
| 1447 | 1451 | ||
| 1448 | if (!NILP (buffer) && NILP (XBUFFER (buffer)->enable_multibyte_characters) | 1452 | if ((!NILP (buffer) && NILP (XBUFFER (buffer)->enable_multibyte_characters)) |
| 1449 | || (NILP (buffer) && NILP (buffer_defaults.enable_multibyte_characters))) | 1453 | || (NILP (buffer) && NILP (buffer_defaults.enable_multibyte_characters))) |
| 1450 | { | 1454 | { |
| 1451 | /* In unibyte mode, character code conversion should not take | 1455 | /* In unibyte mode, character code conversion should not take |
| @@ -1814,15 +1818,12 @@ Fourth arg SERVICE is name of the service desired, or an integer\n\ | |||
| 1814 | Lisp_Object name, buffer, host, service; | 1818 | Lisp_Object name, buffer, host, service; |
| 1815 | { | 1819 | { |
| 1816 | Lisp_Object proc; | 1820 | Lisp_Object proc; |
| 1817 | register int i; | ||
| 1818 | |||
| 1819 | #ifndef HAVE_GETADDRINFO | 1821 | #ifndef HAVE_GETADDRINFO |
| 1820 | struct sockaddr_in address; | 1822 | struct sockaddr_in address; |
| 1821 | struct servent *svc_info; | 1823 | struct servent *svc_info; |
| 1822 | struct hostent *host_info_ptr, host_info; | 1824 | struct hostent *host_info_ptr, host_info; |
| 1823 | char *(addr_list[2]); | 1825 | char *(addr_list[2]); |
| 1824 | IN_ADDR numeric_addr; | 1826 | IN_ADDR numeric_addr; |
| 1825 | struct hostent host_info_fixed; | ||
| 1826 | int port; | 1827 | int port; |
| 1827 | #else /* HAVE_GETADDRINFO */ | 1828 | #else /* HAVE_GETADDRINFO */ |
| 1828 | struct addrinfo hints, *res, *lres; | 1829 | struct addrinfo hints, *res, *lres; |
| @@ -2100,8 +2101,8 @@ Fourth arg SERVICE is name of the service desired, or an integer\n\ | |||
| 2100 | 2101 | ||
| 2101 | if (!NILP (Vcoding_system_for_read)) | 2102 | if (!NILP (Vcoding_system_for_read)) |
| 2102 | val = Vcoding_system_for_read; | 2103 | val = Vcoding_system_for_read; |
| 2103 | else if (!NILP (buffer) && NILP (XBUFFER (buffer)->enable_multibyte_characters) | 2104 | else if ((!NILP (buffer) && NILP (XBUFFER (buffer)->enable_multibyte_characters)) |
| 2104 | || NILP (buffer) && NILP (buffer_defaults.enable_multibyte_characters)) | 2105 | || (NILP (buffer) && NILP (buffer_defaults.enable_multibyte_characters))) |
| 2105 | /* We dare not decode end-of-line format by setting VAL to | 2106 | /* We dare not decode end-of-line format by setting VAL to |
| 2106 | Qraw_text, because the existing Emacs Lisp libraries | 2107 | Qraw_text, because the existing Emacs Lisp libraries |
| 2107 | assume that they receive bare code including a sequene of | 2108 | assume that they receive bare code including a sequene of |
| @@ -2367,11 +2368,11 @@ wait_reading_process_input (time_limit, microsecs, read_kbd, do_display) | |||
| 2367 | Lisp_Object read_kbd; | 2368 | Lisp_Object read_kbd; |
| 2368 | int do_display; | 2369 | int do_display; |
| 2369 | { | 2370 | { |
| 2370 | register int channel, nfds, m; | 2371 | register int channel, nfds; |
| 2371 | static SELECT_TYPE Available; | 2372 | static SELECT_TYPE Available; |
| 2372 | int xerrno; | 2373 | int xerrno; |
| 2373 | Lisp_Object proc; | 2374 | Lisp_Object proc; |
| 2374 | EMACS_TIME timeout, end_time, garbage; | 2375 | EMACS_TIME timeout, end_time; |
| 2375 | SELECT_TYPE Atemp; | 2376 | SELECT_TYPE Atemp; |
| 2376 | int wait_channel = -1; | 2377 | int wait_channel = -1; |
| 2377 | struct Lisp_Process *wait_proc = 0; | 2378 | struct Lisp_Process *wait_proc = 0; |
| @@ -3321,7 +3322,7 @@ send_process (proc, buf, len, object) | |||
| 3321 | if (CODING_REQUIRE_ENCODING (coding)) | 3322 | if (CODING_REQUIRE_ENCODING (coding)) |
| 3322 | { | 3323 | { |
| 3323 | int require = encoding_buffer_size (coding, len); | 3324 | int require = encoding_buffer_size (coding, len); |
| 3324 | int offset, dummy; | 3325 | int offset; |
| 3325 | unsigned char *temp_buf = NULL; | 3326 | unsigned char *temp_buf = NULL; |
| 3326 | 3327 | ||
| 3327 | /* Remember the offset of data because a string or a buffer may | 3328 | /* Remember the offset of data because a string or a buffer may |
| @@ -3403,7 +3404,6 @@ send_process (proc, buf, len, object) | |||
| 3403 | { | 3404 | { |
| 3404 | int this = len; | 3405 | int this = len; |
| 3405 | SIGTYPE (*old_sigpipe)(); | 3406 | SIGTYPE (*old_sigpipe)(); |
| 3406 | int flush_pty = 0; | ||
| 3407 | 3407 | ||
| 3408 | /* Decide how much data we can send in one batch. | 3408 | /* Decide how much data we can send in one batch. |
| 3409 | Long lines need to be split into multiple batches. */ | 3409 | Long lines need to be split into multiple batches. */ |