aboutsummaryrefslogtreecommitdiffstats
path: root/src/process.c
diff options
context:
space:
mode:
authorGerd Moellmann1999-09-20 00:34:43 +0000
committerGerd Moellmann1999-09-20 00:34:43 +0000
commit41d03b9a59ba9ff8cf39ce4f225e73c32fdc6604 (patch)
treea1eaf3de2cca8962daf5aefc5c4c7d8328eb3898 /src/process.c
parent0868e74e52c320525ffad000732df1a1e86bf806 (diff)
downloademacs-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.c24
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
146extern void set_waiting_for_input P_ ((EMACS_TIME *));
147
146extern int errno; 148extern int errno;
147extern char *strerror (); 149extern 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
219extern 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. */