annotate src/process.c @ 43749:0df5bec3cfdf

(ECHOBUFSIZE): Removed. (struct kboard): Member echoptr removed, member echobuf renamed to echo_string.
author Gerd Moellmann <gerd@gnu.org>
date Wed, 06 Mar 2002 15:54:43 +0000
parents bfd9fa0143d9
children 7ec801358b7e
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.
43598
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
2 Copyright (C) 1985, 86, 87, 88, 93, 94, 95, 96, 98, 1999,
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
3 2001, 2002 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
26313
9275b6adbad2 Undo last change and define _GNU_SOURCE before config.h.
Dave Love <fx@gnu.org>
parents: 26311
diff changeset
23 #define _GNU_SOURCE /* to get strsignal declared with glibc 2 */
26088
b7aa6ac26872 Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
parents: 26019
diff changeset
24 #include <config.h>
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
25 #include <signal.h>
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
29035
95e767e77a88 (toplevel) [UNIX98_PTYS]: Include stdlib.h.
Gerd Moellmann <gerd@gnu.org>
parents: 29017
diff changeset
47 #if defined(WINDOWSNT) || defined(UNIX98_PTYS)
9793
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
26313
9275b6adbad2 Undo last change and define _GNU_SOURCE before config.h.
Dave Love <fx@gnu.org>
parents: 26311
diff changeset
62 /* TERM is a poor-man's SLIP, used on GNU/Linux. */
4914
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"
17041
b61cbe595be5 Include charset.h and coding.h.
Karl Heuer <kwzh@gnu.org>
parents: 16780
diff changeset
101 #include "charset.h"
b61cbe595be5 Include charset.h and coding.h.
Karl Heuer <kwzh@gnu.org>
parents: 16780
diff changeset
102 #include "coding.h"
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
103 #include "process.h"
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
104 #include "termhooks.h"
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
105 #include "termopts.h"
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
106 #include "commands.h"
31099
0fe5afca71e4 Include keyboard.h before frame.h.
Andrew Innes <andrewi@gnu.org>
parents: 30582
diff changeset
107 #include "keyboard.h"
1780
d01c59bac5c1 * frame.h (FRAME_SAMPLE_VISIBILITY): Make sure frame is marked as
Jim Blandy <jimb@redhat.com>
parents: 1683
diff changeset
108 #include "frame.h"
16780
e9dc2569cb12 Include blockinput.h.
Richard M. Stallman <rms@gnu.org>
parents: 16728
diff changeset
109 #include "blockinput.h"
21514
fa9ff387d260 Fix -Wimplicit warnings.
Andreas Schwab <schwab@suse.de>
parents: 21414
diff changeset
110 #include "dispextern.h"
26868
edeeffd7d8c7 Include composite.h.
Kenichi Handa <handa@m17n.org>
parents: 26526
diff changeset
111 #include "composite.h"
27430
1aa71680fe50 (toplevel): Include atimer.h.
Gerd Moellmann <gerd@gnu.org>
parents: 27028
diff changeset
112 #include "atimer.h"
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
113
4682
c4d471244116 (keyboard_descriptor): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 4639
diff changeset
114 Lisp_Object Qprocessp;
43598
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
115 Lisp_Object Qrun, Qstop, Qsignal;
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
116 Lisp_Object Qopen, Qclosed, Qconnect, Qfailed;
8231
5226ed89c1a6 (Qlast_nonmenu_event): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 8063
diff changeset
117 Lisp_Object Qlast_nonmenu_event;
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
118 /* Qexit is declared and initialized in eval.c. */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
119
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
120 /* 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
121 Qt nor Qnil but is instead a cons cell (HOSTNAME PORTNUM). */
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
122
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
123 #ifdef HAVE_SOCKETS
16058
924aeb9ed7c3 (Fprocess_contact): New function.
Richard M. Stallman <rms@gnu.org>
parents: 16053
diff changeset
124 #define NETCONN_P(p) (GC_CONSP (XPROCESS (p)->childp))
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
125 #else
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
126 #define NETCONN_P(p) 0
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
127 #endif /* HAVE_SOCKETS */
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 first descriptor number available for subprocesses. */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
130 #ifdef VMS
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
131 #define FIRST_PROC_DESC 1
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
132 #else /* Not VMS */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
133 #define FIRST_PROC_DESC 3
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
134 #endif
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
135
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
136 /* Define SIGCHLD as an alias for SIGCLD. There are many conditionals
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
137 testing SIGCHLD. */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
138
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
139 #if !defined (SIGCHLD) && defined (SIGCLD)
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
140 #define SIGCHLD SIGCLD
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
141 #endif /* SIGCLD */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
142
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
143 #include "syssignal.h"
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
144
4639
76f242eb1fa8 Include syswait.h.
Richard M. Stallman <rms@gnu.org>
parents: 4320
diff changeset
145 #include "syswait.h"
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
146
25770
3a44b5298cd5 (list_processes_1): Remove unused variables.
Gerd Moellmann <gerd@gnu.org>
parents: 25760
diff changeset
147 extern void set_waiting_for_input P_ ((EMACS_TIME *));
3a44b5298cd5 (list_processes_1): Remove unused variables.
Gerd Moellmann <gerd@gnu.org>
parents: 25760
diff changeset
148
31099
0fe5afca71e4 Include keyboard.h before frame.h.
Andrew Innes <andrewi@gnu.org>
parents: 30582
diff changeset
149 #ifndef USE_CRT_DLL
5543
dbc1d920ef5c Don't declare sys_nerr.
Roland McGrath <roland@gnu.org>
parents: 5534
diff changeset
150 extern int errno;
31099
0fe5afca71e4 Include keyboard.h before frame.h.
Andrew Innes <andrewi@gnu.org>
parents: 30582
diff changeset
151 #endif
5543
dbc1d920ef5c Don't declare sys_nerr.
Roland McGrath <roland@gnu.org>
parents: 5534
diff changeset
152 #ifdef VMS
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
153 extern char *sys_errlist[];
5543
dbc1d920ef5c Don't declare sys_nerr.
Roland McGrath <roland@gnu.org>
parents: 5534
diff changeset
154 #endif
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
155
8331
14ddb4c66461 [!HAVE_H_ERRNO]: Declare h_errno.
Richard M. Stallman <rms@gnu.org>
parents: 8287
diff changeset
156 #ifndef HAVE_H_ERRNO
14ddb4c66461 [!HAVE_H_ERRNO]: Declare h_errno.
Richard M. Stallman <rms@gnu.org>
parents: 8287
diff changeset
157 extern int h_errno;
14ddb4c66461 [!HAVE_H_ERRNO]: Declare h_errno.
Richard M. Stallman <rms@gnu.org>
parents: 8287
diff changeset
158 #endif
14ddb4c66461 [!HAVE_H_ERRNO]: Declare h_errno.
Richard M. Stallman <rms@gnu.org>
parents: 8287
diff changeset
159
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
160 /* t means use pty, nil means use a pipe,
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
161 maybe other values to come. */
4682
c4d471244116 (keyboard_descriptor): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 4639
diff changeset
162 static Lisp_Object Vprocess_connection_type;
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
163
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
164 #ifdef SKTPAIR
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
165 #ifndef HAVE_SOCKETS
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
166 #include <sys/socket.h>
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
167 #endif
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
168 #endif /* SKTPAIR */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
169
10548
dcae4394587d (process_tick, update_tick): Make non-static.
Karl Heuer <kwzh@gnu.org>
parents: 10527
diff changeset
170 /* 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
171 emulation of `select'. */
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
172 /* 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
173 int process_tick;
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
174 /* 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
175 int update_tick;
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
176
43598
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
177 /* Define NON_BLOCKING_CONNECT if we can support non-blocking connects. */
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
178
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
179 #ifdef BROKEN_NON_BLOCKING_CONNECT
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
180 #undef NON_BLOCKING_CONNECT
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
181 #else
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
182 #ifndef NON_BLOCKING_CONNECT
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
183 #ifdef HAVE_SOCKETS
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
184 #ifdef HAVE_SELECT
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
185 #if defined (HAVE_GETPEERNAME) || defined (GNU_LINUX)
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
186 #if defined (O_NONBLOCK) || defined (O_NDELAY)
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
187 #if defined (EWOULDBLOCK) || defined (EINPROGRESS)
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
188 #define NON_BLOCKING_CONNECT
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
189 #endif /* EWOULDBLOCK || EINPROGRESS */
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
190 #endif /* O_NONBLOCK || O_NDELAY */
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
191 #endif /* HAVE_GETPEERNAME || GNU_LINUX */
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
192 #endif /* HAVE_SELECT */
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
193 #endif /* HAVE_SOCKETS */
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
194 #endif /* NON_BLOCKING_CONNECT */
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
195 #endif /* BROKEN_NON_BLOCKING_CONNECT */
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
196
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
197 #ifdef TERM
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
198 #undef NON_BLOCKING_CONNECT
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
199 #endif
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
200
10527
68b8191091a7 #include sysselect.h instead of defining things by hand.
Karl Heuer <kwzh@gnu.org>
parents: 10032
diff changeset
201 #include "sysselect.h"
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
202
25770
3a44b5298cd5 (list_processes_1): Remove unused variables.
Gerd Moellmann <gerd@gnu.org>
parents: 25760
diff changeset
203 extern int keyboard_bit_set P_ ((SELECT_TYPE *));
3a44b5298cd5 (list_processes_1): Remove unused variables.
Gerd Moellmann <gerd@gnu.org>
parents: 25760
diff changeset
204
13414
b035c6e41457 [HAVE_NTGUI] (POLL_FOR_INPUT): Define macro.
Geoff Voelker <voelker@cs.washington.edu>
parents: 13159
diff changeset
205 /* 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
206 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
207 #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
208 #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
209 #endif
cfe4840ffde9 (Fopen_network_stream): Call bind_polling_period; later unbind the binding.
Richard M. Stallman <rms@gnu.org>
parents: 7454
diff changeset
210
9686
cd788aa8cb2a Handle multiple keyboard input descriptors.
Richard M. Stallman <rms@gnu.org>
parents: 9334
diff changeset
211 /* Mask of bits indicating the descriptors that we wait for input on. */
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
212
4682
c4d471244116 (keyboard_descriptor): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 4639
diff changeset
213 static SELECT_TYPE input_wait_mask;
c4d471244116 (keyboard_descriptor): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 4639
diff changeset
214
9686
cd788aa8cb2a Handle multiple keyboard input descriptors.
Richard M. Stallman <rms@gnu.org>
parents: 9334
diff changeset
215 /* Mask that excludes keyboard input descriptor (s). */
cd788aa8cb2a Handle multiple keyboard input descriptors.
Richard M. Stallman <rms@gnu.org>
parents: 9334
diff changeset
216
cd788aa8cb2a Handle multiple keyboard input descriptors.
Richard M. Stallman <rms@gnu.org>
parents: 9334
diff changeset
217 static SELECT_TYPE non_keyboard_wait_mask;
cd788aa8cb2a Handle multiple keyboard input descriptors.
Richard M. Stallman <rms@gnu.org>
parents: 9334
diff changeset
218
17224
dd2545e79add (wait_reading_process_input): If wait_for_cell,
Richard M. Stallman <rms@gnu.org>
parents: 17110
diff changeset
219 /* Mask that excludes process input descriptor (s). */
dd2545e79add (wait_reading_process_input): If wait_for_cell,
Richard M. Stallman <rms@gnu.org>
parents: 17110
diff changeset
220
dd2545e79add (wait_reading_process_input): If wait_for_cell,
Richard M. Stallman <rms@gnu.org>
parents: 17110
diff changeset
221 static SELECT_TYPE non_process_wait_mask;
dd2545e79add (wait_reading_process_input): If wait_for_cell,
Richard M. Stallman <rms@gnu.org>
parents: 17110
diff changeset
222
43598
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
223 /* Mask of bits indicating the descriptors that we wait for connect to
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
224 complete on. Once they complete, they are removed from this mask
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
225 and added to the input_wait_mask and non_keyboard_wait_mask. */
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
226
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
227 static SELECT_TYPE connect_wait_mask;
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
228
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
229 /* Number of bits set in connect_wait_mask. */
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
230 static int num_pending_connects;
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
231
7044
7032d07f5ad9 (max_process_desc): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 7013
diff changeset
232 /* 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
233 static int max_process_desc;
7032d07f5ad9 (max_process_desc): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 7013
diff changeset
234
9686
cd788aa8cb2a Handle multiple keyboard input descriptors.
Richard M. Stallman <rms@gnu.org>
parents: 9334
diff changeset
235 /* 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
236 static int max_keyboard_desc;
4682
c4d471244116 (keyboard_descriptor): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 4639
diff changeset
237
c4d471244116 (keyboard_descriptor): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 4639
diff changeset
238 /* 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
239 static int delete_exited_processes;
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
240
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
241 /* 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
242 Lisp_Object chan_process[MAXDESC];
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
243
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
244 /* Alist of elements (NAME . PROCESS) */
6164
d047d5a48e0e (chan_process, Vprocess_alist): No longer static.
Richard M. Stallman <rms@gnu.org>
parents: 6158
diff changeset
245 Lisp_Object Vprocess_alist;
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
246
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
247 /* Buffered-ahead input char from process, indexed by channel.
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
248 -1 means empty (no char is buffered).
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
249 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
250 output from the process is to read at least one char.
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
251 Always -1 on systems that support FIONREAD. */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
252
9793
28267fcc61be Use macros IS_ANY_SEP, IS_DIRECTORY_SEP,
Richard M. Stallman <rms@gnu.org>
parents: 9705
diff changeset
253 /* 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
254 int proc_buffered_char[MAXDESC];
4682
c4d471244116 (keyboard_descriptor): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 4639
diff changeset
255
17041
b61cbe595be5 Include charset.h and coding.h.
Karl Heuer <kwzh@gnu.org>
parents: 16780
diff changeset
256 /* Table of `struct coding-system' for each process. */
17110
3a348cbb354f (Fstart_process, Fopen_network_stream): Do not perform
Kenichi Handa <handa@m17n.org>
parents: 17041
diff changeset
257 static struct coding_system *proc_decode_coding_system[MAXDESC];
3a348cbb354f (Fstart_process, Fopen_network_stream): Do not perform
Kenichi Handa <handa@m17n.org>
parents: 17041
diff changeset
258 static struct coding_system *proc_encode_coding_system[MAXDESC];
17041
b61cbe595be5 Include charset.h and coding.h.
Karl Heuer <kwzh@gnu.org>
parents: 16780
diff changeset
259
4682
c4d471244116 (keyboard_descriptor): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 4639
diff changeset
260 static Lisp_Object get_process ();
43598
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
261 static void exec_sentinel ();
6158
6b81b2575071 Include unistd.h.
Richard M. Stallman <rms@gnu.org>
parents: 5891
diff changeset
262
14404
cba05f90ee57 (wait_reading_process_input): Call timer_check
Richard M. Stallman <rms@gnu.org>
parents: 14278
diff changeset
263 extern EMACS_TIME timer_check ();
14785
e4a9806c1e83 (wait_reading_process_input):
Richard M. Stallman <rms@gnu.org>
parents: 14758
diff changeset
264 extern int timers_run;
14404
cba05f90ee57 (wait_reading_process_input): Call timer_check
Richard M. Stallman <rms@gnu.org>
parents: 14278
diff changeset
265
6158
6b81b2575071 Include unistd.h.
Richard M. Stallman <rms@gnu.org>
parents: 5891
diff changeset
266 /* 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
267 static int pty_max_bytes;
9030
b14532c71632 (exec_sentinel_error_handler): New function.
Richard M. Stallman <rms@gnu.org>
parents: 8570
diff changeset
268
21049
01e626b0a624 (Vdefault_file_name_coding_system): Extern it.
Kenichi Handa <handa@m17n.org>
parents: 20715
diff changeset
269 extern Lisp_Object Vfile_name_coding_system, Vdefault_file_name_coding_system;
19837
3bee81323f73 (create_process): Encode the new current dir.
Richard M. Stallman <rms@gnu.org>
parents: 19642
diff changeset
270
11609
3b2dacb1bfe9 (create_process): Don't reference pty_name if !HAVE_PTYS.
Karl Heuer <kwzh@gnu.org>
parents: 11514
diff changeset
271 #ifdef HAVE_PTYS
3b2dacb1bfe9 (create_process): Don't reference pty_name if !HAVE_PTYS.
Karl Heuer <kwzh@gnu.org>
parents: 11514
diff changeset
272 /* 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
273
b14532c71632 (exec_sentinel_error_handler): New function.
Richard M. Stallman <rms@gnu.org>
parents: 8570
diff changeset
274 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
275 #endif
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
276
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
277 /* Compute the Lisp form of the process status, p->status, from
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
278 the numeric status that was returned by `wait'. */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
279
1522
19ccf004b172 * process.c: (status_convert): Declare this to return a
Jim Blandy <jimb@redhat.com>
parents: 1323
diff changeset
280 Lisp_Object status_convert ();
19ccf004b172 * process.c: (status_convert): Declare this to return a
Jim Blandy <jimb@redhat.com>
parents: 1323
diff changeset
281
21514
fa9ff387d260 Fix -Wimplicit warnings.
Andreas Schwab <schwab@suse.de>
parents: 21414
diff changeset
282 void
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
283 update_status (p)
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
284 struct Lisp_Process *p;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
285 {
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
286 union { int i; WAITTYPE wt; } u;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
287 u.i = XFASTINT (p->raw_status_low) + (XFASTINT (p->raw_status_high) << 16);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
288 p->status = status_convert (u.wt);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
289 p->raw_status_low = Qnil;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
290 p->raw_status_high = Qnil;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
291 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
292
3608
Jim Blandy <jimb@redhat.com>
parents: 3593
diff changeset
293 /* Convert a process status word in Unix format to
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
294 the list that we use internally. */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
295
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
296 Lisp_Object
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
297 status_convert (w)
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
298 WAITTYPE w;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
299 {
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
300 if (WIFSTOPPED (w))
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
301 return Fcons (Qstop, Fcons (make_number (WSTOPSIG (w)), Qnil));
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
302 else if (WIFEXITED (w))
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
303 return Fcons (Qexit, Fcons (make_number (WRETCODE (w)),
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
304 WCOREDUMP (w) ? Qt : Qnil));
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
305 else if (WIFSIGNALED (w))
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
306 return Fcons (Qsignal, Fcons (make_number (WTERMSIG (w)),
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
307 WCOREDUMP (w) ? Qt : Qnil));
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
308 else
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
309 return Qrun;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
310 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
311
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
312 /* Given a status-list, extract the three pieces of information
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
313 and store them individually through the three pointers. */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
314
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
315 void
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
316 decode_status (l, symbol, code, coredump)
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
317 Lisp_Object l;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
318 Lisp_Object *symbol;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
319 int *code;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
320 int *coredump;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
321 {
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
322 Lisp_Object tem;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
323
9115
59bc2d010b5f (decode_status, Fprocessp, Fget_process, Fget_buffer_process, Fprocess_status,
Karl Heuer <kwzh@gnu.org>
parents: 9034
diff changeset
324 if (SYMBOLP (l))
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
325 {
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
326 *symbol = l;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
327 *code = 0;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
328 *coredump = 0;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
329 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
330 else
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
331 {
25645
a14111a2a100 Use XCAR, XCDR, XFLOAT_DATA instead of explicit member access.
Ken Raeburn <raeburn@raeburn.org>
parents: 25356
diff changeset
332 *symbol = XCAR (l);
a14111a2a100 Use XCAR, XCDR, XFLOAT_DATA instead of explicit member access.
Ken Raeburn <raeburn@raeburn.org>
parents: 25356
diff changeset
333 tem = XCDR (l);
a14111a2a100 Use XCAR, XCDR, XFLOAT_DATA instead of explicit member access.
Ken Raeburn <raeburn@raeburn.org>
parents: 25356
diff changeset
334 *code = XFASTINT (XCAR (tem));
a14111a2a100 Use XCAR, XCDR, XFLOAT_DATA instead of explicit member access.
Ken Raeburn <raeburn@raeburn.org>
parents: 25356
diff changeset
335 tem = XCDR (tem);
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
336 *coredump = !NILP (tem);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
337 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
338 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
339
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
340 /* Return a string describing a process status list. */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
341
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
342 Lisp_Object
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
343 status_message (status)
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
344 Lisp_Object status;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
345 {
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
346 Lisp_Object symbol;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
347 int code, coredump;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
348 Lisp_Object string, string2;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
349
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
350 decode_status (status, &symbol, &code, &coredump);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
351
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
352 if (EQ (symbol, Qsignal) || EQ (symbol, Qstop))
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
353 {
26088
b7aa6ac26872 Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
parents: 26019
diff changeset
354 char *signame;
26526
b7438760079b * callproc.c (strerror): Remove decl.
Paul Eggert <eggert@twinsun.com>
parents: 26313
diff changeset
355 synchronize_system_messages_locale ();
26088
b7aa6ac26872 Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
parents: 26019
diff changeset
356 signame = strsignal (code);
5579
466bc8ef8e21 (sigchld_handler, status_message): Handle a NULL in sys_siglist.
Richard M. Stallman <rms@gnu.org>
parents: 5561
diff changeset
357 if (signame == 0)
466bc8ef8e21 (sigchld_handler, status_message): Handle a NULL in sys_siglist.
Richard M. Stallman <rms@gnu.org>
parents: 5561
diff changeset
358 signame = "unknown";
466bc8ef8e21 (sigchld_handler, status_message): Handle a NULL in sys_siglist.
Richard M. Stallman <rms@gnu.org>
parents: 5561
diff changeset
359 string = build_string (signame);
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
360 string2 = build_string (coredump ? " (core dumped)\n" : "\n");
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
361 XSTRING (string)->data[0] = DOWNCASE (XSTRING (string)->data[0]);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
362 return concat2 (string, string2);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
363 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
364 else if (EQ (symbol, Qexit))
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
365 {
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
366 if (code == 0)
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
367 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
368 string = Fnumber_to_string (make_number (code));
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
369 string2 = build_string (coredump ? " (core dumped)\n" : "\n");
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
370 return concat2 (build_string ("exited abnormally with code "),
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
371 concat2 (string, string2));
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
372 }
43598
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
373 else if (EQ (symbol, Qfailed))
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
374 {
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
375 string = Fnumber_to_string (make_number (code));
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
376 string2 = build_string ("\n");
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
377 return concat2 (build_string ("failed with code "),
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
378 concat2 (string, string2));
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
379 }
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
380 else
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
381 return Fcopy_sequence (Fsymbol_name (symbol));
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
382 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
383
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
384 #ifdef HAVE_PTYS
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
385
11609
3b2dacb1bfe9 (create_process): Don't reference pty_name if !HAVE_PTYS.
Karl Heuer <kwzh@gnu.org>
parents: 11514
diff changeset
386 /* 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
387 Return -1 on failure.
3b2dacb1bfe9 (create_process): Don't reference pty_name if !HAVE_PTYS.
Karl Heuer <kwzh@gnu.org>
parents: 11514
diff changeset
388 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
389 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
390
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
391 int
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
392 allocate_pty ()
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
393 {
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
394 struct stat stb;
21514
fa9ff387d260 Fix -Wimplicit warnings.
Andreas Schwab <schwab@suse.de>
parents: 21414
diff changeset
395 register int c, i;
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
396 int fd;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
397
624
2bb7f23b7ea5 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 621
diff changeset
398 /* Some systems name their pseudoterminals so that there are gaps in
2bb7f23b7ea5 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 621
diff changeset
399 the usual sequence - for example, on HP9000/S700 systems, there
2bb7f23b7ea5 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 621
diff changeset
400 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
401 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
402 end of the ptys. */
2bb7f23b7ea5 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 621
diff changeset
403 int failed_count = 0;
2bb7f23b7ea5 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 621
diff changeset
404
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
405 #ifdef PTY_ITERATION
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
406 PTY_ITERATION
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
407 #else
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
408 for (c = FIRST_PTY_LETTER; c <= 'z'; c++)
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
409 for (i = 0; i < 16; i++)
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
410 #endif
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
411 {
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
412 #ifdef PTY_NAME_SPRINTF
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
413 PTY_NAME_SPRINTF
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
414 #else
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
415 sprintf (pty_name, "/dev/pty%c%x", c, i);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
416 #endif /* no PTY_NAME_SPRINTF */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
417
822
c6e94e13926c *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 808
diff changeset
418 #ifdef PTY_OPEN
c6e94e13926c *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 808
diff changeset
419 PTY_OPEN;
c6e94e13926c *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 808
diff changeset
420 #else /* no PTY_OPEN */
624
2bb7f23b7ea5 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 621
diff changeset
421 #ifdef IRIS
2bb7f23b7ea5 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 621
diff changeset
422 /* Unusual IRIS code */
26088
b7aa6ac26872 Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
parents: 26019
diff changeset
423 *ptyv = emacs_open ("/dev/ptc", O_RDWR | O_NDELAY, 0);
624
2bb7f23b7ea5 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 621
diff changeset
424 if (fd < 0)
2bb7f23b7ea5 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 621
diff changeset
425 return -1;
2bb7f23b7ea5 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 621
diff changeset
426 if (fstat (fd, &stb) < 0)
2bb7f23b7ea5 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 621
diff changeset
427 return -1;
822
c6e94e13926c *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 808
diff changeset
428 #else /* not IRIS */
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
429 if (stat (pty_name, &stb) < 0)
624
2bb7f23b7ea5 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 621
diff changeset
430 {
2bb7f23b7ea5 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 621
diff changeset
431 failed_count++;
2bb7f23b7ea5 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 621
diff changeset
432 if (failed_count >= 3)
2bb7f23b7ea5 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 621
diff changeset
433 return -1;
2bb7f23b7ea5 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 621
diff changeset
434 }
2bb7f23b7ea5 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 621
diff changeset
435 else
2bb7f23b7ea5 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 621
diff changeset
436 failed_count = 0;
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
437 #ifdef O_NONBLOCK
26088
b7aa6ac26872 Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
parents: 26019
diff changeset
438 fd = emacs_open (pty_name, O_RDWR | O_NONBLOCK, 0);
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
439 #else
26088
b7aa6ac26872 Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
parents: 26019
diff changeset
440 fd = emacs_open (pty_name, O_RDWR | O_NDELAY, 0);
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
441 #endif
822
c6e94e13926c *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 808
diff changeset
442 #endif /* not IRIS */
c6e94e13926c *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 808
diff changeset
443 #endif /* no PTY_OPEN */
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
444
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
445 if (fd >= 0)
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
446 {
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
447 /* check to make certain that both sides are available
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
448 this avoids a nasty yet stupid bug in rlogins */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
449 #ifdef PTY_TTY_NAME_SPRINTF
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
450 PTY_TTY_NAME_SPRINTF
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
451 #else
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
452 sprintf (pty_name, "/dev/tty%c%x", c, i);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
453 #endif /* no PTY_TTY_NAME_SPRINTF */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
454 #ifndef UNIPLUS
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
455 if (access (pty_name, 6) != 0)
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
456 {
26088
b7aa6ac26872 Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
parents: 26019
diff changeset
457 emacs_close (fd);
2887
0554478bfa71 * process.c [__sgi] (allocate_pty): Give up immediately if pty is
Jim Blandy <jimb@redhat.com>
parents: 2830
diff changeset
458 #if !defined(IRIS) && !defined(__sgi)
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
459 continue;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
460 #else
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
461 return -1;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
462 #endif /* IRIS */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
463 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
464 #endif /* not UNIPLUS */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
465 setup_pty (fd);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
466 return fd;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
467 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
468 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
469 return -1;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
470 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
471 #endif /* HAVE_PTYS */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
472
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
473 Lisp_Object
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
474 make_process (name)
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
475 Lisp_Object name;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
476 {
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
477 register Lisp_Object val, tem, name1;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
478 register struct Lisp_Process *p;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
479 char suffix[10];
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
480 register int i;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
481
36434
40cfe4976f04 (make_process): Use allocate_process.
Gerd Moellmann <gerd@gnu.org>
parents: 35336
diff changeset
482 p = allocate_process ();
9969
007d93b04e1f (make_process): Use allocate_vectorlike and VECSIZE.
Karl Heuer <kwzh@gnu.org>
parents: 9952
diff changeset
483
9277
21f6120be5ba (make_process, create_process, Fopen_network_stream, deactivate_process,
Karl Heuer <kwzh@gnu.org>
parents: 9115
diff changeset
484 XSETINT (p->infd, -1);
21f6120be5ba (make_process, create_process, Fopen_network_stream, deactivate_process,
Karl Heuer <kwzh@gnu.org>
parents: 9115
diff changeset
485 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
486 XSETFASTINT (p->pid, 0);
a14cc1712337 (make_process, list_processes_1, create_process, Faccept_process_output,
Karl Heuer <kwzh@gnu.org>
parents: 9277
diff changeset
487 XSETFASTINT (p->tick, 0);
a14cc1712337 (make_process, list_processes_1, create_process, Faccept_process_output,
Karl Heuer <kwzh@gnu.org>
parents: 9277
diff changeset
488 XSETFASTINT (p->update_tick, 0);
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
489 p->raw_status_low = Qnil;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
490 p->raw_status_high = Qnil;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
491 p->status = Qrun;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
492 p->mark = Fmake_marker ();
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
493
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
494 /* If name is already in use, modify it until it is unused. */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
495
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
496 name1 = name;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
497 for (i = 1; ; i++)
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
498 {
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
499 tem = Fget_process (name1);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
500 if (NILP (tem)) break;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
501 sprintf (suffix, "<%d>", i);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
502 name1 = concat2 (name, build_string (suffix));
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
503 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
504 name = name1;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
505 p->name = name;
9969
007d93b04e1f (make_process): Use allocate_vectorlike and VECSIZE.
Karl Heuer <kwzh@gnu.org>
parents: 9952
diff changeset
506 XSETPROCESS (val, p);
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
507 Vprocess_alist = Fcons (Fcons (name, val), Vprocess_alist);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
508 return val;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
509 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
510
21514
fa9ff387d260 Fix -Wimplicit warnings.
Andreas Schwab <schwab@suse.de>
parents: 21414
diff changeset
511 void
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
512 remove_process (proc)
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
513 register Lisp_Object proc;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
514 {
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
515 register Lisp_Object pair;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
516
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
517 pair = Frassq (proc, Vprocess_alist);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
518 Vprocess_alist = Fdelq (pair, Vprocess_alist);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
519
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
520 deactivate_process (proc);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
521 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
522
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
523 DEFUN ("processp", Fprocessp, Sprocessp, 1, 1, 0,
40103
6b389fb978bc Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
524 doc: /* Return t if OBJECT is a process. */)
6b389fb978bc Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
525 (object)
14085
85ce7bab31dc (Fprocessp, Fget_buffer_process, Fdelete_process, Fprocess_status,
Erik Naggum <erik@naggum.no>
parents: 14036
diff changeset
526 Lisp_Object object;
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
527 {
14085
85ce7bab31dc (Fprocessp, Fget_buffer_process, Fdelete_process, Fprocess_status,
Erik Naggum <erik@naggum.no>
parents: 14036
diff changeset
528 return PROCESSP (object) ? Qt : Qnil;
578
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-process", Fget_process, Sget_process, 1, 1, 0,
40103
6b389fb978bc Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
532 doc: /* Return the process named NAME, or nil if there is none. */)
6b389fb978bc Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
533 (name)
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
534 register Lisp_Object name;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
535 {
9115
59bc2d010b5f (decode_status, Fprocessp, Fget_process, Fget_buffer_process, Fprocess_status,
Karl Heuer <kwzh@gnu.org>
parents: 9034
diff changeset
536 if (PROCESSP (name))
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
537 return name;
40656
cdfd4d09b79a Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents: 40641
diff changeset
538 CHECK_STRING (name);
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
539 return Fcdr (Fassoc (name, Vprocess_alist));
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
540 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
541
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
542 DEFUN ("get-buffer-process", Fget_buffer_process, Sget_buffer_process, 1, 1, 0,
40103
6b389fb978bc Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
543 doc: /* Return the (or a) process associated with BUFFER.
6b389fb978bc Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
544 BUFFER may be a buffer or the name of one. */)
6b389fb978bc Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
545 (buffer)
14085
85ce7bab31dc (Fprocessp, Fget_buffer_process, Fdelete_process, Fprocess_status,
Erik Naggum <erik@naggum.no>
parents: 14036
diff changeset
546 register Lisp_Object buffer;
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
547 {
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
548 register Lisp_Object buf, tail, proc;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
549
14085
85ce7bab31dc (Fprocessp, Fget_buffer_process, Fdelete_process, Fprocess_status,
Erik Naggum <erik@naggum.no>
parents: 14036
diff changeset
550 if (NILP (buffer)) return Qnil;
85ce7bab31dc (Fprocessp, Fget_buffer_process, Fdelete_process, Fprocess_status,
Erik Naggum <erik@naggum.no>
parents: 14036
diff changeset
551 buf = Fget_buffer (buffer);
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
552 if (NILP (buf)) return Qnil;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
553
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
554 for (tail = Vprocess_alist; !NILP (tail); tail = Fcdr (tail))
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
555 {
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
556 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
557 if (PROCESSP (proc) && EQ (XPROCESS (proc)->buffer, buf))
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
558 return proc;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
559 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
560 return Qnil;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
561 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
562
808
707866b2a190 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 765
diff changeset
563 /* This is how commands for the user decode process arguments. It
707866b2a190 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 765
diff changeset
564 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
565 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
566 current buffer. */
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
567
4994
4146a65b9f02 (get_process): Add `static' to definition.
Richard M. Stallman <rms@gnu.org>
parents: 4914
diff changeset
568 static Lisp_Object
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
569 get_process (name)
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
570 register Lisp_Object name;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
571 {
6313
9a6531e6de5d (get_process): Allow arg to be a buffer object.
Karl Heuer <kwzh@gnu.org>
parents: 6253
diff changeset
572 register Lisp_Object proc, obj;
9a6531e6de5d (get_process): Allow arg to be a buffer object.
Karl Heuer <kwzh@gnu.org>
parents: 6253
diff changeset
573 if (STRINGP (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 obj = Fget_process (name);
9a6531e6de5d (get_process): Allow arg to be a buffer object.
Karl Heuer <kwzh@gnu.org>
parents: 6253
diff changeset
576 if (NILP (obj))
9a6531e6de5d (get_process): Allow arg to be a buffer object.
Karl Heuer <kwzh@gnu.org>
parents: 6253
diff changeset
577 obj = Fget_buffer (name);
9a6531e6de5d (get_process): Allow arg to be a buffer object.
Karl Heuer <kwzh@gnu.org>
parents: 6253
diff changeset
578 if (NILP (obj))
9a6531e6de5d (get_process): Allow arg to be a buffer object.
Karl Heuer <kwzh@gnu.org>
parents: 6253
diff changeset
579 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
580 }
9a6531e6de5d (get_process): Allow arg to be a buffer object.
Karl Heuer <kwzh@gnu.org>
parents: 6253
diff changeset
581 else if (NILP (name))
9a6531e6de5d (get_process): Allow arg to be a buffer object.
Karl Heuer <kwzh@gnu.org>
parents: 6253
diff changeset
582 obj = Fcurrent_buffer ();
9a6531e6de5d (get_process): Allow arg to be a buffer object.
Karl Heuer <kwzh@gnu.org>
parents: 6253
diff changeset
583 else
9a6531e6de5d (get_process): Allow arg to be a buffer object.
Karl Heuer <kwzh@gnu.org>
parents: 6253
diff changeset
584 obj = name;
9a6531e6de5d (get_process): Allow arg to be a buffer object.
Karl Heuer <kwzh@gnu.org>
parents: 6253
diff changeset
585
9a6531e6de5d (get_process): Allow arg to be a buffer object.
Karl Heuer <kwzh@gnu.org>
parents: 6253
diff changeset
586 /* 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
587 */
9a6531e6de5d (get_process): Allow arg to be a buffer object.
Karl Heuer <kwzh@gnu.org>
parents: 6253
diff changeset
588 if (BUFFERP (obj))
9a6531e6de5d (get_process): Allow arg to be a buffer object.
Karl Heuer <kwzh@gnu.org>
parents: 6253
diff changeset
589 {
9a6531e6de5d (get_process): Allow arg to be a buffer object.
Karl Heuer <kwzh@gnu.org>
parents: 6253
diff changeset
590 proc = Fget_buffer_process (obj);
9a6531e6de5d (get_process): Allow arg to be a buffer object.
Karl Heuer <kwzh@gnu.org>
parents: 6253
diff changeset
591 if (NILP (proc))
9a6531e6de5d (get_process): Allow arg to be a buffer object.
Karl Heuer <kwzh@gnu.org>
parents: 6253
diff changeset
592 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
593 }
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
594 else
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
595 {
40656
cdfd4d09b79a Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents: 40641
diff changeset
596 CHECK_PROCESS (obj);
6313
9a6531e6de5d (get_process): Allow arg to be a buffer object.
Karl Heuer <kwzh@gnu.org>
parents: 6253
diff changeset
597 proc = obj;
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
598 }
6313
9a6531e6de5d (get_process): Allow arg to be a buffer object.
Karl Heuer <kwzh@gnu.org>
parents: 6253
diff changeset
599 return proc;
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
600 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
601
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
602 DEFUN ("delete-process", Fdelete_process, Sdelete_process, 1, 1, 0,
40103
6b389fb978bc Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
603 doc: /* Delete PROCESS: kill it and forget about it immediately.
6b389fb978bc Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
604 PROCESS may be a process, a buffer, the name of a process or buffer, or
6b389fb978bc Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
605 nil, indicating the current buffer's process. */)
6b389fb978bc Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
606 (process)
14085
85ce7bab31dc (Fprocessp, Fget_buffer_process, Fdelete_process, Fprocess_status,
Erik Naggum <erik@naggum.no>
parents: 14036
diff changeset
607 register Lisp_Object process;
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
608 {
14085
85ce7bab31dc (Fprocessp, Fget_buffer_process, Fdelete_process, Fprocess_status,
Erik Naggum <erik@naggum.no>
parents: 14036
diff changeset
609 process = get_process (process);
85ce7bab31dc (Fprocessp, Fget_buffer_process, Fdelete_process, Fprocess_status,
Erik Naggum <erik@naggum.no>
parents: 14036
diff changeset
610 XPROCESS (process)->raw_status_low = Qnil;
85ce7bab31dc (Fprocessp, Fget_buffer_process, Fdelete_process, Fprocess_status,
Erik Naggum <erik@naggum.no>
parents: 14036
diff changeset
611 XPROCESS (process)->raw_status_high = Qnil;
85ce7bab31dc (Fprocessp, Fget_buffer_process, Fdelete_process, Fprocess_status,
Erik Naggum <erik@naggum.no>
parents: 14036
diff changeset
612 if (NETCONN_P (process))
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
613 {
14085
85ce7bab31dc (Fprocessp, Fget_buffer_process, Fdelete_process, Fprocess_status,
Erik Naggum <erik@naggum.no>
parents: 14036
diff changeset
614 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
615 XSETINT (XPROCESS (process)->tick, ++process_tick);
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
616 }
14085
85ce7bab31dc (Fprocessp, Fget_buffer_process, Fdelete_process, Fprocess_status,
Erik Naggum <erik@naggum.no>
parents: 14036
diff changeset
617 else if (XINT (XPROCESS (process)->infd) >= 0)
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
618 {
14085
85ce7bab31dc (Fprocessp, Fget_buffer_process, Fdelete_process, Fprocess_status,
Erik Naggum <erik@naggum.no>
parents: 14036
diff changeset
619 Fkill_process (process, Qnil);
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
620 /* 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
621 XPROCESS (process)->status
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
622 = 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
623 XSETINT (XPROCESS (process)->tick, ++process_tick);
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
624 status_notify ();
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
625 }
14085
85ce7bab31dc (Fprocessp, Fget_buffer_process, Fdelete_process, Fprocess_status,
Erik Naggum <erik@naggum.no>
parents: 14036
diff changeset
626 remove_process (process);
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
627 return Qnil;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
628 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
629
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
630 DEFUN ("process-status", Fprocess_status, Sprocess_status, 1, 1, 0,
40103
6b389fb978bc Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
631 doc: /* Return the status of PROCESS.
6b389fb978bc Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
632 The returned value is one of the following symbols:
6b389fb978bc Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
633 run -- for a process that is running.
6b389fb978bc Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
634 stop -- for a process stopped but continuable.
6b389fb978bc Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
635 exit -- for a process that has exited.
6b389fb978bc Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
636 signal -- for a process that has got a fatal signal.
6b389fb978bc Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
637 open -- for a network stream connection that is open.
6b389fb978bc Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
638 closed -- for a network stream connection that is closed.
43600
f21620032428 (Fprocess_status): Document connect and failed return values.
Kim F. Storm <storm@cua.dk>
parents: 43598
diff changeset
639 connect -- when waiting for a non-blocking connection to complete.
f21620032428 (Fprocess_status): Document connect and failed return values.
Kim F. Storm <storm@cua.dk>
parents: 43598
diff changeset
640 failed -- when a non-blocking connection has failed.
40103
6b389fb978bc Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
641 nil -- if arg is a process name and no such process exists.
6b389fb978bc Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
642 PROCESS may be a process, a buffer, the name of a process, or
6b389fb978bc Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
643 nil, indicating the current buffer's process. */)
6b389fb978bc Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
644 (process)
14085
85ce7bab31dc (Fprocessp, Fget_buffer_process, Fdelete_process, Fprocess_status,
Erik Naggum <erik@naggum.no>
parents: 14036
diff changeset
645 register Lisp_Object process;
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
646 {
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
647 register struct Lisp_Process *p;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
648 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
649
14085
85ce7bab31dc (Fprocessp, Fget_buffer_process, Fdelete_process, Fprocess_status,
Erik Naggum <erik@naggum.no>
parents: 14036
diff changeset
650 if (STRINGP (process))
85ce7bab31dc (Fprocessp, Fget_buffer_process, Fdelete_process, Fprocess_status,
Erik Naggum <erik@naggum.no>
parents: 14036
diff changeset
651 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
652 else
14085
85ce7bab31dc (Fprocessp, Fget_buffer_process, Fdelete_process, Fprocess_status,
Erik Naggum <erik@naggum.no>
parents: 14036
diff changeset
653 process = get_process (process);
85ce7bab31dc (Fprocessp, Fget_buffer_process, Fdelete_process, Fprocess_status,
Erik Naggum <erik@naggum.no>
parents: 14036
diff changeset
654
85ce7bab31dc (Fprocessp, Fget_buffer_process, Fdelete_process, Fprocess_status,
Erik Naggum <erik@naggum.no>
parents: 14036
diff changeset
655 if (NILP (process))
85ce7bab31dc (Fprocessp, Fget_buffer_process, Fdelete_process, Fprocess_status,
Erik Naggum <erik@naggum.no>
parents: 14036
diff changeset
656 return process;
85ce7bab31dc (Fprocessp, Fget_buffer_process, Fdelete_process, Fprocess_status,
Erik Naggum <erik@naggum.no>
parents: 14036
diff changeset
657
85ce7bab31dc (Fprocessp, Fget_buffer_process, Fdelete_process, Fprocess_status,
Erik Naggum <erik@naggum.no>
parents: 14036
diff changeset
658 p = XPROCESS (process);
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
659 if (!NILP (p->raw_status_low))
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
660 update_status (p);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
661 status = p->status;
9115
59bc2d010b5f (decode_status, Fprocessp, Fget_process, Fget_buffer_process, Fprocess_status,
Karl Heuer <kwzh@gnu.org>
parents: 9034
diff changeset
662 if (CONSP (status))
25645
a14111a2a100 Use XCAR, XCDR, XFLOAT_DATA instead of explicit member access.
Ken Raeburn <raeburn@raeburn.org>
parents: 25356
diff changeset
663 status = XCAR (status);
14085
85ce7bab31dc (Fprocessp, Fget_buffer_process, Fdelete_process, Fprocess_status,
Erik Naggum <erik@naggum.no>
parents: 14036
diff changeset
664 if (NETCONN_P (process))
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
665 {
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
666 if (EQ (status, Qrun))
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
667 status = Qopen;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
668 else if (EQ (status, Qexit))
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
669 status = Qclosed;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
670 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
671 return status;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
672 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
673
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
674 DEFUN ("process-exit-status", Fprocess_exit_status, Sprocess_exit_status,
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
675 1, 1, 0,
40103
6b389fb978bc Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
676 doc: /* Return the exit status of PROCESS or the signal number that killed it.
6b389fb978bc Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
677 If PROCESS has not yet exited or died, return 0. */)
6b389fb978bc Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
678 (process)
14085
85ce7bab31dc (Fprocessp, Fget_buffer_process, Fdelete_process, Fprocess_status,
Erik Naggum <erik@naggum.no>
parents: 14036
diff changeset
679 register Lisp_Object process;
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
680 {
40656
cdfd4d09b79a Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents: 40641
diff changeset
681 CHECK_PROCESS (process);
14085
85ce7bab31dc (Fprocessp, Fget_buffer_process, Fdelete_process, Fprocess_status,
Erik Naggum <erik@naggum.no>
parents: 14036
diff changeset
682 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
683 update_status (XPROCESS (process));
85ce7bab31dc (Fprocessp, Fget_buffer_process, Fdelete_process, Fprocess_status,
Erik Naggum <erik@naggum.no>
parents: 14036
diff changeset
684 if (CONSP (XPROCESS (process)->status))
25645
a14111a2a100 Use XCAR, XCDR, XFLOAT_DATA instead of explicit member access.
Ken Raeburn <raeburn@raeburn.org>
parents: 25356
diff changeset
685 return XCAR (XCDR (XPROCESS (process)->status));
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
686 return make_number (0);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
687 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
688
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
689 DEFUN ("process-id", Fprocess_id, Sprocess_id, 1, 1, 0,
40103
6b389fb978bc Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
690 doc: /* Return the process id of PROCESS.
6b389fb978bc Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
691 This is the pid of the Unix process which PROCESS uses or talks to.
6b389fb978bc Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
692 For a network connection, this value is nil. */)
6b389fb978bc Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
693 (process)
14085
85ce7bab31dc (Fprocessp, Fget_buffer_process, Fdelete_process, Fprocess_status,
Erik Naggum <erik@naggum.no>
parents: 14036
diff changeset
694 register Lisp_Object process;
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
695 {
40656
cdfd4d09b79a Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents: 40641
diff changeset
696 CHECK_PROCESS (process);
14085
85ce7bab31dc (Fprocessp, Fget_buffer_process, Fdelete_process, Fprocess_status,
Erik Naggum <erik@naggum.no>
parents: 14036
diff changeset
697 return XPROCESS (process)->pid;
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
698 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
699
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
700 DEFUN ("process-name", Fprocess_name, Sprocess_name, 1, 1, 0,
40103
6b389fb978bc Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
701 doc: /* Return the name of PROCESS, as a string.
6b389fb978bc Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
702 This is the name of the program invoked in PROCESS,
6b389fb978bc Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
703 possibly modified to make it unique among process names. */)
6b389fb978bc Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
704 (process)
14085
85ce7bab31dc (Fprocessp, Fget_buffer_process, Fdelete_process, Fprocess_status,
Erik Naggum <erik@naggum.no>
parents: 14036
diff changeset
705 register Lisp_Object process;
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
706 {
40656
cdfd4d09b79a Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents: 40641
diff changeset
707 CHECK_PROCESS (process);
14085
85ce7bab31dc (Fprocessp, Fget_buffer_process, Fdelete_process, Fprocess_status,
Erik Naggum <erik@naggum.no>
parents: 14036
diff changeset
708 return XPROCESS (process)->name;
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
709 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
710
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
711 DEFUN ("process-command", Fprocess_command, Sprocess_command, 1, 1, 0,
40103
6b389fb978bc Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
712 doc: /* Return the command that was executed to start PROCESS.
6b389fb978bc Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
713 This is a list of strings, the first string being the program executed
6b389fb978bc Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
714 and the rest of the strings being the arguments given to it.
6b389fb978bc Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
715 For a non-child channel, this is nil. */)
6b389fb978bc Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
716 (process)
14085
85ce7bab31dc (Fprocessp, Fget_buffer_process, Fdelete_process, Fprocess_status,
Erik Naggum <erik@naggum.no>
parents: 14036
diff changeset
717 register Lisp_Object process;
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
718 {
40656
cdfd4d09b79a Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents: 40641
diff changeset
719 CHECK_PROCESS (process);
14085
85ce7bab31dc (Fprocessp, Fget_buffer_process, Fdelete_process, Fprocess_status,
Erik Naggum <erik@naggum.no>
parents: 14036
diff changeset
720 return XPROCESS (process)->command;
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
721 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
722
9030
b14532c71632 (exec_sentinel_error_handler): New function.
Richard M. Stallman <rms@gnu.org>
parents: 8570
diff changeset
723 DEFUN ("process-tty-name", Fprocess_tty_name, Sprocess_tty_name, 1, 1, 0,
40103
6b389fb978bc Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
724 doc: /* Return the name of the terminal PROCESS uses, or nil if none.
6b389fb978bc Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
725 This is the terminal that the process itself reads and writes on,
6b389fb978bc Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
726 not the name of the pty that Emacs uses to talk with that terminal. */)
6b389fb978bc Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
727 (process)
14085
85ce7bab31dc (Fprocessp, Fget_buffer_process, Fdelete_process, Fprocess_status,
Erik Naggum <erik@naggum.no>
parents: 14036
diff changeset
728 register Lisp_Object process;
9030
b14532c71632 (exec_sentinel_error_handler): New function.
Richard M. Stallman <rms@gnu.org>
parents: 8570
diff changeset
729 {
40656
cdfd4d09b79a Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents: 40641
diff changeset
730 CHECK_PROCESS (process);
14085
85ce7bab31dc (Fprocessp, Fget_buffer_process, Fdelete_process, Fprocess_status,
Erik Naggum <erik@naggum.no>
parents: 14036
diff changeset
731 return XPROCESS (process)->tty_name;
9030
b14532c71632 (exec_sentinel_error_handler): New function.
Richard M. Stallman <rms@gnu.org>
parents: 8570
diff changeset
732 }
b14532c71632 (exec_sentinel_error_handler): New function.
Richard M. Stallman <rms@gnu.org>
parents: 8570
diff changeset
733
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
734 DEFUN ("set-process-buffer", Fset_process_buffer, Sset_process_buffer,
40103
6b389fb978bc Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
735 2, 2, 0,
6b389fb978bc Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
736 doc: /* Set buffer associated with PROCESS to BUFFER (a buffer, or nil). */)
6b389fb978bc Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
737 (process, buffer)
14085
85ce7bab31dc (Fprocessp, Fget_buffer_process, Fdelete_process, Fprocess_status,
Erik Naggum <erik@naggum.no>
parents: 14036
diff changeset
738 register Lisp_Object process, buffer;
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
739 {
40656
cdfd4d09b79a Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents: 40641
diff changeset
740 CHECK_PROCESS (process);
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
741 if (!NILP (buffer))
40656
cdfd4d09b79a Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents: 40641
diff changeset
742 CHECK_BUFFER (buffer);
14085
85ce7bab31dc (Fprocessp, Fget_buffer_process, Fdelete_process, Fprocess_status,
Erik Naggum <erik@naggum.no>
parents: 14036
diff changeset
743 XPROCESS (process)->buffer = buffer;
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
744 return buffer;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
745 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
746
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
747 DEFUN ("process-buffer", Fprocess_buffer, Sprocess_buffer,
40103
6b389fb978bc Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
748 1, 1, 0,
6b389fb978bc Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
749 doc: /* Return the buffer PROCESS is associated with.
6b389fb978bc Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
750 Output from PROCESS is inserted in this buffer unless PROCESS has a filter. */)
6b389fb978bc Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
751 (process)
14085
85ce7bab31dc (Fprocessp, Fget_buffer_process, Fdelete_process, Fprocess_status,
Erik Naggum <erik@naggum.no>
parents: 14036
diff changeset
752 register Lisp_Object process;
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
753 {
40656
cdfd4d09b79a Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents: 40641
diff changeset
754 CHECK_PROCESS (process);
14085
85ce7bab31dc (Fprocessp, Fget_buffer_process, Fdelete_process, Fprocess_status,
Erik Naggum <erik@naggum.no>
parents: 14036
diff changeset
755 return XPROCESS (process)->buffer;
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
756 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
757
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
758 DEFUN ("process-mark", Fprocess_mark, Sprocess_mark,
40103
6b389fb978bc Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
759 1, 1, 0,
6b389fb978bc Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
760 doc: /* Return the marker for the end of the last output from PROCESS. */)
6b389fb978bc Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
761 (process)
14085
85ce7bab31dc (Fprocessp, Fget_buffer_process, Fdelete_process, Fprocess_status,
Erik Naggum <erik@naggum.no>
parents: 14036
diff changeset
762 register Lisp_Object process;
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
763 {
40656
cdfd4d09b79a Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents: 40641
diff changeset
764 CHECK_PROCESS (process);
14085
85ce7bab31dc (Fprocessp, Fget_buffer_process, Fdelete_process, Fprocess_status,
Erik Naggum <erik@naggum.no>
parents: 14036
diff changeset
765 return XPROCESS (process)->mark;
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
766 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
767
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
768 DEFUN ("set-process-filter", Fset_process_filter, Sset_process_filter,
40103
6b389fb978bc Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
769 2, 2, 0,
6b389fb978bc Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
770 doc: /* Give PROCESS the filter function FILTER; nil means no filter.
6b389fb978bc Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
771 t means stop accepting output from the process.
6b389fb978bc Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
772 When a process has a filter, each time it does output
6b389fb978bc Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
773 the entire string of output is passed to the filter.
6b389fb978bc Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
774 The filter gets two arguments: the process and the string of output.
6b389fb978bc Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
775 If the process has a filter, its buffer is not used for output. */)
6b389fb978bc Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
776 (process, filter)
14085
85ce7bab31dc (Fprocessp, Fget_buffer_process, Fdelete_process, Fprocess_status,
Erik Naggum <erik@naggum.no>
parents: 14036
diff changeset
777 register Lisp_Object process, filter;
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
778 {
36623
9fde2182c68a (Fset_process_filter): Don't crash if the input
Gerd Moellmann <gerd@gnu.org>
parents: 36434
diff changeset
779 struct Lisp_Process *p;
9fde2182c68a (Fset_process_filter): Don't crash if the input
Gerd Moellmann <gerd@gnu.org>
parents: 36434
diff changeset
780
40656
cdfd4d09b79a Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents: 40641
diff changeset
781 CHECK_PROCESS (process);
36623
9fde2182c68a (Fset_process_filter): Don't crash if the input
Gerd Moellmann <gerd@gnu.org>
parents: 36434
diff changeset
782 p = XPROCESS (process);
9fde2182c68a (Fset_process_filter): Don't crash if the input
Gerd Moellmann <gerd@gnu.org>
parents: 36434
diff changeset
783
9fde2182c68a (Fset_process_filter): Don't crash if the input
Gerd Moellmann <gerd@gnu.org>
parents: 36434
diff changeset
784 /* Don't signal an error if the process' input file descriptor
9fde2182c68a (Fset_process_filter): Don't crash if the input
Gerd Moellmann <gerd@gnu.org>
parents: 36434
diff changeset
785 is closed. This could make debugging Lisp more difficult,
9fde2182c68a (Fset_process_filter): Don't crash if the input
Gerd Moellmann <gerd@gnu.org>
parents: 36434
diff changeset
786 for example when doing something like
9fde2182c68a (Fset_process_filter): Don't crash if the input
Gerd Moellmann <gerd@gnu.org>
parents: 36434
diff changeset
787
9fde2182c68a (Fset_process_filter): Don't crash if the input
Gerd Moellmann <gerd@gnu.org>
parents: 36434
diff changeset
788 (setq process (start-process ...))
9fde2182c68a (Fset_process_filter): Don't crash if the input
Gerd Moellmann <gerd@gnu.org>
parents: 36434
diff changeset
789 (debug)
9fde2182c68a (Fset_process_filter): Don't crash if the input
Gerd Moellmann <gerd@gnu.org>
parents: 36434
diff changeset
790 (set-process-filter process ...) */
9fde2182c68a (Fset_process_filter): Don't crash if the input
Gerd Moellmann <gerd@gnu.org>
parents: 36434
diff changeset
791
9fde2182c68a (Fset_process_filter): Don't crash if the input
Gerd Moellmann <gerd@gnu.org>
parents: 36434
diff changeset
792 if (XINT (p->infd) >= 0)
9686
cd788aa8cb2a Handle multiple keyboard input descriptors.
Richard M. Stallman <rms@gnu.org>
parents: 9334
diff changeset
793 {
36623
9fde2182c68a (Fset_process_filter): Don't crash if the input
Gerd Moellmann <gerd@gnu.org>
parents: 36434
diff changeset
794 if (EQ (filter, Qt))
9fde2182c68a (Fset_process_filter): Don't crash if the input
Gerd Moellmann <gerd@gnu.org>
parents: 36434
diff changeset
795 {
9fde2182c68a (Fset_process_filter): Don't crash if the input
Gerd Moellmann <gerd@gnu.org>
parents: 36434
diff changeset
796 FD_CLR (XINT (p->infd), &input_wait_mask);
9fde2182c68a (Fset_process_filter): Don't crash if the input
Gerd Moellmann <gerd@gnu.org>
parents: 36434
diff changeset
797 FD_CLR (XINT (p->infd), &non_keyboard_wait_mask);
9fde2182c68a (Fset_process_filter): Don't crash if the input
Gerd Moellmann <gerd@gnu.org>
parents: 36434
diff changeset
798 }
9fde2182c68a (Fset_process_filter): Don't crash if the input
Gerd Moellmann <gerd@gnu.org>
parents: 36434
diff changeset
799 else if (EQ (XPROCESS (process)->filter, Qt))
9fde2182c68a (Fset_process_filter): Don't crash if the input
Gerd Moellmann <gerd@gnu.org>
parents: 36434
diff changeset
800 {
9fde2182c68a (Fset_process_filter): Don't crash if the input
Gerd Moellmann <gerd@gnu.org>
parents: 36434
diff changeset
801 FD_SET (XINT (p->infd), &input_wait_mask);
9fde2182c68a (Fset_process_filter): Don't crash if the input
Gerd Moellmann <gerd@gnu.org>
parents: 36434
diff changeset
802 FD_SET (XINT (p->infd), &non_keyboard_wait_mask);
9fde2182c68a (Fset_process_filter): Don't crash if the input
Gerd Moellmann <gerd@gnu.org>
parents: 36434
diff changeset
803 }
9686
cd788aa8cb2a Handle multiple keyboard input descriptors.
Richard M. Stallman <rms@gnu.org>
parents: 9334
diff changeset
804 }
36623
9fde2182c68a (Fset_process_filter): Don't crash if the input
Gerd Moellmann <gerd@gnu.org>
parents: 36434
diff changeset
805
9fde2182c68a (Fset_process_filter): Don't crash if the input
Gerd Moellmann <gerd@gnu.org>
parents: 36434
diff changeset
806 p->filter = filter;
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
807 return filter;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
808 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
809
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
810 DEFUN ("process-filter", Fprocess_filter, Sprocess_filter,
40103
6b389fb978bc Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
811 1, 1, 0,
6b389fb978bc Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
812 doc: /* Returns the filter function of PROCESS; nil if none.
6b389fb978bc Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
813 See `set-process-filter' for more info on filter functions. */)
6b389fb978bc Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
814 (process)
14085
85ce7bab31dc (Fprocessp, Fget_buffer_process, Fdelete_process, Fprocess_status,
Erik Naggum <erik@naggum.no>
parents: 14036
diff changeset
815 register Lisp_Object process;
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
816 {
40656
cdfd4d09b79a Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents: 40641
diff changeset
817 CHECK_PROCESS (process);
14085
85ce7bab31dc (Fprocessp, Fget_buffer_process, Fdelete_process, Fprocess_status,
Erik Naggum <erik@naggum.no>
parents: 14036
diff changeset
818 return XPROCESS (process)->filter;
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
819 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
820
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
821 DEFUN ("set-process-sentinel", Fset_process_sentinel, Sset_process_sentinel,
40103
6b389fb978bc Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
822 2, 2, 0,
6b389fb978bc Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
823 doc: /* Give PROCESS the sentinel SENTINEL; nil for none.
6b389fb978bc Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
824 The sentinel is called as a function when the process changes state.
6b389fb978bc Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
825 It gets two arguments: the process, and a string describing the change. */)
6b389fb978bc Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
826 (process, sentinel)
14085
85ce7bab31dc (Fprocessp, Fget_buffer_process, Fdelete_process, Fprocess_status,
Erik Naggum <erik@naggum.no>
parents: 14036
diff changeset
827 register Lisp_Object process, sentinel;
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
828 {
40656
cdfd4d09b79a Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents: 40641
diff changeset
829 CHECK_PROCESS (process);
14085
85ce7bab31dc (Fprocessp, Fget_buffer_process, Fdelete_process, Fprocess_status,
Erik Naggum <erik@naggum.no>
parents: 14036
diff changeset
830 XPROCESS (process)->sentinel = sentinel;
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
831 return sentinel;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
832 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
833
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
834 DEFUN ("process-sentinel", Fprocess_sentinel, Sprocess_sentinel,
40103
6b389fb978bc Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
835 1, 1, 0,
6b389fb978bc Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
836 doc: /* Return the sentinel of PROCESS; nil if none.
6b389fb978bc Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
837 See `set-process-sentinel' for more info on sentinels. */)
6b389fb978bc Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
838 (process)
14085
85ce7bab31dc (Fprocessp, Fget_buffer_process, Fdelete_process, Fprocess_status,
Erik Naggum <erik@naggum.no>
parents: 14036
diff changeset
839 register Lisp_Object process;
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
840 {
40656
cdfd4d09b79a Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents: 40641
diff changeset
841 CHECK_PROCESS (process);
14085
85ce7bab31dc (Fprocessp, Fget_buffer_process, Fdelete_process, Fprocess_status,
Erik Naggum <erik@naggum.no>
parents: 14036
diff changeset
842 return XPROCESS (process)->sentinel;
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
843 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
844
6830
bcaddbe53068 (Fset_process_window_size): New function.
Richard M. Stallman <rms@gnu.org>
parents: 6823
diff changeset
845 DEFUN ("set-process-window-size", Fset_process_window_size,
40103
6b389fb978bc Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
846 Sset_process_window_size, 3, 3, 0,
6b389fb978bc Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
847 doc: /* Tell PROCESS that it has logical window size HEIGHT and WIDTH. */)
6b389fb978bc Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
848 (process, height, width)
14085
85ce7bab31dc (Fprocessp, Fget_buffer_process, Fdelete_process, Fprocess_status,
Erik Naggum <erik@naggum.no>
parents: 14036
diff changeset
849 register Lisp_Object process, height, width;
6830
bcaddbe53068 (Fset_process_window_size): New function.
Richard M. Stallman <rms@gnu.org>
parents: 6823
diff changeset
850 {
40656
cdfd4d09b79a Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents: 40641
diff changeset
851 CHECK_PROCESS (process);
cdfd4d09b79a Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents: 40641
diff changeset
852 CHECK_NATNUM (height);
cdfd4d09b79a Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents: 40641
diff changeset
853 CHECK_NATNUM (width);
36623
9fde2182c68a (Fset_process_filter): Don't crash if the input
Gerd Moellmann <gerd@gnu.org>
parents: 36434
diff changeset
854
36659
c1c5ad73f700 (Fset_process_window_size): Fix a typo.
Gerd Moellmann <gerd@gnu.org>
parents: 36623
diff changeset
855 if (XINT (XPROCESS (process)->infd) < 0
36623
9fde2182c68a (Fset_process_filter): Don't crash if the input
Gerd Moellmann <gerd@gnu.org>
parents: 36434
diff changeset
856 || set_window_size (XINT (XPROCESS (process)->infd),
9fde2182c68a (Fset_process_filter): Don't crash if the input
Gerd Moellmann <gerd@gnu.org>
parents: 36434
diff changeset
857 XINT (height), XINT (width)) <= 0)
6830
bcaddbe53068 (Fset_process_window_size): New function.
Richard M. Stallman <rms@gnu.org>
parents: 6823
diff changeset
858 return Qnil;
bcaddbe53068 (Fset_process_window_size): New function.
Richard M. Stallman <rms@gnu.org>
parents: 6823
diff changeset
859 else
bcaddbe53068 (Fset_process_window_size): New function.
Richard M. Stallman <rms@gnu.org>
parents: 6823
diff changeset
860 return Qt;
bcaddbe53068 (Fset_process_window_size): New function.
Richard M. Stallman <rms@gnu.org>
parents: 6823
diff changeset
861 }
bcaddbe53068 (Fset_process_window_size): New function.
Richard M. Stallman <rms@gnu.org>
parents: 6823
diff changeset
862
21656
bb39a5863a82 (Fset_process_inherit_coding_system_flag,
Eli Zaretskii <eliz@gnu.org>
parents: 21530
diff changeset
863 DEFUN ("set-process-inherit-coding-system-flag",
40103
6b389fb978bc Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
864 Fset_process_inherit_coding_system_flag,
6b389fb978bc Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
865 Sset_process_inherit_coding_system_flag, 2, 2, 0,
6b389fb978bc Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
866 doc: /* Determine whether buffer of PROCESS will inherit coding-system.
6b389fb978bc Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
867 If the second argument FLAG is non-nil, then the variable
6b389fb978bc Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
868 `buffer-file-coding-system' of the buffer associated with PROCESS
6b389fb978bc Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
869 will be bound to the value of the coding system used to decode
6b389fb978bc Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
870 the process output.
6b389fb978bc Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
871
6b389fb978bc Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
872 This is useful when the coding system specified for the process buffer
6b389fb978bc Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
873 leaves either the character code conversion or the end-of-line conversion
6b389fb978bc Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
874 unspecified, or if the coding system used to decode the process output
6b389fb978bc Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
875 is more appropriate for saving the process buffer.
6b389fb978bc Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
876
6b389fb978bc Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
877 Binding the variable `inherit-process-coding-system' to non-nil before
6b389fb978bc Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
878 starting the process is an alternative way of setting the inherit flag
6b389fb978bc Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
879 for the process which will run. */)
6b389fb978bc Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
880 (process, flag)
21656
bb39a5863a82 (Fset_process_inherit_coding_system_flag,
Eli Zaretskii <eliz@gnu.org>
parents: 21530
diff changeset
881 register Lisp_Object process, flag;
bb39a5863a82 (Fset_process_inherit_coding_system_flag,
Eli Zaretskii <eliz@gnu.org>
parents: 21530
diff changeset
882 {
40656
cdfd4d09b79a Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents: 40641
diff changeset
883 CHECK_PROCESS (process);
21848
050ea21cec87 (Fset_process_inherit_coding_system_flag, Fstart_process):
Richard M. Stallman <rms@gnu.org>
parents: 21798
diff changeset
884 XPROCESS (process)->inherit_coding_system_flag = flag;
21656
bb39a5863a82 (Fset_process_inherit_coding_system_flag,
Eli Zaretskii <eliz@gnu.org>
parents: 21530
diff changeset
885 return flag;
bb39a5863a82 (Fset_process_inherit_coding_system_flag,
Eli Zaretskii <eliz@gnu.org>
parents: 21530
diff changeset
886 }
bb39a5863a82 (Fset_process_inherit_coding_system_flag,
Eli Zaretskii <eliz@gnu.org>
parents: 21530
diff changeset
887
bb39a5863a82 (Fset_process_inherit_coding_system_flag,
Eli Zaretskii <eliz@gnu.org>
parents: 21530
diff changeset
888 DEFUN ("process-inherit-coding-system-flag",
40103
6b389fb978bc Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
889 Fprocess_inherit_coding_system_flag, Sprocess_inherit_coding_system_flag,
6b389fb978bc Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
890 1, 1, 0,
6b389fb978bc Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
891 doc: /* Return the value of inherit-coding-system flag for PROCESS.
6b389fb978bc Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
892 If this flag is t, `buffer-file-coding-system' of the buffer
6b389fb978bc Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
893 associated with PROCESS will inherit the coding system used to decode
6b389fb978bc Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
894 the process output. */)
6b389fb978bc Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
895 (process)
21656
bb39a5863a82 (Fset_process_inherit_coding_system_flag,
Eli Zaretskii <eliz@gnu.org>
parents: 21530
diff changeset
896 register Lisp_Object process;
bb39a5863a82 (Fset_process_inherit_coding_system_flag,
Eli Zaretskii <eliz@gnu.org>
parents: 21530
diff changeset
897 {
40656
cdfd4d09b79a Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents: 40641
diff changeset
898 CHECK_PROCESS (process);
21848
050ea21cec87 (Fset_process_inherit_coding_system_flag, Fstart_process):
Richard M. Stallman <rms@gnu.org>
parents: 21798
diff changeset
899 return XPROCESS (process)->inherit_coding_system_flag;
21656
bb39a5863a82 (Fset_process_inherit_coding_system_flag,
Eli Zaretskii <eliz@gnu.org>
parents: 21530
diff changeset
900 }
bb39a5863a82 (Fset_process_inherit_coding_system_flag,
Eli Zaretskii <eliz@gnu.org>
parents: 21530
diff changeset
901
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
902 DEFUN ("process-kill-without-query", Fprocess_kill_without_query,
40103
6b389fb978bc Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
903 Sprocess_kill_without_query, 1, 2, 0,
6b389fb978bc Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
904 doc: /* Say no query needed if PROCESS is running when Emacs is exited.
6b389fb978bc Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
905 Optional second argument if non-nil says to require a query.
6b389fb978bc Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
906 Value is t if a query was formerly required. */)
6b389fb978bc Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
907 (process, value)
14085
85ce7bab31dc (Fprocessp, Fget_buffer_process, Fdelete_process, Fprocess_status,
Erik Naggum <erik@naggum.no>
parents: 14036
diff changeset
908 register Lisp_Object process, value;
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
909 {
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
910 Lisp_Object tem;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
911
40656
cdfd4d09b79a Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents: 40641
diff changeset
912 CHECK_PROCESS (process);
14085
85ce7bab31dc (Fprocessp, Fget_buffer_process, Fdelete_process, Fprocess_status,
Erik Naggum <erik@naggum.no>
parents: 14036
diff changeset
913 tem = XPROCESS (process)->kill_without_query;
85ce7bab31dc (Fprocessp, Fget_buffer_process, Fdelete_process, Fprocess_status,
Erik Naggum <erik@naggum.no>
parents: 14036
diff changeset
914 XPROCESS (process)->kill_without_query = Fnull (value);
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
915
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
916 return Fnull (tem);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
917 }
4231
91a883c56382 (Fget_buffer_process): Delete doc string from
Richard M. Stallman <rms@gnu.org>
parents: 4057
diff changeset
918
16058
924aeb9ed7c3 (Fprocess_contact): New function.
Richard M. Stallman <rms@gnu.org>
parents: 16053
diff changeset
919 DEFUN ("process-contact", Fprocess_contact, Sprocess_contact,
40103
6b389fb978bc Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
920 1, 1, 0,
6b389fb978bc Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
921 doc: /* Return the contact info of PROCESS; t for a real child.
6b389fb978bc Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
922 For a net connection, the value is a cons cell of the form (HOST SERVICE). */)
6b389fb978bc Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
923 (process)
16058
924aeb9ed7c3 (Fprocess_contact): New function.
Richard M. Stallman <rms@gnu.org>
parents: 16053
diff changeset
924 register Lisp_Object process;
924aeb9ed7c3 (Fprocess_contact): New function.
Richard M. Stallman <rms@gnu.org>
parents: 16053
diff changeset
925 {
40656
cdfd4d09b79a Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents: 40641
diff changeset
926 CHECK_PROCESS (process);
16058
924aeb9ed7c3 (Fprocess_contact): New function.
Richard M. Stallman <rms@gnu.org>
parents: 16053
diff changeset
927 return XPROCESS (process)->childp;
924aeb9ed7c3 (Fprocess_contact): New function.
Richard M. Stallman <rms@gnu.org>
parents: 16053
diff changeset
928 }
924aeb9ed7c3 (Fprocess_contact): New function.
Richard M. Stallman <rms@gnu.org>
parents: 16053
diff changeset
929
4231
91a883c56382 (Fget_buffer_process): Delete doc string from
Richard M. Stallman <rms@gnu.org>
parents: 4057
diff changeset
930 #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
931 in the process. Perhaps add it. */
91a883c56382 (Fget_buffer_process): Delete doc string from
Richard M. Stallman <rms@gnu.org>
parents: 4057
diff changeset
932 DEFUN ("process-connection", Fprocess_connection, Sprocess_connection, 1, 1, 0,
40103
6b389fb978bc Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
933 doc: /* Return the connection type of PROCESS.
6b389fb978bc Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
934 The value is nil for a pipe, t or `pty' for a pty, or `stream' for
6b389fb978bc Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
935 a socket connection. */)
6b389fb978bc Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
936 (process)
4231
91a883c56382 (Fget_buffer_process): Delete doc string from
Richard M. Stallman <rms@gnu.org>
parents: 4057
diff changeset
937 Lisp_Object process;
91a883c56382 (Fget_buffer_process): Delete doc string from
Richard M. Stallman <rms@gnu.org>
parents: 4057
diff changeset
938 {
91a883c56382 (Fget_buffer_process): Delete doc string from
Richard M. Stallman <rms@gnu.org>
parents: 4057
diff changeset
939 return XPROCESS (process)->type;
91a883c56382 (Fget_buffer_process): Delete doc string from
Richard M. Stallman <rms@gnu.org>
parents: 4057
diff changeset
940 }
91a883c56382 (Fget_buffer_process): Delete doc string from
Richard M. Stallman <rms@gnu.org>
parents: 4057
diff changeset
941 #endif
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
942
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
943 Lisp_Object
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
944 list_processes_1 ()
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
945 {
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
946 register Lisp_Object tail, tem;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
947 Lisp_Object proc, minspace, tem1;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
948 register struct Lisp_Process *p;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
949 char tembuf[80];
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
950
9318
a14cc1712337 (make_process, list_processes_1, create_process, Faccept_process_output,
Karl Heuer <kwzh@gnu.org>
parents: 9277
diff changeset
951 XSETFASTINT (minspace, 1);
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
952
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
953 set_buffer_internal (XBUFFER (Vstandard_output));
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
954 Fbuffer_disable_undo (Vstandard_output);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
955
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
956 current_buffer->truncate_lines = Qt;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
957
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
958 write_string ("\
9697
328b8bc31f73 (list_processes_1): Print tty name.
Karl Heuer <kwzh@gnu.org>
parents: 9686
diff changeset
959 Proc Status Buffer Tty Command\n\
328b8bc31f73 (list_processes_1): Print tty name.
Karl Heuer <kwzh@gnu.org>
parents: 9686
diff changeset
960 ---- ------ ------ --- -------\n", -1);
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
961
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
962 for (tail = Vprocess_alist; !NILP (tail); tail = Fcdr (tail))
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
963 {
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
964 Lisp_Object symbol;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
965
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
966 proc = Fcdr (Fcar (tail));
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
967 p = XPROCESS (proc);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
968 if (NILP (p->childp))
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
969 continue;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
970
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
971 Finsert (1, &p->name);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
972 Findent_to (make_number (13), minspace);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
973
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
974 if (!NILP (p->raw_status_low))
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
975 update_status (p);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
976 symbol = p->status;
9115
59bc2d010b5f (decode_status, Fprocessp, Fget_process, Fget_buffer_process, Fprocess_status,
Karl Heuer <kwzh@gnu.org>
parents: 9034
diff changeset
977 if (CONSP (p->status))
25645
a14111a2a100 Use XCAR, XCDR, XFLOAT_DATA instead of explicit member access.
Ken Raeburn <raeburn@raeburn.org>
parents: 25356
diff changeset
978 symbol = XCAR (p->status);
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
979
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
980
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
981 if (EQ (symbol, Qsignal))
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
982 {
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
983 Lisp_Object tem;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
984 tem = Fcar (Fcdr (p->status));
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
985 #ifdef VMS
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
986 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
987 write_string (sys_errlist [XINT (tem)], -1);
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
988 else
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
989 #endif
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
990 Fprinc (symbol, Qnil);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
991 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
992 else if (NETCONN_P (proc))
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
993 {
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
994 if (EQ (symbol, Qrun))
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
995 write_string ("open", -1);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
996 else if (EQ (symbol, Qexit))
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
997 write_string ("closed", -1);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
998 else
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
999 Fprinc (symbol, 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 else
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1002 Fprinc (symbol, Qnil);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1003
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1004 if (EQ (symbol, Qexit))
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1005 {
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1006 Lisp_Object tem;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1007 tem = Fcar (Fcdr (p->status));
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1008 if (XFASTINT (tem))
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1009 {
11695
0f9b9c375416 (list_processes_1): Cast XFASTINT for passing to sprintf.
Richard M. Stallman <rms@gnu.org>
parents: 11609
diff changeset
1010 sprintf (tembuf, " %d", (int) XFASTINT (tem));
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1011 write_string (tembuf, -1);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1012 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1013 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1014
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1015 if (EQ (symbol, Qsignal) || EQ (symbol, Qexit))
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1016 remove_process (proc);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1017
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1018 Findent_to (make_number (22), minspace);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1019 if (NILP (p->buffer))
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1020 insert_string ("(none)");
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1021 else if (NILP (XBUFFER (p->buffer)->name))
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1022 insert_string ("(Killed)");
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1023 else
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1024 Finsert (1, &XBUFFER (p->buffer)->name);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1025
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1026 Findent_to (make_number (37), minspace);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1027
9697
328b8bc31f73 (list_processes_1): Print tty name.
Karl Heuer <kwzh@gnu.org>
parents: 9686
diff changeset
1028 if (STRINGP (p->tty_name))
328b8bc31f73 (list_processes_1): Print tty name.
Karl Heuer <kwzh@gnu.org>
parents: 9686
diff changeset
1029 Finsert (1, &p->tty_name);
328b8bc31f73 (list_processes_1): Print tty name.
Karl Heuer <kwzh@gnu.org>
parents: 9686
diff changeset
1030 else
328b8bc31f73 (list_processes_1): Print tty name.
Karl Heuer <kwzh@gnu.org>
parents: 9686
diff changeset
1031 insert_string ("(none)");
328b8bc31f73 (list_processes_1): Print tty name.
Karl Heuer <kwzh@gnu.org>
parents: 9686
diff changeset
1032
328b8bc31f73 (list_processes_1): Print tty name.
Karl Heuer <kwzh@gnu.org>
parents: 9686
diff changeset
1033 Findent_to (make_number (49), minspace);
328b8bc31f73 (list_processes_1): Print tty name.
Karl Heuer <kwzh@gnu.org>
parents: 9686
diff changeset
1034
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1035 if (NETCONN_P (proc))
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1036 {
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1037 sprintf (tembuf, "(network stream connection to %s)\n",
25645
a14111a2a100 Use XCAR, XCDR, XFLOAT_DATA instead of explicit member access.
Ken Raeburn <raeburn@raeburn.org>
parents: 25356
diff changeset
1038 XSTRING (XCAR (p->childp))->data);
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1039 insert_string (tembuf);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1040 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1041 else
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1042 {
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1043 tem = p->command;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1044 while (1)
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1045 {
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1046 tem1 = Fcar (tem);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1047 Finsert (1, &tem1);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1048 tem = Fcdr (tem);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1049 if (NILP (tem))
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1050 break;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1051 insert_string (" ");
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1052 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1053 insert_string ("\n");
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1054 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1055 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1056 return Qnil;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1057 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1058
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1059 DEFUN ("list-processes", Flist_processes, Slist_processes, 0, 0, "",
40103
6b389fb978bc Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
1060 doc: /* Display a list of all processes.
6b389fb978bc Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
1061 Any process listed as exited or signaled is actually eliminated
6b389fb978bc Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
1062 after the listing is made. */)
6b389fb978bc Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
1063 ()
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1064 {
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1065 internal_with_output_to_temp_buffer ("*Process List*",
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1066 list_processes_1, Qnil);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1067 return Qnil;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1068 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1069
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1070 DEFUN ("process-list", Fprocess_list, Sprocess_list, 0, 0, 0,
40103
6b389fb978bc Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
1071 doc: /* Return a list of all processes. */)
6b389fb978bc Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
1072 ()
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1073 {
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1074 return Fmapcar (Qcdr, Vprocess_alist);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1075 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1076
1594
b476a97ad17e * systty.h, process.c, buffer.h, callproc.c, sysdep.c, dired.c:
Jim Blandy <jimb@redhat.com>
parents: 1569
diff changeset
1077 /* 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
1078
b476a97ad17e * systty.h, process.c, buffer.h, callproc.c, sysdep.c, dired.c:
Jim Blandy <jimb@redhat.com>
parents: 1569
diff changeset
1079 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
1080
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1081 DEFUN ("start-process", Fstart_process, Sstart_process, 3, MANY, 0,
40103
6b389fb978bc Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
1082 doc: /* Start a program in a subprocess. Return the process object for it.
6b389fb978bc Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
1083 NAME is name for process. It is modified if necessary to make it unique.
6b389fb978bc Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
1084 BUFFER is the buffer or (buffer-name) to associate with the process.
6b389fb978bc Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
1085 Process output goes at end of that buffer, unless you specify
6b389fb978bc Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
1086 an output stream or filter function to handle the output.
6b389fb978bc Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
1087 BUFFER may be also nil, meaning that this process is not associated
6b389fb978bc Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
1088 with any buffer.
6b389fb978bc Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
1089 Third arg is program file name. It is searched for in PATH.
40641
d94fc1022312 (Fstart_process): Add usage to doc-string.
Pavel Janík <Pavel@Janik.cz>
parents: 40231
diff changeset
1090 Remaining arguments are strings to give program as arguments.
d94fc1022312 (Fstart_process): Add usage to doc-string.
Pavel Janík <Pavel@Janik.cz>
parents: 40231
diff changeset
1091 usage: (start-process NAME BUFFER PROGRAM &rest PROGRAM-ARGS) */)
40103
6b389fb978bc Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
1092 (nargs, args)
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1093 int nargs;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1094 register Lisp_Object *args;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1095 {
1683
a0a41de51400 Give subprocess creation a way to find a valid current directory
Jim Blandy <jimb@redhat.com>
parents: 1655
diff changeset
1096 Lisp_Object buffer, name, program, proc, current_dir, tem;
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1097 #ifdef VMS
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1098 register unsigned char *new_argv;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1099 int len;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1100 #else
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1101 register unsigned char **new_argv;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1102 #endif
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1103 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
1104 int count = specpdl_ptr - specpdl;
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1105
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1106 buffer = args[1];
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1107 if (!NILP (buffer))
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1108 buffer = Fget_buffer_create (buffer);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1109
1683
a0a41de51400 Give subprocess creation a way to find a valid current directory
Jim Blandy <jimb@redhat.com>
parents: 1655
diff changeset
1110 /* 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
1111 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
1112 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
1113 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
1114
a0a41de51400 Give subprocess creation a way to find a valid current directory
Jim Blandy <jimb@redhat.com>
parents: 1655
diff changeset
1115 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
1116 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
1117 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
1118 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
1119 {
a0a41de51400 Give subprocess creation a way to find a valid current directory
Jim Blandy <jimb@redhat.com>
parents: 1655
diff changeset
1120 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
1121
a0a41de51400 Give subprocess creation a way to find a valid current directory
Jim Blandy <jimb@redhat.com>
parents: 1655
diff changeset
1122 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
1123
a0a41de51400 Give subprocess creation a way to find a valid current directory
Jim Blandy <jimb@redhat.com>
parents: 1655
diff changeset
1124 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
1125
10744
54a76e0b97ec (Fstart_process): Make process marker point into proc buf.
Richard M. Stallman <rms@gnu.org>
parents: 10548
diff changeset
1126 current_dir
54a76e0b97ec (Fstart_process): Make process marker point into proc buf.
Richard M. Stallman <rms@gnu.org>
parents: 10548
diff changeset
1127 = 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
1128 Qnil);
1683
a0a41de51400 Give subprocess creation a way to find a valid current directory
Jim Blandy <jimb@redhat.com>
parents: 1655
diff changeset
1129 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
1130 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
1131 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
1132
a0a41de51400 Give subprocess creation a way to find a valid current directory
Jim Blandy <jimb@redhat.com>
parents: 1655
diff changeset
1133 UNGCPRO;
a0a41de51400 Give subprocess creation a way to find a valid current directory
Jim Blandy <jimb@redhat.com>
parents: 1655
diff changeset
1134 }
a0a41de51400 Give subprocess creation a way to find a valid current directory
Jim Blandy <jimb@redhat.com>
parents: 1655
diff changeset
1135
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1136 name = args[0];
40656
cdfd4d09b79a Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents: 40641
diff changeset
1137 CHECK_STRING (name);
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 program = args[2];
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1140
40656
cdfd4d09b79a Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents: 40641
diff changeset
1141 CHECK_STRING (program);
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1142
29017
8f10362eb5ff (Fstart_process): GCPRO current_dir before calling
Kenichi Handa <handa@m17n.org>
parents: 28157
diff changeset
1143 proc = make_process (name);
8f10362eb5ff (Fstart_process): GCPRO current_dir before calling
Kenichi Handa <handa@m17n.org>
parents: 28157
diff changeset
1144 /* If an error occurs and we can't start the process, we want to
8f10362eb5ff (Fstart_process): GCPRO current_dir before calling
Kenichi Handa <handa@m17n.org>
parents: 28157
diff changeset
1145 remove it from the process list. This means that each error
8f10362eb5ff (Fstart_process): GCPRO current_dir before calling
Kenichi Handa <handa@m17n.org>
parents: 28157
diff changeset
1146 check in create_process doesn't need to call remove_process
8f10362eb5ff (Fstart_process): GCPRO current_dir before calling
Kenichi Handa <handa@m17n.org>
parents: 28157
diff changeset
1147 itself; it's all taken care of here. */
8f10362eb5ff (Fstart_process): GCPRO current_dir before calling
Kenichi Handa <handa@m17n.org>
parents: 28157
diff changeset
1148 record_unwind_protect (start_process_unwind, proc);
8f10362eb5ff (Fstart_process): GCPRO current_dir before calling
Kenichi Handa <handa@m17n.org>
parents: 28157
diff changeset
1149
8f10362eb5ff (Fstart_process): GCPRO current_dir before calling
Kenichi Handa <handa@m17n.org>
parents: 28157
diff changeset
1150 XPROCESS (proc)->childp = Qt;
8f10362eb5ff (Fstart_process): GCPRO current_dir before calling
Kenichi Handa <handa@m17n.org>
parents: 28157
diff changeset
1151 XPROCESS (proc)->command_channel_p = Qnil;
8f10362eb5ff (Fstart_process): GCPRO current_dir before calling
Kenichi Handa <handa@m17n.org>
parents: 28157
diff changeset
1152 XPROCESS (proc)->buffer = buffer;
8f10362eb5ff (Fstart_process): GCPRO current_dir before calling
Kenichi Handa <handa@m17n.org>
parents: 28157
diff changeset
1153 XPROCESS (proc)->sentinel = Qnil;
8f10362eb5ff (Fstart_process): GCPRO current_dir before calling
Kenichi Handa <handa@m17n.org>
parents: 28157
diff changeset
1154 XPROCESS (proc)->filter = Qnil;
8f10362eb5ff (Fstart_process): GCPRO current_dir before calling
Kenichi Handa <handa@m17n.org>
parents: 28157
diff changeset
1155 XPROCESS (proc)->command = Flist (nargs - 2, args + 2);
8f10362eb5ff (Fstart_process): GCPRO current_dir before calling
Kenichi Handa <handa@m17n.org>
parents: 28157
diff changeset
1156
8f10362eb5ff (Fstart_process): GCPRO current_dir before calling
Kenichi Handa <handa@m17n.org>
parents: 28157
diff changeset
1157 /* Make the process marker point into the process buffer (if any). */
8f10362eb5ff (Fstart_process): GCPRO current_dir before calling
Kenichi Handa <handa@m17n.org>
parents: 28157
diff changeset
1158 if (!NILP (buffer))
8f10362eb5ff (Fstart_process): GCPRO current_dir before calling
Kenichi Handa <handa@m17n.org>
parents: 28157
diff changeset
1159 set_marker_both (XPROCESS (proc)->mark, buffer,
8f10362eb5ff (Fstart_process): GCPRO current_dir before calling
Kenichi Handa <handa@m17n.org>
parents: 28157
diff changeset
1160 BUF_ZV (XBUFFER (buffer)),
8f10362eb5ff (Fstart_process): GCPRO current_dir before calling
Kenichi Handa <handa@m17n.org>
parents: 28157
diff changeset
1161 BUF_ZV_BYTE (XBUFFER (buffer)));
8f10362eb5ff (Fstart_process): GCPRO current_dir before calling
Kenichi Handa <handa@m17n.org>
parents: 28157
diff changeset
1162
8f10362eb5ff (Fstart_process): GCPRO current_dir before calling
Kenichi Handa <handa@m17n.org>
parents: 28157
diff changeset
1163 {
8f10362eb5ff (Fstart_process): GCPRO current_dir before calling
Kenichi Handa <handa@m17n.org>
parents: 28157
diff changeset
1164 /* Decide coding systems for communicating with the process. Here
8f10362eb5ff (Fstart_process): GCPRO current_dir before calling
Kenichi Handa <handa@m17n.org>
parents: 28157
diff changeset
1165 we don't setup the structure coding_system nor pay attention to
8f10362eb5ff (Fstart_process): GCPRO current_dir before calling
Kenichi Handa <handa@m17n.org>
parents: 28157
diff changeset
1166 unibyte mode. They are done in create_process. */
8f10362eb5ff (Fstart_process): GCPRO current_dir before calling
Kenichi Handa <handa@m17n.org>
parents: 28157
diff changeset
1167
8f10362eb5ff (Fstart_process): GCPRO current_dir before calling
Kenichi Handa <handa@m17n.org>
parents: 28157
diff changeset
1168 /* Qt denotes we have not yet called Ffind_operation_coding_system. */
8f10362eb5ff (Fstart_process): GCPRO current_dir before calling
Kenichi Handa <handa@m17n.org>
parents: 28157
diff changeset
1169 Lisp_Object coding_systems = Qt;
8f10362eb5ff (Fstart_process): GCPRO current_dir before calling
Kenichi Handa <handa@m17n.org>
parents: 28157
diff changeset
1170 Lisp_Object val, *args2;
8f10362eb5ff (Fstart_process): GCPRO current_dir before calling
Kenichi Handa <handa@m17n.org>
parents: 28157
diff changeset
1171 struct gcpro gcpro1, gcpro2;
8f10362eb5ff (Fstart_process): GCPRO current_dir before calling
Kenichi Handa <handa@m17n.org>
parents: 28157
diff changeset
1172
8f10362eb5ff (Fstart_process): GCPRO current_dir before calling
Kenichi Handa <handa@m17n.org>
parents: 28157
diff changeset
1173 val = Vcoding_system_for_read;
8f10362eb5ff (Fstart_process): GCPRO current_dir before calling
Kenichi Handa <handa@m17n.org>
parents: 28157
diff changeset
1174 if (NILP (val))
8f10362eb5ff (Fstart_process): GCPRO current_dir before calling
Kenichi Handa <handa@m17n.org>
parents: 28157
diff changeset
1175 {
8f10362eb5ff (Fstart_process): GCPRO current_dir before calling
Kenichi Handa <handa@m17n.org>
parents: 28157
diff changeset
1176 args2 = (Lisp_Object *) alloca ((nargs + 1) * sizeof *args2);
8f10362eb5ff (Fstart_process): GCPRO current_dir before calling
Kenichi Handa <handa@m17n.org>
parents: 28157
diff changeset
1177 args2[0] = Qstart_process;
8f10362eb5ff (Fstart_process): GCPRO current_dir before calling
Kenichi Handa <handa@m17n.org>
parents: 28157
diff changeset
1178 for (i = 0; i < nargs; i++) args2[i + 1] = args[i];
8f10362eb5ff (Fstart_process): GCPRO current_dir before calling
Kenichi Handa <handa@m17n.org>
parents: 28157
diff changeset
1179 GCPRO2 (proc, current_dir);
8f10362eb5ff (Fstart_process): GCPRO current_dir before calling
Kenichi Handa <handa@m17n.org>
parents: 28157
diff changeset
1180 coding_systems = Ffind_operation_coding_system (nargs + 1, args2);
8f10362eb5ff (Fstart_process): GCPRO current_dir before calling
Kenichi Handa <handa@m17n.org>
parents: 28157
diff changeset
1181 UNGCPRO;
8f10362eb5ff (Fstart_process): GCPRO current_dir before calling
Kenichi Handa <handa@m17n.org>
parents: 28157
diff changeset
1182 if (CONSP (coding_systems))
8f10362eb5ff (Fstart_process): GCPRO current_dir before calling
Kenichi Handa <handa@m17n.org>
parents: 28157
diff changeset
1183 val = XCAR (coding_systems);
8f10362eb5ff (Fstart_process): GCPRO current_dir before calling
Kenichi Handa <handa@m17n.org>
parents: 28157
diff changeset
1184 else if (CONSP (Vdefault_process_coding_system))
8f10362eb5ff (Fstart_process): GCPRO current_dir before calling
Kenichi Handa <handa@m17n.org>
parents: 28157
diff changeset
1185 val = XCAR (Vdefault_process_coding_system);
8f10362eb5ff (Fstart_process): GCPRO current_dir before calling
Kenichi Handa <handa@m17n.org>
parents: 28157
diff changeset
1186 }
8f10362eb5ff (Fstart_process): GCPRO current_dir before calling
Kenichi Handa <handa@m17n.org>
parents: 28157
diff changeset
1187 XPROCESS (proc)->decode_coding_system = val;
8f10362eb5ff (Fstart_process): GCPRO current_dir before calling
Kenichi Handa <handa@m17n.org>
parents: 28157
diff changeset
1188
8f10362eb5ff (Fstart_process): GCPRO current_dir before calling
Kenichi Handa <handa@m17n.org>
parents: 28157
diff changeset
1189 val = Vcoding_system_for_write;
8f10362eb5ff (Fstart_process): GCPRO current_dir before calling
Kenichi Handa <handa@m17n.org>
parents: 28157
diff changeset
1190 if (NILP (val))
8f10362eb5ff (Fstart_process): GCPRO current_dir before calling
Kenichi Handa <handa@m17n.org>
parents: 28157
diff changeset
1191 {
8f10362eb5ff (Fstart_process): GCPRO current_dir before calling
Kenichi Handa <handa@m17n.org>
parents: 28157
diff changeset
1192 if (EQ (coding_systems, Qt))
8f10362eb5ff (Fstart_process): GCPRO current_dir before calling
Kenichi Handa <handa@m17n.org>
parents: 28157
diff changeset
1193 {
8f10362eb5ff (Fstart_process): GCPRO current_dir before calling
Kenichi Handa <handa@m17n.org>
parents: 28157
diff changeset
1194 args2 = (Lisp_Object *) alloca ((nargs + 1) * sizeof args2);
8f10362eb5ff (Fstart_process): GCPRO current_dir before calling
Kenichi Handa <handa@m17n.org>
parents: 28157
diff changeset
1195 args2[0] = Qstart_process;
8f10362eb5ff (Fstart_process): GCPRO current_dir before calling
Kenichi Handa <handa@m17n.org>
parents: 28157
diff changeset
1196 for (i = 0; i < nargs; i++) args2[i + 1] = args[i];
8f10362eb5ff (Fstart_process): GCPRO current_dir before calling
Kenichi Handa <handa@m17n.org>
parents: 28157
diff changeset
1197 GCPRO2 (proc, current_dir);
8f10362eb5ff (Fstart_process): GCPRO current_dir before calling
Kenichi Handa <handa@m17n.org>
parents: 28157
diff changeset
1198 coding_systems = Ffind_operation_coding_system (nargs + 1, args2);
8f10362eb5ff (Fstart_process): GCPRO current_dir before calling
Kenichi Handa <handa@m17n.org>
parents: 28157
diff changeset
1199 UNGCPRO;
8f10362eb5ff (Fstart_process): GCPRO current_dir before calling
Kenichi Handa <handa@m17n.org>
parents: 28157
diff changeset
1200 }
8f10362eb5ff (Fstart_process): GCPRO current_dir before calling
Kenichi Handa <handa@m17n.org>
parents: 28157
diff changeset
1201 if (CONSP (coding_systems))
8f10362eb5ff (Fstart_process): GCPRO current_dir before calling
Kenichi Handa <handa@m17n.org>
parents: 28157
diff changeset
1202 val = XCDR (coding_systems);
8f10362eb5ff (Fstart_process): GCPRO current_dir before calling
Kenichi Handa <handa@m17n.org>
parents: 28157
diff changeset
1203 else if (CONSP (Vdefault_process_coding_system))
8f10362eb5ff (Fstart_process): GCPRO current_dir before calling
Kenichi Handa <handa@m17n.org>
parents: 28157
diff changeset
1204 val = XCDR (Vdefault_process_coding_system);
8f10362eb5ff (Fstart_process): GCPRO current_dir before calling
Kenichi Handa <handa@m17n.org>
parents: 28157
diff changeset
1205 }
8f10362eb5ff (Fstart_process): GCPRO current_dir before calling
Kenichi Handa <handa@m17n.org>
parents: 28157
diff changeset
1206 XPROCESS (proc)->encode_coding_system = val;
8f10362eb5ff (Fstart_process): GCPRO current_dir before calling
Kenichi Handa <handa@m17n.org>
parents: 28157
diff changeset
1207 }
8f10362eb5ff (Fstart_process): GCPRO current_dir before calling
Kenichi Handa <handa@m17n.org>
parents: 28157
diff changeset
1208
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1209 #ifdef VMS
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1210 /* Make a one member argv with all args concatenated
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1211 together separated by a blank. */
21244
50929073a0ba Use STRING_BYTES and SET_STRING_BYTES.
Richard M. Stallman <rms@gnu.org>
parents: 21177
diff changeset
1212 len = STRING_BYTES (XSTRING (program)) + 2;
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1213 for (i = 3; i < nargs; i++)
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1214 {
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1215 tem = args[i];
40656
cdfd4d09b79a Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents: 40641
diff changeset
1216 CHECK_STRING (tem);
21244
50929073a0ba Use STRING_BYTES and SET_STRING_BYTES.
Richard M. Stallman <rms@gnu.org>
parents: 21177
diff changeset
1217 len += STRING_BYTES (XSTRING (tem)) + 1; /* count the blank */
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1218 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1219 new_argv = (unsigned char *) alloca (len);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1220 strcpy (new_argv, XSTRING (program)->data);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1221 for (i = 3; i < nargs; i++)
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1222 {
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1223 tem = args[i];
40656
cdfd4d09b79a Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents: 40641
diff changeset
1224 CHECK_STRING (tem);
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1225 strcat (new_argv, " ");
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1226 strcat (new_argv, XSTRING (tem)->data);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1227 }
1594
b476a97ad17e * systty.h, process.c, buffer.h, callproc.c, sysdep.c, dired.c:
Jim Blandy <jimb@redhat.com>
parents: 1569
diff changeset
1228 /* 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
1229
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1230 #else /* not VMS */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1231 new_argv = (unsigned char **) alloca ((nargs - 1) * sizeof (char *));
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1232
6390
9f8ce71435de (Fstart_process): GCPRO some things.
Karl Heuer <kwzh@gnu.org>
parents: 6345
diff changeset
1233 /* 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
1234 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
1235 && !(XSTRING (program)->size > 1
28267fcc61be Use macros IS_ANY_SEP, IS_DIRECTORY_SEP,
Richard M. Stallman <rms@gnu.org>
parents: 9705
diff changeset
1236 && IS_DEVICE_SEP (XSTRING (program)->data[1])))
6390
9f8ce71435de (Fstart_process): GCPRO some things.
Karl Heuer <kwzh@gnu.org>
parents: 6345
diff changeset
1237 {
9f8ce71435de (Fstart_process): GCPRO some things.
Karl Heuer <kwzh@gnu.org>
parents: 6345
diff changeset
1238 struct gcpro gcpro1, gcpro2, gcpro3, gcpro4;
9f8ce71435de (Fstart_process): GCPRO some things.
Karl Heuer <kwzh@gnu.org>
parents: 6345
diff changeset
1239
9f8ce71435de (Fstart_process): GCPRO some things.
Karl Heuer <kwzh@gnu.org>
parents: 6345
diff changeset
1240 tem = Qnil;
9f8ce71435de (Fstart_process): GCPRO some things.
Karl Heuer <kwzh@gnu.org>
parents: 6345
diff changeset
1241 GCPRO4 (name, program, buffer, current_dir);
39812
66e0816837a8 Update calls to openp.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 39429
diff changeset
1242 openp (Vexec_path, program, Vexec_suffixes, &tem, 1);
6390
9f8ce71435de (Fstart_process): GCPRO some things.
Karl Heuer <kwzh@gnu.org>
parents: 6345
diff changeset
1243 UNGCPRO;
9f8ce71435de (Fstart_process): GCPRO some things.
Karl Heuer <kwzh@gnu.org>
parents: 6345
diff changeset
1244 if (NILP (tem))
9f8ce71435de (Fstart_process): GCPRO some things.
Karl Heuer <kwzh@gnu.org>
parents: 6345
diff changeset
1245 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
1246 tem = Fexpand_file_name (tem, Qnil);
29017
8f10362eb5ff (Fstart_process): GCPRO current_dir before calling
Kenichi Handa <handa@m17n.org>
parents: 28157
diff changeset
1247 tem = ENCODE_FILE (tem);
6390
9f8ce71435de (Fstart_process): GCPRO some things.
Karl Heuer <kwzh@gnu.org>
parents: 6345
diff changeset
1248 new_argv[0] = XSTRING (tem)->data;
9f8ce71435de (Fstart_process): GCPRO some things.
Karl Heuer <kwzh@gnu.org>
parents: 6345
diff changeset
1249 }
9f8ce71435de (Fstart_process): GCPRO some things.
Karl Heuer <kwzh@gnu.org>
parents: 6345
diff changeset
1250 else
12491
4ad7be34ece1 (Fstart_process): Expand PROGRAM.
Richard M. Stallman <rms@gnu.org>
parents: 12378
diff changeset
1251 {
4ad7be34ece1 (Fstart_process): Expand PROGRAM.
Richard M. Stallman <rms@gnu.org>
parents: 12378
diff changeset
1252 if (!NILP (Ffile_directory_p (program)))
4ad7be34ece1 (Fstart_process): Expand PROGRAM.
Richard M. Stallman <rms@gnu.org>
parents: 12378
diff changeset
1253 error ("Specified program for new process is a directory");
4ad7be34ece1 (Fstart_process): Expand PROGRAM.
Richard M. Stallman <rms@gnu.org>
parents: 12378
diff changeset
1254
29017
8f10362eb5ff (Fstart_process): GCPRO current_dir before calling
Kenichi Handa <handa@m17n.org>
parents: 28157
diff changeset
1255 tem = ENCODE_FILE (program);
8f10362eb5ff (Fstart_process): GCPRO current_dir before calling
Kenichi Handa <handa@m17n.org>
parents: 28157
diff changeset
1256 new_argv[0] = XSTRING (tem)->data;
12491
4ad7be34ece1 (Fstart_process): Expand PROGRAM.
Richard M. Stallman <rms@gnu.org>
parents: 12378
diff changeset
1257 }
6390
9f8ce71435de (Fstart_process): GCPRO some things.
Karl Heuer <kwzh@gnu.org>
parents: 6345
diff changeset
1258
29017
8f10362eb5ff (Fstart_process): GCPRO current_dir before calling
Kenichi Handa <handa@m17n.org>
parents: 28157
diff changeset
1259 /* Here we encode arguments by the coding system used for sending
8f10362eb5ff (Fstart_process): GCPRO current_dir before calling
Kenichi Handa <handa@m17n.org>
parents: 28157
diff changeset
1260 data to the process. We don't support using different coding
8f10362eb5ff (Fstart_process): GCPRO current_dir before calling
Kenichi Handa <handa@m17n.org>
parents: 28157
diff changeset
1261 systems for encoding arguments and for encoding data sent to the
8f10362eb5ff (Fstart_process): GCPRO current_dir before calling
Kenichi Handa <handa@m17n.org>
parents: 28157
diff changeset
1262 process. */
8f10362eb5ff (Fstart_process): GCPRO current_dir before calling
Kenichi Handa <handa@m17n.org>
parents: 28157
diff changeset
1263
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1264 for (i = 3; i < nargs; i++)
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1265 {
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1266 tem = args[i];
40656
cdfd4d09b79a Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents: 40641
diff changeset
1267 CHECK_STRING (tem);
29017
8f10362eb5ff (Fstart_process): GCPRO current_dir before calling
Kenichi Handa <handa@m17n.org>
parents: 28157
diff changeset
1268 if (STRING_MULTIBYTE (tem))
8f10362eb5ff (Fstart_process): GCPRO current_dir before calling
Kenichi Handa <handa@m17n.org>
parents: 28157
diff changeset
1269 tem = (code_convert_string_norecord
8f10362eb5ff (Fstart_process): GCPRO current_dir before calling
Kenichi Handa <handa@m17n.org>
parents: 28157
diff changeset
1270 (tem, XPROCESS (proc)->encode_coding_system, 1));
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1271 new_argv[i - 2] = XSTRING (tem)->data;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1272 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1273 new_argv[i - 2] = 0;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1274 #endif /* not VMS */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1275
17041
b61cbe595be5 Include charset.h and coding.h.
Karl Heuer <kwzh@gnu.org>
parents: 16780
diff changeset
1276 XPROCESS (proc)->decoding_buf = make_uninit_string (0);
20715
5e983ddb85c9 (Fstart_process): Use raw-text instead of emacs-mule
Kenichi Handa <handa@m17n.org>
parents: 20708
diff changeset
1277 XPROCESS (proc)->decoding_carryover = make_number (0);
17041
b61cbe595be5 Include charset.h and coding.h.
Karl Heuer <kwzh@gnu.org>
parents: 16780
diff changeset
1278 XPROCESS (proc)->encoding_buf = make_uninit_string (0);
20715
5e983ddb85c9 (Fstart_process): Use raw-text instead of emacs-mule
Kenichi Handa <handa@m17n.org>
parents: 20708
diff changeset
1279 XPROCESS (proc)->encoding_carryover = make_number (0);
17041
b61cbe595be5 Include charset.h and coding.h.
Karl Heuer <kwzh@gnu.org>
parents: 16780
diff changeset
1280
21656
bb39a5863a82 (Fset_process_inherit_coding_system_flag,
Eli Zaretskii <eliz@gnu.org>
parents: 21530
diff changeset
1281 XPROCESS (proc)->inherit_coding_system_flag
21848
050ea21cec87 (Fset_process_inherit_coding_system_flag, Fstart_process):
Richard M. Stallman <rms@gnu.org>
parents: 21798
diff changeset
1282 = (NILP (buffer) || !inherit_process_coding_system
050ea21cec87 (Fset_process_inherit_coding_system_flag, Fstart_process):
Richard M. Stallman <rms@gnu.org>
parents: 21798
diff changeset
1283 ? Qnil : Qt);
21656
bb39a5863a82 (Fset_process_inherit_coding_system_flag,
Eli Zaretskii <eliz@gnu.org>
parents: 21530
diff changeset
1284
20382
dbad9367d232 (create_process, deactivate_process, close_process_descs):
Andreas Schwab <schwab@suse.de>
parents: 20225
diff changeset
1285 create_process (proc, (char **) new_argv, current_dir);
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1286
1594
b476a97ad17e * systty.h, process.c, buffer.h, callproc.c, sysdep.c, dired.c:
Jim Blandy <jimb@redhat.com>
parents: 1569
diff changeset
1287 return unbind_to (count, proc);
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1288 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1289
1594
b476a97ad17e * systty.h, process.c, buffer.h, callproc.c, sysdep.c, dired.c:
Jim Blandy <jimb@redhat.com>
parents: 1569
diff changeset
1290 /* This function is the unwind_protect form for Fstart_process. If
14036
621a575db6f7 Comment fixes.
Karl Heuer <kwzh@gnu.org>
parents: 13777
diff changeset
1291 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
1292 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
1293 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
1294 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
1295 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
1296 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
1297 {
9115
59bc2d010b5f (decode_status, Fprocessp, Fget_process, Fget_buffer_process, Fprocess_status,
Karl Heuer <kwzh@gnu.org>
parents: 9034
diff changeset
1298 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
1299 abort ();
b476a97ad17e * systty.h, process.c, buffer.h, callproc.c, sysdep.c, dired.c:
Jim Blandy <jimb@redhat.com>
parents: 1569
diff changeset
1300
b476a97ad17e * systty.h, process.c, buffer.h, callproc.c, sysdep.c, dired.c:
Jim Blandy <jimb@redhat.com>
parents: 1569
diff changeset
1301 /* Was PROC started successfully? */
3685
47d7fda8a609 (start_process_unwind): Use XINT.
Richard M. Stallman <rms@gnu.org>
parents: 3666
diff changeset
1302 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
1303 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
1304
b476a97ad17e * systty.h, process.c, buffer.h, callproc.c, sysdep.c, dired.c:
Jim Blandy <jimb@redhat.com>
parents: 1569
diff changeset
1305 return Qnil;
b476a97ad17e * systty.h, process.c, buffer.h, callproc.c, sysdep.c, dired.c:
Jim Blandy <jimb@redhat.com>
parents: 1569
diff changeset
1306 }
b476a97ad17e * systty.h, process.c, buffer.h, callproc.c, sysdep.c, dired.c:
Jim Blandy <jimb@redhat.com>
parents: 1569
diff changeset
1307
27430
1aa71680fe50 (toplevel): Include atimer.h.
Gerd Moellmann <gerd@gnu.org>
parents: 27028
diff changeset
1308 void
1aa71680fe50 (toplevel): Include atimer.h.
Gerd Moellmann <gerd@gnu.org>
parents: 27028
diff changeset
1309 create_process_1 (timer)
1aa71680fe50 (toplevel): Include atimer.h.
Gerd Moellmann <gerd@gnu.org>
parents: 27028
diff changeset
1310 struct atimer *timer;
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1311 {
27430
1aa71680fe50 (toplevel): Include atimer.h.
Gerd Moellmann <gerd@gnu.org>
parents: 27028
diff changeset
1312 /* Nothing to do. */
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1313 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1314
27430
1aa71680fe50 (toplevel): Include atimer.h.
Gerd Moellmann <gerd@gnu.org>
parents: 27028
diff changeset
1315
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1316 #if 0 /* This doesn't work; see the note before sigchld_handler. */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1317 #ifdef USG
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1318 #ifdef SIGCHLD
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1319 /* Mimic blocking of signals on system V, which doesn't really have it. */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1320
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1321 /* Nonzero means we got a SIGCHLD when it was supposed to be blocked. */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1322 int sigchld_deferred;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1323
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1324 SIGTYPE
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1325 create_process_sigchld ()
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1326 {
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1327 signal (SIGCHLD, create_process_sigchld);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1328
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1329 sigchld_deferred = 1;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1330 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1331 #endif
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1332 #endif
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1333 #endif
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1334
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1335 #ifndef VMS /* VMS version of this function is in vmsproc.c. */
20382
dbad9367d232 (create_process, deactivate_process, close_process_descs):
Andreas Schwab <schwab@suse.de>
parents: 20225
diff changeset
1336 void
1683
a0a41de51400 Give subprocess creation a way to find a valid current directory
Jim Blandy <jimb@redhat.com>
parents: 1655
diff changeset
1337 create_process (process, new_argv, current_dir)
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1338 Lisp_Object process;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1339 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
1340 Lisp_Object current_dir;
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1341 {
11926
40d7e6f04ebe (create_process, send_process): Add volatile qualifiers.
Karl Heuer <kwzh@gnu.org>
parents: 11845
diff changeset
1342 int pid, inchannel, outchannel;
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1343 int sv[2];
13709
d16f31ae8adf (create_process): Use Posix signal handling to
Karl Heuer <kwzh@gnu.org>
parents: 13414
diff changeset
1344 #ifdef POSIX_SIGNALS
d16f31ae8adf (create_process): Use Posix signal handling to
Karl Heuer <kwzh@gnu.org>
parents: 13414
diff changeset
1345 sigset_t procmask;
d16f31ae8adf (create_process): Use Posix signal handling to
Karl Heuer <kwzh@gnu.org>
parents: 13414
diff changeset
1346 sigset_t blocked;
d16f31ae8adf (create_process): Use Posix signal handling to
Karl Heuer <kwzh@gnu.org>
parents: 13414
diff changeset
1347 struct sigaction sigint_action;
d16f31ae8adf (create_process): Use Posix signal handling to
Karl Heuer <kwzh@gnu.org>
parents: 13414
diff changeset
1348 struct sigaction sigquit_action;
d16f31ae8adf (create_process): Use Posix signal handling to
Karl Heuer <kwzh@gnu.org>
parents: 13414
diff changeset
1349 #ifdef AIX
d16f31ae8adf (create_process): Use Posix signal handling to
Karl Heuer <kwzh@gnu.org>
parents: 13414
diff changeset
1350 struct sigaction sighup_action;
d16f31ae8adf (create_process): Use Posix signal handling to
Karl Heuer <kwzh@gnu.org>
parents: 13414
diff changeset
1351 #endif
d16f31ae8adf (create_process): Use Posix signal handling to
Karl Heuer <kwzh@gnu.org>
parents: 13414
diff changeset
1352 #else /* !POSIX_SIGNALS */
25770
3a44b5298cd5 (list_processes_1): Remove unused variables.
Gerd Moellmann <gerd@gnu.org>
parents: 25760
diff changeset
1353 #if 0
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1354 #ifdef SIGCHLD
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1355 SIGTYPE (*sigchld)();
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1356 #endif
25770
3a44b5298cd5 (list_processes_1): Remove unused variables.
Gerd Moellmann <gerd@gnu.org>
parents: 25760
diff changeset
1357 #endif /* 0 */
13709
d16f31ae8adf (create_process): Use Posix signal handling to
Karl Heuer <kwzh@gnu.org>
parents: 13414
diff changeset
1358 #endif /* !POSIX_SIGNALS */
11926
40d7e6f04ebe (create_process, send_process): Add volatile qualifiers.
Karl Heuer <kwzh@gnu.org>
parents: 11845
diff changeset
1359 /* 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
1360 volatile int forkin, forkout;
40d7e6f04ebe (create_process, send_process): Add volatile qualifiers.
Karl Heuer <kwzh@gnu.org>
parents: 11845
diff changeset
1361 volatile int pty_flag = 0;
31099
0fe5afca71e4 Include keyboard.h before frame.h.
Andrew Innes <andrewi@gnu.org>
parents: 30582
diff changeset
1362 #ifndef USE_CRT_DLL
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1363 extern char **environ;
31099
0fe5afca71e4 Include keyboard.h before frame.h.
Andrew Innes <andrewi@gnu.org>
parents: 30582
diff changeset
1364 #endif
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 inchannel = outchannel = -1;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1367
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1368 #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
1369 if (!NILP (Vprocess_connection_type))
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1370 outchannel = inchannel = allocate_pty ();
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1371
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1372 if (inchannel >= 0)
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1373 {
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1374 #ifndef USG
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1375 /* 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
1376 and then close and reopen it in the child. */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1377 #ifdef O_NOCTTY
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1378 /* Don't let this terminal become our controlling terminal
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1379 (in case we don't have one). */
26088
b7aa6ac26872 Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
parents: 26019
diff changeset
1380 forkout = forkin = emacs_open (pty_name, O_RDWR | O_NOCTTY, 0);
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1381 #else
26088
b7aa6ac26872 Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
parents: 26019
diff changeset
1382 forkout = forkin = emacs_open (pty_name, O_RDWR, 0);
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1383 #endif
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1384 if (forkin < 0)
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1385 report_file_error ("Opening pty", Qnil);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1386 #else
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1387 forkin = forkout = -1;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1388 #endif /* not USG */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1389 pty_flag = 1;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1390 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1391 else
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1392 #endif /* HAVE_PTYS */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1393 #ifdef SKTPAIR
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1394 {
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1395 if (socketpair (AF_UNIX, SOCK_STREAM, 0, sv) < 0)
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1396 report_file_error ("Opening socketpair", Qnil);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1397 outchannel = inchannel = sv[0];
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1398 forkout = forkin = sv[1];
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1399 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1400 #else /* not SKTPAIR */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1401 {
25129
4f3c8f1cec96 (create_process): Detect failure of `pipe'.
Karl Heuer <kwzh@gnu.org>
parents: 25009
diff changeset
1402 int tem;
4f3c8f1cec96 (create_process): Detect failure of `pipe'.
Karl Heuer <kwzh@gnu.org>
parents: 25009
diff changeset
1403 tem = pipe (sv);
4f3c8f1cec96 (create_process): Detect failure of `pipe'.
Karl Heuer <kwzh@gnu.org>
parents: 25009
diff changeset
1404 if (tem < 0)
4f3c8f1cec96 (create_process): Detect failure of `pipe'.
Karl Heuer <kwzh@gnu.org>
parents: 25009
diff changeset
1405 report_file_error ("Creating pipe", Qnil);
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1406 inchannel = sv[0];
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1407 forkout = sv[1];
25129
4f3c8f1cec96 (create_process): Detect failure of `pipe'.
Karl Heuer <kwzh@gnu.org>
parents: 25009
diff changeset
1408 tem = pipe (sv);
4f3c8f1cec96 (create_process): Detect failure of `pipe'.
Karl Heuer <kwzh@gnu.org>
parents: 25009
diff changeset
1409 if (tem < 0)
4f3c8f1cec96 (create_process): Detect failure of `pipe'.
Karl Heuer <kwzh@gnu.org>
parents: 25009
diff changeset
1410 {
26088
b7aa6ac26872 Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
parents: 26019
diff changeset
1411 emacs_close (inchannel);
b7aa6ac26872 Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
parents: 26019
diff changeset
1412 emacs_close (forkout);
25129
4f3c8f1cec96 (create_process): Detect failure of `pipe'.
Karl Heuer <kwzh@gnu.org>
parents: 25009
diff changeset
1413 report_file_error ("Creating pipe", Qnil);
4f3c8f1cec96 (create_process): Detect failure of `pipe'.
Karl Heuer <kwzh@gnu.org>
parents: 25009
diff changeset
1414 }
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1415 outchannel = sv[1];
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1416 forkin = sv[0];
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1417 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1418 #endif /* not SKTPAIR */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1419
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1420 #if 0
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1421 /* Replaced by close_process_descs */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1422 set_exclusive_use (inchannel);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1423 set_exclusive_use (outchannel);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1424 #endif
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1425
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1426 /* Stride people say it's a mystery why this is needed
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1427 as well as the O_NDELAY, but that it fails without this. */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1428 #if defined (STRIDE) || (defined (pfa) && defined (HAVE_PTYS))
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1429 {
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1430 int one = 1;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1431 ioctl (inchannel, FIONBIO, &one);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1432 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1433 #endif
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1434
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1435 #ifdef O_NONBLOCK
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1436 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
1437 fcntl (outchannel, F_SETFL, O_NONBLOCK);
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1438 #else
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1439 #ifdef O_NDELAY
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1440 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
1441 fcntl (outchannel, F_SETFL, O_NDELAY);
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1442 #endif
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1443 #endif
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1444
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1445 /* Record this as an active process, with its channels.
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1446 As a result, child_setup will close Emacs's side of the pipes. */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1447 chan_process[inchannel] = process;
9277
21f6120be5ba (make_process, create_process, Fopen_network_stream, deactivate_process,
Karl Heuer <kwzh@gnu.org>
parents: 9115
diff changeset
1448 XSETINT (XPROCESS (process)->infd, inchannel);
21f6120be5ba (make_process, create_process, Fopen_network_stream, deactivate_process,
Karl Heuer <kwzh@gnu.org>
parents: 9115
diff changeset
1449 XSETINT (XPROCESS (process)->outfd, outchannel);
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1450 /* Record the tty descriptor used in the subprocess. */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1451 if (forkin < 0)
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1452 XPROCESS (process)->subtty = Qnil;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1453 else
9318
a14cc1712337 (make_process, list_processes_1, create_process, Faccept_process_output,
Karl Heuer <kwzh@gnu.org>
parents: 9277
diff changeset
1454 XSETFASTINT (XPROCESS (process)->subtty, forkin);
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1455 XPROCESS (process)->pty_flag = (pty_flag ? Qt : Qnil);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1456 XPROCESS (process)->status = Qrun;
17110
3a348cbb354f (Fstart_process, Fopen_network_stream): Do not perform
Kenichi Handa <handa@m17n.org>
parents: 17041
diff changeset
1457 if (!proc_decode_coding_system[inchannel])
3a348cbb354f (Fstart_process, Fopen_network_stream): Do not perform
Kenichi Handa <handa@m17n.org>
parents: 17041
diff changeset
1458 proc_decode_coding_system[inchannel]
3a348cbb354f (Fstart_process, Fopen_network_stream): Do not perform
Kenichi Handa <handa@m17n.org>
parents: 17041
diff changeset
1459 = (struct coding_system *) xmalloc (sizeof (struct coding_system));
17041
b61cbe595be5 Include charset.h and coding.h.
Karl Heuer <kwzh@gnu.org>
parents: 16780
diff changeset
1460 setup_coding_system (XPROCESS (process)->decode_coding_system,
17110
3a348cbb354f (Fstart_process, Fopen_network_stream): Do not perform
Kenichi Handa <handa@m17n.org>
parents: 17041
diff changeset
1461 proc_decode_coding_system[inchannel]);
3a348cbb354f (Fstart_process, Fopen_network_stream): Do not perform
Kenichi Handa <handa@m17n.org>
parents: 17041
diff changeset
1462 if (!proc_encode_coding_system[outchannel])
22848
f17131794fbc Whitespace change.
Richard M. Stallman <rms@gnu.org>
parents: 22763
diff changeset
1463 proc_encode_coding_system[outchannel]
f17131794fbc Whitespace change.
Richard M. Stallman <rms@gnu.org>
parents: 22763
diff changeset
1464 = (struct coding_system *) xmalloc (sizeof (struct coding_system));
17041
b61cbe595be5 Include charset.h and coding.h.
Karl Heuer <kwzh@gnu.org>
parents: 16780
diff changeset
1465 setup_coding_system (XPROCESS (process)->encode_coding_system,
17110
3a348cbb354f (Fstart_process, Fopen_network_stream): Do not perform
Kenichi Handa <handa@m17n.org>
parents: 17041
diff changeset
1466 proc_encode_coding_system[outchannel]);
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1467
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1468 /* Delay interrupts until we have a chance to store
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1469 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
1470 #ifdef POSIX_SIGNALS
d16f31ae8adf (create_process): Use Posix signal handling to
Karl Heuer <kwzh@gnu.org>
parents: 13414
diff changeset
1471 sigemptyset (&blocked);
d16f31ae8adf (create_process): Use Posix signal handling to
Karl Heuer <kwzh@gnu.org>
parents: 13414
diff changeset
1472 #ifdef SIGCHLD
d16f31ae8adf (create_process): Use Posix signal handling to
Karl Heuer <kwzh@gnu.org>
parents: 13414
diff changeset
1473 sigaddset (&blocked, SIGCHLD);
d16f31ae8adf (create_process): Use Posix signal handling to
Karl Heuer <kwzh@gnu.org>
parents: 13414
diff changeset
1474 #endif
41856
0028402ed7d1 (create_process): Use HAVE_WORKING_VFORK, not HAVE_VFORK.
Paul Eggert <eggert@twinsun.com>
parents: 40656
diff changeset
1475 #ifdef HAVE_WORKING_VFORK
13709
d16f31ae8adf (create_process): Use Posix signal handling to
Karl Heuer <kwzh@gnu.org>
parents: 13414
diff changeset
1476 /* 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
1477 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
1478 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
1479 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
1480 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
1481 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
1482 #ifdef AIX
d16f31ae8adf (create_process): Use Posix signal handling to
Karl Heuer <kwzh@gnu.org>
parents: 13414
diff changeset
1483 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
1484 #endif
41856
0028402ed7d1 (create_process): Use HAVE_WORKING_VFORK, not HAVE_VFORK.
Paul Eggert <eggert@twinsun.com>
parents: 40656
diff changeset
1485 #endif /* HAVE_WORKING_VFORK */
13709
d16f31ae8adf (create_process): Use Posix signal handling to
Karl Heuer <kwzh@gnu.org>
parents: 13414
diff changeset
1486 sigprocmask (SIG_BLOCK, &blocked, &procmask);
d16f31ae8adf (create_process): Use Posix signal handling to
Karl Heuer <kwzh@gnu.org>
parents: 13414
diff changeset
1487 #else /* !POSIX_SIGNALS */
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1488 #ifdef SIGCHLD
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1489 #ifdef BSD4_1
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1490 sighold (SIGCHLD);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1491 #else /* not BSD4_1 */
16220
02044b05d8e0 Replaced symbol BSD with BSD_SYSTEM.
Karl Heuer <kwzh@gnu.org>
parents: 16206
diff changeset
1492 #if defined (BSD_SYSTEM) || defined (UNIPLUS) || defined (HPUX)
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1493 sigsetmask (sigmask (SIGCHLD));
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1494 #else /* ordinary USG */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1495 #if 0
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1496 sigchld_deferred = 0;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1497 sigchld = signal (SIGCHLD, create_process_sigchld);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1498 #endif
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1499 #endif /* ordinary USG */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1500 #endif /* not BSD4_1 */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1501 #endif /* SIGCHLD */
13709
d16f31ae8adf (create_process): Use Posix signal handling to
Karl Heuer <kwzh@gnu.org>
parents: 13414
diff changeset
1502 #endif /* !POSIX_SIGNALS */
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1503
7893
e54617027a47 (create_process): Set input_wait_mask before forking.
Karl Heuer <kwzh@gnu.org>
parents: 7884
diff changeset
1504 FD_SET (inchannel, &input_wait_mask);
9686
cd788aa8cb2a Handle multiple keyboard input descriptors.
Richard M. Stallman <rms@gnu.org>
parents: 9334
diff changeset
1505 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
1506 if (inchannel > max_process_desc)
e54617027a47 (create_process): Set input_wait_mask before forking.
Karl Heuer <kwzh@gnu.org>
parents: 7884
diff changeset
1507 max_process_desc = inchannel;
e54617027a47 (create_process): Set input_wait_mask before forking.
Karl Heuer <kwzh@gnu.org>
parents: 7884
diff changeset
1508
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1509 /* Until we store the proper pid, enable sigchld_handler
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1510 to recognize an unknown pid as standing for this process.
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1511 It is very important not to let this `marker' value stay
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1512 in the table after this function has returned; if it does
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1513 it might cause call-process to hang and subsequent asynchronous
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1514 processes to get their return values scrambled. */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1515 XSETINT (XPROCESS (process)->pid, -1);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1516
16780
e9dc2569cb12 Include blockinput.h.
Richard M. Stallman <rms@gnu.org>
parents: 16728
diff changeset
1517 BLOCK_INPUT;
e9dc2569cb12 Include blockinput.h.
Richard M. Stallman <rms@gnu.org>
parents: 16728
diff changeset
1518
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1519 {
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1520 /* child_setup must clobber environ on systems with true vfork.
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1521 Protect it from permanent change. */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1522 char **save_environ = environ;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1523
21049
01e626b0a624 (Vdefault_file_name_coding_system): Extern it.
Kenichi Handa <handa@m17n.org>
parents: 20715
diff changeset
1524 current_dir = ENCODE_FILE (current_dir);
19837
3bee81323f73 (create_process): Encode the new current dir.
Richard M. Stallman <rms@gnu.org>
parents: 19642
diff changeset
1525
9793
28267fcc61be Use macros IS_ANY_SEP, IS_DIRECTORY_SEP,
Richard M. Stallman <rms@gnu.org>
parents: 9705
diff changeset
1526 #ifndef WINDOWSNT
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1527 pid = vfork ();
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1528 if (pid == 0)
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 int xforkin = forkin;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1532 int xforkout = forkout;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1533
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1534 #if 0 /* This was probably a mistake--it duplicates code later on,
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1535 but fails to handle all the cases. */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1536 /* Make sure SIGCHLD is not blocked in the child. */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1537 sigsetmask (SIGEMPTYMASK);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1538 #endif
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1539
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1540 /* Make the pty be the controlling terminal of the process. */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1541 #ifdef HAVE_PTYS
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1542 /* First, disconnect its current controlling terminal. */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1543 #ifdef HAVE_SETSID
7266
f87808bd90e9 (create_process): Undo April 19 setsid change.
Richard M. Stallman <rms@gnu.org>
parents: 7238
diff changeset
1544 /* 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
1545 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
1546 setsid ();
1030
9934251d8219 (WCOREDUMP): Define only if not defined.
Richard M. Stallman <rms@gnu.org>
parents: 1012
diff changeset
1547 /* 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
1548 if (pty_flag)
6975
b7411e378b65 (create_process): Call setsid only if pty_flag.
Richard M. Stallman <rms@gnu.org>
parents: 6947
diff changeset
1549 {
b7411e378b65 (create_process): Call setsid only if pty_flag.
Richard M. Stallman <rms@gnu.org>
parents: 6947
diff changeset
1550 #ifdef TIOCSCTTY
b7411e378b65 (create_process): Call setsid only if pty_flag.
Richard M. Stallman <rms@gnu.org>
parents: 6947
diff changeset
1551 /* We ignore the return value
b7411e378b65 (create_process): Call setsid only if pty_flag.
Richard M. Stallman <rms@gnu.org>
parents: 6947
diff changeset
1552 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
1553 ioctl (xforkin, TIOCSCTTY, 0);
1030
9934251d8219 (WCOREDUMP): Define only if not defined.
Richard M. Stallman <rms@gnu.org>
parents: 1012
diff changeset
1554 #endif
6975
b7411e378b65 (create_process): Call setsid only if pty_flag.
Richard M. Stallman <rms@gnu.org>
parents: 6947
diff changeset
1555 }
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1556 #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
1557 #ifdef USG
5347
21bffe027a7d (create_process) [NTTYDISC]: Set the tty line discipline.
Richard M. Stallman <rms@gnu.org>
parents: 5332
diff changeset
1558 /* It's very important to call setpgrp here and no time
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1559 afterwards. Otherwise, we lose our controlling tty which
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1560 is set when we open the pty. */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1561 setpgrp ();
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1562 #endif /* USG */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1563 #endif /* not HAVE_SETSID */
7116
d35b11eed89f (create_process) [HAVE_TERMIOS && LDISC1]: Use tcsetattr.
Karl Heuer <kwzh@gnu.org>
parents: 7059
diff changeset
1564 #if defined (HAVE_TERMIOS) && defined (LDISC1)
d35b11eed89f (create_process) [HAVE_TERMIOS && LDISC1]: Use tcsetattr.
Karl Heuer <kwzh@gnu.org>
parents: 7059
diff changeset
1565 if (pty_flag && xforkin >= 0)
d35b11eed89f (create_process) [HAVE_TERMIOS && LDISC1]: Use tcsetattr.
Karl Heuer <kwzh@gnu.org>
parents: 7059
diff changeset
1566 {
d35b11eed89f (create_process) [HAVE_TERMIOS && LDISC1]: Use tcsetattr.
Karl Heuer <kwzh@gnu.org>
parents: 7059
diff changeset
1567 struct termios t;
d35b11eed89f (create_process) [HAVE_TERMIOS && LDISC1]: Use tcsetattr.
Karl Heuer <kwzh@gnu.org>
parents: 7059
diff changeset
1568 tcgetattr (xforkin, &t);
d35b11eed89f (create_process) [HAVE_TERMIOS && LDISC1]: Use tcsetattr.
Karl Heuer <kwzh@gnu.org>
parents: 7059
diff changeset
1569 t.c_lflag = LDISC1;
d35b11eed89f (create_process) [HAVE_TERMIOS && LDISC1]: Use tcsetattr.
Karl Heuer <kwzh@gnu.org>
parents: 7059
diff changeset
1570 if (tcsetattr (xforkin, TCSANOW, &t) < 0)
26088
b7aa6ac26872 Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
parents: 26019
diff changeset
1571 emacs_write (1, "create_process/tcsetattr LDISC1 failed\n", 39);
7116
d35b11eed89f (create_process) [HAVE_TERMIOS && LDISC1]: Use tcsetattr.
Karl Heuer <kwzh@gnu.org>
parents: 7059
diff changeset
1572 }
d35b11eed89f (create_process) [HAVE_TERMIOS && LDISC1]: Use tcsetattr.
Karl Heuer <kwzh@gnu.org>
parents: 7059
diff changeset
1573 #else
6947
c5f990fad6bb (create_process): Fix previous change.
Richard M. Stallman <rms@gnu.org>
parents: 6928
diff changeset
1574 #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
1575 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
1576 {
36d2fd17f833 (create_process): Set line discipline only if pty_flag.
Richard M. Stallman <rms@gnu.org>
parents: 5543
diff changeset
1577 /* Use new line discipline. */
36d2fd17f833 (create_process): Set line discipline only if pty_flag.
Richard M. Stallman <rms@gnu.org>
parents: 5543
diff changeset
1578 int ldisc = NTTYDISC;
7605
53186c2698e5 (create_process): Don't complain about error from TIOCSETD.
Richard M. Stallman <rms@gnu.org>
parents: 7486
diff changeset
1579 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
1580 }
5347
21bffe027a7d (create_process) [NTTYDISC]: Set the tty line discipline.
Richard M. Stallman <rms@gnu.org>
parents: 5332
diff changeset
1581 #endif
7116
d35b11eed89f (create_process) [HAVE_TERMIOS && LDISC1]: Use tcsetattr.
Karl Heuer <kwzh@gnu.org>
parents: 7059
diff changeset
1582 #endif
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1583 #ifdef TIOCNOTTY
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1584 /* In 4.3BSD, the TIOCSPGRP bug has been fixed, and now you
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1585 can do TIOCSPGRP only to the process's controlling tty. */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1586 if (pty_flag)
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1587 {
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1588 /* I wonder: would just ioctl (0, TIOCNOTTY, 0) work here?
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1589 I can't test it since I don't have 4.3. */
26088
b7aa6ac26872 Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
parents: 26019
diff changeset
1590 int j = emacs_open ("/dev/tty", O_RDWR, 0);
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1591 ioctl (j, TIOCNOTTY, 0);
26088
b7aa6ac26872 Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
parents: 26019
diff changeset
1592 emacs_close (j);
3826
647bef18618f Changes for Irix 4.0, tested this time:
Jim Blandy <jimb@redhat.com>
parents: 3810
diff changeset
1593 #ifndef USG
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1594 /* In order to get a controlling terminal on some versions
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1595 of BSD, it is necessary to put the process in pgrp 0
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1596 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
1597 #ifdef HAVE_SETPGID
9882
ccc5562a7194 (create_process) [OSF1]: Use setpgid, not setpgrp.
Richard M. Stallman <rms@gnu.org>
parents: 9793
diff changeset
1598 setpgid (0, 0);
ccc5562a7194 (create_process) [OSF1]: Use setpgid, not setpgrp.
Richard M. Stallman <rms@gnu.org>
parents: 9793
diff changeset
1599 #else
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1600 setpgrp (0, 0);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1601 #endif
9882
ccc5562a7194 (create_process) [OSF1]: Use setpgid, not setpgrp.
Richard M. Stallman <rms@gnu.org>
parents: 9793
diff changeset
1602 #endif
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1603 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1604 #endif /* TIOCNOTTY */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1605
16076
5d1e0290bbd0 (create_process): Undo previous change.
Richard M. Stallman <rms@gnu.org>
parents: 16058
diff changeset
1606 #if !defined (RTU) && !defined (UNIPLUS) && !defined (DONT_REOPEN_PTY)
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1607 /*** 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
1608 conditional on TIOCSPGRP,
5d1e0290bbd0 (create_process): Undo previous change.
Richard M. Stallman <rms@gnu.org>
parents: 16058
diff changeset
1609 or !(defined (HAVE_SETSID) && defined (TIOCSCTTY)).
5d1e0290bbd0 (create_process): Undo previous change.
Richard M. Stallman <rms@gnu.org>
parents: 16058
diff changeset
1610 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
1611 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
1612 both HAVE_SETSID and TIOCSCTTY are defined. */
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1613 /* Now close the pty (if we had it open) and reopen it.
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1614 This makes the pty the controlling terminal of the subprocess. */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1615 if (pty_flag)
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1616 {
5240
eed870591987 (Fprocess_status): Use get_process, not Fget_process.
Richard M. Stallman <rms@gnu.org>
parents: 5239
diff changeset
1617 #ifdef SET_CHILD_PTY_PGRP
eed870591987 (Fprocess_status): Use get_process, not Fget_process.
Richard M. Stallman <rms@gnu.org>
parents: 5239
diff changeset
1618 int pgrp = getpid ();
eed870591987 (Fprocess_status): Use get_process, not Fget_process.
Richard M. Stallman <rms@gnu.org>
parents: 5239
diff changeset
1619 #endif
eed870591987 (Fprocess_status): Use get_process, not Fget_process.
Richard M. Stallman <rms@gnu.org>
parents: 5239
diff changeset
1620
26088
b7aa6ac26872 Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
parents: 26019
diff changeset
1621 /* I wonder if emacs_close (emacs_open (pty_name, ...))
b7aa6ac26872 Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
parents: 26019
diff changeset
1622 would work? */
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1623 if (xforkin >= 0)
26088
b7aa6ac26872 Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
parents: 26019
diff changeset
1624 emacs_close (xforkin);
b7aa6ac26872 Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
parents: 26019
diff changeset
1625 xforkout = xforkin = emacs_open (pty_name, O_RDWR, 0);
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1626
11514
321726163a65 (create_process): Don't abort if can't reopen
Richard M. Stallman <rms@gnu.org>
parents: 11376
diff changeset
1627 if (xforkin < 0)
321726163a65 (create_process): Don't abort if can't reopen
Richard M. Stallman <rms@gnu.org>
parents: 11376
diff changeset
1628 {
26088
b7aa6ac26872 Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
parents: 26019
diff changeset
1629 emacs_write (1, "Couldn't open the pty terminal ", 31);
b7aa6ac26872 Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
parents: 26019
diff changeset
1630 emacs_write (1, pty_name, strlen (pty_name));
b7aa6ac26872 Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
parents: 26019
diff changeset
1631 emacs_write (1, "\n", 1);
11514
321726163a65 (create_process): Don't abort if can't reopen
Richard M. Stallman <rms@gnu.org>
parents: 11376
diff changeset
1632 _exit (1);
321726163a65 (create_process): Don't abort if can't reopen
Richard M. Stallman <rms@gnu.org>
parents: 11376
diff changeset
1633 }
321726163a65 (create_process): Don't abort if can't reopen
Richard M. Stallman <rms@gnu.org>
parents: 11376
diff changeset
1634
5240
eed870591987 (Fprocess_status): Use get_process, not Fget_process.
Richard M. Stallman <rms@gnu.org>
parents: 5239
diff changeset
1635 #ifdef SET_CHILD_PTY_PGRP
eed870591987 (Fprocess_status): Use get_process, not Fget_process.
Richard M. Stallman <rms@gnu.org>
parents: 5239
diff changeset
1636 ioctl (xforkin, TIOCSPGRP, &pgrp);
eed870591987 (Fprocess_status): Use get_process, not Fget_process.
Richard M. Stallman <rms@gnu.org>
parents: 5239
diff changeset
1637 ioctl (xforkout, TIOCSPGRP, &pgrp);
eed870591987 (Fprocess_status): Use get_process, not Fget_process.
Richard M. Stallman <rms@gnu.org>
parents: 5239
diff changeset
1638 #endif
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1639 }
16076
5d1e0290bbd0 (create_process): Undo previous change.
Richard M. Stallman <rms@gnu.org>
parents: 16058
diff changeset
1640 #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
1641
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1642 #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
1643 if (pty_flag)
1855e568a9b8 (create_process): Use SETUP_SLAVE_PTY only if pty_flag.
Richard M. Stallman <rms@gnu.org>
parents: 7044
diff changeset
1644 {
1855e568a9b8 (create_process): Use SETUP_SLAVE_PTY only if pty_flag.
Richard M. Stallman <rms@gnu.org>
parents: 7044
diff changeset
1645 SETUP_SLAVE_PTY;
1855e568a9b8 (create_process): Use SETUP_SLAVE_PTY only if pty_flag.
Richard M. Stallman <rms@gnu.org>
parents: 7044
diff changeset
1646 }
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1647 #endif /* SETUP_SLAVE_PTY */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1648 #ifdef AIX
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1649 /* 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
1650 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
1651 if (pty_flag)
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1652 signal (SIGHUP, SIG_DFL);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1653 #endif
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1654 #endif /* HAVE_PTYS */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1655
13709
d16f31ae8adf (create_process): Use Posix signal handling to
Karl Heuer <kwzh@gnu.org>
parents: 13414
diff changeset
1656 signal (SIGINT, SIG_DFL);
d16f31ae8adf (create_process): Use Posix signal handling to
Karl Heuer <kwzh@gnu.org>
parents: 13414
diff changeset
1657 signal (SIGQUIT, SIG_DFL);
d16f31ae8adf (create_process): Use Posix signal handling to
Karl Heuer <kwzh@gnu.org>
parents: 13414
diff changeset
1658
d16f31ae8adf (create_process): Use Posix signal handling to
Karl Heuer <kwzh@gnu.org>
parents: 13414
diff changeset
1659 /* Stop blocking signals in the child. */
d16f31ae8adf (create_process): Use Posix signal handling to
Karl Heuer <kwzh@gnu.org>
parents: 13414
diff changeset
1660 #ifdef POSIX_SIGNALS
d16f31ae8adf (create_process): Use Posix signal handling to
Karl Heuer <kwzh@gnu.org>
parents: 13414
diff changeset
1661 sigprocmask (SIG_SETMASK, &procmask, 0);
d16f31ae8adf (create_process): Use Posix signal handling to
Karl Heuer <kwzh@gnu.org>
parents: 13414
diff changeset
1662 #else /* !POSIX_SIGNALS */
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1663 #ifdef SIGCHLD
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1664 #ifdef BSD4_1
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1665 sigrelse (SIGCHLD);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1666 #else /* not BSD4_1 */
16220
02044b05d8e0 Replaced symbol BSD with BSD_SYSTEM.
Karl Heuer <kwzh@gnu.org>
parents: 16206
diff changeset
1667 #if defined (BSD_SYSTEM) || defined (UNIPLUS) || defined (HPUX)
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1668 sigsetmask (SIGEMPTYMASK);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1669 #else /* ordinary USG */
1207
af619d68a576 * process.c [SIGCHLD && !BSD && !UNIPLUS && !HPUX]
Jim Blandy <jimb@redhat.com>
parents: 1180
diff changeset
1670 #if 0
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1671 signal (SIGCHLD, sigchld);
1207
af619d68a576 * process.c [SIGCHLD && !BSD && !UNIPLUS && !HPUX]
Jim Blandy <jimb@redhat.com>
parents: 1180
diff changeset
1672 #endif
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1673 #endif /* ordinary USG */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1674 #endif /* not BSD4_1 */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1675 #endif /* SIGCHLD */
13709
d16f31ae8adf (create_process): Use Posix signal handling to
Karl Heuer <kwzh@gnu.org>
parents: 13414
diff changeset
1676 #endif /* !POSIX_SIGNALS */
8390
ee13e8728666 (create_process): Set default handling for SIGINT, etc.
Richard M. Stallman <rms@gnu.org>
parents: 8354
diff changeset
1677
7059
6a55de48ade5 (create_process): Use child_setup_tty only if pty_flag.
Richard M. Stallman <rms@gnu.org>
parents: 7058
diff changeset
1678 if (pty_flag)
6a55de48ade5 (create_process): Use child_setup_tty only if pty_flag.
Richard M. Stallman <rms@gnu.org>
parents: 7058
diff changeset
1679 child_setup_tty (xforkout);
9793
28267fcc61be Use macros IS_ANY_SEP, IS_DIRECTORY_SEP,
Richard M. Stallman <rms@gnu.org>
parents: 9705
diff changeset
1680 #ifdef WINDOWSNT
28267fcc61be Use macros IS_ANY_SEP, IS_DIRECTORY_SEP,
Richard M. Stallman <rms@gnu.org>
parents: 9705
diff changeset
1681 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
1682 new_argv, 1, current_dir);
28267fcc61be Use macros IS_ANY_SEP, IS_DIRECTORY_SEP,
Richard M. Stallman <rms@gnu.org>
parents: 9705
diff changeset
1683 #else /* not WINDOWSNT */
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1684 child_setup (xforkin, xforkout, xforkout,
638
40b255f55df3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 624
diff changeset
1685 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
1686 #endif /* not WINDOWSNT */
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1687 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1688 environ = save_environ;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1689 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1690
16780
e9dc2569cb12 Include blockinput.h.
Richard M. Stallman <rms@gnu.org>
parents: 16728
diff changeset
1691 UNBLOCK_INPUT;
e9dc2569cb12 Include blockinput.h.
Richard M. Stallman <rms@gnu.org>
parents: 16728
diff changeset
1692
14131
7717b68abd2e (create_process): Restore the signal state
Karl Heuer <kwzh@gnu.org>
parents: 14085
diff changeset
1693 /* This runs in the Emacs process. */
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1694 if (pid < 0)
7157
3f4fc9d682b4 (create_process): If vfork fails, close forkin and forkout.
Richard M. Stallman <rms@gnu.org>
parents: 7116
diff changeset
1695 {
3f4fc9d682b4 (create_process): If vfork fails, close forkin and forkout.
Richard M. Stallman <rms@gnu.org>
parents: 7116
diff changeset
1696 if (forkin >= 0)
26088
b7aa6ac26872 Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
parents: 26019
diff changeset
1697 emacs_close (forkin);
7157
3f4fc9d682b4 (create_process): If vfork fails, close forkin and forkout.
Richard M. Stallman <rms@gnu.org>
parents: 7116
diff changeset
1698 if (forkin != forkout && forkout >= 0)
26088
b7aa6ac26872 Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
parents: 26019
diff changeset
1699 emacs_close (forkout);
7157
3f4fc9d682b4 (create_process): If vfork fails, close forkin and forkout.
Richard M. Stallman <rms@gnu.org>
parents: 7116
diff changeset
1700 }
14131
7717b68abd2e (create_process): Restore the signal state
Karl Heuer <kwzh@gnu.org>
parents: 14085
diff changeset
1701 else
7717b68abd2e (create_process): Restore the signal state
Karl Heuer <kwzh@gnu.org>
parents: 14085
diff changeset
1702 {
7717b68abd2e (create_process): Restore the signal state
Karl Heuer <kwzh@gnu.org>
parents: 14085
diff changeset
1703 /* vfork succeeded. */
7717b68abd2e (create_process): Restore the signal state
Karl Heuer <kwzh@gnu.org>
parents: 14085
diff changeset
1704 XSETFASTINT (XPROCESS (process)->pid, pid);
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1705
9793
28267fcc61be Use macros IS_ANY_SEP, IS_DIRECTORY_SEP,
Richard M. Stallman <rms@gnu.org>
parents: 9705
diff changeset
1706 #ifdef WINDOWSNT
14131
7717b68abd2e (create_process): Restore the signal state
Karl Heuer <kwzh@gnu.org>
parents: 14085
diff changeset
1707 register_child (pid, inchannel);
9793
28267fcc61be Use macros IS_ANY_SEP, IS_DIRECTORY_SEP,
Richard M. Stallman <rms@gnu.org>
parents: 9705
diff changeset
1708 #endif /* WINDOWSNT */
28267fcc61be Use macros IS_ANY_SEP, IS_DIRECTORY_SEP,
Richard M. Stallman <rms@gnu.org>
parents: 9705
diff changeset
1709
14131
7717b68abd2e (create_process): Restore the signal state
Karl Heuer <kwzh@gnu.org>
parents: 14085
diff changeset
1710 /* If the subfork execv fails, and it exits,
7717b68abd2e (create_process): Restore the signal state
Karl Heuer <kwzh@gnu.org>
parents: 14085
diff changeset
1711 this close hangs. I don't know why.
7717b68abd2e (create_process): Restore the signal state
Karl Heuer <kwzh@gnu.org>
parents: 14085
diff changeset
1712 So have an interrupt jar it loose. */
27430
1aa71680fe50 (toplevel): Include atimer.h.
Gerd Moellmann <gerd@gnu.org>
parents: 27028
diff changeset
1713 {
1aa71680fe50 (toplevel): Include atimer.h.
Gerd Moellmann <gerd@gnu.org>
parents: 27028
diff changeset
1714 struct atimer *timer;
1aa71680fe50 (toplevel): Include atimer.h.
Gerd Moellmann <gerd@gnu.org>
parents: 27028
diff changeset
1715 EMACS_TIME offset;
1aa71680fe50 (toplevel): Include atimer.h.
Gerd Moellmann <gerd@gnu.org>
parents: 27028
diff changeset
1716
1aa71680fe50 (toplevel): Include atimer.h.
Gerd Moellmann <gerd@gnu.org>
parents: 27028
diff changeset
1717 stop_polling ();
1aa71680fe50 (toplevel): Include atimer.h.
Gerd Moellmann <gerd@gnu.org>
parents: 27028
diff changeset
1718 EMACS_SET_SECS_USECS (offset, 1, 0);
1aa71680fe50 (toplevel): Include atimer.h.
Gerd Moellmann <gerd@gnu.org>
parents: 27028
diff changeset
1719 timer = start_atimer (ATIMER_RELATIVE, offset, create_process_1, 0);
1aa71680fe50 (toplevel): Include atimer.h.
Gerd Moellmann <gerd@gnu.org>
parents: 27028
diff changeset
1720
1aa71680fe50 (toplevel): Include atimer.h.
Gerd Moellmann <gerd@gnu.org>
parents: 27028
diff changeset
1721 XPROCESS (process)->subtty = Qnil;
1aa71680fe50 (toplevel): Include atimer.h.
Gerd Moellmann <gerd@gnu.org>
parents: 27028
diff changeset
1722 if (forkin >= 0)
1aa71680fe50 (toplevel): Include atimer.h.
Gerd Moellmann <gerd@gnu.org>
parents: 27028
diff changeset
1723 emacs_close (forkin);
1aa71680fe50 (toplevel): Include atimer.h.
Gerd Moellmann <gerd@gnu.org>
parents: 27028
diff changeset
1724
1aa71680fe50 (toplevel): Include atimer.h.
Gerd Moellmann <gerd@gnu.org>
parents: 27028
diff changeset
1725 cancel_atimer (timer);
1aa71680fe50 (toplevel): Include atimer.h.
Gerd Moellmann <gerd@gnu.org>
parents: 27028
diff changeset
1726 start_polling ();
1aa71680fe50 (toplevel): Include atimer.h.
Gerd Moellmann <gerd@gnu.org>
parents: 27028
diff changeset
1727 }
1aa71680fe50 (toplevel): Include atimer.h.
Gerd Moellmann <gerd@gnu.org>
parents: 27028
diff changeset
1728
14131
7717b68abd2e (create_process): Restore the signal state
Karl Heuer <kwzh@gnu.org>
parents: 14085
diff changeset
1729 if (forkin != forkout && forkout >= 0)
26088
b7aa6ac26872 Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
parents: 26019
diff changeset
1730 emacs_close (forkout);
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1731
11609
3b2dacb1bfe9 (create_process): Don't reference pty_name if !HAVE_PTYS.
Karl Heuer <kwzh@gnu.org>
parents: 11514
diff changeset
1732 #ifdef HAVE_PTYS
14131
7717b68abd2e (create_process): Restore the signal state
Karl Heuer <kwzh@gnu.org>
parents: 14085
diff changeset
1733 if (pty_flag)
7717b68abd2e (create_process): Restore the signal state
Karl Heuer <kwzh@gnu.org>
parents: 14085
diff changeset
1734 XPROCESS (process)->tty_name = build_string (pty_name);
7717b68abd2e (create_process): Restore the signal state
Karl Heuer <kwzh@gnu.org>
parents: 14085
diff changeset
1735 else
11609
3b2dacb1bfe9 (create_process): Don't reference pty_name if !HAVE_PTYS.
Karl Heuer <kwzh@gnu.org>
parents: 11514
diff changeset
1736 #endif
14131
7717b68abd2e (create_process): Restore the signal state
Karl Heuer <kwzh@gnu.org>
parents: 14085
diff changeset
1737 XPROCESS (process)->tty_name = Qnil;
7717b68abd2e (create_process): Restore the signal state
Karl Heuer <kwzh@gnu.org>
parents: 14085
diff changeset
1738 }
7717b68abd2e (create_process): Restore the signal state
Karl Heuer <kwzh@gnu.org>
parents: 14085
diff changeset
1739
7717b68abd2e (create_process): Restore the signal state
Karl Heuer <kwzh@gnu.org>
parents: 14085
diff changeset
1740 /* 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
1741 (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
1742 #ifdef POSIX_SIGNALS
41856
0028402ed7d1 (create_process): Use HAVE_WORKING_VFORK, not HAVE_VFORK.
Paul Eggert <eggert@twinsun.com>
parents: 40656
diff changeset
1743 #ifdef HAVE_WORKING_VFORK
13709
d16f31ae8adf (create_process): Use Posix signal handling to
Karl Heuer <kwzh@gnu.org>
parents: 13414
diff changeset
1744 /* Restore the parent's signal handlers. */
d16f31ae8adf (create_process): Use Posix signal handling to
Karl Heuer <kwzh@gnu.org>
parents: 13414
diff changeset
1745 sigaction (SIGINT, &sigint_action, 0);
d16f31ae8adf (create_process): Use Posix signal handling to
Karl Heuer <kwzh@gnu.org>
parents: 13414
diff changeset
1746 sigaction (SIGQUIT, &sigquit_action, 0);
d16f31ae8adf (create_process): Use Posix signal handling to
Karl Heuer <kwzh@gnu.org>
parents: 13414
diff changeset
1747 #ifdef AIX
d16f31ae8adf (create_process): Use Posix signal handling to
Karl Heuer <kwzh@gnu.org>
parents: 13414
diff changeset
1748 sigaction (SIGHUP, &sighup_action, 0);
d16f31ae8adf (create_process): Use Posix signal handling to
Karl Heuer <kwzh@gnu.org>
parents: 13414
diff changeset
1749 #endif
41856
0028402ed7d1 (create_process): Use HAVE_WORKING_VFORK, not HAVE_VFORK.
Paul Eggert <eggert@twinsun.com>
parents: 40656
diff changeset
1750 #endif /* HAVE_WORKING_VFORK */
13709
d16f31ae8adf (create_process): Use Posix signal handling to
Karl Heuer <kwzh@gnu.org>
parents: 13414
diff changeset
1751 /* Stop blocking signals in the parent. */
d16f31ae8adf (create_process): Use Posix signal handling to
Karl Heuer <kwzh@gnu.org>
parents: 13414
diff changeset
1752 sigprocmask (SIG_SETMASK, &procmask, 0);
d16f31ae8adf (create_process): Use Posix signal handling to
Karl Heuer <kwzh@gnu.org>
parents: 13414
diff changeset
1753 #else /* !POSIX_SIGNALS */
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1754 #ifdef SIGCHLD
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1755 #ifdef BSD4_1
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1756 sigrelse (SIGCHLD);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1757 #else /* not BSD4_1 */
16220
02044b05d8e0 Replaced symbol BSD with BSD_SYSTEM.
Karl Heuer <kwzh@gnu.org>
parents: 16206
diff changeset
1758 #if defined (BSD_SYSTEM) || defined (UNIPLUS) || defined (HPUX)
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1759 sigsetmask (SIGEMPTYMASK);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1760 #else /* ordinary USG */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1761 #if 0
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1762 signal (SIGCHLD, sigchld);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1763 /* Now really handle any of these signals
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1764 that came in during this function. */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1765 if (sigchld_deferred)
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1766 kill (getpid (), SIGCHLD);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1767 #endif
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1768 #endif /* ordinary USG */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1769 #endif /* not BSD4_1 */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1770 #endif /* SIGCHLD */
13709
d16f31ae8adf (create_process): Use Posix signal handling to
Karl Heuer <kwzh@gnu.org>
parents: 13414
diff changeset
1771 #endif /* !POSIX_SIGNALS */
14131
7717b68abd2e (create_process): Restore the signal state
Karl Heuer <kwzh@gnu.org>
parents: 14085
diff changeset
1772
7717b68abd2e (create_process): Restore the signal state
Karl Heuer <kwzh@gnu.org>
parents: 14085
diff changeset
1773 /* Now generate the error if vfork failed. */
7717b68abd2e (create_process): Restore the signal state
Karl Heuer <kwzh@gnu.org>
parents: 14085
diff changeset
1774 if (pid < 0)
7717b68abd2e (create_process): Restore the signal state
Karl Heuer <kwzh@gnu.org>
parents: 14085
diff changeset
1775 report_file_error ("Doing vfork", Qnil);
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1776 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1777 #endif /* not VMS */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1778
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1779 #ifdef HAVE_SOCKETS
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1780
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1781 /* open a TCP network connection to a given HOST/SERVICE. Treated
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1782 exactly like a normal process when reading and writing. Only
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1783 differences are in status display and process deletion. A network
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1784 connection has no PID; you cannot signal it. All you can do is
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1785 deactivate and close it via delete-process */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1786
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1787 DEFUN ("open-network-stream", Fopen_network_stream, Sopen_network_stream,
43598
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
1788 4, 7, 0,
40103
6b389fb978bc Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
1789 doc: /* Open a TCP connection for a service to a host.
6b389fb978bc Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
1790 Returns a subprocess-object to represent the connection.
43598
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
1791 Returns nil if a non-blocking connect is attempted on a system which
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
1792 cannot support that; in that case, the caller should attempt a
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
1793 normal connect instead.
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
1794
40103
6b389fb978bc Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
1795 Input and output work as for subprocesses; `delete-process' closes it.
43598
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
1796 Args are NAME BUFFER HOST SERVICE FILTER SENTINEL NON-BLOCKING.
40103
6b389fb978bc Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
1797 NAME is name for process. It is modified if necessary to make it unique.
6b389fb978bc Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
1798 BUFFER is the buffer (or buffer-name) to associate with the process.
6b389fb978bc Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
1799 Process output goes at end of that buffer, unless you specify
6b389fb978bc Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
1800 an output stream or filter function to handle the output.
6b389fb978bc Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
1801 BUFFER may be also nil, meaning that this process is not associated
43598
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
1802 with any buffer.
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
1803 HOST is name of the host to connect to, or its IP address.
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
1804 SERVICE is name of the service desired, or an integer specifying a
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
1805 port number to connect to.
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
1806 FILTER and SENTINEL are optional args specifying the filter and
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
1807 sentinel functions associated with the network stream.
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
1808 NON-BLOCKING is optional arg requesting an non-blocking connect.
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
1809 When non-nil, open-network-stream will return immediately without
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
1810 waiting for the connection to be made. Instead, the sentinel function
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
1811 will be called with second matching "open" (if successful) or
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
1812 "failed" when the connect completes. */)
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
1813 (name, buffer, host, service, filter, sentinel, non_blocking)
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
1814 Lisp_Object name, buffer, host, service, filter, sentinel, non_blocking;
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1815 {
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1816 Lisp_Object proc;
32032
633b826a56f3 (Fopen_network_stream) [HAVE_GETADDRINFO]: Use
Gerd Moellmann <gerd@gnu.org>
parents: 31806
diff changeset
1817 #ifdef HAVE_GETADDRINFO
633b826a56f3 (Fopen_network_stream) [HAVE_GETADDRINFO]: Use
Gerd Moellmann <gerd@gnu.org>
parents: 31806
diff changeset
1818 struct addrinfo hints, *res, *lres;
633b826a56f3 (Fopen_network_stream) [HAVE_GETADDRINFO]: Use
Gerd Moellmann <gerd@gnu.org>
parents: 31806
diff changeset
1819 char *portstring, portbuf[128];
633b826a56f3 (Fopen_network_stream) [HAVE_GETADDRINFO]: Use
Gerd Moellmann <gerd@gnu.org>
parents: 31806
diff changeset
1820 #else /* HAVE_GETADDRINFO */
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1821 struct sockaddr_in address;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1822 struct servent *svc_info;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1823 struct hostent *host_info_ptr, host_info;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1824 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
1825 IN_ADDR numeric_addr;
25248
f0fc8443bdbb (Fopen_network_stream): Use getaddrinfo.
Karl Heuer <kwzh@gnu.org>
parents: 25129
diff changeset
1826 int port;
43598
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
1827 struct _emacs_addrinfo
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
1828 {
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
1829 int ai_family;
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
1830 int ai_socktype;
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
1831 int ai_protocol;
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
1832 int ai_addrlen;
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
1833 struct sockaddr *ai_addr;
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
1834 struct _emacs_addrinfo *ai_next;
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
1835 } ai, *res, *lres;
25262
ccf83ed7326a (Fopen_network_stream): Fix previous change.
Karl Heuer <kwzh@gnu.org>
parents: 25248
diff changeset
1836 #endif /* HAVE_GETADDRINFO */
43598
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
1837 int ret = 0;
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
1838 int xerrno = 0;
25262
ccf83ed7326a (Fopen_network_stream): Fix previous change.
Karl Heuer <kwzh@gnu.org>
parents: 25248
diff changeset
1839 int s = -1, outch, inch;
43617
43f83a792e17 (Fopen_network_stream): Use GCPRO6.
Kim F. Storm <storm@cua.dk>
parents: 43600
diff changeset
1840 struct gcpro gcpro1, gcpro2, gcpro3, gcpro4, gcpro5, gcpro6;
7220
a33eb16cab9d (Fopen_network_stream): Retry the connect if EADDRINUSE. Ignore EISCONN.
Richard M. Stallman <rms@gnu.org>
parents: 7157
diff changeset
1841 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
1842 int count = specpdl_ptr - specpdl;
25705
1f109108fa7e (Fopen_network_stream): Avoid socket decriptor leak.
Andreas Schwab <schwab@suse.de>
parents: 25645
diff changeset
1843 int count1;
43598
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
1844 int is_non_blocking = 0;
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
1845
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
1846 if (!NILP (non_blocking))
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
1847 {
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
1848 #ifndef NON_BLOCKING_CONNECT
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
1849 return Qnil;
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
1850 #else
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
1851 non_blocking = Qt; /* Instead of GCPRO */
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
1852 is_non_blocking = 1;
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
1853 #endif
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
1854 }
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1855
15355
6bb377ef707f (Fopen_network_stream)[WINDOWSNT]: Ensure Windows
Richard M. Stallman <rms@gnu.org>
parents: 15092
diff changeset
1856 #ifdef WINDOWSNT
6bb377ef707f (Fopen_network_stream)[WINDOWSNT]: Ensure Windows
Richard M. Stallman <rms@gnu.org>
parents: 15092
diff changeset
1857 /* Ensure socket support is loaded if available. */
6bb377ef707f (Fopen_network_stream)[WINDOWSNT]: Ensure Windows
Richard M. Stallman <rms@gnu.org>
parents: 15092
diff changeset
1858 init_winsock (TRUE);
6bb377ef707f (Fopen_network_stream)[WINDOWSNT]: Ensure Windows
Richard M. Stallman <rms@gnu.org>
parents: 15092
diff changeset
1859 #endif
6bb377ef707f (Fopen_network_stream)[WINDOWSNT]: Ensure Windows
Richard M. Stallman <rms@gnu.org>
parents: 15092
diff changeset
1860
43598
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
1861 /* Can only GCPRO 5 variables */
43617
43f83a792e17 (Fopen_network_stream): Use GCPRO6.
Kim F. Storm <storm@cua.dk>
parents: 43600
diff changeset
1862 GCPRO6 (name, buffer, host, service, sentinel, filter);
40656
cdfd4d09b79a Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents: 40641
diff changeset
1863 CHECK_STRING (name);
cdfd4d09b79a Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents: 40641
diff changeset
1864 CHECK_STRING (host);
25248
f0fc8443bdbb (Fopen_network_stream): Use getaddrinfo.
Karl Heuer <kwzh@gnu.org>
parents: 25129
diff changeset
1865
f0fc8443bdbb (Fopen_network_stream): Use getaddrinfo.
Karl Heuer <kwzh@gnu.org>
parents: 25129
diff changeset
1866 #ifdef HAVE_GETADDRINFO
32032
633b826a56f3 (Fopen_network_stream) [HAVE_GETADDRINFO]: Use
Gerd Moellmann <gerd@gnu.org>
parents: 31806
diff changeset
1867 /* SERVICE can either be a string or int.
633b826a56f3 (Fopen_network_stream) [HAVE_GETADDRINFO]: Use
Gerd Moellmann <gerd@gnu.org>
parents: 31806
diff changeset
1868 Convert to a C string for later use by getaddrinfo. */
25248
f0fc8443bdbb (Fopen_network_stream): Use getaddrinfo.
Karl Heuer <kwzh@gnu.org>
parents: 25129
diff changeset
1869 if (INTEGERP (service))
f0fc8443bdbb (Fopen_network_stream): Use getaddrinfo.
Karl Heuer <kwzh@gnu.org>
parents: 25129
diff changeset
1870 {
32032
633b826a56f3 (Fopen_network_stream) [HAVE_GETADDRINFO]: Use
Gerd Moellmann <gerd@gnu.org>
parents: 31806
diff changeset
1871 sprintf (portbuf, "%ld", (long) XINT (service));
25248
f0fc8443bdbb (Fopen_network_stream): Use getaddrinfo.
Karl Heuer <kwzh@gnu.org>
parents: 25129
diff changeset
1872 portstring = portbuf;
f0fc8443bdbb (Fopen_network_stream): Use getaddrinfo.
Karl Heuer <kwzh@gnu.org>
parents: 25129
diff changeset
1873 }
f0fc8443bdbb (Fopen_network_stream): Use getaddrinfo.
Karl Heuer <kwzh@gnu.org>
parents: 25129
diff changeset
1874 else
f0fc8443bdbb (Fopen_network_stream): Use getaddrinfo.
Karl Heuer <kwzh@gnu.org>
parents: 25129
diff changeset
1875 {
40656
cdfd4d09b79a Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents: 40641
diff changeset
1876 CHECK_STRING (service);
25248
f0fc8443bdbb (Fopen_network_stream): Use getaddrinfo.
Karl Heuer <kwzh@gnu.org>
parents: 25129
diff changeset
1877 portstring = XSTRING (service)->data;
f0fc8443bdbb (Fopen_network_stream): Use getaddrinfo.
Karl Heuer <kwzh@gnu.org>
parents: 25129
diff changeset
1878 }
32032
633b826a56f3 (Fopen_network_stream) [HAVE_GETADDRINFO]: Use
Gerd Moellmann <gerd@gnu.org>
parents: 31806
diff changeset
1879 #else /* HAVE_GETADDRINFO */
9115
59bc2d010b5f (decode_status, Fprocessp, Fget_process, Fget_buffer_process, Fprocess_status,
Karl Heuer <kwzh@gnu.org>
parents: 9034
diff changeset
1880 if (INTEGERP (service))
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1881 port = htons ((unsigned short) XINT (service));
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1882 else
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1883 {
40656
cdfd4d09b79a Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents: 40641
diff changeset
1884 CHECK_STRING (service);
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1885 svc_info = getservbyname (XSTRING (service)->data, "tcp");
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1886 if (svc_info == 0)
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1887 error ("Unknown service \"%s\"", XSTRING (service)->data);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1888 port = svc_info->s_port;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1889 }
32032
633b826a56f3 (Fopen_network_stream) [HAVE_GETADDRINFO]: Use
Gerd Moellmann <gerd@gnu.org>
parents: 31806
diff changeset
1890 #endif /* HAVE_GETADDRINFO */
25248
f0fc8443bdbb (Fopen_network_stream): Use getaddrinfo.
Karl Heuer <kwzh@gnu.org>
parents: 25129
diff changeset
1891
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1892
13777
5e0cbd5fcb46 (Fopen_network_stream): Call bind_polling_period earlier.
Karl Heuer <kwzh@gnu.org>
parents: 13709
diff changeset
1893 /* 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
1894 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
1895 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
1896 #ifdef POLL_FOR_INPUT
27669
5fddc840c29c (Fopen_network_stream) [POLL_FOR_INPUT]: Register
Gerd Moellmann <gerd@gnu.org>
parents: 27558
diff changeset
1897 record_unwind_protect (unwind_stop_other_atimers, Qnil);
13777
5e0cbd5fcb46 (Fopen_network_stream): Call bind_polling_period earlier.
Karl Heuer <kwzh@gnu.org>
parents: 13709
diff changeset
1898 bind_polling_period (10);
5e0cbd5fcb46 (Fopen_network_stream): Call bind_polling_period earlier.
Karl Heuer <kwzh@gnu.org>
parents: 13709
diff changeset
1899 #endif
5e0cbd5fcb46 (Fopen_network_stream): Call bind_polling_period earlier.
Karl Heuer <kwzh@gnu.org>
parents: 13709
diff changeset
1900
4914
56bc426b1eb4 [TERM]: Include client.h.
Richard M. Stallman <rms@gnu.org>
parents: 4883
diff changeset
1901 #ifndef TERM
25248
f0fc8443bdbb (Fopen_network_stream): Use getaddrinfo.
Karl Heuer <kwzh@gnu.org>
parents: 25129
diff changeset
1902 #ifdef HAVE_GETADDRINFO
32032
633b826a56f3 (Fopen_network_stream) [HAVE_GETADDRINFO]: Use
Gerd Moellmann <gerd@gnu.org>
parents: 31806
diff changeset
1903 immediate_quit = 1;
633b826a56f3 (Fopen_network_stream) [HAVE_GETADDRINFO]: Use
Gerd Moellmann <gerd@gnu.org>
parents: 31806
diff changeset
1904 QUIT;
633b826a56f3 (Fopen_network_stream) [HAVE_GETADDRINFO]: Use
Gerd Moellmann <gerd@gnu.org>
parents: 31806
diff changeset
1905 memset (&hints, 0, sizeof (hints));
633b826a56f3 (Fopen_network_stream) [HAVE_GETADDRINFO]: Use
Gerd Moellmann <gerd@gnu.org>
parents: 31806
diff changeset
1906 hints.ai_flags = 0;
633b826a56f3 (Fopen_network_stream) [HAVE_GETADDRINFO]: Use
Gerd Moellmann <gerd@gnu.org>
parents: 31806
diff changeset
1907 hints.ai_family = AF_UNSPEC;
633b826a56f3 (Fopen_network_stream) [HAVE_GETADDRINFO]: Use
Gerd Moellmann <gerd@gnu.org>
parents: 31806
diff changeset
1908 hints.ai_socktype = SOCK_STREAM;
633b826a56f3 (Fopen_network_stream) [HAVE_GETADDRINFO]: Use
Gerd Moellmann <gerd@gnu.org>
parents: 31806
diff changeset
1909 hints.ai_protocol = 0;
633b826a56f3 (Fopen_network_stream) [HAVE_GETADDRINFO]: Use
Gerd Moellmann <gerd@gnu.org>
parents: 31806
diff changeset
1910 ret = getaddrinfo (XSTRING (host)->data, portstring, &hints, &res);
633b826a56f3 (Fopen_network_stream) [HAVE_GETADDRINFO]: Use
Gerd Moellmann <gerd@gnu.org>
parents: 31806
diff changeset
1911 if (ret)
32074
a889f9fc59a7 (Fopen_network_stream): Use HAVE_GAI_STRERROR.
Dave Love <fx@gnu.org>
parents: 32032
diff changeset
1912 #ifdef HAVE_GAI_STRERROR
32032
633b826a56f3 (Fopen_network_stream) [HAVE_GETADDRINFO]: Use
Gerd Moellmann <gerd@gnu.org>
parents: 31806
diff changeset
1913 error ("%s/%s %s", XSTRING (host)->data, portstring, gai_strerror(ret));
32074
a889f9fc59a7 (Fopen_network_stream): Use HAVE_GAI_STRERROR.
Dave Love <fx@gnu.org>
parents: 32032
diff changeset
1914 #else
a889f9fc59a7 (Fopen_network_stream): Use HAVE_GAI_STRERROR.
Dave Love <fx@gnu.org>
parents: 32032
diff changeset
1915 error ("%s/%s getaddrinfo error %d", XSTRING (host)->data, portstring,
a889f9fc59a7 (Fopen_network_stream): Use HAVE_GAI_STRERROR.
Dave Love <fx@gnu.org>
parents: 32032
diff changeset
1916 ret);
a889f9fc59a7 (Fopen_network_stream): Use HAVE_GAI_STRERROR.
Dave Love <fx@gnu.org>
parents: 32032
diff changeset
1917 #endif
32032
633b826a56f3 (Fopen_network_stream) [HAVE_GETADDRINFO]: Use
Gerd Moellmann <gerd@gnu.org>
parents: 31806
diff changeset
1918 immediate_quit = 0;
633b826a56f3 (Fopen_network_stream) [HAVE_GETADDRINFO]: Use
Gerd Moellmann <gerd@gnu.org>
parents: 31806
diff changeset
1919
633b826a56f3 (Fopen_network_stream) [HAVE_GETADDRINFO]: Use
Gerd Moellmann <gerd@gnu.org>
parents: 31806
diff changeset
1920 #else /* not HAVE_GETADDRINFO */
25248
f0fc8443bdbb (Fopen_network_stream): Use getaddrinfo.
Karl Heuer <kwzh@gnu.org>
parents: 25129
diff changeset
1921
8287
97c2535b7f37 (Fopen_network_stream): Retry gethostbyname after TRY_AGAIN failure.
Richard M. Stallman <rms@gnu.org>
parents: 8231
diff changeset
1922 while (1)
97c2535b7f37 (Fopen_network_stream): Retry gethostbyname after TRY_AGAIN failure.
Richard M. Stallman <rms@gnu.org>
parents: 8231
diff changeset
1923 {
26019
079b0f1b92be (Fopen_network_stream): Don't loop if gethostbyname
Gerd Moellmann <gerd@gnu.org>
parents: 25894
diff changeset
1924 #if 0
8331
14ddb4c66461 [!HAVE_H_ERRNO]: Declare h_errno.
Richard M. Stallman <rms@gnu.org>
parents: 8287
diff changeset
1925 #ifdef TRY_AGAIN
14ddb4c66461 [!HAVE_H_ERRNO]: Declare h_errno.
Richard M. Stallman <rms@gnu.org>
parents: 8287
diff changeset
1926 h_errno = 0;
14ddb4c66461 [!HAVE_H_ERRNO]: Declare h_errno.
Richard M. Stallman <rms@gnu.org>
parents: 8287
diff changeset
1927 #endif
26019
079b0f1b92be (Fopen_network_stream): Don't loop if gethostbyname
Gerd Moellmann <gerd@gnu.org>
parents: 25894
diff changeset
1928 #endif
14758
849458c13c0c (wait_reading_process_input):
Richard M. Stallman <rms@gnu.org>
parents: 14736
diff changeset
1929 immediate_quit = 1;
849458c13c0c (wait_reading_process_input):
Richard M. Stallman <rms@gnu.org>
parents: 14736
diff changeset
1930 QUIT;
8287
97c2535b7f37 (Fopen_network_stream): Retry gethostbyname after TRY_AGAIN failure.
Richard M. Stallman <rms@gnu.org>
parents: 8231
diff changeset
1931 host_info_ptr = gethostbyname (XSTRING (host)->data);
14758
849458c13c0c (wait_reading_process_input):
Richard M. Stallman <rms@gnu.org>
parents: 14736
diff changeset
1932 immediate_quit = 0;
26019
079b0f1b92be (Fopen_network_stream): Don't loop if gethostbyname
Gerd Moellmann <gerd@gnu.org>
parents: 25894
diff changeset
1933 #if 0
8287
97c2535b7f37 (Fopen_network_stream): Retry gethostbyname after TRY_AGAIN failure.
Richard M. Stallman <rms@gnu.org>
parents: 8231
diff changeset
1934 #ifdef TRY_AGAIN
97c2535b7f37 (Fopen_network_stream): Retry gethostbyname after TRY_AGAIN failure.
Richard M. Stallman <rms@gnu.org>
parents: 8231
diff changeset
1935 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
1936 #endif
26019
079b0f1b92be (Fopen_network_stream): Don't loop if gethostbyname
Gerd Moellmann <gerd@gnu.org>
parents: 25894
diff changeset
1937 #endif
8287
97c2535b7f37 (Fopen_network_stream): Retry gethostbyname after TRY_AGAIN failure.
Richard M. Stallman <rms@gnu.org>
parents: 8231
diff changeset
1938 break;
97c2535b7f37 (Fopen_network_stream): Retry gethostbyname after TRY_AGAIN failure.
Richard M. Stallman <rms@gnu.org>
parents: 8231
diff changeset
1939 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
1940 }
32032
633b826a56f3 (Fopen_network_stream) [HAVE_GETADDRINFO]: Use
Gerd Moellmann <gerd@gnu.org>
parents: 31806
diff changeset
1941
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1942 if (host_info_ptr == 0)
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1943 /* Attempt to interpret host as numeric inet address */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1944 {
4883
a806d71f58f6 (Fopen_netwrok_stream): Cast arg to inet_addr to (char *).
Brian Fox <bfox@gnu.org>
parents: 4870
diff changeset
1945 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
1946 if (NUMERIC_ADDR_ERROR)
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1947 error ("Unknown host \"%s\"", XSTRING (host)->data);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1948
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1949 host_info_ptr = &host_info;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1950 host_info.h_name = 0;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1951 host_info.h_aliases = 0;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1952 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
1953 #ifdef h_addr
f66a150d3fb9 * process.c (Fopen_network_stream): Deal with older systems, which
Jim Blandy <jimb@redhat.com>
parents: 2917
diff changeset
1954 /* 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
1955 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
1956 be its first element. */
f66a150d3fb9 * process.c (Fopen_network_stream): Deal with older systems, which
Jim Blandy <jimb@redhat.com>
parents: 2917
diff changeset
1957 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
1958 #endif
f66a150d3fb9 * process.c (Fopen_network_stream): Deal with older systems, which
Jim Blandy <jimb@redhat.com>
parents: 2917
diff changeset
1959 host_info.h_addr = (char*)(&numeric_addr);
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1960 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
1961 /* 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
1962 host_info.h_length = sizeof (numeric_addr);
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1963 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1964
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1965 bzero (&address, sizeof address);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1966 bcopy (host_info_ptr->h_addr, (char *) &address.sin_addr,
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1967 host_info_ptr->h_length);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1968 address.sin_family = host_info_ptr->h_addrtype;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1969 address.sin_port = port;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1970
43598
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
1971 /* Emulate HAVE_GETADDRINFO for the loop over `res' below. */
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
1972 ai.ai_family = host_info_ptr->h_addrtype;
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
1973 ai.ai_socktype = SOCK_STREAM;
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
1974 ai.ai_protocol = 0;
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
1975 ai.ai_addr = (struct sockaddr *) &address;
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
1976 ai.ai_addrlen = sizeof address;
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
1977 ai.ai_next = NULL;
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
1978 res = &ai;
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
1979 #endif /* not HAVE_GETADDRINFO */
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
1980
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
1981 /* Do this in case we never enter the for-loop below. */
25705
1f109108fa7e (Fopen_network_stream): Avoid socket decriptor leak.
Andreas Schwab <schwab@suse.de>
parents: 25645
diff changeset
1982 count1 = specpdl_ptr - specpdl;
43598
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
1983 s = -1;
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
1984
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
1985 for (lres = res; lres; lres = lres->ai_next)
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1986 {
43598
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
1987 s = socket (lres->ai_family, lres->ai_socktype, lres->ai_protocol);
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
1988 if (s < 0)
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
1989 {
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
1990 xerrno = errno;
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
1991 continue;
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
1992 }
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
1993
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
1994 #ifdef NON_BLOCKING_CONNECT
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
1995 if (is_non_blocking)
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
1996 {
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
1997 #ifdef O_NONBLOCK
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
1998 ret = fcntl (s, F_SETFL, O_NONBLOCK);
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
1999 #else
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
2000 ret = fcntl (s, F_SETFL, O_NDELAY);
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
2001 #endif
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
2002 if (ret < 0)
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
2003 {
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
2004 xerrno = errno;
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
2005 emacs_close (s);
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
2006 s = -1;
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
2007 continue;
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
2008 }
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
2009 }
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
2010 #endif
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
2011
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
2012 /* Kernel bugs (on Ultrix at least) cause lossage (not just EINTR)
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
2013 when connect is interrupted. So let's not let it get interrupted.
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
2014 Note we do not turn off polling, because polling is only used
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
2015 when not interrupt_input, and thus not normally used on the systems
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
2016 which have this bug. On systems which use polling, there's no way
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
2017 to quit if polling is turned off. */
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
2018 if (interrupt_input)
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
2019 unrequest_sigio ();
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
2020
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
2021 /* Make us close S if quit. */
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
2022 count1 = specpdl_ptr - specpdl;
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
2023 record_unwind_protect (close_file_unwind, make_number (s));
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
2024
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
2025 loop:
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
2026
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
2027 immediate_quit = 1;
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
2028 QUIT;
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
2029
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
2030 /* This turns off all alarm-based interrupts; the
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
2031 bind_polling_period call above doesn't always turn all the
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
2032 short-interval ones off, especially if interrupt_input is
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
2033 set.
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
2034
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
2035 It'd be nice to be able to control the connect timeout
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
2036 though. Would non-blocking connect calls be portable?
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
2037
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
2038 This used to be conditioned by HAVE_GETADDRINFO. Why? */
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
2039
43642
bfd9fa0143d9 (Fopen_network_stream): Always call turn_on_atimers around connect.
Kim F. Storm <storm@cua.dk>
parents: 43617
diff changeset
2040 turn_on_atimers (0);
43598
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
2041
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
2042 ret = connect (s, lres->ai_addr, lres->ai_addrlen);
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
2043 xerrno = errno;
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
2044
43642
bfd9fa0143d9 (Fopen_network_stream): Always call turn_on_atimers around connect.
Kim F. Storm <storm@cua.dk>
parents: 43617
diff changeset
2045 turn_on_atimers (1);
43598
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
2046
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
2047 if (ret == 0 || xerrno == EISCONN)
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
2048 {
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
2049 is_non_blocking = 0;
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
2050 /* The unwind-protect will be discarded afterwards.
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
2051 Likewise for immediate_quit. */
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
2052 break;
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
2053 }
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
2054
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
2055 #ifdef NON_BLOCKING_CONNECT
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
2056 #ifdef EINPROGRESS
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
2057 if (is_non_blocking && xerrno == EINPROGRESS)
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
2058 break;
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
2059 #else
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
2060 #ifdef EWOULDBLOCK
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
2061 if (is_non_blocking && xerrno == EWOULDBLOCK)
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
2062 break;
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
2063 #endif
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
2064 #endif
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
2065 #endif
7220
a33eb16cab9d (Fopen_network_stream): Retry the connect if EADDRINUSE. Ignore EISCONN.
Richard M. Stallman <rms@gnu.org>
parents: 7157
diff changeset
2066
14671
0493e857a13b (Fopen_network_stream): Set immediate_quit for the connect.
Richard M. Stallman <rms@gnu.org>
parents: 14613
diff changeset
2067 immediate_quit = 0;
0493e857a13b (Fopen_network_stream): Set immediate_quit for the connect.
Richard M. Stallman <rms@gnu.org>
parents: 14613
diff changeset
2068
43598
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
2069 if (xerrno == EINTR)
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2070 goto loop;
43598
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
2071 if (xerrno == EADDRINUSE && retry < 20)
7220
a33eb16cab9d (Fopen_network_stream): Retry the connect if EADDRINUSE. Ignore EISCONN.
Richard M. Stallman <rms@gnu.org>
parents: 7157
diff changeset
2072 {
12378
3171d5da8a86 (Fopen_network_stream): Sleep 1 sec before connect retry.
Richard M. Stallman <rms@gnu.org>
parents: 12324
diff changeset
2073 /* 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
2074 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
2075 and should be infrequent. */
3171d5da8a86 (Fopen_network_stream): Sleep 1 sec before connect retry.
Richard M. Stallman <rms@gnu.org>
parents: 12324
diff changeset
2076 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
2077 retry++;
a33eb16cab9d (Fopen_network_stream): Retry the connect if EADDRINUSE. Ignore EISCONN.
Richard M. Stallman <rms@gnu.org>
parents: 7157
diff changeset
2078 goto loop;
a33eb16cab9d (Fopen_network_stream): Retry the connect if EADDRINUSE. Ignore EISCONN.
Richard M. Stallman <rms@gnu.org>
parents: 7157
diff changeset
2079 }
a33eb16cab9d (Fopen_network_stream): Retry the connect if EADDRINUSE. Ignore EISCONN.
Richard M. Stallman <rms@gnu.org>
parents: 7157
diff changeset
2080
43598
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
2081 /* Discard the unwind protect closing S. */
25705
1f109108fa7e (Fopen_network_stream): Avoid socket decriptor leak.
Andreas Schwab <schwab@suse.de>
parents: 25645
diff changeset
2082 specpdl_ptr = specpdl + count1;
43598
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
2083 count1 = specpdl_ptr - specpdl;
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
2084
26088
b7aa6ac26872 Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
parents: 26019
diff changeset
2085 emacs_close (s);
43598
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
2086 s = -1;
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
2087 }
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
2088
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
2089 #ifdef HAVE_GETADDRINFO
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
2090 freeaddrinfo (res);
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
2091 #endif
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
2092
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
2093 if (s < 0)
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
2094 {
5332
c559b3d1b9e4 (Fopen_network_stream): Turn off SIGIO while connecting.
Richard M. Stallman <rms@gnu.org>
parents: 5240
diff changeset
2095 if (interrupt_input)
c559b3d1b9e4 (Fopen_network_stream): Turn off SIGIO while connecting.
Richard M. Stallman <rms@gnu.org>
parents: 5240
diff changeset
2096 request_sigio ();
c559b3d1b9e4 (Fopen_network_stream): Turn off SIGIO while connecting.
Richard M. Stallman <rms@gnu.org>
parents: 5240
diff changeset
2097
43598
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
2098 /* If non-blocking got this far - and failed - assume non-blocking is
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
2099 not supported after all. This is probably a wrong assumption, but
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
2100 the normal blocking calls to open-network-stream handles this error
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
2101 better. */
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
2102 if (is_non_blocking)
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
2103 {
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
2104 #ifdef POLL_FOR_INPUT
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
2105 unbind_to (count, Qnil);
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
2106 #endif
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
2107 return Qnil;
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
2108 }
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
2109
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2110 errno = xerrno;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2111 report_file_error ("connection failed",
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2112 Fcons (host, Fcons (name, Qnil)));
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2113 }
32032
633b826a56f3 (Fopen_network_stream) [HAVE_GETADDRINFO]: Use
Gerd Moellmann <gerd@gnu.org>
parents: 31806
diff changeset
2114
14671
0493e857a13b (Fopen_network_stream): Set immediate_quit for the connect.
Richard M. Stallman <rms@gnu.org>
parents: 14613
diff changeset
2115 immediate_quit = 0;
0493e857a13b (Fopen_network_stream): Set immediate_quit for the connect.
Richard M. Stallman <rms@gnu.org>
parents: 14613
diff changeset
2116
32032
633b826a56f3 (Fopen_network_stream) [HAVE_GETADDRINFO]: Use
Gerd Moellmann <gerd@gnu.org>
parents: 31806
diff changeset
2117 /* Discard the unwind protect, if any. */
25705
1f109108fa7e (Fopen_network_stream): Avoid socket decriptor leak.
Andreas Schwab <schwab@suse.de>
parents: 25645
diff changeset
2118 specpdl_ptr = specpdl + count1;
1f109108fa7e (Fopen_network_stream): Avoid socket decriptor leak.
Andreas Schwab <schwab@suse.de>
parents: 25645
diff changeset
2119
7486
cfe4840ffde9 (Fopen_network_stream): Call bind_polling_period; later unbind the binding.
Richard M. Stallman <rms@gnu.org>
parents: 7454
diff changeset
2120 #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
2121 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
2122 #endif
cfe4840ffde9 (Fopen_network_stream): Call bind_polling_period; later unbind the binding.
Richard M. Stallman <rms@gnu.org>
parents: 7454
diff changeset
2123
5332
c559b3d1b9e4 (Fopen_network_stream): Turn off SIGIO while connecting.
Richard M. Stallman <rms@gnu.org>
parents: 5240
diff changeset
2124 if (interrupt_input)
c559b3d1b9e4 (Fopen_network_stream): Turn off SIGIO while connecting.
Richard M. Stallman <rms@gnu.org>
parents: 5240
diff changeset
2125 request_sigio ();
c559b3d1b9e4 (Fopen_network_stream): Turn off SIGIO while connecting.
Richard M. Stallman <rms@gnu.org>
parents: 5240
diff changeset
2126
4914
56bc426b1eb4 [TERM]: Include client.h.
Richard M. Stallman <rms@gnu.org>
parents: 4883
diff changeset
2127 #else /* TERM */
56bc426b1eb4 [TERM]: Include client.h.
Richard M. Stallman <rms@gnu.org>
parents: 4883
diff changeset
2128 s = connect_server (0);
56bc426b1eb4 [TERM]: Include client.h.
Richard M. Stallman <rms@gnu.org>
parents: 4883
diff changeset
2129 if (s < 0)
56bc426b1eb4 [TERM]: Include client.h.
Richard M. Stallman <rms@gnu.org>
parents: 4883
diff changeset
2130 report_file_error ("error creating socket", Fcons (name, Qnil));
56bc426b1eb4 [TERM]: Include client.h.
Richard M. Stallman <rms@gnu.org>
parents: 4883
diff changeset
2131 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
2132 send_command (s, C_DUMB, 1, 0);
56bc426b1eb4 [TERM]: Include client.h.
Richard M. Stallman <rms@gnu.org>
parents: 4883
diff changeset
2133 #endif /* TERM */
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2134
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2135 inch = s;
17247
351006378b51 (Fopen_network_stream): Use same socket for in and out.
Richard M. Stallman <rms@gnu.org>
parents: 17224
diff changeset
2136 outch = s;
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2137
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2138 if (!NILP (buffer))
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2139 buffer = Fget_buffer_create (buffer);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2140 proc = make_process (name);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2141
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2142 chan_process[inch] = proc;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2143
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2144 #ifdef O_NONBLOCK
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2145 fcntl (inch, F_SETFL, O_NONBLOCK);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2146 #else
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2147 #ifdef O_NDELAY
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2148 fcntl (inch, F_SETFL, O_NDELAY);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2149 #endif
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2150 #endif
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2151
16058
924aeb9ed7c3 (Fprocess_contact): New function.
Richard M. Stallman <rms@gnu.org>
parents: 16053
diff changeset
2152 XPROCESS (proc)->childp = Fcons (host, Fcons (service, Qnil));
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2153 XPROCESS (proc)->command_channel_p = Qnil;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2154 XPROCESS (proc)->buffer = buffer;
43617
43f83a792e17 (Fopen_network_stream): Use GCPRO6.
Kim F. Storm <storm@cua.dk>
parents: 43600
diff changeset
2155 XPROCESS (proc)->sentinel = sentinel;
43f83a792e17 (Fopen_network_stream): Use GCPRO6.
Kim F. Storm <storm@cua.dk>
parents: 43600
diff changeset
2156 XPROCESS (proc)->filter = filter;
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2157 XPROCESS (proc)->command = Qnil;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2158 XPROCESS (proc)->pid = Qnil;
15092
5372670fbe59 (Fopen_network_stream): Set process infd to inch.
Richard M. Stallman <rms@gnu.org>
parents: 15064
diff changeset
2159 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
2160 XSETINT (XPROCESS (proc)->outfd, outch);
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2161 XPROCESS (proc)->status = Qrun;
43598
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
2162
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
2163 #ifdef NON_BLOCKING_CONNECT
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
2164 if (!NILP (non_blocking))
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
2165 {
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
2166 /* We may get here if connect did succeed immediately. However,
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
2167 in that case, we still need to signal this like a non-blocking
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
2168 connection. */
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
2169 XPROCESS (proc)->status = Qconnect;
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
2170 if (!FD_ISSET (inch, &connect_wait_mask))
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
2171 {
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
2172 FD_SET (inch, &connect_wait_mask);
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
2173 num_pending_connects++;
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
2174 }
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
2175 }
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
2176 else
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
2177 #endif
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
2178 if (!EQ (XPROCESS (proc)->filter, Qt))
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
2179 {
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
2180 FD_SET (inch, &input_wait_mask);
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
2181 FD_SET (inch, &non_keyboard_wait_mask);
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
2182 }
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
2183
7044
7032d07f5ad9 (max_process_desc): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 7013
diff changeset
2184 if (inch > max_process_desc)
7032d07f5ad9 (max_process_desc): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 7013
diff changeset
2185 max_process_desc = inch;
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2186
22019
bb9dd4758e7e (Fstart_process): Remove the special case for
Richard M. Stallman <rms@gnu.org>
parents: 21978
diff changeset
2187 {
bb9dd4758e7e (Fstart_process): Remove the special case for
Richard M. Stallman <rms@gnu.org>
parents: 21978
diff changeset
2188 /* Setup coding systems for communicating with the network stream. */
bb9dd4758e7e (Fstart_process): Remove the special case for
Richard M. Stallman <rms@gnu.org>
parents: 21978
diff changeset
2189 struct gcpro gcpro1;
bb9dd4758e7e (Fstart_process): Remove the special case for
Richard M. Stallman <rms@gnu.org>
parents: 21978
diff changeset
2190 /* Qt denotes we have not yet called Ffind_operation_coding_system. */
bb9dd4758e7e (Fstart_process): Remove the special case for
Richard M. Stallman <rms@gnu.org>
parents: 21978
diff changeset
2191 Lisp_Object coding_systems = Qt;
bb9dd4758e7e (Fstart_process): Remove the special case for
Richard M. Stallman <rms@gnu.org>
parents: 21978
diff changeset
2192 Lisp_Object args[5], val;
bb9dd4758e7e (Fstart_process): Remove the special case for
Richard M. Stallman <rms@gnu.org>
parents: 21978
diff changeset
2193
bb9dd4758e7e (Fstart_process): Remove the special case for
Richard M. Stallman <rms@gnu.org>
parents: 21978
diff changeset
2194 if (!NILP (Vcoding_system_for_read))
bb9dd4758e7e (Fstart_process): Remove the special case for
Richard M. Stallman <rms@gnu.org>
parents: 21978
diff changeset
2195 val = Vcoding_system_for_read;
25770
3a44b5298cd5 (list_processes_1): Remove unused variables.
Gerd Moellmann <gerd@gnu.org>
parents: 25760
diff changeset
2196 else if ((!NILP (buffer) && NILP (XBUFFER (buffer)->enable_multibyte_characters))
3a44b5298cd5 (list_processes_1): Remove unused variables.
Gerd Moellmann <gerd@gnu.org>
parents: 25760
diff changeset
2197 || (NILP (buffer) && NILP (buffer_defaults.enable_multibyte_characters)))
22019
bb9dd4758e7e (Fstart_process): Remove the special case for
Richard M. Stallman <rms@gnu.org>
parents: 21978
diff changeset
2198 /* We dare not decode end-of-line format by setting VAL to
bb9dd4758e7e (Fstart_process): Remove the special case for
Richard M. Stallman <rms@gnu.org>
parents: 21978
diff changeset
2199 Qraw_text, because the existing Emacs Lisp libraries
bb9dd4758e7e (Fstart_process): Remove the special case for
Richard M. Stallman <rms@gnu.org>
parents: 21978
diff changeset
2200 assume that they receive bare code including a sequene of
bb9dd4758e7e (Fstart_process): Remove the special case for
Richard M. Stallman <rms@gnu.org>
parents: 21978
diff changeset
2201 CR LF. */
bb9dd4758e7e (Fstart_process): Remove the special case for
Richard M. Stallman <rms@gnu.org>
parents: 21978
diff changeset
2202 val = Qnil;
bb9dd4758e7e (Fstart_process): Remove the special case for
Richard M. Stallman <rms@gnu.org>
parents: 21978
diff changeset
2203 else
bb9dd4758e7e (Fstart_process): Remove the special case for
Richard M. Stallman <rms@gnu.org>
parents: 21978
diff changeset
2204 {
bb9dd4758e7e (Fstart_process): Remove the special case for
Richard M. Stallman <rms@gnu.org>
parents: 21978
diff changeset
2205 args[0] = Qopen_network_stream, args[1] = name,
bb9dd4758e7e (Fstart_process): Remove the special case for
Richard M. Stallman <rms@gnu.org>
parents: 21978
diff changeset
2206 args[2] = buffer, args[3] = host, args[4] = service;
bb9dd4758e7e (Fstart_process): Remove the special case for
Richard M. Stallman <rms@gnu.org>
parents: 21978
diff changeset
2207 GCPRO1 (proc);
bb9dd4758e7e (Fstart_process): Remove the special case for
Richard M. Stallman <rms@gnu.org>
parents: 21978
diff changeset
2208 coding_systems = Ffind_operation_coding_system (5, args);
bb9dd4758e7e (Fstart_process): Remove the special case for
Richard M. Stallman <rms@gnu.org>
parents: 21978
diff changeset
2209 UNGCPRO;
bb9dd4758e7e (Fstart_process): Remove the special case for
Richard M. Stallman <rms@gnu.org>
parents: 21978
diff changeset
2210 if (CONSP (coding_systems))
25645
a14111a2a100 Use XCAR, XCDR, XFLOAT_DATA instead of explicit member access.
Ken Raeburn <raeburn@raeburn.org>
parents: 25356
diff changeset
2211 val = XCAR (coding_systems);
22019
bb9dd4758e7e (Fstart_process): Remove the special case for
Richard M. Stallman <rms@gnu.org>
parents: 21978
diff changeset
2212 else if (CONSP (Vdefault_process_coding_system))
25645
a14111a2a100 Use XCAR, XCDR, XFLOAT_DATA instead of explicit member access.
Ken Raeburn <raeburn@raeburn.org>
parents: 25356
diff changeset
2213 val = XCAR (Vdefault_process_coding_system);
22019
bb9dd4758e7e (Fstart_process): Remove the special case for
Richard M. Stallman <rms@gnu.org>
parents: 21978
diff changeset
2214 else
bb9dd4758e7e (Fstart_process): Remove the special case for
Richard M. Stallman <rms@gnu.org>
parents: 21978
diff changeset
2215 val = Qnil;
bb9dd4758e7e (Fstart_process): Remove the special case for
Richard M. Stallman <rms@gnu.org>
parents: 21978
diff changeset
2216 }
bb9dd4758e7e (Fstart_process): Remove the special case for
Richard M. Stallman <rms@gnu.org>
parents: 21978
diff changeset
2217 XPROCESS (proc)->decode_coding_system = val;
bb9dd4758e7e (Fstart_process): Remove the special case for
Richard M. Stallman <rms@gnu.org>
parents: 21978
diff changeset
2218
bb9dd4758e7e (Fstart_process): Remove the special case for
Richard M. Stallman <rms@gnu.org>
parents: 21978
diff changeset
2219 if (!NILP (Vcoding_system_for_write))
bb9dd4758e7e (Fstart_process): Remove the special case for
Richard M. Stallman <rms@gnu.org>
parents: 21978
diff changeset
2220 val = Vcoding_system_for_write;
bb9dd4758e7e (Fstart_process): Remove the special case for
Richard M. Stallman <rms@gnu.org>
parents: 21978
diff changeset
2221 else if (NILP (current_buffer->enable_multibyte_characters))
bb9dd4758e7e (Fstart_process): Remove the special case for
Richard M. Stallman <rms@gnu.org>
parents: 21978
diff changeset
2222 val = Qnil;
bb9dd4758e7e (Fstart_process): Remove the special case for
Richard M. Stallman <rms@gnu.org>
parents: 21978
diff changeset
2223 else
bb9dd4758e7e (Fstart_process): Remove the special case for
Richard M. Stallman <rms@gnu.org>
parents: 21978
diff changeset
2224 {
bb9dd4758e7e (Fstart_process): Remove the special case for
Richard M. Stallman <rms@gnu.org>
parents: 21978
diff changeset
2225 if (EQ (coding_systems, Qt))
bb9dd4758e7e (Fstart_process): Remove the special case for
Richard M. Stallman <rms@gnu.org>
parents: 21978
diff changeset
2226 {
bb9dd4758e7e (Fstart_process): Remove the special case for
Richard M. Stallman <rms@gnu.org>
parents: 21978
diff changeset
2227 args[0] = Qopen_network_stream, args[1] = name,
bb9dd4758e7e (Fstart_process): Remove the special case for
Richard M. Stallman <rms@gnu.org>
parents: 21978
diff changeset
2228 args[2] = buffer, args[3] = host, args[4] = service;
bb9dd4758e7e (Fstart_process): Remove the special case for
Richard M. Stallman <rms@gnu.org>
parents: 21978
diff changeset
2229 GCPRO1 (proc);
bb9dd4758e7e (Fstart_process): Remove the special case for
Richard M. Stallman <rms@gnu.org>
parents: 21978
diff changeset
2230 coding_systems = Ffind_operation_coding_system (5, args);
bb9dd4758e7e (Fstart_process): Remove the special case for
Richard M. Stallman <rms@gnu.org>
parents: 21978
diff changeset
2231 UNGCPRO;
bb9dd4758e7e (Fstart_process): Remove the special case for
Richard M. Stallman <rms@gnu.org>
parents: 21978
diff changeset
2232 }
bb9dd4758e7e (Fstart_process): Remove the special case for
Richard M. Stallman <rms@gnu.org>
parents: 21978
diff changeset
2233 if (CONSP (coding_systems))
25645
a14111a2a100 Use XCAR, XCDR, XFLOAT_DATA instead of explicit member access.
Ken Raeburn <raeburn@raeburn.org>
parents: 25356
diff changeset
2234 val = XCDR (coding_systems);
22019
bb9dd4758e7e (Fstart_process): Remove the special case for
Richard M. Stallman <rms@gnu.org>
parents: 21978
diff changeset
2235 else if (CONSP (Vdefault_process_coding_system))
25645
a14111a2a100 Use XCAR, XCDR, XFLOAT_DATA instead of explicit member access.
Ken Raeburn <raeburn@raeburn.org>
parents: 25356
diff changeset
2236 val = XCDR (Vdefault_process_coding_system);
22019
bb9dd4758e7e (Fstart_process): Remove the special case for
Richard M. Stallman <rms@gnu.org>
parents: 21978
diff changeset
2237 else
bb9dd4758e7e (Fstart_process): Remove the special case for
Richard M. Stallman <rms@gnu.org>
parents: 21978
diff changeset
2238 val = Qnil;
bb9dd4758e7e (Fstart_process): Remove the special case for
Richard M. Stallman <rms@gnu.org>
parents: 21978
diff changeset
2239 }
bb9dd4758e7e (Fstart_process): Remove the special case for
Richard M. Stallman <rms@gnu.org>
parents: 21978
diff changeset
2240 XPROCESS (proc)->encode_coding_system = val;
bb9dd4758e7e (Fstart_process): Remove the special case for
Richard M. Stallman <rms@gnu.org>
parents: 21978
diff changeset
2241 }
17110
3a348cbb354f (Fstart_process, Fopen_network_stream): Do not perform
Kenichi Handa <handa@m17n.org>
parents: 17041
diff changeset
2242
3a348cbb354f (Fstart_process, Fopen_network_stream): Do not perform
Kenichi Handa <handa@m17n.org>
parents: 17041
diff changeset
2243 if (!proc_decode_coding_system[inch])
3a348cbb354f (Fstart_process, Fopen_network_stream): Do not perform
Kenichi Handa <handa@m17n.org>
parents: 17041
diff changeset
2244 proc_decode_coding_system[inch]
3a348cbb354f (Fstart_process, Fopen_network_stream): Do not perform
Kenichi Handa <handa@m17n.org>
parents: 17041
diff changeset
2245 = (struct coding_system *) xmalloc (sizeof (struct coding_system));
17041
b61cbe595be5 Include charset.h and coding.h.
Karl Heuer <kwzh@gnu.org>
parents: 16780
diff changeset
2246 setup_coding_system (XPROCESS (proc)->decode_coding_system,
17110
3a348cbb354f (Fstart_process, Fopen_network_stream): Do not perform
Kenichi Handa <handa@m17n.org>
parents: 17041
diff changeset
2247 proc_decode_coding_system[inch]);
3a348cbb354f (Fstart_process, Fopen_network_stream): Do not perform
Kenichi Handa <handa@m17n.org>
parents: 17041
diff changeset
2248 if (!proc_encode_coding_system[outch])
3a348cbb354f (Fstart_process, Fopen_network_stream): Do not perform
Kenichi Handa <handa@m17n.org>
parents: 17041
diff changeset
2249 proc_encode_coding_system[outch]
3a348cbb354f (Fstart_process, Fopen_network_stream): Do not perform
Kenichi Handa <handa@m17n.org>
parents: 17041
diff changeset
2250 = (struct coding_system *) xmalloc (sizeof (struct coding_system));
17041
b61cbe595be5 Include charset.h and coding.h.
Karl Heuer <kwzh@gnu.org>
parents: 16780
diff changeset
2251 setup_coding_system (XPROCESS (proc)->encode_coding_system,
17110
3a348cbb354f (Fstart_process, Fopen_network_stream): Do not perform
Kenichi Handa <handa@m17n.org>
parents: 17041
diff changeset
2252 proc_encode_coding_system[outch]);
17041
b61cbe595be5 Include charset.h and coding.h.
Karl Heuer <kwzh@gnu.org>
parents: 16780
diff changeset
2253
b61cbe595be5 Include charset.h and coding.h.
Karl Heuer <kwzh@gnu.org>
parents: 16780
diff changeset
2254 XPROCESS (proc)->decoding_buf = make_uninit_string (0);
20715
5e983ddb85c9 (Fstart_process): Use raw-text instead of emacs-mule
Kenichi Handa <handa@m17n.org>
parents: 20708
diff changeset
2255 XPROCESS (proc)->decoding_carryover = make_number (0);
17041
b61cbe595be5 Include charset.h and coding.h.
Karl Heuer <kwzh@gnu.org>
parents: 16780
diff changeset
2256 XPROCESS (proc)->encoding_buf = make_uninit_string (0);
20715
5e983ddb85c9 (Fstart_process): Use raw-text instead of emacs-mule
Kenichi Handa <handa@m17n.org>
parents: 20708
diff changeset
2257 XPROCESS (proc)->encoding_carryover = make_number (0);
17041
b61cbe595be5 Include charset.h and coding.h.
Karl Heuer <kwzh@gnu.org>
parents: 16780
diff changeset
2258
21848
050ea21cec87 (Fset_process_inherit_coding_system_flag, Fstart_process):
Richard M. Stallman <rms@gnu.org>
parents: 21798
diff changeset
2259 XPROCESS (proc)->inherit_coding_system_flag
050ea21cec87 (Fset_process_inherit_coding_system_flag, Fstart_process):
Richard M. Stallman <rms@gnu.org>
parents: 21798
diff changeset
2260 = (NILP (buffer) || !inherit_process_coding_system
050ea21cec87 (Fset_process_inherit_coding_system_flag, Fstart_process):
Richard M. Stallman <rms@gnu.org>
parents: 21798
diff changeset
2261 ? Qnil : Qt);
21656
bb39a5863a82 (Fset_process_inherit_coding_system_flag,
Eli Zaretskii <eliz@gnu.org>
parents: 21530
diff changeset
2262
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2263 UNGCPRO;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2264 return proc;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2265 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2266 #endif /* HAVE_SOCKETS */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2267
20382
dbad9367d232 (create_process, deactivate_process, close_process_descs):
Andreas Schwab <schwab@suse.de>
parents: 20225
diff changeset
2268 void
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2269 deactivate_process (proc)
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2270 Lisp_Object proc;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2271 {
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2272 register int inchannel, outchannel;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2273 register struct Lisp_Process *p = XPROCESS (proc);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2274
5134
0a4e46e15304 (wait_reading_process_input):
Richard M. Stallman <rms@gnu.org>
parents: 4998
diff changeset
2275 inchannel = XINT (p->infd);
0a4e46e15304 (wait_reading_process_input):
Richard M. Stallman <rms@gnu.org>
parents: 4998
diff changeset
2276 outchannel = XINT (p->outfd);
0a4e46e15304 (wait_reading_process_input):
Richard M. Stallman <rms@gnu.org>
parents: 4998
diff changeset
2277
0a4e46e15304 (wait_reading_process_input):
Richard M. Stallman <rms@gnu.org>
parents: 4998
diff changeset
2278 if (inchannel >= 0)
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2279 {
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2280 /* Beware SIGCHLD hereabouts. */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2281 flush_pending_output (inchannel);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2282 #ifdef VMS
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2283 {
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2284 VMS_PROC_STUFF *get_vms_process_pointer (), *vs;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2285 sys$dassgn (outchannel);
2357
9faa3a02ea97 * process.c [VMS] (DCL_PROMPT): Remove hack.
Jim Blandy <jimb@redhat.com>
parents: 2290
diff changeset
2286 vs = get_vms_process_pointer (p->pid);
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2287 if (vs)
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2288 give_back_vms_process_stuff (vs);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2289 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2290 #else
26088
b7aa6ac26872 Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
parents: 26019
diff changeset
2291 emacs_close (inchannel);
5134
0a4e46e15304 (wait_reading_process_input):
Richard M. Stallman <rms@gnu.org>
parents: 4998
diff changeset
2292 if (outchannel >= 0 && outchannel != inchannel)
26088
b7aa6ac26872 Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
parents: 26019
diff changeset
2293 emacs_close (outchannel);
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2294 #endif
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2295
9277
21f6120be5ba (make_process, create_process, Fopen_network_stream, deactivate_process,
Karl Heuer <kwzh@gnu.org>
parents: 9115
diff changeset
2296 XSETINT (p->infd, -1);
21f6120be5ba (make_process, create_process, Fopen_network_stream, deactivate_process,
Karl Heuer <kwzh@gnu.org>
parents: 9115
diff changeset
2297 XSETINT (p->outfd, -1);
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2298 chan_process[inchannel] = Qnil;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2299 FD_CLR (inchannel, &input_wait_mask);
9686
cd788aa8cb2a Handle multiple keyboard input descriptors.
Richard M. Stallman <rms@gnu.org>
parents: 9334
diff changeset
2300 FD_CLR (inchannel, &non_keyboard_wait_mask);
43598
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
2301 if (FD_ISSET (inchannel, &connect_wait_mask))
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
2302 {
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
2303 FD_CLR (inchannel, &connect_wait_mask);
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
2304 if (--num_pending_connects < 0)
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
2305 abort ();
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
2306 }
7044
7032d07f5ad9 (max_process_desc): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 7013
diff changeset
2307 if (inchannel == max_process_desc)
7032d07f5ad9 (max_process_desc): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 7013
diff changeset
2308 {
7032d07f5ad9 (max_process_desc): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 7013
diff changeset
2309 int i;
7032d07f5ad9 (max_process_desc): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 7013
diff changeset
2310 /* 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
2311 so recompute the highest-numbered one now. */
7032d07f5ad9 (max_process_desc): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 7013
diff changeset
2312 max_process_desc = 0;
7032d07f5ad9 (max_process_desc): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 7013
diff changeset
2313 for (i = 0; i < MAXDESC; i++)
7032d07f5ad9 (max_process_desc): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 7013
diff changeset
2314 if (!NILP (chan_process[i]))
7032d07f5ad9 (max_process_desc): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 7013
diff changeset
2315 max_process_desc = i;
7032d07f5ad9 (max_process_desc): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 7013
diff changeset
2316 }
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2317 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2318 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2319
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2320 /* Close all descriptors currently in use for communication
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2321 with subprocess. This is used in a newly-forked subprocess
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2322 to get rid of irrelevant descriptors. */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2323
20382
dbad9367d232 (create_process, deactivate_process, close_process_descs):
Andreas Schwab <schwab@suse.de>
parents: 20225
diff changeset
2324 void
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2325 close_process_descs ()
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2326 {
9793
28267fcc61be Use macros IS_ANY_SEP, IS_DIRECTORY_SEP,
Richard M. Stallman <rms@gnu.org>
parents: 9705
diff changeset
2327 #ifndef WINDOWSNT
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2328 int i;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2329 for (i = 0; i < MAXDESC; i++)
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2330 {
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2331 Lisp_Object process;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2332 process = chan_process[i];
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2333 if (!NILP (process))
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2334 {
5134
0a4e46e15304 (wait_reading_process_input):
Richard M. Stallman <rms@gnu.org>
parents: 4998
diff changeset
2335 int in = XINT (XPROCESS (process)->infd);
0a4e46e15304 (wait_reading_process_input):
Richard M. Stallman <rms@gnu.org>
parents: 4998
diff changeset
2336 int out = XINT (XPROCESS (process)->outfd);
0a4e46e15304 (wait_reading_process_input):
Richard M. Stallman <rms@gnu.org>
parents: 4998
diff changeset
2337 if (in >= 0)
26088
b7aa6ac26872 Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
parents: 26019
diff changeset
2338 emacs_close (in);
5134
0a4e46e15304 (wait_reading_process_input):
Richard M. Stallman <rms@gnu.org>
parents: 4998
diff changeset
2339 if (out >= 0 && in != out)
26088
b7aa6ac26872 Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
parents: 26019
diff changeset
2340 emacs_close (out);
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2341 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2342 }
9793
28267fcc61be Use macros IS_ANY_SEP, IS_DIRECTORY_SEP,
Richard M. Stallman <rms@gnu.org>
parents: 9705
diff changeset
2343 #endif
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2344 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2345
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2346 DEFUN ("accept-process-output", Faccept_process_output, Saccept_process_output,
40103
6b389fb978bc Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
2347 0, 3, 0,
6b389fb978bc Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
2348 doc: /* Allow any pending output from subprocesses to be read by Emacs.
6b389fb978bc Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
2349 It is read into the process' buffers or given to their filter functions.
6b389fb978bc Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
2350 Non-nil arg PROCESS means do not return until some output has been received
6b389fb978bc Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
2351 from PROCESS.
6b389fb978bc Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
2352 Non-nil second arg TIMEOUT and third arg TIMEOUT-MSECS are number of
6b389fb978bc Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
2353 seconds and microseconds to wait; return after that much time whether
6b389fb978bc Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
2354 or not there is input.
6b389fb978bc Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
2355 Return non-nil iff we received any output before the timeout expired. */)
6b389fb978bc Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
2356 (process, timeout, timeout_msecs)
14085
85ce7bab31dc (Fprocessp, Fget_buffer_process, Fdelete_process, Fprocess_status,
Erik Naggum <erik@naggum.no>
parents: 14036
diff changeset
2357 register Lisp_Object process, timeout, timeout_msecs;
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2358 {
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2359 int seconds;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2360 int useconds;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2361
24598
078d53377010 (Faccept_process_output): Check validity of PROCESS.
Richard M. Stallman <rms@gnu.org>
parents: 24352
diff changeset
2362 if (! NILP (process))
40656
cdfd4d09b79a Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents: 40641
diff changeset
2363 CHECK_PROCESS (process);
24598
078d53377010 (Faccept_process_output): Check validity of PROCESS.
Richard M. Stallman <rms@gnu.org>
parents: 24352
diff changeset
2364
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2365 if (! NILP (timeout_msecs))
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2366 {
40656
cdfd4d09b79a Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents: 40641
diff changeset
2367 CHECK_NUMBER (timeout_msecs);
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2368 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
2369 if (!INTEGERP (timeout))
9277
21f6120be5ba (make_process, create_process, Fopen_network_stream, deactivate_process,
Karl Heuer <kwzh@gnu.org>
parents: 9115
diff changeset
2370 XSETINT (timeout, 0);
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2371
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2372 {
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2373 int carry = useconds / 1000000;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2374
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2375 XSETINT (timeout, XINT (timeout) + carry);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2376 useconds -= carry * 1000000;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2377
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2378 /* I think this clause is necessary because C doesn't
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2379 guarantee a particular rounding direction for negative
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2380 integers. */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2381 if (useconds < 0)
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2382 {
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2383 XSETINT (timeout, XINT (timeout) - 1);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2384 useconds += 1000000;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2385 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2386 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2387 }
1180
9bf82484415d (Faccept_process_output): Initialize useconds.
Richard M. Stallman <rms@gnu.org>
parents: 1047
diff changeset
2388 else
9bf82484415d (Faccept_process_output): Initialize useconds.
Richard M. Stallman <rms@gnu.org>
parents: 1047
diff changeset
2389 useconds = 0;
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2390
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2391 if (! NILP (timeout))
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2392 {
40656
cdfd4d09b79a Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents: 40641
diff changeset
2393 CHECK_NUMBER (timeout);
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2394 seconds = XINT (timeout);
14605
80196bfd8b94 (Faccept_process_output): Accept sub-second timeouts.
Erik Naggum <erik@naggum.no>
parents: 14544
diff changeset
2395 if (seconds < 0 || (seconds == 0 && useconds == 0))
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2396 seconds = -1;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2397 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2398 else
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2399 {
14085
85ce7bab31dc (Fprocessp, Fget_buffer_process, Fdelete_process, Fprocess_status,
Erik Naggum <erik@naggum.no>
parents: 14036
diff changeset
2400 if (NILP (process))
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2401 seconds = -1;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2402 else
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2403 seconds = 0;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2404 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2405
14085
85ce7bab31dc (Fprocessp, Fget_buffer_process, Fdelete_process, Fprocess_status,
Erik Naggum <erik@naggum.no>
parents: 14036
diff changeset
2406 if (NILP (process))
85ce7bab31dc (Fprocessp, Fget_buffer_process, Fdelete_process, Fprocess_status,
Erik Naggum <erik@naggum.no>
parents: 14036
diff changeset
2407 XSETFASTINT (process, 0);
650
39f0e62a8511 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 648
diff changeset
2408
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2409 return
14085
85ce7bab31dc (Fprocessp, Fget_buffer_process, Fdelete_process, Fprocess_status,
Erik Naggum <erik@naggum.no>
parents: 14036
diff changeset
2410 (wait_reading_process_input (seconds, useconds, process, 0)
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2411 ? Qt : Qnil);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2412 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2413
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2414 /* This variable is different from waiting_for_input in keyboard.c.
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2415 It is used to communicate to a lisp process-filter/sentinel (via the
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2416 function Fwaiting_for_user_input_p below) whether emacs was waiting
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2417 for user-input when that process-filter was called.
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2418 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
2419 lisp code is being evalled.
dd3dfde8f973 (wait_reading_process_input):
Richard M. Stallman <rms@gnu.org>
parents: 8390
diff changeset
2420 This is also used in record_asynch_buffer_change.
dd3dfde8f973 (wait_reading_process_input):
Richard M. Stallman <rms@gnu.org>
parents: 8390
diff changeset
2421 For that purpose, this must be 0
dd3dfde8f973 (wait_reading_process_input):
Richard M. Stallman <rms@gnu.org>
parents: 8390
diff changeset
2422 when not inside wait_reading_process_input. */
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2423 static int waiting_for_user_input_p;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2424
14890
71c2cf461805 (wait_reading_process_input_1): New (empty) function.
Richard M. Stallman <rms@gnu.org>
parents: 14863
diff changeset
2425 /* This is here so breakpoints can be put on it. */
21514
fa9ff387d260 Fix -Wimplicit warnings.
Andreas Schwab <schwab@suse.de>
parents: 21414
diff changeset
2426 static void
14890
71c2cf461805 (wait_reading_process_input_1): New (empty) function.
Richard M. Stallman <rms@gnu.org>
parents: 14863
diff changeset
2427 wait_reading_process_input_1 ()
71c2cf461805 (wait_reading_process_input_1): New (empty) function.
Richard M. Stallman <rms@gnu.org>
parents: 14863
diff changeset
2428 {
71c2cf461805 (wait_reading_process_input_1): New (empty) function.
Richard M. Stallman <rms@gnu.org>
parents: 14863
diff changeset
2429 }
71c2cf461805 (wait_reading_process_input_1): New (empty) function.
Richard M. Stallman <rms@gnu.org>
parents: 14863
diff changeset
2430
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2431 /* Read and dispose of subprocess output while waiting for timeout to
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2432 elapse and/or keyboard input to be available.
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2433
3953
d0c23febc08c (wait_reading_process_input): Do include the keyboard
Richard M. Stallman <rms@gnu.org>
parents: 3915
diff changeset
2434 TIME_LIMIT is:
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2435 timeout in seconds, or
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2436 zero for no limit, or
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2437 -1 means gobble data immediately available but don't wait for any.
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2438
3953
d0c23febc08c (wait_reading_process_input): Do include the keyboard
Richard M. Stallman <rms@gnu.org>
parents: 3915
diff changeset
2439 MICROSECS is:
d0c23febc08c (wait_reading_process_input): Do include the keyboard
Richard M. Stallman <rms@gnu.org>
parents: 3915
diff changeset
2440 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
2441 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
2442 consists of MICROSECS only.
d0c23febc08c (wait_reading_process_input): Do include the keyboard
Richard M. Stallman <rms@gnu.org>
parents: 3915
diff changeset
2443
d0c23febc08c (wait_reading_process_input): Do include the keyboard
Richard M. Stallman <rms@gnu.org>
parents: 3915
diff changeset
2444 READ_KBD is a lisp value:
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2445 0 to ignore keyboard input, or
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2446 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
2447 -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
2448 the quit handler, or
6569
9cde1228e2fa Fix typos in comments.
Karl Heuer <kwzh@gnu.org>
parents: 6515
diff changeset
2449 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
2450 (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
2451 a process object, meaning wait until something arrives from that
39f0e62a8511 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 648
diff changeset
2452 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
2453 that process.
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2454
3953
d0c23febc08c (wait_reading_process_input): Do include the keyboard
Richard M. Stallman <rms@gnu.org>
parents: 3915
diff changeset
2455 DO_DISPLAY != 0 means redisplay should be done to show subprocess
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2456 output that arrives.
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2457
3953
d0c23febc08c (wait_reading_process_input): Do include the keyboard
Richard M. Stallman <rms@gnu.org>
parents: 3915
diff changeset
2458 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
2459 function returns true iff we received input from that process
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2460 before the timeout elapsed.
3591
507f64624555 Apply typo patches from Paul Eggert.
Jim Blandy <jimb@redhat.com>
parents: 3510
diff changeset
2461 Otherwise, return true iff we received input from any process. */
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2462
21514
fa9ff387d260 Fix -Wimplicit warnings.
Andreas Schwab <schwab@suse.de>
parents: 21414
diff changeset
2463 int
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2464 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
2465 int time_limit, microsecs;
39f0e62a8511 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 648
diff changeset
2466 Lisp_Object read_kbd;
39f0e62a8511 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 648
diff changeset
2467 int do_display;
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2468 {
25770
3a44b5298cd5 (list_processes_1): Remove unused variables.
Gerd Moellmann <gerd@gnu.org>
parents: 25760
diff changeset
2469 register int channel, nfds;
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2470 static SELECT_TYPE Available;
43598
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
2471 static SELECT_TYPE Connecting;
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
2472 int check_connect, no_avail;
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2473 int xerrno;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2474 Lisp_Object proc;
25770
3a44b5298cd5 (list_processes_1): Remove unused variables.
Gerd Moellmann <gerd@gnu.org>
parents: 25760
diff changeset
2475 EMACS_TIME timeout, end_time;
5134
0a4e46e15304 (wait_reading_process_input):
Richard M. Stallman <rms@gnu.org>
parents: 4998
diff changeset
2476 int wait_channel = -1;
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2477 struct Lisp_Process *wait_proc = 0;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2478 int got_some_input = 0;
39973
579177964efa Avoid (most) uses of XCAR/XCDR as lvalues, for flexibility in experimenting
Ken Raeburn <raeburn@raeburn.org>
parents: 39964
diff changeset
2479 /* Either nil or a cons cell, the car of which is of interest and
579177964efa Avoid (most) uses of XCAR/XCDR as lvalues, for flexibility in experimenting
Ken Raeburn <raeburn@raeburn.org>
parents: 39964
diff changeset
2480 may be changed outside of this routine. */
579177964efa Avoid (most) uses of XCAR/XCDR as lvalues, for flexibility in experimenting
Ken Raeburn <raeburn@raeburn.org>
parents: 39964
diff changeset
2481 Lisp_Object wait_for_cell = Qnil;
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2482
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2483 FD_ZERO (&Available);
43598
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
2484 FD_ZERO (&Connecting);
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2485
650
39f0e62a8511 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 648
diff changeset
2486 /* 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
2487 accordingly. */
9115
59bc2d010b5f (decode_status, Fprocessp, Fget_process, Fget_buffer_process, Fprocess_status,
Karl Heuer <kwzh@gnu.org>
parents: 9034
diff changeset
2488 if (PROCESSP (read_kbd))
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2489 {
650
39f0e62a8511 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 648
diff changeset
2490 wait_proc = XPROCESS (read_kbd);
5134
0a4e46e15304 (wait_reading_process_input):
Richard M. Stallman <rms@gnu.org>
parents: 4998
diff changeset
2491 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
2492 XSETFASTINT (read_kbd, 0);
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2493 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2494
2200
5e58643bb169 (wait_reading_process_input): New option to wait
Richard M. Stallman <rms@gnu.org>
parents: 2120
diff changeset
2495 /* 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
2496 if (CONSP (read_kbd))
2200
5e58643bb169 (wait_reading_process_input): New option to wait
Richard M. Stallman <rms@gnu.org>
parents: 2120
diff changeset
2497 {
39973
579177964efa Avoid (most) uses of XCAR/XCDR as lvalues, for flexibility in experimenting
Ken Raeburn <raeburn@raeburn.org>
parents: 39964
diff changeset
2498 wait_for_cell = read_kbd;
9318
a14cc1712337 (make_process, list_processes_1, create_process, Faccept_process_output,
Karl Heuer <kwzh@gnu.org>
parents: 9277
diff changeset
2499 XSETFASTINT (read_kbd, 0);
2200
5e58643bb169 (wait_reading_process_input): New option to wait
Richard M. Stallman <rms@gnu.org>
parents: 2120
diff changeset
2500 }
5e58643bb169 (wait_reading_process_input): New option to wait
Richard M. Stallman <rms@gnu.org>
parents: 2120
diff changeset
2501
650
39f0e62a8511 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 648
diff changeset
2502 waiting_for_user_input_p = XINT (read_kbd);
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2503
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2504 /* Since we may need to wait several times,
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2505 compute the absolute time to return at. */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2506 if (time_limit || microsecs)
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2507 {
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2508 EMACS_GET_TIME (end_time);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2509 EMACS_SET_SECS_USECS (timeout, time_limit, microsecs);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2510 EMACS_ADD_TIME (end_time, end_time, timeout);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2511 }
15661
96debed5fb36 (wait_reading_process_input) [hpux]: Workaround for
Karl Heuer <kwzh@gnu.org>
parents: 15406
diff changeset
2512 #ifdef hpux
96debed5fb36 (wait_reading_process_input) [hpux]: Workaround for
Karl Heuer <kwzh@gnu.org>
parents: 15406
diff changeset
2513 /* AlainF 5-Jul-1996
96debed5fb36 (wait_reading_process_input) [hpux]: Workaround for
Karl Heuer <kwzh@gnu.org>
parents: 15406
diff changeset
2514 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
2515 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
2516 in an X window
96debed5fb36 (wait_reading_process_input) [hpux]: Workaround for
Karl Heuer <kwzh@gnu.org>
parents: 15406
diff changeset
2517 Turn off periodic alarms (in case they are in use) */
27430
1aa71680fe50 (toplevel): Include atimer.h.
Gerd Moellmann <gerd@gnu.org>
parents: 27028
diff changeset
2518 turn_on_atimers (0);
15661
96debed5fb36 (wait_reading_process_input) [hpux]: Workaround for
Karl Heuer <kwzh@gnu.org>
parents: 15406
diff changeset
2519 #endif
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2520
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2521 while (1)
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2522 {
14458
2bb4652305c1 (wait_reading_process_input): If select times out,
Richard M. Stallman <rms@gnu.org>
parents: 14405
diff changeset
2523 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
2524
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2525 /* If calling from keyboard input, do not quit
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2526 since we want to return C-g as an input character.
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2527 Otherwise, do pending quit if requested. */
650
39f0e62a8511 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 648
diff changeset
2528 if (XINT (read_kbd) >= 0)
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2529 QUIT;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2530
4639
76f242eb1fa8 Include syswait.h.
Richard M. Stallman <rms@gnu.org>
parents: 4320
diff changeset
2531 /* Exit now if the cell we're waiting for became non-nil. */
39973
579177964efa Avoid (most) uses of XCAR/XCDR as lvalues, for flexibility in experimenting
Ken Raeburn <raeburn@raeburn.org>
parents: 39964
diff changeset
2532 if (! NILP (wait_for_cell) && ! NILP (XCAR (wait_for_cell)))
4639
76f242eb1fa8 Include syswait.h.
Richard M. Stallman <rms@gnu.org>
parents: 4320
diff changeset
2533 break;
76f242eb1fa8 Include syswait.h.
Richard M. Stallman <rms@gnu.org>
parents: 4320
diff changeset
2534
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2535 /* Compute time from now till when time limit is up */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2536 /* Exit if already run out */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2537 if (time_limit == -1)
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2538 {
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2539 /* -1 specified for timeout means
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2540 gobble output available now
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2541 but don't wait at all. */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2542
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2543 EMACS_SET_SECS_USECS (timeout, 0, 0);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2544 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2545 else if (time_limit || microsecs)
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2546 {
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2547 EMACS_GET_TIME (timeout);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2548 EMACS_SUB_TIME (timeout, end_time, timeout);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2549 if (EMACS_TIME_NEG_P (timeout))
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2550 break;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2551 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2552 else
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2553 {
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2554 EMACS_SET_SECS_USECS (timeout, 100000, 0);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2555 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2556
15064
fb0f2804c34a (wait_reading_process_input, both definitions):
Richard M. Stallman <rms@gnu.org>
parents: 15025
diff changeset
2557 /* Normally we run timers here.
fb0f2804c34a (wait_reading_process_input, both definitions):
Richard M. Stallman <rms@gnu.org>
parents: 15025
diff changeset
2558 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
2559 the wait is supposed to be short,
fb0f2804c34a (wait_reading_process_input, both definitions):
Richard M. Stallman <rms@gnu.org>
parents: 15025
diff changeset
2560 and those callers cannot handle running arbitrary Lisp code here. */
39973
579177964efa Avoid (most) uses of XCAR/XCDR as lvalues, for flexibility in experimenting
Ken Raeburn <raeburn@raeburn.org>
parents: 39964
diff changeset
2561 if (NILP (wait_for_cell))
14404
cba05f90ee57 (wait_reading_process_input): Call timer_check
Richard M. Stallman <rms@gnu.org>
parents: 14278
diff changeset
2562 {
14458
2bb4652305c1 (wait_reading_process_input): If select times out,
Richard M. Stallman <rms@gnu.org>
parents: 14405
diff changeset
2563 EMACS_TIME timer_delay;
34660
75866a7ebaec (wait_reading_process_input): Check for pending
Gerd Moellmann <gerd@gnu.org>
parents: 34647
diff changeset
2564
75866a7ebaec (wait_reading_process_input): Check for pending
Gerd Moellmann <gerd@gnu.org>
parents: 34647
diff changeset
2565 do
14890
71c2cf461805 (wait_reading_process_input_1): New (empty) function.
Richard M. Stallman <rms@gnu.org>
parents: 14863
diff changeset
2566 {
34660
75866a7ebaec (wait_reading_process_input): Check for pending
Gerd Moellmann <gerd@gnu.org>
parents: 34647
diff changeset
2567 int old_timers_run = timers_run;
37465
f790d83ea743 (wait_reading_process_input): Call
Gerd Moellmann <gerd@gnu.org>
parents: 37413
diff changeset
2568 struct buffer *old_buffer = current_buffer;
37398
756d2f4e4058 (wait_reading_process_input): Call
Gerd Moellmann <gerd@gnu.org>
parents: 36659
diff changeset
2569
34660
75866a7ebaec (wait_reading_process_input): Check for pending
Gerd Moellmann <gerd@gnu.org>
parents: 34647
diff changeset
2570 timer_delay = timer_check (1);
37398
756d2f4e4058 (wait_reading_process_input): Call
Gerd Moellmann <gerd@gnu.org>
parents: 36659
diff changeset
2571
756d2f4e4058 (wait_reading_process_input): Call
Gerd Moellmann <gerd@gnu.org>
parents: 36659
diff changeset
2572 /* If a timer has run, this might have changed buffers
756d2f4e4058 (wait_reading_process_input): Call
Gerd Moellmann <gerd@gnu.org>
parents: 36659
diff changeset
2573 an alike. Make read_key_sequence aware of that. */
756d2f4e4058 (wait_reading_process_input): Call
Gerd Moellmann <gerd@gnu.org>
parents: 36659
diff changeset
2574 if (timers_run != old_timers_run
37465
f790d83ea743 (wait_reading_process_input): Call
Gerd Moellmann <gerd@gnu.org>
parents: 37413
diff changeset
2575 && old_buffer != current_buffer
37398
756d2f4e4058 (wait_reading_process_input): Call
Gerd Moellmann <gerd@gnu.org>
parents: 36659
diff changeset
2576 && waiting_for_user_input_p == -1)
756d2f4e4058 (wait_reading_process_input): Call
Gerd Moellmann <gerd@gnu.org>
parents: 36659
diff changeset
2577 record_asynch_buffer_change ();
756d2f4e4058 (wait_reading_process_input): Call
Gerd Moellmann <gerd@gnu.org>
parents: 36659
diff changeset
2578
34660
75866a7ebaec (wait_reading_process_input): Check for pending
Gerd Moellmann <gerd@gnu.org>
parents: 34647
diff changeset
2579 if (timers_run != old_timers_run && do_display)
75866a7ebaec (wait_reading_process_input): Check for pending
Gerd Moellmann <gerd@gnu.org>
parents: 34647
diff changeset
2580 /* We must retry, since a timer may have requeued itself
75866a7ebaec (wait_reading_process_input): Check for pending
Gerd Moellmann <gerd@gnu.org>
parents: 34647
diff changeset
2581 and that could alter the time_delay. */
35336
002c02db42d3 Call redisplay_preserve_echo_area with additional arg.
Gerd Moellmann <gerd@gnu.org>
parents: 34660
diff changeset
2582 redisplay_preserve_echo_area (9);
34660
75866a7ebaec (wait_reading_process_input): Check for pending
Gerd Moellmann <gerd@gnu.org>
parents: 34647
diff changeset
2583 else
75866a7ebaec (wait_reading_process_input): Check for pending
Gerd Moellmann <gerd@gnu.org>
parents: 34647
diff changeset
2584 break;
14890
71c2cf461805 (wait_reading_process_input_1): New (empty) function.
Richard M. Stallman <rms@gnu.org>
parents: 14863
diff changeset
2585 }
34660
75866a7ebaec (wait_reading_process_input): Check for pending
Gerd Moellmann <gerd@gnu.org>
parents: 34647
diff changeset
2586 while (!detect_input_pending ());
14890
71c2cf461805 (wait_reading_process_input_1): New (empty) function.
Richard M. Stallman <rms@gnu.org>
parents: 14863
diff changeset
2587
18230
2f1f942f25ca (wait_reading_process_input): Return if unread events appear.
Richard M. Stallman <rms@gnu.org>
parents: 18183
diff changeset
2588 /* If there is unread keyboard input, also return. */
2f1f942f25ca (wait_reading_process_input): Return if unread events appear.
Richard M. Stallman <rms@gnu.org>
parents: 18183
diff changeset
2589 if (XINT (read_kbd) != 0
2f1f942f25ca (wait_reading_process_input): Return if unread events appear.
Richard M. Stallman <rms@gnu.org>
parents: 18183
diff changeset
2590 && requeued_events_pending_p ())
2f1f942f25ca (wait_reading_process_input): Return if unread events appear.
Richard M. Stallman <rms@gnu.org>
parents: 18183
diff changeset
2591 break;
2f1f942f25ca (wait_reading_process_input): Return if unread events appear.
Richard M. Stallman <rms@gnu.org>
parents: 18183
diff changeset
2592
14458
2bb4652305c1 (wait_reading_process_input): If select times out,
Richard M. Stallman <rms@gnu.org>
parents: 14405
diff changeset
2593 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
2594 {
cba05f90ee57 (wait_reading_process_input): Call timer_check
Richard M. Stallman <rms@gnu.org>
parents: 14278
diff changeset
2595 EMACS_TIME difference;
cba05f90ee57 (wait_reading_process_input): Call timer_check
Richard M. Stallman <rms@gnu.org>
parents: 14278
diff changeset
2596 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
2597 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
2598 {
2bb4652305c1 (wait_reading_process_input): If select times out,
Richard M. Stallman <rms@gnu.org>
parents: 14405
diff changeset
2599 timeout = timer_delay;
2bb4652305c1 (wait_reading_process_input): If select times out,
Richard M. Stallman <rms@gnu.org>
parents: 14405
diff changeset
2600 timeout_reduced_for_timers = 1;
2bb4652305c1 (wait_reading_process_input): If select times out,
Richard M. Stallman <rms@gnu.org>
parents: 14405
diff changeset
2601 }
14404
cba05f90ee57 (wait_reading_process_input): Call timer_check
Richard M. Stallman <rms@gnu.org>
parents: 14278
diff changeset
2602 }
14935
3e0dc64a5cb8 (wait_reading_process_input): Don't call
Richard M. Stallman <rms@gnu.org>
parents: 14890
diff changeset
2603 /* 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
2604 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
2605 {
71c2cf461805 (wait_reading_process_input_1): New (empty) function.
Richard M. Stallman <rms@gnu.org>
parents: 14863
diff changeset
2606 /* 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
2607 wait_reading_process_input_1 ();
71c2cf461805 (wait_reading_process_input_1): New (empty) function.
Richard M. Stallman <rms@gnu.org>
parents: 14863
diff changeset
2608 }
14404
cba05f90ee57 (wait_reading_process_input): Call timer_check
Richard M. Stallman <rms@gnu.org>
parents: 14278
diff changeset
2609 }
cba05f90ee57 (wait_reading_process_input): Call timer_check
Richard M. Stallman <rms@gnu.org>
parents: 14278
diff changeset
2610
2894
646c5beae647 * process.c (wait_reading_process_input): Undo change of April
Jim Blandy <jimb@redhat.com>
parents: 2893
diff changeset
2611 /* 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
2612 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
2613
646c5beae647 * process.c (wait_reading_process_input): Undo change of April
Jim Blandy <jimb@redhat.com>
parents: 2893
diff changeset
2614 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
2615 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
2616 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
2617 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
2618 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
2619
1925
3ddb163a9201 * process.c: Make sure we don't miss processes exiting, by having
Jim Blandy <jimb@redhat.com>
parents: 1886
diff changeset
2620 /* 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
2621 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
2622 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
2623 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
2624 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
2625 {
43598
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
2626 SELECT_TYPE Atemp, Ctemp;
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
2627
1925
3ddb163a9201 * process.c: Make sure we don't miss processes exiting, by having
Jim Blandy <jimb@redhat.com>
parents: 1886
diff changeset
2628 Atemp = input_wait_mask;
43598
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
2629 Ctemp = connect_wait_mask;
1925
3ddb163a9201 * process.c: Make sure we don't miss processes exiting, by having
Jim Blandy <jimb@redhat.com>
parents: 1886
diff changeset
2630 EMACS_SET_SECS_USECS (timeout, 0, 0);
18492
668304de6f92 (wait_reading_process_input): If wait_for_cell,
Richard M. Stallman <rms@gnu.org>
parents: 18378
diff changeset
2631 if ((select (max (max_process_desc, max_keyboard_desc) + 1,
43598
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
2632 &Atemp,
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
2633 (num_pending_connects > 0 ? &Ctemp : (SELECT_TYPE *)0),
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
2634 (SELECT_TYPE *)0, &timeout)
11926
40d7e6f04ebe (create_process, send_process): Add volatile qualifiers.
Karl Heuer <kwzh@gnu.org>
parents: 11845
diff changeset
2635 <= 0))
2894
646c5beae647 * process.c (wait_reading_process_input): Undo change of April
Jim Blandy <jimb@redhat.com>
parents: 2893
diff changeset
2636 {
646c5beae647 * process.c (wait_reading_process_input): Undo change of April
Jim Blandy <jimb@redhat.com>
parents: 2893
diff changeset
2637 /* 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
2638 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
2639 clear_waiting_for_input ();
646c5beae647 * process.c (wait_reading_process_input): Undo change of April
Jim Blandy <jimb@redhat.com>
parents: 2893
diff changeset
2640 status_notify ();
646c5beae647 * process.c (wait_reading_process_input): Undo change of April
Jim Blandy <jimb@redhat.com>
parents: 2893
diff changeset
2641 }
1925
3ddb163a9201 * process.c: Make sure we don't miss processes exiting, by having
Jim Blandy <jimb@redhat.com>
parents: 1886
diff changeset
2642 }
3ddb163a9201 * process.c: Make sure we don't miss processes exiting, by having
Jim Blandy <jimb@redhat.com>
parents: 1886
diff changeset
2643
43598
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
2644 /* Don't wait for output from a non-running process. Just
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
2645 read whatever data has already been received. */
1925
3ddb163a9201 * process.c: Make sure we don't miss processes exiting, by having
Jim Blandy <jimb@redhat.com>
parents: 1886
diff changeset
2646 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
2647 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
2648 if (wait_proc != 0
43598
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
2649 && ! EQ (wait_proc->status, Qrun)
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
2650 && ! EQ (wait_proc->status, Qconnect))
2893
4df57953d5d0 * process.c (wait_reading_process_input): Don't forget to call
Jim Blandy <jimb@redhat.com>
parents: 2887
diff changeset
2651 {
18946
84b78d90cd45 (wait_reading_process_input): Initialize total_read.
Richard M. Stallman <rms@gnu.org>
parents: 18739
diff changeset
2652 int nread, total_nread = 0;
18267
29c37882ee1f (wait_reading_process_input): When exiting because
Richard M. Stallman <rms@gnu.org>
parents: 18230
diff changeset
2653
2893
4df57953d5d0 * process.c (wait_reading_process_input): Don't forget to call
Jim Blandy <jimb@redhat.com>
parents: 2887
diff changeset
2654 clear_waiting_for_input ();
18267
29c37882ee1f (wait_reading_process_input): When exiting because
Richard M. Stallman <rms@gnu.org>
parents: 18230
diff changeset
2655 XSETPROCESS (proc, wait_proc);
29c37882ee1f (wait_reading_process_input): When exiting because
Richard M. Stallman <rms@gnu.org>
parents: 18230
diff changeset
2656
29c37882ee1f (wait_reading_process_input): When exiting because
Richard M. Stallman <rms@gnu.org>
parents: 18230
diff changeset
2657 /* Read data from the process, until we exhaust it. */
25894
8bd3e6fbf42f (wait_reading_process_input): When trying to suck
Gerd Moellmann <gerd@gnu.org>
parents: 25770
diff changeset
2658 while (XINT (wait_proc->infd) >= 0)
18946
84b78d90cd45 (wait_reading_process_input): Initialize total_read.
Richard M. Stallman <rms@gnu.org>
parents: 18739
diff changeset
2659 {
25894
8bd3e6fbf42f (wait_reading_process_input): When trying to suck
Gerd Moellmann <gerd@gnu.org>
parents: 25770
diff changeset
2660 nread = read_process_output (proc, XINT (wait_proc->infd));
8bd3e6fbf42f (wait_reading_process_input): When trying to suck
Gerd Moellmann <gerd@gnu.org>
parents: 25770
diff changeset
2661
8bd3e6fbf42f (wait_reading_process_input): When trying to suck
Gerd Moellmann <gerd@gnu.org>
parents: 25770
diff changeset
2662 if (nread == 0)
8bd3e6fbf42f (wait_reading_process_input): When trying to suck
Gerd Moellmann <gerd@gnu.org>
parents: 25770
diff changeset
2663 break;
8bd3e6fbf42f (wait_reading_process_input): When trying to suck
Gerd Moellmann <gerd@gnu.org>
parents: 25770
diff changeset
2664
18946
84b78d90cd45 (wait_reading_process_input): Initialize total_read.
Richard M. Stallman <rms@gnu.org>
parents: 18739
diff changeset
2665 if (0 < nread)
84b78d90cd45 (wait_reading_process_input): Initialize total_read.
Richard M. Stallman <rms@gnu.org>
parents: 18739
diff changeset
2666 total_nread += nread;
84b78d90cd45 (wait_reading_process_input): Initialize total_read.
Richard M. Stallman <rms@gnu.org>
parents: 18739
diff changeset
2667 #ifdef EIO
84b78d90cd45 (wait_reading_process_input): Initialize total_read.
Richard M. Stallman <rms@gnu.org>
parents: 18739
diff changeset
2668 else if (nread == -1 && EIO == errno)
84b78d90cd45 (wait_reading_process_input): Initialize total_read.
Richard M. Stallman <rms@gnu.org>
parents: 18739
diff changeset
2669 break;
84b78d90cd45 (wait_reading_process_input): Initialize total_read.
Richard M. Stallman <rms@gnu.org>
parents: 18739
diff changeset
2670 #endif
25894
8bd3e6fbf42f (wait_reading_process_input): When trying to suck
Gerd Moellmann <gerd@gnu.org>
parents: 25770
diff changeset
2671 #ifdef EAGAIN
8bd3e6fbf42f (wait_reading_process_input): When trying to suck
Gerd Moellmann <gerd@gnu.org>
parents: 25770
diff changeset
2672 else if (nread == -1 && EAGAIN == errno)
8bd3e6fbf42f (wait_reading_process_input): When trying to suck
Gerd Moellmann <gerd@gnu.org>
parents: 25770
diff changeset
2673 break;
8bd3e6fbf42f (wait_reading_process_input): When trying to suck
Gerd Moellmann <gerd@gnu.org>
parents: 25770
diff changeset
2674 #endif
8bd3e6fbf42f (wait_reading_process_input): When trying to suck
Gerd Moellmann <gerd@gnu.org>
parents: 25770
diff changeset
2675 #ifdef EWOULDBLOCK
8bd3e6fbf42f (wait_reading_process_input): When trying to suck
Gerd Moellmann <gerd@gnu.org>
parents: 25770
diff changeset
2676 else if (nread == -1 && EWOULDBLOCK == errno)
8bd3e6fbf42f (wait_reading_process_input): When trying to suck
Gerd Moellmann <gerd@gnu.org>
parents: 25770
diff changeset
2677 break;
8bd3e6fbf42f (wait_reading_process_input): When trying to suck
Gerd Moellmann <gerd@gnu.org>
parents: 25770
diff changeset
2678 #endif
18946
84b78d90cd45 (wait_reading_process_input): Initialize total_read.
Richard M. Stallman <rms@gnu.org>
parents: 18739
diff changeset
2679 }
18267
29c37882ee1f (wait_reading_process_input): When exiting because
Richard M. Stallman <rms@gnu.org>
parents: 18230
diff changeset
2680 if (total_nread > 0 && do_display)
35336
002c02db42d3 Call redisplay_preserve_echo_area with additional arg.
Gerd Moellmann <gerd@gnu.org>
parents: 34660
diff changeset
2681 redisplay_preserve_echo_area (10);
18267
29c37882ee1f (wait_reading_process_input): When exiting because
Richard M. Stallman <rms@gnu.org>
parents: 18230
diff changeset
2682
2893
4df57953d5d0 * process.c (wait_reading_process_input): Don't forget to call
Jim Blandy <jimb@redhat.com>
parents: 2887
diff changeset
2683 break;
4df57953d5d0 * process.c (wait_reading_process_input): Don't forget to call
Jim Blandy <jimb@redhat.com>
parents: 2887
diff changeset
2684 }
1925
3ddb163a9201 * process.c: Make sure we don't miss processes exiting, by having
Jim Blandy <jimb@redhat.com>
parents: 1886
diff changeset
2685
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2686 /* Wait till there is something to do */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2687
39973
579177964efa Avoid (most) uses of XCAR/XCDR as lvalues, for flexibility in experimenting
Ken Raeburn <raeburn@raeburn.org>
parents: 39964
diff changeset
2688 if (!NILP (wait_for_cell))
43598
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
2689 {
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
2690 Available = non_process_wait_mask;
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
2691 check_connect = 0;
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
2692 }
9686
cd788aa8cb2a Handle multiple keyboard input descriptors.
Richard M. Stallman <rms@gnu.org>
parents: 9334
diff changeset
2693 else
43598
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
2694 {
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
2695 if (! XINT (read_kbd))
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
2696 Available = non_keyboard_wait_mask;
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
2697 else
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
2698 Available = input_wait_mask;
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
2699 check_connect = (num_pending_connects > 0);
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
2700 }
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2701
765
e4093444f9f8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 692
diff changeset
2702 /* 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
2703 redisplay now, before we start to wait. There is a race
70b112526394 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 638
diff changeset
2704 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
2705 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
2706 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
2707 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
2708 {
affed1766d34 (wait_reading_process_input): Don't call prepare_menu_bars.
Richard M. Stallman <rms@gnu.org>
parents: 11695
diff changeset
2709 clear_waiting_for_input ();
35336
002c02db42d3 Call redisplay_preserve_echo_area with additional arg.
Gerd Moellmann <gerd@gnu.org>
parents: 34660
diff changeset
2710 redisplay_preserve_echo_area (11);
11728
affed1766d34 (wait_reading_process_input): Don't call prepare_menu_bars.
Richard M. Stallman <rms@gnu.org>
parents: 11695
diff changeset
2711 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
2712 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
2713 }
648
70b112526394 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 638
diff changeset
2714
43598
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
2715 no_avail = 0;
15021
af36df262fc5 (wait_reading_process_input) [!subprocesses]: Handle
Richard M. Stallman <rms@gnu.org>
parents: 14998
diff changeset
2716 if (XINT (read_kbd) && detect_input_pending ())
af36df262fc5 (wait_reading_process_input) [!subprocesses]: Handle
Richard M. Stallman <rms@gnu.org>
parents: 14998
diff changeset
2717 {
af36df262fc5 (wait_reading_process_input) [!subprocesses]: Handle
Richard M. Stallman <rms@gnu.org>
parents: 14998
diff changeset
2718 nfds = 0;
43598
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
2719 no_avail = 1;
15021
af36df262fc5 (wait_reading_process_input) [!subprocesses]: Handle
Richard M. Stallman <rms@gnu.org>
parents: 14998
diff changeset
2720 }
af36df262fc5 (wait_reading_process_input) [!subprocesses]: Handle
Richard M. Stallman <rms@gnu.org>
parents: 14998
diff changeset
2721 else
43598
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
2722 {
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
2723 if (check_connect)
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
2724 Connecting = connect_wait_mask;
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
2725 nfds = select (max (max_process_desc, max_keyboard_desc) + 1,
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
2726 &Available,
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
2727 (check_connect ? &Connecting : (SELECT_TYPE *)0),
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
2728 (SELECT_TYPE *)0, &timeout);
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
2729 }
588
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
2730
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2731 xerrno = errno;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2732
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2733 /* Make C-g and alarm signals set flags again */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2734 clear_waiting_for_input ();
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2735
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2736 /* If we woke up due to SIGWINCH, actually change size now. */
25356
5db69f7aadca Call change_frame_size and do_pending_window_change with
Gerd Moellmann <gerd@gnu.org>
parents: 25262
diff changeset
2737 do_pending_window_change (0);
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2738
14458
2bb4652305c1 (wait_reading_process_input): If select times out,
Richard M. Stallman <rms@gnu.org>
parents: 14405
diff changeset
2739 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
2740 /* We wanted the full specified time, so return now. */
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2741 break;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2742 if (nfds < 0)
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2743 {
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2744 if (xerrno == EINTR)
43598
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
2745 no_avail = 1;
1594
b476a97ad17e * systty.h, process.c, buffer.h, callproc.c, sysdep.c, dired.c:
Jim Blandy <jimb@redhat.com>
parents: 1569
diff changeset
2746 #ifdef ultrix
b476a97ad17e * systty.h, process.c, buffer.h, callproc.c, sysdep.c, dired.c:
Jim Blandy <jimb@redhat.com>
parents: 1569
diff changeset
2747 /* 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
2748 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
2749 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
2750 "__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
2751 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
2752 else if (xerrno == ENOMEM)
43598
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
2753 no_avail = 1;
1323
25b5b55a3916 * process.c (wait_reading_process_input): If the select returns
Jim Blandy <jimb@redhat.com>
parents: 1207
diff changeset
2754 #endif
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2755 #ifdef ALLIANT
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2756 /* This happens for no known reason on ALLIANT.
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2757 I am guessing that this is the right response. -- RMS. */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2758 else if (xerrno == EFAULT)
43598
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
2759 no_avail = 1;
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2760 #endif
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2761 else if (xerrno == EBADF)
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2762 {
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2763 #ifdef AIX
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2764 /* AIX doesn't handle PTY closure the same way BSD does. On AIX,
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2765 the child's closure of the pts gives the parent a SIGHUP, and
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2766 the ptc file descriptor is automatically closed,
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2767 yielding EBADF here or at select() call above.
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2768 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
2769 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
2770 Cleanup occurs c/o status_notify after SIGCLD. */
43598
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
2771 no_avail = 1; /* Cannot depend on values returned */
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2772 #else
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2773 abort ();
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2774 #endif
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2775 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2776 else
26088
b7aa6ac26872 Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
parents: 26019
diff changeset
2777 error ("select error: %s", emacs_strerror (xerrno));
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2778 }
43598
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
2779
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
2780 if (no_avail)
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
2781 {
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
2782 FD_ZERO (&Available);
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
2783 check_connect = 0;
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
2784 }
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
2785
2815
60f122cfe785 * process.c (wait_reading_process_input): If we're running
Jim Blandy <jimb@redhat.com>
parents: 2610
diff changeset
2786 #if defined(sun) && !defined(USG5_4)
43598
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
2787 if (nfds > 0 && keyboard_bit_set (&Available)
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
2788 && interrupt_input)
2830
006c7fbdeab7 Document sun change.
Jim Blandy <jimb@redhat.com>
parents: 2815
diff changeset
2789 /* System sometimes fails to deliver SIGIO.
006c7fbdeab7 Document sun change.
Jim Blandy <jimb@redhat.com>
parents: 2815
diff changeset
2790
006c7fbdeab7 Document sun change.
Jim Blandy <jimb@redhat.com>
parents: 2815
diff changeset
2791 David J. Mackenzie says that Emacs doesn't compile under
006c7fbdeab7 Document sun change.
Jim Blandy <jimb@redhat.com>
parents: 2815
diff changeset
2792 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
2793 conditional. "I haven't noticed any ill effects so far.
006c7fbdeab7 Document sun change.
Jim Blandy <jimb@redhat.com>
parents: 2815
diff changeset
2794 If you find a Solaris expert somewhere, they might know
006c7fbdeab7 Document sun change.
Jim Blandy <jimb@redhat.com>
parents: 2815
diff changeset
2795 better." */
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2796 kill (getpid (), SIGIO);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2797 #endif
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2798
18378
22cd8d7dd5aa (wait_reading_process_input): Don't check for
Richard M. Stallman <rms@gnu.org>
parents: 18329
diff changeset
2799 #if 0 /* When polling is used, interrupt_input is 0,
22cd8d7dd5aa (wait_reading_process_input): Don't check for
Richard M. Stallman <rms@gnu.org>
parents: 18329
diff changeset
2800 so get_input_pending should read the input.
22cd8d7dd5aa (wait_reading_process_input): Don't check for
Richard M. Stallman <rms@gnu.org>
parents: 18329
diff changeset
2801 So this should not be needed. */
22cd8d7dd5aa (wait_reading_process_input): Don't check for
Richard M. Stallman <rms@gnu.org>
parents: 18329
diff changeset
2802 /* If we are using polling for input,
22cd8d7dd5aa (wait_reading_process_input): Don't check for
Richard M. Stallman <rms@gnu.org>
parents: 18329
diff changeset
2803 and we see input available, make it get read now.
22cd8d7dd5aa (wait_reading_process_input): Don't check for
Richard M. Stallman <rms@gnu.org>
parents: 18329
diff changeset
2804 Otherwise it might not actually get read for a second.
22cd8d7dd5aa (wait_reading_process_input): Don't check for
Richard M. Stallman <rms@gnu.org>
parents: 18329
diff changeset
2805 And on hpux, since we turn off polling in wait_reading_process_input,
22cd8d7dd5aa (wait_reading_process_input): Don't check for
Richard M. Stallman <rms@gnu.org>
parents: 18329
diff changeset
2806 it might never get read at all if we don't spend much time
22cd8d7dd5aa (wait_reading_process_input): Don't check for
Richard M. Stallman <rms@gnu.org>
parents: 18329
diff changeset
2807 outside of wait_reading_process_input. */
22cd8d7dd5aa (wait_reading_process_input): Don't check for
Richard M. Stallman <rms@gnu.org>
parents: 18329
diff changeset
2808 if (XINT (read_kbd) && interrupt_input
22cd8d7dd5aa (wait_reading_process_input): Don't check for
Richard M. Stallman <rms@gnu.org>
parents: 18329
diff changeset
2809 && keyboard_bit_set (&Available)
22cd8d7dd5aa (wait_reading_process_input): Don't check for
Richard M. Stallman <rms@gnu.org>
parents: 18329
diff changeset
2810 && input_polling_used ())
22cd8d7dd5aa (wait_reading_process_input): Don't check for
Richard M. Stallman <rms@gnu.org>
parents: 18329
diff changeset
2811 kill (getpid (), SIGALRM);
22cd8d7dd5aa (wait_reading_process_input): Don't check for
Richard M. Stallman <rms@gnu.org>
parents: 18329
diff changeset
2812 #endif
22cd8d7dd5aa (wait_reading_process_input): Don't check for
Richard M. Stallman <rms@gnu.org>
parents: 18329
diff changeset
2813
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2814 /* Check for keyboard input */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2815 /* If there is any, return immediately
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2816 to give it higher priority than subprocesses */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2817
37398
756d2f4e4058 (wait_reading_process_input): Call
Gerd Moellmann <gerd@gnu.org>
parents: 36659
diff changeset
2818 if (XINT (read_kbd) != 0)
14613
386831bc4a4e (wait_reading_process_input):
Karl Heuer <kwzh@gnu.org>
parents: 14605
diff changeset
2819 {
37398
756d2f4e4058 (wait_reading_process_input): Call
Gerd Moellmann <gerd@gnu.org>
parents: 36659
diff changeset
2820 int old_timers_run = timers_run;
37465
f790d83ea743 (wait_reading_process_input): Call
Gerd Moellmann <gerd@gnu.org>
parents: 37413
diff changeset
2821 struct buffer *old_buffer = current_buffer;
37398
756d2f4e4058 (wait_reading_process_input): Call
Gerd Moellmann <gerd@gnu.org>
parents: 36659
diff changeset
2822 int leave = 0;
756d2f4e4058 (wait_reading_process_input): Call
Gerd Moellmann <gerd@gnu.org>
parents: 36659
diff changeset
2823
14758
849458c13c0c (wait_reading_process_input):
Richard M. Stallman <rms@gnu.org>
parents: 14736
diff changeset
2824 if (detect_input_pending_run_timers (do_display))
37398
756d2f4e4058 (wait_reading_process_input): Call
Gerd Moellmann <gerd@gnu.org>
parents: 36659
diff changeset
2825 {
756d2f4e4058 (wait_reading_process_input): Call
Gerd Moellmann <gerd@gnu.org>
parents: 36659
diff changeset
2826 swallow_events (do_display);
756d2f4e4058 (wait_reading_process_input): Call
Gerd Moellmann <gerd@gnu.org>
parents: 36659
diff changeset
2827 if (detect_input_pending_run_timers (do_display))
756d2f4e4058 (wait_reading_process_input): Call
Gerd Moellmann <gerd@gnu.org>
parents: 36659
diff changeset
2828 leave = 1;
756d2f4e4058 (wait_reading_process_input): Call
Gerd Moellmann <gerd@gnu.org>
parents: 36659
diff changeset
2829 }
756d2f4e4058 (wait_reading_process_input): Call
Gerd Moellmann <gerd@gnu.org>
parents: 36659
diff changeset
2830
756d2f4e4058 (wait_reading_process_input): Call
Gerd Moellmann <gerd@gnu.org>
parents: 36659
diff changeset
2831 /* If a timer has run, this might have changed buffers
756d2f4e4058 (wait_reading_process_input): Call
Gerd Moellmann <gerd@gnu.org>
parents: 36659
diff changeset
2832 an alike. Make read_key_sequence aware of that. */
756d2f4e4058 (wait_reading_process_input): Call
Gerd Moellmann <gerd@gnu.org>
parents: 36659
diff changeset
2833 if (timers_run != old_timers_run
37465
f790d83ea743 (wait_reading_process_input): Call
Gerd Moellmann <gerd@gnu.org>
parents: 37413
diff changeset
2834 && waiting_for_user_input_p == -1
f790d83ea743 (wait_reading_process_input): Call
Gerd Moellmann <gerd@gnu.org>
parents: 37413
diff changeset
2835 && old_buffer != current_buffer)
37398
756d2f4e4058 (wait_reading_process_input): Call
Gerd Moellmann <gerd@gnu.org>
parents: 36659
diff changeset
2836 record_asynch_buffer_change ();
756d2f4e4058 (wait_reading_process_input): Call
Gerd Moellmann <gerd@gnu.org>
parents: 36659
diff changeset
2837
756d2f4e4058 (wait_reading_process_input): Call
Gerd Moellmann <gerd@gnu.org>
parents: 36659
diff changeset
2838 if (leave)
14613
386831bc4a4e (wait_reading_process_input):
Karl Heuer <kwzh@gnu.org>
parents: 14605
diff changeset
2839 break;
37398
756d2f4e4058 (wait_reading_process_input): Call
Gerd Moellmann <gerd@gnu.org>
parents: 36659
diff changeset
2840 }
756d2f4e4058 (wait_reading_process_input): Call
Gerd Moellmann <gerd@gnu.org>
parents: 36659
diff changeset
2841
18230
2f1f942f25ca (wait_reading_process_input): Return if unread events appear.
Richard M. Stallman <rms@gnu.org>
parents: 18183
diff changeset
2842 /* If there is unread keyboard input, also return. */
2f1f942f25ca (wait_reading_process_input): Return if unread events appear.
Richard M. Stallman <rms@gnu.org>
parents: 18183
diff changeset
2843 if (XINT (read_kbd) != 0
2f1f942f25ca (wait_reading_process_input): Return if unread events appear.
Richard M. Stallman <rms@gnu.org>
parents: 18183
diff changeset
2844 && requeued_events_pending_p ())
2f1f942f25ca (wait_reading_process_input): Return if unread events appear.
Richard M. Stallman <rms@gnu.org>
parents: 18183
diff changeset
2845 break;
2f1f942f25ca (wait_reading_process_input): Return if unread events appear.
Richard M. Stallman <rms@gnu.org>
parents: 18183
diff changeset
2846
19053
7b5642657857 (read_process_output): Don't call setup_coding_system
Richard M. Stallman <rms@gnu.org>
parents: 18974
diff changeset
2847 /* If we are not checking for keyboard input now,
7b5642657857 (read_process_output): Don't call setup_coding_system
Richard M. Stallman <rms@gnu.org>
parents: 18974
diff changeset
2848 do process events (but don't run any timers).
7b5642657857 (read_process_output): Don't call setup_coding_system
Richard M. Stallman <rms@gnu.org>
parents: 18974
diff changeset
2849 This is so that X events will be processed.
18492
668304de6f92 (wait_reading_process_input): If wait_for_cell,
Richard M. Stallman <rms@gnu.org>
parents: 18378
diff changeset
2850 Otherwise they may have to wait until polling takes place.
19053
7b5642657857 (read_process_output): Don't call setup_coding_system
Richard M. Stallman <rms@gnu.org>
parents: 18974
diff changeset
2851 That would causes delays in pasting selections, for example.
7b5642657857 (read_process_output): Don't call setup_coding_system
Richard M. Stallman <rms@gnu.org>
parents: 18974
diff changeset
2852
7b5642657857 (read_process_output): Don't call setup_coding_system
Richard M. Stallman <rms@gnu.org>
parents: 18974
diff changeset
2853 (We used to do this only if wait_for_cell.) */
7b5642657857 (read_process_output): Don't call setup_coding_system
Richard M. Stallman <rms@gnu.org>
parents: 18974
diff changeset
2854 if (XINT (read_kbd) == 0 && detect_input_pending ())
15064
fb0f2804c34a (wait_reading_process_input, both definitions):
Richard M. Stallman <rms@gnu.org>
parents: 15025
diff changeset
2855 {
fb0f2804c34a (wait_reading_process_input, both definitions):
Richard M. Stallman <rms@gnu.org>
parents: 15025
diff changeset
2856 swallow_events (do_display);
18492
668304de6f92 (wait_reading_process_input): If wait_for_cell,
Richard M. Stallman <rms@gnu.org>
parents: 18378
diff changeset
2857 #if 0 /* Exiting when read_kbd doesn't request that seems wrong, though. */
15064
fb0f2804c34a (wait_reading_process_input, both definitions):
Richard M. Stallman <rms@gnu.org>
parents: 15025
diff changeset
2858 if (detect_input_pending ())
fb0f2804c34a (wait_reading_process_input, both definitions):
Richard M. Stallman <rms@gnu.org>
parents: 15025
diff changeset
2859 break;
18492
668304de6f92 (wait_reading_process_input): If wait_for_cell,
Richard M. Stallman <rms@gnu.org>
parents: 18378
diff changeset
2860 #endif
15064
fb0f2804c34a (wait_reading_process_input, both definitions):
Richard M. Stallman <rms@gnu.org>
parents: 15025
diff changeset
2861 }
fb0f2804c34a (wait_reading_process_input, both definitions):
Richard M. Stallman <rms@gnu.org>
parents: 15025
diff changeset
2862
2200
5e58643bb169 (wait_reading_process_input): New option to wait
Richard M. Stallman <rms@gnu.org>
parents: 2120
diff changeset
2863 /* Exit now if the cell we're waiting for became non-nil. */
39973
579177964efa Avoid (most) uses of XCAR/XCDR as lvalues, for flexibility in experimenting
Ken Raeburn <raeburn@raeburn.org>
parents: 39964
diff changeset
2864 if (! NILP (wait_for_cell) && ! NILP (XCAR (wait_for_cell)))
2200
5e58643bb169 (wait_reading_process_input): New option to wait
Richard M. Stallman <rms@gnu.org>
parents: 2120
diff changeset
2865 break;
5e58643bb169 (wait_reading_process_input): New option to wait
Richard M. Stallman <rms@gnu.org>
parents: 2120
diff changeset
2866
621
eca8812e61cd *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 604
diff changeset
2867 #ifdef SIGIO
18378
22cd8d7dd5aa (wait_reading_process_input): Don't check for
Richard M. Stallman <rms@gnu.org>
parents: 18329
diff changeset
2868 /* If we think we have keyboard input waiting, but didn't get SIGIO,
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2869 go read it. This can happen with X on BSD after logging out.
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2870 In that case, there really is no input and no SIGIO,
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2871 but select says there is input. */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2872
4682
c4d471244116 (keyboard_descriptor): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 4639
diff changeset
2873 if (XINT (read_kbd) && interrupt_input
18378
22cd8d7dd5aa (wait_reading_process_input): Don't check for
Richard M. Stallman <rms@gnu.org>
parents: 18329
diff changeset
2874 && 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
2875 kill (getpid (), SIGIO);
621
eca8812e61cd *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 604
diff changeset
2876 #endif
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2877
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2878 if (! wait_proc)
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2879 got_some_input |= nfds > 0;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2880
624
2bb7f23b7ea5 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 621
diff changeset
2881 /* 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
2882 obey it now if we should. */
39973
579177964efa Avoid (most) uses of XCAR/XCDR as lvalues, for flexibility in experimenting
Ken Raeburn <raeburn@raeburn.org>
parents: 39964
diff changeset
2883 if (XINT (read_kbd) || ! NILP (wait_for_cell))
25356
5db69f7aadca Call change_frame_size and do_pending_window_change with
Gerd Moellmann <gerd@gnu.org>
parents: 25262
diff changeset
2884 do_pending_window_change (0);
624
2bb7f23b7ea5 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 621
diff changeset
2885
5134
0a4e46e15304 (wait_reading_process_input):
Richard M. Stallman <rms@gnu.org>
parents: 4998
diff changeset
2886 /* Check for data from a process. */
43598
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
2887 if (no_avail || nfds == 0)
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
2888 continue;
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
2889
5134
0a4e46e15304 (wait_reading_process_input):
Richard M. Stallman <rms@gnu.org>
parents: 4998
diff changeset
2890 /* Really FIRST_PROC_DESC should be 0 on Unix,
0a4e46e15304 (wait_reading_process_input):
Richard M. Stallman <rms@gnu.org>
parents: 4998
diff changeset
2891 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
2892 for (channel = 0; channel <= max_process_desc; channel++)
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2893 {
9686
cd788aa8cb2a Handle multiple keyboard input descriptors.
Richard M. Stallman <rms@gnu.org>
parents: 9334
diff changeset
2894 if (FD_ISSET (channel, &Available)
cd788aa8cb2a Handle multiple keyboard input descriptors.
Richard M. Stallman <rms@gnu.org>
parents: 9334
diff changeset
2895 && FD_ISSET (channel, &non_keyboard_wait_mask))
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2896 {
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2897 int nread;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2898
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2899 /* If waiting for this channel, arrange to return as
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2900 soon as no more input to be processed. No more
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2901 waiting. */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2902 if (wait_channel == channel)
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2903 {
5134
0a4e46e15304 (wait_reading_process_input):
Richard M. Stallman <rms@gnu.org>
parents: 4998
diff changeset
2904 wait_channel = -1;
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2905 time_limit = -1;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2906 got_some_input = 1;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2907 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2908 proc = chan_process[channel];
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2909 if (NILP (proc))
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2910 continue;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2911
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2912 /* Read data from the process, starting with our
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2913 buffered-ahead character if we have one. */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2914
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2915 nread = read_process_output (proc, channel);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2916 if (nread > 0)
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2917 {
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2918 /* Since read_process_output can run a filter,
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2919 which can call accept-process-output,
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2920 don't try to read from any other processes
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2921 before doing the select again. */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2922 FD_ZERO (&Available);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2923
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2924 if (do_display)
35336
002c02db42d3 Call redisplay_preserve_echo_area with additional arg.
Gerd Moellmann <gerd@gnu.org>
parents: 34660
diff changeset
2925 redisplay_preserve_echo_area (12);
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2926 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2927 #ifdef EWOULDBLOCK
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2928 else if (nread == -1 && errno == EWOULDBLOCK)
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2929 ;
15405
c27bb6e69e2d (wait_reading_process_input): Move the O_NONBLOCK and
Richard M. Stallman <rms@gnu.org>
parents: 15368
diff changeset
2930 #endif
15406
7c205bc80624 Comment change.
Richard M. Stallman <rms@gnu.org>
parents: 15405
diff changeset
2931 /* ISC 4.1 defines both EWOULDBLOCK and O_NONBLOCK,
7c205bc80624 Comment change.
Richard M. Stallman <rms@gnu.org>
parents: 15405
diff changeset
2932 and Emacs uses O_NONBLOCK, so what we get is EAGAIN. */
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2933 #ifdef O_NONBLOCK
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2934 else if (nread == -1 && errno == EAGAIN)
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2935 ;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2936 #else
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2937 #ifdef O_NDELAY
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2938 else if (nread == -1 && errno == EAGAIN)
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2939 ;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2940 /* Note that we cannot distinguish between no input
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2941 available now and a closed pipe.
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2942 With luck, a closed pipe will be accompanied by
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2943 subprocess termination and SIGCHLD. */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2944 else if (nread == 0 && !NETCONN_P (proc))
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2945 ;
648
70b112526394 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 638
diff changeset
2946 #endif /* O_NDELAY */
70b112526394 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 638
diff changeset
2947 #endif /* O_NONBLOCK */
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2948 #ifdef HAVE_PTYS
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2949 /* On some OSs with ptys, when the process on one end of
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2950 a pty exits, the other end gets an error reading with
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2951 errno = EIO instead of getting an EOF (0 bytes read).
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2952 Therefore, if we get an error reading and errno =
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2953 EIO, just continue, because the child process has
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2954 exited and should clean itself up soon (e.g. when we
23035
8d68b82a4d8c (wait_reading_process_input): If a pty gives EIO,
Richard M. Stallman <rms@gnu.org>
parents: 22939
diff changeset
2955 get a SIGCHLD).
8d68b82a4d8c (wait_reading_process_input): If a pty gives EIO,
Richard M. Stallman <rms@gnu.org>
parents: 22939
diff changeset
2956
8d68b82a4d8c (wait_reading_process_input): If a pty gives EIO,
Richard M. Stallman <rms@gnu.org>
parents: 22939
diff changeset
2957 However, it has been known to happen that the SIGCHLD
8d68b82a4d8c (wait_reading_process_input): If a pty gives EIO,
Richard M. Stallman <rms@gnu.org>
parents: 22939
diff changeset
2958 got lost. So raise the signl again just in case.
8d68b82a4d8c (wait_reading_process_input): If a pty gives EIO,
Richard M. Stallman <rms@gnu.org>
parents: 22939
diff changeset
2959 It can't hurt. */
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2960 else if (nread == -1 && errno == EIO)
23035
8d68b82a4d8c (wait_reading_process_input): If a pty gives EIO,
Richard M. Stallman <rms@gnu.org>
parents: 22939
diff changeset
2961 kill (getpid (), SIGCHLD);
648
70b112526394 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 638
diff changeset
2962 #endif /* HAVE_PTYS */
70b112526394 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 638
diff changeset
2963 /* If we can detect process termination, don't consider the process
70b112526394 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 638
diff changeset
2964 gone just because its pipe is closed. */
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2965 #ifdef SIGCHLD
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2966 else if (nread == 0 && !NETCONN_P (proc))
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2967 ;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2968 #endif
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2969 else
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2970 {
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2971 /* Preserve status of processes already terminated. */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2972 XSETINT (XPROCESS (proc)->tick, ++process_tick);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2973 deactivate_process (proc);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2974 if (!NILP (XPROCESS (proc)->raw_status_low))
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2975 update_status (XPROCESS (proc));
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2976 if (EQ (XPROCESS (proc)->status, Qrun))
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2977 XPROCESS (proc)->status
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2978 = Fcons (Qexit, Fcons (make_number (256), Qnil));
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2979 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2980 }
43598
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
2981 #ifdef NON_BLOCKING_CONNECT
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
2982 if (check_connect && FD_ISSET (channel, &Connecting))
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
2983 {
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
2984 struct Lisp_Process *p;
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
2985 struct sockaddr pname;
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
2986 socklen_t pnamelen = sizeof(pname);
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
2987
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
2988 FD_CLR (channel, &connect_wait_mask);
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
2989 if (--num_pending_connects < 0)
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
2990 abort ();
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
2991
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
2992 proc = chan_process[channel];
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
2993 if (NILP (proc))
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
2994 continue;
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
2995
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
2996 p = XPROCESS (proc);
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
2997
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
2998 #ifdef GNU_LINUX
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
2999 /* getsockopt(,,SO_ERROR,,) is said to hang on some systems.
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
3000 So only use it on systems where it is known to work. */
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
3001 {
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
3002 socklen_t xlen = sizeof(xerrno);
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
3003 if (getsockopt(channel, SOL_SOCKET, SO_ERROR, &xerrno, &xlen))
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
3004 xerrno = errno;
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
3005 }
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
3006 #else
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
3007 /* If connection failed, getpeername will fail. */
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
3008 xerrno = 0;
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
3009 if (getpeername(channel, &pname, &pnamelen) < 0)
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
3010 {
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
3011 /* Obtain connect failure code through error slippage. */
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
3012 char dummy;
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
3013 xerrno = errno;
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
3014 if (errno == ENOTCONN && read(channel, &dummy, 1) < 0)
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
3015 xerrno = errno;
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
3016 }
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
3017 #endif
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
3018 if (xerrno)
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
3019 {
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
3020 XSETINT (p->tick, ++process_tick);
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
3021 p->status = Fcons (Qfailed, Fcons (make_number (xerrno), Qnil));
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
3022 deactivate_process (proc);
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
3023 }
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
3024 else
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
3025 {
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
3026 p->status = Qrun;
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
3027 /* Execute the sentinel here. If we had relied on
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
3028 status_notify to do it later, it will read input
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
3029 from the process before calling the sentinel. */
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
3030 exec_sentinel (proc, build_string ("open\n"));
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
3031 if (!EQ (p->filter, Qt))
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
3032 {
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
3033 FD_SET (XINT (p->infd), &input_wait_mask);
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
3034 FD_SET (XINT (p->infd), &non_keyboard_wait_mask);
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
3035 }
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
3036 }
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
3037 }
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
3038 #endif /* NON_BLOCKING_CONNECT */
648
70b112526394 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 638
diff changeset
3039 } /* end for each file descriptor */
70b112526394 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 638
diff changeset
3040 } /* end while exit conditions not met */
70b112526394 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 638
diff changeset
3041
8570
dd3dfde8f973 (wait_reading_process_input):
Richard M. Stallman <rms@gnu.org>
parents: 8390
diff changeset
3042 waiting_for_user_input_p = 0;
dd3dfde8f973 (wait_reading_process_input):
Richard M. Stallman <rms@gnu.org>
parents: 8390
diff changeset
3043
648
70b112526394 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 638
diff changeset
3044 /* If calling from keyboard input, do not quit
70b112526394 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 638
diff changeset
3045 since we want to return C-g as an input character.
70b112526394 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 638
diff changeset
3046 Otherwise, do pending quit if requested. */
650
39f0e62a8511 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 648
diff changeset
3047 if (XINT (read_kbd) >= 0)
648
70b112526394 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 638
diff changeset
3048 {
70b112526394 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 638
diff changeset
3049 /* Prevent input_pending from remaining set if we quit. */
70b112526394 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 638
diff changeset
3050 clear_input_pending ();
70b112526394 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 638
diff changeset
3051 QUIT;
70b112526394 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 638
diff changeset
3052 }
15661
96debed5fb36 (wait_reading_process_input) [hpux]: Workaround for
Karl Heuer <kwzh@gnu.org>
parents: 15406
diff changeset
3053 #ifdef hpux
96debed5fb36 (wait_reading_process_input) [hpux]: Workaround for
Karl Heuer <kwzh@gnu.org>
parents: 15406
diff changeset
3054 /* AlainF 5-Jul-1996
96debed5fb36 (wait_reading_process_input) [hpux]: Workaround for
Karl Heuer <kwzh@gnu.org>
parents: 15406
diff changeset
3055 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
3056 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
3057 in an X window
96debed5fb36 (wait_reading_process_input) [hpux]: Workaround for
Karl Heuer <kwzh@gnu.org>
parents: 15406
diff changeset
3058 Turn periodic alarms back on */
18378
22cd8d7dd5aa (wait_reading_process_input): Don't check for
Richard M. Stallman <rms@gnu.org>
parents: 18329
diff changeset
3059 start_polling ();
15661
96debed5fb36 (wait_reading_process_input) [hpux]: Workaround for
Karl Heuer <kwzh@gnu.org>
parents: 15406
diff changeset
3060 #endif
25009
5733af0b62ce (wait_reading_process_input): Show and hide busy
Gerd Moellmann <gerd@gnu.org>
parents: 24933
diff changeset
3061
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3062 return got_some_input;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3063 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3064
9030
b14532c71632 (exec_sentinel_error_handler): New function.
Richard M. Stallman <rms@gnu.org>
parents: 8570
diff changeset
3065 /* 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
3066
b14532c71632 (exec_sentinel_error_handler): New function.
Richard M. Stallman <rms@gnu.org>
parents: 8570
diff changeset
3067 static Lisp_Object
b14532c71632 (exec_sentinel_error_handler): New function.
Richard M. Stallman <rms@gnu.org>
parents: 8570
diff changeset
3068 read_process_output_call (fun_and_args)
b14532c71632 (exec_sentinel_error_handler): New function.
Richard M. Stallman <rms@gnu.org>
parents: 8570
diff changeset
3069 Lisp_Object fun_and_args;
b14532c71632 (exec_sentinel_error_handler): New function.
Richard M. Stallman <rms@gnu.org>
parents: 8570
diff changeset
3070 {
25645
a14111a2a100 Use XCAR, XCDR, XFLOAT_DATA instead of explicit member access.
Ken Raeburn <raeburn@raeburn.org>
parents: 25356
diff changeset
3071 return apply1 (XCAR (fun_and_args), XCDR (fun_and_args));
9030
b14532c71632 (exec_sentinel_error_handler): New function.
Richard M. Stallman <rms@gnu.org>
parents: 8570
diff changeset
3072 }
b14532c71632 (exec_sentinel_error_handler): New function.
Richard M. Stallman <rms@gnu.org>
parents: 8570
diff changeset
3073
b14532c71632 (exec_sentinel_error_handler): New function.
Richard M. Stallman <rms@gnu.org>
parents: 8570
diff changeset
3074 static Lisp_Object
b14532c71632 (exec_sentinel_error_handler): New function.
Richard M. Stallman <rms@gnu.org>
parents: 8570
diff changeset
3075 read_process_output_error_handler (error)
b14532c71632 (exec_sentinel_error_handler): New function.
Richard M. Stallman <rms@gnu.org>
parents: 8570
diff changeset
3076 Lisp_Object error;
b14532c71632 (exec_sentinel_error_handler): New function.
Richard M. Stallman <rms@gnu.org>
parents: 8570
diff changeset
3077 {
b14532c71632 (exec_sentinel_error_handler): New function.
Richard M. Stallman <rms@gnu.org>
parents: 8570
diff changeset
3078 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
3079 Vinhibit_quit = Qt;
b14532c71632 (exec_sentinel_error_handler): New function.
Richard M. Stallman <rms@gnu.org>
parents: 8570
diff changeset
3080 update_echo_area ();
11277
d4547e4b0aab (read_process_output_error_handler)
Richard M. Stallman <rms@gnu.org>
parents: 11235
diff changeset
3081 Fsleep_for (make_number (2), Qnil);
27558
f99efd14b932 (Fstart_process): Doc fix.
Dave Love <fx@gnu.org>
parents: 27430
diff changeset
3082 return Qt;
9030
b14532c71632 (exec_sentinel_error_handler): New function.
Richard M. Stallman <rms@gnu.org>
parents: 8570
diff changeset
3083 }
b14532c71632 (exec_sentinel_error_handler): New function.
Richard M. Stallman <rms@gnu.org>
parents: 8570
diff changeset
3084
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3085 /* Read pending output from the process channel,
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3086 starting with our buffered-ahead character if we have one.
17041
b61cbe595be5 Include charset.h and coding.h.
Karl Heuer <kwzh@gnu.org>
parents: 16780
diff changeset
3087 Yield number of decoded characters read.
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3088
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3089 This function reads at most 1024 characters.
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3090 If you want to read all available subprocess output,
17041
b61cbe595be5 Include charset.h and coding.h.
Karl Heuer <kwzh@gnu.org>
parents: 16780
diff changeset
3091 you must call it repeatedly until it returns zero.
b61cbe595be5 Include charset.h and coding.h.
Karl Heuer <kwzh@gnu.org>
parents: 16780
diff changeset
3092
b61cbe595be5 Include charset.h and coding.h.
Karl Heuer <kwzh@gnu.org>
parents: 16780
diff changeset
3093 The characters read are decoded according to PROC's coding-system
b61cbe595be5 Include charset.h and coding.h.
Karl Heuer <kwzh@gnu.org>
parents: 16780
diff changeset
3094 for decoding. */
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3095
21514
fa9ff387d260 Fix -Wimplicit warnings.
Andreas Schwab <schwab@suse.de>
parents: 21414
diff changeset
3096 int
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3097 read_process_output (proc, channel)
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3098 Lisp_Object proc;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3099 register int channel;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3100 {
20594
6e5a5afbe628 (read_process_output): Use insert_1_both.
Richard M. Stallman <rms@gnu.org>
parents: 20551
diff changeset
3101 register int nchars, nbytes;
17041
b61cbe595be5 Include charset.h and coding.h.
Karl Heuer <kwzh@gnu.org>
parents: 16780
diff changeset
3102 char *chars;
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3103 register Lisp_Object outstream;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3104 register struct buffer *old = current_buffer;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3105 register struct Lisp_Process *p = XPROCESS (proc);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3106 register int opoint;
17110
3a348cbb354f (Fstart_process, Fopen_network_stream): Do not perform
Kenichi Handa <handa@m17n.org>
parents: 17041
diff changeset
3107 struct coding_system *coding = proc_decode_coding_system[channel];
20715
5e983ddb85c9 (Fstart_process): Use raw-text instead of emacs-mule
Kenichi Handa <handa@m17n.org>
parents: 20708
diff changeset
3108 int carryover = XINT (p->decoding_carryover);
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3109
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3110 #ifdef VMS
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3111 VMS_PROC_STUFF *vs, *get_vms_process_pointer();
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3112
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3113 vs = get_vms_process_pointer (p->pid);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3114 if (vs)
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3115 {
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3116 if (!vs->iosb[0])
25248
f0fc8443bdbb (Fopen_network_stream): Use getaddrinfo.
Karl Heuer <kwzh@gnu.org>
parents: 25129
diff changeset
3117 return (0); /* Really weird if it does this */
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3118 if (!(vs->iosb[0] & 1))
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3119 return -1; /* I/O error */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3120 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3121 else
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3122 error ("Could not get VMS process pointer");
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3123 chars = vs->inputBuffer;
20594
6e5a5afbe628 (read_process_output): Use insert_1_both.
Richard M. Stallman <rms@gnu.org>
parents: 20551
diff changeset
3124 nbytes = clean_vms_buffer (chars, vs->iosb[1]);
6e5a5afbe628 (read_process_output): Use insert_1_both.
Richard M. Stallman <rms@gnu.org>
parents: 20551
diff changeset
3125 if (nbytes <= 0)
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3126 {
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3127 start_vms_process_read (vs); /* Crank up the next read on the process */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3128 return 1; /* Nothing worth printing, say we got 1 */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3129 }
20715
5e983ddb85c9 (Fstart_process): Use raw-text instead of emacs-mule
Kenichi Handa <handa@m17n.org>
parents: 20708
diff changeset
3130 if (carryover > 0)
17041
b61cbe595be5 Include charset.h and coding.h.
Karl Heuer <kwzh@gnu.org>
parents: 16780
diff changeset
3131 {
20715
5e983ddb85c9 (Fstart_process): Use raw-text instead of emacs-mule
Kenichi Handa <handa@m17n.org>
parents: 20708
diff changeset
3132 /* The data carried over in the previous decoding (which are at
5e983ddb85c9 (Fstart_process): Use raw-text instead of emacs-mule
Kenichi Handa <handa@m17n.org>
parents: 20708
diff changeset
3133 the tail of decoding buffer) should be prepended to the new
5e983ddb85c9 (Fstart_process): Use raw-text instead of emacs-mule
Kenichi Handa <handa@m17n.org>
parents: 20708
diff changeset
3134 data read to decode all together. */
30580
5d92193ed196 (read_process_output): Big simplification. Handle
Kenichi Handa <handa@m17n.org>
parents: 29921
diff changeset
3135 chars = (char *) alloca (nbytes + carryover);
5d92193ed196 (read_process_output): Big simplification. Handle
Kenichi Handa <handa@m17n.org>
parents: 29921
diff changeset
3136 bcopy (XSTRING (p->decoding_buf)->data, buf, carryover);
5d92193ed196 (read_process_output): Big simplification. Handle
Kenichi Handa <handa@m17n.org>
parents: 29921
diff changeset
3137 bcopy (vs->inputBuffer, chars + carryover, nbytes);
17041
b61cbe595be5 Include charset.h and coding.h.
Karl Heuer <kwzh@gnu.org>
parents: 16780
diff changeset
3138 }
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3139 #else /* not VMS */
30580
5d92193ed196 (read_process_output): Big simplification. Handle
Kenichi Handa <handa@m17n.org>
parents: 29921
diff changeset
3140 chars = (char *) alloca (carryover + 1024);
20715
5e983ddb85c9 (Fstart_process): Use raw-text instead of emacs-mule
Kenichi Handa <handa@m17n.org>
parents: 20708
diff changeset
3141 if (carryover)
5e983ddb85c9 (Fstart_process): Use raw-text instead of emacs-mule
Kenichi Handa <handa@m17n.org>
parents: 20708
diff changeset
3142 /* See the comment above. */
30580
5d92193ed196 (read_process_output): Big simplification. Handle
Kenichi Handa <handa@m17n.org>
parents: 29921
diff changeset
3143 bcopy (XSTRING (p->decoding_buf)->data, chars, carryover);
17041
b61cbe595be5 Include charset.h and coding.h.
Karl Heuer <kwzh@gnu.org>
parents: 16780
diff changeset
3144
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3145 if (proc_buffered_char[channel] < 0)
30580
5d92193ed196 (read_process_output): Big simplification. Handle
Kenichi Handa <handa@m17n.org>
parents: 29921
diff changeset
3146 nbytes = emacs_read (channel, chars + carryover, 1024 - carryover);
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3147 else
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3148 {
30580
5d92193ed196 (read_process_output): Big simplification. Handle
Kenichi Handa <handa@m17n.org>
parents: 29921
diff changeset
3149 chars[carryover] = proc_buffered_char[channel];
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3150 proc_buffered_char[channel] = -1;
30580
5d92193ed196 (read_process_output): Big simplification. Handle
Kenichi Handa <handa@m17n.org>
parents: 29921
diff changeset
3151 nbytes = emacs_read (channel, chars + carryover + 1, 1023 - carryover);
20594
6e5a5afbe628 (read_process_output): Use insert_1_both.
Richard M. Stallman <rms@gnu.org>
parents: 20551
diff changeset
3152 if (nbytes < 0)
6e5a5afbe628 (read_process_output): Use insert_1_both.
Richard M. Stallman <rms@gnu.org>
parents: 20551
diff changeset
3153 nbytes = 1;
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3154 else
20594
6e5a5afbe628 (read_process_output): Use insert_1_both.
Richard M. Stallman <rms@gnu.org>
parents: 20551
diff changeset
3155 nbytes = nbytes + 1;
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3156 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3157 #endif /* not VMS */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3158
22523
b02a5ea8cf93 (read_process_output): Handle carryover correctly.
Kenichi Handa <handa@m17n.org>
parents: 22019
diff changeset
3159 XSETINT (p->decoding_carryover, 0);
b02a5ea8cf93 (read_process_output): Handle carryover correctly.
Kenichi Handa <handa@m17n.org>
parents: 22019
diff changeset
3160
30580
5d92193ed196 (read_process_output): Big simplification. Handle
Kenichi Handa <handa@m17n.org>
parents: 29921
diff changeset
3161 /* At this point, NBYTES holds number of bytes just received
17041
b61cbe595be5 Include charset.h and coding.h.
Karl Heuer <kwzh@gnu.org>
parents: 16780
diff changeset
3162 (including the one in proc_buffered_char[channel]). */
23879
18e5d1cfa74b (read_process_output): If NBYTES is zero and
Kenichi Handa <handa@m17n.org>
parents: 23762
diff changeset
3163 if (nbytes <= 0)
18e5d1cfa74b (read_process_output): If NBYTES is zero and
Kenichi Handa <handa@m17n.org>
parents: 23762
diff changeset
3164 {
18e5d1cfa74b (read_process_output): If NBYTES is zero and
Kenichi Handa <handa@m17n.org>
parents: 23762
diff changeset
3165 if (nbytes < 0 || coding->mode & CODING_MODE_LAST_BLOCK)
18e5d1cfa74b (read_process_output): If NBYTES is zero and
Kenichi Handa <handa@m17n.org>
parents: 23762
diff changeset
3166 return nbytes;
18e5d1cfa74b (read_process_output): If NBYTES is zero and
Kenichi Handa <handa@m17n.org>
parents: 23762
diff changeset
3167 coding->mode |= CODING_MODE_LAST_BLOCK;
18e5d1cfa74b (read_process_output): If NBYTES is zero and
Kenichi Handa <handa@m17n.org>
parents: 23762
diff changeset
3168 }
20594
6e5a5afbe628 (read_process_output): Use insert_1_both.
Richard M. Stallman <rms@gnu.org>
parents: 20551
diff changeset
3169
6e5a5afbe628 (read_process_output): Use insert_1_both.
Richard M. Stallman <rms@gnu.org>
parents: 20551
diff changeset
3170 /* Now set NBYTES how many bytes we must decode. */
20715
5e983ddb85c9 (Fstart_process): Use raw-text instead of emacs-mule
Kenichi Handa <handa@m17n.org>
parents: 20708
diff changeset
3171 nbytes += carryover;
29017
8f10362eb5ff (Fstart_process): GCPRO current_dir before calling
Kenichi Handa <handa@m17n.org>
parents: 28157
diff changeset
3172
20594
6e5a5afbe628 (read_process_output): Use insert_1_both.
Richard M. Stallman <rms@gnu.org>
parents: 20551
diff changeset
3173 /* Read and dispose of the process output. */
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3174 outstream = p->filter;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3175 if (!NILP (outstream))
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3176 {
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3177 /* We inhibit quit here instead of just catching it so that
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3178 hitting ^G when a filter happens to be running won't screw
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3179 it up. */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3180 int count = specpdl_ptr - specpdl;
3510
b4a552ca4e99 (read_process_output): Deactivate the mark.
Richard M. Stallman <rms@gnu.org>
parents: 3238
diff changeset
3181 Lisp_Object odeactivate;
10914
413d44c0bd41 (exec_sentinel, read_process_output): If running filter
Richard M. Stallman <rms@gnu.org>
parents: 10744
diff changeset
3182 Lisp_Object obuffer, okeymap;
20594
6e5a5afbe628 (read_process_output): Use insert_1_both.
Richard M. Stallman <rms@gnu.org>
parents: 20551
diff changeset
3183 Lisp_Object text;
16644
3a93437adce1 (status_notify): Test p->infd > 0
Richard M. Stallman <rms@gnu.org>
parents: 16464
diff changeset
3184 int outer_running_asynch_code = running_asynch_code;
23460
94f4ba741f22 (exec_sentinel, read_process_output):
Richard M. Stallman <rms@gnu.org>
parents: 23405
diff changeset
3185 int waiting = waiting_for_user_input_p;
10914
413d44c0bd41 (exec_sentinel, read_process_output): If running filter
Richard M. Stallman <rms@gnu.org>
parents: 10744
diff changeset
3186
413d44c0bd41 (exec_sentinel, read_process_output): If running filter
Richard M. Stallman <rms@gnu.org>
parents: 10744
diff changeset
3187 /* 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
3188 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
3189 odeactivate = Vdeactivate_mark;
10914
413d44c0bd41 (exec_sentinel, read_process_output): If running filter
Richard M. Stallman <rms@gnu.org>
parents: 10744
diff changeset
3190 XSETBUFFER (obuffer, current_buffer);
413d44c0bd41 (exec_sentinel, read_process_output): If running filter
Richard M. Stallman <rms@gnu.org>
parents: 10744
diff changeset
3191 okeymap = current_buffer->keymap;
3510
b4a552ca4e99 (read_process_output): Deactivate the mark.
Richard M. Stallman <rms@gnu.org>
parents: 3238
diff changeset
3192
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3193 specbind (Qinhibit_quit, Qt);
8231
5226ed89c1a6 (Qlast_nonmenu_event): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 8063
diff changeset
3194 specbind (Qlast_nonmenu_event, Qt);
9030
b14532c71632 (exec_sentinel_error_handler): New function.
Richard M. Stallman <rms@gnu.org>
parents: 8570
diff changeset
3195
16644
3a93437adce1 (status_notify): Test p->infd > 0
Richard M. Stallman <rms@gnu.org>
parents: 16464
diff changeset
3196 /* In case we get recursively called,
3a93437adce1 (status_notify): Test p->infd > 0
Richard M. Stallman <rms@gnu.org>
parents: 16464
diff changeset
3197 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
3198 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
3199 if (outer_running_asynch_code)
3a93437adce1 (status_notify): Test p->infd > 0
Richard M. Stallman <rms@gnu.org>
parents: 16464
diff changeset
3200 {
3a93437adce1 (status_notify): Test p->infd > 0
Richard M. Stallman <rms@gnu.org>
parents: 16464
diff changeset
3201 Lisp_Object tem;
3a93437adce1 (status_notify): Test p->infd > 0
Richard M. Stallman <rms@gnu.org>
parents: 16464
diff changeset
3202 /* 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
3203 tem = Fmatch_data (Qnil, Qnil);
16644
3a93437adce1 (status_notify): Test p->infd > 0
Richard M. Stallman <rms@gnu.org>
parents: 16464
diff changeset
3204 restore_match_data ();
21177
73f8ae8312c8 (exec_sentinel, read_process_output): Fstore_match_data => Fset_match_data.
Richard M. Stallman <rms@gnu.org>
parents: 21049
diff changeset
3205 record_unwind_protect (Fset_match_data, Fmatch_data (Qnil, Qnil));
73f8ae8312c8 (exec_sentinel, read_process_output): Fstore_match_data => Fset_match_data.
Richard M. Stallman <rms@gnu.org>
parents: 21049
diff changeset
3206 Fset_match_data (tem);
16644
3a93437adce1 (status_notify): Test p->infd > 0
Richard M. Stallman <rms@gnu.org>
parents: 16464
diff changeset
3207 }
3a93437adce1 (status_notify): Test p->infd > 0
Richard M. Stallman <rms@gnu.org>
parents: 16464
diff changeset
3208
3a93437adce1 (status_notify): Test p->infd > 0
Richard M. Stallman <rms@gnu.org>
parents: 16464
diff changeset
3209 /* 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
3210 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
3211 running_asynch_code = 1;
16644
3a93437adce1 (status_notify): Test p->infd > 0
Richard M. Stallman <rms@gnu.org>
parents: 16464
diff changeset
3212
30580
5d92193ed196 (read_process_output): Big simplification. Handle
Kenichi Handa <handa@m17n.org>
parents: 29921
diff changeset
3213 text = decode_coding_string (make_unibyte_string (chars, nbytes),
5d92193ed196 (read_process_output): Big simplification. Handle
Kenichi Handa <handa@m17n.org>
parents: 29921
diff changeset
3214 coding, 0);
31136
d1344c992a9a (create_process): Don't setup raw-text coding here.
Kenichi Handa <handa@m17n.org>
parents: 31099
diff changeset
3215 if (NILP (buffer_defaults.enable_multibyte_characters))
d1344c992a9a (create_process): Don't setup raw-text coding here.
Kenichi Handa <handa@m17n.org>
parents: 31099
diff changeset
3216 /* We had better return unibyte string. */
d1344c992a9a (create_process): Don't setup raw-text coding here.
Kenichi Handa <handa@m17n.org>
parents: 31099
diff changeset
3217 text = string_make_unibyte (text);
d1344c992a9a (create_process): Don't setup raw-text coding here.
Kenichi Handa <handa@m17n.org>
parents: 31099
diff changeset
3218
30582
280157ad4aa3 *** empty log message ***
Kenichi Handa <handa@m17n.org>
parents: 30580
diff changeset
3219 Vlast_coding_system_used = coding->symbol;
30580
5d92193ed196 (read_process_output): Big simplification. Handle
Kenichi Handa <handa@m17n.org>
parents: 29921
diff changeset
3220 /* A new coding system might be found. */
5d92193ed196 (read_process_output): Big simplification. Handle
Kenichi Handa <handa@m17n.org>
parents: 29921
diff changeset
3221 if (!EQ (p->decode_coding_system, coding->symbol))
5d92193ed196 (read_process_output): Big simplification. Handle
Kenichi Handa <handa@m17n.org>
parents: 29921
diff changeset
3222 {
5d92193ed196 (read_process_output): Big simplification. Handle
Kenichi Handa <handa@m17n.org>
parents: 29921
diff changeset
3223 p->decode_coding_system = coding->symbol;
5d92193ed196 (read_process_output): Big simplification. Handle
Kenichi Handa <handa@m17n.org>
parents: 29921
diff changeset
3224
5d92193ed196 (read_process_output): Big simplification. Handle
Kenichi Handa <handa@m17n.org>
parents: 29921
diff changeset
3225 /* Don't call setup_coding_system for
5d92193ed196 (read_process_output): Big simplification. Handle
Kenichi Handa <handa@m17n.org>
parents: 29921
diff changeset
3226 proc_decode_coding_system[channel] here. It is done in
5d92193ed196 (read_process_output): Big simplification. Handle
Kenichi Handa <handa@m17n.org>
parents: 29921
diff changeset
3227 detect_coding called via decode_coding above. */
5d92193ed196 (read_process_output): Big simplification. Handle
Kenichi Handa <handa@m17n.org>
parents: 29921
diff changeset
3228
5d92193ed196 (read_process_output): Big simplification. Handle
Kenichi Handa <handa@m17n.org>
parents: 29921
diff changeset
3229 /* If a coding system for encoding is not yet decided, we set
5d92193ed196 (read_process_output): Big simplification. Handle
Kenichi Handa <handa@m17n.org>
parents: 29921
diff changeset
3230 it as the same as coding-system for decoding.
5d92193ed196 (read_process_output): Big simplification. Handle
Kenichi Handa <handa@m17n.org>
parents: 29921
diff changeset
3231
5d92193ed196 (read_process_output): Big simplification. Handle
Kenichi Handa <handa@m17n.org>
parents: 29921
diff changeset
3232 But, before doing that we must check if
5d92193ed196 (read_process_output): Big simplification. Handle
Kenichi Handa <handa@m17n.org>
parents: 29921
diff changeset
3233 proc_encode_coding_system[p->outfd] surely points to a
5d92193ed196 (read_process_output): Big simplification. Handle
Kenichi Handa <handa@m17n.org>
parents: 29921
diff changeset
3234 valid memory because p->outfd will be changed once EOF is
5d92193ed196 (read_process_output): Big simplification. Handle
Kenichi Handa <handa@m17n.org>
parents: 29921
diff changeset
3235 sent to the process. */
5d92193ed196 (read_process_output): Big simplification. Handle
Kenichi Handa <handa@m17n.org>
parents: 29921
diff changeset
3236 if (NILP (p->encode_coding_system)
5d92193ed196 (read_process_output): Big simplification. Handle
Kenichi Handa <handa@m17n.org>
parents: 29921
diff changeset
3237 && proc_encode_coding_system[XINT (p->outfd)])
5d92193ed196 (read_process_output): Big simplification. Handle
Kenichi Handa <handa@m17n.org>
parents: 29921
diff changeset
3238 {
5d92193ed196 (read_process_output): Big simplification. Handle
Kenichi Handa <handa@m17n.org>
parents: 29921
diff changeset
3239 p->encode_coding_system = coding->symbol;
5d92193ed196 (read_process_output): Big simplification. Handle
Kenichi Handa <handa@m17n.org>
parents: 29921
diff changeset
3240 setup_coding_system (coding->symbol,
5d92193ed196 (read_process_output): Big simplification. Handle
Kenichi Handa <handa@m17n.org>
parents: 29921
diff changeset
3241 proc_encode_coding_system[XINT (p->outfd)]);
5d92193ed196 (read_process_output): Big simplification. Handle
Kenichi Handa <handa@m17n.org>
parents: 29921
diff changeset
3242 }
5d92193ed196 (read_process_output): Big simplification. Handle
Kenichi Handa <handa@m17n.org>
parents: 29921
diff changeset
3243 }
5d92193ed196 (read_process_output): Big simplification. Handle
Kenichi Handa <handa@m17n.org>
parents: 29921
diff changeset
3244
5d92193ed196 (read_process_output): Big simplification. Handle
Kenichi Handa <handa@m17n.org>
parents: 29921
diff changeset
3245 carryover = nbytes - coding->consumed;
5d92193ed196 (read_process_output): Big simplification. Handle
Kenichi Handa <handa@m17n.org>
parents: 29921
diff changeset
3246 bcopy (chars + coding->consumed, XSTRING (p->decoding_buf)->data,
5d92193ed196 (read_process_output): Big simplification. Handle
Kenichi Handa <handa@m17n.org>
parents: 29921
diff changeset
3247 carryover);
5d92193ed196 (read_process_output): Big simplification. Handle
Kenichi Handa <handa@m17n.org>
parents: 29921
diff changeset
3248 XSETINT (p->decoding_carryover, carryover);
5d92193ed196 (read_process_output): Big simplification. Handle
Kenichi Handa <handa@m17n.org>
parents: 29921
diff changeset
3249 nbytes = STRING_BYTES (XSTRING (text));
5d92193ed196 (read_process_output): Big simplification. Handle
Kenichi Handa <handa@m17n.org>
parents: 29921
diff changeset
3250 nchars = XSTRING (text)->size;
34647
1898b3c996ff (read_process_output): Don't run a filter if the code
Kenichi Handa <handa@m17n.org>
parents: 34352
diff changeset
3251 if (nbytes > 0)
1898b3c996ff (read_process_output): Don't run a filter if the code
Kenichi Handa <handa@m17n.org>
parents: 34352
diff changeset
3252 internal_condition_case_1 (read_process_output_call,
1898b3c996ff (read_process_output): Don't run a filter if the code
Kenichi Handa <handa@m17n.org>
parents: 34352
diff changeset
3253 Fcons (outstream,
1898b3c996ff (read_process_output): Don't run a filter if the code
Kenichi Handa <handa@m17n.org>
parents: 34352
diff changeset
3254 Fcons (proc, Fcons (text, Qnil))),
1898b3c996ff (read_process_output): Don't run a filter if the code
Kenichi Handa <handa@m17n.org>
parents: 34352
diff changeset
3255 !NILP (Vdebug_on_error) ? Qnil : Qerror,
1898b3c996ff (read_process_output): Don't run a filter if the code
Kenichi Handa <handa@m17n.org>
parents: 34352
diff changeset
3256 read_process_output_error_handler);
16644
3a93437adce1 (status_notify): Test p->infd > 0
Richard M. Stallman <rms@gnu.org>
parents: 16464
diff changeset
3257
3a93437adce1 (status_notify): Test p->infd > 0
Richard M. Stallman <rms@gnu.org>
parents: 16464
diff changeset
3258 /* 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
3259 restore_match_data ();
16644
3a93437adce1 (status_notify): Test p->infd > 0
Richard M. Stallman <rms@gnu.org>
parents: 16464
diff changeset
3260 running_asynch_code = outer_running_asynch_code;
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3261
3666
c7ff787b096f (read_process_output): Don't deactivate the mark.
Richard M. Stallman <rms@gnu.org>
parents: 3608
diff changeset
3262 /* 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
3263 Vdeactivate_mark = odeactivate;
b4a552ca4e99 (read_process_output): Deactivate the mark.
Richard M. Stallman <rms@gnu.org>
parents: 3238
diff changeset
3264
23460
94f4ba741f22 (exec_sentinel, read_process_output):
Richard M. Stallman <rms@gnu.org>
parents: 23405
diff changeset
3265 /* Restore waiting_for_user_input_p as it was
94f4ba741f22 (exec_sentinel, read_process_output):
Richard M. Stallman <rms@gnu.org>
parents: 23405
diff changeset
3266 when we were called, in case the filter clobbered it. */
94f4ba741f22 (exec_sentinel, read_process_output):
Richard M. Stallman <rms@gnu.org>
parents: 23405
diff changeset
3267 waiting_for_user_input_p = waiting;
94f4ba741f22 (exec_sentinel, read_process_output):
Richard M. Stallman <rms@gnu.org>
parents: 23405
diff changeset
3268
12808
4db1f387e85f (read_process_output, exec_sentinel): Call
Richard M. Stallman <rms@gnu.org>
parents: 12749
diff changeset
3269 #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
3270 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
3271 that affect key bindings. */
10914
413d44c0bd41 (exec_sentinel, read_process_output): If running filter
Richard M. Stallman <rms@gnu.org>
parents: 10744
diff changeset
3272 if (! EQ (Fcurrent_buffer (), obuffer)
413d44c0bd41 (exec_sentinel, read_process_output): If running filter
Richard M. Stallman <rms@gnu.org>
parents: 10744
diff changeset
3273 || ! EQ (current_buffer->keymap, okeymap))
12808
4db1f387e85f (read_process_output, exec_sentinel): Call
Richard M. Stallman <rms@gnu.org>
parents: 12749
diff changeset
3274 #endif
13159
2af96ac471bc (exec_sentinel, read_process_output):
Richard M. Stallman <rms@gnu.org>
parents: 12808
diff changeset
3275 /* 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
3276 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
3277 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
3278 if (waiting_for_user_input_p == -1)
2af96ac471bc (exec_sentinel, read_process_output):
Richard M. Stallman <rms@gnu.org>
parents: 12808
diff changeset
3279 record_asynch_buffer_change ();
6748
b1cde622fa65 (read_process_output): If buffer changes, record that fact.
Karl Heuer <kwzh@gnu.org>
parents: 6569
diff changeset
3280
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3281 #ifdef VMS
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3282 start_vms_process_read (vs);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3283 #endif
5561
fd7524d61a8d (read_process_output): Supply second arg to unbind_to.
Richard M. Stallman <rms@gnu.org>
parents: 5548
diff changeset
3284 unbind_to (count, Qnil);
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3285 return nchars;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3286 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3287
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3288 /* If no filter, write into buffer if it isn't dead. */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3289 if (!NILP (p->buffer) && !NILP (XBUFFER (p->buffer)->name))
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3290 {
1594
b476a97ad17e * systty.h, process.c, buffer.h, callproc.c, sysdep.c, dired.c:
Jim Blandy <jimb@redhat.com>
parents: 1569
diff changeset
3291 Lisp_Object old_read_only;
17604
77b137e2d9a7 (read_process_output): Update opoint, old_begv and old_zv
Richard M. Stallman <rms@gnu.org>
parents: 17247
diff changeset
3292 int old_begv, old_zv;
20551
5f17380c85f1 (status_notify): Use byte and char pointers.
Richard M. Stallman <rms@gnu.org>
parents: 20433
diff changeset
3293 int old_begv_byte, old_zv_byte;
3510
b4a552ca4e99 (read_process_output): Deactivate the mark.
Richard M. Stallman <rms@gnu.org>
parents: 3238
diff changeset
3294 Lisp_Object odeactivate;
20551
5f17380c85f1 (status_notify): Use byte and char pointers.
Richard M. Stallman <rms@gnu.org>
parents: 20433
diff changeset
3295 int before, before_byte;
5f17380c85f1 (status_notify): Use byte and char pointers.
Richard M. Stallman <rms@gnu.org>
parents: 20433
diff changeset
3296 int opoint_byte;
30580
5d92193ed196 (read_process_output): Big simplification. Handle
Kenichi Handa <handa@m17n.org>
parents: 29921
diff changeset
3297 Lisp_Object text;
34352
642fb6c53a10 (read_process_output): Make sure the process marker's
Gerd Moellmann <gerd@gnu.org>
parents: 32864
diff changeset
3298 struct buffer *b;
3510
b4a552ca4e99 (read_process_output): Deactivate the mark.
Richard M. Stallman <rms@gnu.org>
parents: 3238
diff changeset
3299
b4a552ca4e99 (read_process_output): Deactivate the mark.
Richard M. Stallman <rms@gnu.org>
parents: 3238
diff changeset
3300 odeactivate = Vdeactivate_mark;
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3301
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3302 Fset_buffer (p->buffer);
16039
855c8d8ba0f0 Change all references from point to PT.
Karl Heuer <kwzh@gnu.org>
parents: 15895
diff changeset
3303 opoint = PT;
20551
5f17380c85f1 (status_notify): Use byte and char pointers.
Richard M. Stallman <rms@gnu.org>
parents: 20433
diff changeset
3304 opoint_byte = PT_BYTE;
1594
b476a97ad17e * systty.h, process.c, buffer.h, callproc.c, sysdep.c, dired.c:
Jim Blandy <jimb@redhat.com>
parents: 1569
diff changeset
3305 old_read_only = current_buffer->read_only;
17604
77b137e2d9a7 (read_process_output): Update opoint, old_begv and old_zv
Richard M. Stallman <rms@gnu.org>
parents: 17247
diff changeset
3306 old_begv = BEGV;
77b137e2d9a7 (read_process_output): Update opoint, old_begv and old_zv
Richard M. Stallman <rms@gnu.org>
parents: 17247
diff changeset
3307 old_zv = ZV;
20551
5f17380c85f1 (status_notify): Use byte and char pointers.
Richard M. Stallman <rms@gnu.org>
parents: 20433
diff changeset
3308 old_begv_byte = BEGV_BYTE;
5f17380c85f1 (status_notify): Use byte and char pointers.
Richard M. Stallman <rms@gnu.org>
parents: 20433
diff changeset
3309 old_zv_byte = ZV_BYTE;
1594
b476a97ad17e * systty.h, process.c, buffer.h, callproc.c, sysdep.c, dired.c:
Jim Blandy <jimb@redhat.com>
parents: 1569
diff changeset
3310
b476a97ad17e * systty.h, process.c, buffer.h, callproc.c, sysdep.c, dired.c:
Jim Blandy <jimb@redhat.com>
parents: 1569
diff changeset
3311 current_buffer->read_only = Qnil;
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3312
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3313 /* Insert new output into buffer
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3314 at the current end-of-output marker,
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3315 thus preserving logical ordering of input and output. */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3316 if (XMARKER (p->mark)->buffer)
20551
5f17380c85f1 (status_notify): Use byte and char pointers.
Richard M. Stallman <rms@gnu.org>
parents: 20433
diff changeset
3317 SET_PT_BOTH (clip_to_bounds (BEGV, marker_position (p->mark), ZV),
5f17380c85f1 (status_notify): Use byte and char pointers.
Richard M. Stallman <rms@gnu.org>
parents: 20433
diff changeset
3318 clip_to_bounds (BEGV_BYTE, marker_byte_position (p->mark),
5f17380c85f1 (status_notify): Use byte and char pointers.
Richard M. Stallman <rms@gnu.org>
parents: 20433
diff changeset
3319 ZV_BYTE));
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3320 else
20551
5f17380c85f1 (status_notify): Use byte and char pointers.
Richard M. Stallman <rms@gnu.org>
parents: 20433
diff changeset
3321 SET_PT_BOTH (ZV, ZV_BYTE);
17604
77b137e2d9a7 (read_process_output): Update opoint, old_begv and old_zv
Richard M. Stallman <rms@gnu.org>
parents: 17247
diff changeset
3322 before = PT;
20551
5f17380c85f1 (status_notify): Use byte and char pointers.
Richard M. Stallman <rms@gnu.org>
parents: 20433
diff changeset
3323 before_byte = PT_BYTE;
1594
b476a97ad17e * systty.h, process.c, buffer.h, callproc.c, sysdep.c, dired.c:
Jim Blandy <jimb@redhat.com>
parents: 1569
diff changeset
3324
b476a97ad17e * systty.h, process.c, buffer.h, callproc.c, sysdep.c, dired.c:
Jim Blandy <jimb@redhat.com>
parents: 1569
diff changeset
3325 /* 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
3326 the restriction and widen. */
16039
855c8d8ba0f0 Change all references from point to PT.
Karl Heuer <kwzh@gnu.org>
parents: 15895
diff changeset
3327 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
3328 Fwiden ();
b476a97ad17e * systty.h, process.c, buffer.h, callproc.c, sysdep.c, dired.c:
Jim Blandy <jimb@redhat.com>
parents: 1569
diff changeset
3329
30580
5d92193ed196 (read_process_output): Big simplification. Handle
Kenichi Handa <handa@m17n.org>
parents: 29921
diff changeset
3330 text = decode_coding_string (make_unibyte_string (chars, nbytes),
5d92193ed196 (read_process_output): Big simplification. Handle
Kenichi Handa <handa@m17n.org>
parents: 29921
diff changeset
3331 coding, 0);
30582
280157ad4aa3 *** empty log message ***
Kenichi Handa <handa@m17n.org>
parents: 30580
diff changeset
3332 Vlast_coding_system_used = coding->symbol;
30580
5d92193ed196 (read_process_output): Big simplification. Handle
Kenichi Handa <handa@m17n.org>
parents: 29921
diff changeset
3333 /* A new coding system might be found. See the comment in the
5d92193ed196 (read_process_output): Big simplification. Handle
Kenichi Handa <handa@m17n.org>
parents: 29921
diff changeset
3334 similar code in the previous `if' block. */
5d92193ed196 (read_process_output): Big simplification. Handle
Kenichi Handa <handa@m17n.org>
parents: 29921
diff changeset
3335 if (!EQ (p->decode_coding_system, coding->symbol))
5d92193ed196 (read_process_output): Big simplification. Handle
Kenichi Handa <handa@m17n.org>
parents: 29921
diff changeset
3336 {
5d92193ed196 (read_process_output): Big simplification. Handle
Kenichi Handa <handa@m17n.org>
parents: 29921
diff changeset
3337 p->decode_coding_system = coding->symbol;
5d92193ed196 (read_process_output): Big simplification. Handle
Kenichi Handa <handa@m17n.org>
parents: 29921
diff changeset
3338 if (NILP (p->encode_coding_system)
5d92193ed196 (read_process_output): Big simplification. Handle
Kenichi Handa <handa@m17n.org>
parents: 29921
diff changeset
3339 && proc_encode_coding_system[XINT (p->outfd)])
5d92193ed196 (read_process_output): Big simplification. Handle
Kenichi Handa <handa@m17n.org>
parents: 29921
diff changeset
3340 {
5d92193ed196 (read_process_output): Big simplification. Handle
Kenichi Handa <handa@m17n.org>
parents: 29921
diff changeset
3341 p->encode_coding_system = coding->symbol;
5d92193ed196 (read_process_output): Big simplification. Handle
Kenichi Handa <handa@m17n.org>
parents: 29921
diff changeset
3342 setup_coding_system (coding->symbol,
5d92193ed196 (read_process_output): Big simplification. Handle
Kenichi Handa <handa@m17n.org>
parents: 29921
diff changeset
3343 proc_encode_coding_system[XINT (p->outfd)]);
5d92193ed196 (read_process_output): Big simplification. Handle
Kenichi Handa <handa@m17n.org>
parents: 29921
diff changeset
3344 }
5d92193ed196 (read_process_output): Big simplification. Handle
Kenichi Handa <handa@m17n.org>
parents: 29921
diff changeset
3345 }
5d92193ed196 (read_process_output): Big simplification. Handle
Kenichi Handa <handa@m17n.org>
parents: 29921
diff changeset
3346 carryover = nbytes - coding->consumed;
5d92193ed196 (read_process_output): Big simplification. Handle
Kenichi Handa <handa@m17n.org>
parents: 29921
diff changeset
3347 bcopy (chars + coding->consumed, XSTRING (p->decoding_buf)->data,
5d92193ed196 (read_process_output): Big simplification. Handle
Kenichi Handa <handa@m17n.org>
parents: 29921
diff changeset
3348 carryover);
5d92193ed196 (read_process_output): Big simplification. Handle
Kenichi Handa <handa@m17n.org>
parents: 29921
diff changeset
3349 XSETINT (p->decoding_carryover, carryover);
31419
bd258f4dc0fa (read_process_output): Before inserting the decoded
Kenichi Handa <handa@m17n.org>
parents: 31136
diff changeset
3350 /* Adjust the multibyteness of TEXT to that of the buffer. */
bd258f4dc0fa (read_process_output): Before inserting the decoded
Kenichi Handa <handa@m17n.org>
parents: 31136
diff changeset
3351 if (NILP (current_buffer->enable_multibyte_characters)
bd258f4dc0fa (read_process_output): Before inserting the decoded
Kenichi Handa <handa@m17n.org>
parents: 31136
diff changeset
3352 != ! STRING_MULTIBYTE (text))
bd258f4dc0fa (read_process_output): Before inserting the decoded
Kenichi Handa <handa@m17n.org>
parents: 31136
diff changeset
3353 text = (STRING_MULTIBYTE (text)
32395
11b8c07e5fed (read_process_output): Cancel previous change.
Kenichi Handa <handa@m17n.org>
parents: 32371
diff changeset
3354 ? Fstring_as_unibyte (text)
11b8c07e5fed (read_process_output): Cancel previous change.
Kenichi Handa <handa@m17n.org>
parents: 32371
diff changeset
3355 : Fstring_as_multibyte (text));
30580
5d92193ed196 (read_process_output): Big simplification. Handle
Kenichi Handa <handa@m17n.org>
parents: 29921
diff changeset
3356 nbytes = STRING_BYTES (XSTRING (text));
5d92193ed196 (read_process_output): Big simplification. Handle
Kenichi Handa <handa@m17n.org>
parents: 29921
diff changeset
3357 nchars = XSTRING (text)->size;
32395
11b8c07e5fed (read_process_output): Cancel previous change.
Kenichi Handa <handa@m17n.org>
parents: 32371
diff changeset
3358 /* Insert before markers in case we are inserting where
11b8c07e5fed (read_process_output): Cancel previous change.
Kenichi Handa <handa@m17n.org>
parents: 32371
diff changeset
3359 the buffer's mark is, and the user's next command is Meta-y. */
30580
5d92193ed196 (read_process_output): Big simplification. Handle
Kenichi Handa <handa@m17n.org>
parents: 29921
diff changeset
3360 insert_from_string_before_markers (text, 0, 0, nchars, nbytes, 0);
29017
8f10362eb5ff (Fstart_process): GCPRO current_dir before calling
Kenichi Handa <handa@m17n.org>
parents: 28157
diff changeset
3361
34352
642fb6c53a10 (read_process_output): Make sure the process marker's
Gerd Moellmann <gerd@gnu.org>
parents: 32864
diff changeset
3362 /* Make sure the process marker's position is valid when the
642fb6c53a10 (read_process_output): Make sure the process marker's
Gerd Moellmann <gerd@gnu.org>
parents: 32864
diff changeset
3363 process buffer is changed in the signal_after_change above.
642fb6c53a10 (read_process_output): Make sure the process marker's
Gerd Moellmann <gerd@gnu.org>
parents: 32864
diff changeset
3364 W3 is known to do that. */
642fb6c53a10 (read_process_output): Make sure the process marker's
Gerd Moellmann <gerd@gnu.org>
parents: 32864
diff changeset
3365 if (BUFFERP (p->buffer)
642fb6c53a10 (read_process_output): Make sure the process marker's
Gerd Moellmann <gerd@gnu.org>
parents: 32864
diff changeset
3366 && (b = XBUFFER (p->buffer), b != current_buffer))
642fb6c53a10 (read_process_output): Make sure the process marker's
Gerd Moellmann <gerd@gnu.org>
parents: 32864
diff changeset
3367 set_marker_both (p->mark, p->buffer, BUF_PT (b), BUF_PT_BYTE (b));
642fb6c53a10 (read_process_output): Make sure the process marker's
Gerd Moellmann <gerd@gnu.org>
parents: 32864
diff changeset
3368 else
642fb6c53a10 (read_process_output): Make sure the process marker's
Gerd Moellmann <gerd@gnu.org>
parents: 32864
diff changeset
3369 set_marker_both (p->mark, p->buffer, PT, PT_BYTE);
1594
b476a97ad17e * systty.h, process.c, buffer.h, callproc.c, sysdep.c, dired.c:
Jim Blandy <jimb@redhat.com>
parents: 1569
diff changeset
3370
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3371 update_mode_lines++;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3372
17604
77b137e2d9a7 (read_process_output): Update opoint, old_begv and old_zv
Richard M. Stallman <rms@gnu.org>
parents: 17247
diff changeset
3373 /* Make sure opoint and the old restrictions
77b137e2d9a7 (read_process_output): Update opoint, old_begv and old_zv
Richard M. Stallman <rms@gnu.org>
parents: 17247
diff changeset
3374 float ahead of any new text just as point would. */
77b137e2d9a7 (read_process_output): Update opoint, old_begv and old_zv
Richard M. Stallman <rms@gnu.org>
parents: 17247
diff changeset
3375 if (opoint >= before)
20551
5f17380c85f1 (status_notify): Use byte and char pointers.
Richard M. Stallman <rms@gnu.org>
parents: 20433
diff changeset
3376 {
5f17380c85f1 (status_notify): Use byte and char pointers.
Richard M. Stallman <rms@gnu.org>
parents: 20433
diff changeset
3377 opoint += PT - before;
5f17380c85f1 (status_notify): Use byte and char pointers.
Richard M. Stallman <rms@gnu.org>
parents: 20433
diff changeset
3378 opoint_byte += PT_BYTE - before_byte;
5f17380c85f1 (status_notify): Use byte and char pointers.
Richard M. Stallman <rms@gnu.org>
parents: 20433
diff changeset
3379 }
17604
77b137e2d9a7 (read_process_output): Update opoint, old_begv and old_zv
Richard M. Stallman <rms@gnu.org>
parents: 17247
diff changeset
3380 if (old_begv > before)
20551
5f17380c85f1 (status_notify): Use byte and char pointers.
Richard M. Stallman <rms@gnu.org>
parents: 20433
diff changeset
3381 {
5f17380c85f1 (status_notify): Use byte and char pointers.
Richard M. Stallman <rms@gnu.org>
parents: 20433
diff changeset
3382 old_begv += PT - before;
5f17380c85f1 (status_notify): Use byte and char pointers.
Richard M. Stallman <rms@gnu.org>
parents: 20433
diff changeset
3383 old_begv_byte += PT_BYTE - before_byte;
5f17380c85f1 (status_notify): Use byte and char pointers.
Richard M. Stallman <rms@gnu.org>
parents: 20433
diff changeset
3384 }
17604
77b137e2d9a7 (read_process_output): Update opoint, old_begv and old_zv
Richard M. Stallman <rms@gnu.org>
parents: 17247
diff changeset
3385 if (old_zv >= before)
20551
5f17380c85f1 (status_notify): Use byte and char pointers.
Richard M. Stallman <rms@gnu.org>
parents: 20433
diff changeset
3386 {
5f17380c85f1 (status_notify): Use byte and char pointers.
Richard M. Stallman <rms@gnu.org>
parents: 20433
diff changeset
3387 old_zv += PT - before;
5f17380c85f1 (status_notify): Use byte and char pointers.
Richard M. Stallman <rms@gnu.org>
parents: 20433
diff changeset
3388 old_zv_byte += PT_BYTE - before_byte;
5f17380c85f1 (status_notify): Use byte and char pointers.
Richard M. Stallman <rms@gnu.org>
parents: 20433
diff changeset
3389 }
17604
77b137e2d9a7 (read_process_output): Update opoint, old_begv and old_zv
Richard M. Stallman <rms@gnu.org>
parents: 17247
diff changeset
3390
1594
b476a97ad17e * systty.h, process.c, buffer.h, callproc.c, sysdep.c, dired.c:
Jim Blandy <jimb@redhat.com>
parents: 1569
diff changeset
3391 /* If the restriction isn't what it should be, set it. */
17604
77b137e2d9a7 (read_process_output): Update opoint, old_begv and old_zv
Richard M. Stallman <rms@gnu.org>
parents: 17247
diff changeset
3392 if (old_begv != BEGV || old_zv != ZV)
77b137e2d9a7 (read_process_output): Update opoint, old_begv and old_zv
Richard M. Stallman <rms@gnu.org>
parents: 17247
diff changeset
3393 Fnarrow_to_region (make_number (old_begv), make_number (old_zv));
1594
b476a97ad17e * systty.h, process.c, buffer.h, callproc.c, sysdep.c, dired.c:
Jim Blandy <jimb@redhat.com>
parents: 1569
diff changeset
3394
3666
c7ff787b096f (read_process_output): Don't deactivate the mark.
Richard M. Stallman <rms@gnu.org>
parents: 3608
diff changeset
3395 /* 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
3396 Vdeactivate_mark = odeactivate;
b4a552ca4e99 (read_process_output): Deactivate the mark.
Richard M. Stallman <rms@gnu.org>
parents: 3238
diff changeset
3397
1594
b476a97ad17e * systty.h, process.c, buffer.h, callproc.c, sysdep.c, dired.c:
Jim Blandy <jimb@redhat.com>
parents: 1569
diff changeset
3398 current_buffer->read_only = old_read_only;
20551
5f17380c85f1 (status_notify): Use byte and char pointers.
Richard M. Stallman <rms@gnu.org>
parents: 20433
diff changeset
3399 SET_PT_BOTH (opoint, opoint_byte);
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3400 set_buffer_internal (old);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3401 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3402 #ifdef VMS
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3403 start_vms_process_read (vs);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3404 #endif
20594
6e5a5afbe628 (read_process_output): Use insert_1_both.
Richard M. Stallman <rms@gnu.org>
parents: 20551
diff changeset
3405 return nbytes;
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3406 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3407
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3408 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
3409 0, 0, 0,
40103
6b389fb978bc Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
3410 doc: /* Returns non-nil if emacs is waiting for input from the user.
6b389fb978bc Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
3411 This is intended for use by asynchronous process output filters and sentinels. */)
6b389fb978bc Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
3412 ()
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3413 {
7352
ef89b78c1a92 (wait_reading_process_input): Don't call prepare_menu_bars
Richard M. Stallman <rms@gnu.org>
parents: 7266
diff changeset
3414 return (waiting_for_user_input_p ? Qt : Qnil);
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3415 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3416
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3417 /* Sending data to subprocess */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3418
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3419 jmp_buf send_process_frame;
31806
b148beb59511 (process_sent_to): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 31419
diff changeset
3420 Lisp_Object process_sent_to;
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3421
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3422 SIGTYPE
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3423 send_process_trap ()
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3424 {
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3425 #ifdef BSD4_1
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3426 sigrelse (SIGPIPE);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3427 sigrelse (SIGALRM);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3428 #endif /* BSD4_1 */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3429 longjmp (send_process_frame, 1);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3430 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3431
8063
30861f2f4f84 (send_process): Major rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 7937
diff changeset
3432 /* Send some data to process PROC.
30861f2f4f84 (send_process): Major rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 7937
diff changeset
3433 BUF is the beginning of the data; LEN is the number of characters.
32864
21acd0c60f5d (send_process): If OBJECT is t, it means that the data
Kenichi Handa <handa@m17n.org>
parents: 32395
diff changeset
3434 OBJECT is the Lisp object that the data comes from. If OBJECT is
21acd0c60f5d (send_process): If OBJECT is t, it means that the data
Kenichi Handa <handa@m17n.org>
parents: 32395
diff changeset
3435 nil or t, it means that the data comes from C string.
21acd0c60f5d (send_process): If OBJECT is t, it means that the data
Kenichi Handa <handa@m17n.org>
parents: 32395
diff changeset
3436
21acd0c60f5d (send_process): If OBJECT is t, it means that the data
Kenichi Handa <handa@m17n.org>
parents: 32395
diff changeset
3437 If OBJECT is not nil, the data is encoded by PROC's coding-system
21acd0c60f5d (send_process): If OBJECT is t, it means that the data
Kenichi Handa <handa@m17n.org>
parents: 32395
diff changeset
3438 for encoding before it is sent.
28157
336858b2b11a (send_process): Add a hint that the function
Gerd Moellmann <gerd@gnu.org>
parents: 28012
diff changeset
3439
336858b2b11a (send_process): Add a hint that the function
Gerd Moellmann <gerd@gnu.org>
parents: 28012
diff changeset
3440 This function can evaluate Lisp code and can garbage collect. */
8063
30861f2f4f84 (send_process): Major rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 7937
diff changeset
3441
21514
fa9ff387d260 Fix -Wimplicit warnings.
Andreas Schwab <schwab@suse.de>
parents: 21414
diff changeset
3442 void
8063
30861f2f4f84 (send_process): Major rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 7937
diff changeset
3443 send_process (proc, buf, len, object)
11926
40d7e6f04ebe (create_process, send_process): Add volatile qualifiers.
Karl Heuer <kwzh@gnu.org>
parents: 11845
diff changeset
3444 volatile Lisp_Object proc;
31806
b148beb59511 (process_sent_to): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 31419
diff changeset
3445 unsigned char *volatile buf;
b148beb59511 (process_sent_to): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 31419
diff changeset
3446 volatile int len;
b148beb59511 (process_sent_to): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 31419
diff changeset
3447 volatile Lisp_Object object;
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3448 {
11926
40d7e6f04ebe (create_process, send_process): Add volatile qualifiers.
Karl Heuer <kwzh@gnu.org>
parents: 11845
diff changeset
3449 /* Use volatile to protect variables from being clobbered by longjmp. */
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3450 int rv;
17041
b61cbe595be5 Include charset.h and coding.h.
Karl Heuer <kwzh@gnu.org>
parents: 16780
diff changeset
3451 struct coding_system *coding;
15895
85112cca0b22 (send_process): GCPRO object.
Richard M. Stallman <rms@gnu.org>
parents: 15717
diff changeset
3452 struct gcpro gcpro1;
85112cca0b22 (send_process): GCPRO object.
Richard M. Stallman <rms@gnu.org>
parents: 15717
diff changeset
3453
85112cca0b22 (send_process): GCPRO object.
Richard M. Stallman <rms@gnu.org>
parents: 15717
diff changeset
3454 GCPRO1 (object);
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3455
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3456 #ifdef VMS
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3457 struct Lisp_Process *p = XPROCESS (proc);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3458 VMS_PROC_STUFF *vs, *get_vms_process_pointer();
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3459 #endif /* VMS */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3460
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3461 if (! NILP (XPROCESS (proc)->raw_status_low))
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3462 update_status (XPROCESS (proc));
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3463 if (! EQ (XPROCESS (proc)->status, Qrun))
28012
9c8bcd7e4a4f (send_process): Remove local variable `procname' that
Gerd Moellmann <gerd@gnu.org>
parents: 27861
diff changeset
3464 error ("Process %s not running",
9c8bcd7e4a4f (send_process): Remove local variable `procname' that
Gerd Moellmann <gerd@gnu.org>
parents: 27861
diff changeset
3465 XSTRING (XPROCESS (proc)->name)->data);
17041
b61cbe595be5 Include charset.h and coding.h.
Karl Heuer <kwzh@gnu.org>
parents: 16780
diff changeset
3466 if (XINT (XPROCESS (proc)->outfd) < 0)
28012
9c8bcd7e4a4f (send_process): Remove local variable `procname' that
Gerd Moellmann <gerd@gnu.org>
parents: 27861
diff changeset
3467 error ("Output file descriptor of %s is closed",
9c8bcd7e4a4f (send_process): Remove local variable `procname' that
Gerd Moellmann <gerd@gnu.org>
parents: 27861
diff changeset
3468 XSTRING (XPROCESS (proc)->name)->data);
17041
b61cbe595be5 Include charset.h and coding.h.
Karl Heuer <kwzh@gnu.org>
parents: 16780
diff changeset
3469
17110
3a348cbb354f (Fstart_process, Fopen_network_stream): Do not perform
Kenichi Handa <handa@m17n.org>
parents: 17041
diff changeset
3470 coding = proc_encode_coding_system[XINT (XPROCESS (proc)->outfd)];
20433
a43789debf48 (read_process_output): Fix previous change, i.e, if
Kenichi Handa <handa@m17n.org>
parents: 20428
diff changeset
3471 Vlast_coding_system_used = coding->symbol;
a43789debf48 (read_process_output): Fix previous change, i.e, if
Kenichi Handa <handa@m17n.org>
parents: 20428
diff changeset
3472
30580
5d92193ed196 (read_process_output): Big simplification. Handle
Kenichi Handa <handa@m17n.org>
parents: 29921
diff changeset
3473 if ((STRINGP (object) && STRING_MULTIBYTE (object))
5d92193ed196 (read_process_output): Big simplification. Handle
Kenichi Handa <handa@m17n.org>
parents: 29921
diff changeset
3474 || (BUFFERP (object)
32864
21acd0c60f5d (send_process): If OBJECT is t, it means that the data
Kenichi Handa <handa@m17n.org>
parents: 32395
diff changeset
3475 && !NILP (XBUFFER (object)->enable_multibyte_characters))
21acd0c60f5d (send_process): If OBJECT is t, it means that the data
Kenichi Handa <handa@m17n.org>
parents: 32395
diff changeset
3476 || EQ (object, Qt))
31136
d1344c992a9a (create_process): Don't setup raw-text coding here.
Kenichi Handa <handa@m17n.org>
parents: 31099
diff changeset
3477 {
d1344c992a9a (create_process): Don't setup raw-text coding here.
Kenichi Handa <handa@m17n.org>
parents: 31099
diff changeset
3478 if (!EQ (coding->symbol, XPROCESS (proc)->encode_coding_system))
d1344c992a9a (create_process): Don't setup raw-text coding here.
Kenichi Handa <handa@m17n.org>
parents: 31099
diff changeset
3479 /* The coding system for encoding was changed to raw-text
d1344c992a9a (create_process): Don't setup raw-text coding here.
Kenichi Handa <handa@m17n.org>
parents: 31099
diff changeset
3480 because we sent a unibyte text previously. Now we are
d1344c992a9a (create_process): Don't setup raw-text coding here.
Kenichi Handa <handa@m17n.org>
parents: 31099
diff changeset
3481 sending a multibyte text, thus we must encode it by the
d1344c992a9a (create_process): Don't setup raw-text coding here.
Kenichi Handa <handa@m17n.org>
parents: 31099
diff changeset
3482 original coding system specified for the current
d1344c992a9a (create_process): Don't setup raw-text coding here.
Kenichi Handa <handa@m17n.org>
parents: 31099
diff changeset
3483 process. */
42600
93254645e03b (send_process): Set src_multibyte to 1 after the call
Eli Zaretskii <eliz@gnu.org>
parents: 41969
diff changeset
3484 setup_coding_system (XPROCESS (proc)->encode_coding_system, coding);
93254645e03b (send_process): Set src_multibyte to 1 after the call
Eli Zaretskii <eliz@gnu.org>
parents: 41969
diff changeset
3485 /* src_multibyte should be set to 1 _after_ a call to
93254645e03b (send_process): Set src_multibyte to 1 after the call
Eli Zaretskii <eliz@gnu.org>
parents: 41969
diff changeset
3486 setup_coding_system, since it resets src_multibyte to
93254645e03b (send_process): Set src_multibyte to 1 after the call
Eli Zaretskii <eliz@gnu.org>
parents: 41969
diff changeset
3487 zero. */
93254645e03b (send_process): Set src_multibyte to 1 after the call
Eli Zaretskii <eliz@gnu.org>
parents: 41969
diff changeset
3488 coding->src_multibyte = 1;
31136
d1344c992a9a (create_process): Don't setup raw-text coding here.
Kenichi Handa <handa@m17n.org>
parents: 31099
diff changeset
3489 }
d1344c992a9a (create_process): Don't setup raw-text coding here.
Kenichi Handa <handa@m17n.org>
parents: 31099
diff changeset
3490 else
d1344c992a9a (create_process): Don't setup raw-text coding here.
Kenichi Handa <handa@m17n.org>
parents: 31099
diff changeset
3491 {
32864
21acd0c60f5d (send_process): If OBJECT is t, it means that the data
Kenichi Handa <handa@m17n.org>
parents: 32395
diff changeset
3492 /* For sending a unibyte text, character code conversion should
21acd0c60f5d (send_process): If OBJECT is t, it means that the data
Kenichi Handa <handa@m17n.org>
parents: 32395
diff changeset
3493 not take place but EOL conversion should. So, setup raw-text
21acd0c60f5d (send_process): If OBJECT is t, it means that the data
Kenichi Handa <handa@m17n.org>
parents: 32395
diff changeset
3494 or one of the subsidiary if we have not yet done it. */
21acd0c60f5d (send_process): If OBJECT is t, it means that the data
Kenichi Handa <handa@m17n.org>
parents: 32395
diff changeset
3495 if (coding->type != coding_type_raw_text)
21acd0c60f5d (send_process): If OBJECT is t, it means that the data
Kenichi Handa <handa@m17n.org>
parents: 32395
diff changeset
3496 {
21acd0c60f5d (send_process): If OBJECT is t, it means that the data
Kenichi Handa <handa@m17n.org>
parents: 32395
diff changeset
3497 if (CODING_REQUIRE_FLUSHING (coding))
21acd0c60f5d (send_process): If OBJECT is t, it means that the data
Kenichi Handa <handa@m17n.org>
parents: 32395
diff changeset
3498 {
21acd0c60f5d (send_process): If OBJECT is t, it means that the data
Kenichi Handa <handa@m17n.org>
parents: 32395
diff changeset
3499 /* But, before changing the coding, we must flush out data. */
21acd0c60f5d (send_process): If OBJECT is t, it means that the data
Kenichi Handa <handa@m17n.org>
parents: 32395
diff changeset
3500 coding->mode |= CODING_MODE_LAST_BLOCK;
21acd0c60f5d (send_process): If OBJECT is t, it means that the data
Kenichi Handa <handa@m17n.org>
parents: 32395
diff changeset
3501 send_process (proc, "", 0, Qt);
21acd0c60f5d (send_process): If OBJECT is t, it means that the data
Kenichi Handa <handa@m17n.org>
parents: 32395
diff changeset
3502 }
21acd0c60f5d (send_process): If OBJECT is t, it means that the data
Kenichi Handa <handa@m17n.org>
parents: 32395
diff changeset
3503 coding->src_multibyte = 0;
21acd0c60f5d (send_process): If OBJECT is t, it means that the data
Kenichi Handa <handa@m17n.org>
parents: 32395
diff changeset
3504 setup_raw_text_coding_system (coding);
21acd0c60f5d (send_process): If OBJECT is t, it means that the data
Kenichi Handa <handa@m17n.org>
parents: 32395
diff changeset
3505 }
31136
d1344c992a9a (create_process): Don't setup raw-text coding here.
Kenichi Handa <handa@m17n.org>
parents: 31099
diff changeset
3506 }
29017
8f10362eb5ff (Fstart_process): GCPRO current_dir before calling
Kenichi Handa <handa@m17n.org>
parents: 28157
diff changeset
3507 coding->dst_multibyte = 0;
8f10362eb5ff (Fstart_process): GCPRO current_dir before calling
Kenichi Handa <handa@m17n.org>
parents: 28157
diff changeset
3508
30580
5d92193ed196 (read_process_output): Big simplification. Handle
Kenichi Handa <handa@m17n.org>
parents: 29921
diff changeset
3509 if (CODING_REQUIRE_ENCODING (coding))
17041
b61cbe595be5 Include charset.h and coding.h.
Karl Heuer <kwzh@gnu.org>
parents: 16780
diff changeset
3510 {
b61cbe595be5 Include charset.h and coding.h.
Karl Heuer <kwzh@gnu.org>
parents: 16780
diff changeset
3511 int require = encoding_buffer_size (coding, len);
31806
b148beb59511 (process_sent_to): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 31419
diff changeset
3512 int from_byte = -1, from = -1, to = -1;
18585
64184009811b (send_process): Make buf and temp_buf `unsigned char *'.
Richard M. Stallman <rms@gnu.org>
parents: 18540
diff changeset
3513 unsigned char *temp_buf = NULL;
17041
b61cbe595be5 Include charset.h and coding.h.
Karl Heuer <kwzh@gnu.org>
parents: 16780
diff changeset
3514
30580
5d92193ed196 (read_process_output): Big simplification. Handle
Kenichi Handa <handa@m17n.org>
parents: 29921
diff changeset
3515 if (BUFFERP (object))
17041
b61cbe595be5 Include charset.h and coding.h.
Karl Heuer <kwzh@gnu.org>
parents: 16780
diff changeset
3516 {
30580
5d92193ed196 (read_process_output): Big simplification. Handle
Kenichi Handa <handa@m17n.org>
parents: 29921
diff changeset
3517 from_byte = BUF_PTR_BYTE_POS (XBUFFER (object), buf);
5d92193ed196 (read_process_output): Big simplification. Handle
Kenichi Handa <handa@m17n.org>
parents: 29921
diff changeset
3518 from = buf_bytepos_to_charpos (XBUFFER (object), from_byte);
5d92193ed196 (read_process_output): Big simplification. Handle
Kenichi Handa <handa@m17n.org>
parents: 29921
diff changeset
3519 to = buf_bytepos_to_charpos (XBUFFER (object), from_byte + len);
17041
b61cbe595be5 Include charset.h and coding.h.
Karl Heuer <kwzh@gnu.org>
parents: 16780
diff changeset
3520 }
30580
5d92193ed196 (read_process_output): Big simplification. Handle
Kenichi Handa <handa@m17n.org>
parents: 29921
diff changeset
3521 else if (STRINGP (object))
5d92193ed196 (read_process_output): Big simplification. Handle
Kenichi Handa <handa@m17n.org>
parents: 29921
diff changeset
3522 {
5d92193ed196 (read_process_output): Big simplification. Handle
Kenichi Handa <handa@m17n.org>
parents: 29921
diff changeset
3523 from_byte = buf - XSTRING (object)->data;
5d92193ed196 (read_process_output): Big simplification. Handle
Kenichi Handa <handa@m17n.org>
parents: 29921
diff changeset
3524 from = string_byte_to_char (object, from_byte);
5d92193ed196 (read_process_output): Big simplification. Handle
Kenichi Handa <handa@m17n.org>
parents: 29921
diff changeset
3525 to = string_byte_to_char (object, from_byte + len);
5d92193ed196 (read_process_output): Big simplification. Handle
Kenichi Handa <handa@m17n.org>
parents: 29921
diff changeset
3526 }
5d92193ed196 (read_process_output): Big simplification. Handle
Kenichi Handa <handa@m17n.org>
parents: 29921
diff changeset
3527
39429
9de129194439 (send_process): Disable composition if from_byte < 0.
Gerd Moellmann <gerd@gnu.org>
parents: 39406
diff changeset
3528 if (coding->composing != COMPOSITION_DISABLED)
9de129194439 (send_process): Disable composition if from_byte < 0.
Gerd Moellmann <gerd@gnu.org>
parents: 39406
diff changeset
3529 {
9de129194439 (send_process): Disable composition if from_byte < 0.
Gerd Moellmann <gerd@gnu.org>
parents: 39406
diff changeset
3530 if (from_byte >= 0)
9de129194439 (send_process): Disable composition if from_byte < 0.
Gerd Moellmann <gerd@gnu.org>
parents: 39406
diff changeset
3531 coding_save_composition (coding, from, to, object);
9de129194439 (send_process): Disable composition if from_byte < 0.
Gerd Moellmann <gerd@gnu.org>
parents: 39406
diff changeset
3532 else
9de129194439 (send_process): Disable composition if from_byte < 0.
Gerd Moellmann <gerd@gnu.org>
parents: 39406
diff changeset
3533 coding->composing = COMPOSITION_DISABLED;
9de129194439 (send_process): Disable composition if from_byte < 0.
Gerd Moellmann <gerd@gnu.org>
parents: 39406
diff changeset
3534 }
17041
b61cbe595be5 Include charset.h and coding.h.
Karl Heuer <kwzh@gnu.org>
parents: 16780
diff changeset
3535
21244
50929073a0ba Use STRING_BYTES and SET_STRING_BYTES.
Richard M. Stallman <rms@gnu.org>
parents: 21177
diff changeset
3536 if (STRING_BYTES (XSTRING (XPROCESS (proc)->encoding_buf)) < require)
30580
5d92193ed196 (read_process_output): Big simplification. Handle
Kenichi Handa <handa@m17n.org>
parents: 29921
diff changeset
3537 XPROCESS (proc)->encoding_buf = make_uninit_string (require);
5d92193ed196 (read_process_output): Big simplification. Handle
Kenichi Handa <handa@m17n.org>
parents: 29921
diff changeset
3538
5d92193ed196 (read_process_output): Big simplification. Handle
Kenichi Handa <handa@m17n.org>
parents: 29921
diff changeset
3539 if (from_byte >= 0)
5d92193ed196 (read_process_output): Big simplification. Handle
Kenichi Handa <handa@m17n.org>
parents: 29921
diff changeset
3540 buf = (BUFFERP (object)
5d92193ed196 (read_process_output): Big simplification. Handle
Kenichi Handa <handa@m17n.org>
parents: 29921
diff changeset
3541 ? BUF_BYTE_ADDRESS (XBUFFER (object), from_byte)
5d92193ed196 (read_process_output): Big simplification. Handle
Kenichi Handa <handa@m17n.org>
parents: 29921
diff changeset
3542 : XSTRING (object)->data + from_byte);
5d92193ed196 (read_process_output): Big simplification. Handle
Kenichi Handa <handa@m17n.org>
parents: 29921
diff changeset
3543
17041
b61cbe595be5 Include charset.h and coding.h.
Karl Heuer <kwzh@gnu.org>
parents: 16780
diff changeset
3544 object = XPROCESS (proc)->encoding_buf;
31806
b148beb59511 (process_sent_to): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 31419
diff changeset
3545 encode_coding (coding, (char *) buf, XSTRING (object)->data,
21244
50929073a0ba Use STRING_BYTES and SET_STRING_BYTES.
Richard M. Stallman <rms@gnu.org>
parents: 21177
diff changeset
3546 len, STRING_BYTES (XSTRING (object)));
20715
5e983ddb85c9 (Fstart_process): Use raw-text instead of emacs-mule
Kenichi Handa <handa@m17n.org>
parents: 20708
diff changeset
3547 len = coding->produced;
17041
b61cbe595be5 Include charset.h and coding.h.
Karl Heuer <kwzh@gnu.org>
parents: 16780
diff changeset
3548 buf = XSTRING (object)->data;
b61cbe595be5 Include charset.h and coding.h.
Karl Heuer <kwzh@gnu.org>
parents: 16780
diff changeset
3549 if (temp_buf)
b61cbe595be5 Include charset.h and coding.h.
Karl Heuer <kwzh@gnu.org>
parents: 16780
diff changeset
3550 xfree (temp_buf);
b61cbe595be5 Include charset.h and coding.h.
Karl Heuer <kwzh@gnu.org>
parents: 16780
diff changeset
3551 }
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3552
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3553 #ifdef VMS
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3554 vs = get_vms_process_pointer (p->pid);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3555 if (vs == 0)
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3556 error ("Could not find this process: %x", p->pid);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3557 else if (write_to_vms_process (vs, buf, len))
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3558 ;
31806
b148beb59511 (process_sent_to): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 31419
diff changeset
3559 #else /* not VMS */
8063
30861f2f4f84 (send_process): Major rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 7937
diff changeset
3560
30861f2f4f84 (send_process): Major rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 7937
diff changeset
3561 if (pty_max_bytes == 0)
30861f2f4f84 (send_process): Major rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 7937
diff changeset
3562 {
30861f2f4f84 (send_process): Major rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 7937
diff changeset
3563 #if defined (HAVE_FPATHCONF) && defined (_PC_MAX_CANON)
30861f2f4f84 (send_process): Major rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 7937
diff changeset
3564 pty_max_bytes = fpathconf (XFASTINT (XPROCESS (proc)->outfd),
30861f2f4f84 (send_process): Major rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 7937
diff changeset
3565 _PC_MAX_CANON);
30861f2f4f84 (send_process): Major rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 7937
diff changeset
3566 if (pty_max_bytes < 0)
30861f2f4f84 (send_process): Major rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 7937
diff changeset
3567 pty_max_bytes = 250;
30861f2f4f84 (send_process): Major rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 7937
diff changeset
3568 #else
30861f2f4f84 (send_process): Major rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 7937
diff changeset
3569 pty_max_bytes = 250;
30861f2f4f84 (send_process): Major rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 7937
diff changeset
3570 #endif
30861f2f4f84 (send_process): Major rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 7937
diff changeset
3571 /* Deduct one, to leave space for the eof. */
30861f2f4f84 (send_process): Major rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 7937
diff changeset
3572 pty_max_bytes--;
30861f2f4f84 (send_process): Major rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 7937
diff changeset
3573 }
30861f2f4f84 (send_process): Major rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 7937
diff changeset
3574
31806
b148beb59511 (process_sent_to): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 31419
diff changeset
3575 /* 2000-09-21: Emacs 20.7, sparc-sun-solaris-2.6, GCC 2.95.2,
b148beb59511 (process_sent_to): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 31419
diff changeset
3576 CFLAGS="-g -O": The value of the parameter `proc' is clobbered
b148beb59511 (process_sent_to): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 31419
diff changeset
3577 when returning with longjmp despite being declared volatile. */
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3578 if (!setjmp (send_process_frame))
31806
b148beb59511 (process_sent_to): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 31419
diff changeset
3579 {
b148beb59511 (process_sent_to): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 31419
diff changeset
3580 process_sent_to = proc;
b148beb59511 (process_sent_to): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 31419
diff changeset
3581 while (len > 0)
b148beb59511 (process_sent_to): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 31419
diff changeset
3582 {
b148beb59511 (process_sent_to): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 31419
diff changeset
3583 int this = len;
b148beb59511 (process_sent_to): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 31419
diff changeset
3584 SIGTYPE (*old_sigpipe)();
b148beb59511 (process_sent_to): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 31419
diff changeset
3585
b148beb59511 (process_sent_to): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 31419
diff changeset
3586 /* Decide how much data we can send in one batch.
b148beb59511 (process_sent_to): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 31419
diff changeset
3587 Long lines need to be split into multiple batches. */
b148beb59511 (process_sent_to): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 31419
diff changeset
3588 if (!NILP (XPROCESS (proc)->pty_flag))
b148beb59511 (process_sent_to): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 31419
diff changeset
3589 {
39812
66e0816837a8 Update calls to openp.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 39429
diff changeset
3590 /* Starting this at zero is always correct when not the first
66e0816837a8 Update calls to openp.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 39429
diff changeset
3591 iteration because the previous iteration ended by sending C-d.
31806
b148beb59511 (process_sent_to): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 31419
diff changeset
3592 It may not be correct for the first iteration
b148beb59511 (process_sent_to): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 31419
diff changeset
3593 if a partial line was sent in a separate send_process call.
b148beb59511 (process_sent_to): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 31419
diff changeset
3594 If that proves worth handling, we need to save linepos
b148beb59511 (process_sent_to): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 31419
diff changeset
3595 in the process object. */
b148beb59511 (process_sent_to): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 31419
diff changeset
3596 int linepos = 0;
b148beb59511 (process_sent_to): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 31419
diff changeset
3597 unsigned char *ptr = (unsigned char *) buf;
b148beb59511 (process_sent_to): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 31419
diff changeset
3598 unsigned char *end = (unsigned char *) buf + len;
b148beb59511 (process_sent_to): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 31419
diff changeset
3599
b148beb59511 (process_sent_to): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 31419
diff changeset
3600 /* Scan through this text for a line that is too long. */
b148beb59511 (process_sent_to): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 31419
diff changeset
3601 while (ptr != end && linepos < pty_max_bytes)
b148beb59511 (process_sent_to): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 31419
diff changeset
3602 {
b148beb59511 (process_sent_to): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 31419
diff changeset
3603 if (*ptr == '\n')
b148beb59511 (process_sent_to): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 31419
diff changeset
3604 linepos = 0;
b148beb59511 (process_sent_to): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 31419
diff changeset
3605 else
b148beb59511 (process_sent_to): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 31419
diff changeset
3606 linepos++;
b148beb59511 (process_sent_to): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 31419
diff changeset
3607 ptr++;
b148beb59511 (process_sent_to): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 31419
diff changeset
3608 }
b148beb59511 (process_sent_to): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 31419
diff changeset
3609 /* If we found one, break the line there
b148beb59511 (process_sent_to): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 31419
diff changeset
3610 and put in a C-d to force the buffer through. */
b148beb59511 (process_sent_to): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 31419
diff changeset
3611 this = ptr - buf;
b148beb59511 (process_sent_to): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 31419
diff changeset
3612 }
b148beb59511 (process_sent_to): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 31419
diff changeset
3613
b148beb59511 (process_sent_to): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 31419
diff changeset
3614 /* Send this batch, using one or more write calls. */
b148beb59511 (process_sent_to): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 31419
diff changeset
3615 while (this > 0)
b148beb59511 (process_sent_to): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 31419
diff changeset
3616 {
b148beb59511 (process_sent_to): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 31419
diff changeset
3617 old_sigpipe = (SIGTYPE (*) ()) signal (SIGPIPE, send_process_trap);
b148beb59511 (process_sent_to): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 31419
diff changeset
3618 rv = emacs_write (XINT (XPROCESS (proc)->outfd),
b148beb59511 (process_sent_to): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 31419
diff changeset
3619 (char *) buf, this);
b148beb59511 (process_sent_to): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 31419
diff changeset
3620 signal (SIGPIPE, old_sigpipe);
b148beb59511 (process_sent_to): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 31419
diff changeset
3621
b148beb59511 (process_sent_to): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 31419
diff changeset
3622 if (rv < 0)
b148beb59511 (process_sent_to): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 31419
diff changeset
3623 {
b148beb59511 (process_sent_to): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 31419
diff changeset
3624 if (0
8063
30861f2f4f84 (send_process): Major rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 7937
diff changeset
3625 #ifdef EWOULDBLOCK
31806
b148beb59511 (process_sent_to): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 31419
diff changeset
3626 || errno == EWOULDBLOCK
6158
6b81b2575071 Include unistd.h.
Richard M. Stallman <rms@gnu.org>
parents: 5891
diff changeset
3627 #endif
8063
30861f2f4f84 (send_process): Major rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 7937
diff changeset
3628 #ifdef EAGAIN
31806
b148beb59511 (process_sent_to): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 31419
diff changeset
3629 || errno == EAGAIN
8063
30861f2f4f84 (send_process): Major rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 7937
diff changeset
3630 #endif
31806
b148beb59511 (process_sent_to): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 31419
diff changeset
3631 )
b148beb59511 (process_sent_to): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 31419
diff changeset
3632 /* Buffer is full. Wait, accepting input;
b148beb59511 (process_sent_to): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 31419
diff changeset
3633 that may allow the program
b148beb59511 (process_sent_to): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 31419
diff changeset
3634 to finish doing output and read more. */
b148beb59511 (process_sent_to): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 31419
diff changeset
3635 {
b148beb59511 (process_sent_to): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 31419
diff changeset
3636 Lisp_Object zero;
b148beb59511 (process_sent_to): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 31419
diff changeset
3637 int offset = 0;
8063
30861f2f4f84 (send_process): Major rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 7937
diff changeset
3638
27705
2c53eb482802 (send_process) [BROKEN_PTY_READ_AFTER_EAGAIN]:
Gerd Moellmann <gerd@gnu.org>
parents: 27669
diff changeset
3639 #ifdef BROKEN_PTY_READ_AFTER_EAGAIN
31806
b148beb59511 (process_sent_to): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 31419
diff changeset
3640 /* A gross hack to work around a bug in FreeBSD.
b148beb59511 (process_sent_to): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 31419
diff changeset
3641 In the following sequence, read(2) returns
b148beb59511 (process_sent_to): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 31419
diff changeset
3642 bogus data:
b148beb59511 (process_sent_to): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 31419
diff changeset
3643
b148beb59511 (process_sent_to): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 31419
diff changeset
3644 write(2) 1022 bytes
b148beb59511 (process_sent_to): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 31419
diff changeset
3645 write(2) 954 bytes, get EAGAIN
b148beb59511 (process_sent_to): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 31419
diff changeset
3646 read(2) 1024 bytes in process_read_output
b148beb59511 (process_sent_to): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 31419
diff changeset
3647 read(2) 11 bytes in process_read_output
b148beb59511 (process_sent_to): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 31419
diff changeset
3648
b148beb59511 (process_sent_to): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 31419
diff changeset
3649 That is, read(2) returns more bytes than have
b148beb59511 (process_sent_to): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 31419
diff changeset
3650 ever been written successfully. The 1033 bytes
b148beb59511 (process_sent_to): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 31419
diff changeset
3651 read are the 1022 bytes written successfully
b148beb59511 (process_sent_to): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 31419
diff changeset
3652 after processing (for example with CRs added if
b148beb59511 (process_sent_to): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 31419
diff changeset
3653 the terminal is set up that way which it is
b148beb59511 (process_sent_to): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 31419
diff changeset
3654 here). The same bytes will be seen again in a
b148beb59511 (process_sent_to): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 31419
diff changeset
3655 later read(2), without the CRs. */
27705
2c53eb482802 (send_process) [BROKEN_PTY_READ_AFTER_EAGAIN]:
Gerd Moellmann <gerd@gnu.org>
parents: 27669
diff changeset
3656
31806
b148beb59511 (process_sent_to): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 31419
diff changeset
3657 if (errno == EAGAIN)
b148beb59511 (process_sent_to): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 31419
diff changeset
3658 {
b148beb59511 (process_sent_to): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 31419
diff changeset
3659 int flags = FWRITE;
b148beb59511 (process_sent_to): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 31419
diff changeset
3660 ioctl (XINT (XPROCESS (proc)->outfd), TIOCFLUSH,
b148beb59511 (process_sent_to): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 31419
diff changeset
3661 &flags);
b148beb59511 (process_sent_to): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 31419
diff changeset
3662 }
27705
2c53eb482802 (send_process) [BROKEN_PTY_READ_AFTER_EAGAIN]:
Gerd Moellmann <gerd@gnu.org>
parents: 27669
diff changeset
3663 #endif /* BROKEN_PTY_READ_AFTER_EAGAIN */
2c53eb482802 (send_process) [BROKEN_PTY_READ_AFTER_EAGAIN]:
Gerd Moellmann <gerd@gnu.org>
parents: 27669
diff changeset
3664
31806
b148beb59511 (process_sent_to): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 31419
diff changeset
3665 /* Running filters might relocate buffers or strings.
b148beb59511 (process_sent_to): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 31419
diff changeset
3666 Arrange to relocate BUF. */
b148beb59511 (process_sent_to): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 31419
diff changeset
3667 if (BUFFERP (object))
b148beb59511 (process_sent_to): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 31419
diff changeset
3668 offset = BUF_PTR_BYTE_POS (XBUFFER (object), buf);
b148beb59511 (process_sent_to): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 31419
diff changeset
3669 else if (STRINGP (object))
b148beb59511 (process_sent_to): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 31419
diff changeset
3670 offset = buf - XSTRING (object)->data;
b148beb59511 (process_sent_to): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 31419
diff changeset
3671
b148beb59511 (process_sent_to): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 31419
diff changeset
3672 XSETFASTINT (zero, 0);
16718
ea26040865cb (send_process) [EMACS_HAS_USECS]:
Richard M. Stallman <rms@gnu.org>
parents: 16644
diff changeset
3673 #ifdef EMACS_HAS_USECS
31806
b148beb59511 (process_sent_to): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 31419
diff changeset
3674 wait_reading_process_input (0, 20000, zero, 0);
16718
ea26040865cb (send_process) [EMACS_HAS_USECS]:
Richard M. Stallman <rms@gnu.org>
parents: 16644
diff changeset
3675 #else
31806
b148beb59511 (process_sent_to): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 31419
diff changeset
3676 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
3677 #endif
8063
30861f2f4f84 (send_process): Major rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 7937
diff changeset
3678
31806
b148beb59511 (process_sent_to): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 31419
diff changeset
3679 if (BUFFERP (object))
b148beb59511 (process_sent_to): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 31419
diff changeset
3680 buf = BUF_BYTE_ADDRESS (XBUFFER (object), offset);
b148beb59511 (process_sent_to): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 31419
diff changeset
3681 else if (STRINGP (object))
b148beb59511 (process_sent_to): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 31419
diff changeset
3682 buf = offset + XSTRING (object)->data;
b148beb59511 (process_sent_to): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 31419
diff changeset
3683
b148beb59511 (process_sent_to): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 31419
diff changeset
3684 rv = 0;
b148beb59511 (process_sent_to): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 31419
diff changeset
3685 }
b148beb59511 (process_sent_to): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 31419
diff changeset
3686 else
b148beb59511 (process_sent_to): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 31419
diff changeset
3687 /* This is a real error. */
b148beb59511 (process_sent_to): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 31419
diff changeset
3688 report_file_error ("writing to process", Fcons (proc, Qnil));
b148beb59511 (process_sent_to): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 31419
diff changeset
3689 }
b148beb59511 (process_sent_to): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 31419
diff changeset
3690 buf += rv;
b148beb59511 (process_sent_to): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 31419
diff changeset
3691 len -= rv;
b148beb59511 (process_sent_to): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 31419
diff changeset
3692 this -= rv;
b148beb59511 (process_sent_to): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 31419
diff changeset
3693 }
b148beb59511 (process_sent_to): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 31419
diff changeset
3694
b148beb59511 (process_sent_to): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 31419
diff changeset
3695 /* If we sent just part of the string, put in an EOF
b148beb59511 (process_sent_to): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 31419
diff changeset
3696 to force it through, before we send the rest. */
b148beb59511 (process_sent_to): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 31419
diff changeset
3697 if (len > 0)
b148beb59511 (process_sent_to): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 31419
diff changeset
3698 Fprocess_send_eof (proc);
b148beb59511 (process_sent_to): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 31419
diff changeset
3699 }
b148beb59511 (process_sent_to): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 31419
diff changeset
3700 }
b148beb59511 (process_sent_to): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 31419
diff changeset
3701 #endif /* not VMS */
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3702 else
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3703 {
31806
b148beb59511 (process_sent_to): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 31419
diff changeset
3704 #ifndef VMS
b148beb59511 (process_sent_to): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 31419
diff changeset
3705 proc = process_sent_to;
b148beb59511 (process_sent_to): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 31419
diff changeset
3706 #endif
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3707 XPROCESS (proc)->raw_status_low = Qnil;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3708 XPROCESS (proc)->raw_status_high = Qnil;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3709 XPROCESS (proc)->status = Fcons (Qexit, Fcons (make_number (256), Qnil));
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3710 XSETINT (XPROCESS (proc)->tick, ++process_tick);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3711 deactivate_process (proc);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3712 #ifdef VMS
28012
9c8bcd7e4a4f (send_process): Remove local variable `procname' that
Gerd Moellmann <gerd@gnu.org>
parents: 27861
diff changeset
3713 error ("Error writing to process %s; closed it",
9c8bcd7e4a4f (send_process): Remove local variable `procname' that
Gerd Moellmann <gerd@gnu.org>
parents: 27861
diff changeset
3714 XSTRING (XPROCESS (proc)->name)->data);
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3715 #else
28012
9c8bcd7e4a4f (send_process): Remove local variable `procname' that
Gerd Moellmann <gerd@gnu.org>
parents: 27861
diff changeset
3716 error ("SIGPIPE raised on process %s; closed it",
9c8bcd7e4a4f (send_process): Remove local variable `procname' that
Gerd Moellmann <gerd@gnu.org>
parents: 27861
diff changeset
3717 XSTRING (XPROCESS (proc)->name)->data);
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3718 #endif
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3719 }
15895
85112cca0b22 (send_process): GCPRO object.
Richard M. Stallman <rms@gnu.org>
parents: 15717
diff changeset
3720
85112cca0b22 (send_process): GCPRO object.
Richard M. Stallman <rms@gnu.org>
parents: 15717
diff changeset
3721 UNGCPRO;
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3722 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3723
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3724 DEFUN ("process-send-region", Fprocess_send_region, Sprocess_send_region,
40103
6b389fb978bc Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
3725 3, 3, 0,
6b389fb978bc Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
3726 doc: /* Send current contents of region as input to PROCESS.
6b389fb978bc Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
3727 PROCESS may be a process, a buffer, the name of a process or buffer, or
6b389fb978bc Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
3728 nil, indicating the current buffer's process.
6b389fb978bc Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
3729 Called from program, takes three arguments, PROCESS, START and END.
6b389fb978bc Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
3730 If the region is more than 500 characters long,
6b389fb978bc Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
3731 it is sent in several bunches. This may happen even for shorter regions.
6b389fb978bc Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
3732 Output from processes can arrive in between bunches. */)
6b389fb978bc Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
3733 (process, start, end)
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3734 Lisp_Object process, start, end;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3735 {
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3736 Lisp_Object proc;
20551
5f17380c85f1 (status_notify): Use byte and char pointers.
Richard M. Stallman <rms@gnu.org>
parents: 20433
diff changeset
3737 int start1, end1;
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3738
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3739 proc = get_process (process);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3740 validate_region (&start, &end);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3741
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3742 if (XINT (start) < GPT && XINT (end) > GPT)
18739
60f002497be1 (Fprocess_send_region): Convert move_gap argument to int.
Richard M. Stallman <rms@gnu.org>
parents: 18708
diff changeset
3743 move_gap (XINT (start));
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3744
20551
5f17380c85f1 (status_notify): Use byte and char pointers.
Richard M. Stallman <rms@gnu.org>
parents: 20433
diff changeset
3745 start1 = CHAR_TO_BYTE (XINT (start));
5f17380c85f1 (status_notify): Use byte and char pointers.
Richard M. Stallman <rms@gnu.org>
parents: 20433
diff changeset
3746 end1 = CHAR_TO_BYTE (XINT (end));
5f17380c85f1 (status_notify): Use byte and char pointers.
Richard M. Stallman <rms@gnu.org>
parents: 20433
diff changeset
3747 send_process (proc, BYTE_POS_ADDR (start1), end1 - start1,
8063
30861f2f4f84 (send_process): Major rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 7937
diff changeset
3748 Fcurrent_buffer ());
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3749
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3750 return Qnil;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3751 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3752
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3753 DEFUN ("process-send-string", Fprocess_send_string, Sprocess_send_string,
40103
6b389fb978bc Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
3754 2, 2, 0,
6b389fb978bc Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
3755 doc: /* Send PROCESS the contents of STRING as input.
6b389fb978bc Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
3756 PROCESS may be a process, a buffer, the name of a process or buffer, or
6b389fb978bc Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
3757 nil, indicating the current buffer's process.
6b389fb978bc Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
3758 If STRING is more than 500 characters long,
6b389fb978bc Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
3759 it is sent in several bunches. This may happen even for shorter strings.
6b389fb978bc Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
3760 Output from processes can arrive in between bunches. */)
6b389fb978bc Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
3761 (process, string)
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3762 Lisp_Object process, string;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3763 {
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3764 Lisp_Object proc;
40656
cdfd4d09b79a Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents: 40641
diff changeset
3765 CHECK_STRING (string);
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3766 proc = get_process (process);
20594
6e5a5afbe628 (read_process_output): Use insert_1_both.
Richard M. Stallman <rms@gnu.org>
parents: 20551
diff changeset
3767 send_process (proc, XSTRING (string)->data,
21244
50929073a0ba Use STRING_BYTES and SET_STRING_BYTES.
Richard M. Stallman <rms@gnu.org>
parents: 21177
diff changeset
3768 STRING_BYTES (XSTRING (string)), string);
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3769 return Qnil;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3770 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3771
24352
023601636a18 (syms_of_process): defsubr it.
Richard M. Stallman <rms@gnu.org>
parents: 23930
diff changeset
3772 DEFUN ("process-running-child-p", Fprocess_running_child_p,
023601636a18 (syms_of_process): defsubr it.
Richard M. Stallman <rms@gnu.org>
parents: 23930
diff changeset
3773 Sprocess_running_child_p, 0, 1, 0,
40103
6b389fb978bc Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
3774 doc: /* Return t if PROCESS has given the terminal to a child.
6b389fb978bc Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
3775 If the operating system does not make it possible to find out,
6b389fb978bc Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
3776 return t unconditionally. */)
6b389fb978bc Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
3777 (process)
24352
023601636a18 (syms_of_process): defsubr it.
Richard M. Stallman <rms@gnu.org>
parents: 23930
diff changeset
3778 Lisp_Object process;
023601636a18 (syms_of_process): defsubr it.
Richard M. Stallman <rms@gnu.org>
parents: 23930
diff changeset
3779 {
023601636a18 (syms_of_process): defsubr it.
Richard M. Stallman <rms@gnu.org>
parents: 23930
diff changeset
3780 /* Initialize in case ioctl doesn't exist or gives an error,
023601636a18 (syms_of_process): defsubr it.
Richard M. Stallman <rms@gnu.org>
parents: 23930
diff changeset
3781 in a way that will cause returning t. */
023601636a18 (syms_of_process): defsubr it.
Richard M. Stallman <rms@gnu.org>
parents: 23930
diff changeset
3782 int gid = 0;
023601636a18 (syms_of_process): defsubr it.
Richard M. Stallman <rms@gnu.org>
parents: 23930
diff changeset
3783 Lisp_Object proc;
023601636a18 (syms_of_process): defsubr it.
Richard M. Stallman <rms@gnu.org>
parents: 23930
diff changeset
3784 struct Lisp_Process *p;
023601636a18 (syms_of_process): defsubr it.
Richard M. Stallman <rms@gnu.org>
parents: 23930
diff changeset
3785
023601636a18 (syms_of_process): defsubr it.
Richard M. Stallman <rms@gnu.org>
parents: 23930
diff changeset
3786 proc = get_process (process);
023601636a18 (syms_of_process): defsubr it.
Richard M. Stallman <rms@gnu.org>
parents: 23930
diff changeset
3787 p = XPROCESS (proc);
023601636a18 (syms_of_process): defsubr it.
Richard M. Stallman <rms@gnu.org>
parents: 23930
diff changeset
3788
023601636a18 (syms_of_process): defsubr it.
Richard M. Stallman <rms@gnu.org>
parents: 23930
diff changeset
3789 if (!EQ (p->childp, Qt))
023601636a18 (syms_of_process): defsubr it.
Richard M. Stallman <rms@gnu.org>
parents: 23930
diff changeset
3790 error ("Process %s is not a subprocess",
023601636a18 (syms_of_process): defsubr it.
Richard M. Stallman <rms@gnu.org>
parents: 23930
diff changeset
3791 XSTRING (p->name)->data);
023601636a18 (syms_of_process): defsubr it.
Richard M. Stallman <rms@gnu.org>
parents: 23930
diff changeset
3792 if (XINT (p->infd) < 0)
023601636a18 (syms_of_process): defsubr it.
Richard M. Stallman <rms@gnu.org>
parents: 23930
diff changeset
3793 error ("Process %s is not active",
023601636a18 (syms_of_process): defsubr it.
Richard M. Stallman <rms@gnu.org>
parents: 23930
diff changeset
3794 XSTRING (p->name)->data);
023601636a18 (syms_of_process): defsubr it.
Richard M. Stallman <rms@gnu.org>
parents: 23930
diff changeset
3795
023601636a18 (syms_of_process): defsubr it.
Richard M. Stallman <rms@gnu.org>
parents: 23930
diff changeset
3796 #ifdef TIOCGPGRP
023601636a18 (syms_of_process): defsubr it.
Richard M. Stallman <rms@gnu.org>
parents: 23930
diff changeset
3797 if (!NILP (p->subtty))
023601636a18 (syms_of_process): defsubr it.
Richard M. Stallman <rms@gnu.org>
parents: 23930
diff changeset
3798 ioctl (XFASTINT (p->subtty), TIOCGPGRP, &gid);
023601636a18 (syms_of_process): defsubr it.
Richard M. Stallman <rms@gnu.org>
parents: 23930
diff changeset
3799 else
023601636a18 (syms_of_process): defsubr it.
Richard M. Stallman <rms@gnu.org>
parents: 23930
diff changeset
3800 ioctl (XINT (p->infd), TIOCGPGRP, &gid);
023601636a18 (syms_of_process): defsubr it.
Richard M. Stallman <rms@gnu.org>
parents: 23930
diff changeset
3801 #endif /* defined (TIOCGPGRP ) */
023601636a18 (syms_of_process): defsubr it.
Richard M. Stallman <rms@gnu.org>
parents: 23930
diff changeset
3802
023601636a18 (syms_of_process): defsubr it.
Richard M. Stallman <rms@gnu.org>
parents: 23930
diff changeset
3803 if (gid == XFASTINT (p->pid))
023601636a18 (syms_of_process): defsubr it.
Richard M. Stallman <rms@gnu.org>
parents: 23930
diff changeset
3804 return Qnil;
023601636a18 (syms_of_process): defsubr it.
Richard M. Stallman <rms@gnu.org>
parents: 23930
diff changeset
3805 return Qt;
023601636a18 (syms_of_process): defsubr it.
Richard M. Stallman <rms@gnu.org>
parents: 23930
diff changeset
3806 }
023601636a18 (syms_of_process): defsubr it.
Richard M. Stallman <rms@gnu.org>
parents: 23930
diff changeset
3807
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3808 /* send a signal number SIGNO to PROCESS.
24352
023601636a18 (syms_of_process): defsubr it.
Richard M. Stallman <rms@gnu.org>
parents: 23930
diff changeset
3809 If CURRENT_GROUP is t, that means send to the process group
023601636a18 (syms_of_process): defsubr it.
Richard M. Stallman <rms@gnu.org>
parents: 23930
diff changeset
3810 that currently owns the terminal being used to communicate with PROCESS.
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3811 This is used for various commands in shell mode.
24352
023601636a18 (syms_of_process): defsubr it.
Richard M. Stallman <rms@gnu.org>
parents: 23930
diff changeset
3812 If CURRENT_GROUP is lambda, that means send to the process group
023601636a18 (syms_of_process): defsubr it.
Richard M. Stallman <rms@gnu.org>
parents: 23930
diff changeset
3813 that currently owns the terminal, but only if it is NOT the shell itself.
023601636a18 (syms_of_process): defsubr it.
Richard M. Stallman <rms@gnu.org>
parents: 23930
diff changeset
3814
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3815 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
3816 right away.
b476a97ad17e * systty.h, process.c, buffer.h, callproc.c, sysdep.c, dired.c:
Jim Blandy <jimb@redhat.com>
parents: 1569
diff changeset
3817
b476a97ad17e * systty.h, process.c, buffer.h, callproc.c, sysdep.c, dired.c:
Jim Blandy <jimb@redhat.com>
parents: 1569
diff changeset
3818 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
3819 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
3820 their uid, for which killpg would return an EPERM error. */
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3821
1522
19ccf004b172 * process.c: (status_convert): Declare this to return a
Jim Blandy <jimb@redhat.com>
parents: 1323
diff changeset
3822 static void
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3823 process_send_signal (process, signo, current_group, nomsg)
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3824 Lisp_Object process;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3825 int signo;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3826 Lisp_Object current_group;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3827 int nomsg;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3828 {
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3829 Lisp_Object proc;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3830 register struct Lisp_Process *p;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3831 int gid;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3832 int no_pgrp = 0;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3833
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3834 proc = get_process (process);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3835 p = XPROCESS (proc);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3836
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3837 if (!EQ (p->childp, Qt))
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3838 error ("Process %s is not a subprocess",
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3839 XSTRING (p->name)->data);
5134
0a4e46e15304 (wait_reading_process_input):
Richard M. Stallman <rms@gnu.org>
parents: 4998
diff changeset
3840 if (XINT (p->infd) < 0)
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3841 error ("Process %s is not active",
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3842 XSTRING (p->name)->data);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3843
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3844 if (NILP (p->pty_flag))
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3845 current_group = Qnil;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3846
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3847 /* If we are using pgrps, get a pgrp number and make it negative. */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3848 if (!NILP (current_group))
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3849 {
1594
b476a97ad17e * systty.h, process.c, buffer.h, callproc.c, sysdep.c, dired.c:
Jim Blandy <jimb@redhat.com>
parents: 1569
diff changeset
3850 #ifdef SIGNALS_VIA_CHARACTERS
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3851 /* If possible, send signals to the entire pgrp
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3852 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
3853
1925
3ddb163a9201 * process.c: Make sure we don't miss processes exiting, by having
Jim Blandy <jimb@redhat.com>
parents: 1886
diff changeset
3854 /* 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
3855 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
3856 #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
3857 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
3858
3ddb163a9201 * process.c: Make sure we don't miss processes exiting, by having
Jim Blandy <jimb@redhat.com>
parents: 1886
diff changeset
3859 switch (signo)
3ddb163a9201 * process.c: Make sure we don't miss processes exiting, by having
Jim Blandy <jimb@redhat.com>
parents: 1886
diff changeset
3860 {
3ddb163a9201 * process.c: Make sure we don't miss processes exiting, by having
Jim Blandy <jimb@redhat.com>
parents: 1886
diff changeset
3861 case SIGINT:
5134
0a4e46e15304 (wait_reading_process_input):
Richard M. Stallman <rms@gnu.org>
parents: 4998
diff changeset
3862 tcgetattr (XINT (p->infd), &t);
8063
30861f2f4f84 (send_process): Major rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 7937
diff changeset
3863 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
3864 return;
1925
3ddb163a9201 * process.c: Make sure we don't miss processes exiting, by having
Jim Blandy <jimb@redhat.com>
parents: 1886
diff changeset
3865
3ddb163a9201 * process.c: Make sure we don't miss processes exiting, by having
Jim Blandy <jimb@redhat.com>
parents: 1886
diff changeset
3866 case SIGQUIT:
5134
0a4e46e15304 (wait_reading_process_input):
Richard M. Stallman <rms@gnu.org>
parents: 4998
diff changeset
3867 tcgetattr (XINT (p->infd), &t);
8063
30861f2f4f84 (send_process): Major rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 7937
diff changeset
3868 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
3869 return;
1925
3ddb163a9201 * process.c: Make sure we don't miss processes exiting, by having
Jim Blandy <jimb@redhat.com>
parents: 1886
diff changeset
3870
3ddb163a9201 * process.c: Make sure we don't miss processes exiting, by having
Jim Blandy <jimb@redhat.com>
parents: 1886
diff changeset
3871 case SIGTSTP:
5134
0a4e46e15304 (wait_reading_process_input):
Richard M. Stallman <rms@gnu.org>
parents: 4998
diff changeset
3872 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
3873 #if defined (VSWTCH) && !defined (PREFER_VSUSP)
8063
30861f2f4f84 (send_process): Major rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 7937
diff changeset
3874 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
3875 #else
8063
30861f2f4f84 (send_process): Major rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 7937
diff changeset
3876 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
3877 #endif
2120
fc3cdca22f8d * process.c (process_send_signal): In the TERMIOS code for sending
Jim Blandy <jimb@redhat.com>
parents: 1925
diff changeset
3878 return;
1925
3ddb163a9201 * process.c: Make sure we don't miss processes exiting, by having
Jim Blandy <jimb@redhat.com>
parents: 1886
diff changeset
3879 }
3ddb163a9201 * process.c: Make sure we don't miss processes exiting, by having
Jim Blandy <jimb@redhat.com>
parents: 1886
diff changeset
3880
3ddb163a9201 * process.c: Make sure we don't miss processes exiting, by having
Jim Blandy <jimb@redhat.com>
parents: 1886
diff changeset
3881 #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
3882
1594
b476a97ad17e * systty.h, process.c, buffer.h, callproc.c, sysdep.c, dired.c:
Jim Blandy <jimb@redhat.com>
parents: 1569
diff changeset
3883 /* 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
3884 current control characters. */
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3885 #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
3886
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3887 struct tchars c;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3888 struct ltchars lc;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3889
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3890 switch (signo)
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3891 {
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3892 case SIGINT:
5134
0a4e46e15304 (wait_reading_process_input):
Richard M. Stallman <rms@gnu.org>
parents: 4998
diff changeset
3893 ioctl (XINT (p->infd), TIOCGETC, &c);
8063
30861f2f4f84 (send_process): Major rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 7937
diff changeset
3894 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
3895 return;
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3896 case SIGQUIT:
5134
0a4e46e15304 (wait_reading_process_input):
Richard M. Stallman <rms@gnu.org>
parents: 4998
diff changeset
3897 ioctl (XINT (p->infd), TIOCGETC, &c);
8063
30861f2f4f84 (send_process): Major rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 7937
diff changeset
3898 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
3899 return;
1012
a48ed1d416dd * process.c (process_send_signal): Don't send SIGTSTP if the
Jim Blandy <jimb@redhat.com>
parents: 849
diff changeset
3900 #ifdef SIGTSTP
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3901 case SIGTSTP:
5134
0a4e46e15304 (wait_reading_process_input):
Richard M. Stallman <rms@gnu.org>
parents: 4998
diff changeset
3902 ioctl (XINT (p->infd), TIOCGLTC, &lc);
8063
30861f2f4f84 (send_process): Major rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 7937
diff changeset
3903 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
3904 return;
1594
b476a97ad17e * systty.h, process.c, buffer.h, callproc.c, sysdep.c, dired.c:
Jim Blandy <jimb@redhat.com>
parents: 1569
diff changeset
3905 #endif /* ! defined (SIGTSTP) */
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3906 }
1594
b476a97ad17e * systty.h, process.c, buffer.h, callproc.c, sysdep.c, dired.c:
Jim Blandy <jimb@redhat.com>
parents: 1569
diff changeset
3907
b476a97ad17e * systty.h, process.c, buffer.h, callproc.c, sysdep.c, dired.c:
Jim Blandy <jimb@redhat.com>
parents: 1569
diff changeset
3908 #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
3909
b476a97ad17e * systty.h, process.c, buffer.h, callproc.c, sysdep.c, dired.c:
Jim Blandy <jimb@redhat.com>
parents: 1569
diff changeset
3910 /* 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
3911 characters. */
b476a97ad17e * systty.h, process.c, buffer.h, callproc.c, sysdep.c, dired.c:
Jim Blandy <jimb@redhat.com>
parents: 1569
diff changeset
3912 #ifdef TCGETA
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3913 struct termio t;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3914 switch (signo)
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3915 {
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3916 case SIGINT:
5134
0a4e46e15304 (wait_reading_process_input):
Richard M. Stallman <rms@gnu.org>
parents: 4998
diff changeset
3917 ioctl (XINT (p->infd), TCGETA, &t);
8063
30861f2f4f84 (send_process): Major rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 7937
diff changeset
3918 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
3919 return;
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3920 case SIGQUIT:
5134
0a4e46e15304 (wait_reading_process_input):
Richard M. Stallman <rms@gnu.org>
parents: 4998
diff changeset
3921 ioctl (XINT (p->infd), TCGETA, &t);
8063
30861f2f4f84 (send_process): Major rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 7937
diff changeset
3922 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
3923 return;
1569
52a69b6a8f96 * process.c [SYSV]: Don't include <termios.h>, <termio.h>, or
Jim Blandy <jimb@redhat.com>
parents: 1522
diff changeset
3924 #ifdef SIGTSTP
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3925 case SIGTSTP:
5134
0a4e46e15304 (wait_reading_process_input):
Richard M. Stallman <rms@gnu.org>
parents: 4998
diff changeset
3926 ioctl (XINT (p->infd), TCGETA, &t);
8063
30861f2f4f84 (send_process): Major rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 7937
diff changeset
3927 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
3928 return;
1594
b476a97ad17e * systty.h, process.c, buffer.h, callproc.c, sysdep.c, dired.c:
Jim Blandy <jimb@redhat.com>
parents: 1569
diff changeset
3929 #endif /* ! defined (SIGTSTP) */
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3930 }
1594
b476a97ad17e * systty.h, process.c, buffer.h, callproc.c, sysdep.c, dired.c:
Jim Blandy <jimb@redhat.com>
parents: 1569
diff changeset
3931 #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
3932 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
3933 /* 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
3934 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
3935 #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
3936 #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
3937 #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
3938 #endif /* ! defined (SIGNALS_VIA_CHARACTERS) */
849
c7b49118e101 entered into RCS
Jim Blandy <jimb@redhat.com>
parents: 822
diff changeset
3939
c7b49118e101 entered into RCS
Jim Blandy <jimb@redhat.com>
parents: 822
diff changeset
3940 #ifdef TIOCGPGRP
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3941 /* Get the pgrp using the tty itself, if we have that.
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3942 Otherwise, use the pty to get the pgrp.
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3943 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
3944 "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
3945 But, TIOCGPGRP does not work on E50 ;-P works fine on E60"
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3946 His patch indicates that if TIOCGPGRP returns an error, then
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3947 we should just assume that p->pid is also the process group id. */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3948 {
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3949 int err;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3950
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3951 if (!NILP (p->subtty))
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3952 err = ioctl (XFASTINT (p->subtty), TIOCGPGRP, &gid);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3953 else
5134
0a4e46e15304 (wait_reading_process_input):
Richard M. Stallman <rms@gnu.org>
parents: 4998
diff changeset
3954 err = ioctl (XINT (p->infd), TIOCGPGRP, &gid);
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3955
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3956 #ifdef pfa
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3957 if (err == -1)
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3958 gid = - XFASTINT (p->pid);
849
c7b49118e101 entered into RCS
Jim Blandy <jimb@redhat.com>
parents: 822
diff changeset
3959 #endif /* ! defined (pfa) */
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3960 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3961 if (gid == -1)
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3962 no_pgrp = 1;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3963 else
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3964 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
3965 #else /* ! defined (TIOCGPGRP ) */
849
c7b49118e101 entered into RCS
Jim Blandy <jimb@redhat.com>
parents: 822
diff changeset
3966 /* Can't select pgrps on this system, so we know that
c7b49118e101 entered into RCS
Jim Blandy <jimb@redhat.com>
parents: 822
diff changeset
3967 the child itself heads the pgrp. */
c7b49118e101 entered into RCS
Jim Blandy <jimb@redhat.com>
parents: 822
diff changeset
3968 gid = - XFASTINT (p->pid);
c7b49118e101 entered into RCS
Jim Blandy <jimb@redhat.com>
parents: 822
diff changeset
3969 #endif /* ! defined (TIOCGPGRP ) */
24352
023601636a18 (syms_of_process): defsubr it.
Richard M. Stallman <rms@gnu.org>
parents: 23930
diff changeset
3970
023601636a18 (syms_of_process): defsubr it.
Richard M. Stallman <rms@gnu.org>
parents: 23930
diff changeset
3971 /* If current_group is lambda, and the shell owns the terminal,
023601636a18 (syms_of_process): defsubr it.
Richard M. Stallman <rms@gnu.org>
parents: 23930
diff changeset
3972 don't send any signal. */
023601636a18 (syms_of_process): defsubr it.
Richard M. Stallman <rms@gnu.org>
parents: 23930
diff changeset
3973 if (EQ (current_group, Qlambda) && gid == - XFASTINT (p->pid))
023601636a18 (syms_of_process): defsubr it.
Richard M. Stallman <rms@gnu.org>
parents: 23930
diff changeset
3974 return;
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3975 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3976 else
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3977 gid = - XFASTINT (p->pid);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3978
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3979 switch (signo)
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3980 {
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3981 #ifdef SIGCONT
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3982 case SIGCONT:
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3983 p->raw_status_low = Qnil;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3984 p->raw_status_high = Qnil;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3985 p->status = Qrun;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3986 XSETINT (p->tick, ++process_tick);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3987 if (!nomsg)
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3988 status_notify ();
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3989 break;
849
c7b49118e101 entered into RCS
Jim Blandy <jimb@redhat.com>
parents: 822
diff changeset
3990 #endif /* ! defined (SIGCONT) */
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3991 case SIGINT:
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3992 #ifdef VMS
8063
30861f2f4f84 (send_process): Major rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 7937
diff changeset
3993 send_process (proc, "\003", 1, Qnil); /* ^C */
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3994 goto whoosh;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3995 #endif
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3996 case SIGQUIT:
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3997 #ifdef VMS
8063
30861f2f4f84 (send_process): Major rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 7937
diff changeset
3998 send_process (proc, "\031", 1, Qnil); /* ^Y */
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3999 goto whoosh;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4000 #endif
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4001 case SIGKILL:
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4002 #ifdef VMS
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4003 sys$forcex (&(XFASTINT (p->pid)), 0, 1);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4004 whoosh:
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4005 #endif
5134
0a4e46e15304 (wait_reading_process_input):
Richard M. Stallman <rms@gnu.org>
parents: 4998
diff changeset
4006 flush_pending_output (XINT (p->infd));
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4007 break;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4008 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4009
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4010 /* If we don't have process groups, send the signal to the immediate
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4011 subprocess. That isn't really right, but it's better than any
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4012 obvious alternative. */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4013 if (no_pgrp)
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4014 {
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4015 kill (XFASTINT (p->pid), signo);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4016 return;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4017 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4018
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4019 /* gid may be a pid, or minus a pgrp's number */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4020 #ifdef TIOCSIGSEND
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4021 if (!NILP (current_group))
5134
0a4e46e15304 (wait_reading_process_input):
Richard M. Stallman <rms@gnu.org>
parents: 4998
diff changeset
4022 ioctl (XINT (p->infd), TIOCSIGSEND, signo);
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4023 else
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4024 {
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4025 gid = - XFASTINT (p->pid);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4026 kill (gid, signo);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4027 }
849
c7b49118e101 entered into RCS
Jim Blandy <jimb@redhat.com>
parents: 822
diff changeset
4028 #else /* ! defined (TIOCSIGSEND) */
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4029 EMACS_KILLPG (-gid, signo);
849
c7b49118e101 entered into RCS
Jim Blandy <jimb@redhat.com>
parents: 822
diff changeset
4030 #endif /* ! defined (TIOCSIGSEND) */
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4031 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4032
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4033 DEFUN ("interrupt-process", Finterrupt_process, Sinterrupt_process, 0, 2, 0,
40103
6b389fb978bc Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
4034 doc: /* Interrupt process PROCESS.
6b389fb978bc Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
4035 PROCESS may be a process, a buffer, or the name of a process or buffer.
6b389fb978bc Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
4036 nil or no arg means current buffer's process.
6b389fb978bc Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
4037 Second arg CURRENT-GROUP non-nil means send signal to
6b389fb978bc Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
4038 the current process-group of the process's controlling terminal
6b389fb978bc Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
4039 rather than to the process's own process group.
6b389fb978bc Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
4040 If the process is a shell, this means interrupt current subjob
6b389fb978bc Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
4041 rather than the shell.
6b389fb978bc Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
4042
6b389fb978bc Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
4043 If CURRENT-GROUP is `lambda', and if the shell owns the terminal,
6b389fb978bc Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
4044 don't send the signal. */)
6b389fb978bc Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
4045 (process, current_group)
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4046 Lisp_Object process, current_group;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4047 {
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4048 process_send_signal (process, SIGINT, current_group, 0);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4049 return process;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4050 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4051
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4052 DEFUN ("kill-process", Fkill_process, Skill_process, 0, 2, 0,
40103
6b389fb978bc Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
4053 doc: /* Kill process PROCESS. May be process or name of one.
6b389fb978bc Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
4054 See function `interrupt-process' for more details on usage. */)
6b389fb978bc Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
4055 (process, current_group)
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4056 Lisp_Object process, current_group;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4057 {
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4058 process_send_signal (process, SIGKILL, current_group, 0);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4059 return process;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4060 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4061
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4062 DEFUN ("quit-process", Fquit_process, Squit_process, 0, 2, 0,
40103
6b389fb978bc Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
4063 doc: /* Send QUIT signal to process PROCESS. May be process or name of one.
6b389fb978bc Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
4064 See function `interrupt-process' for more details on usage. */)
6b389fb978bc Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
4065 (process, current_group)
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4066 Lisp_Object process, current_group;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4067 {
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4068 process_send_signal (process, SIGQUIT, current_group, 0);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4069 return process;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4070 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4071
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4072 DEFUN ("stop-process", Fstop_process, Sstop_process, 0, 2, 0,
40103
6b389fb978bc Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
4073 doc: /* Stop process PROCESS. May be process or name of one.
6b389fb978bc Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
4074 See function `interrupt-process' for more details on usage. */)
6b389fb978bc Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
4075 (process, current_group)
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4076 Lisp_Object process, current_group;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4077 {
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4078 #ifndef SIGTSTP
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4079 error ("no SIGTSTP support");
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4080 #else
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4081 process_send_signal (process, SIGTSTP, current_group, 0);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4082 #endif
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4083 return process;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4084 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4085
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4086 DEFUN ("continue-process", Fcontinue_process, Scontinue_process, 0, 2, 0,
40103
6b389fb978bc Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
4087 doc: /* Continue process PROCESS. May be process or name of one.
6b389fb978bc Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
4088 See function `interrupt-process' for more details on usage. */)
6b389fb978bc Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
4089 (process, current_group)
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4090 Lisp_Object process, current_group;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4091 {
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4092 #ifdef SIGCONT
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4093 process_send_signal (process, SIGCONT, current_group, 0);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4094 #else
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4095 error ("no SIGCONT support");
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4096 #endif
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4097 return process;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4098 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4099
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4100 DEFUN ("signal-process", Fsignal_process, Ssignal_process,
40103
6b389fb978bc Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
4101 2, 2, "nProcess number: \nnSignal code: ",
6b389fb978bc Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
4102 doc: /* Send the process with process id PID the signal with code SIGCODE.
6b389fb978bc Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
4103 PID must be an integer. The process need not be a child of this Emacs.
6b389fb978bc Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
4104 SIGCODE may be an integer, or a symbol whose name is a signal name. */)
6b389fb978bc Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
4105 (pid, sigcode)
11144
c2b689aeb934 (Fsignal_process): Allow signal names as well as numbers.
Richard M. Stallman <rms@gnu.org>
parents: 10914
diff changeset
4106 Lisp_Object pid, sigcode;
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4107 {
40656
cdfd4d09b79a Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents: 40641
diff changeset
4108 CHECK_NUMBER (pid);
11144
c2b689aeb934 (Fsignal_process): Allow signal names as well as numbers.
Richard M. Stallman <rms@gnu.org>
parents: 10914
diff changeset
4109
c2b689aeb934 (Fsignal_process): Allow signal names as well as numbers.
Richard M. Stallman <rms@gnu.org>
parents: 10914
diff changeset
4110 #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
4111 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
4112 XSETINT (sigcode, VALUE)
c2b689aeb934 (Fsignal_process): Allow signal names as well as numbers.
Richard M. Stallman <rms@gnu.org>
parents: 10914
diff changeset
4113
c2b689aeb934 (Fsignal_process): Allow signal names as well as numbers.
Richard M. Stallman <rms@gnu.org>
parents: 10914
diff changeset
4114 if (INTEGERP (sigcode))
c2b689aeb934 (Fsignal_process): Allow signal names as well as numbers.
Richard M. Stallman <rms@gnu.org>
parents: 10914
diff changeset
4115 ;
c2b689aeb934 (Fsignal_process): Allow signal names as well as numbers.
Richard M. Stallman <rms@gnu.org>
parents: 10914
diff changeset
4116 else
c2b689aeb934 (Fsignal_process): Allow signal names as well as numbers.
Richard M. Stallman <rms@gnu.org>
parents: 10914
diff changeset
4117 {
c2b689aeb934 (Fsignal_process): Allow signal names as well as numbers.
Richard M. Stallman <rms@gnu.org>
parents: 10914
diff changeset
4118 unsigned char *name;
c2b689aeb934 (Fsignal_process): Allow signal names as well as numbers.
Richard M. Stallman <rms@gnu.org>
parents: 10914
diff changeset
4119
40656
cdfd4d09b79a Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents: 40641
diff changeset
4120 CHECK_SYMBOL (sigcode);
11144
c2b689aeb934 (Fsignal_process): Allow signal names as well as numbers.
Richard M. Stallman <rms@gnu.org>
parents: 10914
diff changeset
4121 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
4122
c2b689aeb934 (Fsignal_process): Allow signal names as well as numbers.
Richard M. Stallman <rms@gnu.org>
parents: 10914
diff changeset
4123 if (0)
c2b689aeb934 (Fsignal_process): Allow signal names as well as numbers.
Richard M. Stallman <rms@gnu.org>
parents: 10914
diff changeset
4124 ;
c2b689aeb934 (Fsignal_process): Allow signal names as well as numbers.
Richard M. Stallman <rms@gnu.org>
parents: 10914
diff changeset
4125 #ifdef SIGHUP
c2b689aeb934 (Fsignal_process): Allow signal names as well as numbers.
Richard M. Stallman <rms@gnu.org>
parents: 10914
diff changeset
4126 handle_signal ("SIGHUP", SIGHUP);
c2b689aeb934 (Fsignal_process): Allow signal names as well as numbers.
Richard M. Stallman <rms@gnu.org>
parents: 10914
diff changeset
4127 #endif
c2b689aeb934 (Fsignal_process): Allow signal names as well as numbers.
Richard M. Stallman <rms@gnu.org>
parents: 10914
diff changeset
4128 #ifdef SIGINT
c2b689aeb934 (Fsignal_process): Allow signal names as well as numbers.
Richard M. Stallman <rms@gnu.org>
parents: 10914
diff changeset
4129 handle_signal ("SIGINT", SIGINT);
c2b689aeb934 (Fsignal_process): Allow signal names as well as numbers.
Richard M. Stallman <rms@gnu.org>
parents: 10914
diff changeset
4130 #endif
c2b689aeb934 (Fsignal_process): Allow signal names as well as numbers.
Richard M. Stallman <rms@gnu.org>
parents: 10914
diff changeset
4131 #ifdef SIGQUIT
c2b689aeb934 (Fsignal_process): Allow signal names as well as numbers.
Richard M. Stallman <rms@gnu.org>
parents: 10914
diff changeset
4132 handle_signal ("SIGQUIT", SIGQUIT);
c2b689aeb934 (Fsignal_process): Allow signal names as well as numbers.
Richard M. Stallman <rms@gnu.org>
parents: 10914
diff changeset
4133 #endif
c2b689aeb934 (Fsignal_process): Allow signal names as well as numbers.
Richard M. Stallman <rms@gnu.org>
parents: 10914
diff changeset
4134 #ifdef SIGILL
c2b689aeb934 (Fsignal_process): Allow signal names as well as numbers.
Richard M. Stallman <rms@gnu.org>
parents: 10914
diff changeset
4135 handle_signal ("SIGILL", SIGILL);
c2b689aeb934 (Fsignal_process): Allow signal names as well as numbers.
Richard M. Stallman <rms@gnu.org>
parents: 10914
diff changeset
4136 #endif
c2b689aeb934 (Fsignal_process): Allow signal names as well as numbers.
Richard M. Stallman <rms@gnu.org>
parents: 10914
diff changeset
4137 #ifdef SIGABRT
c2b689aeb934 (Fsignal_process): Allow signal names as well as numbers.
Richard M. Stallman <rms@gnu.org>
parents: 10914
diff changeset
4138 handle_signal ("SIGABRT", SIGABRT);
c2b689aeb934 (Fsignal_process): Allow signal names as well as numbers.
Richard M. Stallman <rms@gnu.org>
parents: 10914
diff changeset
4139 #endif
c2b689aeb934 (Fsignal_process): Allow signal names as well as numbers.
Richard M. Stallman <rms@gnu.org>
parents: 10914
diff changeset
4140 #ifdef SIGEMT
c2b689aeb934 (Fsignal_process): Allow signal names as well as numbers.
Richard M. Stallman <rms@gnu.org>
parents: 10914
diff changeset
4141 handle_signal ("SIGEMT", SIGEMT);
c2b689aeb934 (Fsignal_process): Allow signal names as well as numbers.
Richard M. Stallman <rms@gnu.org>
parents: 10914
diff changeset
4142 #endif
c2b689aeb934 (Fsignal_process): Allow signal names as well as numbers.
Richard M. Stallman <rms@gnu.org>
parents: 10914
diff changeset
4143 #ifdef SIGKILL
c2b689aeb934 (Fsignal_process): Allow signal names as well as numbers.
Richard M. Stallman <rms@gnu.org>
parents: 10914
diff changeset
4144 handle_signal ("SIGKILL", SIGKILL);
c2b689aeb934 (Fsignal_process): Allow signal names as well as numbers.
Richard M. Stallman <rms@gnu.org>
parents: 10914
diff changeset
4145 #endif
c2b689aeb934 (Fsignal_process): Allow signal names as well as numbers.
Richard M. Stallman <rms@gnu.org>
parents: 10914
diff changeset
4146 #ifdef SIGFPE
c2b689aeb934 (Fsignal_process): Allow signal names as well as numbers.
Richard M. Stallman <rms@gnu.org>
parents: 10914
diff changeset
4147 handle_signal ("SIGFPE", SIGFPE);
c2b689aeb934 (Fsignal_process): Allow signal names as well as numbers.
Richard M. Stallman <rms@gnu.org>
parents: 10914
diff changeset
4148 #endif
c2b689aeb934 (Fsignal_process): Allow signal names as well as numbers.
Richard M. Stallman <rms@gnu.org>
parents: 10914
diff changeset
4149 #ifdef SIGBUS
c2b689aeb934 (Fsignal_process): Allow signal names as well as numbers.
Richard M. Stallman <rms@gnu.org>
parents: 10914
diff changeset
4150 handle_signal ("SIGBUS", SIGBUS);
c2b689aeb934 (Fsignal_process): Allow signal names as well as numbers.
Richard M. Stallman <rms@gnu.org>
parents: 10914
diff changeset
4151 #endif
c2b689aeb934 (Fsignal_process): Allow signal names as well as numbers.
Richard M. Stallman <rms@gnu.org>
parents: 10914
diff changeset
4152 #ifdef SIGSEGV
c2b689aeb934 (Fsignal_process): Allow signal names as well as numbers.
Richard M. Stallman <rms@gnu.org>
parents: 10914
diff changeset
4153 handle_signal ("SIGSEGV", SIGSEGV);
c2b689aeb934 (Fsignal_process): Allow signal names as well as numbers.
Richard M. Stallman <rms@gnu.org>
parents: 10914
diff changeset
4154 #endif
c2b689aeb934 (Fsignal_process): Allow signal names as well as numbers.
Richard M. Stallman <rms@gnu.org>
parents: 10914
diff changeset
4155 #ifdef SIGSYS
c2b689aeb934 (Fsignal_process): Allow signal names as well as numbers.
Richard M. Stallman <rms@gnu.org>
parents: 10914
diff changeset
4156 handle_signal ("SIGSYS", SIGSYS);
c2b689aeb934 (Fsignal_process): Allow signal names as well as numbers.
Richard M. Stallman <rms@gnu.org>
parents: 10914
diff changeset
4157 #endif
c2b689aeb934 (Fsignal_process): Allow signal names as well as numbers.
Richard M. Stallman <rms@gnu.org>
parents: 10914
diff changeset
4158 #ifdef SIGPIPE
c2b689aeb934 (Fsignal_process): Allow signal names as well as numbers.
Richard M. Stallman <rms@gnu.org>
parents: 10914
diff changeset
4159 handle_signal ("SIGPIPE", SIGPIPE);
c2b689aeb934 (Fsignal_process): Allow signal names as well as numbers.
Richard M. Stallman <rms@gnu.org>
parents: 10914
diff changeset
4160 #endif
c2b689aeb934 (Fsignal_process): Allow signal names as well as numbers.
Richard M. Stallman <rms@gnu.org>
parents: 10914
diff changeset
4161 #ifdef SIGALRM
c2b689aeb934 (Fsignal_process): Allow signal names as well as numbers.
Richard M. Stallman <rms@gnu.org>
parents: 10914
diff changeset
4162 handle_signal ("SIGALRM", SIGALRM);
c2b689aeb934 (Fsignal_process): Allow signal names as well as numbers.
Richard M. Stallman <rms@gnu.org>
parents: 10914
diff changeset
4163 #endif
c2b689aeb934 (Fsignal_process): Allow signal names as well as numbers.
Richard M. Stallman <rms@gnu.org>
parents: 10914
diff changeset
4164 #ifdef SIGTERM
c2b689aeb934 (Fsignal_process): Allow signal names as well as numbers.
Richard M. Stallman <rms@gnu.org>
parents: 10914
diff changeset
4165 handle_signal ("SIGTERM", SIGTERM);
c2b689aeb934 (Fsignal_process): Allow signal names as well as numbers.
Richard M. Stallman <rms@gnu.org>
parents: 10914
diff changeset
4166 #endif
c2b689aeb934 (Fsignal_process): Allow signal names as well as numbers.
Richard M. Stallman <rms@gnu.org>
parents: 10914
diff changeset
4167 #ifdef SIGURG
c2b689aeb934 (Fsignal_process): Allow signal names as well as numbers.
Richard M. Stallman <rms@gnu.org>
parents: 10914
diff changeset
4168 handle_signal ("SIGURG", SIGURG);
c2b689aeb934 (Fsignal_process): Allow signal names as well as numbers.
Richard M. Stallman <rms@gnu.org>
parents: 10914
diff changeset
4169 #endif
c2b689aeb934 (Fsignal_process): Allow signal names as well as numbers.
Richard M. Stallman <rms@gnu.org>
parents: 10914
diff changeset
4170 #ifdef SIGSTOP
c2b689aeb934 (Fsignal_process): Allow signal names as well as numbers.
Richard M. Stallman <rms@gnu.org>
parents: 10914
diff changeset
4171 handle_signal ("SIGSTOP", SIGSTOP);
c2b689aeb934 (Fsignal_process): Allow signal names as well as numbers.
Richard M. Stallman <rms@gnu.org>
parents: 10914
diff changeset
4172 #endif
c2b689aeb934 (Fsignal_process): Allow signal names as well as numbers.
Richard M. Stallman <rms@gnu.org>
parents: 10914
diff changeset
4173 #ifdef SIGTSTP
c2b689aeb934 (Fsignal_process): Allow signal names as well as numbers.
Richard M. Stallman <rms@gnu.org>
parents: 10914
diff changeset
4174 handle_signal ("SIGTSTP", SIGTSTP);
c2b689aeb934 (Fsignal_process): Allow signal names as well as numbers.
Richard M. Stallman <rms@gnu.org>
parents: 10914
diff changeset
4175 #endif
c2b689aeb934 (Fsignal_process): Allow signal names as well as numbers.
Richard M. Stallman <rms@gnu.org>
parents: 10914
diff changeset
4176 #ifdef SIGCONT
c2b689aeb934 (Fsignal_process): Allow signal names as well as numbers.
Richard M. Stallman <rms@gnu.org>
parents: 10914
diff changeset
4177 handle_signal ("SIGCONT", SIGCONT);
c2b689aeb934 (Fsignal_process): Allow signal names as well as numbers.
Richard M. Stallman <rms@gnu.org>
parents: 10914
diff changeset
4178 #endif
c2b689aeb934 (Fsignal_process): Allow signal names as well as numbers.
Richard M. Stallman <rms@gnu.org>
parents: 10914
diff changeset
4179 #ifdef SIGCHLD
c2b689aeb934 (Fsignal_process): Allow signal names as well as numbers.
Richard M. Stallman <rms@gnu.org>
parents: 10914
diff changeset
4180 handle_signal ("SIGCHLD", SIGCHLD);
c2b689aeb934 (Fsignal_process): Allow signal names as well as numbers.
Richard M. Stallman <rms@gnu.org>
parents: 10914
diff changeset
4181 #endif
c2b689aeb934 (Fsignal_process): Allow signal names as well as numbers.
Richard M. Stallman <rms@gnu.org>
parents: 10914
diff changeset
4182 #ifdef SIGTTIN
c2b689aeb934 (Fsignal_process): Allow signal names as well as numbers.
Richard M. Stallman <rms@gnu.org>
parents: 10914
diff changeset
4183 handle_signal ("SIGTTIN", SIGTTIN);
c2b689aeb934 (Fsignal_process): Allow signal names as well as numbers.
Richard M. Stallman <rms@gnu.org>
parents: 10914
diff changeset
4184 #endif
c2b689aeb934 (Fsignal_process): Allow signal names as well as numbers.
Richard M. Stallman <rms@gnu.org>
parents: 10914
diff changeset
4185 #ifdef SIGTTOU
c2b689aeb934 (Fsignal_process): Allow signal names as well as numbers.
Richard M. Stallman <rms@gnu.org>
parents: 10914
diff changeset
4186 handle_signal ("SIGTTOU", SIGTTOU);
c2b689aeb934 (Fsignal_process): Allow signal names as well as numbers.
Richard M. Stallman <rms@gnu.org>
parents: 10914
diff changeset
4187 #endif
c2b689aeb934 (Fsignal_process): Allow signal names as well as numbers.
Richard M. Stallman <rms@gnu.org>
parents: 10914
diff changeset
4188 #ifdef SIGIO
c2b689aeb934 (Fsignal_process): Allow signal names as well as numbers.
Richard M. Stallman <rms@gnu.org>
parents: 10914
diff changeset
4189 handle_signal ("SIGIO", SIGIO);
c2b689aeb934 (Fsignal_process): Allow signal names as well as numbers.
Richard M. Stallman <rms@gnu.org>
parents: 10914
diff changeset
4190 #endif
c2b689aeb934 (Fsignal_process): Allow signal names as well as numbers.
Richard M. Stallman <rms@gnu.org>
parents: 10914
diff changeset
4191 #ifdef SIGXCPU
c2b689aeb934 (Fsignal_process): Allow signal names as well as numbers.
Richard M. Stallman <rms@gnu.org>
parents: 10914
diff changeset
4192 handle_signal ("SIGXCPU", SIGXCPU);
c2b689aeb934 (Fsignal_process): Allow signal names as well as numbers.
Richard M. Stallman <rms@gnu.org>
parents: 10914
diff changeset
4193 #endif
c2b689aeb934 (Fsignal_process): Allow signal names as well as numbers.
Richard M. Stallman <rms@gnu.org>
parents: 10914
diff changeset
4194 #ifdef SIGXFSZ
c2b689aeb934 (Fsignal_process): Allow signal names as well as numbers.
Richard M. Stallman <rms@gnu.org>
parents: 10914
diff changeset
4195 handle_signal ("SIGXFSZ", SIGXFSZ);
c2b689aeb934 (Fsignal_process): Allow signal names as well as numbers.
Richard M. Stallman <rms@gnu.org>
parents: 10914
diff changeset
4196 #endif
c2b689aeb934 (Fsignal_process): Allow signal names as well as numbers.
Richard M. Stallman <rms@gnu.org>
parents: 10914
diff changeset
4197 #ifdef SIGVTALRM
c2b689aeb934 (Fsignal_process): Allow signal names as well as numbers.
Richard M. Stallman <rms@gnu.org>
parents: 10914
diff changeset
4198 handle_signal ("SIGVTALRM", SIGVTALRM);
c2b689aeb934 (Fsignal_process): Allow signal names as well as numbers.
Richard M. Stallman <rms@gnu.org>
parents: 10914
diff changeset
4199 #endif
c2b689aeb934 (Fsignal_process): Allow signal names as well as numbers.
Richard M. Stallman <rms@gnu.org>
parents: 10914
diff changeset
4200 #ifdef SIGPROF
c2b689aeb934 (Fsignal_process): Allow signal names as well as numbers.
Richard M. Stallman <rms@gnu.org>
parents: 10914
diff changeset
4201 handle_signal ("SIGPROF", SIGPROF);
c2b689aeb934 (Fsignal_process): Allow signal names as well as numbers.
Richard M. Stallman <rms@gnu.org>
parents: 10914
diff changeset
4202 #endif
c2b689aeb934 (Fsignal_process): Allow signal names as well as numbers.
Richard M. Stallman <rms@gnu.org>
parents: 10914
diff changeset
4203 #ifdef SIGWINCH
c2b689aeb934 (Fsignal_process): Allow signal names as well as numbers.
Richard M. Stallman <rms@gnu.org>
parents: 10914
diff changeset
4204 handle_signal ("SIGWINCH", SIGWINCH);
c2b689aeb934 (Fsignal_process): Allow signal names as well as numbers.
Richard M. Stallman <rms@gnu.org>
parents: 10914
diff changeset
4205 #endif
c2b689aeb934 (Fsignal_process): Allow signal names as well as numbers.
Richard M. Stallman <rms@gnu.org>
parents: 10914
diff changeset
4206 #ifdef SIGINFO
c2b689aeb934 (Fsignal_process): Allow signal names as well as numbers.
Richard M. Stallman <rms@gnu.org>
parents: 10914
diff changeset
4207 handle_signal ("SIGINFO", SIGINFO);
c2b689aeb934 (Fsignal_process): Allow signal names as well as numbers.
Richard M. Stallman <rms@gnu.org>
parents: 10914
diff changeset
4208 #endif
c2b689aeb934 (Fsignal_process): Allow signal names as well as numbers.
Richard M. Stallman <rms@gnu.org>
parents: 10914
diff changeset
4209 #ifdef SIGUSR1
c2b689aeb934 (Fsignal_process): Allow signal names as well as numbers.
Richard M. Stallman <rms@gnu.org>
parents: 10914
diff changeset
4210 handle_signal ("SIGUSR1", SIGUSR1);
c2b689aeb934 (Fsignal_process): Allow signal names as well as numbers.
Richard M. Stallman <rms@gnu.org>
parents: 10914
diff changeset
4211 #endif
c2b689aeb934 (Fsignal_process): Allow signal names as well as numbers.
Richard M. Stallman <rms@gnu.org>
parents: 10914
diff changeset
4212 #ifdef SIGUSR2
c2b689aeb934 (Fsignal_process): Allow signal names as well as numbers.
Richard M. Stallman <rms@gnu.org>
parents: 10914
diff changeset
4213 handle_signal ("SIGUSR2", SIGUSR2);
c2b689aeb934 (Fsignal_process): Allow signal names as well as numbers.
Richard M. Stallman <rms@gnu.org>
parents: 10914
diff changeset
4214 #endif
c2b689aeb934 (Fsignal_process): Allow signal names as well as numbers.
Richard M. Stallman <rms@gnu.org>
parents: 10914
diff changeset
4215 else
11148
117b32676686 (Fsignal_process): SIGCODE is a symbol, not a string.
Karl Heuer <kwzh@gnu.org>
parents: 11144
diff changeset
4216 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
4217 }
c2b689aeb934 (Fsignal_process): Allow signal names as well as numbers.
Richard M. Stallman <rms@gnu.org>
parents: 10914
diff changeset
4218
c2b689aeb934 (Fsignal_process): Allow signal names as well as numbers.
Richard M. Stallman <rms@gnu.org>
parents: 10914
diff changeset
4219 #undef handle_signal
c2b689aeb934 (Fsignal_process): Allow signal names as well as numbers.
Richard M. Stallman <rms@gnu.org>
parents: 10914
diff changeset
4220
c2b689aeb934 (Fsignal_process): Allow signal names as well as numbers.
Richard M. Stallman <rms@gnu.org>
parents: 10914
diff changeset
4221 return make_number (kill (XINT (pid), XINT (sigcode)));
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4222 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4223
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4224 DEFUN ("process-send-eof", Fprocess_send_eof, Sprocess_send_eof, 0, 1, 0,
40103
6b389fb978bc Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
4225 doc: /* Make PROCESS see end-of-file in its input.
6b389fb978bc Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
4226 EOF comes after any text already sent to it.
6b389fb978bc Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
4227 PROCESS may be a process, a buffer, the name of a process or buffer, or
6b389fb978bc Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
4228 nil, indicating the current buffer's process.
6b389fb978bc Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
4229 If PROCESS is a network connection, or is a process communicating
6b389fb978bc Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
4230 through a pipe (as opposed to a pty), then you cannot send any more
6b389fb978bc Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
4231 text to PROCESS after you call this function. */)
6b389fb978bc Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
4232 (process)
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4233 Lisp_Object process;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4234 {
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4235 Lisp_Object proc;
23879
18e5d1cfa74b (read_process_output): If NBYTES is zero and
Kenichi Handa <handa@m17n.org>
parents: 23762
diff changeset
4236 struct coding_system *coding;
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4237
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4238 proc = get_process (process);
23879
18e5d1cfa74b (read_process_output): If NBYTES is zero and
Kenichi Handa <handa@m17n.org>
parents: 23762
diff changeset
4239 coding = proc_encode_coding_system[XINT (XPROCESS (proc)->outfd)];
2221
7edc78402205 (Fprocess_send_eof): Make sure proc is running.
Richard M. Stallman <rms@gnu.org>
parents: 2200
diff changeset
4240
7edc78402205 (Fprocess_send_eof): Make sure proc is running.
Richard M. Stallman <rms@gnu.org>
parents: 2200
diff changeset
4241 /* 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
4242 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
4243 update_status (XPROCESS (proc));
7edc78402205 (Fprocess_send_eof): Make sure proc is running.
Richard M. Stallman <rms@gnu.org>
parents: 2200
diff changeset
4244 if (! EQ (XPROCESS (proc)->status, Qrun))
2222
d81c60c5f9ce Fix typo in previous change.
Richard M. Stallman <rms@gnu.org>
parents: 2221
diff changeset
4245 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
4246
23879
18e5d1cfa74b (read_process_output): If NBYTES is zero and
Kenichi Handa <handa@m17n.org>
parents: 23762
diff changeset
4247 if (CODING_REQUIRE_FLUSHING (coding))
18e5d1cfa74b (read_process_output): If NBYTES is zero and
Kenichi Handa <handa@m17n.org>
parents: 23762
diff changeset
4248 {
18e5d1cfa74b (read_process_output): If NBYTES is zero and
Kenichi Handa <handa@m17n.org>
parents: 23762
diff changeset
4249 coding->mode |= CODING_MODE_LAST_BLOCK;
18e5d1cfa74b (read_process_output): If NBYTES is zero and
Kenichi Handa <handa@m17n.org>
parents: 23762
diff changeset
4250 send_process (proc, "", 0, Qnil);
18e5d1cfa74b (read_process_output): If NBYTES is zero and
Kenichi Handa <handa@m17n.org>
parents: 23762
diff changeset
4251 }
18e5d1cfa74b (read_process_output): If NBYTES is zero and
Kenichi Handa <handa@m17n.org>
parents: 23762
diff changeset
4252
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4253 #ifdef VMS
8063
30861f2f4f84 (send_process): Major rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 7937
diff changeset
4254 send_process (proc, "\032", 1, Qnil); /* ^z */
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4255 #else
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4256 if (!NILP (XPROCESS (proc)->pty_flag))
8063
30861f2f4f84 (send_process): Major rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 7937
diff changeset
4257 send_process (proc, "\004", 1, Qnil);
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4258 else
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4259 {
22939
572895549f80 (Fprocess_send_eof): Transfer proc_encode_coding_system
Richard M. Stallman <rms@gnu.org>
parents: 22864
diff changeset
4260 int old_outfd, new_outfd;
572895549f80 (Fprocess_send_eof): Transfer proc_encode_coding_system
Richard M. Stallman <rms@gnu.org>
parents: 22864
diff changeset
4261
18329
ddaafa596bf5 (Fprocess_send_eof): Prooperly conditionalize prev. change.
Richard M. Stallman <rms@gnu.org>
parents: 18328
diff changeset
4262 #ifdef HAVE_SHUTDOWN
18328
0295bbed3c39 (Fprocess_send_eof): Use shutdown, if it's a socket.
Richard M. Stallman <rms@gnu.org>
parents: 18292
diff changeset
4263 /* If this is a network connection, or socketpair is used
0295bbed3c39 (Fprocess_send_eof): Use shutdown, if it's a socket.
Richard M. Stallman <rms@gnu.org>
parents: 18292
diff changeset
4264 for communication with the subprocess, call shutdown to cause EOF.
0295bbed3c39 (Fprocess_send_eof): Use shutdown, if it's a socket.
Richard M. Stallman <rms@gnu.org>
parents: 18292
diff changeset
4265 (In some old system, shutdown to socketpair doesn't work.
0295bbed3c39 (Fprocess_send_eof): Use shutdown, if it's a socket.
Richard M. Stallman <rms@gnu.org>
parents: 18292
diff changeset
4266 Then we just can't win.) */
0295bbed3c39 (Fprocess_send_eof): Use shutdown, if it's a socket.
Richard M. Stallman <rms@gnu.org>
parents: 18292
diff changeset
4267 if (NILP (XPROCESS (proc)->pid)
0295bbed3c39 (Fprocess_send_eof): Use shutdown, if it's a socket.
Richard M. Stallman <rms@gnu.org>
parents: 18292
diff changeset
4268 || XINT (XPROCESS (proc)->outfd) == XINT (XPROCESS (proc)->infd))
0295bbed3c39 (Fprocess_send_eof): Use shutdown, if it's a socket.
Richard M. Stallman <rms@gnu.org>
parents: 18292
diff changeset
4269 shutdown (XINT (XPROCESS (proc)->outfd), 1);
0295bbed3c39 (Fprocess_send_eof): Use shutdown, if it's a socket.
Richard M. Stallman <rms@gnu.org>
parents: 18292
diff changeset
4270 /* In case of socketpair, outfd == infd, so don't close it. */
0295bbed3c39 (Fprocess_send_eof): Use shutdown, if it's a socket.
Richard M. Stallman <rms@gnu.org>
parents: 18292
diff changeset
4271 if (XINT (XPROCESS (proc)->outfd) != XINT (XPROCESS (proc)->infd))
26088
b7aa6ac26872 Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
parents: 26019
diff changeset
4272 emacs_close (XINT (XPROCESS (proc)->outfd));
18329
ddaafa596bf5 (Fprocess_send_eof): Prooperly conditionalize prev. change.
Richard M. Stallman <rms@gnu.org>
parents: 18328
diff changeset
4273 #else /* not HAVE_SHUTDOWN */
26088
b7aa6ac26872 Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
parents: 26019
diff changeset
4274 emacs_close (XINT (XPROCESS (proc)->outfd));
18329
ddaafa596bf5 (Fprocess_send_eof): Prooperly conditionalize prev. change.
Richard M. Stallman <rms@gnu.org>
parents: 18328
diff changeset
4275 #endif /* not HAVE_SHUTDOWN */
26088
b7aa6ac26872 Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
parents: 26019
diff changeset
4276 new_outfd = emacs_open (NULL_DEVICE, O_WRONLY, 0);
22939
572895549f80 (Fprocess_send_eof): Transfer proc_encode_coding_system
Richard M. Stallman <rms@gnu.org>
parents: 22864
diff changeset
4277 old_outfd = XINT (XPROCESS (proc)->outfd);
572895549f80 (Fprocess_send_eof): Transfer proc_encode_coding_system
Richard M. Stallman <rms@gnu.org>
parents: 22864
diff changeset
4278
572895549f80 (Fprocess_send_eof): Transfer proc_encode_coding_system
Richard M. Stallman <rms@gnu.org>
parents: 22864
diff changeset
4279 if (!proc_encode_coding_system[new_outfd])
572895549f80 (Fprocess_send_eof): Transfer proc_encode_coding_system
Richard M. Stallman <rms@gnu.org>
parents: 22864
diff changeset
4280 proc_encode_coding_system[new_outfd]
572895549f80 (Fprocess_send_eof): Transfer proc_encode_coding_system
Richard M. Stallman <rms@gnu.org>
parents: 22864
diff changeset
4281 = (struct coding_system *) xmalloc (sizeof (struct coding_system));
572895549f80 (Fprocess_send_eof): Transfer proc_encode_coding_system
Richard M. Stallman <rms@gnu.org>
parents: 22864
diff changeset
4282 bcopy (proc_encode_coding_system[old_outfd],
572895549f80 (Fprocess_send_eof): Transfer proc_encode_coding_system
Richard M. Stallman <rms@gnu.org>
parents: 22864
diff changeset
4283 proc_encode_coding_system[new_outfd],
572895549f80 (Fprocess_send_eof): Transfer proc_encode_coding_system
Richard M. Stallman <rms@gnu.org>
parents: 22864
diff changeset
4284 sizeof (struct coding_system));
572895549f80 (Fprocess_send_eof): Transfer proc_encode_coding_system
Richard M. Stallman <rms@gnu.org>
parents: 22864
diff changeset
4285 bzero (proc_encode_coding_system[old_outfd],
572895549f80 (Fprocess_send_eof): Transfer proc_encode_coding_system
Richard M. Stallman <rms@gnu.org>
parents: 22864
diff changeset
4286 sizeof (struct coding_system));
572895549f80 (Fprocess_send_eof): Transfer proc_encode_coding_system
Richard M. Stallman <rms@gnu.org>
parents: 22864
diff changeset
4287
572895549f80 (Fprocess_send_eof): Transfer proc_encode_coding_system
Richard M. Stallman <rms@gnu.org>
parents: 22864
diff changeset
4288 XSETINT (XPROCESS (proc)->outfd, new_outfd);
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4289 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4290 #endif /* VMS */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4291 return process;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4292 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4293
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4294 /* Kill all processes associated with `buffer'.
39361
2d3bee6a3848 (sigchld_handler): Use GC_CONSP, GC_INTEGERP, GC_EQ
Gerd Moellmann <gerd@gnu.org>
parents: 37758
diff changeset
4295 If `buffer' is nil, kill all processes */
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4296
20382
dbad9367d232 (create_process, deactivate_process, close_process_descs):
Andreas Schwab <schwab@suse.de>
parents: 20225
diff changeset
4297 void
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4298 kill_buffer_processes (buffer)
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4299 Lisp_Object buffer;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4300 {
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4301 Lisp_Object tail, proc;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4302
25645
a14111a2a100 Use XCAR, XCDR, XFLOAT_DATA instead of explicit member access.
Ken Raeburn <raeburn@raeburn.org>
parents: 25356
diff changeset
4303 for (tail = Vprocess_alist; GC_CONSP (tail); tail = XCDR (tail))
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4304 {
25645
a14111a2a100 Use XCAR, XCDR, XFLOAT_DATA instead of explicit member access.
Ken Raeburn <raeburn@raeburn.org>
parents: 25356
diff changeset
4305 proc = XCDR (XCAR (tail));
9952
9daedd94a204 (NETCONN_P, kill_buffer_processes): Use the new type-test macros.
Karl Heuer <kwzh@gnu.org>
parents: 9882
diff changeset
4306 if (GC_PROCESSP (proc)
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4307 && (NILP (buffer) || EQ (XPROCESS (proc)->buffer, buffer)))
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4308 {
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4309 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
4310 Fdelete_process (proc);
5134
0a4e46e15304 (wait_reading_process_input):
Richard M. Stallman <rms@gnu.org>
parents: 4998
diff changeset
4311 else if (XINT (XPROCESS (proc)->infd) >= 0)
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4312 process_send_signal (proc, SIGHUP, Qnil, 1);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4313 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4314 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4315 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4316
39361
2d3bee6a3848 (sigchld_handler): Use GC_CONSP, GC_INTEGERP, GC_EQ
Gerd Moellmann <gerd@gnu.org>
parents: 37758
diff changeset
4317 /* On receipt of a signal that a child status has changed, loop asking
2d3bee6a3848 (sigchld_handler): Use GC_CONSP, GC_INTEGERP, GC_EQ
Gerd Moellmann <gerd@gnu.org>
parents: 37758
diff changeset
4318 about children with changed statuses until the system says there
2d3bee6a3848 (sigchld_handler): Use GC_CONSP, GC_INTEGERP, GC_EQ
Gerd Moellmann <gerd@gnu.org>
parents: 37758
diff changeset
4319 are no more.
2d3bee6a3848 (sigchld_handler): Use GC_CONSP, GC_INTEGERP, GC_EQ
Gerd Moellmann <gerd@gnu.org>
parents: 37758
diff changeset
4320
2d3bee6a3848 (sigchld_handler): Use GC_CONSP, GC_INTEGERP, GC_EQ
Gerd Moellmann <gerd@gnu.org>
parents: 37758
diff changeset
4321 All we do is change the status; we do not run sentinels or print
2d3bee6a3848 (sigchld_handler): Use GC_CONSP, GC_INTEGERP, GC_EQ
Gerd Moellmann <gerd@gnu.org>
parents: 37758
diff changeset
4322 notifications. That is saved for the next time keyboard input is
2d3bee6a3848 (sigchld_handler): Use GC_CONSP, GC_INTEGERP, GC_EQ
Gerd Moellmann <gerd@gnu.org>
parents: 37758
diff changeset
4323 done, in order to avoid timing errors.
2d3bee6a3848 (sigchld_handler): Use GC_CONSP, GC_INTEGERP, GC_EQ
Gerd Moellmann <gerd@gnu.org>
parents: 37758
diff changeset
4324
2d3bee6a3848 (sigchld_handler): Use GC_CONSP, GC_INTEGERP, GC_EQ
Gerd Moellmann <gerd@gnu.org>
parents: 37758
diff changeset
4325 ** WARNING: this can be called during garbage collection.
2d3bee6a3848 (sigchld_handler): Use GC_CONSP, GC_INTEGERP, GC_EQ
Gerd Moellmann <gerd@gnu.org>
parents: 37758
diff changeset
4326 Therefore, it must not be fooled by the presence of mark bits in
2d3bee6a3848 (sigchld_handler): Use GC_CONSP, GC_INTEGERP, GC_EQ
Gerd Moellmann <gerd@gnu.org>
parents: 37758
diff changeset
4327 Lisp objects.
2d3bee6a3848 (sigchld_handler): Use GC_CONSP, GC_INTEGERP, GC_EQ
Gerd Moellmann <gerd@gnu.org>
parents: 37758
diff changeset
4328
2d3bee6a3848 (sigchld_handler): Use GC_CONSP, GC_INTEGERP, GC_EQ
Gerd Moellmann <gerd@gnu.org>
parents: 37758
diff changeset
4329 ** USG WARNING: Although it is not obvious from the documentation
2d3bee6a3848 (sigchld_handler): Use GC_CONSP, GC_INTEGERP, GC_EQ
Gerd Moellmann <gerd@gnu.org>
parents: 37758
diff changeset
4330 in signal(2), on a USG system the SIGCLD handler MUST NOT call
2d3bee6a3848 (sigchld_handler): Use GC_CONSP, GC_INTEGERP, GC_EQ
Gerd Moellmann <gerd@gnu.org>
parents: 37758
diff changeset
4331 signal() before executing at least one wait(), otherwise the
2d3bee6a3848 (sigchld_handler): Use GC_CONSP, GC_INTEGERP, GC_EQ
Gerd Moellmann <gerd@gnu.org>
parents: 37758
diff changeset
4332 handler will be called again, resulting in an infinite loop. The
2d3bee6a3848 (sigchld_handler): Use GC_CONSP, GC_INTEGERP, GC_EQ
Gerd Moellmann <gerd@gnu.org>
parents: 37758
diff changeset
4333 relevant portion of the documentation reads "SIGCLD signals will be
2d3bee6a3848 (sigchld_handler): Use GC_CONSP, GC_INTEGERP, GC_EQ
Gerd Moellmann <gerd@gnu.org>
parents: 37758
diff changeset
4334 queued and the signal-catching function will be continually
2d3bee6a3848 (sigchld_handler): Use GC_CONSP, GC_INTEGERP, GC_EQ
Gerd Moellmann <gerd@gnu.org>
parents: 37758
diff changeset
4335 reentered until the queue is empty". Invoking signal() causes the
2d3bee6a3848 (sigchld_handler): Use GC_CONSP, GC_INTEGERP, GC_EQ
Gerd Moellmann <gerd@gnu.org>
parents: 37758
diff changeset
4336 kernel to reexamine the SIGCLD queue. Fred Fish, UniSoft Systems
2d3bee6a3848 (sigchld_handler): Use GC_CONSP, GC_INTEGERP, GC_EQ
Gerd Moellmann <gerd@gnu.org>
parents: 37758
diff changeset
4337 Inc. */
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4338
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4339 SIGTYPE
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4340 sigchld_handler (signo)
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4341 int signo;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4342 {
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4343 int old_errno = errno;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4344 Lisp_Object proc;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4345 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
4346 extern EMACS_TIME *input_available_clear_time;
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4347
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4348 #ifdef BSD4_1
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4349 extern int sigheld;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4350 sigheld |= sigbit (SIGCHLD);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4351 #endif
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4352
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4353 while (1)
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4354 {
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4355 register int pid;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4356 WAITTYPE w;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4357 Lisp_Object tail;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4358
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4359 #ifdef WNOHANG
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4360 #ifndef WUNTRACED
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4361 #define WUNTRACED 0
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4362 #endif /* no WUNTRACED */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4363 /* Keep trying to get a status until we get a definitive result. */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4364 do
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4365 {
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4366 errno = 0;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4367 pid = wait3 (&w, WNOHANG | WUNTRACED, 0);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4368 }
39361
2d3bee6a3848 (sigchld_handler): Use GC_CONSP, GC_INTEGERP, GC_EQ
Gerd Moellmann <gerd@gnu.org>
parents: 37758
diff changeset
4369 while (pid < 0 && errno == EINTR);
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4370
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4371 if (pid <= 0)
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4372 {
39361
2d3bee6a3848 (sigchld_handler): Use GC_CONSP, GC_INTEGERP, GC_EQ
Gerd Moellmann <gerd@gnu.org>
parents: 37758
diff changeset
4373 /* PID == 0 means no processes found, PID == -1 means a real
2d3bee6a3848 (sigchld_handler): Use GC_CONSP, GC_INTEGERP, GC_EQ
Gerd Moellmann <gerd@gnu.org>
parents: 37758
diff changeset
4374 failure. We have done all our job, so return. */
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4375
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4376 /* USG systems forget handlers when they are used;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4377 must reestablish each time */
16116
80a67b8f39e9 (create_process_1, sigchld_handler) [POSIX_SIGNALS]:
Richard M. Stallman <rms@gnu.org>
parents: 16076
diff changeset
4378 #if defined (USG) && !defined (POSIX_SIGNALS)
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4379 signal (signo, sigchld_handler); /* WARNING - must come after wait3() */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4380 #endif
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4381 #ifdef BSD4_1
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4382 sigheld &= ~sigbit (SIGCHLD);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4383 sigrelse (SIGCHLD);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4384 #endif
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4385 errno = old_errno;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4386 return;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4387 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4388 #else
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4389 pid = wait (&w);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4390 #endif /* no WNOHANG */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4391
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4392 /* Find the process that signaled us, and record its status. */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4393
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4394 p = 0;
39361
2d3bee6a3848 (sigchld_handler): Use GC_CONSP, GC_INTEGERP, GC_EQ
Gerd Moellmann <gerd@gnu.org>
parents: 37758
diff changeset
4395 for (tail = Vprocess_alist; GC_CONSP (tail); tail = XCDR (tail))
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4396 {
25645
a14111a2a100 Use XCAR, XCDR, XFLOAT_DATA instead of explicit member access.
Ken Raeburn <raeburn@raeburn.org>
parents: 25356
diff changeset
4397 proc = XCDR (XCAR (tail));
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4398 p = XPROCESS (proc);
39361
2d3bee6a3848 (sigchld_handler): Use GC_CONSP, GC_INTEGERP, GC_EQ
Gerd Moellmann <gerd@gnu.org>
parents: 37758
diff changeset
4399 if (GC_EQ (p->childp, Qt) && XINT (p->pid) == pid)
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4400 break;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4401 p = 0;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4402 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4403
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4404 /* Look for an asynchronous process whose pid hasn't been filled
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4405 in yet. */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4406 if (p == 0)
39361
2d3bee6a3848 (sigchld_handler): Use GC_CONSP, GC_INTEGERP, GC_EQ
Gerd Moellmann <gerd@gnu.org>
parents: 37758
diff changeset
4407 for (tail = Vprocess_alist; GC_CONSP (tail); tail = XCDR (tail))
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4408 {
25645
a14111a2a100 Use XCAR, XCDR, XFLOAT_DATA instead of explicit member access.
Ken Raeburn <raeburn@raeburn.org>
parents: 25356
diff changeset
4409 proc = XCDR (XCAR (tail));
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4410 p = XPROCESS (proc);
39361
2d3bee6a3848 (sigchld_handler): Use GC_CONSP, GC_INTEGERP, GC_EQ
Gerd Moellmann <gerd@gnu.org>
parents: 37758
diff changeset
4411 if (GC_INTEGERP (p->pid) && XINT (p->pid) == -1)
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4412 break;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4413 p = 0;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4414 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4415
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4416 /* Change the status of the process that was found. */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4417 if (p != 0)
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4418 {
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4419 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
4420 int clear_desc_flag = 0;
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4421
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4422 XSETINT (p->tick, ++process_tick);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4423 u.wt = w;
12324
41bd44279127 (sigchld_handler): Change XSETFASTINT to XSETINT.
Richard M. Stallman <rms@gnu.org>
parents: 12215
diff changeset
4424 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
4425 XSETINT (p->raw_status_high, u.i >> 16);
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4426
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4427 /* 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
4428 if ((WIFSIGNALED (w) || WIFEXITED (w))
28267fcc61be Use macros IS_ANY_SEP, IS_DIRECTORY_SEP,
Richard M. Stallman <rms@gnu.org>
parents: 9705
diff changeset
4429 && XINT (p->infd) >= 0)
28267fcc61be Use macros IS_ANY_SEP, IS_DIRECTORY_SEP,
Richard M. Stallman <rms@gnu.org>
parents: 9705
diff changeset
4430 clear_desc_flag = 1;
28267fcc61be Use macros IS_ANY_SEP, IS_DIRECTORY_SEP,
Richard M. Stallman <rms@gnu.org>
parents: 9705
diff changeset
4431
28267fcc61be Use macros IS_ANY_SEP, IS_DIRECTORY_SEP,
Richard M. Stallman <rms@gnu.org>
parents: 9705
diff changeset
4432 /* 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
4433 if (clear_desc_flag)
28267fcc61be Use macros IS_ANY_SEP, IS_DIRECTORY_SEP,
Richard M. Stallman <rms@gnu.org>
parents: 9705
diff changeset
4434 {
28267fcc61be Use macros IS_ANY_SEP, IS_DIRECTORY_SEP,
Richard M. Stallman <rms@gnu.org>
parents: 9705
diff changeset
4435 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
4436 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
4437 }
1925
3ddb163a9201 * process.c: Make sure we don't miss processes exiting, by having
Jim Blandy <jimb@redhat.com>
parents: 1886
diff changeset
4438
3ddb163a9201 * process.c: Make sure we don't miss processes exiting, by having
Jim Blandy <jimb@redhat.com>
parents: 1886
diff changeset
4439 /* 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
4440 look around. */
3ddb163a9201 * process.c: Make sure we don't miss processes exiting, by having
Jim Blandy <jimb@redhat.com>
parents: 1886
diff changeset
4441 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
4442 EMACS_SET_SECS_USECS (*input_available_clear_time, 0, 0);
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4443 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4444
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4445 /* There was no asynchronous process found for that id. Check
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4446 if we have a synchronous process. */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4447 else
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4448 {
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4449 synch_process_alive = 0;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4450
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4451 /* Report the status of the synchronous process. */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4452 if (WIFEXITED (w))
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4453 synch_process_retcode = WRETCODE (w);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4454 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
4455 {
466bc8ef8e21 (sigchld_handler, status_message): Handle a NULL in sys_siglist.
Richard M. Stallman <rms@gnu.org>
parents: 5561
diff changeset
4456 int code = WTERMSIG (w);
26088
b7aa6ac26872 Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
parents: 26019
diff changeset
4457 char *signame;
b7aa6ac26872 Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
parents: 26019
diff changeset
4458
26526
b7438760079b * callproc.c (strerror): Remove decl.
Paul Eggert <eggert@twinsun.com>
parents: 26313
diff changeset
4459 synchronize_system_messages_locale ();
26088
b7aa6ac26872 Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
parents: 26019
diff changeset
4460 signame = strsignal (code);
b7aa6ac26872 Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
parents: 26019
diff changeset
4461
5579
466bc8ef8e21 (sigchld_handler, status_message): Handle a NULL in sys_siglist.
Richard M. Stallman <rms@gnu.org>
parents: 5561
diff changeset
4462 if (signame == 0)
466bc8ef8e21 (sigchld_handler, status_message): Handle a NULL in sys_siglist.
Richard M. Stallman <rms@gnu.org>
parents: 5561
diff changeset
4463 signame = "unknown";
466bc8ef8e21 (sigchld_handler, status_message): Handle a NULL in sys_siglist.
Richard M. Stallman <rms@gnu.org>
parents: 5561
diff changeset
4464
466bc8ef8e21 (sigchld_handler, status_message): Handle a NULL in sys_siglist.
Richard M. Stallman <rms@gnu.org>
parents: 5561
diff changeset
4465 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
4466 }
1925
3ddb163a9201 * process.c: Make sure we don't miss processes exiting, by having
Jim Blandy <jimb@redhat.com>
parents: 1886
diff changeset
4467
3ddb163a9201 * process.c: Make sure we don't miss processes exiting, by having
Jim Blandy <jimb@redhat.com>
parents: 1886
diff changeset
4468 /* 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
4469 look around. */
3ddb163a9201 * process.c: Make sure we don't miss processes exiting, by having
Jim Blandy <jimb@redhat.com>
parents: 1886
diff changeset
4470 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
4471 EMACS_SET_SECS_USECS (*input_available_clear_time, 0, 0);
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4472 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4473
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4474 /* On some systems, we must return right away.
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4475 If any more processes want to signal us, we will
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4476 get another signal.
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4477 Otherwise (on systems that have WNOHANG), loop around
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4478 to use up all the processes that have something to tell us. */
39406
9dd4ad9bc53e (sigchld_handler) [LINUX]: Don't return from
Gerd Moellmann <gerd@gnu.org>
parents: 39361
diff changeset
4479 #if (defined WINDOWSNT \
41969
e669966d496e Test GNU_LINUX, not LINUX.
Richard M. Stallman <rms@gnu.org>
parents: 41856
diff changeset
4480 || (defined USG && !defined GNU_LINUX \
39406
9dd4ad9bc53e (sigchld_handler) [LINUX]: Don't return from
Gerd Moellmann <gerd@gnu.org>
parents: 39361
diff changeset
4481 && !(defined HPUX && defined WNOHANG)))
16116
80a67b8f39e9 (create_process_1, sigchld_handler) [POSIX_SIGNALS]:
Richard M. Stallman <rms@gnu.org>
parents: 16076
diff changeset
4482 #if defined (USG) && ! defined (POSIX_SIGNALS)
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4483 signal (signo, sigchld_handler);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4484 #endif
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4485 errno = old_errno;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4486 return;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4487 #endif /* USG, but not HPUX with WNOHANG */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4488 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4489 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4490
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4491
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4492 static Lisp_Object
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4493 exec_sentinel_unwind (data)
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4494 Lisp_Object data;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4495 {
25645
a14111a2a100 Use XCAR, XCDR, XFLOAT_DATA instead of explicit member access.
Ken Raeburn <raeburn@raeburn.org>
parents: 25356
diff changeset
4496 XPROCESS (XCAR (data))->sentinel = XCDR (data);
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4497 return Qnil;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4498 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4499
9030
b14532c71632 (exec_sentinel_error_handler): New function.
Richard M. Stallman <rms@gnu.org>
parents: 8570
diff changeset
4500 static Lisp_Object
b14532c71632 (exec_sentinel_error_handler): New function.
Richard M. Stallman <rms@gnu.org>
parents: 8570
diff changeset
4501 exec_sentinel_error_handler (error)
b14532c71632 (exec_sentinel_error_handler): New function.
Richard M. Stallman <rms@gnu.org>
parents: 8570
diff changeset
4502 Lisp_Object error;
b14532c71632 (exec_sentinel_error_handler): New function.
Richard M. Stallman <rms@gnu.org>
parents: 8570
diff changeset
4503 {
b14532c71632 (exec_sentinel_error_handler): New function.
Richard M. Stallman <rms@gnu.org>
parents: 8570
diff changeset
4504 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
4505 Vinhibit_quit = Qt;
b14532c71632 (exec_sentinel_error_handler): New function.
Richard M. Stallman <rms@gnu.org>
parents: 8570
diff changeset
4506 update_echo_area ();
11277
d4547e4b0aab (read_process_output_error_handler)
Richard M. Stallman <rms@gnu.org>
parents: 11235
diff changeset
4507 Fsleep_for (make_number (2), Qnil);
27558
f99efd14b932 (Fstart_process): Doc fix.
Dave Love <fx@gnu.org>
parents: 27430
diff changeset
4508 return Qt;
9030
b14532c71632 (exec_sentinel_error_handler): New function.
Richard M. Stallman <rms@gnu.org>
parents: 8570
diff changeset
4509 }
b14532c71632 (exec_sentinel_error_handler): New function.
Richard M. Stallman <rms@gnu.org>
parents: 8570
diff changeset
4510
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4511 static void
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4512 exec_sentinel (proc, reason)
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4513 Lisp_Object proc, reason;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4514 {
10914
413d44c0bd41 (exec_sentinel, read_process_output): If running filter
Richard M. Stallman <rms@gnu.org>
parents: 10744
diff changeset
4515 Lisp_Object sentinel, obuffer, odeactivate, okeymap;
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4516 register struct Lisp_Process *p = XPROCESS (proc);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4517 int count = specpdl_ptr - specpdl;
16644
3a93437adce1 (status_notify): Test p->infd > 0
Richard M. Stallman <rms@gnu.org>
parents: 16464
diff changeset
4518 int outer_running_asynch_code = running_asynch_code;
23460
94f4ba741f22 (exec_sentinel, read_process_output):
Richard M. Stallman <rms@gnu.org>
parents: 23405
diff changeset
4519 int waiting = waiting_for_user_input_p;
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4520
10914
413d44c0bd41 (exec_sentinel, read_process_output): If running filter
Richard M. Stallman <rms@gnu.org>
parents: 10744
diff changeset
4521 /* 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
4522 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
4523 odeactivate = Vdeactivate_mark;
10914
413d44c0bd41 (exec_sentinel, read_process_output): If running filter
Richard M. Stallman <rms@gnu.org>
parents: 10744
diff changeset
4524 XSETBUFFER (obuffer, current_buffer);
413d44c0bd41 (exec_sentinel, read_process_output): If running filter
Richard M. Stallman <rms@gnu.org>
parents: 10744
diff changeset
4525 okeymap = current_buffer->keymap;
413d44c0bd41 (exec_sentinel, read_process_output): If running filter
Richard M. Stallman <rms@gnu.org>
parents: 10744
diff changeset
4526
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4527 sentinel = p->sentinel;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4528 if (NILP (sentinel))
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4529 return;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4530
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4531 /* Zilch the sentinel while it's running, to avoid recursive invocations;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4532 assure that it gets restored no matter how the sentinel exits. */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4533 p->sentinel = Qnil;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4534 record_unwind_protect (exec_sentinel_unwind, Fcons (proc, sentinel));
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4535 /* Inhibit quit so that random quits don't screw up a running filter. */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4536 specbind (Qinhibit_quit, Qt);
8231
5226ed89c1a6 (Qlast_nonmenu_event): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 8063
diff changeset
4537 specbind (Qlast_nonmenu_event, Qt);
9030
b14532c71632 (exec_sentinel_error_handler): New function.
Richard M. Stallman <rms@gnu.org>
parents: 8570
diff changeset
4538
16644
3a93437adce1 (status_notify): Test p->infd > 0
Richard M. Stallman <rms@gnu.org>
parents: 16464
diff changeset
4539 /* In case we get recursively called,
3a93437adce1 (status_notify): Test p->infd > 0
Richard M. Stallman <rms@gnu.org>
parents: 16464
diff changeset
4540 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
4541 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
4542 if (outer_running_asynch_code)
3a93437adce1 (status_notify): Test p->infd > 0
Richard M. Stallman <rms@gnu.org>
parents: 16464
diff changeset
4543 {
3a93437adce1 (status_notify): Test p->infd > 0
Richard M. Stallman <rms@gnu.org>
parents: 16464
diff changeset
4544 Lisp_Object tem;
16728
309a750fd5c0 (read_process_output, exec_sentinel):
Richard M. Stallman <rms@gnu.org>
parents: 16718
diff changeset
4545 tem = Fmatch_data (Qnil, Qnil);
16644
3a93437adce1 (status_notify): Test p->infd > 0
Richard M. Stallman <rms@gnu.org>
parents: 16464
diff changeset
4546 restore_match_data ();
21177
73f8ae8312c8 (exec_sentinel, read_process_output): Fstore_match_data => Fset_match_data.
Richard M. Stallman <rms@gnu.org>
parents: 21049
diff changeset
4547 record_unwind_protect (Fset_match_data, Fmatch_data (Qnil, Qnil));
73f8ae8312c8 (exec_sentinel, read_process_output): Fstore_match_data => Fset_match_data.
Richard M. Stallman <rms@gnu.org>
parents: 21049
diff changeset
4548 Fset_match_data (tem);
16644
3a93437adce1 (status_notify): Test p->infd > 0
Richard M. Stallman <rms@gnu.org>
parents: 16464
diff changeset
4549 }
3a93437adce1 (status_notify): Test p->infd > 0
Richard M. Stallman <rms@gnu.org>
parents: 16464
diff changeset
4550
3a93437adce1 (status_notify): Test p->infd > 0
Richard M. Stallman <rms@gnu.org>
parents: 16464
diff changeset
4551 /* 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
4552 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
4553 running_asynch_code = 1;
16644
3a93437adce1 (status_notify): Test p->infd > 0
Richard M. Stallman <rms@gnu.org>
parents: 16464
diff changeset
4554
9030
b14532c71632 (exec_sentinel_error_handler): New function.
Richard M. Stallman <rms@gnu.org>
parents: 8570
diff changeset
4555 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
4556 Fcons (sentinel,
b14532c71632 (exec_sentinel_error_handler): New function.
Richard M. Stallman <rms@gnu.org>
parents: 8570
diff changeset
4557 Fcons (proc, Fcons (reason, Qnil))),
b14532c71632 (exec_sentinel_error_handler): New function.
Richard M. Stallman <rms@gnu.org>
parents: 8570
diff changeset
4558 !NILP (Vdebug_on_error) ? Qnil : Qerror,
b14532c71632 (exec_sentinel_error_handler): New function.
Richard M. Stallman <rms@gnu.org>
parents: 8570
diff changeset
4559 exec_sentinel_error_handler);
16644
3a93437adce1 (status_notify): Test p->infd > 0
Richard M. Stallman <rms@gnu.org>
parents: 16464
diff changeset
4560
3a93437adce1 (status_notify): Test p->infd > 0
Richard M. Stallman <rms@gnu.org>
parents: 16464
diff changeset
4561 /* 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
4562 restore_match_data ();
16644
3a93437adce1 (status_notify): Test p->infd > 0
Richard M. Stallman <rms@gnu.org>
parents: 16464
diff changeset
4563 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
4564
8d9e41a175fa (exec_sentinel): Don't deactivate the mark. Check for asynch buffer switch.
Karl Heuer <kwzh@gnu.org>
parents: 7414
diff changeset
4565 Vdeactivate_mark = odeactivate;
23460
94f4ba741f22 (exec_sentinel, read_process_output):
Richard M. Stallman <rms@gnu.org>
parents: 23405
diff changeset
4566
94f4ba741f22 (exec_sentinel, read_process_output):
Richard M. Stallman <rms@gnu.org>
parents: 23405
diff changeset
4567 /* Restore waiting_for_user_input_p as it was
94f4ba741f22 (exec_sentinel, read_process_output):
Richard M. Stallman <rms@gnu.org>
parents: 23405
diff changeset
4568 when we were called, in case the filter clobbered it. */
94f4ba741f22 (exec_sentinel, read_process_output):
Richard M. Stallman <rms@gnu.org>
parents: 23405
diff changeset
4569 waiting_for_user_input_p = waiting;
94f4ba741f22 (exec_sentinel, read_process_output):
Richard M. Stallman <rms@gnu.org>
parents: 23405
diff changeset
4570
12808
4db1f387e85f (read_process_output, exec_sentinel): Call
Richard M. Stallman <rms@gnu.org>
parents: 12749
diff changeset
4571 #if 0
10914
413d44c0bd41 (exec_sentinel, read_process_output): If running filter
Richard M. Stallman <rms@gnu.org>
parents: 10744
diff changeset
4572 if (! EQ (Fcurrent_buffer (), obuffer)
413d44c0bd41 (exec_sentinel, read_process_output): If running filter
Richard M. Stallman <rms@gnu.org>
parents: 10744
diff changeset
4573 || ! EQ (current_buffer->keymap, okeymap))
12808
4db1f387e85f (read_process_output, exec_sentinel): Call
Richard M. Stallman <rms@gnu.org>
parents: 12749
diff changeset
4574 #endif
13159
2af96ac471bc (exec_sentinel, read_process_output):
Richard M. Stallman <rms@gnu.org>
parents: 12808
diff changeset
4575 /* 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
4576 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
4577 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
4578 if (waiting_for_user_input_p == -1)
2af96ac471bc (exec_sentinel, read_process_output):
Richard M. Stallman <rms@gnu.org>
parents: 12808
diff changeset
4579 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
4580
5561
fd7524d61a8d (read_process_output): Supply second arg to unbind_to.
Richard M. Stallman <rms@gnu.org>
parents: 5548
diff changeset
4581 unbind_to (count, Qnil);
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4582 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4583
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4584 /* Report all recent events of a change in process status
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4585 (either run the sentinel or output a message).
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4586 This is done while Emacs is waiting for keyboard input. */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4587
20382
dbad9367d232 (create_process, deactivate_process, close_process_descs):
Andreas Schwab <schwab@suse.de>
parents: 20225
diff changeset
4588 void
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4589 status_notify ()
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4590 {
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4591 register Lisp_Object proc, buffer;
6515
df7438605e1e (status_notify): Use assignment, not initialization.
Karl Heuer <kwzh@gnu.org>
parents: 6429
diff changeset
4592 Lisp_Object tail, msg;
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4593 struct gcpro gcpro1, gcpro2;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4594
6515
df7438605e1e (status_notify): Use assignment, not initialization.
Karl Heuer <kwzh@gnu.org>
parents: 6429
diff changeset
4595 tail = Qnil;
df7438605e1e (status_notify): Use assignment, not initialization.
Karl Heuer <kwzh@gnu.org>
parents: 6429
diff changeset
4596 msg = Qnil;
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4597 /* We need to gcpro tail; if read_process_output calls a filter
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4598 which deletes a process and removes the cons to which tail points
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4599 from Vprocess_alist, and then causes a GC, tail is an unprotected
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4600 reference. */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4601 GCPRO2 (tail, msg);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4602
12215
2f1f03964f08 (status_notify): Undo May 18 change.
Richard M. Stallman <rms@gnu.org>
parents: 12132
diff changeset
4603 /* 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
4604 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
4605 update_tick = process_tick;
2f1f03964f08 (status_notify): Undo May 18 change.
Richard M. Stallman <rms@gnu.org>
parents: 12132
diff changeset
4606
2f1f03964f08 (status_notify): Undo May 18 change.
Richard M. Stallman <rms@gnu.org>
parents: 12132
diff changeset
4607 for (tail = Vprocess_alist; !NILP (tail); tail = Fcdr (tail))
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4608 {
12215
2f1f03964f08 (status_notify): Undo May 18 change.
Richard M. Stallman <rms@gnu.org>
parents: 12132
diff changeset
4609 Lisp_Object symbol;
2f1f03964f08 (status_notify): Undo May 18 change.
Richard M. Stallman <rms@gnu.org>
parents: 12132
diff changeset
4610 register struct Lisp_Process *p;
2f1f03964f08 (status_notify): Undo May 18 change.
Richard M. Stallman <rms@gnu.org>
parents: 12132
diff changeset
4611
2f1f03964f08 (status_notify): Undo May 18 change.
Richard M. Stallman <rms@gnu.org>
parents: 12132
diff changeset
4612 proc = Fcdr (Fcar (tail));
2f1f03964f08 (status_notify): Undo May 18 change.
Richard M. Stallman <rms@gnu.org>
parents: 12132
diff changeset
4613 p = XPROCESS (proc);
2f1f03964f08 (status_notify): Undo May 18 change.
Richard M. Stallman <rms@gnu.org>
parents: 12132
diff changeset
4614
2f1f03964f08 (status_notify): Undo May 18 change.
Richard M. Stallman <rms@gnu.org>
parents: 12132
diff changeset
4615 if (XINT (p->tick) != XINT (p->update_tick))
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4616 {
12215
2f1f03964f08 (status_notify): Undo May 18 change.
Richard M. Stallman <rms@gnu.org>
parents: 12132
diff changeset
4617 XSETINT (p->update_tick, XINT (p->tick));
2f1f03964f08 (status_notify): Undo May 18 change.
Richard M. Stallman <rms@gnu.org>
parents: 12132
diff changeset
4618
2f1f03964f08 (status_notify): Undo May 18 change.
Richard M. Stallman <rms@gnu.org>
parents: 12132
diff changeset
4619 /* 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
4620 while (! EQ (p->filter, Qt)
43598
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
4621 && ! EQ (p->status, Qconnect)
16644
3a93437adce1 (status_notify): Test p->infd > 0
Richard M. Stallman <rms@gnu.org>
parents: 16464
diff changeset
4622 && XINT (p->infd) >= 0
3a93437adce1 (status_notify): Test p->infd > 0
Richard M. Stallman <rms@gnu.org>
parents: 16464
diff changeset
4623 && 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
4624
2f1f03964f08 (status_notify): Undo May 18 change.
Richard M. Stallman <rms@gnu.org>
parents: 12132
diff changeset
4625 buffer = p->buffer;
2f1f03964f08 (status_notify): Undo May 18 change.
Richard M. Stallman <rms@gnu.org>
parents: 12132
diff changeset
4626
2f1f03964f08 (status_notify): Undo May 18 change.
Richard M. Stallman <rms@gnu.org>
parents: 12132
diff changeset
4627 /* 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
4628 if (!NILP (p->raw_status_low))
2f1f03964f08 (status_notify): Undo May 18 change.
Richard M. Stallman <rms@gnu.org>
parents: 12132
diff changeset
4629 update_status (p);
2f1f03964f08 (status_notify): Undo May 18 change.
Richard M. Stallman <rms@gnu.org>
parents: 12132
diff changeset
4630 msg = status_message (p->status);
2f1f03964f08 (status_notify): Undo May 18 change.
Richard M. Stallman <rms@gnu.org>
parents: 12132
diff changeset
4631
2f1f03964f08 (status_notify): Undo May 18 change.
Richard M. Stallman <rms@gnu.org>
parents: 12132
diff changeset
4632 /* 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
4633 symbol = p->status;
2f1f03964f08 (status_notify): Undo May 18 change.
Richard M. Stallman <rms@gnu.org>
parents: 12132
diff changeset
4634 if (CONSP (p->status))
25645
a14111a2a100 Use XCAR, XCDR, XFLOAT_DATA instead of explicit member access.
Ken Raeburn <raeburn@raeburn.org>
parents: 25356
diff changeset
4635 symbol = XCAR (p->status);
12215
2f1f03964f08 (status_notify): Undo May 18 change.
Richard M. Stallman <rms@gnu.org>
parents: 12132
diff changeset
4636
2f1f03964f08 (status_notify): Undo May 18 change.
Richard M. Stallman <rms@gnu.org>
parents: 12132
diff changeset
4637 if (EQ (symbol, Qsignal) || EQ (symbol, Qexit)
2f1f03964f08 (status_notify): Undo May 18 change.
Richard M. Stallman <rms@gnu.org>
parents: 12132
diff changeset
4638 || EQ (symbol, Qclosed))
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4639 {
12215
2f1f03964f08 (status_notify): Undo May 18 change.
Richard M. Stallman <rms@gnu.org>
parents: 12132
diff changeset
4640 if (delete_exited_processes)
2f1f03964f08 (status_notify): Undo May 18 change.
Richard M. Stallman <rms@gnu.org>
parents: 12132
diff changeset
4641 remove_process (proc);
2f1f03964f08 (status_notify): Undo May 18 change.
Richard M. Stallman <rms@gnu.org>
parents: 12132
diff changeset
4642 else
2f1f03964f08 (status_notify): Undo May 18 change.
Richard M. Stallman <rms@gnu.org>
parents: 12132
diff changeset
4643 deactivate_process (proc);
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4644 }
12215
2f1f03964f08 (status_notify): Undo May 18 change.
Richard M. Stallman <rms@gnu.org>
parents: 12132
diff changeset
4645
16464
c1f19d8e5b80 (status_notify): Update p->tick again
Richard M. Stallman <rms@gnu.org>
parents: 16220
diff changeset
4646 /* 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
4647 So set p->update_tick again
c1f19d8e5b80 (status_notify): Update p->tick again
Richard M. Stallman <rms@gnu.org>
parents: 16220
diff changeset
4648 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
4649 this code to be run again. */
c1f19d8e5b80 (status_notify): Update p->tick again
Richard M. Stallman <rms@gnu.org>
parents: 16220
diff changeset
4650 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
4651 /* Now output the message suitably. */
2f1f03964f08 (status_notify): Undo May 18 change.
Richard M. Stallman <rms@gnu.org>
parents: 12132
diff changeset
4652 if (!NILP (p->sentinel))
2f1f03964f08 (status_notify): Undo May 18 change.
Richard M. Stallman <rms@gnu.org>
parents: 12132
diff changeset
4653 exec_sentinel (proc, msg);
2f1f03964f08 (status_notify): Undo May 18 change.
Richard M. Stallman <rms@gnu.org>
parents: 12132
diff changeset
4654 /* 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
4655 when a process becomes runnable. */
2f1f03964f08 (status_notify): Undo May 18 change.
Richard M. Stallman <rms@gnu.org>
parents: 12132
diff changeset
4656 else if (!EQ (symbol, Qrun) && !NILP (buffer))
2f1f03964f08 (status_notify): Undo May 18 change.
Richard M. Stallman <rms@gnu.org>
parents: 12132
diff changeset
4657 {
2f1f03964f08 (status_notify): Undo May 18 change.
Richard M. Stallman <rms@gnu.org>
parents: 12132
diff changeset
4658 Lisp_Object ro, tem;
2f1f03964f08 (status_notify): Undo May 18 change.
Richard M. Stallman <rms@gnu.org>
parents: 12132
diff changeset
4659 struct buffer *old = current_buffer;
20551
5f17380c85f1 (status_notify): Use byte and char pointers.
Richard M. Stallman <rms@gnu.org>
parents: 20433
diff changeset
4660 int opoint, opoint_byte;
5f17380c85f1 (status_notify): Use byte and char pointers.
Richard M. Stallman <rms@gnu.org>
parents: 20433
diff changeset
4661 int before, before_byte;
12215
2f1f03964f08 (status_notify): Undo May 18 change.
Richard M. Stallman <rms@gnu.org>
parents: 12132
diff changeset
4662
2f1f03964f08 (status_notify): Undo May 18 change.
Richard M. Stallman <rms@gnu.org>
parents: 12132
diff changeset
4663 ro = XBUFFER (buffer)->read_only;
2f1f03964f08 (status_notify): Undo May 18 change.
Richard M. Stallman <rms@gnu.org>
parents: 12132
diff changeset
4664
2f1f03964f08 (status_notify): Undo May 18 change.
Richard M. Stallman <rms@gnu.org>
parents: 12132
diff changeset
4665 /* Avoid error if buffer is deleted
2f1f03964f08 (status_notify): Undo May 18 change.
Richard M. Stallman <rms@gnu.org>
parents: 12132
diff changeset
4666 (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
4667 if (NILP (XBUFFER (buffer)->name))
2f1f03964f08 (status_notify): Undo May 18 change.
Richard M. Stallman <rms@gnu.org>
parents: 12132
diff changeset
4668 continue;
2f1f03964f08 (status_notify): Undo May 18 change.
Richard M. Stallman <rms@gnu.org>
parents: 12132
diff changeset
4669 Fset_buffer (buffer);
17604
77b137e2d9a7 (read_process_output): Update opoint, old_begv and old_zv
Richard M. Stallman <rms@gnu.org>
parents: 17247
diff changeset
4670
16039
855c8d8ba0f0 Change all references from point to PT.
Karl Heuer <kwzh@gnu.org>
parents: 15895
diff changeset
4671 opoint = PT;
20551
5f17380c85f1 (status_notify): Use byte and char pointers.
Richard M. Stallman <rms@gnu.org>
parents: 20433
diff changeset
4672 opoint_byte = PT_BYTE;
12215
2f1f03964f08 (status_notify): Undo May 18 change.
Richard M. Stallman <rms@gnu.org>
parents: 12132
diff changeset
4673 /* Insert new output into buffer
2f1f03964f08 (status_notify): Undo May 18 change.
Richard M. Stallman <rms@gnu.org>
parents: 12132
diff changeset
4674 at the current end-of-output marker,
2f1f03964f08 (status_notify): Undo May 18 change.
Richard M. Stallman <rms@gnu.org>
parents: 12132
diff changeset
4675 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
4676 if (XMARKER (p->mark)->buffer)
20551
5f17380c85f1 (status_notify): Use byte and char pointers.
Richard M. Stallman <rms@gnu.org>
parents: 20433
diff changeset
4677 Fgoto_char (p->mark);
12215
2f1f03964f08 (status_notify): Undo May 18 change.
Richard M. Stallman <rms@gnu.org>
parents: 12132
diff changeset
4678 else
20551
5f17380c85f1 (status_notify): Use byte and char pointers.
Richard M. Stallman <rms@gnu.org>
parents: 20433
diff changeset
4679 SET_PT_BOTH (ZV, ZV_BYTE);
17604
77b137e2d9a7 (read_process_output): Update opoint, old_begv and old_zv
Richard M. Stallman <rms@gnu.org>
parents: 17247
diff changeset
4680
77b137e2d9a7 (read_process_output): Update opoint, old_begv and old_zv
Richard M. Stallman <rms@gnu.org>
parents: 17247
diff changeset
4681 before = PT;
20551
5f17380c85f1 (status_notify): Use byte and char pointers.
Richard M. Stallman <rms@gnu.org>
parents: 20433
diff changeset
4682 before_byte = PT_BYTE;
12215
2f1f03964f08 (status_notify): Undo May 18 change.
Richard M. Stallman <rms@gnu.org>
parents: 12132
diff changeset
4683
2f1f03964f08 (status_notify): Undo May 18 change.
Richard M. Stallman <rms@gnu.org>
parents: 12132
diff changeset
4684 tem = current_buffer->read_only;
2f1f03964f08 (status_notify): Undo May 18 change.
Richard M. Stallman <rms@gnu.org>
parents: 12132
diff changeset
4685 current_buffer->read_only = Qnil;
2f1f03964f08 (status_notify): Undo May 18 change.
Richard M. Stallman <rms@gnu.org>
parents: 12132
diff changeset
4686 insert_string ("\nProcess ");
2f1f03964f08 (status_notify): Undo May 18 change.
Richard M. Stallman <rms@gnu.org>
parents: 12132
diff changeset
4687 Finsert (1, &p->name);
2f1f03964f08 (status_notify): Undo May 18 change.
Richard M. Stallman <rms@gnu.org>
parents: 12132
diff changeset
4688 insert_string (" ");
2f1f03964f08 (status_notify): Undo May 18 change.
Richard M. Stallman <rms@gnu.org>
parents: 12132
diff changeset
4689 Finsert (1, &msg);
2f1f03964f08 (status_notify): Undo May 18 change.
Richard M. Stallman <rms@gnu.org>
parents: 12132
diff changeset
4690 current_buffer->read_only = tem;
20551
5f17380c85f1 (status_notify): Use byte and char pointers.
Richard M. Stallman <rms@gnu.org>
parents: 20433
diff changeset
4691 set_marker_both (p->mark, p->buffer, PT, PT_BYTE);
12215
2f1f03964f08 (status_notify): Undo May 18 change.
Richard M. Stallman <rms@gnu.org>
parents: 12132
diff changeset
4692
17604
77b137e2d9a7 (read_process_output): Update opoint, old_begv and old_zv
Richard M. Stallman <rms@gnu.org>
parents: 17247
diff changeset
4693 if (opoint >= before)
20551
5f17380c85f1 (status_notify): Use byte and char pointers.
Richard M. Stallman <rms@gnu.org>
parents: 20433
diff changeset
4694 SET_PT_BOTH (opoint + (PT - before),
5f17380c85f1 (status_notify): Use byte and char pointers.
Richard M. Stallman <rms@gnu.org>
parents: 20433
diff changeset
4695 opoint_byte + (PT_BYTE - before_byte));
17604
77b137e2d9a7 (read_process_output): Update opoint, old_begv and old_zv
Richard M. Stallman <rms@gnu.org>
parents: 17247
diff changeset
4696 else
20551
5f17380c85f1 (status_notify): Use byte and char pointers.
Richard M. Stallman <rms@gnu.org>
parents: 20433
diff changeset
4697 SET_PT_BOTH (opoint, opoint_byte);
17604
77b137e2d9a7 (read_process_output): Update opoint, old_begv and old_zv
Richard M. Stallman <rms@gnu.org>
parents: 17247
diff changeset
4698
12215
2f1f03964f08 (status_notify): Undo May 18 change.
Richard M. Stallman <rms@gnu.org>
parents: 12132
diff changeset
4699 set_buffer_internal (old);
2f1f03964f08 (status_notify): Undo May 18 change.
Richard M. Stallman <rms@gnu.org>
parents: 12132
diff changeset
4700 }
2f1f03964f08 (status_notify): Undo May 18 change.
Richard M. Stallman <rms@gnu.org>
parents: 12132
diff changeset
4701 }
2f1f03964f08 (status_notify): Undo May 18 change.
Richard M. Stallman <rms@gnu.org>
parents: 12132
diff changeset
4702 } /* end for */
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4703
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4704 update_mode_lines++; /* in case buffers use %s in mode-line-format */
35336
002c02db42d3 Call redisplay_preserve_echo_area with additional arg.
Gerd Moellmann <gerd@gnu.org>
parents: 34660
diff changeset
4705 redisplay_preserve_echo_area (13);
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4706
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4707 UNGCPRO;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4708 }
17041
b61cbe595be5 Include charset.h and coding.h.
Karl Heuer <kwzh@gnu.org>
parents: 16780
diff changeset
4709
b61cbe595be5 Include charset.h and coding.h.
Karl Heuer <kwzh@gnu.org>
parents: 16780
diff changeset
4710
b61cbe595be5 Include charset.h and coding.h.
Karl Heuer <kwzh@gnu.org>
parents: 16780
diff changeset
4711 DEFUN ("set-process-coding-system", Fset_process_coding_system,
b61cbe595be5 Include charset.h and coding.h.
Karl Heuer <kwzh@gnu.org>
parents: 16780
diff changeset
4712 Sset_process_coding_system, 1, 3, 0,
40103
6b389fb978bc Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
4713 doc: /* Set coding systems of PROCESS to DECODING and ENCODING.
6b389fb978bc Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
4714 DECODING will be used to decode subprocess output and ENCODING to
6b389fb978bc Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
4715 encode subprocess input. */)
6b389fb978bc Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
4716 (proc, decoding, encoding)
17041
b61cbe595be5 Include charset.h and coding.h.
Karl Heuer <kwzh@gnu.org>
parents: 16780
diff changeset
4717 register Lisp_Object proc, decoding, encoding;
b61cbe595be5 Include charset.h and coding.h.
Karl Heuer <kwzh@gnu.org>
parents: 16780
diff changeset
4718 {
b61cbe595be5 Include charset.h and coding.h.
Karl Heuer <kwzh@gnu.org>
parents: 16780
diff changeset
4719 register struct Lisp_Process *p;
b61cbe595be5 Include charset.h and coding.h.
Karl Heuer <kwzh@gnu.org>
parents: 16780
diff changeset
4720
40656
cdfd4d09b79a Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents: 40641
diff changeset
4721 CHECK_PROCESS (proc);
17041
b61cbe595be5 Include charset.h and coding.h.
Karl Heuer <kwzh@gnu.org>
parents: 16780
diff changeset
4722 p = XPROCESS (proc);
b61cbe595be5 Include charset.h and coding.h.
Karl Heuer <kwzh@gnu.org>
parents: 16780
diff changeset
4723 if (XINT (p->infd) < 0)
b61cbe595be5 Include charset.h and coding.h.
Karl Heuer <kwzh@gnu.org>
parents: 16780
diff changeset
4724 error ("Input file descriptor of %s closed", XSTRING (p->name)->data);
b61cbe595be5 Include charset.h and coding.h.
Karl Heuer <kwzh@gnu.org>
parents: 16780
diff changeset
4725 if (XINT (p->outfd) < 0)
b61cbe595be5 Include charset.h and coding.h.
Karl Heuer <kwzh@gnu.org>
parents: 16780
diff changeset
4726 error ("Output file descriptor of %s closed", XSTRING (p->name)->data);
b61cbe595be5 Include charset.h and coding.h.
Karl Heuer <kwzh@gnu.org>
parents: 16780
diff changeset
4727
b61cbe595be5 Include charset.h and coding.h.
Karl Heuer <kwzh@gnu.org>
parents: 16780
diff changeset
4728 p->decode_coding_system = Fcheck_coding_system (decoding);
b61cbe595be5 Include charset.h and coding.h.
Karl Heuer <kwzh@gnu.org>
parents: 16780
diff changeset
4729 p->encode_coding_system = Fcheck_coding_system (encoding);
b61cbe595be5 Include charset.h and coding.h.
Karl Heuer <kwzh@gnu.org>
parents: 16780
diff changeset
4730 setup_coding_system (decoding,
17110
3a348cbb354f (Fstart_process, Fopen_network_stream): Do not perform
Kenichi Handa <handa@m17n.org>
parents: 17041
diff changeset
4731 proc_decode_coding_system[XINT (p->infd)]);
17041
b61cbe595be5 Include charset.h and coding.h.
Karl Heuer <kwzh@gnu.org>
parents: 16780
diff changeset
4732 setup_coding_system (encoding,
17110
3a348cbb354f (Fstart_process, Fopen_network_stream): Do not perform
Kenichi Handa <handa@m17n.org>
parents: 17041
diff changeset
4733 proc_encode_coding_system[XINT (p->outfd)]);
17041
b61cbe595be5 Include charset.h and coding.h.
Karl Heuer <kwzh@gnu.org>
parents: 16780
diff changeset
4734
b61cbe595be5 Include charset.h and coding.h.
Karl Heuer <kwzh@gnu.org>
parents: 16780
diff changeset
4735 return Qnil;
b61cbe595be5 Include charset.h and coding.h.
Karl Heuer <kwzh@gnu.org>
parents: 16780
diff changeset
4736 }
b61cbe595be5 Include charset.h and coding.h.
Karl Heuer <kwzh@gnu.org>
parents: 16780
diff changeset
4737
b61cbe595be5 Include charset.h and coding.h.
Karl Heuer <kwzh@gnu.org>
parents: 16780
diff changeset
4738 DEFUN ("process-coding-system",
b61cbe595be5 Include charset.h and coding.h.
Karl Heuer <kwzh@gnu.org>
parents: 16780
diff changeset
4739 Fprocess_coding_system, Sprocess_coding_system, 1, 1, 0,
40103
6b389fb978bc Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
4740 doc: /* Return a cons of coding systems for decoding and encoding of PROCESS. */)
6b389fb978bc Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
4741 (proc)
17041
b61cbe595be5 Include charset.h and coding.h.
Karl Heuer <kwzh@gnu.org>
parents: 16780
diff changeset
4742 register Lisp_Object proc;
b61cbe595be5 Include charset.h and coding.h.
Karl Heuer <kwzh@gnu.org>
parents: 16780
diff changeset
4743 {
40656
cdfd4d09b79a Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents: 40641
diff changeset
4744 CHECK_PROCESS (proc);
17041
b61cbe595be5 Include charset.h and coding.h.
Karl Heuer <kwzh@gnu.org>
parents: 16780
diff changeset
4745 return Fcons (XPROCESS (proc)->decode_coding_system,
b61cbe595be5 Include charset.h and coding.h.
Karl Heuer <kwzh@gnu.org>
parents: 16780
diff changeset
4746 XPROCESS (proc)->encode_coding_system);
b61cbe595be5 Include charset.h and coding.h.
Karl Heuer <kwzh@gnu.org>
parents: 16780
diff changeset
4747 }
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4748
9686
cd788aa8cb2a Handle multiple keyboard input descriptors.
Richard M. Stallman <rms@gnu.org>
parents: 9334
diff changeset
4749 /* 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
4750 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
4751 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
4752 in addition to other places. */
cd788aa8cb2a Handle multiple keyboard input descriptors.
Richard M. Stallman <rms@gnu.org>
parents: 9334
diff changeset
4753
cd788aa8cb2a Handle multiple keyboard input descriptors.
Richard M. Stallman <rms@gnu.org>
parents: 9334
diff changeset
4754 static int add_keyboard_wait_descriptor_called_flag;
cd788aa8cb2a Handle multiple keyboard input descriptors.
Richard M. Stallman <rms@gnu.org>
parents: 9334
diff changeset
4755
cd788aa8cb2a Handle multiple keyboard input descriptors.
Richard M. Stallman <rms@gnu.org>
parents: 9334
diff changeset
4756 void
cd788aa8cb2a Handle multiple keyboard input descriptors.
Richard M. Stallman <rms@gnu.org>
parents: 9334
diff changeset
4757 add_keyboard_wait_descriptor (desc)
cd788aa8cb2a Handle multiple keyboard input descriptors.
Richard M. Stallman <rms@gnu.org>
parents: 9334
diff changeset
4758 int desc;
cd788aa8cb2a Handle multiple keyboard input descriptors.
Richard M. Stallman <rms@gnu.org>
parents: 9334
diff changeset
4759 {
cd788aa8cb2a Handle multiple keyboard input descriptors.
Richard M. Stallman <rms@gnu.org>
parents: 9334
diff changeset
4760 if (! add_keyboard_wait_descriptor_called_flag)
cd788aa8cb2a Handle multiple keyboard input descriptors.
Richard M. Stallman <rms@gnu.org>
parents: 9334
diff changeset
4761 FD_CLR (0, &input_wait_mask);
cd788aa8cb2a Handle multiple keyboard input descriptors.
Richard M. Stallman <rms@gnu.org>
parents: 9334
diff changeset
4762 add_keyboard_wait_descriptor_called_flag = 1;
cd788aa8cb2a Handle multiple keyboard input descriptors.
Richard M. Stallman <rms@gnu.org>
parents: 9334
diff changeset
4763 FD_SET (desc, &input_wait_mask);
17224
dd2545e79add (wait_reading_process_input): If wait_for_cell,
Richard M. Stallman <rms@gnu.org>
parents: 17110
diff changeset
4764 FD_SET (desc, &non_process_wait_mask);
9686
cd788aa8cb2a Handle multiple keyboard input descriptors.
Richard M. Stallman <rms@gnu.org>
parents: 9334
diff changeset
4765 if (desc > max_keyboard_desc)
cd788aa8cb2a Handle multiple keyboard input descriptors.
Richard M. Stallman <rms@gnu.org>
parents: 9334
diff changeset
4766 max_keyboard_desc = desc;
cd788aa8cb2a Handle multiple keyboard input descriptors.
Richard M. Stallman <rms@gnu.org>
parents: 9334
diff changeset
4767 }
cd788aa8cb2a Handle multiple keyboard input descriptors.
Richard M. Stallman <rms@gnu.org>
parents: 9334
diff changeset
4768
cd788aa8cb2a Handle multiple keyboard input descriptors.
Richard M. Stallman <rms@gnu.org>
parents: 9334
diff changeset
4769 /* 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
4770
cd788aa8cb2a Handle multiple keyboard input descriptors.
Richard M. Stallman <rms@gnu.org>
parents: 9334
diff changeset
4771 void
cd788aa8cb2a Handle multiple keyboard input descriptors.
Richard M. Stallman <rms@gnu.org>
parents: 9334
diff changeset
4772 delete_keyboard_wait_descriptor (desc)
cd788aa8cb2a Handle multiple keyboard input descriptors.
Richard M. Stallman <rms@gnu.org>
parents: 9334
diff changeset
4773 int desc;
cd788aa8cb2a Handle multiple keyboard input descriptors.
Richard M. Stallman <rms@gnu.org>
parents: 9334
diff changeset
4774 {
cd788aa8cb2a Handle multiple keyboard input descriptors.
Richard M. Stallman <rms@gnu.org>
parents: 9334
diff changeset
4775 int fd;
cd788aa8cb2a Handle multiple keyboard input descriptors.
Richard M. Stallman <rms@gnu.org>
parents: 9334
diff changeset
4776 int lim = max_keyboard_desc;
cd788aa8cb2a Handle multiple keyboard input descriptors.
Richard M. Stallman <rms@gnu.org>
parents: 9334
diff changeset
4777
cd788aa8cb2a Handle multiple keyboard input descriptors.
Richard M. Stallman <rms@gnu.org>
parents: 9334
diff changeset
4778 FD_CLR (desc, &input_wait_mask);
17224
dd2545e79add (wait_reading_process_input): If wait_for_cell,
Richard M. Stallman <rms@gnu.org>
parents: 17110
diff changeset
4779 FD_CLR (desc, &non_process_wait_mask);
9686
cd788aa8cb2a Handle multiple keyboard input descriptors.
Richard M. Stallman <rms@gnu.org>
parents: 9334
diff changeset
4780
cd788aa8cb2a Handle multiple keyboard input descriptors.
Richard M. Stallman <rms@gnu.org>
parents: 9334
diff changeset
4781 if (desc == max_keyboard_desc)
cd788aa8cb2a Handle multiple keyboard input descriptors.
Richard M. Stallman <rms@gnu.org>
parents: 9334
diff changeset
4782 for (fd = 0; fd < lim; fd++)
cd788aa8cb2a Handle multiple keyboard input descriptors.
Richard M. Stallman <rms@gnu.org>
parents: 9334
diff changeset
4783 if (FD_ISSET (fd, &input_wait_mask)
cd788aa8cb2a Handle multiple keyboard input descriptors.
Richard M. Stallman <rms@gnu.org>
parents: 9334
diff changeset
4784 && !FD_ISSET (fd, &non_keyboard_wait_mask))
cd788aa8cb2a Handle multiple keyboard input descriptors.
Richard M. Stallman <rms@gnu.org>
parents: 9334
diff changeset
4785 max_keyboard_desc = fd;
cd788aa8cb2a Handle multiple keyboard input descriptors.
Richard M. Stallman <rms@gnu.org>
parents: 9334
diff changeset
4786 }
cd788aa8cb2a Handle multiple keyboard input descriptors.
Richard M. Stallman <rms@gnu.org>
parents: 9334
diff changeset
4787
cd788aa8cb2a Handle multiple keyboard input descriptors.
Richard M. Stallman <rms@gnu.org>
parents: 9334
diff changeset
4788 /* Return nonzero if *MASK has a bit set
cd788aa8cb2a Handle multiple keyboard input descriptors.
Richard M. Stallman <rms@gnu.org>
parents: 9334
diff changeset
4789 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
4790
cd788aa8cb2a Handle multiple keyboard input descriptors.
Richard M. Stallman <rms@gnu.org>
parents: 9334
diff changeset
4791 int
cd788aa8cb2a Handle multiple keyboard input descriptors.
Richard M. Stallman <rms@gnu.org>
parents: 9334
diff changeset
4792 keyboard_bit_set (mask)
cd788aa8cb2a Handle multiple keyboard input descriptors.
Richard M. Stallman <rms@gnu.org>
parents: 9334
diff changeset
4793 SELECT_TYPE *mask;
cd788aa8cb2a Handle multiple keyboard input descriptors.
Richard M. Stallman <rms@gnu.org>
parents: 9334
diff changeset
4794 {
cd788aa8cb2a Handle multiple keyboard input descriptors.
Richard M. Stallman <rms@gnu.org>
parents: 9334
diff changeset
4795 int fd;
cd788aa8cb2a Handle multiple keyboard input descriptors.
Richard M. Stallman <rms@gnu.org>
parents: 9334
diff changeset
4796
12541
33a4586124e9 (keyboard_bit_set): Fix one-off in loop end.
Karl Heuer <kwzh@gnu.org>
parents: 12491
diff changeset
4797 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
4798 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
4799 && !FD_ISSET (fd, &non_keyboard_wait_mask))
cd788aa8cb2a Handle multiple keyboard input descriptors.
Richard M. Stallman <rms@gnu.org>
parents: 9334
diff changeset
4800 return 1;
cd788aa8cb2a Handle multiple keyboard input descriptors.
Richard M. Stallman <rms@gnu.org>
parents: 9334
diff changeset
4801
cd788aa8cb2a Handle multiple keyboard input descriptors.
Richard M. Stallman <rms@gnu.org>
parents: 9334
diff changeset
4802 return 0;
cd788aa8cb2a Handle multiple keyboard input descriptors.
Richard M. Stallman <rms@gnu.org>
parents: 9334
diff changeset
4803 }
cd788aa8cb2a Handle multiple keyboard input descriptors.
Richard M. Stallman <rms@gnu.org>
parents: 9334
diff changeset
4804
21514
fa9ff387d260 Fix -Wimplicit warnings.
Andreas Schwab <schwab@suse.de>
parents: 21414
diff changeset
4805 void
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4806 init_process ()
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4807 {
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4808 register int i;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4809
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4810 #ifdef SIGCHLD
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4811 #ifndef CANNOT_DUMP
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4812 if (! noninteractive || initialized)
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4813 #endif
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4814 signal (SIGCHLD, sigchld_handler);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4815 #endif
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4816
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4817 FD_ZERO (&input_wait_mask);
9686
cd788aa8cb2a Handle multiple keyboard input descriptors.
Richard M. Stallman <rms@gnu.org>
parents: 9334
diff changeset
4818 FD_ZERO (&non_keyboard_wait_mask);
17224
dd2545e79add (wait_reading_process_input): If wait_for_cell,
Richard M. Stallman <rms@gnu.org>
parents: 17110
diff changeset
4819 FD_ZERO (&non_process_wait_mask);
7044
7032d07f5ad9 (max_process_desc): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 7013
diff changeset
4820 max_process_desc = 0;
4682
c4d471244116 (keyboard_descriptor): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 4639
diff changeset
4821
9686
cd788aa8cb2a Handle multiple keyboard input descriptors.
Richard M. Stallman <rms@gnu.org>
parents: 9334
diff changeset
4822 FD_SET (0, &input_wait_mask);
4682
c4d471244116 (keyboard_descriptor): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 4639
diff changeset
4823
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4824 Vprocess_alist = Qnil;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4825 for (i = 0; i < MAXDESC; i++)
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4826 {
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4827 chan_process[i] = Qnil;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4828 proc_buffered_char[i] = -1;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4829 }
17110
3a348cbb354f (Fstart_process, Fopen_network_stream): Do not perform
Kenichi Handa <handa@m17n.org>
parents: 17041
diff changeset
4830 bzero (proc_decode_coding_system, sizeof proc_decode_coding_system);
3a348cbb354f (Fstart_process, Fopen_network_stream): Do not perform
Kenichi Handa <handa@m17n.org>
parents: 17041
diff changeset
4831 bzero (proc_encode_coding_system, sizeof proc_encode_coding_system);
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4832 }
4231
91a883c56382 (Fget_buffer_process): Delete doc string from
Richard M. Stallman <rms@gnu.org>
parents: 4057
diff changeset
4833
21514
fa9ff387d260 Fix -Wimplicit warnings.
Andreas Schwab <schwab@suse.de>
parents: 21414
diff changeset
4834 void
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4835 syms_of_process ()
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4836 {
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4837 Qprocessp = intern ("processp");
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4838 staticpro (&Qprocessp);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4839 Qrun = intern ("run");
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4840 staticpro (&Qrun);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4841 Qstop = intern ("stop");
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4842 staticpro (&Qstop);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4843 Qsignal = intern ("signal");
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4844 staticpro (&Qsignal);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4845
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4846 /* Qexit is already staticpro'd by syms_of_eval; don't staticpro it
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4847 here again.
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4848
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4849 Qexit = intern ("exit");
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4850 staticpro (&Qexit); */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4851
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4852 Qopen = intern ("open");
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4853 staticpro (&Qopen);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4854 Qclosed = intern ("closed");
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4855 staticpro (&Qclosed);
43598
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
4856 Qconnect = intern ("connect");
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
4857 staticpro (&Qconnect);
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
4858 Qfailed = intern ("failed");
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
4859 staticpro (&Qfailed);
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4860
8231
5226ed89c1a6 (Qlast_nonmenu_event): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 8063
diff changeset
4861 Qlast_nonmenu_event = intern ("last-nonmenu-event");
5226ed89c1a6 (Qlast_nonmenu_event): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 8063
diff changeset
4862 staticpro (&Qlast_nonmenu_event);
5226ed89c1a6 (Qlast_nonmenu_event): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 8063
diff changeset
4863
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4864 staticpro (&Vprocess_alist);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4865
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4866 DEFVAR_BOOL ("delete-exited-processes", &delete_exited_processes,
40103
6b389fb978bc Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
4867 doc: /* *Non-nil means delete processes immediately when they exit.
6b389fb978bc Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
4868 nil means don't delete them until `list-processes' is run. */);
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4869
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4870 delete_exited_processes = 1;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4871
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4872 DEFVAR_LISP ("process-connection-type", &Vprocess_connection_type,
40103
6b389fb978bc Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
4873 doc: /* Control type of device used to communicate with subprocesses.
6b389fb978bc Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
4874 Values are nil to use a pipe, or t or `pty' to use a pty.
6b389fb978bc Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
4875 The value has no effect if the system has no ptys or if all ptys are busy:
6b389fb978bc Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
4876 then a pipe is used in any case.
6b389fb978bc Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
4877 The value takes effect when `start-process' is called. */);
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4878 Vprocess_connection_type = Qt;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4879
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4880 defsubr (&Sprocessp);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4881 defsubr (&Sget_process);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4882 defsubr (&Sget_buffer_process);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4883 defsubr (&Sdelete_process);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4884 defsubr (&Sprocess_status);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4885 defsubr (&Sprocess_exit_status);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4886 defsubr (&Sprocess_id);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4887 defsubr (&Sprocess_name);
9030
b14532c71632 (exec_sentinel_error_handler): New function.
Richard M. Stallman <rms@gnu.org>
parents: 8570
diff changeset
4888 defsubr (&Sprocess_tty_name);
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4889 defsubr (&Sprocess_command);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4890 defsubr (&Sset_process_buffer);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4891 defsubr (&Sprocess_buffer);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4892 defsubr (&Sprocess_mark);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4893 defsubr (&Sset_process_filter);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4894 defsubr (&Sprocess_filter);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4895 defsubr (&Sset_process_sentinel);
16058
924aeb9ed7c3 (Fprocess_contact): New function.
Richard M. Stallman <rms@gnu.org>
parents: 16053
diff changeset
4896 defsubr (&Sprocess_sentinel);
6830
bcaddbe53068 (Fset_process_window_size): New function.
Richard M. Stallman <rms@gnu.org>
parents: 6823
diff changeset
4897 defsubr (&Sset_process_window_size);
21656
bb39a5863a82 (Fset_process_inherit_coding_system_flag,
Eli Zaretskii <eliz@gnu.org>
parents: 21530
diff changeset
4898 defsubr (&Sset_process_inherit_coding_system_flag);
bb39a5863a82 (Fset_process_inherit_coding_system_flag,
Eli Zaretskii <eliz@gnu.org>
parents: 21530
diff changeset
4899 defsubr (&Sprocess_inherit_coding_system_flag);
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4900 defsubr (&Sprocess_kill_without_query);
16058
924aeb9ed7c3 (Fprocess_contact): New function.
Richard M. Stallman <rms@gnu.org>
parents: 16053
diff changeset
4901 defsubr (&Sprocess_contact);
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4902 defsubr (&Slist_processes);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4903 defsubr (&Sprocess_list);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4904 defsubr (&Sstart_process);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4905 #ifdef HAVE_SOCKETS
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4906 defsubr (&Sopen_network_stream);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4907 #endif /* HAVE_SOCKETS */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4908 defsubr (&Saccept_process_output);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4909 defsubr (&Sprocess_send_region);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4910 defsubr (&Sprocess_send_string);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4911 defsubr (&Sinterrupt_process);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4912 defsubr (&Skill_process);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4913 defsubr (&Squit_process);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4914 defsubr (&Sstop_process);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4915 defsubr (&Scontinue_process);
24352
023601636a18 (syms_of_process): defsubr it.
Richard M. Stallman <rms@gnu.org>
parents: 23930
diff changeset
4916 defsubr (&Sprocess_running_child_p);
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4917 defsubr (&Sprocess_send_eof);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4918 defsubr (&Ssignal_process);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4919 defsubr (&Swaiting_for_user_input_p);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4920 /* defsubr (&Sprocess_connection); */
17041
b61cbe595be5 Include charset.h and coding.h.
Karl Heuer <kwzh@gnu.org>
parents: 16780
diff changeset
4921 defsubr (&Sset_process_coding_system);
b61cbe595be5 Include charset.h and coding.h.
Karl Heuer <kwzh@gnu.org>
parents: 16780
diff changeset
4922 defsubr (&Sprocess_coding_system);
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4923 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4924
588
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
4925
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
4926 #else /* not subprocesses */
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
4927
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
4928 #include <sys/types.h>
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
4929 #include <errno.h>
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
4930
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
4931 #include "lisp.h"
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
4932 #include "systime.h"
21656
bb39a5863a82 (Fset_process_inherit_coding_system_flag,
Eli Zaretskii <eliz@gnu.org>
parents: 21530
diff changeset
4933 #include "charset.h"
bb39a5863a82 (Fset_process_inherit_coding_system_flag,
Eli Zaretskii <eliz@gnu.org>
parents: 21530
diff changeset
4934 #include "coding.h"
588
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
4935 #include "termopts.h"
12132
017f32786ed3 [!subprocesses]: Include sysselect.h.
Karl Heuer <kwzh@gnu.org>
parents: 11926
diff changeset
4936 #include "sysselect.h"
588
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
4937
765
e4093444f9f8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 692
diff changeset
4938 extern int frame_garbaged;
588
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
4939
14806
232b90ad50e8 (wait_reading_process_input) [! subprocesses]: Run
Karl Heuer <kwzh@gnu.org>
parents: 14802
diff changeset
4940 extern EMACS_TIME timer_check ();
232b90ad50e8 (wait_reading_process_input) [! subprocesses]: Run
Karl Heuer <kwzh@gnu.org>
parents: 14802
diff changeset
4941 extern int timers_run;
588
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
4942
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
4943 /* As described above, except assuming that there are no subprocesses:
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
4944
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
4945 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
4946
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
4947 time_limit is:
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
4948 timeout in seconds, or
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
4949 zero for no limit, or
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
4950 -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
4951
650
39f0e62a8511 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 648
diff changeset
4952 read_kbd is a Lisp_Object:
588
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
4953 0 to ignore keyboard input, or
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
4954 1 to return when input is available, or
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
4955 -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
4956 the quit handler.
15021
af36df262fc5 (wait_reading_process_input) [!subprocesses]: Handle
Richard M. Stallman <rms@gnu.org>
parents: 14998
diff changeset
4957 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
4958 (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
4959 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
4960 `subprocesses' isn't defined.
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
4961
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
4962 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
4963 output that arrives.
588
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
4964
3591
507f64624555 Apply typo patches from Paul Eggert.
Jim Blandy <jimb@redhat.com>
parents: 3510
diff changeset
4965 Return true iff we received input from any process. */
588
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
4966
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
4967 int
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
4968 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
4969 int time_limit, microsecs;
39f0e62a8511 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 648
diff changeset
4970 Lisp_Object read_kbd;
39f0e62a8511 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 648
diff changeset
4971 int do_display;
588
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
4972 {
22535
fd9324c5a498 (wait_reading_process_input): Recompute timeout each
Eli Zaretskii <eliz@gnu.org>
parents: 22523
diff changeset
4973 register int nfds;
14806
232b90ad50e8 (wait_reading_process_input) [! subprocesses]: Run
Karl Heuer <kwzh@gnu.org>
parents: 14802
diff changeset
4974 EMACS_TIME end_time, timeout;
14278
3562c5f43780 (wait_reading_process_input) [not subprocesses]: Do
Karl Heuer <kwzh@gnu.org>
parents: 14186
diff changeset
4975 SELECT_TYPE waitchannels;
14806
232b90ad50e8 (wait_reading_process_input) [! subprocesses]: Run
Karl Heuer <kwzh@gnu.org>
parents: 14802
diff changeset
4976 int xerrno;
39973
579177964efa Avoid (most) uses of XCAR/XCDR as lvalues, for flexibility in experimenting
Ken Raeburn <raeburn@raeburn.org>
parents: 39964
diff changeset
4977 /* Either nil or a cons cell, the car of which is of interest and
579177964efa Avoid (most) uses of XCAR/XCDR as lvalues, for flexibility in experimenting
Ken Raeburn <raeburn@raeburn.org>
parents: 39964
diff changeset
4978 may be changed outside of this routine. */
579177964efa Avoid (most) uses of XCAR/XCDR as lvalues, for flexibility in experimenting
Ken Raeburn <raeburn@raeburn.org>
parents: 39964
diff changeset
4979 Lisp_Object wait_for_cell = Qnil;
15021
af36df262fc5 (wait_reading_process_input) [!subprocesses]: Handle
Richard M. Stallman <rms@gnu.org>
parents: 14998
diff changeset
4980
af36df262fc5 (wait_reading_process_input) [!subprocesses]: Handle
Richard M. Stallman <rms@gnu.org>
parents: 14998
diff changeset
4981 /* 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
4982 if (CONSP (read_kbd))
af36df262fc5 (wait_reading_process_input) [!subprocesses]: Handle
Richard M. Stallman <rms@gnu.org>
parents: 14998
diff changeset
4983 {
39973
579177964efa Avoid (most) uses of XCAR/XCDR as lvalues, for flexibility in experimenting
Ken Raeburn <raeburn@raeburn.org>
parents: 39964
diff changeset
4984 wait_for_cell = read_kbd;
15021
af36df262fc5 (wait_reading_process_input) [!subprocesses]: Handle
Richard M. Stallman <rms@gnu.org>
parents: 14998
diff changeset
4985 XSETFASTINT (read_kbd, 0);
af36df262fc5 (wait_reading_process_input) [!subprocesses]: Handle
Richard M. Stallman <rms@gnu.org>
parents: 14998
diff changeset
4986 }
588
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
4987
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
4988 /* What does time_limit really mean? */
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
4989 if (time_limit || microsecs)
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
4990 {
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
4991 EMACS_GET_TIME (end_time);
22535
fd9324c5a498 (wait_reading_process_input): Recompute timeout each
Eli Zaretskii <eliz@gnu.org>
parents: 22523
diff changeset
4992 EMACS_SET_SECS_USECS (timeout, time_limit, microsecs);
588
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
4993 EMACS_ADD_TIME (end_time, end_time, timeout);
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
4994 }
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
4995
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
4996 /* Turn off periodic alarms (in case they are in use)
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
4997 because the select emulator uses alarms. */
27430
1aa71680fe50 (toplevel): Include atimer.h.
Gerd Moellmann <gerd@gnu.org>
parents: 27028
diff changeset
4998 turn_on_atimers (0);
588
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
4999
22535
fd9324c5a498 (wait_reading_process_input): Recompute timeout each
Eli Zaretskii <eliz@gnu.org>
parents: 22523
diff changeset
5000 while (1)
588
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
5001 {
14802
45827a5afe4d [!subprocesses] (wait_reading_process_input):
Richard M. Stallman <rms@gnu.org>
parents: 14785
diff changeset
5002 int timeout_reduced_for_timers = 0;
588
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
5003
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
5004 /* If calling from keyboard input, do not quit
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
5005 since we want to return C-g as an input character.
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
5006 Otherwise, do pending quit if requested. */
650
39f0e62a8511 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 648
diff changeset
5007 if (XINT (read_kbd) >= 0)
588
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
5008 QUIT;
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
5009
15021
af36df262fc5 (wait_reading_process_input) [!subprocesses]: Handle
Richard M. Stallman <rms@gnu.org>
parents: 14998
diff changeset
5010 /* Exit now if the cell we're waiting for became non-nil. */
39973
579177964efa Avoid (most) uses of XCAR/XCDR as lvalues, for flexibility in experimenting
Ken Raeburn <raeburn@raeburn.org>
parents: 39964
diff changeset
5011 if (! NILP (wait_for_cell) && ! NILP (XCAR (wait_for_cell)))
15021
af36df262fc5 (wait_reading_process_input) [!subprocesses]: Handle
Richard M. Stallman <rms@gnu.org>
parents: 14998
diff changeset
5012 break;
af36df262fc5 (wait_reading_process_input) [!subprocesses]: Handle
Richard M. Stallman <rms@gnu.org>
parents: 14998
diff changeset
5013
14802
45827a5afe4d [!subprocesses] (wait_reading_process_input):
Richard M. Stallman <rms@gnu.org>
parents: 14785
diff changeset
5014 /* 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
5015 /* Exit if already run out */
22535
fd9324c5a498 (wait_reading_process_input): Recompute timeout each
Eli Zaretskii <eliz@gnu.org>
parents: 22523
diff changeset
5016 if (time_limit == -1)
fd9324c5a498 (wait_reading_process_input): Recompute timeout each
Eli Zaretskii <eliz@gnu.org>
parents: 22523
diff changeset
5017 {
fd9324c5a498 (wait_reading_process_input): Recompute timeout each
Eli Zaretskii <eliz@gnu.org>
parents: 22523
diff changeset
5018 /* -1 specified for timeout means
fd9324c5a498 (wait_reading_process_input): Recompute timeout each
Eli Zaretskii <eliz@gnu.org>
parents: 22523
diff changeset
5019 gobble output available now
fd9324c5a498 (wait_reading_process_input): Recompute timeout each
Eli Zaretskii <eliz@gnu.org>
parents: 22523
diff changeset
5020 but don't wait at all. */
fd9324c5a498 (wait_reading_process_input): Recompute timeout each
Eli Zaretskii <eliz@gnu.org>
parents: 22523
diff changeset
5021
fd9324c5a498 (wait_reading_process_input): Recompute timeout each
Eli Zaretskii <eliz@gnu.org>
parents: 22523
diff changeset
5022 EMACS_SET_SECS_USECS (timeout, 0, 0);
fd9324c5a498 (wait_reading_process_input): Recompute timeout each
Eli Zaretskii <eliz@gnu.org>
parents: 22523
diff changeset
5023 }
fd9324c5a498 (wait_reading_process_input): Recompute timeout each
Eli Zaretskii <eliz@gnu.org>
parents: 22523
diff changeset
5024 else if (time_limit || microsecs)
588
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
5025 {
14806
232b90ad50e8 (wait_reading_process_input) [! subprocesses]: Run
Karl Heuer <kwzh@gnu.org>
parents: 14802
diff changeset
5026 EMACS_GET_TIME (timeout);
232b90ad50e8 (wait_reading_process_input) [! subprocesses]: Run
Karl Heuer <kwzh@gnu.org>
parents: 14802
diff changeset
5027 EMACS_SUB_TIME (timeout, end_time, timeout);
232b90ad50e8 (wait_reading_process_input) [! subprocesses]: Run
Karl Heuer <kwzh@gnu.org>
parents: 14802
diff changeset
5028 if (EMACS_TIME_NEG_P (timeout))
588
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
5029 break;
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
5030 }
22535
fd9324c5a498 (wait_reading_process_input): Recompute timeout each
Eli Zaretskii <eliz@gnu.org>
parents: 22523
diff changeset
5031 else
fd9324c5a498 (wait_reading_process_input): Recompute timeout each
Eli Zaretskii <eliz@gnu.org>
parents: 22523
diff changeset
5032 {
fd9324c5a498 (wait_reading_process_input): Recompute timeout each
Eli Zaretskii <eliz@gnu.org>
parents: 22523
diff changeset
5033 EMACS_SET_SECS_USECS (timeout, 100000, 0);
fd9324c5a498 (wait_reading_process_input): Recompute timeout each
Eli Zaretskii <eliz@gnu.org>
parents: 22523
diff changeset
5034 }
588
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
5035
14802
45827a5afe4d [!subprocesses] (wait_reading_process_input):
Richard M. Stallman <rms@gnu.org>
parents: 14785
diff changeset
5036 /* 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
5037 run timer events directly.
45827a5afe4d [!subprocesses] (wait_reading_process_input):
Richard M. Stallman <rms@gnu.org>
parents: 14785
diff changeset
5038 (Callers that will immediately read keyboard events
45827a5afe4d [!subprocesses] (wait_reading_process_input):
Richard M. Stallman <rms@gnu.org>
parents: 14785
diff changeset
5039 call timer_delay on their own.) */
39973
579177964efa Avoid (most) uses of XCAR/XCDR as lvalues, for flexibility in experimenting
Ken Raeburn <raeburn@raeburn.org>
parents: 39964
diff changeset
5040 if (NILP (wait_for_cell))
14802
45827a5afe4d [!subprocesses] (wait_reading_process_input):
Richard M. Stallman <rms@gnu.org>
parents: 14785
diff changeset
5041 {
45827a5afe4d [!subprocesses] (wait_reading_process_input):
Richard M. Stallman <rms@gnu.org>
parents: 14785
diff changeset
5042 EMACS_TIME timer_delay;
34660
75866a7ebaec (wait_reading_process_input): Check for pending
Gerd Moellmann <gerd@gnu.org>
parents: 34647
diff changeset
5043
75866a7ebaec (wait_reading_process_input): Check for pending
Gerd Moellmann <gerd@gnu.org>
parents: 34647
diff changeset
5044 do
15021
af36df262fc5 (wait_reading_process_input) [!subprocesses]: Handle
Richard M. Stallman <rms@gnu.org>
parents: 14998
diff changeset
5045 {
34660
75866a7ebaec (wait_reading_process_input): Check for pending
Gerd Moellmann <gerd@gnu.org>
parents: 34647
diff changeset
5046 int old_timers_run = timers_run;
75866a7ebaec (wait_reading_process_input): Check for pending
Gerd Moellmann <gerd@gnu.org>
parents: 34647
diff changeset
5047 timer_delay = timer_check (1);
75866a7ebaec (wait_reading_process_input): Check for pending
Gerd Moellmann <gerd@gnu.org>
parents: 34647
diff changeset
5048 if (timers_run != old_timers_run && do_display)
75866a7ebaec (wait_reading_process_input): Check for pending
Gerd Moellmann <gerd@gnu.org>
parents: 34647
diff changeset
5049 /* We must retry, since a timer may have requeued itself
75866a7ebaec (wait_reading_process_input): Check for pending
Gerd Moellmann <gerd@gnu.org>
parents: 34647
diff changeset
5050 and that could alter the time delay. */
35336
002c02db42d3 Call redisplay_preserve_echo_area with additional arg.
Gerd Moellmann <gerd@gnu.org>
parents: 34660
diff changeset
5051 redisplay_preserve_echo_area (14);
34660
75866a7ebaec (wait_reading_process_input): Check for pending
Gerd Moellmann <gerd@gnu.org>
parents: 34647
diff changeset
5052 else
75866a7ebaec (wait_reading_process_input): Check for pending
Gerd Moellmann <gerd@gnu.org>
parents: 34647
diff changeset
5053 break;
15021
af36df262fc5 (wait_reading_process_input) [!subprocesses]: Handle
Richard M. Stallman <rms@gnu.org>
parents: 14998
diff changeset
5054 }
34660
75866a7ebaec (wait_reading_process_input): Check for pending
Gerd Moellmann <gerd@gnu.org>
parents: 34647
diff changeset
5055 while (!detect_input_pending ());
15021
af36df262fc5 (wait_reading_process_input) [!subprocesses]: Handle
Richard M. Stallman <rms@gnu.org>
parents: 14998
diff changeset
5056
22535
fd9324c5a498 (wait_reading_process_input): Recompute timeout each
Eli Zaretskii <eliz@gnu.org>
parents: 22523
diff changeset
5057 /* If there is unread keyboard input, also return. */
fd9324c5a498 (wait_reading_process_input): Recompute timeout each
Eli Zaretskii <eliz@gnu.org>
parents: 22523
diff changeset
5058 if (XINT (read_kbd) != 0
fd9324c5a498 (wait_reading_process_input): Recompute timeout each
Eli Zaretskii <eliz@gnu.org>
parents: 22523
diff changeset
5059 && requeued_events_pending_p ())
fd9324c5a498 (wait_reading_process_input): Recompute timeout each
Eli Zaretskii <eliz@gnu.org>
parents: 22523
diff changeset
5060 break;
fd9324c5a498 (wait_reading_process_input): Recompute timeout each
Eli Zaretskii <eliz@gnu.org>
parents: 22523
diff changeset
5061
14806
232b90ad50e8 (wait_reading_process_input) [! subprocesses]: Run
Karl Heuer <kwzh@gnu.org>
parents: 14802
diff changeset
5062 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
5063 {
45827a5afe4d [!subprocesses] (wait_reading_process_input):
Richard M. Stallman <rms@gnu.org>
parents: 14785
diff changeset
5064 EMACS_TIME difference;
14806
232b90ad50e8 (wait_reading_process_input) [! subprocesses]: Run
Karl Heuer <kwzh@gnu.org>
parents: 14802
diff changeset
5065 EMACS_SUB_TIME (difference, timer_delay, timeout);
14802
45827a5afe4d [!subprocesses] (wait_reading_process_input):
Richard M. Stallman <rms@gnu.org>
parents: 14785
diff changeset
5066 if (EMACS_TIME_NEG_P (difference))
45827a5afe4d [!subprocesses] (wait_reading_process_input):
Richard M. Stallman <rms@gnu.org>
parents: 14785
diff changeset
5067 {
14806
232b90ad50e8 (wait_reading_process_input) [! subprocesses]: Run
Karl Heuer <kwzh@gnu.org>
parents: 14802
diff changeset
5068 timeout = timer_delay;
14802
45827a5afe4d [!subprocesses] (wait_reading_process_input):
Richard M. Stallman <rms@gnu.org>
parents: 14785
diff changeset
5069 timeout_reduced_for_timers = 1;
45827a5afe4d [!subprocesses] (wait_reading_process_input):
Richard M. Stallman <rms@gnu.org>
parents: 14785
diff changeset
5070 }
45827a5afe4d [!subprocesses] (wait_reading_process_input):
Richard M. Stallman <rms@gnu.org>
parents: 14785
diff changeset
5071 }
45827a5afe4d [!subprocesses] (wait_reading_process_input):
Richard M. Stallman <rms@gnu.org>
parents: 14785
diff changeset
5072 }
45827a5afe4d [!subprocesses] (wait_reading_process_input):
Richard M. Stallman <rms@gnu.org>
parents: 14785
diff changeset
5073
588
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
5074 /* Cause C-g and alarm signals to take immediate action,
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
5075 and cause input available signals to zero out timeout. */
650
39f0e62a8511 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 648
diff changeset
5076 if (XINT (read_kbd) < 0)
588
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
5077 set_waiting_for_input (&timeout);
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
5078
15021
af36df262fc5 (wait_reading_process_input) [!subprocesses]: Handle
Richard M. Stallman <rms@gnu.org>
parents: 14998
diff changeset
5079 /* Wait till there is something to do. */
af36df262fc5 (wait_reading_process_input) [!subprocesses]: Handle
Richard M. Stallman <rms@gnu.org>
parents: 14998
diff changeset
5080
39973
579177964efa Avoid (most) uses of XCAR/XCDR as lvalues, for flexibility in experimenting
Ken Raeburn <raeburn@raeburn.org>
parents: 39964
diff changeset
5081 if (! XINT (read_kbd) && NILP (wait_for_cell))
15021
af36df262fc5 (wait_reading_process_input) [!subprocesses]: Handle
Richard M. Stallman <rms@gnu.org>
parents: 14998
diff changeset
5082 FD_ZERO (&waitchannels);
af36df262fc5 (wait_reading_process_input) [!subprocesses]: Handle
Richard M. Stallman <rms@gnu.org>
parents: 14998
diff changeset
5083 else
af36df262fc5 (wait_reading_process_input) [!subprocesses]: Handle
Richard M. Stallman <rms@gnu.org>
parents: 14998
diff changeset
5084 FD_SET (0, &waitchannels);
af36df262fc5 (wait_reading_process_input) [!subprocesses]: Handle
Richard M. Stallman <rms@gnu.org>
parents: 14998
diff changeset
5085
765
e4093444f9f8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 692
diff changeset
5086 /* If a frame has been newly mapped and needs updating,
588
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
5087 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
5088 if (frame_garbaged && do_display)
15021
af36df262fc5 (wait_reading_process_input) [!subprocesses]: Handle
Richard M. Stallman <rms@gnu.org>
parents: 14998
diff changeset
5089 {
af36df262fc5 (wait_reading_process_input) [!subprocesses]: Handle
Richard M. Stallman <rms@gnu.org>
parents: 14998
diff changeset
5090 clear_waiting_for_input ();
35336
002c02db42d3 Call redisplay_preserve_echo_area with additional arg.
Gerd Moellmann <gerd@gnu.org>
parents: 34660
diff changeset
5091 redisplay_preserve_echo_area (15);
15021
af36df262fc5 (wait_reading_process_input) [!subprocesses]: Handle
Richard M. Stallman <rms@gnu.org>
parents: 14998
diff changeset
5092 if (XINT (read_kbd) < 0)
af36df262fc5 (wait_reading_process_input) [!subprocesses]: Handle
Richard M. Stallman <rms@gnu.org>
parents: 14998
diff changeset
5093 set_waiting_for_input (&timeout);
af36df262fc5 (wait_reading_process_input) [!subprocesses]: Handle
Richard M. Stallman <rms@gnu.org>
parents: 14998
diff changeset
5094 }
588
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
5095
15025
e5f54fd1c352 (wait_reading_process_input) [!subprocesses]:
Richard M. Stallman <rms@gnu.org>
parents: 15021
diff changeset
5096 if (XINT (read_kbd) && detect_input_pending ())
e5f54fd1c352 (wait_reading_process_input) [!subprocesses]:
Richard M. Stallman <rms@gnu.org>
parents: 15021
diff changeset
5097 {
e5f54fd1c352 (wait_reading_process_input) [!subprocesses]:
Richard M. Stallman <rms@gnu.org>
parents: 15021
diff changeset
5098 nfds = 0;
e5f54fd1c352 (wait_reading_process_input) [!subprocesses]:
Richard M. Stallman <rms@gnu.org>
parents: 15021
diff changeset
5099 FD_ZERO (&waitchannels);
e5f54fd1c352 (wait_reading_process_input) [!subprocesses]:
Richard M. Stallman <rms@gnu.org>
parents: 15021
diff changeset
5100 }
e5f54fd1c352 (wait_reading_process_input) [!subprocesses]:
Richard M. Stallman <rms@gnu.org>
parents: 15021
diff changeset
5101 else
e5f54fd1c352 (wait_reading_process_input) [!subprocesses]:
Richard M. Stallman <rms@gnu.org>
parents: 15021
diff changeset
5102 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
5103 &timeout);
14806
232b90ad50e8 (wait_reading_process_input) [! subprocesses]: Run
Karl Heuer <kwzh@gnu.org>
parents: 14802
diff changeset
5104
232b90ad50e8 (wait_reading_process_input) [! subprocesses]: Run
Karl Heuer <kwzh@gnu.org>
parents: 14802
diff changeset
5105 xerrno = errno;
588
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
5106
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
5107 /* Make C-g and alarm signals set flags again */
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
5108 clear_waiting_for_input ();
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
5109
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
5110 /* If we woke up due to SIGWINCH, actually change size now. */
25356
5db69f7aadca Call change_frame_size and do_pending_window_change with
Gerd Moellmann <gerd@gnu.org>
parents: 25262
diff changeset
5111 do_pending_window_change (0);
588
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
5112
14806
232b90ad50e8 (wait_reading_process_input) [! subprocesses]: Run
Karl Heuer <kwzh@gnu.org>
parents: 14802
diff changeset
5113 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
5114 /* 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
5115 break;
232b90ad50e8 (wait_reading_process_input) [! subprocesses]: Run
Karl Heuer <kwzh@gnu.org>
parents: 14802
diff changeset
5116
588
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
5117 if (nfds == -1)
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
5118 {
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
5119 /* If the system call was interrupted, then go around the
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
5120 loop again. */
14806
232b90ad50e8 (wait_reading_process_input) [! subprocesses]: Run
Karl Heuer <kwzh@gnu.org>
parents: 14802
diff changeset
5121 if (xerrno == EINTR)
14278
3562c5f43780 (wait_reading_process_input) [not subprocesses]: Do
Karl Heuer <kwzh@gnu.org>
parents: 14186
diff changeset
5122 FD_ZERO (&waitchannels);
14806
232b90ad50e8 (wait_reading_process_input) [! subprocesses]: Run
Karl Heuer <kwzh@gnu.org>
parents: 14802
diff changeset
5123 else
26088
b7aa6ac26872 Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
parents: 26019
diff changeset
5124 error ("select error: %s", emacs_strerror (xerrno));
588
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
5125 }
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
5126 #ifdef sun
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
5127 else if (nfds > 0 && (waitchannels & 1) && interrupt_input)
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
5128 /* System sometimes fails to deliver SIGIO. */
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
5129 kill (getpid (), SIGIO);
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
5130 #endif
3915
55ed7a65746e (wait_reading_process_input): Use SIGIO only if defined.
Richard M. Stallman <rms@gnu.org>
parents: 3826
diff changeset
5131 #ifdef SIGIO
650
39f0e62a8511 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 648
diff changeset
5132 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
5133 kill (getpid (), SIGIO);
3915
55ed7a65746e (wait_reading_process_input): Use SIGIO only if defined.
Richard M. Stallman <rms@gnu.org>
parents: 3826
diff changeset
5134 #endif
588
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
5135
14806
232b90ad50e8 (wait_reading_process_input) [! subprocesses]: Run
Karl Heuer <kwzh@gnu.org>
parents: 14802
diff changeset
5136 /* Check for keyboard input */
232b90ad50e8 (wait_reading_process_input) [! subprocesses]: Run
Karl Heuer <kwzh@gnu.org>
parents: 14802
diff changeset
5137
37413
49147b9fe206 (wait_reading_process_input) [!subprocesses]: Don't
Eli Zaretskii <eliz@gnu.org>
parents: 37398
diff changeset
5138 if ((XINT (read_kbd) != 0)
49147b9fe206 (wait_reading_process_input) [!subprocesses]: Don't
Eli Zaretskii <eliz@gnu.org>
parents: 37398
diff changeset
5139 && detect_input_pending_run_timers (do_display))
14806
232b90ad50e8 (wait_reading_process_input) [! subprocesses]: Run
Karl Heuer <kwzh@gnu.org>
parents: 14802
diff changeset
5140 {
37413
49147b9fe206 (wait_reading_process_input) [!subprocesses]: Don't
Eli Zaretskii <eliz@gnu.org>
parents: 37398
diff changeset
5141 swallow_events (do_display);
14806
232b90ad50e8 (wait_reading_process_input) [! subprocesses]: Run
Karl Heuer <kwzh@gnu.org>
parents: 14802
diff changeset
5142 if (detect_input_pending_run_timers (do_display))
232b90ad50e8 (wait_reading_process_input) [! subprocesses]: Run
Karl Heuer <kwzh@gnu.org>
parents: 14802
diff changeset
5143 break;
37413
49147b9fe206 (wait_reading_process_input) [!subprocesses]: Don't
Eli Zaretskii <eliz@gnu.org>
parents: 37398
diff changeset
5144 }
49147b9fe206 (wait_reading_process_input) [!subprocesses]: Don't
Eli Zaretskii <eliz@gnu.org>
parents: 37398
diff changeset
5145
22535
fd9324c5a498 (wait_reading_process_input): Recompute timeout each
Eli Zaretskii <eliz@gnu.org>
parents: 22523
diff changeset
5146 /* If there is unread keyboard input, also return. */
fd9324c5a498 (wait_reading_process_input): Recompute timeout each
Eli Zaretskii <eliz@gnu.org>
parents: 22523
diff changeset
5147 if (XINT (read_kbd) != 0
fd9324c5a498 (wait_reading_process_input): Recompute timeout each
Eli Zaretskii <eliz@gnu.org>
parents: 22523
diff changeset
5148 && requeued_events_pending_p ())
fd9324c5a498 (wait_reading_process_input): Recompute timeout each
Eli Zaretskii <eliz@gnu.org>
parents: 22523
diff changeset
5149 break;
fd9324c5a498 (wait_reading_process_input): Recompute timeout each
Eli Zaretskii <eliz@gnu.org>
parents: 22523
diff changeset
5150
15064
fb0f2804c34a (wait_reading_process_input, both definitions):
Richard M. Stallman <rms@gnu.org>
parents: 15025
diff changeset
5151 /* 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
5152 but don't run any timers.
fb0f2804c34a (wait_reading_process_input, both definitions):
Richard M. Stallman <rms@gnu.org>
parents: 15025
diff changeset
5153 ??? (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
5154 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
5155 has been this way since July 1994.
fb0f2804c34a (wait_reading_process_input, both definitions):
Richard M. Stallman <rms@gnu.org>
parents: 15025
diff changeset
5156 Try changing this after version 19.31.) */
39973
579177964efa Avoid (most) uses of XCAR/XCDR as lvalues, for flexibility in experimenting
Ken Raeburn <raeburn@raeburn.org>
parents: 39964
diff changeset
5157 if (! NILP (wait_for_cell)
15064
fb0f2804c34a (wait_reading_process_input, both definitions):
Richard M. Stallman <rms@gnu.org>
parents: 15025
diff changeset
5158 && detect_input_pending ())
fb0f2804c34a (wait_reading_process_input, both definitions):
Richard M. Stallman <rms@gnu.org>
parents: 15025
diff changeset
5159 {
fb0f2804c34a (wait_reading_process_input, both definitions):
Richard M. Stallman <rms@gnu.org>
parents: 15025
diff changeset
5160 swallow_events (do_display);
fb0f2804c34a (wait_reading_process_input, both definitions):
Richard M. Stallman <rms@gnu.org>
parents: 15025
diff changeset
5161 if (detect_input_pending ())
fb0f2804c34a (wait_reading_process_input, both definitions):
Richard M. Stallman <rms@gnu.org>
parents: 15025
diff changeset
5162 break;
fb0f2804c34a (wait_reading_process_input, both definitions):
Richard M. Stallman <rms@gnu.org>
parents: 15025
diff changeset
5163 }
fb0f2804c34a (wait_reading_process_input, both definitions):
Richard M. Stallman <rms@gnu.org>
parents: 15025
diff changeset
5164
15021
af36df262fc5 (wait_reading_process_input) [!subprocesses]: Handle
Richard M. Stallman <rms@gnu.org>
parents: 14998
diff changeset
5165 /* Exit now if the cell we're waiting for became non-nil. */
39973
579177964efa Avoid (most) uses of XCAR/XCDR as lvalues, for flexibility in experimenting
Ken Raeburn <raeburn@raeburn.org>
parents: 39964
diff changeset
5166 if (! NILP (wait_for_cell) && ! NILP (XCAR (wait_for_cell)))
15021
af36df262fc5 (wait_reading_process_input) [!subprocesses]: Handle
Richard M. Stallman <rms@gnu.org>
parents: 14998
diff changeset
5167 break;
588
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
5168 }
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
5169
2120
fc3cdca22f8d * process.c (process_send_signal): In the TERMIOS code for sending
Jim Blandy <jimb@redhat.com>
parents: 1925
diff changeset
5170 start_polling ();
fc3cdca22f8d * process.c (process_send_signal): In the TERMIOS code for sending
Jim Blandy <jimb@redhat.com>
parents: 1925
diff changeset
5171
588
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
5172 return 0;
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
5173 }
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
5174
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
5175
39964
4ca5cbe5610d (process-inherit-coding-system-flag, get-buffer-process): Do not confuse
Pavel Janík <Pavel@Janik.cz>
parents: 39812
diff changeset
5176 /* Don't confuse make-docfile by having two doc strings for this function.
4ca5cbe5610d (process-inherit-coding-system-flag, get-buffer-process): Do not confuse
Pavel Janík <Pavel@Janik.cz>
parents: 39812
diff changeset
5177 make-docfile does not pay attention to #if, for good reason! */
588
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
5178 DEFUN ("get-buffer-process", Fget_buffer_process, Sget_buffer_process, 1, 1, 0,
40103
6b389fb978bc Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
5179 0)
6b389fb978bc Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
5180 (name)
588
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
5181 register Lisp_Object name;
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
5182 {
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
5183 return Qnil;
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
5184 }
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
5185
39964
4ca5cbe5610d (process-inherit-coding-system-flag, get-buffer-process): Do not confuse
Pavel Janík <Pavel@Janik.cz>
parents: 39812
diff changeset
5186 /* Don't confuse make-docfile by having two doc strings for this function.
4ca5cbe5610d (process-inherit-coding-system-flag, get-buffer-process): Do not confuse
Pavel Janík <Pavel@Janik.cz>
parents: 39812
diff changeset
5187 make-docfile does not pay attention to #if, for good reason! */
21656
bb39a5863a82 (Fset_process_inherit_coding_system_flag,
Eli Zaretskii <eliz@gnu.org>
parents: 21530
diff changeset
5188 DEFUN ("process-inherit-coding-system-flag",
40103
6b389fb978bc Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
5189 Fprocess_inherit_coding_system_flag, Sprocess_inherit_coding_system_flag,
6b389fb978bc Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
5190 1, 1, 0,
6b389fb978bc Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
5191 0)
6b389fb978bc Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
5192 (process)
21656
bb39a5863a82 (Fset_process_inherit_coding_system_flag,
Eli Zaretskii <eliz@gnu.org>
parents: 21530
diff changeset
5193 register Lisp_Object process;
bb39a5863a82 (Fset_process_inherit_coding_system_flag,
Eli Zaretskii <eliz@gnu.org>
parents: 21530
diff changeset
5194 {
bb39a5863a82 (Fset_process_inherit_coding_system_flag,
Eli Zaretskii <eliz@gnu.org>
parents: 21530
diff changeset
5195 /* Ignore the argument and return the value of
bb39a5863a82 (Fset_process_inherit_coding_system_flag,
Eli Zaretskii <eliz@gnu.org>
parents: 21530
diff changeset
5196 inherit-process-coding-system. */
bb39a5863a82 (Fset_process_inherit_coding_system_flag,
Eli Zaretskii <eliz@gnu.org>
parents: 21530
diff changeset
5197 return inherit_process_coding_system ? Qt : Qnil;
bb39a5863a82 (Fset_process_inherit_coding_system_flag,
Eli Zaretskii <eliz@gnu.org>
parents: 21530
diff changeset
5198 }
bb39a5863a82 (Fset_process_inherit_coding_system_flag,
Eli Zaretskii <eliz@gnu.org>
parents: 21530
diff changeset
5199
588
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
5200 /* Kill all processes associated with `buffer'.
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
5201 If `buffer' is nil, kill all processes.
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
5202 Since we have no subprocesses, this does nothing. */
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
5203
21414
aac7354edaed (kill_buffer_processes): Make consistent with
Karl Heuer <kwzh@gnu.org>
parents: 21281
diff changeset
5204 void
588
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
5205 kill_buffer_processes (buffer)
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
5206 Lisp_Object buffer;
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
5207 {
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
5208 }
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
5209
21978
ba8852d809f6 (init_process, syms_of_process): Make definition consistent with
Eli Zaretskii <eliz@gnu.org>
parents: 21950
diff changeset
5210 void
588
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
5211 init_process ()
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
5212 {
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
5213 }
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
5214
21978
ba8852d809f6 (init_process, syms_of_process): Make definition consistent with
Eli Zaretskii <eliz@gnu.org>
parents: 21950
diff changeset
5215 void
588
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
5216 syms_of_process ()
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
5217 {
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
5218 defsubr (&Sget_buffer_process);
21656
bb39a5863a82 (Fset_process_inherit_coding_system_flag,
Eli Zaretskii <eliz@gnu.org>
parents: 21530
diff changeset
5219 defsubr (&Sprocess_inherit_coding_system_flag);
588
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
5220 }
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
5221
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
5222
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
5223 #endif /* not subprocesses */