Mercurial > emacs
changeset 7220:a33eb16cab9d
(Fopen_network_stream): Retry the connect if EADDRINUSE. Ignore EISCONN.
| author | Richard M. Stallman <rms@gnu.org> |
|---|---|
| date | Sat, 30 Apr 1994 06:05:51 +0000 |
| parents | 61202823bbb9 |
| children | a2c7acc3be9c |
| files | src/process.c |
| diffstat | 1 files changed, 16 insertions(+), 6 deletions(-) [+] |
line wrap: on
line diff
--- a/src/process.c Sat Apr 30 05:04:27 1994 +0000 +++ b/src/process.c Sat Apr 30 06:05:51 1994 +0000 @@ -1482,6 +1482,7 @@ int port; struct hostent host_info_fixed; struct gcpro gcpro1, gcpro2, gcpro3, gcpro4; + int retry = 0; GCPRO4 (name, buffer, host, service); CHECK_STRING (name, 0); @@ -1541,11 +1542,19 @@ unrequest_sigio (); loop: - if (connect (s, (struct sockaddr *) &address, sizeof address) == -1) + if (connect (s, (struct sockaddr *) &address, sizeof address) == -1 + && errno != EISCONN) { int xerrno = errno; + if (errno == EINTR) goto loop; + if (errno == EADDRINUSE && retry < 20) + { + retry++; + goto loop; + } + close (s); if (interrupt_input) @@ -2462,7 +2471,7 @@ right away. If we can, we try to signal PROCESS by sending control characters - down the pipe. This allows us to signal inferiors who have changed + down the pty. This allows us to signal inferiors who have changed their uid, for which killpg would return an EPERM error. */ static void @@ -2674,7 +2683,7 @@ DEFUN ("interrupt-process", Finterrupt_process, Sinterrupt_process, 0, 2, 0, "Interrupt process PROCESS. May be process or name of one.\n\ PROCESS may be a process, a buffer, or the name of a process or buffer.\n\ -Nil or no arg means current buffer's process.\n\ +nil or no arg means current buffer's process.\n\ Second arg CURRENT-GROUP non-nil means send signal to\n\ the current process-group of the process's controlling terminal\n\ rather than to the process's own process group.\n\ @@ -3188,9 +3197,10 @@ DEFVAR_LISP ("process-connection-type", &Vprocess_connection_type, "Control type of device used to communicate with subprocesses.\n\ -Values are nil to use a pipe, and t or 'pty for a pty. Note that if\n\ -pty's are not available, this variable will be ignored. The value takes\n\ -effect when `start-process' is called."); +Values are nil to use a pipe, or t or `pty' to use a pty.\n\ +The value has no effect if the system has no ptys or if all ptys are busy:\n\ +then a pipe is used in any case.\n\ +The value takes effect when `start-process' is called."); Vprocess_connection_type = Qt; defsubr (&Sprocessp);