annotate src/process.c @ 16978:71aff157cff2

(Feval_buffer): Doc fix.
author Richard M. Stallman <rms@gnu.org>
date Thu, 06 Feb 1997 09:13:29 +0000
parents e9dc2569cb12
children b61cbe595be5
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1 /* Asynchronous subprocess control for GNU Emacs.
14405
4aa693528ee3 (create_process): Set outchannel to be non-blocking.
Richard M. Stallman <rms@gnu.org>
parents: 14404
diff changeset
2 Copyright (C) 1985, 86, 87, 88, 93, 94, 95, 1996
4aa693528ee3 (create_process): Set outchannel to be non-blocking.
Richard M. Stallman <rms@gnu.org>
parents: 14404
diff changeset
3 Free Software Foundation, Inc.
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5 This file is part of GNU Emacs.
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7 GNU Emacs is free software; you can redistribute it and/or modify
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
8 it under the terms of the GNU General Public License as published by
1780
d01c59bac5c1 * frame.h (FRAME_SAMPLE_VISIBILITY): Make sure frame is marked as
Jim Blandy <jimb@redhat.com>
parents: 1683
diff changeset
9 the Free Software Foundation; either version 2, or (at your option)
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
10 any later version.
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
11
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
12 GNU Emacs is distributed in the hope that it will be useful,
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
13 but WITHOUT ANY WARRANTY; without even the implied warranty of
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
14 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
15 GNU General Public License for more details.
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
16
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
17 You should have received a copy of the GNU General Public License
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
18 along with GNU Emacs; see the file COPYING. If not, write to
14186
ee40177f6c68 Update FSF's address in the preamble.
Erik Naggum <erik@naggum.no>
parents: 14131
diff changeset
19 the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
ee40177f6c68 Update FSF's address in the preamble.
Erik Naggum <erik@naggum.no>
parents: 14131
diff changeset
20 Boston, MA 02111-1307, USA. */
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
21
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
22
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
23 #include <signal.h>
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
24
4696
1fc792473491 Include <config.h> instead of "config.h".
Roland McGrath <roland@gnu.org>
parents: 4682
diff changeset
25 #include <config.h>
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
26
588
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
27 /* This file is split into two parts by the following preprocessor
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
28 conditional. The 'then' clause contains all of the support for
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
29 asynchronous subprocesses. The 'else' clause contains stub
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
30 versions of some of the asynchronous subprocess routines that are
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
31 often called elsewhere in Emacs, so we don't have to #ifdef the
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
32 sections that call them. */
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
33
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
34
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
35 #ifdef subprocesses
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
36
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
37 #include <stdio.h>
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
38 #include <errno.h>
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
39 #include <setjmp.h>
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
40 #include <sys/types.h> /* some typedefs are used in sys/file.h */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
41 #include <sys/file.h>
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
42 #include <sys/stat.h>
6158
6b81b2575071 Include unistd.h.
Richard M. Stallman <rms@gnu.org>
parents: 5891
diff changeset
43 #ifdef HAVE_UNISTD_H
6b81b2575071 Include unistd.h.
Richard M. Stallman <rms@gnu.org>
parents: 5891
diff changeset
44 #include <unistd.h>
6b81b2575071 Include unistd.h.
Richard M. Stallman <rms@gnu.org>
parents: 5891
diff changeset
45 #endif
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
46
9793
28267fcc61be Use macros IS_ANY_SEP, IS_DIRECTORY_SEP,
Richard M. Stallman <rms@gnu.org>
parents: 9705
diff changeset
47 #ifdef WINDOWSNT
28267fcc61be Use macros IS_ANY_SEP, IS_DIRECTORY_SEP,
Richard M. Stallman <rms@gnu.org>
parents: 9705
diff changeset
48 #include <stdlib.h>
28267fcc61be Use macros IS_ANY_SEP, IS_DIRECTORY_SEP,
Richard M. Stallman <rms@gnu.org>
parents: 9705
diff changeset
49 #include <fcntl.h>
28267fcc61be Use macros IS_ANY_SEP, IS_DIRECTORY_SEP,
Richard M. Stallman <rms@gnu.org>
parents: 9705
diff changeset
50 #endif /* not WINDOWSNT */
28267fcc61be Use macros IS_ANY_SEP, IS_DIRECTORY_SEP,
Richard M. Stallman <rms@gnu.org>
parents: 9705
diff changeset
51
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
52 #ifdef HAVE_SOCKETS /* TCP connection support, if kernel can do it */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
53 #include <sys/socket.h>
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
54 #include <netdb.h>
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
55 #include <netinet/in.h>
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
56 #include <arpa/inet.h>
12749
ce48ec025b0a Maybe include net/errno.h.
Richard M. Stallman <rms@gnu.org>
parents: 12648
diff changeset
57 #ifdef NEED_NET_ERRNO_H
ce48ec025b0a Maybe include net/errno.h.
Richard M. Stallman <rms@gnu.org>
parents: 12648
diff changeset
58 #include <net/errno.h>
ce48ec025b0a Maybe include net/errno.h.
Richard M. Stallman <rms@gnu.org>
parents: 12648
diff changeset
59 #endif /* NEED_NET_ERRNO_H */
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
60 #endif /* HAVE_SOCKETS */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
61
4914
56bc426b1eb4 [TERM]: Include client.h.
Richard M. Stallman <rms@gnu.org>
parents: 4883
diff changeset
62 /* TERM is a poor-man's SLIP, used on Linux. */
56bc426b1eb4 [TERM]: Include client.h.
Richard M. Stallman <rms@gnu.org>
parents: 4883
diff changeset
63 #ifdef TERM
56bc426b1eb4 [TERM]: Include client.h.
Richard M. Stallman <rms@gnu.org>
parents: 4883
diff changeset
64 #include <client.h>
56bc426b1eb4 [TERM]: Include client.h.
Richard M. Stallman <rms@gnu.org>
parents: 4883
diff changeset
65 #endif
56bc426b1eb4 [TERM]: Include client.h.
Richard M. Stallman <rms@gnu.org>
parents: 4883
diff changeset
66
7238
c9598edda1a2 (IN_ADDR, NUMERIC_ADDR_ERROR): Made conditional on HAVE_BROKEN_INET_ADDR.
Paul Reilly <pmr@pajato.com>
parents: 7220
diff changeset
67 /* On some systems, e.g. DGUX, inet_addr returns a 'struct in_addr'. */
c9598edda1a2 (IN_ADDR, NUMERIC_ADDR_ERROR): Made conditional on HAVE_BROKEN_INET_ADDR.
Paul Reilly <pmr@pajato.com>
parents: 7220
diff changeset
68 #ifdef HAVE_BROKEN_INET_ADDR
4998
3cd3a39f98f4 (IN_ADDR, NUMERIC_ADDR_ERROR): New macros (two versions).
Richard M. Stallman <rms@gnu.org>
parents: 4994
diff changeset
69 #define IN_ADDR struct in_addr
3cd3a39f98f4 (IN_ADDR, NUMERIC_ADDR_ERROR): New macros (two versions).
Richard M. Stallman <rms@gnu.org>
parents: 4994
diff changeset
70 #define NUMERIC_ADDR_ERROR (numeric_addr.s_addr == -1)
3cd3a39f98f4 (IN_ADDR, NUMERIC_ADDR_ERROR): New macros (two versions).
Richard M. Stallman <rms@gnu.org>
parents: 4994
diff changeset
71 #else
3cd3a39f98f4 (IN_ADDR, NUMERIC_ADDR_ERROR): New macros (two versions).
Richard M. Stallman <rms@gnu.org>
parents: 4994
diff changeset
72 #define IN_ADDR unsigned long
3cd3a39f98f4 (IN_ADDR, NUMERIC_ADDR_ERROR): New macros (two versions).
Richard M. Stallman <rms@gnu.org>
parents: 4994
diff changeset
73 #define NUMERIC_ADDR_ERROR (numeric_addr == -1)
3cd3a39f98f4 (IN_ADDR, NUMERIC_ADDR_ERROR): New macros (two versions).
Richard M. Stallman <rms@gnu.org>
parents: 4994
diff changeset
74 #endif
3cd3a39f98f4 (IN_ADDR, NUMERIC_ADDR_ERROR): New macros (two versions).
Richard M. Stallman <rms@gnu.org>
parents: 4994
diff changeset
75
16220
02044b05d8e0 Replaced symbol BSD with BSD_SYSTEM.
Karl Heuer <kwzh@gnu.org>
parents: 16206
diff changeset
76 #if defined(BSD_SYSTEM) || defined(STRIDE)
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
77 #include <sys/ioctl.h>
1012
a48ed1d416dd * process.c (process_send_signal): Don't send SIGTSTP if the
Jim Blandy <jimb@redhat.com>
parents: 849
diff changeset
78 #if !defined (O_NDELAY) && defined (HAVE_PTYS) && !defined(USG5)
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
79 #include <fcntl.h>
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
80 #endif /* HAVE_PTYS and no O_NDELAY */
16220
02044b05d8e0 Replaced symbol BSD with BSD_SYSTEM.
Karl Heuer <kwzh@gnu.org>
parents: 16206
diff changeset
81 #endif /* BSD_SYSTEM || STRIDE */
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
82
5240
eed870591987 (Fprocess_status): Use get_process, not Fget_process.
Richard M. Stallman <rms@gnu.org>
parents: 5239
diff changeset
83 #ifdef BROKEN_O_NONBLOCK
eed870591987 (Fprocess_status): Use get_process, not Fget_process.
Richard M. Stallman <rms@gnu.org>
parents: 5239
diff changeset
84 #undef O_NONBLOCK
eed870591987 (Fprocess_status): Use get_process, not Fget_process.
Richard M. Stallman <rms@gnu.org>
parents: 5239
diff changeset
85 #endif /* BROKEN_O_NONBLOCK */
eed870591987 (Fprocess_status): Use get_process, not Fget_process.
Richard M. Stallman <rms@gnu.org>
parents: 5239
diff changeset
86
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
87 #ifdef NEED_BSDTTY
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
88 #include <bsdtty.h>
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
89 #endif
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
90
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
91 #ifdef IRIS
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
92 #include <sys/sysmacros.h> /* for "minor" */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
93 #endif /* not IRIS */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
94
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
95 #include "systime.h"
1047
1ab1ed32e82a * process.c: Include "systty.h", not "systerm.h".
Jim Blandy <jimb@redhat.com>
parents: 1030
diff changeset
96 #include "systty.h"
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
97
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
98 #include "lisp.h"
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
99 #include "window.h"
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
100 #include "buffer.h"
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
101 #include "process.h"
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
102 #include "termhooks.h"
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
103 #include "termopts.h"
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
104 #include "commands.h"
1780
d01c59bac5c1 * frame.h (FRAME_SAMPLE_VISIBILITY): Make sure frame is marked as
Jim Blandy <jimb@redhat.com>
parents: 1683
diff changeset
105 #include "frame.h"
16780
e9dc2569cb12 Include blockinput.h.
Richard M. Stallman <rms@gnu.org>
parents: 16728
diff changeset
106 #include "blockinput.h"
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
107
4682
c4d471244116 (keyboard_descriptor): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 4639
diff changeset
108 Lisp_Object Qprocessp;
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
109 Lisp_Object Qrun, Qstop, Qsignal, Qopen, Qclosed;
8231
5226ed89c1a6 (Qlast_nonmenu_event): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 8063
diff changeset
110 Lisp_Object Qlast_nonmenu_event;
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
111 /* Qexit is declared and initialized in eval.c. */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
112
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
113 /* a process object is a network connection when its childp field is neither
16058
924aeb9ed7c3 (Fprocess_contact): New function.
Richard M. Stallman <rms@gnu.org>
parents: 16053
diff changeset
114 Qt nor Qnil but is instead a cons cell (HOSTNAME PORTNUM). */
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
115
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
116 #ifdef HAVE_SOCKETS
16058
924aeb9ed7c3 (Fprocess_contact): New function.
Richard M. Stallman <rms@gnu.org>
parents: 16053
diff changeset
117 #define NETCONN_P(p) (GC_CONSP (XPROCESS (p)->childp))
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
118 #else
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
119 #define NETCONN_P(p) 0
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
120 #endif /* HAVE_SOCKETS */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
121
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
122 /* Define first descriptor number available for subprocesses. */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
123 #ifdef VMS
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
124 #define FIRST_PROC_DESC 1
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
125 #else /* Not VMS */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
126 #define FIRST_PROC_DESC 3
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
127 #endif
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
128
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
129 /* Define SIGCHLD as an alias for SIGCLD. There are many conditionals
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
130 testing SIGCHLD. */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
131
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
132 #if !defined (SIGCHLD) && defined (SIGCLD)
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
133 #define SIGCHLD SIGCLD
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
134 #endif /* SIGCLD */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
135
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
136 #include "syssignal.h"
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
137
4639
76f242eb1fa8 Include syswait.h.
Richard M. Stallman <rms@gnu.org>
parents: 4320
diff changeset
138 #include "syswait.h"
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
139
5543
dbc1d920ef5c Don't declare sys_nerr.
Roland McGrath <roland@gnu.org>
parents: 5534
diff changeset
140 extern int errno;
dbc1d920ef5c Don't declare sys_nerr.
Roland McGrath <roland@gnu.org>
parents: 5534
diff changeset
141 extern char *strerror ();
dbc1d920ef5c Don't declare sys_nerr.
Roland McGrath <roland@gnu.org>
parents: 5534
diff changeset
142 #ifdef VMS
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
143 extern char *sys_errlist[];
5543
dbc1d920ef5c Don't declare sys_nerr.
Roland McGrath <roland@gnu.org>
parents: 5534
diff changeset
144 #endif
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
145
8331
14ddb4c66461 [!HAVE_H_ERRNO]: Declare h_errno.
Richard M. Stallman <rms@gnu.org>
parents: 8287
diff changeset
146 #ifndef HAVE_H_ERRNO
14ddb4c66461 [!HAVE_H_ERRNO]: Declare h_errno.
Richard M. Stallman <rms@gnu.org>
parents: 8287
diff changeset
147 extern int h_errno;
14ddb4c66461 [!HAVE_H_ERRNO]: Declare h_errno.
Richard M. Stallman <rms@gnu.org>
parents: 8287
diff changeset
148 #endif
14ddb4c66461 [!HAVE_H_ERRNO]: Declare h_errno.
Richard M. Stallman <rms@gnu.org>
parents: 8287
diff changeset
149
5891
ffe51baf2728 (sys_siglist): Protect decl with #ifndef SYS_SIGLIST_DECLARED.
Roland McGrath <roland@gnu.org>
parents: 5846
diff changeset
150 #ifndef SYS_SIGLIST_DECLARED
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
151 #ifndef VMS
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
152 #ifndef BSD4_1
9793
28267fcc61be Use macros IS_ANY_SEP, IS_DIRECTORY_SEP,
Richard M. Stallman <rms@gnu.org>
parents: 9705
diff changeset
153 #ifndef WINDOWSNT
3023
cfd999700613 (create_process): Ignore retval from TIOCSTTY.
Richard M. Stallman <rms@gnu.org>
parents: 2961
diff changeset
154 #ifndef LINUX
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
155 extern char *sys_siglist[];
5534
7a0de0f56c86 Comment changes.
Richard M. Stallman <rms@gnu.org>
parents: 5404
diff changeset
156 #endif /* not LINUX */
7a0de0f56c86 Comment changes.
Richard M. Stallman <rms@gnu.org>
parents: 5404
diff changeset
157 #else /* BSD4_1 */
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
158 char *sys_siglist[] =
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
159 {
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
160 "bum signal!!",
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
161 "hangup",
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
162 "interrupt",
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
163 "quit",
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
164 "illegal instruction",
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
165 "trace trap",
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
166 "iot instruction",
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
167 "emt instruction",
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
168 "floating point exception",
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
169 "kill",
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
170 "bus error",
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
171 "segmentation violation",
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
172 "bad argument to system call",
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
173 "write on a pipe with no one to read it",
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
174 "alarm clock",
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
175 "software termination signal from kill",
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
176 "status signal",
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
177 "sendable stop signal not from tty",
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
178 "stop signal from tty",
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
179 "continue a stopped process",
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
180 "child status has changed",
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
181 "background read attempted from control tty",
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
182 "background write attempted from control tty",
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
183 "input record available at control tty",
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
184 "exceeded CPU time limit",
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
185 "exceeded file size limit"
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
186 };
9793
28267fcc61be Use macros IS_ANY_SEP, IS_DIRECTORY_SEP,
Richard M. Stallman <rms@gnu.org>
parents: 9705
diff changeset
187 #endif /* not WINDOWSNT */
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
188 #endif
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
189 #endif /* VMS */
5891
ffe51baf2728 (sys_siglist): Protect decl with #ifndef SYS_SIGLIST_DECLARED.
Roland McGrath <roland@gnu.org>
parents: 5846
diff changeset
190 #endif /* ! SYS_SIGLIST_DECLARED */
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
191
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
192 /* t means use pty, nil means use a pipe,
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
193 maybe other values to come. */
4682
c4d471244116 (keyboard_descriptor): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 4639
diff changeset
194 static Lisp_Object Vprocess_connection_type;
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
195
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
196 #ifdef SKTPAIR
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
197 #ifndef HAVE_SOCKETS
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
198 #include <sys/socket.h>
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
199 #endif
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
200 #endif /* SKTPAIR */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
201
10548
dcae4394587d (process_tick, update_tick): Make non-static.
Karl Heuer <kwzh@gnu.org>
parents: 10527
diff changeset
202 /* These next two vars are non-static since sysdep.c uses them in the
dcae4394587d (process_tick, update_tick): Make non-static.
Karl Heuer <kwzh@gnu.org>
parents: 10527
diff changeset
203 emulation of `select'. */
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
204 /* Number of events of change of status of a process. */
10548
dcae4394587d (process_tick, update_tick): Make non-static.
Karl Heuer <kwzh@gnu.org>
parents: 10527
diff changeset
205 int process_tick;
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
206 /* Number of events for which the user or sentinel has been notified. */
10548
dcae4394587d (process_tick, update_tick): Make non-static.
Karl Heuer <kwzh@gnu.org>
parents: 10527
diff changeset
207 int update_tick;
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
208
10527
68b8191091a7 #include sysselect.h instead of defining things by hand.
Karl Heuer <kwzh@gnu.org>
parents: 10032
diff changeset
209 #include "sysselect.h"
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
210
13414
b035c6e41457 [HAVE_NTGUI] (POLL_FOR_INPUT): Define macro.
Geoff Voelker <voelker@cs.washington.edu>
parents: 13159
diff changeset
211 /* If we support a window system, turn on the code to poll periodically
7486
cfe4840ffde9 (Fopen_network_stream): Call bind_polling_period; later unbind the binding.
Richard M. Stallman <rms@gnu.org>
parents: 7454
diff changeset
212 to detect C-g. It isn't actually used when doing interrupt input. */
13414
b035c6e41457 [HAVE_NTGUI] (POLL_FOR_INPUT): Define macro.
Geoff Voelker <voelker@cs.washington.edu>
parents: 13159
diff changeset
213 #ifdef HAVE_WINDOW_SYSTEM
7486
cfe4840ffde9 (Fopen_network_stream): Call bind_polling_period; later unbind the binding.
Richard M. Stallman <rms@gnu.org>
parents: 7454
diff changeset
214 #define POLL_FOR_INPUT
cfe4840ffde9 (Fopen_network_stream): Call bind_polling_period; later unbind the binding.
Richard M. Stallman <rms@gnu.org>
parents: 7454
diff changeset
215 #endif
cfe4840ffde9 (Fopen_network_stream): Call bind_polling_period; later unbind the binding.
Richard M. Stallman <rms@gnu.org>
parents: 7454
diff changeset
216
9686
cd788aa8cb2a Handle multiple keyboard input descriptors.
Richard M. Stallman <rms@gnu.org>
parents: 9334
diff changeset
217 /* Mask of bits indicating the descriptors that we wait for input on. */
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
218
4682
c4d471244116 (keyboard_descriptor): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 4639
diff changeset
219 static SELECT_TYPE input_wait_mask;
c4d471244116 (keyboard_descriptor): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 4639
diff changeset
220
9686
cd788aa8cb2a Handle multiple keyboard input descriptors.
Richard M. Stallman <rms@gnu.org>
parents: 9334
diff changeset
221 /* Mask that excludes keyboard input descriptor (s). */
cd788aa8cb2a Handle multiple keyboard input descriptors.
Richard M. Stallman <rms@gnu.org>
parents: 9334
diff changeset
222
cd788aa8cb2a Handle multiple keyboard input descriptors.
Richard M. Stallman <rms@gnu.org>
parents: 9334
diff changeset
223 static SELECT_TYPE non_keyboard_wait_mask;
cd788aa8cb2a Handle multiple keyboard input descriptors.
Richard M. Stallman <rms@gnu.org>
parents: 9334
diff changeset
224
7044
7032d07f5ad9 (max_process_desc): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 7013
diff changeset
225 /* The largest descriptor currently in use for a process object. */
7032d07f5ad9 (max_process_desc): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 7013
diff changeset
226 static int max_process_desc;
7032d07f5ad9 (max_process_desc): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 7013
diff changeset
227
9686
cd788aa8cb2a Handle multiple keyboard input descriptors.
Richard M. Stallman <rms@gnu.org>
parents: 9334
diff changeset
228 /* The largest descriptor currently in use for keyboard input. */
cd788aa8cb2a Handle multiple keyboard input descriptors.
Richard M. Stallman <rms@gnu.org>
parents: 9334
diff changeset
229 static int max_keyboard_desc;
4682
c4d471244116 (keyboard_descriptor): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 4639
diff changeset
230
c4d471244116 (keyboard_descriptor): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 4639
diff changeset
231 /* Nonzero means delete a process right away if it exits. */
c4d471244116 (keyboard_descriptor): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 4639
diff changeset
232 static int delete_exited_processes;
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
233
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
234 /* Indexed by descriptor, gives the process (if any) for that descriptor */
6164
d047d5a48e0e (chan_process, Vprocess_alist): No longer static.
Richard M. Stallman <rms@gnu.org>
parents: 6158
diff changeset
235 Lisp_Object chan_process[MAXDESC];
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
236
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
237 /* Alist of elements (NAME . PROCESS) */
6164
d047d5a48e0e (chan_process, Vprocess_alist): No longer static.
Richard M. Stallman <rms@gnu.org>
parents: 6158
diff changeset
238 Lisp_Object Vprocess_alist;
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
239
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
240 /* Buffered-ahead input char from process, indexed by channel.
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
241 -1 means empty (no char is buffered).
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
242 Used on sys V where the only way to tell if there is any
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
243 output from the process is to read at least one char.
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
244 Always -1 on systems that support FIONREAD. */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
245
9793
28267fcc61be Use macros IS_ANY_SEP, IS_DIRECTORY_SEP,
Richard M. Stallman <rms@gnu.org>
parents: 9705
diff changeset
246 /* Don't make static; need to access externally. */
28267fcc61be Use macros IS_ANY_SEP, IS_DIRECTORY_SEP,
Richard M. Stallman <rms@gnu.org>
parents: 9705
diff changeset
247 int proc_buffered_char[MAXDESC];
4682
c4d471244116 (keyboard_descriptor): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 4639
diff changeset
248
c4d471244116 (keyboard_descriptor): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 4639
diff changeset
249 static Lisp_Object get_process ();
6158
6b81b2575071 Include unistd.h.
Richard M. Stallman <rms@gnu.org>
parents: 5891
diff changeset
250
14404
cba05f90ee57 (wait_reading_process_input): Call timer_check
Richard M. Stallman <rms@gnu.org>
parents: 14278
diff changeset
251 extern EMACS_TIME timer_check ();
14785
e4a9806c1e83 (wait_reading_process_input):
Richard M. Stallman <rms@gnu.org>
parents: 14758
diff changeset
252 extern int timers_run;
14404
cba05f90ee57 (wait_reading_process_input): Call timer_check
Richard M. Stallman <rms@gnu.org>
parents: 14278
diff changeset
253
6158
6b81b2575071 Include unistd.h.
Richard M. Stallman <rms@gnu.org>
parents: 5891
diff changeset
254 /* Maximum number of bytes to send to a pty without an eof. */
6b81b2575071 Include unistd.h.
Richard M. Stallman <rms@gnu.org>
parents: 5891
diff changeset
255 static int pty_max_bytes;
9030
b14532c71632 (exec_sentinel_error_handler): New function.
Richard M. Stallman <rms@gnu.org>
parents: 8570
diff changeset
256
11609
3b2dacb1bfe9 (create_process): Don't reference pty_name if !HAVE_PTYS.
Karl Heuer <kwzh@gnu.org>
parents: 11514
diff changeset
257 #ifdef HAVE_PTYS
3b2dacb1bfe9 (create_process): Don't reference pty_name if !HAVE_PTYS.
Karl Heuer <kwzh@gnu.org>
parents: 11514
diff changeset
258 /* The file name of the pty opened by allocate_pty. */
9030
b14532c71632 (exec_sentinel_error_handler): New function.
Richard M. Stallman <rms@gnu.org>
parents: 8570
diff changeset
259
b14532c71632 (exec_sentinel_error_handler): New function.
Richard M. Stallman <rms@gnu.org>
parents: 8570
diff changeset
260 static char pty_name[24];
11609
3b2dacb1bfe9 (create_process): Don't reference pty_name if !HAVE_PTYS.
Karl Heuer <kwzh@gnu.org>
parents: 11514
diff changeset
261 #endif
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
262
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
263 /* Compute the Lisp form of the process status, p->status, from
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
264 the numeric status that was returned by `wait'. */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
265
1522
19ccf004b172 * process.c: (status_convert): Declare this to return a
Jim Blandy <jimb@redhat.com>
parents: 1323
diff changeset
266 Lisp_Object status_convert ();
19ccf004b172 * process.c: (status_convert): Declare this to return a
Jim Blandy <jimb@redhat.com>
parents: 1323
diff changeset
267
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
268 update_status (p)
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
269 struct Lisp_Process *p;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
270 {
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
271 union { int i; WAITTYPE wt; } u;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
272 u.i = XFASTINT (p->raw_status_low) + (XFASTINT (p->raw_status_high) << 16);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
273 p->status = status_convert (u.wt);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
274 p->raw_status_low = Qnil;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
275 p->raw_status_high = Qnil;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
276 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
277
3608
Jim Blandy <jimb@redhat.com>
parents: 3593
diff changeset
278 /* Convert a process status word in Unix format to
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
279 the list that we use internally. */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
280
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
281 Lisp_Object
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
282 status_convert (w)
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
283 WAITTYPE w;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
284 {
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
285 if (WIFSTOPPED (w))
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
286 return Fcons (Qstop, Fcons (make_number (WSTOPSIG (w)), Qnil));
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
287 else if (WIFEXITED (w))
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
288 return Fcons (Qexit, Fcons (make_number (WRETCODE (w)),
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
289 WCOREDUMP (w) ? Qt : Qnil));
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
290 else if (WIFSIGNALED (w))
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
291 return Fcons (Qsignal, Fcons (make_number (WTERMSIG (w)),
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
292 WCOREDUMP (w) ? Qt : Qnil));
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
293 else
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
294 return Qrun;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
295 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
296
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
297 /* Given a status-list, extract the three pieces of information
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
298 and store them individually through the three pointers. */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
299
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
300 void
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
301 decode_status (l, symbol, code, coredump)
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
302 Lisp_Object l;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
303 Lisp_Object *symbol;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
304 int *code;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
305 int *coredump;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
306 {
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
307 Lisp_Object tem;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
308
9115
59bc2d010b5f (decode_status, Fprocessp, Fget_process, Fget_buffer_process, Fprocess_status,
Karl Heuer <kwzh@gnu.org>
parents: 9034
diff changeset
309 if (SYMBOLP (l))
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
310 {
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
311 *symbol = l;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
312 *code = 0;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
313 *coredump = 0;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
314 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
315 else
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
316 {
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
317 *symbol = XCONS (l)->car;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
318 tem = XCONS (l)->cdr;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
319 *code = XFASTINT (XCONS (tem)->car);
1522
19ccf004b172 * process.c: (status_convert): Declare this to return a
Jim Blandy <jimb@redhat.com>
parents: 1323
diff changeset
320 tem = XCONS (tem)->cdr;
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
321 *coredump = !NILP (tem);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
322 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
323 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
324
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
325 /* Return a string describing a process status list. */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
326
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
327 Lisp_Object
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
328 status_message (status)
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
329 Lisp_Object status;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
330 {
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
331 Lisp_Object symbol;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
332 int code, coredump;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
333 Lisp_Object string, string2;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
334
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
335 decode_status (status, &symbol, &code, &coredump);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
336
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
337 if (EQ (symbol, Qsignal) || EQ (symbol, Qstop))
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
338 {
5579
466bc8ef8e21 (sigchld_handler, status_message): Handle a NULL in sys_siglist.
Richard M. Stallman <rms@gnu.org>
parents: 5561
diff changeset
339 char *signame = 0;
466bc8ef8e21 (sigchld_handler, status_message): Handle a NULL in sys_siglist.
Richard M. Stallman <rms@gnu.org>
parents: 5561
diff changeset
340 if (code < NSIG)
466bc8ef8e21 (sigchld_handler, status_message): Handle a NULL in sys_siglist.
Richard M. Stallman <rms@gnu.org>
parents: 5561
diff changeset
341 {
1594
b476a97ad17e * systty.h, process.c, buffer.h, callproc.c, sysdep.c, dired.c:
Jim Blandy <jimb@redhat.com>
parents: 1569
diff changeset
342 #ifndef VMS
9705
f7535deb913a (status_message): Add a cast.
Richard M. Stallman <rms@gnu.org>
parents: 9697
diff changeset
343 /* Cast to suppress warning if the table has const char *. */
f7535deb913a (status_message): Add a cast.
Richard M. Stallman <rms@gnu.org>
parents: 9697
diff changeset
344 signame = (char *) sys_siglist[code];
1594
b476a97ad17e * systty.h, process.c, buffer.h, callproc.c, sysdep.c, dired.c:
Jim Blandy <jimb@redhat.com>
parents: 1569
diff changeset
345 #else
5579
466bc8ef8e21 (sigchld_handler, status_message): Handle a NULL in sys_siglist.
Richard M. Stallman <rms@gnu.org>
parents: 5561
diff changeset
346 signame = sys_errlist[code];
1594
b476a97ad17e * systty.h, process.c, buffer.h, callproc.c, sysdep.c, dired.c:
Jim Blandy <jimb@redhat.com>
parents: 1569
diff changeset
347 #endif
5579
466bc8ef8e21 (sigchld_handler, status_message): Handle a NULL in sys_siglist.
Richard M. Stallman <rms@gnu.org>
parents: 5561
diff changeset
348 }
466bc8ef8e21 (sigchld_handler, status_message): Handle a NULL in sys_siglist.
Richard M. Stallman <rms@gnu.org>
parents: 5561
diff changeset
349 if (signame == 0)
466bc8ef8e21 (sigchld_handler, status_message): Handle a NULL in sys_siglist.
Richard M. Stallman <rms@gnu.org>
parents: 5561
diff changeset
350 signame = "unknown";
466bc8ef8e21 (sigchld_handler, status_message): Handle a NULL in sys_siglist.
Richard M. Stallman <rms@gnu.org>
parents: 5561
diff changeset
351 string = build_string (signame);
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
352 string2 = build_string (coredump ? " (core dumped)\n" : "\n");
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
353 XSTRING (string)->data[0] = DOWNCASE (XSTRING (string)->data[0]);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
354 return concat2 (string, string2);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
355 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
356 else if (EQ (symbol, Qexit))
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
357 {
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
358 if (code == 0)
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
359 return build_string ("finished\n");
2429
96b55f2f19cd Rename int-to-string to number-to-string, since it can handle
Jim Blandy <jimb@redhat.com>
parents: 2357
diff changeset
360 string = Fnumber_to_string (make_number (code));
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
361 string2 = build_string (coredump ? " (core dumped)\n" : "\n");
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
362 return concat2 (build_string ("exited abnormally with code "),
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
363 concat2 (string, string2));
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
364 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
365 else
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
366 return Fcopy_sequence (Fsymbol_name (symbol));
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
367 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
368
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
369 #ifdef HAVE_PTYS
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
370
11609
3b2dacb1bfe9 (create_process): Don't reference pty_name if !HAVE_PTYS.
Karl Heuer <kwzh@gnu.org>
parents: 11514
diff changeset
371 /* Open an available pty, returning a file descriptor.
3b2dacb1bfe9 (create_process): Don't reference pty_name if !HAVE_PTYS.
Karl Heuer <kwzh@gnu.org>
parents: 11514
diff changeset
372 Return -1 on failure.
3b2dacb1bfe9 (create_process): Don't reference pty_name if !HAVE_PTYS.
Karl Heuer <kwzh@gnu.org>
parents: 11514
diff changeset
373 The file name of the terminal corresponding to the pty
3b2dacb1bfe9 (create_process): Don't reference pty_name if !HAVE_PTYS.
Karl Heuer <kwzh@gnu.org>
parents: 11514
diff changeset
374 is left in the variable pty_name. */
3b2dacb1bfe9 (create_process): Don't reference pty_name if !HAVE_PTYS.
Karl Heuer <kwzh@gnu.org>
parents: 11514
diff changeset
375
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
376 int
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
377 allocate_pty ()
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
378 {
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
379 struct stat stb;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
380 register c, i;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
381 int fd;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
382
624
2bb7f23b7ea5 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 621
diff changeset
383 /* Some systems name their pseudoterminals so that there are gaps in
2bb7f23b7ea5 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 621
diff changeset
384 the usual sequence - for example, on HP9000/S700 systems, there
2bb7f23b7ea5 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 621
diff changeset
385 are no pseudoterminals with names ending in 'f'. So we wait for
2bb7f23b7ea5 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 621
diff changeset
386 three failures in a row before deciding that we've reached the
2bb7f23b7ea5 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 621
diff changeset
387 end of the ptys. */
2bb7f23b7ea5 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 621
diff changeset
388 int failed_count = 0;
2bb7f23b7ea5 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 621
diff changeset
389
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
390 #ifdef PTY_ITERATION
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
391 PTY_ITERATION
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
392 #else
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
393 for (c = FIRST_PTY_LETTER; c <= 'z'; c++)
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
394 for (i = 0; i < 16; i++)
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
395 #endif
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
396 {
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
397 #ifdef PTY_NAME_SPRINTF
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
398 PTY_NAME_SPRINTF
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
399 #else
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
400 sprintf (pty_name, "/dev/pty%c%x", c, i);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
401 #endif /* no PTY_NAME_SPRINTF */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
402
822
c6e94e13926c *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 808
diff changeset
403 #ifdef PTY_OPEN
c6e94e13926c *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 808
diff changeset
404 PTY_OPEN;
c6e94e13926c *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 808
diff changeset
405 #else /* no PTY_OPEN */
624
2bb7f23b7ea5 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 621
diff changeset
406 #ifdef IRIS
2bb7f23b7ea5 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 621
diff changeset
407 /* Unusual IRIS code */
2bb7f23b7ea5 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 621
diff changeset
408 *ptyv = open ("/dev/ptc", O_RDWR | O_NDELAY, 0);
2bb7f23b7ea5 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 621
diff changeset
409 if (fd < 0)
2bb7f23b7ea5 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 621
diff changeset
410 return -1;
2bb7f23b7ea5 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 621
diff changeset
411 if (fstat (fd, &stb) < 0)
2bb7f23b7ea5 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 621
diff changeset
412 return -1;
822
c6e94e13926c *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 808
diff changeset
413 #else /* not IRIS */
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
414 if (stat (pty_name, &stb) < 0)
624
2bb7f23b7ea5 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 621
diff changeset
415 {
2bb7f23b7ea5 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 621
diff changeset
416 failed_count++;
2bb7f23b7ea5 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 621
diff changeset
417 if (failed_count >= 3)
2bb7f23b7ea5 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 621
diff changeset
418 return -1;
2bb7f23b7ea5 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 621
diff changeset
419 }
2bb7f23b7ea5 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 621
diff changeset
420 else
2bb7f23b7ea5 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 621
diff changeset
421 failed_count = 0;
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
422 #ifdef O_NONBLOCK
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
423 fd = open (pty_name, O_RDWR | O_NONBLOCK, 0);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
424 #else
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
425 fd = open (pty_name, O_RDWR | O_NDELAY, 0);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
426 #endif
822
c6e94e13926c *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 808
diff changeset
427 #endif /* not IRIS */
c6e94e13926c *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 808
diff changeset
428 #endif /* no PTY_OPEN */
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
429
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
430 if (fd >= 0)
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
431 {
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
432 /* check to make certain that both sides are available
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
433 this avoids a nasty yet stupid bug in rlogins */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
434 #ifdef PTY_TTY_NAME_SPRINTF
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
435 PTY_TTY_NAME_SPRINTF
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
436 #else
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
437 sprintf (pty_name, "/dev/tty%c%x", c, i);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
438 #endif /* no PTY_TTY_NAME_SPRINTF */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
439 #ifndef UNIPLUS
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
440 if (access (pty_name, 6) != 0)
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
441 {
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
442 close (fd);
2887
0554478bfa71 * process.c [__sgi] (allocate_pty): Give up immediately if pty is
Jim Blandy <jimb@redhat.com>
parents: 2830
diff changeset
443 #if !defined(IRIS) && !defined(__sgi)
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
444 continue;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
445 #else
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
446 return -1;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
447 #endif /* IRIS */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
448 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
449 #endif /* not UNIPLUS */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
450 setup_pty (fd);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
451 return fd;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
452 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
453 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
454 return -1;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
455 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
456 #endif /* HAVE_PTYS */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
457
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
458 Lisp_Object
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
459 make_process (name)
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
460 Lisp_Object name;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
461 {
9969
007d93b04e1f (make_process): Use allocate_vectorlike and VECSIZE.
Karl Heuer <kwzh@gnu.org>
parents: 9952
diff changeset
462 struct Lisp_Vector *vec;
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
463 register Lisp_Object val, tem, name1;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
464 register struct Lisp_Process *p;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
465 char suffix[10];
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
466 register int i;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
467
9969
007d93b04e1f (make_process): Use allocate_vectorlike and VECSIZE.
Karl Heuer <kwzh@gnu.org>
parents: 9952
diff changeset
468 vec = allocate_vectorlike ((EMACS_INT) VECSIZE (struct Lisp_Process));
007d93b04e1f (make_process): Use allocate_vectorlike and VECSIZE.
Karl Heuer <kwzh@gnu.org>
parents: 9952
diff changeset
469 for (i = 0; i < VECSIZE (struct Lisp_Process); i++)
007d93b04e1f (make_process): Use allocate_vectorlike and VECSIZE.
Karl Heuer <kwzh@gnu.org>
parents: 9952
diff changeset
470 vec->contents[i] = Qnil;
007d93b04e1f (make_process): Use allocate_vectorlike and VECSIZE.
Karl Heuer <kwzh@gnu.org>
parents: 9952
diff changeset
471 vec->size = VECSIZE (struct Lisp_Process);
007d93b04e1f (make_process): Use allocate_vectorlike and VECSIZE.
Karl Heuer <kwzh@gnu.org>
parents: 9952
diff changeset
472 p = (struct Lisp_Process *)vec;
007d93b04e1f (make_process): Use allocate_vectorlike and VECSIZE.
Karl Heuer <kwzh@gnu.org>
parents: 9952
diff changeset
473
9277
21f6120be5ba (make_process, create_process, Fopen_network_stream, deactivate_process,
Karl Heuer <kwzh@gnu.org>
parents: 9115
diff changeset
474 XSETINT (p->infd, -1);
21f6120be5ba (make_process, create_process, Fopen_network_stream, deactivate_process,
Karl Heuer <kwzh@gnu.org>
parents: 9115
diff changeset
475 XSETINT (p->outfd, -1);
9318
a14cc1712337 (make_process, list_processes_1, create_process, Faccept_process_output,
Karl Heuer <kwzh@gnu.org>
parents: 9277
diff changeset
476 XSETFASTINT (p->pid, 0);
a14cc1712337 (make_process, list_processes_1, create_process, Faccept_process_output,
Karl Heuer <kwzh@gnu.org>
parents: 9277
diff changeset
477 XSETFASTINT (p->tick, 0);
a14cc1712337 (make_process, list_processes_1, create_process, Faccept_process_output,
Karl Heuer <kwzh@gnu.org>
parents: 9277
diff changeset
478 XSETFASTINT (p->update_tick, 0);
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
479 p->raw_status_low = Qnil;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
480 p->raw_status_high = Qnil;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
481 p->status = Qrun;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
482 p->mark = Fmake_marker ();
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
483
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
484 /* If name is already in use, modify it until it is unused. */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
485
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
486 name1 = name;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
487 for (i = 1; ; i++)
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
488 {
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
489 tem = Fget_process (name1);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
490 if (NILP (tem)) break;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
491 sprintf (suffix, "<%d>", i);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
492 name1 = concat2 (name, build_string (suffix));
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
493 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
494 name = name1;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
495 p->name = name;
9969
007d93b04e1f (make_process): Use allocate_vectorlike and VECSIZE.
Karl Heuer <kwzh@gnu.org>
parents: 9952
diff changeset
496 XSETPROCESS (val, p);
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
497 Vprocess_alist = Fcons (Fcons (name, val), Vprocess_alist);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
498 return val;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
499 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
500
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
501 remove_process (proc)
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
502 register Lisp_Object proc;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
503 {
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
504 register Lisp_Object pair;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
505
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
506 pair = Frassq (proc, Vprocess_alist);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
507 Vprocess_alist = Fdelq (pair, Vprocess_alist);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
508
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
509 deactivate_process (proc);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
510 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
511
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
512 DEFUN ("processp", Fprocessp, Sprocessp, 1, 1, 0,
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
513 "Return t if OBJECT is a process.")
14085
85ce7bab31dc (Fprocessp, Fget_buffer_process, Fdelete_process, Fprocess_status,
Erik Naggum <erik@naggum.no>
parents: 14036
diff changeset
514 (object)
85ce7bab31dc (Fprocessp, Fget_buffer_process, Fdelete_process, Fprocess_status,
Erik Naggum <erik@naggum.no>
parents: 14036
diff changeset
515 Lisp_Object object;
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
516 {
14085
85ce7bab31dc (Fprocessp, Fget_buffer_process, Fdelete_process, Fprocess_status,
Erik Naggum <erik@naggum.no>
parents: 14036
diff changeset
517 return PROCESSP (object) ? Qt : Qnil;
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
518 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
519
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
520 DEFUN ("get-process", Fget_process, Sget_process, 1, 1, 0,
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
521 "Return the process named NAME, or nil if there is none.")
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
522 (name)
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
523 register Lisp_Object name;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
524 {
9115
59bc2d010b5f (decode_status, Fprocessp, Fget_process, Fget_buffer_process, Fprocess_status,
Karl Heuer <kwzh@gnu.org>
parents: 9034
diff changeset
525 if (PROCESSP (name))
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
526 return name;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
527 CHECK_STRING (name, 0);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
528 return Fcdr (Fassoc (name, Vprocess_alist));
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
529 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
530
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
531 DEFUN ("get-buffer-process", Fget_buffer_process, Sget_buffer_process, 1, 1, 0,
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
532 "Return the (or, a) process associated with BUFFER.\n\
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
533 BUFFER may be a buffer or the name of one.")
14085
85ce7bab31dc (Fprocessp, Fget_buffer_process, Fdelete_process, Fprocess_status,
Erik Naggum <erik@naggum.no>
parents: 14036
diff changeset
534 (buffer)
85ce7bab31dc (Fprocessp, Fget_buffer_process, Fdelete_process, Fprocess_status,
Erik Naggum <erik@naggum.no>
parents: 14036
diff changeset
535 register Lisp_Object buffer;
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
536 {
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
537 register Lisp_Object buf, tail, proc;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
538
14085
85ce7bab31dc (Fprocessp, Fget_buffer_process, Fdelete_process, Fprocess_status,
Erik Naggum <erik@naggum.no>
parents: 14036
diff changeset
539 if (NILP (buffer)) return Qnil;
85ce7bab31dc (Fprocessp, Fget_buffer_process, Fdelete_process, Fprocess_status,
Erik Naggum <erik@naggum.no>
parents: 14036
diff changeset
540 buf = Fget_buffer (buffer);
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
541 if (NILP (buf)) return Qnil;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
542
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
543 for (tail = Vprocess_alist; !NILP (tail); tail = Fcdr (tail))
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
544 {
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
545 proc = Fcdr (Fcar (tail));
9115
59bc2d010b5f (decode_status, Fprocessp, Fget_process, Fget_buffer_process, Fprocess_status,
Karl Heuer <kwzh@gnu.org>
parents: 9034
diff changeset
546 if (PROCESSP (proc) && EQ (XPROCESS (proc)->buffer, buf))
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
547 return proc;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
548 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
549 return Qnil;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
550 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
551
808
707866b2a190 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 765
diff changeset
552 /* This is how commands for the user decode process arguments. It
707866b2a190 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 765
diff changeset
553 accepts a process, a process name, a buffer, a buffer name, or nil.
707866b2a190 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 765
diff changeset
554 Buffers denote the first process in the buffer, and nil denotes the
707866b2a190 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 765
diff changeset
555 current buffer. */
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
556
4994
4146a65b9f02 (get_process): Add `static' to definition.
Richard M. Stallman <rms@gnu.org>
parents: 4914
diff changeset
557 static Lisp_Object
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
558 get_process (name)
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
559 register Lisp_Object name;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
560 {
6313
9a6531e6de5d (get_process): Allow arg to be a buffer object.
Karl Heuer <kwzh@gnu.org>
parents: 6253
diff changeset
561 register Lisp_Object proc, obj;
9a6531e6de5d (get_process): Allow arg to be a buffer object.
Karl Heuer <kwzh@gnu.org>
parents: 6253
diff changeset
562 if (STRINGP (name))
9a6531e6de5d (get_process): Allow arg to be a buffer object.
Karl Heuer <kwzh@gnu.org>
parents: 6253
diff changeset
563 {
9a6531e6de5d (get_process): Allow arg to be a buffer object.
Karl Heuer <kwzh@gnu.org>
parents: 6253
diff changeset
564 obj = Fget_process (name);
9a6531e6de5d (get_process): Allow arg to be a buffer object.
Karl Heuer <kwzh@gnu.org>
parents: 6253
diff changeset
565 if (NILP (obj))
9a6531e6de5d (get_process): Allow arg to be a buffer object.
Karl Heuer <kwzh@gnu.org>
parents: 6253
diff changeset
566 obj = Fget_buffer (name);
9a6531e6de5d (get_process): Allow arg to be a buffer object.
Karl Heuer <kwzh@gnu.org>
parents: 6253
diff changeset
567 if (NILP (obj))
9a6531e6de5d (get_process): Allow arg to be a buffer object.
Karl Heuer <kwzh@gnu.org>
parents: 6253
diff changeset
568 error ("Process %s does not exist", XSTRING (name)->data);
9a6531e6de5d (get_process): Allow arg to be a buffer object.
Karl Heuer <kwzh@gnu.org>
parents: 6253
diff changeset
569 }
9a6531e6de5d (get_process): Allow arg to be a buffer object.
Karl Heuer <kwzh@gnu.org>
parents: 6253
diff changeset
570 else if (NILP (name))
9a6531e6de5d (get_process): Allow arg to be a buffer object.
Karl Heuer <kwzh@gnu.org>
parents: 6253
diff changeset
571 obj = Fcurrent_buffer ();
9a6531e6de5d (get_process): Allow arg to be a buffer object.
Karl Heuer <kwzh@gnu.org>
parents: 6253
diff changeset
572 else
9a6531e6de5d (get_process): Allow arg to be a buffer object.
Karl Heuer <kwzh@gnu.org>
parents: 6253
diff changeset
573 obj = name;
9a6531e6de5d (get_process): Allow arg to be a buffer object.
Karl Heuer <kwzh@gnu.org>
parents: 6253
diff changeset
574
9a6531e6de5d (get_process): Allow arg to be a buffer object.
Karl Heuer <kwzh@gnu.org>
parents: 6253
diff changeset
575 /* Now obj should be either a buffer object or a process object.
9a6531e6de5d (get_process): Allow arg to be a buffer object.
Karl Heuer <kwzh@gnu.org>
parents: 6253
diff changeset
576 */
9a6531e6de5d (get_process): Allow arg to be a buffer object.
Karl Heuer <kwzh@gnu.org>
parents: 6253
diff changeset
577 if (BUFFERP (obj))
9a6531e6de5d (get_process): Allow arg to be a buffer object.
Karl Heuer <kwzh@gnu.org>
parents: 6253
diff changeset
578 {
9a6531e6de5d (get_process): Allow arg to be a buffer object.
Karl Heuer <kwzh@gnu.org>
parents: 6253
diff changeset
579 proc = Fget_buffer_process (obj);
9a6531e6de5d (get_process): Allow arg to be a buffer object.
Karl Heuer <kwzh@gnu.org>
parents: 6253
diff changeset
580 if (NILP (proc))
9a6531e6de5d (get_process): Allow arg to be a buffer object.
Karl Heuer <kwzh@gnu.org>
parents: 6253
diff changeset
581 error ("Buffer %s has no process", XSTRING (XBUFFER (obj)->name)->data);
9a6531e6de5d (get_process): Allow arg to be a buffer object.
Karl Heuer <kwzh@gnu.org>
parents: 6253
diff changeset
582 }
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
583 else
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
584 {
6313
9a6531e6de5d (get_process): Allow arg to be a buffer object.
Karl Heuer <kwzh@gnu.org>
parents: 6253
diff changeset
585 CHECK_PROCESS (obj, 0);
9a6531e6de5d (get_process): Allow arg to be a buffer object.
Karl Heuer <kwzh@gnu.org>
parents: 6253
diff changeset
586 proc = obj;
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
587 }
6313
9a6531e6de5d (get_process): Allow arg to be a buffer object.
Karl Heuer <kwzh@gnu.org>
parents: 6253
diff changeset
588 return proc;
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
589 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
590
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
591 DEFUN ("delete-process", Fdelete_process, Sdelete_process, 1, 1, 0,
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
592 "Delete PROCESS: kill it and forget about it immediately.\n\
808
707866b2a190 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 765
diff changeset
593 PROCESS may be a process, a buffer, the name of a process or buffer, or\n\
707866b2a190 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 765
diff changeset
594 nil, indicating the current buffer's process.")
14085
85ce7bab31dc (Fprocessp, Fget_buffer_process, Fdelete_process, Fprocess_status,
Erik Naggum <erik@naggum.no>
parents: 14036
diff changeset
595 (process)
85ce7bab31dc (Fprocessp, Fget_buffer_process, Fdelete_process, Fprocess_status,
Erik Naggum <erik@naggum.no>
parents: 14036
diff changeset
596 register Lisp_Object process;
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
597 {
14085
85ce7bab31dc (Fprocessp, Fget_buffer_process, Fdelete_process, Fprocess_status,
Erik Naggum <erik@naggum.no>
parents: 14036
diff changeset
598 process = get_process (process);
85ce7bab31dc (Fprocessp, Fget_buffer_process, Fdelete_process, Fprocess_status,
Erik Naggum <erik@naggum.no>
parents: 14036
diff changeset
599 XPROCESS (process)->raw_status_low = Qnil;
85ce7bab31dc (Fprocessp, Fget_buffer_process, Fdelete_process, Fprocess_status,
Erik Naggum <erik@naggum.no>
parents: 14036
diff changeset
600 XPROCESS (process)->raw_status_high = Qnil;
85ce7bab31dc (Fprocessp, Fget_buffer_process, Fdelete_process, Fprocess_status,
Erik Naggum <erik@naggum.no>
parents: 14036
diff changeset
601 if (NETCONN_P (process))
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
602 {
14085
85ce7bab31dc (Fprocessp, Fget_buffer_process, Fdelete_process, Fprocess_status,
Erik Naggum <erik@naggum.no>
parents: 14036
diff changeset
603 XPROCESS (process)->status = Fcons (Qexit, Fcons (make_number (0), Qnil));
85ce7bab31dc (Fprocessp, Fget_buffer_process, Fdelete_process, Fprocess_status,
Erik Naggum <erik@naggum.no>
parents: 14036
diff changeset
604 XSETINT (XPROCESS (process)->tick, ++process_tick);
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
605 }
14085
85ce7bab31dc (Fprocessp, Fget_buffer_process, Fdelete_process, Fprocess_status,
Erik Naggum <erik@naggum.no>
parents: 14036
diff changeset
606 else if (XINT (XPROCESS (process)->infd) >= 0)
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
607 {
14085
85ce7bab31dc (Fprocessp, Fget_buffer_process, Fdelete_process, Fprocess_status,
Erik Naggum <erik@naggum.no>
parents: 14036
diff changeset
608 Fkill_process (process, Qnil);
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
609 /* Do this now, since remove_process will make sigchld_handler do nothing. */
14085
85ce7bab31dc (Fprocessp, Fget_buffer_process, Fdelete_process, Fprocess_status,
Erik Naggum <erik@naggum.no>
parents: 14036
diff changeset
610 XPROCESS (process)->status
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
611 = Fcons (Qsignal, Fcons (make_number (SIGKILL), Qnil));
14085
85ce7bab31dc (Fprocessp, Fget_buffer_process, Fdelete_process, Fprocess_status,
Erik Naggum <erik@naggum.no>
parents: 14036
diff changeset
612 XSETINT (XPROCESS (process)->tick, ++process_tick);
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
613 status_notify ();
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
614 }
14085
85ce7bab31dc (Fprocessp, Fget_buffer_process, Fdelete_process, Fprocess_status,
Erik Naggum <erik@naggum.no>
parents: 14036
diff changeset
615 remove_process (process);
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
616 return Qnil;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
617 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
618
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
619 DEFUN ("process-status", Fprocess_status, Sprocess_status, 1, 1, 0,
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
620 "Return the status of PROCESS: a symbol, one of these:\n\
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
621 run -- for a process that is running.\n\
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
622 stop -- for a process stopped but continuable.\n\
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
623 exit -- for a process that has exited.\n\
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
624 signal -- for a process that has got a fatal signal.\n\
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
625 open -- for a network stream connection that is open.\n\
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
626 closed -- for a network stream connection that is closed.\n\
808
707866b2a190 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 765
diff changeset
627 nil -- if arg is a process name and no such process exists.\n\
707866b2a190 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 765
diff changeset
628 PROCESS may be a process, a buffer, the name of a process or buffer, or\n\
707866b2a190 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 765
diff changeset
629 nil, indicating the current buffer's process.")
14085
85ce7bab31dc (Fprocessp, Fget_buffer_process, Fdelete_process, Fprocess_status,
Erik Naggum <erik@naggum.no>
parents: 14036
diff changeset
630 (process)
85ce7bab31dc (Fprocessp, Fget_buffer_process, Fdelete_process, Fprocess_status,
Erik Naggum <erik@naggum.no>
parents: 14036
diff changeset
631 register Lisp_Object process;
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
632 {
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
633 register struct Lisp_Process *p;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
634 register Lisp_Object status;
7937
bf963799d8be (Fprocess_status): Return nil for process name that has no process.
Richard M. Stallman <rms@gnu.org>
parents: 7893
diff changeset
635
14085
85ce7bab31dc (Fprocessp, Fget_buffer_process, Fdelete_process, Fprocess_status,
Erik Naggum <erik@naggum.no>
parents: 14036
diff changeset
636 if (STRINGP (process))
85ce7bab31dc (Fprocessp, Fget_buffer_process, Fdelete_process, Fprocess_status,
Erik Naggum <erik@naggum.no>
parents: 14036
diff changeset
637 process = Fget_process (process);
7937
bf963799d8be (Fprocess_status): Return nil for process name that has no process.
Richard M. Stallman <rms@gnu.org>
parents: 7893
diff changeset
638 else
14085
85ce7bab31dc (Fprocessp, Fget_buffer_process, Fdelete_process, Fprocess_status,
Erik Naggum <erik@naggum.no>
parents: 14036
diff changeset
639 process = get_process (process);
85ce7bab31dc (Fprocessp, Fget_buffer_process, Fdelete_process, Fprocess_status,
Erik Naggum <erik@naggum.no>
parents: 14036
diff changeset
640
85ce7bab31dc (Fprocessp, Fget_buffer_process, Fdelete_process, Fprocess_status,
Erik Naggum <erik@naggum.no>
parents: 14036
diff changeset
641 if (NILP (process))
85ce7bab31dc (Fprocessp, Fget_buffer_process, Fdelete_process, Fprocess_status,
Erik Naggum <erik@naggum.no>
parents: 14036
diff changeset
642 return process;
85ce7bab31dc (Fprocessp, Fget_buffer_process, Fdelete_process, Fprocess_status,
Erik Naggum <erik@naggum.no>
parents: 14036
diff changeset
643
85ce7bab31dc (Fprocessp, Fget_buffer_process, Fdelete_process, Fprocess_status,
Erik Naggum <erik@naggum.no>
parents: 14036
diff changeset
644 p = XPROCESS (process);
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
645 if (!NILP (p->raw_status_low))
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
646 update_status (p);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
647 status = p->status;
9115
59bc2d010b5f (decode_status, Fprocessp, Fget_process, Fget_buffer_process, Fprocess_status,
Karl Heuer <kwzh@gnu.org>
parents: 9034
diff changeset
648 if (CONSP (status))
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
649 status = XCONS (status)->car;
14085
85ce7bab31dc (Fprocessp, Fget_buffer_process, Fdelete_process, Fprocess_status,
Erik Naggum <erik@naggum.no>
parents: 14036
diff changeset
650 if (NETCONN_P (process))
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
651 {
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
652 if (EQ (status, Qrun))
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
653 status = Qopen;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
654 else if (EQ (status, Qexit))
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
655 status = Qclosed;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
656 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
657 return status;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
658 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
659
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
660 DEFUN ("process-exit-status", Fprocess_exit_status, Sprocess_exit_status,
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
661 1, 1, 0,
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
662 "Return the exit status of PROCESS or the signal number that killed it.\n\
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
663 If PROCESS has not yet exited or died, return 0.")
14085
85ce7bab31dc (Fprocessp, Fget_buffer_process, Fdelete_process, Fprocess_status,
Erik Naggum <erik@naggum.no>
parents: 14036
diff changeset
664 (process)
85ce7bab31dc (Fprocessp, Fget_buffer_process, Fdelete_process, Fprocess_status,
Erik Naggum <erik@naggum.no>
parents: 14036
diff changeset
665 register Lisp_Object process;
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
666 {
14085
85ce7bab31dc (Fprocessp, Fget_buffer_process, Fdelete_process, Fprocess_status,
Erik Naggum <erik@naggum.no>
parents: 14036
diff changeset
667 CHECK_PROCESS (process, 0);
85ce7bab31dc (Fprocessp, Fget_buffer_process, Fdelete_process, Fprocess_status,
Erik Naggum <erik@naggum.no>
parents: 14036
diff changeset
668 if (!NILP (XPROCESS (process)->raw_status_low))
85ce7bab31dc (Fprocessp, Fget_buffer_process, Fdelete_process, Fprocess_status,
Erik Naggum <erik@naggum.no>
parents: 14036
diff changeset
669 update_status (XPROCESS (process));
85ce7bab31dc (Fprocessp, Fget_buffer_process, Fdelete_process, Fprocess_status,
Erik Naggum <erik@naggum.no>
parents: 14036
diff changeset
670 if (CONSP (XPROCESS (process)->status))
85ce7bab31dc (Fprocessp, Fget_buffer_process, Fdelete_process, Fprocess_status,
Erik Naggum <erik@naggum.no>
parents: 14036
diff changeset
671 return XCONS (XCONS (XPROCESS (process)->status)->cdr)->car;
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
672 return make_number (0);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
673 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
674
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
675 DEFUN ("process-id", Fprocess_id, Sprocess_id, 1, 1, 0,
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
676 "Return the process id of PROCESS.\n\
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
677 This is the pid of the Unix process which PROCESS uses or talks to.\n\
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
678 For a network connection, this value is nil.")
14085
85ce7bab31dc (Fprocessp, Fget_buffer_process, Fdelete_process, Fprocess_status,
Erik Naggum <erik@naggum.no>
parents: 14036
diff changeset
679 (process)
85ce7bab31dc (Fprocessp, Fget_buffer_process, Fdelete_process, Fprocess_status,
Erik Naggum <erik@naggum.no>
parents: 14036
diff changeset
680 register Lisp_Object process;
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
681 {
14085
85ce7bab31dc (Fprocessp, Fget_buffer_process, Fdelete_process, Fprocess_status,
Erik Naggum <erik@naggum.no>
parents: 14036
diff changeset
682 CHECK_PROCESS (process, 0);
85ce7bab31dc (Fprocessp, Fget_buffer_process, Fdelete_process, Fprocess_status,
Erik Naggum <erik@naggum.no>
parents: 14036
diff changeset
683 return XPROCESS (process)->pid;
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
684 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
685
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
686 DEFUN ("process-name", Fprocess_name, Sprocess_name, 1, 1, 0,
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
687 "Return the name of PROCESS, as a string.\n\
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
688 This is the name of the program invoked in PROCESS,\n\
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
689 possibly modified to make it unique among process names.")
14085
85ce7bab31dc (Fprocessp, Fget_buffer_process, Fdelete_process, Fprocess_status,
Erik Naggum <erik@naggum.no>
parents: 14036
diff changeset
690 (process)
85ce7bab31dc (Fprocessp, Fget_buffer_process, Fdelete_process, Fprocess_status,
Erik Naggum <erik@naggum.no>
parents: 14036
diff changeset
691 register Lisp_Object process;
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
692 {
14085
85ce7bab31dc (Fprocessp, Fget_buffer_process, Fdelete_process, Fprocess_status,
Erik Naggum <erik@naggum.no>
parents: 14036
diff changeset
693 CHECK_PROCESS (process, 0);
85ce7bab31dc (Fprocessp, Fget_buffer_process, Fdelete_process, Fprocess_status,
Erik Naggum <erik@naggum.no>
parents: 14036
diff changeset
694 return XPROCESS (process)->name;
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
695 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
696
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
697 DEFUN ("process-command", Fprocess_command, Sprocess_command, 1, 1, 0,
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
698 "Return the command that was executed to start PROCESS.\n\
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
699 This is a list of strings, the first string being the program executed\n\
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
700 and the rest of the strings being the arguments given to it.\n\
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
701 For a non-child channel, this is nil.")
14085
85ce7bab31dc (Fprocessp, Fget_buffer_process, Fdelete_process, Fprocess_status,
Erik Naggum <erik@naggum.no>
parents: 14036
diff changeset
702 (process)
85ce7bab31dc (Fprocessp, Fget_buffer_process, Fdelete_process, Fprocess_status,
Erik Naggum <erik@naggum.no>
parents: 14036
diff changeset
703 register Lisp_Object process;
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
704 {
14085
85ce7bab31dc (Fprocessp, Fget_buffer_process, Fdelete_process, Fprocess_status,
Erik Naggum <erik@naggum.no>
parents: 14036
diff changeset
705 CHECK_PROCESS (process, 0);
85ce7bab31dc (Fprocessp, Fget_buffer_process, Fdelete_process, Fprocess_status,
Erik Naggum <erik@naggum.no>
parents: 14036
diff changeset
706 return XPROCESS (process)->command;
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
707 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
708
9030
b14532c71632 (exec_sentinel_error_handler): New function.
Richard M. Stallman <rms@gnu.org>
parents: 8570
diff changeset
709 DEFUN ("process-tty-name", Fprocess_tty_name, Sprocess_tty_name, 1, 1, 0,
b14532c71632 (exec_sentinel_error_handler): New function.
Richard M. Stallman <rms@gnu.org>
parents: 8570
diff changeset
710 "Return the name of the terminal PROCESS uses, or nil if none.\n\
b14532c71632 (exec_sentinel_error_handler): New function.
Richard M. Stallman <rms@gnu.org>
parents: 8570
diff changeset
711 This is the terminal that the process itself reads and writes on,\n\
b14532c71632 (exec_sentinel_error_handler): New function.
Richard M. Stallman <rms@gnu.org>
parents: 8570
diff changeset
712 not the name of the pty that Emacs uses to talk with that terminal.")
14085
85ce7bab31dc (Fprocessp, Fget_buffer_process, Fdelete_process, Fprocess_status,
Erik Naggum <erik@naggum.no>
parents: 14036
diff changeset
713 (process)
85ce7bab31dc (Fprocessp, Fget_buffer_process, Fdelete_process, Fprocess_status,
Erik Naggum <erik@naggum.no>
parents: 14036
diff changeset
714 register Lisp_Object process;
9030
b14532c71632 (exec_sentinel_error_handler): New function.
Richard M. Stallman <rms@gnu.org>
parents: 8570
diff changeset
715 {
14085
85ce7bab31dc (Fprocessp, Fget_buffer_process, Fdelete_process, Fprocess_status,
Erik Naggum <erik@naggum.no>
parents: 14036
diff changeset
716 CHECK_PROCESS (process, 0);
85ce7bab31dc (Fprocessp, Fget_buffer_process, Fdelete_process, Fprocess_status,
Erik Naggum <erik@naggum.no>
parents: 14036
diff changeset
717 return XPROCESS (process)->tty_name;
9030
b14532c71632 (exec_sentinel_error_handler): New function.
Richard M. Stallman <rms@gnu.org>
parents: 8570
diff changeset
718 }
b14532c71632 (exec_sentinel_error_handler): New function.
Richard M. Stallman <rms@gnu.org>
parents: 8570
diff changeset
719
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
720 DEFUN ("set-process-buffer", Fset_process_buffer, Sset_process_buffer,
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
721 2, 2, 0,
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
722 "Set buffer associated with PROCESS to BUFFER (a buffer, or nil).")
14085
85ce7bab31dc (Fprocessp, Fget_buffer_process, Fdelete_process, Fprocess_status,
Erik Naggum <erik@naggum.no>
parents: 14036
diff changeset
723 (process, buffer)
85ce7bab31dc (Fprocessp, Fget_buffer_process, Fdelete_process, Fprocess_status,
Erik Naggum <erik@naggum.no>
parents: 14036
diff changeset
724 register Lisp_Object process, buffer;
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
725 {
14085
85ce7bab31dc (Fprocessp, Fget_buffer_process, Fdelete_process, Fprocess_status,
Erik Naggum <erik@naggum.no>
parents: 14036
diff changeset
726 CHECK_PROCESS (process, 0);
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
727 if (!NILP (buffer))
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
728 CHECK_BUFFER (buffer, 1);
14085
85ce7bab31dc (Fprocessp, Fget_buffer_process, Fdelete_process, Fprocess_status,
Erik Naggum <erik@naggum.no>
parents: 14036
diff changeset
729 XPROCESS (process)->buffer = buffer;
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
730 return buffer;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
731 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
732
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
733 DEFUN ("process-buffer", Fprocess_buffer, Sprocess_buffer,
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
734 1, 1, 0,
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
735 "Return the buffer PROCESS is associated with.\n\
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
736 Output from PROCESS is inserted in this buffer\n\
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
737 unless PROCESS has a filter.")
14085
85ce7bab31dc (Fprocessp, Fget_buffer_process, Fdelete_process, Fprocess_status,
Erik Naggum <erik@naggum.no>
parents: 14036
diff changeset
738 (process)
85ce7bab31dc (Fprocessp, Fget_buffer_process, Fdelete_process, Fprocess_status,
Erik Naggum <erik@naggum.no>
parents: 14036
diff changeset
739 register Lisp_Object process;
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
740 {
14085
85ce7bab31dc (Fprocessp, Fget_buffer_process, Fdelete_process, Fprocess_status,
Erik Naggum <erik@naggum.no>
parents: 14036
diff changeset
741 CHECK_PROCESS (process, 0);
85ce7bab31dc (Fprocessp, Fget_buffer_process, Fdelete_process, Fprocess_status,
Erik Naggum <erik@naggum.no>
parents: 14036
diff changeset
742 return XPROCESS (process)->buffer;
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
743 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
744
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
745 DEFUN ("process-mark", Fprocess_mark, Sprocess_mark,
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
746 1, 1, 0,
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
747 "Return the marker for the end of the last output from PROCESS.")
14085
85ce7bab31dc (Fprocessp, Fget_buffer_process, Fdelete_process, Fprocess_status,
Erik Naggum <erik@naggum.no>
parents: 14036
diff changeset
748 (process)
85ce7bab31dc (Fprocessp, Fget_buffer_process, Fdelete_process, Fprocess_status,
Erik Naggum <erik@naggum.no>
parents: 14036
diff changeset
749 register Lisp_Object process;
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
750 {
14085
85ce7bab31dc (Fprocessp, Fget_buffer_process, Fdelete_process, Fprocess_status,
Erik Naggum <erik@naggum.no>
parents: 14036
diff changeset
751 CHECK_PROCESS (process, 0);
85ce7bab31dc (Fprocessp, Fget_buffer_process, Fdelete_process, Fprocess_status,
Erik Naggum <erik@naggum.no>
parents: 14036
diff changeset
752 return XPROCESS (process)->mark;
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
753 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
754
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
755 DEFUN ("set-process-filter", Fset_process_filter, Sset_process_filter,
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
756 2, 2, 0,
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
757 "Give PROCESS the filter function FILTER; nil means no filter.\n\
4870
c53deda13fa9 (status_notify): Don't read from process if filter is t.
Richard M. Stallman <rms@gnu.org>
parents: 4696
diff changeset
758 t means stop accepting output from the process.\n\
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
759 When a process has a filter, each time it does output\n\
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
760 the entire string of output is passed to the filter.\n\
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
761 The filter gets two arguments: the process and the string of output.\n\
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
762 If the process has a filter, its buffer is not used for output.")
14085
85ce7bab31dc (Fprocessp, Fget_buffer_process, Fdelete_process, Fprocess_status,
Erik Naggum <erik@naggum.no>
parents: 14036
diff changeset
763 (process, filter)
85ce7bab31dc (Fprocessp, Fget_buffer_process, Fdelete_process, Fprocess_status,
Erik Naggum <erik@naggum.no>
parents: 14036
diff changeset
764 register Lisp_Object process, filter;
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
765 {
14085
85ce7bab31dc (Fprocessp, Fget_buffer_process, Fdelete_process, Fprocess_status,
Erik Naggum <erik@naggum.no>
parents: 14036
diff changeset
766 CHECK_PROCESS (process, 0);
4870
c53deda13fa9 (status_notify): Don't read from process if filter is t.
Richard M. Stallman <rms@gnu.org>
parents: 4696
diff changeset
767 if (EQ (filter, Qt))
9686
cd788aa8cb2a Handle multiple keyboard input descriptors.
Richard M. Stallman <rms@gnu.org>
parents: 9334
diff changeset
768 {
14085
85ce7bab31dc (Fprocessp, Fget_buffer_process, Fdelete_process, Fprocess_status,
Erik Naggum <erik@naggum.no>
parents: 14036
diff changeset
769 FD_CLR (XINT (XPROCESS (process)->infd), &input_wait_mask);
85ce7bab31dc (Fprocessp, Fget_buffer_process, Fdelete_process, Fprocess_status,
Erik Naggum <erik@naggum.no>
parents: 14036
diff changeset
770 FD_CLR (XINT (XPROCESS (process)->infd), &non_keyboard_wait_mask);
9686
cd788aa8cb2a Handle multiple keyboard input descriptors.
Richard M. Stallman <rms@gnu.org>
parents: 9334
diff changeset
771 }
14085
85ce7bab31dc (Fprocessp, Fget_buffer_process, Fdelete_process, Fprocess_status,
Erik Naggum <erik@naggum.no>
parents: 14036
diff changeset
772 else if (EQ (XPROCESS (process)->filter, Qt))
9686
cd788aa8cb2a Handle multiple keyboard input descriptors.
Richard M. Stallman <rms@gnu.org>
parents: 9334
diff changeset
773 {
14085
85ce7bab31dc (Fprocessp, Fget_buffer_process, Fdelete_process, Fprocess_status,
Erik Naggum <erik@naggum.no>
parents: 14036
diff changeset
774 FD_SET (XINT (XPROCESS (process)->infd), &input_wait_mask);
85ce7bab31dc (Fprocessp, Fget_buffer_process, Fdelete_process, Fprocess_status,
Erik Naggum <erik@naggum.no>
parents: 14036
diff changeset
775 FD_SET (XINT (XPROCESS (process)->infd), &non_keyboard_wait_mask);
9686
cd788aa8cb2a Handle multiple keyboard input descriptors.
Richard M. Stallman <rms@gnu.org>
parents: 9334
diff changeset
776 }
14085
85ce7bab31dc (Fprocessp, Fget_buffer_process, Fdelete_process, Fprocess_status,
Erik Naggum <erik@naggum.no>
parents: 14036
diff changeset
777 XPROCESS (process)->filter = filter;
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
778 return filter;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
779 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
780
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
781 DEFUN ("process-filter", Fprocess_filter, Sprocess_filter,
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
782 1, 1, 0,
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
783 "Returns the filter function of PROCESS; nil if none.\n\
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
784 See `set-process-filter' for more info on filter functions.")
14085
85ce7bab31dc (Fprocessp, Fget_buffer_process, Fdelete_process, Fprocess_status,
Erik Naggum <erik@naggum.no>
parents: 14036
diff changeset
785 (process)
85ce7bab31dc (Fprocessp, Fget_buffer_process, Fdelete_process, Fprocess_status,
Erik Naggum <erik@naggum.no>
parents: 14036
diff changeset
786 register Lisp_Object process;
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
787 {
14085
85ce7bab31dc (Fprocessp, Fget_buffer_process, Fdelete_process, Fprocess_status,
Erik Naggum <erik@naggum.no>
parents: 14036
diff changeset
788 CHECK_PROCESS (process, 0);
85ce7bab31dc (Fprocessp, Fget_buffer_process, Fdelete_process, Fprocess_status,
Erik Naggum <erik@naggum.no>
parents: 14036
diff changeset
789 return XPROCESS (process)->filter;
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
790 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
791
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
792 DEFUN ("set-process-sentinel", Fset_process_sentinel, Sset_process_sentinel,
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
793 2, 2, 0,
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
794 "Give PROCESS the sentinel SENTINEL; nil for none.\n\
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
795 The sentinel is called as a function when the process changes state.\n\
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
796 It gets two arguments: the process, and a string describing the change.")
14085
85ce7bab31dc (Fprocessp, Fget_buffer_process, Fdelete_process, Fprocess_status,
Erik Naggum <erik@naggum.no>
parents: 14036
diff changeset
797 (process, sentinel)
85ce7bab31dc (Fprocessp, Fget_buffer_process, Fdelete_process, Fprocess_status,
Erik Naggum <erik@naggum.no>
parents: 14036
diff changeset
798 register Lisp_Object process, sentinel;
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
799 {
14085
85ce7bab31dc (Fprocessp, Fget_buffer_process, Fdelete_process, Fprocess_status,
Erik Naggum <erik@naggum.no>
parents: 14036
diff changeset
800 CHECK_PROCESS (process, 0);
85ce7bab31dc (Fprocessp, Fget_buffer_process, Fdelete_process, Fprocess_status,
Erik Naggum <erik@naggum.no>
parents: 14036
diff changeset
801 XPROCESS (process)->sentinel = sentinel;
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
802 return sentinel;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
803 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
804
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
805 DEFUN ("process-sentinel", Fprocess_sentinel, Sprocess_sentinel,
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
806 1, 1, 0,
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
807 "Return the sentinel of PROCESS; nil if none.\n\
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
808 See `set-process-sentinel' for more info on sentinels.")
14085
85ce7bab31dc (Fprocessp, Fget_buffer_process, Fdelete_process, Fprocess_status,
Erik Naggum <erik@naggum.no>
parents: 14036
diff changeset
809 (process)
85ce7bab31dc (Fprocessp, Fget_buffer_process, Fdelete_process, Fprocess_status,
Erik Naggum <erik@naggum.no>
parents: 14036
diff changeset
810 register Lisp_Object process;
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
811 {
14085
85ce7bab31dc (Fprocessp, Fget_buffer_process, Fdelete_process, Fprocess_status,
Erik Naggum <erik@naggum.no>
parents: 14036
diff changeset
812 CHECK_PROCESS (process, 0);
85ce7bab31dc (Fprocessp, Fget_buffer_process, Fdelete_process, Fprocess_status,
Erik Naggum <erik@naggum.no>
parents: 14036
diff changeset
813 return XPROCESS (process)->sentinel;
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
814 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
815
6830
bcaddbe53068 (Fset_process_window_size): New function.
Richard M. Stallman <rms@gnu.org>
parents: 6823
diff changeset
816 DEFUN ("set-process-window-size", Fset_process_window_size,
bcaddbe53068 (Fset_process_window_size): New function.
Richard M. Stallman <rms@gnu.org>
parents: 6823
diff changeset
817 Sset_process_window_size, 3, 3, 0,
bcaddbe53068 (Fset_process_window_size): New function.
Richard M. Stallman <rms@gnu.org>
parents: 6823
diff changeset
818 "Tell PROCESS that it has logical window size HEIGHT and WIDTH.")
14085
85ce7bab31dc (Fprocessp, Fget_buffer_process, Fdelete_process, Fprocess_status,
Erik Naggum <erik@naggum.no>
parents: 14036
diff changeset
819 (process, height, width)
85ce7bab31dc (Fprocessp, Fget_buffer_process, Fdelete_process, Fprocess_status,
Erik Naggum <erik@naggum.no>
parents: 14036
diff changeset
820 register Lisp_Object process, height, width;
6830
bcaddbe53068 (Fset_process_window_size): New function.
Richard M. Stallman <rms@gnu.org>
parents: 6823
diff changeset
821 {
14085
85ce7bab31dc (Fprocessp, Fget_buffer_process, Fdelete_process, Fprocess_status,
Erik Naggum <erik@naggum.no>
parents: 14036
diff changeset
822 CHECK_PROCESS (process, 0);
6830
bcaddbe53068 (Fset_process_window_size): New function.
Richard M. Stallman <rms@gnu.org>
parents: 6823
diff changeset
823 CHECK_NATNUM (height, 0);
bcaddbe53068 (Fset_process_window_size): New function.
Richard M. Stallman <rms@gnu.org>
parents: 6823
diff changeset
824 CHECK_NATNUM (width, 0);
14085
85ce7bab31dc (Fprocessp, Fget_buffer_process, Fdelete_process, Fprocess_status,
Erik Naggum <erik@naggum.no>
parents: 14036
diff changeset
825 if (set_window_size (XINT (XPROCESS (process)->infd),
6830
bcaddbe53068 (Fset_process_window_size): New function.
Richard M. Stallman <rms@gnu.org>
parents: 6823
diff changeset
826 XINT (height), XINT(width)) <= 0)
bcaddbe53068 (Fset_process_window_size): New function.
Richard M. Stallman <rms@gnu.org>
parents: 6823
diff changeset
827 return Qnil;
bcaddbe53068 (Fset_process_window_size): New function.
Richard M. Stallman <rms@gnu.org>
parents: 6823
diff changeset
828 else
bcaddbe53068 (Fset_process_window_size): New function.
Richard M. Stallman <rms@gnu.org>
parents: 6823
diff changeset
829 return Qt;
bcaddbe53068 (Fset_process_window_size): New function.
Richard M. Stallman <rms@gnu.org>
parents: 6823
diff changeset
830 }
bcaddbe53068 (Fset_process_window_size): New function.
Richard M. Stallman <rms@gnu.org>
parents: 6823
diff changeset
831
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
832 DEFUN ("process-kill-without-query", Fprocess_kill_without_query,
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
833 Sprocess_kill_without_query, 1, 2, 0,
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
834 "Say no query needed if PROCESS is running when Emacs is exited.\n\
5846
1322c4daeda2 (Fprocess_kill_without_query): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 5579
diff changeset
835 Optional second argument if non-nil says to require a query.\n\
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
836 Value is t if a query was formerly required.")
14085
85ce7bab31dc (Fprocessp, Fget_buffer_process, Fdelete_process, Fprocess_status,
Erik Naggum <erik@naggum.no>
parents: 14036
diff changeset
837 (process, value)
85ce7bab31dc (Fprocessp, Fget_buffer_process, Fdelete_process, Fprocess_status,
Erik Naggum <erik@naggum.no>
parents: 14036
diff changeset
838 register Lisp_Object process, value;
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
839 {
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
840 Lisp_Object tem;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
841
14085
85ce7bab31dc (Fprocessp, Fget_buffer_process, Fdelete_process, Fprocess_status,
Erik Naggum <erik@naggum.no>
parents: 14036
diff changeset
842 CHECK_PROCESS (process, 0);
85ce7bab31dc (Fprocessp, Fget_buffer_process, Fdelete_process, Fprocess_status,
Erik Naggum <erik@naggum.no>
parents: 14036
diff changeset
843 tem = XPROCESS (process)->kill_without_query;
85ce7bab31dc (Fprocessp, Fget_buffer_process, Fdelete_process, Fprocess_status,
Erik Naggum <erik@naggum.no>
parents: 14036
diff changeset
844 XPROCESS (process)->kill_without_query = Fnull (value);
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
845
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
846 return Fnull (tem);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
847 }
4231
91a883c56382 (Fget_buffer_process): Delete doc string from
Richard M. Stallman <rms@gnu.org>
parents: 4057
diff changeset
848
16058
924aeb9ed7c3 (Fprocess_contact): New function.
Richard M. Stallman <rms@gnu.org>
parents: 16053
diff changeset
849 DEFUN ("process-contact", Fprocess_contact, Sprocess_contact,
924aeb9ed7c3 (Fprocess_contact): New function.
Richard M. Stallman <rms@gnu.org>
parents: 16053
diff changeset
850 1, 1, 0,
924aeb9ed7c3 (Fprocess_contact): New function.
Richard M. Stallman <rms@gnu.org>
parents: 16053
diff changeset
851 "Return the contact info of PROCESS; t for a real child.\n\
924aeb9ed7c3 (Fprocess_contact): New function.
Richard M. Stallman <rms@gnu.org>
parents: 16053
diff changeset
852 For a net connection, the value is a cons cell of the form (HOST SERVICE).")
924aeb9ed7c3 (Fprocess_contact): New function.
Richard M. Stallman <rms@gnu.org>
parents: 16053
diff changeset
853 (process)
924aeb9ed7c3 (Fprocess_contact): New function.
Richard M. Stallman <rms@gnu.org>
parents: 16053
diff changeset
854 register Lisp_Object process;
924aeb9ed7c3 (Fprocess_contact): New function.
Richard M. Stallman <rms@gnu.org>
parents: 16053
diff changeset
855 {
924aeb9ed7c3 (Fprocess_contact): New function.
Richard M. Stallman <rms@gnu.org>
parents: 16053
diff changeset
856 CHECK_PROCESS (process, 0);
924aeb9ed7c3 (Fprocess_contact): New function.
Richard M. Stallman <rms@gnu.org>
parents: 16053
diff changeset
857 return XPROCESS (process)->childp;
924aeb9ed7c3 (Fprocess_contact): New function.
Richard M. Stallman <rms@gnu.org>
parents: 16053
diff changeset
858 }
924aeb9ed7c3 (Fprocess_contact): New function.
Richard M. Stallman <rms@gnu.org>
parents: 16053
diff changeset
859
4231
91a883c56382 (Fget_buffer_process): Delete doc string from
Richard M. Stallman <rms@gnu.org>
parents: 4057
diff changeset
860 #if 0 /* Turned off because we don't currently record this info
91a883c56382 (Fget_buffer_process): Delete doc string from
Richard M. Stallman <rms@gnu.org>
parents: 4057
diff changeset
861 in the process. Perhaps add it. */
91a883c56382 (Fget_buffer_process): Delete doc string from
Richard M. Stallman <rms@gnu.org>
parents: 4057
diff changeset
862 DEFUN ("process-connection", Fprocess_connection, Sprocess_connection, 1, 1, 0,
91a883c56382 (Fget_buffer_process): Delete doc string from
Richard M. Stallman <rms@gnu.org>
parents: 4057
diff changeset
863 "Return the connection type of `PROCESS'.\n\
91a883c56382 (Fget_buffer_process): Delete doc string from
Richard M. Stallman <rms@gnu.org>
parents: 4057
diff changeset
864 The value is `nil' for a pipe,\n\
91a883c56382 (Fget_buffer_process): Delete doc string from
Richard M. Stallman <rms@gnu.org>
parents: 4057
diff changeset
865 `t' or `pty' for a pty, or `stream' for a socket connection.")
91a883c56382 (Fget_buffer_process): Delete doc string from
Richard M. Stallman <rms@gnu.org>
parents: 4057
diff changeset
866 (process)
91a883c56382 (Fget_buffer_process): Delete doc string from
Richard M. Stallman <rms@gnu.org>
parents: 4057
diff changeset
867 Lisp_Object process;
91a883c56382 (Fget_buffer_process): Delete doc string from
Richard M. Stallman <rms@gnu.org>
parents: 4057
diff changeset
868 {
91a883c56382 (Fget_buffer_process): Delete doc string from
Richard M. Stallman <rms@gnu.org>
parents: 4057
diff changeset
869 return XPROCESS (process)->type;
91a883c56382 (Fget_buffer_process): Delete doc string from
Richard M. Stallman <rms@gnu.org>
parents: 4057
diff changeset
870 }
91a883c56382 (Fget_buffer_process): Delete doc string from
Richard M. Stallman <rms@gnu.org>
parents: 4057
diff changeset
871 #endif
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
872
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
873 Lisp_Object
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
874 list_processes_1 ()
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
875 {
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
876 register Lisp_Object tail, tem;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
877 Lisp_Object proc, minspace, tem1;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
878 register struct buffer *old = current_buffer;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
879 register struct Lisp_Process *p;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
880 register int state;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
881 char tembuf[80];
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
882
9318
a14cc1712337 (make_process, list_processes_1, create_process, Faccept_process_output,
Karl Heuer <kwzh@gnu.org>
parents: 9277
diff changeset
883 XSETFASTINT (minspace, 1);
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
884
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
885 set_buffer_internal (XBUFFER (Vstandard_output));
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
886 Fbuffer_disable_undo (Vstandard_output);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
887
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
888 current_buffer->truncate_lines = Qt;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
889
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
890 write_string ("\
9697
328b8bc31f73 (list_processes_1): Print tty name.
Karl Heuer <kwzh@gnu.org>
parents: 9686
diff changeset
891 Proc Status Buffer Tty Command\n\
328b8bc31f73 (list_processes_1): Print tty name.
Karl Heuer <kwzh@gnu.org>
parents: 9686
diff changeset
892 ---- ------ ------ --- -------\n", -1);
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
893
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
894 for (tail = Vprocess_alist; !NILP (tail); tail = Fcdr (tail))
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
895 {
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
896 Lisp_Object symbol;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
897
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
898 proc = Fcdr (Fcar (tail));
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
899 p = XPROCESS (proc);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
900 if (NILP (p->childp))
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
901 continue;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
902
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
903 Finsert (1, &p->name);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
904 Findent_to (make_number (13), minspace);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
905
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
906 if (!NILP (p->raw_status_low))
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
907 update_status (p);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
908 symbol = p->status;
9115
59bc2d010b5f (decode_status, Fprocessp, Fget_process, Fget_buffer_process, Fprocess_status,
Karl Heuer <kwzh@gnu.org>
parents: 9034
diff changeset
909 if (CONSP (p->status))
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
910 symbol = XCONS (p->status)->car;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
911
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
912
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
913 if (EQ (symbol, Qsignal))
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
914 {
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
915 Lisp_Object tem;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
916 tem = Fcar (Fcdr (p->status));
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
917 #ifdef VMS
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
918 if (XINT (tem) < NSIG)
1594
b476a97ad17e * systty.h, process.c, buffer.h, callproc.c, sysdep.c, dired.c:
Jim Blandy <jimb@redhat.com>
parents: 1569
diff changeset
919 write_string (sys_errlist [XINT (tem)], -1);
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
920 else
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
921 #endif
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
922 Fprinc (symbol, Qnil);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
923 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
924 else if (NETCONN_P (proc))
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
925 {
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
926 if (EQ (symbol, Qrun))
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
927 write_string ("open", -1);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
928 else if (EQ (symbol, Qexit))
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
929 write_string ("closed", -1);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
930 else
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
931 Fprinc (symbol, Qnil);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
932 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
933 else
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
934 Fprinc (symbol, Qnil);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
935
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
936 if (EQ (symbol, Qexit))
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
937 {
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
938 Lisp_Object tem;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
939 tem = Fcar (Fcdr (p->status));
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
940 if (XFASTINT (tem))
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
941 {
11695
0f9b9c375416 (list_processes_1): Cast XFASTINT for passing to sprintf.
Richard M. Stallman <rms@gnu.org>
parents: 11609
diff changeset
942 sprintf (tembuf, " %d", (int) XFASTINT (tem));
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
943 write_string (tembuf, -1);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
944 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
945 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
946
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
947 if (EQ (symbol, Qsignal) || EQ (symbol, Qexit))
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
948 remove_process (proc);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
949
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
950 Findent_to (make_number (22), minspace);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
951 if (NILP (p->buffer))
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
952 insert_string ("(none)");
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
953 else if (NILP (XBUFFER (p->buffer)->name))
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
954 insert_string ("(Killed)");
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
955 else
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
956 Finsert (1, &XBUFFER (p->buffer)->name);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
957
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
958 Findent_to (make_number (37), minspace);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
959
9697
328b8bc31f73 (list_processes_1): Print tty name.
Karl Heuer <kwzh@gnu.org>
parents: 9686
diff changeset
960 if (STRINGP (p->tty_name))
328b8bc31f73 (list_processes_1): Print tty name.
Karl Heuer <kwzh@gnu.org>
parents: 9686
diff changeset
961 Finsert (1, &p->tty_name);
328b8bc31f73 (list_processes_1): Print tty name.
Karl Heuer <kwzh@gnu.org>
parents: 9686
diff changeset
962 else
328b8bc31f73 (list_processes_1): Print tty name.
Karl Heuer <kwzh@gnu.org>
parents: 9686
diff changeset
963 insert_string ("(none)");
328b8bc31f73 (list_processes_1): Print tty name.
Karl Heuer <kwzh@gnu.org>
parents: 9686
diff changeset
964
328b8bc31f73 (list_processes_1): Print tty name.
Karl Heuer <kwzh@gnu.org>
parents: 9686
diff changeset
965 Findent_to (make_number (49), minspace);
328b8bc31f73 (list_processes_1): Print tty name.
Karl Heuer <kwzh@gnu.org>
parents: 9686
diff changeset
966
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
967 if (NETCONN_P (proc))
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
968 {
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
969 sprintf (tembuf, "(network stream connection to %s)\n",
16058
924aeb9ed7c3 (Fprocess_contact): New function.
Richard M. Stallman <rms@gnu.org>
parents: 16053
diff changeset
970 XSTRING (XCONS (p->childp)->car)->data);
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
971 insert_string (tembuf);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
972 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
973 else
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
974 {
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
975 tem = p->command;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
976 while (1)
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
977 {
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
978 tem1 = Fcar (tem);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
979 Finsert (1, &tem1);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
980 tem = Fcdr (tem);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
981 if (NILP (tem))
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
982 break;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
983 insert_string (" ");
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
984 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
985 insert_string ("\n");
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
986 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
987 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
988 return Qnil;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
989 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
990
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
991 DEFUN ("list-processes", Flist_processes, Slist_processes, 0, 0, "",
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
992 "Display a list of all processes.\n\
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
993 \(Any processes listed as Exited or Signaled are actually eliminated\n\
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
994 after the listing is made.)")
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
995 ()
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
996 {
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
997 internal_with_output_to_temp_buffer ("*Process List*",
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
998 list_processes_1, Qnil);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
999 return Qnil;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1000 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1001
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1002 DEFUN ("process-list", Fprocess_list, Sprocess_list, 0, 0, 0,
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1003 "Return a list of all processes.")
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1004 ()
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1005 {
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1006 return Fmapcar (Qcdr, Vprocess_alist);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1007 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1008
1594
b476a97ad17e * systty.h, process.c, buffer.h, callproc.c, sysdep.c, dired.c:
Jim Blandy <jimb@redhat.com>
parents: 1569
diff changeset
1009 /* Starting asynchronous inferior processes. */
b476a97ad17e * systty.h, process.c, buffer.h, callproc.c, sysdep.c, dired.c:
Jim Blandy <jimb@redhat.com>
parents: 1569
diff changeset
1010
b476a97ad17e * systty.h, process.c, buffer.h, callproc.c, sysdep.c, dired.c:
Jim Blandy <jimb@redhat.com>
parents: 1569
diff changeset
1011 static Lisp_Object start_process_unwind ();
b476a97ad17e * systty.h, process.c, buffer.h, callproc.c, sysdep.c, dired.c:
Jim Blandy <jimb@redhat.com>
parents: 1569
diff changeset
1012
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1013 DEFUN ("start-process", Fstart_process, Sstart_process, 3, MANY, 0,
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1014 "Start a program in a subprocess. Return the process object for it.\n\
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1015 Args are NAME BUFFER PROGRAM &rest PROGRAM-ARGS\n\
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1016 NAME is name for process. It is modified if necessary to make it unique.\n\
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1017 BUFFER is the buffer or (buffer-name) to associate with the process.\n\
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1018 Process output goes at end of that buffer, unless you specify\n\
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1019 an output stream or filter function to handle the output.\n\
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1020 BUFFER may be also nil, meaning that this process is not associated\n\
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1021 with any buffer\n\
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1022 Third arg is program file name. It is searched for as in the shell.\n\
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1023 Remaining arguments are strings to give program as arguments.")
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1024 (nargs, args)
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1025 int nargs;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1026 register Lisp_Object *args;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1027 {
1683
a0a41de51400 Give subprocess creation a way to find a valid current directory
Jim Blandy <jimb@redhat.com>
parents: 1655
diff changeset
1028 Lisp_Object buffer, name, program, proc, current_dir, tem;
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1029 #ifdef VMS
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1030 register unsigned char *new_argv;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1031 int len;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1032 #else
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1033 register unsigned char **new_argv;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1034 #endif
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1035 register int i;
1594
b476a97ad17e * systty.h, process.c, buffer.h, callproc.c, sysdep.c, dired.c:
Jim Blandy <jimb@redhat.com>
parents: 1569
diff changeset
1036 int count = specpdl_ptr - specpdl;
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1037
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1038 buffer = args[1];
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1039 if (!NILP (buffer))
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1040 buffer = Fget_buffer_create (buffer);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1041
1683
a0a41de51400 Give subprocess creation a way to find a valid current directory
Jim Blandy <jimb@redhat.com>
parents: 1655
diff changeset
1042 /* Make sure that the child will be able to chdir to the current
a0a41de51400 Give subprocess creation a way to find a valid current directory
Jim Blandy <jimb@redhat.com>
parents: 1655
diff changeset
1043 buffer's current directory, or its unhandled equivalent. We
a0a41de51400 Give subprocess creation a way to find a valid current directory
Jim Blandy <jimb@redhat.com>
parents: 1655
diff changeset
1044 can't just have the child check for an error when it does the
a0a41de51400 Give subprocess creation a way to find a valid current directory
Jim Blandy <jimb@redhat.com>
parents: 1655
diff changeset
1045 chdir, since it's in a vfork.
a0a41de51400 Give subprocess creation a way to find a valid current directory
Jim Blandy <jimb@redhat.com>
parents: 1655
diff changeset
1046
a0a41de51400 Give subprocess creation a way to find a valid current directory
Jim Blandy <jimb@redhat.com>
parents: 1655
diff changeset
1047 We have to GCPRO around this because Fexpand_file_name and
a0a41de51400 Give subprocess creation a way to find a valid current directory
Jim Blandy <jimb@redhat.com>
parents: 1655
diff changeset
1048 Funhandled_file_name_directory might call a file name handling
a0a41de51400 Give subprocess creation a way to find a valid current directory
Jim Blandy <jimb@redhat.com>
parents: 1655
diff changeset
1049 function. The argument list is protected by the caller, so all
a0a41de51400 Give subprocess creation a way to find a valid current directory
Jim Blandy <jimb@redhat.com>
parents: 1655
diff changeset
1050 we really have to worry about is buffer. */
a0a41de51400 Give subprocess creation a way to find a valid current directory
Jim Blandy <jimb@redhat.com>
parents: 1655
diff changeset
1051 {
a0a41de51400 Give subprocess creation a way to find a valid current directory
Jim Blandy <jimb@redhat.com>
parents: 1655
diff changeset
1052 struct gcpro gcpro1, gcpro2;
a0a41de51400 Give subprocess creation a way to find a valid current directory
Jim Blandy <jimb@redhat.com>
parents: 1655
diff changeset
1053
a0a41de51400 Give subprocess creation a way to find a valid current directory
Jim Blandy <jimb@redhat.com>
parents: 1655
diff changeset
1054 current_dir = current_buffer->directory;
a0a41de51400 Give subprocess creation a way to find a valid current directory
Jim Blandy <jimb@redhat.com>
parents: 1655
diff changeset
1055
a0a41de51400 Give subprocess creation a way to find a valid current directory
Jim Blandy <jimb@redhat.com>
parents: 1655
diff changeset
1056 GCPRO2 (buffer, current_dir);
a0a41de51400 Give subprocess creation a way to find a valid current directory
Jim Blandy <jimb@redhat.com>
parents: 1655
diff changeset
1057
10744
54a76e0b97ec (Fstart_process): Make process marker point into proc buf.
Richard M. Stallman <rms@gnu.org>
parents: 10548
diff changeset
1058 current_dir
54a76e0b97ec (Fstart_process): Make process marker point into proc buf.
Richard M. Stallman <rms@gnu.org>
parents: 10548
diff changeset
1059 = expand_and_dir_to_file (Funhandled_file_name_directory (current_dir),
54a76e0b97ec (Fstart_process): Make process marker point into proc buf.
Richard M. Stallman <rms@gnu.org>
parents: 10548
diff changeset
1060 Qnil);
1683
a0a41de51400 Give subprocess creation a way to find a valid current directory
Jim Blandy <jimb@redhat.com>
parents: 1655
diff changeset
1061 if (NILP (Ffile_accessible_directory_p (current_dir)))
a0a41de51400 Give subprocess creation a way to find a valid current directory
Jim Blandy <jimb@redhat.com>
parents: 1655
diff changeset
1062 report_file_error ("Setting current directory",
a0a41de51400 Give subprocess creation a way to find a valid current directory
Jim Blandy <jimb@redhat.com>
parents: 1655
diff changeset
1063 Fcons (current_buffer->directory, Qnil));
a0a41de51400 Give subprocess creation a way to find a valid current directory
Jim Blandy <jimb@redhat.com>
parents: 1655
diff changeset
1064
a0a41de51400 Give subprocess creation a way to find a valid current directory
Jim Blandy <jimb@redhat.com>
parents: 1655
diff changeset
1065 UNGCPRO;
a0a41de51400 Give subprocess creation a way to find a valid current directory
Jim Blandy <jimb@redhat.com>
parents: 1655
diff changeset
1066 }
a0a41de51400 Give subprocess creation a way to find a valid current directory
Jim Blandy <jimb@redhat.com>
parents: 1655
diff changeset
1067
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1068 name = args[0];
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1069 CHECK_STRING (name, 0);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1070
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1071 program = args[2];
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1072
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1073 CHECK_STRING (program, 2);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1074
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1075 #ifdef VMS
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1076 /* Make a one member argv with all args concatenated
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1077 together separated by a blank. */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1078 len = XSTRING (program)->size + 2;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1079 for (i = 3; i < nargs; i++)
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1080 {
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1081 tem = args[i];
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1082 CHECK_STRING (tem, i);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1083 len += XSTRING (tem)->size + 1; /* count the blank */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1084 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1085 new_argv = (unsigned char *) alloca (len);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1086 strcpy (new_argv, XSTRING (program)->data);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1087 for (i = 3; i < nargs; i++)
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1088 {
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1089 tem = args[i];
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1090 CHECK_STRING (tem, i);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1091 strcat (new_argv, " ");
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1092 strcat (new_argv, XSTRING (tem)->data);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1093 }
1594
b476a97ad17e * systty.h, process.c, buffer.h, callproc.c, sysdep.c, dired.c:
Jim Blandy <jimb@redhat.com>
parents: 1569
diff changeset
1094 /* Need to add code here to check for program existence on VMS */
b476a97ad17e * systty.h, process.c, buffer.h, callproc.c, sysdep.c, dired.c:
Jim Blandy <jimb@redhat.com>
parents: 1569
diff changeset
1095
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1096 #else /* not VMS */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1097 new_argv = (unsigned char **) alloca ((nargs - 1) * sizeof (char *));
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1098
6390
9f8ce71435de (Fstart_process): GCPRO some things.
Karl Heuer <kwzh@gnu.org>
parents: 6345
diff changeset
1099 /* If program file name is not absolute, search our path for it */
9793
28267fcc61be Use macros IS_ANY_SEP, IS_DIRECTORY_SEP,
Richard M. Stallman <rms@gnu.org>
parents: 9705
diff changeset
1100 if (!IS_DIRECTORY_SEP (XSTRING (program)->data[0])
28267fcc61be Use macros IS_ANY_SEP, IS_DIRECTORY_SEP,
Richard M. Stallman <rms@gnu.org>
parents: 9705
diff changeset
1101 && !(XSTRING (program)->size > 1
28267fcc61be Use macros IS_ANY_SEP, IS_DIRECTORY_SEP,
Richard M. Stallman <rms@gnu.org>
parents: 9705
diff changeset
1102 && IS_DEVICE_SEP (XSTRING (program)->data[1])))
6390
9f8ce71435de (Fstart_process): GCPRO some things.
Karl Heuer <kwzh@gnu.org>
parents: 6345
diff changeset
1103 {
9f8ce71435de (Fstart_process): GCPRO some things.
Karl Heuer <kwzh@gnu.org>
parents: 6345
diff changeset
1104 struct gcpro gcpro1, gcpro2, gcpro3, gcpro4;
9f8ce71435de (Fstart_process): GCPRO some things.
Karl Heuer <kwzh@gnu.org>
parents: 6345
diff changeset
1105
9f8ce71435de (Fstart_process): GCPRO some things.
Karl Heuer <kwzh@gnu.org>
parents: 6345
diff changeset
1106 tem = Qnil;
9f8ce71435de (Fstart_process): GCPRO some things.
Karl Heuer <kwzh@gnu.org>
parents: 6345
diff changeset
1107 GCPRO4 (name, program, buffer, current_dir);
9f8ce71435de (Fstart_process): GCPRO some things.
Karl Heuer <kwzh@gnu.org>
parents: 6345
diff changeset
1108 openp (Vexec_path, program, EXEC_SUFFIXES, &tem, 1);
9f8ce71435de (Fstart_process): GCPRO some things.
Karl Heuer <kwzh@gnu.org>
parents: 6345
diff changeset
1109 UNGCPRO;
9f8ce71435de (Fstart_process): GCPRO some things.
Karl Heuer <kwzh@gnu.org>
parents: 6345
diff changeset
1110 if (NILP (tem))
9f8ce71435de (Fstart_process): GCPRO some things.
Karl Heuer <kwzh@gnu.org>
parents: 6345
diff changeset
1111 report_file_error ("Searching for program", Fcons (program, Qnil));
12648
98aba238cf62 (Fstart_process): Don't expand the file name before trying openp.
Richard M. Stallman <rms@gnu.org>
parents: 12541
diff changeset
1112 tem = Fexpand_file_name (tem, Qnil);
6390
9f8ce71435de (Fstart_process): GCPRO some things.
Karl Heuer <kwzh@gnu.org>
parents: 6345
diff changeset
1113 new_argv[0] = XSTRING (tem)->data;
9f8ce71435de (Fstart_process): GCPRO some things.
Karl Heuer <kwzh@gnu.org>
parents: 6345
diff changeset
1114 }
9f8ce71435de (Fstart_process): GCPRO some things.
Karl Heuer <kwzh@gnu.org>
parents: 6345
diff changeset
1115 else
12491
4ad7be34ece1 (Fstart_process): Expand PROGRAM.
Richard M. Stallman <rms@gnu.org>
parents: 12378
diff changeset
1116 {
4ad7be34ece1 (Fstart_process): Expand PROGRAM.
Richard M. Stallman <rms@gnu.org>
parents: 12378
diff changeset
1117 if (!NILP (Ffile_directory_p (program)))
4ad7be34ece1 (Fstart_process): Expand PROGRAM.
Richard M. Stallman <rms@gnu.org>
parents: 12378
diff changeset
1118 error ("Specified program for new process is a directory");
4ad7be34ece1 (Fstart_process): Expand PROGRAM.
Richard M. Stallman <rms@gnu.org>
parents: 12378
diff changeset
1119
4ad7be34ece1 (Fstart_process): Expand PROGRAM.
Richard M. Stallman <rms@gnu.org>
parents: 12378
diff changeset
1120 new_argv[0] = XSTRING (program)->data;
4ad7be34ece1 (Fstart_process): Expand PROGRAM.
Richard M. Stallman <rms@gnu.org>
parents: 12378
diff changeset
1121 }
6390
9f8ce71435de (Fstart_process): GCPRO some things.
Karl Heuer <kwzh@gnu.org>
parents: 6345
diff changeset
1122
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1123 for (i = 3; i < nargs; i++)
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1124 {
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1125 tem = args[i];
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1126 CHECK_STRING (tem, i);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1127 new_argv[i - 2] = XSTRING (tem)->data;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1128 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1129 new_argv[i - 2] = 0;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1130 #endif /* not VMS */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1131
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1132 proc = make_process (name);
1594
b476a97ad17e * systty.h, process.c, buffer.h, callproc.c, sysdep.c, dired.c:
Jim Blandy <jimb@redhat.com>
parents: 1569
diff changeset
1133 /* If an error occurs and we can't start the process, we want to
b476a97ad17e * systty.h, process.c, buffer.h, callproc.c, sysdep.c, dired.c:
Jim Blandy <jimb@redhat.com>
parents: 1569
diff changeset
1134 remove it from the process list. This means that each error
b476a97ad17e * systty.h, process.c, buffer.h, callproc.c, sysdep.c, dired.c:
Jim Blandy <jimb@redhat.com>
parents: 1569
diff changeset
1135 check in create_process doesn't need to call remove_process
b476a97ad17e * systty.h, process.c, buffer.h, callproc.c, sysdep.c, dired.c:
Jim Blandy <jimb@redhat.com>
parents: 1569
diff changeset
1136 itself; it's all taken care of here. */
b476a97ad17e * systty.h, process.c, buffer.h, callproc.c, sysdep.c, dired.c:
Jim Blandy <jimb@redhat.com>
parents: 1569
diff changeset
1137 record_unwind_protect (start_process_unwind, proc);
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1138
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1139 XPROCESS (proc)->childp = Qt;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1140 XPROCESS (proc)->command_channel_p = Qnil;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1141 XPROCESS (proc)->buffer = buffer;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1142 XPROCESS (proc)->sentinel = Qnil;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1143 XPROCESS (proc)->filter = Qnil;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1144 XPROCESS (proc)->command = Flist (nargs - 2, args + 2);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1145
10744
54a76e0b97ec (Fstart_process): Make process marker point into proc buf.
Richard M. Stallman <rms@gnu.org>
parents: 10548
diff changeset
1146 /* Make the process marker point into the process buffer (if any). */
54a76e0b97ec (Fstart_process): Make process marker point into proc buf.
Richard M. Stallman <rms@gnu.org>
parents: 10548
diff changeset
1147 if (!NILP (buffer))
54a76e0b97ec (Fstart_process): Make process marker point into proc buf.
Richard M. Stallman <rms@gnu.org>
parents: 10548
diff changeset
1148 Fset_marker (XPROCESS (proc)->mark,
54a76e0b97ec (Fstart_process): Make process marker point into proc buf.
Richard M. Stallman <rms@gnu.org>
parents: 10548
diff changeset
1149 make_number (BUF_ZV (XBUFFER (buffer))), buffer);
54a76e0b97ec (Fstart_process): Make process marker point into proc buf.
Richard M. Stallman <rms@gnu.org>
parents: 10548
diff changeset
1150
1683
a0a41de51400 Give subprocess creation a way to find a valid current directory
Jim Blandy <jimb@redhat.com>
parents: 1655
diff changeset
1151 create_process (proc, new_argv, current_dir);
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1152
1594
b476a97ad17e * systty.h, process.c, buffer.h, callproc.c, sysdep.c, dired.c:
Jim Blandy <jimb@redhat.com>
parents: 1569
diff changeset
1153 return unbind_to (count, proc);
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1154 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1155
1594
b476a97ad17e * systty.h, process.c, buffer.h, callproc.c, sysdep.c, dired.c:
Jim Blandy <jimb@redhat.com>
parents: 1569
diff changeset
1156 /* This function is the unwind_protect form for Fstart_process. If
14036
621a575db6f7 Comment fixes.
Karl Heuer <kwzh@gnu.org>
parents: 13777
diff changeset
1157 PROC doesn't have its pid set, then we know someone has signaled
1594
b476a97ad17e * systty.h, process.c, buffer.h, callproc.c, sysdep.c, dired.c:
Jim Blandy <jimb@redhat.com>
parents: 1569
diff changeset
1158 an error and the process wasn't started successfully, so we should
b476a97ad17e * systty.h, process.c, buffer.h, callproc.c, sysdep.c, dired.c:
Jim Blandy <jimb@redhat.com>
parents: 1569
diff changeset
1159 remove it from the process list. */
b476a97ad17e * systty.h, process.c, buffer.h, callproc.c, sysdep.c, dired.c:
Jim Blandy <jimb@redhat.com>
parents: 1569
diff changeset
1160 static Lisp_Object
b476a97ad17e * systty.h, process.c, buffer.h, callproc.c, sysdep.c, dired.c:
Jim Blandy <jimb@redhat.com>
parents: 1569
diff changeset
1161 start_process_unwind (proc)
b476a97ad17e * systty.h, process.c, buffer.h, callproc.c, sysdep.c, dired.c:
Jim Blandy <jimb@redhat.com>
parents: 1569
diff changeset
1162 Lisp_Object proc;
b476a97ad17e * systty.h, process.c, buffer.h, callproc.c, sysdep.c, dired.c:
Jim Blandy <jimb@redhat.com>
parents: 1569
diff changeset
1163 {
9115
59bc2d010b5f (decode_status, Fprocessp, Fget_process, Fget_buffer_process, Fprocess_status,
Karl Heuer <kwzh@gnu.org>
parents: 9034
diff changeset
1164 if (!PROCESSP (proc))
1594
b476a97ad17e * systty.h, process.c, buffer.h, callproc.c, sysdep.c, dired.c:
Jim Blandy <jimb@redhat.com>
parents: 1569
diff changeset
1165 abort ();
b476a97ad17e * systty.h, process.c, buffer.h, callproc.c, sysdep.c, dired.c:
Jim Blandy <jimb@redhat.com>
parents: 1569
diff changeset
1166
b476a97ad17e * systty.h, process.c, buffer.h, callproc.c, sysdep.c, dired.c:
Jim Blandy <jimb@redhat.com>
parents: 1569
diff changeset
1167 /* Was PROC started successfully? */
3685
47d7fda8a609 (start_process_unwind): Use XINT.
Richard M. Stallman <rms@gnu.org>
parents: 3666
diff changeset
1168 if (XINT (XPROCESS (proc)->pid) <= 0)
1594
b476a97ad17e * systty.h, process.c, buffer.h, callproc.c, sysdep.c, dired.c:
Jim Blandy <jimb@redhat.com>
parents: 1569
diff changeset
1169 remove_process (proc);
b476a97ad17e * systty.h, process.c, buffer.h, callproc.c, sysdep.c, dired.c:
Jim Blandy <jimb@redhat.com>
parents: 1569
diff changeset
1170
b476a97ad17e * systty.h, process.c, buffer.h, callproc.c, sysdep.c, dired.c:
Jim Blandy <jimb@redhat.com>
parents: 1569
diff changeset
1171 return Qnil;
b476a97ad17e * systty.h, process.c, buffer.h, callproc.c, sysdep.c, dired.c:
Jim Blandy <jimb@redhat.com>
parents: 1569
diff changeset
1172 }
b476a97ad17e * systty.h, process.c, buffer.h, callproc.c, sysdep.c, dired.c:
Jim Blandy <jimb@redhat.com>
parents: 1569
diff changeset
1173
b476a97ad17e * systty.h, process.c, buffer.h, callproc.c, sysdep.c, dired.c:
Jim Blandy <jimb@redhat.com>
parents: 1569
diff changeset
1174
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1175 SIGTYPE
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1176 create_process_1 (signo)
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1177 int signo;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1178 {
16116
80a67b8f39e9 (create_process_1, sigchld_handler) [POSIX_SIGNALS]:
Richard M. Stallman <rms@gnu.org>
parents: 16076
diff changeset
1179 #if defined (USG) && !defined (POSIX_SIGNALS)
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1180 /* USG systems forget handlers when they are used;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1181 must reestablish each time */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1182 signal (signo, create_process_1);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1183 #endif /* USG */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1184 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1185
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1186 #if 0 /* This doesn't work; see the note before sigchld_handler. */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1187 #ifdef USG
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1188 #ifdef SIGCHLD
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1189 /* Mimic blocking of signals on system V, which doesn't really have it. */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1190
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1191 /* Nonzero means we got a SIGCHLD when it was supposed to be blocked. */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1192 int sigchld_deferred;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1193
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1194 SIGTYPE
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1195 create_process_sigchld ()
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1196 {
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1197 signal (SIGCHLD, create_process_sigchld);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1198
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1199 sigchld_deferred = 1;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1200 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1201 #endif
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1202 #endif
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1203 #endif
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1204
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1205 #ifndef VMS /* VMS version of this function is in vmsproc.c. */
1683
a0a41de51400 Give subprocess creation a way to find a valid current directory
Jim Blandy <jimb@redhat.com>
parents: 1655
diff changeset
1206 create_process (process, new_argv, current_dir)
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1207 Lisp_Object process;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1208 char **new_argv;
1683
a0a41de51400 Give subprocess creation a way to find a valid current directory
Jim Blandy <jimb@redhat.com>
parents: 1655
diff changeset
1209 Lisp_Object current_dir;
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1210 {
11926
40d7e6f04ebe (create_process, send_process): Add volatile qualifiers.
Karl Heuer <kwzh@gnu.org>
parents: 11845
diff changeset
1211 int pid, inchannel, outchannel;
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1212 int sv[2];
13709
d16f31ae8adf (create_process): Use Posix signal handling to
Karl Heuer <kwzh@gnu.org>
parents: 13414
diff changeset
1213 #ifdef POSIX_SIGNALS
d16f31ae8adf (create_process): Use Posix signal handling to
Karl Heuer <kwzh@gnu.org>
parents: 13414
diff changeset
1214 sigset_t procmask;
d16f31ae8adf (create_process): Use Posix signal handling to
Karl Heuer <kwzh@gnu.org>
parents: 13414
diff changeset
1215 sigset_t blocked;
d16f31ae8adf (create_process): Use Posix signal handling to
Karl Heuer <kwzh@gnu.org>
parents: 13414
diff changeset
1216 struct sigaction sigint_action;
d16f31ae8adf (create_process): Use Posix signal handling to
Karl Heuer <kwzh@gnu.org>
parents: 13414
diff changeset
1217 struct sigaction sigquit_action;
d16f31ae8adf (create_process): Use Posix signal handling to
Karl Heuer <kwzh@gnu.org>
parents: 13414
diff changeset
1218 #ifdef AIX
d16f31ae8adf (create_process): Use Posix signal handling to
Karl Heuer <kwzh@gnu.org>
parents: 13414
diff changeset
1219 struct sigaction sighup_action;
d16f31ae8adf (create_process): Use Posix signal handling to
Karl Heuer <kwzh@gnu.org>
parents: 13414
diff changeset
1220 #endif
d16f31ae8adf (create_process): Use Posix signal handling to
Karl Heuer <kwzh@gnu.org>
parents: 13414
diff changeset
1221 #else /* !POSIX_SIGNALS */
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1222 #ifdef SIGCHLD
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1223 SIGTYPE (*sigchld)();
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1224 #endif
13709
d16f31ae8adf (create_process): Use Posix signal handling to
Karl Heuer <kwzh@gnu.org>
parents: 13414
diff changeset
1225 #endif /* !POSIX_SIGNALS */
11926
40d7e6f04ebe (create_process, send_process): Add volatile qualifiers.
Karl Heuer <kwzh@gnu.org>
parents: 11845
diff changeset
1226 /* Use volatile to protect variables from being clobbered by longjmp. */
40d7e6f04ebe (create_process, send_process): Add volatile qualifiers.
Karl Heuer <kwzh@gnu.org>
parents: 11845
diff changeset
1227 volatile int forkin, forkout;
40d7e6f04ebe (create_process, send_process): Add volatile qualifiers.
Karl Heuer <kwzh@gnu.org>
parents: 11845
diff changeset
1228 volatile int pty_flag = 0;
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1229 extern char **environ;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1230
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1231 inchannel = outchannel = -1;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1232
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1233 #ifdef HAVE_PTYS
7748
9a9c8372af80 (create_process): Get a pty for any non-nil Vprocess_connection_type value.
Richard M. Stallman <rms@gnu.org>
parents: 7605
diff changeset
1234 if (!NILP (Vprocess_connection_type))
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1235 outchannel = inchannel = allocate_pty ();
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1236
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1237 if (inchannel >= 0)
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1238 {
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1239 #ifndef USG
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1240 /* On USG systems it does not work to open the pty's tty here
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1241 and then close and reopen it in the child. */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1242 #ifdef O_NOCTTY
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1243 /* Don't let this terminal become our controlling terminal
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1244 (in case we don't have one). */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1245 forkout = forkin = open (pty_name, O_RDWR | O_NOCTTY, 0);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1246 #else
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1247 forkout = forkin = open (pty_name, O_RDWR, 0);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1248 #endif
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1249 if (forkin < 0)
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1250 report_file_error ("Opening pty", Qnil);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1251 #else
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1252 forkin = forkout = -1;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1253 #endif /* not USG */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1254 pty_flag = 1;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1255 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1256 else
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1257 #endif /* HAVE_PTYS */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1258 #ifdef SKTPAIR
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1259 {
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1260 if (socketpair (AF_UNIX, SOCK_STREAM, 0, sv) < 0)
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1261 report_file_error ("Opening socketpair", Qnil);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1262 outchannel = inchannel = sv[0];
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1263 forkout = forkin = sv[1];
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1264 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1265 #else /* not SKTPAIR */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1266 {
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1267 pipe (sv);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1268 inchannel = sv[0];
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1269 forkout = sv[1];
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1270 pipe (sv);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1271 outchannel = sv[1];
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1272 forkin = sv[0];
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1273 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1274 #endif /* not SKTPAIR */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1275
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1276 #if 0
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1277 /* Replaced by close_process_descs */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1278 set_exclusive_use (inchannel);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1279 set_exclusive_use (outchannel);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1280 #endif
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1281
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1282 /* Stride people say it's a mystery why this is needed
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1283 as well as the O_NDELAY, but that it fails without this. */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1284 #if defined (STRIDE) || (defined (pfa) && defined (HAVE_PTYS))
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1285 {
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1286 int one = 1;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1287 ioctl (inchannel, FIONBIO, &one);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1288 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1289 #endif
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1290
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1291 #ifdef O_NONBLOCK
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1292 fcntl (inchannel, F_SETFL, O_NONBLOCK);
14405
4aa693528ee3 (create_process): Set outchannel to be non-blocking.
Richard M. Stallman <rms@gnu.org>
parents: 14404
diff changeset
1293 fcntl (outchannel, F_SETFL, O_NONBLOCK);
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1294 #else
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1295 #ifdef O_NDELAY
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1296 fcntl (inchannel, F_SETFL, O_NDELAY);
14405
4aa693528ee3 (create_process): Set outchannel to be non-blocking.
Richard M. Stallman <rms@gnu.org>
parents: 14404
diff changeset
1297 fcntl (outchannel, F_SETFL, O_NDELAY);
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1298 #endif
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1299 #endif
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1300
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1301 /* Record this as an active process, with its channels.
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1302 As a result, child_setup will close Emacs's side of the pipes. */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1303 chan_process[inchannel] = process;
9277
21f6120be5ba (make_process, create_process, Fopen_network_stream, deactivate_process,
Karl Heuer <kwzh@gnu.org>
parents: 9115
diff changeset
1304 XSETINT (XPROCESS (process)->infd, inchannel);
21f6120be5ba (make_process, create_process, Fopen_network_stream, deactivate_process,
Karl Heuer <kwzh@gnu.org>
parents: 9115
diff changeset
1305 XSETINT (XPROCESS (process)->outfd, outchannel);
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1306 /* Record the tty descriptor used in the subprocess. */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1307 if (forkin < 0)
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1308 XPROCESS (process)->subtty = Qnil;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1309 else
9318
a14cc1712337 (make_process, list_processes_1, create_process, Faccept_process_output,
Karl Heuer <kwzh@gnu.org>
parents: 9277
diff changeset
1310 XSETFASTINT (XPROCESS (process)->subtty, forkin);
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1311 XPROCESS (process)->pty_flag = (pty_flag ? Qt : Qnil);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1312 XPROCESS (process)->status = Qrun;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1313
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1314 /* Delay interrupts until we have a chance to store
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1315 the new fork's pid in its process structure */
13709
d16f31ae8adf (create_process): Use Posix signal handling to
Karl Heuer <kwzh@gnu.org>
parents: 13414
diff changeset
1316 #ifdef POSIX_SIGNALS
d16f31ae8adf (create_process): Use Posix signal handling to
Karl Heuer <kwzh@gnu.org>
parents: 13414
diff changeset
1317 sigemptyset (&blocked);
d16f31ae8adf (create_process): Use Posix signal handling to
Karl Heuer <kwzh@gnu.org>
parents: 13414
diff changeset
1318 #ifdef SIGCHLD
d16f31ae8adf (create_process): Use Posix signal handling to
Karl Heuer <kwzh@gnu.org>
parents: 13414
diff changeset
1319 sigaddset (&blocked, SIGCHLD);
d16f31ae8adf (create_process): Use Posix signal handling to
Karl Heuer <kwzh@gnu.org>
parents: 13414
diff changeset
1320 #endif
d16f31ae8adf (create_process): Use Posix signal handling to
Karl Heuer <kwzh@gnu.org>
parents: 13414
diff changeset
1321 #ifdef HAVE_VFORK
d16f31ae8adf (create_process): Use Posix signal handling to
Karl Heuer <kwzh@gnu.org>
parents: 13414
diff changeset
1322 /* On many hosts (e.g. Solaris 2.4), if a vforked child calls `signal',
d16f31ae8adf (create_process): Use Posix signal handling to
Karl Heuer <kwzh@gnu.org>
parents: 13414
diff changeset
1323 this sets the parent's signal handlers as well as the child's.
d16f31ae8adf (create_process): Use Posix signal handling to
Karl Heuer <kwzh@gnu.org>
parents: 13414
diff changeset
1324 So delay all interrupts whose handlers the child might munge,
d16f31ae8adf (create_process): Use Posix signal handling to
Karl Heuer <kwzh@gnu.org>
parents: 13414
diff changeset
1325 and record the current handlers so they can be restored later. */
d16f31ae8adf (create_process): Use Posix signal handling to
Karl Heuer <kwzh@gnu.org>
parents: 13414
diff changeset
1326 sigaddset (&blocked, SIGINT ); sigaction (SIGINT , 0, &sigint_action );
d16f31ae8adf (create_process): Use Posix signal handling to
Karl Heuer <kwzh@gnu.org>
parents: 13414
diff changeset
1327 sigaddset (&blocked, SIGQUIT); sigaction (SIGQUIT, 0, &sigquit_action);
d16f31ae8adf (create_process): Use Posix signal handling to
Karl Heuer <kwzh@gnu.org>
parents: 13414
diff changeset
1328 #ifdef AIX
d16f31ae8adf (create_process): Use Posix signal handling to
Karl Heuer <kwzh@gnu.org>
parents: 13414
diff changeset
1329 sigaddset (&blocked, SIGHUP ); sigaction (SIGHUP , 0, &sighup_action );
d16f31ae8adf (create_process): Use Posix signal handling to
Karl Heuer <kwzh@gnu.org>
parents: 13414
diff changeset
1330 #endif
d16f31ae8adf (create_process): Use Posix signal handling to
Karl Heuer <kwzh@gnu.org>
parents: 13414
diff changeset
1331 #endif /* HAVE_VFORK */
d16f31ae8adf (create_process): Use Posix signal handling to
Karl Heuer <kwzh@gnu.org>
parents: 13414
diff changeset
1332 sigprocmask (SIG_BLOCK, &blocked, &procmask);
d16f31ae8adf (create_process): Use Posix signal handling to
Karl Heuer <kwzh@gnu.org>
parents: 13414
diff changeset
1333 #else /* !POSIX_SIGNALS */
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1334 #ifdef SIGCHLD
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1335 #ifdef BSD4_1
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1336 sighold (SIGCHLD);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1337 #else /* not BSD4_1 */
16220
02044b05d8e0 Replaced symbol BSD with BSD_SYSTEM.
Karl Heuer <kwzh@gnu.org>
parents: 16206
diff changeset
1338 #if defined (BSD_SYSTEM) || defined (UNIPLUS) || defined (HPUX)
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1339 sigsetmask (sigmask (SIGCHLD));
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1340 #else /* ordinary USG */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1341 #if 0
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1342 sigchld_deferred = 0;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1343 sigchld = signal (SIGCHLD, create_process_sigchld);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1344 #endif
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1345 #endif /* ordinary USG */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1346 #endif /* not BSD4_1 */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1347 #endif /* SIGCHLD */
13709
d16f31ae8adf (create_process): Use Posix signal handling to
Karl Heuer <kwzh@gnu.org>
parents: 13414
diff changeset
1348 #endif /* !POSIX_SIGNALS */
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1349
7893
e54617027a47 (create_process): Set input_wait_mask before forking.
Karl Heuer <kwzh@gnu.org>
parents: 7884
diff changeset
1350 FD_SET (inchannel, &input_wait_mask);
9686
cd788aa8cb2a Handle multiple keyboard input descriptors.
Richard M. Stallman <rms@gnu.org>
parents: 9334
diff changeset
1351 FD_SET (inchannel, &non_keyboard_wait_mask);
7893
e54617027a47 (create_process): Set input_wait_mask before forking.
Karl Heuer <kwzh@gnu.org>
parents: 7884
diff changeset
1352 if (inchannel > max_process_desc)
e54617027a47 (create_process): Set input_wait_mask before forking.
Karl Heuer <kwzh@gnu.org>
parents: 7884
diff changeset
1353 max_process_desc = inchannel;
e54617027a47 (create_process): Set input_wait_mask before forking.
Karl Heuer <kwzh@gnu.org>
parents: 7884
diff changeset
1354
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1355 /* Until we store the proper pid, enable sigchld_handler
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1356 to recognize an unknown pid as standing for this process.
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1357 It is very important not to let this `marker' value stay
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1358 in the table after this function has returned; if it does
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1359 it might cause call-process to hang and subsequent asynchronous
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1360 processes to get their return values scrambled. */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1361 XSETINT (XPROCESS (process)->pid, -1);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1362
16780
e9dc2569cb12 Include blockinput.h.
Richard M. Stallman <rms@gnu.org>
parents: 16728
diff changeset
1363 BLOCK_INPUT;
e9dc2569cb12 Include blockinput.h.
Richard M. Stallman <rms@gnu.org>
parents: 16728
diff changeset
1364
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1365 {
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1366 /* child_setup must clobber environ on systems with true vfork.
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1367 Protect it from permanent change. */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1368 char **save_environ = environ;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1369
9793
28267fcc61be Use macros IS_ANY_SEP, IS_DIRECTORY_SEP,
Richard M. Stallman <rms@gnu.org>
parents: 9705
diff changeset
1370 #ifndef WINDOWSNT
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1371 pid = vfork ();
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1372 if (pid == 0)
9793
28267fcc61be Use macros IS_ANY_SEP, IS_DIRECTORY_SEP,
Richard M. Stallman <rms@gnu.org>
parents: 9705
diff changeset
1373 #endif /* not WINDOWSNT */
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1374 {
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1375 int xforkin = forkin;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1376 int xforkout = forkout;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1377
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1378 #if 0 /* This was probably a mistake--it duplicates code later on,
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1379 but fails to handle all the cases. */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1380 /* Make sure SIGCHLD is not blocked in the child. */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1381 sigsetmask (SIGEMPTYMASK);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1382 #endif
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1383
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1384 /* Make the pty be the controlling terminal of the process. */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1385 #ifdef HAVE_PTYS
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1386 /* First, disconnect its current controlling terminal. */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1387 #ifdef HAVE_SETSID
7266
f87808bd90e9 (create_process): Undo April 19 setsid change.
Richard M. Stallman <rms@gnu.org>
parents: 7238
diff changeset
1388 /* We tried doing setsid only if pty_flag, but it caused
f87808bd90e9 (create_process): Undo April 19 setsid change.
Richard M. Stallman <rms@gnu.org>
parents: 7238
diff changeset
1389 process_set_signal to fail on SGI when using a pipe. */
f87808bd90e9 (create_process): Undo April 19 setsid change.
Richard M. Stallman <rms@gnu.org>
parents: 7238
diff changeset
1390 setsid ();
1030
9934251d8219 (WCOREDUMP): Define only if not defined.
Richard M. Stallman <rms@gnu.org>
parents: 1012
diff changeset
1391 /* Make the pty's terminal the controlling terminal. */
3023
cfd999700613 (create_process): Ignore retval from TIOCSTTY.
Richard M. Stallman <rms@gnu.org>
parents: 2961
diff changeset
1392 if (pty_flag)
6975
b7411e378b65 (create_process): Call setsid only if pty_flag.
Richard M. Stallman <rms@gnu.org>
parents: 6947
diff changeset
1393 {
b7411e378b65 (create_process): Call setsid only if pty_flag.
Richard M. Stallman <rms@gnu.org>
parents: 6947
diff changeset
1394 #ifdef TIOCSCTTY
b7411e378b65 (create_process): Call setsid only if pty_flag.
Richard M. Stallman <rms@gnu.org>
parents: 6947
diff changeset
1395 /* We ignore the return value
b7411e378b65 (create_process): Call setsid only if pty_flag.
Richard M. Stallman <rms@gnu.org>
parents: 6947
diff changeset
1396 because faith@cs.unc.edu says that is necessary on Linux. */
b7411e378b65 (create_process): Call setsid only if pty_flag.
Richard M. Stallman <rms@gnu.org>
parents: 6947
diff changeset
1397 ioctl (xforkin, TIOCSCTTY, 0);
1030
9934251d8219 (WCOREDUMP): Define only if not defined.
Richard M. Stallman <rms@gnu.org>
parents: 1012
diff changeset
1398 #endif
6975
b7411e378b65 (create_process): Call setsid only if pty_flag.
Richard M. Stallman <rms@gnu.org>
parents: 6947
diff changeset
1399 }
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1400 #else /* not HAVE_SETSID */
5181
31874690939f (create_process): Do setpgrp for USG regardless of IRIX.
Richard M. Stallman <rms@gnu.org>
parents: 5161
diff changeset
1401 #ifdef USG
5347
21bffe027a7d (create_process) [NTTYDISC]: Set the tty line discipline.
Richard M. Stallman <rms@gnu.org>
parents: 5332
diff changeset
1402 /* It's very important to call setpgrp here and no time
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1403 afterwards. Otherwise, we lose our controlling tty which
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1404 is set when we open the pty. */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1405 setpgrp ();
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1406 #endif /* USG */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1407 #endif /* not HAVE_SETSID */
7116
d35b11eed89f (create_process) [HAVE_TERMIOS && LDISC1]: Use tcsetattr.
Karl Heuer <kwzh@gnu.org>
parents: 7059
diff changeset
1408 #if defined (HAVE_TERMIOS) && defined (LDISC1)
d35b11eed89f (create_process) [HAVE_TERMIOS && LDISC1]: Use tcsetattr.
Karl Heuer <kwzh@gnu.org>
parents: 7059
diff changeset
1409 if (pty_flag && xforkin >= 0)
d35b11eed89f (create_process) [HAVE_TERMIOS && LDISC1]: Use tcsetattr.
Karl Heuer <kwzh@gnu.org>
parents: 7059
diff changeset
1410 {
d35b11eed89f (create_process) [HAVE_TERMIOS && LDISC1]: Use tcsetattr.
Karl Heuer <kwzh@gnu.org>
parents: 7059
diff changeset
1411 struct termios t;
d35b11eed89f (create_process) [HAVE_TERMIOS && LDISC1]: Use tcsetattr.
Karl Heuer <kwzh@gnu.org>
parents: 7059
diff changeset
1412 tcgetattr (xforkin, &t);
d35b11eed89f (create_process) [HAVE_TERMIOS && LDISC1]: Use tcsetattr.
Karl Heuer <kwzh@gnu.org>
parents: 7059
diff changeset
1413 t.c_lflag = LDISC1;
d35b11eed89f (create_process) [HAVE_TERMIOS && LDISC1]: Use tcsetattr.
Karl Heuer <kwzh@gnu.org>
parents: 7059
diff changeset
1414 if (tcsetattr (xforkin, TCSANOW, &t) < 0)
d35b11eed89f (create_process) [HAVE_TERMIOS && LDISC1]: Use tcsetattr.
Karl Heuer <kwzh@gnu.org>
parents: 7059
diff changeset
1415 write (1, "create_process/tcsetattr LDISC1 failed\n", 39);
d35b11eed89f (create_process) [HAVE_TERMIOS && LDISC1]: Use tcsetattr.
Karl Heuer <kwzh@gnu.org>
parents: 7059
diff changeset
1416 }
d35b11eed89f (create_process) [HAVE_TERMIOS && LDISC1]: Use tcsetattr.
Karl Heuer <kwzh@gnu.org>
parents: 7059
diff changeset
1417 #else
6947
c5f990fad6bb (create_process): Fix previous change.
Richard M. Stallman <rms@gnu.org>
parents: 6928
diff changeset
1418 #if defined (NTTYDISC) && defined (TIOCSETD)
6393
7de1d288460e (create_process): Skip the ioctl if fd is -1.
Karl Heuer <kwzh@gnu.org>
parents: 6390
diff changeset
1419 if (pty_flag && xforkin >= 0)
5548
36d2fd17f833 (create_process): Set line discipline only if pty_flag.
Richard M. Stallman <rms@gnu.org>
parents: 5543
diff changeset
1420 {
36d2fd17f833 (create_process): Set line discipline only if pty_flag.
Richard M. Stallman <rms@gnu.org>
parents: 5543
diff changeset
1421 /* Use new line discipline. */
36d2fd17f833 (create_process): Set line discipline only if pty_flag.
Richard M. Stallman <rms@gnu.org>
parents: 5543
diff changeset
1422 int ldisc = NTTYDISC;
7605
53186c2698e5 (create_process): Don't complain about error from TIOCSETD.
Richard M. Stallman <rms@gnu.org>
parents: 7486
diff changeset
1423 ioctl (xforkin, TIOCSETD, &ldisc);
5548
36d2fd17f833 (create_process): Set line discipline only if pty_flag.
Richard M. Stallman <rms@gnu.org>
parents: 5543
diff changeset
1424 }
5347
21bffe027a7d (create_process) [NTTYDISC]: Set the tty line discipline.
Richard M. Stallman <rms@gnu.org>
parents: 5332
diff changeset
1425 #endif
7116
d35b11eed89f (create_process) [HAVE_TERMIOS && LDISC1]: Use tcsetattr.
Karl Heuer <kwzh@gnu.org>
parents: 7059
diff changeset
1426 #endif
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1427 #ifdef TIOCNOTTY
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1428 /* In 4.3BSD, the TIOCSPGRP bug has been fixed, and now you
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1429 can do TIOCSPGRP only to the process's controlling tty. */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1430 if (pty_flag)
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1431 {
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1432 /* I wonder: would just ioctl (0, TIOCNOTTY, 0) work here?
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1433 I can't test it since I don't have 4.3. */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1434 int j = open ("/dev/tty", O_RDWR, 0);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1435 ioctl (j, TIOCNOTTY, 0);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1436 close (j);
3826
647bef18618f Changes for Irix 4.0, tested this time:
Jim Blandy <jimb@redhat.com>
parents: 3810
diff changeset
1437 #ifndef USG
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1438 /* In order to get a controlling terminal on some versions
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1439 of BSD, it is necessary to put the process in pgrp 0
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1440 before it opens the terminal. */
16127
8d6d35b486c0 (create_process): Test HAVE_SETPGID for using setpgid.
Richard M. Stallman <rms@gnu.org>
parents: 16116
diff changeset
1441 #ifdef HAVE_SETPGID
9882
ccc5562a7194 (create_process) [OSF1]: Use setpgid, not setpgrp.
Richard M. Stallman <rms@gnu.org>
parents: 9793
diff changeset
1442 setpgid (0, 0);
ccc5562a7194 (create_process) [OSF1]: Use setpgid, not setpgrp.
Richard M. Stallman <rms@gnu.org>
parents: 9793
diff changeset
1443 #else
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1444 setpgrp (0, 0);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1445 #endif
9882
ccc5562a7194 (create_process) [OSF1]: Use setpgid, not setpgrp.
Richard M. Stallman <rms@gnu.org>
parents: 9793
diff changeset
1446 #endif
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1447 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1448 #endif /* TIOCNOTTY */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1449
16076
5d1e0290bbd0 (create_process): Undo previous change.
Richard M. Stallman <rms@gnu.org>
parents: 16058
diff changeset
1450 #if !defined (RTU) && !defined (UNIPLUS) && !defined (DONT_REOPEN_PTY)
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1451 /*** There is a suggestion that this ought to be a
16076
5d1e0290bbd0 (create_process): Undo previous change.
Richard M. Stallman <rms@gnu.org>
parents: 16058
diff changeset
1452 conditional on TIOCSPGRP,
5d1e0290bbd0 (create_process): Undo previous change.
Richard M. Stallman <rms@gnu.org>
parents: 16058
diff changeset
1453 or !(defined (HAVE_SETSID) && defined (TIOCSCTTY)).
5d1e0290bbd0 (create_process): Undo previous change.
Richard M. Stallman <rms@gnu.org>
parents: 16058
diff changeset
1454 Trying the latter gave the wrong results on Debian GNU/Linux 1.1;
5d1e0290bbd0 (create_process): Undo previous change.
Richard M. Stallman <rms@gnu.org>
parents: 16058
diff changeset
1455 that system does seem to need this code, even though
5d1e0290bbd0 (create_process): Undo previous change.
Richard M. Stallman <rms@gnu.org>
parents: 16058
diff changeset
1456 both HAVE_SETSID and TIOCSCTTY are defined. */
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1457 /* Now close the pty (if we had it open) and reopen it.
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1458 This makes the pty the controlling terminal of the subprocess. */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1459 if (pty_flag)
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1460 {
5240
eed870591987 (Fprocess_status): Use get_process, not Fget_process.
Richard M. Stallman <rms@gnu.org>
parents: 5239
diff changeset
1461 #ifdef SET_CHILD_PTY_PGRP
eed870591987 (Fprocess_status): Use get_process, not Fget_process.
Richard M. Stallman <rms@gnu.org>
parents: 5239
diff changeset
1462 int pgrp = getpid ();
eed870591987 (Fprocess_status): Use get_process, not Fget_process.
Richard M. Stallman <rms@gnu.org>
parents: 5239
diff changeset
1463 #endif
eed870591987 (Fprocess_status): Use get_process, not Fget_process.
Richard M. Stallman <rms@gnu.org>
parents: 5239
diff changeset
1464
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1465 /* I wonder if close (open (pty_name, ...)) would work? */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1466 if (xforkin >= 0)
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1467 close (xforkin);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1468 xforkout = xforkin = open (pty_name, O_RDWR, 0);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1469
11514
321726163a65 (create_process): Don't abort if can't reopen
Richard M. Stallman <rms@gnu.org>
parents: 11376
diff changeset
1470 if (xforkin < 0)
321726163a65 (create_process): Don't abort if can't reopen
Richard M. Stallman <rms@gnu.org>
parents: 11376
diff changeset
1471 {
321726163a65 (create_process): Don't abort if can't reopen
Richard M. Stallman <rms@gnu.org>
parents: 11376
diff changeset
1472 write (1, "Couldn't open the pty terminal ", 31);
321726163a65 (create_process): Don't abort if can't reopen
Richard M. Stallman <rms@gnu.org>
parents: 11376
diff changeset
1473 write (1, pty_name, strlen (pty_name));
321726163a65 (create_process): Don't abort if can't reopen
Richard M. Stallman <rms@gnu.org>
parents: 11376
diff changeset
1474 write (1, "\n", 1);
321726163a65 (create_process): Don't abort if can't reopen
Richard M. Stallman <rms@gnu.org>
parents: 11376
diff changeset
1475 _exit (1);
321726163a65 (create_process): Don't abort if can't reopen
Richard M. Stallman <rms@gnu.org>
parents: 11376
diff changeset
1476 }
321726163a65 (create_process): Don't abort if can't reopen
Richard M. Stallman <rms@gnu.org>
parents: 11376
diff changeset
1477
5240
eed870591987 (Fprocess_status): Use get_process, not Fget_process.
Richard M. Stallman <rms@gnu.org>
parents: 5239
diff changeset
1478 #ifdef SET_CHILD_PTY_PGRP
eed870591987 (Fprocess_status): Use get_process, not Fget_process.
Richard M. Stallman <rms@gnu.org>
parents: 5239
diff changeset
1479 ioctl (xforkin, TIOCSPGRP, &pgrp);
eed870591987 (Fprocess_status): Use get_process, not Fget_process.
Richard M. Stallman <rms@gnu.org>
parents: 5239
diff changeset
1480 ioctl (xforkout, TIOCSPGRP, &pgrp);
eed870591987 (Fprocess_status): Use get_process, not Fget_process.
Richard M. Stallman <rms@gnu.org>
parents: 5239
diff changeset
1481 #endif
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1482 }
16076
5d1e0290bbd0 (create_process): Undo previous change.
Richard M. Stallman <rms@gnu.org>
parents: 16058
diff changeset
1483 #endif /* not UNIPLUS and not RTU and not DONT_REOPEN_PTY */
15368
6229fb866493 (create_process): Add DONT_OPEN_PTY conditional.
Richard M. Stallman <rms@gnu.org>
parents: 15355
diff changeset
1484
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1485 #ifdef SETUP_SLAVE_PTY
7058
1855e568a9b8 (create_process): Use SETUP_SLAVE_PTY only if pty_flag.
Richard M. Stallman <rms@gnu.org>
parents: 7044
diff changeset
1486 if (pty_flag)
1855e568a9b8 (create_process): Use SETUP_SLAVE_PTY only if pty_flag.
Richard M. Stallman <rms@gnu.org>
parents: 7044
diff changeset
1487 {
1855e568a9b8 (create_process): Use SETUP_SLAVE_PTY only if pty_flag.
Richard M. Stallman <rms@gnu.org>
parents: 7044
diff changeset
1488 SETUP_SLAVE_PTY;
1855e568a9b8 (create_process): Use SETUP_SLAVE_PTY only if pty_flag.
Richard M. Stallman <rms@gnu.org>
parents: 7044
diff changeset
1489 }
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1490 #endif /* SETUP_SLAVE_PTY */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1491 #ifdef AIX
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1492 /* On AIX, we've disabled SIGHUP above once we start a child on a pty.
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1493 Now reenable it in the child, so it will die when we want it to. */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1494 if (pty_flag)
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1495 signal (SIGHUP, SIG_DFL);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1496 #endif
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1497 #endif /* HAVE_PTYS */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1498
13709
d16f31ae8adf (create_process): Use Posix signal handling to
Karl Heuer <kwzh@gnu.org>
parents: 13414
diff changeset
1499 signal (SIGINT, SIG_DFL);
d16f31ae8adf (create_process): Use Posix signal handling to
Karl Heuer <kwzh@gnu.org>
parents: 13414
diff changeset
1500 signal (SIGQUIT, SIG_DFL);
d16f31ae8adf (create_process): Use Posix signal handling to
Karl Heuer <kwzh@gnu.org>
parents: 13414
diff changeset
1501
d16f31ae8adf (create_process): Use Posix signal handling to
Karl Heuer <kwzh@gnu.org>
parents: 13414
diff changeset
1502 /* Stop blocking signals in the child. */
d16f31ae8adf (create_process): Use Posix signal handling to
Karl Heuer <kwzh@gnu.org>
parents: 13414
diff changeset
1503 #ifdef POSIX_SIGNALS
d16f31ae8adf (create_process): Use Posix signal handling to
Karl Heuer <kwzh@gnu.org>
parents: 13414
diff changeset
1504 sigprocmask (SIG_SETMASK, &procmask, 0);
d16f31ae8adf (create_process): Use Posix signal handling to
Karl Heuer <kwzh@gnu.org>
parents: 13414
diff changeset
1505 #else /* !POSIX_SIGNALS */
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1506 #ifdef SIGCHLD
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1507 #ifdef BSD4_1
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1508 sigrelse (SIGCHLD);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1509 #else /* not BSD4_1 */
16220
02044b05d8e0 Replaced symbol BSD with BSD_SYSTEM.
Karl Heuer <kwzh@gnu.org>
parents: 16206
diff changeset
1510 #if defined (BSD_SYSTEM) || defined (UNIPLUS) || defined (HPUX)
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1511 sigsetmask (SIGEMPTYMASK);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1512 #else /* ordinary USG */
1207
af619d68a576 * process.c [SIGCHLD && !BSD && !UNIPLUS && !HPUX]
Jim Blandy <jimb@redhat.com>
parents: 1180
diff changeset
1513 #if 0
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1514 signal (SIGCHLD, sigchld);
1207
af619d68a576 * process.c [SIGCHLD && !BSD && !UNIPLUS && !HPUX]
Jim Blandy <jimb@redhat.com>
parents: 1180
diff changeset
1515 #endif
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1516 #endif /* ordinary USG */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1517 #endif /* not BSD4_1 */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1518 #endif /* SIGCHLD */
13709
d16f31ae8adf (create_process): Use Posix signal handling to
Karl Heuer <kwzh@gnu.org>
parents: 13414
diff changeset
1519 #endif /* !POSIX_SIGNALS */
8390
ee13e8728666 (create_process): Set default handling for SIGINT, etc.
Richard M. Stallman <rms@gnu.org>
parents: 8354
diff changeset
1520
7059
6a55de48ade5 (create_process): Use child_setup_tty only if pty_flag.
Richard M. Stallman <rms@gnu.org>
parents: 7058
diff changeset
1521 if (pty_flag)
6a55de48ade5 (create_process): Use child_setup_tty only if pty_flag.
Richard M. Stallman <rms@gnu.org>
parents: 7058
diff changeset
1522 child_setup_tty (xforkout);
9793
28267fcc61be Use macros IS_ANY_SEP, IS_DIRECTORY_SEP,
Richard M. Stallman <rms@gnu.org>
parents: 9705
diff changeset
1523 #ifdef WINDOWSNT
28267fcc61be Use macros IS_ANY_SEP, IS_DIRECTORY_SEP,
Richard M. Stallman <rms@gnu.org>
parents: 9705
diff changeset
1524 pid = child_setup (xforkin, xforkout, xforkout,
28267fcc61be Use macros IS_ANY_SEP, IS_DIRECTORY_SEP,
Richard M. Stallman <rms@gnu.org>
parents: 9705
diff changeset
1525 new_argv, 1, current_dir);
28267fcc61be Use macros IS_ANY_SEP, IS_DIRECTORY_SEP,
Richard M. Stallman <rms@gnu.org>
parents: 9705
diff changeset
1526 #else /* not WINDOWSNT */
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1527 child_setup (xforkin, xforkout, xforkout,
638
40b255f55df3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 624
diff changeset
1528 new_argv, 1, current_dir);
9793
28267fcc61be Use macros IS_ANY_SEP, IS_DIRECTORY_SEP,
Richard M. Stallman <rms@gnu.org>
parents: 9705
diff changeset
1529 #endif /* not WINDOWSNT */
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1530 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1531 environ = save_environ;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1532 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1533
16780
e9dc2569cb12 Include blockinput.h.
Richard M. Stallman <rms@gnu.org>
parents: 16728
diff changeset
1534 UNBLOCK_INPUT;
e9dc2569cb12 Include blockinput.h.
Richard M. Stallman <rms@gnu.org>
parents: 16728
diff changeset
1535
14131
7717b68abd2e (create_process): Restore the signal state
Karl Heuer <kwzh@gnu.org>
parents: 14085
diff changeset
1536 /* This runs in the Emacs process. */
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1537 if (pid < 0)
7157
3f4fc9d682b4 (create_process): If vfork fails, close forkin and forkout.
Richard M. Stallman <rms@gnu.org>
parents: 7116
diff changeset
1538 {
3f4fc9d682b4 (create_process): If vfork fails, close forkin and forkout.
Richard M. Stallman <rms@gnu.org>
parents: 7116
diff changeset
1539 if (forkin >= 0)
3f4fc9d682b4 (create_process): If vfork fails, close forkin and forkout.
Richard M. Stallman <rms@gnu.org>
parents: 7116
diff changeset
1540 close (forkin);
3f4fc9d682b4 (create_process): If vfork fails, close forkin and forkout.
Richard M. Stallman <rms@gnu.org>
parents: 7116
diff changeset
1541 if (forkin != forkout && forkout >= 0)
3f4fc9d682b4 (create_process): If vfork fails, close forkin and forkout.
Richard M. Stallman <rms@gnu.org>
parents: 7116
diff changeset
1542 close (forkout);
3f4fc9d682b4 (create_process): If vfork fails, close forkin and forkout.
Richard M. Stallman <rms@gnu.org>
parents: 7116
diff changeset
1543 }
14131
7717b68abd2e (create_process): Restore the signal state
Karl Heuer <kwzh@gnu.org>
parents: 14085
diff changeset
1544 else
7717b68abd2e (create_process): Restore the signal state
Karl Heuer <kwzh@gnu.org>
parents: 14085
diff changeset
1545 {
7717b68abd2e (create_process): Restore the signal state
Karl Heuer <kwzh@gnu.org>
parents: 14085
diff changeset
1546 /* vfork succeeded. */
7717b68abd2e (create_process): Restore the signal state
Karl Heuer <kwzh@gnu.org>
parents: 14085
diff changeset
1547 XSETFASTINT (XPROCESS (process)->pid, pid);
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1548
9793
28267fcc61be Use macros IS_ANY_SEP, IS_DIRECTORY_SEP,
Richard M. Stallman <rms@gnu.org>
parents: 9705
diff changeset
1549 #ifdef WINDOWSNT
14131
7717b68abd2e (create_process): Restore the signal state
Karl Heuer <kwzh@gnu.org>
parents: 14085
diff changeset
1550 register_child (pid, inchannel);
9793
28267fcc61be Use macros IS_ANY_SEP, IS_DIRECTORY_SEP,
Richard M. Stallman <rms@gnu.org>
parents: 9705
diff changeset
1551 #endif /* WINDOWSNT */
28267fcc61be Use macros IS_ANY_SEP, IS_DIRECTORY_SEP,
Richard M. Stallman <rms@gnu.org>
parents: 9705
diff changeset
1552
14131
7717b68abd2e (create_process): Restore the signal state
Karl Heuer <kwzh@gnu.org>
parents: 14085
diff changeset
1553 /* If the subfork execv fails, and it exits,
7717b68abd2e (create_process): Restore the signal state
Karl Heuer <kwzh@gnu.org>
parents: 14085
diff changeset
1554 this close hangs. I don't know why.
7717b68abd2e (create_process): Restore the signal state
Karl Heuer <kwzh@gnu.org>
parents: 14085
diff changeset
1555 So have an interrupt jar it loose. */
7717b68abd2e (create_process): Restore the signal state
Karl Heuer <kwzh@gnu.org>
parents: 14085
diff changeset
1556 stop_polling ();
7717b68abd2e (create_process): Restore the signal state
Karl Heuer <kwzh@gnu.org>
parents: 14085
diff changeset
1557 signal (SIGALRM, create_process_1);
7717b68abd2e (create_process): Restore the signal state
Karl Heuer <kwzh@gnu.org>
parents: 14085
diff changeset
1558 alarm (1);
7717b68abd2e (create_process): Restore the signal state
Karl Heuer <kwzh@gnu.org>
parents: 14085
diff changeset
1559 XPROCESS (process)->subtty = Qnil;
7717b68abd2e (create_process): Restore the signal state
Karl Heuer <kwzh@gnu.org>
parents: 14085
diff changeset
1560 if (forkin >= 0)
7717b68abd2e (create_process): Restore the signal state
Karl Heuer <kwzh@gnu.org>
parents: 14085
diff changeset
1561 close (forkin);
7717b68abd2e (create_process): Restore the signal state
Karl Heuer <kwzh@gnu.org>
parents: 14085
diff changeset
1562 alarm (0);
7717b68abd2e (create_process): Restore the signal state
Karl Heuer <kwzh@gnu.org>
parents: 14085
diff changeset
1563 start_polling ();
7717b68abd2e (create_process): Restore the signal state
Karl Heuer <kwzh@gnu.org>
parents: 14085
diff changeset
1564 if (forkin != forkout && forkout >= 0)
7717b68abd2e (create_process): Restore the signal state
Karl Heuer <kwzh@gnu.org>
parents: 14085
diff changeset
1565 close (forkout);
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1566
11609
3b2dacb1bfe9 (create_process): Don't reference pty_name if !HAVE_PTYS.
Karl Heuer <kwzh@gnu.org>
parents: 11514
diff changeset
1567 #ifdef HAVE_PTYS
14131
7717b68abd2e (create_process): Restore the signal state
Karl Heuer <kwzh@gnu.org>
parents: 14085
diff changeset
1568 if (pty_flag)
7717b68abd2e (create_process): Restore the signal state
Karl Heuer <kwzh@gnu.org>
parents: 14085
diff changeset
1569 XPROCESS (process)->tty_name = build_string (pty_name);
7717b68abd2e (create_process): Restore the signal state
Karl Heuer <kwzh@gnu.org>
parents: 14085
diff changeset
1570 else
11609
3b2dacb1bfe9 (create_process): Don't reference pty_name if !HAVE_PTYS.
Karl Heuer <kwzh@gnu.org>
parents: 11514
diff changeset
1571 #endif
14131
7717b68abd2e (create_process): Restore the signal state
Karl Heuer <kwzh@gnu.org>
parents: 14085
diff changeset
1572 XPROCESS (process)->tty_name = Qnil;
7717b68abd2e (create_process): Restore the signal state
Karl Heuer <kwzh@gnu.org>
parents: 14085
diff changeset
1573 }
7717b68abd2e (create_process): Restore the signal state
Karl Heuer <kwzh@gnu.org>
parents: 14085
diff changeset
1574
7717b68abd2e (create_process): Restore the signal state
Karl Heuer <kwzh@gnu.org>
parents: 14085
diff changeset
1575 /* Restore the signal state whether vfork succeeded or not.
7717b68abd2e (create_process): Restore the signal state
Karl Heuer <kwzh@gnu.org>
parents: 14085
diff changeset
1576 (We will signal an error, below, if it failed.) */
13709
d16f31ae8adf (create_process): Use Posix signal handling to
Karl Heuer <kwzh@gnu.org>
parents: 13414
diff changeset
1577 #ifdef POSIX_SIGNALS
d16f31ae8adf (create_process): Use Posix signal handling to
Karl Heuer <kwzh@gnu.org>
parents: 13414
diff changeset
1578 #ifdef HAVE_VFORK
d16f31ae8adf (create_process): Use Posix signal handling to
Karl Heuer <kwzh@gnu.org>
parents: 13414
diff changeset
1579 /* Restore the parent's signal handlers. */
d16f31ae8adf (create_process): Use Posix signal handling to
Karl Heuer <kwzh@gnu.org>
parents: 13414
diff changeset
1580 sigaction (SIGINT, &sigint_action, 0);
d16f31ae8adf (create_process): Use Posix signal handling to
Karl Heuer <kwzh@gnu.org>
parents: 13414
diff changeset
1581 sigaction (SIGQUIT, &sigquit_action, 0);
d16f31ae8adf (create_process): Use Posix signal handling to
Karl Heuer <kwzh@gnu.org>
parents: 13414
diff changeset
1582 #ifdef AIX
d16f31ae8adf (create_process): Use Posix signal handling to
Karl Heuer <kwzh@gnu.org>
parents: 13414
diff changeset
1583 sigaction (SIGHUP, &sighup_action, 0);
d16f31ae8adf (create_process): Use Posix signal handling to
Karl Heuer <kwzh@gnu.org>
parents: 13414
diff changeset
1584 #endif
d16f31ae8adf (create_process): Use Posix signal handling to
Karl Heuer <kwzh@gnu.org>
parents: 13414
diff changeset
1585 #endif /* HAVE_VFORK */
d16f31ae8adf (create_process): Use Posix signal handling to
Karl Heuer <kwzh@gnu.org>
parents: 13414
diff changeset
1586 /* Stop blocking signals in the parent. */
d16f31ae8adf (create_process): Use Posix signal handling to
Karl Heuer <kwzh@gnu.org>
parents: 13414
diff changeset
1587 sigprocmask (SIG_SETMASK, &procmask, 0);
d16f31ae8adf (create_process): Use Posix signal handling to
Karl Heuer <kwzh@gnu.org>
parents: 13414
diff changeset
1588 #else /* !POSIX_SIGNALS */
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1589 #ifdef SIGCHLD
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1590 #ifdef BSD4_1
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1591 sigrelse (SIGCHLD);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1592 #else /* not BSD4_1 */
16220
02044b05d8e0 Replaced symbol BSD with BSD_SYSTEM.
Karl Heuer <kwzh@gnu.org>
parents: 16206
diff changeset
1593 #if defined (BSD_SYSTEM) || defined (UNIPLUS) || defined (HPUX)
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1594 sigsetmask (SIGEMPTYMASK);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1595 #else /* ordinary USG */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1596 #if 0
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1597 signal (SIGCHLD, sigchld);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1598 /* Now really handle any of these signals
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1599 that came in during this function. */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1600 if (sigchld_deferred)
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1601 kill (getpid (), SIGCHLD);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1602 #endif
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1603 #endif /* ordinary USG */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1604 #endif /* not BSD4_1 */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1605 #endif /* SIGCHLD */
13709
d16f31ae8adf (create_process): Use Posix signal handling to
Karl Heuer <kwzh@gnu.org>
parents: 13414
diff changeset
1606 #endif /* !POSIX_SIGNALS */
14131
7717b68abd2e (create_process): Restore the signal state
Karl Heuer <kwzh@gnu.org>
parents: 14085
diff changeset
1607
7717b68abd2e (create_process): Restore the signal state
Karl Heuer <kwzh@gnu.org>
parents: 14085
diff changeset
1608 /* Now generate the error if vfork failed. */
7717b68abd2e (create_process): Restore the signal state
Karl Heuer <kwzh@gnu.org>
parents: 14085
diff changeset
1609 if (pid < 0)
7717b68abd2e (create_process): Restore the signal state
Karl Heuer <kwzh@gnu.org>
parents: 14085
diff changeset
1610 report_file_error ("Doing vfork", Qnil);
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1611 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1612 #endif /* not VMS */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1613
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1614 #ifdef HAVE_SOCKETS
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1615
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1616 /* open a TCP network connection to a given HOST/SERVICE. Treated
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1617 exactly like a normal process when reading and writing. Only
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1618 differences are in status display and process deletion. A network
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1619 connection has no PID; you cannot signal it. All you can do is
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1620 deactivate and close it via delete-process */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1621
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1622 DEFUN ("open-network-stream", Fopen_network_stream, Sopen_network_stream,
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1623 4, 4, 0,
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1624 "Open a TCP connection for a service to a host.\n\
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1625 Returns a subprocess-object to represent the connection.\n\
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1626 Input and output work as for subprocesses; `delete-process' closes it.\n\
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1627 Args are NAME BUFFER HOST SERVICE.\n\
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1628 NAME is name for process. It is modified if necessary to make it unique.\n\
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1629 BUFFER is the buffer (or buffer-name) to associate with the process.\n\
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1630 Process output goes at end of that buffer, unless you specify\n\
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1631 an output stream or filter function to handle the output.\n\
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1632 BUFFER may be also nil, meaning that this process is not associated\n\
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1633 with any buffer\n\
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1634 Third arg is name of the host to connect to, or its IP address.\n\
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1635 Fourth arg SERVICE is name of the service desired, or an integer\n\
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1636 specifying a port number to connect to.")
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1637 (name, buffer, host, service)
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1638 Lisp_Object name, buffer, host, service;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1639 {
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1640 Lisp_Object proc;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1641 register int i;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1642 struct sockaddr_in address;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1643 struct servent *svc_info;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1644 struct hostent *host_info_ptr, host_info;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1645 char *(addr_list[2]);
4998
3cd3a39f98f4 (IN_ADDR, NUMERIC_ADDR_ERROR): New macros (two versions).
Richard M. Stallman <rms@gnu.org>
parents: 4994
diff changeset
1646 IN_ADDR numeric_addr;
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1647 int s, outch, inch;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1648 char errstring[80];
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1649 int port;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1650 struct hostent host_info_fixed;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1651 struct gcpro gcpro1, gcpro2, gcpro3, gcpro4;
7220
a33eb16cab9d (Fopen_network_stream): Retry the connect if EADDRINUSE. Ignore EISCONN.
Richard M. Stallman <rms@gnu.org>
parents: 7157
diff changeset
1652 int retry = 0;
7486
cfe4840ffde9 (Fopen_network_stream): Call bind_polling_period; later unbind the binding.
Richard M. Stallman <rms@gnu.org>
parents: 7454
diff changeset
1653 int count = specpdl_ptr - specpdl;
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1654
15355
6bb377ef707f (Fopen_network_stream)[WINDOWSNT]: Ensure Windows
Richard M. Stallman <rms@gnu.org>
parents: 15092
diff changeset
1655 #ifdef WINDOWSNT
6bb377ef707f (Fopen_network_stream)[WINDOWSNT]: Ensure Windows
Richard M. Stallman <rms@gnu.org>
parents: 15092
diff changeset
1656 /* Ensure socket support is loaded if available. */
6bb377ef707f (Fopen_network_stream)[WINDOWSNT]: Ensure Windows
Richard M. Stallman <rms@gnu.org>
parents: 15092
diff changeset
1657 init_winsock (TRUE);
6bb377ef707f (Fopen_network_stream)[WINDOWSNT]: Ensure Windows
Richard M. Stallman <rms@gnu.org>
parents: 15092
diff changeset
1658 #endif
6bb377ef707f (Fopen_network_stream)[WINDOWSNT]: Ensure Windows
Richard M. Stallman <rms@gnu.org>
parents: 15092
diff changeset
1659
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1660 GCPRO4 (name, buffer, host, service);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1661 CHECK_STRING (name, 0);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1662 CHECK_STRING (host, 0);
9115
59bc2d010b5f (decode_status, Fprocessp, Fget_process, Fget_buffer_process, Fprocess_status,
Karl Heuer <kwzh@gnu.org>
parents: 9034
diff changeset
1663 if (INTEGERP (service))
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1664 port = htons ((unsigned short) XINT (service));
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1665 else
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1666 {
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1667 CHECK_STRING (service, 0);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1668 svc_info = getservbyname (XSTRING (service)->data, "tcp");
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1669 if (svc_info == 0)
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1670 error ("Unknown service \"%s\"", XSTRING (service)->data);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1671 port = svc_info->s_port;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1672 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1673
13777
5e0cbd5fcb46 (Fopen_network_stream): Call bind_polling_period earlier.
Karl Heuer <kwzh@gnu.org>
parents: 13709
diff changeset
1674 /* Slow down polling to every ten seconds.
5e0cbd5fcb46 (Fopen_network_stream): Call bind_polling_period earlier.
Karl Heuer <kwzh@gnu.org>
parents: 13709
diff changeset
1675 Some kernels have a bug which causes retrying connect to fail
5e0cbd5fcb46 (Fopen_network_stream): Call bind_polling_period earlier.
Karl Heuer <kwzh@gnu.org>
parents: 13709
diff changeset
1676 after a connect. Polling can interfere with gethostbyname too. */
5e0cbd5fcb46 (Fopen_network_stream): Call bind_polling_period earlier.
Karl Heuer <kwzh@gnu.org>
parents: 13709
diff changeset
1677 #ifdef POLL_FOR_INPUT
5e0cbd5fcb46 (Fopen_network_stream): Call bind_polling_period earlier.
Karl Heuer <kwzh@gnu.org>
parents: 13709
diff changeset
1678 bind_polling_period (10);
5e0cbd5fcb46 (Fopen_network_stream): Call bind_polling_period earlier.
Karl Heuer <kwzh@gnu.org>
parents: 13709
diff changeset
1679 #endif
5e0cbd5fcb46 (Fopen_network_stream): Call bind_polling_period earlier.
Karl Heuer <kwzh@gnu.org>
parents: 13709
diff changeset
1680
4914
56bc426b1eb4 [TERM]: Include client.h.
Richard M. Stallman <rms@gnu.org>
parents: 4883
diff changeset
1681 #ifndef TERM
8287
97c2535b7f37 (Fopen_network_stream): Retry gethostbyname after TRY_AGAIN failure.
Richard M. Stallman <rms@gnu.org>
parents: 8231
diff changeset
1682 while (1)
97c2535b7f37 (Fopen_network_stream): Retry gethostbyname after TRY_AGAIN failure.
Richard M. Stallman <rms@gnu.org>
parents: 8231
diff changeset
1683 {
8331
14ddb4c66461 [!HAVE_H_ERRNO]: Declare h_errno.
Richard M. Stallman <rms@gnu.org>
parents: 8287
diff changeset
1684 #ifdef TRY_AGAIN
14ddb4c66461 [!HAVE_H_ERRNO]: Declare h_errno.
Richard M. Stallman <rms@gnu.org>
parents: 8287
diff changeset
1685 h_errno = 0;
14ddb4c66461 [!HAVE_H_ERRNO]: Declare h_errno.
Richard M. Stallman <rms@gnu.org>
parents: 8287
diff changeset
1686 #endif
14758
849458c13c0c (wait_reading_process_input):
Richard M. Stallman <rms@gnu.org>
parents: 14736
diff changeset
1687 immediate_quit = 1;
849458c13c0c (wait_reading_process_input):
Richard M. Stallman <rms@gnu.org>
parents: 14736
diff changeset
1688 QUIT;
8287
97c2535b7f37 (Fopen_network_stream): Retry gethostbyname after TRY_AGAIN failure.
Richard M. Stallman <rms@gnu.org>
parents: 8231
diff changeset
1689 host_info_ptr = gethostbyname (XSTRING (host)->data);
14758
849458c13c0c (wait_reading_process_input):
Richard M. Stallman <rms@gnu.org>
parents: 14736
diff changeset
1690 immediate_quit = 0;
8287
97c2535b7f37 (Fopen_network_stream): Retry gethostbyname after TRY_AGAIN failure.
Richard M. Stallman <rms@gnu.org>
parents: 8231
diff changeset
1691 #ifdef TRY_AGAIN
97c2535b7f37 (Fopen_network_stream): Retry gethostbyname after TRY_AGAIN failure.
Richard M. Stallman <rms@gnu.org>
parents: 8231
diff changeset
1692 if (! (host_info_ptr == 0 && h_errno == TRY_AGAIN))
97c2535b7f37 (Fopen_network_stream): Retry gethostbyname after TRY_AGAIN failure.
Richard M. Stallman <rms@gnu.org>
parents: 8231
diff changeset
1693 #endif
97c2535b7f37 (Fopen_network_stream): Retry gethostbyname after TRY_AGAIN failure.
Richard M. Stallman <rms@gnu.org>
parents: 8231
diff changeset
1694 break;
97c2535b7f37 (Fopen_network_stream): Retry gethostbyname after TRY_AGAIN failure.
Richard M. Stallman <rms@gnu.org>
parents: 8231
diff changeset
1695 Fsleep_for (make_number (1), Qnil);
97c2535b7f37 (Fopen_network_stream): Retry gethostbyname after TRY_AGAIN failure.
Richard M. Stallman <rms@gnu.org>
parents: 8231
diff changeset
1696 }
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1697 if (host_info_ptr == 0)
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1698 /* Attempt to interpret host as numeric inet address */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1699 {
4883
a806d71f58f6 (Fopen_netwrok_stream): Cast arg to inet_addr to (char *).
Brian Fox <bfox@gnu.org>
parents: 4870
diff changeset
1700 numeric_addr = inet_addr ((char *) XSTRING (host)->data);
4998
3cd3a39f98f4 (IN_ADDR, NUMERIC_ADDR_ERROR): New macros (two versions).
Richard M. Stallman <rms@gnu.org>
parents: 4994
diff changeset
1701 if (NUMERIC_ADDR_ERROR)
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1702 error ("Unknown host \"%s\"", XSTRING (host)->data);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1703
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1704 host_info_ptr = &host_info;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1705 host_info.h_name = 0;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1706 host_info.h_aliases = 0;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1707 host_info.h_addrtype = AF_INET;
2944
f66a150d3fb9 * process.c (Fopen_network_stream): Deal with older systems, which
Jim Blandy <jimb@redhat.com>
parents: 2917
diff changeset
1708 #ifdef h_addr
f66a150d3fb9 * process.c (Fopen_network_stream): Deal with older systems, which
Jim Blandy <jimb@redhat.com>
parents: 2917
diff changeset
1709 /* Older machines have only one address slot called h_addr.
f66a150d3fb9 * process.c (Fopen_network_stream): Deal with older systems, which
Jim Blandy <jimb@redhat.com>
parents: 2917
diff changeset
1710 Newer machines have h_addr_list, but #define h_addr to
f66a150d3fb9 * process.c (Fopen_network_stream): Deal with older systems, which
Jim Blandy <jimb@redhat.com>
parents: 2917
diff changeset
1711 be its first element. */
f66a150d3fb9 * process.c (Fopen_network_stream): Deal with older systems, which
Jim Blandy <jimb@redhat.com>
parents: 2917
diff changeset
1712 host_info.h_addr_list = &(addr_list[0]);
f66a150d3fb9 * process.c (Fopen_network_stream): Deal with older systems, which
Jim Blandy <jimb@redhat.com>
parents: 2917
diff changeset
1713 #endif
f66a150d3fb9 * process.c (Fopen_network_stream): Deal with older systems, which
Jim Blandy <jimb@redhat.com>
parents: 2917
diff changeset
1714 host_info.h_addr = (char*)(&numeric_addr);
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1715 addr_list[1] = 0;
14544
ef07b51330af (Fopen_network_stream): Use sizeof, not strlen, for numeric_addr.
Richard M. Stallman <rms@gnu.org>
parents: 14513
diff changeset
1716 /* numeric_addr isn't null-terminated; it has fixed length. */
ef07b51330af (Fopen_network_stream): Use sizeof, not strlen, for numeric_addr.
Richard M. Stallman <rms@gnu.org>
parents: 14513
diff changeset
1717 host_info.h_length = sizeof (numeric_addr);
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1718 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1719
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1720 bzero (&address, sizeof address);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1721 bcopy (host_info_ptr->h_addr, (char *) &address.sin_addr,
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1722 host_info_ptr->h_length);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1723 address.sin_family = host_info_ptr->h_addrtype;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1724 address.sin_port = port;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1725
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1726 s = socket (host_info_ptr->h_addrtype, SOCK_STREAM, 0);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1727 if (s < 0)
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1728 report_file_error ("error creating socket", Fcons (name, Qnil));
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1729
5332
c559b3d1b9e4 (Fopen_network_stream): Turn off SIGIO while connecting.
Richard M. Stallman <rms@gnu.org>
parents: 5240
diff changeset
1730 /* Kernel bugs (on Ultrix at least) cause lossage (not just EINTR)
c559b3d1b9e4 (Fopen_network_stream): Turn off SIGIO while connecting.
Richard M. Stallman <rms@gnu.org>
parents: 5240
diff changeset
1731 when connect is interrupted. So let's not let it get interrupted.
c559b3d1b9e4 (Fopen_network_stream): Turn off SIGIO while connecting.
Richard M. Stallman <rms@gnu.org>
parents: 5240
diff changeset
1732 Note we do not turn off polling, because polling is only used
c559b3d1b9e4 (Fopen_network_stream): Turn off SIGIO while connecting.
Richard M. Stallman <rms@gnu.org>
parents: 5240
diff changeset
1733 when not interrupt_input, and thus not normally used on the systems
c559b3d1b9e4 (Fopen_network_stream): Turn off SIGIO while connecting.
Richard M. Stallman <rms@gnu.org>
parents: 5240
diff changeset
1734 which have this bug. On systems which use polling, there's no way
c559b3d1b9e4 (Fopen_network_stream): Turn off SIGIO while connecting.
Richard M. Stallman <rms@gnu.org>
parents: 5240
diff changeset
1735 to quit if polling is turned off. */
c559b3d1b9e4 (Fopen_network_stream): Turn off SIGIO while connecting.
Richard M. Stallman <rms@gnu.org>
parents: 5240
diff changeset
1736 if (interrupt_input)
c559b3d1b9e4 (Fopen_network_stream): Turn off SIGIO while connecting.
Richard M. Stallman <rms@gnu.org>
parents: 5240
diff changeset
1737 unrequest_sigio ();
c559b3d1b9e4 (Fopen_network_stream): Turn off SIGIO while connecting.
Richard M. Stallman <rms@gnu.org>
parents: 5240
diff changeset
1738
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1739 loop:
14671
0493e857a13b (Fopen_network_stream): Set immediate_quit for the connect.
Richard M. Stallman <rms@gnu.org>
parents: 14613
diff changeset
1740
0493e857a13b (Fopen_network_stream): Set immediate_quit for the connect.
Richard M. Stallman <rms@gnu.org>
parents: 14613
diff changeset
1741 immediate_quit = 1;
0493e857a13b (Fopen_network_stream): Set immediate_quit for the connect.
Richard M. Stallman <rms@gnu.org>
parents: 14613
diff changeset
1742 QUIT;
0493e857a13b (Fopen_network_stream): Set immediate_quit for the connect.
Richard M. Stallman <rms@gnu.org>
parents: 14613
diff changeset
1743
7220
a33eb16cab9d (Fopen_network_stream): Retry the connect if EADDRINUSE. Ignore EISCONN.
Richard M. Stallman <rms@gnu.org>
parents: 7157
diff changeset
1744 if (connect (s, (struct sockaddr *) &address, sizeof address) == -1
a33eb16cab9d (Fopen_network_stream): Retry the connect if EADDRINUSE. Ignore EISCONN.
Richard M. Stallman <rms@gnu.org>
parents: 7157
diff changeset
1745 && errno != EISCONN)
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1746 {
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1747 int xerrno = errno;
7220
a33eb16cab9d (Fopen_network_stream): Retry the connect if EADDRINUSE. Ignore EISCONN.
Richard M. Stallman <rms@gnu.org>
parents: 7157
diff changeset
1748
14671
0493e857a13b (Fopen_network_stream): Set immediate_quit for the connect.
Richard M. Stallman <rms@gnu.org>
parents: 14613
diff changeset
1749 immediate_quit = 0;
0493e857a13b (Fopen_network_stream): Set immediate_quit for the connect.
Richard M. Stallman <rms@gnu.org>
parents: 14613
diff changeset
1750
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1751 if (errno == EINTR)
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1752 goto loop;
7220
a33eb16cab9d (Fopen_network_stream): Retry the connect if EADDRINUSE. Ignore EISCONN.
Richard M. Stallman <rms@gnu.org>
parents: 7157
diff changeset
1753 if (errno == EADDRINUSE && retry < 20)
a33eb16cab9d (Fopen_network_stream): Retry the connect if EADDRINUSE. Ignore EISCONN.
Richard M. Stallman <rms@gnu.org>
parents: 7157
diff changeset
1754 {
12378
3171d5da8a86 (Fopen_network_stream): Sleep 1 sec before connect retry.
Richard M. Stallman <rms@gnu.org>
parents: 12324
diff changeset
1755 /* A delay here is needed on some FreeBSD systems,
3171d5da8a86 (Fopen_network_stream): Sleep 1 sec before connect retry.
Richard M. Stallman <rms@gnu.org>
parents: 12324
diff changeset
1756 and it is harmless, since this retrying takes time anyway
3171d5da8a86 (Fopen_network_stream): Sleep 1 sec before connect retry.
Richard M. Stallman <rms@gnu.org>
parents: 12324
diff changeset
1757 and should be infrequent. */
3171d5da8a86 (Fopen_network_stream): Sleep 1 sec before connect retry.
Richard M. Stallman <rms@gnu.org>
parents: 12324
diff changeset
1758 Fsleep_for (make_number (1), Qnil);
7220
a33eb16cab9d (Fopen_network_stream): Retry the connect if EADDRINUSE. Ignore EISCONN.
Richard M. Stallman <rms@gnu.org>
parents: 7157
diff changeset
1759 retry++;
a33eb16cab9d (Fopen_network_stream): Retry the connect if EADDRINUSE. Ignore EISCONN.
Richard M. Stallman <rms@gnu.org>
parents: 7157
diff changeset
1760 goto loop;
a33eb16cab9d (Fopen_network_stream): Retry the connect if EADDRINUSE. Ignore EISCONN.
Richard M. Stallman <rms@gnu.org>
parents: 7157
diff changeset
1761 }
a33eb16cab9d (Fopen_network_stream): Retry the connect if EADDRINUSE. Ignore EISCONN.
Richard M. Stallman <rms@gnu.org>
parents: 7157
diff changeset
1762
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1763 close (s);
5332
c559b3d1b9e4 (Fopen_network_stream): Turn off SIGIO while connecting.
Richard M. Stallman <rms@gnu.org>
parents: 5240
diff changeset
1764
c559b3d1b9e4 (Fopen_network_stream): Turn off SIGIO while connecting.
Richard M. Stallman <rms@gnu.org>
parents: 5240
diff changeset
1765 if (interrupt_input)
c559b3d1b9e4 (Fopen_network_stream): Turn off SIGIO while connecting.
Richard M. Stallman <rms@gnu.org>
parents: 5240
diff changeset
1766 request_sigio ();
c559b3d1b9e4 (Fopen_network_stream): Turn off SIGIO while connecting.
Richard M. Stallman <rms@gnu.org>
parents: 5240
diff changeset
1767
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1768 errno = xerrno;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1769 report_file_error ("connection failed",
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1770 Fcons (host, Fcons (name, Qnil)));
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1771 }
5332
c559b3d1b9e4 (Fopen_network_stream): Turn off SIGIO while connecting.
Richard M. Stallman <rms@gnu.org>
parents: 5240
diff changeset
1772
14671
0493e857a13b (Fopen_network_stream): Set immediate_quit for the connect.
Richard M. Stallman <rms@gnu.org>
parents: 14613
diff changeset
1773 immediate_quit = 0;
0493e857a13b (Fopen_network_stream): Set immediate_quit for the connect.
Richard M. Stallman <rms@gnu.org>
parents: 14613
diff changeset
1774
7486
cfe4840ffde9 (Fopen_network_stream): Call bind_polling_period; later unbind the binding.
Richard M. Stallman <rms@gnu.org>
parents: 7454
diff changeset
1775 #ifdef POLL_FOR_INPUT
cfe4840ffde9 (Fopen_network_stream): Call bind_polling_period; later unbind the binding.
Richard M. Stallman <rms@gnu.org>
parents: 7454
diff changeset
1776 unbind_to (count, Qnil);
cfe4840ffde9 (Fopen_network_stream): Call bind_polling_period; later unbind the binding.
Richard M. Stallman <rms@gnu.org>
parents: 7454
diff changeset
1777 #endif
cfe4840ffde9 (Fopen_network_stream): Call bind_polling_period; later unbind the binding.
Richard M. Stallman <rms@gnu.org>
parents: 7454
diff changeset
1778
5332
c559b3d1b9e4 (Fopen_network_stream): Turn off SIGIO while connecting.
Richard M. Stallman <rms@gnu.org>
parents: 5240
diff changeset
1779 if (interrupt_input)
c559b3d1b9e4 (Fopen_network_stream): Turn off SIGIO while connecting.
Richard M. Stallman <rms@gnu.org>
parents: 5240
diff changeset
1780 request_sigio ();
c559b3d1b9e4 (Fopen_network_stream): Turn off SIGIO while connecting.
Richard M. Stallman <rms@gnu.org>
parents: 5240
diff changeset
1781
4914
56bc426b1eb4 [TERM]: Include client.h.
Richard M. Stallman <rms@gnu.org>
parents: 4883
diff changeset
1782 #else /* TERM */
56bc426b1eb4 [TERM]: Include client.h.
Richard M. Stallman <rms@gnu.org>
parents: 4883
diff changeset
1783 s = connect_server (0);
56bc426b1eb4 [TERM]: Include client.h.
Richard M. Stallman <rms@gnu.org>
parents: 4883
diff changeset
1784 if (s < 0)
56bc426b1eb4 [TERM]: Include client.h.
Richard M. Stallman <rms@gnu.org>
parents: 4883
diff changeset
1785 report_file_error ("error creating socket", Fcons (name, Qnil));
56bc426b1eb4 [TERM]: Include client.h.
Richard M. Stallman <rms@gnu.org>
parents: 4883
diff changeset
1786 send_command (s, C_PORT, 0, "%s:%d", XSTRING (host)->data, ntohs (port));
56bc426b1eb4 [TERM]: Include client.h.
Richard M. Stallman <rms@gnu.org>
parents: 4883
diff changeset
1787 send_command (s, C_DUMB, 1, 0);
56bc426b1eb4 [TERM]: Include client.h.
Richard M. Stallman <rms@gnu.org>
parents: 4883
diff changeset
1788 #endif /* TERM */
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1789
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1790 inch = s;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1791 outch = dup (s);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1792 if (outch < 0)
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1793 report_file_error ("error duplicating socket", Fcons (name, Qnil));
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1794
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1795 if (!NILP (buffer))
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1796 buffer = Fget_buffer_create (buffer);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1797 proc = make_process (name);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1798
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1799 chan_process[inch] = proc;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1800
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1801 #ifdef O_NONBLOCK
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1802 fcntl (inch, F_SETFL, O_NONBLOCK);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1803 #else
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1804 #ifdef O_NDELAY
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1805 fcntl (inch, F_SETFL, O_NDELAY);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1806 #endif
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1807 #endif
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1808
16058
924aeb9ed7c3 (Fprocess_contact): New function.
Richard M. Stallman <rms@gnu.org>
parents: 16053
diff changeset
1809 XPROCESS (proc)->childp = Fcons (host, Fcons (service, Qnil));
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1810 XPROCESS (proc)->command_channel_p = Qnil;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1811 XPROCESS (proc)->buffer = buffer;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1812 XPROCESS (proc)->sentinel = Qnil;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1813 XPROCESS (proc)->filter = Qnil;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1814 XPROCESS (proc)->command = Qnil;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1815 XPROCESS (proc)->pid = Qnil;
15092
5372670fbe59 (Fopen_network_stream): Set process infd to inch.
Richard M. Stallman <rms@gnu.org>
parents: 15064
diff changeset
1816 XSETINT (XPROCESS (proc)->infd, inch);
9277
21f6120be5ba (make_process, create_process, Fopen_network_stream, deactivate_process,
Karl Heuer <kwzh@gnu.org>
parents: 9115
diff changeset
1817 XSETINT (XPROCESS (proc)->outfd, outch);
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1818 XPROCESS (proc)->status = Qrun;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1819 FD_SET (inch, &input_wait_mask);
9686
cd788aa8cb2a Handle multiple keyboard input descriptors.
Richard M. Stallman <rms@gnu.org>
parents: 9334
diff changeset
1820 FD_SET (inch, &non_keyboard_wait_mask);
7044
7032d07f5ad9 (max_process_desc): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 7013
diff changeset
1821 if (inch > max_process_desc)
7032d07f5ad9 (max_process_desc): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 7013
diff changeset
1822 max_process_desc = inch;
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1823
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1824 UNGCPRO;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1825 return proc;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1826 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1827 #endif /* HAVE_SOCKETS */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1828
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1829 deactivate_process (proc)
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1830 Lisp_Object proc;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1831 {
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1832 register int inchannel, outchannel;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1833 register struct Lisp_Process *p = XPROCESS (proc);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1834
5134
0a4e46e15304 (wait_reading_process_input):
Richard M. Stallman <rms@gnu.org>
parents: 4998
diff changeset
1835 inchannel = XINT (p->infd);
0a4e46e15304 (wait_reading_process_input):
Richard M. Stallman <rms@gnu.org>
parents: 4998
diff changeset
1836 outchannel = XINT (p->outfd);
0a4e46e15304 (wait_reading_process_input):
Richard M. Stallman <rms@gnu.org>
parents: 4998
diff changeset
1837
0a4e46e15304 (wait_reading_process_input):
Richard M. Stallman <rms@gnu.org>
parents: 4998
diff changeset
1838 if (inchannel >= 0)
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1839 {
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1840 /* Beware SIGCHLD hereabouts. */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1841 flush_pending_output (inchannel);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1842 #ifdef VMS
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1843 {
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1844 VMS_PROC_STUFF *get_vms_process_pointer (), *vs;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1845 sys$dassgn (outchannel);
2357
9faa3a02ea97 * process.c [VMS] (DCL_PROMPT): Remove hack.
Jim Blandy <jimb@redhat.com>
parents: 2290
diff changeset
1846 vs = get_vms_process_pointer (p->pid);
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1847 if (vs)
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1848 give_back_vms_process_stuff (vs);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1849 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1850 #else
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1851 close (inchannel);
5134
0a4e46e15304 (wait_reading_process_input):
Richard M. Stallman <rms@gnu.org>
parents: 4998
diff changeset
1852 if (outchannel >= 0 && outchannel != inchannel)
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1853 close (outchannel);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1854 #endif
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1855
9277
21f6120be5ba (make_process, create_process, Fopen_network_stream, deactivate_process,
Karl Heuer <kwzh@gnu.org>
parents: 9115
diff changeset
1856 XSETINT (p->infd, -1);
21f6120be5ba (make_process, create_process, Fopen_network_stream, deactivate_process,
Karl Heuer <kwzh@gnu.org>
parents: 9115
diff changeset
1857 XSETINT (p->outfd, -1);
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1858 chan_process[inchannel] = Qnil;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1859 FD_CLR (inchannel, &input_wait_mask);
9686
cd788aa8cb2a Handle multiple keyboard input descriptors.
Richard M. Stallman <rms@gnu.org>
parents: 9334
diff changeset
1860 FD_CLR (inchannel, &non_keyboard_wait_mask);
7044
7032d07f5ad9 (max_process_desc): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 7013
diff changeset
1861 if (inchannel == max_process_desc)
7032d07f5ad9 (max_process_desc): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 7013
diff changeset
1862 {
7032d07f5ad9 (max_process_desc): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 7013
diff changeset
1863 int i;
7032d07f5ad9 (max_process_desc): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 7013
diff changeset
1864 /* We just closed the highest-numbered process input descriptor,
7032d07f5ad9 (max_process_desc): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 7013
diff changeset
1865 so recompute the highest-numbered one now. */
7032d07f5ad9 (max_process_desc): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 7013
diff changeset
1866 max_process_desc = 0;
7032d07f5ad9 (max_process_desc): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 7013
diff changeset
1867 for (i = 0; i < MAXDESC; i++)
7032d07f5ad9 (max_process_desc): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 7013
diff changeset
1868 if (!NILP (chan_process[i]))
7032d07f5ad9 (max_process_desc): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 7013
diff changeset
1869 max_process_desc = i;
7032d07f5ad9 (max_process_desc): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 7013
diff changeset
1870 }
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1871 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1872 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1873
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1874 /* Close all descriptors currently in use for communication
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1875 with subprocess. This is used in a newly-forked subprocess
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1876 to get rid of irrelevant descriptors. */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1877
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1878 close_process_descs ()
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1879 {
9793
28267fcc61be Use macros IS_ANY_SEP, IS_DIRECTORY_SEP,
Richard M. Stallman <rms@gnu.org>
parents: 9705
diff changeset
1880 #ifndef WINDOWSNT
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1881 int i;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1882 for (i = 0; i < MAXDESC; i++)
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1883 {
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1884 Lisp_Object process;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1885 process = chan_process[i];
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1886 if (!NILP (process))
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1887 {
5134
0a4e46e15304 (wait_reading_process_input):
Richard M. Stallman <rms@gnu.org>
parents: 4998
diff changeset
1888 int in = XINT (XPROCESS (process)->infd);
0a4e46e15304 (wait_reading_process_input):
Richard M. Stallman <rms@gnu.org>
parents: 4998
diff changeset
1889 int out = XINT (XPROCESS (process)->outfd);
0a4e46e15304 (wait_reading_process_input):
Richard M. Stallman <rms@gnu.org>
parents: 4998
diff changeset
1890 if (in >= 0)
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1891 close (in);
5134
0a4e46e15304 (wait_reading_process_input):
Richard M. Stallman <rms@gnu.org>
parents: 4998
diff changeset
1892 if (out >= 0 && in != out)
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1893 close (out);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1894 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1895 }
9793
28267fcc61be Use macros IS_ANY_SEP, IS_DIRECTORY_SEP,
Richard M. Stallman <rms@gnu.org>
parents: 9705
diff changeset
1896 #endif
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1897 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1898
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1899 DEFUN ("accept-process-output", Faccept_process_output, Saccept_process_output,
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1900 0, 3, 0,
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1901 "Allow any pending output from subprocesses to be read by Emacs.\n\
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1902 It is read into the process' buffers or given to their filter functions.\n\
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1903 Non-nil arg PROCESS means do not return until some output has been received\n\
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1904 from PROCESS.\n\
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1905 Non-nil second arg TIMEOUT and third arg TIMEOUT-MSECS are number of\n\
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1906 seconds and microseconds to wait; return after that much time whether\n\
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1907 or not there is input.\n\
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1908 Return non-nil iff we received any output before the timeout expired.")
14085
85ce7bab31dc (Fprocessp, Fget_buffer_process, Fdelete_process, Fprocess_status,
Erik Naggum <erik@naggum.no>
parents: 14036
diff changeset
1909 (process, timeout, timeout_msecs)
85ce7bab31dc (Fprocessp, Fget_buffer_process, Fdelete_process, Fprocess_status,
Erik Naggum <erik@naggum.no>
parents: 14036
diff changeset
1910 register Lisp_Object process, timeout, timeout_msecs;
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1911 {
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1912 int seconds;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1913 int useconds;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1914
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1915 if (! NILP (timeout_msecs))
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1916 {
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1917 CHECK_NUMBER (timeout_msecs, 2);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1918 useconds = XINT (timeout_msecs);
9115
59bc2d010b5f (decode_status, Fprocessp, Fget_process, Fget_buffer_process, Fprocess_status,
Karl Heuer <kwzh@gnu.org>
parents: 9034
diff changeset
1919 if (!INTEGERP (timeout))
9277
21f6120be5ba (make_process, create_process, Fopen_network_stream, deactivate_process,
Karl Heuer <kwzh@gnu.org>
parents: 9115
diff changeset
1920 XSETINT (timeout, 0);
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1921
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1922 {
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1923 int carry = useconds / 1000000;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1924
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1925 XSETINT (timeout, XINT (timeout) + carry);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1926 useconds -= carry * 1000000;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1927
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1928 /* I think this clause is necessary because C doesn't
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1929 guarantee a particular rounding direction for negative
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1930 integers. */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1931 if (useconds < 0)
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1932 {
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1933 XSETINT (timeout, XINT (timeout) - 1);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1934 useconds += 1000000;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1935 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1936 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1937 }
1180
9bf82484415d (Faccept_process_output): Initialize useconds.
Richard M. Stallman <rms@gnu.org>
parents: 1047
diff changeset
1938 else
9bf82484415d (Faccept_process_output): Initialize useconds.
Richard M. Stallman <rms@gnu.org>
parents: 1047
diff changeset
1939 useconds = 0;
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1940
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1941 if (! NILP (timeout))
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1942 {
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1943 CHECK_NUMBER (timeout, 1);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1944 seconds = XINT (timeout);
14605
80196bfd8b94 (Faccept_process_output): Accept sub-second timeouts.
Erik Naggum <erik@naggum.no>
parents: 14544
diff changeset
1945 if (seconds < 0 || (seconds == 0 && useconds == 0))
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1946 seconds = -1;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1947 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1948 else
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1949 {
14085
85ce7bab31dc (Fprocessp, Fget_buffer_process, Fdelete_process, Fprocess_status,
Erik Naggum <erik@naggum.no>
parents: 14036
diff changeset
1950 if (NILP (process))
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1951 seconds = -1;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1952 else
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1953 seconds = 0;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1954 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1955
14085
85ce7bab31dc (Fprocessp, Fget_buffer_process, Fdelete_process, Fprocess_status,
Erik Naggum <erik@naggum.no>
parents: 14036
diff changeset
1956 if (NILP (process))
85ce7bab31dc (Fprocessp, Fget_buffer_process, Fdelete_process, Fprocess_status,
Erik Naggum <erik@naggum.no>
parents: 14036
diff changeset
1957 XSETFASTINT (process, 0);
650
39f0e62a8511 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 648
diff changeset
1958
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1959 return
14085
85ce7bab31dc (Fprocessp, Fget_buffer_process, Fdelete_process, Fprocess_status,
Erik Naggum <erik@naggum.no>
parents: 14036
diff changeset
1960 (wait_reading_process_input (seconds, useconds, process, 0)
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1961 ? Qt : Qnil);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1962 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1963
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1964 /* This variable is different from waiting_for_input in keyboard.c.
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1965 It is used to communicate to a lisp process-filter/sentinel (via the
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1966 function Fwaiting_for_user_input_p below) whether emacs was waiting
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1967 for user-input when that process-filter was called.
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1968 waiting_for_input cannot be used as that is by definition 0 when
8570
dd3dfde8f973 (wait_reading_process_input):
Richard M. Stallman <rms@gnu.org>
parents: 8390
diff changeset
1969 lisp code is being evalled.
dd3dfde8f973 (wait_reading_process_input):
Richard M. Stallman <rms@gnu.org>
parents: 8390
diff changeset
1970 This is also used in record_asynch_buffer_change.
dd3dfde8f973 (wait_reading_process_input):
Richard M. Stallman <rms@gnu.org>
parents: 8390
diff changeset
1971 For that purpose, this must be 0
dd3dfde8f973 (wait_reading_process_input):
Richard M. Stallman <rms@gnu.org>
parents: 8390
diff changeset
1972 when not inside wait_reading_process_input. */
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1973 static int waiting_for_user_input_p;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1974
14890
71c2cf461805 (wait_reading_process_input_1): New (empty) function.
Richard M. Stallman <rms@gnu.org>
parents: 14863
diff changeset
1975 /* This is here so breakpoints can be put on it. */
71c2cf461805 (wait_reading_process_input_1): New (empty) function.
Richard M. Stallman <rms@gnu.org>
parents: 14863
diff changeset
1976 static
71c2cf461805 (wait_reading_process_input_1): New (empty) function.
Richard M. Stallman <rms@gnu.org>
parents: 14863
diff changeset
1977 wait_reading_process_input_1 ()
71c2cf461805 (wait_reading_process_input_1): New (empty) function.
Richard M. Stallman <rms@gnu.org>
parents: 14863
diff changeset
1978 {
71c2cf461805 (wait_reading_process_input_1): New (empty) function.
Richard M. Stallman <rms@gnu.org>
parents: 14863
diff changeset
1979 }
71c2cf461805 (wait_reading_process_input_1): New (empty) function.
Richard M. Stallman <rms@gnu.org>
parents: 14863
diff changeset
1980
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1981 /* Read and dispose of subprocess output while waiting for timeout to
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1982 elapse and/or keyboard input to be available.
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1983
3953
d0c23febc08c (wait_reading_process_input): Do include the keyboard
Richard M. Stallman <rms@gnu.org>
parents: 3915
diff changeset
1984 TIME_LIMIT is:
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1985 timeout in seconds, or
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1986 zero for no limit, or
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1987 -1 means gobble data immediately available but don't wait for any.
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1988
3953
d0c23febc08c (wait_reading_process_input): Do include the keyboard
Richard M. Stallman <rms@gnu.org>
parents: 3915
diff changeset
1989 MICROSECS is:
d0c23febc08c (wait_reading_process_input): Do include the keyboard
Richard M. Stallman <rms@gnu.org>
parents: 3915
diff changeset
1990 an additional duration to wait, measured in microseconds.
d0c23febc08c (wait_reading_process_input): Do include the keyboard
Richard M. Stallman <rms@gnu.org>
parents: 3915
diff changeset
1991 If this is nonzero and time_limit is 0, then the timeout
d0c23febc08c (wait_reading_process_input): Do include the keyboard
Richard M. Stallman <rms@gnu.org>
parents: 3915
diff changeset
1992 consists of MICROSECS only.
d0c23febc08c (wait_reading_process_input): Do include the keyboard
Richard M. Stallman <rms@gnu.org>
parents: 3915
diff changeset
1993
d0c23febc08c (wait_reading_process_input): Do include the keyboard
Richard M. Stallman <rms@gnu.org>
parents: 3915
diff changeset
1994 READ_KBD is a lisp value:
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1995 0 to ignore keyboard input, or
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1996 1 to return when input is available, or
2200
5e58643bb169 (wait_reading_process_input): New option to wait
Richard M. Stallman <rms@gnu.org>
parents: 2120
diff changeset
1997 -1 meaning caller will actually read the input, so don't throw to
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1998 the quit handler, or
6569
9cde1228e2fa Fix typos in comments.
Karl Heuer <kwzh@gnu.org>
parents: 6515
diff changeset
1999 a cons cell, meaning wait until its car is non-nil
3953
d0c23febc08c (wait_reading_process_input): Do include the keyboard
Richard M. Stallman <rms@gnu.org>
parents: 3915
diff changeset
2000 (and gobble terminal input into the buffer if any arrives), or
650
39f0e62a8511 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 648
diff changeset
2001 a process object, meaning wait until something arrives from that
39f0e62a8511 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 648
diff changeset
2002 process. The return value is true iff we read some input from
39f0e62a8511 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 648
diff changeset
2003 that process.
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2004
3953
d0c23febc08c (wait_reading_process_input): Do include the keyboard
Richard M. Stallman <rms@gnu.org>
parents: 3915
diff changeset
2005 DO_DISPLAY != 0 means redisplay should be done to show subprocess
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2006 output that arrives.
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2007
3953
d0c23febc08c (wait_reading_process_input): Do include the keyboard
Richard M. Stallman <rms@gnu.org>
parents: 3915
diff changeset
2008 If READ_KBD is a pointer to a struct Lisp_Process, then the
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2009 function returns true iff we received input from that process
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2010 before the timeout elapsed.
3591
507f64624555 Apply typo patches from Paul Eggert.
Jim Blandy <jimb@redhat.com>
parents: 3510
diff changeset
2011 Otherwise, return true iff we received input from any process. */
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2012
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2013 wait_reading_process_input (time_limit, microsecs, read_kbd, do_display)
650
39f0e62a8511 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 648
diff changeset
2014 int time_limit, microsecs;
39f0e62a8511 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 648
diff changeset
2015 Lisp_Object read_kbd;
39f0e62a8511 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 648
diff changeset
2016 int do_display;
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2017 {
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2018 register int channel, nfds, m;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2019 static SELECT_TYPE Available;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2020 int xerrno;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2021 Lisp_Object proc;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2022 EMACS_TIME timeout, end_time, garbage;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2023 SELECT_TYPE Atemp;
5134
0a4e46e15304 (wait_reading_process_input):
Richard M. Stallman <rms@gnu.org>
parents: 4998
diff changeset
2024 int wait_channel = -1;
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2025 struct Lisp_Process *wait_proc = 0;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2026 int got_some_input = 0;
2200
5e58643bb169 (wait_reading_process_input): New option to wait
Richard M. Stallman <rms@gnu.org>
parents: 2120
diff changeset
2027 Lisp_Object *wait_for_cell = 0;
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2028
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2029 FD_ZERO (&Available);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2030
650
39f0e62a8511 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 648
diff changeset
2031 /* If read_kbd is a process to watch, set wait_proc and wait_channel
39f0e62a8511 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 648
diff changeset
2032 accordingly. */
9115
59bc2d010b5f (decode_status, Fprocessp, Fget_process, Fget_buffer_process, Fprocess_status,
Karl Heuer <kwzh@gnu.org>
parents: 9034
diff changeset
2033 if (PROCESSP (read_kbd))
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2034 {
650
39f0e62a8511 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 648
diff changeset
2035 wait_proc = XPROCESS (read_kbd);
5134
0a4e46e15304 (wait_reading_process_input):
Richard M. Stallman <rms@gnu.org>
parents: 4998
diff changeset
2036 wait_channel = XINT (wait_proc->infd);
9318
a14cc1712337 (make_process, list_processes_1, create_process, Faccept_process_output,
Karl Heuer <kwzh@gnu.org>
parents: 9277
diff changeset
2037 XSETFASTINT (read_kbd, 0);
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2038 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2039
2200
5e58643bb169 (wait_reading_process_input): New option to wait
Richard M. Stallman <rms@gnu.org>
parents: 2120
diff changeset
2040 /* If waiting for non-nil in a cell, record where. */
9115
59bc2d010b5f (decode_status, Fprocessp, Fget_process, Fget_buffer_process, Fprocess_status,
Karl Heuer <kwzh@gnu.org>
parents: 9034
diff changeset
2041 if (CONSP (read_kbd))
2200
5e58643bb169 (wait_reading_process_input): New option to wait
Richard M. Stallman <rms@gnu.org>
parents: 2120
diff changeset
2042 {
5e58643bb169 (wait_reading_process_input): New option to wait
Richard M. Stallman <rms@gnu.org>
parents: 2120
diff changeset
2043 wait_for_cell = &XCONS (read_kbd)->car;
9318
a14cc1712337 (make_process, list_processes_1, create_process, Faccept_process_output,
Karl Heuer <kwzh@gnu.org>
parents: 9277
diff changeset
2044 XSETFASTINT (read_kbd, 0);
2200
5e58643bb169 (wait_reading_process_input): New option to wait
Richard M. Stallman <rms@gnu.org>
parents: 2120
diff changeset
2045 }
5e58643bb169 (wait_reading_process_input): New option to wait
Richard M. Stallman <rms@gnu.org>
parents: 2120
diff changeset
2046
650
39f0e62a8511 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 648
diff changeset
2047 waiting_for_user_input_p = XINT (read_kbd);
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2048
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2049 /* Since we may need to wait several times,
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2050 compute the absolute time to return at. */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2051 if (time_limit || microsecs)
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2052 {
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2053 EMACS_GET_TIME (end_time);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2054 EMACS_SET_SECS_USECS (timeout, time_limit, microsecs);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2055 EMACS_ADD_TIME (end_time, end_time, timeout);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2056 }
15661
96debed5fb36 (wait_reading_process_input) [hpux]: Workaround for
Karl Heuer <kwzh@gnu.org>
parents: 15406
diff changeset
2057 #ifdef hpux
96debed5fb36 (wait_reading_process_input) [hpux]: Workaround for
Karl Heuer <kwzh@gnu.org>
parents: 15406
diff changeset
2058 /* AlainF 5-Jul-1996
96debed5fb36 (wait_reading_process_input) [hpux]: Workaround for
Karl Heuer <kwzh@gnu.org>
parents: 15406
diff changeset
2059 HP-UX 10.10 seem to have problems with signals coming in
96debed5fb36 (wait_reading_process_input) [hpux]: Workaround for
Karl Heuer <kwzh@gnu.org>
parents: 15406
diff changeset
2060 Causes "poll: interrupted system call" messages when Emacs is run
96debed5fb36 (wait_reading_process_input) [hpux]: Workaround for
Karl Heuer <kwzh@gnu.org>
parents: 15406
diff changeset
2061 in an X window
96debed5fb36 (wait_reading_process_input) [hpux]: Workaround for
Karl Heuer <kwzh@gnu.org>
parents: 15406
diff changeset
2062 Turn off periodic alarms (in case they are in use) */
96debed5fb36 (wait_reading_process_input) [hpux]: Workaround for
Karl Heuer <kwzh@gnu.org>
parents: 15406
diff changeset
2063 stop_polling ();
96debed5fb36 (wait_reading_process_input) [hpux]: Workaround for
Karl Heuer <kwzh@gnu.org>
parents: 15406
diff changeset
2064 #endif
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2065
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2066 while (1)
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2067 {
14458
2bb4652305c1 (wait_reading_process_input): If select times out,
Richard M. Stallman <rms@gnu.org>
parents: 14405
diff changeset
2068 int timeout_reduced_for_timers = 0;
2bb4652305c1 (wait_reading_process_input): If select times out,
Richard M. Stallman <rms@gnu.org>
parents: 14405
diff changeset
2069
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2070 /* If calling from keyboard input, do not quit
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2071 since we want to return C-g as an input character.
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2072 Otherwise, do pending quit if requested. */
650
39f0e62a8511 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 648
diff changeset
2073 if (XINT (read_kbd) >= 0)
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2074 QUIT;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2075
4639
76f242eb1fa8 Include syswait.h.
Richard M. Stallman <rms@gnu.org>
parents: 4320
diff changeset
2076 /* Exit now if the cell we're waiting for became non-nil. */
76f242eb1fa8 Include syswait.h.
Richard M. Stallman <rms@gnu.org>
parents: 4320
diff changeset
2077 if (wait_for_cell && ! NILP (*wait_for_cell))
76f242eb1fa8 Include syswait.h.
Richard M. Stallman <rms@gnu.org>
parents: 4320
diff changeset
2078 break;
76f242eb1fa8 Include syswait.h.
Richard M. Stallman <rms@gnu.org>
parents: 4320
diff changeset
2079
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2080 /* Compute time from now till when time limit is up */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2081 /* Exit if already run out */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2082 if (time_limit == -1)
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2083 {
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2084 /* -1 specified for timeout means
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2085 gobble output available now
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2086 but don't wait at all. */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2087
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2088 EMACS_SET_SECS_USECS (timeout, 0, 0);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2089 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2090 else if (time_limit || microsecs)
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2091 {
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2092 EMACS_GET_TIME (timeout);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2093 EMACS_SUB_TIME (timeout, end_time, timeout);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2094 if (EMACS_TIME_NEG_P (timeout))
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2095 break;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2096 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2097 else
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2098 {
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2099 EMACS_SET_SECS_USECS (timeout, 100000, 0);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2100 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2101
15064
fb0f2804c34a (wait_reading_process_input, both definitions):
Richard M. Stallman <rms@gnu.org>
parents: 15025
diff changeset
2102 /* Normally we run timers here.
fb0f2804c34a (wait_reading_process_input, both definitions):
Richard M. Stallman <rms@gnu.org>
parents: 15025
diff changeset
2103 But not if wait_for_cell; in those cases,
fb0f2804c34a (wait_reading_process_input, both definitions):
Richard M. Stallman <rms@gnu.org>
parents: 15025
diff changeset
2104 the wait is supposed to be short,
fb0f2804c34a (wait_reading_process_input, both definitions):
Richard M. Stallman <rms@gnu.org>
parents: 15025
diff changeset
2105 and those callers cannot handle running arbitrary Lisp code here. */
fb0f2804c34a (wait_reading_process_input, both definitions):
Richard M. Stallman <rms@gnu.org>
parents: 15025
diff changeset
2106 if (! wait_for_cell)
14404
cba05f90ee57 (wait_reading_process_input): Call timer_check
Richard M. Stallman <rms@gnu.org>
parents: 14278
diff changeset
2107 {
14458
2bb4652305c1 (wait_reading_process_input): If select times out,
Richard M. Stallman <rms@gnu.org>
parents: 14405
diff changeset
2108 EMACS_TIME timer_delay;
14890
71c2cf461805 (wait_reading_process_input_1): New (empty) function.
Richard M. Stallman <rms@gnu.org>
parents: 14863
diff changeset
2109 int old_timers_run;
71c2cf461805 (wait_reading_process_input_1): New (empty) function.
Richard M. Stallman <rms@gnu.org>
parents: 14863
diff changeset
2110
71c2cf461805 (wait_reading_process_input_1): New (empty) function.
Richard M. Stallman <rms@gnu.org>
parents: 14863
diff changeset
2111 retry:
71c2cf461805 (wait_reading_process_input_1): New (empty) function.
Richard M. Stallman <rms@gnu.org>
parents: 14863
diff changeset
2112 old_timers_run = timers_run;
14458
2bb4652305c1 (wait_reading_process_input): If select times out,
Richard M. Stallman <rms@gnu.org>
parents: 14405
diff changeset
2113 timer_delay = timer_check (1);
14785
e4a9806c1e83 (wait_reading_process_input):
Richard M. Stallman <rms@gnu.org>
parents: 14758
diff changeset
2114 if (timers_run != old_timers_run && do_display)
14890
71c2cf461805 (wait_reading_process_input_1): New (empty) function.
Richard M. Stallman <rms@gnu.org>
parents: 14863
diff changeset
2115 {
71c2cf461805 (wait_reading_process_input_1): New (empty) function.
Richard M. Stallman <rms@gnu.org>
parents: 14863
diff changeset
2116 redisplay_preserve_echo_area ();
71c2cf461805 (wait_reading_process_input_1): New (empty) function.
Richard M. Stallman <rms@gnu.org>
parents: 14863
diff changeset
2117 /* We must retry, since a timer may have requeued itself
71c2cf461805 (wait_reading_process_input_1): New (empty) function.
Richard M. Stallman <rms@gnu.org>
parents: 14863
diff changeset
2118 and that could alter the time_delay. */
71c2cf461805 (wait_reading_process_input_1): New (empty) function.
Richard M. Stallman <rms@gnu.org>
parents: 14863
diff changeset
2119 goto retry;
71c2cf461805 (wait_reading_process_input_1): New (empty) function.
Richard M. Stallman <rms@gnu.org>
parents: 14863
diff changeset
2120 }
71c2cf461805 (wait_reading_process_input_1): New (empty) function.
Richard M. Stallman <rms@gnu.org>
parents: 14863
diff changeset
2121
14458
2bb4652305c1 (wait_reading_process_input): If select times out,
Richard M. Stallman <rms@gnu.org>
parents: 14405
diff changeset
2122 if (! EMACS_TIME_NEG_P (timer_delay) && time_limit != -1)
14404
cba05f90ee57 (wait_reading_process_input): Call timer_check
Richard M. Stallman <rms@gnu.org>
parents: 14278
diff changeset
2123 {
cba05f90ee57 (wait_reading_process_input): Call timer_check
Richard M. Stallman <rms@gnu.org>
parents: 14278
diff changeset
2124 EMACS_TIME difference;
cba05f90ee57 (wait_reading_process_input): Call timer_check
Richard M. Stallman <rms@gnu.org>
parents: 14278
diff changeset
2125 EMACS_SUB_TIME (difference, timer_delay, timeout);
cba05f90ee57 (wait_reading_process_input): Call timer_check
Richard M. Stallman <rms@gnu.org>
parents: 14278
diff changeset
2126 if (EMACS_TIME_NEG_P (difference))
14458
2bb4652305c1 (wait_reading_process_input): If select times out,
Richard M. Stallman <rms@gnu.org>
parents: 14405
diff changeset
2127 {
2bb4652305c1 (wait_reading_process_input): If select times out,
Richard M. Stallman <rms@gnu.org>
parents: 14405
diff changeset
2128 timeout = timer_delay;
2bb4652305c1 (wait_reading_process_input): If select times out,
Richard M. Stallman <rms@gnu.org>
parents: 14405
diff changeset
2129 timeout_reduced_for_timers = 1;
2bb4652305c1 (wait_reading_process_input): If select times out,
Richard M. Stallman <rms@gnu.org>
parents: 14405
diff changeset
2130 }
14404
cba05f90ee57 (wait_reading_process_input): Call timer_check
Richard M. Stallman <rms@gnu.org>
parents: 14278
diff changeset
2131 }
14935
3e0dc64a5cb8 (wait_reading_process_input): Don't call
Richard M. Stallman <rms@gnu.org>
parents: 14890
diff changeset
2132 /* If time_limit is -1, we are not going to wait at all. */
3e0dc64a5cb8 (wait_reading_process_input): Don't call
Richard M. Stallman <rms@gnu.org>
parents: 14890
diff changeset
2133 else if (time_limit != -1)
14890
71c2cf461805 (wait_reading_process_input_1): New (empty) function.
Richard M. Stallman <rms@gnu.org>
parents: 14863
diff changeset
2134 {
71c2cf461805 (wait_reading_process_input_1): New (empty) function.
Richard M. Stallman <rms@gnu.org>
parents: 14863
diff changeset
2135 /* This is so a breakpoint can be put here. */
71c2cf461805 (wait_reading_process_input_1): New (empty) function.
Richard M. Stallman <rms@gnu.org>
parents: 14863
diff changeset
2136 wait_reading_process_input_1 ();
71c2cf461805 (wait_reading_process_input_1): New (empty) function.
Richard M. Stallman <rms@gnu.org>
parents: 14863
diff changeset
2137 }
14404
cba05f90ee57 (wait_reading_process_input): Call timer_check
Richard M. Stallman <rms@gnu.org>
parents: 14278
diff changeset
2138 }
cba05f90ee57 (wait_reading_process_input): Call timer_check
Richard M. Stallman <rms@gnu.org>
parents: 14278
diff changeset
2139
2894
646c5beae647 * process.c (wait_reading_process_input): Undo change of April
Jim Blandy <jimb@redhat.com>
parents: 2893
diff changeset
2140 /* Cause C-g and alarm signals to take immediate action,
646c5beae647 * process.c (wait_reading_process_input): Undo change of April
Jim Blandy <jimb@redhat.com>
parents: 2893
diff changeset
2141 and cause input available signals to zero out timeout.
646c5beae647 * process.c (wait_reading_process_input): Undo change of April
Jim Blandy <jimb@redhat.com>
parents: 2893
diff changeset
2142
646c5beae647 * process.c (wait_reading_process_input): Undo change of April
Jim Blandy <jimb@redhat.com>
parents: 2893
diff changeset
2143 It is important that we do this before checking for process
646c5beae647 * process.c (wait_reading_process_input): Undo change of April
Jim Blandy <jimb@redhat.com>
parents: 2893
diff changeset
2144 activity. If we get a SIGCHLD after the explicit checks for
646c5beae647 * process.c (wait_reading_process_input): Undo change of April
Jim Blandy <jimb@redhat.com>
parents: 2893
diff changeset
2145 process activity, timeout is the only way we will know. */
646c5beae647 * process.c (wait_reading_process_input): Undo change of April
Jim Blandy <jimb@redhat.com>
parents: 2893
diff changeset
2146 if (XINT (read_kbd) < 0)
646c5beae647 * process.c (wait_reading_process_input): Undo change of April
Jim Blandy <jimb@redhat.com>
parents: 2893
diff changeset
2147 set_waiting_for_input (&timeout);
646c5beae647 * process.c (wait_reading_process_input): Undo change of April
Jim Blandy <jimb@redhat.com>
parents: 2893
diff changeset
2148
1925
3ddb163a9201 * process.c: Make sure we don't miss processes exiting, by having
Jim Blandy <jimb@redhat.com>
parents: 1886
diff changeset
2149 /* If status of something has changed, and no input is
3ddb163a9201 * process.c: Make sure we don't miss processes exiting, by having
Jim Blandy <jimb@redhat.com>
parents: 1886
diff changeset
2150 available, notify the user of the change right away. After
3ddb163a9201 * process.c: Make sure we don't miss processes exiting, by having
Jim Blandy <jimb@redhat.com>
parents: 1886
diff changeset
2151 this explicit check, we'll let the SIGCHLD handler zap
3ddb163a9201 * process.c: Make sure we don't miss processes exiting, by having
Jim Blandy <jimb@redhat.com>
parents: 1886
diff changeset
2152 timeout to get our attention. */
3ddb163a9201 * process.c: Make sure we don't miss processes exiting, by having
Jim Blandy <jimb@redhat.com>
parents: 1886
diff changeset
2153 if (update_tick != process_tick && do_display)
3ddb163a9201 * process.c: Make sure we don't miss processes exiting, by having
Jim Blandy <jimb@redhat.com>
parents: 1886
diff changeset
2154 {
3ddb163a9201 * process.c: Make sure we don't miss processes exiting, by having
Jim Blandy <jimb@redhat.com>
parents: 1886
diff changeset
2155 Atemp = input_wait_mask;
3ddb163a9201 * process.c: Make sure we don't miss processes exiting, by having
Jim Blandy <jimb@redhat.com>
parents: 1886
diff changeset
2156 EMACS_SET_SECS_USECS (timeout, 0, 0);
11926
40d7e6f04ebe (create_process, send_process): Add volatile qualifiers.
Karl Heuer <kwzh@gnu.org>
parents: 11845
diff changeset
2157 if ((select (MAXDESC, &Atemp, (SELECT_TYPE *)0, (SELECT_TYPE *)0,
40d7e6f04ebe (create_process, send_process): Add volatile qualifiers.
Karl Heuer <kwzh@gnu.org>
parents: 11845
diff changeset
2158 &timeout)
40d7e6f04ebe (create_process, send_process): Add volatile qualifiers.
Karl Heuer <kwzh@gnu.org>
parents: 11845
diff changeset
2159 <= 0))
2894
646c5beae647 * process.c (wait_reading_process_input): Undo change of April
Jim Blandy <jimb@redhat.com>
parents: 2893
diff changeset
2160 {
646c5beae647 * process.c (wait_reading_process_input): Undo change of April
Jim Blandy <jimb@redhat.com>
parents: 2893
diff changeset
2161 /* It's okay for us to do this and then continue with
5534
7a0de0f56c86 Comment changes.
Richard M. Stallman <rms@gnu.org>
parents: 5404
diff changeset
2162 the loop, since timeout has already been zeroed out. */
2894
646c5beae647 * process.c (wait_reading_process_input): Undo change of April
Jim Blandy <jimb@redhat.com>
parents: 2893
diff changeset
2163 clear_waiting_for_input ();
646c5beae647 * process.c (wait_reading_process_input): Undo change of April
Jim Blandy <jimb@redhat.com>
parents: 2893
diff changeset
2164 status_notify ();
646c5beae647 * process.c (wait_reading_process_input): Undo change of April
Jim Blandy <jimb@redhat.com>
parents: 2893
diff changeset
2165 }
1925
3ddb163a9201 * process.c: Make sure we don't miss processes exiting, by having
Jim Blandy <jimb@redhat.com>
parents: 1886
diff changeset
2166 }
3ddb163a9201 * process.c: Make sure we don't miss processes exiting, by having
Jim Blandy <jimb@redhat.com>
parents: 1886
diff changeset
2167
3ddb163a9201 * process.c: Make sure we don't miss processes exiting, by having
Jim Blandy <jimb@redhat.com>
parents: 1886
diff changeset
2168 /* Don't wait for output from a non-running process. */
3ddb163a9201 * process.c: Make sure we don't miss processes exiting, by having
Jim Blandy <jimb@redhat.com>
parents: 1886
diff changeset
2169 if (wait_proc != 0 && !NILP (wait_proc->raw_status_low))
3ddb163a9201 * process.c: Make sure we don't miss processes exiting, by having
Jim Blandy <jimb@redhat.com>
parents: 1886
diff changeset
2170 update_status (wait_proc);
3ddb163a9201 * process.c: Make sure we don't miss processes exiting, by having
Jim Blandy <jimb@redhat.com>
parents: 1886
diff changeset
2171 if (wait_proc != 0
3ddb163a9201 * process.c: Make sure we don't miss processes exiting, by having
Jim Blandy <jimb@redhat.com>
parents: 1886
diff changeset
2172 && ! EQ (wait_proc->status, Qrun))
2893
4df57953d5d0 * process.c (wait_reading_process_input): Don't forget to call
Jim Blandy <jimb@redhat.com>
parents: 2887
diff changeset
2173 {
4df57953d5d0 * process.c (wait_reading_process_input): Don't forget to call
Jim Blandy <jimb@redhat.com>
parents: 2887
diff changeset
2174 clear_waiting_for_input ();
4df57953d5d0 * process.c (wait_reading_process_input): Don't forget to call
Jim Blandy <jimb@redhat.com>
parents: 2887
diff changeset
2175 break;
4df57953d5d0 * process.c (wait_reading_process_input): Don't forget to call
Jim Blandy <jimb@redhat.com>
parents: 2887
diff changeset
2176 }
1925
3ddb163a9201 * process.c: Make sure we don't miss processes exiting, by having
Jim Blandy <jimb@redhat.com>
parents: 1886
diff changeset
2177
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2178 /* Wait till there is something to do */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2179
8390
ee13e8728666 (create_process): Set default handling for SIGINT, etc.
Richard M. Stallman <rms@gnu.org>
parents: 8354
diff changeset
2180 if (! XINT (read_kbd) && wait_for_cell == 0)
9686
cd788aa8cb2a Handle multiple keyboard input descriptors.
Richard M. Stallman <rms@gnu.org>
parents: 9334
diff changeset
2181 Available = non_keyboard_wait_mask;
cd788aa8cb2a Handle multiple keyboard input descriptors.
Richard M. Stallman <rms@gnu.org>
parents: 9334
diff changeset
2182 else
cd788aa8cb2a Handle multiple keyboard input descriptors.
Richard M. Stallman <rms@gnu.org>
parents: 9334
diff changeset
2183 Available = input_wait_mask;
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2184
765
e4093444f9f8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 692
diff changeset
2185 /* If frame size has changed or the window is newly mapped,
648
70b112526394 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 638
diff changeset
2186 redisplay now, before we start to wait. There is a race
70b112526394 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 638
diff changeset
2187 condition here; if a SIGIO arrives between now and the select
1655
05e84e6c7d04 Tue Dec 1 23:42:25 1992 Jim Blandy (jimb@totoro.cs.oberlin.edu)
Jim Blandy <jimb@redhat.com>
parents: 1594
diff changeset
2188 and indicates that a frame is trashed, the select may block
05e84e6c7d04 Tue Dec 1 23:42:25 1992 Jim Blandy (jimb@totoro.cs.oberlin.edu)
Jim Blandy <jimb@redhat.com>
parents: 1594
diff changeset
2189 displaying a trashed screen. */
6429
1dbe24a029fd (wait_reading_process_input, both versions): Don't call
Richard M. Stallman <rms@gnu.org>
parents: 6393
diff changeset
2190 if (frame_garbaged && do_display)
11728
affed1766d34 (wait_reading_process_input): Don't call prepare_menu_bars.
Richard M. Stallman <rms@gnu.org>
parents: 11695
diff changeset
2191 {
affed1766d34 (wait_reading_process_input): Don't call prepare_menu_bars.
Richard M. Stallman <rms@gnu.org>
parents: 11695
diff changeset
2192 clear_waiting_for_input ();
affed1766d34 (wait_reading_process_input): Don't call prepare_menu_bars.
Richard M. Stallman <rms@gnu.org>
parents: 11695
diff changeset
2193 redisplay_preserve_echo_area ();
affed1766d34 (wait_reading_process_input): Don't call prepare_menu_bars.
Richard M. Stallman <rms@gnu.org>
parents: 11695
diff changeset
2194 if (XINT (read_kbd) < 0)
11744
52a2c8e81bb7 (wait_reading_process_input): Pass arg in new call to set_waiting_for_input.
Richard M. Stallman <rms@gnu.org>
parents: 11728
diff changeset
2195 set_waiting_for_input (&timeout);
11728
affed1766d34 (wait_reading_process_input): Don't call prepare_menu_bars.
Richard M. Stallman <rms@gnu.org>
parents: 11695
diff changeset
2196 }
648
70b112526394 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 638
diff changeset
2197
15021
af36df262fc5 (wait_reading_process_input) [!subprocesses]: Handle
Richard M. Stallman <rms@gnu.org>
parents: 14998
diff changeset
2198 if (XINT (read_kbd) && detect_input_pending ())
af36df262fc5 (wait_reading_process_input) [!subprocesses]: Handle
Richard M. Stallman <rms@gnu.org>
parents: 14998
diff changeset
2199 {
af36df262fc5 (wait_reading_process_input) [!subprocesses]: Handle
Richard M. Stallman <rms@gnu.org>
parents: 14998
diff changeset
2200 nfds = 0;
af36df262fc5 (wait_reading_process_input) [!subprocesses]: Handle
Richard M. Stallman <rms@gnu.org>
parents: 14998
diff changeset
2201 FD_ZERO (&Available);
af36df262fc5 (wait_reading_process_input) [!subprocesses]: Handle
Richard M. Stallman <rms@gnu.org>
parents: 14998
diff changeset
2202 }
af36df262fc5 (wait_reading_process_input) [!subprocesses]: Handle
Richard M. Stallman <rms@gnu.org>
parents: 14998
diff changeset
2203 else
af36df262fc5 (wait_reading_process_input) [!subprocesses]: Handle
Richard M. Stallman <rms@gnu.org>
parents: 14998
diff changeset
2204 nfds = select (MAXDESC, &Available, (SELECT_TYPE *)0, (SELECT_TYPE *)0,
af36df262fc5 (wait_reading_process_input) [!subprocesses]: Handle
Richard M. Stallman <rms@gnu.org>
parents: 14998
diff changeset
2205 &timeout);
588
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
2206
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2207 xerrno = errno;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2208
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2209 /* Make C-g and alarm signals set flags again */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2210 clear_waiting_for_input ();
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2211
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2212 /* If we woke up due to SIGWINCH, actually change size now. */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2213 do_pending_window_change ();
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2214
14458
2bb4652305c1 (wait_reading_process_input): If select times out,
Richard M. Stallman <rms@gnu.org>
parents: 14405
diff changeset
2215 if (time_limit && nfds == 0 && ! timeout_reduced_for_timers)
2bb4652305c1 (wait_reading_process_input): If select times out,
Richard M. Stallman <rms@gnu.org>
parents: 14405
diff changeset
2216 /* We wanted the full specified time, so return now. */
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2217 break;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2218 if (nfds < 0)
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2219 {
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2220 if (xerrno == EINTR)
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2221 FD_ZERO (&Available);
1594
b476a97ad17e * systty.h, process.c, buffer.h, callproc.c, sysdep.c, dired.c:
Jim Blandy <jimb@redhat.com>
parents: 1569
diff changeset
2222 #ifdef ultrix
b476a97ad17e * systty.h, process.c, buffer.h, callproc.c, sysdep.c, dired.c:
Jim Blandy <jimb@redhat.com>
parents: 1569
diff changeset
2223 /* Ultrix select seems to return ENOMEM when it is
b476a97ad17e * systty.h, process.c, buffer.h, callproc.c, sysdep.c, dired.c:
Jim Blandy <jimb@redhat.com>
parents: 1569
diff changeset
2224 interrupted. Treat it just like EINTR. Bleah. Note
b476a97ad17e * systty.h, process.c, buffer.h, callproc.c, sysdep.c, dired.c:
Jim Blandy <jimb@redhat.com>
parents: 1569
diff changeset
2225 that we want to test for the "ultrix" CPP symbol, not
b476a97ad17e * systty.h, process.c, buffer.h, callproc.c, sysdep.c, dired.c:
Jim Blandy <jimb@redhat.com>
parents: 1569
diff changeset
2226 "__ultrix__"; the latter is only defined under GCC, but
b476a97ad17e * systty.h, process.c, buffer.h, callproc.c, sysdep.c, dired.c:
Jim Blandy <jimb@redhat.com>
parents: 1569
diff changeset
2227 not by DEC's bundled CC. -JimB */
1323
25b5b55a3916 * process.c (wait_reading_process_input): If the select returns
Jim Blandy <jimb@redhat.com>
parents: 1207
diff changeset
2228 else if (xerrno == ENOMEM)
25b5b55a3916 * process.c (wait_reading_process_input): If the select returns
Jim Blandy <jimb@redhat.com>
parents: 1207
diff changeset
2229 FD_ZERO (&Available);
25b5b55a3916 * process.c (wait_reading_process_input): If the select returns
Jim Blandy <jimb@redhat.com>
parents: 1207
diff changeset
2230 #endif
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2231 #ifdef ALLIANT
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2232 /* This happens for no known reason on ALLIANT.
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2233 I am guessing that this is the right response. -- RMS. */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2234 else if (xerrno == EFAULT)
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2235 FD_ZERO (&Available);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2236 #endif
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2237 else if (xerrno == EBADF)
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2238 {
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2239 #ifdef AIX
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2240 /* AIX doesn't handle PTY closure the same way BSD does. On AIX,
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2241 the child's closure of the pts gives the parent a SIGHUP, and
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2242 the ptc file descriptor is automatically closed,
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2243 yielding EBADF here or at select() call above.
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2244 So, SIGHUP is ignored (see def of PTY_TTY_NAME_SPRINTF
5534
7a0de0f56c86 Comment changes.
Richard M. Stallman <rms@gnu.org>
parents: 5404
diff changeset
2245 in m/ibmrt-aix.h), and here we just ignore the select error.
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2246 Cleanup occurs c/o status_notify after SIGCLD. */
648
70b112526394 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 638
diff changeset
2247 FD_ZERO (&Available); /* Cannot depend on values returned */
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2248 #else
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2249 abort ();
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2250 #endif
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2251 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2252 else
14613
386831bc4a4e (wait_reading_process_input):
Karl Heuer <kwzh@gnu.org>
parents: 14605
diff changeset
2253 error ("select error: %s", strerror (xerrno));
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2254 }
2815
60f122cfe785 * process.c (wait_reading_process_input): If we're running
Jim Blandy <jimb@redhat.com>
parents: 2610
diff changeset
2255 #if defined(sun) && !defined(USG5_4)
9686
cd788aa8cb2a Handle multiple keyboard input descriptors.
Richard M. Stallman <rms@gnu.org>
parents: 9334
diff changeset
2256 else if (nfds > 0 && keyboard_bit_set (&Available)
4682
c4d471244116 (keyboard_descriptor): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 4639
diff changeset
2257 && interrupt_input)
2830
006c7fbdeab7 Document sun change.
Jim Blandy <jimb@redhat.com>
parents: 2815
diff changeset
2258 /* System sometimes fails to deliver SIGIO.
006c7fbdeab7 Document sun change.
Jim Blandy <jimb@redhat.com>
parents: 2815
diff changeset
2259
006c7fbdeab7 Document sun change.
Jim Blandy <jimb@redhat.com>
parents: 2815
diff changeset
2260 David J. Mackenzie says that Emacs doesn't compile under
006c7fbdeab7 Document sun change.
Jim Blandy <jimb@redhat.com>
parents: 2815
diff changeset
2261 Solaris if this code is enabled, thus the USG5_4 in the CPP
006c7fbdeab7 Document sun change.
Jim Blandy <jimb@redhat.com>
parents: 2815
diff changeset
2262 conditional. "I haven't noticed any ill effects so far.
006c7fbdeab7 Document sun change.
Jim Blandy <jimb@redhat.com>
parents: 2815
diff changeset
2263 If you find a Solaris expert somewhere, they might know
006c7fbdeab7 Document sun change.
Jim Blandy <jimb@redhat.com>
parents: 2815
diff changeset
2264 better." */
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2265 kill (getpid (), SIGIO);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2266 #endif
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2267
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2268 /* Check for keyboard input */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2269 /* If there is any, return immediately
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2270 to give it higher priority than subprocesses */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2271
15064
fb0f2804c34a (wait_reading_process_input, both definitions):
Richard M. Stallman <rms@gnu.org>
parents: 15025
diff changeset
2272 if ((XINT (read_kbd) != 0)
14758
849458c13c0c (wait_reading_process_input):
Richard M. Stallman <rms@gnu.org>
parents: 14736
diff changeset
2273 && detect_input_pending_run_timers (do_display))
14613
386831bc4a4e (wait_reading_process_input):
Karl Heuer <kwzh@gnu.org>
parents: 14605
diff changeset
2274 {
386831bc4a4e (wait_reading_process_input):
Karl Heuer <kwzh@gnu.org>
parents: 14605
diff changeset
2275 swallow_events (do_display);
14758
849458c13c0c (wait_reading_process_input):
Richard M. Stallman <rms@gnu.org>
parents: 14736
diff changeset
2276 if (detect_input_pending_run_timers (do_display))
14613
386831bc4a4e (wait_reading_process_input):
Karl Heuer <kwzh@gnu.org>
parents: 14605
diff changeset
2277 break;
386831bc4a4e (wait_reading_process_input):
Karl Heuer <kwzh@gnu.org>
parents: 14605
diff changeset
2278 }
386831bc4a4e (wait_reading_process_input):
Karl Heuer <kwzh@gnu.org>
parents: 14605
diff changeset
2279
15064
fb0f2804c34a (wait_reading_process_input, both definitions):
Richard M. Stallman <rms@gnu.org>
parents: 15025
diff changeset
2280 /* If wait_for_cell. check for keyboard input
fb0f2804c34a (wait_reading_process_input, both definitions):
Richard M. Stallman <rms@gnu.org>
parents: 15025
diff changeset
2281 but don't run any timers.
fb0f2804c34a (wait_reading_process_input, both definitions):
Richard M. Stallman <rms@gnu.org>
parents: 15025
diff changeset
2282 ??? (It seems wrong to me to check for keyboard
fb0f2804c34a (wait_reading_process_input, both definitions):
Richard M. Stallman <rms@gnu.org>
parents: 15025
diff changeset
2283 input at all when wait_for_cell, but the code
fb0f2804c34a (wait_reading_process_input, both definitions):
Richard M. Stallman <rms@gnu.org>
parents: 15025
diff changeset
2284 has been this way since July 1994.
fb0f2804c34a (wait_reading_process_input, both definitions):
Richard M. Stallman <rms@gnu.org>
parents: 15025
diff changeset
2285 Try changing this after version 19.31.) */
fb0f2804c34a (wait_reading_process_input, both definitions):
Richard M. Stallman <rms@gnu.org>
parents: 15025
diff changeset
2286 if (wait_for_cell
fb0f2804c34a (wait_reading_process_input, both definitions):
Richard M. Stallman <rms@gnu.org>
parents: 15025
diff changeset
2287 && detect_input_pending ())
fb0f2804c34a (wait_reading_process_input, both definitions):
Richard M. Stallman <rms@gnu.org>
parents: 15025
diff changeset
2288 {
fb0f2804c34a (wait_reading_process_input, both definitions):
Richard M. Stallman <rms@gnu.org>
parents: 15025
diff changeset
2289 swallow_events (do_display);
fb0f2804c34a (wait_reading_process_input, both definitions):
Richard M. Stallman <rms@gnu.org>
parents: 15025
diff changeset
2290 if (detect_input_pending ())
fb0f2804c34a (wait_reading_process_input, both definitions):
Richard M. Stallman <rms@gnu.org>
parents: 15025
diff changeset
2291 break;
fb0f2804c34a (wait_reading_process_input, both definitions):
Richard M. Stallman <rms@gnu.org>
parents: 15025
diff changeset
2292 }
fb0f2804c34a (wait_reading_process_input, both definitions):
Richard M. Stallman <rms@gnu.org>
parents: 15025
diff changeset
2293
2200
5e58643bb169 (wait_reading_process_input): New option to wait
Richard M. Stallman <rms@gnu.org>
parents: 2120
diff changeset
2294 /* Exit now if the cell we're waiting for became non-nil. */
5e58643bb169 (wait_reading_process_input): New option to wait
Richard M. Stallman <rms@gnu.org>
parents: 2120
diff changeset
2295 if (wait_for_cell && ! NILP (*wait_for_cell))
5e58643bb169 (wait_reading_process_input): New option to wait
Richard M. Stallman <rms@gnu.org>
parents: 2120
diff changeset
2296 break;
5e58643bb169 (wait_reading_process_input): New option to wait
Richard M. Stallman <rms@gnu.org>
parents: 2120
diff changeset
2297
621
eca8812e61cd *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 604
diff changeset
2298 #ifdef SIGIO
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2299 /* If we think we have keyboard input waiting, but didn't get SIGIO
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2300 go read it. This can happen with X on BSD after logging out.
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2301 In that case, there really is no input and no SIGIO,
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2302 but select says there is input. */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2303
4682
c4d471244116 (keyboard_descriptor): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 4639
diff changeset
2304 if (XINT (read_kbd) && interrupt_input
9686
cd788aa8cb2a Handle multiple keyboard input descriptors.
Richard M. Stallman <rms@gnu.org>
parents: 9334
diff changeset
2305 && (keyboard_bit_set (&Available)))
14736
b17ec81a6294 (wait_reading_process_input): Use getpid when generating SIGIO.
Richard M. Stallman <rms@gnu.org>
parents: 14671
diff changeset
2306 kill (getpid (), SIGIO);
621
eca8812e61cd *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 604
diff changeset
2307 #endif
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2308
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2309 if (! wait_proc)
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2310 got_some_input |= nfds > 0;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2311
624
2bb7f23b7ea5 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 621
diff changeset
2312 /* If checking input just got us a size-change event from X,
2bb7f23b7ea5 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 621
diff changeset
2313 obey it now if we should. */
4057
2fe1488b503c (wait_reading_process_input): If wait_for_cell, do call
Richard M. Stallman <rms@gnu.org>
parents: 3953
diff changeset
2314 if (XINT (read_kbd) || wait_for_cell)
624
2bb7f23b7ea5 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 621
diff changeset
2315 do_pending_window_change ();
2bb7f23b7ea5 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 621
diff changeset
2316
5134
0a4e46e15304 (wait_reading_process_input):
Richard M. Stallman <rms@gnu.org>
parents: 4998
diff changeset
2317 /* Check for data from a process. */
0a4e46e15304 (wait_reading_process_input):
Richard M. Stallman <rms@gnu.org>
parents: 4998
diff changeset
2318 /* Really FIRST_PROC_DESC should be 0 on Unix,
0a4e46e15304 (wait_reading_process_input):
Richard M. Stallman <rms@gnu.org>
parents: 4998
diff changeset
2319 but this is safer in the short run. */
9686
cd788aa8cb2a Handle multiple keyboard input descriptors.
Richard M. Stallman <rms@gnu.org>
parents: 9334
diff changeset
2320 for (channel = 0; channel <= max_process_desc; channel++)
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2321 {
9686
cd788aa8cb2a Handle multiple keyboard input descriptors.
Richard M. Stallman <rms@gnu.org>
parents: 9334
diff changeset
2322 if (FD_ISSET (channel, &Available)
cd788aa8cb2a Handle multiple keyboard input descriptors.
Richard M. Stallman <rms@gnu.org>
parents: 9334
diff changeset
2323 && FD_ISSET (channel, &non_keyboard_wait_mask))
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2324 {
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2325 int nread;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2326
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2327 /* If waiting for this channel, arrange to return as
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2328 soon as no more input to be processed. No more
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2329 waiting. */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2330 if (wait_channel == channel)
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2331 {
5134
0a4e46e15304 (wait_reading_process_input):
Richard M. Stallman <rms@gnu.org>
parents: 4998
diff changeset
2332 wait_channel = -1;
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2333 time_limit = -1;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2334 got_some_input = 1;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2335 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2336 proc = chan_process[channel];
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2337 if (NILP (proc))
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2338 continue;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2339
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2340 /* Read data from the process, starting with our
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2341 buffered-ahead character if we have one. */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2342
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2343 nread = read_process_output (proc, channel);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2344 if (nread > 0)
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2345 {
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2346 /* Since read_process_output can run a filter,
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2347 which can call accept-process-output,
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2348 don't try to read from any other processes
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2349 before doing the select again. */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2350 FD_ZERO (&Available);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2351
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2352 if (do_display)
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2353 redisplay_preserve_echo_area ();
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2354 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2355 #ifdef EWOULDBLOCK
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2356 else if (nread == -1 && errno == EWOULDBLOCK)
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2357 ;
15405
c27bb6e69e2d (wait_reading_process_input): Move the O_NONBLOCK and
Richard M. Stallman <rms@gnu.org>
parents: 15368
diff changeset
2358 #endif
15406
7c205bc80624 Comment change.
Richard M. Stallman <rms@gnu.org>
parents: 15405
diff changeset
2359 /* ISC 4.1 defines both EWOULDBLOCK and O_NONBLOCK,
7c205bc80624 Comment change.
Richard M. Stallman <rms@gnu.org>
parents: 15405
diff changeset
2360 and Emacs uses O_NONBLOCK, so what we get is EAGAIN. */
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2361 #ifdef O_NONBLOCK
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2362 else if (nread == -1 && errno == EAGAIN)
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2363 ;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2364 #else
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2365 #ifdef O_NDELAY
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2366 else if (nread == -1 && errno == EAGAIN)
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2367 ;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2368 /* Note that we cannot distinguish between no input
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2369 available now and a closed pipe.
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2370 With luck, a closed pipe will be accompanied by
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2371 subprocess termination and SIGCHLD. */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2372 else if (nread == 0 && !NETCONN_P (proc))
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2373 ;
648
70b112526394 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 638
diff changeset
2374 #endif /* O_NDELAY */
70b112526394 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 638
diff changeset
2375 #endif /* O_NONBLOCK */
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2376 #ifdef HAVE_PTYS
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2377 /* On some OSs with ptys, when the process on one end of
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2378 a pty exits, the other end gets an error reading with
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2379 errno = EIO instead of getting an EOF (0 bytes read).
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2380 Therefore, if we get an error reading and errno =
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2381 EIO, just continue, because the child process has
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2382 exited and should clean itself up soon (e.g. when we
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2383 get a SIGCHLD). */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2384 else if (nread == -1 && errno == EIO)
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2385 ;
648
70b112526394 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 638
diff changeset
2386 #endif /* HAVE_PTYS */
70b112526394 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 638
diff changeset
2387 /* If we can detect process termination, don't consider the process
70b112526394 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 638
diff changeset
2388 gone just because its pipe is closed. */
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2389 #ifdef SIGCHLD
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2390 else if (nread == 0 && !NETCONN_P (proc))
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2391 ;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2392 #endif
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2393 else
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2394 {
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2395 /* Preserve status of processes already terminated. */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2396 XSETINT (XPROCESS (proc)->tick, ++process_tick);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2397 deactivate_process (proc);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2398 if (!NILP (XPROCESS (proc)->raw_status_low))
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2399 update_status (XPROCESS (proc));
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2400 if (EQ (XPROCESS (proc)->status, Qrun))
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2401 XPROCESS (proc)->status
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2402 = Fcons (Qexit, Fcons (make_number (256), Qnil));
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2403 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2404 }
648
70b112526394 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 638
diff changeset
2405 } /* end for each file descriptor */
70b112526394 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 638
diff changeset
2406 } /* end while exit conditions not met */
70b112526394 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 638
diff changeset
2407
8570
dd3dfde8f973 (wait_reading_process_input):
Richard M. Stallman <rms@gnu.org>
parents: 8390
diff changeset
2408 waiting_for_user_input_p = 0;
dd3dfde8f973 (wait_reading_process_input):
Richard M. Stallman <rms@gnu.org>
parents: 8390
diff changeset
2409
648
70b112526394 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 638
diff changeset
2410 /* If calling from keyboard input, do not quit
70b112526394 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 638
diff changeset
2411 since we want to return C-g as an input character.
70b112526394 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 638
diff changeset
2412 Otherwise, do pending quit if requested. */
650
39f0e62a8511 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 648
diff changeset
2413 if (XINT (read_kbd) >= 0)
648
70b112526394 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 638
diff changeset
2414 {
70b112526394 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 638
diff changeset
2415 /* Prevent input_pending from remaining set if we quit. */
70b112526394 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 638
diff changeset
2416 clear_input_pending ();
70b112526394 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 638
diff changeset
2417 QUIT;
70b112526394 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 638
diff changeset
2418 }
15661
96debed5fb36 (wait_reading_process_input) [hpux]: Workaround for
Karl Heuer <kwzh@gnu.org>
parents: 15406
diff changeset
2419 #ifdef hpux
96debed5fb36 (wait_reading_process_input) [hpux]: Workaround for
Karl Heuer <kwzh@gnu.org>
parents: 15406
diff changeset
2420 /* AlainF 5-Jul-1996
96debed5fb36 (wait_reading_process_input) [hpux]: Workaround for
Karl Heuer <kwzh@gnu.org>
parents: 15406
diff changeset
2421 HP-UX 10.10 seems to have problems with signals coming in
96debed5fb36 (wait_reading_process_input) [hpux]: Workaround for
Karl Heuer <kwzh@gnu.org>
parents: 15406
diff changeset
2422 Causes "poll: interrupted system call" messages when Emacs is run
96debed5fb36 (wait_reading_process_input) [hpux]: Workaround for
Karl Heuer <kwzh@gnu.org>
parents: 15406
diff changeset
2423 in an X window
96debed5fb36 (wait_reading_process_input) [hpux]: Workaround for
Karl Heuer <kwzh@gnu.org>
parents: 15406
diff changeset
2424 Turn periodic alarms back on */
96debed5fb36 (wait_reading_process_input) [hpux]: Workaround for
Karl Heuer <kwzh@gnu.org>
parents: 15406
diff changeset
2425 start_polling();
96debed5fb36 (wait_reading_process_input) [hpux]: Workaround for
Karl Heuer <kwzh@gnu.org>
parents: 15406
diff changeset
2426 #endif
96debed5fb36 (wait_reading_process_input) [hpux]: Workaround for
Karl Heuer <kwzh@gnu.org>
parents: 15406
diff changeset
2427
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2428 return got_some_input;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2429 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2430
9030
b14532c71632 (exec_sentinel_error_handler): New function.
Richard M. Stallman <rms@gnu.org>
parents: 8570
diff changeset
2431 /* Given a list (FUNCTION ARGS...), apply FUNCTION to the ARGS. */
b14532c71632 (exec_sentinel_error_handler): New function.
Richard M. Stallman <rms@gnu.org>
parents: 8570
diff changeset
2432
b14532c71632 (exec_sentinel_error_handler): New function.
Richard M. Stallman <rms@gnu.org>
parents: 8570
diff changeset
2433 static Lisp_Object
b14532c71632 (exec_sentinel_error_handler): New function.
Richard M. Stallman <rms@gnu.org>
parents: 8570
diff changeset
2434 read_process_output_call (fun_and_args)
b14532c71632 (exec_sentinel_error_handler): New function.
Richard M. Stallman <rms@gnu.org>
parents: 8570
diff changeset
2435 Lisp_Object fun_and_args;
b14532c71632 (exec_sentinel_error_handler): New function.
Richard M. Stallman <rms@gnu.org>
parents: 8570
diff changeset
2436 {
b14532c71632 (exec_sentinel_error_handler): New function.
Richard M. Stallman <rms@gnu.org>
parents: 8570
diff changeset
2437 return apply1 (XCONS (fun_and_args)->car, XCONS (fun_and_args)->cdr);
b14532c71632 (exec_sentinel_error_handler): New function.
Richard M. Stallman <rms@gnu.org>
parents: 8570
diff changeset
2438 }
b14532c71632 (exec_sentinel_error_handler): New function.
Richard M. Stallman <rms@gnu.org>
parents: 8570
diff changeset
2439
b14532c71632 (exec_sentinel_error_handler): New function.
Richard M. Stallman <rms@gnu.org>
parents: 8570
diff changeset
2440 static Lisp_Object
b14532c71632 (exec_sentinel_error_handler): New function.
Richard M. Stallman <rms@gnu.org>
parents: 8570
diff changeset
2441 read_process_output_error_handler (error)
b14532c71632 (exec_sentinel_error_handler): New function.
Richard M. Stallman <rms@gnu.org>
parents: 8570
diff changeset
2442 Lisp_Object error;
b14532c71632 (exec_sentinel_error_handler): New function.
Richard M. Stallman <rms@gnu.org>
parents: 8570
diff changeset
2443 {
b14532c71632 (exec_sentinel_error_handler): New function.
Richard M. Stallman <rms@gnu.org>
parents: 8570
diff changeset
2444 cmd_error_internal (error, "error in process filter: ");
b14532c71632 (exec_sentinel_error_handler): New function.
Richard M. Stallman <rms@gnu.org>
parents: 8570
diff changeset
2445 Vinhibit_quit = Qt;
b14532c71632 (exec_sentinel_error_handler): New function.
Richard M. Stallman <rms@gnu.org>
parents: 8570
diff changeset
2446 update_echo_area ();
11277
d4547e4b0aab (read_process_output_error_handler)
Richard M. Stallman <rms@gnu.org>
parents: 11235
diff changeset
2447 Fsleep_for (make_number (2), Qnil);
9030
b14532c71632 (exec_sentinel_error_handler): New function.
Richard M. Stallman <rms@gnu.org>
parents: 8570
diff changeset
2448 }
b14532c71632 (exec_sentinel_error_handler): New function.
Richard M. Stallman <rms@gnu.org>
parents: 8570
diff changeset
2449
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2450 /* Read pending output from the process channel,
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2451 starting with our buffered-ahead character if we have one.
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2452 Yield number of characters read.
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2453
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2454 This function reads at most 1024 characters.
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2455 If you want to read all available subprocess output,
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2456 you must call it repeatedly until it returns zero. */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2457
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2458 read_process_output (proc, channel)
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2459 Lisp_Object proc;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2460 register int channel;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2461 {
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2462 register int nchars;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2463 #ifdef VMS
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2464 char *chars;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2465 #else
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2466 char chars[1024];
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2467 #endif
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2468 register Lisp_Object outstream;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2469 register struct buffer *old = current_buffer;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2470 register struct Lisp_Process *p = XPROCESS (proc);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2471 register int opoint;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2472
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2473 #ifdef VMS
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2474 VMS_PROC_STUFF *vs, *get_vms_process_pointer();
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2475
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2476 vs = get_vms_process_pointer (p->pid);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2477 if (vs)
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2478 {
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2479 if (!vs->iosb[0])
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2480 return(0); /* Really weird if it does this */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2481 if (!(vs->iosb[0] & 1))
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2482 return -1; /* I/O error */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2483 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2484 else
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2485 error ("Could not get VMS process pointer");
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2486 chars = vs->inputBuffer;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2487 nchars = clean_vms_buffer (chars, vs->iosb[1]);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2488 if (nchars <= 0)
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2489 {
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2490 start_vms_process_read (vs); /* Crank up the next read on the process */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2491 return 1; /* Nothing worth printing, say we got 1 */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2492 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2493 #else /* not VMS */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2494
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2495 if (proc_buffered_char[channel] < 0)
15092
5372670fbe59 (Fopen_network_stream): Set process infd to inch.
Richard M. Stallman <rms@gnu.org>
parents: 15064
diff changeset
2496 nchars = read (channel, chars, sizeof (chars));
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2497 else
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2498 {
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2499 chars[0] = proc_buffered_char[channel];
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2500 proc_buffered_char[channel] = -1;
15092
5372670fbe59 (Fopen_network_stream): Set process infd to inch.
Richard M. Stallman <rms@gnu.org>
parents: 15064
diff changeset
2501 nchars = read (channel, chars + 1, sizeof (chars) - 1);
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2502 if (nchars < 0)
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2503 nchars = 1;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2504 else
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2505 nchars = nchars + 1;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2506 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2507 #endif /* not VMS */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2508
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2509 if (nchars <= 0) return nchars;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2510
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2511 outstream = p->filter;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2512 if (!NILP (outstream))
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2513 {
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2514 /* We inhibit quit here instead of just catching it so that
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2515 hitting ^G when a filter happens to be running won't screw
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2516 it up. */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2517 int count = specpdl_ptr - specpdl;
3510
b4a552ca4e99 (read_process_output): Deactivate the mark.
Richard M. Stallman <rms@gnu.org>
parents: 3238
diff changeset
2518 Lisp_Object odeactivate;
10914
413d44c0bd41 (exec_sentinel, read_process_output): If running filter
Richard M. Stallman <rms@gnu.org>
parents: 10744
diff changeset
2519 Lisp_Object obuffer, okeymap;
16644
3a93437adce1 (status_notify): Test p->infd > 0
Richard M. Stallman <rms@gnu.org>
parents: 16464
diff changeset
2520 int outer_running_asynch_code = running_asynch_code;
10914
413d44c0bd41 (exec_sentinel, read_process_output): If running filter
Richard M. Stallman <rms@gnu.org>
parents: 10744
diff changeset
2521
413d44c0bd41 (exec_sentinel, read_process_output): If running filter
Richard M. Stallman <rms@gnu.org>
parents: 10744
diff changeset
2522 /* No need to gcpro these, because all we do with them later
413d44c0bd41 (exec_sentinel, read_process_output): If running filter
Richard M. Stallman <rms@gnu.org>
parents: 10744
diff changeset
2523 is test them for EQness, and none of them should be a string. */
3510
b4a552ca4e99 (read_process_output): Deactivate the mark.
Richard M. Stallman <rms@gnu.org>
parents: 3238
diff changeset
2524 odeactivate = Vdeactivate_mark;
10914
413d44c0bd41 (exec_sentinel, read_process_output): If running filter
Richard M. Stallman <rms@gnu.org>
parents: 10744
diff changeset
2525 XSETBUFFER (obuffer, current_buffer);
413d44c0bd41 (exec_sentinel, read_process_output): If running filter
Richard M. Stallman <rms@gnu.org>
parents: 10744
diff changeset
2526 okeymap = current_buffer->keymap;
3510
b4a552ca4e99 (read_process_output): Deactivate the mark.
Richard M. Stallman <rms@gnu.org>
parents: 3238
diff changeset
2527
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2528 specbind (Qinhibit_quit, Qt);
8231
5226ed89c1a6 (Qlast_nonmenu_event): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 8063
diff changeset
2529 specbind (Qlast_nonmenu_event, Qt);
9030
b14532c71632 (exec_sentinel_error_handler): New function.
Richard M. Stallman <rms@gnu.org>
parents: 8570
diff changeset
2530
16644
3a93437adce1 (status_notify): Test p->infd > 0
Richard M. Stallman <rms@gnu.org>
parents: 16464
diff changeset
2531 /* In case we get recursively called,
3a93437adce1 (status_notify): Test p->infd > 0
Richard M. Stallman <rms@gnu.org>
parents: 16464
diff changeset
2532 and we already saved the match data nonrecursively,
3a93437adce1 (status_notify): Test p->infd > 0
Richard M. Stallman <rms@gnu.org>
parents: 16464
diff changeset
2533 save the same match data in safely recursive fashion. */
3a93437adce1 (status_notify): Test p->infd > 0
Richard M. Stallman <rms@gnu.org>
parents: 16464
diff changeset
2534 if (outer_running_asynch_code)
3a93437adce1 (status_notify): Test p->infd > 0
Richard M. Stallman <rms@gnu.org>
parents: 16464
diff changeset
2535 {
3a93437adce1 (status_notify): Test p->infd > 0
Richard M. Stallman <rms@gnu.org>
parents: 16464
diff changeset
2536 Lisp_Object tem;
3a93437adce1 (status_notify): Test p->infd > 0
Richard M. Stallman <rms@gnu.org>
parents: 16464
diff changeset
2537 /* Don't clobber the CURRENT match data, either! */
16728
309a750fd5c0 (read_process_output, exec_sentinel):
Richard M. Stallman <rms@gnu.org>
parents: 16718
diff changeset
2538 tem = Fmatch_data (Qnil, Qnil);
16644
3a93437adce1 (status_notify): Test p->infd > 0
Richard M. Stallman <rms@gnu.org>
parents: 16464
diff changeset
2539 restore_match_data ();
16728
309a750fd5c0 (read_process_output, exec_sentinel):
Richard M. Stallman <rms@gnu.org>
parents: 16718
diff changeset
2540 record_unwind_protect (Fstore_match_data, Fmatch_data (Qnil, Qnil));
16644
3a93437adce1 (status_notify): Test p->infd > 0
Richard M. Stallman <rms@gnu.org>
parents: 16464
diff changeset
2541 Fstore_match_data (tem);
3a93437adce1 (status_notify): Test p->infd > 0
Richard M. Stallman <rms@gnu.org>
parents: 16464
diff changeset
2542 }
3a93437adce1 (status_notify): Test p->infd > 0
Richard M. Stallman <rms@gnu.org>
parents: 16464
diff changeset
2543
3a93437adce1 (status_notify): Test p->infd > 0
Richard M. Stallman <rms@gnu.org>
parents: 16464
diff changeset
2544 /* For speed, if a search happens within this code,
3a93437adce1 (status_notify): Test p->infd > 0
Richard M. Stallman <rms@gnu.org>
parents: 16464
diff changeset
2545 save the match data in a special nonrecursive fashion. */
10032
f689803caa92 Added code for automatically saving and restoring the match data
Francesco Potortì <pot@gnu.org>
parents: 9969
diff changeset
2546 running_asynch_code = 1;
16644
3a93437adce1 (status_notify): Test p->infd > 0
Richard M. Stallman <rms@gnu.org>
parents: 16464
diff changeset
2547
3a93437adce1 (status_notify): Test p->infd > 0
Richard M. Stallman <rms@gnu.org>
parents: 16464
diff changeset
2548 /* Read and dispose of the process output. */
9030
b14532c71632 (exec_sentinel_error_handler): New function.
Richard M. Stallman <rms@gnu.org>
parents: 8570
diff changeset
2549 internal_condition_case_1 (read_process_output_call,
b14532c71632 (exec_sentinel_error_handler): New function.
Richard M. Stallman <rms@gnu.org>
parents: 8570
diff changeset
2550 Fcons (outstream,
b14532c71632 (exec_sentinel_error_handler): New function.
Richard M. Stallman <rms@gnu.org>
parents: 8570
diff changeset
2551 Fcons (proc,
10032
f689803caa92 Added code for automatically saving and restoring the match data
Francesco Potortì <pot@gnu.org>
parents: 9969
diff changeset
2552 Fcons (make_string (chars,
f689803caa92 Added code for automatically saving and restoring the match data
Francesco Potortì <pot@gnu.org>
parents: 9969
diff changeset
2553 nchars),
9030
b14532c71632 (exec_sentinel_error_handler): New function.
Richard M. Stallman <rms@gnu.org>
parents: 8570
diff changeset
2554 Qnil))),
b14532c71632 (exec_sentinel_error_handler): New function.
Richard M. Stallman <rms@gnu.org>
parents: 8570
diff changeset
2555 !NILP (Vdebug_on_error) ? Qnil : Qerror,
b14532c71632 (exec_sentinel_error_handler): New function.
Richard M. Stallman <rms@gnu.org>
parents: 8570
diff changeset
2556 read_process_output_error_handler);
16644
3a93437adce1 (status_notify): Test p->infd > 0
Richard M. Stallman <rms@gnu.org>
parents: 16464
diff changeset
2557
3a93437adce1 (status_notify): Test p->infd > 0
Richard M. Stallman <rms@gnu.org>
parents: 16464
diff changeset
2558 /* If we saved the match data nonrecursively, restore it now. */
10032
f689803caa92 Added code for automatically saving and restoring the match data
Francesco Potortì <pot@gnu.org>
parents: 9969
diff changeset
2559 restore_match_data ();
16644
3a93437adce1 (status_notify): Test p->infd > 0
Richard M. Stallman <rms@gnu.org>
parents: 16464
diff changeset
2560 running_asynch_code = outer_running_asynch_code;
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2561
3666
c7ff787b096f (read_process_output): Don't deactivate the mark.
Richard M. Stallman <rms@gnu.org>
parents: 3608
diff changeset
2562 /* Handling the process output should not deactivate the mark. */
3510
b4a552ca4e99 (read_process_output): Deactivate the mark.
Richard M. Stallman <rms@gnu.org>
parents: 3238
diff changeset
2563 Vdeactivate_mark = odeactivate;
b4a552ca4e99 (read_process_output): Deactivate the mark.
Richard M. Stallman <rms@gnu.org>
parents: 3238
diff changeset
2564
12808
4db1f387e85f (read_process_output, exec_sentinel): Call
Richard M. Stallman <rms@gnu.org>
parents: 12749
diff changeset
2565 #if 0 /* Call record_asynch_buffer_change unconditionally,
4db1f387e85f (read_process_output, exec_sentinel): Call
Richard M. Stallman <rms@gnu.org>
parents: 12749
diff changeset
2566 because we might have changed minor modes or other things
4db1f387e85f (read_process_output, exec_sentinel): Call
Richard M. Stallman <rms@gnu.org>
parents: 12749
diff changeset
2567 that affect key bindings. */
10914
413d44c0bd41 (exec_sentinel, read_process_output): If running filter
Richard M. Stallman <rms@gnu.org>
parents: 10744
diff changeset
2568 if (! EQ (Fcurrent_buffer (), obuffer)
413d44c0bd41 (exec_sentinel, read_process_output): If running filter
Richard M. Stallman <rms@gnu.org>
parents: 10744
diff changeset
2569 || ! EQ (current_buffer->keymap, okeymap))
12808
4db1f387e85f (read_process_output, exec_sentinel): Call
Richard M. Stallman <rms@gnu.org>
parents: 12749
diff changeset
2570 #endif
13159
2af96ac471bc (exec_sentinel, read_process_output):
Richard M. Stallman <rms@gnu.org>
parents: 12808
diff changeset
2571 /* But do it only if the caller is actually going to read events.
2af96ac471bc (exec_sentinel, read_process_output):
Richard M. Stallman <rms@gnu.org>
parents: 12808
diff changeset
2572 Otherwise there's no need to make him wake up, and it could
2af96ac471bc (exec_sentinel, read_process_output):
Richard M. Stallman <rms@gnu.org>
parents: 12808
diff changeset
2573 cause trouble (for example it would make Fsit_for return). */
2af96ac471bc (exec_sentinel, read_process_output):
Richard M. Stallman <rms@gnu.org>
parents: 12808
diff changeset
2574 if (waiting_for_user_input_p == -1)
2af96ac471bc (exec_sentinel, read_process_output):
Richard M. Stallman <rms@gnu.org>
parents: 12808
diff changeset
2575 record_asynch_buffer_change ();
6748
b1cde622fa65 (read_process_output): If buffer changes, record that fact.
Karl Heuer <kwzh@gnu.org>
parents: 6569
diff changeset
2576
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2577 #ifdef VMS
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2578 start_vms_process_read (vs);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2579 #endif
5561
fd7524d61a8d (read_process_output): Supply second arg to unbind_to.
Richard M. Stallman <rms@gnu.org>
parents: 5548
diff changeset
2580 unbind_to (count, Qnil);
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2581 return nchars;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2582 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2583
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2584 /* If no filter, write into buffer if it isn't dead. */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2585 if (!NILP (p->buffer) && !NILP (XBUFFER (p->buffer)->name))
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2586 {
1594
b476a97ad17e * systty.h, process.c, buffer.h, callproc.c, sysdep.c, dired.c:
Jim Blandy <jimb@redhat.com>
parents: 1569
diff changeset
2587 Lisp_Object old_read_only;
b476a97ad17e * systty.h, process.c, buffer.h, callproc.c, sysdep.c, dired.c:
Jim Blandy <jimb@redhat.com>
parents: 1569
diff changeset
2588 Lisp_Object old_begv, old_zv;
3510
b4a552ca4e99 (read_process_output): Deactivate the mark.
Richard M. Stallman <rms@gnu.org>
parents: 3238
diff changeset
2589 Lisp_Object odeactivate;
b4a552ca4e99 (read_process_output): Deactivate the mark.
Richard M. Stallman <rms@gnu.org>
parents: 3238
diff changeset
2590
b4a552ca4e99 (read_process_output): Deactivate the mark.
Richard M. Stallman <rms@gnu.org>
parents: 3238
diff changeset
2591 odeactivate = Vdeactivate_mark;
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2592
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2593 Fset_buffer (p->buffer);
16039
855c8d8ba0f0 Change all references from point to PT.
Karl Heuer <kwzh@gnu.org>
parents: 15895
diff changeset
2594 opoint = PT;
1594
b476a97ad17e * systty.h, process.c, buffer.h, callproc.c, sysdep.c, dired.c:
Jim Blandy <jimb@redhat.com>
parents: 1569
diff changeset
2595 old_read_only = current_buffer->read_only;
9318
a14cc1712337 (make_process, list_processes_1, create_process, Faccept_process_output,
Karl Heuer <kwzh@gnu.org>
parents: 9277
diff changeset
2596 XSETFASTINT (old_begv, BEGV);
a14cc1712337 (make_process, list_processes_1, create_process, Faccept_process_output,
Karl Heuer <kwzh@gnu.org>
parents: 9277
diff changeset
2597 XSETFASTINT (old_zv, ZV);
1594
b476a97ad17e * systty.h, process.c, buffer.h, callproc.c, sysdep.c, dired.c:
Jim Blandy <jimb@redhat.com>
parents: 1569
diff changeset
2598
b476a97ad17e * systty.h, process.c, buffer.h, callproc.c, sysdep.c, dired.c:
Jim Blandy <jimb@redhat.com>
parents: 1569
diff changeset
2599 current_buffer->read_only = Qnil;
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2600
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2601 /* Insert new output into buffer
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2602 at the current end-of-output marker,
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2603 thus preserving logical ordering of input and output. */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2604 if (XMARKER (p->mark)->buffer)
5404
a609e717764d (read_process_output): Use clip_to_bounds when moving
Richard M. Stallman <rms@gnu.org>
parents: 5347
diff changeset
2605 SET_PT (clip_to_bounds (BEGV, marker_position (p->mark), ZV));
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2606 else
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2607 SET_PT (ZV);
1594
b476a97ad17e * systty.h, process.c, buffer.h, callproc.c, sysdep.c, dired.c:
Jim Blandy <jimb@redhat.com>
parents: 1569
diff changeset
2608
b476a97ad17e * systty.h, process.c, buffer.h, callproc.c, sysdep.c, dired.c:
Jim Blandy <jimb@redhat.com>
parents: 1569
diff changeset
2609 /* If the output marker is outside of the visible region, save
b476a97ad17e * systty.h, process.c, buffer.h, callproc.c, sysdep.c, dired.c:
Jim Blandy <jimb@redhat.com>
parents: 1569
diff changeset
2610 the restriction and widen. */
16039
855c8d8ba0f0 Change all references from point to PT.
Karl Heuer <kwzh@gnu.org>
parents: 15895
diff changeset
2611 if (! (BEGV <= PT && PT <= ZV))
1594
b476a97ad17e * systty.h, process.c, buffer.h, callproc.c, sysdep.c, dired.c:
Jim Blandy <jimb@redhat.com>
parents: 1569
diff changeset
2612 Fwiden ();
b476a97ad17e * systty.h, process.c, buffer.h, callproc.c, sysdep.c, dired.c:
Jim Blandy <jimb@redhat.com>
parents: 1569
diff changeset
2613
b476a97ad17e * systty.h, process.c, buffer.h, callproc.c, sysdep.c, dired.c:
Jim Blandy <jimb@redhat.com>
parents: 1569
diff changeset
2614 /* Make sure opoint floats ahead of any new text, just as point
b476a97ad17e * systty.h, process.c, buffer.h, callproc.c, sysdep.c, dired.c:
Jim Blandy <jimb@redhat.com>
parents: 1569
diff changeset
2615 would. */
16039
855c8d8ba0f0 Change all references from point to PT.
Karl Heuer <kwzh@gnu.org>
parents: 15895
diff changeset
2616 if (PT <= opoint)
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2617 opoint += nchars;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2618
1594
b476a97ad17e * systty.h, process.c, buffer.h, callproc.c, sysdep.c, dired.c:
Jim Blandy <jimb@redhat.com>
parents: 1569
diff changeset
2619 /* Insert after old_begv, but before old_zv. */
16039
855c8d8ba0f0 Change all references from point to PT.
Karl Heuer <kwzh@gnu.org>
parents: 15895
diff changeset
2620 if (PT < XFASTINT (old_begv))
9334
d949b1150e25 (read_process_output): Don't use XFASTINT as an lvalue.
Karl Heuer <kwzh@gnu.org>
parents: 9318
diff changeset
2621 XSETFASTINT (old_begv, XFASTINT (old_begv) + nchars);
16039
855c8d8ba0f0 Change all references from point to PT.
Karl Heuer <kwzh@gnu.org>
parents: 15895
diff changeset
2622 if (PT <= XFASTINT (old_zv))
9334
d949b1150e25 (read_process_output): Don't use XFASTINT as an lvalue.
Karl Heuer <kwzh@gnu.org>
parents: 9318
diff changeset
2623 XSETFASTINT (old_zv, XFASTINT (old_zv) + nchars);
1594
b476a97ad17e * systty.h, process.c, buffer.h, callproc.c, sysdep.c, dired.c:
Jim Blandy <jimb@redhat.com>
parents: 1569
diff changeset
2624
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2625 /* Insert before markers in case we are inserting where
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2626 the buffer's mark is, and the user's next command is Meta-y. */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2627 insert_before_markers (chars, nchars);
16039
855c8d8ba0f0 Change all references from point to PT.
Karl Heuer <kwzh@gnu.org>
parents: 15895
diff changeset
2628 Fset_marker (p->mark, make_number (PT), p->buffer);
1594
b476a97ad17e * systty.h, process.c, buffer.h, callproc.c, sysdep.c, dired.c:
Jim Blandy <jimb@redhat.com>
parents: 1569
diff changeset
2629
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2630 update_mode_lines++;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2631
1594
b476a97ad17e * systty.h, process.c, buffer.h, callproc.c, sysdep.c, dired.c:
Jim Blandy <jimb@redhat.com>
parents: 1569
diff changeset
2632 /* If the restriction isn't what it should be, set it. */
b476a97ad17e * systty.h, process.c, buffer.h, callproc.c, sysdep.c, dired.c:
Jim Blandy <jimb@redhat.com>
parents: 1569
diff changeset
2633 if (XFASTINT (old_begv) != BEGV || XFASTINT (old_zv) != ZV)
b476a97ad17e * systty.h, process.c, buffer.h, callproc.c, sysdep.c, dired.c:
Jim Blandy <jimb@redhat.com>
parents: 1569
diff changeset
2634 Fnarrow_to_region (old_begv, old_zv);
b476a97ad17e * systty.h, process.c, buffer.h, callproc.c, sysdep.c, dired.c:
Jim Blandy <jimb@redhat.com>
parents: 1569
diff changeset
2635
3666
c7ff787b096f (read_process_output): Don't deactivate the mark.
Richard M. Stallman <rms@gnu.org>
parents: 3608
diff changeset
2636 /* Handling the process output should not deactivate the mark. */
3510
b4a552ca4e99 (read_process_output): Deactivate the mark.
Richard M. Stallman <rms@gnu.org>
parents: 3238
diff changeset
2637 Vdeactivate_mark = odeactivate;
b4a552ca4e99 (read_process_output): Deactivate the mark.
Richard M. Stallman <rms@gnu.org>
parents: 3238
diff changeset
2638
1594
b476a97ad17e * systty.h, process.c, buffer.h, callproc.c, sysdep.c, dired.c:
Jim Blandy <jimb@redhat.com>
parents: 1569
diff changeset
2639 current_buffer->read_only = old_read_only;
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2640 SET_PT (opoint);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2641 set_buffer_internal (old);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2642 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2643 #ifdef VMS
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2644 start_vms_process_read (vs);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2645 #endif
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2646 return nchars;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2647 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2648
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2649 DEFUN ("waiting-for-user-input-p", Fwaiting_for_user_input_p, Swaiting_for_user_input_p,
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2650 0, 0, 0,
7352
ef89b78c1a92 (wait_reading_process_input): Don't call prepare_menu_bars
Richard M. Stallman <rms@gnu.org>
parents: 7266
diff changeset
2651 "Returns non-nil if emacs is waiting for input from the user.\n\
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2652 This is intended for use by asynchronous process output filters and sentinels.")
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2653 ()
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2654 {
7352
ef89b78c1a92 (wait_reading_process_input): Don't call prepare_menu_bars
Richard M. Stallman <rms@gnu.org>
parents: 7266
diff changeset
2655 return (waiting_for_user_input_p ? Qt : Qnil);
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2656 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2657
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2658 /* Sending data to subprocess */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2659
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2660 jmp_buf send_process_frame;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2661
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2662 SIGTYPE
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2663 send_process_trap ()
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2664 {
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2665 #ifdef BSD4_1
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2666 sigrelse (SIGPIPE);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2667 sigrelse (SIGALRM);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2668 #endif /* BSD4_1 */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2669 longjmp (send_process_frame, 1);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2670 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2671
8063
30861f2f4f84 (send_process): Major rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 7937
diff changeset
2672 /* Send some data to process PROC.
30861f2f4f84 (send_process): Major rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 7937
diff changeset
2673 BUF is the beginning of the data; LEN is the number of characters.
30861f2f4f84 (send_process): Major rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 7937
diff changeset
2674 OBJECT is the Lisp object that the data comes from. */
30861f2f4f84 (send_process): Major rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 7937
diff changeset
2675
30861f2f4f84 (send_process): Major rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 7937
diff changeset
2676 send_process (proc, buf, len, object)
11926
40d7e6f04ebe (create_process, send_process): Add volatile qualifiers.
Karl Heuer <kwzh@gnu.org>
parents: 11845
diff changeset
2677 volatile Lisp_Object proc;
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2678 char *buf;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2679 int len;
8063
30861f2f4f84 (send_process): Major rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 7937
diff changeset
2680 Lisp_Object object;
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2681 {
11926
40d7e6f04ebe (create_process, send_process): Add volatile qualifiers.
Karl Heuer <kwzh@gnu.org>
parents: 11845
diff changeset
2682 /* Use volatile to protect variables from being clobbered by longjmp. */
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2683 int rv;
11926
40d7e6f04ebe (create_process, send_process): Add volatile qualifiers.
Karl Heuer <kwzh@gnu.org>
parents: 11845
diff changeset
2684 volatile unsigned char *procname = XSTRING (XPROCESS (proc)->name)->data;
15895
85112cca0b22 (send_process): GCPRO object.
Richard M. Stallman <rms@gnu.org>
parents: 15717
diff changeset
2685 struct gcpro gcpro1;
85112cca0b22 (send_process): GCPRO object.
Richard M. Stallman <rms@gnu.org>
parents: 15717
diff changeset
2686
85112cca0b22 (send_process): GCPRO object.
Richard M. Stallman <rms@gnu.org>
parents: 15717
diff changeset
2687 GCPRO1 (object);
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2688
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2689 #ifdef VMS
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2690 struct Lisp_Process *p = XPROCESS (proc);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2691 VMS_PROC_STUFF *vs, *get_vms_process_pointer();
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2692 #endif /* VMS */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2693
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2694 if (! NILP (XPROCESS (proc)->raw_status_low))
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2695 update_status (XPROCESS (proc));
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2696 if (! EQ (XPROCESS (proc)->status, Qrun))
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2697 error ("Process %s not running", procname);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2698
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2699 #ifdef VMS
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2700 vs = get_vms_process_pointer (p->pid);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2701 if (vs == 0)
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2702 error ("Could not find this process: %x", p->pid);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2703 else if (write_to_vms_process (vs, buf, len))
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2704 ;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2705 #else
8063
30861f2f4f84 (send_process): Major rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 7937
diff changeset
2706
30861f2f4f84 (send_process): Major rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 7937
diff changeset
2707 if (pty_max_bytes == 0)
30861f2f4f84 (send_process): Major rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 7937
diff changeset
2708 {
30861f2f4f84 (send_process): Major rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 7937
diff changeset
2709 #if defined (HAVE_FPATHCONF) && defined (_PC_MAX_CANON)
30861f2f4f84 (send_process): Major rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 7937
diff changeset
2710 pty_max_bytes = fpathconf (XFASTINT (XPROCESS (proc)->outfd),
30861f2f4f84 (send_process): Major rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 7937
diff changeset
2711 _PC_MAX_CANON);
30861f2f4f84 (send_process): Major rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 7937
diff changeset
2712 if (pty_max_bytes < 0)
30861f2f4f84 (send_process): Major rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 7937
diff changeset
2713 pty_max_bytes = 250;
30861f2f4f84 (send_process): Major rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 7937
diff changeset
2714 #else
30861f2f4f84 (send_process): Major rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 7937
diff changeset
2715 pty_max_bytes = 250;
30861f2f4f84 (send_process): Major rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 7937
diff changeset
2716 #endif
30861f2f4f84 (send_process): Major rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 7937
diff changeset
2717 /* Deduct one, to leave space for the eof. */
30861f2f4f84 (send_process): Major rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 7937
diff changeset
2718 pty_max_bytes--;
30861f2f4f84 (send_process): Major rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 7937
diff changeset
2719 }
30861f2f4f84 (send_process): Major rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 7937
diff changeset
2720
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2721 if (!setjmp (send_process_frame))
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2722 while (len > 0)
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2723 {
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2724 int this = len;
621
eca8812e61cd *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 604
diff changeset
2725 SIGTYPE (*old_sigpipe)();
6158
6b81b2575071 Include unistd.h.
Richard M. Stallman <rms@gnu.org>
parents: 5891
diff changeset
2726 int flush_pty = 0;
6b81b2575071 Include unistd.h.
Richard M. Stallman <rms@gnu.org>
parents: 5891
diff changeset
2727
8063
30861f2f4f84 (send_process): Major rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 7937
diff changeset
2728 /* Decide how much data we can send in one batch.
30861f2f4f84 (send_process): Major rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 7937
diff changeset
2729 Long lines need to be split into multiple batches. */
30861f2f4f84 (send_process): Major rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 7937
diff changeset
2730 if (!NILP (XPROCESS (proc)->pty_flag))
6158
6b81b2575071 Include unistd.h.
Richard M. Stallman <rms@gnu.org>
parents: 5891
diff changeset
2731 {
8063
30861f2f4f84 (send_process): Major rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 7937
diff changeset
2732 /* Starting this at zero is always correct when not the first iteration
30861f2f4f84 (send_process): Major rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 7937
diff changeset
2733 because the previous iteration ended by sending C-d.
30861f2f4f84 (send_process): Major rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 7937
diff changeset
2734 It may not be correct for the first iteration
30861f2f4f84 (send_process): Major rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 7937
diff changeset
2735 if a partial line was sent in a separate send_process call.
30861f2f4f84 (send_process): Major rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 7937
diff changeset
2736 If that proves worth handling, we need to save linepos
30861f2f4f84 (send_process): Major rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 7937
diff changeset
2737 in the process object. */
30861f2f4f84 (send_process): Major rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 7937
diff changeset
2738 int linepos = 0;
30861f2f4f84 (send_process): Major rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 7937
diff changeset
2739 char *ptr = buf;
30861f2f4f84 (send_process): Major rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 7937
diff changeset
2740 char *end = buf + len;
30861f2f4f84 (send_process): Major rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 7937
diff changeset
2741
30861f2f4f84 (send_process): Major rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 7937
diff changeset
2742 /* Scan through this text for a line that is too long. */
30861f2f4f84 (send_process): Major rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 7937
diff changeset
2743 while (ptr != end && linepos < pty_max_bytes)
30861f2f4f84 (send_process): Major rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 7937
diff changeset
2744 {
30861f2f4f84 (send_process): Major rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 7937
diff changeset
2745 if (*ptr == '\n')
30861f2f4f84 (send_process): Major rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 7937
diff changeset
2746 linepos = 0;
30861f2f4f84 (send_process): Major rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 7937
diff changeset
2747 else
30861f2f4f84 (send_process): Major rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 7937
diff changeset
2748 linepos++;
30861f2f4f84 (send_process): Major rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 7937
diff changeset
2749 ptr++;
30861f2f4f84 (send_process): Major rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 7937
diff changeset
2750 }
30861f2f4f84 (send_process): Major rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 7937
diff changeset
2751 /* If we found one, break the line there
30861f2f4f84 (send_process): Major rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 7937
diff changeset
2752 and put in a C-d to force the buffer through. */
30861f2f4f84 (send_process): Major rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 7937
diff changeset
2753 this = ptr - buf;
30861f2f4f84 (send_process): Major rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 7937
diff changeset
2754 }
30861f2f4f84 (send_process): Major rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 7937
diff changeset
2755
30861f2f4f84 (send_process): Major rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 7937
diff changeset
2756 /* Send this batch, using one or more write calls. */
30861f2f4f84 (send_process): Major rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 7937
diff changeset
2757 while (this > 0)
30861f2f4f84 (send_process): Major rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 7937
diff changeset
2758 {
30861f2f4f84 (send_process): Major rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 7937
diff changeset
2759 old_sigpipe = (SIGTYPE (*) ()) signal (SIGPIPE, send_process_trap);
30861f2f4f84 (send_process): Major rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 7937
diff changeset
2760 rv = write (XINT (XPROCESS (proc)->outfd), buf, this);
30861f2f4f84 (send_process): Major rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 7937
diff changeset
2761 signal (SIGPIPE, old_sigpipe);
30861f2f4f84 (send_process): Major rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 7937
diff changeset
2762
30861f2f4f84 (send_process): Major rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 7937
diff changeset
2763 if (rv < 0)
30861f2f4f84 (send_process): Major rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 7937
diff changeset
2764 {
30861f2f4f84 (send_process): Major rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 7937
diff changeset
2765 if (0
30861f2f4f84 (send_process): Major rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 7937
diff changeset
2766 #ifdef EWOULDBLOCK
30861f2f4f84 (send_process): Major rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 7937
diff changeset
2767 || errno == EWOULDBLOCK
6158
6b81b2575071 Include unistd.h.
Richard M. Stallman <rms@gnu.org>
parents: 5891
diff changeset
2768 #endif
8063
30861f2f4f84 (send_process): Major rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 7937
diff changeset
2769 #ifdef EAGAIN
30861f2f4f84 (send_process): Major rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 7937
diff changeset
2770 || errno == EAGAIN
30861f2f4f84 (send_process): Major rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 7937
diff changeset
2771 #endif
30861f2f4f84 (send_process): Major rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 7937
diff changeset
2772 )
30861f2f4f84 (send_process): Major rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 7937
diff changeset
2773 /* Buffer is full. Wait, accepting input;
30861f2f4f84 (send_process): Major rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 7937
diff changeset
2774 that may allow the program
30861f2f4f84 (send_process): Major rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 7937
diff changeset
2775 to finish doing output and read more. */
30861f2f4f84 (send_process): Major rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 7937
diff changeset
2776 {
30861f2f4f84 (send_process): Major rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 7937
diff changeset
2777 Lisp_Object zero;
30861f2f4f84 (send_process): Major rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 7937
diff changeset
2778 int offset;
30861f2f4f84 (send_process): Major rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 7937
diff changeset
2779
30861f2f4f84 (send_process): Major rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 7937
diff changeset
2780 /* Running filters might relocate buffers or strings.
30861f2f4f84 (send_process): Major rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 7937
diff changeset
2781 Arrange to relocate BUF. */
30861f2f4f84 (send_process): Major rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 7937
diff changeset
2782 if (BUFFERP (object))
30861f2f4f84 (send_process): Major rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 7937
diff changeset
2783 offset = BUF_PTR_CHAR_POS (XBUFFER (object),
30861f2f4f84 (send_process): Major rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 7937
diff changeset
2784 (unsigned char *) buf);
30861f2f4f84 (send_process): Major rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 7937
diff changeset
2785 else if (STRINGP (object))
30861f2f4f84 (send_process): Major rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 7937
diff changeset
2786 offset = buf - (char *) XSTRING (object)->data;
30861f2f4f84 (send_process): Major rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 7937
diff changeset
2787
9318
a14cc1712337 (make_process, list_processes_1, create_process, Faccept_process_output,
Karl Heuer <kwzh@gnu.org>
parents: 9277
diff changeset
2788 XSETFASTINT (zero, 0);
16718
ea26040865cb (send_process) [EMACS_HAS_USECS]:
Richard M. Stallman <rms@gnu.org>
parents: 16644
diff changeset
2789 #ifdef EMACS_HAS_USECS
ea26040865cb (send_process) [EMACS_HAS_USECS]:
Richard M. Stallman <rms@gnu.org>
parents: 16644
diff changeset
2790 wait_reading_process_input (0, 20000, zero, 0);
ea26040865cb (send_process) [EMACS_HAS_USECS]:
Richard M. Stallman <rms@gnu.org>
parents: 16644
diff changeset
2791 #else
8063
30861f2f4f84 (send_process): Major rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 7937
diff changeset
2792 wait_reading_process_input (1, 0, zero, 0);
16718
ea26040865cb (send_process) [EMACS_HAS_USECS]:
Richard M. Stallman <rms@gnu.org>
parents: 16644
diff changeset
2793 #endif
8063
30861f2f4f84 (send_process): Major rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 7937
diff changeset
2794
30861f2f4f84 (send_process): Major rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 7937
diff changeset
2795 if (BUFFERP (object))
30861f2f4f84 (send_process): Major rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 7937
diff changeset
2796 buf = (char *) BUF_CHAR_ADDRESS (XBUFFER (object), offset);
30861f2f4f84 (send_process): Major rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 7937
diff changeset
2797 else if (STRINGP (object))
30861f2f4f84 (send_process): Major rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 7937
diff changeset
2798 buf = offset + (char *) XSTRING (object)->data;
30861f2f4f84 (send_process): Major rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 7937
diff changeset
2799
30861f2f4f84 (send_process): Major rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 7937
diff changeset
2800 rv = 0;
30861f2f4f84 (send_process): Major rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 7937
diff changeset
2801 }
30861f2f4f84 (send_process): Major rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 7937
diff changeset
2802 else
30861f2f4f84 (send_process): Major rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 7937
diff changeset
2803 /* This is a real error. */
30861f2f4f84 (send_process): Major rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 7937
diff changeset
2804 report_file_error ("writing to process", Fcons (proc, Qnil));
30861f2f4f84 (send_process): Major rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 7937
diff changeset
2805 }
30861f2f4f84 (send_process): Major rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 7937
diff changeset
2806 buf += rv;
30861f2f4f84 (send_process): Major rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 7937
diff changeset
2807 len -= rv;
30861f2f4f84 (send_process): Major rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 7937
diff changeset
2808 this -= rv;
6158
6b81b2575071 Include unistd.h.
Richard M. Stallman <rms@gnu.org>
parents: 5891
diff changeset
2809 }
6b81b2575071 Include unistd.h.
Richard M. Stallman <rms@gnu.org>
parents: 5891
diff changeset
2810
6b81b2575071 Include unistd.h.
Richard M. Stallman <rms@gnu.org>
parents: 5891
diff changeset
2811 /* If we sent just part of the string, put in an EOF
6b81b2575071 Include unistd.h.
Richard M. Stallman <rms@gnu.org>
parents: 5891
diff changeset
2812 to force it through, before we send the rest. */
8063
30861f2f4f84 (send_process): Major rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 7937
diff changeset
2813 if (len > 0)
6158
6b81b2575071 Include unistd.h.
Richard M. Stallman <rms@gnu.org>
parents: 5891
diff changeset
2814 Fprocess_send_eof (proc);
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2815 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2816 #endif
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2817 else
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2818 {
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2819 XPROCESS (proc)->raw_status_low = Qnil;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2820 XPROCESS (proc)->raw_status_high = Qnil;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2821 XPROCESS (proc)->status = Fcons (Qexit, Fcons (make_number (256), Qnil));
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2822 XSETINT (XPROCESS (proc)->tick, ++process_tick);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2823 deactivate_process (proc);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2824 #ifdef VMS
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2825 error ("Error writing to process %s; closed it", procname);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2826 #else
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2827 error ("SIGPIPE raised on process %s; closed it", procname);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2828 #endif
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2829 }
15895
85112cca0b22 (send_process): GCPRO object.
Richard M. Stallman <rms@gnu.org>
parents: 15717
diff changeset
2830
85112cca0b22 (send_process): GCPRO object.
Richard M. Stallman <rms@gnu.org>
parents: 15717
diff changeset
2831 UNGCPRO;
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2832 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2833
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2834 DEFUN ("process-send-region", Fprocess_send_region, Sprocess_send_region,
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2835 3, 3, 0,
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2836 "Send current contents of region as input to PROCESS.\n\
808
707866b2a190 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 765
diff changeset
2837 PROCESS may be a process, a buffer, the name of a process or buffer, or\n\
707866b2a190 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 765
diff changeset
2838 nil, indicating the current buffer's process.\n\
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2839 Called from program, takes three arguments, PROCESS, START and END.\n\
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2840 If the region is more than 500 characters long,\n\
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2841 it is sent in several bunches. This may happen even for shorter regions.\n\
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2842 Output from processes can arrive in between bunches.")
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2843 (process, start, end)
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2844 Lisp_Object process, start, end;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2845 {
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2846 Lisp_Object proc;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2847 int start1;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2848
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2849 proc = get_process (process);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2850 validate_region (&start, &end);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2851
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2852 if (XINT (start) < GPT && XINT (end) > GPT)
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2853 move_gap (start);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2854
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2855 start1 = XINT (start);
8063
30861f2f4f84 (send_process): Major rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 7937
diff changeset
2856 send_process (proc, &FETCH_CHAR (start1), XINT (end) - XINT (start),
30861f2f4f84 (send_process): Major rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 7937
diff changeset
2857 Fcurrent_buffer ());
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2858
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2859 return Qnil;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2860 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2861
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2862 DEFUN ("process-send-string", Fprocess_send_string, Sprocess_send_string,
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2863 2, 2, 0,
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2864 "Send PROCESS the contents of STRING as input.\n\
808
707866b2a190 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 765
diff changeset
2865 PROCESS may be a process, a buffer, the name of a process or buffer, or\n\
707866b2a190 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 765
diff changeset
2866 nil, indicating the current buffer's process.\n\
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2867 If STRING is more than 500 characters long,\n\
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2868 it is sent in several bunches. This may happen even for shorter strings.\n\
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2869 Output from processes can arrive in between bunches.")
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2870 (process, string)
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2871 Lisp_Object process, string;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2872 {
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2873 Lisp_Object proc;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2874 CHECK_STRING (string, 1);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2875 proc = get_process (process);
8063
30861f2f4f84 (send_process): Major rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 7937
diff changeset
2876 send_process (proc, XSTRING (string)->data, XSTRING (string)->size, string);
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2877 return Qnil;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2878 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2879
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2880 /* send a signal number SIGNO to PROCESS.
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2881 CURRENT_GROUP means send to the process group that currently owns
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2882 the terminal being used to communicate with PROCESS.
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2883 This is used for various commands in shell mode.
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2884 If NOMSG is zero, insert signal-announcements into process's buffers
1594
b476a97ad17e * systty.h, process.c, buffer.h, callproc.c, sysdep.c, dired.c:
Jim Blandy <jimb@redhat.com>
parents: 1569
diff changeset
2885 right away.
b476a97ad17e * systty.h, process.c, buffer.h, callproc.c, sysdep.c, dired.c:
Jim Blandy <jimb@redhat.com>
parents: 1569
diff changeset
2886
b476a97ad17e * systty.h, process.c, buffer.h, callproc.c, sysdep.c, dired.c:
Jim Blandy <jimb@redhat.com>
parents: 1569
diff changeset
2887 If we can, we try to signal PROCESS by sending control characters
7220
a33eb16cab9d (Fopen_network_stream): Retry the connect if EADDRINUSE. Ignore EISCONN.
Richard M. Stallman <rms@gnu.org>
parents: 7157
diff changeset
2888 down the pty. This allows us to signal inferiors who have changed
1594
b476a97ad17e * systty.h, process.c, buffer.h, callproc.c, sysdep.c, dired.c:
Jim Blandy <jimb@redhat.com>
parents: 1569
diff changeset
2889 their uid, for which killpg would return an EPERM error. */
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2890
1522
19ccf004b172 * process.c: (status_convert): Declare this to return a
Jim Blandy <jimb@redhat.com>
parents: 1323
diff changeset
2891 static void
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2892 process_send_signal (process, signo, current_group, nomsg)
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2893 Lisp_Object process;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2894 int signo;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2895 Lisp_Object current_group;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2896 int nomsg;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2897 {
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2898 Lisp_Object proc;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2899 register struct Lisp_Process *p;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2900 int gid;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2901 int no_pgrp = 0;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2902
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2903 proc = get_process (process);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2904 p = XPROCESS (proc);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2905
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2906 if (!EQ (p->childp, Qt))
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2907 error ("Process %s is not a subprocess",
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2908 XSTRING (p->name)->data);
5134
0a4e46e15304 (wait_reading_process_input):
Richard M. Stallman <rms@gnu.org>
parents: 4998
diff changeset
2909 if (XINT (p->infd) < 0)
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2910 error ("Process %s is not active",
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2911 XSTRING (p->name)->data);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2912
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2913 if (NILP (p->pty_flag))
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2914 current_group = Qnil;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2915
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2916 /* If we are using pgrps, get a pgrp number and make it negative. */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2917 if (!NILP (current_group))
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2918 {
1594
b476a97ad17e * systty.h, process.c, buffer.h, callproc.c, sysdep.c, dired.c:
Jim Blandy <jimb@redhat.com>
parents: 1569
diff changeset
2919 #ifdef SIGNALS_VIA_CHARACTERS
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2920 /* If possible, send signals to the entire pgrp
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2921 by sending an input character to it. */
1594
b476a97ad17e * systty.h, process.c, buffer.h, callproc.c, sysdep.c, dired.c:
Jim Blandy <jimb@redhat.com>
parents: 1569
diff changeset
2922
1925
3ddb163a9201 * process.c: Make sure we don't miss processes exiting, by having
Jim Blandy <jimb@redhat.com>
parents: 1886
diff changeset
2923 /* TERMIOS is the latest and bestest, and seems most likely to
3ddb163a9201 * process.c: Make sure we don't miss processes exiting, by having
Jim Blandy <jimb@redhat.com>
parents: 1886
diff changeset
2924 work. If the system has it, use it. */
3ddb163a9201 * process.c: Make sure we don't miss processes exiting, by having
Jim Blandy <jimb@redhat.com>
parents: 1886
diff changeset
2925 #ifdef HAVE_TERMIOS
3ddb163a9201 * process.c: Make sure we don't miss processes exiting, by having
Jim Blandy <jimb@redhat.com>
parents: 1886
diff changeset
2926 struct termios t;
3ddb163a9201 * process.c: Make sure we don't miss processes exiting, by having
Jim Blandy <jimb@redhat.com>
parents: 1886
diff changeset
2927
3ddb163a9201 * process.c: Make sure we don't miss processes exiting, by having
Jim Blandy <jimb@redhat.com>
parents: 1886
diff changeset
2928 switch (signo)
3ddb163a9201 * process.c: Make sure we don't miss processes exiting, by having
Jim Blandy <jimb@redhat.com>
parents: 1886
diff changeset
2929 {
3ddb163a9201 * process.c: Make sure we don't miss processes exiting, by having
Jim Blandy <jimb@redhat.com>
parents: 1886
diff changeset
2930 case SIGINT:
5134
0a4e46e15304 (wait_reading_process_input):
Richard M. Stallman <rms@gnu.org>
parents: 4998
diff changeset
2931 tcgetattr (XINT (p->infd), &t);
8063
30861f2f4f84 (send_process): Major rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 7937
diff changeset
2932 send_process (proc, &t.c_cc[VINTR], 1, Qnil);
2120
fc3cdca22f8d * process.c (process_send_signal): In the TERMIOS code for sending
Jim Blandy <jimb@redhat.com>
parents: 1925
diff changeset
2933 return;
1925
3ddb163a9201 * process.c: Make sure we don't miss processes exiting, by having
Jim Blandy <jimb@redhat.com>
parents: 1886
diff changeset
2934
3ddb163a9201 * process.c: Make sure we don't miss processes exiting, by having
Jim Blandy <jimb@redhat.com>
parents: 1886
diff changeset
2935 case SIGQUIT:
5134
0a4e46e15304 (wait_reading_process_input):
Richard M. Stallman <rms@gnu.org>
parents: 4998
diff changeset
2936 tcgetattr (XINT (p->infd), &t);
8063
30861f2f4f84 (send_process): Major rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 7937
diff changeset
2937 send_process (proc, &t.c_cc[VQUIT], 1, Qnil);
2120
fc3cdca22f8d * process.c (process_send_signal): In the TERMIOS code for sending
Jim Blandy <jimb@redhat.com>
parents: 1925
diff changeset
2938 return;
1925
3ddb163a9201 * process.c: Make sure we don't miss processes exiting, by having
Jim Blandy <jimb@redhat.com>
parents: 1886
diff changeset
2939
3ddb163a9201 * process.c: Make sure we don't miss processes exiting, by having
Jim Blandy <jimb@redhat.com>
parents: 1886
diff changeset
2940 case SIGTSTP:
5134
0a4e46e15304 (wait_reading_process_input):
Richard M. Stallman <rms@gnu.org>
parents: 4998
diff changeset
2941 tcgetattr (XINT (p->infd), &t);
7414
33e5afbb62bf (process_send_signal): If PREFER_VSUSP, use VSUSP instead of VSWTCH.
Richard M. Stallman <rms@gnu.org>
parents: 7352
diff changeset
2942 #if defined (VSWTCH) && !defined (PREFER_VSUSP)
8063
30861f2f4f84 (send_process): Major rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 7937
diff changeset
2943 send_process (proc, &t.c_cc[VSWTCH], 1, Qnil);
1925
3ddb163a9201 * process.c: Make sure we don't miss processes exiting, by having
Jim Blandy <jimb@redhat.com>
parents: 1886
diff changeset
2944 #else
8063
30861f2f4f84 (send_process): Major rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 7937
diff changeset
2945 send_process (proc, &t.c_cc[VSUSP], 1, Qnil);
1925
3ddb163a9201 * process.c: Make sure we don't miss processes exiting, by having
Jim Blandy <jimb@redhat.com>
parents: 1886
diff changeset
2946 #endif
2120
fc3cdca22f8d * process.c (process_send_signal): In the TERMIOS code for sending
Jim Blandy <jimb@redhat.com>
parents: 1925
diff changeset
2947 return;
1925
3ddb163a9201 * process.c: Make sure we don't miss processes exiting, by having
Jim Blandy <jimb@redhat.com>
parents: 1886
diff changeset
2948 }
3ddb163a9201 * process.c: Make sure we don't miss processes exiting, by having
Jim Blandy <jimb@redhat.com>
parents: 1886
diff changeset
2949
3ddb163a9201 * process.c: Make sure we don't miss processes exiting, by having
Jim Blandy <jimb@redhat.com>
parents: 1886
diff changeset
2950 #else /* ! HAVE_TERMIOS */
3ddb163a9201 * process.c: Make sure we don't miss processes exiting, by having
Jim Blandy <jimb@redhat.com>
parents: 1886
diff changeset
2951
1594
b476a97ad17e * systty.h, process.c, buffer.h, callproc.c, sysdep.c, dired.c:
Jim Blandy <jimb@redhat.com>
parents: 1569
diff changeset
2952 /* On Berkeley descendants, the following IOCTL's retrieve the
b476a97ad17e * systty.h, process.c, buffer.h, callproc.c, sysdep.c, dired.c:
Jim Blandy <jimb@redhat.com>
parents: 1569
diff changeset
2953 current control characters. */
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2954 #if defined (TIOCGLTC) && defined (TIOCGETC)
1594
b476a97ad17e * systty.h, process.c, buffer.h, callproc.c, sysdep.c, dired.c:
Jim Blandy <jimb@redhat.com>
parents: 1569
diff changeset
2955
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2956 struct tchars c;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2957 struct ltchars lc;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2958
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2959 switch (signo)
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2960 {
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2961 case SIGINT:
5134
0a4e46e15304 (wait_reading_process_input):
Richard M. Stallman <rms@gnu.org>
parents: 4998
diff changeset
2962 ioctl (XINT (p->infd), TIOCGETC, &c);
8063
30861f2f4f84 (send_process): Major rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 7937
diff changeset
2963 send_process (proc, &c.t_intrc, 1, Qnil);
1522
19ccf004b172 * process.c: (status_convert): Declare this to return a
Jim Blandy <jimb@redhat.com>
parents: 1323
diff changeset
2964 return;
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2965 case SIGQUIT:
5134
0a4e46e15304 (wait_reading_process_input):
Richard M. Stallman <rms@gnu.org>
parents: 4998
diff changeset
2966 ioctl (XINT (p->infd), TIOCGETC, &c);
8063
30861f2f4f84 (send_process): Major rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 7937
diff changeset
2967 send_process (proc, &c.t_quitc, 1, Qnil);
1522
19ccf004b172 * process.c: (status_convert): Declare this to return a
Jim Blandy <jimb@redhat.com>
parents: 1323
diff changeset
2968 return;
1012
a48ed1d416dd * process.c (process_send_signal): Don't send SIGTSTP if the
Jim Blandy <jimb@redhat.com>
parents: 849
diff changeset
2969 #ifdef SIGTSTP
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2970 case SIGTSTP:
5134
0a4e46e15304 (wait_reading_process_input):
Richard M. Stallman <rms@gnu.org>
parents: 4998
diff changeset
2971 ioctl (XINT (p->infd), TIOCGLTC, &lc);
8063
30861f2f4f84 (send_process): Major rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 7937
diff changeset
2972 send_process (proc, &lc.t_suspc, 1, Qnil);
1522
19ccf004b172 * process.c: (status_convert): Declare this to return a
Jim Blandy <jimb@redhat.com>
parents: 1323
diff changeset
2973 return;
1594
b476a97ad17e * systty.h, process.c, buffer.h, callproc.c, sysdep.c, dired.c:
Jim Blandy <jimb@redhat.com>
parents: 1569
diff changeset
2974 #endif /* ! defined (SIGTSTP) */
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2975 }
1594
b476a97ad17e * systty.h, process.c, buffer.h, callproc.c, sysdep.c, dired.c:
Jim Blandy <jimb@redhat.com>
parents: 1569
diff changeset
2976
b476a97ad17e * systty.h, process.c, buffer.h, callproc.c, sysdep.c, dired.c:
Jim Blandy <jimb@redhat.com>
parents: 1569
diff changeset
2977 #else /* ! defined (TIOCGLTC) && defined (TIOCGETC) */
b476a97ad17e * systty.h, process.c, buffer.h, callproc.c, sysdep.c, dired.c:
Jim Blandy <jimb@redhat.com>
parents: 1569
diff changeset
2978
b476a97ad17e * systty.h, process.c, buffer.h, callproc.c, sysdep.c, dired.c:
Jim Blandy <jimb@redhat.com>
parents: 1569
diff changeset
2979 /* On SYSV descendants, the TCGETA ioctl retrieves the current control
b476a97ad17e * systty.h, process.c, buffer.h, callproc.c, sysdep.c, dired.c:
Jim Blandy <jimb@redhat.com>
parents: 1569
diff changeset
2980 characters. */
b476a97ad17e * systty.h, process.c, buffer.h, callproc.c, sysdep.c, dired.c:
Jim Blandy <jimb@redhat.com>
parents: 1569
diff changeset
2981 #ifdef TCGETA
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2982 struct termio t;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2983 switch (signo)
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2984 {
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2985 case SIGINT:
5134
0a4e46e15304 (wait_reading_process_input):
Richard M. Stallman <rms@gnu.org>
parents: 4998
diff changeset
2986 ioctl (XINT (p->infd), TCGETA, &t);
8063
30861f2f4f84 (send_process): Major rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 7937
diff changeset
2987 send_process (proc, &t.c_cc[VINTR], 1, Qnil);
1522
19ccf004b172 * process.c: (status_convert): Declare this to return a
Jim Blandy <jimb@redhat.com>
parents: 1323
diff changeset
2988 return;
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2989 case SIGQUIT:
5134
0a4e46e15304 (wait_reading_process_input):
Richard M. Stallman <rms@gnu.org>
parents: 4998
diff changeset
2990 ioctl (XINT (p->infd), TCGETA, &t);
8063
30861f2f4f84 (send_process): Major rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 7937
diff changeset
2991 send_process (proc, &t.c_cc[VQUIT], 1, Qnil);
1522
19ccf004b172 * process.c: (status_convert): Declare this to return a
Jim Blandy <jimb@redhat.com>
parents: 1323
diff changeset
2992 return;
1569
52a69b6a8f96 * process.c [SYSV]: Don't include <termios.h>, <termio.h>, or
Jim Blandy <jimb@redhat.com>
parents: 1522
diff changeset
2993 #ifdef SIGTSTP
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2994 case SIGTSTP:
5134
0a4e46e15304 (wait_reading_process_input):
Richard M. Stallman <rms@gnu.org>
parents: 4998
diff changeset
2995 ioctl (XINT (p->infd), TCGETA, &t);
8063
30861f2f4f84 (send_process): Major rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 7937
diff changeset
2996 send_process (proc, &t.c_cc[VSWTCH], 1, Qnil);
1522
19ccf004b172 * process.c: (status_convert): Declare this to return a
Jim Blandy <jimb@redhat.com>
parents: 1323
diff changeset
2997 return;
1594
b476a97ad17e * systty.h, process.c, buffer.h, callproc.c, sysdep.c, dired.c:
Jim Blandy <jimb@redhat.com>
parents: 1569
diff changeset
2998 #endif /* ! defined (SIGTSTP) */
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2999 }
1594
b476a97ad17e * systty.h, process.c, buffer.h, callproc.c, sysdep.c, dired.c:
Jim Blandy <jimb@redhat.com>
parents: 1569
diff changeset
3000 #else /* ! defined (TCGETA) */
b476a97ad17e * systty.h, process.c, buffer.h, callproc.c, sysdep.c, dired.c:
Jim Blandy <jimb@redhat.com>
parents: 1569
diff changeset
3001 Your configuration files are messed up.
b476a97ad17e * systty.h, process.c, buffer.h, callproc.c, sysdep.c, dired.c:
Jim Blandy <jimb@redhat.com>
parents: 1569
diff changeset
3002 /* If your system configuration files define SIGNALS_VIA_CHARACTERS,
b476a97ad17e * systty.h, process.c, buffer.h, callproc.c, sysdep.c, dired.c:
Jim Blandy <jimb@redhat.com>
parents: 1569
diff changeset
3003 you'd better be using one of the alternatives above! */
b476a97ad17e * systty.h, process.c, buffer.h, callproc.c, sysdep.c, dired.c:
Jim Blandy <jimb@redhat.com>
parents: 1569
diff changeset
3004 #endif /* ! defined (TCGETA) */
b476a97ad17e * systty.h, process.c, buffer.h, callproc.c, sysdep.c, dired.c:
Jim Blandy <jimb@redhat.com>
parents: 1569
diff changeset
3005 #endif /* ! defined (TIOCGLTC) && defined (TIOCGETC) */
1925
3ddb163a9201 * process.c: Make sure we don't miss processes exiting, by having
Jim Blandy <jimb@redhat.com>
parents: 1886
diff changeset
3006 #endif /* ! defined HAVE_TERMIOS */
1594
b476a97ad17e * systty.h, process.c, buffer.h, callproc.c, sysdep.c, dired.c:
Jim Blandy <jimb@redhat.com>
parents: 1569
diff changeset
3007 #endif /* ! defined (SIGNALS_VIA_CHARACTERS) */
849
c7b49118e101 entered into RCS
Jim Blandy <jimb@redhat.com>
parents: 822
diff changeset
3008
c7b49118e101 entered into RCS
Jim Blandy <jimb@redhat.com>
parents: 822
diff changeset
3009 #ifdef TIOCGPGRP
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3010 /* Get the pgrp using the tty itself, if we have that.
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3011 Otherwise, use the pty to get the pgrp.
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3012 On pfa systems, saka@pfu.fujitsu.co.JP writes:
1594
b476a97ad17e * systty.h, process.c, buffer.h, callproc.c, sysdep.c, dired.c:
Jim Blandy <jimb@redhat.com>
parents: 1569
diff changeset
3013 "TIOCGPGRP symbol defined in sys/ioctl.h at E50.
b476a97ad17e * systty.h, process.c, buffer.h, callproc.c, sysdep.c, dired.c:
Jim Blandy <jimb@redhat.com>
parents: 1569
diff changeset
3014 But, TIOCGPGRP does not work on E50 ;-P works fine on E60"
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3015 His patch indicates that if TIOCGPGRP returns an error, then
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3016 we should just assume that p->pid is also the process group id. */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3017 {
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3018 int err;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3019
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3020 if (!NILP (p->subtty))
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3021 err = ioctl (XFASTINT (p->subtty), TIOCGPGRP, &gid);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3022 else
5134
0a4e46e15304 (wait_reading_process_input):
Richard M. Stallman <rms@gnu.org>
parents: 4998
diff changeset
3023 err = ioctl (XINT (p->infd), TIOCGPGRP, &gid);
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3024
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3025 #ifdef pfa
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3026 if (err == -1)
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3027 gid = - XFASTINT (p->pid);
849
c7b49118e101 entered into RCS
Jim Blandy <jimb@redhat.com>
parents: 822
diff changeset
3028 #endif /* ! defined (pfa) */
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3029 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3030 if (gid == -1)
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3031 no_pgrp = 1;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3032 else
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3033 gid = - gid;
1594
b476a97ad17e * systty.h, process.c, buffer.h, callproc.c, sysdep.c, dired.c:
Jim Blandy <jimb@redhat.com>
parents: 1569
diff changeset
3034 #else /* ! defined (TIOCGPGRP ) */
849
c7b49118e101 entered into RCS
Jim Blandy <jimb@redhat.com>
parents: 822
diff changeset
3035 /* Can't select pgrps on this system, so we know that
c7b49118e101 entered into RCS
Jim Blandy <jimb@redhat.com>
parents: 822
diff changeset
3036 the child itself heads the pgrp. */
c7b49118e101 entered into RCS
Jim Blandy <jimb@redhat.com>
parents: 822
diff changeset
3037 gid = - XFASTINT (p->pid);
c7b49118e101 entered into RCS
Jim Blandy <jimb@redhat.com>
parents: 822
diff changeset
3038 #endif /* ! defined (TIOCGPGRP ) */
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3039 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3040 else
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3041 gid = - XFASTINT (p->pid);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3042
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3043 switch (signo)
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3044 {
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3045 #ifdef SIGCONT
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3046 case SIGCONT:
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3047 p->raw_status_low = Qnil;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3048 p->raw_status_high = Qnil;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3049 p->status = Qrun;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3050 XSETINT (p->tick, ++process_tick);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3051 if (!nomsg)
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3052 status_notify ();
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3053 break;
849
c7b49118e101 entered into RCS
Jim Blandy <jimb@redhat.com>
parents: 822
diff changeset
3054 #endif /* ! defined (SIGCONT) */
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3055 case SIGINT:
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3056 #ifdef VMS
8063
30861f2f4f84 (send_process): Major rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 7937
diff changeset
3057 send_process (proc, "\003", 1, Qnil); /* ^C */
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3058 goto whoosh;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3059 #endif
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3060 case SIGQUIT:
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3061 #ifdef VMS
8063
30861f2f4f84 (send_process): Major rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 7937
diff changeset
3062 send_process (proc, "\031", 1, Qnil); /* ^Y */
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3063 goto whoosh;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3064 #endif
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3065 case SIGKILL:
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3066 #ifdef VMS
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3067 sys$forcex (&(XFASTINT (p->pid)), 0, 1);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3068 whoosh:
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3069 #endif
5134
0a4e46e15304 (wait_reading_process_input):
Richard M. Stallman <rms@gnu.org>
parents: 4998
diff changeset
3070 flush_pending_output (XINT (p->infd));
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3071 break;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3072 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3073
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3074 /* If we don't have process groups, send the signal to the immediate
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3075 subprocess. That isn't really right, but it's better than any
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3076 obvious alternative. */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3077 if (no_pgrp)
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3078 {
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3079 kill (XFASTINT (p->pid), signo);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3080 return;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3081 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3082
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3083 /* gid may be a pid, or minus a pgrp's number */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3084 #ifdef TIOCSIGSEND
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3085 if (!NILP (current_group))
5134
0a4e46e15304 (wait_reading_process_input):
Richard M. Stallman <rms@gnu.org>
parents: 4998
diff changeset
3086 ioctl (XINT (p->infd), TIOCSIGSEND, signo);
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3087 else
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3088 {
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3089 gid = - XFASTINT (p->pid);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3090 kill (gid, signo);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3091 }
849
c7b49118e101 entered into RCS
Jim Blandy <jimb@redhat.com>
parents: 822
diff changeset
3092 #else /* ! defined (TIOCSIGSEND) */
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3093 EMACS_KILLPG (-gid, signo);
849
c7b49118e101 entered into RCS
Jim Blandy <jimb@redhat.com>
parents: 822
diff changeset
3094 #endif /* ! defined (TIOCSIGSEND) */
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3095 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3096
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3097 DEFUN ("interrupt-process", Finterrupt_process, Sinterrupt_process, 0, 2, 0,
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3098 "Interrupt process PROCESS. May be process or name of one.\n\
808
707866b2a190 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 765
diff changeset
3099 PROCESS may be a process, a buffer, or the name of a process or buffer.\n\
7220
a33eb16cab9d (Fopen_network_stream): Retry the connect if EADDRINUSE. Ignore EISCONN.
Richard M. Stallman <rms@gnu.org>
parents: 7157
diff changeset
3100 nil or no arg means current buffer's process.\n\
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3101 Second arg CURRENT-GROUP non-nil means send signal to\n\
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3102 the current process-group of the process's controlling terminal\n\
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3103 rather than to the process's own process group.\n\
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3104 If the process is a shell, this means interrupt current subjob\n\
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3105 rather than the shell.")
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3106 (process, current_group)
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3107 Lisp_Object process, current_group;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3108 {
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3109 process_send_signal (process, SIGINT, current_group, 0);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3110 return process;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3111 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3112
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3113 DEFUN ("kill-process", Fkill_process, Skill_process, 0, 2, 0,
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3114 "Kill process PROCESS. May be process or name of one.\n\
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3115 See function `interrupt-process' for more details on usage.")
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3116 (process, current_group)
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3117 Lisp_Object process, current_group;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3118 {
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3119 process_send_signal (process, SIGKILL, current_group, 0);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3120 return process;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3121 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3122
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3123 DEFUN ("quit-process", Fquit_process, Squit_process, 0, 2, 0,
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3124 "Send QUIT signal to process PROCESS. May be process or name of one.\n\
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3125 See function `interrupt-process' for more details on usage.")
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3126 (process, current_group)
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3127 Lisp_Object process, current_group;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3128 {
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3129 process_send_signal (process, SIGQUIT, current_group, 0);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3130 return process;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3131 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3132
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3133 DEFUN ("stop-process", Fstop_process, Sstop_process, 0, 2, 0,
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3134 "Stop process PROCESS. May be process or name of one.\n\
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3135 See function `interrupt-process' for more details on usage.")
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3136 (process, current_group)
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3137 Lisp_Object process, current_group;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3138 {
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3139 #ifndef SIGTSTP
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3140 error ("no SIGTSTP support");
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3141 #else
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3142 process_send_signal (process, SIGTSTP, current_group, 0);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3143 #endif
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3144 return process;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3145 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3146
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3147 DEFUN ("continue-process", Fcontinue_process, Scontinue_process, 0, 2, 0,
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3148 "Continue process PROCESS. May be process or name of one.\n\
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3149 See function `interrupt-process' for more details on usage.")
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3150 (process, current_group)
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3151 Lisp_Object process, current_group;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3152 {
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3153 #ifdef SIGCONT
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3154 process_send_signal (process, SIGCONT, current_group, 0);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3155 #else
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3156 error ("no SIGCONT support");
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3157 #endif
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3158 return process;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3159 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3160
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3161 DEFUN ("signal-process", Fsignal_process, Ssignal_process,
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3162 2, 2, "nProcess number: \nnSignal code: ",
11144
c2b689aeb934 (Fsignal_process): Allow signal names as well as numbers.
Richard M. Stallman <rms@gnu.org>
parents: 10914
diff changeset
3163 "Send the process with process id PID the signal with code SIGCODE.\n\
c2b689aeb934 (Fsignal_process): Allow signal names as well as numbers.
Richard M. Stallman <rms@gnu.org>
parents: 10914
diff changeset
3164 PID must be an integer. The process need not be a child of this Emacs.\n\
c2b689aeb934 (Fsignal_process): Allow signal names as well as numbers.
Richard M. Stallman <rms@gnu.org>
parents: 10914
diff changeset
3165 SIGCODE may be an integer, or a symbol whose name is a signal name.")
c2b689aeb934 (Fsignal_process): Allow signal names as well as numbers.
Richard M. Stallman <rms@gnu.org>
parents: 10914
diff changeset
3166 (pid, sigcode)
c2b689aeb934 (Fsignal_process): Allow signal names as well as numbers.
Richard M. Stallman <rms@gnu.org>
parents: 10914
diff changeset
3167 Lisp_Object pid, sigcode;
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3168 {
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3169 CHECK_NUMBER (pid, 0);
11144
c2b689aeb934 (Fsignal_process): Allow signal names as well as numbers.
Richard M. Stallman <rms@gnu.org>
parents: 10914
diff changeset
3170
c2b689aeb934 (Fsignal_process): Allow signal names as well as numbers.
Richard M. Stallman <rms@gnu.org>
parents: 10914
diff changeset
3171 #define handle_signal(NAME, VALUE) \
c2b689aeb934 (Fsignal_process): Allow signal names as well as numbers.
Richard M. Stallman <rms@gnu.org>
parents: 10914
diff changeset
3172 else if (!strcmp (name, NAME)) \
c2b689aeb934 (Fsignal_process): Allow signal names as well as numbers.
Richard M. Stallman <rms@gnu.org>
parents: 10914
diff changeset
3173 XSETINT (sigcode, VALUE)
c2b689aeb934 (Fsignal_process): Allow signal names as well as numbers.
Richard M. Stallman <rms@gnu.org>
parents: 10914
diff changeset
3174
c2b689aeb934 (Fsignal_process): Allow signal names as well as numbers.
Richard M. Stallman <rms@gnu.org>
parents: 10914
diff changeset
3175 if (INTEGERP (sigcode))
c2b689aeb934 (Fsignal_process): Allow signal names as well as numbers.
Richard M. Stallman <rms@gnu.org>
parents: 10914
diff changeset
3176 ;
c2b689aeb934 (Fsignal_process): Allow signal names as well as numbers.
Richard M. Stallman <rms@gnu.org>
parents: 10914
diff changeset
3177 else
c2b689aeb934 (Fsignal_process): Allow signal names as well as numbers.
Richard M. Stallman <rms@gnu.org>
parents: 10914
diff changeset
3178 {
c2b689aeb934 (Fsignal_process): Allow signal names as well as numbers.
Richard M. Stallman <rms@gnu.org>
parents: 10914
diff changeset
3179 unsigned char *name;
c2b689aeb934 (Fsignal_process): Allow signal names as well as numbers.
Richard M. Stallman <rms@gnu.org>
parents: 10914
diff changeset
3180
c2b689aeb934 (Fsignal_process): Allow signal names as well as numbers.
Richard M. Stallman <rms@gnu.org>
parents: 10914
diff changeset
3181 CHECK_SYMBOL (sigcode, 1);
c2b689aeb934 (Fsignal_process): Allow signal names as well as numbers.
Richard M. Stallman <rms@gnu.org>
parents: 10914
diff changeset
3182 name = XSYMBOL (sigcode)->name->data;
c2b689aeb934 (Fsignal_process): Allow signal names as well as numbers.
Richard M. Stallman <rms@gnu.org>
parents: 10914
diff changeset
3183
c2b689aeb934 (Fsignal_process): Allow signal names as well as numbers.
Richard M. Stallman <rms@gnu.org>
parents: 10914
diff changeset
3184 if (0)
c2b689aeb934 (Fsignal_process): Allow signal names as well as numbers.
Richard M. Stallman <rms@gnu.org>
parents: 10914
diff changeset
3185 ;
c2b689aeb934 (Fsignal_process): Allow signal names as well as numbers.
Richard M. Stallman <rms@gnu.org>
parents: 10914
diff changeset
3186 #ifdef SIGHUP
c2b689aeb934 (Fsignal_process): Allow signal names as well as numbers.
Richard M. Stallman <rms@gnu.org>
parents: 10914
diff changeset
3187 handle_signal ("SIGHUP", SIGHUP);
c2b689aeb934 (Fsignal_process): Allow signal names as well as numbers.
Richard M. Stallman <rms@gnu.org>
parents: 10914
diff changeset
3188 #endif
c2b689aeb934 (Fsignal_process): Allow signal names as well as numbers.
Richard M. Stallman <rms@gnu.org>
parents: 10914
diff changeset
3189 #ifdef SIGINT
c2b689aeb934 (Fsignal_process): Allow signal names as well as numbers.
Richard M. Stallman <rms@gnu.org>
parents: 10914
diff changeset
3190 handle_signal ("SIGINT", SIGINT);
c2b689aeb934 (Fsignal_process): Allow signal names as well as numbers.
Richard M. Stallman <rms@gnu.org>
parents: 10914
diff changeset
3191 #endif
c2b689aeb934 (Fsignal_process): Allow signal names as well as numbers.
Richard M. Stallman <rms@gnu.org>
parents: 10914
diff changeset
3192 #ifdef SIGQUIT
c2b689aeb934 (Fsignal_process): Allow signal names as well as numbers.
Richard M. Stallman <rms@gnu.org>
parents: 10914
diff changeset
3193 handle_signal ("SIGQUIT", SIGQUIT);
c2b689aeb934 (Fsignal_process): Allow signal names as well as numbers.
Richard M. Stallman <rms@gnu.org>
parents: 10914
diff changeset
3194 #endif
c2b689aeb934 (Fsignal_process): Allow signal names as well as numbers.
Richard M. Stallman <rms@gnu.org>
parents: 10914
diff changeset
3195 #ifdef SIGILL
c2b689aeb934 (Fsignal_process): Allow signal names as well as numbers.
Richard M. Stallman <rms@gnu.org>
parents: 10914
diff changeset
3196 handle_signal ("SIGILL", SIGILL);
c2b689aeb934 (Fsignal_process): Allow signal names as well as numbers.
Richard M. Stallman <rms@gnu.org>
parents: 10914
diff changeset
3197 #endif
c2b689aeb934 (Fsignal_process): Allow signal names as well as numbers.
Richard M. Stallman <rms@gnu.org>
parents: 10914
diff changeset
3198 #ifdef SIGABRT
c2b689aeb934 (Fsignal_process): Allow signal names as well as numbers.
Richard M. Stallman <rms@gnu.org>
parents: 10914
diff changeset
3199 handle_signal ("SIGABRT", SIGABRT);
c2b689aeb934 (Fsignal_process): Allow signal names as well as numbers.
Richard M. Stallman <rms@gnu.org>
parents: 10914
diff changeset
3200 #endif
c2b689aeb934 (Fsignal_process): Allow signal names as well as numbers.
Richard M. Stallman <rms@gnu.org>
parents: 10914
diff changeset
3201 #ifdef SIGEMT
c2b689aeb934 (Fsignal_process): Allow signal names as well as numbers.
Richard M. Stallman <rms@gnu.org>
parents: 10914
diff changeset
3202 handle_signal ("SIGEMT", SIGEMT);
c2b689aeb934 (Fsignal_process): Allow signal names as well as numbers.
Richard M. Stallman <rms@gnu.org>
parents: 10914
diff changeset
3203 #endif
c2b689aeb934 (Fsignal_process): Allow signal names as well as numbers.
Richard M. Stallman <rms@gnu.org>
parents: 10914
diff changeset
3204 #ifdef SIGKILL
c2b689aeb934 (Fsignal_process): Allow signal names as well as numbers.
Richard M. Stallman <rms@gnu.org>
parents: 10914
diff changeset
3205 handle_signal ("SIGKILL", SIGKILL);
c2b689aeb934 (Fsignal_process): Allow signal names as well as numbers.
Richard M. Stallman <rms@gnu.org>
parents: 10914
diff changeset
3206 #endif
c2b689aeb934 (Fsignal_process): Allow signal names as well as numbers.
Richard M. Stallman <rms@gnu.org>
parents: 10914
diff changeset
3207 #ifdef SIGFPE
c2b689aeb934 (Fsignal_process): Allow signal names as well as numbers.
Richard M. Stallman <rms@gnu.org>
parents: 10914
diff changeset
3208 handle_signal ("SIGFPE", SIGFPE);
c2b689aeb934 (Fsignal_process): Allow signal names as well as numbers.
Richard M. Stallman <rms@gnu.org>
parents: 10914
diff changeset
3209 #endif
c2b689aeb934 (Fsignal_process): Allow signal names as well as numbers.
Richard M. Stallman <rms@gnu.org>
parents: 10914
diff changeset
3210 #ifdef SIGBUS
c2b689aeb934 (Fsignal_process): Allow signal names as well as numbers.
Richard M. Stallman <rms@gnu.org>
parents: 10914
diff changeset
3211 handle_signal ("SIGBUS", SIGBUS);
c2b689aeb934 (Fsignal_process): Allow signal names as well as numbers.
Richard M. Stallman <rms@gnu.org>
parents: 10914
diff changeset
3212 #endif
c2b689aeb934 (Fsignal_process): Allow signal names as well as numbers.
Richard M. Stallman <rms@gnu.org>
parents: 10914
diff changeset
3213 #ifdef SIGSEGV
c2b689aeb934 (Fsignal_process): Allow signal names as well as numbers.
Richard M. Stallman <rms@gnu.org>
parents: 10914
diff changeset
3214 handle_signal ("SIGSEGV", SIGSEGV);
c2b689aeb934 (Fsignal_process): Allow signal names as well as numbers.
Richard M. Stallman <rms@gnu.org>
parents: 10914
diff changeset
3215 #endif
c2b689aeb934 (Fsignal_process): Allow signal names as well as numbers.
Richard M. Stallman <rms@gnu.org>
parents: 10914
diff changeset
3216 #ifdef SIGSYS
c2b689aeb934 (Fsignal_process): Allow signal names as well as numbers.
Richard M. Stallman <rms@gnu.org>
parents: 10914
diff changeset
3217 handle_signal ("SIGSYS", SIGSYS);
c2b689aeb934 (Fsignal_process): Allow signal names as well as numbers.
Richard M. Stallman <rms@gnu.org>
parents: 10914
diff changeset
3218 #endif
c2b689aeb934 (Fsignal_process): Allow signal names as well as numbers.
Richard M. Stallman <rms@gnu.org>
parents: 10914
diff changeset
3219 #ifdef SIGPIPE
c2b689aeb934 (Fsignal_process): Allow signal names as well as numbers.
Richard M. Stallman <rms@gnu.org>
parents: 10914
diff changeset
3220 handle_signal ("SIGPIPE", SIGPIPE);
c2b689aeb934 (Fsignal_process): Allow signal names as well as numbers.
Richard M. Stallman <rms@gnu.org>
parents: 10914
diff changeset
3221 #endif
c2b689aeb934 (Fsignal_process): Allow signal names as well as numbers.
Richard M. Stallman <rms@gnu.org>
parents: 10914
diff changeset
3222 #ifdef SIGALRM
c2b689aeb934 (Fsignal_process): Allow signal names as well as numbers.
Richard M. Stallman <rms@gnu.org>
parents: 10914
diff changeset
3223 handle_signal ("SIGALRM", SIGALRM);
c2b689aeb934 (Fsignal_process): Allow signal names as well as numbers.
Richard M. Stallman <rms@gnu.org>
parents: 10914
diff changeset
3224 #endif
c2b689aeb934 (Fsignal_process): Allow signal names as well as numbers.
Richard M. Stallman <rms@gnu.org>
parents: 10914
diff changeset
3225 #ifdef SIGTERM
c2b689aeb934 (Fsignal_process): Allow signal names as well as numbers.
Richard M. Stallman <rms@gnu.org>
parents: 10914
diff changeset
3226 handle_signal ("SIGTERM", SIGTERM);
c2b689aeb934 (Fsignal_process): Allow signal names as well as numbers.
Richard M. Stallman <rms@gnu.org>
parents: 10914
diff changeset
3227 #endif
c2b689aeb934 (Fsignal_process): Allow signal names as well as numbers.
Richard M. Stallman <rms@gnu.org>
parents: 10914
diff changeset
3228 #ifdef SIGURG
c2b689aeb934 (Fsignal_process): Allow signal names as well as numbers.
Richard M. Stallman <rms@gnu.org>
parents: 10914
diff changeset
3229 handle_signal ("SIGURG", SIGURG);
c2b689aeb934 (Fsignal_process): Allow signal names as well as numbers.
Richard M. Stallman <rms@gnu.org>
parents: 10914
diff changeset
3230 #endif
c2b689aeb934 (Fsignal_process): Allow signal names as well as numbers.
Richard M. Stallman <rms@gnu.org>
parents: 10914
diff changeset
3231 #ifdef SIGSTOP
c2b689aeb934 (Fsignal_process): Allow signal names as well as numbers.
Richard M. Stallman <rms@gnu.org>
parents: 10914
diff changeset
3232 handle_signal ("SIGSTOP", SIGSTOP);
c2b689aeb934 (Fsignal_process): Allow signal names as well as numbers.
Richard M. Stallman <rms@gnu.org>
parents: 10914
diff changeset
3233 #endif
c2b689aeb934 (Fsignal_process): Allow signal names as well as numbers.
Richard M. Stallman <rms@gnu.org>
parents: 10914
diff changeset
3234 #ifdef SIGTSTP
c2b689aeb934 (Fsignal_process): Allow signal names as well as numbers.
Richard M. Stallman <rms@gnu.org>
parents: 10914
diff changeset
3235 handle_signal ("SIGTSTP", SIGTSTP);
c2b689aeb934 (Fsignal_process): Allow signal names as well as numbers.
Richard M. Stallman <rms@gnu.org>
parents: 10914
diff changeset
3236 #endif
c2b689aeb934 (Fsignal_process): Allow signal names as well as numbers.
Richard M. Stallman <rms@gnu.org>
parents: 10914
diff changeset
3237 #ifdef SIGCONT
c2b689aeb934 (Fsignal_process): Allow signal names as well as numbers.
Richard M. Stallman <rms@gnu.org>
parents: 10914
diff changeset
3238 handle_signal ("SIGCONT", SIGCONT);
c2b689aeb934 (Fsignal_process): Allow signal names as well as numbers.
Richard M. Stallman <rms@gnu.org>
parents: 10914
diff changeset
3239 #endif
c2b689aeb934 (Fsignal_process): Allow signal names as well as numbers.
Richard M. Stallman <rms@gnu.org>
parents: 10914
diff changeset
3240 #ifdef SIGCHLD
c2b689aeb934 (Fsignal_process): Allow signal names as well as numbers.
Richard M. Stallman <rms@gnu.org>
parents: 10914
diff changeset
3241 handle_signal ("SIGCHLD", SIGCHLD);
c2b689aeb934 (Fsignal_process): Allow signal names as well as numbers.
Richard M. Stallman <rms@gnu.org>
parents: 10914
diff changeset
3242 #endif
c2b689aeb934 (Fsignal_process): Allow signal names as well as numbers.
Richard M. Stallman <rms@gnu.org>
parents: 10914
diff changeset
3243 #ifdef SIGTTIN
c2b689aeb934 (Fsignal_process): Allow signal names as well as numbers.
Richard M. Stallman <rms@gnu.org>
parents: 10914
diff changeset
3244 handle_signal ("SIGTTIN", SIGTTIN);
c2b689aeb934 (Fsignal_process): Allow signal names as well as numbers.
Richard M. Stallman <rms@gnu.org>
parents: 10914
diff changeset
3245 #endif
c2b689aeb934 (Fsignal_process): Allow signal names as well as numbers.
Richard M. Stallman <rms@gnu.org>
parents: 10914
diff changeset
3246 #ifdef SIGTTOU
c2b689aeb934 (Fsignal_process): Allow signal names as well as numbers.
Richard M. Stallman <rms@gnu.org>
parents: 10914
diff changeset
3247 handle_signal ("SIGTTOU", SIGTTOU);
c2b689aeb934 (Fsignal_process): Allow signal names as well as numbers.
Richard M. Stallman <rms@gnu.org>
parents: 10914
diff changeset
3248 #endif
c2b689aeb934 (Fsignal_process): Allow signal names as well as numbers.
Richard M. Stallman <rms@gnu.org>
parents: 10914
diff changeset
3249 #ifdef SIGIO
c2b689aeb934 (Fsignal_process): Allow signal names as well as numbers.
Richard M. Stallman <rms@gnu.org>
parents: 10914
diff changeset
3250 handle_signal ("SIGIO", SIGIO);
c2b689aeb934 (Fsignal_process): Allow signal names as well as numbers.
Richard M. Stallman <rms@gnu.org>
parents: 10914
diff changeset
3251 #endif
c2b689aeb934 (Fsignal_process): Allow signal names as well as numbers.
Richard M. Stallman <rms@gnu.org>
parents: 10914
diff changeset
3252 #ifdef SIGXCPU
c2b689aeb934 (Fsignal_process): Allow signal names as well as numbers.
Richard M. Stallman <rms@gnu.org>
parents: 10914
diff changeset
3253 handle_signal ("SIGXCPU", SIGXCPU);
c2b689aeb934 (Fsignal_process): Allow signal names as well as numbers.
Richard M. Stallman <rms@gnu.org>
parents: 10914
diff changeset
3254 #endif
c2b689aeb934 (Fsignal_process): Allow signal names as well as numbers.
Richard M. Stallman <rms@gnu.org>
parents: 10914
diff changeset
3255 #ifdef SIGXFSZ
c2b689aeb934 (Fsignal_process): Allow signal names as well as numbers.
Richard M. Stallman <rms@gnu.org>
parents: 10914
diff changeset
3256 handle_signal ("SIGXFSZ", SIGXFSZ);
c2b689aeb934 (Fsignal_process): Allow signal names as well as numbers.
Richard M. Stallman <rms@gnu.org>
parents: 10914
diff changeset
3257 #endif
c2b689aeb934 (Fsignal_process): Allow signal names as well as numbers.
Richard M. Stallman <rms@gnu.org>
parents: 10914
diff changeset
3258 #ifdef SIGVTALRM
c2b689aeb934 (Fsignal_process): Allow signal names as well as numbers.
Richard M. Stallman <rms@gnu.org>
parents: 10914
diff changeset
3259 handle_signal ("SIGVTALRM", SIGVTALRM);
c2b689aeb934 (Fsignal_process): Allow signal names as well as numbers.
Richard M. Stallman <rms@gnu.org>
parents: 10914
diff changeset
3260 #endif
c2b689aeb934 (Fsignal_process): Allow signal names as well as numbers.
Richard M. Stallman <rms@gnu.org>
parents: 10914
diff changeset
3261 #ifdef SIGPROF
c2b689aeb934 (Fsignal_process): Allow signal names as well as numbers.
Richard M. Stallman <rms@gnu.org>
parents: 10914
diff changeset
3262 handle_signal ("SIGPROF", SIGPROF);
c2b689aeb934 (Fsignal_process): Allow signal names as well as numbers.
Richard M. Stallman <rms@gnu.org>
parents: 10914
diff changeset
3263 #endif
c2b689aeb934 (Fsignal_process): Allow signal names as well as numbers.
Richard M. Stallman <rms@gnu.org>
parents: 10914
diff changeset
3264 #ifdef SIGWINCH
c2b689aeb934 (Fsignal_process): Allow signal names as well as numbers.
Richard M. Stallman <rms@gnu.org>
parents: 10914
diff changeset
3265 handle_signal ("SIGWINCH", SIGWINCH);
c2b689aeb934 (Fsignal_process): Allow signal names as well as numbers.
Richard M. Stallman <rms@gnu.org>
parents: 10914
diff changeset
3266 #endif
c2b689aeb934 (Fsignal_process): Allow signal names as well as numbers.
Richard M. Stallman <rms@gnu.org>
parents: 10914
diff changeset
3267 #ifdef SIGINFO
c2b689aeb934 (Fsignal_process): Allow signal names as well as numbers.
Richard M. Stallman <rms@gnu.org>
parents: 10914
diff changeset
3268 handle_signal ("SIGINFO", SIGINFO);
c2b689aeb934 (Fsignal_process): Allow signal names as well as numbers.
Richard M. Stallman <rms@gnu.org>
parents: 10914
diff changeset
3269 #endif
c2b689aeb934 (Fsignal_process): Allow signal names as well as numbers.
Richard M. Stallman <rms@gnu.org>
parents: 10914
diff changeset
3270 #ifdef SIGUSR1
c2b689aeb934 (Fsignal_process): Allow signal names as well as numbers.
Richard M. Stallman <rms@gnu.org>
parents: 10914
diff changeset
3271 handle_signal ("SIGUSR1", SIGUSR1);
c2b689aeb934 (Fsignal_process): Allow signal names as well as numbers.
Richard M. Stallman <rms@gnu.org>
parents: 10914
diff changeset
3272 #endif
c2b689aeb934 (Fsignal_process): Allow signal names as well as numbers.
Richard M. Stallman <rms@gnu.org>
parents: 10914
diff changeset
3273 #ifdef SIGUSR2
c2b689aeb934 (Fsignal_process): Allow signal names as well as numbers.
Richard M. Stallman <rms@gnu.org>
parents: 10914
diff changeset
3274 handle_signal ("SIGUSR2", SIGUSR2);
c2b689aeb934 (Fsignal_process): Allow signal names as well as numbers.
Richard M. Stallman <rms@gnu.org>
parents: 10914
diff changeset
3275 #endif
c2b689aeb934 (Fsignal_process): Allow signal names as well as numbers.
Richard M. Stallman <rms@gnu.org>
parents: 10914
diff changeset
3276 else
11148
117b32676686 (Fsignal_process): SIGCODE is a symbol, not a string.
Karl Heuer <kwzh@gnu.org>
parents: 11144
diff changeset
3277 error ("Undefined signal name %s", name);
11144
c2b689aeb934 (Fsignal_process): Allow signal names as well as numbers.
Richard M. Stallman <rms@gnu.org>
parents: 10914
diff changeset
3278 }
c2b689aeb934 (Fsignal_process): Allow signal names as well as numbers.
Richard M. Stallman <rms@gnu.org>
parents: 10914
diff changeset
3279
c2b689aeb934 (Fsignal_process): Allow signal names as well as numbers.
Richard M. Stallman <rms@gnu.org>
parents: 10914
diff changeset
3280 #undef handle_signal
c2b689aeb934 (Fsignal_process): Allow signal names as well as numbers.
Richard M. Stallman <rms@gnu.org>
parents: 10914
diff changeset
3281
c2b689aeb934 (Fsignal_process): Allow signal names as well as numbers.
Richard M. Stallman <rms@gnu.org>
parents: 10914
diff changeset
3282 return make_number (kill (XINT (pid), XINT (sigcode)));
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3283 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3284
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3285 DEFUN ("process-send-eof", Fprocess_send_eof, Sprocess_send_eof, 0, 1, 0,
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3286 "Make PROCESS see end-of-file in its input.\n\
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3287 Eof comes after any text already sent to it.\n\
808
707866b2a190 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 765
diff changeset
3288 PROCESS may be a process, a buffer, the name of a process or buffer, or\n\
7884
066a06dd3bd3 (Fprocess_send_eof): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 7764
diff changeset
3289 nil, indicating the current buffer's process.\n\
066a06dd3bd3 (Fprocess_send_eof): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 7764
diff changeset
3290 If PROCESS is a network connection, or is a process communicating\n\
066a06dd3bd3 (Fprocess_send_eof): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 7764
diff changeset
3291 through a pipe (as opposed to a pty), then you cannot send any more\n\
066a06dd3bd3 (Fprocess_send_eof): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 7764
diff changeset
3292 text to PROCESS after you call this function.")
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3293 (process)
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3294 Lisp_Object process;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3295 {
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3296 Lisp_Object proc;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3297
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3298 proc = get_process (process);
2221
7edc78402205 (Fprocess_send_eof): Make sure proc is running.
Richard M. Stallman <rms@gnu.org>
parents: 2200
diff changeset
3299
7edc78402205 (Fprocess_send_eof): Make sure proc is running.
Richard M. Stallman <rms@gnu.org>
parents: 2200
diff changeset
3300 /* Make sure the process is really alive. */
7edc78402205 (Fprocess_send_eof): Make sure proc is running.
Richard M. Stallman <rms@gnu.org>
parents: 2200
diff changeset
3301 if (! NILP (XPROCESS (proc)->raw_status_low))
7edc78402205 (Fprocess_send_eof): Make sure proc is running.
Richard M. Stallman <rms@gnu.org>
parents: 2200
diff changeset
3302 update_status (XPROCESS (proc));
7edc78402205 (Fprocess_send_eof): Make sure proc is running.
Richard M. Stallman <rms@gnu.org>
parents: 2200
diff changeset
3303 if (! EQ (XPROCESS (proc)->status, Qrun))
2222
d81c60c5f9ce Fix typo in previous change.
Richard M. Stallman <rms@gnu.org>
parents: 2221
diff changeset
3304 error ("Process %s not running", XSTRING (XPROCESS (proc)->name)->data);
2221
7edc78402205 (Fprocess_send_eof): Make sure proc is running.
Richard M. Stallman <rms@gnu.org>
parents: 2200
diff changeset
3305
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3306 #ifdef VMS
8063
30861f2f4f84 (send_process): Major rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 7937
diff changeset
3307 send_process (proc, "\032", 1, Qnil); /* ^z */
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3308 #else
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3309 if (!NILP (XPROCESS (proc)->pty_flag))
8063
30861f2f4f84 (send_process): Major rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 7937
diff changeset
3310 send_process (proc, "\004", 1, Qnil);
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3311 else
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3312 {
5134
0a4e46e15304 (wait_reading_process_input):
Richard M. Stallman <rms@gnu.org>
parents: 4998
diff changeset
3313 close (XINT (XPROCESS (proc)->outfd));
9277
21f6120be5ba (make_process, create_process, Fopen_network_stream, deactivate_process,
Karl Heuer <kwzh@gnu.org>
parents: 9115
diff changeset
3314 XSETINT (XPROCESS (proc)->outfd, open (NULL_DEVICE, O_WRONLY));
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3315 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3316 #endif /* VMS */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3317 return process;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3318 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3319
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3320 /* Kill all processes associated with `buffer'.
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3321 If `buffer' is nil, kill all processes */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3322
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3323 kill_buffer_processes (buffer)
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3324 Lisp_Object buffer;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3325 {
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3326 Lisp_Object tail, proc;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3327
9952
9daedd94a204 (NETCONN_P, kill_buffer_processes): Use the new type-test macros.
Karl Heuer <kwzh@gnu.org>
parents: 9882
diff changeset
3328 for (tail = Vprocess_alist; GC_CONSP (tail); tail = XCONS (tail)->cdr)
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3329 {
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3330 proc = XCONS (XCONS (tail)->car)->cdr;
9952
9daedd94a204 (NETCONN_P, kill_buffer_processes): Use the new type-test macros.
Karl Heuer <kwzh@gnu.org>
parents: 9882
diff changeset
3331 if (GC_PROCESSP (proc)
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3332 && (NILP (buffer) || EQ (XPROCESS (proc)->buffer, buffer)))
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3333 {
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3334 if (NETCONN_P (proc))
7764
fad00b057e50 (kill_buffer_processes): For net conn, use Fdelete_process.
Richard M. Stallman <rms@gnu.org>
parents: 7748
diff changeset
3335 Fdelete_process (proc);
5134
0a4e46e15304 (wait_reading_process_input):
Richard M. Stallman <rms@gnu.org>
parents: 4998
diff changeset
3336 else if (XINT (XPROCESS (proc)->infd) >= 0)
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3337 process_send_signal (proc, SIGHUP, Qnil, 1);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3338 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3339 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3340 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3341
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3342 /* On receipt of a signal that a child status has changed,
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3343 loop asking about children with changed statuses until
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3344 the system says there are no more.
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3345 All we do is change the status;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3346 we do not run sentinels or print notifications.
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3347 That is saved for the next time keyboard input is done,
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3348 in order to avoid timing errors. */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3349
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3350 /** WARNING: this can be called during garbage collection.
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3351 Therefore, it must not be fooled by the presence of mark bits in
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3352 Lisp objects. */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3353
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3354 /** USG WARNING: Although it is not obvious from the documentation
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3355 in signal(2), on a USG system the SIGCLD handler MUST NOT call
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3356 signal() before executing at least one wait(), otherwise the handler
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3357 will be called again, resulting in an infinite loop. The relevant
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3358 portion of the documentation reads "SIGCLD signals will be queued
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3359 and the signal-catching function will be continually reentered until
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3360 the queue is empty". Invoking signal() causes the kernel to reexamine
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3361 the SIGCLD queue. Fred Fish, UniSoft Systems Inc. */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3362
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3363 SIGTYPE
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3364 sigchld_handler (signo)
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3365 int signo;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3366 {
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3367 int old_errno = errno;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3368 Lisp_Object proc;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3369 register struct Lisp_Process *p;
1925
3ddb163a9201 * process.c: Make sure we don't miss processes exiting, by having
Jim Blandy <jimb@redhat.com>
parents: 1886
diff changeset
3370 extern EMACS_TIME *input_available_clear_time;
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3371
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3372 #ifdef BSD4_1
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3373 extern int sigheld;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3374 sigheld |= sigbit (SIGCHLD);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3375 #endif
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3376
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3377 while (1)
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3378 {
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3379 register int pid;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3380 WAITTYPE w;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3381 Lisp_Object tail;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3382
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3383 #ifdef WNOHANG
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3384 #ifndef WUNTRACED
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3385 #define WUNTRACED 0
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3386 #endif /* no WUNTRACED */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3387 /* Keep trying to get a status until we get a definitive result. */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3388 do
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3389 {
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3390 errno = 0;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3391 pid = wait3 (&w, WNOHANG | WUNTRACED, 0);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3392 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3393 while (pid <= 0 && errno == EINTR);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3394
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3395 if (pid <= 0)
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3396 {
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3397 /* A real failure. We have done all our job, so return. */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3398
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3399 /* USG systems forget handlers when they are used;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3400 must reestablish each time */
16116
80a67b8f39e9 (create_process_1, sigchld_handler) [POSIX_SIGNALS]:
Richard M. Stallman <rms@gnu.org>
parents: 16076
diff changeset
3401 #if defined (USG) && !defined (POSIX_SIGNALS)
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3402 signal (signo, sigchld_handler); /* WARNING - must come after wait3() */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3403 #endif
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3404 #ifdef BSD4_1
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3405 sigheld &= ~sigbit (SIGCHLD);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3406 sigrelse (SIGCHLD);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3407 #endif
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3408 errno = old_errno;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3409 return;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3410 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3411 #else
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3412 pid = wait (&w);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3413 #endif /* no WNOHANG */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3414
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3415 /* Find the process that signaled us, and record its status. */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3416
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3417 p = 0;
14496
beca72fdb420 (sigchld_handler): Use cleaner end-of-list test.
Karl Heuer <kwzh@gnu.org>
parents: 14458
diff changeset
3418 for (tail = Vprocess_alist; CONSP (tail); tail = XCONS (tail)->cdr)
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3419 {
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3420 proc = XCONS (XCONS (tail)->car)->cdr;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3421 p = XPROCESS (proc);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3422 if (EQ (p->childp, Qt) && XFASTINT (p->pid) == pid)
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3423 break;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3424 p = 0;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3425 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3426
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3427 /* Look for an asynchronous process whose pid hasn't been filled
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3428 in yet. */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3429 if (p == 0)
14496
beca72fdb420 (sigchld_handler): Use cleaner end-of-list test.
Karl Heuer <kwzh@gnu.org>
parents: 14458
diff changeset
3430 for (tail = Vprocess_alist; CONSP (tail); tail = XCONS (tail)->cdr)
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3431 {
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3432 proc = XCONS (XCONS (tail)->car)->cdr;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3433 p = XPROCESS (proc);
9115
59bc2d010b5f (decode_status, Fprocessp, Fget_process, Fget_buffer_process, Fprocess_status,
Karl Heuer <kwzh@gnu.org>
parents: 9034
diff changeset
3434 if (INTEGERP (p->pid) && XINT (p->pid) == -1)
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3435 break;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3436 p = 0;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3437 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3438
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3439 /* Change the status of the process that was found. */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3440 if (p != 0)
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3441 {
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3442 union { int i; WAITTYPE wt; } u;
9793
28267fcc61be Use macros IS_ANY_SEP, IS_DIRECTORY_SEP,
Richard M. Stallman <rms@gnu.org>
parents: 9705
diff changeset
3443 int clear_desc_flag = 0;
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3444
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3445 XSETINT (p->tick, ++process_tick);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3446 u.wt = w;
12324
41bd44279127 (sigchld_handler): Change XSETFASTINT to XSETINT.
Richard M. Stallman <rms@gnu.org>
parents: 12215
diff changeset
3447 XSETINT (p->raw_status_low, u.i & 0xffff);
41bd44279127 (sigchld_handler): Change XSETFASTINT to XSETINT.
Richard M. Stallman <rms@gnu.org>
parents: 12215
diff changeset
3448 XSETINT (p->raw_status_high, u.i >> 16);
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3449
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3450 /* If process has terminated, stop waiting for its output. */
9793
28267fcc61be Use macros IS_ANY_SEP, IS_DIRECTORY_SEP,
Richard M. Stallman <rms@gnu.org>
parents: 9705
diff changeset
3451 if ((WIFSIGNALED (w) || WIFEXITED (w))
28267fcc61be Use macros IS_ANY_SEP, IS_DIRECTORY_SEP,
Richard M. Stallman <rms@gnu.org>
parents: 9705
diff changeset
3452 && XINT (p->infd) >= 0)
28267fcc61be Use macros IS_ANY_SEP, IS_DIRECTORY_SEP,
Richard M. Stallman <rms@gnu.org>
parents: 9705
diff changeset
3453 clear_desc_flag = 1;
28267fcc61be Use macros IS_ANY_SEP, IS_DIRECTORY_SEP,
Richard M. Stallman <rms@gnu.org>
parents: 9705
diff changeset
3454
28267fcc61be Use macros IS_ANY_SEP, IS_DIRECTORY_SEP,
Richard M. Stallman <rms@gnu.org>
parents: 9705
diff changeset
3455 /* We use clear_desc_flag to avoid a compiler bug in Microsoft C. */
28267fcc61be Use macros IS_ANY_SEP, IS_DIRECTORY_SEP,
Richard M. Stallman <rms@gnu.org>
parents: 9705
diff changeset
3456 if (clear_desc_flag)
28267fcc61be Use macros IS_ANY_SEP, IS_DIRECTORY_SEP,
Richard M. Stallman <rms@gnu.org>
parents: 9705
diff changeset
3457 {
28267fcc61be Use macros IS_ANY_SEP, IS_DIRECTORY_SEP,
Richard M. Stallman <rms@gnu.org>
parents: 9705
diff changeset
3458 FD_CLR (XINT (p->infd), &input_wait_mask);
28267fcc61be Use macros IS_ANY_SEP, IS_DIRECTORY_SEP,
Richard M. Stallman <rms@gnu.org>
parents: 9705
diff changeset
3459 FD_CLR (XINT (p->infd), &non_keyboard_wait_mask);
28267fcc61be Use macros IS_ANY_SEP, IS_DIRECTORY_SEP,
Richard M. Stallman <rms@gnu.org>
parents: 9705
diff changeset
3460 }
1925
3ddb163a9201 * process.c: Make sure we don't miss processes exiting, by having
Jim Blandy <jimb@redhat.com>
parents: 1886
diff changeset
3461
3ddb163a9201 * process.c: Make sure we don't miss processes exiting, by having
Jim Blandy <jimb@redhat.com>
parents: 1886
diff changeset
3462 /* Tell wait_reading_process_input that it needs to wake up and
3ddb163a9201 * process.c: Make sure we don't miss processes exiting, by having
Jim Blandy <jimb@redhat.com>
parents: 1886
diff changeset
3463 look around. */
3ddb163a9201 * process.c: Make sure we don't miss processes exiting, by having
Jim Blandy <jimb@redhat.com>
parents: 1886
diff changeset
3464 if (input_available_clear_time)
3ddb163a9201 * process.c: Make sure we don't miss processes exiting, by having
Jim Blandy <jimb@redhat.com>
parents: 1886
diff changeset
3465 EMACS_SET_SECS_USECS (*input_available_clear_time, 0, 0);
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3466 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3467
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3468 /* There was no asynchronous process found for that id. Check
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3469 if we have a synchronous process. */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3470 else
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3471 {
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3472 synch_process_alive = 0;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3473
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3474 /* Report the status of the synchronous process. */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3475 if (WIFEXITED (w))
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3476 synch_process_retcode = WRETCODE (w);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3477 else if (WIFSIGNALED (w))
5579
466bc8ef8e21 (sigchld_handler, status_message): Handle a NULL in sys_siglist.
Richard M. Stallman <rms@gnu.org>
parents: 5561
diff changeset
3478 {
466bc8ef8e21 (sigchld_handler, status_message): Handle a NULL in sys_siglist.
Richard M. Stallman <rms@gnu.org>
parents: 5561
diff changeset
3479 int code = WTERMSIG (w);
466bc8ef8e21 (sigchld_handler, status_message): Handle a NULL in sys_siglist.
Richard M. Stallman <rms@gnu.org>
parents: 5561
diff changeset
3480 char *signame = 0;
466bc8ef8e21 (sigchld_handler, status_message): Handle a NULL in sys_siglist.
Richard M. Stallman <rms@gnu.org>
parents: 5561
diff changeset
3481
466bc8ef8e21 (sigchld_handler, status_message): Handle a NULL in sys_siglist.
Richard M. Stallman <rms@gnu.org>
parents: 5561
diff changeset
3482 if (code < NSIG)
466bc8ef8e21 (sigchld_handler, status_message): Handle a NULL in sys_siglist.
Richard M. Stallman <rms@gnu.org>
parents: 5561
diff changeset
3483 {
1594
b476a97ad17e * systty.h, process.c, buffer.h, callproc.c, sysdep.c, dired.c:
Jim Blandy <jimb@redhat.com>
parents: 1569
diff changeset
3484 #ifndef VMS
9705
f7535deb913a (status_message): Add a cast.
Richard M. Stallman <rms@gnu.org>
parents: 9697
diff changeset
3485 /* Suppress warning if the table has const char *. */
f7535deb913a (status_message): Add a cast.
Richard M. Stallman <rms@gnu.org>
parents: 9697
diff changeset
3486 signame = (char *) sys_siglist[code];
1594
b476a97ad17e * systty.h, process.c, buffer.h, callproc.c, sysdep.c, dired.c:
Jim Blandy <jimb@redhat.com>
parents: 1569
diff changeset
3487 #else
5579
466bc8ef8e21 (sigchld_handler, status_message): Handle a NULL in sys_siglist.
Richard M. Stallman <rms@gnu.org>
parents: 5561
diff changeset
3488 signame = sys_errlist[code];
1594
b476a97ad17e * systty.h, process.c, buffer.h, callproc.c, sysdep.c, dired.c:
Jim Blandy <jimb@redhat.com>
parents: 1569
diff changeset
3489 #endif
5579
466bc8ef8e21 (sigchld_handler, status_message): Handle a NULL in sys_siglist.
Richard M. Stallman <rms@gnu.org>
parents: 5561
diff changeset
3490 }
466bc8ef8e21 (sigchld_handler, status_message): Handle a NULL in sys_siglist.
Richard M. Stallman <rms@gnu.org>
parents: 5561
diff changeset
3491 if (signame == 0)
466bc8ef8e21 (sigchld_handler, status_message): Handle a NULL in sys_siglist.
Richard M. Stallman <rms@gnu.org>
parents: 5561
diff changeset
3492 signame = "unknown";
466bc8ef8e21 (sigchld_handler, status_message): Handle a NULL in sys_siglist.
Richard M. Stallman <rms@gnu.org>
parents: 5561
diff changeset
3493
466bc8ef8e21 (sigchld_handler, status_message): Handle a NULL in sys_siglist.
Richard M. Stallman <rms@gnu.org>
parents: 5561
diff changeset
3494 synch_process_death = signame;
466bc8ef8e21 (sigchld_handler, status_message): Handle a NULL in sys_siglist.
Richard M. Stallman <rms@gnu.org>
parents: 5561
diff changeset
3495 }
1925
3ddb163a9201 * process.c: Make sure we don't miss processes exiting, by having
Jim Blandy <jimb@redhat.com>
parents: 1886
diff changeset
3496
3ddb163a9201 * process.c: Make sure we don't miss processes exiting, by having
Jim Blandy <jimb@redhat.com>
parents: 1886
diff changeset
3497 /* Tell wait_reading_process_input that it needs to wake up and
3ddb163a9201 * process.c: Make sure we don't miss processes exiting, by having
Jim Blandy <jimb@redhat.com>
parents: 1886
diff changeset
3498 look around. */
3ddb163a9201 * process.c: Make sure we don't miss processes exiting, by having
Jim Blandy <jimb@redhat.com>
parents: 1886
diff changeset
3499 if (input_available_clear_time)
3ddb163a9201 * process.c: Make sure we don't miss processes exiting, by having
Jim Blandy <jimb@redhat.com>
parents: 1886
diff changeset
3500 EMACS_SET_SECS_USECS (*input_available_clear_time, 0, 0);
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3501 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3502
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3503 /* On some systems, we must return right away.
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3504 If any more processes want to signal us, we will
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3505 get another signal.
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3506 Otherwise (on systems that have WNOHANG), loop around
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3507 to use up all the processes that have something to tell us. */
9793
28267fcc61be Use macros IS_ANY_SEP, IS_DIRECTORY_SEP,
Richard M. Stallman <rms@gnu.org>
parents: 9705
diff changeset
3508 #if defined (USG) && ! (defined (HPUX) && defined (WNOHANG)) || defined (WINDOWSNT)
16116
80a67b8f39e9 (create_process_1, sigchld_handler) [POSIX_SIGNALS]:
Richard M. Stallman <rms@gnu.org>
parents: 16076
diff changeset
3509 #if defined (USG) && ! defined (POSIX_SIGNALS)
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3510 signal (signo, sigchld_handler);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3511 #endif
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3512 errno = old_errno;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3513 return;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3514 #endif /* USG, but not HPUX with WNOHANG */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3515 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3516 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3517
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3518
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3519 static Lisp_Object
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3520 exec_sentinel_unwind (data)
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3521 Lisp_Object data;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3522 {
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3523 XPROCESS (XCONS (data)->car)->sentinel = XCONS (data)->cdr;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3524 return Qnil;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3525 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3526
9030
b14532c71632 (exec_sentinel_error_handler): New function.
Richard M. Stallman <rms@gnu.org>
parents: 8570
diff changeset
3527 static Lisp_Object
b14532c71632 (exec_sentinel_error_handler): New function.
Richard M. Stallman <rms@gnu.org>
parents: 8570
diff changeset
3528 exec_sentinel_error_handler (error)
b14532c71632 (exec_sentinel_error_handler): New function.
Richard M. Stallman <rms@gnu.org>
parents: 8570
diff changeset
3529 Lisp_Object error;
b14532c71632 (exec_sentinel_error_handler): New function.
Richard M. Stallman <rms@gnu.org>
parents: 8570
diff changeset
3530 {
b14532c71632 (exec_sentinel_error_handler): New function.
Richard M. Stallman <rms@gnu.org>
parents: 8570
diff changeset
3531 cmd_error_internal (error, "error in process sentinel: ");
b14532c71632 (exec_sentinel_error_handler): New function.
Richard M. Stallman <rms@gnu.org>
parents: 8570
diff changeset
3532 Vinhibit_quit = Qt;
b14532c71632 (exec_sentinel_error_handler): New function.
Richard M. Stallman <rms@gnu.org>
parents: 8570
diff changeset
3533 update_echo_area ();
11277
d4547e4b0aab (read_process_output_error_handler)
Richard M. Stallman <rms@gnu.org>
parents: 11235
diff changeset
3534 Fsleep_for (make_number (2), Qnil);
9030
b14532c71632 (exec_sentinel_error_handler): New function.
Richard M. Stallman <rms@gnu.org>
parents: 8570
diff changeset
3535 }
b14532c71632 (exec_sentinel_error_handler): New function.
Richard M. Stallman <rms@gnu.org>
parents: 8570
diff changeset
3536
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3537 static void
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3538 exec_sentinel (proc, reason)
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3539 Lisp_Object proc, reason;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3540 {
10914
413d44c0bd41 (exec_sentinel, read_process_output): If running filter
Richard M. Stallman <rms@gnu.org>
parents: 10744
diff changeset
3541 Lisp_Object sentinel, obuffer, odeactivate, okeymap;
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3542 register struct Lisp_Process *p = XPROCESS (proc);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3543 int count = specpdl_ptr - specpdl;
16644
3a93437adce1 (status_notify): Test p->infd > 0
Richard M. Stallman <rms@gnu.org>
parents: 16464
diff changeset
3544 int outer_running_asynch_code = running_asynch_code;
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3545
10914
413d44c0bd41 (exec_sentinel, read_process_output): If running filter
Richard M. Stallman <rms@gnu.org>
parents: 10744
diff changeset
3546 /* No need to gcpro these, because all we do with them later
413d44c0bd41 (exec_sentinel, read_process_output): If running filter
Richard M. Stallman <rms@gnu.org>
parents: 10744
diff changeset
3547 is test them for EQness, and none of them should be a string. */
7454
8d9e41a175fa (exec_sentinel): Don't deactivate the mark. Check for asynch buffer switch.
Karl Heuer <kwzh@gnu.org>
parents: 7414
diff changeset
3548 odeactivate = Vdeactivate_mark;
10914
413d44c0bd41 (exec_sentinel, read_process_output): If running filter
Richard M. Stallman <rms@gnu.org>
parents: 10744
diff changeset
3549 XSETBUFFER (obuffer, current_buffer);
413d44c0bd41 (exec_sentinel, read_process_output): If running filter
Richard M. Stallman <rms@gnu.org>
parents: 10744
diff changeset
3550 okeymap = current_buffer->keymap;
413d44c0bd41 (exec_sentinel, read_process_output): If running filter
Richard M. Stallman <rms@gnu.org>
parents: 10744
diff changeset
3551
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3552 sentinel = p->sentinel;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3553 if (NILP (sentinel))
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3554 return;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3555
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3556 /* Zilch the sentinel while it's running, to avoid recursive invocations;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3557 assure that it gets restored no matter how the sentinel exits. */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3558 p->sentinel = Qnil;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3559 record_unwind_protect (exec_sentinel_unwind, Fcons (proc, sentinel));
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3560 /* Inhibit quit so that random quits don't screw up a running filter. */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3561 specbind (Qinhibit_quit, Qt);
8231
5226ed89c1a6 (Qlast_nonmenu_event): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 8063
diff changeset
3562 specbind (Qlast_nonmenu_event, Qt);
9030
b14532c71632 (exec_sentinel_error_handler): New function.
Richard M. Stallman <rms@gnu.org>
parents: 8570
diff changeset
3563
16644
3a93437adce1 (status_notify): Test p->infd > 0
Richard M. Stallman <rms@gnu.org>
parents: 16464
diff changeset
3564 /* In case we get recursively called,
3a93437adce1 (status_notify): Test p->infd > 0
Richard M. Stallman <rms@gnu.org>
parents: 16464
diff changeset
3565 and we already saved the match data nonrecursively,
3a93437adce1 (status_notify): Test p->infd > 0
Richard M. Stallman <rms@gnu.org>
parents: 16464
diff changeset
3566 save the same match data in safely recursive fashion. */
3a93437adce1 (status_notify): Test p->infd > 0
Richard M. Stallman <rms@gnu.org>
parents: 16464
diff changeset
3567 if (outer_running_asynch_code)
3a93437adce1 (status_notify): Test p->infd > 0
Richard M. Stallman <rms@gnu.org>
parents: 16464
diff changeset
3568 {
3a93437adce1 (status_notify): Test p->infd > 0
Richard M. Stallman <rms@gnu.org>
parents: 16464
diff changeset
3569 Lisp_Object tem;
16728
309a750fd5c0 (read_process_output, exec_sentinel):
Richard M. Stallman <rms@gnu.org>
parents: 16718
diff changeset
3570 tem = Fmatch_data (Qnil, Qnil);
16644
3a93437adce1 (status_notify): Test p->infd > 0
Richard M. Stallman <rms@gnu.org>
parents: 16464
diff changeset
3571 restore_match_data ();
16728
309a750fd5c0 (read_process_output, exec_sentinel):
Richard M. Stallman <rms@gnu.org>
parents: 16718
diff changeset
3572 record_unwind_protect (Fstore_match_data, Fmatch_data (Qnil, Qnil));
16644
3a93437adce1 (status_notify): Test p->infd > 0
Richard M. Stallman <rms@gnu.org>
parents: 16464
diff changeset
3573 Fstore_match_data (tem);
3a93437adce1 (status_notify): Test p->infd > 0
Richard M. Stallman <rms@gnu.org>
parents: 16464
diff changeset
3574 }
3a93437adce1 (status_notify): Test p->infd > 0
Richard M. Stallman <rms@gnu.org>
parents: 16464
diff changeset
3575
3a93437adce1 (status_notify): Test p->infd > 0
Richard M. Stallman <rms@gnu.org>
parents: 16464
diff changeset
3576 /* For speed, if a search happens within this code,
3a93437adce1 (status_notify): Test p->infd > 0
Richard M. Stallman <rms@gnu.org>
parents: 16464
diff changeset
3577 save the match data in a special nonrecursive fashion. */
10032
f689803caa92 Added code for automatically saving and restoring the match data
Francesco Potortì <pot@gnu.org>
parents: 9969
diff changeset
3578 running_asynch_code = 1;
16644
3a93437adce1 (status_notify): Test p->infd > 0
Richard M. Stallman <rms@gnu.org>
parents: 16464
diff changeset
3579
9030
b14532c71632 (exec_sentinel_error_handler): New function.
Richard M. Stallman <rms@gnu.org>
parents: 8570
diff changeset
3580 internal_condition_case_1 (read_process_output_call,
b14532c71632 (exec_sentinel_error_handler): New function.
Richard M. Stallman <rms@gnu.org>
parents: 8570
diff changeset
3581 Fcons (sentinel,
b14532c71632 (exec_sentinel_error_handler): New function.
Richard M. Stallman <rms@gnu.org>
parents: 8570
diff changeset
3582 Fcons (proc, Fcons (reason, Qnil))),
b14532c71632 (exec_sentinel_error_handler): New function.
Richard M. Stallman <rms@gnu.org>
parents: 8570
diff changeset
3583 !NILP (Vdebug_on_error) ? Qnil : Qerror,
b14532c71632 (exec_sentinel_error_handler): New function.
Richard M. Stallman <rms@gnu.org>
parents: 8570
diff changeset
3584 exec_sentinel_error_handler);
16644
3a93437adce1 (status_notify): Test p->infd > 0
Richard M. Stallman <rms@gnu.org>
parents: 16464
diff changeset
3585
3a93437adce1 (status_notify): Test p->infd > 0
Richard M. Stallman <rms@gnu.org>
parents: 16464
diff changeset
3586 /* If we saved the match data nonrecursively, restore it now. */
10032
f689803caa92 Added code for automatically saving and restoring the match data
Francesco Potortì <pot@gnu.org>
parents: 9969
diff changeset
3587 restore_match_data ();
16644
3a93437adce1 (status_notify): Test p->infd > 0
Richard M. Stallman <rms@gnu.org>
parents: 16464
diff changeset
3588 running_asynch_code = outer_running_asynch_code;
7454
8d9e41a175fa (exec_sentinel): Don't deactivate the mark. Check for asynch buffer switch.
Karl Heuer <kwzh@gnu.org>
parents: 7414
diff changeset
3589
8d9e41a175fa (exec_sentinel): Don't deactivate the mark. Check for asynch buffer switch.
Karl Heuer <kwzh@gnu.org>
parents: 7414
diff changeset
3590 Vdeactivate_mark = odeactivate;
12808
4db1f387e85f (read_process_output, exec_sentinel): Call
Richard M. Stallman <rms@gnu.org>
parents: 12749
diff changeset
3591 #if 0
10914
413d44c0bd41 (exec_sentinel, read_process_output): If running filter
Richard M. Stallman <rms@gnu.org>
parents: 10744
diff changeset
3592 if (! EQ (Fcurrent_buffer (), obuffer)
413d44c0bd41 (exec_sentinel, read_process_output): If running filter
Richard M. Stallman <rms@gnu.org>
parents: 10744
diff changeset
3593 || ! EQ (current_buffer->keymap, okeymap))
12808
4db1f387e85f (read_process_output, exec_sentinel): Call
Richard M. Stallman <rms@gnu.org>
parents: 12749
diff changeset
3594 #endif
13159
2af96ac471bc (exec_sentinel, read_process_output):
Richard M. Stallman <rms@gnu.org>
parents: 12808
diff changeset
3595 /* But do it only if the caller is actually going to read events.
2af96ac471bc (exec_sentinel, read_process_output):
Richard M. Stallman <rms@gnu.org>
parents: 12808
diff changeset
3596 Otherwise there's no need to make him wake up, and it could
2af96ac471bc (exec_sentinel, read_process_output):
Richard M. Stallman <rms@gnu.org>
parents: 12808
diff changeset
3597 cause trouble (for example it would make Fsit_for return). */
2af96ac471bc (exec_sentinel, read_process_output):
Richard M. Stallman <rms@gnu.org>
parents: 12808
diff changeset
3598 if (waiting_for_user_input_p == -1)
2af96ac471bc (exec_sentinel, read_process_output):
Richard M. Stallman <rms@gnu.org>
parents: 12808
diff changeset
3599 record_asynch_buffer_change ();
7454
8d9e41a175fa (exec_sentinel): Don't deactivate the mark. Check for asynch buffer switch.
Karl Heuer <kwzh@gnu.org>
parents: 7414
diff changeset
3600
5561
fd7524d61a8d (read_process_output): Supply second arg to unbind_to.
Richard M. Stallman <rms@gnu.org>
parents: 5548
diff changeset
3601 unbind_to (count, Qnil);
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3602 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3603
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3604 /* Report all recent events of a change in process status
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3605 (either run the sentinel or output a message).
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3606 This is done while Emacs is waiting for keyboard input. */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3607
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3608 status_notify ()
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3609 {
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3610 register Lisp_Object proc, buffer;
6515
df7438605e1e (status_notify): Use assignment, not initialization.
Karl Heuer <kwzh@gnu.org>
parents: 6429
diff changeset
3611 Lisp_Object tail, msg;
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3612 struct gcpro gcpro1, gcpro2;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3613
6515
df7438605e1e (status_notify): Use assignment, not initialization.
Karl Heuer <kwzh@gnu.org>
parents: 6429
diff changeset
3614 tail = Qnil;
df7438605e1e (status_notify): Use assignment, not initialization.
Karl Heuer <kwzh@gnu.org>
parents: 6429
diff changeset
3615 msg = Qnil;
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3616 /* We need to gcpro tail; if read_process_output calls a filter
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3617 which deletes a process and removes the cons to which tail points
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3618 from Vprocess_alist, and then causes a GC, tail is an unprotected
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3619 reference. */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3620 GCPRO2 (tail, msg);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3621
12215
2f1f03964f08 (status_notify): Undo May 18 change.
Richard M. Stallman <rms@gnu.org>
parents: 12132
diff changeset
3622 /* Set this now, so that if new processes are created by sentinels
2f1f03964f08 (status_notify): Undo May 18 change.
Richard M. Stallman <rms@gnu.org>
parents: 12132
diff changeset
3623 that we run, we get called again to handle their status changes. */
2f1f03964f08 (status_notify): Undo May 18 change.
Richard M. Stallman <rms@gnu.org>
parents: 12132
diff changeset
3624 update_tick = process_tick;
2f1f03964f08 (status_notify): Undo May 18 change.
Richard M. Stallman <rms@gnu.org>
parents: 12132
diff changeset
3625
2f1f03964f08 (status_notify): Undo May 18 change.
Richard M. Stallman <rms@gnu.org>
parents: 12132
diff changeset
3626 for (tail = Vprocess_alist; !NILP (tail); tail = Fcdr (tail))
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3627 {
12215
2f1f03964f08 (status_notify): Undo May 18 change.
Richard M. Stallman <rms@gnu.org>
parents: 12132
diff changeset
3628 Lisp_Object symbol;
2f1f03964f08 (status_notify): Undo May 18 change.
Richard M. Stallman <rms@gnu.org>
parents: 12132
diff changeset
3629 register struct Lisp_Process *p;
2f1f03964f08 (status_notify): Undo May 18 change.
Richard M. Stallman <rms@gnu.org>
parents: 12132
diff changeset
3630
2f1f03964f08 (status_notify): Undo May 18 change.
Richard M. Stallman <rms@gnu.org>
parents: 12132
diff changeset
3631 proc = Fcdr (Fcar (tail));
2f1f03964f08 (status_notify): Undo May 18 change.
Richard M. Stallman <rms@gnu.org>
parents: 12132
diff changeset
3632 p = XPROCESS (proc);
2f1f03964f08 (status_notify): Undo May 18 change.
Richard M. Stallman <rms@gnu.org>
parents: 12132
diff changeset
3633
2f1f03964f08 (status_notify): Undo May 18 change.
Richard M. Stallman <rms@gnu.org>
parents: 12132
diff changeset
3634 if (XINT (p->tick) != XINT (p->update_tick))
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3635 {
12215
2f1f03964f08 (status_notify): Undo May 18 change.
Richard M. Stallman <rms@gnu.org>
parents: 12132
diff changeset
3636 XSETINT (p->update_tick, XINT (p->tick));
2f1f03964f08 (status_notify): Undo May 18 change.
Richard M. Stallman <rms@gnu.org>
parents: 12132
diff changeset
3637
2f1f03964f08 (status_notify): Undo May 18 change.
Richard M. Stallman <rms@gnu.org>
parents: 12132
diff changeset
3638 /* If process is still active, read any output that remains. */
16644
3a93437adce1 (status_notify): Test p->infd > 0
Richard M. Stallman <rms@gnu.org>
parents: 16464
diff changeset
3639 while (! EQ (p->filter, Qt)
3a93437adce1 (status_notify): Test p->infd > 0
Richard M. Stallman <rms@gnu.org>
parents: 16464
diff changeset
3640 && XINT (p->infd) >= 0
3a93437adce1 (status_notify): Test p->infd > 0
Richard M. Stallman <rms@gnu.org>
parents: 16464
diff changeset
3641 && read_process_output (proc, XINT (p->infd)) > 0);
12215
2f1f03964f08 (status_notify): Undo May 18 change.
Richard M. Stallman <rms@gnu.org>
parents: 12132
diff changeset
3642
2f1f03964f08 (status_notify): Undo May 18 change.
Richard M. Stallman <rms@gnu.org>
parents: 12132
diff changeset
3643 buffer = p->buffer;
2f1f03964f08 (status_notify): Undo May 18 change.
Richard M. Stallman <rms@gnu.org>
parents: 12132
diff changeset
3644
2f1f03964f08 (status_notify): Undo May 18 change.
Richard M. Stallman <rms@gnu.org>
parents: 12132
diff changeset
3645 /* Get the text to use for the message. */
2f1f03964f08 (status_notify): Undo May 18 change.
Richard M. Stallman <rms@gnu.org>
parents: 12132
diff changeset
3646 if (!NILP (p->raw_status_low))
2f1f03964f08 (status_notify): Undo May 18 change.
Richard M. Stallman <rms@gnu.org>
parents: 12132
diff changeset
3647 update_status (p);
2f1f03964f08 (status_notify): Undo May 18 change.
Richard M. Stallman <rms@gnu.org>
parents: 12132
diff changeset
3648 msg = status_message (p->status);
2f1f03964f08 (status_notify): Undo May 18 change.
Richard M. Stallman <rms@gnu.org>
parents: 12132
diff changeset
3649
2f1f03964f08 (status_notify): Undo May 18 change.
Richard M. Stallman <rms@gnu.org>
parents: 12132
diff changeset
3650 /* If process is terminated, deactivate it or delete it. */
2f1f03964f08 (status_notify): Undo May 18 change.
Richard M. Stallman <rms@gnu.org>
parents: 12132
diff changeset
3651 symbol = p->status;
2f1f03964f08 (status_notify): Undo May 18 change.
Richard M. Stallman <rms@gnu.org>
parents: 12132
diff changeset
3652 if (CONSP (p->status))
2f1f03964f08 (status_notify): Undo May 18 change.
Richard M. Stallman <rms@gnu.org>
parents: 12132
diff changeset
3653 symbol = XCONS (p->status)->car;
2f1f03964f08 (status_notify): Undo May 18 change.
Richard M. Stallman <rms@gnu.org>
parents: 12132
diff changeset
3654
2f1f03964f08 (status_notify): Undo May 18 change.
Richard M. Stallman <rms@gnu.org>
parents: 12132
diff changeset
3655 if (EQ (symbol, Qsignal) || EQ (symbol, Qexit)
2f1f03964f08 (status_notify): Undo May 18 change.
Richard M. Stallman <rms@gnu.org>
parents: 12132
diff changeset
3656 || EQ (symbol, Qclosed))
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3657 {
12215
2f1f03964f08 (status_notify): Undo May 18 change.
Richard M. Stallman <rms@gnu.org>
parents: 12132
diff changeset
3658 if (delete_exited_processes)
2f1f03964f08 (status_notify): Undo May 18 change.
Richard M. Stallman <rms@gnu.org>
parents: 12132
diff changeset
3659 remove_process (proc);
2f1f03964f08 (status_notify): Undo May 18 change.
Richard M. Stallman <rms@gnu.org>
parents: 12132
diff changeset
3660 else
2f1f03964f08 (status_notify): Undo May 18 change.
Richard M. Stallman <rms@gnu.org>
parents: 12132
diff changeset
3661 deactivate_process (proc);
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3662 }
12215
2f1f03964f08 (status_notify): Undo May 18 change.
Richard M. Stallman <rms@gnu.org>
parents: 12132
diff changeset
3663
16464
c1f19d8e5b80 (status_notify): Update p->tick again
Richard M. Stallman <rms@gnu.org>
parents: 16220
diff changeset
3664 /* The actions above may have further incremented p->tick.
c1f19d8e5b80 (status_notify): Update p->tick again
Richard M. Stallman <rms@gnu.org>
parents: 16220
diff changeset
3665 So set p->update_tick again
c1f19d8e5b80 (status_notify): Update p->tick again
Richard M. Stallman <rms@gnu.org>
parents: 16220
diff changeset
3666 so that an error in the sentinel will not cause
c1f19d8e5b80 (status_notify): Update p->tick again
Richard M. Stallman <rms@gnu.org>
parents: 16220
diff changeset
3667 this code to be run again. */
c1f19d8e5b80 (status_notify): Update p->tick again
Richard M. Stallman <rms@gnu.org>
parents: 16220
diff changeset
3668 XSETINT (p->update_tick, XINT (p->tick));
12215
2f1f03964f08 (status_notify): Undo May 18 change.
Richard M. Stallman <rms@gnu.org>
parents: 12132
diff changeset
3669 /* Now output the message suitably. */
2f1f03964f08 (status_notify): Undo May 18 change.
Richard M. Stallman <rms@gnu.org>
parents: 12132
diff changeset
3670 if (!NILP (p->sentinel))
2f1f03964f08 (status_notify): Undo May 18 change.
Richard M. Stallman <rms@gnu.org>
parents: 12132
diff changeset
3671 exec_sentinel (proc, msg);
2f1f03964f08 (status_notify): Undo May 18 change.
Richard M. Stallman <rms@gnu.org>
parents: 12132
diff changeset
3672 /* Don't bother with a message in the buffer
2f1f03964f08 (status_notify): Undo May 18 change.
Richard M. Stallman <rms@gnu.org>
parents: 12132
diff changeset
3673 when a process becomes runnable. */
2f1f03964f08 (status_notify): Undo May 18 change.
Richard M. Stallman <rms@gnu.org>
parents: 12132
diff changeset
3674 else if (!EQ (symbol, Qrun) && !NILP (buffer))
2f1f03964f08 (status_notify): Undo May 18 change.
Richard M. Stallman <rms@gnu.org>
parents: 12132
diff changeset
3675 {
2f1f03964f08 (status_notify): Undo May 18 change.
Richard M. Stallman <rms@gnu.org>
parents: 12132
diff changeset
3676 Lisp_Object ro, tem;
2f1f03964f08 (status_notify): Undo May 18 change.
Richard M. Stallman <rms@gnu.org>
parents: 12132
diff changeset
3677 struct buffer *old = current_buffer;
2f1f03964f08 (status_notify): Undo May 18 change.
Richard M. Stallman <rms@gnu.org>
parents: 12132
diff changeset
3678 int opoint;
2f1f03964f08 (status_notify): Undo May 18 change.
Richard M. Stallman <rms@gnu.org>
parents: 12132
diff changeset
3679
2f1f03964f08 (status_notify): Undo May 18 change.
Richard M. Stallman <rms@gnu.org>
parents: 12132
diff changeset
3680 ro = XBUFFER (buffer)->read_only;
2f1f03964f08 (status_notify): Undo May 18 change.
Richard M. Stallman <rms@gnu.org>
parents: 12132
diff changeset
3681
2f1f03964f08 (status_notify): Undo May 18 change.
Richard M. Stallman <rms@gnu.org>
parents: 12132
diff changeset
3682 /* Avoid error if buffer is deleted
2f1f03964f08 (status_notify): Undo May 18 change.
Richard M. Stallman <rms@gnu.org>
parents: 12132
diff changeset
3683 (probably that's why the process is dead, too) */
2f1f03964f08 (status_notify): Undo May 18 change.
Richard M. Stallman <rms@gnu.org>
parents: 12132
diff changeset
3684 if (NILP (XBUFFER (buffer)->name))
2f1f03964f08 (status_notify): Undo May 18 change.
Richard M. Stallman <rms@gnu.org>
parents: 12132
diff changeset
3685 continue;
2f1f03964f08 (status_notify): Undo May 18 change.
Richard M. Stallman <rms@gnu.org>
parents: 12132
diff changeset
3686 Fset_buffer (buffer);
16039
855c8d8ba0f0 Change all references from point to PT.
Karl Heuer <kwzh@gnu.org>
parents: 15895
diff changeset
3687 opoint = PT;
12215
2f1f03964f08 (status_notify): Undo May 18 change.
Richard M. Stallman <rms@gnu.org>
parents: 12132
diff changeset
3688 /* Insert new output into buffer
2f1f03964f08 (status_notify): Undo May 18 change.
Richard M. Stallman <rms@gnu.org>
parents: 12132
diff changeset
3689 at the current end-of-output marker,
2f1f03964f08 (status_notify): Undo May 18 change.
Richard M. Stallman <rms@gnu.org>
parents: 12132
diff changeset
3690 thus preserving logical ordering of input and output. */
2f1f03964f08 (status_notify): Undo May 18 change.
Richard M. Stallman <rms@gnu.org>
parents: 12132
diff changeset
3691 if (XMARKER (p->mark)->buffer)
2f1f03964f08 (status_notify): Undo May 18 change.
Richard M. Stallman <rms@gnu.org>
parents: 12132
diff changeset
3692 SET_PT (marker_position (p->mark));
2f1f03964f08 (status_notify): Undo May 18 change.
Richard M. Stallman <rms@gnu.org>
parents: 12132
diff changeset
3693 else
2f1f03964f08 (status_notify): Undo May 18 change.
Richard M. Stallman <rms@gnu.org>
parents: 12132
diff changeset
3694 SET_PT (ZV);
16039
855c8d8ba0f0 Change all references from point to PT.
Karl Heuer <kwzh@gnu.org>
parents: 15895
diff changeset
3695 if (PT <= opoint)
12215
2f1f03964f08 (status_notify): Undo May 18 change.
Richard M. Stallman <rms@gnu.org>
parents: 12132
diff changeset
3696 opoint += XSTRING (msg)->size + XSTRING (p->name)->size + 10;
2f1f03964f08 (status_notify): Undo May 18 change.
Richard M. Stallman <rms@gnu.org>
parents: 12132
diff changeset
3697
2f1f03964f08 (status_notify): Undo May 18 change.
Richard M. Stallman <rms@gnu.org>
parents: 12132
diff changeset
3698 tem = current_buffer->read_only;
2f1f03964f08 (status_notify): Undo May 18 change.
Richard M. Stallman <rms@gnu.org>
parents: 12132
diff changeset
3699 current_buffer->read_only = Qnil;
2f1f03964f08 (status_notify): Undo May 18 change.
Richard M. Stallman <rms@gnu.org>
parents: 12132
diff changeset
3700 insert_string ("\nProcess ");
2f1f03964f08 (status_notify): Undo May 18 change.
Richard M. Stallman <rms@gnu.org>
parents: 12132
diff changeset
3701 Finsert (1, &p->name);
2f1f03964f08 (status_notify): Undo May 18 change.
Richard M. Stallman <rms@gnu.org>
parents: 12132
diff changeset
3702 insert_string (" ");
2f1f03964f08 (status_notify): Undo May 18 change.
Richard M. Stallman <rms@gnu.org>
parents: 12132
diff changeset
3703 Finsert (1, &msg);
2f1f03964f08 (status_notify): Undo May 18 change.
Richard M. Stallman <rms@gnu.org>
parents: 12132
diff changeset
3704 current_buffer->read_only = tem;
16039
855c8d8ba0f0 Change all references from point to PT.
Karl Heuer <kwzh@gnu.org>
parents: 15895
diff changeset
3705 Fset_marker (p->mark, make_number (PT), p->buffer);
12215
2f1f03964f08 (status_notify): Undo May 18 change.
Richard M. Stallman <rms@gnu.org>
parents: 12132
diff changeset
3706
2f1f03964f08 (status_notify): Undo May 18 change.
Richard M. Stallman <rms@gnu.org>
parents: 12132
diff changeset
3707 SET_PT (opoint);
2f1f03964f08 (status_notify): Undo May 18 change.
Richard M. Stallman <rms@gnu.org>
parents: 12132
diff changeset
3708 set_buffer_internal (old);
2f1f03964f08 (status_notify): Undo May 18 change.
Richard M. Stallman <rms@gnu.org>
parents: 12132
diff changeset
3709 }
2f1f03964f08 (status_notify): Undo May 18 change.
Richard M. Stallman <rms@gnu.org>
parents: 12132
diff changeset
3710 }
2f1f03964f08 (status_notify): Undo May 18 change.
Richard M. Stallman <rms@gnu.org>
parents: 12132
diff changeset
3711 } /* end for */
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3712
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3713 update_mode_lines++; /* in case buffers use %s in mode-line-format */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3714 redisplay_preserve_echo_area ();
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3715
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3716 UNGCPRO;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3717 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3718
9686
cd788aa8cb2a Handle multiple keyboard input descriptors.
Richard M. Stallman <rms@gnu.org>
parents: 9334
diff changeset
3719 /* The first time this is called, assume keyboard input comes from DESC
cd788aa8cb2a Handle multiple keyboard input descriptors.
Richard M. Stallman <rms@gnu.org>
parents: 9334
diff changeset
3720 instead of from where we used to expect it.
cd788aa8cb2a Handle multiple keyboard input descriptors.
Richard M. Stallman <rms@gnu.org>
parents: 9334
diff changeset
3721 Subsequent calls mean assume input keyboard can come from DESC
cd788aa8cb2a Handle multiple keyboard input descriptors.
Richard M. Stallman <rms@gnu.org>
parents: 9334
diff changeset
3722 in addition to other places. */
cd788aa8cb2a Handle multiple keyboard input descriptors.
Richard M. Stallman <rms@gnu.org>
parents: 9334
diff changeset
3723
cd788aa8cb2a Handle multiple keyboard input descriptors.
Richard M. Stallman <rms@gnu.org>
parents: 9334
diff changeset
3724 static int add_keyboard_wait_descriptor_called_flag;
cd788aa8cb2a Handle multiple keyboard input descriptors.
Richard M. Stallman <rms@gnu.org>
parents: 9334
diff changeset
3725
cd788aa8cb2a Handle multiple keyboard input descriptors.
Richard M. Stallman <rms@gnu.org>
parents: 9334
diff changeset
3726 void
cd788aa8cb2a Handle multiple keyboard input descriptors.
Richard M. Stallman <rms@gnu.org>
parents: 9334
diff changeset
3727 add_keyboard_wait_descriptor (desc)
cd788aa8cb2a Handle multiple keyboard input descriptors.
Richard M. Stallman <rms@gnu.org>
parents: 9334
diff changeset
3728 int desc;
cd788aa8cb2a Handle multiple keyboard input descriptors.
Richard M. Stallman <rms@gnu.org>
parents: 9334
diff changeset
3729 {
cd788aa8cb2a Handle multiple keyboard input descriptors.
Richard M. Stallman <rms@gnu.org>
parents: 9334
diff changeset
3730 if (! add_keyboard_wait_descriptor_called_flag)
cd788aa8cb2a Handle multiple keyboard input descriptors.
Richard M. Stallman <rms@gnu.org>
parents: 9334
diff changeset
3731 FD_CLR (0, &input_wait_mask);
cd788aa8cb2a Handle multiple keyboard input descriptors.
Richard M. Stallman <rms@gnu.org>
parents: 9334
diff changeset
3732 add_keyboard_wait_descriptor_called_flag = 1;
cd788aa8cb2a Handle multiple keyboard input descriptors.
Richard M. Stallman <rms@gnu.org>
parents: 9334
diff changeset
3733 FD_SET (desc, &input_wait_mask);
cd788aa8cb2a Handle multiple keyboard input descriptors.
Richard M. Stallman <rms@gnu.org>
parents: 9334
diff changeset
3734 if (desc > max_keyboard_desc)
cd788aa8cb2a Handle multiple keyboard input descriptors.
Richard M. Stallman <rms@gnu.org>
parents: 9334
diff changeset
3735 max_keyboard_desc = desc;
cd788aa8cb2a Handle multiple keyboard input descriptors.
Richard M. Stallman <rms@gnu.org>
parents: 9334
diff changeset
3736 }
cd788aa8cb2a Handle multiple keyboard input descriptors.
Richard M. Stallman <rms@gnu.org>
parents: 9334
diff changeset
3737
cd788aa8cb2a Handle multiple keyboard input descriptors.
Richard M. Stallman <rms@gnu.org>
parents: 9334
diff changeset
3738 /* From now on, do not expect DESC to give keyboard input. */
cd788aa8cb2a Handle multiple keyboard input descriptors.
Richard M. Stallman <rms@gnu.org>
parents: 9334
diff changeset
3739
cd788aa8cb2a Handle multiple keyboard input descriptors.
Richard M. Stallman <rms@gnu.org>
parents: 9334
diff changeset
3740 void
cd788aa8cb2a Handle multiple keyboard input descriptors.
Richard M. Stallman <rms@gnu.org>
parents: 9334
diff changeset
3741 delete_keyboard_wait_descriptor (desc)
cd788aa8cb2a Handle multiple keyboard input descriptors.
Richard M. Stallman <rms@gnu.org>
parents: 9334
diff changeset
3742 int desc;
cd788aa8cb2a Handle multiple keyboard input descriptors.
Richard M. Stallman <rms@gnu.org>
parents: 9334
diff changeset
3743 {
cd788aa8cb2a Handle multiple keyboard input descriptors.
Richard M. Stallman <rms@gnu.org>
parents: 9334
diff changeset
3744 int fd;
cd788aa8cb2a Handle multiple keyboard input descriptors.
Richard M. Stallman <rms@gnu.org>
parents: 9334
diff changeset
3745 int lim = max_keyboard_desc;
cd788aa8cb2a Handle multiple keyboard input descriptors.
Richard M. Stallman <rms@gnu.org>
parents: 9334
diff changeset
3746
cd788aa8cb2a Handle multiple keyboard input descriptors.
Richard M. Stallman <rms@gnu.org>
parents: 9334
diff changeset
3747 FD_CLR (desc, &input_wait_mask);
cd788aa8cb2a Handle multiple keyboard input descriptors.
Richard M. Stallman <rms@gnu.org>
parents: 9334
diff changeset
3748
cd788aa8cb2a Handle multiple keyboard input descriptors.
Richard M. Stallman <rms@gnu.org>
parents: 9334
diff changeset
3749 if (desc == max_keyboard_desc)
cd788aa8cb2a Handle multiple keyboard input descriptors.
Richard M. Stallman <rms@gnu.org>
parents: 9334
diff changeset
3750 for (fd = 0; fd < lim; fd++)
cd788aa8cb2a Handle multiple keyboard input descriptors.
Richard M. Stallman <rms@gnu.org>
parents: 9334
diff changeset
3751 if (FD_ISSET (fd, &input_wait_mask)
cd788aa8cb2a Handle multiple keyboard input descriptors.
Richard M. Stallman <rms@gnu.org>
parents: 9334
diff changeset
3752 && !FD_ISSET (fd, &non_keyboard_wait_mask))
cd788aa8cb2a Handle multiple keyboard input descriptors.
Richard M. Stallman <rms@gnu.org>
parents: 9334
diff changeset
3753 max_keyboard_desc = fd;
cd788aa8cb2a Handle multiple keyboard input descriptors.
Richard M. Stallman <rms@gnu.org>
parents: 9334
diff changeset
3754 }
cd788aa8cb2a Handle multiple keyboard input descriptors.
Richard M. Stallman <rms@gnu.org>
parents: 9334
diff changeset
3755
cd788aa8cb2a Handle multiple keyboard input descriptors.
Richard M. Stallman <rms@gnu.org>
parents: 9334
diff changeset
3756 /* Return nonzero if *MASK has a bit set
cd788aa8cb2a Handle multiple keyboard input descriptors.
Richard M. Stallman <rms@gnu.org>
parents: 9334
diff changeset
3757 that corresponds to one of the keyboard input descriptors. */
cd788aa8cb2a Handle multiple keyboard input descriptors.
Richard M. Stallman <rms@gnu.org>
parents: 9334
diff changeset
3758
cd788aa8cb2a Handle multiple keyboard input descriptors.
Richard M. Stallman <rms@gnu.org>
parents: 9334
diff changeset
3759 int
cd788aa8cb2a Handle multiple keyboard input descriptors.
Richard M. Stallman <rms@gnu.org>
parents: 9334
diff changeset
3760 keyboard_bit_set (mask)
cd788aa8cb2a Handle multiple keyboard input descriptors.
Richard M. Stallman <rms@gnu.org>
parents: 9334
diff changeset
3761 SELECT_TYPE *mask;
cd788aa8cb2a Handle multiple keyboard input descriptors.
Richard M. Stallman <rms@gnu.org>
parents: 9334
diff changeset
3762 {
cd788aa8cb2a Handle multiple keyboard input descriptors.
Richard M. Stallman <rms@gnu.org>
parents: 9334
diff changeset
3763 int fd;
cd788aa8cb2a Handle multiple keyboard input descriptors.
Richard M. Stallman <rms@gnu.org>
parents: 9334
diff changeset
3764
12541
33a4586124e9 (keyboard_bit_set): Fix one-off in loop end.
Karl Heuer <kwzh@gnu.org>
parents: 12491
diff changeset
3765 for (fd = 0; fd <= max_keyboard_desc; fd++)
9686
cd788aa8cb2a Handle multiple keyboard input descriptors.
Richard M. Stallman <rms@gnu.org>
parents: 9334
diff changeset
3766 if (FD_ISSET (fd, mask) && FD_ISSET (fd, &input_wait_mask)
cd788aa8cb2a Handle multiple keyboard input descriptors.
Richard M. Stallman <rms@gnu.org>
parents: 9334
diff changeset
3767 && !FD_ISSET (fd, &non_keyboard_wait_mask))
cd788aa8cb2a Handle multiple keyboard input descriptors.
Richard M. Stallman <rms@gnu.org>
parents: 9334
diff changeset
3768 return 1;
cd788aa8cb2a Handle multiple keyboard input descriptors.
Richard M. Stallman <rms@gnu.org>
parents: 9334
diff changeset
3769
cd788aa8cb2a Handle multiple keyboard input descriptors.
Richard M. Stallman <rms@gnu.org>
parents: 9334
diff changeset
3770 return 0;
cd788aa8cb2a Handle multiple keyboard input descriptors.
Richard M. Stallman <rms@gnu.org>
parents: 9334
diff changeset
3771 }
cd788aa8cb2a Handle multiple keyboard input descriptors.
Richard M. Stallman <rms@gnu.org>
parents: 9334
diff changeset
3772
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3773 init_process ()
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3774 {
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3775 register int i;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3776
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3777 #ifdef SIGCHLD
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3778 #ifndef CANNOT_DUMP
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3779 if (! noninteractive || initialized)
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3780 #endif
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3781 signal (SIGCHLD, sigchld_handler);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3782 #endif
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3783
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3784 FD_ZERO (&input_wait_mask);
9686
cd788aa8cb2a Handle multiple keyboard input descriptors.
Richard M. Stallman <rms@gnu.org>
parents: 9334
diff changeset
3785 FD_ZERO (&non_keyboard_wait_mask);
7044
7032d07f5ad9 (max_process_desc): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 7013
diff changeset
3786 max_process_desc = 0;
4682
c4d471244116 (keyboard_descriptor): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 4639
diff changeset
3787
9686
cd788aa8cb2a Handle multiple keyboard input descriptors.
Richard M. Stallman <rms@gnu.org>
parents: 9334
diff changeset
3788 FD_SET (0, &input_wait_mask);
4682
c4d471244116 (keyboard_descriptor): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 4639
diff changeset
3789
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3790 Vprocess_alist = Qnil;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3791 for (i = 0; i < MAXDESC; i++)
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3792 {
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3793 chan_process[i] = Qnil;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3794 proc_buffered_char[i] = -1;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3795 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3796 }
4231
91a883c56382 (Fget_buffer_process): Delete doc string from
Richard M. Stallman <rms@gnu.org>
parents: 4057
diff changeset
3797
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3798 syms_of_process ()
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3799 {
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3800 Qprocessp = intern ("processp");
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3801 staticpro (&Qprocessp);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3802 Qrun = intern ("run");
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3803 staticpro (&Qrun);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3804 Qstop = intern ("stop");
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3805 staticpro (&Qstop);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3806 Qsignal = intern ("signal");
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3807 staticpro (&Qsignal);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3808
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3809 /* Qexit is already staticpro'd by syms_of_eval; don't staticpro it
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3810 here again.
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3811
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3812 Qexit = intern ("exit");
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3813 staticpro (&Qexit); */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3814
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3815 Qopen = intern ("open");
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3816 staticpro (&Qopen);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3817 Qclosed = intern ("closed");
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3818 staticpro (&Qclosed);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3819
8231
5226ed89c1a6 (Qlast_nonmenu_event): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 8063
diff changeset
3820 Qlast_nonmenu_event = intern ("last-nonmenu-event");
5226ed89c1a6 (Qlast_nonmenu_event): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 8063
diff changeset
3821 staticpro (&Qlast_nonmenu_event);
5226ed89c1a6 (Qlast_nonmenu_event): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 8063
diff changeset
3822
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3823 staticpro (&Vprocess_alist);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3824
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3825 DEFVAR_BOOL ("delete-exited-processes", &delete_exited_processes,
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3826 "*Non-nil means delete processes immediately when they exit.\n\
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3827 nil means don't delete them until `list-processes' is run.");
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3828
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3829 delete_exited_processes = 1;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3830
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3831 DEFVAR_LISP ("process-connection-type", &Vprocess_connection_type,
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3832 "Control type of device used to communicate with subprocesses.\n\
7220
a33eb16cab9d (Fopen_network_stream): Retry the connect if EADDRINUSE. Ignore EISCONN.
Richard M. Stallman <rms@gnu.org>
parents: 7157
diff changeset
3833 Values are nil to use a pipe, or t or `pty' to use a pty.\n\
a33eb16cab9d (Fopen_network_stream): Retry the connect if EADDRINUSE. Ignore EISCONN.
Richard M. Stallman <rms@gnu.org>
parents: 7157
diff changeset
3834 The value has no effect if the system has no ptys or if all ptys are busy:\n\
a33eb16cab9d (Fopen_network_stream): Retry the connect if EADDRINUSE. Ignore EISCONN.
Richard M. Stallman <rms@gnu.org>
parents: 7157
diff changeset
3835 then a pipe is used in any case.\n\
a33eb16cab9d (Fopen_network_stream): Retry the connect if EADDRINUSE. Ignore EISCONN.
Richard M. Stallman <rms@gnu.org>
parents: 7157
diff changeset
3836 The value takes effect when `start-process' is called.");
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3837 Vprocess_connection_type = Qt;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3838
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3839 defsubr (&Sprocessp);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3840 defsubr (&Sget_process);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3841 defsubr (&Sget_buffer_process);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3842 defsubr (&Sdelete_process);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3843 defsubr (&Sprocess_status);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3844 defsubr (&Sprocess_exit_status);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3845 defsubr (&Sprocess_id);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3846 defsubr (&Sprocess_name);
9030
b14532c71632 (exec_sentinel_error_handler): New function.
Richard M. Stallman <rms@gnu.org>
parents: 8570
diff changeset
3847 defsubr (&Sprocess_tty_name);
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3848 defsubr (&Sprocess_command);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3849 defsubr (&Sset_process_buffer);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3850 defsubr (&Sprocess_buffer);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3851 defsubr (&Sprocess_mark);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3852 defsubr (&Sset_process_filter);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3853 defsubr (&Sprocess_filter);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3854 defsubr (&Sset_process_sentinel);
16058
924aeb9ed7c3 (Fprocess_contact): New function.
Richard M. Stallman <rms@gnu.org>
parents: 16053
diff changeset
3855 defsubr (&Sprocess_sentinel);
6830
bcaddbe53068 (Fset_process_window_size): New function.
Richard M. Stallman <rms@gnu.org>
parents: 6823
diff changeset
3856 defsubr (&Sset_process_window_size);
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3857 defsubr (&Sprocess_kill_without_query);
16058
924aeb9ed7c3 (Fprocess_contact): New function.
Richard M. Stallman <rms@gnu.org>
parents: 16053
diff changeset
3858 defsubr (&Sprocess_contact);
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3859 defsubr (&Slist_processes);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3860 defsubr (&Sprocess_list);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3861 defsubr (&Sstart_process);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3862 #ifdef HAVE_SOCKETS
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3863 defsubr (&Sopen_network_stream);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3864 #endif /* HAVE_SOCKETS */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3865 defsubr (&Saccept_process_output);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3866 defsubr (&Sprocess_send_region);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3867 defsubr (&Sprocess_send_string);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3868 defsubr (&Sinterrupt_process);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3869 defsubr (&Skill_process);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3870 defsubr (&Squit_process);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3871 defsubr (&Sstop_process);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3872 defsubr (&Scontinue_process);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3873 defsubr (&Sprocess_send_eof);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3874 defsubr (&Ssignal_process);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3875 defsubr (&Swaiting_for_user_input_p);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3876 /* defsubr (&Sprocess_connection); */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3877 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3878
588
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
3879
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
3880 #else /* not subprocesses */
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
3881
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
3882 #include <sys/types.h>
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
3883 #include <errno.h>
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
3884
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
3885 #include "lisp.h"
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
3886 #include "systime.h"
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
3887 #include "termopts.h"
12132
017f32786ed3 [!subprocesses]: Include sysselect.h.
Karl Heuer <kwzh@gnu.org>
parents: 11926
diff changeset
3888 #include "sysselect.h"
588
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
3889
765
e4093444f9f8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 692
diff changeset
3890 extern int frame_garbaged;
588
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
3891
14806
232b90ad50e8 (wait_reading_process_input) [! subprocesses]: Run
Karl Heuer <kwzh@gnu.org>
parents: 14802
diff changeset
3892 extern EMACS_TIME timer_check ();
232b90ad50e8 (wait_reading_process_input) [! subprocesses]: Run
Karl Heuer <kwzh@gnu.org>
parents: 14802
diff changeset
3893 extern int timers_run;
588
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
3894
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
3895 /* As described above, except assuming that there are no subprocesses:
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
3896
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
3897 Wait for timeout to elapse and/or keyboard input to be available.
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
3898
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
3899 time_limit is:
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
3900 timeout in seconds, or
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
3901 zero for no limit, or
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
3902 -1 means gobble data immediately available but don't wait for any.
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
3903
650
39f0e62a8511 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 648
diff changeset
3904 read_kbd is a Lisp_Object:
588
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
3905 0 to ignore keyboard input, or
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
3906 1 to return when input is available, or
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
3907 -1 means caller will actually read the input, so don't throw to
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
3908 the quit handler.
15021
af36df262fc5 (wait_reading_process_input) [!subprocesses]: Handle
Richard M. Stallman <rms@gnu.org>
parents: 14998
diff changeset
3909 a cons cell, meaning wait until its car is non-nil
af36df262fc5 (wait_reading_process_input) [!subprocesses]: Handle
Richard M. Stallman <rms@gnu.org>
parents: 14998
diff changeset
3910 (and gobble terminal input into the buffer if any arrives), or
588
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
3911 We know that read_kbd will never be a Lisp_Process, since
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
3912 `subprocesses' isn't defined.
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
3913
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
3914 do_display != 0 means redisplay should be done to show subprocess
6429
1dbe24a029fd (wait_reading_process_input, both versions): Don't call
Richard M. Stallman <rms@gnu.org>
parents: 6393
diff changeset
3915 output that arrives.
588
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
3916
3591
507f64624555 Apply typo patches from Paul Eggert.
Jim Blandy <jimb@redhat.com>
parents: 3510
diff changeset
3917 Return true iff we received input from any process. */
588
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
3918
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
3919 int
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
3920 wait_reading_process_input (time_limit, microsecs, read_kbd, do_display)
650
39f0e62a8511 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 648
diff changeset
3921 int time_limit, microsecs;
39f0e62a8511 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 648
diff changeset
3922 Lisp_Object read_kbd;
39f0e62a8511 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 648
diff changeset
3923 int do_display;
588
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
3924 {
14806
232b90ad50e8 (wait_reading_process_input) [! subprocesses]: Run
Karl Heuer <kwzh@gnu.org>
parents: 14802
diff changeset
3925 EMACS_TIME end_time, timeout;
14278
3562c5f43780 (wait_reading_process_input) [not subprocesses]: Do
Karl Heuer <kwzh@gnu.org>
parents: 14186
diff changeset
3926 SELECT_TYPE waitchannels;
14806
232b90ad50e8 (wait_reading_process_input) [! subprocesses]: Run
Karl Heuer <kwzh@gnu.org>
parents: 14802
diff changeset
3927 int xerrno;
15021
af36df262fc5 (wait_reading_process_input) [!subprocesses]: Handle
Richard M. Stallman <rms@gnu.org>
parents: 14998
diff changeset
3928 Lisp_Object *wait_for_cell = 0;
af36df262fc5 (wait_reading_process_input) [!subprocesses]: Handle
Richard M. Stallman <rms@gnu.org>
parents: 14998
diff changeset
3929
af36df262fc5 (wait_reading_process_input) [!subprocesses]: Handle
Richard M. Stallman <rms@gnu.org>
parents: 14998
diff changeset
3930 /* If waiting for non-nil in a cell, record where. */
af36df262fc5 (wait_reading_process_input) [!subprocesses]: Handle
Richard M. Stallman <rms@gnu.org>
parents: 14998
diff changeset
3931 if (CONSP (read_kbd))
af36df262fc5 (wait_reading_process_input) [!subprocesses]: Handle
Richard M. Stallman <rms@gnu.org>
parents: 14998
diff changeset
3932 {
af36df262fc5 (wait_reading_process_input) [!subprocesses]: Handle
Richard M. Stallman <rms@gnu.org>
parents: 14998
diff changeset
3933 wait_for_cell = &XCONS (read_kbd)->car;
af36df262fc5 (wait_reading_process_input) [!subprocesses]: Handle
Richard M. Stallman <rms@gnu.org>
parents: 14998
diff changeset
3934 XSETFASTINT (read_kbd, 0);
af36df262fc5 (wait_reading_process_input) [!subprocesses]: Handle
Richard M. Stallman <rms@gnu.org>
parents: 14998
diff changeset
3935 }
588
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
3936
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
3937 /* What does time_limit really mean? */
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
3938 if (time_limit || microsecs)
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
3939 {
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
3940 if (time_limit == -1)
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
3941 /* In fact, it's zero. */
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
3942 EMACS_SET_SECS_USECS (timeout, 0, 0);
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
3943 else
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
3944 EMACS_SET_SECS_USECS (timeout, time_limit, microsecs);
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
3945
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
3946 /* How far in the future is that? */
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
3947 EMACS_GET_TIME (end_time);
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
3948 EMACS_ADD_TIME (end_time, end_time, timeout);
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
3949 }
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
3950 else
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
3951 /* It's infinite. */
14806
232b90ad50e8 (wait_reading_process_input) [! subprocesses]: Run
Karl Heuer <kwzh@gnu.org>
parents: 14802
diff changeset
3952 EMACS_SET_SECS_USECS (timeout, 100000, 0);
588
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
3953
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
3954 /* Turn off periodic alarms (in case they are in use)
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
3955 because the select emulator uses alarms. */
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
3956 stop_polling ();
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
3957
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
3958 for (;;)
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
3959 {
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
3960 int nfds;
14802
45827a5afe4d [!subprocesses] (wait_reading_process_input):
Richard M. Stallman <rms@gnu.org>
parents: 14785
diff changeset
3961 int timeout_reduced_for_timers = 0;
588
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
3962
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
3963 /* If calling from keyboard input, do not quit
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
3964 since we want to return C-g as an input character.
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
3965 Otherwise, do pending quit if requested. */
650
39f0e62a8511 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 648
diff changeset
3966 if (XINT (read_kbd) >= 0)
588
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
3967 QUIT;
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
3968
15021
af36df262fc5 (wait_reading_process_input) [!subprocesses]: Handle
Richard M. Stallman <rms@gnu.org>
parents: 14998
diff changeset
3969 /* Exit now if the cell we're waiting for became non-nil. */
af36df262fc5 (wait_reading_process_input) [!subprocesses]: Handle
Richard M. Stallman <rms@gnu.org>
parents: 14998
diff changeset
3970 if (wait_for_cell && ! NILP (*wait_for_cell))
af36df262fc5 (wait_reading_process_input) [!subprocesses]: Handle
Richard M. Stallman <rms@gnu.org>
parents: 14998
diff changeset
3971 break;
af36df262fc5 (wait_reading_process_input) [!subprocesses]: Handle
Richard M. Stallman <rms@gnu.org>
parents: 14998
diff changeset
3972
14802
45827a5afe4d [!subprocesses] (wait_reading_process_input):
Richard M. Stallman <rms@gnu.org>
parents: 14785
diff changeset
3973 /* Compute time from now till when time limit is up */
45827a5afe4d [!subprocesses] (wait_reading_process_input):
Richard M. Stallman <rms@gnu.org>
parents: 14785
diff changeset
3974 /* Exit if already run out */
14806
232b90ad50e8 (wait_reading_process_input) [! subprocesses]: Run
Karl Heuer <kwzh@gnu.org>
parents: 14802
diff changeset
3975 if (time_limit > 0 || microsecs)
588
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
3976 {
14806
232b90ad50e8 (wait_reading_process_input) [! subprocesses]: Run
Karl Heuer <kwzh@gnu.org>
parents: 14802
diff changeset
3977 EMACS_GET_TIME (timeout);
232b90ad50e8 (wait_reading_process_input) [! subprocesses]: Run
Karl Heuer <kwzh@gnu.org>
parents: 14802
diff changeset
3978 EMACS_SUB_TIME (timeout, end_time, timeout);
232b90ad50e8 (wait_reading_process_input) [! subprocesses]: Run
Karl Heuer <kwzh@gnu.org>
parents: 14802
diff changeset
3979 if (EMACS_TIME_NEG_P (timeout))
588
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
3980 break;
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
3981 }
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
3982
14802
45827a5afe4d [!subprocesses] (wait_reading_process_input):
Richard M. Stallman <rms@gnu.org>
parents: 14785
diff changeset
3983 /* If our caller will not immediately handle keyboard events,
45827a5afe4d [!subprocesses] (wait_reading_process_input):
Richard M. Stallman <rms@gnu.org>
parents: 14785
diff changeset
3984 run timer events directly.
45827a5afe4d [!subprocesses] (wait_reading_process_input):
Richard M. Stallman <rms@gnu.org>
parents: 14785
diff changeset
3985 (Callers that will immediately read keyboard events
45827a5afe4d [!subprocesses] (wait_reading_process_input):
Richard M. Stallman <rms@gnu.org>
parents: 14785
diff changeset
3986 call timer_delay on their own.) */
15064
fb0f2804c34a (wait_reading_process_input, both definitions):
Richard M. Stallman <rms@gnu.org>
parents: 15025
diff changeset
3987 if (! wait_for_cell)
14802
45827a5afe4d [!subprocesses] (wait_reading_process_input):
Richard M. Stallman <rms@gnu.org>
parents: 14785
diff changeset
3988 {
45827a5afe4d [!subprocesses] (wait_reading_process_input):
Richard M. Stallman <rms@gnu.org>
parents: 14785
diff changeset
3989 EMACS_TIME timer_delay;
15021
af36df262fc5 (wait_reading_process_input) [!subprocesses]: Handle
Richard M. Stallman <rms@gnu.org>
parents: 14998
diff changeset
3990 int old_timers_run;
af36df262fc5 (wait_reading_process_input) [!subprocesses]: Handle
Richard M. Stallman <rms@gnu.org>
parents: 14998
diff changeset
3991
af36df262fc5 (wait_reading_process_input) [!subprocesses]: Handle
Richard M. Stallman <rms@gnu.org>
parents: 14998
diff changeset
3992 retry:
af36df262fc5 (wait_reading_process_input) [!subprocesses]: Handle
Richard M. Stallman <rms@gnu.org>
parents: 14998
diff changeset
3993 old_timers_run = timers_run;
14802
45827a5afe4d [!subprocesses] (wait_reading_process_input):
Richard M. Stallman <rms@gnu.org>
parents: 14785
diff changeset
3994 timer_delay = timer_check (1);
45827a5afe4d [!subprocesses] (wait_reading_process_input):
Richard M. Stallman <rms@gnu.org>
parents: 14785
diff changeset
3995 if (timers_run != old_timers_run && do_display)
15021
af36df262fc5 (wait_reading_process_input) [!subprocesses]: Handle
Richard M. Stallman <rms@gnu.org>
parents: 14998
diff changeset
3996 {
af36df262fc5 (wait_reading_process_input) [!subprocesses]: Handle
Richard M. Stallman <rms@gnu.org>
parents: 14998
diff changeset
3997 redisplay_preserve_echo_area ();
af36df262fc5 (wait_reading_process_input) [!subprocesses]: Handle
Richard M. Stallman <rms@gnu.org>
parents: 14998
diff changeset
3998 /* We must retry, since a timer may have requeued itself
af36df262fc5 (wait_reading_process_input) [!subprocesses]: Handle
Richard M. Stallman <rms@gnu.org>
parents: 14998
diff changeset
3999 and that could alter the time delay. */
af36df262fc5 (wait_reading_process_input) [!subprocesses]: Handle
Richard M. Stallman <rms@gnu.org>
parents: 14998
diff changeset
4000 goto retry;
af36df262fc5 (wait_reading_process_input) [!subprocesses]: Handle
Richard M. Stallman <rms@gnu.org>
parents: 14998
diff changeset
4001 }
af36df262fc5 (wait_reading_process_input) [!subprocesses]: Handle
Richard M. Stallman <rms@gnu.org>
parents: 14998
diff changeset
4002
14806
232b90ad50e8 (wait_reading_process_input) [! subprocesses]: Run
Karl Heuer <kwzh@gnu.org>
parents: 14802
diff changeset
4003 if (! EMACS_TIME_NEG_P (timer_delay) && time_limit != -1)
14802
45827a5afe4d [!subprocesses] (wait_reading_process_input):
Richard M. Stallman <rms@gnu.org>
parents: 14785
diff changeset
4004 {
45827a5afe4d [!subprocesses] (wait_reading_process_input):
Richard M. Stallman <rms@gnu.org>
parents: 14785
diff changeset
4005 EMACS_TIME difference;
14806
232b90ad50e8 (wait_reading_process_input) [! subprocesses]: Run
Karl Heuer <kwzh@gnu.org>
parents: 14802
diff changeset
4006 EMACS_SUB_TIME (difference, timer_delay, timeout);
14802
45827a5afe4d [!subprocesses] (wait_reading_process_input):
Richard M. Stallman <rms@gnu.org>
parents: 14785
diff changeset
4007 if (EMACS_TIME_NEG_P (difference))
45827a5afe4d [!subprocesses] (wait_reading_process_input):
Richard M. Stallman <rms@gnu.org>
parents: 14785
diff changeset
4008 {
14806
232b90ad50e8 (wait_reading_process_input) [! subprocesses]: Run
Karl Heuer <kwzh@gnu.org>
parents: 14802
diff changeset
4009 timeout = timer_delay;
14802
45827a5afe4d [!subprocesses] (wait_reading_process_input):
Richard M. Stallman <rms@gnu.org>
parents: 14785
diff changeset
4010 timeout_reduced_for_timers = 1;
45827a5afe4d [!subprocesses] (wait_reading_process_input):
Richard M. Stallman <rms@gnu.org>
parents: 14785
diff changeset
4011 }
45827a5afe4d [!subprocesses] (wait_reading_process_input):
Richard M. Stallman <rms@gnu.org>
parents: 14785
diff changeset
4012 }
45827a5afe4d [!subprocesses] (wait_reading_process_input):
Richard M. Stallman <rms@gnu.org>
parents: 14785
diff changeset
4013 }
45827a5afe4d [!subprocesses] (wait_reading_process_input):
Richard M. Stallman <rms@gnu.org>
parents: 14785
diff changeset
4014
588
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
4015 /* Cause C-g and alarm signals to take immediate action,
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
4016 and cause input available signals to zero out timeout. */
650
39f0e62a8511 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 648
diff changeset
4017 if (XINT (read_kbd) < 0)
588
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
4018 set_waiting_for_input (&timeout);
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
4019
15021
af36df262fc5 (wait_reading_process_input) [!subprocesses]: Handle
Richard M. Stallman <rms@gnu.org>
parents: 14998
diff changeset
4020 /* Wait till there is something to do. */
af36df262fc5 (wait_reading_process_input) [!subprocesses]: Handle
Richard M. Stallman <rms@gnu.org>
parents: 14998
diff changeset
4021
af36df262fc5 (wait_reading_process_input) [!subprocesses]: Handle
Richard M. Stallman <rms@gnu.org>
parents: 14998
diff changeset
4022 if (! XINT (read_kbd) && wait_for_cell == 0)
af36df262fc5 (wait_reading_process_input) [!subprocesses]: Handle
Richard M. Stallman <rms@gnu.org>
parents: 14998
diff changeset
4023 FD_ZERO (&waitchannels);
af36df262fc5 (wait_reading_process_input) [!subprocesses]: Handle
Richard M. Stallman <rms@gnu.org>
parents: 14998
diff changeset
4024 else
af36df262fc5 (wait_reading_process_input) [!subprocesses]: Handle
Richard M. Stallman <rms@gnu.org>
parents: 14998
diff changeset
4025 FD_SET (0, &waitchannels);
af36df262fc5 (wait_reading_process_input) [!subprocesses]: Handle
Richard M. Stallman <rms@gnu.org>
parents: 14998
diff changeset
4026
765
e4093444f9f8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 692
diff changeset
4027 /* If a frame has been newly mapped and needs updating,
588
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
4028 reprocess its display stuff. */
6429
1dbe24a029fd (wait_reading_process_input, both versions): Don't call
Richard M. Stallman <rms@gnu.org>
parents: 6393
diff changeset
4029 if (frame_garbaged && do_display)
15021
af36df262fc5 (wait_reading_process_input) [!subprocesses]: Handle
Richard M. Stallman <rms@gnu.org>
parents: 14998
diff changeset
4030 {
af36df262fc5 (wait_reading_process_input) [!subprocesses]: Handle
Richard M. Stallman <rms@gnu.org>
parents: 14998
diff changeset
4031 clear_waiting_for_input ();
af36df262fc5 (wait_reading_process_input) [!subprocesses]: Handle
Richard M. Stallman <rms@gnu.org>
parents: 14998
diff changeset
4032 redisplay_preserve_echo_area ();
af36df262fc5 (wait_reading_process_input) [!subprocesses]: Handle
Richard M. Stallman <rms@gnu.org>
parents: 14998
diff changeset
4033 if (XINT (read_kbd) < 0)
af36df262fc5 (wait_reading_process_input) [!subprocesses]: Handle
Richard M. Stallman <rms@gnu.org>
parents: 14998
diff changeset
4034 set_waiting_for_input (&timeout);
af36df262fc5 (wait_reading_process_input) [!subprocesses]: Handle
Richard M. Stallman <rms@gnu.org>
parents: 14998
diff changeset
4035 }
588
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
4036
15025
e5f54fd1c352 (wait_reading_process_input) [!subprocesses]:
Richard M. Stallman <rms@gnu.org>
parents: 15021
diff changeset
4037 if (XINT (read_kbd) && detect_input_pending ())
e5f54fd1c352 (wait_reading_process_input) [!subprocesses]:
Richard M. Stallman <rms@gnu.org>
parents: 15021
diff changeset
4038 {
e5f54fd1c352 (wait_reading_process_input) [!subprocesses]:
Richard M. Stallman <rms@gnu.org>
parents: 15021
diff changeset
4039 nfds = 0;
e5f54fd1c352 (wait_reading_process_input) [!subprocesses]:
Richard M. Stallman <rms@gnu.org>
parents: 15021
diff changeset
4040 FD_ZERO (&waitchannels);
e5f54fd1c352 (wait_reading_process_input) [!subprocesses]:
Richard M. Stallman <rms@gnu.org>
parents: 15021
diff changeset
4041 }
e5f54fd1c352 (wait_reading_process_input) [!subprocesses]:
Richard M. Stallman <rms@gnu.org>
parents: 15021
diff changeset
4042 else
e5f54fd1c352 (wait_reading_process_input) [!subprocesses]:
Richard M. Stallman <rms@gnu.org>
parents: 15021
diff changeset
4043 nfds = select (1, &waitchannels, (SELECT_TYPE *)0, (SELECT_TYPE *)0,
e5f54fd1c352 (wait_reading_process_input) [!subprocesses]:
Richard M. Stallman <rms@gnu.org>
parents: 15021
diff changeset
4044 &timeout);
14806
232b90ad50e8 (wait_reading_process_input) [! subprocesses]: Run
Karl Heuer <kwzh@gnu.org>
parents: 14802
diff changeset
4045
232b90ad50e8 (wait_reading_process_input) [! subprocesses]: Run
Karl Heuer <kwzh@gnu.org>
parents: 14802
diff changeset
4046 xerrno = errno;
588
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
4047
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
4048 /* Make C-g and alarm signals set flags again */
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
4049 clear_waiting_for_input ();
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
4050
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
4051 /* If we woke up due to SIGWINCH, actually change size now. */
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
4052 do_pending_window_change ();
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
4053
14806
232b90ad50e8 (wait_reading_process_input) [! subprocesses]: Run
Karl Heuer <kwzh@gnu.org>
parents: 14802
diff changeset
4054 if (time_limit && nfds == 0 && ! timeout_reduced_for_timers)
232b90ad50e8 (wait_reading_process_input) [! subprocesses]: Run
Karl Heuer <kwzh@gnu.org>
parents: 14802
diff changeset
4055 /* We waited the full specified time, so return now. */
232b90ad50e8 (wait_reading_process_input) [! subprocesses]: Run
Karl Heuer <kwzh@gnu.org>
parents: 14802
diff changeset
4056 break;
232b90ad50e8 (wait_reading_process_input) [! subprocesses]: Run
Karl Heuer <kwzh@gnu.org>
parents: 14802
diff changeset
4057
588
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
4058 if (nfds == -1)
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
4059 {
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
4060 /* If the system call was interrupted, then go around the
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
4061 loop again. */
14806
232b90ad50e8 (wait_reading_process_input) [! subprocesses]: Run
Karl Heuer <kwzh@gnu.org>
parents: 14802
diff changeset
4062 if (xerrno == EINTR)
14278
3562c5f43780 (wait_reading_process_input) [not subprocesses]: Do
Karl Heuer <kwzh@gnu.org>
parents: 14186
diff changeset
4063 FD_ZERO (&waitchannels);
14806
232b90ad50e8 (wait_reading_process_input) [! subprocesses]: Run
Karl Heuer <kwzh@gnu.org>
parents: 14802
diff changeset
4064 else
232b90ad50e8 (wait_reading_process_input) [! subprocesses]: Run
Karl Heuer <kwzh@gnu.org>
parents: 14802
diff changeset
4065 error ("select error: %s", strerror (xerrno));
588
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
4066 }
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
4067 #ifdef sun
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
4068 else if (nfds > 0 && (waitchannels & 1) && interrupt_input)
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
4069 /* System sometimes fails to deliver SIGIO. */
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
4070 kill (getpid (), SIGIO);
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
4071 #endif
3915
55ed7a65746e (wait_reading_process_input): Use SIGIO only if defined.
Richard M. Stallman <rms@gnu.org>
parents: 3826
diff changeset
4072 #ifdef SIGIO
650
39f0e62a8511 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 648
diff changeset
4073 if (XINT (read_kbd) && interrupt_input && (waitchannels & 1))
14736
b17ec81a6294 (wait_reading_process_input): Use getpid when generating SIGIO.
Richard M. Stallman <rms@gnu.org>
parents: 14671
diff changeset
4074 kill (getpid (), SIGIO);
3915
55ed7a65746e (wait_reading_process_input): Use SIGIO only if defined.
Richard M. Stallman <rms@gnu.org>
parents: 3826
diff changeset
4075 #endif
588
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
4076
14806
232b90ad50e8 (wait_reading_process_input) [! subprocesses]: Run
Karl Heuer <kwzh@gnu.org>
parents: 14802
diff changeset
4077 /* Check for keyboard input */
232b90ad50e8 (wait_reading_process_input) [! subprocesses]: Run
Karl Heuer <kwzh@gnu.org>
parents: 14802
diff changeset
4078
15064
fb0f2804c34a (wait_reading_process_input, both definitions):
Richard M. Stallman <rms@gnu.org>
parents: 15025
diff changeset
4079 if ((XINT (read_kbd) != 0)
14806
232b90ad50e8 (wait_reading_process_input) [! subprocesses]: Run
Karl Heuer <kwzh@gnu.org>
parents: 14802
diff changeset
4080 && detect_input_pending_run_timers (do_display))
232b90ad50e8 (wait_reading_process_input) [! subprocesses]: Run
Karl Heuer <kwzh@gnu.org>
parents: 14802
diff changeset
4081 {
232b90ad50e8 (wait_reading_process_input) [! subprocesses]: Run
Karl Heuer <kwzh@gnu.org>
parents: 14802
diff changeset
4082 swallow_events (do_display);
232b90ad50e8 (wait_reading_process_input) [! subprocesses]: Run
Karl Heuer <kwzh@gnu.org>
parents: 14802
diff changeset
4083 if (detect_input_pending_run_timers (do_display))
232b90ad50e8 (wait_reading_process_input) [! subprocesses]: Run
Karl Heuer <kwzh@gnu.org>
parents: 14802
diff changeset
4084 break;
232b90ad50e8 (wait_reading_process_input) [! subprocesses]: Run
Karl Heuer <kwzh@gnu.org>
parents: 14802
diff changeset
4085 }
15021
af36df262fc5 (wait_reading_process_input) [!subprocesses]: Handle
Richard M. Stallman <rms@gnu.org>
parents: 14998
diff changeset
4086
15064
fb0f2804c34a (wait_reading_process_input, both definitions):
Richard M. Stallman <rms@gnu.org>
parents: 15025
diff changeset
4087 /* If wait_for_cell. check for keyboard input
fb0f2804c34a (wait_reading_process_input, both definitions):
Richard M. Stallman <rms@gnu.org>
parents: 15025
diff changeset
4088 but don't run any timers.
fb0f2804c34a (wait_reading_process_input, both definitions):
Richard M. Stallman <rms@gnu.org>
parents: 15025
diff changeset
4089 ??? (It seems wrong to me to check for keyboard
fb0f2804c34a (wait_reading_process_input, both definitions):
Richard M. Stallman <rms@gnu.org>
parents: 15025
diff changeset
4090 input at all when wait_for_cell, but the code
fb0f2804c34a (wait_reading_process_input, both definitions):
Richard M. Stallman <rms@gnu.org>
parents: 15025
diff changeset
4091 has been this way since July 1994.
fb0f2804c34a (wait_reading_process_input, both definitions):
Richard M. Stallman <rms@gnu.org>
parents: 15025
diff changeset
4092 Try changing this after version 19.31.) */
fb0f2804c34a (wait_reading_process_input, both definitions):
Richard M. Stallman <rms@gnu.org>
parents: 15025
diff changeset
4093 if (wait_for_cell
fb0f2804c34a (wait_reading_process_input, both definitions):
Richard M. Stallman <rms@gnu.org>
parents: 15025
diff changeset
4094 && detect_input_pending ())
fb0f2804c34a (wait_reading_process_input, both definitions):
Richard M. Stallman <rms@gnu.org>
parents: 15025
diff changeset
4095 {
fb0f2804c34a (wait_reading_process_input, both definitions):
Richard M. Stallman <rms@gnu.org>
parents: 15025
diff changeset
4096 swallow_events (do_display);
fb0f2804c34a (wait_reading_process_input, both definitions):
Richard M. Stallman <rms@gnu.org>
parents: 15025
diff changeset
4097 if (detect_input_pending ())
fb0f2804c34a (wait_reading_process_input, both definitions):
Richard M. Stallman <rms@gnu.org>
parents: 15025
diff changeset
4098 break;
fb0f2804c34a (wait_reading_process_input, both definitions):
Richard M. Stallman <rms@gnu.org>
parents: 15025
diff changeset
4099 }
fb0f2804c34a (wait_reading_process_input, both definitions):
Richard M. Stallman <rms@gnu.org>
parents: 15025
diff changeset
4100
15021
af36df262fc5 (wait_reading_process_input) [!subprocesses]: Handle
Richard M. Stallman <rms@gnu.org>
parents: 14998
diff changeset
4101 /* Exit now if the cell we're waiting for became non-nil. */
af36df262fc5 (wait_reading_process_input) [!subprocesses]: Handle
Richard M. Stallman <rms@gnu.org>
parents: 14998
diff changeset
4102 if (wait_for_cell && ! NILP (*wait_for_cell))
af36df262fc5 (wait_reading_process_input) [!subprocesses]: Handle
Richard M. Stallman <rms@gnu.org>
parents: 14998
diff changeset
4103 break;
588
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
4104 }
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
4105
2120
fc3cdca22f8d * process.c (process_send_signal): In the TERMIOS code for sending
Jim Blandy <jimb@redhat.com>
parents: 1925
diff changeset
4106 start_polling ();
fc3cdca22f8d * process.c (process_send_signal): In the TERMIOS code for sending
Jim Blandy <jimb@redhat.com>
parents: 1925
diff changeset
4107
588
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
4108 return 0;
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
4109 }
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
4110
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
4111
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
4112 DEFUN ("get-buffer-process", Fget_buffer_process, Sget_buffer_process, 1, 1, 0,
6345
862304c3b015 (Fget_buffer_process): Fix typo in comment.
Karl Heuer <kwzh@gnu.org>
parents: 6313
diff changeset
4113 /* Don't confuse make-docfile by having two doc strings for this function.
4231
91a883c56382 (Fget_buffer_process): Delete doc string from
Richard M. Stallman <rms@gnu.org>
parents: 4057
diff changeset
4114 make-docfile does not pay attention to #if, for good reason! */
91a883c56382 (Fget_buffer_process): Delete doc string from
Richard M. Stallman <rms@gnu.org>
parents: 4057
diff changeset
4115 0)
588
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
4116 (name)
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
4117 register Lisp_Object name;
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
4118 {
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
4119 return Qnil;
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
4120 }
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
4121
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
4122 /* Kill all processes associated with `buffer'.
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
4123 If `buffer' is nil, kill all processes.
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
4124 Since we have no subprocesses, this does nothing. */
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
4125
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
4126 kill_buffer_processes (buffer)
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
4127 Lisp_Object buffer;
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
4128 {
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
4129 }
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
4130
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
4131 init_process ()
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
4132 {
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
4133 }
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
4134
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
4135 syms_of_process ()
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
4136 {
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
4137 defsubr (&Sget_buffer_process);
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
4138 }
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
4139
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
4140
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
4141 #endif /* not subprocesses */