annotate src/process.c @ 82452:58eaf01ab6e0

Fix typo.
author Michaël Cadilhac <michael.cadilhac@lrde.org>
date Fri, 17 Aug 2007 22:54:34 +0000
parents e5a68f18fcb9
children 5b644ae74c91 424b655804ca
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.
64770
a0d1312ede66 Update years in copyright notice; nfc.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 64084
diff changeset
2 Copyright (C) 1985, 1986, 1987, 1988, 1993, 1994, 1995,
a0d1312ede66 Update years in copyright notice; nfc.
Thien-Thi Nguyen <ttn@gnuvola.org>
parents: 64084
diff changeset
3 1996, 1998, 1999, 2001, 2002, 2003, 2004,
75348
3d45362f1d38 Add 2007 to copyright years.
Glenn Morris <rgm@gnu.org>
parents: 75220
diff changeset
4 2005, 2006, 2007 Free Software Foundation, Inc.
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6 This file is part of GNU Emacs.
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
8 GNU Emacs is free software; you can redistribute it and/or modify
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
9 it under the terms of the GNU General Public License as published by
78260
922696f363b0 Switch license to GPLv3 or later.
Glenn Morris <rgm@gnu.org>
parents: 77654
diff changeset
10 the Free Software Foundation; either version 3, or (at your option)
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
11 any later version.
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
12
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
13 GNU Emacs is distributed in the hope that it will be useful,
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
14 but WITHOUT ANY WARRANTY; without even the implied warranty of
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
15 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
16 GNU General Public License for more details.
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
17
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
18 You should have received a copy of the GNU General Public License
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
19 along with GNU Emacs; see the file COPYING. If not, write to
64084
a8fa7c632ee4 Update FSF's address.
Lute Kamstra <lute@gnu.org>
parents: 63701
diff changeset
20 the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor,
a8fa7c632ee4 Update FSF's address.
Lute Kamstra <lute@gnu.org>
parents: 63701
diff changeset
21 Boston, MA 02110-1301, USA. */
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
22
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
23
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>
68146
e5c85a134e67 [HAVE_INTTYPES_H]: Include inttypes.h.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 68041
diff changeset
43 #ifdef HAVE_INTTYPES_H
e5c85a134e67 [HAVE_INTTYPES_H]: Include inttypes.h.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 68041
diff changeset
44 #include <inttypes.h>
e5c85a134e67 [HAVE_INTTYPES_H]: Include inttypes.h.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 68041
diff changeset
45 #endif
6158
6b81b2575071 Include unistd.h.
Richard M. Stallman <rms@gnu.org>
parents: 5891
diff changeset
46 #ifdef HAVE_UNISTD_H
6b81b2575071 Include unistd.h.
Richard M. Stallman <rms@gnu.org>
parents: 5891
diff changeset
47 #include <unistd.h>
6b81b2575071 Include unistd.h.
Richard M. Stallman <rms@gnu.org>
parents: 5891
diff changeset
48 #endif
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
49
29035
95e767e77a88 (toplevel) [UNIX98_PTYS]: Include stdlib.h.
Gerd Moellmann <gerd@gnu.org>
parents: 29017
diff changeset
50 #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
51 #include <stdlib.h>
28267fcc61be Use macros IS_ANY_SEP, IS_DIRECTORY_SEP,
Richard M. Stallman <rms@gnu.org>
parents: 9705
diff changeset
52 #include <fcntl.h>
28267fcc61be Use macros IS_ANY_SEP, IS_DIRECTORY_SEP,
Richard M. Stallman <rms@gnu.org>
parents: 9705
diff changeset
53 #endif /* not WINDOWSNT */
28267fcc61be Use macros IS_ANY_SEP, IS_DIRECTORY_SEP,
Richard M. Stallman <rms@gnu.org>
parents: 9705
diff changeset
54
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
55 #ifdef HAVE_SOCKETS /* TCP connection support, if kernel can do it */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
56 #include <sys/socket.h>
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
57 #include <netdb.h>
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
58 #include <netinet/in.h>
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
59 #include <arpa/inet.h>
12749
ce48ec025b0a Maybe include net/errno.h.
Richard M. Stallman <rms@gnu.org>
parents: 12648
diff changeset
60 #ifdef NEED_NET_ERRNO_H
ce48ec025b0a Maybe include net/errno.h.
Richard M. Stallman <rms@gnu.org>
parents: 12648
diff changeset
61 #include <net/errno.h>
ce48ec025b0a Maybe include net/errno.h.
Richard M. Stallman <rms@gnu.org>
parents: 12648
diff changeset
62 #endif /* NEED_NET_ERRNO_H */
43968
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
63
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
64 /* Are local (unix) sockets supported? */
43999
177616cff62b Define HAVE_LOCAL_SOCKETS based on HAVE_SYS_UN_H.
Kim F. Storm <storm@cua.dk>
parents: 43995
diff changeset
65 #if defined (HAVE_SYS_UN_H) && !defined (NO_SOCKETS_IN_FILE_SYSTEM)
43968
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
66 #if !defined (AF_LOCAL) && defined (AF_UNIX)
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
67 #define AF_LOCAL AF_UNIX
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
68 #endif
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
69 #ifdef AF_LOCAL
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
70 #define HAVE_LOCAL_SOCKETS
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
71 #include <sys/un.h>
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
72 #endif
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
73 #endif
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
74 #endif /* HAVE_SOCKETS */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
75
26313
9275b6adbad2 Undo last change and define _GNU_SOURCE before config.h.
Dave Love <fx@gnu.org>
parents: 26311
diff changeset
76 /* 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
77 #ifdef TERM
56bc426b1eb4 [TERM]: Include client.h.
Richard M. Stallman <rms@gnu.org>
parents: 4883
diff changeset
78 #include <client.h>
56bc426b1eb4 [TERM]: Include client.h.
Richard M. Stallman <rms@gnu.org>
parents: 4883
diff changeset
79 #endif
56bc426b1eb4 [TERM]: Include client.h.
Richard M. Stallman <rms@gnu.org>
parents: 4883
diff changeset
80
7238
c9598edda1a2 (IN_ADDR, NUMERIC_ADDR_ERROR): Made conditional on HAVE_BROKEN_INET_ADDR.
Paul Reilly <pmr@pajato.com>
parents: 7220
diff changeset
81 /* 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
82 #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
83 #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
84 #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
85 #else
3cd3a39f98f4 (IN_ADDR, NUMERIC_ADDR_ERROR): New macros (two versions).
Richard M. Stallman <rms@gnu.org>
parents: 4994
diff changeset
86 #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
87 #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
88 #endif
3cd3a39f98f4 (IN_ADDR, NUMERIC_ADDR_ERROR): New macros (two versions).
Richard M. Stallman <rms@gnu.org>
parents: 4994
diff changeset
89
16220
02044b05d8e0 Replaced symbol BSD with BSD_SYSTEM.
Karl Heuer <kwzh@gnu.org>
parents: 16206
diff changeset
90 #if defined(BSD_SYSTEM) || defined(STRIDE)
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
91 #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
92 #if !defined (O_NDELAY) && defined (HAVE_PTYS) && !defined(USG5)
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
93 #include <fcntl.h>
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
94 #endif /* HAVE_PTYS and no O_NDELAY */
16220
02044b05d8e0 Replaced symbol BSD with BSD_SYSTEM.
Karl Heuer <kwzh@gnu.org>
parents: 16206
diff changeset
95 #endif /* BSD_SYSTEM || STRIDE */
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
96
5240
eed870591987 (Fprocess_status): Use get_process, not Fget_process.
Richard M. Stallman <rms@gnu.org>
parents: 5239
diff changeset
97 #ifdef BROKEN_O_NONBLOCK
eed870591987 (Fprocess_status): Use get_process, not Fget_process.
Richard M. Stallman <rms@gnu.org>
parents: 5239
diff changeset
98 #undef O_NONBLOCK
eed870591987 (Fprocess_status): Use get_process, not Fget_process.
Richard M. Stallman <rms@gnu.org>
parents: 5239
diff changeset
99 #endif /* BROKEN_O_NONBLOCK */
eed870591987 (Fprocess_status): Use get_process, not Fget_process.
Richard M. Stallman <rms@gnu.org>
parents: 5239
diff changeset
100
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
101 #ifdef NEED_BSDTTY
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
102 #include <bsdtty.h>
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
103 #endif
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
104
52503
256a27a47af1 [HAVE_SOCKETS]: Include sys/ioctl.h and net/if.h.
Kim F. Storm <storm@cua.dk>
parents: 52401
diff changeset
105 /* Can we use SIOCGIFCONF and/or SIOCGIFADDR */
256a27a47af1 [HAVE_SOCKETS]: Include sys/ioctl.h and net/if.h.
Kim F. Storm <storm@cua.dk>
parents: 52401
diff changeset
106 #ifdef HAVE_SOCKETS
256a27a47af1 [HAVE_SOCKETS]: Include sys/ioctl.h and net/if.h.
Kim F. Storm <storm@cua.dk>
parents: 52401
diff changeset
107 #if defined(HAVE_SYS_IOCTL_H) && defined(HAVE_NET_IF_H)
256a27a47af1 [HAVE_SOCKETS]: Include sys/ioctl.h and net/if.h.
Kim F. Storm <storm@cua.dk>
parents: 52401
diff changeset
108 /* sys/ioctl.h may have been included already */
256a27a47af1 [HAVE_SOCKETS]: Include sys/ioctl.h and net/if.h.
Kim F. Storm <storm@cua.dk>
parents: 52401
diff changeset
109 #ifndef SIOCGIFADDR
256a27a47af1 [HAVE_SOCKETS]: Include sys/ioctl.h and net/if.h.
Kim F. Storm <storm@cua.dk>
parents: 52401
diff changeset
110 #include <sys/ioctl.h>
256a27a47af1 [HAVE_SOCKETS]: Include sys/ioctl.h and net/if.h.
Kim F. Storm <storm@cua.dk>
parents: 52401
diff changeset
111 #endif
256a27a47af1 [HAVE_SOCKETS]: Include sys/ioctl.h and net/if.h.
Kim F. Storm <storm@cua.dk>
parents: 52401
diff changeset
112 #include <net/if.h>
256a27a47af1 [HAVE_SOCKETS]: Include sys/ioctl.h and net/if.h.
Kim F. Storm <storm@cua.dk>
parents: 52401
diff changeset
113 #endif
256a27a47af1 [HAVE_SOCKETS]: Include sys/ioctl.h and net/if.h.
Kim F. Storm <storm@cua.dk>
parents: 52401
diff changeset
114 #endif
256a27a47af1 [HAVE_SOCKETS]: Include sys/ioctl.h and net/if.h.
Kim F. Storm <storm@cua.dk>
parents: 52401
diff changeset
115
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
116 #ifdef IRIS
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
117 #include <sys/sysmacros.h> /* for "minor" */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
118 #endif /* not IRIS */
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 49281
diff changeset
119
48088
9618c046ce89 Include sys/wait.h.
Dave Love <fx@gnu.org>
parents: 48053
diff changeset
120 #ifdef HAVE_SYS_WAIT
9618c046ce89 Include sys/wait.h.
Dave Love <fx@gnu.org>
parents: 48053
diff changeset
121 #include <sys/wait.h>
9618c046ce89 Include sys/wait.h.
Dave Love <fx@gnu.org>
parents: 48053
diff changeset
122 #endif
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
123
65764
375ab086d366 * image.c (slurp_file, xbm_read_bitmap_data): Cast to the correct
Dan Nicolaescu <dann@ics.uci.edu>
parents: 65713
diff changeset
124 #include "lisp.h"
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
125 #include "systime.h"
1047
1ab1ed32e82a * process.c: Include "systty.h", not "systerm.h".
Jim Blandy <jimb@redhat.com>
parents: 1030
diff changeset
126 #include "systty.h"
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
127
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
128 #include "window.h"
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
129 #include "buffer.h"
17041
b61cbe595be5 Include charset.h and coding.h.
Karl Heuer <kwzh@gnu.org>
parents: 16780
diff changeset
130 #include "charset.h"
b61cbe595be5 Include charset.h and coding.h.
Karl Heuer <kwzh@gnu.org>
parents: 16780
diff changeset
131 #include "coding.h"
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
132 #include "process.h"
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
133 #include "termhooks.h"
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
134 #include "termopts.h"
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
135 #include "commands.h"
31099
0fe5afca71e4 Include keyboard.h before frame.h.
Andrew Innes <andrewi@gnu.org>
parents: 30582
diff changeset
136 #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
137 #include "frame.h"
16780
e9dc2569cb12 Include blockinput.h.
Richard M. Stallman <rms@gnu.org>
parents: 16728
diff changeset
138 #include "blockinput.h"
21514
fa9ff387d260 Fix -Wimplicit warnings.
Andreas Schwab <schwab@suse.de>
parents: 21414
diff changeset
139 #include "dispextern.h"
26868
edeeffd7d8c7 Include composite.h.
Kenichi Handa <handa@m17n.org>
parents: 26526
diff changeset
140 #include "composite.h"
27430
1aa71680fe50 (toplevel): Include atimer.h.
Gerd Moellmann <gerd@gnu.org>
parents: 27028
diff changeset
141 #include "atimer.h"
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
142
4682
c4d471244116 (keyboard_descriptor): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 4639
diff changeset
143 Lisp_Object Qprocessp;
74749
526fb5e934a5 (Qsignal): Declare here.
Kim F. Storm <storm@cua.dk>
parents: 74540
diff changeset
144 Lisp_Object Qrun, Qstop, Qsignal;
43968
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
145 Lisp_Object Qopen, Qclosed, Qconnect, Qfailed, Qlisten;
68008
10f0a09ec82e Add IPv6 support.
Kim F. Storm <storm@cua.dk>
parents: 67920
diff changeset
146 Lisp_Object Qlocal, Qipv4, Qdatagram;
10f0a09ec82e Add IPv6 support.
Kim F. Storm <storm@cua.dk>
parents: 67920
diff changeset
147 #ifdef AF_INET6
10f0a09ec82e Add IPv6 support.
Kim F. Storm <storm@cua.dk>
parents: 67920
diff changeset
148 Lisp_Object Qipv6;
10f0a09ec82e Add IPv6 support.
Kim F. Storm <storm@cua.dk>
parents: 67920
diff changeset
149 #endif
44067
e8a136850817 (QCfeature, QCdatagram): Removed variables.
Kim F. Storm <storm@cua.dk>
parents: 44041
diff changeset
150 Lisp_Object QCname, QCbuffer, QChost, QCservice, QCtype;
43968
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
151 Lisp_Object QClocal, QCremote, QCcoding;
44067
e8a136850817 (QCfeature, QCdatagram): Removed variables.
Kim F. Storm <storm@cua.dk>
parents: 44041
diff changeset
152 Lisp_Object QCserver, QCnowait, QCnoquery, QCstop;
49223
26622fa0d099 Reworked 2003-01-12 change -- call a plist a plist!
Kim F. Storm <storm@cua.dk>
parents: 49164
diff changeset
153 Lisp_Object QCsentinel, QClog, QCoptions, QCplist;
49680
7c27c9efd353 Doc fixes.
Kim F. Storm <storm@cua.dk>
parents: 49667
diff changeset
154 Lisp_Object QCfilter_multibyte;
8231
5226ed89c1a6 (Qlast_nonmenu_event): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 8063
diff changeset
155 Lisp_Object Qlast_nonmenu_event;
44041
134644f94850 (QCfamily, QCfiler): Remove duplicate declaration and initialization.
Jason Rumney <jasonr@gnu.org>
parents: 44038
diff changeset
156 /* QCfamily is declared and initialized in xfaces.c,
134644f94850 (QCfamily, QCfiler): Remove duplicate declaration and initialization.
Jason Rumney <jasonr@gnu.org>
parents: 44038
diff changeset
157 QCfilter in keyboard.c. */
134644f94850 (QCfamily, QCfiler): Remove duplicate declaration and initialization.
Jason Rumney <jasonr@gnu.org>
parents: 44038
diff changeset
158 extern Lisp_Object QCfamily, QCfilter;
134644f94850 (QCfamily, QCfiler): Remove duplicate declaration and initialization.
Jason Rumney <jasonr@gnu.org>
parents: 44038
diff changeset
159
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
160 /* Qexit is declared and initialized in eval.c. */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
161
44890
01b93e5e53a7 Patch for building Emacs on Mac OS X. April 26, 2002. See ChangeLog,
Andrew Choi <akochoi@shaw.ca>
parents: 44372
diff changeset
162 /* QCfamily is defined in xfaces.c. */
01b93e5e53a7 Patch for building Emacs on Mac OS X. April 26, 2002. See ChangeLog,
Andrew Choi <akochoi@shaw.ca>
parents: 44372
diff changeset
163 extern Lisp_Object QCfamily;
01b93e5e53a7 Patch for building Emacs on Mac OS X. April 26, 2002. See ChangeLog,
Andrew Choi <akochoi@shaw.ca>
parents: 44372
diff changeset
164 /* QCfilter is defined in keyboard.c. */
01b93e5e53a7 Patch for building Emacs on Mac OS X. April 26, 2002. See ChangeLog,
Andrew Choi <akochoi@shaw.ca>
parents: 44372
diff changeset
165 extern Lisp_Object QCfilter;
01b93e5e53a7 Patch for building Emacs on Mac OS X. April 26, 2002. See ChangeLog,
Andrew Choi <akochoi@shaw.ca>
parents: 44372
diff changeset
166
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
167 /* a process object is a network connection when its childp field is neither
49142
8dca38bc0261 (Fset_process_contact): New function.
Kim F. Storm <storm@cua.dk>
parents: 49119
diff changeset
168 Qt nor Qnil but is instead a property list (KEY VAL ...). */
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
169
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
170 #ifdef HAVE_SOCKETS
16058
924aeb9ed7c3 (Fprocess_contact): New function.
Richard M. Stallman <rms@gnu.org>
parents: 16053
diff changeset
171 #define NETCONN_P(p) (GC_CONSP (XPROCESS (p)->childp))
43968
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
172 #define NETCONN1_P(p) (GC_CONSP ((p)->childp))
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
173 #else
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
174 #define NETCONN_P(p) 0
43968
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
175 #define NETCONN1_P(p) 0
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
176 #endif /* HAVE_SOCKETS */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
177
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
178 /* Define first descriptor number available for subprocesses. */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
179 #ifdef VMS
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
180 #define FIRST_PROC_DESC 1
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
181 #else /* Not VMS */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
182 #define FIRST_PROC_DESC 3
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
183 #endif
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
184
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
185 /* Define SIGCHLD as an alias for SIGCLD. There are many conditionals
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
186 testing SIGCHLD. */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
187
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
188 #if !defined (SIGCHLD) && defined (SIGCLD)
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
189 #define SIGCHLD SIGCLD
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
190 #endif /* SIGCLD */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
191
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
192 #include "syssignal.h"
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
193
4639
76f242eb1fa8 Include syswait.h.
Richard M. Stallman <rms@gnu.org>
parents: 4320
diff changeset
194 #include "syswait.h"
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
195
59689
007a1a6d92de * s/darwin.h: Removed PTY_ITERATION from here.
Steven Tamm <steventamm@mac.com>
parents: 59113
diff changeset
196 extern char *get_operating_system_release ();
25770
3a44b5298cd5 (list_processes_1): Remove unused variables.
Gerd Moellmann <gerd@gnu.org>
parents: 25760
diff changeset
197
31099
0fe5afca71e4 Include keyboard.h before frame.h.
Andrew Innes <andrewi@gnu.org>
parents: 30582
diff changeset
198 #ifndef USE_CRT_DLL
5543
dbc1d920ef5c Don't declare sys_nerr.
Roland McGrath <roland@gnu.org>
parents: 5534
diff changeset
199 extern int errno;
31099
0fe5afca71e4 Include keyboard.h before frame.h.
Andrew Innes <andrewi@gnu.org>
parents: 30582
diff changeset
200 #endif
5543
dbc1d920ef5c Don't declare sys_nerr.
Roland McGrath <roland@gnu.org>
parents: 5534
diff changeset
201 #ifdef VMS
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
202 extern char *sys_errlist[];
5543
dbc1d920ef5c Don't declare sys_nerr.
Roland McGrath <roland@gnu.org>
parents: 5534
diff changeset
203 #endif
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
204
8331
14ddb4c66461 [!HAVE_H_ERRNO]: Declare h_errno.
Richard M. Stallman <rms@gnu.org>
parents: 8287
diff changeset
205 #ifndef HAVE_H_ERRNO
14ddb4c66461 [!HAVE_H_ERRNO]: Declare h_errno.
Richard M. Stallman <rms@gnu.org>
parents: 8287
diff changeset
206 extern int h_errno;
14ddb4c66461 [!HAVE_H_ERRNO]: Declare h_errno.
Richard M. Stallman <rms@gnu.org>
parents: 8287
diff changeset
207 #endif
14ddb4c66461 [!HAVE_H_ERRNO]: Declare h_errno.
Richard M. Stallman <rms@gnu.org>
parents: 8287
diff changeset
208
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
209 /* t means use pty, nil means use a pipe,
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
210 maybe other values to come. */
4682
c4d471244116 (keyboard_descriptor): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 4639
diff changeset
211 static Lisp_Object Vprocess_connection_type;
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
212
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
213 #ifdef SKTPAIR
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
214 #ifndef HAVE_SOCKETS
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
215 #include <sys/socket.h>
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
216 #endif
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
217 #endif /* SKTPAIR */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
218
10548
dcae4394587d (process_tick, update_tick): Make non-static.
Karl Heuer <kwzh@gnu.org>
parents: 10527
diff changeset
219 /* 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
220 emulation of `select'. */
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
221 /* 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
222 int process_tick;
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
223 /* 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
224 int update_tick;
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
225
43598
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
226 /* 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
227
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
228 #ifdef BROKEN_NON_BLOCKING_CONNECT
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
229 #undef NON_BLOCKING_CONNECT
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
230 #else
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
231 #ifndef NON_BLOCKING_CONNECT
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
232 #ifdef HAVE_SOCKETS
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
233 #ifdef HAVE_SELECT
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
234 #if defined (HAVE_GETPEERNAME) || defined (GNU_LINUX)
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
235 #if defined (O_NONBLOCK) || defined (O_NDELAY)
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
236 #if defined (EWOULDBLOCK) || defined (EINPROGRESS)
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
237 #define NON_BLOCKING_CONNECT
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
238 #endif /* EWOULDBLOCK || EINPROGRESS */
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
239 #endif /* O_NONBLOCK || O_NDELAY */
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
240 #endif /* HAVE_GETPEERNAME || GNU_LINUX */
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
241 #endif /* HAVE_SELECT */
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
242 #endif /* HAVE_SOCKETS */
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
243 #endif /* NON_BLOCKING_CONNECT */
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
244 #endif /* BROKEN_NON_BLOCKING_CONNECT */
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
245
43968
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
246 /* Define DATAGRAM_SOCKETS if datagrams can be used safely on
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
247 this system. We need to read full packets, so we need a
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
248 "non-destructive" select. So we require either native select,
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
249 or emulation of select using FIONREAD. */
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
250
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
251 #ifdef BROKEN_DATAGRAM_SOCKETS
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
252 #undef DATAGRAM_SOCKETS
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
253 #else
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
254 #ifndef DATAGRAM_SOCKETS
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
255 #ifdef HAVE_SOCKETS
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
256 #if defined (HAVE_SELECT) || defined (FIONREAD)
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
257 #if defined (HAVE_SENDTO) && defined (HAVE_RECVFROM) && defined (EMSGSIZE)
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
258 #define DATAGRAM_SOCKETS
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
259 #endif /* HAVE_SENDTO && HAVE_RECVFROM && EMSGSIZE */
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
260 #endif /* HAVE_SELECT || FIONREAD */
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
261 #endif /* HAVE_SOCKETS */
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
262 #endif /* DATAGRAM_SOCKETS */
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
263 #endif /* BROKEN_DATAGRAM_SOCKETS */
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
264
43598
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
265 #ifdef TERM
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
266 #undef NON_BLOCKING_CONNECT
43968
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
267 #undef DATAGRAM_SOCKETS
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
268 #endif
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
269
53472
1a5fe79d27f3 (ADAPTIVE_READ_BUFFERING): New conditional.
Kim F. Storm <storm@cua.dk>
parents: 53072
diff changeset
270 #if !defined (ADAPTIVE_READ_BUFFERING) && !defined (NO_ADAPTIVE_READ_BUFFERING)
1a5fe79d27f3 (ADAPTIVE_READ_BUFFERING): New conditional.
Kim F. Storm <storm@cua.dk>
parents: 53072
diff changeset
271 #ifdef EMACS_HAS_USECS
1a5fe79d27f3 (ADAPTIVE_READ_BUFFERING): New conditional.
Kim F. Storm <storm@cua.dk>
parents: 53072
diff changeset
272 #define ADAPTIVE_READ_BUFFERING
1a5fe79d27f3 (ADAPTIVE_READ_BUFFERING): New conditional.
Kim F. Storm <storm@cua.dk>
parents: 53072
diff changeset
273 #endif
1a5fe79d27f3 (ADAPTIVE_READ_BUFFERING): New conditional.
Kim F. Storm <storm@cua.dk>
parents: 53072
diff changeset
274 #endif
1a5fe79d27f3 (ADAPTIVE_READ_BUFFERING): New conditional.
Kim F. Storm <storm@cua.dk>
parents: 53072
diff changeset
275
1a5fe79d27f3 (ADAPTIVE_READ_BUFFERING): New conditional.
Kim F. Storm <storm@cua.dk>
parents: 53072
diff changeset
276 #ifdef ADAPTIVE_READ_BUFFERING
1a5fe79d27f3 (ADAPTIVE_READ_BUFFERING): New conditional.
Kim F. Storm <storm@cua.dk>
parents: 53072
diff changeset
277 #define READ_OUTPUT_DELAY_INCREMENT 10000
1a5fe79d27f3 (ADAPTIVE_READ_BUFFERING): New conditional.
Kim F. Storm <storm@cua.dk>
parents: 53072
diff changeset
278 #define READ_OUTPUT_DELAY_MAX (READ_OUTPUT_DELAY_INCREMENT * 5)
1a5fe79d27f3 (ADAPTIVE_READ_BUFFERING): New conditional.
Kim F. Storm <storm@cua.dk>
parents: 53072
diff changeset
279 #define READ_OUTPUT_DELAY_MAX_MAX (READ_OUTPUT_DELAY_INCREMENT * 7)
1a5fe79d27f3 (ADAPTIVE_READ_BUFFERING): New conditional.
Kim F. Storm <storm@cua.dk>
parents: 53072
diff changeset
280
63114
6ef9e44e50d7 Improve commentary for adaptive read buffering.
Kim F. Storm <storm@cua.dk>
parents: 62604
diff changeset
281 /* Number of processes which have a non-zero read_output_delay,
6ef9e44e50d7 Improve commentary for adaptive read buffering.
Kim F. Storm <storm@cua.dk>
parents: 62604
diff changeset
282 and therefore might be delayed for adaptive read buffering. */
53472
1a5fe79d27f3 (ADAPTIVE_READ_BUFFERING): New conditional.
Kim F. Storm <storm@cua.dk>
parents: 53072
diff changeset
283
1a5fe79d27f3 (ADAPTIVE_READ_BUFFERING): New conditional.
Kim F. Storm <storm@cua.dk>
parents: 53072
diff changeset
284 static int process_output_delay_count;
1a5fe79d27f3 (ADAPTIVE_READ_BUFFERING): New conditional.
Kim F. Storm <storm@cua.dk>
parents: 53072
diff changeset
285
63114
6ef9e44e50d7 Improve commentary for adaptive read buffering.
Kim F. Storm <storm@cua.dk>
parents: 62604
diff changeset
286 /* Non-zero if any process has non-nil read_output_skip. */
53472
1a5fe79d27f3 (ADAPTIVE_READ_BUFFERING): New conditional.
Kim F. Storm <storm@cua.dk>
parents: 53072
diff changeset
287
1a5fe79d27f3 (ADAPTIVE_READ_BUFFERING): New conditional.
Kim F. Storm <storm@cua.dk>
parents: 53072
diff changeset
288 static int process_output_skip;
1a5fe79d27f3 (ADAPTIVE_READ_BUFFERING): New conditional.
Kim F. Storm <storm@cua.dk>
parents: 53072
diff changeset
289
1a5fe79d27f3 (ADAPTIVE_READ_BUFFERING): New conditional.
Kim F. Storm <storm@cua.dk>
parents: 53072
diff changeset
290 /* Non-nil means to delay reading process output to improve buffering.
1a5fe79d27f3 (ADAPTIVE_READ_BUFFERING): New conditional.
Kim F. Storm <storm@cua.dk>
parents: 53072
diff changeset
291 A value of t means that delay is reset after each send, any other
63114
6ef9e44e50d7 Improve commentary for adaptive read buffering.
Kim F. Storm <storm@cua.dk>
parents: 62604
diff changeset
292 non-nil value does not reset the delay. A value of nil disables
6ef9e44e50d7 Improve commentary for adaptive read buffering.
Kim F. Storm <storm@cua.dk>
parents: 62604
diff changeset
293 adaptive read buffering completely. */
53472
1a5fe79d27f3 (ADAPTIVE_READ_BUFFERING): New conditional.
Kim F. Storm <storm@cua.dk>
parents: 53072
diff changeset
294 static Lisp_Object Vprocess_adaptive_read_buffering;
1a5fe79d27f3 (ADAPTIVE_READ_BUFFERING): New conditional.
Kim F. Storm <storm@cua.dk>
parents: 53072
diff changeset
295 #else
1a5fe79d27f3 (ADAPTIVE_READ_BUFFERING): New conditional.
Kim F. Storm <storm@cua.dk>
parents: 53072
diff changeset
296 #define process_output_delay_count 0
1a5fe79d27f3 (ADAPTIVE_READ_BUFFERING): New conditional.
Kim F. Storm <storm@cua.dk>
parents: 53072
diff changeset
297 #endif
1a5fe79d27f3 (ADAPTIVE_READ_BUFFERING): New conditional.
Kim F. Storm <storm@cua.dk>
parents: 53072
diff changeset
298
43598
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
299
10527
68b8191091a7 #include sysselect.h instead of defining things by hand.
Karl Heuer <kwzh@gnu.org>
parents: 10032
diff changeset
300 #include "sysselect.h"
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
301
64977
d26871fb1b7b (deactivate_process, status_notify, read_process_output)
Kim F. Storm <storm@cua.dk>
parents: 64770
diff changeset
302 static int keyboard_bit_set P_ ((SELECT_TYPE *));
d26871fb1b7b (deactivate_process, status_notify, read_process_output)
Kim F. Storm <storm@cua.dk>
parents: 64770
diff changeset
303 static void deactivate_process P_ ((Lisp_Object));
d26871fb1b7b (deactivate_process, status_notify, read_process_output)
Kim F. Storm <storm@cua.dk>
parents: 64770
diff changeset
304 static void status_notify P_ ((struct Lisp_Process *));
d26871fb1b7b (deactivate_process, status_notify, read_process_output)
Kim F. Storm <storm@cua.dk>
parents: 64770
diff changeset
305 static int read_process_output P_ ((Lisp_Object, int));
25770
3a44b5298cd5 (list_processes_1): Remove unused variables.
Gerd Moellmann <gerd@gnu.org>
parents: 25760
diff changeset
306
13414
b035c6e41457 [HAVE_NTGUI] (POLL_FOR_INPUT): Define macro.
Geoff Voelker <voelker@cs.washington.edu>
parents: 13159
diff changeset
307 /* 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
308 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
309 #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
310 #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
311 #endif
cfe4840ffde9 (Fopen_network_stream): Call bind_polling_period; later unbind the binding.
Richard M. Stallman <rms@gnu.org>
parents: 7454
diff changeset
312
72727
5f2a73453aa3 (inhibit_sentinels): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 72277
diff changeset
313 static Lisp_Object get_process ();
5f2a73453aa3 (inhibit_sentinels): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 72277
diff changeset
314 static void exec_sentinel ();
5f2a73453aa3 (inhibit_sentinels): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 72277
diff changeset
315
5f2a73453aa3 (inhibit_sentinels): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 72277
diff changeset
316 extern EMACS_TIME timer_check ();
5f2a73453aa3 (inhibit_sentinels): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 72277
diff changeset
317 extern int timers_run;
5f2a73453aa3 (inhibit_sentinels): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 72277
diff changeset
318
9686
cd788aa8cb2a Handle multiple keyboard input descriptors.
Richard M. Stallman <rms@gnu.org>
parents: 9334
diff changeset
319 /* Mask of bits indicating the descriptors that we wait for input on. */
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
320
4682
c4d471244116 (keyboard_descriptor): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 4639
diff changeset
321 static SELECT_TYPE input_wait_mask;
c4d471244116 (keyboard_descriptor): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 4639
diff changeset
322
80984
9247e9d47488 (gpm_wait_mask, max_gpm_desc): New variables.
Nick Roberts <nickrob@snap.net.nz>
parents: 77462
diff changeset
323 /* Mask that excludes keyboard input descriptor(s). */
9686
cd788aa8cb2a Handle multiple keyboard input descriptors.
Richard M. Stallman <rms@gnu.org>
parents: 9334
diff changeset
324
cd788aa8cb2a Handle multiple keyboard input descriptors.
Richard M. Stallman <rms@gnu.org>
parents: 9334
diff changeset
325 static SELECT_TYPE non_keyboard_wait_mask;
cd788aa8cb2a Handle multiple keyboard input descriptors.
Richard M. Stallman <rms@gnu.org>
parents: 9334
diff changeset
326
80984
9247e9d47488 (gpm_wait_mask, max_gpm_desc): New variables.
Nick Roberts <nickrob@snap.net.nz>
parents: 77462
diff changeset
327 /* Mask that excludes process input descriptor(s). */
17224
dd2545e79add (wait_reading_process_input): If wait_for_cell,
Richard M. Stallman <rms@gnu.org>
parents: 17110
diff changeset
328
dd2545e79add (wait_reading_process_input): If wait_for_cell,
Richard M. Stallman <rms@gnu.org>
parents: 17110
diff changeset
329 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
330
80984
9247e9d47488 (gpm_wait_mask, max_gpm_desc): New variables.
Nick Roberts <nickrob@snap.net.nz>
parents: 77462
diff changeset
331 /* Mask for the gpm mouse input descriptor. */
9247e9d47488 (gpm_wait_mask, max_gpm_desc): New variables.
Nick Roberts <nickrob@snap.net.nz>
parents: 77462
diff changeset
332
9247e9d47488 (gpm_wait_mask, max_gpm_desc): New variables.
Nick Roberts <nickrob@snap.net.nz>
parents: 77462
diff changeset
333 static SELECT_TYPE gpm_wait_mask;
9247e9d47488 (gpm_wait_mask, max_gpm_desc): New variables.
Nick Roberts <nickrob@snap.net.nz>
parents: 77462
diff changeset
334
57840
8abbe69dfdb2 (connect_wait_mask, num_pending_connects): Only
Kim F. Storm <storm@cua.dk>
parents: 57287
diff changeset
335 #ifdef NON_BLOCKING_CONNECT
43598
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
336 /* 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
337 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
338 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
339
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
340 static SELECT_TYPE connect_wait_mask;
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
341
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
342 /* Number of bits set in connect_wait_mask. */
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
343 static int num_pending_connects;
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
344
57840
8abbe69dfdb2 (connect_wait_mask, num_pending_connects): Only
Kim F. Storm <storm@cua.dk>
parents: 57287
diff changeset
345 #define IF_NON_BLOCKING_CONNECT(s) s
8abbe69dfdb2 (connect_wait_mask, num_pending_connects): Only
Kim F. Storm <storm@cua.dk>
parents: 57287
diff changeset
346 #else
8abbe69dfdb2 (connect_wait_mask, num_pending_connects): Only
Kim F. Storm <storm@cua.dk>
parents: 57287
diff changeset
347 #define IF_NON_BLOCKING_CONNECT(s)
8abbe69dfdb2 (connect_wait_mask, num_pending_connects): Only
Kim F. Storm <storm@cua.dk>
parents: 57287
diff changeset
348 #endif
8abbe69dfdb2 (connect_wait_mask, num_pending_connects): Only
Kim F. Storm <storm@cua.dk>
parents: 57287
diff changeset
349
7044
7032d07f5ad9 (max_process_desc): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 7013
diff changeset
350 /* 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
351 static int max_process_desc;
7032d07f5ad9 (max_process_desc): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 7013
diff changeset
352
9686
cd788aa8cb2a Handle multiple keyboard input descriptors.
Richard M. Stallman <rms@gnu.org>
parents: 9334
diff changeset
353 /* 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
354 static int max_keyboard_desc;
4682
c4d471244116 (keyboard_descriptor): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 4639
diff changeset
355
80984
9247e9d47488 (gpm_wait_mask, max_gpm_desc): New variables.
Nick Roberts <nickrob@snap.net.nz>
parents: 77462
diff changeset
356 /* The largest descriptor currently in use for gpm mouse input. */
9247e9d47488 (gpm_wait_mask, max_gpm_desc): New variables.
Nick Roberts <nickrob@snap.net.nz>
parents: 77462
diff changeset
357 static int max_gpm_desc;
9247e9d47488 (gpm_wait_mask, max_gpm_desc): New variables.
Nick Roberts <nickrob@snap.net.nz>
parents: 77462
diff changeset
358
4682
c4d471244116 (keyboard_descriptor): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 4639
diff changeset
359 /* 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
360 static int delete_exited_processes;
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
361
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
362 /* 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
363 Lisp_Object chan_process[MAXDESC];
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
364
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
365 /* Alist of elements (NAME . PROCESS) */
6164
d047d5a48e0e (chan_process, Vprocess_alist): No longer static.
Richard M. Stallman <rms@gnu.org>
parents: 6158
diff changeset
366 Lisp_Object Vprocess_alist;
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
367
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
368 /* Buffered-ahead input char from process, indexed by channel.
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
369 -1 means empty (no char is buffered).
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
370 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
371 output from the process is to read at least one char.
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
372 Always -1 on systems that support FIONREAD. */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
373
9793
28267fcc61be Use macros IS_ANY_SEP, IS_DIRECTORY_SEP,
Richard M. Stallman <rms@gnu.org>
parents: 9705
diff changeset
374 /* 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
375 int proc_buffered_char[MAXDESC];
4682
c4d471244116 (keyboard_descriptor): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 4639
diff changeset
376
17041
b61cbe595be5 Include charset.h and coding.h.
Karl Heuer <kwzh@gnu.org>
parents: 16780
diff changeset
377 /* 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
378 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
379 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
380
43968
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
381 #ifdef DATAGRAM_SOCKETS
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
382 /* Table of `partner address' for datagram sockets. */
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
383 struct sockaddr_and_len {
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
384 struct sockaddr *sa;
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
385 int len;
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
386 } datagram_address[MAXDESC];
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
387 #define DATAGRAM_CHAN_P(chan) (datagram_address[chan].sa != 0)
81826
077a1e6fd3f2 (struct Lisp_Process): Turn slots infd, outfd, kill_without_query, pty_flag,
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 80984
diff changeset
388 #define DATAGRAM_CONN_P(proc) (PROCESSP (proc) && datagram_address[XPROCESS (proc)->infd].sa != 0)
43968
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
389 #else
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
390 #define DATAGRAM_CHAN_P(chan) (0)
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
391 #define DATAGRAM_CONN_P(proc) (0)
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
392 #endif
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
393
6158
6b81b2575071 Include unistd.h.
Richard M. Stallman <rms@gnu.org>
parents: 5891
diff changeset
394 /* 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
395 static int pty_max_bytes;
9030
b14532c71632 (exec_sentinel_error_handler): New function.
Richard M. Stallman <rms@gnu.org>
parents: 8570
diff changeset
396
72727
5f2a73453aa3 (inhibit_sentinels): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 72277
diff changeset
397 /* Nonzero means don't run process sentinels. This is used
5f2a73453aa3 (inhibit_sentinels): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 72277
diff changeset
398 when exiting. */
5f2a73453aa3 (inhibit_sentinels): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 72277
diff changeset
399 int inhibit_sentinels;
5f2a73453aa3 (inhibit_sentinels): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 72277
diff changeset
400
11609
3b2dacb1bfe9 (create_process): Don't reference pty_name if !HAVE_PTYS.
Karl Heuer <kwzh@gnu.org>
parents: 11514
diff changeset
401 #ifdef HAVE_PTYS
48088
9618c046ce89 Include sys/wait.h.
Dave Love <fx@gnu.org>
parents: 48053
diff changeset
402 #ifdef HAVE_PTY_H
9618c046ce89 Include sys/wait.h.
Dave Love <fx@gnu.org>
parents: 48053
diff changeset
403 #include <pty.h>
9618c046ce89 Include sys/wait.h.
Dave Love <fx@gnu.org>
parents: 48053
diff changeset
404 #endif
11609
3b2dacb1bfe9 (create_process): Don't reference pty_name if !HAVE_PTYS.
Karl Heuer <kwzh@gnu.org>
parents: 11514
diff changeset
405 /* 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
406
b14532c71632 (exec_sentinel_error_handler): New function.
Richard M. Stallman <rms@gnu.org>
parents: 8570
diff changeset
407 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
408 #endif
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
409
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
410 /* Compute the Lisp form of the process status, p->status, from
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
411 the numeric status that was returned by `wait'. */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
412
64977
d26871fb1b7b (deactivate_process, status_notify, read_process_output)
Kim F. Storm <storm@cua.dk>
parents: 64770
diff changeset
413 static Lisp_Object status_convert ();
d26871fb1b7b (deactivate_process, status_notify, read_process_output)
Kim F. Storm <storm@cua.dk>
parents: 64770
diff changeset
414
d26871fb1b7b (deactivate_process, status_notify, read_process_output)
Kim F. Storm <storm@cua.dk>
parents: 64770
diff changeset
415 static void
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
416 update_status (p)
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
417 struct Lisp_Process *p;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
418 {
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
419 union { int i; WAITTYPE wt; } u;
69873
2d844bbbccd4 * process.h (struct Lisp_Process): Replace Lisp_Objects `pid',
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 69634
diff changeset
420 eassert (p->raw_status_new);
2d844bbbccd4 * process.h (struct Lisp_Process): Replace Lisp_Objects `pid',
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 69634
diff changeset
421 u.i = p->raw_status;
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
422 p->status = status_convert (u.wt);
69873
2d844bbbccd4 * process.h (struct Lisp_Process): Replace Lisp_Objects `pid',
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 69634
diff changeset
423 p->raw_status_new = 0;
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
424 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
425
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 49281
diff changeset
426 /* Convert a process status word in Unix format to
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
427 the list that we use internally. */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
428
64977
d26871fb1b7b (deactivate_process, status_notify, read_process_output)
Kim F. Storm <storm@cua.dk>
parents: 64770
diff changeset
429 static Lisp_Object
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
430 status_convert (w)
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
431 WAITTYPE w;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
432 {
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
433 if (WIFSTOPPED (w))
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
434 return Fcons (Qstop, Fcons (make_number (WSTOPSIG (w)), Qnil));
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
435 else if (WIFEXITED (w))
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
436 return Fcons (Qexit, Fcons (make_number (WRETCODE (w)),
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
437 WCOREDUMP (w) ? Qt : Qnil));
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
438 else if (WIFSIGNALED (w))
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
439 return Fcons (Qsignal, Fcons (make_number (WTERMSIG (w)),
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
440 WCOREDUMP (w) ? Qt : Qnil));
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
441 else
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
442 return Qrun;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
443 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
444
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
445 /* Given a status-list, extract the three pieces of information
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
446 and store them individually through the three pointers. */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
447
64977
d26871fb1b7b (deactivate_process, status_notify, read_process_output)
Kim F. Storm <storm@cua.dk>
parents: 64770
diff changeset
448 static void
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
449 decode_status (l, symbol, code, coredump)
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
450 Lisp_Object l;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
451 Lisp_Object *symbol;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
452 int *code;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
453 int *coredump;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
454 {
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
455 Lisp_Object tem;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
456
9115
59bc2d010b5f (decode_status, Fprocessp, Fget_process, Fget_buffer_process, Fprocess_status,
Karl Heuer <kwzh@gnu.org>
parents: 9034
diff changeset
457 if (SYMBOLP (l))
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
458 {
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
459 *symbol = l;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
460 *code = 0;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
461 *coredump = 0;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
462 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
463 else
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
464 {
25645
a14111a2a100 Use XCAR, XCDR, XFLOAT_DATA instead of explicit member access.
Ken Raeburn <raeburn@raeburn.org>
parents: 25356
diff changeset
465 *symbol = XCAR (l);
a14111a2a100 Use XCAR, XCDR, XFLOAT_DATA instead of explicit member access.
Ken Raeburn <raeburn@raeburn.org>
parents: 25356
diff changeset
466 tem = XCDR (l);
a14111a2a100 Use XCAR, XCDR, XFLOAT_DATA instead of explicit member access.
Ken Raeburn <raeburn@raeburn.org>
parents: 25356
diff changeset
467 *code = XFASTINT (XCAR (tem));
a14111a2a100 Use XCAR, XCDR, XFLOAT_DATA instead of explicit member access.
Ken Raeburn <raeburn@raeburn.org>
parents: 25356
diff changeset
468 tem = XCDR (tem);
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
469 *coredump = !NILP (tem);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
470 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
471 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
472
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
473 /* Return a string describing a process status list. */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
474
55962
8979bc3ade70 (Fdelete_process): Undo 2004-05-28 change.
Kim F. Storm <storm@cua.dk>
parents: 55810
diff changeset
475 static Lisp_Object
8979bc3ade70 (Fdelete_process): Undo 2004-05-28 change.
Kim F. Storm <storm@cua.dk>
parents: 55810
diff changeset
476 status_message (p)
8979bc3ade70 (Fdelete_process): Undo 2004-05-28 change.
Kim F. Storm <storm@cua.dk>
parents: 55810
diff changeset
477 struct Lisp_Process *p;
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
478 {
55962
8979bc3ade70 (Fdelete_process): Undo 2004-05-28 change.
Kim F. Storm <storm@cua.dk>
parents: 55810
diff changeset
479 Lisp_Object status = p->status;
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
480 Lisp_Object symbol;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
481 int code, coredump;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
482 Lisp_Object string, string2;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
483
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
484 decode_status (status, &symbol, &code, &coredump);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
485
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
486 if (EQ (symbol, Qsignal) || EQ (symbol, Qstop))
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
487 {
26088
b7aa6ac26872 Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
parents: 26019
diff changeset
488 char *signame;
26526
b7438760079b * callproc.c (strerror): Remove decl.
Paul Eggert <eggert@twinsun.com>
parents: 26313
diff changeset
489 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
490 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
491 if (signame == 0)
466bc8ef8e21 (sigchld_handler, status_message): Handle a NULL in sys_siglist.
Richard M. Stallman <rms@gnu.org>
parents: 5561
diff changeset
492 signame = "unknown";
466bc8ef8e21 (sigchld_handler, status_message): Handle a NULL in sys_siglist.
Richard M. Stallman <rms@gnu.org>
parents: 5561
diff changeset
493 string = build_string (signame);
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
494 string2 = build_string (coredump ? " (core dumped)\n" : "\n");
46431
db28853d1e82 * process.c (status_message): Use SSET.
Ken Raeburn <raeburn@raeburn.org>
parents: 46411
diff changeset
495 SSET (string, 0, DOWNCASE (SREF (string, 0)));
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
496 return concat2 (string, string2);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
497 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
498 else if (EQ (symbol, Qexit))
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
499 {
55962
8979bc3ade70 (Fdelete_process): Undo 2004-05-28 change.
Kim F. Storm <storm@cua.dk>
parents: 55810
diff changeset
500 if (NETCONN1_P (p))
8979bc3ade70 (Fdelete_process): Undo 2004-05-28 change.
Kim F. Storm <storm@cua.dk>
parents: 55810
diff changeset
501 return build_string (code == 0 ? "deleted\n" : "connection broken by remote peer\n");
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
502 if (code == 0)
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
503 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
504 string = Fnumber_to_string (make_number (code));
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
505 string2 = build_string (coredump ? " (core dumped)\n" : "\n");
43968
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
506 return concat3 (build_string ("exited abnormally with code "),
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
507 string, string2);
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
508 }
43598
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
509 else if (EQ (symbol, Qfailed))
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
510 {
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
511 string = Fnumber_to_string (make_number (code));
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
512 string2 = build_string ("\n");
43968
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
513 return concat3 (build_string ("failed with code "),
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
514 string, string2);
43598
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
515 }
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
516 else
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
517 return Fcopy_sequence (Fsymbol_name (symbol));
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
518 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
519
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
520 #ifdef HAVE_PTYS
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
521
11609
3b2dacb1bfe9 (create_process): Don't reference pty_name if !HAVE_PTYS.
Karl Heuer <kwzh@gnu.org>
parents: 11514
diff changeset
522 /* 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
523 Return -1 on failure.
3b2dacb1bfe9 (create_process): Don't reference pty_name if !HAVE_PTYS.
Karl Heuer <kwzh@gnu.org>
parents: 11514
diff changeset
524 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
525 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
526
64977
d26871fb1b7b (deactivate_process, status_notify, read_process_output)
Kim F. Storm <storm@cua.dk>
parents: 64770
diff changeset
527 static int
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
528 allocate_pty ()
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
529 {
21514
fa9ff387d260 Fix -Wimplicit warnings.
Andreas Schwab <schwab@suse.de>
parents: 21414
diff changeset
530 register int c, i;
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
531 int fd;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
532
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
533 #ifdef PTY_ITERATION
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
534 PTY_ITERATION
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
535 #else
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
536 for (c = FIRST_PTY_LETTER; c <= 'z'; c++)
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
537 for (i = 0; i < 16; i++)
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
538 #endif
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
539 {
51473
58061223557c (allocate_pty): Revert part of the previous patch.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 51233
diff changeset
540 struct stat stb; /* Used in some PTY_OPEN. */
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
541 #ifdef PTY_NAME_SPRINTF
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
542 PTY_NAME_SPRINTF
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
543 #else
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
544 sprintf (pty_name, "/dev/pty%c%x", c, i);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
545 #endif /* no PTY_NAME_SPRINTF */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
546
822
c6e94e13926c *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 808
diff changeset
547 #ifdef PTY_OPEN
c6e94e13926c *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 808
diff changeset
548 PTY_OPEN;
c6e94e13926c *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 808
diff changeset
549 #else /* no PTY_OPEN */
51233
41ed31a0fd49 (allocate_pty): Remove `unused var stb' and
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 51046
diff changeset
550 {
41ed31a0fd49 (allocate_pty): Remove `unused var stb' and
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 51046
diff changeset
551 # ifdef IRIS
41ed31a0fd49 (allocate_pty): Remove `unused var stb' and
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 51046
diff changeset
552 /* Unusual IRIS code */
41ed31a0fd49 (allocate_pty): Remove `unused var stb' and
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 51046
diff changeset
553 *ptyv = emacs_open ("/dev/ptc", O_RDWR | O_NDELAY, 0);
41ed31a0fd49 (allocate_pty): Remove `unused var stb' and
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 51046
diff changeset
554 if (fd < 0)
41ed31a0fd49 (allocate_pty): Remove `unused var stb' and
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 51046
diff changeset
555 return -1;
41ed31a0fd49 (allocate_pty): Remove `unused var stb' and
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 51046
diff changeset
556 if (fstat (fd, &stb) < 0)
41ed31a0fd49 (allocate_pty): Remove `unused var stb' and
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 51046
diff changeset
557 return -1;
41ed31a0fd49 (allocate_pty): Remove `unused var stb' and
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 51046
diff changeset
558 # else /* not IRIS */
41ed31a0fd49 (allocate_pty): Remove `unused var stb' and
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 51046
diff changeset
559 { /* Some systems name their pseudoterminals so that there are gaps in
41ed31a0fd49 (allocate_pty): Remove `unused var stb' and
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 51046
diff changeset
560 the usual sequence - for example, on HP9000/S700 systems, there
41ed31a0fd49 (allocate_pty): Remove `unused var stb' and
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 51046
diff changeset
561 are no pseudoterminals with names ending in 'f'. So we wait for
41ed31a0fd49 (allocate_pty): Remove `unused var stb' and
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 51046
diff changeset
562 three failures in a row before deciding that we've reached the
41ed31a0fd49 (allocate_pty): Remove `unused var stb' and
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 51046
diff changeset
563 end of the ptys. */
41ed31a0fd49 (allocate_pty): Remove `unused var stb' and
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 51046
diff changeset
564 int failed_count = 0;
55444
976d03256b41 (Fwaiting_for_user_input_p, Fmake_network_process)
Juanma Barranquero <lekktu@gmail.com>
parents: 53835
diff changeset
565
51233
41ed31a0fd49 (allocate_pty): Remove `unused var stb' and
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 51046
diff changeset
566 if (stat (pty_name, &stb) < 0)
41ed31a0fd49 (allocate_pty): Remove `unused var stb' and
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 51046
diff changeset
567 {
41ed31a0fd49 (allocate_pty): Remove `unused var stb' and
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 51046
diff changeset
568 failed_count++;
41ed31a0fd49 (allocate_pty): Remove `unused var stb' and
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 51046
diff changeset
569 if (failed_count >= 3)
41ed31a0fd49 (allocate_pty): Remove `unused var stb' and
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 51046
diff changeset
570 return -1;
41ed31a0fd49 (allocate_pty): Remove `unused var stb' and
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 51046
diff changeset
571 }
41ed31a0fd49 (allocate_pty): Remove `unused var stb' and
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 51046
diff changeset
572 else
41ed31a0fd49 (allocate_pty): Remove `unused var stb' and
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 51046
diff changeset
573 failed_count = 0;
624
2bb7f23b7ea5 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 621
diff changeset
574 }
51233
41ed31a0fd49 (allocate_pty): Remove `unused var stb' and
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 51046
diff changeset
575 # ifdef O_NONBLOCK
41ed31a0fd49 (allocate_pty): Remove `unused var stb' and
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 51046
diff changeset
576 fd = emacs_open (pty_name, O_RDWR | O_NONBLOCK, 0);
41ed31a0fd49 (allocate_pty): Remove `unused var stb' and
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 51046
diff changeset
577 # else
41ed31a0fd49 (allocate_pty): Remove `unused var stb' and
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 51046
diff changeset
578 fd = emacs_open (pty_name, O_RDWR | O_NDELAY, 0);
41ed31a0fd49 (allocate_pty): Remove `unused var stb' and
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 51046
diff changeset
579 # endif
41ed31a0fd49 (allocate_pty): Remove `unused var stb' and
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 51046
diff changeset
580 # endif /* not IRIS */
41ed31a0fd49 (allocate_pty): Remove `unused var stb' and
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 51046
diff changeset
581 }
822
c6e94e13926c *** empty log message ***
Richard M. Stallman <rms@gnu.org>
parents: 808
diff changeset
582 #endif /* no PTY_OPEN */
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
583
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
584 if (fd >= 0)
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
585 {
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
586 /* check to make certain that both sides are available
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
587 this avoids a nasty yet stupid bug in rlogins */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
588 #ifdef PTY_TTY_NAME_SPRINTF
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
589 PTY_TTY_NAME_SPRINTF
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
590 #else
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
591 sprintf (pty_name, "/dev/tty%c%x", c, i);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
592 #endif /* no PTY_TTY_NAME_SPRINTF */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
593 #ifndef UNIPLUS
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
594 if (access (pty_name, 6) != 0)
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
595 {
26088
b7aa6ac26872 Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
parents: 26019
diff changeset
596 emacs_close (fd);
51233
41ed31a0fd49 (allocate_pty): Remove `unused var stb' and
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 51046
diff changeset
597 # if !defined(IRIS) && !defined(__sgi)
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
598 continue;
51233
41ed31a0fd49 (allocate_pty): Remove `unused var stb' and
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 51046
diff changeset
599 # else
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
600 return -1;
51233
41ed31a0fd49 (allocate_pty): Remove `unused var stb' and
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 51046
diff changeset
601 # endif /* IRIS */
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
602 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
603 #endif /* not UNIPLUS */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
604 setup_pty (fd);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
605 return fd;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
606 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
607 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
608 return -1;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
609 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
610 #endif /* HAVE_PTYS */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
611
64977
d26871fb1b7b (deactivate_process, status_notify, read_process_output)
Kim F. Storm <storm@cua.dk>
parents: 64770
diff changeset
612 static Lisp_Object
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
613 make_process (name)
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
614 Lisp_Object name;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
615 {
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
616 register Lisp_Object val, tem, name1;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
617 register struct Lisp_Process *p;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
618 char suffix[10];
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
619 register int i;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
620
36434
40cfe4976f04 (make_process): Use allocate_process.
Gerd Moellmann <gerd@gnu.org>
parents: 35336
diff changeset
621 p = allocate_process ();
9969
007d93b04e1f (make_process): Use allocate_vectorlike and VECSIZE.
Karl Heuer <kwzh@gnu.org>
parents: 9952
diff changeset
622
81826
077a1e6fd3f2 (struct Lisp_Process): Turn slots infd, outfd, kill_without_query, pty_flag,
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 80984
diff changeset
623 p->infd = -1;
077a1e6fd3f2 (struct Lisp_Process): Turn slots infd, outfd, kill_without_query, pty_flag,
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 80984
diff changeset
624 p->outfd = -1;
077a1e6fd3f2 (struct Lisp_Process): Turn slots infd, outfd, kill_without_query, pty_flag,
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 80984
diff changeset
625 p->tick = 0;
077a1e6fd3f2 (struct Lisp_Process): Turn slots infd, outfd, kill_without_query, pty_flag,
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 80984
diff changeset
626 p->update_tick = 0;
69873
2d844bbbccd4 * process.h (struct Lisp_Process): Replace Lisp_Objects `pid',
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 69634
diff changeset
627 p->pid = 0;
2d844bbbccd4 * process.h (struct Lisp_Process): Replace Lisp_Objects `pid',
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 69634
diff changeset
628 p->raw_status_new = 0;
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
629 p->status = Qrun;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
630 p->mark = Fmake_marker ();
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
631
53472
1a5fe79d27f3 (ADAPTIVE_READ_BUFFERING): New conditional.
Kim F. Storm <storm@cua.dk>
parents: 53072
diff changeset
632 #ifdef ADAPTIVE_READ_BUFFERING
81826
077a1e6fd3f2 (struct Lisp_Process): Turn slots infd, outfd, kill_without_query, pty_flag,
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 80984
diff changeset
633 p->adaptive_read_buffering = 0;
077a1e6fd3f2 (struct Lisp_Process): Turn slots infd, outfd, kill_without_query, pty_flag,
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 80984
diff changeset
634 p->read_output_delay = 0;
077a1e6fd3f2 (struct Lisp_Process): Turn slots infd, outfd, kill_without_query, pty_flag,
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 80984
diff changeset
635 p->read_output_skip = 0;
53472
1a5fe79d27f3 (ADAPTIVE_READ_BUFFERING): New conditional.
Kim F. Storm <storm@cua.dk>
parents: 53072
diff changeset
636 #endif
1a5fe79d27f3 (ADAPTIVE_READ_BUFFERING): New conditional.
Kim F. Storm <storm@cua.dk>
parents: 53072
diff changeset
637
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
638 /* If name is already in use, modify it until it is unused. */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
639
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
640 name1 = name;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
641 for (i = 1; ; i++)
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
642 {
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
643 tem = Fget_process (name1);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
644 if (NILP (tem)) break;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
645 sprintf (suffix, "<%d>", i);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
646 name1 = concat2 (name, build_string (suffix));
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
647 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
648 name = name1;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
649 p->name = name;
9969
007d93b04e1f (make_process): Use allocate_vectorlike and VECSIZE.
Karl Heuer <kwzh@gnu.org>
parents: 9952
diff changeset
650 XSETPROCESS (val, p);
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
651 Vprocess_alist = Fcons (Fcons (name, val), Vprocess_alist);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
652 return val;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
653 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
654
64977
d26871fb1b7b (deactivate_process, status_notify, read_process_output)
Kim F. Storm <storm@cua.dk>
parents: 64770
diff changeset
655 static void
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
656 remove_process (proc)
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
657 register Lisp_Object proc;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
658 {
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
659 register Lisp_Object pair;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
660
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
661 pair = Frassq (proc, Vprocess_alist);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
662 Vprocess_alist = Fdelq (pair, Vprocess_alist);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
663
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
664 deactivate_process (proc);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
665 }
49667
cbec1327e2f1 (QCfilter_multibyte): New variable.
Kenichi Handa <handa@m17n.org>
parents: 49600
diff changeset
666
cbec1327e2f1 (QCfilter_multibyte): New variable.
Kenichi Handa <handa@m17n.org>
parents: 49600
diff changeset
667 /* Setup coding systems of PROCESS. */
cbec1327e2f1 (QCfilter_multibyte): New variable.
Kenichi Handa <handa@m17n.org>
parents: 49600
diff changeset
668
cbec1327e2f1 (QCfilter_multibyte): New variable.
Kenichi Handa <handa@m17n.org>
parents: 49600
diff changeset
669 void
cbec1327e2f1 (QCfilter_multibyte): New variable.
Kenichi Handa <handa@m17n.org>
parents: 49600
diff changeset
670 setup_process_coding_systems (process)
cbec1327e2f1 (QCfilter_multibyte): New variable.
Kenichi Handa <handa@m17n.org>
parents: 49600
diff changeset
671 Lisp_Object process;
cbec1327e2f1 (QCfilter_multibyte): New variable.
Kenichi Handa <handa@m17n.org>
parents: 49600
diff changeset
672 {
cbec1327e2f1 (QCfilter_multibyte): New variable.
Kenichi Handa <handa@m17n.org>
parents: 49600
diff changeset
673 struct Lisp_Process *p = XPROCESS (process);
81826
077a1e6fd3f2 (struct Lisp_Process): Turn slots infd, outfd, kill_without_query, pty_flag,
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 80984
diff changeset
674 int inch = p->infd;
077a1e6fd3f2 (struct Lisp_Process): Turn slots infd, outfd, kill_without_query, pty_flag,
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 80984
diff changeset
675 int outch = p->outfd;
49667
cbec1327e2f1 (QCfilter_multibyte): New variable.
Kenichi Handa <handa@m17n.org>
parents: 49600
diff changeset
676
49872
012ced9cf144 (setup_process_coding_systems): If the process's
Kenichi Handa <handa@m17n.org>
parents: 49680
diff changeset
677 if (inch < 0 || outch < 0)
012ced9cf144 (setup_process_coding_systems): If the process's
Kenichi Handa <handa@m17n.org>
parents: 49680
diff changeset
678 return;
012ced9cf144 (setup_process_coding_systems): If the process's
Kenichi Handa <handa@m17n.org>
parents: 49680
diff changeset
679
49667
cbec1327e2f1 (QCfilter_multibyte): New variable.
Kenichi Handa <handa@m17n.org>
parents: 49600
diff changeset
680 if (!proc_decode_coding_system[inch])
cbec1327e2f1 (QCfilter_multibyte): New variable.
Kenichi Handa <handa@m17n.org>
parents: 49600
diff changeset
681 proc_decode_coding_system[inch]
cbec1327e2f1 (QCfilter_multibyte): New variable.
Kenichi Handa <handa@m17n.org>
parents: 49600
diff changeset
682 = (struct coding_system *) xmalloc (sizeof (struct coding_system));
cbec1327e2f1 (QCfilter_multibyte): New variable.
Kenichi Handa <handa@m17n.org>
parents: 49600
diff changeset
683 setup_coding_system (p->decode_coding_system,
cbec1327e2f1 (QCfilter_multibyte): New variable.
Kenichi Handa <handa@m17n.org>
parents: 49600
diff changeset
684 proc_decode_coding_system[inch]);
cbec1327e2f1 (QCfilter_multibyte): New variable.
Kenichi Handa <handa@m17n.org>
parents: 49600
diff changeset
685 if (! NILP (p->filter))
cbec1327e2f1 (QCfilter_multibyte): New variable.
Kenichi Handa <handa@m17n.org>
parents: 49600
diff changeset
686 {
81826
077a1e6fd3f2 (struct Lisp_Process): Turn slots infd, outfd, kill_without_query, pty_flag,
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 80984
diff changeset
687 if (!p->filter_multibyte)
49667
cbec1327e2f1 (QCfilter_multibyte): New variable.
Kenichi Handa <handa@m17n.org>
parents: 49600
diff changeset
688 setup_raw_text_coding_system (proc_decode_coding_system[inch]);
cbec1327e2f1 (QCfilter_multibyte): New variable.
Kenichi Handa <handa@m17n.org>
parents: 49600
diff changeset
689 }
cbec1327e2f1 (QCfilter_multibyte): New variable.
Kenichi Handa <handa@m17n.org>
parents: 49600
diff changeset
690 else if (BUFFERP (p->buffer))
cbec1327e2f1 (QCfilter_multibyte): New variable.
Kenichi Handa <handa@m17n.org>
parents: 49600
diff changeset
691 {
cbec1327e2f1 (QCfilter_multibyte): New variable.
Kenichi Handa <handa@m17n.org>
parents: 49600
diff changeset
692 if (NILP (XBUFFER (p->buffer)->enable_multibyte_characters))
cbec1327e2f1 (QCfilter_multibyte): New variable.
Kenichi Handa <handa@m17n.org>
parents: 49600
diff changeset
693 setup_raw_text_coding_system (proc_decode_coding_system[inch]);
cbec1327e2f1 (QCfilter_multibyte): New variable.
Kenichi Handa <handa@m17n.org>
parents: 49600
diff changeset
694 }
cbec1327e2f1 (QCfilter_multibyte): New variable.
Kenichi Handa <handa@m17n.org>
parents: 49600
diff changeset
695
cbec1327e2f1 (QCfilter_multibyte): New variable.
Kenichi Handa <handa@m17n.org>
parents: 49600
diff changeset
696 if (!proc_encode_coding_system[outch])
cbec1327e2f1 (QCfilter_multibyte): New variable.
Kenichi Handa <handa@m17n.org>
parents: 49600
diff changeset
697 proc_encode_coding_system[outch]
cbec1327e2f1 (QCfilter_multibyte): New variable.
Kenichi Handa <handa@m17n.org>
parents: 49600
diff changeset
698 = (struct coding_system *) xmalloc (sizeof (struct coding_system));
cbec1327e2f1 (QCfilter_multibyte): New variable.
Kenichi Handa <handa@m17n.org>
parents: 49600
diff changeset
699 setup_coding_system (p->encode_coding_system,
cbec1327e2f1 (QCfilter_multibyte): New variable.
Kenichi Handa <handa@m17n.org>
parents: 49600
diff changeset
700 proc_encode_coding_system[outch]);
70517
7ebead4f6646 (setup_process_coding_systems): Use system_eol_type
Kenichi Handa <handa@m17n.org>
parents: 69981
diff changeset
701 if (proc_encode_coding_system[outch]->eol_type == CODING_EOL_UNDECIDED)
7ebead4f6646 (setup_process_coding_systems): Use system_eol_type
Kenichi Handa <handa@m17n.org>
parents: 69981
diff changeset
702 proc_encode_coding_system[outch]->eol_type = system_eol_type;
49667
cbec1327e2f1 (QCfilter_multibyte): New variable.
Kenichi Handa <handa@m17n.org>
parents: 49600
diff changeset
703 }
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
704
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
705 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
706 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
707 (object)
14085
85ce7bab31dc (Fprocessp, Fget_buffer_process, Fdelete_process, Fprocess_status,
Erik Naggum <erik@naggum.no>
parents: 14036
diff changeset
708 Lisp_Object object;
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
709 {
14085
85ce7bab31dc (Fprocessp, Fget_buffer_process, Fdelete_process, Fprocess_status,
Erik Naggum <erik@naggum.no>
parents: 14036
diff changeset
710 return PROCESSP (object) ? Qt : Qnil;
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
711 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
712
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
713 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
714 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
715 (name)
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
716 register Lisp_Object name;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
717 {
9115
59bc2d010b5f (decode_status, Fprocessp, Fget_process, Fget_buffer_process, Fprocess_status,
Karl Heuer <kwzh@gnu.org>
parents: 9034
diff changeset
718 if (PROCESSP (name))
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
719 return name;
40656
cdfd4d09b79a Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents: 40641
diff changeset
720 CHECK_STRING (name);
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
721 return Fcdr (Fassoc (name, Vprocess_alist));
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
722 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
723
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
724 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
725 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
726 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
727 (buffer)
14085
85ce7bab31dc (Fprocessp, Fget_buffer_process, Fdelete_process, Fprocess_status,
Erik Naggum <erik@naggum.no>
parents: 14036
diff changeset
728 register Lisp_Object buffer;
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
729 {
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
730 register Lisp_Object buf, tail, proc;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
731
14085
85ce7bab31dc (Fprocessp, Fget_buffer_process, Fdelete_process, Fprocess_status,
Erik Naggum <erik@naggum.no>
parents: 14036
diff changeset
732 if (NILP (buffer)) return Qnil;
85ce7bab31dc (Fprocessp, Fget_buffer_process, Fdelete_process, Fprocess_status,
Erik Naggum <erik@naggum.no>
parents: 14036
diff changeset
733 buf = Fget_buffer (buffer);
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
734 if (NILP (buf)) return Qnil;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
735
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
736 for (tail = Vprocess_alist; !NILP (tail); tail = Fcdr (tail))
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
737 {
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
738 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
739 if (PROCESSP (proc) && EQ (XPROCESS (proc)->buffer, buf))
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
740 return proc;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
741 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
742 return Qnil;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
743 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
744
808
707866b2a190 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 765
diff changeset
745 /* This is how commands for the user decode process arguments. It
707866b2a190 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 765
diff changeset
746 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
747 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
748 current buffer. */
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
749
4994
4146a65b9f02 (get_process): Add `static' to definition.
Richard M. Stallman <rms@gnu.org>
parents: 4914
diff changeset
750 static Lisp_Object
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
751 get_process (name)
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
752 register Lisp_Object name;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
753 {
6313
9a6531e6de5d (get_process): Allow arg to be a buffer object.
Karl Heuer <kwzh@gnu.org>
parents: 6253
diff changeset
754 register Lisp_Object proc, obj;
9a6531e6de5d (get_process): Allow arg to be a buffer object.
Karl Heuer <kwzh@gnu.org>
parents: 6253
diff changeset
755 if (STRINGP (name))
9a6531e6de5d (get_process): Allow arg to be a buffer object.
Karl Heuer <kwzh@gnu.org>
parents: 6253
diff changeset
756 {
9a6531e6de5d (get_process): Allow arg to be a buffer object.
Karl Heuer <kwzh@gnu.org>
parents: 6253
diff changeset
757 obj = Fget_process (name);
9a6531e6de5d (get_process): Allow arg to be a buffer object.
Karl Heuer <kwzh@gnu.org>
parents: 6253
diff changeset
758 if (NILP (obj))
9a6531e6de5d (get_process): Allow arg to be a buffer object.
Karl Heuer <kwzh@gnu.org>
parents: 6253
diff changeset
759 obj = Fget_buffer (name);
9a6531e6de5d (get_process): Allow arg to be a buffer object.
Karl Heuer <kwzh@gnu.org>
parents: 6253
diff changeset
760 if (NILP (obj))
46370
40db0673e6f0 Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents: 46314
diff changeset
761 error ("Process %s does not exist", SDATA (name));
6313
9a6531e6de5d (get_process): Allow arg to be a buffer object.
Karl Heuer <kwzh@gnu.org>
parents: 6253
diff changeset
762 }
9a6531e6de5d (get_process): Allow arg to be a buffer object.
Karl Heuer <kwzh@gnu.org>
parents: 6253
diff changeset
763 else if (NILP (name))
9a6531e6de5d (get_process): Allow arg to be a buffer object.
Karl Heuer <kwzh@gnu.org>
parents: 6253
diff changeset
764 obj = Fcurrent_buffer ();
9a6531e6de5d (get_process): Allow arg to be a buffer object.
Karl Heuer <kwzh@gnu.org>
parents: 6253
diff changeset
765 else
9a6531e6de5d (get_process): Allow arg to be a buffer object.
Karl Heuer <kwzh@gnu.org>
parents: 6253
diff changeset
766 obj = name;
9a6531e6de5d (get_process): Allow arg to be a buffer object.
Karl Heuer <kwzh@gnu.org>
parents: 6253
diff changeset
767
9a6531e6de5d (get_process): Allow arg to be a buffer object.
Karl Heuer <kwzh@gnu.org>
parents: 6253
diff changeset
768 /* 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
769 */
9a6531e6de5d (get_process): Allow arg to be a buffer object.
Karl Heuer <kwzh@gnu.org>
parents: 6253
diff changeset
770 if (BUFFERP (obj))
9a6531e6de5d (get_process): Allow arg to be a buffer object.
Karl Heuer <kwzh@gnu.org>
parents: 6253
diff changeset
771 {
9a6531e6de5d (get_process): Allow arg to be a buffer object.
Karl Heuer <kwzh@gnu.org>
parents: 6253
diff changeset
772 proc = Fget_buffer_process (obj);
9a6531e6de5d (get_process): Allow arg to be a buffer object.
Karl Heuer <kwzh@gnu.org>
parents: 6253
diff changeset
773 if (NILP (proc))
46370
40db0673e6f0 Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents: 46314
diff changeset
774 error ("Buffer %s has no process", SDATA (XBUFFER (obj)->name));
6313
9a6531e6de5d (get_process): Allow arg to be a buffer object.
Karl Heuer <kwzh@gnu.org>
parents: 6253
diff changeset
775 }
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
776 else
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
777 {
40656
cdfd4d09b79a Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents: 40641
diff changeset
778 CHECK_PROCESS (obj);
6313
9a6531e6de5d (get_process): Allow arg to be a buffer object.
Karl Heuer <kwzh@gnu.org>
parents: 6253
diff changeset
779 proc = obj;
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
780 }
6313
9a6531e6de5d (get_process): Allow arg to be a buffer object.
Karl Heuer <kwzh@gnu.org>
parents: 6253
diff changeset
781 return proc;
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
782 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
783
71140
80310801887e 2006-06-01 Micha«³l Cadilhac <michael.cadilhac@lrde.org>
Kim F. Storm <storm@cua.dk>
parents: 71109
diff changeset
784
80310801887e 2006-06-01 Micha«³l Cadilhac <michael.cadilhac@lrde.org>
Kim F. Storm <storm@cua.dk>
parents: 71109
diff changeset
785 #ifdef SIGCHLD
80310801887e 2006-06-01 Micha«³l Cadilhac <michael.cadilhac@lrde.org>
Kim F. Storm <storm@cua.dk>
parents: 71109
diff changeset
786 /* Fdelete_process promises to immediately forget about the process, but in
80310801887e 2006-06-01 Micha«³l Cadilhac <michael.cadilhac@lrde.org>
Kim F. Storm <storm@cua.dk>
parents: 71109
diff changeset
787 reality, Emacs needs to remember those processes until they have been
80310801887e 2006-06-01 Micha«³l Cadilhac <michael.cadilhac@lrde.org>
Kim F. Storm <storm@cua.dk>
parents: 71109
diff changeset
788 treated by sigchld_handler; otherwise this handler would consider the
80310801887e 2006-06-01 Micha«³l Cadilhac <michael.cadilhac@lrde.org>
Kim F. Storm <storm@cua.dk>
parents: 71109
diff changeset
789 process as being synchronous and say that the synchronous process is
80310801887e 2006-06-01 Micha«³l Cadilhac <michael.cadilhac@lrde.org>
Kim F. Storm <storm@cua.dk>
parents: 71109
diff changeset
790 dead. */
80310801887e 2006-06-01 Micha«³l Cadilhac <michael.cadilhac@lrde.org>
Kim F. Storm <storm@cua.dk>
parents: 71109
diff changeset
791 static Lisp_Object deleted_pid_list;
80310801887e 2006-06-01 Micha«³l Cadilhac <michael.cadilhac@lrde.org>
Kim F. Storm <storm@cua.dk>
parents: 71109
diff changeset
792 #endif
80310801887e 2006-06-01 Micha«³l Cadilhac <michael.cadilhac@lrde.org>
Kim F. Storm <storm@cua.dk>
parents: 71109
diff changeset
793
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
794 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
795 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
796 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
797 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
798 (process)
14085
85ce7bab31dc (Fprocessp, Fget_buffer_process, Fdelete_process, Fprocess_status,
Erik Naggum <erik@naggum.no>
parents: 14036
diff changeset
799 register Lisp_Object process;
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
800 {
64977
d26871fb1b7b (deactivate_process, status_notify, read_process_output)
Kim F. Storm <storm@cua.dk>
parents: 64770
diff changeset
801 register struct Lisp_Process *p;
d26871fb1b7b (deactivate_process, status_notify, read_process_output)
Kim F. Storm <storm@cua.dk>
parents: 64770
diff changeset
802
14085
85ce7bab31dc (Fprocessp, Fget_buffer_process, Fdelete_process, Fprocess_status,
Erik Naggum <erik@naggum.no>
parents: 14036
diff changeset
803 process = get_process (process);
64977
d26871fb1b7b (deactivate_process, status_notify, read_process_output)
Kim F. Storm <storm@cua.dk>
parents: 64770
diff changeset
804 p = XPROCESS (process);
d26871fb1b7b (deactivate_process, status_notify, read_process_output)
Kim F. Storm <storm@cua.dk>
parents: 64770
diff changeset
805
69873
2d844bbbccd4 * process.h (struct Lisp_Process): Replace Lisp_Objects `pid',
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 69634
diff changeset
806 p->raw_status_new = 0;
64977
d26871fb1b7b (deactivate_process, status_notify, read_process_output)
Kim F. Storm <storm@cua.dk>
parents: 64770
diff changeset
807 if (NETCONN1_P (p))
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
808 {
64977
d26871fb1b7b (deactivate_process, status_notify, read_process_output)
Kim F. Storm <storm@cua.dk>
parents: 64770
diff changeset
809 p->status = Fcons (Qexit, Fcons (make_number (0), Qnil));
81826
077a1e6fd3f2 (struct Lisp_Process): Turn slots infd, outfd, kill_without_query, pty_flag,
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 80984
diff changeset
810 p->tick = ++process_tick;
64977
d26871fb1b7b (deactivate_process, status_notify, read_process_output)
Kim F. Storm <storm@cua.dk>
parents: 64770
diff changeset
811 status_notify (p);
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
812 }
81826
077a1e6fd3f2 (struct Lisp_Process): Turn slots infd, outfd, kill_without_query, pty_flag,
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 80984
diff changeset
813 else if (p->infd >= 0)
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
814 {
71140
80310801887e 2006-06-01 Micha«³l Cadilhac <michael.cadilhac@lrde.org>
Kim F. Storm <storm@cua.dk>
parents: 71109
diff changeset
815 #ifdef SIGCHLD
80310801887e 2006-06-01 Micha«³l Cadilhac <michael.cadilhac@lrde.org>
Kim F. Storm <storm@cua.dk>
parents: 71109
diff changeset
816 Lisp_Object symbol;
75220
1b003fe28dfe (Fdelete_process, Fprocess_id, sigchld_handler): Copy PID into EMACS_INT
Eli Zaretskii <eliz@gnu.org>
parents: 74946
diff changeset
817 /* Assignment to EMACS_INT stops GCC whining about limited range
1b003fe28dfe (Fdelete_process, Fprocess_id, sigchld_handler): Copy PID into EMACS_INT
Eli Zaretskii <eliz@gnu.org>
parents: 74946
diff changeset
818 of data type. */
76494
f0a25b5d3ba0 (Fdelete_process): Properly handle deletion of first element of
Chong Yidong <cyd@stupidchicken.com>
parents: 76493
diff changeset
819 EMACS_INT pid = p->pid;
71140
80310801887e 2006-06-01 Micha«³l Cadilhac <michael.cadilhac@lrde.org>
Kim F. Storm <storm@cua.dk>
parents: 71109
diff changeset
820
80310801887e 2006-06-01 Micha«³l Cadilhac <michael.cadilhac@lrde.org>
Kim F. Storm <storm@cua.dk>
parents: 71109
diff changeset
821 /* No problem storing the pid here, as it is still in Vprocess_alist. */
75220
1b003fe28dfe (Fdelete_process, Fprocess_id, sigchld_handler): Copy PID into EMACS_INT
Eli Zaretskii <eliz@gnu.org>
parents: 74946
diff changeset
822 deleted_pid_list = Fcons (make_fixnum_or_float (pid),
71140
80310801887e 2006-06-01 Micha«³l Cadilhac <michael.cadilhac@lrde.org>
Kim F. Storm <storm@cua.dk>
parents: 71109
diff changeset
823 /* GC treated elements set to nil. */
80310801887e 2006-06-01 Micha«³l Cadilhac <michael.cadilhac@lrde.org>
Kim F. Storm <storm@cua.dk>
parents: 71109
diff changeset
824 Fdelq (Qnil, deleted_pid_list));
80310801887e 2006-06-01 Micha«³l Cadilhac <michael.cadilhac@lrde.org>
Kim F. Storm <storm@cua.dk>
parents: 71109
diff changeset
825 /* If the process has already signaled, remove it from the list. */
80310801887e 2006-06-01 Micha«³l Cadilhac <michael.cadilhac@lrde.org>
Kim F. Storm <storm@cua.dk>
parents: 71109
diff changeset
826 if (p->raw_status_new)
80310801887e 2006-06-01 Micha«³l Cadilhac <michael.cadilhac@lrde.org>
Kim F. Storm <storm@cua.dk>
parents: 71109
diff changeset
827 update_status (p);
80310801887e 2006-06-01 Micha«³l Cadilhac <michael.cadilhac@lrde.org>
Kim F. Storm <storm@cua.dk>
parents: 71109
diff changeset
828 symbol = p->status;
80310801887e 2006-06-01 Micha«³l Cadilhac <michael.cadilhac@lrde.org>
Kim F. Storm <storm@cua.dk>
parents: 71109
diff changeset
829 if (CONSP (p->status))
80310801887e 2006-06-01 Micha«³l Cadilhac <michael.cadilhac@lrde.org>
Kim F. Storm <storm@cua.dk>
parents: 71109
diff changeset
830 symbol = XCAR (p->status);
80310801887e 2006-06-01 Micha«³l Cadilhac <michael.cadilhac@lrde.org>
Kim F. Storm <storm@cua.dk>
parents: 71109
diff changeset
831 if (EQ (symbol, Qsignal) || EQ (symbol, Qexit))
76494
f0a25b5d3ba0 (Fdelete_process): Properly handle deletion of first element of
Chong Yidong <cyd@stupidchicken.com>
parents: 76493
diff changeset
832 deleted_pid_list
f0a25b5d3ba0 (Fdelete_process): Properly handle deletion of first element of
Chong Yidong <cyd@stupidchicken.com>
parents: 76493
diff changeset
833 = Fdelete (make_fixnum_or_float (pid), deleted_pid_list);
71140
80310801887e 2006-06-01 Micha«³l Cadilhac <michael.cadilhac@lrde.org>
Kim F. Storm <storm@cua.dk>
parents: 71109
diff changeset
834 else
80310801887e 2006-06-01 Micha«³l Cadilhac <michael.cadilhac@lrde.org>
Kim F. Storm <storm@cua.dk>
parents: 71109
diff changeset
835 #endif
80310801887e 2006-06-01 Micha«³l Cadilhac <michael.cadilhac@lrde.org>
Kim F. Storm <storm@cua.dk>
parents: 71109
diff changeset
836 {
80310801887e 2006-06-01 Micha«³l Cadilhac <michael.cadilhac@lrde.org>
Kim F. Storm <storm@cua.dk>
parents: 71109
diff changeset
837 Fkill_process (process, Qnil);
80310801887e 2006-06-01 Micha«³l Cadilhac <michael.cadilhac@lrde.org>
Kim F. Storm <storm@cua.dk>
parents: 71109
diff changeset
838 /* Do this now, since remove_process will make sigchld_handler do nothing. */
80310801887e 2006-06-01 Micha«³l Cadilhac <michael.cadilhac@lrde.org>
Kim F. Storm <storm@cua.dk>
parents: 71109
diff changeset
839 p->status
80310801887e 2006-06-01 Micha«³l Cadilhac <michael.cadilhac@lrde.org>
Kim F. Storm <storm@cua.dk>
parents: 71109
diff changeset
840 = Fcons (Qsignal, Fcons (make_number (SIGKILL), Qnil));
81826
077a1e6fd3f2 (struct Lisp_Process): Turn slots infd, outfd, kill_without_query, pty_flag,
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 80984
diff changeset
841 p->tick = ++process_tick;
71140
80310801887e 2006-06-01 Micha«³l Cadilhac <michael.cadilhac@lrde.org>
Kim F. Storm <storm@cua.dk>
parents: 71109
diff changeset
842 status_notify (p);
80310801887e 2006-06-01 Micha«³l Cadilhac <michael.cadilhac@lrde.org>
Kim F. Storm <storm@cua.dk>
parents: 71109
diff changeset
843 }
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
844 }
55962
8979bc3ade70 (Fdelete_process): Undo 2004-05-28 change.
Kim F. Storm <storm@cua.dk>
parents: 55810
diff changeset
845 remove_process (process);
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
846 return Qnil;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
847 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
848
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
849 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
850 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
851 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
852 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
853 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
854 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
855 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
856 open -- for a network stream connection that is open.
43968
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
857 listen -- for a network stream server that is listening.
40103
6b389fb978bc Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
858 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
859 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
860 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
861 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
862 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
863 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
864 (process)
14085
85ce7bab31dc (Fprocessp, Fget_buffer_process, Fdelete_process, Fprocess_status,
Erik Naggum <erik@naggum.no>
parents: 14036
diff changeset
865 register Lisp_Object process;
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
866 {
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
867 register struct Lisp_Process *p;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
868 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
869
14085
85ce7bab31dc (Fprocessp, Fget_buffer_process, Fdelete_process, Fprocess_status,
Erik Naggum <erik@naggum.no>
parents: 14036
diff changeset
870 if (STRINGP (process))
85ce7bab31dc (Fprocessp, Fget_buffer_process, Fdelete_process, Fprocess_status,
Erik Naggum <erik@naggum.no>
parents: 14036
diff changeset
871 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
872 else
14085
85ce7bab31dc (Fprocessp, Fget_buffer_process, Fdelete_process, Fprocess_status,
Erik Naggum <erik@naggum.no>
parents: 14036
diff changeset
873 process = get_process (process);
85ce7bab31dc (Fprocessp, Fget_buffer_process, Fdelete_process, Fprocess_status,
Erik Naggum <erik@naggum.no>
parents: 14036
diff changeset
874
85ce7bab31dc (Fprocessp, Fget_buffer_process, Fdelete_process, Fprocess_status,
Erik Naggum <erik@naggum.no>
parents: 14036
diff changeset
875 if (NILP (process))
85ce7bab31dc (Fprocessp, Fget_buffer_process, Fdelete_process, Fprocess_status,
Erik Naggum <erik@naggum.no>
parents: 14036
diff changeset
876 return process;
85ce7bab31dc (Fprocessp, Fget_buffer_process, Fdelete_process, Fprocess_status,
Erik Naggum <erik@naggum.no>
parents: 14036
diff changeset
877
85ce7bab31dc (Fprocessp, Fget_buffer_process, Fdelete_process, Fprocess_status,
Erik Naggum <erik@naggum.no>
parents: 14036
diff changeset
878 p = XPROCESS (process);
69873
2d844bbbccd4 * process.h (struct Lisp_Process): Replace Lisp_Objects `pid',
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 69634
diff changeset
879 if (p->raw_status_new)
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
880 update_status (p);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
881 status = p->status;
9115
59bc2d010b5f (decode_status, Fprocessp, Fget_process, Fget_buffer_process, Fprocess_status,
Karl Heuer <kwzh@gnu.org>
parents: 9034
diff changeset
882 if (CONSP (status))
25645
a14111a2a100 Use XCAR, XCDR, XFLOAT_DATA instead of explicit member access.
Ken Raeburn <raeburn@raeburn.org>
parents: 25356
diff changeset
883 status = XCAR (status);
43968
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
884 if (NETCONN1_P (p))
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
885 {
43968
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
886 if (EQ (status, Qexit))
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
887 status = Qclosed;
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
888 else if (EQ (p->command, Qt))
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
889 status = Qstop;
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
890 else if (EQ (status, Qrun))
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
891 status = Qopen;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
892 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
893 return status;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
894 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
895
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
896 DEFUN ("process-exit-status", Fprocess_exit_status, Sprocess_exit_status,
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
897 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
898 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
899 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
900 (process)
14085
85ce7bab31dc (Fprocessp, Fget_buffer_process, Fdelete_process, Fprocess_status,
Erik Naggum <erik@naggum.no>
parents: 14036
diff changeset
901 register Lisp_Object process;
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
902 {
40656
cdfd4d09b79a Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents: 40641
diff changeset
903 CHECK_PROCESS (process);
69873
2d844bbbccd4 * process.h (struct Lisp_Process): Replace Lisp_Objects `pid',
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 69634
diff changeset
904 if (XPROCESS (process)->raw_status_new)
14085
85ce7bab31dc (Fprocessp, Fget_buffer_process, Fdelete_process, Fprocess_status,
Erik Naggum <erik@naggum.no>
parents: 14036
diff changeset
905 update_status (XPROCESS (process));
85ce7bab31dc (Fprocessp, Fget_buffer_process, Fdelete_process, Fprocess_status,
Erik Naggum <erik@naggum.no>
parents: 14036
diff changeset
906 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
907 return XCAR (XCDR (XPROCESS (process)->status));
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
908 return make_number (0);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
909 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
910
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
911 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
912 doc: /* Return the process id of PROCESS.
55444
976d03256b41 (Fwaiting_for_user_input_p, Fmake_network_process)
Juanma Barranquero <lekktu@gmail.com>
parents: 53835
diff changeset
913 This is the pid of the external process which PROCESS uses or talks to.
40103
6b389fb978bc Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
914 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
915 (process)
14085
85ce7bab31dc (Fprocessp, Fget_buffer_process, Fdelete_process, Fprocess_status,
Erik Naggum <erik@naggum.no>
parents: 14036
diff changeset
916 register Lisp_Object process;
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
917 {
75220
1b003fe28dfe (Fdelete_process, Fprocess_id, sigchld_handler): Copy PID into EMACS_INT
Eli Zaretskii <eliz@gnu.org>
parents: 74946
diff changeset
918 /* Assignment to EMACS_INT stops GCC whining about limited range of
1b003fe28dfe (Fdelete_process, Fprocess_id, sigchld_handler): Copy PID into EMACS_INT
Eli Zaretskii <eliz@gnu.org>
parents: 74946
diff changeset
919 data type. */
1b003fe28dfe (Fdelete_process, Fprocess_id, sigchld_handler): Copy PID into EMACS_INT
Eli Zaretskii <eliz@gnu.org>
parents: 74946
diff changeset
920 EMACS_INT pid;
1b003fe28dfe (Fdelete_process, Fprocess_id, sigchld_handler): Copy PID into EMACS_INT
Eli Zaretskii <eliz@gnu.org>
parents: 74946
diff changeset
921
40656
cdfd4d09b79a Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents: 40641
diff changeset
922 CHECK_PROCESS (process);
75220
1b003fe28dfe (Fdelete_process, Fprocess_id, sigchld_handler): Copy PID into EMACS_INT
Eli Zaretskii <eliz@gnu.org>
parents: 74946
diff changeset
923 pid = XPROCESS (process)->pid;
1b003fe28dfe (Fdelete_process, Fprocess_id, sigchld_handler): Copy PID into EMACS_INT
Eli Zaretskii <eliz@gnu.org>
parents: 74946
diff changeset
924 return (pid ? make_fixnum_or_float (pid) : Qnil);
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
925 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
926
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
927 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
928 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
929 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
930 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
931 (process)
14085
85ce7bab31dc (Fprocessp, Fget_buffer_process, Fdelete_process, Fprocess_status,
Erik Naggum <erik@naggum.no>
parents: 14036
diff changeset
932 register Lisp_Object process;
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
933 {
40656
cdfd4d09b79a Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents: 40641
diff changeset
934 CHECK_PROCESS (process);
14085
85ce7bab31dc (Fprocessp, Fget_buffer_process, Fdelete_process, Fprocess_status,
Erik Naggum <erik@naggum.no>
parents: 14036
diff changeset
935 return XPROCESS (process)->name;
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
936 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
937
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
938 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
939 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
940 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
941 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
942 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
943 (process)
14085
85ce7bab31dc (Fprocessp, Fget_buffer_process, Fdelete_process, Fprocess_status,
Erik Naggum <erik@naggum.no>
parents: 14036
diff changeset
944 register Lisp_Object process;
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
945 {
40656
cdfd4d09b79a Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents: 40641
diff changeset
946 CHECK_PROCESS (process);
14085
85ce7bab31dc (Fprocessp, Fget_buffer_process, Fdelete_process, Fprocess_status,
Erik Naggum <erik@naggum.no>
parents: 14036
diff changeset
947 return XPROCESS (process)->command;
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
948 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
949
9030
b14532c71632 (exec_sentinel_error_handler): New function.
Richard M. Stallman <rms@gnu.org>
parents: 8570
diff changeset
950 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
951 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
952 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
953 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
954 (process)
14085
85ce7bab31dc (Fprocessp, Fget_buffer_process, Fdelete_process, Fprocess_status,
Erik Naggum <erik@naggum.no>
parents: 14036
diff changeset
955 register Lisp_Object process;
9030
b14532c71632 (exec_sentinel_error_handler): New function.
Richard M. Stallman <rms@gnu.org>
parents: 8570
diff changeset
956 {
40656
cdfd4d09b79a Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents: 40641
diff changeset
957 CHECK_PROCESS (process);
14085
85ce7bab31dc (Fprocessp, Fget_buffer_process, Fdelete_process, Fprocess_status,
Erik Naggum <erik@naggum.no>
parents: 14036
diff changeset
958 return XPROCESS (process)->tty_name;
9030
b14532c71632 (exec_sentinel_error_handler): New function.
Richard M. Stallman <rms@gnu.org>
parents: 8570
diff changeset
959 }
b14532c71632 (exec_sentinel_error_handler): New function.
Richard M. Stallman <rms@gnu.org>
parents: 8570
diff changeset
960
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
961 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
962 2, 2, 0,
6b389fb978bc Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
963 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
964 (process, buffer)
14085
85ce7bab31dc (Fprocessp, Fget_buffer_process, Fdelete_process, Fprocess_status,
Erik Naggum <erik@naggum.no>
parents: 14036
diff changeset
965 register Lisp_Object process, buffer;
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
966 {
43968
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
967 struct Lisp_Process *p;
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
968
40656
cdfd4d09b79a Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents: 40641
diff changeset
969 CHECK_PROCESS (process);
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
970 if (!NILP (buffer))
40656
cdfd4d09b79a Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents: 40641
diff changeset
971 CHECK_BUFFER (buffer);
43968
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
972 p = XPROCESS (process);
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
973 p->buffer = buffer;
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
974 if (NETCONN1_P (p))
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
975 p->childp = Fplist_put (p->childp, QCbuffer, buffer);
49667
cbec1327e2f1 (QCfilter_multibyte): New variable.
Kenichi Handa <handa@m17n.org>
parents: 49600
diff changeset
976 setup_process_coding_systems (process);
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
977 return buffer;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
978 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
979
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
980 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
981 1, 1, 0,
6b389fb978bc Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
982 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
983 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
984 (process)
14085
85ce7bab31dc (Fprocessp, Fget_buffer_process, Fdelete_process, Fprocess_status,
Erik Naggum <erik@naggum.no>
parents: 14036
diff changeset
985 register Lisp_Object process;
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
986 {
40656
cdfd4d09b79a Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents: 40641
diff changeset
987 CHECK_PROCESS (process);
14085
85ce7bab31dc (Fprocessp, Fget_buffer_process, Fdelete_process, Fprocess_status,
Erik Naggum <erik@naggum.no>
parents: 14036
diff changeset
988 return XPROCESS (process)->buffer;
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
989 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
990
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
991 DEFUN ("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
992 1, 1, 0,
6b389fb978bc Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
993 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
994 (process)
14085
85ce7bab31dc (Fprocessp, Fget_buffer_process, Fdelete_process, Fprocess_status,
Erik Naggum <erik@naggum.no>
parents: 14036
diff changeset
995 register Lisp_Object process;
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
996 {
40656
cdfd4d09b79a Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents: 40641
diff changeset
997 CHECK_PROCESS (process);
14085
85ce7bab31dc (Fprocessp, Fget_buffer_process, Fdelete_process, Fprocess_status,
Erik Naggum <erik@naggum.no>
parents: 14036
diff changeset
998 return XPROCESS (process)->mark;
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
999 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1000
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1001 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
1002 2, 2, 0,
6b389fb978bc Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
1003 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
1004 t means stop accepting output from the process.
49281
f9e4999d3025 (set-process-filter): Document unibyte/multibyte-ness of string argument.
Kim F. Storm <storm@cua.dk>
parents: 49229
diff changeset
1005
f9e4999d3025 (set-process-filter): Document unibyte/multibyte-ness of string argument.
Kim F. Storm <storm@cua.dk>
parents: 49229
diff changeset
1006 When a process has a filter, its buffer is not used for output.
f9e4999d3025 (set-process-filter): Document unibyte/multibyte-ness of string argument.
Kim F. Storm <storm@cua.dk>
parents: 49229
diff changeset
1007 Instead, each time it does output, the entire string of output is
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 49281
diff changeset
1008 passed to the filter.
49281
f9e4999d3025 (set-process-filter): Document unibyte/multibyte-ness of string argument.
Kim F. Storm <storm@cua.dk>
parents: 49229
diff changeset
1009
40103
6b389fb978bc Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
1010 The filter gets two arguments: the process and the string of output.
49281
f9e4999d3025 (set-process-filter): Document unibyte/multibyte-ness of string argument.
Kim F. Storm <storm@cua.dk>
parents: 49229
diff changeset
1011 The string argument is normally a multibyte string, except:
f9e4999d3025 (set-process-filter): Document unibyte/multibyte-ness of string argument.
Kim F. Storm <storm@cua.dk>
parents: 49229
diff changeset
1012 - if the process' input coding system is no-conversion or raw-text,
f9e4999d3025 (set-process-filter): Document unibyte/multibyte-ness of string argument.
Kim F. Storm <storm@cua.dk>
parents: 49229
diff changeset
1013 it is a unibyte string (the non-converted input), or else
f9e4999d3025 (set-process-filter): Document unibyte/multibyte-ness of string argument.
Kim F. Storm <storm@cua.dk>
parents: 49229
diff changeset
1014 - if `default-enable-multibyte-characters' is nil, it is a unibyte
f9e4999d3025 (set-process-filter): Document unibyte/multibyte-ness of string argument.
Kim F. Storm <storm@cua.dk>
parents: 49229
diff changeset
1015 string (the result of converting the decoded input multibyte
f9e4999d3025 (set-process-filter): Document unibyte/multibyte-ness of string argument.
Kim F. Storm <storm@cua.dk>
parents: 49229
diff changeset
1016 string to unibyte with `string-make-unibyte'). */)
40103
6b389fb978bc Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
1017 (process, filter)
14085
85ce7bab31dc (Fprocessp, Fget_buffer_process, Fdelete_process, Fprocess_status,
Erik Naggum <erik@naggum.no>
parents: 14036
diff changeset
1018 register Lisp_Object process, filter;
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1019 {
36623
9fde2182c68a (Fset_process_filter): Don't crash if the input
Gerd Moellmann <gerd@gnu.org>
parents: 36434
diff changeset
1020 struct Lisp_Process *p;
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 49281
diff changeset
1021
40656
cdfd4d09b79a Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents: 40641
diff changeset
1022 CHECK_PROCESS (process);
36623
9fde2182c68a (Fset_process_filter): Don't crash if the input
Gerd Moellmann <gerd@gnu.org>
parents: 36434
diff changeset
1023 p = XPROCESS (process);
9fde2182c68a (Fset_process_filter): Don't crash if the input
Gerd Moellmann <gerd@gnu.org>
parents: 36434
diff changeset
1024
9fde2182c68a (Fset_process_filter): Don't crash if the input
Gerd Moellmann <gerd@gnu.org>
parents: 36434
diff changeset
1025 /* 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
1026 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
1027 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
1028
9fde2182c68a (Fset_process_filter): Don't crash if the input
Gerd Moellmann <gerd@gnu.org>
parents: 36434
diff changeset
1029 (setq process (start-process ...))
9fde2182c68a (Fset_process_filter): Don't crash if the input
Gerd Moellmann <gerd@gnu.org>
parents: 36434
diff changeset
1030 (debug)
9fde2182c68a (Fset_process_filter): Don't crash if the input
Gerd Moellmann <gerd@gnu.org>
parents: 36434
diff changeset
1031 (set-process-filter process ...) */
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 49281
diff changeset
1032
81826
077a1e6fd3f2 (struct Lisp_Process): Turn slots infd, outfd, kill_without_query, pty_flag,
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 80984
diff changeset
1033 if (p->infd >= 0)
9686
cd788aa8cb2a Handle multiple keyboard input descriptors.
Richard M. Stallman <rms@gnu.org>
parents: 9334
diff changeset
1034 {
43968
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
1035 if (EQ (filter, Qt) && !EQ (p->status, Qlisten))
36623
9fde2182c68a (Fset_process_filter): Don't crash if the input
Gerd Moellmann <gerd@gnu.org>
parents: 36434
diff changeset
1036 {
81826
077a1e6fd3f2 (struct Lisp_Process): Turn slots infd, outfd, kill_without_query, pty_flag,
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 80984
diff changeset
1037 FD_CLR (p->infd, &input_wait_mask);
077a1e6fd3f2 (struct Lisp_Process): Turn slots infd, outfd, kill_without_query, pty_flag,
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 80984
diff changeset
1038 FD_CLR (p->infd, &non_keyboard_wait_mask);
36623
9fde2182c68a (Fset_process_filter): Don't crash if the input
Gerd Moellmann <gerd@gnu.org>
parents: 36434
diff changeset
1039 }
43968
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
1040 else if (EQ (p->filter, Qt)
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
1041 && !EQ (p->command, Qt)) /* Network process not stopped. */
36623
9fde2182c68a (Fset_process_filter): Don't crash if the input
Gerd Moellmann <gerd@gnu.org>
parents: 36434
diff changeset
1042 {
81826
077a1e6fd3f2 (struct Lisp_Process): Turn slots infd, outfd, kill_without_query, pty_flag,
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 80984
diff changeset
1043 FD_SET (p->infd, &input_wait_mask);
077a1e6fd3f2 (struct Lisp_Process): Turn slots infd, outfd, kill_without_query, pty_flag,
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 80984
diff changeset
1044 FD_SET (p->infd, &non_keyboard_wait_mask);
36623
9fde2182c68a (Fset_process_filter): Don't crash if the input
Gerd Moellmann <gerd@gnu.org>
parents: 36434
diff changeset
1045 }
9686
cd788aa8cb2a Handle multiple keyboard input descriptors.
Richard M. Stallman <rms@gnu.org>
parents: 9334
diff changeset
1046 }
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 49281
diff changeset
1047
36623
9fde2182c68a (Fset_process_filter): Don't crash if the input
Gerd Moellmann <gerd@gnu.org>
parents: 36434
diff changeset
1048 p->filter = filter;
43968
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
1049 if (NETCONN1_P (p))
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
1050 p->childp = Fplist_put (p->childp, QCfilter, filter);
49667
cbec1327e2f1 (QCfilter_multibyte): New variable.
Kenichi Handa <handa@m17n.org>
parents: 49600
diff changeset
1051 setup_process_coding_systems (process);
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1052 return filter;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1053 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1054
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1055 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
1056 1, 1, 0,
6b389fb978bc Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
1057 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
1058 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
1059 (process)
14085
85ce7bab31dc (Fprocessp, Fget_buffer_process, Fdelete_process, Fprocess_status,
Erik Naggum <erik@naggum.no>
parents: 14036
diff changeset
1060 register Lisp_Object process;
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1061 {
40656
cdfd4d09b79a Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents: 40641
diff changeset
1062 CHECK_PROCESS (process);
14085
85ce7bab31dc (Fprocessp, Fget_buffer_process, Fdelete_process, Fprocess_status,
Erik Naggum <erik@naggum.no>
parents: 14036
diff changeset
1063 return XPROCESS (process)->filter;
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
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1066 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
1067 2, 2, 0,
6b389fb978bc Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
1068 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
1069 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
1070 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
1071 (process, sentinel)
14085
85ce7bab31dc (Fprocessp, Fget_buffer_process, Fdelete_process, Fprocess_status,
Erik Naggum <erik@naggum.no>
parents: 14036
diff changeset
1072 register Lisp_Object process, sentinel;
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1073 {
52516
0ca23eb697b9 (Fset_process_sentinel): Add sentinel to childp plist
Kim F. Storm <storm@cua.dk>
parents: 52503
diff changeset
1074 struct Lisp_Process *p;
0ca23eb697b9 (Fset_process_sentinel): Add sentinel to childp plist
Kim F. Storm <storm@cua.dk>
parents: 52503
diff changeset
1075
40656
cdfd4d09b79a Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents: 40641
diff changeset
1076 CHECK_PROCESS (process);
52516
0ca23eb697b9 (Fset_process_sentinel): Add sentinel to childp plist
Kim F. Storm <storm@cua.dk>
parents: 52503
diff changeset
1077 p = XPROCESS (process);
0ca23eb697b9 (Fset_process_sentinel): Add sentinel to childp plist
Kim F. Storm <storm@cua.dk>
parents: 52503
diff changeset
1078
0ca23eb697b9 (Fset_process_sentinel): Add sentinel to childp plist
Kim F. Storm <storm@cua.dk>
parents: 52503
diff changeset
1079 p->sentinel = sentinel;
0ca23eb697b9 (Fset_process_sentinel): Add sentinel to childp plist
Kim F. Storm <storm@cua.dk>
parents: 52503
diff changeset
1080 if (NETCONN1_P (p))
0ca23eb697b9 (Fset_process_sentinel): Add sentinel to childp plist
Kim F. Storm <storm@cua.dk>
parents: 52503
diff changeset
1081 p->childp = Fplist_put (p->childp, QCsentinel, sentinel);
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1082 return sentinel;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1083 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1084
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1085 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
1086 1, 1, 0,
6b389fb978bc Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
1087 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
1088 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
1089 (process)
14085
85ce7bab31dc (Fprocessp, Fget_buffer_process, Fdelete_process, Fprocess_status,
Erik Naggum <erik@naggum.no>
parents: 14036
diff changeset
1090 register Lisp_Object process;
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1091 {
40656
cdfd4d09b79a Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents: 40641
diff changeset
1092 CHECK_PROCESS (process);
14085
85ce7bab31dc (Fprocessp, Fget_buffer_process, Fdelete_process, Fprocess_status,
Erik Naggum <erik@naggum.no>
parents: 14036
diff changeset
1093 return XPROCESS (process)->sentinel;
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1094 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1095
6830
bcaddbe53068 (Fset_process_window_size): New function.
Richard M. Stallman <rms@gnu.org>
parents: 6823
diff changeset
1096 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
1097 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
1098 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
1099 (process, height, width)
14085
85ce7bab31dc (Fprocessp, Fget_buffer_process, Fdelete_process, Fprocess_status,
Erik Naggum <erik@naggum.no>
parents: 14036
diff changeset
1100 register Lisp_Object process, height, width;
6830
bcaddbe53068 (Fset_process_window_size): New function.
Richard M. Stallman <rms@gnu.org>
parents: 6823
diff changeset
1101 {
40656
cdfd4d09b79a Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents: 40641
diff changeset
1102 CHECK_PROCESS (process);
cdfd4d09b79a Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents: 40641
diff changeset
1103 CHECK_NATNUM (height);
cdfd4d09b79a Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents: 40641
diff changeset
1104 CHECK_NATNUM (width);
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 49281
diff changeset
1105
81826
077a1e6fd3f2 (struct Lisp_Process): Turn slots infd, outfd, kill_without_query, pty_flag,
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 80984
diff changeset
1106 if (XPROCESS (process)->infd < 0
077a1e6fd3f2 (struct Lisp_Process): Turn slots infd, outfd, kill_without_query, pty_flag,
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 80984
diff changeset
1107 || set_window_size (XPROCESS (process)->infd,
36623
9fde2182c68a (Fset_process_filter): Don't crash if the input
Gerd Moellmann <gerd@gnu.org>
parents: 36434
diff changeset
1108 XINT (height), XINT (width)) <= 0)
6830
bcaddbe53068 (Fset_process_window_size): New function.
Richard M. Stallman <rms@gnu.org>
parents: 6823
diff changeset
1109 return Qnil;
bcaddbe53068 (Fset_process_window_size): New function.
Richard M. Stallman <rms@gnu.org>
parents: 6823
diff changeset
1110 else
bcaddbe53068 (Fset_process_window_size): New function.
Richard M. Stallman <rms@gnu.org>
parents: 6823
diff changeset
1111 return Qt;
bcaddbe53068 (Fset_process_window_size): New function.
Richard M. Stallman <rms@gnu.org>
parents: 6823
diff changeset
1112 }
bcaddbe53068 (Fset_process_window_size): New function.
Richard M. Stallman <rms@gnu.org>
parents: 6823
diff changeset
1113
21656
bb39a5863a82 (Fset_process_inherit_coding_system_flag,
Eli Zaretskii <eliz@gnu.org>
parents: 21530
diff changeset
1114 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
1115 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
1116 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
1117 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
1118 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
1119 `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
1120 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
1121 the process output.
6b389fb978bc Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
1122
6b389fb978bc Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
1123 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
1124 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
1125 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
1126 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
1127
6b389fb978bc Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
1128 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
1129 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
1130 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
1131 (process, flag)
21656
bb39a5863a82 (Fset_process_inherit_coding_system_flag,
Eli Zaretskii <eliz@gnu.org>
parents: 21530
diff changeset
1132 register Lisp_Object process, flag;
bb39a5863a82 (Fset_process_inherit_coding_system_flag,
Eli Zaretskii <eliz@gnu.org>
parents: 21530
diff changeset
1133 {
40656
cdfd4d09b79a Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents: 40641
diff changeset
1134 CHECK_PROCESS (process);
81826
077a1e6fd3f2 (struct Lisp_Process): Turn slots infd, outfd, kill_without_query, pty_flag,
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 80984
diff changeset
1135 XPROCESS (process)->inherit_coding_system_flag = !NILP (flag);
21656
bb39a5863a82 (Fset_process_inherit_coding_system_flag,
Eli Zaretskii <eliz@gnu.org>
parents: 21530
diff changeset
1136 return flag;
bb39a5863a82 (Fset_process_inherit_coding_system_flag,
Eli Zaretskii <eliz@gnu.org>
parents: 21530
diff changeset
1137 }
bb39a5863a82 (Fset_process_inherit_coding_system_flag,
Eli Zaretskii <eliz@gnu.org>
parents: 21530
diff changeset
1138
bb39a5863a82 (Fset_process_inherit_coding_system_flag,
Eli Zaretskii <eliz@gnu.org>
parents: 21530
diff changeset
1139 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
1140 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
1141 1, 1, 0,
6b389fb978bc Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
1142 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
1143 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
1144 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
1145 the process output. */)
6b389fb978bc Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
1146 (process)
21656
bb39a5863a82 (Fset_process_inherit_coding_system_flag,
Eli Zaretskii <eliz@gnu.org>
parents: 21530
diff changeset
1147 register Lisp_Object process;
bb39a5863a82 (Fset_process_inherit_coding_system_flag,
Eli Zaretskii <eliz@gnu.org>
parents: 21530
diff changeset
1148 {
40656
cdfd4d09b79a Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents: 40641
diff changeset
1149 CHECK_PROCESS (process);
81826
077a1e6fd3f2 (struct Lisp_Process): Turn slots infd, outfd, kill_without_query, pty_flag,
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 80984
diff changeset
1150 return XPROCESS (process)->inherit_coding_system_flag ? Qt : Qnil;
21656
bb39a5863a82 (Fset_process_inherit_coding_system_flag,
Eli Zaretskii <eliz@gnu.org>
parents: 21530
diff changeset
1151 }
bb39a5863a82 (Fset_process_inherit_coding_system_flag,
Eli Zaretskii <eliz@gnu.org>
parents: 21530
diff changeset
1152
43968
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
1153 DEFUN ("set-process-query-on-exit-flag",
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
1154 Fset_process_query_on_exit_flag, Sset_process_query_on_exit_flag,
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
1155 2, 2, 0,
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
1156 doc: /* Specify if query is needed for PROCESS when Emacs is exited.
55444
976d03256b41 (Fwaiting_for_user_input_p, Fmake_network_process)
Juanma Barranquero <lekktu@gmail.com>
parents: 53835
diff changeset
1157 If the second argument FLAG is non-nil, Emacs will query the user before
43968
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
1158 exiting if PROCESS is running. */)
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
1159 (process, flag)
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
1160 register Lisp_Object process, flag;
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1161 {
40656
cdfd4d09b79a Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents: 40641
diff changeset
1162 CHECK_PROCESS (process);
81826
077a1e6fd3f2 (struct Lisp_Process): Turn slots infd, outfd, kill_without_query, pty_flag,
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 80984
diff changeset
1163 XPROCESS (process)->kill_without_query = NILP (flag);
43968
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
1164 return flag;
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1165 }
4231
91a883c56382 (Fget_buffer_process): Delete doc string from
Richard M. Stallman <rms@gnu.org>
parents: 4057
diff changeset
1166
43968
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
1167 DEFUN ("process-query-on-exit-flag",
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
1168 Fprocess_query_on_exit_flag, Sprocess_query_on_exit_flag,
40103
6b389fb978bc Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
1169 1, 1, 0,
55444
976d03256b41 (Fwaiting_for_user_input_p, Fmake_network_process)
Juanma Barranquero <lekktu@gmail.com>
parents: 53835
diff changeset
1170 doc: /* Return the current value of query-on-exit flag for PROCESS. */)
40103
6b389fb978bc Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
1171 (process)
16058
924aeb9ed7c3 (Fprocess_contact): New function.
Richard M. Stallman <rms@gnu.org>
parents: 16053
diff changeset
1172 register Lisp_Object process;
924aeb9ed7c3 (Fprocess_contact): New function.
Richard M. Stallman <rms@gnu.org>
parents: 16053
diff changeset
1173 {
40656
cdfd4d09b79a Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents: 40641
diff changeset
1174 CHECK_PROCESS (process);
81826
077a1e6fd3f2 (struct Lisp_Process): Turn slots infd, outfd, kill_without_query, pty_flag,
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 80984
diff changeset
1175 return (XPROCESS (process)->kill_without_query ? Qnil : Qt);
43968
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
1176 }
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
1177
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
1178 #ifdef DATAGRAM_SOCKETS
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
1179 Lisp_Object Fprocess_datagram_address ();
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
1180 #endif
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
1181
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
1182 DEFUN ("process-contact", Fprocess_contact, Sprocess_contact,
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
1183 1, 2, 0,
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
1184 doc: /* Return the contact info of PROCESS; t for a real child.
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
1185 For a net connection, the value depends on the optional KEY arg.
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
1186 If KEY is nil, value is a cons cell of the form (HOST SERVICE),
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
1187 if KEY is t, the complete contact information for the connection is
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
1188 returned, else the specific value for the keyword KEY is returned.
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
1189 See `make-network-process' for a list of keywords. */)
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
1190 (process, key)
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
1191 register Lisp_Object process, key;
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
1192 {
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
1193 Lisp_Object contact;
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
1194
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
1195 CHECK_PROCESS (process);
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
1196 contact = XPROCESS (process)->childp;
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
1197
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
1198 #ifdef DATAGRAM_SOCKETS
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
1199 if (DATAGRAM_CONN_P (process)
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
1200 && (EQ (key, Qt) || EQ (key, QCremote)))
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 49281
diff changeset
1201 contact = Fplist_put (contact, QCremote,
43968
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
1202 Fprocess_datagram_address (process));
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
1203 #endif
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
1204
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
1205 if (!NETCONN_P (process) || EQ (key, Qt))
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
1206 return contact;
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
1207 if (NILP (key))
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
1208 return Fcons (Fplist_get (contact, QChost),
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
1209 Fcons (Fplist_get (contact, QCservice), Qnil));
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
1210 return Fplist_get (contact, key);
16058
924aeb9ed7c3 (Fprocess_contact): New function.
Richard M. Stallman <rms@gnu.org>
parents: 16053
diff changeset
1211 }
924aeb9ed7c3 (Fprocess_contact): New function.
Richard M. Stallman <rms@gnu.org>
parents: 16053
diff changeset
1212
49223
26622fa0d099 Reworked 2003-01-12 change -- call a plist a plist!
Kim F. Storm <storm@cua.dk>
parents: 49164
diff changeset
1213 DEFUN ("process-plist", Fprocess_plist, Sprocess_plist,
26622fa0d099 Reworked 2003-01-12 change -- call a plist a plist!
Kim F. Storm <storm@cua.dk>
parents: 49164
diff changeset
1214 1, 1, 0,
26622fa0d099 Reworked 2003-01-12 change -- call a plist a plist!
Kim F. Storm <storm@cua.dk>
parents: 49164
diff changeset
1215 doc: /* Return the plist of PROCESS. */)
26622fa0d099 Reworked 2003-01-12 change -- call a plist a plist!
Kim F. Storm <storm@cua.dk>
parents: 49164
diff changeset
1216 (process)
26622fa0d099 Reworked 2003-01-12 change -- call a plist a plist!
Kim F. Storm <storm@cua.dk>
parents: 49164
diff changeset
1217 register Lisp_Object process;
49164
8bee0ccd5fd6 (QCvars): New variable.
Kim F. Storm <storm@cua.dk>
parents: 49142
diff changeset
1218 {
8bee0ccd5fd6 (QCvars): New variable.
Kim F. Storm <storm@cua.dk>
parents: 49142
diff changeset
1219 CHECK_PROCESS (process);
49223
26622fa0d099 Reworked 2003-01-12 change -- call a plist a plist!
Kim F. Storm <storm@cua.dk>
parents: 49164
diff changeset
1220 return XPROCESS (process)->plist;
49164
8bee0ccd5fd6 (QCvars): New variable.
Kim F. Storm <storm@cua.dk>
parents: 49142
diff changeset
1221 }
8bee0ccd5fd6 (QCvars): New variable.
Kim F. Storm <storm@cua.dk>
parents: 49142
diff changeset
1222
49223
26622fa0d099 Reworked 2003-01-12 change -- call a plist a plist!
Kim F. Storm <storm@cua.dk>
parents: 49164
diff changeset
1223 DEFUN ("set-process-plist", Fset_process_plist, Sset_process_plist,
26622fa0d099 Reworked 2003-01-12 change -- call a plist a plist!
Kim F. Storm <storm@cua.dk>
parents: 49164
diff changeset
1224 2, 2, 0,
49229
a3af03912e6f (Fset_process_plist): Fixed return value.
Kim F. Storm <storm@cua.dk>
parents: 49223
diff changeset
1225 doc: /* Replace the plist of PROCESS with PLIST. Returns PLIST. */)
49223
26622fa0d099 Reworked 2003-01-12 change -- call a plist a plist!
Kim F. Storm <storm@cua.dk>
parents: 49164
diff changeset
1226 (process, plist)
26622fa0d099 Reworked 2003-01-12 change -- call a plist a plist!
Kim F. Storm <storm@cua.dk>
parents: 49164
diff changeset
1227 register Lisp_Object process, plist;
49142
8dca38bc0261 (Fset_process_contact): New function.
Kim F. Storm <storm@cua.dk>
parents: 49119
diff changeset
1228 {
8dca38bc0261 (Fset_process_contact): New function.
Kim F. Storm <storm@cua.dk>
parents: 49119
diff changeset
1229 CHECK_PROCESS (process);
49223
26622fa0d099 Reworked 2003-01-12 change -- call a plist a plist!
Kim F. Storm <storm@cua.dk>
parents: 49164
diff changeset
1230 CHECK_LIST (plist);
26622fa0d099 Reworked 2003-01-12 change -- call a plist a plist!
Kim F. Storm <storm@cua.dk>
parents: 49164
diff changeset
1231
26622fa0d099 Reworked 2003-01-12 change -- call a plist a plist!
Kim F. Storm <storm@cua.dk>
parents: 49164
diff changeset
1232 XPROCESS (process)->plist = plist;
49229
a3af03912e6f (Fset_process_plist): Fixed return value.
Kim F. Storm <storm@cua.dk>
parents: 49223
diff changeset
1233 return plist;
49142
8dca38bc0261 (Fset_process_contact): New function.
Kim F. Storm <storm@cua.dk>
parents: 49119
diff changeset
1234 }
8dca38bc0261 (Fset_process_contact): New function.
Kim F. Storm <storm@cua.dk>
parents: 49119
diff changeset
1235
4231
91a883c56382 (Fget_buffer_process): Delete doc string from
Richard M. Stallman <rms@gnu.org>
parents: 4057
diff changeset
1236 #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
1237 in the process. Perhaps add it. */
91a883c56382 (Fget_buffer_process): Delete doc string from
Richard M. Stallman <rms@gnu.org>
parents: 4057
diff changeset
1238 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
1239 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
1240 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
1241 a socket connection. */)
6b389fb978bc Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
1242 (process)
4231
91a883c56382 (Fget_buffer_process): Delete doc string from
Richard M. Stallman <rms@gnu.org>
parents: 4057
diff changeset
1243 Lisp_Object process;
91a883c56382 (Fget_buffer_process): Delete doc string from
Richard M. Stallman <rms@gnu.org>
parents: 4057
diff changeset
1244 {
91a883c56382 (Fget_buffer_process): Delete doc string from
Richard M. Stallman <rms@gnu.org>
parents: 4057
diff changeset
1245 return XPROCESS (process)->type;
91a883c56382 (Fget_buffer_process): Delete doc string from
Richard M. Stallman <rms@gnu.org>
parents: 4057
diff changeset
1246 }
91a883c56382 (Fget_buffer_process): Delete doc string from
Richard M. Stallman <rms@gnu.org>
parents: 4057
diff changeset
1247 #endif
47987
b30942bd85f3 (Fformat_network_address): New function.
Kim F. Storm <storm@cua.dk>
parents: 47542
diff changeset
1248
b30942bd85f3 (Fformat_network_address): New function.
Kim F. Storm <storm@cua.dk>
parents: 47542
diff changeset
1249 #ifdef HAVE_SOCKETS
b30942bd85f3 (Fformat_network_address): New function.
Kim F. Storm <storm@cua.dk>
parents: 47542
diff changeset
1250 DEFUN ("format-network-address", Fformat_network_address, Sformat_network_address,
49114
c87af62cc6b4 (format-network-address): Added optional OMIT-PORT arg. Callers changed.
Kim F. Storm <storm@cua.dk>
parents: 49111
diff changeset
1251 1, 2, 0,
47987
b30942bd85f3 (Fformat_network_address): New function.
Kim F. Storm <storm@cua.dk>
parents: 47542
diff changeset
1252 doc: /* Convert network ADDRESS from internal format to a string.
68008
10f0a09ec82e Add IPv6 support.
Kim F. Storm <storm@cua.dk>
parents: 67920
diff changeset
1253 A 4 or 5 element vector represents an IPv4 address (with port number).
10f0a09ec82e Add IPv6 support.
Kim F. Storm <storm@cua.dk>
parents: 67920
diff changeset
1254 An 8 or 9 element vector represents an IPv6 address (with port number).
49114
c87af62cc6b4 (format-network-address): Added optional OMIT-PORT arg. Callers changed.
Kim F. Storm <storm@cua.dk>
parents: 49111
diff changeset
1255 If optional second argument OMIT-PORT is non-nil, don't include a port
68008
10f0a09ec82e Add IPv6 support.
Kim F. Storm <storm@cua.dk>
parents: 67920
diff changeset
1256 number in the string, even when present in ADDRESS.
10f0a09ec82e Add IPv6 support.
Kim F. Storm <storm@cua.dk>
parents: 67920
diff changeset
1257 Returns nil if format of ADDRESS is invalid. */)
49114
c87af62cc6b4 (format-network-address): Added optional OMIT-PORT arg. Callers changed.
Kim F. Storm <storm@cua.dk>
parents: 49111
diff changeset
1258 (address, omit_port)
c87af62cc6b4 (format-network-address): Added optional OMIT-PORT arg. Callers changed.
Kim F. Storm <storm@cua.dk>
parents: 49111
diff changeset
1259 Lisp_Object address, omit_port;
47987
b30942bd85f3 (Fformat_network_address): New function.
Kim F. Storm <storm@cua.dk>
parents: 47542
diff changeset
1260 {
b30942bd85f3 (Fformat_network_address): New function.
Kim F. Storm <storm@cua.dk>
parents: 47542
diff changeset
1261 if (NILP (address))
b30942bd85f3 (Fformat_network_address): New function.
Kim F. Storm <storm@cua.dk>
parents: 47542
diff changeset
1262 return Qnil;
b30942bd85f3 (Fformat_network_address): New function.
Kim F. Storm <storm@cua.dk>
parents: 47542
diff changeset
1263
b30942bd85f3 (Fformat_network_address): New function.
Kim F. Storm <storm@cua.dk>
parents: 47542
diff changeset
1264 if (STRINGP (address)) /* AF_LOCAL */
b30942bd85f3 (Fformat_network_address): New function.
Kim F. Storm <storm@cua.dk>
parents: 47542
diff changeset
1265 return address;
b30942bd85f3 (Fformat_network_address): New function.
Kim F. Storm <storm@cua.dk>
parents: 47542
diff changeset
1266
68008
10f0a09ec82e Add IPv6 support.
Kim F. Storm <storm@cua.dk>
parents: 67920
diff changeset
1267 if (VECTORP (address)) /* AF_INET or AF_INET6 */
47987
b30942bd85f3 (Fformat_network_address): New function.
Kim F. Storm <storm@cua.dk>
parents: 47542
diff changeset
1268 {
b30942bd85f3 (Fformat_network_address): New function.
Kim F. Storm <storm@cua.dk>
parents: 47542
diff changeset
1269 register struct Lisp_Vector *p = XVECTOR (address);
76760
c21bd0559ef9 (Fformat_network_address): Make room in args array to format IPv6 addresses.
Juanma Barranquero <lekktu@gmail.com>
parents: 76738
diff changeset
1270 Lisp_Object args[10];
49114
c87af62cc6b4 (format-network-address): Added optional OMIT-PORT arg. Callers changed.
Kim F. Storm <storm@cua.dk>
parents: 49111
diff changeset
1271 int nargs, i;
c87af62cc6b4 (format-network-address): Added optional OMIT-PORT arg. Callers changed.
Kim F. Storm <storm@cua.dk>
parents: 49111
diff changeset
1272
68008
10f0a09ec82e Add IPv6 support.
Kim F. Storm <storm@cua.dk>
parents: 67920
diff changeset
1273 if (p->size == 4 || (p->size == 5 && !NILP (omit_port)))
49114
c87af62cc6b4 (format-network-address): Added optional OMIT-PORT arg. Callers changed.
Kim F. Storm <storm@cua.dk>
parents: 49111
diff changeset
1274 {
c87af62cc6b4 (format-network-address): Added optional OMIT-PORT arg. Callers changed.
Kim F. Storm <storm@cua.dk>
parents: 49111
diff changeset
1275 args[0] = build_string ("%d.%d.%d.%d");
c87af62cc6b4 (format-network-address): Added optional OMIT-PORT arg. Callers changed.
Kim F. Storm <storm@cua.dk>
parents: 49111
diff changeset
1276 nargs = 4;
c87af62cc6b4 (format-network-address): Added optional OMIT-PORT arg. Callers changed.
Kim F. Storm <storm@cua.dk>
parents: 49111
diff changeset
1277 }
c87af62cc6b4 (format-network-address): Added optional OMIT-PORT arg. Callers changed.
Kim F. Storm <storm@cua.dk>
parents: 49111
diff changeset
1278 else if (p->size == 5)
c87af62cc6b4 (format-network-address): Added optional OMIT-PORT arg. Callers changed.
Kim F. Storm <storm@cua.dk>
parents: 49111
diff changeset
1279 {
c87af62cc6b4 (format-network-address): Added optional OMIT-PORT arg. Callers changed.
Kim F. Storm <storm@cua.dk>
parents: 49111
diff changeset
1280 args[0] = build_string ("%d.%d.%d.%d:%d");
c87af62cc6b4 (format-network-address): Added optional OMIT-PORT arg. Callers changed.
Kim F. Storm <storm@cua.dk>
parents: 49111
diff changeset
1281 nargs = 5;
c87af62cc6b4 (format-network-address): Added optional OMIT-PORT arg. Callers changed.
Kim F. Storm <storm@cua.dk>
parents: 49111
diff changeset
1282 }
68008
10f0a09ec82e Add IPv6 support.
Kim F. Storm <storm@cua.dk>
parents: 67920
diff changeset
1283 else if (p->size == 8 || (p->size == 9 && !NILP (omit_port)))
10f0a09ec82e Add IPv6 support.
Kim F. Storm <storm@cua.dk>
parents: 67920
diff changeset
1284 {
10f0a09ec82e Add IPv6 support.
Kim F. Storm <storm@cua.dk>
parents: 67920
diff changeset
1285 args[0] = build_string ("%x:%x:%x:%x:%x:%x:%x:%x");
10f0a09ec82e Add IPv6 support.
Kim F. Storm <storm@cua.dk>
parents: 67920
diff changeset
1286 nargs = 8;
10f0a09ec82e Add IPv6 support.
Kim F. Storm <storm@cua.dk>
parents: 67920
diff changeset
1287 }
10f0a09ec82e Add IPv6 support.
Kim F. Storm <storm@cua.dk>
parents: 67920
diff changeset
1288 else if (p->size == 9)
10f0a09ec82e Add IPv6 support.
Kim F. Storm <storm@cua.dk>
parents: 67920
diff changeset
1289 {
10f0a09ec82e Add IPv6 support.
Kim F. Storm <storm@cua.dk>
parents: 67920
diff changeset
1290 args[0] = build_string ("[%x:%x:%x:%x:%x:%x:%x:%x]:%d");
10f0a09ec82e Add IPv6 support.
Kim F. Storm <storm@cua.dk>
parents: 67920
diff changeset
1291 nargs = 9;
10f0a09ec82e Add IPv6 support.
Kim F. Storm <storm@cua.dk>
parents: 67920
diff changeset
1292 }
49114
c87af62cc6b4 (format-network-address): Added optional OMIT-PORT arg. Callers changed.
Kim F. Storm <storm@cua.dk>
parents: 49111
diff changeset
1293 else
47987
b30942bd85f3 (Fformat_network_address): New function.
Kim F. Storm <storm@cua.dk>
parents: 47542
diff changeset
1294 return Qnil;
b30942bd85f3 (Fformat_network_address): New function.
Kim F. Storm <storm@cua.dk>
parents: 47542
diff changeset
1295
49114
c87af62cc6b4 (format-network-address): Added optional OMIT-PORT arg. Callers changed.
Kim F. Storm <storm@cua.dk>
parents: 49111
diff changeset
1296 for (i = 0; i < nargs; i++)
76789
e3f8914e3f5e (Fformat_network_address): Return nil when the
Juanma Barranquero <lekktu@gmail.com>
parents: 76760
diff changeset
1297 {
e3f8914e3f5e (Fformat_network_address): Return nil when the
Juanma Barranquero <lekktu@gmail.com>
parents: 76760
diff changeset
1298 EMACS_INT element = XINT (p->contents[i]);
e3f8914e3f5e (Fformat_network_address): Return nil when the
Juanma Barranquero <lekktu@gmail.com>
parents: 76760
diff changeset
1299
e3f8914e3f5e (Fformat_network_address): Return nil when the
Juanma Barranquero <lekktu@gmail.com>
parents: 76760
diff changeset
1300 if (element < 0 || element > 65535)
e3f8914e3f5e (Fformat_network_address): Return nil when the
Juanma Barranquero <lekktu@gmail.com>
parents: 76760
diff changeset
1301 return Qnil;
e3f8914e3f5e (Fformat_network_address): Return nil when the
Juanma Barranquero <lekktu@gmail.com>
parents: 76760
diff changeset
1302
e3f8914e3f5e (Fformat_network_address): Return nil when the
Juanma Barranquero <lekktu@gmail.com>
parents: 76760
diff changeset
1303 if (nargs <= 5 /* IPv4 */
e3f8914e3f5e (Fformat_network_address): Return nil when the
Juanma Barranquero <lekktu@gmail.com>
parents: 76760
diff changeset
1304 && i < 4 /* host, not port */
e3f8914e3f5e (Fformat_network_address): Return nil when the
Juanma Barranquero <lekktu@gmail.com>
parents: 76760
diff changeset
1305 && element > 255)
e3f8914e3f5e (Fformat_network_address): Return nil when the
Juanma Barranquero <lekktu@gmail.com>
parents: 76760
diff changeset
1306 return Qnil;
e3f8914e3f5e (Fformat_network_address): Return nil when the
Juanma Barranquero <lekktu@gmail.com>
parents: 76760
diff changeset
1307
e3f8914e3f5e (Fformat_network_address): Return nil when the
Juanma Barranquero <lekktu@gmail.com>
parents: 76760
diff changeset
1308 args[i+1] = p->contents[i];
e3f8914e3f5e (Fformat_network_address): Return nil when the
Juanma Barranquero <lekktu@gmail.com>
parents: 76760
diff changeset
1309 }
e3f8914e3f5e (Fformat_network_address): Return nil when the
Juanma Barranquero <lekktu@gmail.com>
parents: 76760
diff changeset
1310
49114
c87af62cc6b4 (format-network-address): Added optional OMIT-PORT arg. Callers changed.
Kim F. Storm <storm@cua.dk>
parents: 49111
diff changeset
1311 return Fformat (nargs+1, args);
47987
b30942bd85f3 (Fformat_network_address): New function.
Kim F. Storm <storm@cua.dk>
parents: 47542
diff changeset
1312 }
b30942bd85f3 (Fformat_network_address): New function.
Kim F. Storm <storm@cua.dk>
parents: 47542
diff changeset
1313
b30942bd85f3 (Fformat_network_address): New function.
Kim F. Storm <storm@cua.dk>
parents: 47542
diff changeset
1314 if (CONSP (address))
b30942bd85f3 (Fformat_network_address): New function.
Kim F. Storm <storm@cua.dk>
parents: 47542
diff changeset
1315 {
b30942bd85f3 (Fformat_network_address): New function.
Kim F. Storm <storm@cua.dk>
parents: 47542
diff changeset
1316 Lisp_Object args[2];
b30942bd85f3 (Fformat_network_address): New function.
Kim F. Storm <storm@cua.dk>
parents: 47542
diff changeset
1317 args[0] = build_string ("<Family %d>");
48097
21d7f2c18976 (Fformat_network_address): Fix int/Lisp_Object mixup.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 48088
diff changeset
1318 args[1] = Fcar (address);
47987
b30942bd85f3 (Fformat_network_address): New function.
Kim F. Storm <storm@cua.dk>
parents: 47542
diff changeset
1319 return Fformat (2, args);
b30942bd85f3 (Fformat_network_address): New function.
Kim F. Storm <storm@cua.dk>
parents: 47542
diff changeset
1320 }
b30942bd85f3 (Fformat_network_address): New function.
Kim F. Storm <storm@cua.dk>
parents: 47542
diff changeset
1321
b30942bd85f3 (Fformat_network_address): New function.
Kim F. Storm <storm@cua.dk>
parents: 47542
diff changeset
1322 return Qnil;
b30942bd85f3 (Fformat_network_address): New function.
Kim F. Storm <storm@cua.dk>
parents: 47542
diff changeset
1323 }
b30942bd85f3 (Fformat_network_address): New function.
Kim F. Storm <storm@cua.dk>
parents: 47542
diff changeset
1324 #endif
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1325
64977
d26871fb1b7b (deactivate_process, status_notify, read_process_output)
Kim F. Storm <storm@cua.dk>
parents: 64770
diff changeset
1326 static Lisp_Object
43968
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
1327 list_processes_1 (query_only)
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
1328 Lisp_Object query_only;
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1329 {
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1330 register Lisp_Object tail, tem;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1331 Lisp_Object proc, minspace, tem1;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1332 register struct Lisp_Process *p;
43968
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
1333 char tembuf[300];
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
1334 int w_proc, w_buffer, w_tty;
73225
ff880e40efba (list_processes_1): Run sentinels before removing dead
Kim F. Storm <storm@cua.dk>
parents: 72727
diff changeset
1335 int exited = 0;
43968
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
1336 Lisp_Object i_status, i_buffer, i_tty, i_command;
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
1337
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
1338 w_proc = 4; /* Proc */
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
1339 w_buffer = 6; /* Buffer */
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
1340 w_tty = 0; /* Omit if no ttys */
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
1341
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
1342 for (tail = Vprocess_alist; !NILP (tail); tail = Fcdr (tail))
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
1343 {
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
1344 int i;
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
1345
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
1346 proc = Fcdr (Fcar (tail));
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
1347 p = XPROCESS (proc);
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
1348 if (NILP (p->childp))
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
1349 continue;
81826
077a1e6fd3f2 (struct Lisp_Process): Turn slots infd, outfd, kill_without_query, pty_flag,
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 80984
diff changeset
1350 if (!NILP (query_only) && p->kill_without_query)
43968
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
1351 continue;
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
1352 if (STRINGP (p->name)
46370
40db0673e6f0 Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents: 46314
diff changeset
1353 && ( i = SCHARS (p->name), (i > w_proc)))
43968
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
1354 w_proc = i;
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
1355 if (!NILP (p->buffer))
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
1356 {
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
1357 if (NILP (XBUFFER (p->buffer)->name) && w_buffer < 8)
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
1358 w_buffer = 8; /* (Killed) */
46370
40db0673e6f0 Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents: 46314
diff changeset
1359 else if ((i = SCHARS (XBUFFER (p->buffer)->name), (i > w_buffer)))
43968
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
1360 w_buffer = i;
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
1361 }
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
1362 if (STRINGP (p->tty_name)
46370
40db0673e6f0 Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents: 46314
diff changeset
1363 && (i = SCHARS (p->tty_name), (i > w_tty)))
43968
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
1364 w_tty = i;
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
1365 }
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
1366
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
1367 XSETFASTINT (i_status, w_proc + 1);
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
1368 XSETFASTINT (i_buffer, XFASTINT (i_status) + 9);
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
1369 if (w_tty)
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
1370 {
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
1371 XSETFASTINT (i_tty, XFASTINT (i_buffer) + w_buffer + 1);
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
1372 XSETFASTINT (i_command, XFASTINT (i_buffer) + w_tty + 1);
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
1373 } else {
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
1374 i_tty = Qnil;
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
1375 XSETFASTINT (i_command, XFASTINT (i_buffer) + w_buffer + 1);
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
1376 }
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1377
9318
a14cc1712337 (make_process, list_processes_1, create_process, Faccept_process_output,
Karl Heuer <kwzh@gnu.org>
parents: 9277
diff changeset
1378 XSETFASTINT (minspace, 1);
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1379
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1380 set_buffer_internal (XBUFFER (Vstandard_output));
59113
8cf8b4fa2543 (list_processes_1): Set undo_list instead of calling Fbuffer_undo_list.
Richard M. Stallman <rms@gnu.org>
parents: 58986
diff changeset
1381 current_buffer->undo_list = Qt;
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1382
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1383 current_buffer->truncate_lines = Qt;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1384
43968
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
1385 write_string ("Proc", -1);
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
1386 Findent_to (i_status, minspace); write_string ("Status", -1);
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
1387 Findent_to (i_buffer, minspace); write_string ("Buffer", -1);
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
1388 if (!NILP (i_tty))
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
1389 {
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
1390 Findent_to (i_tty, minspace); write_string ("Tty", -1);
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
1391 }
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
1392 Findent_to (i_command, minspace); write_string ("Command", -1);
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
1393 write_string ("\n", -1);
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
1394
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
1395 write_string ("----", -1);
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
1396 Findent_to (i_status, minspace); write_string ("------", -1);
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
1397 Findent_to (i_buffer, minspace); write_string ("------", -1);
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
1398 if (!NILP (i_tty))
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
1399 {
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
1400 Findent_to (i_tty, minspace); write_string ("---", -1);
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
1401 }
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
1402 Findent_to (i_command, minspace); write_string ("-------", -1);
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
1403 write_string ("\n", -1);
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1404
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1405 for (tail = Vprocess_alist; !NILP (tail); tail = Fcdr (tail))
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1406 {
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1407 Lisp_Object symbol;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1408
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1409 proc = Fcdr (Fcar (tail));
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1410 p = XPROCESS (proc);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1411 if (NILP (p->childp))
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1412 continue;
81826
077a1e6fd3f2 (struct Lisp_Process): Turn slots infd, outfd, kill_without_query, pty_flag,
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 80984
diff changeset
1413 if (!NILP (query_only) && p->kill_without_query)
43968
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
1414 continue;
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1415
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1416 Finsert (1, &p->name);
43968
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
1417 Findent_to (i_status, minspace);
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1418
69873
2d844bbbccd4 * process.h (struct Lisp_Process): Replace Lisp_Objects `pid',
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 69634
diff changeset
1419 if (p->raw_status_new)
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1420 update_status (p);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1421 symbol = p->status;
9115
59bc2d010b5f (decode_status, Fprocessp, Fget_process, Fget_buffer_process, Fprocess_status,
Karl Heuer <kwzh@gnu.org>
parents: 9034
diff changeset
1422 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
1423 symbol = XCAR (p->status);
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1424
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1425 if (EQ (symbol, Qsignal))
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1426 {
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1427 Lisp_Object tem;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1428 tem = Fcar (Fcdr (p->status));
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1429 #ifdef VMS
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1430 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
1431 write_string (sys_errlist [XINT (tem)], -1);
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1432 else
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 Fprinc (symbol, Qnil);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1435 }
43968
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
1436 else if (NETCONN1_P (p))
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1437 {
43968
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
1438 if (EQ (symbol, Qexit))
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
1439 write_string ("closed", -1);
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
1440 else if (EQ (p->command, Qt))
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
1441 write_string ("stopped", -1);
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
1442 else if (EQ (symbol, Qrun))
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1443 write_string ("open", -1);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1444 else
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1445 Fprinc (symbol, Qnil);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1446 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1447 else
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1448 Fprinc (symbol, Qnil);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1449
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1450 if (EQ (symbol, Qexit))
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1451 {
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1452 Lisp_Object tem;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1453 tem = Fcar (Fcdr (p->status));
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1454 if (XFASTINT (tem))
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1455 {
11695
0f9b9c375416 (list_processes_1): Cast XFASTINT for passing to sprintf.
Richard M. Stallman <rms@gnu.org>
parents: 11609
diff changeset
1456 sprintf (tembuf, " %d", (int) XFASTINT (tem));
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1457 write_string (tembuf, -1);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1458 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1459 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1460
73225
ff880e40efba (list_processes_1): Run sentinels before removing dead
Kim F. Storm <storm@cua.dk>
parents: 72727
diff changeset
1461 if (EQ (symbol, Qsignal) || EQ (symbol, Qexit) || EQ (symbol, Qclosed))
ff880e40efba (list_processes_1): Run sentinels before removing dead
Kim F. Storm <storm@cua.dk>
parents: 72727
diff changeset
1462 exited++;
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1463
43968
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
1464 Findent_to (i_buffer, minspace);
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1465 if (NILP (p->buffer))
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1466 insert_string ("(none)");
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1467 else if (NILP (XBUFFER (p->buffer)->name))
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1468 insert_string ("(Killed)");
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1469 else
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1470 Finsert (1, &XBUFFER (p->buffer)->name);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1471
43968
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
1472 if (!NILP (i_tty))
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
1473 {
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
1474 Findent_to (i_tty, minspace);
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
1475 if (STRINGP (p->tty_name))
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
1476 Finsert (1, &p->tty_name);
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
1477 }
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
1478
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
1479 Findent_to (i_command, minspace);
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
1480
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
1481 if (EQ (p->status, Qlisten))
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
1482 {
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
1483 Lisp_Object port = Fplist_get (p->childp, QCservice);
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
1484 if (INTEGERP (port))
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
1485 port = Fnumber_to_string (port);
47987
b30942bd85f3 (Fformat_network_address): New function.
Kim F. Storm <storm@cua.dk>
parents: 47542
diff changeset
1486 if (NILP (port))
49114
c87af62cc6b4 (format-network-address): Added optional OMIT-PORT arg. Callers changed.
Kim F. Storm <storm@cua.dk>
parents: 49111
diff changeset
1487 port = Fformat_network_address (Fplist_get (p->childp, QClocal), Qnil);
43968
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
1488 sprintf (tembuf, "(network %s server on %s)\n",
81826
077a1e6fd3f2 (struct Lisp_Process): Turn slots infd, outfd, kill_without_query, pty_flag,
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 80984
diff changeset
1489 (DATAGRAM_CHAN_P (p->infd) ? "datagram" : "stream"),
47987
b30942bd85f3 (Fformat_network_address): New function.
Kim F. Storm <storm@cua.dk>
parents: 47542
diff changeset
1490 (STRINGP (port) ? (char *)SDATA (port) : "?"));
43968
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
1491 insert_string (tembuf);
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
1492 }
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
1493 else if (NETCONN1_P (p))
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1494 {
43968
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
1495 /* For a local socket, there is no host name,
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
1496 so display service instead. */
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
1497 Lisp_Object host = Fplist_get (p->childp, QChost);
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
1498 if (!STRINGP (host))
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
1499 {
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
1500 host = Fplist_get (p->childp, QCservice);
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
1501 if (INTEGERP (host))
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
1502 host = Fnumber_to_string (host);
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
1503 }
47987
b30942bd85f3 (Fformat_network_address): New function.
Kim F. Storm <storm@cua.dk>
parents: 47542
diff changeset
1504 if (NILP (host))
49114
c87af62cc6b4 (format-network-address): Added optional OMIT-PORT arg. Callers changed.
Kim F. Storm <storm@cua.dk>
parents: 49111
diff changeset
1505 host = Fformat_network_address (Fplist_get (p->childp, QCremote), Qnil);
43968
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
1506 sprintf (tembuf, "(network %s connection to %s)\n",
81826
077a1e6fd3f2 (struct Lisp_Process): Turn slots infd, outfd, kill_without_query, pty_flag,
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 80984
diff changeset
1507 (DATAGRAM_CHAN_P (p->infd) ? "datagram" : "stream"),
47987
b30942bd85f3 (Fformat_network_address): New function.
Kim F. Storm <storm@cua.dk>
parents: 47542
diff changeset
1508 (STRINGP (host) ? (char *)SDATA (host) : "?"));
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1509 insert_string (tembuf);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1510 }
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 49281
diff changeset
1511 else
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1512 {
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1513 tem = p->command;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1514 while (1)
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1515 {
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1516 tem1 = Fcar (tem);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1517 Finsert (1, &tem1);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1518 tem = Fcdr (tem);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1519 if (NILP (tem))
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1520 break;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1521 insert_string (" ");
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1522 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1523 insert_string ("\n");
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1524 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1525 }
73225
ff880e40efba (list_processes_1): Run sentinels before removing dead
Kim F. Storm <storm@cua.dk>
parents: 72727
diff changeset
1526 if (exited)
ff880e40efba (list_processes_1): Run sentinels before removing dead
Kim F. Storm <storm@cua.dk>
parents: 72727
diff changeset
1527 status_notify (NULL);
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1528 return Qnil;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1529 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1530
43968
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
1531 DEFUN ("list-processes", Flist_processes, Slist_processes, 0, 1, "P",
40103
6b389fb978bc Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
1532 doc: /* Display a list of all processes.
43968
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
1533 If optional argument QUERY-ONLY is non-nil, only processes with
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
1534 the query-on-exit flag set will be listed.
40103
6b389fb978bc Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
1535 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
1536 after the listing is made. */)
43968
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
1537 (query_only)
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
1538 Lisp_Object query_only;
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1539 {
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1540 internal_with_output_to_temp_buffer ("*Process List*",
43968
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
1541 list_processes_1, query_only);
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1542 return Qnil;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1543 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1544
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1545 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
1546 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
1547 ()
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1548 {
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1549 return Fmapcar (Qcdr, Vprocess_alist);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1550 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1551
1594
b476a97ad17e * systty.h, process.c, buffer.h, callproc.c, sysdep.c, dired.c:
Jim Blandy <jimb@redhat.com>
parents: 1569
diff changeset
1552 /* 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
1553
b476a97ad17e * systty.h, process.c, buffer.h, callproc.c, sysdep.c, dired.c:
Jim Blandy <jimb@redhat.com>
parents: 1569
diff changeset
1554 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
1555
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1556 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
1557 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
1558 NAME is name for process. It is modified if necessary to make it unique.
55504
05e8ea84c376 (Fstart_process): Fix docstring.
Juanma Barranquero <lekktu@gmail.com>
parents: 55444
diff changeset
1559 BUFFER is the buffer (or buffer name) to associate with the process.
77440
e9b4790481bc (Fstart_process): Doc fix.
Eli Zaretskii <eliz@gnu.org>
parents: 76794
diff changeset
1560
e9b4790481bc (Fstart_process): Doc fix.
Eli Zaretskii <eliz@gnu.org>
parents: 76794
diff changeset
1561 Process output (both standard output and standard error streams) goes
e9b4790481bc (Fstart_process): Doc fix.
Eli Zaretskii <eliz@gnu.org>
parents: 76794
diff changeset
1562 at end of BUFFER, unless you specify an output stream or filter
e9b4790481bc (Fstart_process): Doc fix.
Eli Zaretskii <eliz@gnu.org>
parents: 76794
diff changeset
1563 function to handle the output. BUFFER may also be nil, meaning that
77462
4f679f6070a0 (Fstart_process): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 77440
diff changeset
1564 this process is not associated with any buffer.
4f679f6070a0 (Fstart_process): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 77440
diff changeset
1565
4f679f6070a0 (Fstart_process): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 77440
diff changeset
1566 PROGRAM is the program file name. It is searched for in PATH.
4f679f6070a0 (Fstart_process): Doc fix.
Richard M. Stallman <rms@gnu.org>
parents: 77440
diff changeset
1567 Remaining arguments are strings to give program as arguments.
77440
e9b4790481bc (Fstart_process): Doc fix.
Eli Zaretskii <eliz@gnu.org>
parents: 76794
diff changeset
1568
e9b4790481bc (Fstart_process): Doc fix.
Eli Zaretskii <eliz@gnu.org>
parents: 76794
diff changeset
1569 If you want to separate standard output from standard error, invoke
e9b4790481bc (Fstart_process): Doc fix.
Eli Zaretskii <eliz@gnu.org>
parents: 76794
diff changeset
1570 the command through a shell and redirect one of them using the shell
e9b4790481bc (Fstart_process): Doc fix.
Eli Zaretskii <eliz@gnu.org>
parents: 76794
diff changeset
1571 syntax.
44170
888d736c0e91 (set-network-process-options): Add usage.
Pavel Janík <Pavel@Janik.cz>
parents: 44073
diff changeset
1572
40641
d94fc1022312 (Fstart_process): Add usage to doc-string.
Pavel Janík <Pavel@Janik.cz>
parents: 40231
diff changeset
1573 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
1574 (nargs, args)
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1575 int nargs;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1576 register Lisp_Object *args;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1577 {
1683
a0a41de51400 Give subprocess creation a way to find a valid current directory
Jim Blandy <jimb@redhat.com>
parents: 1655
diff changeset
1578 Lisp_Object buffer, name, program, proc, current_dir, tem;
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1579 #ifdef VMS
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1580 register unsigned char *new_argv;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1581 int len;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1582 #else
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1583 register unsigned char **new_argv;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1584 #endif
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1585 register int i;
46293
1fb8f75062c6 Use macro SPECPDL_INDEX.
Juanma Barranquero <lekktu@gmail.com>
parents: 45410
diff changeset
1586 int count = SPECPDL_INDEX ();
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1587
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1588 buffer = args[1];
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1589 if (!NILP (buffer))
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1590 buffer = Fget_buffer_create (buffer);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1591
1683
a0a41de51400 Give subprocess creation a way to find a valid current directory
Jim Blandy <jimb@redhat.com>
parents: 1655
diff changeset
1592 /* 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
1593 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
1594 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
1595 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
1596
a0a41de51400 Give subprocess creation a way to find a valid current directory
Jim Blandy <jimb@redhat.com>
parents: 1655
diff changeset
1597 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
1598 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
1599 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
1600 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
1601 {
a0a41de51400 Give subprocess creation a way to find a valid current directory
Jim Blandy <jimb@redhat.com>
parents: 1655
diff changeset
1602 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
1603
a0a41de51400 Give subprocess creation a way to find a valid current directory
Jim Blandy <jimb@redhat.com>
parents: 1655
diff changeset
1604 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
1605
a0a41de51400 Give subprocess creation a way to find a valid current directory
Jim Blandy <jimb@redhat.com>
parents: 1655
diff changeset
1606 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
1607
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 49281
diff changeset
1608 current_dir
10744
54a76e0b97ec (Fstart_process): Make process marker point into proc buf.
Richard M. Stallman <rms@gnu.org>
parents: 10548
diff changeset
1609 = 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
1610 Qnil);
1683
a0a41de51400 Give subprocess creation a way to find a valid current directory
Jim Blandy <jimb@redhat.com>
parents: 1655
diff changeset
1611 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
1612 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
1613 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
1614
a0a41de51400 Give subprocess creation a way to find a valid current directory
Jim Blandy <jimb@redhat.com>
parents: 1655
diff changeset
1615 UNGCPRO;
a0a41de51400 Give subprocess creation a way to find a valid current directory
Jim Blandy <jimb@redhat.com>
parents: 1655
diff changeset
1616 }
a0a41de51400 Give subprocess creation a way to find a valid current directory
Jim Blandy <jimb@redhat.com>
parents: 1655
diff changeset
1617
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1618 name = args[0];
40656
cdfd4d09b79a Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents: 40641
diff changeset
1619 CHECK_STRING (name);
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1620
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1621 program = args[2];
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1622
40656
cdfd4d09b79a Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents: 40641
diff changeset
1623 CHECK_STRING (program);
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1624
29017
8f10362eb5ff (Fstart_process): GCPRO current_dir before calling
Kenichi Handa <handa@m17n.org>
parents: 28157
diff changeset
1625 proc = make_process (name);
8f10362eb5ff (Fstart_process): GCPRO current_dir before calling
Kenichi Handa <handa@m17n.org>
parents: 28157
diff changeset
1626 /* 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
1627 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
1628 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
1629 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
1630 record_unwind_protect (start_process_unwind, proc);
8f10362eb5ff (Fstart_process): GCPRO current_dir before calling
Kenichi Handa <handa@m17n.org>
parents: 28157
diff changeset
1631
8f10362eb5ff (Fstart_process): GCPRO current_dir before calling
Kenichi Handa <handa@m17n.org>
parents: 28157
diff changeset
1632 XPROCESS (proc)->childp = Qt;
49223
26622fa0d099 Reworked 2003-01-12 change -- call a plist a plist!
Kim F. Storm <storm@cua.dk>
parents: 49164
diff changeset
1633 XPROCESS (proc)->plist = Qnil;
29017
8f10362eb5ff (Fstart_process): GCPRO current_dir before calling
Kenichi Handa <handa@m17n.org>
parents: 28157
diff changeset
1634 XPROCESS (proc)->buffer = buffer;
8f10362eb5ff (Fstart_process): GCPRO current_dir before calling
Kenichi Handa <handa@m17n.org>
parents: 28157
diff changeset
1635 XPROCESS (proc)->sentinel = Qnil;
8f10362eb5ff (Fstart_process): GCPRO current_dir before calling
Kenichi Handa <handa@m17n.org>
parents: 28157
diff changeset
1636 XPROCESS (proc)->filter = Qnil;
49667
cbec1327e2f1 (QCfilter_multibyte): New variable.
Kenichi Handa <handa@m17n.org>
parents: 49600
diff changeset
1637 XPROCESS (proc)->filter_multibyte
81826
077a1e6fd3f2 (struct Lisp_Process): Turn slots infd, outfd, kill_without_query, pty_flag,
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 80984
diff changeset
1638 = !NILP (buffer_defaults.enable_multibyte_characters);
29017
8f10362eb5ff (Fstart_process): GCPRO current_dir before calling
Kenichi Handa <handa@m17n.org>
parents: 28157
diff changeset
1639 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
1640
53472
1a5fe79d27f3 (ADAPTIVE_READ_BUFFERING): New conditional.
Kim F. Storm <storm@cua.dk>
parents: 53072
diff changeset
1641 #ifdef ADAPTIVE_READ_BUFFERING
81826
077a1e6fd3f2 (struct Lisp_Process): Turn slots infd, outfd, kill_without_query, pty_flag,
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 80984
diff changeset
1642 XPROCESS (proc)->adaptive_read_buffering
077a1e6fd3f2 (struct Lisp_Process): Turn slots infd, outfd, kill_without_query, pty_flag,
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 80984
diff changeset
1643 = (NILP (Vprocess_adaptive_read_buffering) ? 0
077a1e6fd3f2 (struct Lisp_Process): Turn slots infd, outfd, kill_without_query, pty_flag,
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 80984
diff changeset
1644 : EQ (Vprocess_adaptive_read_buffering, Qt) ? 1 : 2);
53472
1a5fe79d27f3 (ADAPTIVE_READ_BUFFERING): New conditional.
Kim F. Storm <storm@cua.dk>
parents: 53072
diff changeset
1645 #endif
1a5fe79d27f3 (ADAPTIVE_READ_BUFFERING): New conditional.
Kim F. Storm <storm@cua.dk>
parents: 53072
diff changeset
1646
29017
8f10362eb5ff (Fstart_process): GCPRO current_dir before calling
Kenichi Handa <handa@m17n.org>
parents: 28157
diff changeset
1647 /* Make the process marker point into the process buffer (if any). */
69151
08c9c1760e1c (Fmake_network_process): Init the process's mark.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 68651
diff changeset
1648 if (BUFFERP (buffer))
29017
8f10362eb5ff (Fstart_process): GCPRO current_dir before calling
Kenichi Handa <handa@m17n.org>
parents: 28157
diff changeset
1649 set_marker_both (XPROCESS (proc)->mark, buffer,
8f10362eb5ff (Fstart_process): GCPRO current_dir before calling
Kenichi Handa <handa@m17n.org>
parents: 28157
diff changeset
1650 BUF_ZV (XBUFFER (buffer)),
8f10362eb5ff (Fstart_process): GCPRO current_dir before calling
Kenichi Handa <handa@m17n.org>
parents: 28157
diff changeset
1651 BUF_ZV_BYTE (XBUFFER (buffer)));
8f10362eb5ff (Fstart_process): GCPRO current_dir before calling
Kenichi Handa <handa@m17n.org>
parents: 28157
diff changeset
1652
8f10362eb5ff (Fstart_process): GCPRO current_dir before calling
Kenichi Handa <handa@m17n.org>
parents: 28157
diff changeset
1653 {
8f10362eb5ff (Fstart_process): GCPRO current_dir before calling
Kenichi Handa <handa@m17n.org>
parents: 28157
diff changeset
1654 /* 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
1655 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
1656 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
1657
8f10362eb5ff (Fstart_process): GCPRO current_dir before calling
Kenichi Handa <handa@m17n.org>
parents: 28157
diff changeset
1658 /* 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
1659 Lisp_Object coding_systems = Qt;
8f10362eb5ff (Fstart_process): GCPRO current_dir before calling
Kenichi Handa <handa@m17n.org>
parents: 28157
diff changeset
1660 Lisp_Object val, *args2;
8f10362eb5ff (Fstart_process): GCPRO current_dir before calling
Kenichi Handa <handa@m17n.org>
parents: 28157
diff changeset
1661 struct gcpro gcpro1, gcpro2;
8f10362eb5ff (Fstart_process): GCPRO current_dir before calling
Kenichi Handa <handa@m17n.org>
parents: 28157
diff changeset
1662
8f10362eb5ff (Fstart_process): GCPRO current_dir before calling
Kenichi Handa <handa@m17n.org>
parents: 28157
diff changeset
1663 val = Vcoding_system_for_read;
8f10362eb5ff (Fstart_process): GCPRO current_dir before calling
Kenichi Handa <handa@m17n.org>
parents: 28157
diff changeset
1664 if (NILP (val))
8f10362eb5ff (Fstart_process): GCPRO current_dir before calling
Kenichi Handa <handa@m17n.org>
parents: 28157
diff changeset
1665 {
8f10362eb5ff (Fstart_process): GCPRO current_dir before calling
Kenichi Handa <handa@m17n.org>
parents: 28157
diff changeset
1666 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
1667 args2[0] = Qstart_process;
8f10362eb5ff (Fstart_process): GCPRO current_dir before calling
Kenichi Handa <handa@m17n.org>
parents: 28157
diff changeset
1668 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
1669 GCPRO2 (proc, current_dir);
8f10362eb5ff (Fstart_process): GCPRO current_dir before calling
Kenichi Handa <handa@m17n.org>
parents: 28157
diff changeset
1670 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
1671 UNGCPRO;
8f10362eb5ff (Fstart_process): GCPRO current_dir before calling
Kenichi Handa <handa@m17n.org>
parents: 28157
diff changeset
1672 if (CONSP (coding_systems))
8f10362eb5ff (Fstart_process): GCPRO current_dir before calling
Kenichi Handa <handa@m17n.org>
parents: 28157
diff changeset
1673 val = XCAR (coding_systems);
8f10362eb5ff (Fstart_process): GCPRO current_dir before calling
Kenichi Handa <handa@m17n.org>
parents: 28157
diff changeset
1674 else if (CONSP (Vdefault_process_coding_system))
8f10362eb5ff (Fstart_process): GCPRO current_dir before calling
Kenichi Handa <handa@m17n.org>
parents: 28157
diff changeset
1675 val = XCAR (Vdefault_process_coding_system);
8f10362eb5ff (Fstart_process): GCPRO current_dir before calling
Kenichi Handa <handa@m17n.org>
parents: 28157
diff changeset
1676 }
8f10362eb5ff (Fstart_process): GCPRO current_dir before calling
Kenichi Handa <handa@m17n.org>
parents: 28157
diff changeset
1677 XPROCESS (proc)->decode_coding_system = val;
8f10362eb5ff (Fstart_process): GCPRO current_dir before calling
Kenichi Handa <handa@m17n.org>
parents: 28157
diff changeset
1678
8f10362eb5ff (Fstart_process): GCPRO current_dir before calling
Kenichi Handa <handa@m17n.org>
parents: 28157
diff changeset
1679 val = Vcoding_system_for_write;
8f10362eb5ff (Fstart_process): GCPRO current_dir before calling
Kenichi Handa <handa@m17n.org>
parents: 28157
diff changeset
1680 if (NILP (val))
8f10362eb5ff (Fstart_process): GCPRO current_dir before calling
Kenichi Handa <handa@m17n.org>
parents: 28157
diff changeset
1681 {
8f10362eb5ff (Fstart_process): GCPRO current_dir before calling
Kenichi Handa <handa@m17n.org>
parents: 28157
diff changeset
1682 if (EQ (coding_systems, Qt))
8f10362eb5ff (Fstart_process): GCPRO current_dir before calling
Kenichi Handa <handa@m17n.org>
parents: 28157
diff changeset
1683 {
8f10362eb5ff (Fstart_process): GCPRO current_dir before calling
Kenichi Handa <handa@m17n.org>
parents: 28157
diff changeset
1684 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
1685 args2[0] = Qstart_process;
8f10362eb5ff (Fstart_process): GCPRO current_dir before calling
Kenichi Handa <handa@m17n.org>
parents: 28157
diff changeset
1686 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
1687 GCPRO2 (proc, current_dir);
8f10362eb5ff (Fstart_process): GCPRO current_dir before calling
Kenichi Handa <handa@m17n.org>
parents: 28157
diff changeset
1688 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
1689 UNGCPRO;
8f10362eb5ff (Fstart_process): GCPRO current_dir before calling
Kenichi Handa <handa@m17n.org>
parents: 28157
diff changeset
1690 }
8f10362eb5ff (Fstart_process): GCPRO current_dir before calling
Kenichi Handa <handa@m17n.org>
parents: 28157
diff changeset
1691 if (CONSP (coding_systems))
8f10362eb5ff (Fstart_process): GCPRO current_dir before calling
Kenichi Handa <handa@m17n.org>
parents: 28157
diff changeset
1692 val = XCDR (coding_systems);
8f10362eb5ff (Fstart_process): GCPRO current_dir before calling
Kenichi Handa <handa@m17n.org>
parents: 28157
diff changeset
1693 else if (CONSP (Vdefault_process_coding_system))
8f10362eb5ff (Fstart_process): GCPRO current_dir before calling
Kenichi Handa <handa@m17n.org>
parents: 28157
diff changeset
1694 val = XCDR (Vdefault_process_coding_system);
8f10362eb5ff (Fstart_process): GCPRO current_dir before calling
Kenichi Handa <handa@m17n.org>
parents: 28157
diff changeset
1695 }
8f10362eb5ff (Fstart_process): GCPRO current_dir before calling
Kenichi Handa <handa@m17n.org>
parents: 28157
diff changeset
1696 XPROCESS (proc)->encode_coding_system = val;
8f10362eb5ff (Fstart_process): GCPRO current_dir before calling
Kenichi Handa <handa@m17n.org>
parents: 28157
diff changeset
1697 }
8f10362eb5ff (Fstart_process): GCPRO current_dir before calling
Kenichi Handa <handa@m17n.org>
parents: 28157
diff changeset
1698
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1699 #ifdef VMS
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1700 /* Make a one member argv with all args concatenated
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1701 together separated by a blank. */
46370
40db0673e6f0 Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents: 46314
diff changeset
1702 len = SBYTES (program) + 2;
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1703 for (i = 3; i < nargs; i++)
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1704 {
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1705 tem = args[i];
40656
cdfd4d09b79a Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents: 40641
diff changeset
1706 CHECK_STRING (tem);
46370
40db0673e6f0 Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents: 46314
diff changeset
1707 len += SBYTES (tem) + 1; /* count the blank */
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1708 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1709 new_argv = (unsigned char *) alloca (len);
46370
40db0673e6f0 Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents: 46314
diff changeset
1710 strcpy (new_argv, SDATA (program));
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1711 for (i = 3; i < nargs; i++)
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1712 {
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1713 tem = args[i];
40656
cdfd4d09b79a Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents: 40641
diff changeset
1714 CHECK_STRING (tem);
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1715 strcat (new_argv, " ");
46370
40db0673e6f0 Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents: 46314
diff changeset
1716 strcat (new_argv, SDATA (tem));
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1717 }
1594
b476a97ad17e * systty.h, process.c, buffer.h, callproc.c, sysdep.c, dired.c:
Jim Blandy <jimb@redhat.com>
parents: 1569
diff changeset
1718 /* Need to add code here to check for program existence on VMS */
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 49281
diff changeset
1719
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1720 #else /* not VMS */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1721 new_argv = (unsigned char **) alloca ((nargs - 1) * sizeof (char *));
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1722
47020
de9a20871faa (Fstart_process): Remove /: from program name.
Richard M. Stallman <rms@gnu.org>
parents: 46431
diff changeset
1723 /* If program file name is not absolute, search our path for it.
de9a20871faa (Fstart_process): Remove /: from program name.
Richard M. Stallman <rms@gnu.org>
parents: 46431
diff changeset
1724 Put the name we will really use in TEM. */
46370
40db0673e6f0 Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents: 46314
diff changeset
1725 if (!IS_DIRECTORY_SEP (SREF (program, 0))
40db0673e6f0 Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents: 46314
diff changeset
1726 && !(SCHARS (program) > 1
40db0673e6f0 Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents: 46314
diff changeset
1727 && IS_DEVICE_SEP (SREF (program, 1))))
6390
9f8ce71435de (Fstart_process): GCPRO some things.
Karl Heuer <kwzh@gnu.org>
parents: 6345
diff changeset
1728 {
9f8ce71435de (Fstart_process): GCPRO some things.
Karl Heuer <kwzh@gnu.org>
parents: 6345
diff changeset
1729 struct gcpro gcpro1, gcpro2, gcpro3, gcpro4;
9f8ce71435de (Fstart_process): GCPRO some things.
Karl Heuer <kwzh@gnu.org>
parents: 6345
diff changeset
1730
9f8ce71435de (Fstart_process): GCPRO some things.
Karl Heuer <kwzh@gnu.org>
parents: 6345
diff changeset
1731 tem = Qnil;
9f8ce71435de (Fstart_process): GCPRO some things.
Karl Heuer <kwzh@gnu.org>
parents: 6345
diff changeset
1732 GCPRO4 (name, program, buffer, current_dir);
45005
084928cfcfcb (Fstart_process): Update call to openp.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 44890
diff changeset
1733 openp (Vexec_path, program, Vexec_suffixes, &tem, make_number (X_OK));
6390
9f8ce71435de (Fstart_process): GCPRO some things.
Karl Heuer <kwzh@gnu.org>
parents: 6345
diff changeset
1734 UNGCPRO;
9f8ce71435de (Fstart_process): GCPRO some things.
Karl Heuer <kwzh@gnu.org>
parents: 6345
diff changeset
1735 if (NILP (tem))
9f8ce71435de (Fstart_process): GCPRO some things.
Karl Heuer <kwzh@gnu.org>
parents: 6345
diff changeset
1736 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
1737 tem = Fexpand_file_name (tem, Qnil);
6390
9f8ce71435de (Fstart_process): GCPRO some things.
Karl Heuer <kwzh@gnu.org>
parents: 6345
diff changeset
1738 }
9f8ce71435de (Fstart_process): GCPRO some things.
Karl Heuer <kwzh@gnu.org>
parents: 6345
diff changeset
1739 else
12491
4ad7be34ece1 (Fstart_process): Expand PROGRAM.
Richard M. Stallman <rms@gnu.org>
parents: 12378
diff changeset
1740 {
4ad7be34ece1 (Fstart_process): Expand PROGRAM.
Richard M. Stallman <rms@gnu.org>
parents: 12378
diff changeset
1741 if (!NILP (Ffile_directory_p (program)))
4ad7be34ece1 (Fstart_process): Expand PROGRAM.
Richard M. Stallman <rms@gnu.org>
parents: 12378
diff changeset
1742 error ("Specified program for new process is a directory");
47020
de9a20871faa (Fstart_process): Remove /: from program name.
Richard M. Stallman <rms@gnu.org>
parents: 46431
diff changeset
1743 tem = program;
12491
4ad7be34ece1 (Fstart_process): Expand PROGRAM.
Richard M. Stallman <rms@gnu.org>
parents: 12378
diff changeset
1744 }
6390
9f8ce71435de (Fstart_process): GCPRO some things.
Karl Heuer <kwzh@gnu.org>
parents: 6345
diff changeset
1745
47020
de9a20871faa (Fstart_process): Remove /: from program name.
Richard M. Stallman <rms@gnu.org>
parents: 46431
diff changeset
1746 /* If program file name starts with /: for quoting a magic name,
de9a20871faa (Fstart_process): Remove /: from program name.
Richard M. Stallman <rms@gnu.org>
parents: 46431
diff changeset
1747 discard that. */
de9a20871faa (Fstart_process): Remove /: from program name.
Richard M. Stallman <rms@gnu.org>
parents: 46431
diff changeset
1748 if (SBYTES (tem) > 2 && SREF (tem, 0) == '/'
de9a20871faa (Fstart_process): Remove /: from program name.
Richard M. Stallman <rms@gnu.org>
parents: 46431
diff changeset
1749 && SREF (tem, 1) == ':')
de9a20871faa (Fstart_process): Remove /: from program name.
Richard M. Stallman <rms@gnu.org>
parents: 46431
diff changeset
1750 tem = Fsubstring (tem, make_number (2), Qnil);
de9a20871faa (Fstart_process): Remove /: from program name.
Richard M. Stallman <rms@gnu.org>
parents: 46431
diff changeset
1751
de9a20871faa (Fstart_process): Remove /: from program name.
Richard M. Stallman <rms@gnu.org>
parents: 46431
diff changeset
1752 /* Encode the file name and put it in NEW_ARGV.
de9a20871faa (Fstart_process): Remove /: from program name.
Richard M. Stallman <rms@gnu.org>
parents: 46431
diff changeset
1753 That's where the child will use it to execute the program. */
de9a20871faa (Fstart_process): Remove /: from program name.
Richard M. Stallman <rms@gnu.org>
parents: 46431
diff changeset
1754 tem = ENCODE_FILE (tem);
de9a20871faa (Fstart_process): Remove /: from program name.
Richard M. Stallman <rms@gnu.org>
parents: 46431
diff changeset
1755 new_argv[0] = SDATA (tem);
de9a20871faa (Fstart_process): Remove /: from program name.
Richard M. Stallman <rms@gnu.org>
parents: 46431
diff changeset
1756
29017
8f10362eb5ff (Fstart_process): GCPRO current_dir before calling
Kenichi Handa <handa@m17n.org>
parents: 28157
diff changeset
1757 /* 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
1758 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
1759 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
1760 process. */
8f10362eb5ff (Fstart_process): GCPRO current_dir before calling
Kenichi Handa <handa@m17n.org>
parents: 28157
diff changeset
1761
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1762 for (i = 3; i < nargs; i++)
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1763 {
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1764 tem = args[i];
40656
cdfd4d09b79a Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents: 40641
diff changeset
1765 CHECK_STRING (tem);
29017
8f10362eb5ff (Fstart_process): GCPRO current_dir before calling
Kenichi Handa <handa@m17n.org>
parents: 28157
diff changeset
1766 if (STRING_MULTIBYTE (tem))
8f10362eb5ff (Fstart_process): GCPRO current_dir before calling
Kenichi Handa <handa@m17n.org>
parents: 28157
diff changeset
1767 tem = (code_convert_string_norecord
8f10362eb5ff (Fstart_process): GCPRO current_dir before calling
Kenichi Handa <handa@m17n.org>
parents: 28157
diff changeset
1768 (tem, XPROCESS (proc)->encode_coding_system, 1));
46370
40db0673e6f0 Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents: 46314
diff changeset
1769 new_argv[i - 2] = SDATA (tem);
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1770 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1771 new_argv[i - 2] = 0;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1772 #endif /* not VMS */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1773
17041
b61cbe595be5 Include charset.h and coding.h.
Karl Heuer <kwzh@gnu.org>
parents: 16780
diff changeset
1774 XPROCESS (proc)->decoding_buf = make_uninit_string (0);
81826
077a1e6fd3f2 (struct Lisp_Process): Turn slots infd, outfd, kill_without_query, pty_flag,
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 80984
diff changeset
1775 XPROCESS (proc)->decoding_carryover = 0;
17041
b61cbe595be5 Include charset.h and coding.h.
Karl Heuer <kwzh@gnu.org>
parents: 16780
diff changeset
1776 XPROCESS (proc)->encoding_buf = make_uninit_string (0);
b61cbe595be5 Include charset.h and coding.h.
Karl Heuer <kwzh@gnu.org>
parents: 16780
diff changeset
1777
21656
bb39a5863a82 (Fset_process_inherit_coding_system_flag,
Eli Zaretskii <eliz@gnu.org>
parents: 21530
diff changeset
1778 XPROCESS (proc)->inherit_coding_system_flag
81926
50da0700fc26 (Fstart_process, Fmake_network_process, read_process_output):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 81876
diff changeset
1779 = !(NILP (buffer) || !inherit_process_coding_system);
21656
bb39a5863a82 (Fset_process_inherit_coding_system_flag,
Eli Zaretskii <eliz@gnu.org>
parents: 21530
diff changeset
1780
20382
dbad9367d232 (create_process, deactivate_process, close_process_descs):
Andreas Schwab <schwab@suse.de>
parents: 20225
diff changeset
1781 create_process (proc, (char **) new_argv, current_dir);
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1782
1594
b476a97ad17e * systty.h, process.c, buffer.h, callproc.c, sysdep.c, dired.c:
Jim Blandy <jimb@redhat.com>
parents: 1569
diff changeset
1783 return unbind_to (count, proc);
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1784 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1785
1594
b476a97ad17e * systty.h, process.c, buffer.h, callproc.c, sysdep.c, dired.c:
Jim Blandy <jimb@redhat.com>
parents: 1569
diff changeset
1786 /* This function is the unwind_protect form for Fstart_process. If
14036
621a575db6f7 Comment fixes.
Karl Heuer <kwzh@gnu.org>
parents: 13777
diff changeset
1787 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
1788 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
1789 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
1790 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
1791 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
1792 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
1793 {
9115
59bc2d010b5f (decode_status, Fprocessp, Fget_process, Fget_buffer_process, Fprocess_status,
Karl Heuer <kwzh@gnu.org>
parents: 9034
diff changeset
1794 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
1795 abort ();
b476a97ad17e * systty.h, process.c, buffer.h, callproc.c, sysdep.c, dired.c:
Jim Blandy <jimb@redhat.com>
parents: 1569
diff changeset
1796
b476a97ad17e * systty.h, process.c, buffer.h, callproc.c, sysdep.c, dired.c:
Jim Blandy <jimb@redhat.com>
parents: 1569
diff changeset
1797 /* Was PROC started successfully? */
69873
2d844bbbccd4 * process.h (struct Lisp_Process): Replace Lisp_Objects `pid',
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 69634
diff changeset
1798 if (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
1799 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
1800
b476a97ad17e * systty.h, process.c, buffer.h, callproc.c, sysdep.c, dired.c:
Jim Blandy <jimb@redhat.com>
parents: 1569
diff changeset
1801 return Qnil;
b476a97ad17e * systty.h, process.c, buffer.h, callproc.c, sysdep.c, dired.c:
Jim Blandy <jimb@redhat.com>
parents: 1569
diff changeset
1802 }
b476a97ad17e * systty.h, process.c, buffer.h, callproc.c, sysdep.c, dired.c:
Jim Blandy <jimb@redhat.com>
parents: 1569
diff changeset
1803
64977
d26871fb1b7b (deactivate_process, status_notify, read_process_output)
Kim F. Storm <storm@cua.dk>
parents: 64770
diff changeset
1804 static void
27430
1aa71680fe50 (toplevel): Include atimer.h.
Gerd Moellmann <gerd@gnu.org>
parents: 27028
diff changeset
1805 create_process_1 (timer)
1aa71680fe50 (toplevel): Include atimer.h.
Gerd Moellmann <gerd@gnu.org>
parents: 27028
diff changeset
1806 struct atimer *timer;
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1807 {
27430
1aa71680fe50 (toplevel): Include atimer.h.
Gerd Moellmann <gerd@gnu.org>
parents: 27028
diff changeset
1808 /* Nothing to do. */
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1809 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1810
27430
1aa71680fe50 (toplevel): Include atimer.h.
Gerd Moellmann <gerd@gnu.org>
parents: 27028
diff changeset
1811
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1812 #if 0 /* This doesn't work; see the note before sigchld_handler. */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1813 #ifdef USG
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1814 #ifdef SIGCHLD
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1815 /* Mimic blocking of signals on system V, which doesn't really have it. */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1816
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1817 /* Nonzero means we got a SIGCHLD when it was supposed to be blocked. */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1818 int sigchld_deferred;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1819
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1820 SIGTYPE
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1821 create_process_sigchld ()
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1822 {
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1823 signal (SIGCHLD, create_process_sigchld);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1824
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1825 sigchld_deferred = 1;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1826 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1827 #endif
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1828 #endif
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1829 #endif
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1830
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1831 #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
1832 void
1683
a0a41de51400 Give subprocess creation a way to find a valid current directory
Jim Blandy <jimb@redhat.com>
parents: 1655
diff changeset
1833 create_process (process, new_argv, current_dir)
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1834 Lisp_Object process;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1835 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
1836 Lisp_Object current_dir;
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1837 {
76494
f0a25b5d3ba0 (Fdelete_process): Properly handle deletion of first element of
Chong Yidong <cyd@stupidchicken.com>
parents: 76493
diff changeset
1838 int inchannel, outchannel;
f0a25b5d3ba0 (Fdelete_process): Properly handle deletion of first element of
Chong Yidong <cyd@stupidchicken.com>
parents: 76493
diff changeset
1839 pid_t pid;
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1840 int sv[2];
13709
d16f31ae8adf (create_process): Use Posix signal handling to
Karl Heuer <kwzh@gnu.org>
parents: 13414
diff changeset
1841 #ifdef POSIX_SIGNALS
d16f31ae8adf (create_process): Use Posix signal handling to
Karl Heuer <kwzh@gnu.org>
parents: 13414
diff changeset
1842 sigset_t procmask;
d16f31ae8adf (create_process): Use Posix signal handling to
Karl Heuer <kwzh@gnu.org>
parents: 13414
diff changeset
1843 sigset_t blocked;
d16f31ae8adf (create_process): Use Posix signal handling to
Karl Heuer <kwzh@gnu.org>
parents: 13414
diff changeset
1844 struct sigaction sigint_action;
d16f31ae8adf (create_process): Use Posix signal handling to
Karl Heuer <kwzh@gnu.org>
parents: 13414
diff changeset
1845 struct sigaction sigquit_action;
d16f31ae8adf (create_process): Use Posix signal handling to
Karl Heuer <kwzh@gnu.org>
parents: 13414
diff changeset
1846 #ifdef AIX
d16f31ae8adf (create_process): Use Posix signal handling to
Karl Heuer <kwzh@gnu.org>
parents: 13414
diff changeset
1847 struct sigaction sighup_action;
d16f31ae8adf (create_process): Use Posix signal handling to
Karl Heuer <kwzh@gnu.org>
parents: 13414
diff changeset
1848 #endif
d16f31ae8adf (create_process): Use Posix signal handling to
Karl Heuer <kwzh@gnu.org>
parents: 13414
diff changeset
1849 #else /* !POSIX_SIGNALS */
25770
3a44b5298cd5 (list_processes_1): Remove unused variables.
Gerd Moellmann <gerd@gnu.org>
parents: 25760
diff changeset
1850 #if 0
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1851 #ifdef SIGCHLD
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1852 SIGTYPE (*sigchld)();
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1853 #endif
25770
3a44b5298cd5 (list_processes_1): Remove unused variables.
Gerd Moellmann <gerd@gnu.org>
parents: 25760
diff changeset
1854 #endif /* 0 */
13709
d16f31ae8adf (create_process): Use Posix signal handling to
Karl Heuer <kwzh@gnu.org>
parents: 13414
diff changeset
1855 #endif /* !POSIX_SIGNALS */
11926
40d7e6f04ebe (create_process, send_process): Add volatile qualifiers.
Karl Heuer <kwzh@gnu.org>
parents: 11845
diff changeset
1856 /* 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
1857 volatile int forkin, forkout;
40d7e6f04ebe (create_process, send_process): Add volatile qualifiers.
Karl Heuer <kwzh@gnu.org>
parents: 11845
diff changeset
1858 volatile int pty_flag = 0;
31099
0fe5afca71e4 Include keyboard.h before frame.h.
Andrew Innes <andrewi@gnu.org>
parents: 30582
diff changeset
1859 #ifndef USE_CRT_DLL
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1860 extern char **environ;
31099
0fe5afca71e4 Include keyboard.h before frame.h.
Andrew Innes <andrewi@gnu.org>
parents: 30582
diff changeset
1861 #endif
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1862
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1863 inchannel = outchannel = -1;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1864
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1865 #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
1866 if (!NILP (Vprocess_connection_type))
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1867 outchannel = inchannel = allocate_pty ();
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1868
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1869 if (inchannel >= 0)
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1870 {
46411
d17e7d2c1766 (create_process): Test USG_SUBTTY_WORKS.
Richard M. Stallman <rms@gnu.org>
parents: 46370
diff changeset
1871 #if ! defined (USG) || defined (USG_SUBTTY_WORKS)
d17e7d2c1766 (create_process): Test USG_SUBTTY_WORKS.
Richard M. Stallman <rms@gnu.org>
parents: 46370
diff changeset
1872 /* On most USG systems it does not work to open the pty's tty here,
d17e7d2c1766 (create_process): Test USG_SUBTTY_WORKS.
Richard M. Stallman <rms@gnu.org>
parents: 46370
diff changeset
1873 then close it and reopen it in the child. */
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1874 #ifdef O_NOCTTY
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1875 /* Don't let this terminal become our controlling terminal
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1876 (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
1877 forkout = forkin = emacs_open (pty_name, O_RDWR | O_NOCTTY, 0);
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1878 #else
26088
b7aa6ac26872 Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
parents: 26019
diff changeset
1879 forkout = forkin = emacs_open (pty_name, O_RDWR, 0);
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1880 #endif
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1881 if (forkin < 0)
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1882 report_file_error ("Opening pty", Qnil);
65631
92275ace8eb5 (create_process) [RTU || UNIPLUS || DONT_REOPEN_PTY]:
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64977
diff changeset
1883 #if defined (RTU) || defined (UNIPLUS) || defined (DONT_REOPEN_PTY)
92275ace8eb5 (create_process) [RTU || UNIPLUS || DONT_REOPEN_PTY]:
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64977
diff changeset
1884 /* In the case that vfork is defined as fork, the parent process
92275ace8eb5 (create_process) [RTU || UNIPLUS || DONT_REOPEN_PTY]:
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64977
diff changeset
1885 (Emacs) may send some data before the child process completes
92275ace8eb5 (create_process) [RTU || UNIPLUS || DONT_REOPEN_PTY]:
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64977
diff changeset
1886 tty options setup. So we setup tty before forking. */
92275ace8eb5 (create_process) [RTU || UNIPLUS || DONT_REOPEN_PTY]:
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64977
diff changeset
1887 child_setup_tty (forkout);
92275ace8eb5 (create_process) [RTU || UNIPLUS || DONT_REOPEN_PTY]:
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64977
diff changeset
1888 #endif /* RTU or UNIPLUS or DONT_REOPEN_PTY */
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1889 #else
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1890 forkin = forkout = -1;
46411
d17e7d2c1766 (create_process): Test USG_SUBTTY_WORKS.
Richard M. Stallman <rms@gnu.org>
parents: 46370
diff changeset
1891 #endif /* not USG, or USG_SUBTTY_WORKS */
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1892 pty_flag = 1;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1893 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1894 else
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1895 #endif /* HAVE_PTYS */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1896 #ifdef SKTPAIR
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1897 {
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1898 if (socketpair (AF_UNIX, SOCK_STREAM, 0, sv) < 0)
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1899 report_file_error ("Opening socketpair", Qnil);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1900 outchannel = inchannel = sv[0];
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1901 forkout = forkin = sv[1];
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1902 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1903 #else /* not SKTPAIR */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1904 {
25129
4f3c8f1cec96 (create_process): Detect failure of `pipe'.
Karl Heuer <kwzh@gnu.org>
parents: 25009
diff changeset
1905 int tem;
4f3c8f1cec96 (create_process): Detect failure of `pipe'.
Karl Heuer <kwzh@gnu.org>
parents: 25009
diff changeset
1906 tem = pipe (sv);
4f3c8f1cec96 (create_process): Detect failure of `pipe'.
Karl Heuer <kwzh@gnu.org>
parents: 25009
diff changeset
1907 if (tem < 0)
4f3c8f1cec96 (create_process): Detect failure of `pipe'.
Karl Heuer <kwzh@gnu.org>
parents: 25009
diff changeset
1908 report_file_error ("Creating pipe", Qnil);
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1909 inchannel = sv[0];
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1910 forkout = sv[1];
25129
4f3c8f1cec96 (create_process): Detect failure of `pipe'.
Karl Heuer <kwzh@gnu.org>
parents: 25009
diff changeset
1911 tem = pipe (sv);
4f3c8f1cec96 (create_process): Detect failure of `pipe'.
Karl Heuer <kwzh@gnu.org>
parents: 25009
diff changeset
1912 if (tem < 0)
4f3c8f1cec96 (create_process): Detect failure of `pipe'.
Karl Heuer <kwzh@gnu.org>
parents: 25009
diff changeset
1913 {
26088
b7aa6ac26872 Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
parents: 26019
diff changeset
1914 emacs_close (inchannel);
b7aa6ac26872 Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
parents: 26019
diff changeset
1915 emacs_close (forkout);
25129
4f3c8f1cec96 (create_process): Detect failure of `pipe'.
Karl Heuer <kwzh@gnu.org>
parents: 25009
diff changeset
1916 report_file_error ("Creating pipe", Qnil);
4f3c8f1cec96 (create_process): Detect failure of `pipe'.
Karl Heuer <kwzh@gnu.org>
parents: 25009
diff changeset
1917 }
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1918 outchannel = sv[1];
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1919 forkin = sv[0];
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1920 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1921 #endif /* not SKTPAIR */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1922
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1923 #if 0
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1924 /* Replaced by close_process_descs */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1925 set_exclusive_use (inchannel);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1926 set_exclusive_use (outchannel);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1927 #endif
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1928
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1929 /* Stride people say it's a mystery why this is needed
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1930 as well as the O_NDELAY, but that it fails without this. */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1931 #if defined (STRIDE) || (defined (pfa) && defined (HAVE_PTYS))
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1932 {
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1933 int one = 1;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1934 ioctl (inchannel, FIONBIO, &one);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1935 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1936 #endif
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1937
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1938 #ifdef O_NONBLOCK
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1939 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
1940 fcntl (outchannel, F_SETFL, O_NONBLOCK);
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1941 #else
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1942 #ifdef O_NDELAY
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1943 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
1944 fcntl (outchannel, F_SETFL, O_NDELAY);
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1945 #endif
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1946 #endif
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1947
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1948 /* Record this as an active process, with its channels.
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1949 As a result, child_setup will close Emacs's side of the pipes. */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1950 chan_process[inchannel] = process;
81826
077a1e6fd3f2 (struct Lisp_Process): Turn slots infd, outfd, kill_without_query, pty_flag,
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 80984
diff changeset
1951 XPROCESS (process)->infd = inchannel;
077a1e6fd3f2 (struct Lisp_Process): Turn slots infd, outfd, kill_without_query, pty_flag,
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 80984
diff changeset
1952 XPROCESS (process)->outfd = outchannel;
49903
6dc5bfe9589b Removed subtty, workaround for when TIOCSIGSEND fails.
Jan Djärv <jan.h.d@swipnet.se>
parents: 49894
diff changeset
1953
6dc5bfe9589b Removed subtty, workaround for when TIOCSIGSEND fails.
Jan Djärv <jan.h.d@swipnet.se>
parents: 49894
diff changeset
1954 /* Previously we recorded the tty descriptor used in the subprocess.
6dc5bfe9589b Removed subtty, workaround for when TIOCSIGSEND fails.
Jan Djärv <jan.h.d@swipnet.se>
parents: 49894
diff changeset
1955 It was only used for getting the foreground tty process, so now
6dc5bfe9589b Removed subtty, workaround for when TIOCSIGSEND fails.
Jan Djärv <jan.h.d@swipnet.se>
parents: 49894
diff changeset
1956 we just reopen the device (see emacs_get_tty_pgrp) as this is
6dc5bfe9589b Removed subtty, workaround for when TIOCSIGSEND fails.
Jan Djärv <jan.h.d@swipnet.se>
parents: 49894
diff changeset
1957 more portable (see USG_SUBTTY_WORKS above). */
6dc5bfe9589b Removed subtty, workaround for when TIOCSIGSEND fails.
Jan Djärv <jan.h.d@swipnet.se>
parents: 49894
diff changeset
1958
81826
077a1e6fd3f2 (struct Lisp_Process): Turn slots infd, outfd, kill_without_query, pty_flag,
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 80984
diff changeset
1959 XPROCESS (process)->pty_flag = pty_flag;
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1960 XPROCESS (process)->status = Qrun;
49667
cbec1327e2f1 (QCfilter_multibyte): New variable.
Kenichi Handa <handa@m17n.org>
parents: 49600
diff changeset
1961 setup_process_coding_systems (process);
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1962
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1963 /* Delay interrupts until we have a chance to store
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1964 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
1965 #ifdef POSIX_SIGNALS
d16f31ae8adf (create_process): Use Posix signal handling to
Karl Heuer <kwzh@gnu.org>
parents: 13414
diff changeset
1966 sigemptyset (&blocked);
d16f31ae8adf (create_process): Use Posix signal handling to
Karl Heuer <kwzh@gnu.org>
parents: 13414
diff changeset
1967 #ifdef SIGCHLD
d16f31ae8adf (create_process): Use Posix signal handling to
Karl Heuer <kwzh@gnu.org>
parents: 13414
diff changeset
1968 sigaddset (&blocked, SIGCHLD);
d16f31ae8adf (create_process): Use Posix signal handling to
Karl Heuer <kwzh@gnu.org>
parents: 13414
diff changeset
1969 #endif
41856
0028402ed7d1 (create_process): Use HAVE_WORKING_VFORK, not HAVE_VFORK.
Paul Eggert <eggert@twinsun.com>
parents: 40656
diff changeset
1970 #ifdef HAVE_WORKING_VFORK
13709
d16f31ae8adf (create_process): Use Posix signal handling to
Karl Heuer <kwzh@gnu.org>
parents: 13414
diff changeset
1971 /* 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
1972 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
1973 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
1974 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
1975 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
1976 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
1977 #ifdef AIX
d16f31ae8adf (create_process): Use Posix signal handling to
Karl Heuer <kwzh@gnu.org>
parents: 13414
diff changeset
1978 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
1979 #endif
41856
0028402ed7d1 (create_process): Use HAVE_WORKING_VFORK, not HAVE_VFORK.
Paul Eggert <eggert@twinsun.com>
parents: 40656
diff changeset
1980 #endif /* HAVE_WORKING_VFORK */
13709
d16f31ae8adf (create_process): Use Posix signal handling to
Karl Heuer <kwzh@gnu.org>
parents: 13414
diff changeset
1981 sigprocmask (SIG_BLOCK, &blocked, &procmask);
d16f31ae8adf (create_process): Use Posix signal handling to
Karl Heuer <kwzh@gnu.org>
parents: 13414
diff changeset
1982 #else /* !POSIX_SIGNALS */
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1983 #ifdef SIGCHLD
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1984 #ifdef BSD4_1
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1985 sighold (SIGCHLD);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1986 #else /* not BSD4_1 */
16220
02044b05d8e0 Replaced symbol BSD with BSD_SYSTEM.
Karl Heuer <kwzh@gnu.org>
parents: 16206
diff changeset
1987 #if defined (BSD_SYSTEM) || defined (UNIPLUS) || defined (HPUX)
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1988 sigsetmask (sigmask (SIGCHLD));
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1989 #else /* ordinary USG */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1990 #if 0
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1991 sigchld_deferred = 0;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1992 sigchld = signal (SIGCHLD, create_process_sigchld);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1993 #endif
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1994 #endif /* ordinary USG */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1995 #endif /* not BSD4_1 */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1996 #endif /* SIGCHLD */
13709
d16f31ae8adf (create_process): Use Posix signal handling to
Karl Heuer <kwzh@gnu.org>
parents: 13414
diff changeset
1997 #endif /* !POSIX_SIGNALS */
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
1998
7893
e54617027a47 (create_process): Set input_wait_mask before forking.
Karl Heuer <kwzh@gnu.org>
parents: 7884
diff changeset
1999 FD_SET (inchannel, &input_wait_mask);
9686
cd788aa8cb2a Handle multiple keyboard input descriptors.
Richard M. Stallman <rms@gnu.org>
parents: 9334
diff changeset
2000 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
2001 if (inchannel > max_process_desc)
e54617027a47 (create_process): Set input_wait_mask before forking.
Karl Heuer <kwzh@gnu.org>
parents: 7884
diff changeset
2002 max_process_desc = inchannel;
e54617027a47 (create_process): Set input_wait_mask before forking.
Karl Heuer <kwzh@gnu.org>
parents: 7884
diff changeset
2003
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2004 /* Until we store the proper pid, enable sigchld_handler
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2005 to recognize an unknown pid as standing for this process.
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2006 It is very important not to let this `marker' value stay
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2007 in the table after this function has returned; if it does
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2008 it might cause call-process to hang and subsequent asynchronous
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2009 processes to get their return values scrambled. */
69873
2d844bbbccd4 * process.h (struct Lisp_Process): Replace Lisp_Objects `pid',
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 69634
diff changeset
2010 XPROCESS (process)->pid = -1;
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2011
16780
e9dc2569cb12 Include blockinput.h.
Richard M. Stallman <rms@gnu.org>
parents: 16728
diff changeset
2012 BLOCK_INPUT;
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 49281
diff changeset
2013
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2014 {
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2015 /* child_setup must clobber environ on systems with true vfork.
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2016 Protect it from permanent change. */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2017 char **save_environ = environ;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2018
21049
01e626b0a624 (Vdefault_file_name_coding_system): Extern it.
Kenichi Handa <handa@m17n.org>
parents: 20715
diff changeset
2019 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
2020
9793
28267fcc61be Use macros IS_ANY_SEP, IS_DIRECTORY_SEP,
Richard M. Stallman <rms@gnu.org>
parents: 9705
diff changeset
2021 #ifndef WINDOWSNT
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2022 pid = vfork ();
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2023 if (pid == 0)
9793
28267fcc61be Use macros IS_ANY_SEP, IS_DIRECTORY_SEP,
Richard M. Stallman <rms@gnu.org>
parents: 9705
diff changeset
2024 #endif /* not WINDOWSNT */
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2025 {
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2026 int xforkin = forkin;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2027 int xforkout = forkout;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2028
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2029 #if 0 /* This was probably a mistake--it duplicates code later on,
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2030 but fails to handle all the cases. */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2031 /* Make sure SIGCHLD is not blocked in the child. */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2032 sigsetmask (SIGEMPTYMASK);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2033 #endif
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2034
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2035 /* Make the pty be the controlling terminal of the process. */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2036 #ifdef HAVE_PTYS
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2037 /* First, disconnect its current controlling terminal. */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2038 #ifdef HAVE_SETSID
7266
f87808bd90e9 (create_process): Undo April 19 setsid change.
Richard M. Stallman <rms@gnu.org>
parents: 7238
diff changeset
2039 /* 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
2040 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
2041 setsid ();
1030
9934251d8219 (WCOREDUMP): Define only if not defined.
Richard M. Stallman <rms@gnu.org>
parents: 1012
diff changeset
2042 /* 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
2043 if (pty_flag)
6975
b7411e378b65 (create_process): Call setsid only if pty_flag.
Richard M. Stallman <rms@gnu.org>
parents: 6947
diff changeset
2044 {
b7411e378b65 (create_process): Call setsid only if pty_flag.
Richard M. Stallman <rms@gnu.org>
parents: 6947
diff changeset
2045 #ifdef TIOCSCTTY
b7411e378b65 (create_process): Call setsid only if pty_flag.
Richard M. Stallman <rms@gnu.org>
parents: 6947
diff changeset
2046 /* We ignore the return value
b7411e378b65 (create_process): Call setsid only if pty_flag.
Richard M. Stallman <rms@gnu.org>
parents: 6947
diff changeset
2047 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
2048 ioctl (xforkin, TIOCSCTTY, 0);
1030
9934251d8219 (WCOREDUMP): Define only if not defined.
Richard M. Stallman <rms@gnu.org>
parents: 1012
diff changeset
2049 #endif
6975
b7411e378b65 (create_process): Call setsid only if pty_flag.
Richard M. Stallman <rms@gnu.org>
parents: 6947
diff changeset
2050 }
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2051 #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
2052 #ifdef USG
5347
21bffe027a7d (create_process) [NTTYDISC]: Set the tty line discipline.
Richard M. Stallman <rms@gnu.org>
parents: 5332
diff changeset
2053 /* It's very important to call setpgrp here and no time
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2054 afterwards. Otherwise, we lose our controlling tty which
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2055 is set when we open the pty. */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2056 setpgrp ();
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2057 #endif /* USG */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2058 #endif /* not HAVE_SETSID */
7116
d35b11eed89f (create_process) [HAVE_TERMIOS && LDISC1]: Use tcsetattr.
Karl Heuer <kwzh@gnu.org>
parents: 7059
diff changeset
2059 #if defined (HAVE_TERMIOS) && defined (LDISC1)
d35b11eed89f (create_process) [HAVE_TERMIOS && LDISC1]: Use tcsetattr.
Karl Heuer <kwzh@gnu.org>
parents: 7059
diff changeset
2060 if (pty_flag && xforkin >= 0)
d35b11eed89f (create_process) [HAVE_TERMIOS && LDISC1]: Use tcsetattr.
Karl Heuer <kwzh@gnu.org>
parents: 7059
diff changeset
2061 {
d35b11eed89f (create_process) [HAVE_TERMIOS && LDISC1]: Use tcsetattr.
Karl Heuer <kwzh@gnu.org>
parents: 7059
diff changeset
2062 struct termios t;
d35b11eed89f (create_process) [HAVE_TERMIOS && LDISC1]: Use tcsetattr.
Karl Heuer <kwzh@gnu.org>
parents: 7059
diff changeset
2063 tcgetattr (xforkin, &t);
d35b11eed89f (create_process) [HAVE_TERMIOS && LDISC1]: Use tcsetattr.
Karl Heuer <kwzh@gnu.org>
parents: 7059
diff changeset
2064 t.c_lflag = LDISC1;
d35b11eed89f (create_process) [HAVE_TERMIOS && LDISC1]: Use tcsetattr.
Karl Heuer <kwzh@gnu.org>
parents: 7059
diff changeset
2065 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
2066 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
2067 }
d35b11eed89f (create_process) [HAVE_TERMIOS && LDISC1]: Use tcsetattr.
Karl Heuer <kwzh@gnu.org>
parents: 7059
diff changeset
2068 #else
6947
c5f990fad6bb (create_process): Fix previous change.
Richard M. Stallman <rms@gnu.org>
parents: 6928
diff changeset
2069 #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
2070 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
2071 {
36d2fd17f833 (create_process): Set line discipline only if pty_flag.
Richard M. Stallman <rms@gnu.org>
parents: 5543
diff changeset
2072 /* Use new line discipline. */
36d2fd17f833 (create_process): Set line discipline only if pty_flag.
Richard M. Stallman <rms@gnu.org>
parents: 5543
diff changeset
2073 int ldisc = NTTYDISC;
7605
53186c2698e5 (create_process): Don't complain about error from TIOCSETD.
Richard M. Stallman <rms@gnu.org>
parents: 7486
diff changeset
2074 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
2075 }
5347
21bffe027a7d (create_process) [NTTYDISC]: Set the tty line discipline.
Richard M. Stallman <rms@gnu.org>
parents: 5332
diff changeset
2076 #endif
7116
d35b11eed89f (create_process) [HAVE_TERMIOS && LDISC1]: Use tcsetattr.
Karl Heuer <kwzh@gnu.org>
parents: 7059
diff changeset
2077 #endif
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 49281
diff changeset
2078 #ifdef TIOCNOTTY
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2079 /* In 4.3BSD, the TIOCSPGRP bug has been fixed, and now you
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2080 can do TIOCSPGRP only to the process's controlling tty. */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2081 if (pty_flag)
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2082 {
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 49281
diff changeset
2083 /* I wonder: would just ioctl (0, TIOCNOTTY, 0) work here?
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2084 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
2085 int j = emacs_open ("/dev/tty", O_RDWR, 0);
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2086 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
2087 emacs_close (j);
3826
647bef18618f Changes for Irix 4.0, tested this time:
Jim Blandy <jimb@redhat.com>
parents: 3810
diff changeset
2088 #ifndef USG
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2089 /* In order to get a controlling terminal on some versions
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2090 of BSD, it is necessary to put the process in pgrp 0
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2091 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
2092 #ifdef HAVE_SETPGID
9882
ccc5562a7194 (create_process) [OSF1]: Use setpgid, not setpgrp.
Richard M. Stallman <rms@gnu.org>
parents: 9793
diff changeset
2093 setpgid (0, 0);
ccc5562a7194 (create_process) [OSF1]: Use setpgid, not setpgrp.
Richard M. Stallman <rms@gnu.org>
parents: 9793
diff changeset
2094 #else
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2095 setpgrp (0, 0);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2096 #endif
9882
ccc5562a7194 (create_process) [OSF1]: Use setpgid, not setpgrp.
Richard M. Stallman <rms@gnu.org>
parents: 9793
diff changeset
2097 #endif
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2098 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2099 #endif /* TIOCNOTTY */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2100
16076
5d1e0290bbd0 (create_process): Undo previous change.
Richard M. Stallman <rms@gnu.org>
parents: 16058
diff changeset
2101 #if !defined (RTU) && !defined (UNIPLUS) && !defined (DONT_REOPEN_PTY)
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2102 /*** 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
2103 conditional on TIOCSPGRP,
5d1e0290bbd0 (create_process): Undo previous change.
Richard M. Stallman <rms@gnu.org>
parents: 16058
diff changeset
2104 or !(defined (HAVE_SETSID) && defined (TIOCSCTTY)).
5d1e0290bbd0 (create_process): Undo previous change.
Richard M. Stallman <rms@gnu.org>
parents: 16058
diff changeset
2105 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
2106 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
2107 both HAVE_SETSID and TIOCSCTTY are defined. */
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2108 /* Now close the pty (if we had it open) and reopen it.
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2109 This makes the pty the controlling terminal of the subprocess. */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2110 if (pty_flag)
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2111 {
5240
eed870591987 (Fprocess_status): Use get_process, not Fget_process.
Richard M. Stallman <rms@gnu.org>
parents: 5239
diff changeset
2112 #ifdef SET_CHILD_PTY_PGRP
eed870591987 (Fprocess_status): Use get_process, not Fget_process.
Richard M. Stallman <rms@gnu.org>
parents: 5239
diff changeset
2113 int pgrp = getpid ();
eed870591987 (Fprocess_status): Use get_process, not Fget_process.
Richard M. Stallman <rms@gnu.org>
parents: 5239
diff changeset
2114 #endif
eed870591987 (Fprocess_status): Use get_process, not Fget_process.
Richard M. Stallman <rms@gnu.org>
parents: 5239
diff changeset
2115
26088
b7aa6ac26872 Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
parents: 26019
diff changeset
2116 /* 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
2117 would work? */
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2118 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
2119 emacs_close (xforkin);
b7aa6ac26872 Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
parents: 26019
diff changeset
2120 xforkout = xforkin = emacs_open (pty_name, O_RDWR, 0);
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2121
11514
321726163a65 (create_process): Don't abort if can't reopen
Richard M. Stallman <rms@gnu.org>
parents: 11376
diff changeset
2122 if (xforkin < 0)
321726163a65 (create_process): Don't abort if can't reopen
Richard M. Stallman <rms@gnu.org>
parents: 11376
diff changeset
2123 {
26088
b7aa6ac26872 Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
parents: 26019
diff changeset
2124 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
2125 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
2126 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
2127 _exit (1);
321726163a65 (create_process): Don't abort if can't reopen
Richard M. Stallman <rms@gnu.org>
parents: 11376
diff changeset
2128 }
321726163a65 (create_process): Don't abort if can't reopen
Richard M. Stallman <rms@gnu.org>
parents: 11376
diff changeset
2129
5240
eed870591987 (Fprocess_status): Use get_process, not Fget_process.
Richard M. Stallman <rms@gnu.org>
parents: 5239
diff changeset
2130 #ifdef SET_CHILD_PTY_PGRP
eed870591987 (Fprocess_status): Use get_process, not Fget_process.
Richard M. Stallman <rms@gnu.org>
parents: 5239
diff changeset
2131 ioctl (xforkin, TIOCSPGRP, &pgrp);
eed870591987 (Fprocess_status): Use get_process, not Fget_process.
Richard M. Stallman <rms@gnu.org>
parents: 5239
diff changeset
2132 ioctl (xforkout, TIOCSPGRP, &pgrp);
eed870591987 (Fprocess_status): Use get_process, not Fget_process.
Richard M. Stallman <rms@gnu.org>
parents: 5239
diff changeset
2133 #endif
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2134 }
16076
5d1e0290bbd0 (create_process): Undo previous change.
Richard M. Stallman <rms@gnu.org>
parents: 16058
diff changeset
2135 #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
2136
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2137 #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
2138 if (pty_flag)
1855e568a9b8 (create_process): Use SETUP_SLAVE_PTY only if pty_flag.
Richard M. Stallman <rms@gnu.org>
parents: 7044
diff changeset
2139 {
1855e568a9b8 (create_process): Use SETUP_SLAVE_PTY only if pty_flag.
Richard M. Stallman <rms@gnu.org>
parents: 7044
diff changeset
2140 SETUP_SLAVE_PTY;
1855e568a9b8 (create_process): Use SETUP_SLAVE_PTY only if pty_flag.
Richard M. Stallman <rms@gnu.org>
parents: 7044
diff changeset
2141 }
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2142 #endif /* SETUP_SLAVE_PTY */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2143 #ifdef AIX
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2144 /* 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
2145 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
2146 if (pty_flag)
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2147 signal (SIGHUP, SIG_DFL);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2148 #endif
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2149 #endif /* HAVE_PTYS */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2150
13709
d16f31ae8adf (create_process): Use Posix signal handling to
Karl Heuer <kwzh@gnu.org>
parents: 13414
diff changeset
2151 signal (SIGINT, SIG_DFL);
d16f31ae8adf (create_process): Use Posix signal handling to
Karl Heuer <kwzh@gnu.org>
parents: 13414
diff changeset
2152 signal (SIGQUIT, SIG_DFL);
d16f31ae8adf (create_process): Use Posix signal handling to
Karl Heuer <kwzh@gnu.org>
parents: 13414
diff changeset
2153
d16f31ae8adf (create_process): Use Posix signal handling to
Karl Heuer <kwzh@gnu.org>
parents: 13414
diff changeset
2154 /* Stop blocking signals in the child. */
d16f31ae8adf (create_process): Use Posix signal handling to
Karl Heuer <kwzh@gnu.org>
parents: 13414
diff changeset
2155 #ifdef POSIX_SIGNALS
d16f31ae8adf (create_process): Use Posix signal handling to
Karl Heuer <kwzh@gnu.org>
parents: 13414
diff changeset
2156 sigprocmask (SIG_SETMASK, &procmask, 0);
d16f31ae8adf (create_process): Use Posix signal handling to
Karl Heuer <kwzh@gnu.org>
parents: 13414
diff changeset
2157 #else /* !POSIX_SIGNALS */
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2158 #ifdef SIGCHLD
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2159 #ifdef BSD4_1
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2160 sigrelse (SIGCHLD);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2161 #else /* not BSD4_1 */
16220
02044b05d8e0 Replaced symbol BSD with BSD_SYSTEM.
Karl Heuer <kwzh@gnu.org>
parents: 16206
diff changeset
2162 #if defined (BSD_SYSTEM) || defined (UNIPLUS) || defined (HPUX)
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2163 sigsetmask (SIGEMPTYMASK);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2164 #else /* ordinary USG */
1207
af619d68a576 * process.c [SIGCHLD && !BSD && !UNIPLUS && !HPUX]
Jim Blandy <jimb@redhat.com>
parents: 1180
diff changeset
2165 #if 0
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2166 signal (SIGCHLD, sigchld);
1207
af619d68a576 * process.c [SIGCHLD && !BSD && !UNIPLUS && !HPUX]
Jim Blandy <jimb@redhat.com>
parents: 1180
diff changeset
2167 #endif
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2168 #endif /* ordinary USG */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2169 #endif /* not BSD4_1 */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2170 #endif /* SIGCHLD */
13709
d16f31ae8adf (create_process): Use Posix signal handling to
Karl Heuer <kwzh@gnu.org>
parents: 13414
diff changeset
2171 #endif /* !POSIX_SIGNALS */
8390
ee13e8728666 (create_process): Set default handling for SIGINT, etc.
Richard M. Stallman <rms@gnu.org>
parents: 8354
diff changeset
2172
65631
92275ace8eb5 (create_process) [RTU || UNIPLUS || DONT_REOPEN_PTY]:
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64977
diff changeset
2173 #if !defined (RTU) && !defined (UNIPLUS) && !defined (DONT_REOPEN_PTY)
7059
6a55de48ade5 (create_process): Use child_setup_tty only if pty_flag.
Richard M. Stallman <rms@gnu.org>
parents: 7058
diff changeset
2174 if (pty_flag)
6a55de48ade5 (create_process): Use child_setup_tty only if pty_flag.
Richard M. Stallman <rms@gnu.org>
parents: 7058
diff changeset
2175 child_setup_tty (xforkout);
65631
92275ace8eb5 (create_process) [RTU || UNIPLUS || DONT_REOPEN_PTY]:
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 64977
diff changeset
2176 #endif /* not RTU and not UNIPLUS and not DONT_REOPEN_PTY */
9793
28267fcc61be Use macros IS_ANY_SEP, IS_DIRECTORY_SEP,
Richard M. Stallman <rms@gnu.org>
parents: 9705
diff changeset
2177 #ifdef WINDOWSNT
28267fcc61be Use macros IS_ANY_SEP, IS_DIRECTORY_SEP,
Richard M. Stallman <rms@gnu.org>
parents: 9705
diff changeset
2178 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
2179 new_argv, 1, current_dir);
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 49281
diff changeset
2180 #else /* not WINDOWSNT */
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2181 child_setup (xforkin, xforkout, xforkout,
638
40b255f55df3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 624
diff changeset
2182 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
2183 #endif /* not WINDOWSNT */
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2184 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2185 environ = save_environ;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2186 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2187
16780
e9dc2569cb12 Include blockinput.h.
Richard M. Stallman <rms@gnu.org>
parents: 16728
diff changeset
2188 UNBLOCK_INPUT;
e9dc2569cb12 Include blockinput.h.
Richard M. Stallman <rms@gnu.org>
parents: 16728
diff changeset
2189
14131
7717b68abd2e (create_process): Restore the signal state
Karl Heuer <kwzh@gnu.org>
parents: 14085
diff changeset
2190 /* This runs in the Emacs process. */
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2191 if (pid < 0)
7157
3f4fc9d682b4 (create_process): If vfork fails, close forkin and forkout.
Richard M. Stallman <rms@gnu.org>
parents: 7116
diff changeset
2192 {
3f4fc9d682b4 (create_process): If vfork fails, close forkin and forkout.
Richard M. Stallman <rms@gnu.org>
parents: 7116
diff changeset
2193 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
2194 emacs_close (forkin);
7157
3f4fc9d682b4 (create_process): If vfork fails, close forkin and forkout.
Richard M. Stallman <rms@gnu.org>
parents: 7116
diff changeset
2195 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
2196 emacs_close (forkout);
7157
3f4fc9d682b4 (create_process): If vfork fails, close forkin and forkout.
Richard M. Stallman <rms@gnu.org>
parents: 7116
diff changeset
2197 }
14131
7717b68abd2e (create_process): Restore the signal state
Karl Heuer <kwzh@gnu.org>
parents: 14085
diff changeset
2198 else
7717b68abd2e (create_process): Restore the signal state
Karl Heuer <kwzh@gnu.org>
parents: 14085
diff changeset
2199 {
7717b68abd2e (create_process): Restore the signal state
Karl Heuer <kwzh@gnu.org>
parents: 14085
diff changeset
2200 /* vfork succeeded. */
69873
2d844bbbccd4 * process.h (struct Lisp_Process): Replace Lisp_Objects `pid',
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 69634
diff changeset
2201 XPROCESS (process)->pid = pid;
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2202
9793
28267fcc61be Use macros IS_ANY_SEP, IS_DIRECTORY_SEP,
Richard M. Stallman <rms@gnu.org>
parents: 9705
diff changeset
2203 #ifdef WINDOWSNT
14131
7717b68abd2e (create_process): Restore the signal state
Karl Heuer <kwzh@gnu.org>
parents: 14085
diff changeset
2204 register_child (pid, inchannel);
9793
28267fcc61be Use macros IS_ANY_SEP, IS_DIRECTORY_SEP,
Richard M. Stallman <rms@gnu.org>
parents: 9705
diff changeset
2205 #endif /* WINDOWSNT */
28267fcc61be Use macros IS_ANY_SEP, IS_DIRECTORY_SEP,
Richard M. Stallman <rms@gnu.org>
parents: 9705
diff changeset
2206
14131
7717b68abd2e (create_process): Restore the signal state
Karl Heuer <kwzh@gnu.org>
parents: 14085
diff changeset
2207 /* If the subfork execv fails, and it exits,
7717b68abd2e (create_process): Restore the signal state
Karl Heuer <kwzh@gnu.org>
parents: 14085
diff changeset
2208 this close hangs. I don't know why.
7717b68abd2e (create_process): Restore the signal state
Karl Heuer <kwzh@gnu.org>
parents: 14085
diff changeset
2209 So have an interrupt jar it loose. */
27430
1aa71680fe50 (toplevel): Include atimer.h.
Gerd Moellmann <gerd@gnu.org>
parents: 27028
diff changeset
2210 {
1aa71680fe50 (toplevel): Include atimer.h.
Gerd Moellmann <gerd@gnu.org>
parents: 27028
diff changeset
2211 struct atimer *timer;
1aa71680fe50 (toplevel): Include atimer.h.
Gerd Moellmann <gerd@gnu.org>
parents: 27028
diff changeset
2212 EMACS_TIME offset;
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 49281
diff changeset
2213
27430
1aa71680fe50 (toplevel): Include atimer.h.
Gerd Moellmann <gerd@gnu.org>
parents: 27028
diff changeset
2214 stop_polling ();
1aa71680fe50 (toplevel): Include atimer.h.
Gerd Moellmann <gerd@gnu.org>
parents: 27028
diff changeset
2215 EMACS_SET_SECS_USECS (offset, 1, 0);
1aa71680fe50 (toplevel): Include atimer.h.
Gerd Moellmann <gerd@gnu.org>
parents: 27028
diff changeset
2216 timer = start_atimer (ATIMER_RELATIVE, offset, create_process_1, 0);
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 49281
diff changeset
2217
27430
1aa71680fe50 (toplevel): Include atimer.h.
Gerd Moellmann <gerd@gnu.org>
parents: 27028
diff changeset
2218 if (forkin >= 0)
1aa71680fe50 (toplevel): Include atimer.h.
Gerd Moellmann <gerd@gnu.org>
parents: 27028
diff changeset
2219 emacs_close (forkin);
1aa71680fe50 (toplevel): Include atimer.h.
Gerd Moellmann <gerd@gnu.org>
parents: 27028
diff changeset
2220
1aa71680fe50 (toplevel): Include atimer.h.
Gerd Moellmann <gerd@gnu.org>
parents: 27028
diff changeset
2221 cancel_atimer (timer);
1aa71680fe50 (toplevel): Include atimer.h.
Gerd Moellmann <gerd@gnu.org>
parents: 27028
diff changeset
2222 start_polling ();
1aa71680fe50 (toplevel): Include atimer.h.
Gerd Moellmann <gerd@gnu.org>
parents: 27028
diff changeset
2223 }
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 49281
diff changeset
2224
14131
7717b68abd2e (create_process): Restore the signal state
Karl Heuer <kwzh@gnu.org>
parents: 14085
diff changeset
2225 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
2226 emacs_close (forkout);
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2227
11609
3b2dacb1bfe9 (create_process): Don't reference pty_name if !HAVE_PTYS.
Karl Heuer <kwzh@gnu.org>
parents: 11514
diff changeset
2228 #ifdef HAVE_PTYS
14131
7717b68abd2e (create_process): Restore the signal state
Karl Heuer <kwzh@gnu.org>
parents: 14085
diff changeset
2229 if (pty_flag)
7717b68abd2e (create_process): Restore the signal state
Karl Heuer <kwzh@gnu.org>
parents: 14085
diff changeset
2230 XPROCESS (process)->tty_name = build_string (pty_name);
7717b68abd2e (create_process): Restore the signal state
Karl Heuer <kwzh@gnu.org>
parents: 14085
diff changeset
2231 else
11609
3b2dacb1bfe9 (create_process): Don't reference pty_name if !HAVE_PTYS.
Karl Heuer <kwzh@gnu.org>
parents: 11514
diff changeset
2232 #endif
14131
7717b68abd2e (create_process): Restore the signal state
Karl Heuer <kwzh@gnu.org>
parents: 14085
diff changeset
2233 XPROCESS (process)->tty_name = Qnil;
7717b68abd2e (create_process): Restore the signal state
Karl Heuer <kwzh@gnu.org>
parents: 14085
diff changeset
2234 }
7717b68abd2e (create_process): Restore the signal state
Karl Heuer <kwzh@gnu.org>
parents: 14085
diff changeset
2235
7717b68abd2e (create_process): Restore the signal state
Karl Heuer <kwzh@gnu.org>
parents: 14085
diff changeset
2236 /* 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
2237 (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
2238 #ifdef POSIX_SIGNALS
41856
0028402ed7d1 (create_process): Use HAVE_WORKING_VFORK, not HAVE_VFORK.
Paul Eggert <eggert@twinsun.com>
parents: 40656
diff changeset
2239 #ifdef HAVE_WORKING_VFORK
13709
d16f31ae8adf (create_process): Use Posix signal handling to
Karl Heuer <kwzh@gnu.org>
parents: 13414
diff changeset
2240 /* Restore the parent's signal handlers. */
d16f31ae8adf (create_process): Use Posix signal handling to
Karl Heuer <kwzh@gnu.org>
parents: 13414
diff changeset
2241 sigaction (SIGINT, &sigint_action, 0);
d16f31ae8adf (create_process): Use Posix signal handling to
Karl Heuer <kwzh@gnu.org>
parents: 13414
diff changeset
2242 sigaction (SIGQUIT, &sigquit_action, 0);
d16f31ae8adf (create_process): Use Posix signal handling to
Karl Heuer <kwzh@gnu.org>
parents: 13414
diff changeset
2243 #ifdef AIX
d16f31ae8adf (create_process): Use Posix signal handling to
Karl Heuer <kwzh@gnu.org>
parents: 13414
diff changeset
2244 sigaction (SIGHUP, &sighup_action, 0);
d16f31ae8adf (create_process): Use Posix signal handling to
Karl Heuer <kwzh@gnu.org>
parents: 13414
diff changeset
2245 #endif
41856
0028402ed7d1 (create_process): Use HAVE_WORKING_VFORK, not HAVE_VFORK.
Paul Eggert <eggert@twinsun.com>
parents: 40656
diff changeset
2246 #endif /* HAVE_WORKING_VFORK */
13709
d16f31ae8adf (create_process): Use Posix signal handling to
Karl Heuer <kwzh@gnu.org>
parents: 13414
diff changeset
2247 /* Stop blocking signals in the parent. */
d16f31ae8adf (create_process): Use Posix signal handling to
Karl Heuer <kwzh@gnu.org>
parents: 13414
diff changeset
2248 sigprocmask (SIG_SETMASK, &procmask, 0);
d16f31ae8adf (create_process): Use Posix signal handling to
Karl Heuer <kwzh@gnu.org>
parents: 13414
diff changeset
2249 #else /* !POSIX_SIGNALS */
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2250 #ifdef SIGCHLD
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2251 #ifdef BSD4_1
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2252 sigrelse (SIGCHLD);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2253 #else /* not BSD4_1 */
16220
02044b05d8e0 Replaced symbol BSD with BSD_SYSTEM.
Karl Heuer <kwzh@gnu.org>
parents: 16206
diff changeset
2254 #if defined (BSD_SYSTEM) || defined (UNIPLUS) || defined (HPUX)
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2255 sigsetmask (SIGEMPTYMASK);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2256 #else /* ordinary USG */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2257 #if 0
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2258 signal (SIGCHLD, sigchld);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2259 /* Now really handle any of these signals
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2260 that came in during this function. */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2261 if (sigchld_deferred)
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2262 kill (getpid (), SIGCHLD);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2263 #endif
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2264 #endif /* ordinary USG */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2265 #endif /* not BSD4_1 */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2266 #endif /* SIGCHLD */
13709
d16f31ae8adf (create_process): Use Posix signal handling to
Karl Heuer <kwzh@gnu.org>
parents: 13414
diff changeset
2267 #endif /* !POSIX_SIGNALS */
14131
7717b68abd2e (create_process): Restore the signal state
Karl Heuer <kwzh@gnu.org>
parents: 14085
diff changeset
2268
7717b68abd2e (create_process): Restore the signal state
Karl Heuer <kwzh@gnu.org>
parents: 14085
diff changeset
2269 /* Now generate the error if vfork failed. */
7717b68abd2e (create_process): Restore the signal state
Karl Heuer <kwzh@gnu.org>
parents: 14085
diff changeset
2270 if (pid < 0)
7717b68abd2e (create_process): Restore the signal state
Karl Heuer <kwzh@gnu.org>
parents: 14085
diff changeset
2271 report_file_error ("Doing vfork", Qnil);
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2272 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2273 #endif /* not VMS */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2274
43968
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2275
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2276 #ifdef HAVE_SOCKETS
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2277
43968
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2278 /* Convert an internal struct sockaddr to a lisp object (vector or string).
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2279 The address family of sa is not included in the result. */
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2280
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2281 static Lisp_Object
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2282 conv_sockaddr_to_lisp (sa, len)
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2283 struct sockaddr *sa;
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2284 int len;
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2285 {
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2286 Lisp_Object address;
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2287 int i;
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2288 unsigned char *cp;
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2289 register struct Lisp_Vector *p;
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2290
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2291 switch (sa->sa_family)
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2292 {
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2293 case AF_INET:
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2294 {
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2295 struct sockaddr_in *sin = (struct sockaddr_in *) sa;
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2296 len = sizeof (sin->sin_addr) + 1;
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2297 address = Fmake_vector (make_number (len), Qnil);
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2298 p = XVECTOR (address);
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2299 p->contents[--len] = make_number (ntohs (sin->sin_port));
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2300 cp = (unsigned char *)&sin->sin_addr;
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2301 break;
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2302 }
68008
10f0a09ec82e Add IPv6 support.
Kim F. Storm <storm@cua.dk>
parents: 67920
diff changeset
2303 #ifdef AF_INET6
10f0a09ec82e Add IPv6 support.
Kim F. Storm <storm@cua.dk>
parents: 67920
diff changeset
2304 case AF_INET6:
10f0a09ec82e Add IPv6 support.
Kim F. Storm <storm@cua.dk>
parents: 67920
diff changeset
2305 {
10f0a09ec82e Add IPv6 support.
Kim F. Storm <storm@cua.dk>
parents: 67920
diff changeset
2306 struct sockaddr_in6 *sin6 = (struct sockaddr_in6 *) sa;
10f0a09ec82e Add IPv6 support.
Kim F. Storm <storm@cua.dk>
parents: 67920
diff changeset
2307 uint16_t *ip6 = (uint16_t *)&sin6->sin6_addr;
10f0a09ec82e Add IPv6 support.
Kim F. Storm <storm@cua.dk>
parents: 67920
diff changeset
2308 len = sizeof (sin6->sin6_addr)/2 + 1;
10f0a09ec82e Add IPv6 support.
Kim F. Storm <storm@cua.dk>
parents: 67920
diff changeset
2309 address = Fmake_vector (make_number (len), Qnil);
10f0a09ec82e Add IPv6 support.
Kim F. Storm <storm@cua.dk>
parents: 67920
diff changeset
2310 p = XVECTOR (address);
10f0a09ec82e Add IPv6 support.
Kim F. Storm <storm@cua.dk>
parents: 67920
diff changeset
2311 p->contents[--len] = make_number (ntohs (sin6->sin6_port));
10f0a09ec82e Add IPv6 support.
Kim F. Storm <storm@cua.dk>
parents: 67920
diff changeset
2312 for (i = 0; i < len; i++)
10f0a09ec82e Add IPv6 support.
Kim F. Storm <storm@cua.dk>
parents: 67920
diff changeset
2313 p->contents[i] = make_number (ntohs (ip6[i]));
10f0a09ec82e Add IPv6 support.
Kim F. Storm <storm@cua.dk>
parents: 67920
diff changeset
2314 return address;
10f0a09ec82e Add IPv6 support.
Kim F. Storm <storm@cua.dk>
parents: 67920
diff changeset
2315 }
10f0a09ec82e Add IPv6 support.
Kim F. Storm <storm@cua.dk>
parents: 67920
diff changeset
2316 #endif
43968
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2317 #ifdef HAVE_LOCAL_SOCKETS
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2318 case AF_LOCAL:
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2319 {
44038
e2339254ba48 (conv_sockaddr_to_lisp, conv_lisp_to_sockaddr): Don't
Eli Zaretskii <eliz@gnu.org>
parents: 44013
diff changeset
2320 struct sockaddr_un *sockun = (struct sockaddr_un *) sa;
e2339254ba48 (conv_sockaddr_to_lisp, conv_lisp_to_sockaddr): Don't
Eli Zaretskii <eliz@gnu.org>
parents: 44013
diff changeset
2321 for (i = 0; i < sizeof (sockun->sun_path); i++)
e2339254ba48 (conv_sockaddr_to_lisp, conv_lisp_to_sockaddr): Don't
Eli Zaretskii <eliz@gnu.org>
parents: 44013
diff changeset
2322 if (sockun->sun_path[i] == 0)
43968
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2323 break;
44038
e2339254ba48 (conv_sockaddr_to_lisp, conv_lisp_to_sockaddr): Don't
Eli Zaretskii <eliz@gnu.org>
parents: 44013
diff changeset
2324 return make_unibyte_string (sockun->sun_path, i);
43968
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2325 }
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2326 #endif
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2327 default:
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2328 len -= sizeof (sa->sa_family);
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2329 address = Fcons (make_number (sa->sa_family),
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2330 Fmake_vector (make_number (len), Qnil));
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2331 p = XVECTOR (XCDR (address));
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2332 cp = (unsigned char *) sa + sizeof (sa->sa_family);
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2333 break;
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2334 }
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2335
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2336 i = 0;
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2337 while (i < len)
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2338 p->contents[i++] = make_number (*cp++);
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2339
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2340 return address;
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2341 }
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2342
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2343
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2344 /* Get family and required size for sockaddr structure to hold ADDRESS. */
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2345
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2346 static int
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2347 get_lisp_to_sockaddr_size (address, familyp)
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2348 Lisp_Object address;
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2349 int *familyp;
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2350 {
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2351 register struct Lisp_Vector *p;
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2352
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2353 if (VECTORP (address))
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2354 {
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2355 p = XVECTOR (address);
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2356 if (p->size == 5)
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2357 {
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2358 *familyp = AF_INET;
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2359 return sizeof (struct sockaddr_in);
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2360 }
68008
10f0a09ec82e Add IPv6 support.
Kim F. Storm <storm@cua.dk>
parents: 67920
diff changeset
2361 #ifdef AF_INET6
10f0a09ec82e Add IPv6 support.
Kim F. Storm <storm@cua.dk>
parents: 67920
diff changeset
2362 else if (p->size == 9)
10f0a09ec82e Add IPv6 support.
Kim F. Storm <storm@cua.dk>
parents: 67920
diff changeset
2363 {
10f0a09ec82e Add IPv6 support.
Kim F. Storm <storm@cua.dk>
parents: 67920
diff changeset
2364 *familyp = AF_INET6;
10f0a09ec82e Add IPv6 support.
Kim F. Storm <storm@cua.dk>
parents: 67920
diff changeset
2365 return sizeof (struct sockaddr_in6);
10f0a09ec82e Add IPv6 support.
Kim F. Storm <storm@cua.dk>
parents: 67920
diff changeset
2366 }
10f0a09ec82e Add IPv6 support.
Kim F. Storm <storm@cua.dk>
parents: 67920
diff changeset
2367 #endif
43968
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2368 }
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2369 #ifdef HAVE_LOCAL_SOCKETS
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2370 else if (STRINGP (address))
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2371 {
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2372 *familyp = AF_LOCAL;
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2373 return sizeof (struct sockaddr_un);
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2374 }
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2375 #endif
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2376 else if (CONSP (address) && INTEGERP (XCAR (address)) && VECTORP (XCDR (address)))
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2377 {
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2378 struct sockaddr *sa;
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2379 *familyp = XINT (XCAR (address));
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2380 p = XVECTOR (XCDR (address));
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2381 return p->size + sizeof (sa->sa_family);
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2382 }
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2383 return 0;
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2384 }
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2385
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2386 /* Convert an address object (vector or string) to an internal sockaddr.
69981
9fb9e33ecf2d (conv_lisp_to_sockaddr): Fix previous change.
Richard M. Stallman <rms@gnu.org>
parents: 69974
diff changeset
2387
9fb9e33ecf2d (conv_lisp_to_sockaddr): Fix previous change.
Richard M. Stallman <rms@gnu.org>
parents: 69974
diff changeset
2388 The address format has been basically validated by
9fb9e33ecf2d (conv_lisp_to_sockaddr): Fix previous change.
Richard M. Stallman <rms@gnu.org>
parents: 69974
diff changeset
2389 get_lisp_to_sockaddr_size, but this does not mean FAMILY is valid;
9fb9e33ecf2d (conv_lisp_to_sockaddr): Fix previous change.
Richard M. Stallman <rms@gnu.org>
parents: 69974
diff changeset
2390 it could have come from user data. So if FAMILY is not valid,
9fb9e33ecf2d (conv_lisp_to_sockaddr): Fix previous change.
Richard M. Stallman <rms@gnu.org>
parents: 69974
diff changeset
2391 we return after zeroing *SA. */
43968
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2392
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2393 static void
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2394 conv_lisp_to_sockaddr (family, address, sa, len)
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2395 int family;
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2396 Lisp_Object address;
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2397 struct sockaddr *sa;
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2398 int len;
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2399 {
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2400 register struct Lisp_Vector *p;
51233
41ed31a0fd49 (allocate_pty): Remove `unused var stb' and
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 51046
diff changeset
2401 register unsigned char *cp = NULL;
43968
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2402 register int i;
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2403
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2404 bzero (sa, len);
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2405
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2406 if (VECTORP (address))
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2407 {
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2408 p = XVECTOR (address);
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2409 if (family == AF_INET)
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2410 {
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2411 struct sockaddr_in *sin = (struct sockaddr_in *) sa;
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2412 len = sizeof (sin->sin_addr) + 1;
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2413 i = XINT (p->contents[--len]);
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2414 sin->sin_port = htons (i);
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2415 cp = (unsigned char *)&sin->sin_addr;
69981
9fb9e33ecf2d (conv_lisp_to_sockaddr): Fix previous change.
Richard M. Stallman <rms@gnu.org>
parents: 69974
diff changeset
2416 sa->sa_family = family;
43968
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2417 }
68008
10f0a09ec82e Add IPv6 support.
Kim F. Storm <storm@cua.dk>
parents: 67920
diff changeset
2418 #ifdef AF_INET6
10f0a09ec82e Add IPv6 support.
Kim F. Storm <storm@cua.dk>
parents: 67920
diff changeset
2419 else if (family == AF_INET6)
10f0a09ec82e Add IPv6 support.
Kim F. Storm <storm@cua.dk>
parents: 67920
diff changeset
2420 {
10f0a09ec82e Add IPv6 support.
Kim F. Storm <storm@cua.dk>
parents: 67920
diff changeset
2421 struct sockaddr_in6 *sin6 = (struct sockaddr_in6 *) sa;
10f0a09ec82e Add IPv6 support.
Kim F. Storm <storm@cua.dk>
parents: 67920
diff changeset
2422 uint16_t *ip6 = (uint16_t *)&sin6->sin6_addr;
10f0a09ec82e Add IPv6 support.
Kim F. Storm <storm@cua.dk>
parents: 67920
diff changeset
2423 len = sizeof (sin6->sin6_addr) + 1;
10f0a09ec82e Add IPv6 support.
Kim F. Storm <storm@cua.dk>
parents: 67920
diff changeset
2424 i = XINT (p->contents[--len]);
10f0a09ec82e Add IPv6 support.
Kim F. Storm <storm@cua.dk>
parents: 67920
diff changeset
2425 sin6->sin6_port = htons (i);
10f0a09ec82e Add IPv6 support.
Kim F. Storm <storm@cua.dk>
parents: 67920
diff changeset
2426 for (i = 0; i < len; i++)
10f0a09ec82e Add IPv6 support.
Kim F. Storm <storm@cua.dk>
parents: 67920
diff changeset
2427 if (INTEGERP (p->contents[i]))
10f0a09ec82e Add IPv6 support.
Kim F. Storm <storm@cua.dk>
parents: 67920
diff changeset
2428 {
10f0a09ec82e Add IPv6 support.
Kim F. Storm <storm@cua.dk>
parents: 67920
diff changeset
2429 int j = XFASTINT (p->contents[i]) & 0xffff;
10f0a09ec82e Add IPv6 support.
Kim F. Storm <storm@cua.dk>
parents: 67920
diff changeset
2430 ip6[i] = ntohs (j);
10f0a09ec82e Add IPv6 support.
Kim F. Storm <storm@cua.dk>
parents: 67920
diff changeset
2431 }
69981
9fb9e33ecf2d (conv_lisp_to_sockaddr): Fix previous change.
Richard M. Stallman <rms@gnu.org>
parents: 69974
diff changeset
2432 sa->sa_family = family;
68008
10f0a09ec82e Add IPv6 support.
Kim F. Storm <storm@cua.dk>
parents: 67920
diff changeset
2433 }
10f0a09ec82e Add IPv6 support.
Kim F. Storm <storm@cua.dk>
parents: 67920
diff changeset
2434 #endif
69973
dc4e5cc51e66 (conv_lisp_to_sockaddr): If FAMILY unknown, just return.
Richard M. Stallman <rms@gnu.org>
parents: 69873
diff changeset
2435 return;
43968
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2436 }
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2437 else if (STRINGP (address))
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2438 {
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2439 #ifdef HAVE_LOCAL_SOCKETS
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2440 if (family == AF_LOCAL)
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2441 {
44038
e2339254ba48 (conv_sockaddr_to_lisp, conv_lisp_to_sockaddr): Don't
Eli Zaretskii <eliz@gnu.org>
parents: 44013
diff changeset
2442 struct sockaddr_un *sockun = (struct sockaddr_un *) sa;
46370
40db0673e6f0 Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents: 46314
diff changeset
2443 cp = SDATA (address);
44038
e2339254ba48 (conv_sockaddr_to_lisp, conv_lisp_to_sockaddr): Don't
Eli Zaretskii <eliz@gnu.org>
parents: 44013
diff changeset
2444 for (i = 0; i < sizeof (sockun->sun_path) && *cp; i++)
e2339254ba48 (conv_sockaddr_to_lisp, conv_lisp_to_sockaddr): Don't
Eli Zaretskii <eliz@gnu.org>
parents: 44013
diff changeset
2445 sockun->sun_path[i] = *cp++;
69981
9fb9e33ecf2d (conv_lisp_to_sockaddr): Fix previous change.
Richard M. Stallman <rms@gnu.org>
parents: 69974
diff changeset
2446 sa->sa_family = family;
43968
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2447 }
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2448 #endif
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2449 return;
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2450 }
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2451 else
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2452 {
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2453 p = XVECTOR (XCDR (address));
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2454 cp = (unsigned char *)sa + sizeof (sa->sa_family);
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2455 }
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2456
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2457 for (i = 0; i < len; i++)
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2458 if (INTEGERP (p->contents[i]))
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2459 *cp++ = XFASTINT (p->contents[i]) & 0xff;
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2460 }
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2461
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2462 #ifdef DATAGRAM_SOCKETS
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2463 DEFUN ("process-datagram-address", Fprocess_datagram_address, Sprocess_datagram_address,
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2464 1, 1, 0,
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2465 doc: /* Get the current datagram address associated with PROCESS. */)
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2466 (process)
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2467 Lisp_Object process;
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2468 {
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2469 int channel;
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2470
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2471 CHECK_PROCESS (process);
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2472
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2473 if (!DATAGRAM_CONN_P (process))
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2474 return Qnil;
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2475
81826
077a1e6fd3f2 (struct Lisp_Process): Turn slots infd, outfd, kill_without_query, pty_flag,
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 80984
diff changeset
2476 channel = XPROCESS (process)->infd;
43968
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2477 return conv_sockaddr_to_lisp (datagram_address[channel].sa,
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2478 datagram_address[channel].len);
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2479 }
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2480
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2481 DEFUN ("set-process-datagram-address", Fset_process_datagram_address, Sset_process_datagram_address,
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2482 2, 2, 0,
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2483 doc: /* Set the datagram address for PROCESS to ADDRESS.
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2484 Returns nil upon error setting address, ADDRESS otherwise. */)
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2485 (process, address)
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2486 Lisp_Object process, address;
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2487 {
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2488 int channel;
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2489 int family, len;
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2490
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2491 CHECK_PROCESS (process);
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2492
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2493 if (!DATAGRAM_CONN_P (process))
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2494 return Qnil;
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2495
81826
077a1e6fd3f2 (struct Lisp_Process): Turn slots infd, outfd, kill_without_query, pty_flag,
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 80984
diff changeset
2496 channel = XPROCESS (process)->infd;
43968
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2497
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2498 len = get_lisp_to_sockaddr_size (address, &family);
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2499 if (datagram_address[channel].len != len)
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2500 return Qnil;
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2501 conv_lisp_to_sockaddr (family, address, datagram_address[channel].sa, len);
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2502 return address;
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2503 }
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2504 #endif
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2505
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2506
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2507 static struct socket_options {
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2508 /* The name of this option. Should be lowercase version of option
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 49281
diff changeset
2509 name without SO_ prefix. */
43968
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2510 char *name;
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2511 /* Option level SOL_... */
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2512 int optlevel;
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2513 /* Option number SO_... */
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2514 int optnum;
52594
d03629d1d293 (set_socket_option): Fix :bindtodevice option.
Kim F. Storm <storm@cua.dk>
parents: 52591
diff changeset
2515 enum { SOPT_UNKNOWN, SOPT_BOOL, SOPT_INT, SOPT_IFNAME, SOPT_LINGER } opttype;
52516
0ca23eb697b9 (Fset_process_sentinel): Add sentinel to childp plist
Kim F. Storm <storm@cua.dk>
parents: 52503
diff changeset
2516 enum { OPIX_NONE=0, OPIX_MISC=1, OPIX_REUSEADDR=2 } optbit;
43968
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2517 } socket_options[] =
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2518 {
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2519 #ifdef SO_BINDTODEVICE
52594
d03629d1d293 (set_socket_option): Fix :bindtodevice option.
Kim F. Storm <storm@cua.dk>
parents: 52591
diff changeset
2520 { ":bindtodevice", SOL_SOCKET, SO_BINDTODEVICE, SOPT_IFNAME, OPIX_MISC },
43968
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2521 #endif
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2522 #ifdef SO_BROADCAST
52516
0ca23eb697b9 (Fset_process_sentinel): Add sentinel to childp plist
Kim F. Storm <storm@cua.dk>
parents: 52503
diff changeset
2523 { ":broadcast", SOL_SOCKET, SO_BROADCAST, SOPT_BOOL, OPIX_MISC },
43968
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2524 #endif
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2525 #ifdef SO_DONTROUTE
52516
0ca23eb697b9 (Fset_process_sentinel): Add sentinel to childp plist
Kim F. Storm <storm@cua.dk>
parents: 52503
diff changeset
2526 { ":dontroute", SOL_SOCKET, SO_DONTROUTE, SOPT_BOOL, OPIX_MISC },
43968
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2527 #endif
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2528 #ifdef SO_KEEPALIVE
52516
0ca23eb697b9 (Fset_process_sentinel): Add sentinel to childp plist
Kim F. Storm <storm@cua.dk>
parents: 52503
diff changeset
2529 { ":keepalive", SOL_SOCKET, SO_KEEPALIVE, SOPT_BOOL, OPIX_MISC },
43968
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2530 #endif
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2531 #ifdef SO_LINGER
52516
0ca23eb697b9 (Fset_process_sentinel): Add sentinel to childp plist
Kim F. Storm <storm@cua.dk>
parents: 52503
diff changeset
2532 { ":linger", SOL_SOCKET, SO_LINGER, SOPT_LINGER, OPIX_MISC },
43968
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2533 #endif
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2534 #ifdef SO_OOBINLINE
52516
0ca23eb697b9 (Fset_process_sentinel): Add sentinel to childp plist
Kim F. Storm <storm@cua.dk>
parents: 52503
diff changeset
2535 { ":oobinline", SOL_SOCKET, SO_OOBINLINE, SOPT_BOOL, OPIX_MISC },
43968
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2536 #endif
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2537 #ifdef SO_PRIORITY
52516
0ca23eb697b9 (Fset_process_sentinel): Add sentinel to childp plist
Kim F. Storm <storm@cua.dk>
parents: 52503
diff changeset
2538 { ":priority", SOL_SOCKET, SO_PRIORITY, SOPT_INT, OPIX_MISC },
43968
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2539 #endif
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2540 #ifdef SO_REUSEADDR
52516
0ca23eb697b9 (Fset_process_sentinel): Add sentinel to childp plist
Kim F. Storm <storm@cua.dk>
parents: 52503
diff changeset
2541 { ":reuseaddr", SOL_SOCKET, SO_REUSEADDR, SOPT_BOOL, OPIX_REUSEADDR },
0ca23eb697b9 (Fset_process_sentinel): Add sentinel to childp plist
Kim F. Storm <storm@cua.dk>
parents: 52503
diff changeset
2542 #endif
0ca23eb697b9 (Fset_process_sentinel): Add sentinel to childp plist
Kim F. Storm <storm@cua.dk>
parents: 52503
diff changeset
2543 { 0, 0, 0, SOPT_UNKNOWN, OPIX_NONE }
43968
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2544 };
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2545
52516
0ca23eb697b9 (Fset_process_sentinel): Add sentinel to childp plist
Kim F. Storm <storm@cua.dk>
parents: 52503
diff changeset
2546 /* Set option OPT to value VAL on socket S.
0ca23eb697b9 (Fset_process_sentinel): Add sentinel to childp plist
Kim F. Storm <storm@cua.dk>
parents: 52503
diff changeset
2547
0ca23eb697b9 (Fset_process_sentinel): Add sentinel to childp plist
Kim F. Storm <storm@cua.dk>
parents: 52503
diff changeset
2548 Returns (1<<socket_options[OPT].optbit) if option is known, 0 otherwise.
0ca23eb697b9 (Fset_process_sentinel): Add sentinel to childp plist
Kim F. Storm <storm@cua.dk>
parents: 52503
diff changeset
2549 Signals an error if setting a known option fails.
0ca23eb697b9 (Fset_process_sentinel): Add sentinel to childp plist
Kim F. Storm <storm@cua.dk>
parents: 52503
diff changeset
2550 */
43968
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2551
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2552 static int
52516
0ca23eb697b9 (Fset_process_sentinel): Add sentinel to childp plist
Kim F. Storm <storm@cua.dk>
parents: 52503
diff changeset
2553 set_socket_option (s, opt, val)
43968
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2554 int s;
52516
0ca23eb697b9 (Fset_process_sentinel): Add sentinel to childp plist
Kim F. Storm <storm@cua.dk>
parents: 52503
diff changeset
2555 Lisp_Object opt, val;
43968
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2556 {
52516
0ca23eb697b9 (Fset_process_sentinel): Add sentinel to childp plist
Kim F. Storm <storm@cua.dk>
parents: 52503
diff changeset
2557 char *name;
0ca23eb697b9 (Fset_process_sentinel): Add sentinel to childp plist
Kim F. Storm <storm@cua.dk>
parents: 52503
diff changeset
2558 struct socket_options *sopt;
0ca23eb697b9 (Fset_process_sentinel): Add sentinel to childp plist
Kim F. Storm <storm@cua.dk>
parents: 52503
diff changeset
2559 int ret = 0;
0ca23eb697b9 (Fset_process_sentinel): Add sentinel to childp plist
Kim F. Storm <storm@cua.dk>
parents: 52503
diff changeset
2560
0ca23eb697b9 (Fset_process_sentinel): Add sentinel to childp plist
Kim F. Storm <storm@cua.dk>
parents: 52503
diff changeset
2561 CHECK_SYMBOL (opt);
0ca23eb697b9 (Fset_process_sentinel): Add sentinel to childp plist
Kim F. Storm <storm@cua.dk>
parents: 52503
diff changeset
2562
0ca23eb697b9 (Fset_process_sentinel): Add sentinel to childp plist
Kim F. Storm <storm@cua.dk>
parents: 52503
diff changeset
2563 name = (char *) SDATA (SYMBOL_NAME (opt));
0ca23eb697b9 (Fset_process_sentinel): Add sentinel to childp plist
Kim F. Storm <storm@cua.dk>
parents: 52503
diff changeset
2564 for (sopt = socket_options; sopt->name; sopt++)
0ca23eb697b9 (Fset_process_sentinel): Add sentinel to childp plist
Kim F. Storm <storm@cua.dk>
parents: 52503
diff changeset
2565 if (strcmp (name, sopt->name) == 0)
0ca23eb697b9 (Fset_process_sentinel): Add sentinel to childp plist
Kim F. Storm <storm@cua.dk>
parents: 52503
diff changeset
2566 break;
0ca23eb697b9 (Fset_process_sentinel): Add sentinel to childp plist
Kim F. Storm <storm@cua.dk>
parents: 52503
diff changeset
2567
0ca23eb697b9 (Fset_process_sentinel): Add sentinel to childp plist
Kim F. Storm <storm@cua.dk>
parents: 52503
diff changeset
2568 switch (sopt->opttype)
43968
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2569 {
52516
0ca23eb697b9 (Fset_process_sentinel): Add sentinel to childp plist
Kim F. Storm <storm@cua.dk>
parents: 52503
diff changeset
2570 case SOPT_BOOL:
0ca23eb697b9 (Fset_process_sentinel): Add sentinel to childp plist
Kim F. Storm <storm@cua.dk>
parents: 52503
diff changeset
2571 {
0ca23eb697b9 (Fset_process_sentinel): Add sentinel to childp plist
Kim F. Storm <storm@cua.dk>
parents: 52503
diff changeset
2572 int optval;
0ca23eb697b9 (Fset_process_sentinel): Add sentinel to childp plist
Kim F. Storm <storm@cua.dk>
parents: 52503
diff changeset
2573 optval = NILP (val) ? 0 : 1;
0ca23eb697b9 (Fset_process_sentinel): Add sentinel to childp plist
Kim F. Storm <storm@cua.dk>
parents: 52503
diff changeset
2574 ret = setsockopt (s, sopt->optlevel, sopt->optnum,
0ca23eb697b9 (Fset_process_sentinel): Add sentinel to childp plist
Kim F. Storm <storm@cua.dk>
parents: 52503
diff changeset
2575 &optval, sizeof (optval));
0ca23eb697b9 (Fset_process_sentinel): Add sentinel to childp plist
Kim F. Storm <storm@cua.dk>
parents: 52503
diff changeset
2576 break;
43968
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2577 }
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2578
52516
0ca23eb697b9 (Fset_process_sentinel): Add sentinel to childp plist
Kim F. Storm <storm@cua.dk>
parents: 52503
diff changeset
2579 case SOPT_INT:
0ca23eb697b9 (Fset_process_sentinel): Add sentinel to childp plist
Kim F. Storm <storm@cua.dk>
parents: 52503
diff changeset
2580 {
0ca23eb697b9 (Fset_process_sentinel): Add sentinel to childp plist
Kim F. Storm <storm@cua.dk>
parents: 52503
diff changeset
2581 int optval;
0ca23eb697b9 (Fset_process_sentinel): Add sentinel to childp plist
Kim F. Storm <storm@cua.dk>
parents: 52503
diff changeset
2582 if (INTEGERP (val))
0ca23eb697b9 (Fset_process_sentinel): Add sentinel to childp plist
Kim F. Storm <storm@cua.dk>
parents: 52503
diff changeset
2583 optval = XINT (val);
0ca23eb697b9 (Fset_process_sentinel): Add sentinel to childp plist
Kim F. Storm <storm@cua.dk>
parents: 52503
diff changeset
2584 else
0ca23eb697b9 (Fset_process_sentinel): Add sentinel to childp plist
Kim F. Storm <storm@cua.dk>
parents: 52503
diff changeset
2585 error ("Bad option value for %s", name);
0ca23eb697b9 (Fset_process_sentinel): Add sentinel to childp plist
Kim F. Storm <storm@cua.dk>
parents: 52503
diff changeset
2586 ret = setsockopt (s, sopt->optlevel, sopt->optnum,
0ca23eb697b9 (Fset_process_sentinel): Add sentinel to childp plist
Kim F. Storm <storm@cua.dk>
parents: 52503
diff changeset
2587 &optval, sizeof (optval));
0ca23eb697b9 (Fset_process_sentinel): Add sentinel to childp plist
Kim F. Storm <storm@cua.dk>
parents: 52503
diff changeset
2588 break;
0ca23eb697b9 (Fset_process_sentinel): Add sentinel to childp plist
Kim F. Storm <storm@cua.dk>
parents: 52503
diff changeset
2589 }
0ca23eb697b9 (Fset_process_sentinel): Add sentinel to childp plist
Kim F. Storm <storm@cua.dk>
parents: 52503
diff changeset
2590
52594
d03629d1d293 (set_socket_option): Fix :bindtodevice option.
Kim F. Storm <storm@cua.dk>
parents: 52591
diff changeset
2591 #ifdef SO_BINDTODEVICE
d03629d1d293 (set_socket_option): Fix :bindtodevice option.
Kim F. Storm <storm@cua.dk>
parents: 52591
diff changeset
2592 case SOPT_IFNAME:
52516
0ca23eb697b9 (Fset_process_sentinel): Add sentinel to childp plist
Kim F. Storm <storm@cua.dk>
parents: 52503
diff changeset
2593 {
52594
d03629d1d293 (set_socket_option): Fix :bindtodevice option.
Kim F. Storm <storm@cua.dk>
parents: 52591
diff changeset
2594 char devname[IFNAMSIZ+1];
d03629d1d293 (set_socket_option): Fix :bindtodevice option.
Kim F. Storm <storm@cua.dk>
parents: 52591
diff changeset
2595
d03629d1d293 (set_socket_option): Fix :bindtodevice option.
Kim F. Storm <storm@cua.dk>
parents: 52591
diff changeset
2596 /* This is broken, at least in the Linux 2.4 kernel.
d03629d1d293 (set_socket_option): Fix :bindtodevice option.
Kim F. Storm <storm@cua.dk>
parents: 52591
diff changeset
2597 To unbind, the arg must be a zero integer, not the empty string.
d03629d1d293 (set_socket_option): Fix :bindtodevice option.
Kim F. Storm <storm@cua.dk>
parents: 52591
diff changeset
2598 This should work on all systems. KFS. 2003-09-23. */
d03629d1d293 (set_socket_option): Fix :bindtodevice option.
Kim F. Storm <storm@cua.dk>
parents: 52591
diff changeset
2599 bzero (devname, sizeof devname);
d03629d1d293 (set_socket_option): Fix :bindtodevice option.
Kim F. Storm <storm@cua.dk>
parents: 52591
diff changeset
2600 if (STRINGP (val))
d03629d1d293 (set_socket_option): Fix :bindtodevice option.
Kim F. Storm <storm@cua.dk>
parents: 52591
diff changeset
2601 {
d03629d1d293 (set_socket_option): Fix :bindtodevice option.
Kim F. Storm <storm@cua.dk>
parents: 52591
diff changeset
2602 char *arg = (char *) SDATA (val);
d03629d1d293 (set_socket_option): Fix :bindtodevice option.
Kim F. Storm <storm@cua.dk>
parents: 52591
diff changeset
2603 int len = min (strlen (arg), IFNAMSIZ);
d03629d1d293 (set_socket_option): Fix :bindtodevice option.
Kim F. Storm <storm@cua.dk>
parents: 52591
diff changeset
2604 bcopy (arg, devname, len);
d03629d1d293 (set_socket_option): Fix :bindtodevice option.
Kim F. Storm <storm@cua.dk>
parents: 52591
diff changeset
2605 }
d03629d1d293 (set_socket_option): Fix :bindtodevice option.
Kim F. Storm <storm@cua.dk>
parents: 52591
diff changeset
2606 else if (!NILP (val))
52516
0ca23eb697b9 (Fset_process_sentinel): Add sentinel to childp plist
Kim F. Storm <storm@cua.dk>
parents: 52503
diff changeset
2607 error ("Bad option value for %s", name);
0ca23eb697b9 (Fset_process_sentinel): Add sentinel to childp plist
Kim F. Storm <storm@cua.dk>
parents: 52503
diff changeset
2608 ret = setsockopt (s, sopt->optlevel, sopt->optnum,
52594
d03629d1d293 (set_socket_option): Fix :bindtodevice option.
Kim F. Storm <storm@cua.dk>
parents: 52591
diff changeset
2609 devname, IFNAMSIZ);
d03629d1d293 (set_socket_option): Fix :bindtodevice option.
Kim F. Storm <storm@cua.dk>
parents: 52591
diff changeset
2610 break;
52516
0ca23eb697b9 (Fset_process_sentinel): Add sentinel to childp plist
Kim F. Storm <storm@cua.dk>
parents: 52503
diff changeset
2611 }
52594
d03629d1d293 (set_socket_option): Fix :bindtodevice option.
Kim F. Storm <storm@cua.dk>
parents: 52591
diff changeset
2612 #endif
43968
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2613
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 49281
diff changeset
2614 #ifdef SO_LINGER
52516
0ca23eb697b9 (Fset_process_sentinel): Add sentinel to childp plist
Kim F. Storm <storm@cua.dk>
parents: 52503
diff changeset
2615 case SOPT_LINGER:
0ca23eb697b9 (Fset_process_sentinel): Add sentinel to childp plist
Kim F. Storm <storm@cua.dk>
parents: 52503
diff changeset
2616 {
0ca23eb697b9 (Fset_process_sentinel): Add sentinel to childp plist
Kim F. Storm <storm@cua.dk>
parents: 52503
diff changeset
2617 struct linger linger;
0ca23eb697b9 (Fset_process_sentinel): Add sentinel to childp plist
Kim F. Storm <storm@cua.dk>
parents: 52503
diff changeset
2618
0ca23eb697b9 (Fset_process_sentinel): Add sentinel to childp plist
Kim F. Storm <storm@cua.dk>
parents: 52503
diff changeset
2619 linger.l_onoff = 1;
0ca23eb697b9 (Fset_process_sentinel): Add sentinel to childp plist
Kim F. Storm <storm@cua.dk>
parents: 52503
diff changeset
2620 linger.l_linger = 0;
0ca23eb697b9 (Fset_process_sentinel): Add sentinel to childp plist
Kim F. Storm <storm@cua.dk>
parents: 52503
diff changeset
2621 if (INTEGERP (val))
0ca23eb697b9 (Fset_process_sentinel): Add sentinel to childp plist
Kim F. Storm <storm@cua.dk>
parents: 52503
diff changeset
2622 linger.l_linger = XINT (val);
0ca23eb697b9 (Fset_process_sentinel): Add sentinel to childp plist
Kim F. Storm <storm@cua.dk>
parents: 52503
diff changeset
2623 else
0ca23eb697b9 (Fset_process_sentinel): Add sentinel to childp plist
Kim F. Storm <storm@cua.dk>
parents: 52503
diff changeset
2624 linger.l_onoff = NILP (val) ? 0 : 1;
0ca23eb697b9 (Fset_process_sentinel): Add sentinel to childp plist
Kim F. Storm <storm@cua.dk>
parents: 52503
diff changeset
2625 ret = setsockopt (s, sopt->optlevel, sopt->optnum,
0ca23eb697b9 (Fset_process_sentinel): Add sentinel to childp plist
Kim F. Storm <storm@cua.dk>
parents: 52503
diff changeset
2626 &linger, sizeof (linger));
0ca23eb697b9 (Fset_process_sentinel): Add sentinel to childp plist
Kim F. Storm <storm@cua.dk>
parents: 52503
diff changeset
2627 break;
0ca23eb697b9 (Fset_process_sentinel): Add sentinel to childp plist
Kim F. Storm <storm@cua.dk>
parents: 52503
diff changeset
2628 }
0ca23eb697b9 (Fset_process_sentinel): Add sentinel to childp plist
Kim F. Storm <storm@cua.dk>
parents: 52503
diff changeset
2629 #endif
0ca23eb697b9 (Fset_process_sentinel): Add sentinel to childp plist
Kim F. Storm <storm@cua.dk>
parents: 52503
diff changeset
2630
0ca23eb697b9 (Fset_process_sentinel): Add sentinel to childp plist
Kim F. Storm <storm@cua.dk>
parents: 52503
diff changeset
2631 default:
0ca23eb697b9 (Fset_process_sentinel): Add sentinel to childp plist
Kim F. Storm <storm@cua.dk>
parents: 52503
diff changeset
2632 return 0;
43968
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2633 }
52516
0ca23eb697b9 (Fset_process_sentinel): Add sentinel to childp plist
Kim F. Storm <storm@cua.dk>
parents: 52503
diff changeset
2634
0ca23eb697b9 (Fset_process_sentinel): Add sentinel to childp plist
Kim F. Storm <storm@cua.dk>
parents: 52503
diff changeset
2635 if (ret < 0)
0ca23eb697b9 (Fset_process_sentinel): Add sentinel to childp plist
Kim F. Storm <storm@cua.dk>
parents: 52503
diff changeset
2636 report_file_error ("Cannot set network option",
0ca23eb697b9 (Fset_process_sentinel): Add sentinel to childp plist
Kim F. Storm <storm@cua.dk>
parents: 52503
diff changeset
2637 Fcons (opt, Fcons (val, Qnil)));
0ca23eb697b9 (Fset_process_sentinel): Add sentinel to childp plist
Kim F. Storm <storm@cua.dk>
parents: 52503
diff changeset
2638 return (1 << sopt->optbit);
43968
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2639 }
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2640
52516
0ca23eb697b9 (Fset_process_sentinel): Add sentinel to childp plist
Kim F. Storm <storm@cua.dk>
parents: 52503
diff changeset
2641
0ca23eb697b9 (Fset_process_sentinel): Add sentinel to childp plist
Kim F. Storm <storm@cua.dk>
parents: 52503
diff changeset
2642 DEFUN ("set-network-process-option",
0ca23eb697b9 (Fset_process_sentinel): Add sentinel to childp plist
Kim F. Storm <storm@cua.dk>
parents: 52503
diff changeset
2643 Fset_network_process_option, Sset_network_process_option,
0ca23eb697b9 (Fset_process_sentinel): Add sentinel to childp plist
Kim F. Storm <storm@cua.dk>
parents: 52503
diff changeset
2644 3, 4, 0,
0ca23eb697b9 (Fset_process_sentinel): Add sentinel to childp plist
Kim F. Storm <storm@cua.dk>
parents: 52503
diff changeset
2645 doc: /* For network process PROCESS set option OPTION to value VALUE.
0ca23eb697b9 (Fset_process_sentinel): Add sentinel to childp plist
Kim F. Storm <storm@cua.dk>
parents: 52503
diff changeset
2646 See `make-network-process' for a list of options and values.
0ca23eb697b9 (Fset_process_sentinel): Add sentinel to childp plist
Kim F. Storm <storm@cua.dk>
parents: 52503
diff changeset
2647 If optional fourth arg NO-ERROR is non-nil, don't signal an error if
0ca23eb697b9 (Fset_process_sentinel): Add sentinel to childp plist
Kim F. Storm <storm@cua.dk>
parents: 52503
diff changeset
2648 OPTION is not a supported option, return nil instead; otherwise return t. */)
0ca23eb697b9 (Fset_process_sentinel): Add sentinel to childp plist
Kim F. Storm <storm@cua.dk>
parents: 52503
diff changeset
2649 (process, option, value, no_error)
0ca23eb697b9 (Fset_process_sentinel): Add sentinel to childp plist
Kim F. Storm <storm@cua.dk>
parents: 52503
diff changeset
2650 Lisp_Object process, option, value;
0ca23eb697b9 (Fset_process_sentinel): Add sentinel to childp plist
Kim F. Storm <storm@cua.dk>
parents: 52503
diff changeset
2651 Lisp_Object no_error;
43968
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2652 {
52527
3ea59ac8dfa5 (Fnetwork_interface_info): Fix type error.
Dave Love <fx@gnu.org>
parents: 52525
diff changeset
2653 int s;
52594
d03629d1d293 (set_socket_option): Fix :bindtodevice option.
Kim F. Storm <storm@cua.dk>
parents: 52591
diff changeset
2654 struct Lisp_Process *p;
52516
0ca23eb697b9 (Fset_process_sentinel): Add sentinel to childp plist
Kim F. Storm <storm@cua.dk>
parents: 52503
diff changeset
2655
43968
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2656 CHECK_PROCESS (process);
52594
d03629d1d293 (set_socket_option): Fix :bindtodevice option.
Kim F. Storm <storm@cua.dk>
parents: 52591
diff changeset
2657 p = XPROCESS (process);
d03629d1d293 (set_socket_option): Fix :bindtodevice option.
Kim F. Storm <storm@cua.dk>
parents: 52591
diff changeset
2658 if (!NETCONN1_P (p))
d03629d1d293 (set_socket_option): Fix :bindtodevice option.
Kim F. Storm <storm@cua.dk>
parents: 52591
diff changeset
2659 error ("Process is not a network process");
d03629d1d293 (set_socket_option): Fix :bindtodevice option.
Kim F. Storm <storm@cua.dk>
parents: 52591
diff changeset
2660
81826
077a1e6fd3f2 (struct Lisp_Process): Turn slots infd, outfd, kill_without_query, pty_flag,
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 80984
diff changeset
2661 s = p->infd;
52516
0ca23eb697b9 (Fset_process_sentinel): Add sentinel to childp plist
Kim F. Storm <storm@cua.dk>
parents: 52503
diff changeset
2662 if (s < 0)
0ca23eb697b9 (Fset_process_sentinel): Add sentinel to childp plist
Kim F. Storm <storm@cua.dk>
parents: 52503
diff changeset
2663 error ("Process is not running");
0ca23eb697b9 (Fset_process_sentinel): Add sentinel to childp plist
Kim F. Storm <storm@cua.dk>
parents: 52503
diff changeset
2664
0ca23eb697b9 (Fset_process_sentinel): Add sentinel to childp plist
Kim F. Storm <storm@cua.dk>
parents: 52503
diff changeset
2665 if (set_socket_option (s, option, value))
52594
d03629d1d293 (set_socket_option): Fix :bindtodevice option.
Kim F. Storm <storm@cua.dk>
parents: 52591
diff changeset
2666 {
d03629d1d293 (set_socket_option): Fix :bindtodevice option.
Kim F. Storm <storm@cua.dk>
parents: 52591
diff changeset
2667 p->childp = Fplist_put (p->childp, option, value);
d03629d1d293 (set_socket_option): Fix :bindtodevice option.
Kim F. Storm <storm@cua.dk>
parents: 52591
diff changeset
2668 return Qt;
d03629d1d293 (set_socket_option): Fix :bindtodevice option.
Kim F. Storm <storm@cua.dk>
parents: 52591
diff changeset
2669 }
52516
0ca23eb697b9 (Fset_process_sentinel): Add sentinel to childp plist
Kim F. Storm <storm@cua.dk>
parents: 52503
diff changeset
2670
0ca23eb697b9 (Fset_process_sentinel): Add sentinel to childp plist
Kim F. Storm <storm@cua.dk>
parents: 52503
diff changeset
2671 if (NILP (no_error))
0ca23eb697b9 (Fset_process_sentinel): Add sentinel to childp plist
Kim F. Storm <storm@cua.dk>
parents: 52503
diff changeset
2672 error ("Unknown or unsupported option");
0ca23eb697b9 (Fset_process_sentinel): Add sentinel to childp plist
Kim F. Storm <storm@cua.dk>
parents: 52503
diff changeset
2673
0ca23eb697b9 (Fset_process_sentinel): Add sentinel to childp plist
Kim F. Storm <storm@cua.dk>
parents: 52503
diff changeset
2674 return Qnil;
43968
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2675 }
52516
0ca23eb697b9 (Fset_process_sentinel): Add sentinel to childp plist
Kim F. Storm <storm@cua.dk>
parents: 52503
diff changeset
2676
43968
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2677
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2678 /* A version of request_sigio suitable for a record_unwind_protect. */
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2679
64977
d26871fb1b7b (deactivate_process, status_notify, read_process_output)
Kim F. Storm <storm@cua.dk>
parents: 64770
diff changeset
2680 static Lisp_Object
43968
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2681 unwind_request_sigio (dummy)
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2682 Lisp_Object dummy;
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2683 {
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2684 if (interrupt_input)
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2685 request_sigio ();
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2686 return Qnil;
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2687 }
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2688
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2689 /* Create a network stream/datagram client/server process. Treated
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2690 exactly like a normal process when reading and writing. Primary
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2691 differences are in status display and process deletion. A network
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2692 connection has no PID; you cannot signal it. All you can do is
43968
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2693 stop/continue it and deactivate/close it via delete-process */
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2694
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 49281
diff changeset
2695 DEFUN ("make-network-process", Fmake_network_process, Smake_network_process,
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 49281
diff changeset
2696 0, MANY, 0,
43968
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2697 doc: /* Create and return a network server or client process.
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2698
43995
110955214222 (Fmake_network_process): Remove unused variable `sa'.
Pavel Janík <Pavel@Janik.cz>
parents: 43968
diff changeset
2699 In Emacs, network connections are represented by process objects, so
43968
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2700 input and output work as for subprocesses and `delete-process' closes
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2701 a network connection. However, a network process has no process id,
63615
be4c8c1258c1 (Fmake_network_process): Fix spellings.
Juanma Barranquero <lekktu@gmail.com>
parents: 63278
diff changeset
2702 it cannot be signaled, and the status codes are different from normal
43968
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2703 processes.
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2704
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2705 Arguments are specified as keyword/argument pairs. The following
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2706 arguments are defined:
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2707
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2708 :name NAME -- NAME is name for process. It is modified if necessary
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2709 to make it unique.
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2710
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2711 :buffer BUFFER -- BUFFER is the buffer (or buffer-name) to associate
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2712 with the process. Process output goes at end of that buffer, unless
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2713 you specify an output stream or filter function to handle the output.
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2714 BUFFER may be also nil, meaning that this process is not associated
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2715 with any buffer.
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2716
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2717 :host HOST -- HOST is name of the host to connect to, or its IP
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2718 address. The symbol `local' specifies the local host. If specified
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2719 for a server process, it must be a valid name or address for the local
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2720 host, and only clients connecting to that address will be accepted.
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2721
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2722 :service SERVICE -- SERVICE is name of the service desired, or an
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2723 integer specifying a port number to connect to. If SERVICE is t,
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2724 a random port number is selected for the server.
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2725
44067
e8a136850817 (QCfeature, QCdatagram): Removed variables.
Kim F. Storm <storm@cua.dk>
parents: 44041
diff changeset
2726 :type TYPE -- TYPE is the type of connection. The default (nil) is a
e8a136850817 (QCfeature, QCdatagram): Removed variables.
Kim F. Storm <storm@cua.dk>
parents: 44041
diff changeset
2727 stream type connection, `datagram' creates a datagram type connection.
e8a136850817 (QCfeature, QCdatagram): Removed variables.
Kim F. Storm <storm@cua.dk>
parents: 44041
diff changeset
2728
43968
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2729 :family FAMILY -- FAMILY is the address (and protocol) family for the
68008
10f0a09ec82e Add IPv6 support.
Kim F. Storm <storm@cua.dk>
parents: 67920
diff changeset
2730 service specified by HOST and SERVICE. The default (nil) is to use
10f0a09ec82e Add IPv6 support.
Kim F. Storm <storm@cua.dk>
parents: 67920
diff changeset
2731 whatever address family (IPv4 or IPv6) that is defined for the host
10f0a09ec82e Add IPv6 support.
Kim F. Storm <storm@cua.dk>
parents: 67920
diff changeset
2732 and port number specified by HOST and SERVICE. Other address families
10f0a09ec82e Add IPv6 support.
Kim F. Storm <storm@cua.dk>
parents: 67920
diff changeset
2733 supported are:
43968
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2734 local -- for a local (i.e. UNIX) address specified by SERVICE.
68008
10f0a09ec82e Add IPv6 support.
Kim F. Storm <storm@cua.dk>
parents: 67920
diff changeset
2735 ipv4 -- use IPv4 address family only.
10f0a09ec82e Add IPv6 support.
Kim F. Storm <storm@cua.dk>
parents: 67920
diff changeset
2736 ipv6 -- use IPv6 address family only.
43968
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2737
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2738 :local ADDRESS -- ADDRESS is the local address used for the connection.
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2739 This parameter is ignored when opening a client process. When specified
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2740 for a server process, the FAMILY, HOST and SERVICE args are ignored.
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2741
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2742 :remote ADDRESS -- ADDRESS is the remote partner's address for the
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2743 connection. This parameter is ignored when opening a stream server
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2744 process. For a datagram server process, it specifies the initial
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2745 setting of the remote datagram address. When specified for a client
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2746 process, the FAMILY, HOST, and SERVICE args are ignored.
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2747
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2748 The format of ADDRESS depends on the address family:
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2749 - An IPv4 address is represented as an vector of integers [A B C D P]
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2750 corresponding to numeric IP address A.B.C.D and port number P.
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2751 - A local address is represented as a string with the address in the
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2752 local address space.
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2753 - An "unsupported family" address is represented by a cons (F . AV)
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2754 where F is the family number and AV is a vector containing the socket
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2755 address data with one element per address data byte. Do not rely on
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2756 this format in portable code, as it may depend on implementation
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2757 defined constants, data sizes, and data structure alignment.
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2758
52516
0ca23eb697b9 (Fset_process_sentinel): Add sentinel to childp plist
Kim F. Storm <storm@cua.dk>
parents: 52503
diff changeset
2759 :coding CODING -- If CODING is a symbol, it specifies the coding
0ca23eb697b9 (Fset_process_sentinel): Add sentinel to childp plist
Kim F. Storm <storm@cua.dk>
parents: 52503
diff changeset
2760 system used for both reading and writing for this process. If CODING
0ca23eb697b9 (Fset_process_sentinel): Add sentinel to childp plist
Kim F. Storm <storm@cua.dk>
parents: 52503
diff changeset
2761 is a cons (DECODING . ENCODING), DECODING is used for reading, and
0ca23eb697b9 (Fset_process_sentinel): Add sentinel to childp plist
Kim F. Storm <storm@cua.dk>
parents: 52503
diff changeset
2762 ENCODING is used for writing.
43968
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2763
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2764 :nowait BOOL -- If BOOL is non-nil for a stream type client process,
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2765 return without waiting for the connection to complete; instead, the
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2766 sentinel function will be called with second arg matching "open" (if
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2767 successful) or "failed" when the connect completes. Default is to use
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2768 a blocking connect (i.e. wait) for stream type connections.
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2769
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2770 :noquery BOOL -- Query the user unless BOOL is non-nil, and process is
55444
976d03256b41 (Fwaiting_for_user_input_p, Fmake_network_process)
Juanma Barranquero <lekktu@gmail.com>
parents: 53835
diff changeset
2771 running when Emacs is exited.
43968
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2772
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2773 :stop BOOL -- Start process in the `stopped' state if BOOL non-nil.
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2774 In the stopped state, a server process does not accept new
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2775 connections, and a client process does not handle incoming traffic.
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2776 The stopped state is cleared by `continue-process' and set by
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2777 `stop-process'.
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2778
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2779 :filter FILTER -- Install FILTER as the process filter.
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2780
49680
7c27c9efd353 Doc fixes.
Kim F. Storm <storm@cua.dk>
parents: 49667
diff changeset
2781 :filter-multibyte BOOL -- If BOOL is non-nil, strings given to the
7c27c9efd353 Doc fixes.
Kim F. Storm <storm@cua.dk>
parents: 49667
diff changeset
2782 process filter are multibyte, otherwise they are unibyte.
78501
1677cf1c2509 Replace `iff' in comments.
Glenn Morris <rgm@gnu.org>
parents: 78260
diff changeset
2783 If this keyword is not specified, the strings are multibyte if
49667
cbec1327e2f1 (QCfilter_multibyte): New variable.
Kenichi Handa <handa@m17n.org>
parents: 49600
diff changeset
2784 `default-enable-multibyte-characters' is non-nil.
cbec1327e2f1 (QCfilter_multibyte): New variable.
Kenichi Handa <handa@m17n.org>
parents: 49600
diff changeset
2785
43968
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2786 :sentinel SENTINEL -- Install SENTINEL as the process sentinel.
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2787
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2788 :log LOG -- Install LOG as the server process log function. This
47987
b30942bd85f3 (Fformat_network_address): New function.
Kim F. Storm <storm@cua.dk>
parents: 47542
diff changeset
2789 function is called when the server accepts a network connection from a
43968
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2790 client. The arguments are SERVER, CLIENT, and MESSAGE, where SERVER
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2791 is the server process, CLIENT is the new process for the connection,
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2792 and MESSAGE is a string.
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2793
49223
26622fa0d099 Reworked 2003-01-12 change -- call a plist a plist!
Kim F. Storm <storm@cua.dk>
parents: 49164
diff changeset
2794 :plist PLIST -- Install PLIST as the new process' initial plist.
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 49281
diff changeset
2795
52516
0ca23eb697b9 (Fset_process_sentinel): Add sentinel to childp plist
Kim F. Storm <storm@cua.dk>
parents: 52503
diff changeset
2796 :server QLEN -- if QLEN is non-nil, create a server process for the
43968
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2797 specified FAMILY, SERVICE, and connection type (stream or datagram).
52516
0ca23eb697b9 (Fset_process_sentinel): Add sentinel to childp plist
Kim F. Storm <storm@cua.dk>
parents: 52503
diff changeset
2798 If QLEN is an integer, it is used as the max. length of the server's
0ca23eb697b9 (Fset_process_sentinel): Add sentinel to childp plist
Kim F. Storm <storm@cua.dk>
parents: 52503
diff changeset
2799 pending connection queue (also known as the backlog); the default
0ca23eb697b9 (Fset_process_sentinel): Add sentinel to childp plist
Kim F. Storm <storm@cua.dk>
parents: 52503
diff changeset
2800 queue length is 5. Default is to create a client process.
0ca23eb697b9 (Fset_process_sentinel): Add sentinel to childp plist
Kim F. Storm <storm@cua.dk>
parents: 52503
diff changeset
2801
0ca23eb697b9 (Fset_process_sentinel): Add sentinel to childp plist
Kim F. Storm <storm@cua.dk>
parents: 52503
diff changeset
2802 The following network options can be specified for this connection:
0ca23eb697b9 (Fset_process_sentinel): Add sentinel to childp plist
Kim F. Storm <storm@cua.dk>
parents: 52503
diff changeset
2803
0ca23eb697b9 (Fset_process_sentinel): Add sentinel to childp plist
Kim F. Storm <storm@cua.dk>
parents: 52503
diff changeset
2804 :broadcast BOOL -- Allow send and receive of datagram broadcasts.
0ca23eb697b9 (Fset_process_sentinel): Add sentinel to childp plist
Kim F. Storm <storm@cua.dk>
parents: 52503
diff changeset
2805 :dontroute BOOL -- Only send to directly connected hosts.
0ca23eb697b9 (Fset_process_sentinel): Add sentinel to childp plist
Kim F. Storm <storm@cua.dk>
parents: 52503
diff changeset
2806 :keepalive BOOL -- Send keep-alive messages on network stream.
0ca23eb697b9 (Fset_process_sentinel): Add sentinel to childp plist
Kim F. Storm <storm@cua.dk>
parents: 52503
diff changeset
2807 :linger BOOL or TIMEOUT -- Send queued messages before closing.
0ca23eb697b9 (Fset_process_sentinel): Add sentinel to childp plist
Kim F. Storm <storm@cua.dk>
parents: 52503
diff changeset
2808 :oobinline BOOL -- Place out-of-band data in receive data stream.
0ca23eb697b9 (Fset_process_sentinel): Add sentinel to childp plist
Kim F. Storm <storm@cua.dk>
parents: 52503
diff changeset
2809 :priority INT -- Set protocol defined priority for sent packets.
0ca23eb697b9 (Fset_process_sentinel): Add sentinel to childp plist
Kim F. Storm <storm@cua.dk>
parents: 52503
diff changeset
2810 :reuseaddr BOOL -- Allow reusing a recently used local address
0ca23eb697b9 (Fset_process_sentinel): Add sentinel to childp plist
Kim F. Storm <storm@cua.dk>
parents: 52503
diff changeset
2811 (this is allowed by default for a server process).
52594
d03629d1d293 (set_socket_option): Fix :bindtodevice option.
Kim F. Storm <storm@cua.dk>
parents: 52591
diff changeset
2812 :bindtodevice NAME -- bind to interface NAME. Using this may require
d03629d1d293 (set_socket_option): Fix :bindtodevice option.
Kim F. Storm <storm@cua.dk>
parents: 52591
diff changeset
2813 special privileges on some systems.
52516
0ca23eb697b9 (Fset_process_sentinel): Add sentinel to childp plist
Kim F. Storm <storm@cua.dk>
parents: 52503
diff changeset
2814
0ca23eb697b9 (Fset_process_sentinel): Add sentinel to childp plist
Kim F. Storm <storm@cua.dk>
parents: 52503
diff changeset
2815 Consult the relevant system programmer's manual pages for more
0ca23eb697b9 (Fset_process_sentinel): Add sentinel to childp plist
Kim F. Storm <storm@cua.dk>
parents: 52503
diff changeset
2816 information on using these options.
0ca23eb697b9 (Fset_process_sentinel): Add sentinel to childp plist
Kim F. Storm <storm@cua.dk>
parents: 52503
diff changeset
2817
0ca23eb697b9 (Fset_process_sentinel): Add sentinel to childp plist
Kim F. Storm <storm@cua.dk>
parents: 52503
diff changeset
2818
0ca23eb697b9 (Fset_process_sentinel): Add sentinel to childp plist
Kim F. Storm <storm@cua.dk>
parents: 52503
diff changeset
2819 A server process will listen for and accept connections from clients.
0ca23eb697b9 (Fset_process_sentinel): Add sentinel to childp plist
Kim F. Storm <storm@cua.dk>
parents: 52503
diff changeset
2820 When a client connection is accepted, a new network process is created
0ca23eb697b9 (Fset_process_sentinel): Add sentinel to childp plist
Kim F. Storm <storm@cua.dk>
parents: 52503
diff changeset
2821 for the connection with the following parameters:
0ca23eb697b9 (Fset_process_sentinel): Add sentinel to childp plist
Kim F. Storm <storm@cua.dk>
parents: 52503
diff changeset
2822
43968
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2823 - The client's process name is constructed by concatenating the server
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2824 process' NAME and a client identification string.
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2825 - If the FILTER argument is non-nil, the client process will not get a
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2826 separate process buffer; otherwise, the client's process buffer is a newly
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2827 created buffer named after the server process' BUFFER name or process
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 49281
diff changeset
2828 NAME concatenated with the client identification string.
43968
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2829 - The connection type and the process filter and sentinel parameters are
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2830 inherited from the server process' TYPE, FILTER and SENTINEL.
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2831 - The client process' contact info is set according to the client's
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2832 addressing information (typically an IP address and a port number).
49223
26622fa0d099 Reworked 2003-01-12 change -- call a plist a plist!
Kim F. Storm <storm@cua.dk>
parents: 49164
diff changeset
2833 - The client process' plist is initialized from the server's plist.
43968
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2834
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2835 Notice that the FILTER and SENTINEL args are never used directly by
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2836 the server process. Also, the BUFFER argument is not used directly by
47542
62a08cd28e83 (make-network-process): Doc fix (there is no network-server-log-function hook).
Kim F. Storm <storm@cua.dk>
parents: 47431
diff changeset
2837 the server process, but via the optional :log function, accepted (and
62a08cd28e83 (make-network-process): Doc fix (there is no network-server-log-function hook).
Kim F. Storm <storm@cua.dk>
parents: 47431
diff changeset
2838 failed) connections may be logged in the server process' buffer.
43968
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2839
49142
8dca38bc0261 (Fset_process_contact): New function.
Kim F. Storm <storm@cua.dk>
parents: 49119
diff changeset
2840 The original argument list, modified with the actual connection
8dca38bc0261 (Fset_process_contact): New function.
Kim F. Storm <storm@cua.dk>
parents: 49119
diff changeset
2841 information, is available via the `process-contact' function.
8dca38bc0261 (Fset_process_contact): New function.
Kim F. Storm <storm@cua.dk>
parents: 49119
diff changeset
2842
43995
110955214222 (Fmake_network_process): Remove unused variable `sa'.
Pavel Janík <Pavel@Janik.cz>
parents: 43968
diff changeset
2843 usage: (make-network-process &rest ARGS) */)
43968
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2844 (nargs, args)
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2845 int nargs;
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2846 Lisp_Object *args;
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2847 {
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2848 Lisp_Object proc;
43968
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2849 Lisp_Object contact;
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2850 struct Lisp_Process *p;
32032
633b826a56f3 (Fopen_network_stream) [HAVE_GETADDRINFO]: Use
Gerd Moellmann <gerd@gnu.org>
parents: 31806
diff changeset
2851 #ifdef HAVE_GETADDRINFO
43968
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2852 struct addrinfo ai, *res, *lres;
68008
10f0a09ec82e Add IPv6 support.
Kim F. Storm <storm@cua.dk>
parents: 67920
diff changeset
2853 struct addrinfo hints;
10f0a09ec82e Add IPv6 support.
Kim F. Storm <storm@cua.dk>
parents: 67920
diff changeset
2854 char *portstring, portbuf[128];
32032
633b826a56f3 (Fopen_network_stream) [HAVE_GETADDRINFO]: Use
Gerd Moellmann <gerd@gnu.org>
parents: 31806
diff changeset
2855 #else /* HAVE_GETADDRINFO */
43598
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
2856 struct _emacs_addrinfo
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
2857 {
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
2858 int ai_family;
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
2859 int ai_socktype;
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
2860 int ai_protocol;
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
2861 int ai_addrlen;
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
2862 struct sockaddr *ai_addr;
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
2863 struct _emacs_addrinfo *ai_next;
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
2864 } ai, *res, *lres;
25262
ccf83ed7326a (Fopen_network_stream): Fix previous change.
Karl Heuer <kwzh@gnu.org>
parents: 25248
diff changeset
2865 #endif /* HAVE_GETADDRINFO */
43968
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2866 struct sockaddr_in address_in;
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2867 #ifdef HAVE_LOCAL_SOCKETS
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2868 struct sockaddr_un address_un;
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2869 #endif
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2870 int port;
43598
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
2871 int ret = 0;
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
2872 int xerrno = 0;
25262
ccf83ed7326a (Fopen_network_stream): Fix previous change.
Karl Heuer <kwzh@gnu.org>
parents: 25248
diff changeset
2873 int s = -1, outch, inch;
43968
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2874 struct gcpro gcpro1;
46293
1fb8f75062c6 Use macro SPECPDL_INDEX.
Juanma Barranquero <lekktu@gmail.com>
parents: 45410
diff changeset
2875 int count = SPECPDL_INDEX ();
25705
1f109108fa7e (Fopen_network_stream): Avoid socket decriptor leak.
Andreas Schwab <schwab@suse.de>
parents: 25645
diff changeset
2876 int count1;
43968
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2877 Lisp_Object QCaddress; /* one of QClocal or QCremote */
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2878 Lisp_Object tem;
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2879 Lisp_Object name, buffer, host, service, address;
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2880 Lisp_Object filter, sentinel;
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2881 int is_non_blocking_client = 0;
52516
0ca23eb697b9 (Fset_process_sentinel): Add sentinel to childp plist
Kim F. Storm <storm@cua.dk>
parents: 52503
diff changeset
2882 int is_server = 0, backlog = 5;
44067
e8a136850817 (QCfeature, QCdatagram): Removed variables.
Kim F. Storm <storm@cua.dk>
parents: 44041
diff changeset
2883 int socktype;
43968
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2884 int family = -1;
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2885
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2886 if (nargs == 0)
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2887 return Qnil;
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2888
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2889 /* Save arguments for process-contact and clone-process. */
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2890 contact = Flist (nargs, args);
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2891 GCPRO1 (contact);
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2892
15355
6bb377ef707f (Fopen_network_stream)[WINDOWSNT]: Ensure Windows
Richard M. Stallman <rms@gnu.org>
parents: 15092
diff changeset
2893 #ifdef WINDOWSNT
6bb377ef707f (Fopen_network_stream)[WINDOWSNT]: Ensure Windows
Richard M. Stallman <rms@gnu.org>
parents: 15092
diff changeset
2894 /* Ensure socket support is loaded if available. */
6bb377ef707f (Fopen_network_stream)[WINDOWSNT]: Ensure Windows
Richard M. Stallman <rms@gnu.org>
parents: 15092
diff changeset
2895 init_winsock (TRUE);
6bb377ef707f (Fopen_network_stream)[WINDOWSNT]: Ensure Windows
Richard M. Stallman <rms@gnu.org>
parents: 15092
diff changeset
2896 #endif
6bb377ef707f (Fopen_network_stream)[WINDOWSNT]: Ensure Windows
Richard M. Stallman <rms@gnu.org>
parents: 15092
diff changeset
2897
44067
e8a136850817 (QCfeature, QCdatagram): Removed variables.
Kim F. Storm <storm@cua.dk>
parents: 44041
diff changeset
2898 /* :type TYPE (nil: stream, datagram */
e8a136850817 (QCfeature, QCdatagram): Removed variables.
Kim F. Storm <storm@cua.dk>
parents: 44041
diff changeset
2899 tem = Fplist_get (contact, QCtype);
e8a136850817 (QCfeature, QCdatagram): Removed variables.
Kim F. Storm <storm@cua.dk>
parents: 44041
diff changeset
2900 if (NILP (tem))
e8a136850817 (QCfeature, QCdatagram): Removed variables.
Kim F. Storm <storm@cua.dk>
parents: 44041
diff changeset
2901 socktype = SOCK_STREAM;
e8a136850817 (QCfeature, QCdatagram): Removed variables.
Kim F. Storm <storm@cua.dk>
parents: 44041
diff changeset
2902 #ifdef DATAGRAM_SOCKETS
e8a136850817 (QCfeature, QCdatagram): Removed variables.
Kim F. Storm <storm@cua.dk>
parents: 44041
diff changeset
2903 else if (EQ (tem, Qdatagram))
e8a136850817 (QCfeature, QCdatagram): Removed variables.
Kim F. Storm <storm@cua.dk>
parents: 44041
diff changeset
2904 socktype = SOCK_DGRAM;
e8a136850817 (QCfeature, QCdatagram): Removed variables.
Kim F. Storm <storm@cua.dk>
parents: 44041
diff changeset
2905 #endif
e8a136850817 (QCfeature, QCdatagram): Removed variables.
Kim F. Storm <storm@cua.dk>
parents: 44041
diff changeset
2906 else
e8a136850817 (QCfeature, QCdatagram): Removed variables.
Kim F. Storm <storm@cua.dk>
parents: 44041
diff changeset
2907 error ("Unsupported connection type");
43968
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2908
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2909 /* :server BOOL */
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2910 tem = Fplist_get (contact, QCserver);
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2911 if (!NILP (tem))
25248
f0fc8443bdbb (Fopen_network_stream): Use getaddrinfo.
Karl Heuer <kwzh@gnu.org>
parents: 25129
diff changeset
2912 {
45099
8a33d836b6fb (Fmake_network_process): Only support server sockets
Jason Rumney <jasonr@gnu.org>
parents: 45005
diff changeset
2913 /* Don't support network sockets when non-blocking mode is
8a33d836b6fb (Fmake_network_process): Only support server sockets
Jason Rumney <jasonr@gnu.org>
parents: 45005
diff changeset
2914 not available, since a blocked Emacs is not useful. */
8a33d836b6fb (Fmake_network_process): Only support server sockets
Jason Rumney <jasonr@gnu.org>
parents: 45005
diff changeset
2915 #if defined(TERM) || (!defined(O_NONBLOCK) && !defined(O_NDELAY))
43968
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2916 error ("Network servers not supported");
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2917 #else
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2918 is_server = 1;
52516
0ca23eb697b9 (Fset_process_sentinel): Add sentinel to childp plist
Kim F. Storm <storm@cua.dk>
parents: 52503
diff changeset
2919 if (INTEGERP (tem))
0ca23eb697b9 (Fset_process_sentinel): Add sentinel to childp plist
Kim F. Storm <storm@cua.dk>
parents: 52503
diff changeset
2920 backlog = XINT (tem);
43968
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2921 #endif
25248
f0fc8443bdbb (Fopen_network_stream): Use getaddrinfo.
Karl Heuer <kwzh@gnu.org>
parents: 25129
diff changeset
2922 }
43968
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2923
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2924 /* Make QCaddress an alias for :local (server) or :remote (client). */
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2925 QCaddress = is_server ? QClocal : QCremote;
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2926
74946
9321ec6bc5db Fix typo in comment.
Kim F. Storm <storm@cua.dk>
parents: 74749
diff changeset
2927 /* :nowait BOOL */
43968
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2928 if (!is_server && socktype == SOCK_STREAM
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2929 && (tem = Fplist_get (contact, QCnowait), !NILP (tem)))
25248
f0fc8443bdbb (Fopen_network_stream): Use getaddrinfo.
Karl Heuer <kwzh@gnu.org>
parents: 25129
diff changeset
2930 {
43968
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2931 #ifndef NON_BLOCKING_CONNECT
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2932 error ("Non-blocking connect not supported");
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2933 #else
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2934 is_non_blocking_client = 1;
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2935 #endif
25248
f0fc8443bdbb (Fopen_network_stream): Use getaddrinfo.
Karl Heuer <kwzh@gnu.org>
parents: 25129
diff changeset
2936 }
43968
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2937
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2938 name = Fplist_get (contact, QCname);
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2939 buffer = Fplist_get (contact, QCbuffer);
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2940 filter = Fplist_get (contact, QCfilter);
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2941 sentinel = Fplist_get (contact, QCsentinel);
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2942
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2943 CHECK_STRING (name);
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2944
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2945 #ifdef TERM
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2946 /* Let's handle TERM before things get complicated ... */
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2947 host = Fplist_get (contact, QChost);
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2948 CHECK_STRING (host);
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 49281
diff changeset
2949
43968
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2950 service = Fplist_get (contact, QCservice);
9115
59bc2d010b5f (decode_status, Fprocessp, Fget_process, Fget_buffer_process, Fprocess_status,
Karl Heuer <kwzh@gnu.org>
parents: 9034
diff changeset
2951 if (INTEGERP (service))
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2952 port = htons ((unsigned short) XINT (service));
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2953 else
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2954 {
43968
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2955 struct servent *svc_info;
40656
cdfd4d09b79a Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents: 40641
diff changeset
2956 CHECK_STRING (service);
46370
40db0673e6f0 Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents: 46314
diff changeset
2957 svc_info = getservbyname (SDATA (service), "tcp");
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2958 if (svc_info == 0)
46370
40db0673e6f0 Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents: 46314
diff changeset
2959 error ("Unknown service: %s", SDATA (service));
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2960 port = svc_info->s_port;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
2961 }
43968
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2962
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2963 s = connect_server (0);
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2964 if (s < 0)
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2965 report_file_error ("error creating socket", Fcons (name, Qnil));
46370
40db0673e6f0 Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents: 46314
diff changeset
2966 send_command (s, C_PORT, 0, "%s:%d", SDATA (host), ntohs (port));
43968
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2967 send_command (s, C_DUMB, 1, 0);
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2968
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2969 #else /* not TERM */
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2970
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2971 /* Initialize addrinfo structure in case we don't use getaddrinfo. */
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2972 ai.ai_socktype = socktype;
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2973 ai.ai_protocol = 0;
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2974 ai.ai_next = NULL;
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2975 res = &ai;
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2976
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2977 /* :local ADDRESS or :remote ADDRESS */
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2978 address = Fplist_get (contact, QCaddress);
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2979 if (!NILP (address))
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2980 {
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2981 host = service = Qnil;
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2982
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2983 if (!(ai.ai_addrlen = get_lisp_to_sockaddr_size (address, &family)))
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2984 error ("Malformed :address");
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2985 ai.ai_family = family;
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2986 ai.ai_addr = alloca (ai.ai_addrlen);
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2987 conv_lisp_to_sockaddr (family, address, ai.ai_addr, ai.ai_addrlen);
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2988 goto open_socket;
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2989 }
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2990
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2991 /* :family FAMILY -- nil (for Inet), local, or integer. */
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
2992 tem = Fplist_get (contact, QCfamily);
68008
10f0a09ec82e Add IPv6 support.
Kim F. Storm <storm@cua.dk>
parents: 67920
diff changeset
2993 if (NILP (tem))
10f0a09ec82e Add IPv6 support.
Kim F. Storm <storm@cua.dk>
parents: 67920
diff changeset
2994 {
68041
b7409cbd6d99 (Fmake_network_process): Use AF_INET instead of
Kim F. Storm <storm@cua.dk>
parents: 68022
diff changeset
2995 #if defined(HAVE_GETADDRINFO) && defined(AF_INET6)
68008
10f0a09ec82e Add IPv6 support.
Kim F. Storm <storm@cua.dk>
parents: 67920
diff changeset
2996 family = AF_UNSPEC;
10f0a09ec82e Add IPv6 support.
Kim F. Storm <storm@cua.dk>
parents: 67920
diff changeset
2997 #else
10f0a09ec82e Add IPv6 support.
Kim F. Storm <storm@cua.dk>
parents: 67920
diff changeset
2998 family = AF_INET;
10f0a09ec82e Add IPv6 support.
Kim F. Storm <storm@cua.dk>
parents: 67920
diff changeset
2999 #endif
10f0a09ec82e Add IPv6 support.
Kim F. Storm <storm@cua.dk>
parents: 67920
diff changeset
3000 }
10f0a09ec82e Add IPv6 support.
Kim F. Storm <storm@cua.dk>
parents: 67920
diff changeset
3001 #ifdef HAVE_LOCAL_SOCKETS
10f0a09ec82e Add IPv6 support.
Kim F. Storm <storm@cua.dk>
parents: 67920
diff changeset
3002 else if (EQ (tem, Qlocal))
10f0a09ec82e Add IPv6 support.
Kim F. Storm <storm@cua.dk>
parents: 67920
diff changeset
3003 family = AF_LOCAL;
10f0a09ec82e Add IPv6 support.
Kim F. Storm <storm@cua.dk>
parents: 67920
diff changeset
3004 #endif
10f0a09ec82e Add IPv6 support.
Kim F. Storm <storm@cua.dk>
parents: 67920
diff changeset
3005 #ifdef AF_INET6
10f0a09ec82e Add IPv6 support.
Kim F. Storm <storm@cua.dk>
parents: 67920
diff changeset
3006 else if (EQ (tem, Qipv6))
10f0a09ec82e Add IPv6 support.
Kim F. Storm <storm@cua.dk>
parents: 67920
diff changeset
3007 family = AF_INET6;
10f0a09ec82e Add IPv6 support.
Kim F. Storm <storm@cua.dk>
parents: 67920
diff changeset
3008 #endif
10f0a09ec82e Add IPv6 support.
Kim F. Storm <storm@cua.dk>
parents: 67920
diff changeset
3009 else if (EQ (tem, Qipv4))
10f0a09ec82e Add IPv6 support.
Kim F. Storm <storm@cua.dk>
parents: 67920
diff changeset
3010 family = AF_INET;
10f0a09ec82e Add IPv6 support.
Kim F. Storm <storm@cua.dk>
parents: 67920
diff changeset
3011 else if (INTEGERP (tem))
43968
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
3012 family = XINT (tem);
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
3013 else
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
3014 error ("Unknown address family");
68008
10f0a09ec82e Add IPv6 support.
Kim F. Storm <storm@cua.dk>
parents: 67920
diff changeset
3015
43968
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
3016 ai.ai_family = family;
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
3017
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
3018 /* :service SERVICE -- string, integer (port number), or t (random port). */
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
3019 service = Fplist_get (contact, QCservice);
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
3020
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
3021 #ifdef HAVE_LOCAL_SOCKETS
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
3022 if (family == AF_LOCAL)
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
3023 {
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
3024 /* Host is not used. */
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
3025 host = Qnil;
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
3026 CHECK_STRING (service);
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
3027 bzero (&address_un, sizeof address_un);
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
3028 address_un.sun_family = AF_LOCAL;
46370
40db0673e6f0 Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents: 46314
diff changeset
3029 strncpy (address_un.sun_path, SDATA (service), sizeof address_un.sun_path);
43968
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
3030 ai.ai_addr = (struct sockaddr *) &address_un;
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
3031 ai.ai_addrlen = sizeof address_un;
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
3032 goto open_socket;
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
3033 }
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
3034 #endif
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
3035
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
3036 /* :host HOST -- hostname, ip address, or 'local for localhost. */
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
3037 host = Fplist_get (contact, QChost);
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
3038 if (!NILP (host))
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
3039 {
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
3040 if (EQ (host, Qlocal))
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
3041 host = build_string ("localhost");
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
3042 CHECK_STRING (host);
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
3043 }
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3044
13777
5e0cbd5fcb46 (Fopen_network_stream): Call bind_polling_period earlier.
Karl Heuer <kwzh@gnu.org>
parents: 13709
diff changeset
3045 /* 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
3046 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
3047 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
3048 #ifdef POLL_FOR_INPUT
43968
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
3049 if (socktype == SOCK_STREAM)
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
3050 {
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
3051 record_unwind_protect (unwind_stop_other_atimers, Qnil);
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
3052 bind_polling_period (10);
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
3053 }
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
3054 #endif
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
3055
25248
f0fc8443bdbb (Fopen_network_stream): Use getaddrinfo.
Karl Heuer <kwzh@gnu.org>
parents: 25129
diff changeset
3056 #ifdef HAVE_GETADDRINFO
43968
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
3057 /* If we have a host, use getaddrinfo to resolve both host and service.
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
3058 Otherwise, use getservbyname to lookup the service. */
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
3059 if (!NILP (host))
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
3060 {
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
3061
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
3062 /* SERVICE can either be a string or int.
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
3063 Convert to a C string for later use by getaddrinfo. */
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
3064 if (EQ (service, Qt))
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
3065 portstring = "0";
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
3066 else if (INTEGERP (service))
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
3067 {
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
3068 sprintf (portbuf, "%ld", (long) XINT (service));
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
3069 portstring = portbuf;
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
3070 }
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
3071 else
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
3072 {
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
3073 CHECK_STRING (service);
46370
40db0673e6f0 Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents: 46314
diff changeset
3074 portstring = SDATA (service);
43968
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
3075 }
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
3076
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
3077 immediate_quit = 1;
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
3078 QUIT;
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
3079 memset (&hints, 0, sizeof (hints));
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
3080 hints.ai_flags = 0;
68008
10f0a09ec82e Add IPv6 support.
Kim F. Storm <storm@cua.dk>
parents: 67920
diff changeset
3081 hints.ai_family = family;
43968
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
3082 hints.ai_socktype = socktype;
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
3083 hints.ai_protocol = 0;
46370
40db0673e6f0 Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents: 46314
diff changeset
3084 ret = getaddrinfo (SDATA (host), portstring, &hints, &res);
43968
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
3085 if (ret)
32074
a889f9fc59a7 (Fopen_network_stream): Use HAVE_GAI_STRERROR.
Dave Love <fx@gnu.org>
parents: 32032
diff changeset
3086 #ifdef HAVE_GAI_STRERROR
46370
40db0673e6f0 Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents: 46314
diff changeset
3087 error ("%s/%s %s", SDATA (host), portstring, gai_strerror(ret));
32074
a889f9fc59a7 (Fopen_network_stream): Use HAVE_GAI_STRERROR.
Dave Love <fx@gnu.org>
parents: 32032
diff changeset
3088 #else
46370
40db0673e6f0 Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents: 46314
diff changeset
3089 error ("%s/%s getaddrinfo error %d", SDATA (host), portstring, ret);
43968
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
3090 #endif
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
3091 immediate_quit = 0;
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
3092
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
3093 goto open_socket;
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
3094 }
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
3095 #endif /* HAVE_GETADDRINFO */
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
3096
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
3097 /* We end up here if getaddrinfo is not defined, or in case no hostname
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
3098 has been specified (e.g. for a local server process). */
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
3099
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
3100 if (EQ (service, Qt))
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
3101 port = 0;
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
3102 else if (INTEGERP (service))
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
3103 port = htons ((unsigned short) XINT (service));
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
3104 else
8287
97c2535b7f37 (Fopen_network_stream): Retry gethostbyname after TRY_AGAIN failure.
Richard M. Stallman <rms@gnu.org>
parents: 8231
diff changeset
3105 {
43968
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
3106 struct servent *svc_info;
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
3107 CHECK_STRING (service);
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 49281
diff changeset
3108 svc_info = getservbyname (SDATA (service),
43968
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
3109 (socktype == SOCK_DGRAM ? "udp" : "tcp"));
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
3110 if (svc_info == 0)
46370
40db0673e6f0 Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents: 46314
diff changeset
3111 error ("Unknown service: %s", SDATA (service));
43968
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
3112 port = svc_info->s_port;
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
3113 }
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
3114
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
3115 bzero (&address_in, sizeof address_in);
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
3116 address_in.sin_family = family;
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
3117 address_in.sin_addr.s_addr = INADDR_ANY;
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
3118 address_in.sin_port = port;
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
3119
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
3120 #ifndef HAVE_GETADDRINFO
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
3121 if (!NILP (host))
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
3122 {
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
3123 struct hostent *host_info_ptr;
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
3124
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
3125 /* gethostbyname may fail with TRY_AGAIN, but we don't honour that,
55444
976d03256b41 (Fwaiting_for_user_input_p, Fmake_network_process)
Juanma Barranquero <lekktu@gmail.com>
parents: 53835
diff changeset
3126 as it may `hang' Emacs for a very long time. */
14758
849458c13c0c (wait_reading_process_input):
Richard M. Stallman <rms@gnu.org>
parents: 14736
diff changeset
3127 immediate_quit = 1;
849458c13c0c (wait_reading_process_input):
Richard M. Stallman <rms@gnu.org>
parents: 14736
diff changeset
3128 QUIT;
46370
40db0673e6f0 Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents: 46314
diff changeset
3129 host_info_ptr = gethostbyname (SDATA (host));
14758
849458c13c0c (wait_reading_process_input):
Richard M. Stallman <rms@gnu.org>
parents: 14736
diff changeset
3130 immediate_quit = 0;
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 49281
diff changeset
3131
43968
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
3132 if (host_info_ptr)
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
3133 {
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
3134 bcopy (host_info_ptr->h_addr, (char *) &address_in.sin_addr,
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
3135 host_info_ptr->h_length);
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
3136 family = host_info_ptr->h_addrtype;
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
3137 address_in.sin_family = family;
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
3138 }
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
3139 else
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
3140 /* Attempt to interpret host as numeric inet address */
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
3141 {
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
3142 IN_ADDR numeric_addr;
46370
40db0673e6f0 Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents: 46314
diff changeset
3143 numeric_addr = inet_addr ((char *) SDATA (host));
43968
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
3144 if (NUMERIC_ADDR_ERROR)
46370
40db0673e6f0 Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents: 46314
diff changeset
3145 error ("Unknown host \"%s\"", SDATA (host));
43968
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
3146
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
3147 bcopy ((char *)&numeric_addr, (char *) &address_in.sin_addr,
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
3148 sizeof (address_in.sin_addr));
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
3149 }
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
3150
8287
97c2535b7f37 (Fopen_network_stream): Retry gethostbyname after TRY_AGAIN failure.
Richard M. Stallman <rms@gnu.org>
parents: 8231
diff changeset
3151 }
43968
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
3152 #endif /* not HAVE_GETADDRINFO */
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
3153
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
3154 ai.ai_family = family;
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
3155 ai.ai_addr = (struct sockaddr *) &address_in;
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
3156 ai.ai_addrlen = sizeof address_in;
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
3157
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
3158 open_socket:
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
3159
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
3160 /* Kernel bugs (on Ultrix at least) cause lossage (not just EINTR)
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
3161 when connect is interrupted. So let's not let it get interrupted.
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
3162 Note we do not turn off polling, because polling is only used
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
3163 when not interrupt_input, and thus not normally used on the systems
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
3164 which have this bug. On systems which use polling, there's no way
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
3165 to quit if polling is turned off. */
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
3166 if (interrupt_input
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
3167 && !is_server && socktype == SOCK_STREAM)
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3168 {
43968
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
3169 /* Comment from KFS: The original open-network-stream code
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
3170 didn't unwind protect this, but it seems like the proper
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
3171 thing to do. In any case, I don't see how it could harm to
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
3172 do this -- and it makes cleanup (using unbind_to) easier. */
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
3173 record_unwind_protect (unwind_request_sigio, Qnil);
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
3174 unrequest_sigio ();
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3175 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3176
43598
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
3177 /* Do this in case we never enter the for-loop below. */
46293
1fb8f75062c6 Use macro SPECPDL_INDEX.
Juanma Barranquero <lekktu@gmail.com>
parents: 45410
diff changeset
3178 count1 = SPECPDL_INDEX ();
43598
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
3179 s = -1;
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
3180
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
3181 for (lres = res; lres; lres = lres->ai_next)
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3182 {
52516
0ca23eb697b9 (Fset_process_sentinel): Add sentinel to childp plist
Kim F. Storm <storm@cua.dk>
parents: 52503
diff changeset
3183 int optn, optbits;
0ca23eb697b9 (Fset_process_sentinel): Add sentinel to childp plist
Kim F. Storm <storm@cua.dk>
parents: 52503
diff changeset
3184
58072
4ebc52bf6429 (Fmake_network_process): Remove kludge for interrupted
Kim F. Storm <storm@cua.dk>
parents: 57840
diff changeset
3185 retry_connect:
4ebc52bf6429 (Fmake_network_process): Remove kludge for interrupted
Kim F. Storm <storm@cua.dk>
parents: 57840
diff changeset
3186
43598
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
3187 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
3188 if (s < 0)
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
3189 {
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
3190 xerrno = errno;
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
3191 continue;
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
3192 }
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
3193
43968
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
3194 #ifdef DATAGRAM_SOCKETS
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
3195 if (!is_server && socktype == SOCK_DGRAM)
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
3196 break;
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
3197 #endif /* DATAGRAM_SOCKETS */
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
3198
43598
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
3199 #ifdef NON_BLOCKING_CONNECT
43968
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
3200 if (is_non_blocking_client)
43598
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
3201 {
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
3202 #ifdef O_NONBLOCK
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
3203 ret = fcntl (s, F_SETFL, O_NONBLOCK);
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
3204 #else
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
3205 ret = fcntl (s, F_SETFL, O_NDELAY);
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
3206 #endif
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
3207 if (ret < 0)
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
3208 {
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
3209 xerrno = errno;
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
3210 emacs_close (s);
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
3211 s = -1;
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
3212 continue;
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
3213 }
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
3214 }
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
3215 #endif
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 49281
diff changeset
3216
43598
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
3217 /* Make us close S if quit. */
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
3218 record_unwind_protect (close_file_unwind, make_number (s));
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
3219
52516
0ca23eb697b9 (Fset_process_sentinel): Add sentinel to childp plist
Kim F. Storm <storm@cua.dk>
parents: 52503
diff changeset
3220 /* Parse network options in the arg list.
0ca23eb697b9 (Fset_process_sentinel): Add sentinel to childp plist
Kim F. Storm <storm@cua.dk>
parents: 52503
diff changeset
3221 We simply ignore anything which isn't a known option (including other keywords).
0ca23eb697b9 (Fset_process_sentinel): Add sentinel to childp plist
Kim F. Storm <storm@cua.dk>
parents: 52503
diff changeset
3222 An error is signalled if setting a known option fails. */
0ca23eb697b9 (Fset_process_sentinel): Add sentinel to childp plist
Kim F. Storm <storm@cua.dk>
parents: 52503
diff changeset
3223 for (optn = optbits = 0; optn < nargs-1; optn += 2)
0ca23eb697b9 (Fset_process_sentinel): Add sentinel to childp plist
Kim F. Storm <storm@cua.dk>
parents: 52503
diff changeset
3224 optbits |= set_socket_option (s, args[optn], args[optn+1]);
0ca23eb697b9 (Fset_process_sentinel): Add sentinel to childp plist
Kim F. Storm <storm@cua.dk>
parents: 52503
diff changeset
3225
43968
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
3226 if (is_server)
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
3227 {
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
3228 /* Configure as a server socket. */
52516
0ca23eb697b9 (Fset_process_sentinel): Add sentinel to childp plist
Kim F. Storm <storm@cua.dk>
parents: 52503
diff changeset
3229
0ca23eb697b9 (Fset_process_sentinel): Add sentinel to childp plist
Kim F. Storm <storm@cua.dk>
parents: 52503
diff changeset
3230 /* SO_REUSEADDR = 1 is default for server sockets; must specify
0ca23eb697b9 (Fset_process_sentinel): Add sentinel to childp plist
Kim F. Storm <storm@cua.dk>
parents: 52503
diff changeset
3231 explicit :reuseaddr key to override this. */
43968
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
3232 #ifdef HAVE_LOCAL_SOCKETS
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
3233 if (family != AF_LOCAL)
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
3234 #endif
52516
0ca23eb697b9 (Fset_process_sentinel): Add sentinel to childp plist
Kim F. Storm <storm@cua.dk>
parents: 52503
diff changeset
3235 if (!(optbits & (1 << OPIX_REUSEADDR)))
0ca23eb697b9 (Fset_process_sentinel): Add sentinel to childp plist
Kim F. Storm <storm@cua.dk>
parents: 52503
diff changeset
3236 {
0ca23eb697b9 (Fset_process_sentinel): Add sentinel to childp plist
Kim F. Storm <storm@cua.dk>
parents: 52503
diff changeset
3237 int optval = 1;
0ca23eb697b9 (Fset_process_sentinel): Add sentinel to childp plist
Kim F. Storm <storm@cua.dk>
parents: 52503
diff changeset
3238 if (setsockopt (s, SOL_SOCKET, SO_REUSEADDR, &optval, sizeof optval))
53072
8787289602d1 Remove period at end of error message.
Jan Djärv <jan.h.d@swipnet.se>
parents: 52633
diff changeset
3239 report_file_error ("Cannot set reuse option on server socket", Qnil);
52516
0ca23eb697b9 (Fset_process_sentinel): Add sentinel to childp plist
Kim F. Storm <storm@cua.dk>
parents: 52503
diff changeset
3240 }
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 49281
diff changeset
3241
43968
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
3242 if (bind (s, lres->ai_addr, lres->ai_addrlen))
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
3243 report_file_error ("Cannot bind server socket", Qnil);
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
3244
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
3245 #ifdef HAVE_GETSOCKNAME
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
3246 if (EQ (service, Qt))
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
3247 {
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
3248 struct sockaddr_in sa1;
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
3249 int len1 = sizeof (sa1);
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
3250 if (getsockname (s, (struct sockaddr *)&sa1, &len1) == 0)
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
3251 {
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
3252 ((struct sockaddr_in *)(lres->ai_addr))->sin_port = sa1.sin_port;
49119
938f153410ae (Fmake_network_process): Convert new port number
Kim F. Storm <storm@cua.dk>
parents: 49114
diff changeset
3253 service = make_number (ntohs (sa1.sin_port));
43968
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
3254 contact = Fplist_put (contact, QCservice, service);
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
3255 }
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
3256 }
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
3257 #endif
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
3258
52516
0ca23eb697b9 (Fset_process_sentinel): Add sentinel to childp plist
Kim F. Storm <storm@cua.dk>
parents: 52503
diff changeset
3259 if (socktype == SOCK_STREAM && listen (s, backlog))
43968
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
3260 report_file_error ("Cannot listen on server socket", Qnil);
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
3261
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
3262 break;
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
3263 }
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
3264
43598
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
3265 immediate_quit = 1;
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
3266 QUIT;
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
3267
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
3268 /* This turns off all alarm-based interrupts; the
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
3269 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
3270 short-interval ones off, especially if interrupt_input is
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
3271 set.
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
3272
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
3273 It'd be nice to be able to control the connect timeout
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 49281
diff changeset
3274 though. Would non-blocking connect calls be portable?
43598
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
3275
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
3276 This used to be conditioned by HAVE_GETADDRINFO. Why? */
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
3277
43642
bfd9fa0143d9 (Fopen_network_stream): Always call turn_on_atimers around connect.
Kim F. Storm <storm@cua.dk>
parents: 43617
diff changeset
3278 turn_on_atimers (0);
43598
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
3279
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
3280 ret = connect (s, lres->ai_addr, lres->ai_addrlen);
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
3281 xerrno = errno;
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
3282
43642
bfd9fa0143d9 (Fopen_network_stream): Always call turn_on_atimers around connect.
Kim F. Storm <storm@cua.dk>
parents: 43617
diff changeset
3283 turn_on_atimers (1);
43598
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
3284
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
3285 if (ret == 0 || xerrno == EISCONN)
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
3286 {
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
3287 /* The unwind-protect will be discarded afterwards.
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
3288 Likewise for immediate_quit. */
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
3289 break;
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
3290 }
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
3291
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
3292 #ifdef NON_BLOCKING_CONNECT
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
3293 #ifdef EINPROGRESS
43968
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
3294 if (is_non_blocking_client && xerrno == EINPROGRESS)
43598
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
3295 break;
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
3296 #else
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
3297 #ifdef EWOULDBLOCK
43968
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
3298 if (is_non_blocking_client && xerrno == EWOULDBLOCK)
43598
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
3299 break;
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
3300 #endif
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
3301 #endif
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
3302 #endif
7220
a33eb16cab9d (Fopen_network_stream): Retry the connect if EADDRINUSE. Ignore EISCONN.
Richard M. Stallman <rms@gnu.org>
parents: 7157
diff changeset
3303
14671
0493e857a13b (Fopen_network_stream): Set immediate_quit for the connect.
Richard M. Stallman <rms@gnu.org>
parents: 14613
diff changeset
3304 immediate_quit = 0;
0493e857a13b (Fopen_network_stream): Set immediate_quit for the connect.
Richard M. Stallman <rms@gnu.org>
parents: 14613
diff changeset
3305
43598
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
3306 /* Discard the unwind protect closing S. */
25705
1f109108fa7e (Fopen_network_stream): Avoid socket decriptor leak.
Andreas Schwab <schwab@suse.de>
parents: 25645
diff changeset
3307 specpdl_ptr = specpdl + count1;
26088
b7aa6ac26872 Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
parents: 26019
diff changeset
3308 emacs_close (s);
43598
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
3309 s = -1;
58072
4ebc52bf6429 (Fmake_network_process): Remove kludge for interrupted
Kim F. Storm <storm@cua.dk>
parents: 57840
diff changeset
3310
4ebc52bf6429 (Fmake_network_process): Remove kludge for interrupted
Kim F. Storm <storm@cua.dk>
parents: 57840
diff changeset
3311 if (xerrno == EINTR)
4ebc52bf6429 (Fmake_network_process): Remove kludge for interrupted
Kim F. Storm <storm@cua.dk>
parents: 57840
diff changeset
3312 goto retry_connect;
43598
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
3313 }
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
3314
43968
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
3315 if (s >= 0)
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
3316 {
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
3317 #ifdef DATAGRAM_SOCKETS
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
3318 if (socktype == SOCK_DGRAM)
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
3319 {
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
3320 if (datagram_address[s].sa)
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
3321 abort ();
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
3322 datagram_address[s].sa = (struct sockaddr *) xmalloc (lres->ai_addrlen);
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
3323 datagram_address[s].len = lres->ai_addrlen;
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
3324 if (is_server)
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
3325 {
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
3326 Lisp_Object remote;
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
3327 bzero (datagram_address[s].sa, lres->ai_addrlen);
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
3328 if (remote = Fplist_get (contact, QCremote), !NILP (remote))
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
3329 {
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
3330 int rfamily, rlen;
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
3331 rlen = get_lisp_to_sockaddr_size (remote, &rfamily);
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
3332 if (rfamily == lres->ai_family && rlen == lres->ai_addrlen)
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
3333 conv_lisp_to_sockaddr (rfamily, remote,
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
3334 datagram_address[s].sa, rlen);
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
3335 }
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
3336 }
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
3337 else
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
3338 bcopy (lres->ai_addr, datagram_address[s].sa, lres->ai_addrlen);
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
3339 }
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
3340 #endif
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 49281
diff changeset
3341 contact = Fplist_put (contact, QCaddress,
43968
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
3342 conv_sockaddr_to_lisp (lres->ai_addr, lres->ai_addrlen));
49111
32c767302a23 (server_accept_connection): Fixed recording of new
Kim F. Storm <storm@cua.dk>
parents: 48424
diff changeset
3343 #ifdef HAVE_GETSOCKNAME
32c767302a23 (server_accept_connection): Fixed recording of new
Kim F. Storm <storm@cua.dk>
parents: 48424
diff changeset
3344 if (!is_server)
32c767302a23 (server_accept_connection): Fixed recording of new
Kim F. Storm <storm@cua.dk>
parents: 48424
diff changeset
3345 {
32c767302a23 (server_accept_connection): Fixed recording of new
Kim F. Storm <storm@cua.dk>
parents: 48424
diff changeset
3346 struct sockaddr_in sa1;
32c767302a23 (server_accept_connection): Fixed recording of new
Kim F. Storm <storm@cua.dk>
parents: 48424
diff changeset
3347 int len1 = sizeof (sa1);
32c767302a23 (server_accept_connection): Fixed recording of new
Kim F. Storm <storm@cua.dk>
parents: 48424
diff changeset
3348 if (getsockname (s, (struct sockaddr *)&sa1, &len1) == 0)
32c767302a23 (server_accept_connection): Fixed recording of new
Kim F. Storm <storm@cua.dk>
parents: 48424
diff changeset
3349 contact = Fplist_put (contact, QClocal,
32c767302a23 (server_accept_connection): Fixed recording of new
Kim F. Storm <storm@cua.dk>
parents: 48424
diff changeset
3350 conv_sockaddr_to_lisp (&sa1, len1));
32c767302a23 (server_accept_connection): Fixed recording of new
Kim F. Storm <storm@cua.dk>
parents: 48424
diff changeset
3351 }
32c767302a23 (server_accept_connection): Fixed recording of new
Kim F. Storm <storm@cua.dk>
parents: 48424
diff changeset
3352 #endif
43968
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
3353 }
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
3354
76626
2fb8fb4a9bab (Fmake_network_process) [HAVE_GETADDRINFO]: Clear
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 76494
diff changeset
3355 immediate_quit = 0;
2fb8fb4a9bab (Fmake_network_process) [HAVE_GETADDRINFO]: Clear
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 76494
diff changeset
3356
43598
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
3357 #ifdef HAVE_GETADDRINFO
43968
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
3358 if (res != &ai)
76626
2fb8fb4a9bab (Fmake_network_process) [HAVE_GETADDRINFO]: Clear
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 76494
diff changeset
3359 {
2fb8fb4a9bab (Fmake_network_process) [HAVE_GETADDRINFO]: Clear
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 76494
diff changeset
3360 BLOCK_INPUT;
2fb8fb4a9bab (Fmake_network_process) [HAVE_GETADDRINFO]: Clear
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 76494
diff changeset
3361 freeaddrinfo (res);
2fb8fb4a9bab (Fmake_network_process) [HAVE_GETADDRINFO]: Clear
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 76494
diff changeset
3362 UNBLOCK_INPUT;
2fb8fb4a9bab (Fmake_network_process) [HAVE_GETADDRINFO]: Clear
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 76494
diff changeset
3363 }
2fb8fb4a9bab (Fmake_network_process) [HAVE_GETADDRINFO]: Clear
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 76494
diff changeset
3364 #endif
43968
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
3365
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
3366 /* Discard the unwind protect for closing S, if any. */
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
3367 specpdl_ptr = specpdl + count1;
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
3368
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
3369 /* Unwind bind_polling_period and request_sigio. */
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
3370 unbind_to (count, Qnil);
43598
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
3371
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
3372 if (s < 0)
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
3373 {
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
3374 /* 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
3375 not supported after all. This is probably a wrong assumption, but
43968
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
3376 the normal blocking calls to open-network-stream handles this error
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
3377 better. */
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
3378 if (is_non_blocking_client)
43598
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
3379 return Qnil;
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
3380
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3381 errno = xerrno;
43968
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
3382 if (is_server)
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
3383 report_file_error ("make server process failed", contact);
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
3384 else
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
3385 report_file_error ("make client process failed", contact);
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3386 }
43968
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
3387
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
3388 #endif /* not TERM */
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3389
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3390 inch = s;
17247
351006378b51 (Fopen_network_stream): Use same socket for in and out.
Richard M. Stallman <rms@gnu.org>
parents: 17224
diff changeset
3391 outch = s;
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3392
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3393 if (!NILP (buffer))
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3394 buffer = Fget_buffer_create (buffer);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3395 proc = make_process (name);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3396
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3397 chan_process[inch] = proc;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3398
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3399 #ifdef O_NONBLOCK
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3400 fcntl (inch, F_SETFL, O_NONBLOCK);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3401 #else
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3402 #ifdef O_NDELAY
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3403 fcntl (inch, F_SETFL, O_NDELAY);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3404 #endif
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3405 #endif
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3406
43968
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
3407 p = XPROCESS (proc);
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
3408
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
3409 p->childp = contact;
49223
26622fa0d099 Reworked 2003-01-12 change -- call a plist a plist!
Kim F. Storm <storm@cua.dk>
parents: 49164
diff changeset
3410 p->plist = Fcopy_sequence (Fplist_get (contact, QCplist));
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 49281
diff changeset
3411
43968
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
3412 p->buffer = buffer;
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
3413 p->sentinel = sentinel;
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
3414 p->filter = filter;
81826
077a1e6fd3f2 (struct Lisp_Process): Turn slots infd, outfd, kill_without_query, pty_flag,
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 80984
diff changeset
3415 p->filter_multibyte = !NILP (buffer_defaults.enable_multibyte_characters);
49667
cbec1327e2f1 (QCfilter_multibyte): New variable.
Kenichi Handa <handa@m17n.org>
parents: 49600
diff changeset
3416 /* Override the above only if :filter-multibyte is specified. */
cbec1327e2f1 (QCfilter_multibyte): New variable.
Kenichi Handa <handa@m17n.org>
parents: 49600
diff changeset
3417 if (! NILP (Fplist_member (contact, QCfilter_multibyte)))
81826
077a1e6fd3f2 (struct Lisp_Process): Turn slots infd, outfd, kill_without_query, pty_flag,
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 80984
diff changeset
3418 p->filter_multibyte = !NILP (Fplist_get (contact, QCfilter_multibyte));
43968
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
3419 p->log = Fplist_get (contact, QClog);
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
3420 if (tem = Fplist_get (contact, QCnoquery), !NILP (tem))
81826
077a1e6fd3f2 (struct Lisp_Process): Turn slots infd, outfd, kill_without_query, pty_flag,
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 80984
diff changeset
3421 p->kill_without_query = 1;
43968
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
3422 if ((tem = Fplist_get (contact, QCstop), !NILP (tem)))
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
3423 p->command = Qt;
69873
2d844bbbccd4 * process.h (struct Lisp_Process): Replace Lisp_Objects `pid',
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 69634
diff changeset
3424 p->pid = 0;
81826
077a1e6fd3f2 (struct Lisp_Process): Turn slots infd, outfd, kill_without_query, pty_flag,
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 80984
diff changeset
3425 p->infd = inch;
077a1e6fd3f2 (struct Lisp_Process): Turn slots infd, outfd, kill_without_query, pty_flag,
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 80984
diff changeset
3426 p->outfd = outch;
43968
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
3427 if (is_server && socktype == SOCK_STREAM)
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
3428 p->status = Qlisten;
43598
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
3429
69151
08c9c1760e1c (Fmake_network_process): Init the process's mark.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 68651
diff changeset
3430 /* Make the process marker point into the process buffer (if any). */
08c9c1760e1c (Fmake_network_process): Init the process's mark.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 68651
diff changeset
3431 if (BUFFERP (buffer))
08c9c1760e1c (Fmake_network_process): Init the process's mark.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 68651
diff changeset
3432 set_marker_both (p->mark, buffer,
08c9c1760e1c (Fmake_network_process): Init the process's mark.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 68651
diff changeset
3433 BUF_ZV (XBUFFER (buffer)),
08c9c1760e1c (Fmake_network_process): Init the process's mark.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 68651
diff changeset
3434 BUF_ZV_BYTE (XBUFFER (buffer)));
08c9c1760e1c (Fmake_network_process): Init the process's mark.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 68651
diff changeset
3435
43598
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
3436 #ifdef NON_BLOCKING_CONNECT
43968
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
3437 if (is_non_blocking_client)
43598
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
3438 {
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
3439 /* 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
3440 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
3441 connection. */
43968
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
3442 p->status = Qconnect;
43598
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
3443 if (!FD_ISSET (inch, &connect_wait_mask))
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
3444 {
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
3445 FD_SET (inch, &connect_wait_mask);
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
3446 num_pending_connects++;
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
3447 }
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
3448 }
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
3449 else
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
3450 #endif
43968
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
3451 /* A server may have a client filter setting of Qt, but it must
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
3452 still listen for incoming connects unless it is stopped. */
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
3453 if ((!EQ (p->filter, Qt) && !EQ (p->command, Qt))
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
3454 || (EQ (p->status, Qlisten) && NILP (p->command)))
43598
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
3455 {
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
3456 FD_SET (inch, &input_wait_mask);
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
3457 FD_SET (inch, &non_keyboard_wait_mask);
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
3458 }
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
3459
7044
7032d07f5ad9 (max_process_desc): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 7013
diff changeset
3460 if (inch > max_process_desc)
7032d07f5ad9 (max_process_desc): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 7013
diff changeset
3461 max_process_desc = inch;
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3462
43968
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
3463 tem = Fplist_member (contact, QCcoding);
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
3464 if (!NILP (tem) && (!CONSP (tem) || !CONSP (XCDR (tem))))
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
3465 tem = Qnil; /* No error message (too late!). */
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
3466
22019
bb9dd4758e7e (Fstart_process): Remove the special case for
Richard M. Stallman <rms@gnu.org>
parents: 21978
diff changeset
3467 {
bb9dd4758e7e (Fstart_process): Remove the special case for
Richard M. Stallman <rms@gnu.org>
parents: 21978
diff changeset
3468 /* 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
3469 struct gcpro gcpro1;
bb9dd4758e7e (Fstart_process): Remove the special case for
Richard M. Stallman <rms@gnu.org>
parents: 21978
diff changeset
3470 /* 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
3471 Lisp_Object coding_systems = Qt;
bb9dd4758e7e (Fstart_process): Remove the special case for
Richard M. Stallman <rms@gnu.org>
parents: 21978
diff changeset
3472 Lisp_Object args[5], val;
bb9dd4758e7e (Fstart_process): Remove the special case for
Richard M. Stallman <rms@gnu.org>
parents: 21978
diff changeset
3473
43968
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
3474 if (!NILP (tem))
52516
0ca23eb697b9 (Fset_process_sentinel): Add sentinel to childp plist
Kim F. Storm <storm@cua.dk>
parents: 52503
diff changeset
3475 {
0ca23eb697b9 (Fset_process_sentinel): Add sentinel to childp plist
Kim F. Storm <storm@cua.dk>
parents: 52503
diff changeset
3476 val = XCAR (XCDR (tem));
0ca23eb697b9 (Fset_process_sentinel): Add sentinel to childp plist
Kim F. Storm <storm@cua.dk>
parents: 52503
diff changeset
3477 if (CONSP (val))
0ca23eb697b9 (Fset_process_sentinel): Add sentinel to childp plist
Kim F. Storm <storm@cua.dk>
parents: 52503
diff changeset
3478 val = XCAR (val);
0ca23eb697b9 (Fset_process_sentinel): Add sentinel to childp plist
Kim F. Storm <storm@cua.dk>
parents: 52503
diff changeset
3479 }
43968
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
3480 else if (!NILP (Vcoding_system_for_read))
22019
bb9dd4758e7e (Fstart_process): Remove the special case for
Richard M. Stallman <rms@gnu.org>
parents: 21978
diff changeset
3481 val = Vcoding_system_for_read;
25770
3a44b5298cd5 (list_processes_1): Remove unused variables.
Gerd Moellmann <gerd@gnu.org>
parents: 25760
diff changeset
3482 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
3483 || (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
3484 /* 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
3485 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
3486 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
3487 CR LF. */
bb9dd4758e7e (Fstart_process): Remove the special case for
Richard M. Stallman <rms@gnu.org>
parents: 21978
diff changeset
3488 val = Qnil;
bb9dd4758e7e (Fstart_process): Remove the special case for
Richard M. Stallman <rms@gnu.org>
parents: 21978
diff changeset
3489 else
bb9dd4758e7e (Fstart_process): Remove the special case for
Richard M. Stallman <rms@gnu.org>
parents: 21978
diff changeset
3490 {
47987
b30942bd85f3 (Fformat_network_address): New function.
Kim F. Storm <storm@cua.dk>
parents: 47542
diff changeset
3491 if (NILP (host) || NILP (service))
b30942bd85f3 (Fformat_network_address): New function.
Kim F. Storm <storm@cua.dk>
parents: 47542
diff changeset
3492 coding_systems = Qnil;
b30942bd85f3 (Fformat_network_address): New function.
Kim F. Storm <storm@cua.dk>
parents: 47542
diff changeset
3493 else
b30942bd85f3 (Fformat_network_address): New function.
Kim F. Storm <storm@cua.dk>
parents: 47542
diff changeset
3494 {
b30942bd85f3 (Fformat_network_address): New function.
Kim F. Storm <storm@cua.dk>
parents: 47542
diff changeset
3495 args[0] = Qopen_network_stream, args[1] = name,
b30942bd85f3 (Fformat_network_address): New function.
Kim F. Storm <storm@cua.dk>
parents: 47542
diff changeset
3496 args[2] = buffer, args[3] = host, args[4] = service;
b30942bd85f3 (Fformat_network_address): New function.
Kim F. Storm <storm@cua.dk>
parents: 47542
diff changeset
3497 GCPRO1 (proc);
b30942bd85f3 (Fformat_network_address): New function.
Kim F. Storm <storm@cua.dk>
parents: 47542
diff changeset
3498 coding_systems = Ffind_operation_coding_system (5, args);
b30942bd85f3 (Fformat_network_address): New function.
Kim F. Storm <storm@cua.dk>
parents: 47542
diff changeset
3499 UNGCPRO;
b30942bd85f3 (Fformat_network_address): New function.
Kim F. Storm <storm@cua.dk>
parents: 47542
diff changeset
3500 }
22019
bb9dd4758e7e (Fstart_process): Remove the special case for
Richard M. Stallman <rms@gnu.org>
parents: 21978
diff changeset
3501 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
3502 val = XCAR (coding_systems);
22019
bb9dd4758e7e (Fstart_process): Remove the special case for
Richard M. Stallman <rms@gnu.org>
parents: 21978
diff changeset
3503 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
3504 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
3505 else
bb9dd4758e7e (Fstart_process): Remove the special case for
Richard M. Stallman <rms@gnu.org>
parents: 21978
diff changeset
3506 val = Qnil;
bb9dd4758e7e (Fstart_process): Remove the special case for
Richard M. Stallman <rms@gnu.org>
parents: 21978
diff changeset
3507 }
43968
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
3508 p->decode_coding_system = val;
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
3509
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
3510 if (!NILP (tem))
52516
0ca23eb697b9 (Fset_process_sentinel): Add sentinel to childp plist
Kim F. Storm <storm@cua.dk>
parents: 52503
diff changeset
3511 {
0ca23eb697b9 (Fset_process_sentinel): Add sentinel to childp plist
Kim F. Storm <storm@cua.dk>
parents: 52503
diff changeset
3512 val = XCAR (XCDR (tem));
0ca23eb697b9 (Fset_process_sentinel): Add sentinel to childp plist
Kim F. Storm <storm@cua.dk>
parents: 52503
diff changeset
3513 if (CONSP (val))
0ca23eb697b9 (Fset_process_sentinel): Add sentinel to childp plist
Kim F. Storm <storm@cua.dk>
parents: 52503
diff changeset
3514 val = XCDR (val);
0ca23eb697b9 (Fset_process_sentinel): Add sentinel to childp plist
Kim F. Storm <storm@cua.dk>
parents: 52503
diff changeset
3515 }
43968
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
3516 else if (!NILP (Vcoding_system_for_write))
22019
bb9dd4758e7e (Fstart_process): Remove the special case for
Richard M. Stallman <rms@gnu.org>
parents: 21978
diff changeset
3517 val = Vcoding_system_for_write;
bb9dd4758e7e (Fstart_process): Remove the special case for
Richard M. Stallman <rms@gnu.org>
parents: 21978
diff changeset
3518 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
3519 val = Qnil;
bb9dd4758e7e (Fstart_process): Remove the special case for
Richard M. Stallman <rms@gnu.org>
parents: 21978
diff changeset
3520 else
bb9dd4758e7e (Fstart_process): Remove the special case for
Richard M. Stallman <rms@gnu.org>
parents: 21978
diff changeset
3521 {
bb9dd4758e7e (Fstart_process): Remove the special case for
Richard M. Stallman <rms@gnu.org>
parents: 21978
diff changeset
3522 if (EQ (coding_systems, Qt))
bb9dd4758e7e (Fstart_process): Remove the special case for
Richard M. Stallman <rms@gnu.org>
parents: 21978
diff changeset
3523 {
47987
b30942bd85f3 (Fformat_network_address): New function.
Kim F. Storm <storm@cua.dk>
parents: 47542
diff changeset
3524 if (NILP (host) || NILP (service))
b30942bd85f3 (Fformat_network_address): New function.
Kim F. Storm <storm@cua.dk>
parents: 47542
diff changeset
3525 coding_systems = Qnil;
b30942bd85f3 (Fformat_network_address): New function.
Kim F. Storm <storm@cua.dk>
parents: 47542
diff changeset
3526 else
b30942bd85f3 (Fformat_network_address): New function.
Kim F. Storm <storm@cua.dk>
parents: 47542
diff changeset
3527 {
b30942bd85f3 (Fformat_network_address): New function.
Kim F. Storm <storm@cua.dk>
parents: 47542
diff changeset
3528 args[0] = Qopen_network_stream, args[1] = name,
b30942bd85f3 (Fformat_network_address): New function.
Kim F. Storm <storm@cua.dk>
parents: 47542
diff changeset
3529 args[2] = buffer, args[3] = host, args[4] = service;
b30942bd85f3 (Fformat_network_address): New function.
Kim F. Storm <storm@cua.dk>
parents: 47542
diff changeset
3530 GCPRO1 (proc);
b30942bd85f3 (Fformat_network_address): New function.
Kim F. Storm <storm@cua.dk>
parents: 47542
diff changeset
3531 coding_systems = Ffind_operation_coding_system (5, args);
b30942bd85f3 (Fformat_network_address): New function.
Kim F. Storm <storm@cua.dk>
parents: 47542
diff changeset
3532 UNGCPRO;
b30942bd85f3 (Fformat_network_address): New function.
Kim F. Storm <storm@cua.dk>
parents: 47542
diff changeset
3533 }
22019
bb9dd4758e7e (Fstart_process): Remove the special case for
Richard M. Stallman <rms@gnu.org>
parents: 21978
diff changeset
3534 }
bb9dd4758e7e (Fstart_process): Remove the special case for
Richard M. Stallman <rms@gnu.org>
parents: 21978
diff changeset
3535 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
3536 val = XCDR (coding_systems);
22019
bb9dd4758e7e (Fstart_process): Remove the special case for
Richard M. Stallman <rms@gnu.org>
parents: 21978
diff changeset
3537 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
3538 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
3539 else
bb9dd4758e7e (Fstart_process): Remove the special case for
Richard M. Stallman <rms@gnu.org>
parents: 21978
diff changeset
3540 val = Qnil;
bb9dd4758e7e (Fstart_process): Remove the special case for
Richard M. Stallman <rms@gnu.org>
parents: 21978
diff changeset
3541 }
43968
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
3542 p->encode_coding_system = val;
22019
bb9dd4758e7e (Fstart_process): Remove the special case for
Richard M. Stallman <rms@gnu.org>
parents: 21978
diff changeset
3543 }
49667
cbec1327e2f1 (QCfilter_multibyte): New variable.
Kenichi Handa <handa@m17n.org>
parents: 49600
diff changeset
3544 setup_process_coding_systems (proc);
17041
b61cbe595be5 Include charset.h and coding.h.
Karl Heuer <kwzh@gnu.org>
parents: 16780
diff changeset
3545
43968
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
3546 p->decoding_buf = make_uninit_string (0);
81826
077a1e6fd3f2 (struct Lisp_Process): Turn slots infd, outfd, kill_without_query, pty_flag,
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 80984
diff changeset
3547 p->decoding_carryover = 0;
43968
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
3548 p->encoding_buf = make_uninit_string (0);
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
3549
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
3550 p->inherit_coding_system_flag
81926
50da0700fc26 (Fstart_process, Fmake_network_process, read_process_output):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 81876
diff changeset
3551 = !(!NILP (tem) || NILP (buffer) || !inherit_process_coding_system);
21656
bb39a5863a82 (Fset_process_inherit_coding_system_flag,
Eli Zaretskii <eliz@gnu.org>
parents: 21530
diff changeset
3552
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3553 UNGCPRO;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3554 return proc;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3555 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3556 #endif /* HAVE_SOCKETS */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3557
52503
256a27a47af1 [HAVE_SOCKETS]: Include sys/ioctl.h and net/if.h.
Kim F. Storm <storm@cua.dk>
parents: 52401
diff changeset
3558
52525
fd2be6cea0e7 (Fnetwork_interface_list, Fnetwork_interface_info):
Kim F. Storm <storm@cua.dk>
parents: 52516
diff changeset
3559 #if defined(HAVE_SOCKETS) && defined(HAVE_NET_IF_H) && defined(HAVE_SYS_IOCTL_H)
52503
256a27a47af1 [HAVE_SOCKETS]: Include sys/ioctl.h and net/if.h.
Kim F. Storm <storm@cua.dk>
parents: 52401
diff changeset
3560
256a27a47af1 [HAVE_SOCKETS]: Include sys/ioctl.h and net/if.h.
Kim F. Storm <storm@cua.dk>
parents: 52401
diff changeset
3561 #ifdef SIOCGIFCONF
256a27a47af1 [HAVE_SOCKETS]: Include sys/ioctl.h and net/if.h.
Kim F. Storm <storm@cua.dk>
parents: 52401
diff changeset
3562 DEFUN ("network-interface-list", Fnetwork_interface_list, Snetwork_interface_list, 0, 0, 0,
256a27a47af1 [HAVE_SOCKETS]: Include sys/ioctl.h and net/if.h.
Kim F. Storm <storm@cua.dk>
parents: 52401
diff changeset
3563 doc: /* Return an alist of all network interfaces and their network address.
256a27a47af1 [HAVE_SOCKETS]: Include sys/ioctl.h and net/if.h.
Kim F. Storm <storm@cua.dk>
parents: 52401
diff changeset
3564 Each element is a cons, the car of which is a string containing the
256a27a47af1 [HAVE_SOCKETS]: Include sys/ioctl.h and net/if.h.
Kim F. Storm <storm@cua.dk>
parents: 52401
diff changeset
3565 interface name, and the cdr is the network address in internal
52527
3ea59ac8dfa5 (Fnetwork_interface_info): Fix type error.
Dave Love <fx@gnu.org>
parents: 52525
diff changeset
3566 format; see the description of ADDRESS in `make-network-process'. */)
52503
256a27a47af1 [HAVE_SOCKETS]: Include sys/ioctl.h and net/if.h.
Kim F. Storm <storm@cua.dk>
parents: 52401
diff changeset
3567 ()
256a27a47af1 [HAVE_SOCKETS]: Include sys/ioctl.h and net/if.h.
Kim F. Storm <storm@cua.dk>
parents: 52401
diff changeset
3568 {
256a27a47af1 [HAVE_SOCKETS]: Include sys/ioctl.h and net/if.h.
Kim F. Storm <storm@cua.dk>
parents: 52401
diff changeset
3569 struct ifconf ifconf;
256a27a47af1 [HAVE_SOCKETS]: Include sys/ioctl.h and net/if.h.
Kim F. Storm <storm@cua.dk>
parents: 52401
diff changeset
3570 struct ifreq *ifreqs = NULL;
256a27a47af1 [HAVE_SOCKETS]: Include sys/ioctl.h and net/if.h.
Kim F. Storm <storm@cua.dk>
parents: 52401
diff changeset
3571 int ifaces = 0;
256a27a47af1 [HAVE_SOCKETS]: Include sys/ioctl.h and net/if.h.
Kim F. Storm <storm@cua.dk>
parents: 52401
diff changeset
3572 int buf_size, s;
256a27a47af1 [HAVE_SOCKETS]: Include sys/ioctl.h and net/if.h.
Kim F. Storm <storm@cua.dk>
parents: 52401
diff changeset
3573 Lisp_Object res;
256a27a47af1 [HAVE_SOCKETS]: Include sys/ioctl.h and net/if.h.
Kim F. Storm <storm@cua.dk>
parents: 52401
diff changeset
3574
256a27a47af1 [HAVE_SOCKETS]: Include sys/ioctl.h and net/if.h.
Kim F. Storm <storm@cua.dk>
parents: 52401
diff changeset
3575 s = socket (AF_INET, SOCK_STREAM, 0);
256a27a47af1 [HAVE_SOCKETS]: Include sys/ioctl.h and net/if.h.
Kim F. Storm <storm@cua.dk>
parents: 52401
diff changeset
3576 if (s < 0)
256a27a47af1 [HAVE_SOCKETS]: Include sys/ioctl.h and net/if.h.
Kim F. Storm <storm@cua.dk>
parents: 52401
diff changeset
3577 return Qnil;
256a27a47af1 [HAVE_SOCKETS]: Include sys/ioctl.h and net/if.h.
Kim F. Storm <storm@cua.dk>
parents: 52401
diff changeset
3578
256a27a47af1 [HAVE_SOCKETS]: Include sys/ioctl.h and net/if.h.
Kim F. Storm <storm@cua.dk>
parents: 52401
diff changeset
3579 again:
256a27a47af1 [HAVE_SOCKETS]: Include sys/ioctl.h and net/if.h.
Kim F. Storm <storm@cua.dk>
parents: 52401
diff changeset
3580 ifaces += 25;
256a27a47af1 [HAVE_SOCKETS]: Include sys/ioctl.h and net/if.h.
Kim F. Storm <storm@cua.dk>
parents: 52401
diff changeset
3581 buf_size = ifaces * sizeof(ifreqs[0]);
256a27a47af1 [HAVE_SOCKETS]: Include sys/ioctl.h and net/if.h.
Kim F. Storm <storm@cua.dk>
parents: 52401
diff changeset
3582 ifreqs = (struct ifreq *)xrealloc(ifreqs, buf_size);
256a27a47af1 [HAVE_SOCKETS]: Include sys/ioctl.h and net/if.h.
Kim F. Storm <storm@cua.dk>
parents: 52401
diff changeset
3583 if (!ifreqs)
256a27a47af1 [HAVE_SOCKETS]: Include sys/ioctl.h and net/if.h.
Kim F. Storm <storm@cua.dk>
parents: 52401
diff changeset
3584 {
256a27a47af1 [HAVE_SOCKETS]: Include sys/ioctl.h and net/if.h.
Kim F. Storm <storm@cua.dk>
parents: 52401
diff changeset
3585 close (s);
256a27a47af1 [HAVE_SOCKETS]: Include sys/ioctl.h and net/if.h.
Kim F. Storm <storm@cua.dk>
parents: 52401
diff changeset
3586 return Qnil;
256a27a47af1 [HAVE_SOCKETS]: Include sys/ioctl.h and net/if.h.
Kim F. Storm <storm@cua.dk>
parents: 52401
diff changeset
3587 }
256a27a47af1 [HAVE_SOCKETS]: Include sys/ioctl.h and net/if.h.
Kim F. Storm <storm@cua.dk>
parents: 52401
diff changeset
3588
256a27a47af1 [HAVE_SOCKETS]: Include sys/ioctl.h and net/if.h.
Kim F. Storm <storm@cua.dk>
parents: 52401
diff changeset
3589 ifconf.ifc_len = buf_size;
256a27a47af1 [HAVE_SOCKETS]: Include sys/ioctl.h and net/if.h.
Kim F. Storm <storm@cua.dk>
parents: 52401
diff changeset
3590 ifconf.ifc_req = ifreqs;
256a27a47af1 [HAVE_SOCKETS]: Include sys/ioctl.h and net/if.h.
Kim F. Storm <storm@cua.dk>
parents: 52401
diff changeset
3591 if (ioctl (s, SIOCGIFCONF, &ifconf))
256a27a47af1 [HAVE_SOCKETS]: Include sys/ioctl.h and net/if.h.
Kim F. Storm <storm@cua.dk>
parents: 52401
diff changeset
3592 {
256a27a47af1 [HAVE_SOCKETS]: Include sys/ioctl.h and net/if.h.
Kim F. Storm <storm@cua.dk>
parents: 52401
diff changeset
3593 close (s);
256a27a47af1 [HAVE_SOCKETS]: Include sys/ioctl.h and net/if.h.
Kim F. Storm <storm@cua.dk>
parents: 52401
diff changeset
3594 return Qnil;
256a27a47af1 [HAVE_SOCKETS]: Include sys/ioctl.h and net/if.h.
Kim F. Storm <storm@cua.dk>
parents: 52401
diff changeset
3595 }
256a27a47af1 [HAVE_SOCKETS]: Include sys/ioctl.h and net/if.h.
Kim F. Storm <storm@cua.dk>
parents: 52401
diff changeset
3596
256a27a47af1 [HAVE_SOCKETS]: Include sys/ioctl.h and net/if.h.
Kim F. Storm <storm@cua.dk>
parents: 52401
diff changeset
3597 if (ifconf.ifc_len == buf_size)
256a27a47af1 [HAVE_SOCKETS]: Include sys/ioctl.h and net/if.h.
Kim F. Storm <storm@cua.dk>
parents: 52401
diff changeset
3598 goto again;
256a27a47af1 [HAVE_SOCKETS]: Include sys/ioctl.h and net/if.h.
Kim F. Storm <storm@cua.dk>
parents: 52401
diff changeset
3599
256a27a47af1 [HAVE_SOCKETS]: Include sys/ioctl.h and net/if.h.
Kim F. Storm <storm@cua.dk>
parents: 52401
diff changeset
3600 close (s);
256a27a47af1 [HAVE_SOCKETS]: Include sys/ioctl.h and net/if.h.
Kim F. Storm <storm@cua.dk>
parents: 52401
diff changeset
3601 ifaces = ifconf.ifc_len / sizeof (ifreqs[0]);
256a27a47af1 [HAVE_SOCKETS]: Include sys/ioctl.h and net/if.h.
Kim F. Storm <storm@cua.dk>
parents: 52401
diff changeset
3602
256a27a47af1 [HAVE_SOCKETS]: Include sys/ioctl.h and net/if.h.
Kim F. Storm <storm@cua.dk>
parents: 52401
diff changeset
3603 res = Qnil;
256a27a47af1 [HAVE_SOCKETS]: Include sys/ioctl.h and net/if.h.
Kim F. Storm <storm@cua.dk>
parents: 52401
diff changeset
3604 while (--ifaces >= 0)
256a27a47af1 [HAVE_SOCKETS]: Include sys/ioctl.h and net/if.h.
Kim F. Storm <storm@cua.dk>
parents: 52401
diff changeset
3605 {
256a27a47af1 [HAVE_SOCKETS]: Include sys/ioctl.h and net/if.h.
Kim F. Storm <storm@cua.dk>
parents: 52401
diff changeset
3606 struct ifreq *ifq = &ifreqs[ifaces];
256a27a47af1 [HAVE_SOCKETS]: Include sys/ioctl.h and net/if.h.
Kim F. Storm <storm@cua.dk>
parents: 52401
diff changeset
3607 char namebuf[sizeof (ifq->ifr_name) + 1];
256a27a47af1 [HAVE_SOCKETS]: Include sys/ioctl.h and net/if.h.
Kim F. Storm <storm@cua.dk>
parents: 52401
diff changeset
3608 if (ifq->ifr_addr.sa_family != AF_INET)
256a27a47af1 [HAVE_SOCKETS]: Include sys/ioctl.h and net/if.h.
Kim F. Storm <storm@cua.dk>
parents: 52401
diff changeset
3609 continue;
256a27a47af1 [HAVE_SOCKETS]: Include sys/ioctl.h and net/if.h.
Kim F. Storm <storm@cua.dk>
parents: 52401
diff changeset
3610 bcopy (ifq->ifr_name, namebuf, sizeof (ifq->ifr_name));
256a27a47af1 [HAVE_SOCKETS]: Include sys/ioctl.h and net/if.h.
Kim F. Storm <storm@cua.dk>
parents: 52401
diff changeset
3611 namebuf[sizeof (ifq->ifr_name)] = 0;
256a27a47af1 [HAVE_SOCKETS]: Include sys/ioctl.h and net/if.h.
Kim F. Storm <storm@cua.dk>
parents: 52401
diff changeset
3612 res = Fcons (Fcons (build_string (namebuf),
256a27a47af1 [HAVE_SOCKETS]: Include sys/ioctl.h and net/if.h.
Kim F. Storm <storm@cua.dk>
parents: 52401
diff changeset
3613 conv_sockaddr_to_lisp (&ifq->ifr_addr,
256a27a47af1 [HAVE_SOCKETS]: Include sys/ioctl.h and net/if.h.
Kim F. Storm <storm@cua.dk>
parents: 52401
diff changeset
3614 sizeof (struct sockaddr))),
256a27a47af1 [HAVE_SOCKETS]: Include sys/ioctl.h and net/if.h.
Kim F. Storm <storm@cua.dk>
parents: 52401
diff changeset
3615 res);
256a27a47af1 [HAVE_SOCKETS]: Include sys/ioctl.h and net/if.h.
Kim F. Storm <storm@cua.dk>
parents: 52401
diff changeset
3616 }
256a27a47af1 [HAVE_SOCKETS]: Include sys/ioctl.h and net/if.h.
Kim F. Storm <storm@cua.dk>
parents: 52401
diff changeset
3617
256a27a47af1 [HAVE_SOCKETS]: Include sys/ioctl.h and net/if.h.
Kim F. Storm <storm@cua.dk>
parents: 52401
diff changeset
3618 return res;
256a27a47af1 [HAVE_SOCKETS]: Include sys/ioctl.h and net/if.h.
Kim F. Storm <storm@cua.dk>
parents: 52401
diff changeset
3619 }
52525
fd2be6cea0e7 (Fnetwork_interface_list, Fnetwork_interface_info):
Kim F. Storm <storm@cua.dk>
parents: 52516
diff changeset
3620 #endif /* SIOCGIFCONF */
52503
256a27a47af1 [HAVE_SOCKETS]: Include sys/ioctl.h and net/if.h.
Kim F. Storm <storm@cua.dk>
parents: 52401
diff changeset
3621
256a27a47af1 [HAVE_SOCKETS]: Include sys/ioctl.h and net/if.h.
Kim F. Storm <storm@cua.dk>
parents: 52401
diff changeset
3622 #if defined(SIOCGIFADDR) || defined(SIOCGIFHWADDR) || defined(SIOCGIFFLAGS)
256a27a47af1 [HAVE_SOCKETS]: Include sys/ioctl.h and net/if.h.
Kim F. Storm <storm@cua.dk>
parents: 52401
diff changeset
3623
256a27a47af1 [HAVE_SOCKETS]: Include sys/ioctl.h and net/if.h.
Kim F. Storm <storm@cua.dk>
parents: 52401
diff changeset
3624 struct ifflag_def {
256a27a47af1 [HAVE_SOCKETS]: Include sys/ioctl.h and net/if.h.
Kim F. Storm <storm@cua.dk>
parents: 52401
diff changeset
3625 int flag_bit;
256a27a47af1 [HAVE_SOCKETS]: Include sys/ioctl.h and net/if.h.
Kim F. Storm <storm@cua.dk>
parents: 52401
diff changeset
3626 char *flag_sym;
256a27a47af1 [HAVE_SOCKETS]: Include sys/ioctl.h and net/if.h.
Kim F. Storm <storm@cua.dk>
parents: 52401
diff changeset
3627 };
256a27a47af1 [HAVE_SOCKETS]: Include sys/ioctl.h and net/if.h.
Kim F. Storm <storm@cua.dk>
parents: 52401
diff changeset
3628
256a27a47af1 [HAVE_SOCKETS]: Include sys/ioctl.h and net/if.h.
Kim F. Storm <storm@cua.dk>
parents: 52401
diff changeset
3629 static struct ifflag_def ifflag_table[] = {
256a27a47af1 [HAVE_SOCKETS]: Include sys/ioctl.h and net/if.h.
Kim F. Storm <storm@cua.dk>
parents: 52401
diff changeset
3630 #ifdef IFF_UP
256a27a47af1 [HAVE_SOCKETS]: Include sys/ioctl.h and net/if.h.
Kim F. Storm <storm@cua.dk>
parents: 52401
diff changeset
3631 { IFF_UP, "up" },
256a27a47af1 [HAVE_SOCKETS]: Include sys/ioctl.h and net/if.h.
Kim F. Storm <storm@cua.dk>
parents: 52401
diff changeset
3632 #endif
256a27a47af1 [HAVE_SOCKETS]: Include sys/ioctl.h and net/if.h.
Kim F. Storm <storm@cua.dk>
parents: 52401
diff changeset
3633 #ifdef IFF_BROADCAST
256a27a47af1 [HAVE_SOCKETS]: Include sys/ioctl.h and net/if.h.
Kim F. Storm <storm@cua.dk>
parents: 52401
diff changeset
3634 { IFF_BROADCAST, "broadcast" },
256a27a47af1 [HAVE_SOCKETS]: Include sys/ioctl.h and net/if.h.
Kim F. Storm <storm@cua.dk>
parents: 52401
diff changeset
3635 #endif
256a27a47af1 [HAVE_SOCKETS]: Include sys/ioctl.h and net/if.h.
Kim F. Storm <storm@cua.dk>
parents: 52401
diff changeset
3636 #ifdef IFF_DEBUG
256a27a47af1 [HAVE_SOCKETS]: Include sys/ioctl.h and net/if.h.
Kim F. Storm <storm@cua.dk>
parents: 52401
diff changeset
3637 { IFF_DEBUG, "debug" },
256a27a47af1 [HAVE_SOCKETS]: Include sys/ioctl.h and net/if.h.
Kim F. Storm <storm@cua.dk>
parents: 52401
diff changeset
3638 #endif
256a27a47af1 [HAVE_SOCKETS]: Include sys/ioctl.h and net/if.h.
Kim F. Storm <storm@cua.dk>
parents: 52401
diff changeset
3639 #ifdef IFF_LOOPBACK
256a27a47af1 [HAVE_SOCKETS]: Include sys/ioctl.h and net/if.h.
Kim F. Storm <storm@cua.dk>
parents: 52401
diff changeset
3640 { IFF_LOOPBACK, "loopback" },
256a27a47af1 [HAVE_SOCKETS]: Include sys/ioctl.h and net/if.h.
Kim F. Storm <storm@cua.dk>
parents: 52401
diff changeset
3641 #endif
256a27a47af1 [HAVE_SOCKETS]: Include sys/ioctl.h and net/if.h.
Kim F. Storm <storm@cua.dk>
parents: 52401
diff changeset
3642 #ifdef IFF_POINTOPOINT
256a27a47af1 [HAVE_SOCKETS]: Include sys/ioctl.h and net/if.h.
Kim F. Storm <storm@cua.dk>
parents: 52401
diff changeset
3643 { IFF_POINTOPOINT, "pointopoint" },
256a27a47af1 [HAVE_SOCKETS]: Include sys/ioctl.h and net/if.h.
Kim F. Storm <storm@cua.dk>
parents: 52401
diff changeset
3644 #endif
256a27a47af1 [HAVE_SOCKETS]: Include sys/ioctl.h and net/if.h.
Kim F. Storm <storm@cua.dk>
parents: 52401
diff changeset
3645 #ifdef IFF_RUNNING
256a27a47af1 [HAVE_SOCKETS]: Include sys/ioctl.h and net/if.h.
Kim F. Storm <storm@cua.dk>
parents: 52401
diff changeset
3646 { IFF_RUNNING, "running" },
256a27a47af1 [HAVE_SOCKETS]: Include sys/ioctl.h and net/if.h.
Kim F. Storm <storm@cua.dk>
parents: 52401
diff changeset
3647 #endif
256a27a47af1 [HAVE_SOCKETS]: Include sys/ioctl.h and net/if.h.
Kim F. Storm <storm@cua.dk>
parents: 52401
diff changeset
3648 #ifdef IFF_NOARP
256a27a47af1 [HAVE_SOCKETS]: Include sys/ioctl.h and net/if.h.
Kim F. Storm <storm@cua.dk>
parents: 52401
diff changeset
3649 { IFF_NOARP, "noarp" },
256a27a47af1 [HAVE_SOCKETS]: Include sys/ioctl.h and net/if.h.
Kim F. Storm <storm@cua.dk>
parents: 52401
diff changeset
3650 #endif
256a27a47af1 [HAVE_SOCKETS]: Include sys/ioctl.h and net/if.h.
Kim F. Storm <storm@cua.dk>
parents: 52401
diff changeset
3651 #ifdef IFF_PROMISC
256a27a47af1 [HAVE_SOCKETS]: Include sys/ioctl.h and net/if.h.
Kim F. Storm <storm@cua.dk>
parents: 52401
diff changeset
3652 { IFF_PROMISC, "promisc" },
256a27a47af1 [HAVE_SOCKETS]: Include sys/ioctl.h and net/if.h.
Kim F. Storm <storm@cua.dk>
parents: 52401
diff changeset
3653 #endif
256a27a47af1 [HAVE_SOCKETS]: Include sys/ioctl.h and net/if.h.
Kim F. Storm <storm@cua.dk>
parents: 52401
diff changeset
3654 #ifdef IFF_NOTRAILERS
256a27a47af1 [HAVE_SOCKETS]: Include sys/ioctl.h and net/if.h.
Kim F. Storm <storm@cua.dk>
parents: 52401
diff changeset
3655 { IFF_NOTRAILERS, "notrailers" },
256a27a47af1 [HAVE_SOCKETS]: Include sys/ioctl.h and net/if.h.
Kim F. Storm <storm@cua.dk>
parents: 52401
diff changeset
3656 #endif
256a27a47af1 [HAVE_SOCKETS]: Include sys/ioctl.h and net/if.h.
Kim F. Storm <storm@cua.dk>
parents: 52401
diff changeset
3657 #ifdef IFF_ALLMULTI
256a27a47af1 [HAVE_SOCKETS]: Include sys/ioctl.h and net/if.h.
Kim F. Storm <storm@cua.dk>
parents: 52401
diff changeset
3658 { IFF_ALLMULTI, "allmulti" },
256a27a47af1 [HAVE_SOCKETS]: Include sys/ioctl.h and net/if.h.
Kim F. Storm <storm@cua.dk>
parents: 52401
diff changeset
3659 #endif
256a27a47af1 [HAVE_SOCKETS]: Include sys/ioctl.h and net/if.h.
Kim F. Storm <storm@cua.dk>
parents: 52401
diff changeset
3660 #ifdef IFF_MASTER
256a27a47af1 [HAVE_SOCKETS]: Include sys/ioctl.h and net/if.h.
Kim F. Storm <storm@cua.dk>
parents: 52401
diff changeset
3661 { IFF_MASTER, "master" },
256a27a47af1 [HAVE_SOCKETS]: Include sys/ioctl.h and net/if.h.
Kim F. Storm <storm@cua.dk>
parents: 52401
diff changeset
3662 #endif
256a27a47af1 [HAVE_SOCKETS]: Include sys/ioctl.h and net/if.h.
Kim F. Storm <storm@cua.dk>
parents: 52401
diff changeset
3663 #ifdef IFF_SLAVE
256a27a47af1 [HAVE_SOCKETS]: Include sys/ioctl.h and net/if.h.
Kim F. Storm <storm@cua.dk>
parents: 52401
diff changeset
3664 { IFF_SLAVE, "slave" },
256a27a47af1 [HAVE_SOCKETS]: Include sys/ioctl.h and net/if.h.
Kim F. Storm <storm@cua.dk>
parents: 52401
diff changeset
3665 #endif
256a27a47af1 [HAVE_SOCKETS]: Include sys/ioctl.h and net/if.h.
Kim F. Storm <storm@cua.dk>
parents: 52401
diff changeset
3666 #ifdef IFF_MULTICAST
256a27a47af1 [HAVE_SOCKETS]: Include sys/ioctl.h and net/if.h.
Kim F. Storm <storm@cua.dk>
parents: 52401
diff changeset
3667 { IFF_MULTICAST, "multicast" },
256a27a47af1 [HAVE_SOCKETS]: Include sys/ioctl.h and net/if.h.
Kim F. Storm <storm@cua.dk>
parents: 52401
diff changeset
3668 #endif
256a27a47af1 [HAVE_SOCKETS]: Include sys/ioctl.h and net/if.h.
Kim F. Storm <storm@cua.dk>
parents: 52401
diff changeset
3669 #ifdef IFF_PORTSEL
256a27a47af1 [HAVE_SOCKETS]: Include sys/ioctl.h and net/if.h.
Kim F. Storm <storm@cua.dk>
parents: 52401
diff changeset
3670 { IFF_PORTSEL, "portsel" },
256a27a47af1 [HAVE_SOCKETS]: Include sys/ioctl.h and net/if.h.
Kim F. Storm <storm@cua.dk>
parents: 52401
diff changeset
3671 #endif
256a27a47af1 [HAVE_SOCKETS]: Include sys/ioctl.h and net/if.h.
Kim F. Storm <storm@cua.dk>
parents: 52401
diff changeset
3672 #ifdef IFF_AUTOMEDIA
256a27a47af1 [HAVE_SOCKETS]: Include sys/ioctl.h and net/if.h.
Kim F. Storm <storm@cua.dk>
parents: 52401
diff changeset
3673 { IFF_AUTOMEDIA, "automedia" },
256a27a47af1 [HAVE_SOCKETS]: Include sys/ioctl.h and net/if.h.
Kim F. Storm <storm@cua.dk>
parents: 52401
diff changeset
3674 #endif
256a27a47af1 [HAVE_SOCKETS]: Include sys/ioctl.h and net/if.h.
Kim F. Storm <storm@cua.dk>
parents: 52401
diff changeset
3675 #ifdef IFF_DYNAMIC
256a27a47af1 [HAVE_SOCKETS]: Include sys/ioctl.h and net/if.h.
Kim F. Storm <storm@cua.dk>
parents: 52401
diff changeset
3676 { IFF_DYNAMIC, "dynamic" },
256a27a47af1 [HAVE_SOCKETS]: Include sys/ioctl.h and net/if.h.
Kim F. Storm <storm@cua.dk>
parents: 52401
diff changeset
3677 #endif
68146
e5c85a134e67 [HAVE_INTTYPES_H]: Include inttypes.h.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 68041
diff changeset
3678 #ifdef IFF_OACTIVE
e5c85a134e67 [HAVE_INTTYPES_H]: Include inttypes.h.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 68041
diff changeset
3679 { IFF_OACTIVE, "oactive" }, /* OpenBSD: transmission in progress */
68008
10f0a09ec82e Add IPv6 support.
Kim F. Storm <storm@cua.dk>
parents: 67920
diff changeset
3680 #endif
10f0a09ec82e Add IPv6 support.
Kim F. Storm <storm@cua.dk>
parents: 67920
diff changeset
3681 #ifdef IFF_SIMPLEX
10f0a09ec82e Add IPv6 support.
Kim F. Storm <storm@cua.dk>
parents: 67920
diff changeset
3682 { IFF_SIMPLEX, "simplex" }, /* OpenBSD: can't hear own transmissions */
10f0a09ec82e Add IPv6 support.
Kim F. Storm <storm@cua.dk>
parents: 67920
diff changeset
3683 #endif
10f0a09ec82e Add IPv6 support.
Kim F. Storm <storm@cua.dk>
parents: 67920
diff changeset
3684 #ifdef IFF_LINK0
10f0a09ec82e Add IPv6 support.
Kim F. Storm <storm@cua.dk>
parents: 67920
diff changeset
3685 { IFF_LINK0, "link0" }, /* OpenBSD: per link layer defined bit */
10f0a09ec82e Add IPv6 support.
Kim F. Storm <storm@cua.dk>
parents: 67920
diff changeset
3686 #endif
10f0a09ec82e Add IPv6 support.
Kim F. Storm <storm@cua.dk>
parents: 67920
diff changeset
3687 #ifdef IFF_LINK1
10f0a09ec82e Add IPv6 support.
Kim F. Storm <storm@cua.dk>
parents: 67920
diff changeset
3688 { IFF_LINK1, "link1" }, /* OpenBSD: per link layer defined bit */
10f0a09ec82e Add IPv6 support.
Kim F. Storm <storm@cua.dk>
parents: 67920
diff changeset
3689 #endif
10f0a09ec82e Add IPv6 support.
Kim F. Storm <storm@cua.dk>
parents: 67920
diff changeset
3690 #ifdef IFF_LINK2
10f0a09ec82e Add IPv6 support.
Kim F. Storm <storm@cua.dk>
parents: 67920
diff changeset
3691 { IFF_LINK2, "link2" }, /* OpenBSD: per link layer defined bit */
10f0a09ec82e Add IPv6 support.
Kim F. Storm <storm@cua.dk>
parents: 67920
diff changeset
3692 #endif
52503
256a27a47af1 [HAVE_SOCKETS]: Include sys/ioctl.h and net/if.h.
Kim F. Storm <storm@cua.dk>
parents: 52401
diff changeset
3693 { 0, 0 }
256a27a47af1 [HAVE_SOCKETS]: Include sys/ioctl.h and net/if.h.
Kim F. Storm <storm@cua.dk>
parents: 52401
diff changeset
3694 };
256a27a47af1 [HAVE_SOCKETS]: Include sys/ioctl.h and net/if.h.
Kim F. Storm <storm@cua.dk>
parents: 52401
diff changeset
3695
52516
0ca23eb697b9 (Fset_process_sentinel): Add sentinel to childp plist
Kim F. Storm <storm@cua.dk>
parents: 52503
diff changeset
3696 DEFUN ("network-interface-info", Fnetwork_interface_info, Snetwork_interface_info, 1, 1, 0,
52503
256a27a47af1 [HAVE_SOCKETS]: Include sys/ioctl.h and net/if.h.
Kim F. Storm <storm@cua.dk>
parents: 52401
diff changeset
3697 doc: /* Return information about network interface named IFNAME.
256a27a47af1 [HAVE_SOCKETS]: Include sys/ioctl.h and net/if.h.
Kim F. Storm <storm@cua.dk>
parents: 52401
diff changeset
3698 The return value is a list (ADDR BCAST NETMASK HWADDR FLAGS),
256a27a47af1 [HAVE_SOCKETS]: Include sys/ioctl.h and net/if.h.
Kim F. Storm <storm@cua.dk>
parents: 52401
diff changeset
3699 where ADDR is the layer 3 address, BCAST is the layer 3 broadcast address,
256a27a47af1 [HAVE_SOCKETS]: Include sys/ioctl.h and net/if.h.
Kim F. Storm <storm@cua.dk>
parents: 52401
diff changeset
3700 NETMASK is the layer 3 network mask, HWADDR is the layer 2 addres, and
256a27a47af1 [HAVE_SOCKETS]: Include sys/ioctl.h and net/if.h.
Kim F. Storm <storm@cua.dk>
parents: 52401
diff changeset
3701 FLAGS is the current flags of the interface. */)
256a27a47af1 [HAVE_SOCKETS]: Include sys/ioctl.h and net/if.h.
Kim F. Storm <storm@cua.dk>
parents: 52401
diff changeset
3702 (ifname)
256a27a47af1 [HAVE_SOCKETS]: Include sys/ioctl.h and net/if.h.
Kim F. Storm <storm@cua.dk>
parents: 52401
diff changeset
3703 Lisp_Object ifname;
256a27a47af1 [HAVE_SOCKETS]: Include sys/ioctl.h and net/if.h.
Kim F. Storm <storm@cua.dk>
parents: 52401
diff changeset
3704 {
256a27a47af1 [HAVE_SOCKETS]: Include sys/ioctl.h and net/if.h.
Kim F. Storm <storm@cua.dk>
parents: 52401
diff changeset
3705 struct ifreq rq;
256a27a47af1 [HAVE_SOCKETS]: Include sys/ioctl.h and net/if.h.
Kim F. Storm <storm@cua.dk>
parents: 52401
diff changeset
3706 Lisp_Object res = Qnil;
256a27a47af1 [HAVE_SOCKETS]: Include sys/ioctl.h and net/if.h.
Kim F. Storm <storm@cua.dk>
parents: 52401
diff changeset
3707 Lisp_Object elt;
256a27a47af1 [HAVE_SOCKETS]: Include sys/ioctl.h and net/if.h.
Kim F. Storm <storm@cua.dk>
parents: 52401
diff changeset
3708 int s;
256a27a47af1 [HAVE_SOCKETS]: Include sys/ioctl.h and net/if.h.
Kim F. Storm <storm@cua.dk>
parents: 52401
diff changeset
3709 int any = 0;
256a27a47af1 [HAVE_SOCKETS]: Include sys/ioctl.h and net/if.h.
Kim F. Storm <storm@cua.dk>
parents: 52401
diff changeset
3710
256a27a47af1 [HAVE_SOCKETS]: Include sys/ioctl.h and net/if.h.
Kim F. Storm <storm@cua.dk>
parents: 52401
diff changeset
3711 CHECK_STRING (ifname);
256a27a47af1 [HAVE_SOCKETS]: Include sys/ioctl.h and net/if.h.
Kim F. Storm <storm@cua.dk>
parents: 52401
diff changeset
3712
256a27a47af1 [HAVE_SOCKETS]: Include sys/ioctl.h and net/if.h.
Kim F. Storm <storm@cua.dk>
parents: 52401
diff changeset
3713 bzero (rq.ifr_name, sizeof rq.ifr_name);
256a27a47af1 [HAVE_SOCKETS]: Include sys/ioctl.h and net/if.h.
Kim F. Storm <storm@cua.dk>
parents: 52401
diff changeset
3714 strncpy (rq.ifr_name, SDATA (ifname), sizeof (rq.ifr_name));
256a27a47af1 [HAVE_SOCKETS]: Include sys/ioctl.h and net/if.h.
Kim F. Storm <storm@cua.dk>
parents: 52401
diff changeset
3715
256a27a47af1 [HAVE_SOCKETS]: Include sys/ioctl.h and net/if.h.
Kim F. Storm <storm@cua.dk>
parents: 52401
diff changeset
3716 s = socket (AF_INET, SOCK_STREAM, 0);
256a27a47af1 [HAVE_SOCKETS]: Include sys/ioctl.h and net/if.h.
Kim F. Storm <storm@cua.dk>
parents: 52401
diff changeset
3717 if (s < 0)
256a27a47af1 [HAVE_SOCKETS]: Include sys/ioctl.h and net/if.h.
Kim F. Storm <storm@cua.dk>
parents: 52401
diff changeset
3718 return Qnil;
256a27a47af1 [HAVE_SOCKETS]: Include sys/ioctl.h and net/if.h.
Kim F. Storm <storm@cua.dk>
parents: 52401
diff changeset
3719
256a27a47af1 [HAVE_SOCKETS]: Include sys/ioctl.h and net/if.h.
Kim F. Storm <storm@cua.dk>
parents: 52401
diff changeset
3720 elt = Qnil;
52591
03137a8dc8cb (Fnetwork_interface_info): Use
Dave Love <fx@gnu.org>
parents: 52527
diff changeset
3721 #if defined(SIOCGIFFLAGS) && defined(HAVE_STRUCT_IFREQ_IFR_FLAGS)
52503
256a27a47af1 [HAVE_SOCKETS]: Include sys/ioctl.h and net/if.h.
Kim F. Storm <storm@cua.dk>
parents: 52401
diff changeset
3722 if (ioctl (s, SIOCGIFFLAGS, &rq) == 0)
256a27a47af1 [HAVE_SOCKETS]: Include sys/ioctl.h and net/if.h.
Kim F. Storm <storm@cua.dk>
parents: 52401
diff changeset
3723 {
256a27a47af1 [HAVE_SOCKETS]: Include sys/ioctl.h and net/if.h.
Kim F. Storm <storm@cua.dk>
parents: 52401
diff changeset
3724 int flags = rq.ifr_flags;
256a27a47af1 [HAVE_SOCKETS]: Include sys/ioctl.h and net/if.h.
Kim F. Storm <storm@cua.dk>
parents: 52401
diff changeset
3725 struct ifflag_def *fp;
256a27a47af1 [HAVE_SOCKETS]: Include sys/ioctl.h and net/if.h.
Kim F. Storm <storm@cua.dk>
parents: 52401
diff changeset
3726 int fnum;
256a27a47af1 [HAVE_SOCKETS]: Include sys/ioctl.h and net/if.h.
Kim F. Storm <storm@cua.dk>
parents: 52401
diff changeset
3727
256a27a47af1 [HAVE_SOCKETS]: Include sys/ioctl.h and net/if.h.
Kim F. Storm <storm@cua.dk>
parents: 52401
diff changeset
3728 any++;
67920
8f3c10fea90b (Fnetwork_interface_info): Correctly terminate the
Andreas Schwab <schwab@suse.de>
parents: 66752
diff changeset
3729 for (fp = ifflag_table; flags != 0 && fp->flag_sym; fp++)
52503
256a27a47af1 [HAVE_SOCKETS]: Include sys/ioctl.h and net/if.h.
Kim F. Storm <storm@cua.dk>
parents: 52401
diff changeset
3730 {
256a27a47af1 [HAVE_SOCKETS]: Include sys/ioctl.h and net/if.h.
Kim F. Storm <storm@cua.dk>
parents: 52401
diff changeset
3731 if (flags & fp->flag_bit)
256a27a47af1 [HAVE_SOCKETS]: Include sys/ioctl.h and net/if.h.
Kim F. Storm <storm@cua.dk>
parents: 52401
diff changeset
3732 {
256a27a47af1 [HAVE_SOCKETS]: Include sys/ioctl.h and net/if.h.
Kim F. Storm <storm@cua.dk>
parents: 52401
diff changeset
3733 elt = Fcons (intern (fp->flag_sym), elt);
256a27a47af1 [HAVE_SOCKETS]: Include sys/ioctl.h and net/if.h.
Kim F. Storm <storm@cua.dk>
parents: 52401
diff changeset
3734 flags -= fp->flag_bit;
256a27a47af1 [HAVE_SOCKETS]: Include sys/ioctl.h and net/if.h.
Kim F. Storm <storm@cua.dk>
parents: 52401
diff changeset
3735 }
256a27a47af1 [HAVE_SOCKETS]: Include sys/ioctl.h and net/if.h.
Kim F. Storm <storm@cua.dk>
parents: 52401
diff changeset
3736 }
256a27a47af1 [HAVE_SOCKETS]: Include sys/ioctl.h and net/if.h.
Kim F. Storm <storm@cua.dk>
parents: 52401
diff changeset
3737 for (fnum = 0; flags && fnum < 32; fnum++)
256a27a47af1 [HAVE_SOCKETS]: Include sys/ioctl.h and net/if.h.
Kim F. Storm <storm@cua.dk>
parents: 52401
diff changeset
3738 {
256a27a47af1 [HAVE_SOCKETS]: Include sys/ioctl.h and net/if.h.
Kim F. Storm <storm@cua.dk>
parents: 52401
diff changeset
3739 if (flags & (1 << fnum))
256a27a47af1 [HAVE_SOCKETS]: Include sys/ioctl.h and net/if.h.
Kim F. Storm <storm@cua.dk>
parents: 52401
diff changeset
3740 {
256a27a47af1 [HAVE_SOCKETS]: Include sys/ioctl.h and net/if.h.
Kim F. Storm <storm@cua.dk>
parents: 52401
diff changeset
3741 elt = Fcons (make_number (fnum), elt);
256a27a47af1 [HAVE_SOCKETS]: Include sys/ioctl.h and net/if.h.
Kim F. Storm <storm@cua.dk>
parents: 52401
diff changeset
3742 }
256a27a47af1 [HAVE_SOCKETS]: Include sys/ioctl.h and net/if.h.
Kim F. Storm <storm@cua.dk>
parents: 52401
diff changeset
3743 }
256a27a47af1 [HAVE_SOCKETS]: Include sys/ioctl.h and net/if.h.
Kim F. Storm <storm@cua.dk>
parents: 52401
diff changeset
3744 }
256a27a47af1 [HAVE_SOCKETS]: Include sys/ioctl.h and net/if.h.
Kim F. Storm <storm@cua.dk>
parents: 52401
diff changeset
3745 #endif
256a27a47af1 [HAVE_SOCKETS]: Include sys/ioctl.h and net/if.h.
Kim F. Storm <storm@cua.dk>
parents: 52401
diff changeset
3746 res = Fcons (elt, res);
256a27a47af1 [HAVE_SOCKETS]: Include sys/ioctl.h and net/if.h.
Kim F. Storm <storm@cua.dk>
parents: 52401
diff changeset
3747
256a27a47af1 [HAVE_SOCKETS]: Include sys/ioctl.h and net/if.h.
Kim F. Storm <storm@cua.dk>
parents: 52401
diff changeset
3748 elt = Qnil;
52591
03137a8dc8cb (Fnetwork_interface_info): Use
Dave Love <fx@gnu.org>
parents: 52527
diff changeset
3749 #if defined(SIOCGIFHWADDR) && defined(HAVE_STRUCT_IFREQ_IFR_HWADDR)
52503
256a27a47af1 [HAVE_SOCKETS]: Include sys/ioctl.h and net/if.h.
Kim F. Storm <storm@cua.dk>
parents: 52401
diff changeset
3750 if (ioctl (s, SIOCGIFHWADDR, &rq) == 0)
256a27a47af1 [HAVE_SOCKETS]: Include sys/ioctl.h and net/if.h.
Kim F. Storm <storm@cua.dk>
parents: 52401
diff changeset
3751 {
52525
fd2be6cea0e7 (Fnetwork_interface_list, Fnetwork_interface_info):
Kim F. Storm <storm@cua.dk>
parents: 52516
diff changeset
3752 Lisp_Object hwaddr = Fmake_vector (make_number (6), Qnil);
52503
256a27a47af1 [HAVE_SOCKETS]: Include sys/ioctl.h and net/if.h.
Kim F. Storm <storm@cua.dk>
parents: 52401
diff changeset
3753 register struct Lisp_Vector *p = XVECTOR (hwaddr);
256a27a47af1 [HAVE_SOCKETS]: Include sys/ioctl.h and net/if.h.
Kim F. Storm <storm@cua.dk>
parents: 52401
diff changeset
3754 int n;
256a27a47af1 [HAVE_SOCKETS]: Include sys/ioctl.h and net/if.h.
Kim F. Storm <storm@cua.dk>
parents: 52401
diff changeset
3755
256a27a47af1 [HAVE_SOCKETS]: Include sys/ioctl.h and net/if.h.
Kim F. Storm <storm@cua.dk>
parents: 52401
diff changeset
3756 any++;
256a27a47af1 [HAVE_SOCKETS]: Include sys/ioctl.h and net/if.h.
Kim F. Storm <storm@cua.dk>
parents: 52401
diff changeset
3757 for (n = 0; n < 6; n++)
256a27a47af1 [HAVE_SOCKETS]: Include sys/ioctl.h and net/if.h.
Kim F. Storm <storm@cua.dk>
parents: 52401
diff changeset
3758 p->contents[n] = make_number (((unsigned char *)&rq.ifr_hwaddr.sa_data[0])[n]);
52527
3ea59ac8dfa5 (Fnetwork_interface_info): Fix type error.
Dave Love <fx@gnu.org>
parents: 52525
diff changeset
3759 elt = Fcons (make_number (rq.ifr_hwaddr.sa_family), hwaddr);
52503
256a27a47af1 [HAVE_SOCKETS]: Include sys/ioctl.h and net/if.h.
Kim F. Storm <storm@cua.dk>
parents: 52401
diff changeset
3760 }
256a27a47af1 [HAVE_SOCKETS]: Include sys/ioctl.h and net/if.h.
Kim F. Storm <storm@cua.dk>
parents: 52401
diff changeset
3761 #endif
256a27a47af1 [HAVE_SOCKETS]: Include sys/ioctl.h and net/if.h.
Kim F. Storm <storm@cua.dk>
parents: 52401
diff changeset
3762 res = Fcons (elt, res);
256a27a47af1 [HAVE_SOCKETS]: Include sys/ioctl.h and net/if.h.
Kim F. Storm <storm@cua.dk>
parents: 52401
diff changeset
3763
256a27a47af1 [HAVE_SOCKETS]: Include sys/ioctl.h and net/if.h.
Kim F. Storm <storm@cua.dk>
parents: 52401
diff changeset
3764 elt = Qnil;
68146
e5c85a134e67 [HAVE_INTTYPES_H]: Include inttypes.h.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 68041
diff changeset
3765 #if defined(SIOCGIFNETMASK) && (defined(HAVE_STRUCT_IFREQ_IFR_NETMASK) || defined(HAVE_STRUCT_IFREQ_IFR_ADDR))
52503
256a27a47af1 [HAVE_SOCKETS]: Include sys/ioctl.h and net/if.h.
Kim F. Storm <storm@cua.dk>
parents: 52401
diff changeset
3766 if (ioctl (s, SIOCGIFNETMASK, &rq) == 0)
256a27a47af1 [HAVE_SOCKETS]: Include sys/ioctl.h and net/if.h.
Kim F. Storm <storm@cua.dk>
parents: 52401
diff changeset
3767 {
256a27a47af1 [HAVE_SOCKETS]: Include sys/ioctl.h and net/if.h.
Kim F. Storm <storm@cua.dk>
parents: 52401
diff changeset
3768 any++;
68146
e5c85a134e67 [HAVE_INTTYPES_H]: Include inttypes.h.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 68041
diff changeset
3769 #ifdef HAVE_STRUCT_IFREQ_IFR_NETMASK
52503
256a27a47af1 [HAVE_SOCKETS]: Include sys/ioctl.h and net/if.h.
Kim F. Storm <storm@cua.dk>
parents: 52401
diff changeset
3770 elt = conv_sockaddr_to_lisp (&rq.ifr_netmask, sizeof (rq.ifr_netmask));
68146
e5c85a134e67 [HAVE_INTTYPES_H]: Include inttypes.h.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 68041
diff changeset
3771 #else
e5c85a134e67 [HAVE_INTTYPES_H]: Include inttypes.h.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 68041
diff changeset
3772 elt = conv_sockaddr_to_lisp (&rq.ifr_addr, sizeof (rq.ifr_addr));
e5c85a134e67 [HAVE_INTTYPES_H]: Include inttypes.h.
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 68041
diff changeset
3773 #endif
52503
256a27a47af1 [HAVE_SOCKETS]: Include sys/ioctl.h and net/if.h.
Kim F. Storm <storm@cua.dk>
parents: 52401
diff changeset
3774 }
256a27a47af1 [HAVE_SOCKETS]: Include sys/ioctl.h and net/if.h.
Kim F. Storm <storm@cua.dk>
parents: 52401
diff changeset
3775 #endif
256a27a47af1 [HAVE_SOCKETS]: Include sys/ioctl.h and net/if.h.
Kim F. Storm <storm@cua.dk>
parents: 52401
diff changeset
3776 res = Fcons (elt, res);
256a27a47af1 [HAVE_SOCKETS]: Include sys/ioctl.h and net/if.h.
Kim F. Storm <storm@cua.dk>
parents: 52401
diff changeset
3777
256a27a47af1 [HAVE_SOCKETS]: Include sys/ioctl.h and net/if.h.
Kim F. Storm <storm@cua.dk>
parents: 52401
diff changeset
3778 elt = Qnil;
52591
03137a8dc8cb (Fnetwork_interface_info): Use
Dave Love <fx@gnu.org>
parents: 52527
diff changeset
3779 #if defined(SIOCGIFBRDADDR) && defined(HAVE_STRUCT_IFREQ_IFR_BROADADDR)
52503
256a27a47af1 [HAVE_SOCKETS]: Include sys/ioctl.h and net/if.h.
Kim F. Storm <storm@cua.dk>
parents: 52401
diff changeset
3780 if (ioctl (s, SIOCGIFBRDADDR, &rq) == 0)
256a27a47af1 [HAVE_SOCKETS]: Include sys/ioctl.h and net/if.h.
Kim F. Storm <storm@cua.dk>
parents: 52401
diff changeset
3781 {
256a27a47af1 [HAVE_SOCKETS]: Include sys/ioctl.h and net/if.h.
Kim F. Storm <storm@cua.dk>
parents: 52401
diff changeset
3782 any++;
256a27a47af1 [HAVE_SOCKETS]: Include sys/ioctl.h and net/if.h.
Kim F. Storm <storm@cua.dk>
parents: 52401
diff changeset
3783 elt = conv_sockaddr_to_lisp (&rq.ifr_broadaddr, sizeof (rq.ifr_broadaddr));
256a27a47af1 [HAVE_SOCKETS]: Include sys/ioctl.h and net/if.h.
Kim F. Storm <storm@cua.dk>
parents: 52401
diff changeset
3784 }
256a27a47af1 [HAVE_SOCKETS]: Include sys/ioctl.h and net/if.h.
Kim F. Storm <storm@cua.dk>
parents: 52401
diff changeset
3785 #endif
256a27a47af1 [HAVE_SOCKETS]: Include sys/ioctl.h and net/if.h.
Kim F. Storm <storm@cua.dk>
parents: 52401
diff changeset
3786 res = Fcons (elt, res);
256a27a47af1 [HAVE_SOCKETS]: Include sys/ioctl.h and net/if.h.
Kim F. Storm <storm@cua.dk>
parents: 52401
diff changeset
3787
256a27a47af1 [HAVE_SOCKETS]: Include sys/ioctl.h and net/if.h.
Kim F. Storm <storm@cua.dk>
parents: 52401
diff changeset
3788 elt = Qnil;
52591
03137a8dc8cb (Fnetwork_interface_info): Use
Dave Love <fx@gnu.org>
parents: 52527
diff changeset
3789 #if defined(SIOCGIFADDR) && defined(HAVE_STRUCT_IFREQ_IFR_ADDR)
52503
256a27a47af1 [HAVE_SOCKETS]: Include sys/ioctl.h and net/if.h.
Kim F. Storm <storm@cua.dk>
parents: 52401
diff changeset
3790 if (ioctl (s, SIOCGIFADDR, &rq) == 0)
256a27a47af1 [HAVE_SOCKETS]: Include sys/ioctl.h and net/if.h.
Kim F. Storm <storm@cua.dk>
parents: 52401
diff changeset
3791 {
256a27a47af1 [HAVE_SOCKETS]: Include sys/ioctl.h and net/if.h.
Kim F. Storm <storm@cua.dk>
parents: 52401
diff changeset
3792 any++;
256a27a47af1 [HAVE_SOCKETS]: Include sys/ioctl.h and net/if.h.
Kim F. Storm <storm@cua.dk>
parents: 52401
diff changeset
3793 elt = conv_sockaddr_to_lisp (&rq.ifr_addr, sizeof (rq.ifr_addr));
256a27a47af1 [HAVE_SOCKETS]: Include sys/ioctl.h and net/if.h.
Kim F. Storm <storm@cua.dk>
parents: 52401
diff changeset
3794 }
256a27a47af1 [HAVE_SOCKETS]: Include sys/ioctl.h and net/if.h.
Kim F. Storm <storm@cua.dk>
parents: 52401
diff changeset
3795 #endif
256a27a47af1 [HAVE_SOCKETS]: Include sys/ioctl.h and net/if.h.
Kim F. Storm <storm@cua.dk>
parents: 52401
diff changeset
3796 res = Fcons (elt, res);
256a27a47af1 [HAVE_SOCKETS]: Include sys/ioctl.h and net/if.h.
Kim F. Storm <storm@cua.dk>
parents: 52401
diff changeset
3797
256a27a47af1 [HAVE_SOCKETS]: Include sys/ioctl.h and net/if.h.
Kim F. Storm <storm@cua.dk>
parents: 52401
diff changeset
3798 close (s);
256a27a47af1 [HAVE_SOCKETS]: Include sys/ioctl.h and net/if.h.
Kim F. Storm <storm@cua.dk>
parents: 52401
diff changeset
3799
256a27a47af1 [HAVE_SOCKETS]: Include sys/ioctl.h and net/if.h.
Kim F. Storm <storm@cua.dk>
parents: 52401
diff changeset
3800 return any ? res : Qnil;
256a27a47af1 [HAVE_SOCKETS]: Include sys/ioctl.h and net/if.h.
Kim F. Storm <storm@cua.dk>
parents: 52401
diff changeset
3801 }
256a27a47af1 [HAVE_SOCKETS]: Include sys/ioctl.h and net/if.h.
Kim F. Storm <storm@cua.dk>
parents: 52401
diff changeset
3802 #endif
256a27a47af1 [HAVE_SOCKETS]: Include sys/ioctl.h and net/if.h.
Kim F. Storm <storm@cua.dk>
parents: 52401
diff changeset
3803 #endif /* HAVE_SOCKETS */
256a27a47af1 [HAVE_SOCKETS]: Include sys/ioctl.h and net/if.h.
Kim F. Storm <storm@cua.dk>
parents: 52401
diff changeset
3804
56092
5839db7619ca Comment change.
Richard M. Stallman <rms@gnu.org>
parents: 55962
diff changeset
3805 /* Turn off input and output for process PROC. */
5839db7619ca Comment change.
Richard M. Stallman <rms@gnu.org>
parents: 55962
diff changeset
3806
20382
dbad9367d232 (create_process, deactivate_process, close_process_descs):
Andreas Schwab <schwab@suse.de>
parents: 20225
diff changeset
3807 void
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3808 deactivate_process (proc)
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3809 Lisp_Object proc;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3810 {
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3811 register int inchannel, outchannel;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3812 register struct Lisp_Process *p = XPROCESS (proc);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3813
81826
077a1e6fd3f2 (struct Lisp_Process): Turn slots infd, outfd, kill_without_query, pty_flag,
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 80984
diff changeset
3814 inchannel = p->infd;
077a1e6fd3f2 (struct Lisp_Process): Turn slots infd, outfd, kill_without_query, pty_flag,
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 80984
diff changeset
3815 outchannel = p->outfd;
5134
0a4e46e15304 (wait_reading_process_input):
Richard M. Stallman <rms@gnu.org>
parents: 4998
diff changeset
3816
53472
1a5fe79d27f3 (ADAPTIVE_READ_BUFFERING): New conditional.
Kim F. Storm <storm@cua.dk>
parents: 53072
diff changeset
3817 #ifdef ADAPTIVE_READ_BUFFERING
81826
077a1e6fd3f2 (struct Lisp_Process): Turn slots infd, outfd, kill_without_query, pty_flag,
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 80984
diff changeset
3818 if (p->read_output_delay > 0)
53472
1a5fe79d27f3 (ADAPTIVE_READ_BUFFERING): New conditional.
Kim F. Storm <storm@cua.dk>
parents: 53072
diff changeset
3819 {
1a5fe79d27f3 (ADAPTIVE_READ_BUFFERING): New conditional.
Kim F. Storm <storm@cua.dk>
parents: 53072
diff changeset
3820 if (--process_output_delay_count < 0)
1a5fe79d27f3 (ADAPTIVE_READ_BUFFERING): New conditional.
Kim F. Storm <storm@cua.dk>
parents: 53072
diff changeset
3821 process_output_delay_count = 0;
81826
077a1e6fd3f2 (struct Lisp_Process): Turn slots infd, outfd, kill_without_query, pty_flag,
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 80984
diff changeset
3822 p->read_output_delay = 0;
077a1e6fd3f2 (struct Lisp_Process): Turn slots infd, outfd, kill_without_query, pty_flag,
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 80984
diff changeset
3823 p->read_output_skip = 0;
53472
1a5fe79d27f3 (ADAPTIVE_READ_BUFFERING): New conditional.
Kim F. Storm <storm@cua.dk>
parents: 53072
diff changeset
3824 }
1a5fe79d27f3 (ADAPTIVE_READ_BUFFERING): New conditional.
Kim F. Storm <storm@cua.dk>
parents: 53072
diff changeset
3825 #endif
55444
976d03256b41 (Fwaiting_for_user_input_p, Fmake_network_process)
Juanma Barranquero <lekktu@gmail.com>
parents: 53835
diff changeset
3826
5134
0a4e46e15304 (wait_reading_process_input):
Richard M. Stallman <rms@gnu.org>
parents: 4998
diff changeset
3827 if (inchannel >= 0)
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3828 {
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3829 /* Beware SIGCHLD hereabouts. */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3830 flush_pending_output (inchannel);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3831 #ifdef VMS
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3832 {
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3833 VMS_PROC_STUFF *get_vms_process_pointer (), *vs;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3834 sys$dassgn (outchannel);
2357
9faa3a02ea97 * process.c [VMS] (DCL_PROMPT): Remove hack.
Jim Blandy <jimb@redhat.com>
parents: 2290
diff changeset
3835 vs = get_vms_process_pointer (p->pid);
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3836 if (vs)
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3837 give_back_vms_process_stuff (vs);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3838 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3839 #else
26088
b7aa6ac26872 Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
parents: 26019
diff changeset
3840 emacs_close (inchannel);
5134
0a4e46e15304 (wait_reading_process_input):
Richard M. Stallman <rms@gnu.org>
parents: 4998
diff changeset
3841 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
3842 emacs_close (outchannel);
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3843 #endif
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3844
81826
077a1e6fd3f2 (struct Lisp_Process): Turn slots infd, outfd, kill_without_query, pty_flag,
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 80984
diff changeset
3845 p->infd = -1;
077a1e6fd3f2 (struct Lisp_Process): Turn slots infd, outfd, kill_without_query, pty_flag,
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 80984
diff changeset
3846 p->outfd = -1;
43968
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
3847 #ifdef DATAGRAM_SOCKETS
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
3848 if (DATAGRAM_CHAN_P (inchannel))
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
3849 {
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
3850 xfree (datagram_address[inchannel].sa);
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
3851 datagram_address[inchannel].sa = 0;
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
3852 datagram_address[inchannel].len = 0;
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
3853 }
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
3854 #endif
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3855 chan_process[inchannel] = Qnil;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3856 FD_CLR (inchannel, &input_wait_mask);
9686
cd788aa8cb2a Handle multiple keyboard input descriptors.
Richard M. Stallman <rms@gnu.org>
parents: 9334
diff changeset
3857 FD_CLR (inchannel, &non_keyboard_wait_mask);
57840
8abbe69dfdb2 (connect_wait_mask, num_pending_connects): Only
Kim F. Storm <storm@cua.dk>
parents: 57287
diff changeset
3858 #ifdef NON_BLOCKING_CONNECT
43598
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
3859 if (FD_ISSET (inchannel, &connect_wait_mask))
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
3860 {
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
3861 FD_CLR (inchannel, &connect_wait_mask);
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
3862 if (--num_pending_connects < 0)
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
3863 abort ();
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
3864 }
57840
8abbe69dfdb2 (connect_wait_mask, num_pending_connects): Only
Kim F. Storm <storm@cua.dk>
parents: 57287
diff changeset
3865 #endif
7044
7032d07f5ad9 (max_process_desc): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 7013
diff changeset
3866 if (inchannel == max_process_desc)
7032d07f5ad9 (max_process_desc): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 7013
diff changeset
3867 {
7032d07f5ad9 (max_process_desc): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 7013
diff changeset
3868 int i;
7032d07f5ad9 (max_process_desc): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 7013
diff changeset
3869 /* 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
3870 so recompute the highest-numbered one now. */
7032d07f5ad9 (max_process_desc): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 7013
diff changeset
3871 max_process_desc = 0;
7032d07f5ad9 (max_process_desc): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 7013
diff changeset
3872 for (i = 0; i < MAXDESC; i++)
7032d07f5ad9 (max_process_desc): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 7013
diff changeset
3873 if (!NILP (chan_process[i]))
7032d07f5ad9 (max_process_desc): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 7013
diff changeset
3874 max_process_desc = i;
7032d07f5ad9 (max_process_desc): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 7013
diff changeset
3875 }
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3876 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3877 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3878
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3879 /* Close all descriptors currently in use for communication
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3880 with subprocess. This is used in a newly-forked subprocess
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3881 to get rid of irrelevant descriptors. */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3882
20382
dbad9367d232 (create_process, deactivate_process, close_process_descs):
Andreas Schwab <schwab@suse.de>
parents: 20225
diff changeset
3883 void
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3884 close_process_descs ()
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3885 {
9793
28267fcc61be Use macros IS_ANY_SEP, IS_DIRECTORY_SEP,
Richard M. Stallman <rms@gnu.org>
parents: 9705
diff changeset
3886 #ifndef WINDOWSNT
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3887 int i;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3888 for (i = 0; i < MAXDESC; i++)
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3889 {
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3890 Lisp_Object process;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3891 process = chan_process[i];
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3892 if (!NILP (process))
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3893 {
81826
077a1e6fd3f2 (struct Lisp_Process): Turn slots infd, outfd, kill_without_query, pty_flag,
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 80984
diff changeset
3894 int in = XPROCESS (process)->infd;
077a1e6fd3f2 (struct Lisp_Process): Turn slots infd, outfd, kill_without_query, pty_flag,
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 80984
diff changeset
3895 int out = XPROCESS (process)->outfd;
5134
0a4e46e15304 (wait_reading_process_input):
Richard M. Stallman <rms@gnu.org>
parents: 4998
diff changeset
3896 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
3897 emacs_close (in);
5134
0a4e46e15304 (wait_reading_process_input):
Richard M. Stallman <rms@gnu.org>
parents: 4998
diff changeset
3898 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
3899 emacs_close (out);
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3900 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3901 }
9793
28267fcc61be Use macros IS_ANY_SEP, IS_DIRECTORY_SEP,
Richard M. Stallman <rms@gnu.org>
parents: 9705
diff changeset
3902 #endif
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3903 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3904
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3905 DEFUN ("accept-process-output", Faccept_process_output, Saccept_process_output,
56701
e327231e4361 (Faccept_process_output): Add arg JUST-THIS-ONE;
Kim F. Storm <storm@cua.dk>
parents: 56700
diff changeset
3906 0, 4, 0,
40103
6b389fb978bc Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
3907 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
3908 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
3909 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
3910 from PROCESS.
69634
5633a1931272 (Faccept_process_output): Fix to comply with lisp reference.
Kim F. Storm <storm@cua.dk>
parents: 69376
diff changeset
3911
77654
dd2237126840 Undo May 3 change.
Richard M. Stallman <rms@gnu.org>
parents: 77647
diff changeset
3912 Non-nil second arg SECONDS and third arg MILLISEC are number of
dd2237126840 Undo May 3 change.
Richard M. Stallman <rms@gnu.org>
parents: 77647
diff changeset
3913 seconds and milliseconds to wait; return after that much time whether
69634
5633a1931272 (Faccept_process_output): Fix to comply with lisp reference.
Kim F. Storm <storm@cua.dk>
parents: 69376
diff changeset
3914 or not there is input. If SECONDS is a floating point number,
5633a1931272 (Faccept_process_output): Fix to comply with lisp reference.
Kim F. Storm <storm@cua.dk>
parents: 69376
diff changeset
3915 it specifies a fractional number of seconds to wait.
5633a1931272 (Faccept_process_output): Fix to comply with lisp reference.
Kim F. Storm <storm@cua.dk>
parents: 69376
diff changeset
3916
56701
e327231e4361 (Faccept_process_output): Add arg JUST-THIS-ONE;
Kim F. Storm <storm@cua.dk>
parents: 56700
diff changeset
3917 If optional fourth arg JUST-THIS-ONE is non-nil, only accept output
e327231e4361 (Faccept_process_output): Add arg JUST-THIS-ONE;
Kim F. Storm <storm@cua.dk>
parents: 56700
diff changeset
3918 from PROCESS, suspending reading output from other processes.
e327231e4361 (Faccept_process_output): Add arg JUST-THIS-ONE;
Kim F. Storm <storm@cua.dk>
parents: 56700
diff changeset
3919 If JUST-THIS-ONE is an integer, don't run any timers either.
78501
1677cf1c2509 Replace `iff' in comments.
Glenn Morris <rgm@gnu.org>
parents: 78260
diff changeset
3920 Return non-nil if we received any output before the timeout expired. */)
77654
dd2237126840 Undo May 3 change.
Richard M. Stallman <rms@gnu.org>
parents: 77647
diff changeset
3921 (process, seconds, millisec, just_this_one)
dd2237126840 Undo May 3 change.
Richard M. Stallman <rms@gnu.org>
parents: 77647
diff changeset
3922 register Lisp_Object process, seconds, millisec, just_this_one;
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3923 {
69634
5633a1931272 (Faccept_process_output): Fix to comply with lisp reference.
Kim F. Storm <storm@cua.dk>
parents: 69376
diff changeset
3924 int secs, usecs = 0;
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3925
24598
078d53377010 (Faccept_process_output): Check validity of PROCESS.
Richard M. Stallman <rms@gnu.org>
parents: 24352
diff changeset
3926 if (! NILP (process))
40656
cdfd4d09b79a Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents: 40641
diff changeset
3927 CHECK_PROCESS (process);
56701
e327231e4361 (Faccept_process_output): Add arg JUST-THIS-ONE;
Kim F. Storm <storm@cua.dk>
parents: 56700
diff changeset
3928 else
e327231e4361 (Faccept_process_output): Add arg JUST-THIS-ONE;
Kim F. Storm <storm@cua.dk>
parents: 56700
diff changeset
3929 just_this_one = Qnil;
24598
078d53377010 (Faccept_process_output): Check validity of PROCESS.
Richard M. Stallman <rms@gnu.org>
parents: 24352
diff changeset
3930
69634
5633a1931272 (Faccept_process_output): Fix to comply with lisp reference.
Kim F. Storm <storm@cua.dk>
parents: 69376
diff changeset
3931 if (!NILP (seconds))
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3932 {
69634
5633a1931272 (Faccept_process_output): Fix to comply with lisp reference.
Kim F. Storm <storm@cua.dk>
parents: 69376
diff changeset
3933 if (INTEGERP (seconds))
5633a1931272 (Faccept_process_output): Fix to comply with lisp reference.
Kim F. Storm <storm@cua.dk>
parents: 69376
diff changeset
3934 secs = XINT (seconds);
5633a1931272 (Faccept_process_output): Fix to comply with lisp reference.
Kim F. Storm <storm@cua.dk>
parents: 69376
diff changeset
3935 else if (FLOATP (seconds))
5633a1931272 (Faccept_process_output): Fix to comply with lisp reference.
Kim F. Storm <storm@cua.dk>
parents: 69376
diff changeset
3936 {
5633a1931272 (Faccept_process_output): Fix to comply with lisp reference.
Kim F. Storm <storm@cua.dk>
parents: 69376
diff changeset
3937 double timeout = XFLOAT_DATA (seconds);
5633a1931272 (Faccept_process_output): Fix to comply with lisp reference.
Kim F. Storm <storm@cua.dk>
parents: 69376
diff changeset
3938 secs = (int) timeout;
5633a1931272 (Faccept_process_output): Fix to comply with lisp reference.
Kim F. Storm <storm@cua.dk>
parents: 69376
diff changeset
3939 usecs = (int) ((timeout - (double) secs) * 1000000);
5633a1931272 (Faccept_process_output): Fix to comply with lisp reference.
Kim F. Storm <storm@cua.dk>
parents: 69376
diff changeset
3940 }
5633a1931272 (Faccept_process_output): Fix to comply with lisp reference.
Kim F. Storm <storm@cua.dk>
parents: 69376
diff changeset
3941 else
5633a1931272 (Faccept_process_output): Fix to comply with lisp reference.
Kim F. Storm <storm@cua.dk>
parents: 69376
diff changeset
3942 wrong_type_argument (Qnumberp, seconds);
5633a1931272 (Faccept_process_output): Fix to comply with lisp reference.
Kim F. Storm <storm@cua.dk>
parents: 69376
diff changeset
3943
77654
dd2237126840 Undo May 3 change.
Richard M. Stallman <rms@gnu.org>
parents: 77647
diff changeset
3944 if (INTEGERP (millisec))
69634
5633a1931272 (Faccept_process_output): Fix to comply with lisp reference.
Kim F. Storm <storm@cua.dk>
parents: 69376
diff changeset
3945 {
5633a1931272 (Faccept_process_output): Fix to comply with lisp reference.
Kim F. Storm <storm@cua.dk>
parents: 69376
diff changeset
3946 int carry;
77654
dd2237126840 Undo May 3 change.
Richard M. Stallman <rms@gnu.org>
parents: 77647
diff changeset
3947 usecs += XINT (millisec) * 1000;
69634
5633a1931272 (Faccept_process_output): Fix to comply with lisp reference.
Kim F. Storm <storm@cua.dk>
parents: 69376
diff changeset
3948 carry = usecs / 1000000;
5633a1931272 (Faccept_process_output): Fix to comply with lisp reference.
Kim F. Storm <storm@cua.dk>
parents: 69376
diff changeset
3949 secs += carry;
5633a1931272 (Faccept_process_output): Fix to comply with lisp reference.
Kim F. Storm <storm@cua.dk>
parents: 69376
diff changeset
3950 if ((usecs -= carry * 1000000) < 0)
5633a1931272 (Faccept_process_output): Fix to comply with lisp reference.
Kim F. Storm <storm@cua.dk>
parents: 69376
diff changeset
3951 {
5633a1931272 (Faccept_process_output): Fix to comply with lisp reference.
Kim F. Storm <storm@cua.dk>
parents: 69376
diff changeset
3952 secs--;
5633a1931272 (Faccept_process_output): Fix to comply with lisp reference.
Kim F. Storm <storm@cua.dk>
parents: 69376
diff changeset
3953 usecs += 1000000;
5633a1931272 (Faccept_process_output): Fix to comply with lisp reference.
Kim F. Storm <storm@cua.dk>
parents: 69376
diff changeset
3954 }
5633a1931272 (Faccept_process_output): Fix to comply with lisp reference.
Kim F. Storm <storm@cua.dk>
parents: 69376
diff changeset
3955 }
5633a1931272 (Faccept_process_output): Fix to comply with lisp reference.
Kim F. Storm <storm@cua.dk>
parents: 69376
diff changeset
3956
5633a1931272 (Faccept_process_output): Fix to comply with lisp reference.
Kim F. Storm <storm@cua.dk>
parents: 69376
diff changeset
3957 if (secs < 0 || (secs == 0 && usecs == 0))
5633a1931272 (Faccept_process_output): Fix to comply with lisp reference.
Kim F. Storm <storm@cua.dk>
parents: 69376
diff changeset
3958 secs = -1, usecs = 0;
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3959 }
1180
9bf82484415d (Faccept_process_output): Initialize useconds.
Richard M. Stallman <rms@gnu.org>
parents: 1047
diff changeset
3960 else
69634
5633a1931272 (Faccept_process_output): Fix to comply with lisp reference.
Kim F. Storm <storm@cua.dk>
parents: 69376
diff changeset
3961 secs = NILP (process) ? -1 : 0;
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3962
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3963 return
69634
5633a1931272 (Faccept_process_output): Fix to comply with lisp reference.
Kim F. Storm <storm@cua.dk>
parents: 69376
diff changeset
3964 (wait_reading_process_output (secs, usecs, 0, 0,
56728
1686b397ef16 (wait_reading_process_output): Rename from
Kim F. Storm <storm@cua.dk>
parents: 56716
diff changeset
3965 Qnil,
1686b397ef16 (wait_reading_process_output): Rename from
Kim F. Storm <storm@cua.dk>
parents: 56716
diff changeset
3966 !NILP (process) ? XPROCESS (process) : NULL,
1686b397ef16 (wait_reading_process_output): Rename from
Kim F. Storm <storm@cua.dk>
parents: 56716
diff changeset
3967 NILP (just_this_one) ? 0 :
1686b397ef16 (wait_reading_process_output): Rename from
Kim F. Storm <storm@cua.dk>
parents: 56716
diff changeset
3968 !INTEGERP (just_this_one) ? 1 : -1)
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3969 ? Qt : Qnil);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3970 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
3971
43968
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
3972 /* Accept a connection for server process SERVER on CHANNEL. */
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
3973
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
3974 static int connect_counter = 0;
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
3975
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
3976 static void
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
3977 server_accept_connection (server, channel)
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
3978 Lisp_Object server;
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
3979 int channel;
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
3980 {
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
3981 Lisp_Object proc, caller, name, buffer;
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
3982 Lisp_Object contact, host, service;
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
3983 struct Lisp_Process *ps= XPROCESS (server);
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
3984 struct Lisp_Process *p;
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
3985 int s;
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
3986 union u_sockaddr {
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
3987 struct sockaddr sa;
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
3988 struct sockaddr_in in;
68008
10f0a09ec82e Add IPv6 support.
Kim F. Storm <storm@cua.dk>
parents: 67920
diff changeset
3989 #ifdef AF_INET6
10f0a09ec82e Add IPv6 support.
Kim F. Storm <storm@cua.dk>
parents: 67920
diff changeset
3990 struct sockaddr_in6 in6;
10f0a09ec82e Add IPv6 support.
Kim F. Storm <storm@cua.dk>
parents: 67920
diff changeset
3991 #endif
43968
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
3992 #ifdef HAVE_LOCAL_SOCKETS
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
3993 struct sockaddr_un un;
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
3994 #endif
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
3995 } saddr;
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
3996 int len = sizeof saddr;
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
3997
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
3998 s = accept (channel, &saddr.sa, &len);
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
3999
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
4000 if (s < 0)
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
4001 {
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
4002 int code = errno;
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
4003
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
4004 if (code == EAGAIN)
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
4005 return;
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
4006 #ifdef EWOULDBLOCK
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
4007 if (code == EWOULDBLOCK)
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
4008 return;
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
4009 #endif
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
4010
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
4011 if (!NILP (ps->log))
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
4012 call3 (ps->log, server, Qnil,
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
4013 concat3 (build_string ("accept failed with code"),
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
4014 Fnumber_to_string (make_number (code)),
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
4015 build_string ("\n")));
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
4016 return;
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
4017 }
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
4018
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
4019 connect_counter++;
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
4020
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
4021 /* Setup a new process to handle the connection. */
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
4022
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
4023 /* Generate a unique identification of the caller, and build contact
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
4024 information for this process. */
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
4025 host = Qt;
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
4026 service = Qnil;
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
4027 switch (saddr.sa.sa_family)
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
4028 {
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
4029 case AF_INET:
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
4030 {
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
4031 Lisp_Object args[5];
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
4032 unsigned char *ip = (unsigned char *)&saddr.in.sin_addr.s_addr;
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
4033 args[0] = build_string ("%d.%d.%d.%d");
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
4034 args[1] = make_number (*ip++);
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
4035 args[2] = make_number (*ip++);
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
4036 args[3] = make_number (*ip++);
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
4037 args[4] = make_number (*ip++);
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
4038 host = Fformat (5, args);
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
4039 service = make_number (ntohs (saddr.in.sin_port));
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
4040
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
4041 args[0] = build_string (" <%s:%d>");
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
4042 args[1] = host;
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
4043 args[2] = service;
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
4044 caller = Fformat (3, args);
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
4045 }
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
4046 break;
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
4047
68008
10f0a09ec82e Add IPv6 support.
Kim F. Storm <storm@cua.dk>
parents: 67920
diff changeset
4048 #ifdef AF_INET6
10f0a09ec82e Add IPv6 support.
Kim F. Storm <storm@cua.dk>
parents: 67920
diff changeset
4049 case AF_INET6:
10f0a09ec82e Add IPv6 support.
Kim F. Storm <storm@cua.dk>
parents: 67920
diff changeset
4050 {
10f0a09ec82e Add IPv6 support.
Kim F. Storm <storm@cua.dk>
parents: 67920
diff changeset
4051 Lisp_Object args[9];
10f0a09ec82e Add IPv6 support.
Kim F. Storm <storm@cua.dk>
parents: 67920
diff changeset
4052 uint16_t *ip6 = (uint16_t *)&saddr.in6.sin6_addr;
10f0a09ec82e Add IPv6 support.
Kim F. Storm <storm@cua.dk>
parents: 67920
diff changeset
4053 int i;
10f0a09ec82e Add IPv6 support.
Kim F. Storm <storm@cua.dk>
parents: 67920
diff changeset
4054 args[0] = build_string ("%x:%x:%x:%x:%x:%x:%x:%x");
10f0a09ec82e Add IPv6 support.
Kim F. Storm <storm@cua.dk>
parents: 67920
diff changeset
4055 for (i = 0; i < 8; i++)
10f0a09ec82e Add IPv6 support.
Kim F. Storm <storm@cua.dk>
parents: 67920
diff changeset
4056 args[i+1] = make_number (ntohs(ip6[i]));
10f0a09ec82e Add IPv6 support.
Kim F. Storm <storm@cua.dk>
parents: 67920
diff changeset
4057 host = Fformat (9, args);
10f0a09ec82e Add IPv6 support.
Kim F. Storm <storm@cua.dk>
parents: 67920
diff changeset
4058 service = make_number (ntohs (saddr.in.sin_port));
10f0a09ec82e Add IPv6 support.
Kim F. Storm <storm@cua.dk>
parents: 67920
diff changeset
4059
10f0a09ec82e Add IPv6 support.
Kim F. Storm <storm@cua.dk>
parents: 67920
diff changeset
4060 args[0] = build_string (" <[%s]:%d>");
10f0a09ec82e Add IPv6 support.
Kim F. Storm <storm@cua.dk>
parents: 67920
diff changeset
4061 args[1] = host;
10f0a09ec82e Add IPv6 support.
Kim F. Storm <storm@cua.dk>
parents: 67920
diff changeset
4062 args[2] = service;
10f0a09ec82e Add IPv6 support.
Kim F. Storm <storm@cua.dk>
parents: 67920
diff changeset
4063 caller = Fformat (3, args);
10f0a09ec82e Add IPv6 support.
Kim F. Storm <storm@cua.dk>
parents: 67920
diff changeset
4064 }
10f0a09ec82e Add IPv6 support.
Kim F. Storm <storm@cua.dk>
parents: 67920
diff changeset
4065 break;
10f0a09ec82e Add IPv6 support.
Kim F. Storm <storm@cua.dk>
parents: 67920
diff changeset
4066 #endif
10f0a09ec82e Add IPv6 support.
Kim F. Storm <storm@cua.dk>
parents: 67920
diff changeset
4067
43968
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
4068 #ifdef HAVE_LOCAL_SOCKETS
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
4069 case AF_LOCAL:
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
4070 #endif
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
4071 default:
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
4072 caller = Fnumber_to_string (make_number (connect_counter));
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
4073 caller = concat3 (build_string (" <*"), caller, build_string ("*>"));
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
4074 break;
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
4075 }
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
4076
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
4077 /* Create a new buffer name for this process if it doesn't have a
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
4078 filter. The new buffer name is based on the buffer name or
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
4079 process name of the server process concatenated with the caller
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
4080 identification. */
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
4081
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
4082 if (!NILP (ps->filter) && !EQ (ps->filter, Qt))
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
4083 buffer = Qnil;
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
4084 else
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
4085 {
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
4086 buffer = ps->buffer;
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
4087 if (!NILP (buffer))
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
4088 buffer = Fbuffer_name (buffer);
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
4089 else
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
4090 buffer = ps->name;
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
4091 if (!NILP (buffer))
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
4092 {
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
4093 buffer = concat2 (buffer, caller);
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
4094 buffer = Fget_buffer_create (buffer);
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
4095 }
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
4096 }
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
4097
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
4098 /* Generate a unique name for the new server process. Combine the
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
4099 server process name with the caller identification. */
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
4100
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
4101 name = concat2 (ps->name, caller);
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
4102 proc = make_process (name);
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
4103
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
4104 chan_process[s] = proc;
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
4105
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
4106 #ifdef O_NONBLOCK
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
4107 fcntl (s, F_SETFL, O_NONBLOCK);
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
4108 #else
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
4109 #ifdef O_NDELAY
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
4110 fcntl (s, F_SETFL, O_NDELAY);
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
4111 #endif
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
4112 #endif
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
4113
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
4114 p = XPROCESS (proc);
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
4115
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
4116 /* Build new contact information for this setup. */
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
4117 contact = Fcopy_sequence (ps->childp);
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
4118 contact = Fplist_put (contact, QCserver, Qnil);
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
4119 contact = Fplist_put (contact, QChost, host);
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
4120 if (!NILP (service))
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
4121 contact = Fplist_put (contact, QCservice, service);
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 49281
diff changeset
4122 contact = Fplist_put (contact, QCremote,
43968
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
4123 conv_sockaddr_to_lisp (&saddr.sa, len));
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
4124 #ifdef HAVE_GETSOCKNAME
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
4125 len = sizeof saddr;
49111
32c767302a23 (server_accept_connection): Fixed recording of new
Kim F. Storm <storm@cua.dk>
parents: 48424
diff changeset
4126 if (getsockname (s, &saddr.sa, &len) == 0)
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 49281
diff changeset
4127 contact = Fplist_put (contact, QClocal,
43968
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
4128 conv_sockaddr_to_lisp (&saddr.sa, len));
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
4129 #endif
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
4130
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
4131 p->childp = contact;
49223
26622fa0d099 Reworked 2003-01-12 change -- call a plist a plist!
Kim F. Storm <storm@cua.dk>
parents: 49164
diff changeset
4132 p->plist = Fcopy_sequence (ps->plist);
49164
8bee0ccd5fd6 (QCvars): New variable.
Kim F. Storm <storm@cua.dk>
parents: 49142
diff changeset
4133
43968
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
4134 p->buffer = buffer;
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
4135 p->sentinel = ps->sentinel;
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
4136 p->filter = ps->filter;
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
4137 p->command = Qnil;
69873
2d844bbbccd4 * process.h (struct Lisp_Process): Replace Lisp_Objects `pid',
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 69634
diff changeset
4138 p->pid = 0;
81826
077a1e6fd3f2 (struct Lisp_Process): Turn slots infd, outfd, kill_without_query, pty_flag,
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 80984
diff changeset
4139 p->infd = s;
077a1e6fd3f2 (struct Lisp_Process): Turn slots infd, outfd, kill_without_query, pty_flag,
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 80984
diff changeset
4140 p->outfd = s;
43968
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
4141 p->status = Qrun;
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
4142
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
4143 /* Client processes for accepted connections are not stopped initially. */
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
4144 if (!EQ (p->filter, Qt))
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
4145 {
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
4146 FD_SET (s, &input_wait_mask);
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
4147 FD_SET (s, &non_keyboard_wait_mask);
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
4148 }
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
4149
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
4150 if (s > max_process_desc)
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
4151 max_process_desc = s;
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
4152
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 49281
diff changeset
4153 /* Setup coding system for new process based on server process.
43968
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
4154 This seems to be the proper thing to do, as the coding system
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
4155 of the new process should reflect the settings at the time the
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
4156 server socket was opened; not the current settings. */
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
4157
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
4158 p->decode_coding_system = ps->decode_coding_system;
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
4159 p->encode_coding_system = ps->encode_coding_system;
49667
cbec1327e2f1 (QCfilter_multibyte): New variable.
Kenichi Handa <handa@m17n.org>
parents: 49600
diff changeset
4160 setup_process_coding_systems (proc);
43968
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
4161
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
4162 p->decoding_buf = make_uninit_string (0);
81826
077a1e6fd3f2 (struct Lisp_Process): Turn slots infd, outfd, kill_without_query, pty_flag,
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 80984
diff changeset
4163 p->decoding_carryover = 0;
43968
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
4164 p->encoding_buf = make_uninit_string (0);
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
4165
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
4166 p->inherit_coding_system_flag
81826
077a1e6fd3f2 (struct Lisp_Process): Turn slots infd, outfd, kill_without_query, pty_flag,
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 80984
diff changeset
4167 = (NILP (buffer) ? 0 : ps->inherit_coding_system_flag);
43968
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
4168
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
4169 if (!NILP (ps->log))
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
4170 call3 (ps->log, server, proc,
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
4171 concat3 (build_string ("accept from "),
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
4172 (STRINGP (host) ? host : build_string ("-")),
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
4173 build_string ("\n")));
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
4174
44314
f76a1425eb34 (DATAGRAM_CONN_P, list_processes_1)
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 44194
diff changeset
4175 if (!NILP (p->sentinel))
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 49281
diff changeset
4176 exec_sentinel (proc,
43968
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
4177 concat3 (build_string ("open from "),
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
4178 (STRINGP (host) ? host : build_string ("-")),
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
4179 build_string ("\n")));
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
4180 }
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
4181
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4182 /* This variable is different from waiting_for_input in keyboard.c.
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4183 It is used to communicate to a lisp process-filter/sentinel (via the
55444
976d03256b41 (Fwaiting_for_user_input_p, Fmake_network_process)
Juanma Barranquero <lekktu@gmail.com>
parents: 53835
diff changeset
4184 function Fwaiting_for_user_input_p below) whether Emacs was waiting
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4185 for user-input when that process-filter was called.
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4186 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
4187 lisp code is being evalled.
dd3dfde8f973 (wait_reading_process_input):
Richard M. Stallman <rms@gnu.org>
parents: 8390
diff changeset
4188 This is also used in record_asynch_buffer_change.
dd3dfde8f973 (wait_reading_process_input):
Richard M. Stallman <rms@gnu.org>
parents: 8390
diff changeset
4189 For that purpose, this must be 0
56728
1686b397ef16 (wait_reading_process_output): Rename from
Kim F. Storm <storm@cua.dk>
parents: 56716
diff changeset
4190 when not inside wait_reading_process_output. */
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4191 static int waiting_for_user_input_p;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4192
72277
a6b9ee835f88 * process.c: Reapply 2006-08-01 change.
Chong Yidong <cyd@stupidchicken.com>
parents: 72255
diff changeset
4193 static Lisp_Object
a6b9ee835f88 * process.c: Reapply 2006-08-01 change.
Chong Yidong <cyd@stupidchicken.com>
parents: 72255
diff changeset
4194 wait_reading_process_output_unwind (data)
a6b9ee835f88 * process.c: Reapply 2006-08-01 change.
Chong Yidong <cyd@stupidchicken.com>
parents: 72255
diff changeset
4195 Lisp_Object data;
a6b9ee835f88 * process.c: Reapply 2006-08-01 change.
Chong Yidong <cyd@stupidchicken.com>
parents: 72255
diff changeset
4196 {
a6b9ee835f88 * process.c: Reapply 2006-08-01 change.
Chong Yidong <cyd@stupidchicken.com>
parents: 72255
diff changeset
4197 waiting_for_user_input_p = XINT (data);
a6b9ee835f88 * process.c: Reapply 2006-08-01 change.
Chong Yidong <cyd@stupidchicken.com>
parents: 72255
diff changeset
4198 return Qnil;
a6b9ee835f88 * process.c: Reapply 2006-08-01 change.
Chong Yidong <cyd@stupidchicken.com>
parents: 72255
diff changeset
4199 }
a6b9ee835f88 * process.c: Reapply 2006-08-01 change.
Chong Yidong <cyd@stupidchicken.com>
parents: 72255
diff changeset
4200
14890
71c2cf461805 (wait_reading_process_input_1): New (empty) function.
Richard M. Stallman <rms@gnu.org>
parents: 14863
diff changeset
4201 /* This is here so breakpoints can be put on it. */
21514
fa9ff387d260 Fix -Wimplicit warnings.
Andreas Schwab <schwab@suse.de>
parents: 21414
diff changeset
4202 static void
56728
1686b397ef16 (wait_reading_process_output): Rename from
Kim F. Storm <storm@cua.dk>
parents: 56716
diff changeset
4203 wait_reading_process_output_1 ()
14890
71c2cf461805 (wait_reading_process_input_1): New (empty) function.
Richard M. Stallman <rms@gnu.org>
parents: 14863
diff changeset
4204 {
71c2cf461805 (wait_reading_process_input_1): New (empty) function.
Richard M. Stallman <rms@gnu.org>
parents: 14863
diff changeset
4205 }
71c2cf461805 (wait_reading_process_input_1): New (empty) function.
Richard M. Stallman <rms@gnu.org>
parents: 14863
diff changeset
4206
71109
8e0e27268c74 (select_wrapper): Add wrapper around select to work around
Kim F. Storm <storm@cua.dk>
parents: 70517
diff changeset
4207 /* Use a wrapper around select to work around a bug in gdb 5.3.
8e0e27268c74 (select_wrapper): Add wrapper around select to work around
Kim F. Storm <storm@cua.dk>
parents: 70517
diff changeset
4208 Normally, the wrapper is optimzed away by inlining.
8e0e27268c74 (select_wrapper): Add wrapper around select to work around
Kim F. Storm <storm@cua.dk>
parents: 70517
diff changeset
4209
8e0e27268c74 (select_wrapper): Add wrapper around select to work around
Kim F. Storm <storm@cua.dk>
parents: 70517
diff changeset
4210 If emacs is stopped inside select, the gdb backtrace doesn't
8e0e27268c74 (select_wrapper): Add wrapper around select to work around
Kim F. Storm <storm@cua.dk>
parents: 70517
diff changeset
4211 show the function which called select, so it is practically
8e0e27268c74 (select_wrapper): Add wrapper around select to work around
Kim F. Storm <storm@cua.dk>
parents: 70517
diff changeset
4212 impossible to step through wait_reading_process_output. */
8e0e27268c74 (select_wrapper): Add wrapper around select to work around
Kim F. Storm <storm@cua.dk>
parents: 70517
diff changeset
4213
8e0e27268c74 (select_wrapper): Add wrapper around select to work around
Kim F. Storm <storm@cua.dk>
parents: 70517
diff changeset
4214 #ifndef select
8e0e27268c74 (select_wrapper): Add wrapper around select to work around
Kim F. Storm <storm@cua.dk>
parents: 70517
diff changeset
4215 static INLINE int
8e0e27268c74 (select_wrapper): Add wrapper around select to work around
Kim F. Storm <storm@cua.dk>
parents: 70517
diff changeset
4216 select_wrapper (n, rfd, wfd, xfd, tmo)
8e0e27268c74 (select_wrapper): Add wrapper around select to work around
Kim F. Storm <storm@cua.dk>
parents: 70517
diff changeset
4217 int n;
8e0e27268c74 (select_wrapper): Add wrapper around select to work around
Kim F. Storm <storm@cua.dk>
parents: 70517
diff changeset
4218 SELECT_TYPE *rfd, *wfd, *xfd;
8e0e27268c74 (select_wrapper): Add wrapper around select to work around
Kim F. Storm <storm@cua.dk>
parents: 70517
diff changeset
4219 EMACS_TIME *tmo;
8e0e27268c74 (select_wrapper): Add wrapper around select to work around
Kim F. Storm <storm@cua.dk>
parents: 70517
diff changeset
4220 {
8e0e27268c74 (select_wrapper): Add wrapper around select to work around
Kim F. Storm <storm@cua.dk>
parents: 70517
diff changeset
4221 return select (n, rfd, wfd, xfd, tmo);
8e0e27268c74 (select_wrapper): Add wrapper around select to work around
Kim F. Storm <storm@cua.dk>
parents: 70517
diff changeset
4222 }
8e0e27268c74 (select_wrapper): Add wrapper around select to work around
Kim F. Storm <storm@cua.dk>
parents: 70517
diff changeset
4223 #define select select_wrapper
8e0e27268c74 (select_wrapper): Add wrapper around select to work around
Kim F. Storm <storm@cua.dk>
parents: 70517
diff changeset
4224 #endif
8e0e27268c74 (select_wrapper): Add wrapper around select to work around
Kim F. Storm <storm@cua.dk>
parents: 70517
diff changeset
4225
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4226 /* Read and dispose of subprocess output while waiting for timeout to
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4227 elapse and/or keyboard input to be available.
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4228
3953
d0c23febc08c (wait_reading_process_input): Do include the keyboard
Richard M. Stallman <rms@gnu.org>
parents: 3915
diff changeset
4229 TIME_LIMIT is:
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4230 timeout in seconds, or
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4231 zero for no limit, or
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4232 -1 means gobble data immediately available but don't wait for any.
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4233
3953
d0c23febc08c (wait_reading_process_input): Do include the keyboard
Richard M. Stallman <rms@gnu.org>
parents: 3915
diff changeset
4234 MICROSECS is:
d0c23febc08c (wait_reading_process_input): Do include the keyboard
Richard M. Stallman <rms@gnu.org>
parents: 3915
diff changeset
4235 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
4236 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
4237 consists of MICROSECS only.
d0c23febc08c (wait_reading_process_input): Do include the keyboard
Richard M. Stallman <rms@gnu.org>
parents: 3915
diff changeset
4238
d0c23febc08c (wait_reading_process_input): Do include the keyboard
Richard M. Stallman <rms@gnu.org>
parents: 3915
diff changeset
4239 READ_KBD is a lisp value:
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4240 0 to ignore keyboard input, or
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4241 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
4242 -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
4243 the quit handler, or
56716
c126b8b6a314 * process.c (wait_reading_process_input): Clean up.
Kim F. Storm <storm@cua.dk>
parents: 56713
diff changeset
4244
c126b8b6a314 * process.c (wait_reading_process_input): Clean up.
Kim F. Storm <storm@cua.dk>
parents: 56713
diff changeset
4245 DO_DISPLAY != 0 means redisplay should be done to show subprocess
56701
e327231e4361 (Faccept_process_output): Add arg JUST-THIS-ONE;
Kim F. Storm <storm@cua.dk>
parents: 56700
diff changeset
4246 output that arrives.
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4247
56716
c126b8b6a314 * process.c (wait_reading_process_input): Clean up.
Kim F. Storm <storm@cua.dk>
parents: 56713
diff changeset
4248 If WAIT_FOR_CELL is a cons cell, wait until its car is non-nil
c126b8b6a314 * process.c (wait_reading_process_input): Clean up.
Kim F. Storm <storm@cua.dk>
parents: 56713
diff changeset
4249 (and gobble terminal input into the buffer if any arrives).
c126b8b6a314 * process.c (wait_reading_process_input): Clean up.
Kim F. Storm <storm@cua.dk>
parents: 56713
diff changeset
4250
c126b8b6a314 * process.c (wait_reading_process_input): Clean up.
Kim F. Storm <storm@cua.dk>
parents: 56713
diff changeset
4251 If WAIT_PROC is specified, wait until something arrives from that
78501
1677cf1c2509 Replace `iff' in comments.
Glenn Morris <rgm@gnu.org>
parents: 78260
diff changeset
4252 process. The return value is true if we read some input from
56716
c126b8b6a314 * process.c (wait_reading_process_input): Clean up.
Kim F. Storm <storm@cua.dk>
parents: 56713
diff changeset
4253 that process.
c126b8b6a314 * process.c (wait_reading_process_input): Clean up.
Kim F. Storm <storm@cua.dk>
parents: 56713
diff changeset
4254
c126b8b6a314 * process.c (wait_reading_process_input): Clean up.
Kim F. Storm <storm@cua.dk>
parents: 56713
diff changeset
4255 If JUST_WAIT_PROC is non-nil, handle only output from WAIT_PROC
c126b8b6a314 * process.c (wait_reading_process_input): Clean up.
Kim F. Storm <storm@cua.dk>
parents: 56713
diff changeset
4256 (suspending output from other processes). A negative value
c126b8b6a314 * process.c (wait_reading_process_input): Clean up.
Kim F. Storm <storm@cua.dk>
parents: 56713
diff changeset
4257 means don't run any timers either.
c126b8b6a314 * process.c (wait_reading_process_input): Clean up.
Kim F. Storm <storm@cua.dk>
parents: 56713
diff changeset
4258
78501
1677cf1c2509 Replace `iff' in comments.
Glenn Morris <rgm@gnu.org>
parents: 78260
diff changeset
4259 If WAIT_PROC is specified, then the function returns true if we
56716
c126b8b6a314 * process.c (wait_reading_process_input): Clean up.
Kim F. Storm <storm@cua.dk>
parents: 56713
diff changeset
4260 received input from that process before the timeout elapsed.
78501
1677cf1c2509 Replace `iff' in comments.
Glenn Morris <rgm@gnu.org>
parents: 78260
diff changeset
4261 Otherwise, return true if we received input from any process. */
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4262
21514
fa9ff387d260 Fix -Wimplicit warnings.
Andreas Schwab <schwab@suse.de>
parents: 21414
diff changeset
4263 int
56728
1686b397ef16 (wait_reading_process_output): Rename from
Kim F. Storm <storm@cua.dk>
parents: 56716
diff changeset
4264 wait_reading_process_output (time_limit, microsecs, read_kbd, do_display,
1686b397ef16 (wait_reading_process_output): Rename from
Kim F. Storm <storm@cua.dk>
parents: 56716
diff changeset
4265 wait_for_cell, wait_proc, just_wait_proc)
56716
c126b8b6a314 * process.c (wait_reading_process_input): Clean up.
Kim F. Storm <storm@cua.dk>
parents: 56713
diff changeset
4266 int time_limit, microsecs, read_kbd, do_display;
c126b8b6a314 * process.c (wait_reading_process_input): Clean up.
Kim F. Storm <storm@cua.dk>
parents: 56713
diff changeset
4267 Lisp_Object wait_for_cell;
c126b8b6a314 * process.c (wait_reading_process_input): Clean up.
Kim F. Storm <storm@cua.dk>
parents: 56713
diff changeset
4268 struct Lisp_Process *wait_proc;
c126b8b6a314 * process.c (wait_reading_process_input): Clean up.
Kim F. Storm <storm@cua.dk>
parents: 56713
diff changeset
4269 int just_wait_proc;
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4270 {
25770
3a44b5298cd5 (list_processes_1): Remove unused variables.
Gerd Moellmann <gerd@gnu.org>
parents: 25760
diff changeset
4271 register int channel, nfds;
55579
234873044c2a (wait_reading_process_input): Make reentrant.
Kim F. Storm <storm@cua.dk>
parents: 55534
diff changeset
4272 SELECT_TYPE Available;
57840
8abbe69dfdb2 (connect_wait_mask, num_pending_connects): Only
Kim F. Storm <storm@cua.dk>
parents: 57287
diff changeset
4273 #ifdef NON_BLOCKING_CONNECT
55579
234873044c2a (wait_reading_process_input): Make reentrant.
Kim F. Storm <storm@cua.dk>
parents: 55534
diff changeset
4274 SELECT_TYPE Connecting;
57840
8abbe69dfdb2 (connect_wait_mask, num_pending_connects): Only
Kim F. Storm <storm@cua.dk>
parents: 57287
diff changeset
4275 int check_connect;
8abbe69dfdb2 (connect_wait_mask, num_pending_connects): Only
Kim F. Storm <storm@cua.dk>
parents: 57287
diff changeset
4276 #endif
8abbe69dfdb2 (connect_wait_mask, num_pending_connects): Only
Kim F. Storm <storm@cua.dk>
parents: 57287
diff changeset
4277 int check_delay, no_avail;
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4278 int xerrno;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4279 Lisp_Object proc;
25770
3a44b5298cd5 (list_processes_1): Remove unused variables.
Gerd Moellmann <gerd@gnu.org>
parents: 25760
diff changeset
4280 EMACS_TIME timeout, end_time;
5134
0a4e46e15304 (wait_reading_process_input):
Richard M. Stallman <rms@gnu.org>
parents: 4998
diff changeset
4281 int wait_channel = -1;
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4282 int got_some_input = 0;
72277
a6b9ee835f88 * process.c: Reapply 2006-08-01 change.
Chong Yidong <cyd@stupidchicken.com>
parents: 72255
diff changeset
4283 int count = SPECPDL_INDEX ();
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4284
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4285 FD_ZERO (&Available);
57840
8abbe69dfdb2 (connect_wait_mask, num_pending_connects): Only
Kim F. Storm <storm@cua.dk>
parents: 57287
diff changeset
4286 #ifdef NON_BLOCKING_CONNECT
43598
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
4287 FD_ZERO (&Connecting);
57840
8abbe69dfdb2 (connect_wait_mask, num_pending_connects): Only
Kim F. Storm <storm@cua.dk>
parents: 57287
diff changeset
4288 #endif
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4289
56716
c126b8b6a314 * process.c (wait_reading_process_input): Clean up.
Kim F. Storm <storm@cua.dk>
parents: 56713
diff changeset
4290 /* If wait_proc is a process to watch, set wait_channel accordingly. */
c126b8b6a314 * process.c (wait_reading_process_input): Clean up.
Kim F. Storm <storm@cua.dk>
parents: 56713
diff changeset
4291 if (wait_proc != NULL)
81826
077a1e6fd3f2 (struct Lisp_Process): Turn slots infd, outfd, kill_without_query, pty_flag,
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 80984
diff changeset
4292 wait_channel = wait_proc->infd;
56716
c126b8b6a314 * process.c (wait_reading_process_input): Clean up.
Kim F. Storm <storm@cua.dk>
parents: 56713
diff changeset
4293
72277
a6b9ee835f88 * process.c: Reapply 2006-08-01 change.
Chong Yidong <cyd@stupidchicken.com>
parents: 72255
diff changeset
4294 record_unwind_protect (wait_reading_process_output_unwind,
a6b9ee835f88 * process.c: Reapply 2006-08-01 change.
Chong Yidong <cyd@stupidchicken.com>
parents: 72255
diff changeset
4295 make_number (waiting_for_user_input_p));
56716
c126b8b6a314 * process.c (wait_reading_process_input): Clean up.
Kim F. Storm <storm@cua.dk>
parents: 56713
diff changeset
4296 waiting_for_user_input_p = read_kbd;
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4297
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4298 /* Since we may need to wait several times,
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4299 compute the absolute time to return at. */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4300 if (time_limit || microsecs)
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4301 {
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4302 EMACS_GET_TIME (end_time);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4303 EMACS_SET_SECS_USECS (timeout, time_limit, microsecs);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4304 EMACS_ADD_TIME (end_time, end_time, timeout);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4305 }
49894
675b86cf29fc (wait_reading_process_input): Use POLL_INTERRUPTED_SYS_CALL, not
Juanma Barranquero <lekktu@gmail.com>
parents: 49872
diff changeset
4306 #ifdef POLL_INTERRUPTED_SYS_CALL
15661
96debed5fb36 (wait_reading_process_input) [hpux]: Workaround for
Karl Heuer <kwzh@gnu.org>
parents: 15406
diff changeset
4307 /* AlainF 5-Jul-1996
96debed5fb36 (wait_reading_process_input) [hpux]: Workaround for
Karl Heuer <kwzh@gnu.org>
parents: 15406
diff changeset
4308 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
4309 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
4310 in an X window
47431
8871e67384e4 (wait_reading_process_input, both versions):
Richard M. Stallman <rms@gnu.org>
parents: 47020
diff changeset
4311 Turn off periodic alarms (in case they are in use),
8871e67384e4 (wait_reading_process_input, both versions):
Richard M. Stallman <rms@gnu.org>
parents: 47020
diff changeset
4312 and then turn off any other atimers. */
8871e67384e4 (wait_reading_process_input, both versions):
Richard M. Stallman <rms@gnu.org>
parents: 47020
diff changeset
4313 stop_polling ();
27430
1aa71680fe50 (toplevel): Include atimer.h.
Gerd Moellmann <gerd@gnu.org>
parents: 27028
diff changeset
4314 turn_on_atimers (0);
49894
675b86cf29fc (wait_reading_process_input): Use POLL_INTERRUPTED_SYS_CALL, not
Juanma Barranquero <lekktu@gmail.com>
parents: 49872
diff changeset
4315 #endif /* POLL_INTERRUPTED_SYS_CALL */
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4316
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4317 while (1)
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4318 {
14458
2bb4652305c1 (wait_reading_process_input): If select times out,
Richard M. Stallman <rms@gnu.org>
parents: 14405
diff changeset
4319 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
4320
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4321 /* If calling from keyboard input, do not quit
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4322 since we want to return C-g as an input character.
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4323 Otherwise, do pending quit if requested. */
56716
c126b8b6a314 * process.c (wait_reading_process_input): Clean up.
Kim F. Storm <storm@cua.dk>
parents: 56713
diff changeset
4324 if (read_kbd >= 0)
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4325 QUIT;
53659
291acfb4bf40 (wait_reading_process_input) [SYNC_INPUT]: Check interrupt_input_pending.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 53637
diff changeset
4326 #ifdef SYNC_INPUT
291acfb4bf40 (wait_reading_process_input) [SYNC_INPUT]: Check interrupt_input_pending.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 53637
diff changeset
4327 else if (interrupt_input_pending)
291acfb4bf40 (wait_reading_process_input) [SYNC_INPUT]: Check interrupt_input_pending.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 53637
diff changeset
4328 handle_async_input ();
291acfb4bf40 (wait_reading_process_input) [SYNC_INPUT]: Check interrupt_input_pending.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 53637
diff changeset
4329 #endif
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4330
4639
76f242eb1fa8 Include syswait.h.
Richard M. Stallman <rms@gnu.org>
parents: 4320
diff changeset
4331 /* 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
4332 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
4333 break;
76f242eb1fa8 Include syswait.h.
Richard M. Stallman <rms@gnu.org>
parents: 4320
diff changeset
4334
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4335 /* Compute time from now till when time limit is up */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4336 /* Exit if already run out */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4337 if (time_limit == -1)
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4338 {
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4339 /* -1 specified for timeout means
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4340 gobble output available now
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4341 but don't wait at all. */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4342
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4343 EMACS_SET_SECS_USECS (timeout, 0, 0);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4344 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4345 else if (time_limit || microsecs)
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4346 {
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4347 EMACS_GET_TIME (timeout);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4348 EMACS_SUB_TIME (timeout, end_time, timeout);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4349 if (EMACS_TIME_NEG_P (timeout))
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4350 break;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4351 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4352 else
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4353 {
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4354 EMACS_SET_SECS_USECS (timeout, 100000, 0);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4355 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4356
15064
fb0f2804c34a (wait_reading_process_input, both definitions):
Richard M. Stallman <rms@gnu.org>
parents: 15025
diff changeset
4357 /* Normally we run timers here.
fb0f2804c34a (wait_reading_process_input, both definitions):
Richard M. Stallman <rms@gnu.org>
parents: 15025
diff changeset
4358 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
4359 the wait is supposed to be short,
fb0f2804c34a (wait_reading_process_input, both definitions):
Richard M. Stallman <rms@gnu.org>
parents: 15025
diff changeset
4360 and those callers cannot handle running arbitrary Lisp code here. */
56701
e327231e4361 (Faccept_process_output): Add arg JUST-THIS-ONE;
Kim F. Storm <storm@cua.dk>
parents: 56700
diff changeset
4361 if (NILP (wait_for_cell)
56716
c126b8b6a314 * process.c (wait_reading_process_input): Clean up.
Kim F. Storm <storm@cua.dk>
parents: 56713
diff changeset
4362 && just_wait_proc >= 0)
14404
cba05f90ee57 (wait_reading_process_input): Call timer_check
Richard M. Stallman <rms@gnu.org>
parents: 14278
diff changeset
4363 {
14458
2bb4652305c1 (wait_reading_process_input): If select times out,
Richard M. Stallman <rms@gnu.org>
parents: 14405
diff changeset
4364 EMACS_TIME timer_delay;
34660
75866a7ebaec (wait_reading_process_input): Check for pending
Gerd Moellmann <gerd@gnu.org>
parents: 34647
diff changeset
4365
75866a7ebaec (wait_reading_process_input): Check for pending
Gerd Moellmann <gerd@gnu.org>
parents: 34647
diff changeset
4366 do
14890
71c2cf461805 (wait_reading_process_input_1): New (empty) function.
Richard M. Stallman <rms@gnu.org>
parents: 14863
diff changeset
4367 {
34660
75866a7ebaec (wait_reading_process_input): Check for pending
Gerd Moellmann <gerd@gnu.org>
parents: 34647
diff changeset
4368 int old_timers_run = timers_run;
37465
f790d83ea743 (wait_reading_process_input): Call
Gerd Moellmann <gerd@gnu.org>
parents: 37413
diff changeset
4369 struct buffer *old_buffer = current_buffer;
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 49281
diff changeset
4370
34660
75866a7ebaec (wait_reading_process_input): Check for pending
Gerd Moellmann <gerd@gnu.org>
parents: 34647
diff changeset
4371 timer_delay = timer_check (1);
37398
756d2f4e4058 (wait_reading_process_input): Call
Gerd Moellmann <gerd@gnu.org>
parents: 36659
diff changeset
4372
756d2f4e4058 (wait_reading_process_input): Call
Gerd Moellmann <gerd@gnu.org>
parents: 36659
diff changeset
4373 /* 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
4374 an alike. Make read_key_sequence aware of that. */
756d2f4e4058 (wait_reading_process_input): Call
Gerd Moellmann <gerd@gnu.org>
parents: 36659
diff changeset
4375 if (timers_run != old_timers_run
37465
f790d83ea743 (wait_reading_process_input): Call
Gerd Moellmann <gerd@gnu.org>
parents: 37413
diff changeset
4376 && old_buffer != current_buffer
37398
756d2f4e4058 (wait_reading_process_input): Call
Gerd Moellmann <gerd@gnu.org>
parents: 36659
diff changeset
4377 && waiting_for_user_input_p == -1)
756d2f4e4058 (wait_reading_process_input): Call
Gerd Moellmann <gerd@gnu.org>
parents: 36659
diff changeset
4378 record_asynch_buffer_change ();
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 49281
diff changeset
4379
34660
75866a7ebaec (wait_reading_process_input): Check for pending
Gerd Moellmann <gerd@gnu.org>
parents: 34647
diff changeset
4380 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
4381 /* 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
4382 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
4383 redisplay_preserve_echo_area (9);
34660
75866a7ebaec (wait_reading_process_input): Check for pending
Gerd Moellmann <gerd@gnu.org>
parents: 34647
diff changeset
4384 else
75866a7ebaec (wait_reading_process_input): Check for pending
Gerd Moellmann <gerd@gnu.org>
parents: 34647
diff changeset
4385 break;
14890
71c2cf461805 (wait_reading_process_input_1): New (empty) function.
Richard M. Stallman <rms@gnu.org>
parents: 14863
diff changeset
4386 }
34660
75866a7ebaec (wait_reading_process_input): Check for pending
Gerd Moellmann <gerd@gnu.org>
parents: 34647
diff changeset
4387 while (!detect_input_pending ());
14890
71c2cf461805 (wait_reading_process_input_1): New (empty) function.
Richard M. Stallman <rms@gnu.org>
parents: 14863
diff changeset
4388
18230
2f1f942f25ca (wait_reading_process_input): Return if unread events appear.
Richard M. Stallman <rms@gnu.org>
parents: 18183
diff changeset
4389 /* If there is unread keyboard input, also return. */
56716
c126b8b6a314 * process.c (wait_reading_process_input): Clean up.
Kim F. Storm <storm@cua.dk>
parents: 56713
diff changeset
4390 if (read_kbd != 0
18230
2f1f942f25ca (wait_reading_process_input): Return if unread events appear.
Richard M. Stallman <rms@gnu.org>
parents: 18183
diff changeset
4391 && requeued_events_pending_p ())
2f1f942f25ca (wait_reading_process_input): Return if unread events appear.
Richard M. Stallman <rms@gnu.org>
parents: 18183
diff changeset
4392 break;
2f1f942f25ca (wait_reading_process_input): Return if unread events appear.
Richard M. Stallman <rms@gnu.org>
parents: 18183
diff changeset
4393
14458
2bb4652305c1 (wait_reading_process_input): If select times out,
Richard M. Stallman <rms@gnu.org>
parents: 14405
diff changeset
4394 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
4395 {
cba05f90ee57 (wait_reading_process_input): Call timer_check
Richard M. Stallman <rms@gnu.org>
parents: 14278
diff changeset
4396 EMACS_TIME difference;
cba05f90ee57 (wait_reading_process_input): Call timer_check
Richard M. Stallman <rms@gnu.org>
parents: 14278
diff changeset
4397 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
4398 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
4399 {
2bb4652305c1 (wait_reading_process_input): If select times out,
Richard M. Stallman <rms@gnu.org>
parents: 14405
diff changeset
4400 timeout = timer_delay;
2bb4652305c1 (wait_reading_process_input): If select times out,
Richard M. Stallman <rms@gnu.org>
parents: 14405
diff changeset
4401 timeout_reduced_for_timers = 1;
2bb4652305c1 (wait_reading_process_input): If select times out,
Richard M. Stallman <rms@gnu.org>
parents: 14405
diff changeset
4402 }
14404
cba05f90ee57 (wait_reading_process_input): Call timer_check
Richard M. Stallman <rms@gnu.org>
parents: 14278
diff changeset
4403 }
14935
3e0dc64a5cb8 (wait_reading_process_input): Don't call
Richard M. Stallman <rms@gnu.org>
parents: 14890
diff changeset
4404 /* 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
4405 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
4406 {
71c2cf461805 (wait_reading_process_input_1): New (empty) function.
Richard M. Stallman <rms@gnu.org>
parents: 14863
diff changeset
4407 /* This is so a breakpoint can be put here. */
56728
1686b397ef16 (wait_reading_process_output): Rename from
Kim F. Storm <storm@cua.dk>
parents: 56716
diff changeset
4408 wait_reading_process_output_1 ();
14890
71c2cf461805 (wait_reading_process_input_1): New (empty) function.
Richard M. Stallman <rms@gnu.org>
parents: 14863
diff changeset
4409 }
14404
cba05f90ee57 (wait_reading_process_input): Call timer_check
Richard M. Stallman <rms@gnu.org>
parents: 14278
diff changeset
4410 }
cba05f90ee57 (wait_reading_process_input): Call timer_check
Richard M. Stallman <rms@gnu.org>
parents: 14278
diff changeset
4411
2894
646c5beae647 * process.c (wait_reading_process_input): Undo change of April
Jim Blandy <jimb@redhat.com>
parents: 2893
diff changeset
4412 /* 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
4413 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
4414
646c5beae647 * process.c (wait_reading_process_input): Undo change of April
Jim Blandy <jimb@redhat.com>
parents: 2893
diff changeset
4415 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
4416 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
4417 process activity, timeout is the only way we will know. */
56716
c126b8b6a314 * process.c (wait_reading_process_input): Clean up.
Kim F. Storm <storm@cua.dk>
parents: 56713
diff changeset
4418 if (read_kbd < 0)
2894
646c5beae647 * process.c (wait_reading_process_input): Undo change of April
Jim Blandy <jimb@redhat.com>
parents: 2893
diff changeset
4419 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
4420
1925
3ddb163a9201 * process.c: Make sure we don't miss processes exiting, by having
Jim Blandy <jimb@redhat.com>
parents: 1886
diff changeset
4421 /* 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
4422 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
4423 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
4424 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
4425 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
4426 {
57840
8abbe69dfdb2 (connect_wait_mask, num_pending_connects): Only
Kim F. Storm <storm@cua.dk>
parents: 57287
diff changeset
4427 SELECT_TYPE Atemp;
8abbe69dfdb2 (connect_wait_mask, num_pending_connects): Only
Kim F. Storm <storm@cua.dk>
parents: 57287
diff changeset
4428 #ifdef NON_BLOCKING_CONNECT
8abbe69dfdb2 (connect_wait_mask, num_pending_connects): Only
Kim F. Storm <storm@cua.dk>
parents: 57287
diff changeset
4429 SELECT_TYPE Ctemp;
8abbe69dfdb2 (connect_wait_mask, num_pending_connects): Only
Kim F. Storm <storm@cua.dk>
parents: 57287
diff changeset
4430 #endif
43598
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
4431
1925
3ddb163a9201 * process.c: Make sure we don't miss processes exiting, by having
Jim Blandy <jimb@redhat.com>
parents: 1886
diff changeset
4432 Atemp = input_wait_mask;
56477
59a86f6ee1fb Fixes for Ctrl-G support on carbon, replacing old timeout based polling
Steven Tamm <steventamm@mac.com>
parents: 56092
diff changeset
4433 #if 0
59a86f6ee1fb Fixes for Ctrl-G support on carbon, replacing old timeout based polling
Steven Tamm <steventamm@mac.com>
parents: 56092
diff changeset
4434 /* On Mac OS X 10.0, the SELECT system call always says input is
44890
01b93e5e53a7 Patch for building Emacs on Mac OS X. April 26, 2002. See ChangeLog,
Andrew Choi <akochoi@shaw.ca>
parents: 44372
diff changeset
4435 present (for reading) at stdin, even when none is. This
45318
b80d723ad7cc Fix typo.
Juanma Barranquero <lekktu@gmail.com>
parents: 45118
diff changeset
4436 causes the call to SELECT below to return 1 and
44890
01b93e5e53a7 Patch for building Emacs on Mac OS X. April 26, 2002. See ChangeLog,
Andrew Choi <akochoi@shaw.ca>
parents: 44372
diff changeset
4437 status_notify not to be called. As a result output of
56583
64ae47cb68ff (read_process_output): Use whole read buffer.
Kim F. Storm <storm@cua.dk>
parents: 56477
diff changeset
4438 subprocesses are incorrectly discarded.
56477
59a86f6ee1fb Fixes for Ctrl-G support on carbon, replacing old timeout based polling
Steven Tamm <steventamm@mac.com>
parents: 56092
diff changeset
4439 */
44890
01b93e5e53a7 Patch for building Emacs on Mac OS X. April 26, 2002. See ChangeLog,
Andrew Choi <akochoi@shaw.ca>
parents: 44372
diff changeset
4440 FD_CLR (0, &Atemp);
01b93e5e53a7 Patch for building Emacs on Mac OS X. April 26, 2002. See ChangeLog,
Andrew Choi <akochoi@shaw.ca>
parents: 44372
diff changeset
4441 #endif
57840
8abbe69dfdb2 (connect_wait_mask, num_pending_connects): Only
Kim F. Storm <storm@cua.dk>
parents: 57287
diff changeset
4442 IF_NON_BLOCKING_CONNECT (Ctemp = connect_wait_mask);
8abbe69dfdb2 (connect_wait_mask, num_pending_connects): Only
Kim F. Storm <storm@cua.dk>
parents: 57287
diff changeset
4443
1925
3ddb163a9201 * process.c: Make sure we don't miss processes exiting, by having
Jim Blandy <jimb@redhat.com>
parents: 1886
diff changeset
4444 EMACS_SET_SECS_USECS (timeout, 0, 0);
80984
9247e9d47488 (gpm_wait_mask, max_gpm_desc): New variables.
Nick Roberts <nickrob@snap.net.nz>
parents: 77462
diff changeset
4445 if ((select (max (max (max_process_desc, max_keyboard_desc),
9247e9d47488 (gpm_wait_mask, max_gpm_desc): New variables.
Nick Roberts <nickrob@snap.net.nz>
parents: 77462
diff changeset
4446 max_gpm_desc) + 1,
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 49281
diff changeset
4447 &Atemp,
57840
8abbe69dfdb2 (connect_wait_mask, num_pending_connects): Only
Kim F. Storm <storm@cua.dk>
parents: 57287
diff changeset
4448 #ifdef NON_BLOCKING_CONNECT
43598
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
4449 (num_pending_connects > 0 ? &Ctemp : (SELECT_TYPE *)0),
57840
8abbe69dfdb2 (connect_wait_mask, num_pending_connects): Only
Kim F. Storm <storm@cua.dk>
parents: 57287
diff changeset
4450 #else
8abbe69dfdb2 (connect_wait_mask, num_pending_connects): Only
Kim F. Storm <storm@cua.dk>
parents: 57287
diff changeset
4451 (SELECT_TYPE *)0,
8abbe69dfdb2 (connect_wait_mask, num_pending_connects): Only
Kim F. Storm <storm@cua.dk>
parents: 57287
diff changeset
4452 #endif
43598
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
4453 (SELECT_TYPE *)0, &timeout)
11926
40d7e6f04ebe (create_process, send_process): Add volatile qualifiers.
Karl Heuer <kwzh@gnu.org>
parents: 11845
diff changeset
4454 <= 0))
2894
646c5beae647 * process.c (wait_reading_process_input): Undo change of April
Jim Blandy <jimb@redhat.com>
parents: 2893
diff changeset
4455 {
646c5beae647 * process.c (wait_reading_process_input): Undo change of April
Jim Blandy <jimb@redhat.com>
parents: 2893
diff changeset
4456 /* 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
4457 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
4458 clear_waiting_for_input ();
64977
d26871fb1b7b (deactivate_process, status_notify, read_process_output)
Kim F. Storm <storm@cua.dk>
parents: 64770
diff changeset
4459 status_notify (NULL);
2894
646c5beae647 * process.c (wait_reading_process_input): Undo change of April
Jim Blandy <jimb@redhat.com>
parents: 2893
diff changeset
4460 }
1925
3ddb163a9201 * process.c: Make sure we don't miss processes exiting, by having
Jim Blandy <jimb@redhat.com>
parents: 1886
diff changeset
4461 }
3ddb163a9201 * process.c: Make sure we don't miss processes exiting, by having
Jim Blandy <jimb@redhat.com>
parents: 1886
diff changeset
4462
43598
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
4463 /* 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
4464 read whatever data has already been received. */
69873
2d844bbbccd4 * process.h (struct Lisp_Process): Replace Lisp_Objects `pid',
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 69634
diff changeset
4465 if (wait_proc && wait_proc->raw_status_new)
1925
3ddb163a9201 * process.c: Make sure we don't miss processes exiting, by having
Jim Blandy <jimb@redhat.com>
parents: 1886
diff changeset
4466 update_status (wait_proc);
69873
2d844bbbccd4 * process.h (struct Lisp_Process): Replace Lisp_Objects `pid',
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 69634
diff changeset
4467 if (wait_proc
43598
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
4468 && ! EQ (wait_proc->status, Qrun)
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
4469 && ! 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
4470 {
18946
84b78d90cd45 (wait_reading_process_input): Initialize total_read.
Richard M. Stallman <rms@gnu.org>
parents: 18739
diff changeset
4471 int nread, total_nread = 0;
18267
29c37882ee1f (wait_reading_process_input): When exiting because
Richard M. Stallman <rms@gnu.org>
parents: 18230
diff changeset
4472
2893
4df57953d5d0 * process.c (wait_reading_process_input): Don't forget to call
Jim Blandy <jimb@redhat.com>
parents: 2887
diff changeset
4473 clear_waiting_for_input ();
18267
29c37882ee1f (wait_reading_process_input): When exiting because
Richard M. Stallman <rms@gnu.org>
parents: 18230
diff changeset
4474 XSETPROCESS (proc, wait_proc);
29c37882ee1f (wait_reading_process_input): When exiting because
Richard M. Stallman <rms@gnu.org>
parents: 18230
diff changeset
4475
29c37882ee1f (wait_reading_process_input): When exiting because
Richard M. Stallman <rms@gnu.org>
parents: 18230
diff changeset
4476 /* Read data from the process, until we exhaust it. */
81826
077a1e6fd3f2 (struct Lisp_Process): Turn slots infd, outfd, kill_without_query, pty_flag,
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 80984
diff changeset
4477 while (wait_proc->infd >= 0)
18946
84b78d90cd45 (wait_reading_process_input): Initialize total_read.
Richard M. Stallman <rms@gnu.org>
parents: 18739
diff changeset
4478 {
81826
077a1e6fd3f2 (struct Lisp_Process): Turn slots infd, outfd, kill_without_query, pty_flag,
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 80984
diff changeset
4479 nread = read_process_output (proc, wait_proc->infd);
25894
8bd3e6fbf42f (wait_reading_process_input): When trying to suck
Gerd Moellmann <gerd@gnu.org>
parents: 25770
diff changeset
4480
8bd3e6fbf42f (wait_reading_process_input): When trying to suck
Gerd Moellmann <gerd@gnu.org>
parents: 25770
diff changeset
4481 if (nread == 0)
8bd3e6fbf42f (wait_reading_process_input): When trying to suck
Gerd Moellmann <gerd@gnu.org>
parents: 25770
diff changeset
4482 break;
8bd3e6fbf42f (wait_reading_process_input): When trying to suck
Gerd Moellmann <gerd@gnu.org>
parents: 25770
diff changeset
4483
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 49281
diff changeset
4484 if (0 < nread)
18946
84b78d90cd45 (wait_reading_process_input): Initialize total_read.
Richard M. Stallman <rms@gnu.org>
parents: 18739
diff changeset
4485 total_nread += nread;
84b78d90cd45 (wait_reading_process_input): Initialize total_read.
Richard M. Stallman <rms@gnu.org>
parents: 18739
diff changeset
4486 #ifdef EIO
84b78d90cd45 (wait_reading_process_input): Initialize total_read.
Richard M. Stallman <rms@gnu.org>
parents: 18739
diff changeset
4487 else if (nread == -1 && EIO == errno)
84b78d90cd45 (wait_reading_process_input): Initialize total_read.
Richard M. Stallman <rms@gnu.org>
parents: 18739
diff changeset
4488 break;
84b78d90cd45 (wait_reading_process_input): Initialize total_read.
Richard M. Stallman <rms@gnu.org>
parents: 18739
diff changeset
4489 #endif
25894
8bd3e6fbf42f (wait_reading_process_input): When trying to suck
Gerd Moellmann <gerd@gnu.org>
parents: 25770
diff changeset
4490 #ifdef EAGAIN
8bd3e6fbf42f (wait_reading_process_input): When trying to suck
Gerd Moellmann <gerd@gnu.org>
parents: 25770
diff changeset
4491 else if (nread == -1 && EAGAIN == errno)
8bd3e6fbf42f (wait_reading_process_input): When trying to suck
Gerd Moellmann <gerd@gnu.org>
parents: 25770
diff changeset
4492 break;
8bd3e6fbf42f (wait_reading_process_input): When trying to suck
Gerd Moellmann <gerd@gnu.org>
parents: 25770
diff changeset
4493 #endif
8bd3e6fbf42f (wait_reading_process_input): When trying to suck
Gerd Moellmann <gerd@gnu.org>
parents: 25770
diff changeset
4494 #ifdef EWOULDBLOCK
8bd3e6fbf42f (wait_reading_process_input): When trying to suck
Gerd Moellmann <gerd@gnu.org>
parents: 25770
diff changeset
4495 else if (nread == -1 && EWOULDBLOCK == errno)
8bd3e6fbf42f (wait_reading_process_input): When trying to suck
Gerd Moellmann <gerd@gnu.org>
parents: 25770
diff changeset
4496 break;
8bd3e6fbf42f (wait_reading_process_input): When trying to suck
Gerd Moellmann <gerd@gnu.org>
parents: 25770
diff changeset
4497 #endif
18946
84b78d90cd45 (wait_reading_process_input): Initialize total_read.
Richard M. Stallman <rms@gnu.org>
parents: 18739
diff changeset
4498 }
18267
29c37882ee1f (wait_reading_process_input): When exiting because
Richard M. Stallman <rms@gnu.org>
parents: 18230
diff changeset
4499 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
4500 redisplay_preserve_echo_area (10);
18267
29c37882ee1f (wait_reading_process_input): When exiting because
Richard M. Stallman <rms@gnu.org>
parents: 18230
diff changeset
4501
2893
4df57953d5d0 * process.c (wait_reading_process_input): Don't forget to call
Jim Blandy <jimb@redhat.com>
parents: 2887
diff changeset
4502 break;
4df57953d5d0 * process.c (wait_reading_process_input): Don't forget to call
Jim Blandy <jimb@redhat.com>
parents: 2887
diff changeset
4503 }
1925
3ddb163a9201 * process.c: Make sure we don't miss processes exiting, by having
Jim Blandy <jimb@redhat.com>
parents: 1886
diff changeset
4504
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4505 /* Wait till there is something to do */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4506
56716
c126b8b6a314 * process.c (wait_reading_process_input): Clean up.
Kim F. Storm <storm@cua.dk>
parents: 56713
diff changeset
4507 if (wait_proc && just_wait_proc)
56701
e327231e4361 (Faccept_process_output): Add arg JUST-THIS-ONE;
Kim F. Storm <storm@cua.dk>
parents: 56700
diff changeset
4508 {
81826
077a1e6fd3f2 (struct Lisp_Process): Turn slots infd, outfd, kill_without_query, pty_flag,
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 80984
diff changeset
4509 if (wait_proc->infd < 0) /* Terminated */
56716
c126b8b6a314 * process.c (wait_reading_process_input): Clean up.
Kim F. Storm <storm@cua.dk>
parents: 56713
diff changeset
4510 break;
81826
077a1e6fd3f2 (struct Lisp_Process): Turn slots infd, outfd, kill_without_query, pty_flag,
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 80984
diff changeset
4511 FD_SET (wait_proc->infd, &Available);
57840
8abbe69dfdb2 (connect_wait_mask, num_pending_connects): Only
Kim F. Storm <storm@cua.dk>
parents: 57287
diff changeset
4512 check_delay = 0;
8abbe69dfdb2 (connect_wait_mask, num_pending_connects): Only
Kim F. Storm <storm@cua.dk>
parents: 57287
diff changeset
4513 IF_NON_BLOCKING_CONNECT (check_connect = 0);
56701
e327231e4361 (Faccept_process_output): Add arg JUST-THIS-ONE;
Kim F. Storm <storm@cua.dk>
parents: 56700
diff changeset
4514 }
e327231e4361 (Faccept_process_output): Add arg JUST-THIS-ONE;
Kim F. Storm <storm@cua.dk>
parents: 56700
diff changeset
4515 else if (!NILP (wait_for_cell))
43598
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
4516 {
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
4517 Available = non_process_wait_mask;
57840
8abbe69dfdb2 (connect_wait_mask, num_pending_connects): Only
Kim F. Storm <storm@cua.dk>
parents: 57287
diff changeset
4518 check_delay = 0;
8abbe69dfdb2 (connect_wait_mask, num_pending_connects): Only
Kim F. Storm <storm@cua.dk>
parents: 57287
diff changeset
4519 IF_NON_BLOCKING_CONNECT (check_connect = 0);
43598
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
4520 }
9686
cd788aa8cb2a Handle multiple keyboard input descriptors.
Richard M. Stallman <rms@gnu.org>
parents: 9334
diff changeset
4521 else
43598
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
4522 {
56716
c126b8b6a314 * process.c (wait_reading_process_input): Clean up.
Kim F. Storm <storm@cua.dk>
parents: 56713
diff changeset
4523 if (! read_kbd)
43598
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
4524 Available = non_keyboard_wait_mask;
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
4525 else
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
4526 Available = input_wait_mask;
57840
8abbe69dfdb2 (connect_wait_mask, num_pending_connects): Only
Kim F. Storm <storm@cua.dk>
parents: 57287
diff changeset
4527 IF_NON_BLOCKING_CONNECT (check_connect = (num_pending_connects > 0));
53835
ad9da392f358 (wait_reading_process_input): Don't do adaptive read
Kim F. Storm <storm@cua.dk>
parents: 53732
diff changeset
4528 check_delay = wait_channel >= 0 ? 0 : process_output_delay_count;
43598
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
4529 }
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4530
765
e4093444f9f8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 692
diff changeset
4531 /* 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
4532 redisplay now, before we start to wait. There is a race
70b112526394 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 638
diff changeset
4533 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
4534 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
4535 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
4536 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
4537 {
affed1766d34 (wait_reading_process_input): Don't call prepare_menu_bars.
Richard M. Stallman <rms@gnu.org>
parents: 11695
diff changeset
4538 clear_waiting_for_input ();
35336
002c02db42d3 Call redisplay_preserve_echo_area with additional arg.
Gerd Moellmann <gerd@gnu.org>
parents: 34660
diff changeset
4539 redisplay_preserve_echo_area (11);
56716
c126b8b6a314 * process.c (wait_reading_process_input): Clean up.
Kim F. Storm <storm@cua.dk>
parents: 56713
diff changeset
4540 if (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
4541 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
4542 }
648
70b112526394 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 638
diff changeset
4543
43598
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
4544 no_avail = 0;
56716
c126b8b6a314 * process.c (wait_reading_process_input): Clean up.
Kim F. Storm <storm@cua.dk>
parents: 56713
diff changeset
4545 if (read_kbd && detect_input_pending ())
15021
af36df262fc5 (wait_reading_process_input) [!subprocesses]: Handle
Richard M. Stallman <rms@gnu.org>
parents: 14998
diff changeset
4546 {
af36df262fc5 (wait_reading_process_input) [!subprocesses]: Handle
Richard M. Stallman <rms@gnu.org>
parents: 14998
diff changeset
4547 nfds = 0;
43598
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
4548 no_avail = 1;
15021
af36df262fc5 (wait_reading_process_input) [!subprocesses]: Handle
Richard M. Stallman <rms@gnu.org>
parents: 14998
diff changeset
4549 }
af36df262fc5 (wait_reading_process_input) [!subprocesses]: Handle
Richard M. Stallman <rms@gnu.org>
parents: 14998
diff changeset
4550 else
43598
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
4551 {
57840
8abbe69dfdb2 (connect_wait_mask, num_pending_connects): Only
Kim F. Storm <storm@cua.dk>
parents: 57287
diff changeset
4552 #ifdef NON_BLOCKING_CONNECT
43598
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
4553 if (check_connect)
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
4554 Connecting = connect_wait_mask;
57840
8abbe69dfdb2 (connect_wait_mask, num_pending_connects): Only
Kim F. Storm <storm@cua.dk>
parents: 57287
diff changeset
4555 #endif
53472
1a5fe79d27f3 (ADAPTIVE_READ_BUFFERING): New conditional.
Kim F. Storm <storm@cua.dk>
parents: 53072
diff changeset
4556
1a5fe79d27f3 (ADAPTIVE_READ_BUFFERING): New conditional.
Kim F. Storm <storm@cua.dk>
parents: 53072
diff changeset
4557 #ifdef ADAPTIVE_READ_BUFFERING
63114
6ef9e44e50d7 Improve commentary for adaptive read buffering.
Kim F. Storm <storm@cua.dk>
parents: 62604
diff changeset
4558 /* Set the timeout for adaptive read buffering if any
81826
077a1e6fd3f2 (struct Lisp_Process): Turn slots infd, outfd, kill_without_query, pty_flag,
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 80984
diff changeset
4559 process has non-zero read_output_skip and non-zero
63114
6ef9e44e50d7 Improve commentary for adaptive read buffering.
Kim F. Storm <storm@cua.dk>
parents: 62604
diff changeset
4560 read_output_delay, and we are not reading output for a
6ef9e44e50d7 Improve commentary for adaptive read buffering.
Kim F. Storm <storm@cua.dk>
parents: 62604
diff changeset
4561 specific wait_channel. It is not executed if
6ef9e44e50d7 Improve commentary for adaptive read buffering.
Kim F. Storm <storm@cua.dk>
parents: 62604
diff changeset
4562 Vprocess_adaptive_read_buffering is nil. */
53472
1a5fe79d27f3 (ADAPTIVE_READ_BUFFERING): New conditional.
Kim F. Storm <storm@cua.dk>
parents: 53072
diff changeset
4563 if (process_output_skip && check_delay > 0)
1a5fe79d27f3 (ADAPTIVE_READ_BUFFERING): New conditional.
Kim F. Storm <storm@cua.dk>
parents: 53072
diff changeset
4564 {
1a5fe79d27f3 (ADAPTIVE_READ_BUFFERING): New conditional.
Kim F. Storm <storm@cua.dk>
parents: 53072
diff changeset
4565 int usecs = EMACS_USECS (timeout);
1a5fe79d27f3 (ADAPTIVE_READ_BUFFERING): New conditional.
Kim F. Storm <storm@cua.dk>
parents: 53072
diff changeset
4566 if (EMACS_SECS (timeout) > 0 || usecs > READ_OUTPUT_DELAY_MAX)
1a5fe79d27f3 (ADAPTIVE_READ_BUFFERING): New conditional.
Kim F. Storm <storm@cua.dk>
parents: 53072
diff changeset
4567 usecs = READ_OUTPUT_DELAY_MAX;
1a5fe79d27f3 (ADAPTIVE_READ_BUFFERING): New conditional.
Kim F. Storm <storm@cua.dk>
parents: 53072
diff changeset
4568 for (channel = 0; check_delay > 0 && channel <= max_process_desc; channel++)
1a5fe79d27f3 (ADAPTIVE_READ_BUFFERING): New conditional.
Kim F. Storm <storm@cua.dk>
parents: 53072
diff changeset
4569 {
1a5fe79d27f3 (ADAPTIVE_READ_BUFFERING): New conditional.
Kim F. Storm <storm@cua.dk>
parents: 53072
diff changeset
4570 proc = chan_process[channel];
1a5fe79d27f3 (ADAPTIVE_READ_BUFFERING): New conditional.
Kim F. Storm <storm@cua.dk>
parents: 53072
diff changeset
4571 if (NILP (proc))
1a5fe79d27f3 (ADAPTIVE_READ_BUFFERING): New conditional.
Kim F. Storm <storm@cua.dk>
parents: 53072
diff changeset
4572 continue;
63114
6ef9e44e50d7 Improve commentary for adaptive read buffering.
Kim F. Storm <storm@cua.dk>
parents: 62604
diff changeset
4573 /* Find minimum non-zero read_output_delay among the
81826
077a1e6fd3f2 (struct Lisp_Process): Turn slots infd, outfd, kill_without_query, pty_flag,
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 80984
diff changeset
4574 processes with non-zero read_output_skip. */
077a1e6fd3f2 (struct Lisp_Process): Turn slots infd, outfd, kill_without_query, pty_flag,
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 80984
diff changeset
4575 if (XPROCESS (proc)->read_output_delay > 0)
53472
1a5fe79d27f3 (ADAPTIVE_READ_BUFFERING): New conditional.
Kim F. Storm <storm@cua.dk>
parents: 53072
diff changeset
4576 {
1a5fe79d27f3 (ADAPTIVE_READ_BUFFERING): New conditional.
Kim F. Storm <storm@cua.dk>
parents: 53072
diff changeset
4577 check_delay--;
81826
077a1e6fd3f2 (struct Lisp_Process): Turn slots infd, outfd, kill_without_query, pty_flag,
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 80984
diff changeset
4578 if (!XPROCESS (proc)->read_output_skip)
53472
1a5fe79d27f3 (ADAPTIVE_READ_BUFFERING): New conditional.
Kim F. Storm <storm@cua.dk>
parents: 53072
diff changeset
4579 continue;
1a5fe79d27f3 (ADAPTIVE_READ_BUFFERING): New conditional.
Kim F. Storm <storm@cua.dk>
parents: 53072
diff changeset
4580 FD_CLR (channel, &Available);
81826
077a1e6fd3f2 (struct Lisp_Process): Turn slots infd, outfd, kill_without_query, pty_flag,
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 80984
diff changeset
4581 XPROCESS (proc)->read_output_skip = 0;
077a1e6fd3f2 (struct Lisp_Process): Turn slots infd, outfd, kill_without_query, pty_flag,
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 80984
diff changeset
4582 if (XPROCESS (proc)->read_output_delay < usecs)
077a1e6fd3f2 (struct Lisp_Process): Turn slots infd, outfd, kill_without_query, pty_flag,
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 80984
diff changeset
4583 usecs = XPROCESS (proc)->read_output_delay;
53472
1a5fe79d27f3 (ADAPTIVE_READ_BUFFERING): New conditional.
Kim F. Storm <storm@cua.dk>
parents: 53072
diff changeset
4584 }
1a5fe79d27f3 (ADAPTIVE_READ_BUFFERING): New conditional.
Kim F. Storm <storm@cua.dk>
parents: 53072
diff changeset
4585 }
1a5fe79d27f3 (ADAPTIVE_READ_BUFFERING): New conditional.
Kim F. Storm <storm@cua.dk>
parents: 53072
diff changeset
4586 EMACS_SET_SECS_USECS (timeout, 0, usecs);
1a5fe79d27f3 (ADAPTIVE_READ_BUFFERING): New conditional.
Kim F. Storm <storm@cua.dk>
parents: 53072
diff changeset
4587 process_output_skip = 0;
1a5fe79d27f3 (ADAPTIVE_READ_BUFFERING): New conditional.
Kim F. Storm <storm@cua.dk>
parents: 53072
diff changeset
4588 }
1a5fe79d27f3 (ADAPTIVE_READ_BUFFERING): New conditional.
Kim F. Storm <storm@cua.dk>
parents: 53072
diff changeset
4589 #endif
1a5fe79d27f3 (ADAPTIVE_READ_BUFFERING): New conditional.
Kim F. Storm <storm@cua.dk>
parents: 53072
diff changeset
4590
80984
9247e9d47488 (gpm_wait_mask, max_gpm_desc): New variables.
Nick Roberts <nickrob@snap.net.nz>
parents: 77462
diff changeset
4591 nfds = select (max (max (max_process_desc, max_keyboard_desc),
9247e9d47488 (gpm_wait_mask, max_gpm_desc): New variables.
Nick Roberts <nickrob@snap.net.nz>
parents: 77462
diff changeset
4592 max_gpm_desc) + 1,
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 49281
diff changeset
4593 &Available,
57840
8abbe69dfdb2 (connect_wait_mask, num_pending_connects): Only
Kim F. Storm <storm@cua.dk>
parents: 57287
diff changeset
4594 #ifdef NON_BLOCKING_CONNECT
43598
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
4595 (check_connect ? &Connecting : (SELECT_TYPE *)0),
57840
8abbe69dfdb2 (connect_wait_mask, num_pending_connects): Only
Kim F. Storm <storm@cua.dk>
parents: 57287
diff changeset
4596 #else
8abbe69dfdb2 (connect_wait_mask, num_pending_connects): Only
Kim F. Storm <storm@cua.dk>
parents: 57287
diff changeset
4597 (SELECT_TYPE *)0,
8abbe69dfdb2 (connect_wait_mask, num_pending_connects): Only
Kim F. Storm <storm@cua.dk>
parents: 57287
diff changeset
4598 #endif
43598
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
4599 (SELECT_TYPE *)0, &timeout);
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
4600 }
588
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
4601
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4602 xerrno = errno;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4603
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4604 /* Make C-g and alarm signals set flags again */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4605 clear_waiting_for_input ();
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4606
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4607 /* 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
4608 do_pending_window_change (0);
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4609
14458
2bb4652305c1 (wait_reading_process_input): If select times out,
Richard M. Stallman <rms@gnu.org>
parents: 14405
diff changeset
4610 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
4611 /* We wanted the full specified time, so return now. */
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4612 break;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4613 if (nfds < 0)
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4614 {
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4615 if (xerrno == EINTR)
43598
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
4616 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
4617 #ifdef ultrix
b476a97ad17e * systty.h, process.c, buffer.h, callproc.c, sysdep.c, dired.c:
Jim Blandy <jimb@redhat.com>
parents: 1569
diff changeset
4618 /* 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
4619 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
4620 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
4621 "__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
4622 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
4623 else if (xerrno == ENOMEM)
43598
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
4624 no_avail = 1;
1323
25b5b55a3916 * process.c (wait_reading_process_input): If the select returns
Jim Blandy <jimb@redhat.com>
parents: 1207
diff changeset
4625 #endif
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4626 #ifdef ALLIANT
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4627 /* This happens for no known reason on ALLIANT.
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4628 I am guessing that this is the right response. -- RMS. */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4629 else if (xerrno == EFAULT)
43598
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
4630 no_avail = 1;
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4631 #endif
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4632 else if (xerrno == EBADF)
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4633 {
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4634 #ifdef AIX
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4635 /* AIX doesn't handle PTY closure the same way BSD does. On AIX,
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4636 the child's closure of the pts gives the parent a SIGHUP, and
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4637 the ptc file descriptor is automatically closed,
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4638 yielding EBADF here or at select() call above.
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4639 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
4640 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
4641 Cleanup occurs c/o status_notify after SIGCLD. */
43598
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
4642 no_avail = 1; /* Cannot depend on values returned */
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4643 #else
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4644 abort ();
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4645 #endif
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4646 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4647 else
26088
b7aa6ac26872 Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
parents: 26019
diff changeset
4648 error ("select error: %s", emacs_strerror (xerrno));
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4649 }
43598
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
4650
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
4651 if (no_avail)
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
4652 {
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
4653 FD_ZERO (&Available);
57840
8abbe69dfdb2 (connect_wait_mask, num_pending_connects): Only
Kim F. Storm <storm@cua.dk>
parents: 57287
diff changeset
4654 IF_NON_BLOCKING_CONNECT (check_connect = 0);
43598
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
4655 }
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
4656
2815
60f122cfe785 * process.c (wait_reading_process_input): If we're running
Jim Blandy <jimb@redhat.com>
parents: 2610
diff changeset
4657 #if defined(sun) && !defined(USG5_4)
43598
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
4658 if (nfds > 0 && keyboard_bit_set (&Available)
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
4659 && interrupt_input)
2830
006c7fbdeab7 Document sun change.
Jim Blandy <jimb@redhat.com>
parents: 2815
diff changeset
4660 /* System sometimes fails to deliver SIGIO.
006c7fbdeab7 Document sun change.
Jim Blandy <jimb@redhat.com>
parents: 2815
diff changeset
4661
006c7fbdeab7 Document sun change.
Jim Blandy <jimb@redhat.com>
parents: 2815
diff changeset
4662 David J. Mackenzie says that Emacs doesn't compile under
006c7fbdeab7 Document sun change.
Jim Blandy <jimb@redhat.com>
parents: 2815
diff changeset
4663 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
4664 conditional. "I haven't noticed any ill effects so far.
006c7fbdeab7 Document sun change.
Jim Blandy <jimb@redhat.com>
parents: 2815
diff changeset
4665 If you find a Solaris expert somewhere, they might know
006c7fbdeab7 Document sun change.
Jim Blandy <jimb@redhat.com>
parents: 2815
diff changeset
4666 better." */
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4667 kill (getpid (), SIGIO);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4668 #endif
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4669
18378
22cd8d7dd5aa (wait_reading_process_input): Don't check for
Richard M. Stallman <rms@gnu.org>
parents: 18329
diff changeset
4670 #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
4671 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
4672 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
4673 /* 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
4674 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
4675 Otherwise it might not actually get read for a second.
56728
1686b397ef16 (wait_reading_process_output): Rename from
Kim F. Storm <storm@cua.dk>
parents: 56716
diff changeset
4676 And on hpux, since we turn off polling in wait_reading_process_output,
18378
22cd8d7dd5aa (wait_reading_process_input): Don't check for
Richard M. Stallman <rms@gnu.org>
parents: 18329
diff changeset
4677 it might never get read at all if we don't spend much time
56728
1686b397ef16 (wait_reading_process_output): Rename from
Kim F. Storm <storm@cua.dk>
parents: 56716
diff changeset
4678 outside of wait_reading_process_output. */
56716
c126b8b6a314 * process.c (wait_reading_process_input): Clean up.
Kim F. Storm <storm@cua.dk>
parents: 56713
diff changeset
4679 if (read_kbd && interrupt_input
18378
22cd8d7dd5aa (wait_reading_process_input): Don't check for
Richard M. Stallman <rms@gnu.org>
parents: 18329
diff changeset
4680 && keyboard_bit_set (&Available)
22cd8d7dd5aa (wait_reading_process_input): Don't check for
Richard M. Stallman <rms@gnu.org>
parents: 18329
diff changeset
4681 && input_polling_used ())
22cd8d7dd5aa (wait_reading_process_input): Don't check for
Richard M. Stallman <rms@gnu.org>
parents: 18329
diff changeset
4682 kill (getpid (), SIGALRM);
22cd8d7dd5aa (wait_reading_process_input): Don't check for
Richard M. Stallman <rms@gnu.org>
parents: 18329
diff changeset
4683 #endif
22cd8d7dd5aa (wait_reading_process_input): Don't check for
Richard M. Stallman <rms@gnu.org>
parents: 18329
diff changeset
4684
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4685 /* Check for keyboard input */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4686 /* If there is any, return immediately
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4687 to give it higher priority than subprocesses */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4688
56716
c126b8b6a314 * process.c (wait_reading_process_input): Clean up.
Kim F. Storm <storm@cua.dk>
parents: 56713
diff changeset
4689 if (read_kbd != 0)
14613
386831bc4a4e (wait_reading_process_input):
Karl Heuer <kwzh@gnu.org>
parents: 14605
diff changeset
4690 {
37398
756d2f4e4058 (wait_reading_process_input): Call
Gerd Moellmann <gerd@gnu.org>
parents: 36659
diff changeset
4691 int old_timers_run = timers_run;
37465
f790d83ea743 (wait_reading_process_input): Call
Gerd Moellmann <gerd@gnu.org>
parents: 37413
diff changeset
4692 struct buffer *old_buffer = current_buffer;
37398
756d2f4e4058 (wait_reading_process_input): Call
Gerd Moellmann <gerd@gnu.org>
parents: 36659
diff changeset
4693 int leave = 0;
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 49281
diff changeset
4694
14758
849458c13c0c (wait_reading_process_input):
Richard M. Stallman <rms@gnu.org>
parents: 14736
diff changeset
4695 if (detect_input_pending_run_timers (do_display))
37398
756d2f4e4058 (wait_reading_process_input): Call
Gerd Moellmann <gerd@gnu.org>
parents: 36659
diff changeset
4696 {
756d2f4e4058 (wait_reading_process_input): Call
Gerd Moellmann <gerd@gnu.org>
parents: 36659
diff changeset
4697 swallow_events (do_display);
756d2f4e4058 (wait_reading_process_input): Call
Gerd Moellmann <gerd@gnu.org>
parents: 36659
diff changeset
4698 if (detect_input_pending_run_timers (do_display))
756d2f4e4058 (wait_reading_process_input): Call
Gerd Moellmann <gerd@gnu.org>
parents: 36659
diff changeset
4699 leave = 1;
756d2f4e4058 (wait_reading_process_input): Call
Gerd Moellmann <gerd@gnu.org>
parents: 36659
diff changeset
4700 }
756d2f4e4058 (wait_reading_process_input): Call
Gerd Moellmann <gerd@gnu.org>
parents: 36659
diff changeset
4701
756d2f4e4058 (wait_reading_process_input): Call
Gerd Moellmann <gerd@gnu.org>
parents: 36659
diff changeset
4702 /* 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
4703 an alike. Make read_key_sequence aware of that. */
756d2f4e4058 (wait_reading_process_input): Call
Gerd Moellmann <gerd@gnu.org>
parents: 36659
diff changeset
4704 if (timers_run != old_timers_run
37465
f790d83ea743 (wait_reading_process_input): Call
Gerd Moellmann <gerd@gnu.org>
parents: 37413
diff changeset
4705 && waiting_for_user_input_p == -1
f790d83ea743 (wait_reading_process_input): Call
Gerd Moellmann <gerd@gnu.org>
parents: 37413
diff changeset
4706 && old_buffer != current_buffer)
37398
756d2f4e4058 (wait_reading_process_input): Call
Gerd Moellmann <gerd@gnu.org>
parents: 36659
diff changeset
4707 record_asynch_buffer_change ();
756d2f4e4058 (wait_reading_process_input): Call
Gerd Moellmann <gerd@gnu.org>
parents: 36659
diff changeset
4708
756d2f4e4058 (wait_reading_process_input): Call
Gerd Moellmann <gerd@gnu.org>
parents: 36659
diff changeset
4709 if (leave)
14613
386831bc4a4e (wait_reading_process_input):
Karl Heuer <kwzh@gnu.org>
parents: 14605
diff changeset
4710 break;
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 49281
diff changeset
4711 }
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 49281
diff changeset
4712
18230
2f1f942f25ca (wait_reading_process_input): Return if unread events appear.
Richard M. Stallman <rms@gnu.org>
parents: 18183
diff changeset
4713 /* If there is unread keyboard input, also return. */
56716
c126b8b6a314 * process.c (wait_reading_process_input): Clean up.
Kim F. Storm <storm@cua.dk>
parents: 56713
diff changeset
4714 if (read_kbd != 0
18230
2f1f942f25ca (wait_reading_process_input): Return if unread events appear.
Richard M. Stallman <rms@gnu.org>
parents: 18183
diff changeset
4715 && requeued_events_pending_p ())
2f1f942f25ca (wait_reading_process_input): Return if unread events appear.
Richard M. Stallman <rms@gnu.org>
parents: 18183
diff changeset
4716 break;
2f1f942f25ca (wait_reading_process_input): Return if unread events appear.
Richard M. Stallman <rms@gnu.org>
parents: 18183
diff changeset
4717
19053
7b5642657857 (read_process_output): Don't call setup_coding_system
Richard M. Stallman <rms@gnu.org>
parents: 18974
diff changeset
4718 /* 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
4719 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
4720 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
4721 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
4722 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
4723
7b5642657857 (read_process_output): Don't call setup_coding_system
Richard M. Stallman <rms@gnu.org>
parents: 18974
diff changeset
4724 (We used to do this only if wait_for_cell.) */
56716
c126b8b6a314 * process.c (wait_reading_process_input): Clean up.
Kim F. Storm <storm@cua.dk>
parents: 56713
diff changeset
4725 if (read_kbd == 0 && detect_input_pending ())
15064
fb0f2804c34a (wait_reading_process_input, both definitions):
Richard M. Stallman <rms@gnu.org>
parents: 15025
diff changeset
4726 {
fb0f2804c34a (wait_reading_process_input, both definitions):
Richard M. Stallman <rms@gnu.org>
parents: 15025
diff changeset
4727 swallow_events (do_display);
18492
668304de6f92 (wait_reading_process_input): If wait_for_cell,
Richard M. Stallman <rms@gnu.org>
parents: 18378
diff changeset
4728 #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
4729 if (detect_input_pending ())
fb0f2804c34a (wait_reading_process_input, both definitions):
Richard M. Stallman <rms@gnu.org>
parents: 15025
diff changeset
4730 break;
18492
668304de6f92 (wait_reading_process_input): If wait_for_cell,
Richard M. Stallman <rms@gnu.org>
parents: 18378
diff changeset
4731 #endif
15064
fb0f2804c34a (wait_reading_process_input, both definitions):
Richard M. Stallman <rms@gnu.org>
parents: 15025
diff changeset
4732 }
fb0f2804c34a (wait_reading_process_input, both definitions):
Richard M. Stallman <rms@gnu.org>
parents: 15025
diff changeset
4733
2200
5e58643bb169 (wait_reading_process_input): New option to wait
Richard M. Stallman <rms@gnu.org>
parents: 2120
diff changeset
4734 /* 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
4735 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
4736 break;
5e58643bb169 (wait_reading_process_input): New option to wait
Richard M. Stallman <rms@gnu.org>
parents: 2120
diff changeset
4737
621
eca8812e61cd *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 604
diff changeset
4738 #ifdef SIGIO
18378
22cd8d7dd5aa (wait_reading_process_input): Don't check for
Richard M. Stallman <rms@gnu.org>
parents: 18329
diff changeset
4739 /* 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
4740 go read it. This can happen with X on BSD after logging out.
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4741 In that case, there really is no input and no SIGIO,
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4742 but select says there is input. */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4743
56716
c126b8b6a314 * process.c (wait_reading_process_input): Clean up.
Kim F. Storm <storm@cua.dk>
parents: 56713
diff changeset
4744 if (read_kbd && interrupt_input
51637
745eaece4a11 (wait_reading_process_input): Don't signal SIGIO in batch mode.
Richard M. Stallman <rms@gnu.org>
parents: 51473
diff changeset
4745 && keyboard_bit_set (&Available) && ! noninteractive)
14736
b17ec81a6294 (wait_reading_process_input): Use getpid when generating SIGIO.
Richard M. Stallman <rms@gnu.org>
parents: 14671
diff changeset
4746 kill (getpid (), SIGIO);
621
eca8812e61cd *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 604
diff changeset
4747 #endif
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4748
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4749 if (! wait_proc)
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4750 got_some_input |= nfds > 0;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4751
624
2bb7f23b7ea5 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 621
diff changeset
4752 /* 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
4753 obey it now if we should. */
56716
c126b8b6a314 * process.c (wait_reading_process_input): Clean up.
Kim F. Storm <storm@cua.dk>
parents: 56713
diff changeset
4754 if (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
4755 do_pending_window_change (0);
624
2bb7f23b7ea5 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 621
diff changeset
4756
5134
0a4e46e15304 (wait_reading_process_input):
Richard M. Stallman <rms@gnu.org>
parents: 4998
diff changeset
4757 /* Check for data from a process. */
43598
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
4758 if (no_avail || nfds == 0)
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
4759 continue;
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
4760
5134
0a4e46e15304 (wait_reading_process_input):
Richard M. Stallman <rms@gnu.org>
parents: 4998
diff changeset
4761 /* Really FIRST_PROC_DESC should be 0 on Unix,
0a4e46e15304 (wait_reading_process_input):
Richard M. Stallman <rms@gnu.org>
parents: 4998
diff changeset
4762 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
4763 for (channel = 0; channel <= max_process_desc; channel++)
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4764 {
9686
cd788aa8cb2a Handle multiple keyboard input descriptors.
Richard M. Stallman <rms@gnu.org>
parents: 9334
diff changeset
4765 if (FD_ISSET (channel, &Available)
cd788aa8cb2a Handle multiple keyboard input descriptors.
Richard M. Stallman <rms@gnu.org>
parents: 9334
diff changeset
4766 && FD_ISSET (channel, &non_keyboard_wait_mask))
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4767 {
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4768 int nread;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4769
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4770 /* If waiting for this channel, arrange to return as
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4771 soon as no more input to be processed. No more
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4772 waiting. */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4773 if (wait_channel == channel)
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4774 {
5134
0a4e46e15304 (wait_reading_process_input):
Richard M. Stallman <rms@gnu.org>
parents: 4998
diff changeset
4775 wait_channel = -1;
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4776 time_limit = -1;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4777 got_some_input = 1;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4778 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4779 proc = chan_process[channel];
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4780 if (NILP (proc))
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4781 continue;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4782
43968
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
4783 /* If this is a server stream socket, accept connection. */
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
4784 if (EQ (XPROCESS (proc)->status, Qlisten))
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
4785 {
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
4786 server_accept_connection (proc, channel);
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
4787 continue;
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
4788 }
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
4789
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4790 /* Read data from the process, starting with our
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4791 buffered-ahead character if we have one. */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4792
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4793 nread = read_process_output (proc, channel);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4794 if (nread > 0)
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4795 {
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4796 /* Since read_process_output can run a filter,
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4797 which can call accept-process-output,
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4798 don't try to read from any other processes
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4799 before doing the select again. */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4800 FD_ZERO (&Available);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4801
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4802 if (do_display)
35336
002c02db42d3 Call redisplay_preserve_echo_area with additional arg.
Gerd Moellmann <gerd@gnu.org>
parents: 34660
diff changeset
4803 redisplay_preserve_echo_area (12);
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4804 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4805 #ifdef EWOULDBLOCK
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4806 else if (nread == -1 && errno == EWOULDBLOCK)
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4807 ;
15405
c27bb6e69e2d (wait_reading_process_input): Move the O_NONBLOCK and
Richard M. Stallman <rms@gnu.org>
parents: 15368
diff changeset
4808 #endif
15406
7c205bc80624 Comment change.
Richard M. Stallman <rms@gnu.org>
parents: 15405
diff changeset
4809 /* ISC 4.1 defines both EWOULDBLOCK and O_NONBLOCK,
7c205bc80624 Comment change.
Richard M. Stallman <rms@gnu.org>
parents: 15405
diff changeset
4810 and Emacs uses O_NONBLOCK, so what we get is EAGAIN. */
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4811 #ifdef O_NONBLOCK
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4812 else if (nread == -1 && errno == EAGAIN)
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4813 ;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4814 #else
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4815 #ifdef O_NDELAY
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4816 else if (nread == -1 && errno == EAGAIN)
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4817 ;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4818 /* Note that we cannot distinguish between no input
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4819 available now and a closed pipe.
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4820 With luck, a closed pipe will be accompanied by
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4821 subprocess termination and SIGCHLD. */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4822 else if (nread == 0 && !NETCONN_P (proc))
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4823 ;
76794
fbe60d04cec2 (wait_reading_process_output) [HAVE_PTYS]:
Kim F. Storm <storm@cua.dk>
parents: 76789
diff changeset
4824 #endif /* O_NDELAY */
fbe60d04cec2 (wait_reading_process_output) [HAVE_PTYS]:
Kim F. Storm <storm@cua.dk>
parents: 76789
diff changeset
4825 #endif /* O_NONBLOCK */
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4826 #ifdef HAVE_PTYS
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4827 /* On some OSs with ptys, when the process on one end of
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4828 a pty exits, the other end gets an error reading with
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4829 errno = EIO instead of getting an EOF (0 bytes read).
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4830 Therefore, if we get an error reading and errno =
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4831 EIO, just continue, because the child process has
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4832 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
4833 get a SIGCHLD).
8d68b82a4d8c (wait_reading_process_input): If a pty gives EIO,
Richard M. Stallman <rms@gnu.org>
parents: 22939
diff changeset
4834
8d68b82a4d8c (wait_reading_process_input): If a pty gives EIO,
Richard M. Stallman <rms@gnu.org>
parents: 22939
diff changeset
4835 However, it has been known to happen that the SIGCHLD
76794
fbe60d04cec2 (wait_reading_process_output) [HAVE_PTYS]:
Kim F. Storm <storm@cua.dk>
parents: 76789
diff changeset
4836 got lost. So raise the signal again just in case.
23035
8d68b82a4d8c (wait_reading_process_input): If a pty gives EIO,
Richard M. Stallman <rms@gnu.org>
parents: 22939
diff changeset
4837 It can't hurt. */
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4838 else if (nread == -1 && errno == EIO)
76794
fbe60d04cec2 (wait_reading_process_output) [HAVE_PTYS]:
Kim F. Storm <storm@cua.dk>
parents: 76789
diff changeset
4839 {
fbe60d04cec2 (wait_reading_process_output) [HAVE_PTYS]:
Kim F. Storm <storm@cua.dk>
parents: 76789
diff changeset
4840 /* Clear the descriptor now, so we only raise the signal once. */
fbe60d04cec2 (wait_reading_process_output) [HAVE_PTYS]:
Kim F. Storm <storm@cua.dk>
parents: 76789
diff changeset
4841 FD_CLR (channel, &input_wait_mask);
fbe60d04cec2 (wait_reading_process_output) [HAVE_PTYS]:
Kim F. Storm <storm@cua.dk>
parents: 76789
diff changeset
4842 FD_CLR (channel, &non_keyboard_wait_mask);
fbe60d04cec2 (wait_reading_process_output) [HAVE_PTYS]:
Kim F. Storm <storm@cua.dk>
parents: 76789
diff changeset
4843
fbe60d04cec2 (wait_reading_process_output) [HAVE_PTYS]:
Kim F. Storm <storm@cua.dk>
parents: 76789
diff changeset
4844 kill (getpid (), SIGCHLD);
fbe60d04cec2 (wait_reading_process_output) [HAVE_PTYS]:
Kim F. Storm <storm@cua.dk>
parents: 76789
diff changeset
4845 }
fbe60d04cec2 (wait_reading_process_output) [HAVE_PTYS]:
Kim F. Storm <storm@cua.dk>
parents: 76789
diff changeset
4846 #endif /* HAVE_PTYS */
648
70b112526394 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 638
diff changeset
4847 /* If we can detect process termination, don't consider the process
70b112526394 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 638
diff changeset
4848 gone just because its pipe is closed. */
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4849 #ifdef SIGCHLD
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4850 else if (nread == 0 && !NETCONN_P (proc))
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4851 ;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4852 #endif
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4853 else
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4854 {
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4855 /* Preserve status of processes already terminated. */
81826
077a1e6fd3f2 (struct Lisp_Process): Turn slots infd, outfd, kill_without_query, pty_flag,
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 80984
diff changeset
4856 XPROCESS (proc)->tick = ++process_tick;
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4857 deactivate_process (proc);
69873
2d844bbbccd4 * process.h (struct Lisp_Process): Replace Lisp_Objects `pid',
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 69634
diff changeset
4858 if (XPROCESS (proc)->raw_status_new)
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4859 update_status (XPROCESS (proc));
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4860 if (EQ (XPROCESS (proc)->status, Qrun))
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4861 XPROCESS (proc)->status
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4862 = Fcons (Qexit, Fcons (make_number (256), Qnil));
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4863 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4864 }
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 49281
diff changeset
4865 #ifdef NON_BLOCKING_CONNECT
55766
d5fe47c900ee (wait_reading_process_input): Check connect_wait_mask
Kim F. Storm <storm@cua.dk>
parents: 55579
diff changeset
4866 if (check_connect && FD_ISSET (channel, &Connecting)
d5fe47c900ee (wait_reading_process_input): Check connect_wait_mask
Kim F. Storm <storm@cua.dk>
parents: 55579
diff changeset
4867 && FD_ISSET (channel, &connect_wait_mask))
43598
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
4868 {
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
4869 struct Lisp_Process *p;
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
4870
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
4871 FD_CLR (channel, &connect_wait_mask);
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
4872 if (--num_pending_connects < 0)
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
4873 abort ();
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
4874
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
4875 proc = chan_process[channel];
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
4876 if (NILP (proc))
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
4877 continue;
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
4878
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
4879 p = XPROCESS (proc);
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
4880
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
4881 #ifdef GNU_LINUX
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
4882 /* 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
4883 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
4884 {
43968
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
4885 int xlen = sizeof(xerrno);
43598
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
4886 if (getsockopt(channel, SOL_SOCKET, SO_ERROR, &xerrno, &xlen))
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
4887 xerrno = errno;
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
4888 }
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
4889 #else
44013
da239fc7bb6c (wait_reading_process_input): Move variables `pname' and `pnamelen' down
Pavel Janík <Pavel@Janik.cz>
parents: 43999
diff changeset
4890 {
da239fc7bb6c (wait_reading_process_input): Move variables `pname' and `pnamelen' down
Pavel Janík <Pavel@Janik.cz>
parents: 43999
diff changeset
4891 struct sockaddr pname;
da239fc7bb6c (wait_reading_process_input): Move variables `pname' and `pnamelen' down
Pavel Janík <Pavel@Janik.cz>
parents: 43999
diff changeset
4892 int pnamelen = sizeof(pname);
da239fc7bb6c (wait_reading_process_input): Move variables `pname' and `pnamelen' down
Pavel Janík <Pavel@Janik.cz>
parents: 43999
diff changeset
4893
da239fc7bb6c (wait_reading_process_input): Move variables `pname' and `pnamelen' down
Pavel Janík <Pavel@Janik.cz>
parents: 43999
diff changeset
4894 /* If connection failed, getpeername will fail. */
da239fc7bb6c (wait_reading_process_input): Move variables `pname' and `pnamelen' down
Pavel Janík <Pavel@Janik.cz>
parents: 43999
diff changeset
4895 xerrno = 0;
da239fc7bb6c (wait_reading_process_input): Move variables `pname' and `pnamelen' down
Pavel Janík <Pavel@Janik.cz>
parents: 43999
diff changeset
4896 if (getpeername(channel, &pname, &pnamelen) < 0)
da239fc7bb6c (wait_reading_process_input): Move variables `pname' and `pnamelen' down
Pavel Janík <Pavel@Janik.cz>
parents: 43999
diff changeset
4897 {
da239fc7bb6c (wait_reading_process_input): Move variables `pname' and `pnamelen' down
Pavel Janík <Pavel@Janik.cz>
parents: 43999
diff changeset
4898 /* Obtain connect failure code through error slippage. */
da239fc7bb6c (wait_reading_process_input): Move variables `pname' and `pnamelen' down
Pavel Janík <Pavel@Janik.cz>
parents: 43999
diff changeset
4899 char dummy;
43598
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
4900 xerrno = errno;
44013
da239fc7bb6c (wait_reading_process_input): Move variables `pname' and `pnamelen' down
Pavel Janík <Pavel@Janik.cz>
parents: 43999
diff changeset
4901 if (errno == ENOTCONN && read(channel, &dummy, 1) < 0)
da239fc7bb6c (wait_reading_process_input): Move variables `pname' and `pnamelen' down
Pavel Janík <Pavel@Janik.cz>
parents: 43999
diff changeset
4902 xerrno = errno;
da239fc7bb6c (wait_reading_process_input): Move variables `pname' and `pnamelen' down
Pavel Janík <Pavel@Janik.cz>
parents: 43999
diff changeset
4903 }
da239fc7bb6c (wait_reading_process_input): Move variables `pname' and `pnamelen' down
Pavel Janík <Pavel@Janik.cz>
parents: 43999
diff changeset
4904 }
43598
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
4905 #endif
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
4906 if (xerrno)
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
4907 {
81826
077a1e6fd3f2 (struct Lisp_Process): Turn slots infd, outfd, kill_without_query, pty_flag,
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 80984
diff changeset
4908 p->tick = ++process_tick;
43598
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
4909 p->status = Fcons (Qfailed, Fcons (make_number (xerrno), Qnil));
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
4910 deactivate_process (proc);
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
4911 }
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
4912 else
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
4913 {
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
4914 p->status = Qrun;
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
4915 /* Execute the sentinel here. If we had relied on
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
4916 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
4917 from the process before calling the sentinel. */
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
4918 exec_sentinel (proc, build_string ("open\n"));
43968
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
4919 if (!EQ (p->filter, Qt) && !EQ (p->command, Qt))
43598
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
4920 {
81826
077a1e6fd3f2 (struct Lisp_Process): Turn slots infd, outfd, kill_without_query, pty_flag,
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 80984
diff changeset
4921 FD_SET (p->infd, &input_wait_mask);
077a1e6fd3f2 (struct Lisp_Process): Turn slots infd, outfd, kill_without_query, pty_flag,
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 80984
diff changeset
4922 FD_SET (p->infd, &non_keyboard_wait_mask);
43598
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
4923 }
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
4924 }
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
4925 }
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
4926 #endif /* NON_BLOCKING_CONNECT */
648
70b112526394 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 638
diff changeset
4927 } /* end for each file descriptor */
70b112526394 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 638
diff changeset
4928 } /* end while exit conditions not met */
70b112526394 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 638
diff changeset
4929
72277
a6b9ee835f88 * process.c: Reapply 2006-08-01 change.
Chong Yidong <cyd@stupidchicken.com>
parents: 72255
diff changeset
4930 unbind_to (count, Qnil);
8570
dd3dfde8f973 (wait_reading_process_input):
Richard M. Stallman <rms@gnu.org>
parents: 8390
diff changeset
4931
648
70b112526394 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 638
diff changeset
4932 /* If calling from keyboard input, do not quit
70b112526394 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 638
diff changeset
4933 since we want to return C-g as an input character.
70b112526394 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 638
diff changeset
4934 Otherwise, do pending quit if requested. */
56716
c126b8b6a314 * process.c (wait_reading_process_input): Clean up.
Kim F. Storm <storm@cua.dk>
parents: 56713
diff changeset
4935 if (read_kbd >= 0)
648
70b112526394 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 638
diff changeset
4936 {
70b112526394 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 638
diff changeset
4937 /* Prevent input_pending from remaining set if we quit. */
70b112526394 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 638
diff changeset
4938 clear_input_pending ();
70b112526394 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 638
diff changeset
4939 QUIT;
70b112526394 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 638
diff changeset
4940 }
49894
675b86cf29fc (wait_reading_process_input): Use POLL_INTERRUPTED_SYS_CALL, not
Juanma Barranquero <lekktu@gmail.com>
parents: 49872
diff changeset
4941 #ifdef POLL_INTERRUPTED_SYS_CALL
15661
96debed5fb36 (wait_reading_process_input) [hpux]: Workaround for
Karl Heuer <kwzh@gnu.org>
parents: 15406
diff changeset
4942 /* AlainF 5-Jul-1996
96debed5fb36 (wait_reading_process_input) [hpux]: Workaround for
Karl Heuer <kwzh@gnu.org>
parents: 15406
diff changeset
4943 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
4944 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
4945 in an X window
96debed5fb36 (wait_reading_process_input) [hpux]: Workaround for
Karl Heuer <kwzh@gnu.org>
parents: 15406
diff changeset
4946 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
4947 start_polling ();
49894
675b86cf29fc (wait_reading_process_input): Use POLL_INTERRUPTED_SYS_CALL, not
Juanma Barranquero <lekktu@gmail.com>
parents: 49872
diff changeset
4948 #endif /* POLL_INTERRUPTED_SYS_CALL */
25009
5733af0b62ce (wait_reading_process_input): Show and hide busy
Gerd Moellmann <gerd@gnu.org>
parents: 24933
diff changeset
4949
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4950 return got_some_input;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4951 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4952
9030
b14532c71632 (exec_sentinel_error_handler): New function.
Richard M. Stallman <rms@gnu.org>
parents: 8570
diff changeset
4953 /* 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
4954
b14532c71632 (exec_sentinel_error_handler): New function.
Richard M. Stallman <rms@gnu.org>
parents: 8570
diff changeset
4955 static Lisp_Object
b14532c71632 (exec_sentinel_error_handler): New function.
Richard M. Stallman <rms@gnu.org>
parents: 8570
diff changeset
4956 read_process_output_call (fun_and_args)
b14532c71632 (exec_sentinel_error_handler): New function.
Richard M. Stallman <rms@gnu.org>
parents: 8570
diff changeset
4957 Lisp_Object fun_and_args;
b14532c71632 (exec_sentinel_error_handler): New function.
Richard M. Stallman <rms@gnu.org>
parents: 8570
diff changeset
4958 {
25645
a14111a2a100 Use XCAR, XCDR, XFLOAT_DATA instead of explicit member access.
Ken Raeburn <raeburn@raeburn.org>
parents: 25356
diff changeset
4959 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
4960 }
b14532c71632 (exec_sentinel_error_handler): New function.
Richard M. Stallman <rms@gnu.org>
parents: 8570
diff changeset
4961
b14532c71632 (exec_sentinel_error_handler): New function.
Richard M. Stallman <rms@gnu.org>
parents: 8570
diff changeset
4962 static Lisp_Object
b14532c71632 (exec_sentinel_error_handler): New function.
Richard M. Stallman <rms@gnu.org>
parents: 8570
diff changeset
4963 read_process_output_error_handler (error)
b14532c71632 (exec_sentinel_error_handler): New function.
Richard M. Stallman <rms@gnu.org>
parents: 8570
diff changeset
4964 Lisp_Object error;
b14532c71632 (exec_sentinel_error_handler): New function.
Richard M. Stallman <rms@gnu.org>
parents: 8570
diff changeset
4965 {
b14532c71632 (exec_sentinel_error_handler): New function.
Richard M. Stallman <rms@gnu.org>
parents: 8570
diff changeset
4966 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
4967 Vinhibit_quit = Qt;
b14532c71632 (exec_sentinel_error_handler): New function.
Richard M. Stallman <rms@gnu.org>
parents: 8570
diff changeset
4968 update_echo_area ();
11277
d4547e4b0aab (read_process_output_error_handler)
Richard M. Stallman <rms@gnu.org>
parents: 11235
diff changeset
4969 Fsleep_for (make_number (2), Qnil);
27558
f99efd14b932 (Fstart_process): Doc fix.
Dave Love <fx@gnu.org>
parents: 27430
diff changeset
4970 return Qt;
9030
b14532c71632 (exec_sentinel_error_handler): New function.
Richard M. Stallman <rms@gnu.org>
parents: 8570
diff changeset
4971 }
b14532c71632 (exec_sentinel_error_handler): New function.
Richard M. Stallman <rms@gnu.org>
parents: 8570
diff changeset
4972
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4973 /* Read pending output from the process channel,
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4974 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
4975 Yield number of decoded characters read.
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4976
55962
8979bc3ade70 (Fdelete_process): Undo 2004-05-28 change.
Kim F. Storm <storm@cua.dk>
parents: 55810
diff changeset
4977 This function reads at most 4096 characters.
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4978 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
4979 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
4980
b61cbe595be5 Include charset.h and coding.h.
Karl Heuer <kwzh@gnu.org>
parents: 16780
diff changeset
4981 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
4982 for decoding. */
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4983
64977
d26871fb1b7b (deactivate_process, status_notify, read_process_output)
Kim F. Storm <storm@cua.dk>
parents: 64770
diff changeset
4984 static int
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4985 read_process_output (proc, channel)
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4986 Lisp_Object proc;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4987 register int channel;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4988 {
52527
3ea59ac8dfa5 (Fnetwork_interface_info): Fix type error.
Dave Love <fx@gnu.org>
parents: 52525
diff changeset
4989 register int nbytes;
17041
b61cbe595be5 Include charset.h and coding.h.
Karl Heuer <kwzh@gnu.org>
parents: 16780
diff changeset
4990 char *chars;
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4991 register Lisp_Object outstream;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4992 register struct buffer *old = current_buffer;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4993 register struct Lisp_Process *p = XPROCESS (proc);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4994 register int opoint;
17110
3a348cbb354f (Fstart_process, Fopen_network_stream): Do not perform
Kenichi Handa <handa@m17n.org>
parents: 17041
diff changeset
4995 struct coding_system *coding = proc_decode_coding_system[channel];
81826
077a1e6fd3f2 (struct Lisp_Process): Turn slots infd, outfd, kill_without_query, pty_flag,
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 80984
diff changeset
4996 int carryover = p->decoding_carryover;
55962
8979bc3ade70 (Fdelete_process): Undo 2004-05-28 change.
Kim F. Storm <storm@cua.dk>
parents: 55810
diff changeset
4997 int readmax = 4096;
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4998
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
4999 #ifdef VMS
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5000 VMS_PROC_STUFF *vs, *get_vms_process_pointer();
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5001
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5002 vs = get_vms_process_pointer (p->pid);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5003 if (vs)
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5004 {
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5005 if (!vs->iosb[0])
25248
f0fc8443bdbb (Fopen_network_stream): Use getaddrinfo.
Karl Heuer <kwzh@gnu.org>
parents: 25129
diff changeset
5006 return (0); /* Really weird if it does this */
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5007 if (!(vs->iosb[0] & 1))
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5008 return -1; /* I/O error */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5009 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5010 else
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5011 error ("Could not get VMS process pointer");
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5012 chars = vs->inputBuffer;
20594
6e5a5afbe628 (read_process_output): Use insert_1_both.
Richard M. Stallman <rms@gnu.org>
parents: 20551
diff changeset
5013 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
5014 if (nbytes <= 0)
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5015 {
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5016 start_vms_process_read (vs); /* Crank up the next read on the process */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5017 return 1; /* Nothing worth printing, say we got 1 */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5018 }
20715
5e983ddb85c9 (Fstart_process): Use raw-text instead of emacs-mule
Kenichi Handa <handa@m17n.org>
parents: 20708
diff changeset
5019 if (carryover > 0)
17041
b61cbe595be5 Include charset.h and coding.h.
Karl Heuer <kwzh@gnu.org>
parents: 16780
diff changeset
5020 {
20715
5e983ddb85c9 (Fstart_process): Use raw-text instead of emacs-mule
Kenichi Handa <handa@m17n.org>
parents: 20708
diff changeset
5021 /* 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
5022 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
5023 data read to decode all together. */
30580
5d92193ed196 (read_process_output): Big simplification. Handle
Kenichi Handa <handa@m17n.org>
parents: 29921
diff changeset
5024 chars = (char *) alloca (nbytes + carryover);
46370
40db0673e6f0 Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents: 46314
diff changeset
5025 bcopy (SDATA (p->decoding_buf), buf, carryover);
30580
5d92193ed196 (read_process_output): Big simplification. Handle
Kenichi Handa <handa@m17n.org>
parents: 29921
diff changeset
5026 bcopy (vs->inputBuffer, chars + carryover, nbytes);
17041
b61cbe595be5 Include charset.h and coding.h.
Karl Heuer <kwzh@gnu.org>
parents: 16780
diff changeset
5027 }
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5028 #else /* not VMS */
43968
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
5029
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
5030 chars = (char *) alloca (carryover + readmax);
20715
5e983ddb85c9 (Fstart_process): Use raw-text instead of emacs-mule
Kenichi Handa <handa@m17n.org>
parents: 20708
diff changeset
5031 if (carryover)
5e983ddb85c9 (Fstart_process): Use raw-text instead of emacs-mule
Kenichi Handa <handa@m17n.org>
parents: 20708
diff changeset
5032 /* See the comment above. */
46370
40db0673e6f0 Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents: 46314
diff changeset
5033 bcopy (SDATA (p->decoding_buf), chars, carryover);
17041
b61cbe595be5 Include charset.h and coding.h.
Karl Heuer <kwzh@gnu.org>
parents: 16780
diff changeset
5034
43968
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
5035 #ifdef DATAGRAM_SOCKETS
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
5036 /* We have a working select, so proc_buffered_char is always -1. */
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
5037 if (DATAGRAM_CHAN_P (channel))
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
5038 {
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
5039 int len = datagram_address[channel].len;
56583
64ae47cb68ff (read_process_output): Use whole read buffer.
Kim F. Storm <storm@cua.dk>
parents: 56477
diff changeset
5040 nbytes = recvfrom (channel, chars + carryover, readmax,
43968
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
5041 0, datagram_address[channel].sa, &len);
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
5042 }
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
5043 else
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
5044 #endif
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5045 if (proc_buffered_char[channel] < 0)
53472
1a5fe79d27f3 (ADAPTIVE_READ_BUFFERING): New conditional.
Kim F. Storm <storm@cua.dk>
parents: 53072
diff changeset
5046 {
56583
64ae47cb68ff (read_process_output): Use whole read buffer.
Kim F. Storm <storm@cua.dk>
parents: 56477
diff changeset
5047 nbytes = emacs_read (channel, chars + carryover, readmax);
53472
1a5fe79d27f3 (ADAPTIVE_READ_BUFFERING): New conditional.
Kim F. Storm <storm@cua.dk>
parents: 53072
diff changeset
5048 #ifdef ADAPTIVE_READ_BUFFERING
81826
077a1e6fd3f2 (struct Lisp_Process): Turn slots infd, outfd, kill_without_query, pty_flag,
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 80984
diff changeset
5049 if (nbytes > 0 && p->adaptive_read_buffering)
53472
1a5fe79d27f3 (ADAPTIVE_READ_BUFFERING): New conditional.
Kim F. Storm <storm@cua.dk>
parents: 53072
diff changeset
5050 {
81826
077a1e6fd3f2 (struct Lisp_Process): Turn slots infd, outfd, kill_without_query, pty_flag,
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 80984
diff changeset
5051 int delay = p->read_output_delay;
53520
2a54a8df1973 (read_process_output): Only activate adaptive
Kim F. Storm <storm@cua.dk>
parents: 53472
diff changeset
5052 if (nbytes < 256)
53472
1a5fe79d27f3 (ADAPTIVE_READ_BUFFERING): New conditional.
Kim F. Storm <storm@cua.dk>
parents: 53072
diff changeset
5053 {
1a5fe79d27f3 (ADAPTIVE_READ_BUFFERING): New conditional.
Kim F. Storm <storm@cua.dk>
parents: 53072
diff changeset
5054 if (delay < READ_OUTPUT_DELAY_MAX_MAX)
1a5fe79d27f3 (ADAPTIVE_READ_BUFFERING): New conditional.
Kim F. Storm <storm@cua.dk>
parents: 53072
diff changeset
5055 {
1a5fe79d27f3 (ADAPTIVE_READ_BUFFERING): New conditional.
Kim F. Storm <storm@cua.dk>
parents: 53072
diff changeset
5056 if (delay == 0)
1a5fe79d27f3 (ADAPTIVE_READ_BUFFERING): New conditional.
Kim F. Storm <storm@cua.dk>
parents: 53072
diff changeset
5057 process_output_delay_count++;
1a5fe79d27f3 (ADAPTIVE_READ_BUFFERING): New conditional.
Kim F. Storm <storm@cua.dk>
parents: 53072
diff changeset
5058 delay += READ_OUTPUT_DELAY_INCREMENT * 2;
1a5fe79d27f3 (ADAPTIVE_READ_BUFFERING): New conditional.
Kim F. Storm <storm@cua.dk>
parents: 53072
diff changeset
5059 }
1a5fe79d27f3 (ADAPTIVE_READ_BUFFERING): New conditional.
Kim F. Storm <storm@cua.dk>
parents: 53072
diff changeset
5060 }
56583
64ae47cb68ff (read_process_output): Use whole read buffer.
Kim F. Storm <storm@cua.dk>
parents: 56477
diff changeset
5061 else if (delay > 0 && (nbytes == readmax))
53472
1a5fe79d27f3 (ADAPTIVE_READ_BUFFERING): New conditional.
Kim F. Storm <storm@cua.dk>
parents: 53072
diff changeset
5062 {
1a5fe79d27f3 (ADAPTIVE_READ_BUFFERING): New conditional.
Kim F. Storm <storm@cua.dk>
parents: 53072
diff changeset
5063 delay -= READ_OUTPUT_DELAY_INCREMENT;
1a5fe79d27f3 (ADAPTIVE_READ_BUFFERING): New conditional.
Kim F. Storm <storm@cua.dk>
parents: 53072
diff changeset
5064 if (delay == 0)
1a5fe79d27f3 (ADAPTIVE_READ_BUFFERING): New conditional.
Kim F. Storm <storm@cua.dk>
parents: 53072
diff changeset
5065 process_output_delay_count--;
1a5fe79d27f3 (ADAPTIVE_READ_BUFFERING): New conditional.
Kim F. Storm <storm@cua.dk>
parents: 53072
diff changeset
5066 }
81826
077a1e6fd3f2 (struct Lisp_Process): Turn slots infd, outfd, kill_without_query, pty_flag,
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 80984
diff changeset
5067 p->read_output_delay = delay;
53472
1a5fe79d27f3 (ADAPTIVE_READ_BUFFERING): New conditional.
Kim F. Storm <storm@cua.dk>
parents: 53072
diff changeset
5068 if (delay)
1a5fe79d27f3 (ADAPTIVE_READ_BUFFERING): New conditional.
Kim F. Storm <storm@cua.dk>
parents: 53072
diff changeset
5069 {
81826
077a1e6fd3f2 (struct Lisp_Process): Turn slots infd, outfd, kill_without_query, pty_flag,
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 80984
diff changeset
5070 p->read_output_skip = 1;
53472
1a5fe79d27f3 (ADAPTIVE_READ_BUFFERING): New conditional.
Kim F. Storm <storm@cua.dk>
parents: 53072
diff changeset
5071 process_output_skip = 1;
1a5fe79d27f3 (ADAPTIVE_READ_BUFFERING): New conditional.
Kim F. Storm <storm@cua.dk>
parents: 53072
diff changeset
5072 }
1a5fe79d27f3 (ADAPTIVE_READ_BUFFERING): New conditional.
Kim F. Storm <storm@cua.dk>
parents: 53072
diff changeset
5073 }
1a5fe79d27f3 (ADAPTIVE_READ_BUFFERING): New conditional.
Kim F. Storm <storm@cua.dk>
parents: 53072
diff changeset
5074 #endif
1a5fe79d27f3 (ADAPTIVE_READ_BUFFERING): New conditional.
Kim F. Storm <storm@cua.dk>
parents: 53072
diff changeset
5075 }
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5076 else
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5077 {
30580
5d92193ed196 (read_process_output): Big simplification. Handle
Kenichi Handa <handa@m17n.org>
parents: 29921
diff changeset
5078 chars[carryover] = proc_buffered_char[channel];
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5079 proc_buffered_char[channel] = -1;
56583
64ae47cb68ff (read_process_output): Use whole read buffer.
Kim F. Storm <storm@cua.dk>
parents: 56477
diff changeset
5080 nbytes = emacs_read (channel, chars + carryover + 1, readmax - 1);
20594
6e5a5afbe628 (read_process_output): Use insert_1_both.
Richard M. Stallman <rms@gnu.org>
parents: 20551
diff changeset
5081 if (nbytes < 0)
6e5a5afbe628 (read_process_output): Use insert_1_both.
Richard M. Stallman <rms@gnu.org>
parents: 20551
diff changeset
5082 nbytes = 1;
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5083 else
20594
6e5a5afbe628 (read_process_output): Use insert_1_both.
Richard M. Stallman <rms@gnu.org>
parents: 20551
diff changeset
5084 nbytes = nbytes + 1;
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5085 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5086 #endif /* not VMS */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5087
81826
077a1e6fd3f2 (struct Lisp_Process): Turn slots infd, outfd, kill_without_query, pty_flag,
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 80984
diff changeset
5088 p->decoding_carryover = 0;
22523
b02a5ea8cf93 (read_process_output): Handle carryover correctly.
Kenichi Handa <handa@m17n.org>
parents: 22019
diff changeset
5089
30580
5d92193ed196 (read_process_output): Big simplification. Handle
Kenichi Handa <handa@m17n.org>
parents: 29921
diff changeset
5090 /* 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
5091 (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
5092 if (nbytes <= 0)
18e5d1cfa74b (read_process_output): If NBYTES is zero and
Kenichi Handa <handa@m17n.org>
parents: 23762
diff changeset
5093 {
18e5d1cfa74b (read_process_output): If NBYTES is zero and
Kenichi Handa <handa@m17n.org>
parents: 23762
diff changeset
5094 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
5095 return nbytes;
18e5d1cfa74b (read_process_output): If NBYTES is zero and
Kenichi Handa <handa@m17n.org>
parents: 23762
diff changeset
5096 coding->mode |= CODING_MODE_LAST_BLOCK;
18e5d1cfa74b (read_process_output): If NBYTES is zero and
Kenichi Handa <handa@m17n.org>
parents: 23762
diff changeset
5097 }
20594
6e5a5afbe628 (read_process_output): Use insert_1_both.
Richard M. Stallman <rms@gnu.org>
parents: 20551
diff changeset
5098
6e5a5afbe628 (read_process_output): Use insert_1_both.
Richard M. Stallman <rms@gnu.org>
parents: 20551
diff changeset
5099 /* 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
5100 nbytes += carryover;
29017
8f10362eb5ff (Fstart_process): GCPRO current_dir before calling
Kenichi Handa <handa@m17n.org>
parents: 28157
diff changeset
5101
20594
6e5a5afbe628 (read_process_output): Use insert_1_both.
Richard M. Stallman <rms@gnu.org>
parents: 20551
diff changeset
5102 /* Read and dispose of the process output. */
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5103 outstream = p->filter;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5104 if (!NILP (outstream))
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5105 {
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 49281
diff changeset
5106 /* We inhibit quit here instead of just catching it so that
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5107 hitting ^G when a filter happens to be running won't screw
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5108 it up. */
46293
1fb8f75062c6 Use macro SPECPDL_INDEX.
Juanma Barranquero <lekktu@gmail.com>
parents: 45410
diff changeset
5109 int count = SPECPDL_INDEX ();
3510
b4a552ca4e99 (read_process_output): Deactivate the mark.
Richard M. Stallman <rms@gnu.org>
parents: 3238
diff changeset
5110 Lisp_Object odeactivate;
10914
413d44c0bd41 (exec_sentinel, read_process_output): If running filter
Richard M. Stallman <rms@gnu.org>
parents: 10744
diff changeset
5111 Lisp_Object obuffer, okeymap;
20594
6e5a5afbe628 (read_process_output): Use insert_1_both.
Richard M. Stallman <rms@gnu.org>
parents: 20551
diff changeset
5112 Lisp_Object text;
16644
3a93437adce1 (status_notify): Test p->infd > 0
Richard M. Stallman <rms@gnu.org>
parents: 16464
diff changeset
5113 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
5114 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
5115
413d44c0bd41 (exec_sentinel, read_process_output): If running filter
Richard M. Stallman <rms@gnu.org>
parents: 10744
diff changeset
5116 /* 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
5117 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
5118 odeactivate = Vdeactivate_mark;
10914
413d44c0bd41 (exec_sentinel, read_process_output): If running filter
Richard M. Stallman <rms@gnu.org>
parents: 10744
diff changeset
5119 XSETBUFFER (obuffer, current_buffer);
413d44c0bd41 (exec_sentinel, read_process_output): If running filter
Richard M. Stallman <rms@gnu.org>
parents: 10744
diff changeset
5120 okeymap = current_buffer->keymap;
3510
b4a552ca4e99 (read_process_output): Deactivate the mark.
Richard M. Stallman <rms@gnu.org>
parents: 3238
diff changeset
5121
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5122 specbind (Qinhibit_quit, Qt);
8231
5226ed89c1a6 (Qlast_nonmenu_event): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 8063
diff changeset
5123 specbind (Qlast_nonmenu_event, Qt);
9030
b14532c71632 (exec_sentinel_error_handler): New function.
Richard M. Stallman <rms@gnu.org>
parents: 8570
diff changeset
5124
16644
3a93437adce1 (status_notify): Test p->infd > 0
Richard M. Stallman <rms@gnu.org>
parents: 16464
diff changeset
5125 /* In case we get recursively called,
3a93437adce1 (status_notify): Test p->infd > 0
Richard M. Stallman <rms@gnu.org>
parents: 16464
diff changeset
5126 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
5127 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
5128 if (outer_running_asynch_code)
3a93437adce1 (status_notify): Test p->infd > 0
Richard M. Stallman <rms@gnu.org>
parents: 16464
diff changeset
5129 {
3a93437adce1 (status_notify): Test p->infd > 0
Richard M. Stallman <rms@gnu.org>
parents: 16464
diff changeset
5130 Lisp_Object tem;
3a93437adce1 (status_notify): Test p->infd > 0
Richard M. Stallman <rms@gnu.org>
parents: 16464
diff changeset
5131 /* Don't clobber the CURRENT match data, either! */
63147
9bde03db5726 * composite.c (compose_chars_in_text):
Kim F. Storm <storm@cua.dk>
parents: 63128
diff changeset
5132 tem = Fmatch_data (Qnil, Qnil, Qnil);
9bde03db5726 * composite.c (compose_chars_in_text):
Kim F. Storm <storm@cua.dk>
parents: 63128
diff changeset
5133 restore_search_regs ();
9bde03db5726 * composite.c (compose_chars_in_text):
Kim F. Storm <storm@cua.dk>
parents: 63128
diff changeset
5134 record_unwind_save_match_data ();
9bde03db5726 * composite.c (compose_chars_in_text):
Kim F. Storm <storm@cua.dk>
parents: 63128
diff changeset
5135 Fset_match_data (tem, Qt);
16644
3a93437adce1 (status_notify): Test p->infd > 0
Richard M. Stallman <rms@gnu.org>
parents: 16464
diff changeset
5136 }
3a93437adce1 (status_notify): Test p->infd > 0
Richard M. Stallman <rms@gnu.org>
parents: 16464
diff changeset
5137
3a93437adce1 (status_notify): Test p->infd > 0
Richard M. Stallman <rms@gnu.org>
parents: 16464
diff changeset
5138 /* 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
5139 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
5140 running_asynch_code = 1;
16644
3a93437adce1 (status_notify): Test p->infd > 0
Richard M. Stallman <rms@gnu.org>
parents: 16464
diff changeset
5141
30580
5d92193ed196 (read_process_output): Big simplification. Handle
Kenichi Handa <handa@m17n.org>
parents: 29921
diff changeset
5142 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
5143 coding, 0);
30582
280157ad4aa3 *** empty log message ***
Kenichi Handa <handa@m17n.org>
parents: 30580
diff changeset
5144 Vlast_coding_system_used = coding->symbol;
30580
5d92193ed196 (read_process_output): Big simplification. Handle
Kenichi Handa <handa@m17n.org>
parents: 29921
diff changeset
5145 /* A new coding system might be found. */
5d92193ed196 (read_process_output): Big simplification. Handle
Kenichi Handa <handa@m17n.org>
parents: 29921
diff changeset
5146 if (!EQ (p->decode_coding_system, coding->symbol))
5d92193ed196 (read_process_output): Big simplification. Handle
Kenichi Handa <handa@m17n.org>
parents: 29921
diff changeset
5147 {
5d92193ed196 (read_process_output): Big simplification. Handle
Kenichi Handa <handa@m17n.org>
parents: 29921
diff changeset
5148 p->decode_coding_system = coding->symbol;
5d92193ed196 (read_process_output): Big simplification. Handle
Kenichi Handa <handa@m17n.org>
parents: 29921
diff changeset
5149
5d92193ed196 (read_process_output): Big simplification. Handle
Kenichi Handa <handa@m17n.org>
parents: 29921
diff changeset
5150 /* Don't call setup_coding_system for
5d92193ed196 (read_process_output): Big simplification. Handle
Kenichi Handa <handa@m17n.org>
parents: 29921
diff changeset
5151 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
5152 detect_coding called via decode_coding above. */
5d92193ed196 (read_process_output): Big simplification. Handle
Kenichi Handa <handa@m17n.org>
parents: 29921
diff changeset
5153
5d92193ed196 (read_process_output): Big simplification. Handle
Kenichi Handa <handa@m17n.org>
parents: 29921
diff changeset
5154 /* 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
5155 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
5156
5d92193ed196 (read_process_output): Big simplification. Handle
Kenichi Handa <handa@m17n.org>
parents: 29921
diff changeset
5157 But, before doing that we must check if
5d92193ed196 (read_process_output): Big simplification. Handle
Kenichi Handa <handa@m17n.org>
parents: 29921
diff changeset
5158 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
5159 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
5160 sent to the process. */
5d92193ed196 (read_process_output): Big simplification. Handle
Kenichi Handa <handa@m17n.org>
parents: 29921
diff changeset
5161 if (NILP (p->encode_coding_system)
81826
077a1e6fd3f2 (struct Lisp_Process): Turn slots infd, outfd, kill_without_query, pty_flag,
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 80984
diff changeset
5162 && proc_encode_coding_system[p->outfd])
30580
5d92193ed196 (read_process_output): Big simplification. Handle
Kenichi Handa <handa@m17n.org>
parents: 29921
diff changeset
5163 {
5d92193ed196 (read_process_output): Big simplification. Handle
Kenichi Handa <handa@m17n.org>
parents: 29921
diff changeset
5164 p->encode_coding_system = coding->symbol;
5d92193ed196 (read_process_output): Big simplification. Handle
Kenichi Handa <handa@m17n.org>
parents: 29921
diff changeset
5165 setup_coding_system (coding->symbol,
81826
077a1e6fd3f2 (struct Lisp_Process): Turn slots infd, outfd, kill_without_query, pty_flag,
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 80984
diff changeset
5166 proc_encode_coding_system[p->outfd]);
077a1e6fd3f2 (struct Lisp_Process): Turn slots infd, outfd, kill_without_query, pty_flag,
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 80984
diff changeset
5167 if (proc_encode_coding_system[p->outfd]->eol_type
70517
7ebead4f6646 (setup_process_coding_systems): Use system_eol_type
Kenichi Handa <handa@m17n.org>
parents: 69981
diff changeset
5168 == CODING_EOL_UNDECIDED)
81826
077a1e6fd3f2 (struct Lisp_Process): Turn slots infd, outfd, kill_without_query, pty_flag,
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 80984
diff changeset
5169 proc_encode_coding_system[p->outfd]->eol_type
70517
7ebead4f6646 (setup_process_coding_systems): Use system_eol_type
Kenichi Handa <handa@m17n.org>
parents: 69981
diff changeset
5170 = system_eol_type;
30580
5d92193ed196 (read_process_output): Big simplification. Handle
Kenichi Handa <handa@m17n.org>
parents: 29921
diff changeset
5171 }
5d92193ed196 (read_process_output): Big simplification. Handle
Kenichi Handa <handa@m17n.org>
parents: 29921
diff changeset
5172 }
5d92193ed196 (read_process_output): Big simplification. Handle
Kenichi Handa <handa@m17n.org>
parents: 29921
diff changeset
5173
5d92193ed196 (read_process_output): Big simplification. Handle
Kenichi Handa <handa@m17n.org>
parents: 29921
diff changeset
5174 carryover = nbytes - coding->consumed;
74406
6bc8bd6fe72c (Qsignal): Declare extern.
Kim F. Storm <storm@cua.dk>
parents: 73951
diff changeset
5175 if (carryover < 0)
6bc8bd6fe72c (Qsignal): Declare extern.
Kim F. Storm <storm@cua.dk>
parents: 73951
diff changeset
5176 abort ();
6bc8bd6fe72c (Qsignal): Declare extern.
Kim F. Storm <storm@cua.dk>
parents: 73951
diff changeset
5177
55534
43894b273b5e (read_process_output): Grow decoding_buf when needed;
Kim F. Storm <storm@cua.dk>
parents: 55504
diff changeset
5178 if (SCHARS (p->decoding_buf) < carryover)
43894b273b5e (read_process_output): Grow decoding_buf when needed;
Kim F. Storm <storm@cua.dk>
parents: 55504
diff changeset
5179 p->decoding_buf = make_uninit_string (carryover);
46370
40db0673e6f0 Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents: 46314
diff changeset
5180 bcopy (chars + coding->consumed, SDATA (p->decoding_buf),
30580
5d92193ed196 (read_process_output): Big simplification. Handle
Kenichi Handa <handa@m17n.org>
parents: 29921
diff changeset
5181 carryover);
81826
077a1e6fd3f2 (struct Lisp_Process): Turn slots infd, outfd, kill_without_query, pty_flag,
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 80984
diff changeset
5182 p->decoding_carryover = carryover;
49667
cbec1327e2f1 (QCfilter_multibyte): New variable.
Kenichi Handa <handa@m17n.org>
parents: 49600
diff changeset
5183 /* Adjust the multibyteness of TEXT to that of the filter. */
81926
50da0700fc26 (Fstart_process, Fmake_network_process, read_process_output):
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 81876
diff changeset
5184 if (!p->filter_multibyte != !STRING_MULTIBYTE (text))
49667
cbec1327e2f1 (QCfilter_multibyte): New variable.
Kenichi Handa <handa@m17n.org>
parents: 49600
diff changeset
5185 text = (STRING_MULTIBYTE (text)
cbec1327e2f1 (QCfilter_multibyte): New variable.
Kenichi Handa <handa@m17n.org>
parents: 49600
diff changeset
5186 ? Fstring_as_unibyte (text)
cbec1327e2f1 (QCfilter_multibyte): New variable.
Kenichi Handa <handa@m17n.org>
parents: 49600
diff changeset
5187 : Fstring_to_multibyte (text));
52093
25ad7be098ba (read_process_output): Return the actually read bytes
Kenichi Handa <handa@m17n.org>
parents: 51637
diff changeset
5188 if (SBYTES (text) > 0)
34647
1898b3c996ff (read_process_output): Don't run a filter if the code
Kenichi Handa <handa@m17n.org>
parents: 34352
diff changeset
5189 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
5190 Fcons (outstream,
1898b3c996ff (read_process_output): Don't run a filter if the code
Kenichi Handa <handa@m17n.org>
parents: 34352
diff changeset
5191 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
5192 !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
5193 read_process_output_error_handler);
16644
3a93437adce1 (status_notify): Test p->infd > 0
Richard M. Stallman <rms@gnu.org>
parents: 16464
diff changeset
5194
3a93437adce1 (status_notify): Test p->infd > 0
Richard M. Stallman <rms@gnu.org>
parents: 16464
diff changeset
5195 /* If we saved the match data nonrecursively, restore it now. */
63147
9bde03db5726 * composite.c (compose_chars_in_text):
Kim F. Storm <storm@cua.dk>
parents: 63128
diff changeset
5196 restore_search_regs ();
16644
3a93437adce1 (status_notify): Test p->infd > 0
Richard M. Stallman <rms@gnu.org>
parents: 16464
diff changeset
5197 running_asynch_code = outer_running_asynch_code;
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5198
3666
c7ff787b096f (read_process_output): Don't deactivate the mark.
Richard M. Stallman <rms@gnu.org>
parents: 3608
diff changeset
5199 /* 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
5200 Vdeactivate_mark = odeactivate;
b4a552ca4e99 (read_process_output): Deactivate the mark.
Richard M. Stallman <rms@gnu.org>
parents: 3238
diff changeset
5201
23460
94f4ba741f22 (exec_sentinel, read_process_output):
Richard M. Stallman <rms@gnu.org>
parents: 23405
diff changeset
5202 /* 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
5203 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
5204 waiting_for_user_input_p = waiting;
94f4ba741f22 (exec_sentinel, read_process_output):
Richard M. Stallman <rms@gnu.org>
parents: 23405
diff changeset
5205
12808
4db1f387e85f (read_process_output, exec_sentinel): Call
Richard M. Stallman <rms@gnu.org>
parents: 12749
diff changeset
5206 #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
5207 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
5208 that affect key bindings. */
10914
413d44c0bd41 (exec_sentinel, read_process_output): If running filter
Richard M. Stallman <rms@gnu.org>
parents: 10744
diff changeset
5209 if (! EQ (Fcurrent_buffer (), obuffer)
413d44c0bd41 (exec_sentinel, read_process_output): If running filter
Richard M. Stallman <rms@gnu.org>
parents: 10744
diff changeset
5210 || ! EQ (current_buffer->keymap, okeymap))
12808
4db1f387e85f (read_process_output, exec_sentinel): Call
Richard M. Stallman <rms@gnu.org>
parents: 12749
diff changeset
5211 #endif
13159
2af96ac471bc (exec_sentinel, read_process_output):
Richard M. Stallman <rms@gnu.org>
parents: 12808
diff changeset
5212 /* 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
5213 Otherwise there's no need to make him wake up, and it could
71762
f3f2486cf6bc Doc fix.
Chong Yidong <cyd@stupidchicken.com>
parents: 71140
diff changeset
5214 cause trouble (for example it would make sit_for return). */
13159
2af96ac471bc (exec_sentinel, read_process_output):
Richard M. Stallman <rms@gnu.org>
parents: 12808
diff changeset
5215 if (waiting_for_user_input_p == -1)
2af96ac471bc (exec_sentinel, read_process_output):
Richard M. Stallman <rms@gnu.org>
parents: 12808
diff changeset
5216 record_asynch_buffer_change ();
6748
b1cde622fa65 (read_process_output): If buffer changes, record that fact.
Karl Heuer <kwzh@gnu.org>
parents: 6569
diff changeset
5217
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5218 #ifdef VMS
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5219 start_vms_process_read (vs);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5220 #endif
5561
fd7524d61a8d (read_process_output): Supply second arg to unbind_to.
Richard M. Stallman <rms@gnu.org>
parents: 5548
diff changeset
5221 unbind_to (count, Qnil);
52093
25ad7be098ba (read_process_output): Return the actually read bytes
Kenichi Handa <handa@m17n.org>
parents: 51637
diff changeset
5222 return nbytes;
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5223 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5224
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5225 /* If no filter, write into buffer if it isn't dead. */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5226 if (!NILP (p->buffer) && !NILP (XBUFFER (p->buffer)->name))
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5227 {
1594
b476a97ad17e * systty.h, process.c, buffer.h, callproc.c, sysdep.c, dired.c:
Jim Blandy <jimb@redhat.com>
parents: 1569
diff changeset
5228 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
5229 int old_begv, old_zv;
20551
5f17380c85f1 (status_notify): Use byte and char pointers.
Richard M. Stallman <rms@gnu.org>
parents: 20433
diff changeset
5230 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
5231 Lisp_Object odeactivate;
20551
5f17380c85f1 (status_notify): Use byte and char pointers.
Richard M. Stallman <rms@gnu.org>
parents: 20433
diff changeset
5232 int before, before_byte;
5f17380c85f1 (status_notify): Use byte and char pointers.
Richard M. Stallman <rms@gnu.org>
parents: 20433
diff changeset
5233 int opoint_byte;
30580
5d92193ed196 (read_process_output): Big simplification. Handle
Kenichi Handa <handa@m17n.org>
parents: 29921
diff changeset
5234 Lisp_Object text;
34352
642fb6c53a10 (read_process_output): Make sure the process marker's
Gerd Moellmann <gerd@gnu.org>
parents: 32864
diff changeset
5235 struct buffer *b;
3510
b4a552ca4e99 (read_process_output): Deactivate the mark.
Richard M. Stallman <rms@gnu.org>
parents: 3238
diff changeset
5236
b4a552ca4e99 (read_process_output): Deactivate the mark.
Richard M. Stallman <rms@gnu.org>
parents: 3238
diff changeset
5237 odeactivate = Vdeactivate_mark;
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5238
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5239 Fset_buffer (p->buffer);
16039
855c8d8ba0f0 Change all references from point to PT.
Karl Heuer <kwzh@gnu.org>
parents: 15895
diff changeset
5240 opoint = PT;
20551
5f17380c85f1 (status_notify): Use byte and char pointers.
Richard M. Stallman <rms@gnu.org>
parents: 20433
diff changeset
5241 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
5242 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
5243 old_begv = BEGV;
77b137e2d9a7 (read_process_output): Update opoint, old_begv and old_zv
Richard M. Stallman <rms@gnu.org>
parents: 17247
diff changeset
5244 old_zv = ZV;
20551
5f17380c85f1 (status_notify): Use byte and char pointers.
Richard M. Stallman <rms@gnu.org>
parents: 20433
diff changeset
5245 old_begv_byte = BEGV_BYTE;
5f17380c85f1 (status_notify): Use byte and char pointers.
Richard M. Stallman <rms@gnu.org>
parents: 20433
diff changeset
5246 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
5247
b476a97ad17e * systty.h, process.c, buffer.h, callproc.c, sysdep.c, dired.c:
Jim Blandy <jimb@redhat.com>
parents: 1569
diff changeset
5248 current_buffer->read_only = Qnil;
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5249
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5250 /* Insert new output into buffer
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5251 at the current end-of-output marker,
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5252 thus preserving logical ordering of input and output. */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5253 if (XMARKER (p->mark)->buffer)
20551
5f17380c85f1 (status_notify): Use byte and char pointers.
Richard M. Stallman <rms@gnu.org>
parents: 20433
diff changeset
5254 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
5255 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
5256 ZV_BYTE));
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5257 else
20551
5f17380c85f1 (status_notify): Use byte and char pointers.
Richard M. Stallman <rms@gnu.org>
parents: 20433
diff changeset
5258 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
5259 before = PT;
20551
5f17380c85f1 (status_notify): Use byte and char pointers.
Richard M. Stallman <rms@gnu.org>
parents: 20433
diff changeset
5260 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
5261
b476a97ad17e * systty.h, process.c, buffer.h, callproc.c, sysdep.c, dired.c:
Jim Blandy <jimb@redhat.com>
parents: 1569
diff changeset
5262 /* 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
5263 the restriction and widen. */
16039
855c8d8ba0f0 Change all references from point to PT.
Karl Heuer <kwzh@gnu.org>
parents: 15895
diff changeset
5264 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
5265 Fwiden ();
b476a97ad17e * systty.h, process.c, buffer.h, callproc.c, sysdep.c, dired.c:
Jim Blandy <jimb@redhat.com>
parents: 1569
diff changeset
5266
30580
5d92193ed196 (read_process_output): Big simplification. Handle
Kenichi Handa <handa@m17n.org>
parents: 29921
diff changeset
5267 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
5268 coding, 0);
30582
280157ad4aa3 *** empty log message ***
Kenichi Handa <handa@m17n.org>
parents: 30580
diff changeset
5269 Vlast_coding_system_used = coding->symbol;
30580
5d92193ed196 (read_process_output): Big simplification. Handle
Kenichi Handa <handa@m17n.org>
parents: 29921
diff changeset
5270 /* 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
5271 similar code in the previous `if' block. */
5d92193ed196 (read_process_output): Big simplification. Handle
Kenichi Handa <handa@m17n.org>
parents: 29921
diff changeset
5272 if (!EQ (p->decode_coding_system, coding->symbol))
5d92193ed196 (read_process_output): Big simplification. Handle
Kenichi Handa <handa@m17n.org>
parents: 29921
diff changeset
5273 {
5d92193ed196 (read_process_output): Big simplification. Handle
Kenichi Handa <handa@m17n.org>
parents: 29921
diff changeset
5274 p->decode_coding_system = coding->symbol;
5d92193ed196 (read_process_output): Big simplification. Handle
Kenichi Handa <handa@m17n.org>
parents: 29921
diff changeset
5275 if (NILP (p->encode_coding_system)
81826
077a1e6fd3f2 (struct Lisp_Process): Turn slots infd, outfd, kill_without_query, pty_flag,
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 80984
diff changeset
5276 && proc_encode_coding_system[p->outfd])
30580
5d92193ed196 (read_process_output): Big simplification. Handle
Kenichi Handa <handa@m17n.org>
parents: 29921
diff changeset
5277 {
5d92193ed196 (read_process_output): Big simplification. Handle
Kenichi Handa <handa@m17n.org>
parents: 29921
diff changeset
5278 p->encode_coding_system = coding->symbol;
5d92193ed196 (read_process_output): Big simplification. Handle
Kenichi Handa <handa@m17n.org>
parents: 29921
diff changeset
5279 setup_coding_system (coding->symbol,
81826
077a1e6fd3f2 (struct Lisp_Process): Turn slots infd, outfd, kill_without_query, pty_flag,
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 80984
diff changeset
5280 proc_encode_coding_system[p->outfd]);
077a1e6fd3f2 (struct Lisp_Process): Turn slots infd, outfd, kill_without_query, pty_flag,
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 80984
diff changeset
5281 if (proc_encode_coding_system[p->outfd]->eol_type
70517
7ebead4f6646 (setup_process_coding_systems): Use system_eol_type
Kenichi Handa <handa@m17n.org>
parents: 69981
diff changeset
5282 == CODING_EOL_UNDECIDED)
81826
077a1e6fd3f2 (struct Lisp_Process): Turn slots infd, outfd, kill_without_query, pty_flag,
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 80984
diff changeset
5283 proc_encode_coding_system[p->outfd]->eol_type
70517
7ebead4f6646 (setup_process_coding_systems): Use system_eol_type
Kenichi Handa <handa@m17n.org>
parents: 69981
diff changeset
5284 = system_eol_type;
30580
5d92193ed196 (read_process_output): Big simplification. Handle
Kenichi Handa <handa@m17n.org>
parents: 29921
diff changeset
5285 }
5d92193ed196 (read_process_output): Big simplification. Handle
Kenichi Handa <handa@m17n.org>
parents: 29921
diff changeset
5286 }
5d92193ed196 (read_process_output): Big simplification. Handle
Kenichi Handa <handa@m17n.org>
parents: 29921
diff changeset
5287 carryover = nbytes - coding->consumed;
74406
6bc8bd6fe72c (Qsignal): Declare extern.
Kim F. Storm <storm@cua.dk>
parents: 73951
diff changeset
5288 if (carryover < 0)
6bc8bd6fe72c (Qsignal): Declare extern.
Kim F. Storm <storm@cua.dk>
parents: 73951
diff changeset
5289 abort ();
6bc8bd6fe72c (Qsignal): Declare extern.
Kim F. Storm <storm@cua.dk>
parents: 73951
diff changeset
5290
55534
43894b273b5e (read_process_output): Grow decoding_buf when needed;
Kim F. Storm <storm@cua.dk>
parents: 55504
diff changeset
5291 if (SCHARS (p->decoding_buf) < carryover)
43894b273b5e (read_process_output): Grow decoding_buf when needed;
Kim F. Storm <storm@cua.dk>
parents: 55504
diff changeset
5292 p->decoding_buf = make_uninit_string (carryover);
46370
40db0673e6f0 Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents: 46314
diff changeset
5293 bcopy (chars + coding->consumed, SDATA (p->decoding_buf),
30580
5d92193ed196 (read_process_output): Big simplification. Handle
Kenichi Handa <handa@m17n.org>
parents: 29921
diff changeset
5294 carryover);
81826
077a1e6fd3f2 (struct Lisp_Process): Turn slots infd, outfd, kill_without_query, pty_flag,
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 80984
diff changeset
5295 p->decoding_carryover = carryover;
74406
6bc8bd6fe72c (Qsignal): Declare extern.
Kim F. Storm <storm@cua.dk>
parents: 73951
diff changeset
5296
31419
bd258f4dc0fa (read_process_output): Before inserting the decoded
Kenichi Handa <handa@m17n.org>
parents: 31136
diff changeset
5297 /* 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
5298 if (NILP (current_buffer->enable_multibyte_characters)
bd258f4dc0fa (read_process_output): Before inserting the decoded
Kenichi Handa <handa@m17n.org>
parents: 31136
diff changeset
5299 != ! STRING_MULTIBYTE (text))
bd258f4dc0fa (read_process_output): Before inserting the decoded
Kenichi Handa <handa@m17n.org>
parents: 31136
diff changeset
5300 text = (STRING_MULTIBYTE (text)
32395
11b8c07e5fed (read_process_output): Cancel previous change.
Kenichi Handa <handa@m17n.org>
parents: 32371
diff changeset
5301 ? Fstring_as_unibyte (text)
49667
cbec1327e2f1 (QCfilter_multibyte): New variable.
Kenichi Handa <handa@m17n.org>
parents: 49600
diff changeset
5302 : Fstring_to_multibyte (text));
32395
11b8c07e5fed (read_process_output): Cancel previous change.
Kenichi Handa <handa@m17n.org>
parents: 32371
diff changeset
5303 /* 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
5304 the buffer's mark is, and the user's next command is Meta-y. */
52093
25ad7be098ba (read_process_output): Return the actually read bytes
Kenichi Handa <handa@m17n.org>
parents: 51637
diff changeset
5305 insert_from_string_before_markers (text, 0, 0,
25ad7be098ba (read_process_output): Return the actually read bytes
Kenichi Handa <handa@m17n.org>
parents: 51637
diff changeset
5306 SCHARS (text), SBYTES (text), 0);
29017
8f10362eb5ff (Fstart_process): GCPRO current_dir before calling
Kenichi Handa <handa@m17n.org>
parents: 28157
diff changeset
5307
34352
642fb6c53a10 (read_process_output): Make sure the process marker's
Gerd Moellmann <gerd@gnu.org>
parents: 32864
diff changeset
5308 /* 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
5309 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
5310 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
5311 if (BUFFERP (p->buffer)
642fb6c53a10 (read_process_output): Make sure the process marker's
Gerd Moellmann <gerd@gnu.org>
parents: 32864
diff changeset
5312 && (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
5313 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
5314 else
642fb6c53a10 (read_process_output): Make sure the process marker's
Gerd Moellmann <gerd@gnu.org>
parents: 32864
diff changeset
5315 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
5316
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5317 update_mode_lines++;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5318
17604
77b137e2d9a7 (read_process_output): Update opoint, old_begv and old_zv
Richard M. Stallman <rms@gnu.org>
parents: 17247
diff changeset
5319 /* 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
5320 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
5321 if (opoint >= before)
20551
5f17380c85f1 (status_notify): Use byte and char pointers.
Richard M. Stallman <rms@gnu.org>
parents: 20433
diff changeset
5322 {
5f17380c85f1 (status_notify): Use byte and char pointers.
Richard M. Stallman <rms@gnu.org>
parents: 20433
diff changeset
5323 opoint += PT - before;
5f17380c85f1 (status_notify): Use byte and char pointers.
Richard M. Stallman <rms@gnu.org>
parents: 20433
diff changeset
5324 opoint_byte += PT_BYTE - before_byte;
5f17380c85f1 (status_notify): Use byte and char pointers.
Richard M. Stallman <rms@gnu.org>
parents: 20433
diff changeset
5325 }
17604
77b137e2d9a7 (read_process_output): Update opoint, old_begv and old_zv
Richard M. Stallman <rms@gnu.org>
parents: 17247
diff changeset
5326 if (old_begv > before)
20551
5f17380c85f1 (status_notify): Use byte and char pointers.
Richard M. Stallman <rms@gnu.org>
parents: 20433
diff changeset
5327 {
5f17380c85f1 (status_notify): Use byte and char pointers.
Richard M. Stallman <rms@gnu.org>
parents: 20433
diff changeset
5328 old_begv += PT - before;
5f17380c85f1 (status_notify): Use byte and char pointers.
Richard M. Stallman <rms@gnu.org>
parents: 20433
diff changeset
5329 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
5330 }
17604
77b137e2d9a7 (read_process_output): Update opoint, old_begv and old_zv
Richard M. Stallman <rms@gnu.org>
parents: 17247
diff changeset
5331 if (old_zv >= before)
20551
5f17380c85f1 (status_notify): Use byte and char pointers.
Richard M. Stallman <rms@gnu.org>
parents: 20433
diff changeset
5332 {
5f17380c85f1 (status_notify): Use byte and char pointers.
Richard M. Stallman <rms@gnu.org>
parents: 20433
diff changeset
5333 old_zv += PT - before;
5f17380c85f1 (status_notify): Use byte and char pointers.
Richard M. Stallman <rms@gnu.org>
parents: 20433
diff changeset
5334 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
5335 }
17604
77b137e2d9a7 (read_process_output): Update opoint, old_begv and old_zv
Richard M. Stallman <rms@gnu.org>
parents: 17247
diff changeset
5336
1594
b476a97ad17e * systty.h, process.c, buffer.h, callproc.c, sysdep.c, dired.c:
Jim Blandy <jimb@redhat.com>
parents: 1569
diff changeset
5337 /* 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
5338 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
5339 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
5340
3666
c7ff787b096f (read_process_output): Don't deactivate the mark.
Richard M. Stallman <rms@gnu.org>
parents: 3608
diff changeset
5341 /* 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
5342 Vdeactivate_mark = odeactivate;
b4a552ca4e99 (read_process_output): Deactivate the mark.
Richard M. Stallman <rms@gnu.org>
parents: 3238
diff changeset
5343
1594
b476a97ad17e * systty.h, process.c, buffer.h, callproc.c, sysdep.c, dired.c:
Jim Blandy <jimb@redhat.com>
parents: 1569
diff changeset
5344 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
5345 SET_PT_BOTH (opoint, opoint_byte);
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5346 set_buffer_internal (old);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5347 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5348 #ifdef VMS
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5349 start_vms_process_read (vs);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5350 #endif
20594
6e5a5afbe628 (read_process_output): Use insert_1_both.
Richard M. Stallman <rms@gnu.org>
parents: 20551
diff changeset
5351 return nbytes;
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5352 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5353
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5354 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
5355 0, 0, 0,
55444
976d03256b41 (Fwaiting_for_user_input_p, Fmake_network_process)
Juanma Barranquero <lekktu@gmail.com>
parents: 53835
diff changeset
5356 doc: /* Returns non-nil if Emacs is waiting for input from the user.
40103
6b389fb978bc Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
5357 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
5358 ()
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5359 {
7352
ef89b78c1a92 (wait_reading_process_input): Don't call prepare_menu_bars
Richard M. Stallman <rms@gnu.org>
parents: 7266
diff changeset
5360 return (waiting_for_user_input_p ? Qt : Qnil);
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5361 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5362
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5363 /* Sending data to subprocess */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5364
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5365 jmp_buf send_process_frame;
31806
b148beb59511 (process_sent_to): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 31419
diff changeset
5366 Lisp_Object process_sent_to;
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5367
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5368 SIGTYPE
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5369 send_process_trap ()
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5370 {
58986
59945307b86b * syssignal.h: Declare main_thread.
Jan Djärv <jan.h.d@swipnet.se>
parents: 58082
diff changeset
5371 SIGNAL_THREAD_CHECK (SIGPIPE);
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5372 #ifdef BSD4_1
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5373 sigrelse (SIGPIPE);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5374 sigrelse (SIGALRM);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5375 #endif /* BSD4_1 */
62334
f9dc4e8a41fe (send_process_trap): Unblock SIGPIPE.
Richard M. Stallman <rms@gnu.org>
parents: 60892
diff changeset
5376 sigunblock (sigmask (SIGPIPE));
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5377 longjmp (send_process_frame, 1);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5378 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5379
8063
30861f2f4f84 (send_process): Major rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 7937
diff changeset
5380 /* Send some data to process PROC.
30861f2f4f84 (send_process): Major rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 7937
diff changeset
5381 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
5382 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
5383 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
5384
21acd0c60f5d (send_process): If OBJECT is t, it means that the data
Kenichi Handa <handa@m17n.org>
parents: 32395
diff changeset
5385 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
5386 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
5387
336858b2b11a (send_process): Add a hint that the function
Gerd Moellmann <gerd@gnu.org>
parents: 28012
diff changeset
5388 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
5389
64977
d26871fb1b7b (deactivate_process, status_notify, read_process_output)
Kim F. Storm <storm@cua.dk>
parents: 64770
diff changeset
5390 static void
8063
30861f2f4f84 (send_process): Major rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 7937
diff changeset
5391 send_process (proc, buf, len, object)
11926
40d7e6f04ebe (create_process, send_process): Add volatile qualifiers.
Karl Heuer <kwzh@gnu.org>
parents: 11845
diff changeset
5392 volatile Lisp_Object proc;
31806
b148beb59511 (process_sent_to): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 31419
diff changeset
5393 unsigned char *volatile buf;
b148beb59511 (process_sent_to): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 31419
diff changeset
5394 volatile int len;
b148beb59511 (process_sent_to): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 31419
diff changeset
5395 volatile Lisp_Object object;
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5396 {
11926
40d7e6f04ebe (create_process, send_process): Add volatile qualifiers.
Karl Heuer <kwzh@gnu.org>
parents: 11845
diff changeset
5397 /* Use volatile to protect variables from being clobbered by longjmp. */
53472
1a5fe79d27f3 (ADAPTIVE_READ_BUFFERING): New conditional.
Kim F. Storm <storm@cua.dk>
parents: 53072
diff changeset
5398 struct Lisp_Process *p = XPROCESS (proc);
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5399 int rv;
17041
b61cbe595be5 Include charset.h and coding.h.
Karl Heuer <kwzh@gnu.org>
parents: 16780
diff changeset
5400 struct coding_system *coding;
15895
85112cca0b22 (send_process): GCPRO object.
Richard M. Stallman <rms@gnu.org>
parents: 15717
diff changeset
5401 struct gcpro gcpro1;
62604
324a4f7ffebc (send_process): Move misplaced volatile.
Andreas Schwab <schwab@suse.de>
parents: 62602
diff changeset
5402 SIGTYPE (*volatile old_sigpipe) ();
15895
85112cca0b22 (send_process): GCPRO object.
Richard M. Stallman <rms@gnu.org>
parents: 15717
diff changeset
5403
85112cca0b22 (send_process): GCPRO object.
Richard M. Stallman <rms@gnu.org>
parents: 15717
diff changeset
5404 GCPRO1 (object);
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5405
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5406 #ifdef VMS
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5407 VMS_PROC_STUFF *vs, *get_vms_process_pointer();
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5408 #endif /* VMS */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5409
69873
2d844bbbccd4 * process.h (struct Lisp_Process): Replace Lisp_Objects `pid',
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 69634
diff changeset
5410 if (p->raw_status_new)
53472
1a5fe79d27f3 (ADAPTIVE_READ_BUFFERING): New conditional.
Kim F. Storm <storm@cua.dk>
parents: 53072
diff changeset
5411 update_status (p);
1a5fe79d27f3 (ADAPTIVE_READ_BUFFERING): New conditional.
Kim F. Storm <storm@cua.dk>
parents: 53072
diff changeset
5412 if (! EQ (p->status, Qrun))
1a5fe79d27f3 (ADAPTIVE_READ_BUFFERING): New conditional.
Kim F. Storm <storm@cua.dk>
parents: 53072
diff changeset
5413 error ("Process %s not running", SDATA (p->name));
81826
077a1e6fd3f2 (struct Lisp_Process): Turn slots infd, outfd, kill_without_query, pty_flag,
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 80984
diff changeset
5414 if (p->outfd < 0)
53472
1a5fe79d27f3 (ADAPTIVE_READ_BUFFERING): New conditional.
Kim F. Storm <storm@cua.dk>
parents: 53072
diff changeset
5415 error ("Output file descriptor of %s is closed", SDATA (p->name));
1a5fe79d27f3 (ADAPTIVE_READ_BUFFERING): New conditional.
Kim F. Storm <storm@cua.dk>
parents: 53072
diff changeset
5416
81826
077a1e6fd3f2 (struct Lisp_Process): Turn slots infd, outfd, kill_without_query, pty_flag,
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 80984
diff changeset
5417 coding = proc_encode_coding_system[p->outfd];
20433
a43789debf48 (read_process_output): Fix previous change, i.e, if
Kenichi Handa <handa@m17n.org>
parents: 20428
diff changeset
5418 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
5419
30580
5d92193ed196 (read_process_output): Big simplification. Handle
Kenichi Handa <handa@m17n.org>
parents: 29921
diff changeset
5420 if ((STRINGP (object) && STRING_MULTIBYTE (object))
5d92193ed196 (read_process_output): Big simplification. Handle
Kenichi Handa <handa@m17n.org>
parents: 29921
diff changeset
5421 || (BUFFERP (object)
32864
21acd0c60f5d (send_process): If OBJECT is t, it means that the data
Kenichi Handa <handa@m17n.org>
parents: 32395
diff changeset
5422 && !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
5423 || EQ (object, Qt))
31136
d1344c992a9a (create_process): Don't setup raw-text coding here.
Kenichi Handa <handa@m17n.org>
parents: 31099
diff changeset
5424 {
53472
1a5fe79d27f3 (ADAPTIVE_READ_BUFFERING): New conditional.
Kim F. Storm <storm@cua.dk>
parents: 53072
diff changeset
5425 if (!EQ (coding->symbol, p->encode_coding_system))
31136
d1344c992a9a (create_process): Don't setup raw-text coding here.
Kenichi Handa <handa@m17n.org>
parents: 31099
diff changeset
5426 /* 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
5427 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
5428 sending a multibyte text, thus we must encode it by the
53472
1a5fe79d27f3 (ADAPTIVE_READ_BUFFERING): New conditional.
Kim F. Storm <storm@cua.dk>
parents: 53072
diff changeset
5429 original coding system specified for the current process. */
1a5fe79d27f3 (ADAPTIVE_READ_BUFFERING): New conditional.
Kim F. Storm <storm@cua.dk>
parents: 53072
diff changeset
5430 setup_coding_system (p->encode_coding_system, coding);
70517
7ebead4f6646 (setup_process_coding_systems): Use system_eol_type
Kenichi Handa <handa@m17n.org>
parents: 69981
diff changeset
5431 if (coding->eol_type == CODING_EOL_UNDECIDED)
7ebead4f6646 (setup_process_coding_systems): Use system_eol_type
Kenichi Handa <handa@m17n.org>
parents: 69981
diff changeset
5432 coding->eol_type = system_eol_type;
42600
93254645e03b (send_process): Set src_multibyte to 1 after the call
Eli Zaretskii <eliz@gnu.org>
parents: 41969
diff changeset
5433 /* 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
5434 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
5435 zero. */
93254645e03b (send_process): Set src_multibyte to 1 after the call
Eli Zaretskii <eliz@gnu.org>
parents: 41969
diff changeset
5436 coding->src_multibyte = 1;
31136
d1344c992a9a (create_process): Don't setup raw-text coding here.
Kenichi Handa <handa@m17n.org>
parents: 31099
diff changeset
5437 }
d1344c992a9a (create_process): Don't setup raw-text coding here.
Kenichi Handa <handa@m17n.org>
parents: 31099
diff changeset
5438 else
d1344c992a9a (create_process): Don't setup raw-text coding here.
Kenichi Handa <handa@m17n.org>
parents: 31099
diff changeset
5439 {
32864
21acd0c60f5d (send_process): If OBJECT is t, it means that the data
Kenichi Handa <handa@m17n.org>
parents: 32395
diff changeset
5440 /* 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
5441 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
5442 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
5443 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
5444 {
21acd0c60f5d (send_process): If OBJECT is t, it means that the data
Kenichi Handa <handa@m17n.org>
parents: 32395
diff changeset
5445 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
5446 {
21acd0c60f5d (send_process): If OBJECT is t, it means that the data
Kenichi Handa <handa@m17n.org>
parents: 32395
diff changeset
5447 /* 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
5448 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
5449 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
5450 }
21acd0c60f5d (send_process): If OBJECT is t, it means that the data
Kenichi Handa <handa@m17n.org>
parents: 32395
diff changeset
5451 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
5452 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
5453 }
31136
d1344c992a9a (create_process): Don't setup raw-text coding here.
Kenichi Handa <handa@m17n.org>
parents: 31099
diff changeset
5454 }
29017
8f10362eb5ff (Fstart_process): GCPRO current_dir before calling
Kenichi Handa <handa@m17n.org>
parents: 28157
diff changeset
5455 coding->dst_multibyte = 0;
8f10362eb5ff (Fstart_process): GCPRO current_dir before calling
Kenichi Handa <handa@m17n.org>
parents: 28157
diff changeset
5456
30580
5d92193ed196 (read_process_output): Big simplification. Handle
Kenichi Handa <handa@m17n.org>
parents: 29921
diff changeset
5457 if (CODING_REQUIRE_ENCODING (coding))
17041
b61cbe595be5 Include charset.h and coding.h.
Karl Heuer <kwzh@gnu.org>
parents: 16780
diff changeset
5458 {
b61cbe595be5 Include charset.h and coding.h.
Karl Heuer <kwzh@gnu.org>
parents: 16780
diff changeset
5459 int require = encoding_buffer_size (coding, len);
31806
b148beb59511 (process_sent_to): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 31419
diff changeset
5460 int from_byte = -1, from = -1, to = -1;
17041
b61cbe595be5 Include charset.h and coding.h.
Karl Heuer <kwzh@gnu.org>
parents: 16780
diff changeset
5461
30580
5d92193ed196 (read_process_output): Big simplification. Handle
Kenichi Handa <handa@m17n.org>
parents: 29921
diff changeset
5462 if (BUFFERP (object))
17041
b61cbe595be5 Include charset.h and coding.h.
Karl Heuer <kwzh@gnu.org>
parents: 16780
diff changeset
5463 {
30580
5d92193ed196 (read_process_output): Big simplification. Handle
Kenichi Handa <handa@m17n.org>
parents: 29921
diff changeset
5464 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
5465 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
5466 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
5467 }
30580
5d92193ed196 (read_process_output): Big simplification. Handle
Kenichi Handa <handa@m17n.org>
parents: 29921
diff changeset
5468 else if (STRINGP (object))
5d92193ed196 (read_process_output): Big simplification. Handle
Kenichi Handa <handa@m17n.org>
parents: 29921
diff changeset
5469 {
46370
40db0673e6f0 Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents: 46314
diff changeset
5470 from_byte = buf - SDATA (object);
30580
5d92193ed196 (read_process_output): Big simplification. Handle
Kenichi Handa <handa@m17n.org>
parents: 29921
diff changeset
5471 from = string_byte_to_char (object, from_byte);
5d92193ed196 (read_process_output): Big simplification. Handle
Kenichi Handa <handa@m17n.org>
parents: 29921
diff changeset
5472 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
5473 }
5d92193ed196 (read_process_output): Big simplification. Handle
Kenichi Handa <handa@m17n.org>
parents: 29921
diff changeset
5474
39429
9de129194439 (send_process): Disable composition if from_byte < 0.
Gerd Moellmann <gerd@gnu.org>
parents: 39406
diff changeset
5475 if (coding->composing != COMPOSITION_DISABLED)
9de129194439 (send_process): Disable composition if from_byte < 0.
Gerd Moellmann <gerd@gnu.org>
parents: 39406
diff changeset
5476 {
9de129194439 (send_process): Disable composition if from_byte < 0.
Gerd Moellmann <gerd@gnu.org>
parents: 39406
diff changeset
5477 if (from_byte >= 0)
9de129194439 (send_process): Disable composition if from_byte < 0.
Gerd Moellmann <gerd@gnu.org>
parents: 39406
diff changeset
5478 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
5479 else
9de129194439 (send_process): Disable composition if from_byte < 0.
Gerd Moellmann <gerd@gnu.org>
parents: 39406
diff changeset
5480 coding->composing = COMPOSITION_DISABLED;
9de129194439 (send_process): Disable composition if from_byte < 0.
Gerd Moellmann <gerd@gnu.org>
parents: 39406
diff changeset
5481 }
17041
b61cbe595be5 Include charset.h and coding.h.
Karl Heuer <kwzh@gnu.org>
parents: 16780
diff changeset
5482
53472
1a5fe79d27f3 (ADAPTIVE_READ_BUFFERING): New conditional.
Kim F. Storm <storm@cua.dk>
parents: 53072
diff changeset
5483 if (SBYTES (p->encoding_buf) < require)
1a5fe79d27f3 (ADAPTIVE_READ_BUFFERING): New conditional.
Kim F. Storm <storm@cua.dk>
parents: 53072
diff changeset
5484 p->encoding_buf = make_uninit_string (require);
30580
5d92193ed196 (read_process_output): Big simplification. Handle
Kenichi Handa <handa@m17n.org>
parents: 29921
diff changeset
5485
5d92193ed196 (read_process_output): Big simplification. Handle
Kenichi Handa <handa@m17n.org>
parents: 29921
diff changeset
5486 if (from_byte >= 0)
5d92193ed196 (read_process_output): Big simplification. Handle
Kenichi Handa <handa@m17n.org>
parents: 29921
diff changeset
5487 buf = (BUFFERP (object)
5d92193ed196 (read_process_output): Big simplification. Handle
Kenichi Handa <handa@m17n.org>
parents: 29921
diff changeset
5488 ? BUF_BYTE_ADDRESS (XBUFFER (object), from_byte)
46370
40db0673e6f0 Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents: 46314
diff changeset
5489 : SDATA (object) + from_byte);
30580
5d92193ed196 (read_process_output): Big simplification. Handle
Kenichi Handa <handa@m17n.org>
parents: 29921
diff changeset
5490
53472
1a5fe79d27f3 (ADAPTIVE_READ_BUFFERING): New conditional.
Kim F. Storm <storm@cua.dk>
parents: 53072
diff changeset
5491 object = p->encoding_buf;
46370
40db0673e6f0 Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents: 46314
diff changeset
5492 encode_coding (coding, (char *) buf, SDATA (object),
40db0673e6f0 Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents: 46314
diff changeset
5493 len, SBYTES (object));
57287
d27beaf1c61c (send_process): Be sure to free composition data.
Kenichi Handa <handa@m17n.org>
parents: 56770
diff changeset
5494 coding_free_composition_data (coding);
20715
5e983ddb85c9 (Fstart_process): Use raw-text instead of emacs-mule
Kenichi Handa <handa@m17n.org>
parents: 20708
diff changeset
5495 len = coding->produced;
46370
40db0673e6f0 Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents: 46314
diff changeset
5496 buf = SDATA (object);
17041
b61cbe595be5 Include charset.h and coding.h.
Karl Heuer <kwzh@gnu.org>
parents: 16780
diff changeset
5497 }
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5498
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5499 #ifdef VMS
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5500 vs = get_vms_process_pointer (p->pid);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5501 if (vs == 0)
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5502 error ("Could not find this process: %x", p->pid);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5503 else if (write_to_vms_process (vs, buf, len))
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5504 ;
31806
b148beb59511 (process_sent_to): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 31419
diff changeset
5505 #else /* not VMS */
8063
30861f2f4f84 (send_process): Major rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 7937
diff changeset
5506
30861f2f4f84 (send_process): Major rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 7937
diff changeset
5507 if (pty_max_bytes == 0)
30861f2f4f84 (send_process): Major rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 7937
diff changeset
5508 {
30861f2f4f84 (send_process): Major rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 7937
diff changeset
5509 #if defined (HAVE_FPATHCONF) && defined (_PC_MAX_CANON)
81826
077a1e6fd3f2 (struct Lisp_Process): Turn slots infd, outfd, kill_without_query, pty_flag,
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 80984
diff changeset
5510 pty_max_bytes = fpathconf (p->outfd, _PC_MAX_CANON);
8063
30861f2f4f84 (send_process): Major rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 7937
diff changeset
5511 if (pty_max_bytes < 0)
30861f2f4f84 (send_process): Major rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 7937
diff changeset
5512 pty_max_bytes = 250;
30861f2f4f84 (send_process): Major rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 7937
diff changeset
5513 #else
30861f2f4f84 (send_process): Major rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 7937
diff changeset
5514 pty_max_bytes = 250;
30861f2f4f84 (send_process): Major rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 7937
diff changeset
5515 #endif
30861f2f4f84 (send_process): Major rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 7937
diff changeset
5516 /* Deduct one, to leave space for the eof. */
30861f2f4f84 (send_process): Major rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 7937
diff changeset
5517 pty_max_bytes--;
30861f2f4f84 (send_process): Major rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 7937
diff changeset
5518 }
30861f2f4f84 (send_process): Major rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 7937
diff changeset
5519
31806
b148beb59511 (process_sent_to): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 31419
diff changeset
5520 /* 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
5521 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
5522 when returning with longjmp despite being declared volatile. */
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5523 if (!setjmp (send_process_frame))
31806
b148beb59511 (process_sent_to): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 31419
diff changeset
5524 {
b148beb59511 (process_sent_to): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 31419
diff changeset
5525 process_sent_to = proc;
b148beb59511 (process_sent_to): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 31419
diff changeset
5526 while (len > 0)
b148beb59511 (process_sent_to): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 31419
diff changeset
5527 {
b148beb59511 (process_sent_to): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 31419
diff changeset
5528 int this = len;
b148beb59511 (process_sent_to): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 31419
diff changeset
5529
b148beb59511 (process_sent_to): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 31419
diff changeset
5530 /* 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
5531 Long lines need to be split into multiple batches. */
81826
077a1e6fd3f2 (struct Lisp_Process): Turn slots infd, outfd, kill_without_query, pty_flag,
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 80984
diff changeset
5532 if (p->pty_flag)
31806
b148beb59511 (process_sent_to): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 31419
diff changeset
5533 {
39812
66e0816837a8 Update calls to openp.
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 39429
diff changeset
5534 /* 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
5535 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
5536 It may not be correct for the first iteration
b148beb59511 (process_sent_to): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 31419
diff changeset
5537 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
5538 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
5539 in the process object. */
b148beb59511 (process_sent_to): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 31419
diff changeset
5540 int linepos = 0;
b148beb59511 (process_sent_to): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 31419
diff changeset
5541 unsigned char *ptr = (unsigned char *) buf;
b148beb59511 (process_sent_to): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 31419
diff changeset
5542 unsigned char *end = (unsigned char *) buf + len;
b148beb59511 (process_sent_to): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 31419
diff changeset
5543
b148beb59511 (process_sent_to): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 31419
diff changeset
5544 /* 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
5545 while (ptr != end && linepos < pty_max_bytes)
b148beb59511 (process_sent_to): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 31419
diff changeset
5546 {
b148beb59511 (process_sent_to): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 31419
diff changeset
5547 if (*ptr == '\n')
b148beb59511 (process_sent_to): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 31419
diff changeset
5548 linepos = 0;
b148beb59511 (process_sent_to): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 31419
diff changeset
5549 else
b148beb59511 (process_sent_to): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 31419
diff changeset
5550 linepos++;
b148beb59511 (process_sent_to): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 31419
diff changeset
5551 ptr++;
b148beb59511 (process_sent_to): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 31419
diff changeset
5552 }
b148beb59511 (process_sent_to): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 31419
diff changeset
5553 /* If we found one, break the line there
b148beb59511 (process_sent_to): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 31419
diff changeset
5554 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
5555 this = ptr - buf;
b148beb59511 (process_sent_to): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 31419
diff changeset
5556 }
b148beb59511 (process_sent_to): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 31419
diff changeset
5557
b148beb59511 (process_sent_to): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 31419
diff changeset
5558 /* Send this batch, using one or more write calls. */
b148beb59511 (process_sent_to): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 31419
diff changeset
5559 while (this > 0)
b148beb59511 (process_sent_to): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 31419
diff changeset
5560 {
81826
077a1e6fd3f2 (struct Lisp_Process): Turn slots infd, outfd, kill_without_query, pty_flag,
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 80984
diff changeset
5561 int outfd = p->outfd;
31806
b148beb59511 (process_sent_to): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 31419
diff changeset
5562 old_sigpipe = (SIGTYPE (*) ()) signal (SIGPIPE, send_process_trap);
43968
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
5563 #ifdef DATAGRAM_SOCKETS
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
5564 if (DATAGRAM_CHAN_P (outfd))
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
5565 {
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
5566 rv = sendto (outfd, (char *) buf, this,
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
5567 0, datagram_address[outfd].sa,
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
5568 datagram_address[outfd].len);
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
5569 if (rv < 0 && errno == EMSGSIZE)
62334
f9dc4e8a41fe (send_process_trap): Unblock SIGPIPE.
Richard M. Stallman <rms@gnu.org>
parents: 60892
diff changeset
5570 {
f9dc4e8a41fe (send_process_trap): Unblock SIGPIPE.
Richard M. Stallman <rms@gnu.org>
parents: 60892
diff changeset
5571 signal (SIGPIPE, old_sigpipe);
f9dc4e8a41fe (send_process_trap): Unblock SIGPIPE.
Richard M. Stallman <rms@gnu.org>
parents: 60892
diff changeset
5572 report_file_error ("sending datagram",
f9dc4e8a41fe (send_process_trap): Unblock SIGPIPE.
Richard M. Stallman <rms@gnu.org>
parents: 60892
diff changeset
5573 Fcons (proc, Qnil));
f9dc4e8a41fe (send_process_trap): Unblock SIGPIPE.
Richard M. Stallman <rms@gnu.org>
parents: 60892
diff changeset
5574 }
43968
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
5575 }
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
5576 else
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
5577 #endif
53472
1a5fe79d27f3 (ADAPTIVE_READ_BUFFERING): New conditional.
Kim F. Storm <storm@cua.dk>
parents: 53072
diff changeset
5578 {
1a5fe79d27f3 (ADAPTIVE_READ_BUFFERING): New conditional.
Kim F. Storm <storm@cua.dk>
parents: 53072
diff changeset
5579 rv = emacs_write (outfd, (char *) buf, this);
1a5fe79d27f3 (ADAPTIVE_READ_BUFFERING): New conditional.
Kim F. Storm <storm@cua.dk>
parents: 53072
diff changeset
5580 #ifdef ADAPTIVE_READ_BUFFERING
81826
077a1e6fd3f2 (struct Lisp_Process): Turn slots infd, outfd, kill_without_query, pty_flag,
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 80984
diff changeset
5581 if (p->read_output_delay > 0
077a1e6fd3f2 (struct Lisp_Process): Turn slots infd, outfd, kill_without_query, pty_flag,
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 80984
diff changeset
5582 && p->adaptive_read_buffering == 1)
53472
1a5fe79d27f3 (ADAPTIVE_READ_BUFFERING): New conditional.
Kim F. Storm <storm@cua.dk>
parents: 53072
diff changeset
5583 {
81826
077a1e6fd3f2 (struct Lisp_Process): Turn slots infd, outfd, kill_without_query, pty_flag,
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 80984
diff changeset
5584 p->read_output_delay = 0;
53472
1a5fe79d27f3 (ADAPTIVE_READ_BUFFERING): New conditional.
Kim F. Storm <storm@cua.dk>
parents: 53072
diff changeset
5585 process_output_delay_count--;
81826
077a1e6fd3f2 (struct Lisp_Process): Turn slots infd, outfd, kill_without_query, pty_flag,
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 80984
diff changeset
5586 p->read_output_skip = 0;
53472
1a5fe79d27f3 (ADAPTIVE_READ_BUFFERING): New conditional.
Kim F. Storm <storm@cua.dk>
parents: 53072
diff changeset
5587 }
1a5fe79d27f3 (ADAPTIVE_READ_BUFFERING): New conditional.
Kim F. Storm <storm@cua.dk>
parents: 53072
diff changeset
5588 #endif
1a5fe79d27f3 (ADAPTIVE_READ_BUFFERING): New conditional.
Kim F. Storm <storm@cua.dk>
parents: 53072
diff changeset
5589 }
31806
b148beb59511 (process_sent_to): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 31419
diff changeset
5590 signal (SIGPIPE, old_sigpipe);
b148beb59511 (process_sent_to): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 31419
diff changeset
5591
b148beb59511 (process_sent_to): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 31419
diff changeset
5592 if (rv < 0)
b148beb59511 (process_sent_to): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 31419
diff changeset
5593 {
b148beb59511 (process_sent_to): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 31419
diff changeset
5594 if (0
8063
30861f2f4f84 (send_process): Major rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 7937
diff changeset
5595 #ifdef EWOULDBLOCK
31806
b148beb59511 (process_sent_to): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 31419
diff changeset
5596 || errno == EWOULDBLOCK
6158
6b81b2575071 Include unistd.h.
Richard M. Stallman <rms@gnu.org>
parents: 5891
diff changeset
5597 #endif
8063
30861f2f4f84 (send_process): Major rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 7937
diff changeset
5598 #ifdef EAGAIN
31806
b148beb59511 (process_sent_to): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 31419
diff changeset
5599 || errno == EAGAIN
8063
30861f2f4f84 (send_process): Major rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 7937
diff changeset
5600 #endif
31806
b148beb59511 (process_sent_to): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 31419
diff changeset
5601 )
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 49281
diff changeset
5602 /* Buffer is full. Wait, accepting input;
31806
b148beb59511 (process_sent_to): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 31419
diff changeset
5603 that may allow the program
b148beb59511 (process_sent_to): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 31419
diff changeset
5604 to finish doing output and read more. */
b148beb59511 (process_sent_to): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 31419
diff changeset
5605 {
b148beb59511 (process_sent_to): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 31419
diff changeset
5606 int offset = 0;
8063
30861f2f4f84 (send_process): Major rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 7937
diff changeset
5607
27705
2c53eb482802 (send_process) [BROKEN_PTY_READ_AFTER_EAGAIN]:
Gerd Moellmann <gerd@gnu.org>
parents: 27669
diff changeset
5608 #ifdef BROKEN_PTY_READ_AFTER_EAGAIN
31806
b148beb59511 (process_sent_to): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 31419
diff changeset
5609 /* 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
5610 In the following sequence, read(2) returns
b148beb59511 (process_sent_to): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 31419
diff changeset
5611 bogus data:
b148beb59511 (process_sent_to): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 31419
diff changeset
5612
b148beb59511 (process_sent_to): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 31419
diff changeset
5613 write(2) 1022 bytes
b148beb59511 (process_sent_to): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 31419
diff changeset
5614 write(2) 954 bytes, get EAGAIN
b148beb59511 (process_sent_to): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 31419
diff changeset
5615 read(2) 1024 bytes in process_read_output
b148beb59511 (process_sent_to): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 31419
diff changeset
5616 read(2) 11 bytes in process_read_output
b148beb59511 (process_sent_to): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 31419
diff changeset
5617
b148beb59511 (process_sent_to): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 31419
diff changeset
5618 That is, read(2) returns more bytes than have
b148beb59511 (process_sent_to): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 31419
diff changeset
5619 ever been written successfully. The 1033 bytes
b148beb59511 (process_sent_to): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 31419
diff changeset
5620 read are the 1022 bytes written successfully
b148beb59511 (process_sent_to): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 31419
diff changeset
5621 after processing (for example with CRs added if
b148beb59511 (process_sent_to): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 31419
diff changeset
5622 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
5623 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
5624 later read(2), without the CRs. */
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 49281
diff changeset
5625
31806
b148beb59511 (process_sent_to): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 31419
diff changeset
5626 if (errno == EAGAIN)
b148beb59511 (process_sent_to): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 31419
diff changeset
5627 {
b148beb59511 (process_sent_to): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 31419
diff changeset
5628 int flags = FWRITE;
81826
077a1e6fd3f2 (struct Lisp_Process): Turn slots infd, outfd, kill_without_query, pty_flag,
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 80984
diff changeset
5629 ioctl (p->outfd, TIOCFLUSH, &flags);
31806
b148beb59511 (process_sent_to): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 31419
diff changeset
5630 }
27705
2c53eb482802 (send_process) [BROKEN_PTY_READ_AFTER_EAGAIN]:
Gerd Moellmann <gerd@gnu.org>
parents: 27669
diff changeset
5631 #endif /* BROKEN_PTY_READ_AFTER_EAGAIN */
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 49281
diff changeset
5632
31806
b148beb59511 (process_sent_to): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 31419
diff changeset
5633 /* Running filters might relocate buffers or strings.
b148beb59511 (process_sent_to): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 31419
diff changeset
5634 Arrange to relocate BUF. */
b148beb59511 (process_sent_to): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 31419
diff changeset
5635 if (BUFFERP (object))
b148beb59511 (process_sent_to): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 31419
diff changeset
5636 offset = BUF_PTR_BYTE_POS (XBUFFER (object), buf);
b148beb59511 (process_sent_to): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 31419
diff changeset
5637 else if (STRINGP (object))
46370
40db0673e6f0 Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents: 46314
diff changeset
5638 offset = buf - SDATA (object);
31806
b148beb59511 (process_sent_to): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 31419
diff changeset
5639
16718
ea26040865cb (send_process) [EMACS_HAS_USECS]:
Richard M. Stallman <rms@gnu.org>
parents: 16644
diff changeset
5640 #ifdef EMACS_HAS_USECS
56728
1686b397ef16 (wait_reading_process_output): Rename from
Kim F. Storm <storm@cua.dk>
parents: 56716
diff changeset
5641 wait_reading_process_output (0, 20000, 0, 0, Qnil, NULL, 0);
16718
ea26040865cb (send_process) [EMACS_HAS_USECS]:
Richard M. Stallman <rms@gnu.org>
parents: 16644
diff changeset
5642 #else
56728
1686b397ef16 (wait_reading_process_output): Rename from
Kim F. Storm <storm@cua.dk>
parents: 56716
diff changeset
5643 wait_reading_process_output (1, 0, 0, 0, Qnil, NULL, 0);
16718
ea26040865cb (send_process) [EMACS_HAS_USECS]:
Richard M. Stallman <rms@gnu.org>
parents: 16644
diff changeset
5644 #endif
8063
30861f2f4f84 (send_process): Major rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 7937
diff changeset
5645
31806
b148beb59511 (process_sent_to): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 31419
diff changeset
5646 if (BUFFERP (object))
b148beb59511 (process_sent_to): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 31419
diff changeset
5647 buf = BUF_BYTE_ADDRESS (XBUFFER (object), offset);
b148beb59511 (process_sent_to): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 31419
diff changeset
5648 else if (STRINGP (object))
46370
40db0673e6f0 Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents: 46314
diff changeset
5649 buf = offset + SDATA (object);
31806
b148beb59511 (process_sent_to): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 31419
diff changeset
5650
b148beb59511 (process_sent_to): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 31419
diff changeset
5651 rv = 0;
b148beb59511 (process_sent_to): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 31419
diff changeset
5652 }
b148beb59511 (process_sent_to): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 31419
diff changeset
5653 else
b148beb59511 (process_sent_to): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 31419
diff changeset
5654 /* This is a real error. */
b148beb59511 (process_sent_to): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 31419
diff changeset
5655 report_file_error ("writing to process", Fcons (proc, Qnil));
b148beb59511 (process_sent_to): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 31419
diff changeset
5656 }
b148beb59511 (process_sent_to): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 31419
diff changeset
5657 buf += rv;
b148beb59511 (process_sent_to): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 31419
diff changeset
5658 len -= rv;
b148beb59511 (process_sent_to): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 31419
diff changeset
5659 this -= rv;
b148beb59511 (process_sent_to): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 31419
diff changeset
5660 }
b148beb59511 (process_sent_to): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 31419
diff changeset
5661
b148beb59511 (process_sent_to): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 31419
diff changeset
5662 /* 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
5663 to force it through, before we send the rest. */
b148beb59511 (process_sent_to): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 31419
diff changeset
5664 if (len > 0)
b148beb59511 (process_sent_to): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 31419
diff changeset
5665 Fprocess_send_eof (proc);
b148beb59511 (process_sent_to): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 31419
diff changeset
5666 }
b148beb59511 (process_sent_to): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 31419
diff changeset
5667 }
b148beb59511 (process_sent_to): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 31419
diff changeset
5668 #endif /* not VMS */
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5669 else
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5670 {
62581
7f6a053bbca4 (send_process): Restore the SIGPIPE handler if we catch a SIGPIPE.
Eli Zaretskii <eliz@gnu.org>
parents: 62334
diff changeset
5671 signal (SIGPIPE, old_sigpipe);
31806
b148beb59511 (process_sent_to): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 31419
diff changeset
5672 #ifndef VMS
b148beb59511 (process_sent_to): New variable.
Gerd Moellmann <gerd@gnu.org>
parents: 31419
diff changeset
5673 proc = process_sent_to;
53472
1a5fe79d27f3 (ADAPTIVE_READ_BUFFERING): New conditional.
Kim F. Storm <storm@cua.dk>
parents: 53072
diff changeset
5674 p = XPROCESS (proc);
1a5fe79d27f3 (ADAPTIVE_READ_BUFFERING): New conditional.
Kim F. Storm <storm@cua.dk>
parents: 53072
diff changeset
5675 #endif
69873
2d844bbbccd4 * process.h (struct Lisp_Process): Replace Lisp_Objects `pid',
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 69634
diff changeset
5676 p->raw_status_new = 0;
53472
1a5fe79d27f3 (ADAPTIVE_READ_BUFFERING): New conditional.
Kim F. Storm <storm@cua.dk>
parents: 53072
diff changeset
5677 p->status = Fcons (Qexit, Fcons (make_number (256), Qnil));
81826
077a1e6fd3f2 (struct Lisp_Process): Turn slots infd, outfd, kill_without_query, pty_flag,
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 80984
diff changeset
5678 p->tick = ++process_tick;
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5679 deactivate_process (proc);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5680 #ifdef VMS
53472
1a5fe79d27f3 (ADAPTIVE_READ_BUFFERING): New conditional.
Kim F. Storm <storm@cua.dk>
parents: 53072
diff changeset
5681 error ("Error writing to process %s; closed it", SDATA (p->name));
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5682 #else
53472
1a5fe79d27f3 (ADAPTIVE_READ_BUFFERING): New conditional.
Kim F. Storm <storm@cua.dk>
parents: 53072
diff changeset
5683 error ("SIGPIPE raised on process %s; closed it", SDATA (p->name));
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5684 #endif
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5685 }
15895
85112cca0b22 (send_process): GCPRO object.
Richard M. Stallman <rms@gnu.org>
parents: 15717
diff changeset
5686
85112cca0b22 (send_process): GCPRO object.
Richard M. Stallman <rms@gnu.org>
parents: 15717
diff changeset
5687 UNGCPRO;
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5688 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5689
76088
8e93fec28139 (send_process_object_unwind): New function.
Kenichi Handa <handa@m17n.org>
parents: 75348
diff changeset
5690 static Lisp_Object
8e93fec28139 (send_process_object_unwind): New function.
Kenichi Handa <handa@m17n.org>
parents: 75348
diff changeset
5691 send_process_object_unwind (buf)
8e93fec28139 (send_process_object_unwind): New function.
Kenichi Handa <handa@m17n.org>
parents: 75348
diff changeset
5692 Lisp_Object buf;
8e93fec28139 (send_process_object_unwind): New function.
Kenichi Handa <handa@m17n.org>
parents: 75348
diff changeset
5693 {
8e93fec28139 (send_process_object_unwind): New function.
Kenichi Handa <handa@m17n.org>
parents: 75348
diff changeset
5694 Lisp_Object tembuf;
8e93fec28139 (send_process_object_unwind): New function.
Kenichi Handa <handa@m17n.org>
parents: 75348
diff changeset
5695
8e93fec28139 (send_process_object_unwind): New function.
Kenichi Handa <handa@m17n.org>
parents: 75348
diff changeset
5696 if (XBUFFER (buf) == current_buffer)
8e93fec28139 (send_process_object_unwind): New function.
Kenichi Handa <handa@m17n.org>
parents: 75348
diff changeset
5697 return Qnil;
8e93fec28139 (send_process_object_unwind): New function.
Kenichi Handa <handa@m17n.org>
parents: 75348
diff changeset
5698 tembuf = Fcurrent_buffer ();
8e93fec28139 (send_process_object_unwind): New function.
Kenichi Handa <handa@m17n.org>
parents: 75348
diff changeset
5699 Fset_buffer (buf);
8e93fec28139 (send_process_object_unwind): New function.
Kenichi Handa <handa@m17n.org>
parents: 75348
diff changeset
5700 Fkill_buffer (tembuf);
8e93fec28139 (send_process_object_unwind): New function.
Kenichi Handa <handa@m17n.org>
parents: 75348
diff changeset
5701 return Qnil;
8e93fec28139 (send_process_object_unwind): New function.
Kenichi Handa <handa@m17n.org>
parents: 75348
diff changeset
5702 }
8e93fec28139 (send_process_object_unwind): New function.
Kenichi Handa <handa@m17n.org>
parents: 75348
diff changeset
5703
8e93fec28139 (send_process_object_unwind): New function.
Kenichi Handa <handa@m17n.org>
parents: 75348
diff changeset
5704 /* Send current contents of region between START and END to PROC.
8e93fec28139 (send_process_object_unwind): New function.
Kenichi Handa <handa@m17n.org>
parents: 75348
diff changeset
5705 If START is a string, send it instead.
8e93fec28139 (send_process_object_unwind): New function.
Kenichi Handa <handa@m17n.org>
parents: 75348
diff changeset
5706 This function can evaluate Lisp code and can garbage collect. */
8e93fec28139 (send_process_object_unwind): New function.
Kenichi Handa <handa@m17n.org>
parents: 75348
diff changeset
5707
8e93fec28139 (send_process_object_unwind): New function.
Kenichi Handa <handa@m17n.org>
parents: 75348
diff changeset
5708 static void
8e93fec28139 (send_process_object_unwind): New function.
Kenichi Handa <handa@m17n.org>
parents: 75348
diff changeset
5709 send_process_object (proc, start, end)
8e93fec28139 (send_process_object_unwind): New function.
Kenichi Handa <handa@m17n.org>
parents: 75348
diff changeset
5710 Lisp_Object proc, start, end;
8e93fec28139 (send_process_object_unwind): New function.
Kenichi Handa <handa@m17n.org>
parents: 75348
diff changeset
5711 {
8e93fec28139 (send_process_object_unwind): New function.
Kenichi Handa <handa@m17n.org>
parents: 75348
diff changeset
5712 int count = SPECPDL_INDEX ();
8e93fec28139 (send_process_object_unwind): New function.
Kenichi Handa <handa@m17n.org>
parents: 75348
diff changeset
5713 Lisp_Object object = STRINGP (start) ? start : Fcurrent_buffer ();
8e93fec28139 (send_process_object_unwind): New function.
Kenichi Handa <handa@m17n.org>
parents: 75348
diff changeset
5714 struct buffer *given_buffer = current_buffer;
8e93fec28139 (send_process_object_unwind): New function.
Kenichi Handa <handa@m17n.org>
parents: 75348
diff changeset
5715 unsigned char *buf;
8e93fec28139 (send_process_object_unwind): New function.
Kenichi Handa <handa@m17n.org>
parents: 75348
diff changeset
5716 int len;
8e93fec28139 (send_process_object_unwind): New function.
Kenichi Handa <handa@m17n.org>
parents: 75348
diff changeset
5717
8e93fec28139 (send_process_object_unwind): New function.
Kenichi Handa <handa@m17n.org>
parents: 75348
diff changeset
5718 record_unwind_protect (send_process_object_unwind, Fcurrent_buffer ());
8e93fec28139 (send_process_object_unwind): New function.
Kenichi Handa <handa@m17n.org>
parents: 75348
diff changeset
5719
8e93fec28139 (send_process_object_unwind): New function.
Kenichi Handa <handa@m17n.org>
parents: 75348
diff changeset
5720 if (STRINGP (object) ? STRING_MULTIBYTE (object)
8e93fec28139 (send_process_object_unwind): New function.
Kenichi Handa <handa@m17n.org>
parents: 75348
diff changeset
5721 : ! NILP (XBUFFER (object)->enable_multibyte_characters))
8e93fec28139 (send_process_object_unwind): New function.
Kenichi Handa <handa@m17n.org>
parents: 75348
diff changeset
5722 {
8e93fec28139 (send_process_object_unwind): New function.
Kenichi Handa <handa@m17n.org>
parents: 75348
diff changeset
5723 struct Lisp_Process *p = XPROCESS (proc);
76249
9e2414dc2556 (send_process_object): Check the process status and
Kenichi Handa <handa@m17n.org>
parents: 76088
diff changeset
5724 struct coding_system *coding;
9e2414dc2556 (send_process_object): Check the process status and
Kenichi Handa <handa@m17n.org>
parents: 76088
diff changeset
5725
9e2414dc2556 (send_process_object): Check the process status and
Kenichi Handa <handa@m17n.org>
parents: 76088
diff changeset
5726 if (p->raw_status_new)
9e2414dc2556 (send_process_object): Check the process status and
Kenichi Handa <handa@m17n.org>
parents: 76088
diff changeset
5727 update_status (p);
9e2414dc2556 (send_process_object): Check the process status and
Kenichi Handa <handa@m17n.org>
parents: 76088
diff changeset
5728 if (! EQ (p->status, Qrun))
9e2414dc2556 (send_process_object): Check the process status and
Kenichi Handa <handa@m17n.org>
parents: 76088
diff changeset
5729 error ("Process %s not running", SDATA (p->name));
81826
077a1e6fd3f2 (struct Lisp_Process): Turn slots infd, outfd, kill_without_query, pty_flag,
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 80984
diff changeset
5730 if (p->outfd < 0)
76249
9e2414dc2556 (send_process_object): Check the process status and
Kenichi Handa <handa@m17n.org>
parents: 76088
diff changeset
5731 error ("Output file descriptor of %s is closed", SDATA (p->name));
9e2414dc2556 (send_process_object): Check the process status and
Kenichi Handa <handa@m17n.org>
parents: 76088
diff changeset
5732
81826
077a1e6fd3f2 (struct Lisp_Process): Turn slots infd, outfd, kill_without_query, pty_flag,
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 80984
diff changeset
5733 coding = proc_encode_coding_system[p->outfd];
76088
8e93fec28139 (send_process_object_unwind): New function.
Kenichi Handa <handa@m17n.org>
parents: 75348
diff changeset
5734 if (! EQ (coding->symbol, p->encode_coding_system))
8e93fec28139 (send_process_object_unwind): New function.
Kenichi Handa <handa@m17n.org>
parents: 75348
diff changeset
5735 /* The coding system for encoding was changed to raw-text
8e93fec28139 (send_process_object_unwind): New function.
Kenichi Handa <handa@m17n.org>
parents: 75348
diff changeset
5736 because we sent a unibyte text previously. Now we are
8e93fec28139 (send_process_object_unwind): New function.
Kenichi Handa <handa@m17n.org>
parents: 75348
diff changeset
5737 sending a multibyte text, thus we must encode it by the
8e93fec28139 (send_process_object_unwind): New function.
Kenichi Handa <handa@m17n.org>
parents: 75348
diff changeset
5738 original coding system specified for the current process. */
8e93fec28139 (send_process_object_unwind): New function.
Kenichi Handa <handa@m17n.org>
parents: 75348
diff changeset
5739 setup_coding_system (p->encode_coding_system, coding);
8e93fec28139 (send_process_object_unwind): New function.
Kenichi Handa <handa@m17n.org>
parents: 75348
diff changeset
5740 if (! NILP (coding->pre_write_conversion))
8e93fec28139 (send_process_object_unwind): New function.
Kenichi Handa <handa@m17n.org>
parents: 75348
diff changeset
5741 {
8e93fec28139 (send_process_object_unwind): New function.
Kenichi Handa <handa@m17n.org>
parents: 75348
diff changeset
5742 struct gcpro gcpro1, gcpro2;
8e93fec28139 (send_process_object_unwind): New function.
Kenichi Handa <handa@m17n.org>
parents: 75348
diff changeset
5743
8e93fec28139 (send_process_object_unwind): New function.
Kenichi Handa <handa@m17n.org>
parents: 75348
diff changeset
5744 GCPRO2 (proc, object);
8e93fec28139 (send_process_object_unwind): New function.
Kenichi Handa <handa@m17n.org>
parents: 75348
diff changeset
5745 call2 (coding->pre_write_conversion, start, end);
8e93fec28139 (send_process_object_unwind): New function.
Kenichi Handa <handa@m17n.org>
parents: 75348
diff changeset
5746 UNGCPRO;
8e93fec28139 (send_process_object_unwind): New function.
Kenichi Handa <handa@m17n.org>
parents: 75348
diff changeset
5747 if (given_buffer != current_buffer)
8e93fec28139 (send_process_object_unwind): New function.
Kenichi Handa <handa@m17n.org>
parents: 75348
diff changeset
5748 {
8e93fec28139 (send_process_object_unwind): New function.
Kenichi Handa <handa@m17n.org>
parents: 75348
diff changeset
5749 start = make_number (BEGV), end = make_number (ZV);
8e93fec28139 (send_process_object_unwind): New function.
Kenichi Handa <handa@m17n.org>
parents: 75348
diff changeset
5750 object = Fcurrent_buffer ();
8e93fec28139 (send_process_object_unwind): New function.
Kenichi Handa <handa@m17n.org>
parents: 75348
diff changeset
5751 }
8e93fec28139 (send_process_object_unwind): New function.
Kenichi Handa <handa@m17n.org>
parents: 75348
diff changeset
5752 }
8e93fec28139 (send_process_object_unwind): New function.
Kenichi Handa <handa@m17n.org>
parents: 75348
diff changeset
5753 }
8e93fec28139 (send_process_object_unwind): New function.
Kenichi Handa <handa@m17n.org>
parents: 75348
diff changeset
5754
8e93fec28139 (send_process_object_unwind): New function.
Kenichi Handa <handa@m17n.org>
parents: 75348
diff changeset
5755 if (BUFFERP (object))
8e93fec28139 (send_process_object_unwind): New function.
Kenichi Handa <handa@m17n.org>
parents: 75348
diff changeset
5756 {
8e93fec28139 (send_process_object_unwind): New function.
Kenichi Handa <handa@m17n.org>
parents: 75348
diff changeset
5757 EMACS_INT start_byte;
8e93fec28139 (send_process_object_unwind): New function.
Kenichi Handa <handa@m17n.org>
parents: 75348
diff changeset
5758
8e93fec28139 (send_process_object_unwind): New function.
Kenichi Handa <handa@m17n.org>
parents: 75348
diff changeset
5759 if (XINT (start) < GPT && XINT (end) > GPT)
8e93fec28139 (send_process_object_unwind): New function.
Kenichi Handa <handa@m17n.org>
parents: 75348
diff changeset
5760 move_gap (XINT (end));
8e93fec28139 (send_process_object_unwind): New function.
Kenichi Handa <handa@m17n.org>
parents: 75348
diff changeset
5761 start_byte = CHAR_TO_BYTE (XINT (start));
8e93fec28139 (send_process_object_unwind): New function.
Kenichi Handa <handa@m17n.org>
parents: 75348
diff changeset
5762 buf = BYTE_POS_ADDR (start_byte);
8e93fec28139 (send_process_object_unwind): New function.
Kenichi Handa <handa@m17n.org>
parents: 75348
diff changeset
5763 len = CHAR_TO_BYTE (XINT (end)) - start_byte;
8e93fec28139 (send_process_object_unwind): New function.
Kenichi Handa <handa@m17n.org>
parents: 75348
diff changeset
5764 }
8e93fec28139 (send_process_object_unwind): New function.
Kenichi Handa <handa@m17n.org>
parents: 75348
diff changeset
5765 else
8e93fec28139 (send_process_object_unwind): New function.
Kenichi Handa <handa@m17n.org>
parents: 75348
diff changeset
5766 {
8e93fec28139 (send_process_object_unwind): New function.
Kenichi Handa <handa@m17n.org>
parents: 75348
diff changeset
5767 buf = SDATA (object);
8e93fec28139 (send_process_object_unwind): New function.
Kenichi Handa <handa@m17n.org>
parents: 75348
diff changeset
5768 len = SBYTES (object);
8e93fec28139 (send_process_object_unwind): New function.
Kenichi Handa <handa@m17n.org>
parents: 75348
diff changeset
5769 }
8e93fec28139 (send_process_object_unwind): New function.
Kenichi Handa <handa@m17n.org>
parents: 75348
diff changeset
5770 send_process (proc, buf, len, object);
8e93fec28139 (send_process_object_unwind): New function.
Kenichi Handa <handa@m17n.org>
parents: 75348
diff changeset
5771
8e93fec28139 (send_process_object_unwind): New function.
Kenichi Handa <handa@m17n.org>
parents: 75348
diff changeset
5772 unbind_to (count, Qnil);
8e93fec28139 (send_process_object_unwind): New function.
Kenichi Handa <handa@m17n.org>
parents: 75348
diff changeset
5773 }
8e93fec28139 (send_process_object_unwind): New function.
Kenichi Handa <handa@m17n.org>
parents: 75348
diff changeset
5774
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5775 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
5776 3, 3, 0,
6b389fb978bc Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
5777 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
5778 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
5779 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
5780 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
5781 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
5782 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
5783 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
5784 (process, start, end)
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5785 Lisp_Object process, start, end;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5786 {
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5787 Lisp_Object proc;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5788
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5789 proc = get_process (process);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5790 validate_region (&start, &end);
76088
8e93fec28139 (send_process_object_unwind): New function.
Kenichi Handa <handa@m17n.org>
parents: 75348
diff changeset
5791 send_process_object (proc, start, end);
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5792 return Qnil;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5793 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5794
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5795 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
5796 2, 2, 0,
6b389fb978bc Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
5797 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
5798 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
5799 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
5800 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
5801 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
5802 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
5803 (process, string)
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5804 Lisp_Object process, string;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5805 {
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5806 Lisp_Object proc;
40656
cdfd4d09b79a Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents: 40641
diff changeset
5807 CHECK_STRING (string);
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5808 proc = get_process (process);
76088
8e93fec28139 (send_process_object_unwind): New function.
Kenichi Handa <handa@m17n.org>
parents: 75348
diff changeset
5809 send_process_object (proc, string, Qnil);
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5810 return Qnil;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5811 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5812
49903
6dc5bfe9589b Removed subtty, workaround for when TIOCSIGSEND fails.
Jan Djärv <jan.h.d@swipnet.se>
parents: 49894
diff changeset
5813 /* Return the foreground process group for the tty/pty that
6dc5bfe9589b Removed subtty, workaround for when TIOCSIGSEND fails.
Jan Djärv <jan.h.d@swipnet.se>
parents: 49894
diff changeset
5814 the process P uses. */
6dc5bfe9589b Removed subtty, workaround for when TIOCSIGSEND fails.
Jan Djärv <jan.h.d@swipnet.se>
parents: 49894
diff changeset
5815 static int
6dc5bfe9589b Removed subtty, workaround for when TIOCSIGSEND fails.
Jan Djärv <jan.h.d@swipnet.se>
parents: 49894
diff changeset
5816 emacs_get_tty_pgrp (p)
6dc5bfe9589b Removed subtty, workaround for when TIOCSIGSEND fails.
Jan Djärv <jan.h.d@swipnet.se>
parents: 49894
diff changeset
5817 struct Lisp_Process *p;
6dc5bfe9589b Removed subtty, workaround for when TIOCSIGSEND fails.
Jan Djärv <jan.h.d@swipnet.se>
parents: 49894
diff changeset
5818 {
6dc5bfe9589b Removed subtty, workaround for when TIOCSIGSEND fails.
Jan Djärv <jan.h.d@swipnet.se>
parents: 49894
diff changeset
5819 int gid = -1;
6dc5bfe9589b Removed subtty, workaround for when TIOCSIGSEND fails.
Jan Djärv <jan.h.d@swipnet.se>
parents: 49894
diff changeset
5820
55444
976d03256b41 (Fwaiting_for_user_input_p, Fmake_network_process)
Juanma Barranquero <lekktu@gmail.com>
parents: 53835
diff changeset
5821 #ifdef TIOCGPGRP
81826
077a1e6fd3f2 (struct Lisp_Process): Turn slots infd, outfd, kill_without_query, pty_flag,
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 80984
diff changeset
5822 if (ioctl (p->infd, TIOCGPGRP, &gid) == -1 && ! NILP (p->tty_name))
49903
6dc5bfe9589b Removed subtty, workaround for when TIOCSIGSEND fails.
Jan Djärv <jan.h.d@swipnet.se>
parents: 49894
diff changeset
5823 {
6dc5bfe9589b Removed subtty, workaround for when TIOCSIGSEND fails.
Jan Djärv <jan.h.d@swipnet.se>
parents: 49894
diff changeset
5824 int fd;
6dc5bfe9589b Removed subtty, workaround for when TIOCSIGSEND fails.
Jan Djärv <jan.h.d@swipnet.se>
parents: 49894
diff changeset
5825 /* Some OS:es (Solaris 8/9) does not allow TIOCGPGRP from the
6dc5bfe9589b Removed subtty, workaround for when TIOCSIGSEND fails.
Jan Djärv <jan.h.d@swipnet.se>
parents: 49894
diff changeset
5826 master side. Try the slave side. */
6dc5bfe9589b Removed subtty, workaround for when TIOCSIGSEND fails.
Jan Djärv <jan.h.d@swipnet.se>
parents: 49894
diff changeset
5827 fd = emacs_open (XSTRING (p->tty_name)->data, O_RDONLY, 0);
6dc5bfe9589b Removed subtty, workaround for when TIOCSIGSEND fails.
Jan Djärv <jan.h.d@swipnet.se>
parents: 49894
diff changeset
5828
6dc5bfe9589b Removed subtty, workaround for when TIOCSIGSEND fails.
Jan Djärv <jan.h.d@swipnet.se>
parents: 49894
diff changeset
5829 if (fd != -1)
6dc5bfe9589b Removed subtty, workaround for when TIOCSIGSEND fails.
Jan Djärv <jan.h.d@swipnet.se>
parents: 49894
diff changeset
5830 {
6dc5bfe9589b Removed subtty, workaround for when TIOCSIGSEND fails.
Jan Djärv <jan.h.d@swipnet.se>
parents: 49894
diff changeset
5831 ioctl (fd, TIOCGPGRP, &gid);
6dc5bfe9589b Removed subtty, workaround for when TIOCSIGSEND fails.
Jan Djärv <jan.h.d@swipnet.se>
parents: 49894
diff changeset
5832 emacs_close (fd);
6dc5bfe9589b Removed subtty, workaround for when TIOCSIGSEND fails.
Jan Djärv <jan.h.d@swipnet.se>
parents: 49894
diff changeset
5833 }
6dc5bfe9589b Removed subtty, workaround for when TIOCSIGSEND fails.
Jan Djärv <jan.h.d@swipnet.se>
parents: 49894
diff changeset
5834 }
6dc5bfe9589b Removed subtty, workaround for when TIOCSIGSEND fails.
Jan Djärv <jan.h.d@swipnet.se>
parents: 49894
diff changeset
5835 #endif /* defined (TIOCGPGRP ) */
6dc5bfe9589b Removed subtty, workaround for when TIOCSIGSEND fails.
Jan Djärv <jan.h.d@swipnet.se>
parents: 49894
diff changeset
5836
6dc5bfe9589b Removed subtty, workaround for when TIOCSIGSEND fails.
Jan Djärv <jan.h.d@swipnet.se>
parents: 49894
diff changeset
5837 return gid;
6dc5bfe9589b Removed subtty, workaround for when TIOCSIGSEND fails.
Jan Djärv <jan.h.d@swipnet.se>
parents: 49894
diff changeset
5838 }
6dc5bfe9589b Removed subtty, workaround for when TIOCSIGSEND fails.
Jan Djärv <jan.h.d@swipnet.se>
parents: 49894
diff changeset
5839
24352
023601636a18 (syms_of_process): defsubr it.
Richard M. Stallman <rms@gnu.org>
parents: 23930
diff changeset
5840 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
5841 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
5842 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
5843 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
5844 return t unconditionally. */)
6b389fb978bc Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
5845 (process)
24352
023601636a18 (syms_of_process): defsubr it.
Richard M. Stallman <rms@gnu.org>
parents: 23930
diff changeset
5846 Lisp_Object process;
023601636a18 (syms_of_process): defsubr it.
Richard M. Stallman <rms@gnu.org>
parents: 23930
diff changeset
5847 {
023601636a18 (syms_of_process): defsubr it.
Richard M. Stallman <rms@gnu.org>
parents: 23930
diff changeset
5848 /* 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
5849 in a way that will cause returning t. */
49903
6dc5bfe9589b Removed subtty, workaround for when TIOCSIGSEND fails.
Jan Djärv <jan.h.d@swipnet.se>
parents: 49894
diff changeset
5850 int gid;
24352
023601636a18 (syms_of_process): defsubr it.
Richard M. Stallman <rms@gnu.org>
parents: 23930
diff changeset
5851 Lisp_Object proc;
023601636a18 (syms_of_process): defsubr it.
Richard M. Stallman <rms@gnu.org>
parents: 23930
diff changeset
5852 struct Lisp_Process *p;
023601636a18 (syms_of_process): defsubr it.
Richard M. Stallman <rms@gnu.org>
parents: 23930
diff changeset
5853
023601636a18 (syms_of_process): defsubr it.
Richard M. Stallman <rms@gnu.org>
parents: 23930
diff changeset
5854 proc = get_process (process);
023601636a18 (syms_of_process): defsubr it.
Richard M. Stallman <rms@gnu.org>
parents: 23930
diff changeset
5855 p = XPROCESS (proc);
023601636a18 (syms_of_process): defsubr it.
Richard M. Stallman <rms@gnu.org>
parents: 23930
diff changeset
5856
023601636a18 (syms_of_process): defsubr it.
Richard M. Stallman <rms@gnu.org>
parents: 23930
diff changeset
5857 if (!EQ (p->childp, Qt))
023601636a18 (syms_of_process): defsubr it.
Richard M. Stallman <rms@gnu.org>
parents: 23930
diff changeset
5858 error ("Process %s is not a subprocess",
46370
40db0673e6f0 Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents: 46314
diff changeset
5859 SDATA (p->name));
81826
077a1e6fd3f2 (struct Lisp_Process): Turn slots infd, outfd, kill_without_query, pty_flag,
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 80984
diff changeset
5860 if (p->infd < 0)
24352
023601636a18 (syms_of_process): defsubr it.
Richard M. Stallman <rms@gnu.org>
parents: 23930
diff changeset
5861 error ("Process %s is not active",
46370
40db0673e6f0 Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents: 46314
diff changeset
5862 SDATA (p->name));
24352
023601636a18 (syms_of_process): defsubr it.
Richard M. Stallman <rms@gnu.org>
parents: 23930
diff changeset
5863
49903
6dc5bfe9589b Removed subtty, workaround for when TIOCSIGSEND fails.
Jan Djärv <jan.h.d@swipnet.se>
parents: 49894
diff changeset
5864 gid = emacs_get_tty_pgrp (p);
24352
023601636a18 (syms_of_process): defsubr it.
Richard M. Stallman <rms@gnu.org>
parents: 23930
diff changeset
5865
69873
2d844bbbccd4 * process.h (struct Lisp_Process): Replace Lisp_Objects `pid',
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 69634
diff changeset
5866 if (gid == p->pid)
24352
023601636a18 (syms_of_process): defsubr it.
Richard M. Stallman <rms@gnu.org>
parents: 23930
diff changeset
5867 return Qnil;
023601636a18 (syms_of_process): defsubr it.
Richard M. Stallman <rms@gnu.org>
parents: 23930
diff changeset
5868 return Qt;
023601636a18 (syms_of_process): defsubr it.
Richard M. Stallman <rms@gnu.org>
parents: 23930
diff changeset
5869 }
023601636a18 (syms_of_process): defsubr it.
Richard M. Stallman <rms@gnu.org>
parents: 23930
diff changeset
5870
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5871 /* send a signal number SIGNO to PROCESS.
24352
023601636a18 (syms_of_process): defsubr it.
Richard M. Stallman <rms@gnu.org>
parents: 23930
diff changeset
5872 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
5873 that currently owns the terminal being used to communicate with PROCESS.
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5874 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
5875 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
5876 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
5877
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5878 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
5879 right away.
b476a97ad17e * systty.h, process.c, buffer.h, callproc.c, sysdep.c, dired.c:
Jim Blandy <jimb@redhat.com>
parents: 1569
diff changeset
5880
b476a97ad17e * systty.h, process.c, buffer.h, callproc.c, sysdep.c, dired.c:
Jim Blandy <jimb@redhat.com>
parents: 1569
diff changeset
5881 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
5882 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
5883 their uid, for which killpg would return an EPERM error. */
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5884
1522
19ccf004b172 * process.c: (status_convert): Declare this to return a
Jim Blandy <jimb@redhat.com>
parents: 1323
diff changeset
5885 static void
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5886 process_send_signal (process, signo, current_group, nomsg)
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5887 Lisp_Object process;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5888 int signo;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5889 Lisp_Object current_group;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5890 int nomsg;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5891 {
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5892 Lisp_Object proc;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5893 register struct Lisp_Process *p;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5894 int gid;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5895 int no_pgrp = 0;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5896
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5897 proc = get_process (process);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5898 p = XPROCESS (proc);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5899
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5900 if (!EQ (p->childp, Qt))
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5901 error ("Process %s is not a subprocess",
46370
40db0673e6f0 Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents: 46314
diff changeset
5902 SDATA (p->name));
81826
077a1e6fd3f2 (struct Lisp_Process): Turn slots infd, outfd, kill_without_query, pty_flag,
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 80984
diff changeset
5903 if (p->infd < 0)
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5904 error ("Process %s is not active",
46370
40db0673e6f0 Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents: 46314
diff changeset
5905 SDATA (p->name));
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5906
81826
077a1e6fd3f2 (struct Lisp_Process): Turn slots infd, outfd, kill_without_query, pty_flag,
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 80984
diff changeset
5907 if (!p->pty_flag)
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5908 current_group = Qnil;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5909
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5910 /* If we are using pgrps, get a pgrp number and make it negative. */
46411
d17e7d2c1766 (create_process): Test USG_SUBTTY_WORKS.
Richard M. Stallman <rms@gnu.org>
parents: 46370
diff changeset
5911 if (NILP (current_group))
d17e7d2c1766 (create_process): Test USG_SUBTTY_WORKS.
Richard M. Stallman <rms@gnu.org>
parents: 46370
diff changeset
5912 /* Send the signal to the shell's process group. */
69873
2d844bbbccd4 * process.h (struct Lisp_Process): Replace Lisp_Objects `pid',
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 69634
diff changeset
5913 gid = p->pid;
46411
d17e7d2c1766 (create_process): Test USG_SUBTTY_WORKS.
Richard M. Stallman <rms@gnu.org>
parents: 46370
diff changeset
5914 else
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5915 {
1594
b476a97ad17e * systty.h, process.c, buffer.h, callproc.c, sysdep.c, dired.c:
Jim Blandy <jimb@redhat.com>
parents: 1569
diff changeset
5916 #ifdef SIGNALS_VIA_CHARACTERS
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5917 /* If possible, send signals to the entire pgrp
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5918 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
5919
1925
3ddb163a9201 * process.c: Make sure we don't miss processes exiting, by having
Jim Blandy <jimb@redhat.com>
parents: 1886
diff changeset
5920 /* 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
5921 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
5922 #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
5923 struct termios t;
56695
62660593b0a2 (process_send_signal) [SIGNALS_VIA_CHARACTERS, HAVE_TERMIOS]: Clean up.
Richard M. Stallman <rms@gnu.org>
parents: 56583
diff changeset
5924 cc_t *sig_char = NULL;
62660593b0a2 (process_send_signal) [SIGNALS_VIA_CHARACTERS, HAVE_TERMIOS]: Clean up.
Richard M. Stallman <rms@gnu.org>
parents: 56583
diff changeset
5925
81826
077a1e6fd3f2 (struct Lisp_Process): Turn slots infd, outfd, kill_without_query, pty_flag,
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 80984
diff changeset
5926 tcgetattr (p->infd, &t);
1925
3ddb163a9201 * process.c: Make sure we don't miss processes exiting, by having
Jim Blandy <jimb@redhat.com>
parents: 1886
diff changeset
5927
3ddb163a9201 * process.c: Make sure we don't miss processes exiting, by having
Jim Blandy <jimb@redhat.com>
parents: 1886
diff changeset
5928 switch (signo)
3ddb163a9201 * process.c: Make sure we don't miss processes exiting, by having
Jim Blandy <jimb@redhat.com>
parents: 1886
diff changeset
5929 {
3ddb163a9201 * process.c: Make sure we don't miss processes exiting, by having
Jim Blandy <jimb@redhat.com>
parents: 1886
diff changeset
5930 case SIGINT:
56695
62660593b0a2 (process_send_signal) [SIGNALS_VIA_CHARACTERS, HAVE_TERMIOS]: Clean up.
Richard M. Stallman <rms@gnu.org>
parents: 56583
diff changeset
5931 sig_char = &t.c_cc[VINTR];
62660593b0a2 (process_send_signal) [SIGNALS_VIA_CHARACTERS, HAVE_TERMIOS]: Clean up.
Richard M. Stallman <rms@gnu.org>
parents: 56583
diff changeset
5932 break;
1925
3ddb163a9201 * process.c: Make sure we don't miss processes exiting, by having
Jim Blandy <jimb@redhat.com>
parents: 1886
diff changeset
5933
3ddb163a9201 * process.c: Make sure we don't miss processes exiting, by having
Jim Blandy <jimb@redhat.com>
parents: 1886
diff changeset
5934 case SIGQUIT:
56695
62660593b0a2 (process_send_signal) [SIGNALS_VIA_CHARACTERS, HAVE_TERMIOS]: Clean up.
Richard M. Stallman <rms@gnu.org>
parents: 56583
diff changeset
5935 sig_char = &t.c_cc[VQUIT];
62660593b0a2 (process_send_signal) [SIGNALS_VIA_CHARACTERS, HAVE_TERMIOS]: Clean up.
Richard M. Stallman <rms@gnu.org>
parents: 56583
diff changeset
5936 break;
1925
3ddb163a9201 * process.c: Make sure we don't miss processes exiting, by having
Jim Blandy <jimb@redhat.com>
parents: 1886
diff changeset
5937
3ddb163a9201 * process.c: Make sure we don't miss processes exiting, by having
Jim Blandy <jimb@redhat.com>
parents: 1886
diff changeset
5938 case SIGTSTP:
7414
33e5afbb62bf (process_send_signal): If PREFER_VSUSP, use VSUSP instead of VSWTCH.
Richard M. Stallman <rms@gnu.org>
parents: 7352
diff changeset
5939 #if defined (VSWTCH) && !defined (PREFER_VSUSP)
56695
62660593b0a2 (process_send_signal) [SIGNALS_VIA_CHARACTERS, HAVE_TERMIOS]: Clean up.
Richard M. Stallman <rms@gnu.org>
parents: 56583
diff changeset
5940 sig_char = &t.c_cc[VSWTCH];
1925
3ddb163a9201 * process.c: Make sure we don't miss processes exiting, by having
Jim Blandy <jimb@redhat.com>
parents: 1886
diff changeset
5941 #else
56695
62660593b0a2 (process_send_signal) [SIGNALS_VIA_CHARACTERS, HAVE_TERMIOS]: Clean up.
Richard M. Stallman <rms@gnu.org>
parents: 56583
diff changeset
5942 sig_char = &t.c_cc[VSUSP];
62660593b0a2 (process_send_signal) [SIGNALS_VIA_CHARACTERS, HAVE_TERMIOS]: Clean up.
Richard M. Stallman <rms@gnu.org>
parents: 56583
diff changeset
5943 #endif
62660593b0a2 (process_send_signal) [SIGNALS_VIA_CHARACTERS, HAVE_TERMIOS]: Clean up.
Richard M. Stallman <rms@gnu.org>
parents: 56583
diff changeset
5944 break;
1925
3ddb163a9201 * process.c: Make sure we don't miss processes exiting, by having
Jim Blandy <jimb@redhat.com>
parents: 1886
diff changeset
5945 }
3ddb163a9201 * process.c: Make sure we don't miss processes exiting, by having
Jim Blandy <jimb@redhat.com>
parents: 1886
diff changeset
5946
56713
7e315ff338bf (process_send_signal): Use CDISABLE.
Kim F. Storm <storm@cua.dk>
parents: 56701
diff changeset
5947 if (sig_char && *sig_char != CDISABLE)
56770
598599edd5ca (process_send_signal) [SIGNALS_VIA_CHARACTERS, HAVE_TERMIOS]:
Richard M. Stallman <rms@gnu.org>
parents: 56728
diff changeset
5948 {
598599edd5ca (process_send_signal) [SIGNALS_VIA_CHARACTERS, HAVE_TERMIOS]:
Richard M. Stallman <rms@gnu.org>
parents: 56728
diff changeset
5949 send_process (proc, sig_char, 1, Qnil);
598599edd5ca (process_send_signal) [SIGNALS_VIA_CHARACTERS, HAVE_TERMIOS]:
Richard M. Stallman <rms@gnu.org>
parents: 56728
diff changeset
5950 return;
598599edd5ca (process_send_signal) [SIGNALS_VIA_CHARACTERS, HAVE_TERMIOS]:
Richard M. Stallman <rms@gnu.org>
parents: 56728
diff changeset
5951 }
598599edd5ca (process_send_signal) [SIGNALS_VIA_CHARACTERS, HAVE_TERMIOS]:
Richard M. Stallman <rms@gnu.org>
parents: 56728
diff changeset
5952 /* If we can't send the signal with a character,
598599edd5ca (process_send_signal) [SIGNALS_VIA_CHARACTERS, HAVE_TERMIOS]:
Richard M. Stallman <rms@gnu.org>
parents: 56728
diff changeset
5953 fall through and send it another way. */
1925
3ddb163a9201 * process.c: Make sure we don't miss processes exiting, by having
Jim Blandy <jimb@redhat.com>
parents: 1886
diff changeset
5954 #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
5955
1594
b476a97ad17e * systty.h, process.c, buffer.h, callproc.c, sysdep.c, dired.c:
Jim Blandy <jimb@redhat.com>
parents: 1569
diff changeset
5956 /* 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
5957 current control characters. */
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5958 #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
5959
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5960 struct tchars c;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5961 struct ltchars lc;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5962
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5963 switch (signo)
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5964 {
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5965 case SIGINT:
81826
077a1e6fd3f2 (struct Lisp_Process): Turn slots infd, outfd, kill_without_query, pty_flag,
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 80984
diff changeset
5966 ioctl (p->infd, TIOCGETC, &c);
8063
30861f2f4f84 (send_process): Major rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 7937
diff changeset
5967 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
5968 return;
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5969 case SIGQUIT:
81826
077a1e6fd3f2 (struct Lisp_Process): Turn slots infd, outfd, kill_without_query, pty_flag,
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 80984
diff changeset
5970 ioctl (p->infd, TIOCGETC, &c);
8063
30861f2f4f84 (send_process): Major rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 7937
diff changeset
5971 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
5972 return;
1012
a48ed1d416dd * process.c (process_send_signal): Don't send SIGTSTP if the
Jim Blandy <jimb@redhat.com>
parents: 849
diff changeset
5973 #ifdef SIGTSTP
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5974 case SIGTSTP:
81826
077a1e6fd3f2 (struct Lisp_Process): Turn slots infd, outfd, kill_without_query, pty_flag,
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 80984
diff changeset
5975 ioctl (p->infd, TIOCGLTC, &lc);
8063
30861f2f4f84 (send_process): Major rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 7937
diff changeset
5976 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
5977 return;
1594
b476a97ad17e * systty.h, process.c, buffer.h, callproc.c, sysdep.c, dired.c:
Jim Blandy <jimb@redhat.com>
parents: 1569
diff changeset
5978 #endif /* ! defined (SIGTSTP) */
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5979 }
1594
b476a97ad17e * systty.h, process.c, buffer.h, callproc.c, sysdep.c, dired.c:
Jim Blandy <jimb@redhat.com>
parents: 1569
diff changeset
5980
b476a97ad17e * systty.h, process.c, buffer.h, callproc.c, sysdep.c, dired.c:
Jim Blandy <jimb@redhat.com>
parents: 1569
diff changeset
5981 #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
5982
b476a97ad17e * systty.h, process.c, buffer.h, callproc.c, sysdep.c, dired.c:
Jim Blandy <jimb@redhat.com>
parents: 1569
diff changeset
5983 /* 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
5984 characters. */
b476a97ad17e * systty.h, process.c, buffer.h, callproc.c, sysdep.c, dired.c:
Jim Blandy <jimb@redhat.com>
parents: 1569
diff changeset
5985 #ifdef TCGETA
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5986 struct termio t;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5987 switch (signo)
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5988 {
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5989 case SIGINT:
81826
077a1e6fd3f2 (struct Lisp_Process): Turn slots infd, outfd, kill_without_query, pty_flag,
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 80984
diff changeset
5990 ioctl (p->infd, TCGETA, &t);
8063
30861f2f4f84 (send_process): Major rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 7937
diff changeset
5991 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
5992 return;
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5993 case SIGQUIT:
81826
077a1e6fd3f2 (struct Lisp_Process): Turn slots infd, outfd, kill_without_query, pty_flag,
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 80984
diff changeset
5994 ioctl (p->infd, TCGETA, &t);
8063
30861f2f4f84 (send_process): Major rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 7937
diff changeset
5995 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
5996 return;
1569
52a69b6a8f96 * process.c [SYSV]: Don't include <termios.h>, <termio.h>, or
Jim Blandy <jimb@redhat.com>
parents: 1522
diff changeset
5997 #ifdef SIGTSTP
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
5998 case SIGTSTP:
81826
077a1e6fd3f2 (struct Lisp_Process): Turn slots infd, outfd, kill_without_query, pty_flag,
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 80984
diff changeset
5999 ioctl (p->infd, TCGETA, &t);
8063
30861f2f4f84 (send_process): Major rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 7937
diff changeset
6000 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
6001 return;
1594
b476a97ad17e * systty.h, process.c, buffer.h, callproc.c, sysdep.c, dired.c:
Jim Blandy <jimb@redhat.com>
parents: 1569
diff changeset
6002 #endif /* ! defined (SIGTSTP) */
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6003 }
1594
b476a97ad17e * systty.h, process.c, buffer.h, callproc.c, sysdep.c, dired.c:
Jim Blandy <jimb@redhat.com>
parents: 1569
diff changeset
6004 #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
6005 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
6006 /* 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
6007 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
6008 #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
6009 #endif /* ! defined (TIOCGLTC) && defined (TIOCGETC) */
56770
598599edd5ca (process_send_signal) [SIGNALS_VIA_CHARACTERS, HAVE_TERMIOS]:
Richard M. Stallman <rms@gnu.org>
parents: 56728
diff changeset
6010 /* In this case, the code above should alway returns. */
46314
7c8eab7f2bd6 (process_send_signal): Add abort call.
Richard M. Stallman <rms@gnu.org>
parents: 46293
diff changeset
6011 abort ();
56770
598599edd5ca (process_send_signal) [SIGNALS_VIA_CHARACTERS, HAVE_TERMIOS]:
Richard M. Stallman <rms@gnu.org>
parents: 56728
diff changeset
6012 #endif /* ! defined HAVE_TERMIOS */
598599edd5ca (process_send_signal) [SIGNALS_VIA_CHARACTERS, HAVE_TERMIOS]:
Richard M. Stallman <rms@gnu.org>
parents: 56728
diff changeset
6013
598599edd5ca (process_send_signal) [SIGNALS_VIA_CHARACTERS, HAVE_TERMIOS]:
Richard M. Stallman <rms@gnu.org>
parents: 56728
diff changeset
6014 /* The code above may fall through if it can't
598599edd5ca (process_send_signal) [SIGNALS_VIA_CHARACTERS, HAVE_TERMIOS]:
Richard M. Stallman <rms@gnu.org>
parents: 56728
diff changeset
6015 handle the signal. */
46314
7c8eab7f2bd6 (process_send_signal): Add abort call.
Richard M. Stallman <rms@gnu.org>
parents: 46293
diff changeset
6016 #endif /* defined (SIGNALS_VIA_CHARACTERS) */
849
c7b49118e101 entered into RCS
Jim Blandy <jimb@redhat.com>
parents: 822
diff changeset
6017
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 49281
diff changeset
6018 #ifdef TIOCGPGRP
46411
d17e7d2c1766 (create_process): Test USG_SUBTTY_WORKS.
Richard M. Stallman <rms@gnu.org>
parents: 46370
diff changeset
6019 /* Get the current pgrp using the tty itself, if we have that.
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6020 Otherwise, use the pty to get the pgrp.
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6021 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
6022 "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
6023 But, TIOCGPGRP does not work on E50 ;-P works fine on E60"
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6024 His patch indicates that if TIOCGPGRP returns an error, then
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6025 we should just assume that p->pid is also the process group id. */
49903
6dc5bfe9589b Removed subtty, workaround for when TIOCSIGSEND fails.
Jan Djärv <jan.h.d@swipnet.se>
parents: 49894
diff changeset
6026
6dc5bfe9589b Removed subtty, workaround for when TIOCSIGSEND fails.
Jan Djärv <jan.h.d@swipnet.se>
parents: 49894
diff changeset
6027 gid = emacs_get_tty_pgrp (p);
55444
976d03256b41 (Fwaiting_for_user_input_p, Fmake_network_process)
Juanma Barranquero <lekktu@gmail.com>
parents: 53835
diff changeset
6028
49903
6dc5bfe9589b Removed subtty, workaround for when TIOCSIGSEND fails.
Jan Djärv <jan.h.d@swipnet.se>
parents: 49894
diff changeset
6029 if (gid == -1)
6dc5bfe9589b Removed subtty, workaround for when TIOCSIGSEND fails.
Jan Djärv <jan.h.d@swipnet.se>
parents: 49894
diff changeset
6030 /* If we can't get the information, assume
6dc5bfe9589b Removed subtty, workaround for when TIOCSIGSEND fails.
Jan Djärv <jan.h.d@swipnet.se>
parents: 49894
diff changeset
6031 the shell owns the tty. */
69873
2d844bbbccd4 * process.h (struct Lisp_Process): Replace Lisp_Objects `pid',
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 69634
diff changeset
6032 gid = p->pid;
46411
d17e7d2c1766 (create_process): Test USG_SUBTTY_WORKS.
Richard M. Stallman <rms@gnu.org>
parents: 46370
diff changeset
6033
d17e7d2c1766 (create_process): Test USG_SUBTTY_WORKS.
Richard M. Stallman <rms@gnu.org>
parents: 46370
diff changeset
6034 /* It is not clear whether anything really can set GID to -1.
d17e7d2c1766 (create_process): Test USG_SUBTTY_WORKS.
Richard M. Stallman <rms@gnu.org>
parents: 46370
diff changeset
6035 Perhaps on some system one of those ioctls can or could do so.
d17e7d2c1766 (create_process): Test USG_SUBTTY_WORKS.
Richard M. Stallman <rms@gnu.org>
parents: 46370
diff changeset
6036 Or perhaps this is vestigial. */
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6037 if (gid == -1)
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6038 no_pgrp = 1;
1594
b476a97ad17e * systty.h, process.c, buffer.h, callproc.c, sysdep.c, dired.c:
Jim Blandy <jimb@redhat.com>
parents: 1569
diff changeset
6039 #else /* ! defined (TIOCGPGRP ) */
849
c7b49118e101 entered into RCS
Jim Blandy <jimb@redhat.com>
parents: 822
diff changeset
6040 /* Can't select pgrps on this system, so we know that
c7b49118e101 entered into RCS
Jim Blandy <jimb@redhat.com>
parents: 822
diff changeset
6041 the child itself heads the pgrp. */
69873
2d844bbbccd4 * process.h (struct Lisp_Process): Replace Lisp_Objects `pid',
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 69634
diff changeset
6042 gid = p->pid;
849
c7b49118e101 entered into RCS
Jim Blandy <jimb@redhat.com>
parents: 822
diff changeset
6043 #endif /* ! defined (TIOCGPGRP ) */
24352
023601636a18 (syms_of_process): defsubr it.
Richard M. Stallman <rms@gnu.org>
parents: 23930
diff changeset
6044
023601636a18 (syms_of_process): defsubr it.
Richard M. Stallman <rms@gnu.org>
parents: 23930
diff changeset
6045 /* 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
6046 don't send any signal. */
69873
2d844bbbccd4 * process.h (struct Lisp_Process): Replace Lisp_Objects `pid',
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 69634
diff changeset
6047 if (EQ (current_group, Qlambda) && gid == p->pid)
24352
023601636a18 (syms_of_process): defsubr it.
Richard M. Stallman <rms@gnu.org>
parents: 23930
diff changeset
6048 return;
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6049 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6050
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6051 switch (signo)
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6052 {
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6053 #ifdef SIGCONT
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6054 case SIGCONT:
69873
2d844bbbccd4 * process.h (struct Lisp_Process): Replace Lisp_Objects `pid',
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 69634
diff changeset
6055 p->raw_status_new = 0;
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6056 p->status = Qrun;
81826
077a1e6fd3f2 (struct Lisp_Process): Turn slots infd, outfd, kill_without_query, pty_flag,
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 80984
diff changeset
6057 p->tick = ++process_tick;
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6058 if (!nomsg)
64977
d26871fb1b7b (deactivate_process, status_notify, read_process_output)
Kim F. Storm <storm@cua.dk>
parents: 64770
diff changeset
6059 status_notify (NULL);
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6060 break;
849
c7b49118e101 entered into RCS
Jim Blandy <jimb@redhat.com>
parents: 822
diff changeset
6061 #endif /* ! defined (SIGCONT) */
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6062 case SIGINT:
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6063 #ifdef VMS
8063
30861f2f4f84 (send_process): Major rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 7937
diff changeset
6064 send_process (proc, "\003", 1, Qnil); /* ^C */
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6065 goto whoosh;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6066 #endif
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6067 case SIGQUIT:
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6068 #ifdef VMS
8063
30861f2f4f84 (send_process): Major rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 7937
diff changeset
6069 send_process (proc, "\031", 1, Qnil); /* ^Y */
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6070 goto whoosh;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6071 #endif
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6072 case SIGKILL:
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6073 #ifdef VMS
69873
2d844bbbccd4 * process.h (struct Lisp_Process): Replace Lisp_Objects `pid',
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 69634
diff changeset
6074 sys$forcex (&(p->pid), 0, 1);
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6075 whoosh:
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6076 #endif
81826
077a1e6fd3f2 (struct Lisp_Process): Turn slots infd, outfd, kill_without_query, pty_flag,
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 80984
diff changeset
6077 flush_pending_output (p->infd);
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6078 break;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6079 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6080
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6081 /* If we don't have process groups, send the signal to the immediate
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6082 subprocess. That isn't really right, but it's better than any
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6083 obvious alternative. */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6084 if (no_pgrp)
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6085 {
69873
2d844bbbccd4 * process.h (struct Lisp_Process): Replace Lisp_Objects `pid',
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 69634
diff changeset
6086 kill (p->pid, signo);
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6087 return;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6088 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6089
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6090 /* gid may be a pid, or minus a pgrp's number */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6091 #ifdef TIOCSIGSEND
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6092 if (!NILP (current_group))
49903
6dc5bfe9589b Removed subtty, workaround for when TIOCSIGSEND fails.
Jan Djärv <jan.h.d@swipnet.se>
parents: 49894
diff changeset
6093 {
81826
077a1e6fd3f2 (struct Lisp_Process): Turn slots infd, outfd, kill_without_query, pty_flag,
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 80984
diff changeset
6094 if (ioctl (p->infd, TIOCSIGSEND, signo) == -1)
49903
6dc5bfe9589b Removed subtty, workaround for when TIOCSIGSEND fails.
Jan Djärv <jan.h.d@swipnet.se>
parents: 49894
diff changeset
6095 EMACS_KILLPG (gid, signo);
6dc5bfe9589b Removed subtty, workaround for when TIOCSIGSEND fails.
Jan Djärv <jan.h.d@swipnet.se>
parents: 49894
diff changeset
6096 }
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6097 else
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6098 {
69873
2d844bbbccd4 * process.h (struct Lisp_Process): Replace Lisp_Objects `pid',
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 69634
diff changeset
6099 gid = - p->pid;
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6100 kill (gid, signo);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6101 }
849
c7b49118e101 entered into RCS
Jim Blandy <jimb@redhat.com>
parents: 822
diff changeset
6102 #else /* ! defined (TIOCSIGSEND) */
46411
d17e7d2c1766 (create_process): Test USG_SUBTTY_WORKS.
Richard M. Stallman <rms@gnu.org>
parents: 46370
diff changeset
6103 EMACS_KILLPG (gid, signo);
849
c7b49118e101 entered into RCS
Jim Blandy <jimb@redhat.com>
parents: 822
diff changeset
6104 #endif /* ! defined (TIOCSIGSEND) */
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6105 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6106
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6107 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
6108 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
6109 PROCESS may be a process, a buffer, or the name of a process or buffer.
55444
976d03256b41 (Fwaiting_for_user_input_p, Fmake_network_process)
Juanma Barranquero <lekktu@gmail.com>
parents: 53835
diff changeset
6110 No arg or nil means current buffer's process.
40103
6b389fb978bc Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
6111 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
6112 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
6113 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
6114 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
6115 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
6116
6b389fb978bc Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
6117 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
6118 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
6119 (process, current_group)
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6120 Lisp_Object process, current_group;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6121 {
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6122 process_send_signal (process, SIGINT, current_group, 0);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6123 return process;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6124 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6125
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6126 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
6127 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
6128 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
6129 (process, current_group)
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6130 Lisp_Object process, current_group;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6131 {
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6132 process_send_signal (process, SIGKILL, current_group, 0);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6133 return process;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6134 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6135
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6136 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
6137 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
6138 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
6139 (process, current_group)
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6140 Lisp_Object process, current_group;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6141 {
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6142 process_send_signal (process, SIGQUIT, current_group, 0);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6143 return process;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6144 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6145
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6146 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
6147 doc: /* Stop process PROCESS. May be process or name of one.
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 49281
diff changeset
6148 See function `interrupt-process' for more details on usage.
43968
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
6149 If PROCESS is a network process, inhibit handling of incoming traffic. */)
40103
6b389fb978bc Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
6150 (process, current_group)
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6151 Lisp_Object process, current_group;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6152 {
43968
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
6153 #ifdef HAVE_SOCKETS
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
6154 if (PROCESSP (process) && NETCONN_P (process))
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
6155 {
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
6156 struct Lisp_Process *p;
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 49281
diff changeset
6157
43968
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
6158 p = XPROCESS (process);
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
6159 if (NILP (p->command)
81826
077a1e6fd3f2 (struct Lisp_Process): Turn slots infd, outfd, kill_without_query, pty_flag,
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 80984
diff changeset
6160 && p->infd >= 0)
43968
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
6161 {
81826
077a1e6fd3f2 (struct Lisp_Process): Turn slots infd, outfd, kill_without_query, pty_flag,
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 80984
diff changeset
6162 FD_CLR (p->infd, &input_wait_mask);
077a1e6fd3f2 (struct Lisp_Process): Turn slots infd, outfd, kill_without_query, pty_flag,
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 80984
diff changeset
6163 FD_CLR (p->infd, &non_keyboard_wait_mask);
43968
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
6164 }
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
6165 p->command = Qt;
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
6166 return process;
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
6167 }
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
6168 #endif
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6169 #ifndef SIGTSTP
63701
9ef43e35d417 (Fstop_process, Fcontinue_process): Follow error conventions.
Juanma Barranquero <lekktu@gmail.com>
parents: 63615
diff changeset
6170 error ("No SIGTSTP support");
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6171 #else
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6172 process_send_signal (process, SIGTSTP, current_group, 0);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6173 #endif
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6174 return process;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6175 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6176
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6177 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
6178 doc: /* Continue process PROCESS. May be process or name of one.
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 49281
diff changeset
6179 See function `interrupt-process' for more details on usage.
43968
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
6180 If PROCESS is a network process, resume handling of incoming traffic. */)
40103
6b389fb978bc Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
6181 (process, current_group)
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6182 Lisp_Object process, current_group;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6183 {
43968
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
6184 #ifdef HAVE_SOCKETS
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
6185 if (PROCESSP (process) && NETCONN_P (process))
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
6186 {
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
6187 struct Lisp_Process *p;
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
6188
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
6189 p = XPROCESS (process);
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
6190 if (EQ (p->command, Qt)
81826
077a1e6fd3f2 (struct Lisp_Process): Turn slots infd, outfd, kill_without_query, pty_flag,
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 80984
diff changeset
6191 && p->infd >= 0
43968
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
6192 && (!EQ (p->filter, Qt) || EQ (p->status, Qlisten)))
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
6193 {
81826
077a1e6fd3f2 (struct Lisp_Process): Turn slots infd, outfd, kill_without_query, pty_flag,
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 80984
diff changeset
6194 FD_SET (p->infd, &input_wait_mask);
077a1e6fd3f2 (struct Lisp_Process): Turn slots infd, outfd, kill_without_query, pty_flag,
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 80984
diff changeset
6195 FD_SET (p->infd, &non_keyboard_wait_mask);
43968
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
6196 }
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
6197 p->command = Qnil;
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
6198 return process;
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
6199 }
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
6200 #endif
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6201 #ifdef SIGCONT
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6202 process_send_signal (process, SIGCONT, current_group, 0);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6203 #else
63701
9ef43e35d417 (Fstop_process, Fcontinue_process): Follow error conventions.
Juanma Barranquero <lekktu@gmail.com>
parents: 63615
diff changeset
6204 error ("No SIGCONT support");
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6205 #endif
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6206 return process;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6207 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6208
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6209 DEFUN ("signal-process", Fsignal_process, Ssignal_process,
48053
f840e449c328 (Fsignal_process): Allow PROCESS to be specified by
Kim F. Storm <storm@cua.dk>
parents: 47987
diff changeset
6210 2, 2, "sProcess (name or number): \nnSignal code: ",
f840e449c328 (Fsignal_process): Allow PROCESS to be specified by
Kim F. Storm <storm@cua.dk>
parents: 47987
diff changeset
6211 doc: /* Send PROCESS the signal with code SIGCODE.
74540
b33acab48a40 (Fsignal_process): Doc fix. Use XFLOAT_DATA to extract the process ID from
Eli Zaretskii <eliz@gnu.org>
parents: 74468
diff changeset
6212 PROCESS may also be a number specifying the process id of the
48053
f840e449c328 (Fsignal_process): Allow PROCESS to be specified by
Kim F. Storm <storm@cua.dk>
parents: 47987
diff changeset
6213 process to signal; in this case, the process need not be a child of
f840e449c328 (Fsignal_process): Allow PROCESS to be specified by
Kim F. Storm <storm@cua.dk>
parents: 47987
diff changeset
6214 this Emacs.
40103
6b389fb978bc Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
6215 SIGCODE may be an integer, or a symbol whose name is a signal name. */)
48053
f840e449c328 (Fsignal_process): Allow PROCESS to be specified by
Kim F. Storm <storm@cua.dk>
parents: 47987
diff changeset
6216 (process, sigcode)
f840e449c328 (Fsignal_process): Allow PROCESS to be specified by
Kim F. Storm <storm@cua.dk>
parents: 47987
diff changeset
6217 Lisp_Object process, sigcode;
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6218 {
69873
2d844bbbccd4 * process.h (struct Lisp_Process): Replace Lisp_Objects `pid',
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 69634
diff changeset
6219 pid_t pid;
48053
f840e449c328 (Fsignal_process): Allow PROCESS to be specified by
Kim F. Storm <storm@cua.dk>
parents: 47987
diff changeset
6220
f840e449c328 (Fsignal_process): Allow PROCESS to be specified by
Kim F. Storm <storm@cua.dk>
parents: 47987
diff changeset
6221 if (INTEGERP (process))
f840e449c328 (Fsignal_process): Allow PROCESS to be specified by
Kim F. Storm <storm@cua.dk>
parents: 47987
diff changeset
6222 {
69873
2d844bbbccd4 * process.h (struct Lisp_Process): Replace Lisp_Objects `pid',
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 69634
diff changeset
6223 pid = XINT (process);
2d844bbbccd4 * process.h (struct Lisp_Process): Replace Lisp_Objects `pid',
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 69634
diff changeset
6224 goto got_it;
2d844bbbccd4 * process.h (struct Lisp_Process): Replace Lisp_Objects `pid',
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 69634
diff changeset
6225 }
2d844bbbccd4 * process.h (struct Lisp_Process): Replace Lisp_Objects `pid',
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 69634
diff changeset
6226
2d844bbbccd4 * process.h (struct Lisp_Process): Replace Lisp_Objects `pid',
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 69634
diff changeset
6227 if (FLOATP (process))
2d844bbbccd4 * process.h (struct Lisp_Process): Replace Lisp_Objects `pid',
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 69634
diff changeset
6228 {
74540
b33acab48a40 (Fsignal_process): Doc fix. Use XFLOAT_DATA to extract the process ID from
Eli Zaretskii <eliz@gnu.org>
parents: 74468
diff changeset
6229 pid = (pid_t) XFLOAT_DATA (process);
48053
f840e449c328 (Fsignal_process): Allow PROCESS to be specified by
Kim F. Storm <storm@cua.dk>
parents: 47987
diff changeset
6230 goto got_it;
f840e449c328 (Fsignal_process): Allow PROCESS to be specified by
Kim F. Storm <storm@cua.dk>
parents: 47987
diff changeset
6231 }
f840e449c328 (Fsignal_process): Allow PROCESS to be specified by
Kim F. Storm <storm@cua.dk>
parents: 47987
diff changeset
6232
f840e449c328 (Fsignal_process): Allow PROCESS to be specified by
Kim F. Storm <storm@cua.dk>
parents: 47987
diff changeset
6233 if (STRINGP (process))
f840e449c328 (Fsignal_process): Allow PROCESS to be specified by
Kim F. Storm <storm@cua.dk>
parents: 47987
diff changeset
6234 {
f840e449c328 (Fsignal_process): Allow PROCESS to be specified by
Kim F. Storm <storm@cua.dk>
parents: 47987
diff changeset
6235 Lisp_Object tem;
f840e449c328 (Fsignal_process): Allow PROCESS to be specified by
Kim F. Storm <storm@cua.dk>
parents: 47987
diff changeset
6236 if (tem = Fget_process (process), NILP (tem))
f840e449c328 (Fsignal_process): Allow PROCESS to be specified by
Kim F. Storm <storm@cua.dk>
parents: 47987
diff changeset
6237 {
69873
2d844bbbccd4 * process.h (struct Lisp_Process): Replace Lisp_Objects `pid',
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 69634
diff changeset
6238 pid = XINT (Fstring_to_number (process, make_number (10)));
2d844bbbccd4 * process.h (struct Lisp_Process): Replace Lisp_Objects `pid',
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 69634
diff changeset
6239 if (pid > 0)
48053
f840e449c328 (Fsignal_process): Allow PROCESS to be specified by
Kim F. Storm <storm@cua.dk>
parents: 47987
diff changeset
6240 goto got_it;
f840e449c328 (Fsignal_process): Allow PROCESS to be specified by
Kim F. Storm <storm@cua.dk>
parents: 47987
diff changeset
6241 }
f840e449c328 (Fsignal_process): Allow PROCESS to be specified by
Kim F. Storm <storm@cua.dk>
parents: 47987
diff changeset
6242 process = tem;
f840e449c328 (Fsignal_process): Allow PROCESS to be specified by
Kim F. Storm <storm@cua.dk>
parents: 47987
diff changeset
6243 }
f840e449c328 (Fsignal_process): Allow PROCESS to be specified by
Kim F. Storm <storm@cua.dk>
parents: 47987
diff changeset
6244 else
f840e449c328 (Fsignal_process): Allow PROCESS to be specified by
Kim F. Storm <storm@cua.dk>
parents: 47987
diff changeset
6245 process = get_process (process);
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 49281
diff changeset
6246
48053
f840e449c328 (Fsignal_process): Allow PROCESS to be specified by
Kim F. Storm <storm@cua.dk>
parents: 47987
diff changeset
6247 if (NILP (process))
f840e449c328 (Fsignal_process): Allow PROCESS to be specified by
Kim F. Storm <storm@cua.dk>
parents: 47987
diff changeset
6248 return process;
f840e449c328 (Fsignal_process): Allow PROCESS to be specified by
Kim F. Storm <storm@cua.dk>
parents: 47987
diff changeset
6249
f840e449c328 (Fsignal_process): Allow PROCESS to be specified by
Kim F. Storm <storm@cua.dk>
parents: 47987
diff changeset
6250 CHECK_PROCESS (process);
f840e449c328 (Fsignal_process): Allow PROCESS to be specified by
Kim F. Storm <storm@cua.dk>
parents: 47987
diff changeset
6251 pid = XPROCESS (process)->pid;
69873
2d844bbbccd4 * process.h (struct Lisp_Process): Replace Lisp_Objects `pid',
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 69634
diff changeset
6252 if (pid <= 0)
48053
f840e449c328 (Fsignal_process): Allow PROCESS to be specified by
Kim F. Storm <storm@cua.dk>
parents: 47987
diff changeset
6253 error ("Cannot signal process %s", SDATA (XPROCESS (process)->name));
f840e449c328 (Fsignal_process): Allow PROCESS to be specified by
Kim F. Storm <storm@cua.dk>
parents: 47987
diff changeset
6254
f840e449c328 (Fsignal_process): Allow PROCESS to be specified by
Kim F. Storm <storm@cua.dk>
parents: 47987
diff changeset
6255 got_it:
11144
c2b689aeb934 (Fsignal_process): Allow signal names as well as numbers.
Richard M. Stallman <rms@gnu.org>
parents: 10914
diff changeset
6256
74420
7f2e7cb6b161 (parse_signal): Rename macro from handle_signal.
Kim F. Storm <storm@cua.dk>
parents: 74406
diff changeset
6257 #define parse_signal(NAME, VALUE) \
74468
7714fd14ce36 (parse_signal): Use xstricmp instead of strcasecmp.
Kim F. Storm <storm@cua.dk>
parents: 74420
diff changeset
6258 else if (!xstricmp (name, NAME)) \
11144
c2b689aeb934 (Fsignal_process): Allow signal names as well as numbers.
Richard M. Stallman <rms@gnu.org>
parents: 10914
diff changeset
6259 XSETINT (sigcode, VALUE)
c2b689aeb934 (Fsignal_process): Allow signal names as well as numbers.
Richard M. Stallman <rms@gnu.org>
parents: 10914
diff changeset
6260
c2b689aeb934 (Fsignal_process): Allow signal names as well as numbers.
Richard M. Stallman <rms@gnu.org>
parents: 10914
diff changeset
6261 if (INTEGERP (sigcode))
c2b689aeb934 (Fsignal_process): Allow signal names as well as numbers.
Richard M. Stallman <rms@gnu.org>
parents: 10914
diff changeset
6262 ;
c2b689aeb934 (Fsignal_process): Allow signal names as well as numbers.
Richard M. Stallman <rms@gnu.org>
parents: 10914
diff changeset
6263 else
c2b689aeb934 (Fsignal_process): Allow signal names as well as numbers.
Richard M. Stallman <rms@gnu.org>
parents: 10914
diff changeset
6264 {
c2b689aeb934 (Fsignal_process): Allow signal names as well as numbers.
Richard M. Stallman <rms@gnu.org>
parents: 10914
diff changeset
6265 unsigned char *name;
c2b689aeb934 (Fsignal_process): Allow signal names as well as numbers.
Richard M. Stallman <rms@gnu.org>
parents: 10914
diff changeset
6266
40656
cdfd4d09b79a Update usage of CHECK_ macros (remove unused second argument).
Pavel Janík <Pavel@Janik.cz>
parents: 40641
diff changeset
6267 CHECK_SYMBOL (sigcode);
46370
40db0673e6f0 Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents: 46314
diff changeset
6268 name = SDATA (SYMBOL_NAME (sigcode));
11144
c2b689aeb934 (Fsignal_process): Allow signal names as well as numbers.
Richard M. Stallman <rms@gnu.org>
parents: 10914
diff changeset
6269
74468
7714fd14ce36 (parse_signal): Use xstricmp instead of strcasecmp.
Kim F. Storm <storm@cua.dk>
parents: 74420
diff changeset
6270 if (!strncmp(name, "SIG", 3) || !strncmp(name, "sig", 3))
66752
715b819a0ad8 (Fsignal_process): Recognize signal names with and
Kim F. Storm <storm@cua.dk>
parents: 65764
diff changeset
6271 name += 3;
715b819a0ad8 (Fsignal_process): Recognize signal names with and
Kim F. Storm <storm@cua.dk>
parents: 65764
diff changeset
6272
11144
c2b689aeb934 (Fsignal_process): Allow signal names as well as numbers.
Richard M. Stallman <rms@gnu.org>
parents: 10914
diff changeset
6273 if (0)
c2b689aeb934 (Fsignal_process): Allow signal names as well as numbers.
Richard M. Stallman <rms@gnu.org>
parents: 10914
diff changeset
6274 ;
74420
7f2e7cb6b161 (parse_signal): Rename macro from handle_signal.
Kim F. Storm <storm@cua.dk>
parents: 74406
diff changeset
6275 #ifdef SIGUSR1
7f2e7cb6b161 (parse_signal): Rename macro from handle_signal.
Kim F. Storm <storm@cua.dk>
parents: 74406
diff changeset
6276 parse_signal ("usr1", SIGUSR1);
7f2e7cb6b161 (parse_signal): Rename macro from handle_signal.
Kim F. Storm <storm@cua.dk>
parents: 74406
diff changeset
6277 #endif
7f2e7cb6b161 (parse_signal): Rename macro from handle_signal.
Kim F. Storm <storm@cua.dk>
parents: 74406
diff changeset
6278 #ifdef SIGUSR2
7f2e7cb6b161 (parse_signal): Rename macro from handle_signal.
Kim F. Storm <storm@cua.dk>
parents: 74406
diff changeset
6279 parse_signal ("usr2", SIGUSR2);
7f2e7cb6b161 (parse_signal): Rename macro from handle_signal.
Kim F. Storm <storm@cua.dk>
parents: 74406
diff changeset
6280 #endif
7f2e7cb6b161 (parse_signal): Rename macro from handle_signal.
Kim F. Storm <storm@cua.dk>
parents: 74406
diff changeset
6281 #ifdef SIGTERM
7f2e7cb6b161 (parse_signal): Rename macro from handle_signal.
Kim F. Storm <storm@cua.dk>
parents: 74406
diff changeset
6282 parse_signal ("term", SIGTERM);
7f2e7cb6b161 (parse_signal): Rename macro from handle_signal.
Kim F. Storm <storm@cua.dk>
parents: 74406
diff changeset
6283 #endif
11144
c2b689aeb934 (Fsignal_process): Allow signal names as well as numbers.
Richard M. Stallman <rms@gnu.org>
parents: 10914
diff changeset
6284 #ifdef SIGHUP
74420
7f2e7cb6b161 (parse_signal): Rename macro from handle_signal.
Kim F. Storm <storm@cua.dk>
parents: 74406
diff changeset
6285 parse_signal ("hup", SIGHUP);
11144
c2b689aeb934 (Fsignal_process): Allow signal names as well as numbers.
Richard M. Stallman <rms@gnu.org>
parents: 10914
diff changeset
6286 #endif
c2b689aeb934 (Fsignal_process): Allow signal names as well as numbers.
Richard M. Stallman <rms@gnu.org>
parents: 10914
diff changeset
6287 #ifdef SIGINT
74420
7f2e7cb6b161 (parse_signal): Rename macro from handle_signal.
Kim F. Storm <storm@cua.dk>
parents: 74406
diff changeset
6288 parse_signal ("int", SIGINT);
11144
c2b689aeb934 (Fsignal_process): Allow signal names as well as numbers.
Richard M. Stallman <rms@gnu.org>
parents: 10914
diff changeset
6289 #endif
c2b689aeb934 (Fsignal_process): Allow signal names as well as numbers.
Richard M. Stallman <rms@gnu.org>
parents: 10914
diff changeset
6290 #ifdef SIGQUIT
74420
7f2e7cb6b161 (parse_signal): Rename macro from handle_signal.
Kim F. Storm <storm@cua.dk>
parents: 74406
diff changeset
6291 parse_signal ("quit", SIGQUIT);
11144
c2b689aeb934 (Fsignal_process): Allow signal names as well as numbers.
Richard M. Stallman <rms@gnu.org>
parents: 10914
diff changeset
6292 #endif
c2b689aeb934 (Fsignal_process): Allow signal names as well as numbers.
Richard M. Stallman <rms@gnu.org>
parents: 10914
diff changeset
6293 #ifdef SIGILL
74420
7f2e7cb6b161 (parse_signal): Rename macro from handle_signal.
Kim F. Storm <storm@cua.dk>
parents: 74406
diff changeset
6294 parse_signal ("ill", SIGILL);
11144
c2b689aeb934 (Fsignal_process): Allow signal names as well as numbers.
Richard M. Stallman <rms@gnu.org>
parents: 10914
diff changeset
6295 #endif
c2b689aeb934 (Fsignal_process): Allow signal names as well as numbers.
Richard M. Stallman <rms@gnu.org>
parents: 10914
diff changeset
6296 #ifdef SIGABRT
74420
7f2e7cb6b161 (parse_signal): Rename macro from handle_signal.
Kim F. Storm <storm@cua.dk>
parents: 74406
diff changeset
6297 parse_signal ("abrt", SIGABRT);
11144
c2b689aeb934 (Fsignal_process): Allow signal names as well as numbers.
Richard M. Stallman <rms@gnu.org>
parents: 10914
diff changeset
6298 #endif
c2b689aeb934 (Fsignal_process): Allow signal names as well as numbers.
Richard M. Stallman <rms@gnu.org>
parents: 10914
diff changeset
6299 #ifdef SIGEMT
74420
7f2e7cb6b161 (parse_signal): Rename macro from handle_signal.
Kim F. Storm <storm@cua.dk>
parents: 74406
diff changeset
6300 parse_signal ("emt", SIGEMT);
11144
c2b689aeb934 (Fsignal_process): Allow signal names as well as numbers.
Richard M. Stallman <rms@gnu.org>
parents: 10914
diff changeset
6301 #endif
c2b689aeb934 (Fsignal_process): Allow signal names as well as numbers.
Richard M. Stallman <rms@gnu.org>
parents: 10914
diff changeset
6302 #ifdef SIGKILL
74420
7f2e7cb6b161 (parse_signal): Rename macro from handle_signal.
Kim F. Storm <storm@cua.dk>
parents: 74406
diff changeset
6303 parse_signal ("kill", SIGKILL);
11144
c2b689aeb934 (Fsignal_process): Allow signal names as well as numbers.
Richard M. Stallman <rms@gnu.org>
parents: 10914
diff changeset
6304 #endif
c2b689aeb934 (Fsignal_process): Allow signal names as well as numbers.
Richard M. Stallman <rms@gnu.org>
parents: 10914
diff changeset
6305 #ifdef SIGFPE
74420
7f2e7cb6b161 (parse_signal): Rename macro from handle_signal.
Kim F. Storm <storm@cua.dk>
parents: 74406
diff changeset
6306 parse_signal ("fpe", SIGFPE);
11144
c2b689aeb934 (Fsignal_process): Allow signal names as well as numbers.
Richard M. Stallman <rms@gnu.org>
parents: 10914
diff changeset
6307 #endif
c2b689aeb934 (Fsignal_process): Allow signal names as well as numbers.
Richard M. Stallman <rms@gnu.org>
parents: 10914
diff changeset
6308 #ifdef SIGBUS
74420
7f2e7cb6b161 (parse_signal): Rename macro from handle_signal.
Kim F. Storm <storm@cua.dk>
parents: 74406
diff changeset
6309 parse_signal ("bus", SIGBUS);
11144
c2b689aeb934 (Fsignal_process): Allow signal names as well as numbers.
Richard M. Stallman <rms@gnu.org>
parents: 10914
diff changeset
6310 #endif
c2b689aeb934 (Fsignal_process): Allow signal names as well as numbers.
Richard M. Stallman <rms@gnu.org>
parents: 10914
diff changeset
6311 #ifdef SIGSEGV
74420
7f2e7cb6b161 (parse_signal): Rename macro from handle_signal.
Kim F. Storm <storm@cua.dk>
parents: 74406
diff changeset
6312 parse_signal ("segv", SIGSEGV);
11144
c2b689aeb934 (Fsignal_process): Allow signal names as well as numbers.
Richard M. Stallman <rms@gnu.org>
parents: 10914
diff changeset
6313 #endif
c2b689aeb934 (Fsignal_process): Allow signal names as well as numbers.
Richard M. Stallman <rms@gnu.org>
parents: 10914
diff changeset
6314 #ifdef SIGSYS
74420
7f2e7cb6b161 (parse_signal): Rename macro from handle_signal.
Kim F. Storm <storm@cua.dk>
parents: 74406
diff changeset
6315 parse_signal ("sys", SIGSYS);
11144
c2b689aeb934 (Fsignal_process): Allow signal names as well as numbers.
Richard M. Stallman <rms@gnu.org>
parents: 10914
diff changeset
6316 #endif
c2b689aeb934 (Fsignal_process): Allow signal names as well as numbers.
Richard M. Stallman <rms@gnu.org>
parents: 10914
diff changeset
6317 #ifdef SIGPIPE
74420
7f2e7cb6b161 (parse_signal): Rename macro from handle_signal.
Kim F. Storm <storm@cua.dk>
parents: 74406
diff changeset
6318 parse_signal ("pipe", SIGPIPE);
11144
c2b689aeb934 (Fsignal_process): Allow signal names as well as numbers.
Richard M. Stallman <rms@gnu.org>
parents: 10914
diff changeset
6319 #endif
c2b689aeb934 (Fsignal_process): Allow signal names as well as numbers.
Richard M. Stallman <rms@gnu.org>
parents: 10914
diff changeset
6320 #ifdef SIGALRM
74420
7f2e7cb6b161 (parse_signal): Rename macro from handle_signal.
Kim F. Storm <storm@cua.dk>
parents: 74406
diff changeset
6321 parse_signal ("alrm", SIGALRM);
11144
c2b689aeb934 (Fsignal_process): Allow signal names as well as numbers.
Richard M. Stallman <rms@gnu.org>
parents: 10914
diff changeset
6322 #endif
c2b689aeb934 (Fsignal_process): Allow signal names as well as numbers.
Richard M. Stallman <rms@gnu.org>
parents: 10914
diff changeset
6323 #ifdef SIGURG
74420
7f2e7cb6b161 (parse_signal): Rename macro from handle_signal.
Kim F. Storm <storm@cua.dk>
parents: 74406
diff changeset
6324 parse_signal ("urg", SIGURG);
11144
c2b689aeb934 (Fsignal_process): Allow signal names as well as numbers.
Richard M. Stallman <rms@gnu.org>
parents: 10914
diff changeset
6325 #endif
c2b689aeb934 (Fsignal_process): Allow signal names as well as numbers.
Richard M. Stallman <rms@gnu.org>
parents: 10914
diff changeset
6326 #ifdef SIGSTOP
74420
7f2e7cb6b161 (parse_signal): Rename macro from handle_signal.
Kim F. Storm <storm@cua.dk>
parents: 74406
diff changeset
6327 parse_signal ("stop", SIGSTOP);
11144
c2b689aeb934 (Fsignal_process): Allow signal names as well as numbers.
Richard M. Stallman <rms@gnu.org>
parents: 10914
diff changeset
6328 #endif
c2b689aeb934 (Fsignal_process): Allow signal names as well as numbers.
Richard M. Stallman <rms@gnu.org>
parents: 10914
diff changeset
6329 #ifdef SIGTSTP
74420
7f2e7cb6b161 (parse_signal): Rename macro from handle_signal.
Kim F. Storm <storm@cua.dk>
parents: 74406
diff changeset
6330 parse_signal ("tstp", SIGTSTP);
11144
c2b689aeb934 (Fsignal_process): Allow signal names as well as numbers.
Richard M. Stallman <rms@gnu.org>
parents: 10914
diff changeset
6331 #endif
c2b689aeb934 (Fsignal_process): Allow signal names as well as numbers.
Richard M. Stallman <rms@gnu.org>
parents: 10914
diff changeset
6332 #ifdef SIGCONT
74420
7f2e7cb6b161 (parse_signal): Rename macro from handle_signal.
Kim F. Storm <storm@cua.dk>
parents: 74406
diff changeset
6333 parse_signal ("cont", SIGCONT);
11144
c2b689aeb934 (Fsignal_process): Allow signal names as well as numbers.
Richard M. Stallman <rms@gnu.org>
parents: 10914
diff changeset
6334 #endif
c2b689aeb934 (Fsignal_process): Allow signal names as well as numbers.
Richard M. Stallman <rms@gnu.org>
parents: 10914
diff changeset
6335 #ifdef SIGCHLD
74420
7f2e7cb6b161 (parse_signal): Rename macro from handle_signal.
Kim F. Storm <storm@cua.dk>
parents: 74406
diff changeset
6336 parse_signal ("chld", SIGCHLD);
11144
c2b689aeb934 (Fsignal_process): Allow signal names as well as numbers.
Richard M. Stallman <rms@gnu.org>
parents: 10914
diff changeset
6337 #endif
c2b689aeb934 (Fsignal_process): Allow signal names as well as numbers.
Richard M. Stallman <rms@gnu.org>
parents: 10914
diff changeset
6338 #ifdef SIGTTIN
74420
7f2e7cb6b161 (parse_signal): Rename macro from handle_signal.
Kim F. Storm <storm@cua.dk>
parents: 74406
diff changeset
6339 parse_signal ("ttin", SIGTTIN);
11144
c2b689aeb934 (Fsignal_process): Allow signal names as well as numbers.
Richard M. Stallman <rms@gnu.org>
parents: 10914
diff changeset
6340 #endif
c2b689aeb934 (Fsignal_process): Allow signal names as well as numbers.
Richard M. Stallman <rms@gnu.org>
parents: 10914
diff changeset
6341 #ifdef SIGTTOU
74420
7f2e7cb6b161 (parse_signal): Rename macro from handle_signal.
Kim F. Storm <storm@cua.dk>
parents: 74406
diff changeset
6342 parse_signal ("ttou", SIGTTOU);
11144
c2b689aeb934 (Fsignal_process): Allow signal names as well as numbers.
Richard M. Stallman <rms@gnu.org>
parents: 10914
diff changeset
6343 #endif
c2b689aeb934 (Fsignal_process): Allow signal names as well as numbers.
Richard M. Stallman <rms@gnu.org>
parents: 10914
diff changeset
6344 #ifdef SIGIO
74420
7f2e7cb6b161 (parse_signal): Rename macro from handle_signal.
Kim F. Storm <storm@cua.dk>
parents: 74406
diff changeset
6345 parse_signal ("io", SIGIO);
11144
c2b689aeb934 (Fsignal_process): Allow signal names as well as numbers.
Richard M. Stallman <rms@gnu.org>
parents: 10914
diff changeset
6346 #endif
c2b689aeb934 (Fsignal_process): Allow signal names as well as numbers.
Richard M. Stallman <rms@gnu.org>
parents: 10914
diff changeset
6347 #ifdef SIGXCPU
74420
7f2e7cb6b161 (parse_signal): Rename macro from handle_signal.
Kim F. Storm <storm@cua.dk>
parents: 74406
diff changeset
6348 parse_signal ("xcpu", SIGXCPU);
11144
c2b689aeb934 (Fsignal_process): Allow signal names as well as numbers.
Richard M. Stallman <rms@gnu.org>
parents: 10914
diff changeset
6349 #endif
c2b689aeb934 (Fsignal_process): Allow signal names as well as numbers.
Richard M. Stallman <rms@gnu.org>
parents: 10914
diff changeset
6350 #ifdef SIGXFSZ
74420
7f2e7cb6b161 (parse_signal): Rename macro from handle_signal.
Kim F. Storm <storm@cua.dk>
parents: 74406
diff changeset
6351 parse_signal ("xfsz", SIGXFSZ);
11144
c2b689aeb934 (Fsignal_process): Allow signal names as well as numbers.
Richard M. Stallman <rms@gnu.org>
parents: 10914
diff changeset
6352 #endif
c2b689aeb934 (Fsignal_process): Allow signal names as well as numbers.
Richard M. Stallman <rms@gnu.org>
parents: 10914
diff changeset
6353 #ifdef SIGVTALRM
74420
7f2e7cb6b161 (parse_signal): Rename macro from handle_signal.
Kim F. Storm <storm@cua.dk>
parents: 74406
diff changeset
6354 parse_signal ("vtalrm", SIGVTALRM);
11144
c2b689aeb934 (Fsignal_process): Allow signal names as well as numbers.
Richard M. Stallman <rms@gnu.org>
parents: 10914
diff changeset
6355 #endif
c2b689aeb934 (Fsignal_process): Allow signal names as well as numbers.
Richard M. Stallman <rms@gnu.org>
parents: 10914
diff changeset
6356 #ifdef SIGPROF
74420
7f2e7cb6b161 (parse_signal): Rename macro from handle_signal.
Kim F. Storm <storm@cua.dk>
parents: 74406
diff changeset
6357 parse_signal ("prof", SIGPROF);
11144
c2b689aeb934 (Fsignal_process): Allow signal names as well as numbers.
Richard M. Stallman <rms@gnu.org>
parents: 10914
diff changeset
6358 #endif
c2b689aeb934 (Fsignal_process): Allow signal names as well as numbers.
Richard M. Stallman <rms@gnu.org>
parents: 10914
diff changeset
6359 #ifdef SIGWINCH
74420
7f2e7cb6b161 (parse_signal): Rename macro from handle_signal.
Kim F. Storm <storm@cua.dk>
parents: 74406
diff changeset
6360 parse_signal ("winch", SIGWINCH);
11144
c2b689aeb934 (Fsignal_process): Allow signal names as well as numbers.
Richard M. Stallman <rms@gnu.org>
parents: 10914
diff changeset
6361 #endif
c2b689aeb934 (Fsignal_process): Allow signal names as well as numbers.
Richard M. Stallman <rms@gnu.org>
parents: 10914
diff changeset
6362 #ifdef SIGINFO
74420
7f2e7cb6b161 (parse_signal): Rename macro from handle_signal.
Kim F. Storm <storm@cua.dk>
parents: 74406
diff changeset
6363 parse_signal ("info", SIGINFO);
11144
c2b689aeb934 (Fsignal_process): Allow signal names as well as numbers.
Richard M. Stallman <rms@gnu.org>
parents: 10914
diff changeset
6364 #endif
c2b689aeb934 (Fsignal_process): Allow signal names as well as numbers.
Richard M. Stallman <rms@gnu.org>
parents: 10914
diff changeset
6365 else
11148
117b32676686 (Fsignal_process): SIGCODE is a symbol, not a string.
Karl Heuer <kwzh@gnu.org>
parents: 11144
diff changeset
6366 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
6367 }
c2b689aeb934 (Fsignal_process): Allow signal names as well as numbers.
Richard M. Stallman <rms@gnu.org>
parents: 10914
diff changeset
6368
74420
7f2e7cb6b161 (parse_signal): Rename macro from handle_signal.
Kim F. Storm <storm@cua.dk>
parents: 74406
diff changeset
6369 #undef parse_signal
11144
c2b689aeb934 (Fsignal_process): Allow signal names as well as numbers.
Richard M. Stallman <rms@gnu.org>
parents: 10914
diff changeset
6370
69873
2d844bbbccd4 * process.h (struct Lisp_Process): Replace Lisp_Objects `pid',
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 69634
diff changeset
6371 return make_number (kill (pid, XINT (sigcode)));
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6372 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6373
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6374 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
6375 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
6376 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
6377 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
6378 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
6379 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
6380 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
6381 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
6382 (process)
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6383 Lisp_Object process;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6384 {
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6385 Lisp_Object proc;
23879
18e5d1cfa74b (read_process_output): If NBYTES is zero and
Kenichi Handa <handa@m17n.org>
parents: 23762
diff changeset
6386 struct coding_system *coding;
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6387
43968
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
6388 if (DATAGRAM_CONN_P (process))
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
6389 return process;
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
6390
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6391 proc = get_process (process);
81826
077a1e6fd3f2 (struct Lisp_Process): Turn slots infd, outfd, kill_without_query, pty_flag,
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 80984
diff changeset
6392 coding = proc_encode_coding_system[XPROCESS (proc)->outfd];
2221
7edc78402205 (Fprocess_send_eof): Make sure proc is running.
Richard M. Stallman <rms@gnu.org>
parents: 2200
diff changeset
6393
7edc78402205 (Fprocess_send_eof): Make sure proc is running.
Richard M. Stallman <rms@gnu.org>
parents: 2200
diff changeset
6394 /* Make sure the process is really alive. */
69873
2d844bbbccd4 * process.h (struct Lisp_Process): Replace Lisp_Objects `pid',
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 69634
diff changeset
6395 if (XPROCESS (proc)->raw_status_new)
2221
7edc78402205 (Fprocess_send_eof): Make sure proc is running.
Richard M. Stallman <rms@gnu.org>
parents: 2200
diff changeset
6396 update_status (XPROCESS (proc));
7edc78402205 (Fprocess_send_eof): Make sure proc is running.
Richard M. Stallman <rms@gnu.org>
parents: 2200
diff changeset
6397 if (! EQ (XPROCESS (proc)->status, Qrun))
46370
40db0673e6f0 Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents: 46314
diff changeset
6398 error ("Process %s not running", SDATA (XPROCESS (proc)->name));
2221
7edc78402205 (Fprocess_send_eof): Make sure proc is running.
Richard M. Stallman <rms@gnu.org>
parents: 2200
diff changeset
6399
23879
18e5d1cfa74b (read_process_output): If NBYTES is zero and
Kenichi Handa <handa@m17n.org>
parents: 23762
diff changeset
6400 if (CODING_REQUIRE_FLUSHING (coding))
18e5d1cfa74b (read_process_output): If NBYTES is zero and
Kenichi Handa <handa@m17n.org>
parents: 23762
diff changeset
6401 {
18e5d1cfa74b (read_process_output): If NBYTES is zero and
Kenichi Handa <handa@m17n.org>
parents: 23762
diff changeset
6402 coding->mode |= CODING_MODE_LAST_BLOCK;
18e5d1cfa74b (read_process_output): If NBYTES is zero and
Kenichi Handa <handa@m17n.org>
parents: 23762
diff changeset
6403 send_process (proc, "", 0, Qnil);
18e5d1cfa74b (read_process_output): If NBYTES is zero and
Kenichi Handa <handa@m17n.org>
parents: 23762
diff changeset
6404 }
18e5d1cfa74b (read_process_output): If NBYTES is zero and
Kenichi Handa <handa@m17n.org>
parents: 23762
diff changeset
6405
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6406 #ifdef VMS
8063
30861f2f4f84 (send_process): Major rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 7937
diff changeset
6407 send_process (proc, "\032", 1, Qnil); /* ^z */
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6408 #else
81826
077a1e6fd3f2 (struct Lisp_Process): Turn slots infd, outfd, kill_without_query, pty_flag,
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 80984
diff changeset
6409 if (XPROCESS (proc)->pty_flag)
8063
30861f2f4f84 (send_process): Major rewrite.
Richard M. Stallman <rms@gnu.org>
parents: 7937
diff changeset
6410 send_process (proc, "\004", 1, Qnil);
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6411 else
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6412 {
22939
572895549f80 (Fprocess_send_eof): Transfer proc_encode_coding_system
Richard M. Stallman <rms@gnu.org>
parents: 22864
diff changeset
6413 int old_outfd, new_outfd;
572895549f80 (Fprocess_send_eof): Transfer proc_encode_coding_system
Richard M. Stallman <rms@gnu.org>
parents: 22864
diff changeset
6414
18329
ddaafa596bf5 (Fprocess_send_eof): Prooperly conditionalize prev. change.
Richard M. Stallman <rms@gnu.org>
parents: 18328
diff changeset
6415 #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
6416 /* 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
6417 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
6418 (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
6419 Then we just can't win.) */
69873
2d844bbbccd4 * process.h (struct Lisp_Process): Replace Lisp_Objects `pid',
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 69634
diff changeset
6420 if (XPROCESS (proc)->pid == 0
81826
077a1e6fd3f2 (struct Lisp_Process): Turn slots infd, outfd, kill_without_query, pty_flag,
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 80984
diff changeset
6421 || XPROCESS (proc)->outfd == XPROCESS (proc)->infd)
077a1e6fd3f2 (struct Lisp_Process): Turn slots infd, outfd, kill_without_query, pty_flag,
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 80984
diff changeset
6422 shutdown (XPROCESS (proc)->outfd, 1);
18328
0295bbed3c39 (Fprocess_send_eof): Use shutdown, if it's a socket.
Richard M. Stallman <rms@gnu.org>
parents: 18292
diff changeset
6423 /* In case of socketpair, outfd == infd, so don't close it. */
81826
077a1e6fd3f2 (struct Lisp_Process): Turn slots infd, outfd, kill_without_query, pty_flag,
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 80984
diff changeset
6424 if (XPROCESS (proc)->outfd != XPROCESS (proc)->infd)
077a1e6fd3f2 (struct Lisp_Process): Turn slots infd, outfd, kill_without_query, pty_flag,
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 80984
diff changeset
6425 emacs_close (XPROCESS (proc)->outfd);
18329
ddaafa596bf5 (Fprocess_send_eof): Prooperly conditionalize prev. change.
Richard M. Stallman <rms@gnu.org>
parents: 18328
diff changeset
6426 #else /* not HAVE_SHUTDOWN */
81826
077a1e6fd3f2 (struct Lisp_Process): Turn slots infd, outfd, kill_without_query, pty_flag,
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 80984
diff changeset
6427 emacs_close (XPROCESS (proc)->outfd);
18329
ddaafa596bf5 (Fprocess_send_eof): Prooperly conditionalize prev. change.
Richard M. Stallman <rms@gnu.org>
parents: 18328
diff changeset
6428 #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
6429 new_outfd = emacs_open (NULL_DEVICE, O_WRONLY, 0);
69974
2ecef706d823 (Fprocess_send_eof): Abort if fail to open null device.
Richard M. Stallman <rms@gnu.org>
parents: 69973
diff changeset
6430 if (new_outfd < 0)
2ecef706d823 (Fprocess_send_eof): Abort if fail to open null device.
Richard M. Stallman <rms@gnu.org>
parents: 69973
diff changeset
6431 abort ();
81826
077a1e6fd3f2 (struct Lisp_Process): Turn slots infd, outfd, kill_without_query, pty_flag,
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 80984
diff changeset
6432 old_outfd = XPROCESS (proc)->outfd;
22939
572895549f80 (Fprocess_send_eof): Transfer proc_encode_coding_system
Richard M. Stallman <rms@gnu.org>
parents: 22864
diff changeset
6433
572895549f80 (Fprocess_send_eof): Transfer proc_encode_coding_system
Richard M. Stallman <rms@gnu.org>
parents: 22864
diff changeset
6434 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
6435 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
6436 = (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
6437 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
6438 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
6439 sizeof (struct coding_system));
572895549f80 (Fprocess_send_eof): Transfer proc_encode_coding_system
Richard M. Stallman <rms@gnu.org>
parents: 22864
diff changeset
6440 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
6441 sizeof (struct coding_system));
572895549f80 (Fprocess_send_eof): Transfer proc_encode_coding_system
Richard M. Stallman <rms@gnu.org>
parents: 22864
diff changeset
6442
81826
077a1e6fd3f2 (struct Lisp_Process): Turn slots infd, outfd, kill_without_query, pty_flag,
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 80984
diff changeset
6443 XPROCESS (proc)->outfd = new_outfd;
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6444 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6445 #endif /* VMS */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6446 return process;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6447 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6448
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6449 /* 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
6450 If `buffer' is nil, kill all processes */
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6451
20382
dbad9367d232 (create_process, deactivate_process, close_process_descs):
Andreas Schwab <schwab@suse.de>
parents: 20225
diff changeset
6452 void
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6453 kill_buffer_processes (buffer)
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6454 Lisp_Object buffer;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6455 {
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6456 Lisp_Object tail, proc;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6457
25645
a14111a2a100 Use XCAR, XCDR, XFLOAT_DATA instead of explicit member access.
Ken Raeburn <raeburn@raeburn.org>
parents: 25356
diff changeset
6458 for (tail = Vprocess_alist; GC_CONSP (tail); tail = XCDR (tail))
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6459 {
25645
a14111a2a100 Use XCAR, XCDR, XFLOAT_DATA instead of explicit member access.
Ken Raeburn <raeburn@raeburn.org>
parents: 25356
diff changeset
6460 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
6461 if (GC_PROCESSP (proc)
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6462 && (NILP (buffer) || EQ (XPROCESS (proc)->buffer, buffer)))
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6463 {
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6464 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
6465 Fdelete_process (proc);
81826
077a1e6fd3f2 (struct Lisp_Process): Turn slots infd, outfd, kill_without_query, pty_flag,
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 80984
diff changeset
6466 else if (XPROCESS (proc)->infd >= 0)
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6467 process_send_signal (proc, SIGHUP, Qnil, 1);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6468 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6469 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6470 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6471
39361
2d3bee6a3848 (sigchld_handler): Use GC_CONSP, GC_INTEGERP, GC_EQ
Gerd Moellmann <gerd@gnu.org>
parents: 37758
diff changeset
6472 /* 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
6473 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
6474 are no more.
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 49281
diff changeset
6475
39361
2d3bee6a3848 (sigchld_handler): Use GC_CONSP, GC_INTEGERP, GC_EQ
Gerd Moellmann <gerd@gnu.org>
parents: 37758
diff changeset
6476 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
6477 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
6478 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
6479
2d3bee6a3848 (sigchld_handler): Use GC_CONSP, GC_INTEGERP, GC_EQ
Gerd Moellmann <gerd@gnu.org>
parents: 37758
diff changeset
6480 ** 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
6481 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
6482 Lisp objects.
2d3bee6a3848 (sigchld_handler): Use GC_CONSP, GC_INTEGERP, GC_EQ
Gerd Moellmann <gerd@gnu.org>
parents: 37758
diff changeset
6483
2d3bee6a3848 (sigchld_handler): Use GC_CONSP, GC_INTEGERP, GC_EQ
Gerd Moellmann <gerd@gnu.org>
parents: 37758
diff changeset
6484 ** 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
6485 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
6486 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
6487 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
6488 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
6489 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
6490 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
6491 kernel to reexamine the SIGCLD queue. Fred Fish, UniSoft Systems
53732
0341435e76ce * process.c (sigchld_handler): Add comment about not calling malloc
Jan Djärv <jan.h.d@swipnet.se>
parents: 53713
diff changeset
6492 Inc.
0341435e76ce * process.c (sigchld_handler): Add comment about not calling malloc
Jan Djärv <jan.h.d@swipnet.se>
parents: 53713
diff changeset
6493
0341435e76ce * process.c (sigchld_handler): Add comment about not calling malloc
Jan Djärv <jan.h.d@swipnet.se>
parents: 53713
diff changeset
6494 ** Malloc WARNING: This should never call malloc either directly or
0341435e76ce * process.c (sigchld_handler): Add comment about not calling malloc
Jan Djärv <jan.h.d@swipnet.se>
parents: 53713
diff changeset
6495 indirectly; if it does, that is a bug */
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6496
71140
80310801887e 2006-06-01 Micha«³l Cadilhac <michael.cadilhac@lrde.org>
Kim F. Storm <storm@cua.dk>
parents: 71109
diff changeset
6497 #ifdef SIGCHLD
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6498 SIGTYPE
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6499 sigchld_handler (signo)
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6500 int signo;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6501 {
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6502 int old_errno = errno;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6503 Lisp_Object proc;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6504 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
6505 extern EMACS_TIME *input_available_clear_time;
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6506
58986
59945307b86b * syssignal.h: Declare main_thread.
Jan Djärv <jan.h.d@swipnet.se>
parents: 58082
diff changeset
6507 SIGNAL_THREAD_CHECK (signo);
59945307b86b * syssignal.h: Declare main_thread.
Jan Djärv <jan.h.d@swipnet.se>
parents: 58082
diff changeset
6508
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6509 #ifdef BSD4_1
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6510 extern int sigheld;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6511 sigheld |= sigbit (SIGCHLD);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6512 #endif
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6513
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6514 while (1)
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6515 {
76493
e5e12c57c640 (sigchld_handler): Change type of pid to pid_t. Scan deleted_pid_list
Chong Yidong <cyd@stupidchicken.com>
parents: 76462
diff changeset
6516 pid_t pid;
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6517 WAITTYPE w;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6518 Lisp_Object tail;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6519
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6520 #ifdef WNOHANG
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6521 #ifndef WUNTRACED
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6522 #define WUNTRACED 0
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6523 #endif /* no WUNTRACED */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6524 /* Keep trying to get a status until we get a definitive result. */
76718
217f3f19f471 revert the last patch to the original fix: sleep BEFORE the first wait
Sam Steingold <sds@gnu.org>
parents: 76626
diff changeset
6525 do
217f3f19f471 revert the last patch to the original fix: sleep BEFORE the first wait
Sam Steingold <sds@gnu.org>
parents: 76626
diff changeset
6526 {
76494
f0a25b5d3ba0 (Fdelete_process): Properly handle deletion of first element of
Chong Yidong <cyd@stupidchicken.com>
parents: 76493
diff changeset
6527 errno = 0;
f0a25b5d3ba0 (Fdelete_process): Properly handle deletion of first element of
Chong Yidong <cyd@stupidchicken.com>
parents: 76493
diff changeset
6528 pid = wait3 (&w, WNOHANG | WUNTRACED, 0);
f0a25b5d3ba0 (Fdelete_process): Properly handle deletion of first element of
Chong Yidong <cyd@stupidchicken.com>
parents: 76493
diff changeset
6529 }
76718
217f3f19f471 revert the last patch to the original fix: sleep BEFORE the first wait
Sam Steingold <sds@gnu.org>
parents: 76626
diff changeset
6530 while (pid < 0 && errno == EINTR);
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6531
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6532 if (pid <= 0)
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6533 {
39361
2d3bee6a3848 (sigchld_handler): Use GC_CONSP, GC_INTEGERP, GC_EQ
Gerd Moellmann <gerd@gnu.org>
parents: 37758
diff changeset
6534 /* 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
6535 failure. We have done all our job, so return. */
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6536
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6537 /* USG systems forget handlers when they are used;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6538 must reestablish each time */
16116
80a67b8f39e9 (create_process_1, sigchld_handler) [POSIX_SIGNALS]:
Richard M. Stallman <rms@gnu.org>
parents: 16076
diff changeset
6539 #if defined (USG) && !defined (POSIX_SIGNALS)
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6540 signal (signo, sigchld_handler); /* WARNING - must come after wait3() */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6541 #endif
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6542 #ifdef BSD4_1
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6543 sigheld &= ~sigbit (SIGCHLD);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6544 sigrelse (SIGCHLD);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6545 #endif
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6546 errno = old_errno;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6547 return;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6548 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6549 #else
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6550 pid = wait (&w);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6551 #endif /* no WNOHANG */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6552
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6553 /* Find the process that signaled us, and record its status. */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6554
71140
80310801887e 2006-06-01 Micha«³l Cadilhac <michael.cadilhac@lrde.org>
Kim F. Storm <storm@cua.dk>
parents: 71109
diff changeset
6555 /* The process can have been deleted by Fdelete_process. */
76493
e5e12c57c640 (sigchld_handler): Change type of pid to pid_t. Scan deleted_pid_list
Chong Yidong <cyd@stupidchicken.com>
parents: 76462
diff changeset
6556 for (tail = deleted_pid_list; GC_CONSP (tail); tail = XCDR (tail))
71140
80310801887e 2006-06-01 Micha«³l Cadilhac <michael.cadilhac@lrde.org>
Kim F. Storm <storm@cua.dk>
parents: 71109
diff changeset
6557 {
76493
e5e12c57c640 (sigchld_handler): Change type of pid to pid_t. Scan deleted_pid_list
Chong Yidong <cyd@stupidchicken.com>
parents: 76462
diff changeset
6558 Lisp_Object xpid = XCAR (tail);
e5e12c57c640 (sigchld_handler): Change type of pid to pid_t. Scan deleted_pid_list
Chong Yidong <cyd@stupidchicken.com>
parents: 76462
diff changeset
6559 if ((GC_INTEGERP (xpid) && pid == (pid_t) XINT (xpid))
e5e12c57c640 (sigchld_handler): Change type of pid to pid_t. Scan deleted_pid_list
Chong Yidong <cyd@stupidchicken.com>
parents: 76462
diff changeset
6560 || (GC_FLOATP (xpid) && pid == (pid_t) XFLOAT_DATA (xpid)))
e5e12c57c640 (sigchld_handler): Change type of pid to pid_t. Scan deleted_pid_list
Chong Yidong <cyd@stupidchicken.com>
parents: 76462
diff changeset
6561 {
e5e12c57c640 (sigchld_handler): Change type of pid to pid_t. Scan deleted_pid_list
Chong Yidong <cyd@stupidchicken.com>
parents: 76462
diff changeset
6562 XSETCAR (tail, Qnil);
e5e12c57c640 (sigchld_handler): Change type of pid to pid_t. Scan deleted_pid_list
Chong Yidong <cyd@stupidchicken.com>
parents: 76462
diff changeset
6563 goto sigchld_end_of_loop;
e5e12c57c640 (sigchld_handler): Change type of pid to pid_t. Scan deleted_pid_list
Chong Yidong <cyd@stupidchicken.com>
parents: 76462
diff changeset
6564 }
71140
80310801887e 2006-06-01 Micha«³l Cadilhac <michael.cadilhac@lrde.org>
Kim F. Storm <storm@cua.dk>
parents: 71109
diff changeset
6565 }
80310801887e 2006-06-01 Micha«³l Cadilhac <michael.cadilhac@lrde.org>
Kim F. Storm <storm@cua.dk>
parents: 71109
diff changeset
6566
80310801887e 2006-06-01 Micha«³l Cadilhac <michael.cadilhac@lrde.org>
Kim F. Storm <storm@cua.dk>
parents: 71109
diff changeset
6567 /* Otherwise, if it is asynchronous, it is in Vprocess_alist. */
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6568 p = 0;
39361
2d3bee6a3848 (sigchld_handler): Use GC_CONSP, GC_INTEGERP, GC_EQ
Gerd Moellmann <gerd@gnu.org>
parents: 37758
diff changeset
6569 for (tail = Vprocess_alist; GC_CONSP (tail); tail = XCDR (tail))
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6570 {
25645
a14111a2a100 Use XCAR, XCDR, XFLOAT_DATA instead of explicit member access.
Ken Raeburn <raeburn@raeburn.org>
parents: 25356
diff changeset
6571 proc = XCDR (XCAR (tail));
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6572 p = XPROCESS (proc);
69873
2d844bbbccd4 * process.h (struct Lisp_Process): Replace Lisp_Objects `pid',
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 69634
diff changeset
6573 if (GC_EQ (p->childp, Qt) && p->pid == pid)
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6574 break;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6575 p = 0;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6576 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6577
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6578 /* Look for an asynchronous process whose pid hasn't been filled
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6579 in yet. */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6580 if (p == 0)
39361
2d3bee6a3848 (sigchld_handler): Use GC_CONSP, GC_INTEGERP, GC_EQ
Gerd Moellmann <gerd@gnu.org>
parents: 37758
diff changeset
6581 for (tail = Vprocess_alist; GC_CONSP (tail); tail = XCDR (tail))
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6582 {
25645
a14111a2a100 Use XCAR, XCDR, XFLOAT_DATA instead of explicit member access.
Ken Raeburn <raeburn@raeburn.org>
parents: 25356
diff changeset
6583 proc = XCDR (XCAR (tail));
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6584 p = XPROCESS (proc);
69873
2d844bbbccd4 * process.h (struct Lisp_Process): Replace Lisp_Objects `pid',
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 69634
diff changeset
6585 if (p->pid == -1)
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6586 break;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6587 p = 0;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6588 }
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 49281
diff changeset
6589
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6590 /* Change the status of the process that was found. */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6591 if (p != 0)
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6592 {
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6593 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
6594 int clear_desc_flag = 0;
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 49281
diff changeset
6595
81826
077a1e6fd3f2 (struct Lisp_Process): Turn slots infd, outfd, kill_without_query, pty_flag,
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 80984
diff changeset
6596 p->tick = ++process_tick;
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6597 u.wt = w;
69873
2d844bbbccd4 * process.h (struct Lisp_Process): Replace Lisp_Objects `pid',
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 69634
diff changeset
6598 p->raw_status = u.i;
2d844bbbccd4 * process.h (struct Lisp_Process): Replace Lisp_Objects `pid',
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 69634
diff changeset
6599 p->raw_status_new = 1;
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 49281
diff changeset
6600
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6601 /* 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
6602 if ((WIFSIGNALED (w) || WIFEXITED (w))
81826
077a1e6fd3f2 (struct Lisp_Process): Turn slots infd, outfd, kill_without_query, pty_flag,
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 80984
diff changeset
6603 && p->infd >= 0)
9793
28267fcc61be Use macros IS_ANY_SEP, IS_DIRECTORY_SEP,
Richard M. Stallman <rms@gnu.org>
parents: 9705
diff changeset
6604 clear_desc_flag = 1;
28267fcc61be Use macros IS_ANY_SEP, IS_DIRECTORY_SEP,
Richard M. Stallman <rms@gnu.org>
parents: 9705
diff changeset
6605
28267fcc61be Use macros IS_ANY_SEP, IS_DIRECTORY_SEP,
Richard M. Stallman <rms@gnu.org>
parents: 9705
diff changeset
6606 /* 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
6607 if (clear_desc_flag)
28267fcc61be Use macros IS_ANY_SEP, IS_DIRECTORY_SEP,
Richard M. Stallman <rms@gnu.org>
parents: 9705
diff changeset
6608 {
81826
077a1e6fd3f2 (struct Lisp_Process): Turn slots infd, outfd, kill_without_query, pty_flag,
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 80984
diff changeset
6609 FD_CLR (p->infd, &input_wait_mask);
077a1e6fd3f2 (struct Lisp_Process): Turn slots infd, outfd, kill_without_query, pty_flag,
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 80984
diff changeset
6610 FD_CLR (p->infd, &non_keyboard_wait_mask);
9793
28267fcc61be Use macros IS_ANY_SEP, IS_DIRECTORY_SEP,
Richard M. Stallman <rms@gnu.org>
parents: 9705
diff changeset
6611 }
1925
3ddb163a9201 * process.c: Make sure we don't miss processes exiting, by having
Jim Blandy <jimb@redhat.com>
parents: 1886
diff changeset
6612
56728
1686b397ef16 (wait_reading_process_output): Rename from
Kim F. Storm <storm@cua.dk>
parents: 56716
diff changeset
6613 /* Tell wait_reading_process_output that it needs to wake up and
1925
3ddb163a9201 * process.c: Make sure we don't miss processes exiting, by having
Jim Blandy <jimb@redhat.com>
parents: 1886
diff changeset
6614 look around. */
3ddb163a9201 * process.c: Make sure we don't miss processes exiting, by having
Jim Blandy <jimb@redhat.com>
parents: 1886
diff changeset
6615 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
6616 EMACS_SET_SECS_USECS (*input_available_clear_time, 0, 0);
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6617 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6618
71140
80310801887e 2006-06-01 Micha«³l Cadilhac <michael.cadilhac@lrde.org>
Kim F. Storm <storm@cua.dk>
parents: 71109
diff changeset
6619 /* There was no asynchronous process found for that pid: we have
80310801887e 2006-06-01 Micha«³l Cadilhac <michael.cadilhac@lrde.org>
Kim F. Storm <storm@cua.dk>
parents: 71109
diff changeset
6620 a synchronous process. */
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6621 else
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6622 {
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6623 synch_process_alive = 0;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6624
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6625 /* Report the status of the synchronous process. */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6626 if (WIFEXITED (w))
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6627 synch_process_retcode = WRETCODE (w);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6628 else if (WIFSIGNALED (w))
53713
e069e543fd28 (sigchld_handler): Set synch_process_termsig
Jan Djärv <jan.h.d@swipnet.se>
parents: 53659
diff changeset
6629 synch_process_termsig = WTERMSIG (w);
1925
3ddb163a9201 * process.c: Make sure we don't miss processes exiting, by having
Jim Blandy <jimb@redhat.com>
parents: 1886
diff changeset
6630
56728
1686b397ef16 (wait_reading_process_output): Rename from
Kim F. Storm <storm@cua.dk>
parents: 56716
diff changeset
6631 /* Tell wait_reading_process_output that it needs to wake up and
1925
3ddb163a9201 * process.c: Make sure we don't miss processes exiting, by having
Jim Blandy <jimb@redhat.com>
parents: 1886
diff changeset
6632 look around. */
3ddb163a9201 * process.c: Make sure we don't miss processes exiting, by having
Jim Blandy <jimb@redhat.com>
parents: 1886
diff changeset
6633 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
6634 EMACS_SET_SECS_USECS (*input_available_clear_time, 0, 0);
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6635 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6636
71140
80310801887e 2006-06-01 Micha«³l Cadilhac <michael.cadilhac@lrde.org>
Kim F. Storm <storm@cua.dk>
parents: 71109
diff changeset
6637 sigchld_end_of_loop:
80310801887e 2006-06-01 Micha«³l Cadilhac <michael.cadilhac@lrde.org>
Kim F. Storm <storm@cua.dk>
parents: 71109
diff changeset
6638 ;
80310801887e 2006-06-01 Micha«³l Cadilhac <michael.cadilhac@lrde.org>
Kim F. Storm <storm@cua.dk>
parents: 71109
diff changeset
6639
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6640 /* On some systems, we must return right away.
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6641 If any more processes want to signal us, we will
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6642 get another signal.
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6643 Otherwise (on systems that have WNOHANG), loop around
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6644 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
6645 #if (defined WINDOWSNT \
41969
e669966d496e Test GNU_LINUX, not LINUX.
Richard M. Stallman <rms@gnu.org>
parents: 41856
diff changeset
6646 || (defined USG && !defined GNU_LINUX \
39406
9dd4ad9bc53e (sigchld_handler) [LINUX]: Don't return from
Gerd Moellmann <gerd@gnu.org>
parents: 39361
diff changeset
6647 && !(defined HPUX && defined WNOHANG)))
16116
80a67b8f39e9 (create_process_1, sigchld_handler) [POSIX_SIGNALS]:
Richard M. Stallman <rms@gnu.org>
parents: 16076
diff changeset
6648 #if defined (USG) && ! defined (POSIX_SIGNALS)
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6649 signal (signo, sigchld_handler);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6650 #endif
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6651 errno = old_errno;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6652 return;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6653 #endif /* USG, but not HPUX with WNOHANG */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6654 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6655 }
71140
80310801887e 2006-06-01 Micha«³l Cadilhac <michael.cadilhac@lrde.org>
Kim F. Storm <storm@cua.dk>
parents: 71109
diff changeset
6656 #endif /* SIGCHLD */
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6657
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6658
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6659 static Lisp_Object
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6660 exec_sentinel_unwind (data)
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6661 Lisp_Object data;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6662 {
25645
a14111a2a100 Use XCAR, XCDR, XFLOAT_DATA instead of explicit member access.
Ken Raeburn <raeburn@raeburn.org>
parents: 25356
diff changeset
6663 XPROCESS (XCAR (data))->sentinel = XCDR (data);
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6664 return Qnil;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6665 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6666
9030
b14532c71632 (exec_sentinel_error_handler): New function.
Richard M. Stallman <rms@gnu.org>
parents: 8570
diff changeset
6667 static Lisp_Object
b14532c71632 (exec_sentinel_error_handler): New function.
Richard M. Stallman <rms@gnu.org>
parents: 8570
diff changeset
6668 exec_sentinel_error_handler (error)
b14532c71632 (exec_sentinel_error_handler): New function.
Richard M. Stallman <rms@gnu.org>
parents: 8570
diff changeset
6669 Lisp_Object error;
b14532c71632 (exec_sentinel_error_handler): New function.
Richard M. Stallman <rms@gnu.org>
parents: 8570
diff changeset
6670 {
b14532c71632 (exec_sentinel_error_handler): New function.
Richard M. Stallman <rms@gnu.org>
parents: 8570
diff changeset
6671 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
6672 Vinhibit_quit = Qt;
b14532c71632 (exec_sentinel_error_handler): New function.
Richard M. Stallman <rms@gnu.org>
parents: 8570
diff changeset
6673 update_echo_area ();
11277
d4547e4b0aab (read_process_output_error_handler)
Richard M. Stallman <rms@gnu.org>
parents: 11235
diff changeset
6674 Fsleep_for (make_number (2), Qnil);
27558
f99efd14b932 (Fstart_process): Doc fix.
Dave Love <fx@gnu.org>
parents: 27430
diff changeset
6675 return Qt;
9030
b14532c71632 (exec_sentinel_error_handler): New function.
Richard M. Stallman <rms@gnu.org>
parents: 8570
diff changeset
6676 }
b14532c71632 (exec_sentinel_error_handler): New function.
Richard M. Stallman <rms@gnu.org>
parents: 8570
diff changeset
6677
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6678 static void
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6679 exec_sentinel (proc, reason)
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6680 Lisp_Object proc, reason;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6681 {
10914
413d44c0bd41 (exec_sentinel, read_process_output): If running filter
Richard M. Stallman <rms@gnu.org>
parents: 10744
diff changeset
6682 Lisp_Object sentinel, obuffer, odeactivate, okeymap;
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6683 register struct Lisp_Process *p = XPROCESS (proc);
46293
1fb8f75062c6 Use macro SPECPDL_INDEX.
Juanma Barranquero <lekktu@gmail.com>
parents: 45410
diff changeset
6684 int count = SPECPDL_INDEX ();
16644
3a93437adce1 (status_notify): Test p->infd > 0
Richard M. Stallman <rms@gnu.org>
parents: 16464
diff changeset
6685 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
6686 int waiting = waiting_for_user_input_p;
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6687
72727
5f2a73453aa3 (inhibit_sentinels): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 72277
diff changeset
6688 if (inhibit_sentinels)
5f2a73453aa3 (inhibit_sentinels): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 72277
diff changeset
6689 return;
5f2a73453aa3 (inhibit_sentinels): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 72277
diff changeset
6690
10914
413d44c0bd41 (exec_sentinel, read_process_output): If running filter
Richard M. Stallman <rms@gnu.org>
parents: 10744
diff changeset
6691 /* 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
6692 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
6693 odeactivate = Vdeactivate_mark;
10914
413d44c0bd41 (exec_sentinel, read_process_output): If running filter
Richard M. Stallman <rms@gnu.org>
parents: 10744
diff changeset
6694 XSETBUFFER (obuffer, current_buffer);
413d44c0bd41 (exec_sentinel, read_process_output): If running filter
Richard M. Stallman <rms@gnu.org>
parents: 10744
diff changeset
6695 okeymap = current_buffer->keymap;
413d44c0bd41 (exec_sentinel, read_process_output): If running filter
Richard M. Stallman <rms@gnu.org>
parents: 10744
diff changeset
6696
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6697 sentinel = p->sentinel;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6698 if (NILP (sentinel))
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6699 return;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6700
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6701 /* Zilch the sentinel while it's running, to avoid recursive invocations;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6702 assure that it gets restored no matter how the sentinel exits. */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6703 p->sentinel = Qnil;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6704 record_unwind_protect (exec_sentinel_unwind, Fcons (proc, sentinel));
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6705 /* Inhibit quit so that random quits don't screw up a running filter. */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6706 specbind (Qinhibit_quit, Qt);
8231
5226ed89c1a6 (Qlast_nonmenu_event): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 8063
diff changeset
6707 specbind (Qlast_nonmenu_event, Qt);
9030
b14532c71632 (exec_sentinel_error_handler): New function.
Richard M. Stallman <rms@gnu.org>
parents: 8570
diff changeset
6708
16644
3a93437adce1 (status_notify): Test p->infd > 0
Richard M. Stallman <rms@gnu.org>
parents: 16464
diff changeset
6709 /* In case we get recursively called,
3a93437adce1 (status_notify): Test p->infd > 0
Richard M. Stallman <rms@gnu.org>
parents: 16464
diff changeset
6710 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
6711 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
6712 if (outer_running_asynch_code)
3a93437adce1 (status_notify): Test p->infd > 0
Richard M. Stallman <rms@gnu.org>
parents: 16464
diff changeset
6713 {
3a93437adce1 (status_notify): Test p->infd > 0
Richard M. Stallman <rms@gnu.org>
parents: 16464
diff changeset
6714 Lisp_Object tem;
63147
9bde03db5726 * composite.c (compose_chars_in_text):
Kim F. Storm <storm@cua.dk>
parents: 63128
diff changeset
6715 tem = Fmatch_data (Qnil, Qnil, Qnil);
9bde03db5726 * composite.c (compose_chars_in_text):
Kim F. Storm <storm@cua.dk>
parents: 63128
diff changeset
6716 restore_search_regs ();
9bde03db5726 * composite.c (compose_chars_in_text):
Kim F. Storm <storm@cua.dk>
parents: 63128
diff changeset
6717 record_unwind_save_match_data ();
9bde03db5726 * composite.c (compose_chars_in_text):
Kim F. Storm <storm@cua.dk>
parents: 63128
diff changeset
6718 Fset_match_data (tem, Qt);
16644
3a93437adce1 (status_notify): Test p->infd > 0
Richard M. Stallman <rms@gnu.org>
parents: 16464
diff changeset
6719 }
3a93437adce1 (status_notify): Test p->infd > 0
Richard M. Stallman <rms@gnu.org>
parents: 16464
diff changeset
6720
3a93437adce1 (status_notify): Test p->infd > 0
Richard M. Stallman <rms@gnu.org>
parents: 16464
diff changeset
6721 /* 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
6722 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
6723 running_asynch_code = 1;
16644
3a93437adce1 (status_notify): Test p->infd > 0
Richard M. Stallman <rms@gnu.org>
parents: 16464
diff changeset
6724
9030
b14532c71632 (exec_sentinel_error_handler): New function.
Richard M. Stallman <rms@gnu.org>
parents: 8570
diff changeset
6725 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
6726 Fcons (sentinel,
b14532c71632 (exec_sentinel_error_handler): New function.
Richard M. Stallman <rms@gnu.org>
parents: 8570
diff changeset
6727 Fcons (proc, Fcons (reason, Qnil))),
b14532c71632 (exec_sentinel_error_handler): New function.
Richard M. Stallman <rms@gnu.org>
parents: 8570
diff changeset
6728 !NILP (Vdebug_on_error) ? Qnil : Qerror,
b14532c71632 (exec_sentinel_error_handler): New function.
Richard M. Stallman <rms@gnu.org>
parents: 8570
diff changeset
6729 exec_sentinel_error_handler);
16644
3a93437adce1 (status_notify): Test p->infd > 0
Richard M. Stallman <rms@gnu.org>
parents: 16464
diff changeset
6730
3a93437adce1 (status_notify): Test p->infd > 0
Richard M. Stallman <rms@gnu.org>
parents: 16464
diff changeset
6731 /* If we saved the match data nonrecursively, restore it now. */
63147
9bde03db5726 * composite.c (compose_chars_in_text):
Kim F. Storm <storm@cua.dk>
parents: 63128
diff changeset
6732 restore_search_regs ();
16644
3a93437adce1 (status_notify): Test p->infd > 0
Richard M. Stallman <rms@gnu.org>
parents: 16464
diff changeset
6733 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
6734
8d9e41a175fa (exec_sentinel): Don't deactivate the mark. Check for asynch buffer switch.
Karl Heuer <kwzh@gnu.org>
parents: 7414
diff changeset
6735 Vdeactivate_mark = odeactivate;
23460
94f4ba741f22 (exec_sentinel, read_process_output):
Richard M. Stallman <rms@gnu.org>
parents: 23405
diff changeset
6736
94f4ba741f22 (exec_sentinel, read_process_output):
Richard M. Stallman <rms@gnu.org>
parents: 23405
diff changeset
6737 /* 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
6738 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
6739 waiting_for_user_input_p = waiting;
94f4ba741f22 (exec_sentinel, read_process_output):
Richard M. Stallman <rms@gnu.org>
parents: 23405
diff changeset
6740
12808
4db1f387e85f (read_process_output, exec_sentinel): Call
Richard M. Stallman <rms@gnu.org>
parents: 12749
diff changeset
6741 #if 0
10914
413d44c0bd41 (exec_sentinel, read_process_output): If running filter
Richard M. Stallman <rms@gnu.org>
parents: 10744
diff changeset
6742 if (! EQ (Fcurrent_buffer (), obuffer)
413d44c0bd41 (exec_sentinel, read_process_output): If running filter
Richard M. Stallman <rms@gnu.org>
parents: 10744
diff changeset
6743 || ! EQ (current_buffer->keymap, okeymap))
12808
4db1f387e85f (read_process_output, exec_sentinel): Call
Richard M. Stallman <rms@gnu.org>
parents: 12749
diff changeset
6744 #endif
13159
2af96ac471bc (exec_sentinel, read_process_output):
Richard M. Stallman <rms@gnu.org>
parents: 12808
diff changeset
6745 /* 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
6746 Otherwise there's no need to make him wake up, and it could
71762
f3f2486cf6bc Doc fix.
Chong Yidong <cyd@stupidchicken.com>
parents: 71140
diff changeset
6747 cause trouble (for example it would make sit_for return). */
13159
2af96ac471bc (exec_sentinel, read_process_output):
Richard M. Stallman <rms@gnu.org>
parents: 12808
diff changeset
6748 if (waiting_for_user_input_p == -1)
2af96ac471bc (exec_sentinel, read_process_output):
Richard M. Stallman <rms@gnu.org>
parents: 12808
diff changeset
6749 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
6750
5561
fd7524d61a8d (read_process_output): Supply second arg to unbind_to.
Richard M. Stallman <rms@gnu.org>
parents: 5548
diff changeset
6751 unbind_to (count, Qnil);
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6752 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6753
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6754 /* Report all recent events of a change in process status
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6755 (either run the sentinel or output a message).
44372
65c0edf0d53c Comment change.
Richard M. Stallman <rms@gnu.org>
parents: 44314
diff changeset
6756 This is usually done while Emacs is waiting for keyboard input
65c0edf0d53c Comment change.
Richard M. Stallman <rms@gnu.org>
parents: 44314
diff changeset
6757 but can be done at other times. */
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6758
64977
d26871fb1b7b (deactivate_process, status_notify, read_process_output)
Kim F. Storm <storm@cua.dk>
parents: 64770
diff changeset
6759 static void
d26871fb1b7b (deactivate_process, status_notify, read_process_output)
Kim F. Storm <storm@cua.dk>
parents: 64770
diff changeset
6760 status_notify (deleting_process)
d26871fb1b7b (deactivate_process, status_notify, read_process_output)
Kim F. Storm <storm@cua.dk>
parents: 64770
diff changeset
6761 struct Lisp_Process *deleting_process;
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6762 {
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6763 register Lisp_Object proc, buffer;
6515
df7438605e1e (status_notify): Use assignment, not initialization.
Karl Heuer <kwzh@gnu.org>
parents: 6429
diff changeset
6764 Lisp_Object tail, msg;
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6765 struct gcpro gcpro1, gcpro2;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6766
6515
df7438605e1e (status_notify): Use assignment, not initialization.
Karl Heuer <kwzh@gnu.org>
parents: 6429
diff changeset
6767 tail = Qnil;
df7438605e1e (status_notify): Use assignment, not initialization.
Karl Heuer <kwzh@gnu.org>
parents: 6429
diff changeset
6768 msg = Qnil;
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6769 /* We need to gcpro tail; if read_process_output calls a filter
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6770 which deletes a process and removes the cons to which tail points
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6771 from Vprocess_alist, and then causes a GC, tail is an unprotected
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6772 reference. */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6773 GCPRO2 (tail, msg);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6774
12215
2f1f03964f08 (status_notify): Undo May 18 change.
Richard M. Stallman <rms@gnu.org>
parents: 12132
diff changeset
6775 /* 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
6776 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
6777 update_tick = process_tick;
2f1f03964f08 (status_notify): Undo May 18 change.
Richard M. Stallman <rms@gnu.org>
parents: 12132
diff changeset
6778
2f1f03964f08 (status_notify): Undo May 18 change.
Richard M. Stallman <rms@gnu.org>
parents: 12132
diff changeset
6779 for (tail = Vprocess_alist; !NILP (tail); tail = Fcdr (tail))
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6780 {
12215
2f1f03964f08 (status_notify): Undo May 18 change.
Richard M. Stallman <rms@gnu.org>
parents: 12132
diff changeset
6781 Lisp_Object symbol;
2f1f03964f08 (status_notify): Undo May 18 change.
Richard M. Stallman <rms@gnu.org>
parents: 12132
diff changeset
6782 register struct Lisp_Process *p;
2f1f03964f08 (status_notify): Undo May 18 change.
Richard M. Stallman <rms@gnu.org>
parents: 12132
diff changeset
6783
2f1f03964f08 (status_notify): Undo May 18 change.
Richard M. Stallman <rms@gnu.org>
parents: 12132
diff changeset
6784 proc = Fcdr (Fcar (tail));
2f1f03964f08 (status_notify): Undo May 18 change.
Richard M. Stallman <rms@gnu.org>
parents: 12132
diff changeset
6785 p = XPROCESS (proc);
2f1f03964f08 (status_notify): Undo May 18 change.
Richard M. Stallman <rms@gnu.org>
parents: 12132
diff changeset
6786
81826
077a1e6fd3f2 (struct Lisp_Process): Turn slots infd, outfd, kill_without_query, pty_flag,
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 80984
diff changeset
6787 if (p->tick != p->update_tick)
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6788 {
81826
077a1e6fd3f2 (struct Lisp_Process): Turn slots infd, outfd, kill_without_query, pty_flag,
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 80984
diff changeset
6789 p->update_tick = p->tick;
12215
2f1f03964f08 (status_notify): Undo May 18 change.
Richard M. Stallman <rms@gnu.org>
parents: 12132
diff changeset
6790
2f1f03964f08 (status_notify): Undo May 18 change.
Richard M. Stallman <rms@gnu.org>
parents: 12132
diff changeset
6791 /* 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
6792 while (! EQ (p->filter, Qt)
43598
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
6793 && ! EQ (p->status, Qconnect)
43968
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
6794 && ! EQ (p->status, Qlisten)
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
6795 && ! EQ (p->command, Qt) /* Network process not stopped. */
81826
077a1e6fd3f2 (struct Lisp_Process): Turn slots infd, outfd, kill_without_query, pty_flag,
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 80984
diff changeset
6796 && p->infd >= 0
64977
d26871fb1b7b (deactivate_process, status_notify, read_process_output)
Kim F. Storm <storm@cua.dk>
parents: 64770
diff changeset
6797 && p != deleting_process
81826
077a1e6fd3f2 (struct Lisp_Process): Turn slots infd, outfd, kill_without_query, pty_flag,
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 80984
diff changeset
6798 && read_process_output (proc, p->infd) > 0);
12215
2f1f03964f08 (status_notify): Undo May 18 change.
Richard M. Stallman <rms@gnu.org>
parents: 12132
diff changeset
6799
2f1f03964f08 (status_notify): Undo May 18 change.
Richard M. Stallman <rms@gnu.org>
parents: 12132
diff changeset
6800 buffer = p->buffer;
2f1f03964f08 (status_notify): Undo May 18 change.
Richard M. Stallman <rms@gnu.org>
parents: 12132
diff changeset
6801
2f1f03964f08 (status_notify): Undo May 18 change.
Richard M. Stallman <rms@gnu.org>
parents: 12132
diff changeset
6802 /* Get the text to use for the message. */
69873
2d844bbbccd4 * process.h (struct Lisp_Process): Replace Lisp_Objects `pid',
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 69634
diff changeset
6803 if (p->raw_status_new)
12215
2f1f03964f08 (status_notify): Undo May 18 change.
Richard M. Stallman <rms@gnu.org>
parents: 12132
diff changeset
6804 update_status (p);
55962
8979bc3ade70 (Fdelete_process): Undo 2004-05-28 change.
Kim F. Storm <storm@cua.dk>
parents: 55810
diff changeset
6805 msg = status_message (p);
12215
2f1f03964f08 (status_notify): Undo May 18 change.
Richard M. Stallman <rms@gnu.org>
parents: 12132
diff changeset
6806
2f1f03964f08 (status_notify): Undo May 18 change.
Richard M. Stallman <rms@gnu.org>
parents: 12132
diff changeset
6807 /* 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
6808 symbol = p->status;
2f1f03964f08 (status_notify): Undo May 18 change.
Richard M. Stallman <rms@gnu.org>
parents: 12132
diff changeset
6809 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
6810 symbol = XCAR (p->status);
12215
2f1f03964f08 (status_notify): Undo May 18 change.
Richard M. Stallman <rms@gnu.org>
parents: 12132
diff changeset
6811
2f1f03964f08 (status_notify): Undo May 18 change.
Richard M. Stallman <rms@gnu.org>
parents: 12132
diff changeset
6812 if (EQ (symbol, Qsignal) || EQ (symbol, Qexit)
2f1f03964f08 (status_notify): Undo May 18 change.
Richard M. Stallman <rms@gnu.org>
parents: 12132
diff changeset
6813 || EQ (symbol, Qclosed))
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6814 {
12215
2f1f03964f08 (status_notify): Undo May 18 change.
Richard M. Stallman <rms@gnu.org>
parents: 12132
diff changeset
6815 if (delete_exited_processes)
2f1f03964f08 (status_notify): Undo May 18 change.
Richard M. Stallman <rms@gnu.org>
parents: 12132
diff changeset
6816 remove_process (proc);
2f1f03964f08 (status_notify): Undo May 18 change.
Richard M. Stallman <rms@gnu.org>
parents: 12132
diff changeset
6817 else
2f1f03964f08 (status_notify): Undo May 18 change.
Richard M. Stallman <rms@gnu.org>
parents: 12132
diff changeset
6818 deactivate_process (proc);
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6819 }
12215
2f1f03964f08 (status_notify): Undo May 18 change.
Richard M. Stallman <rms@gnu.org>
parents: 12132
diff changeset
6820
16464
c1f19d8e5b80 (status_notify): Update p->tick again
Richard M. Stallman <rms@gnu.org>
parents: 16220
diff changeset
6821 /* 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
6822 So set p->update_tick again
c1f19d8e5b80 (status_notify): Update p->tick again
Richard M. Stallman <rms@gnu.org>
parents: 16220
diff changeset
6823 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
6824 this code to be run again. */
81826
077a1e6fd3f2 (struct Lisp_Process): Turn slots infd, outfd, kill_without_query, pty_flag,
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 80984
diff changeset
6825 p->update_tick = p->tick;
12215
2f1f03964f08 (status_notify): Undo May 18 change.
Richard M. Stallman <rms@gnu.org>
parents: 12132
diff changeset
6826 /* Now output the message suitably. */
2f1f03964f08 (status_notify): Undo May 18 change.
Richard M. Stallman <rms@gnu.org>
parents: 12132
diff changeset
6827 if (!NILP (p->sentinel))
2f1f03964f08 (status_notify): Undo May 18 change.
Richard M. Stallman <rms@gnu.org>
parents: 12132
diff changeset
6828 exec_sentinel (proc, msg);
2f1f03964f08 (status_notify): Undo May 18 change.
Richard M. Stallman <rms@gnu.org>
parents: 12132
diff changeset
6829 /* 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
6830 when a process becomes runnable. */
2f1f03964f08 (status_notify): Undo May 18 change.
Richard M. Stallman <rms@gnu.org>
parents: 12132
diff changeset
6831 else if (!EQ (symbol, Qrun) && !NILP (buffer))
2f1f03964f08 (status_notify): Undo May 18 change.
Richard M. Stallman <rms@gnu.org>
parents: 12132
diff changeset
6832 {
2f1f03964f08 (status_notify): Undo May 18 change.
Richard M. Stallman <rms@gnu.org>
parents: 12132
diff changeset
6833 Lisp_Object ro, tem;
2f1f03964f08 (status_notify): Undo May 18 change.
Richard M. Stallman <rms@gnu.org>
parents: 12132
diff changeset
6834 struct buffer *old = current_buffer;
20551
5f17380c85f1 (status_notify): Use byte and char pointers.
Richard M. Stallman <rms@gnu.org>
parents: 20433
diff changeset
6835 int opoint, opoint_byte;
5f17380c85f1 (status_notify): Use byte and char pointers.
Richard M. Stallman <rms@gnu.org>
parents: 20433
diff changeset
6836 int before, before_byte;
12215
2f1f03964f08 (status_notify): Undo May 18 change.
Richard M. Stallman <rms@gnu.org>
parents: 12132
diff changeset
6837
2f1f03964f08 (status_notify): Undo May 18 change.
Richard M. Stallman <rms@gnu.org>
parents: 12132
diff changeset
6838 ro = XBUFFER (buffer)->read_only;
2f1f03964f08 (status_notify): Undo May 18 change.
Richard M. Stallman <rms@gnu.org>
parents: 12132
diff changeset
6839
2f1f03964f08 (status_notify): Undo May 18 change.
Richard M. Stallman <rms@gnu.org>
parents: 12132
diff changeset
6840 /* Avoid error if buffer is deleted
2f1f03964f08 (status_notify): Undo May 18 change.
Richard M. Stallman <rms@gnu.org>
parents: 12132
diff changeset
6841 (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
6842 if (NILP (XBUFFER (buffer)->name))
2f1f03964f08 (status_notify): Undo May 18 change.
Richard M. Stallman <rms@gnu.org>
parents: 12132
diff changeset
6843 continue;
2f1f03964f08 (status_notify): Undo May 18 change.
Richard M. Stallman <rms@gnu.org>
parents: 12132
diff changeset
6844 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
6845
16039
855c8d8ba0f0 Change all references from point to PT.
Karl Heuer <kwzh@gnu.org>
parents: 15895
diff changeset
6846 opoint = PT;
20551
5f17380c85f1 (status_notify): Use byte and char pointers.
Richard M. Stallman <rms@gnu.org>
parents: 20433
diff changeset
6847 opoint_byte = PT_BYTE;
12215
2f1f03964f08 (status_notify): Undo May 18 change.
Richard M. Stallman <rms@gnu.org>
parents: 12132
diff changeset
6848 /* Insert new output into buffer
2f1f03964f08 (status_notify): Undo May 18 change.
Richard M. Stallman <rms@gnu.org>
parents: 12132
diff changeset
6849 at the current end-of-output marker,
2f1f03964f08 (status_notify): Undo May 18 change.
Richard M. Stallman <rms@gnu.org>
parents: 12132
diff changeset
6850 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
6851 if (XMARKER (p->mark)->buffer)
20551
5f17380c85f1 (status_notify): Use byte and char pointers.
Richard M. Stallman <rms@gnu.org>
parents: 20433
diff changeset
6852 Fgoto_char (p->mark);
12215
2f1f03964f08 (status_notify): Undo May 18 change.
Richard M. Stallman <rms@gnu.org>
parents: 12132
diff changeset
6853 else
20551
5f17380c85f1 (status_notify): Use byte and char pointers.
Richard M. Stallman <rms@gnu.org>
parents: 20433
diff changeset
6854 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
6855
77b137e2d9a7 (read_process_output): Update opoint, old_begv and old_zv
Richard M. Stallman <rms@gnu.org>
parents: 17247
diff changeset
6856 before = PT;
20551
5f17380c85f1 (status_notify): Use byte and char pointers.
Richard M. Stallman <rms@gnu.org>
parents: 20433
diff changeset
6857 before_byte = PT_BYTE;
12215
2f1f03964f08 (status_notify): Undo May 18 change.
Richard M. Stallman <rms@gnu.org>
parents: 12132
diff changeset
6858
2f1f03964f08 (status_notify): Undo May 18 change.
Richard M. Stallman <rms@gnu.org>
parents: 12132
diff changeset
6859 tem = current_buffer->read_only;
2f1f03964f08 (status_notify): Undo May 18 change.
Richard M. Stallman <rms@gnu.org>
parents: 12132
diff changeset
6860 current_buffer->read_only = Qnil;
2f1f03964f08 (status_notify): Undo May 18 change.
Richard M. Stallman <rms@gnu.org>
parents: 12132
diff changeset
6861 insert_string ("\nProcess ");
2f1f03964f08 (status_notify): Undo May 18 change.
Richard M. Stallman <rms@gnu.org>
parents: 12132
diff changeset
6862 Finsert (1, &p->name);
2f1f03964f08 (status_notify): Undo May 18 change.
Richard M. Stallman <rms@gnu.org>
parents: 12132
diff changeset
6863 insert_string (" ");
2f1f03964f08 (status_notify): Undo May 18 change.
Richard M. Stallman <rms@gnu.org>
parents: 12132
diff changeset
6864 Finsert (1, &msg);
2f1f03964f08 (status_notify): Undo May 18 change.
Richard M. Stallman <rms@gnu.org>
parents: 12132
diff changeset
6865 current_buffer->read_only = tem;
20551
5f17380c85f1 (status_notify): Use byte and char pointers.
Richard M. Stallman <rms@gnu.org>
parents: 20433
diff changeset
6866 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
6867
17604
77b137e2d9a7 (read_process_output): Update opoint, old_begv and old_zv
Richard M. Stallman <rms@gnu.org>
parents: 17247
diff changeset
6868 if (opoint >= before)
20551
5f17380c85f1 (status_notify): Use byte and char pointers.
Richard M. Stallman <rms@gnu.org>
parents: 20433
diff changeset
6869 SET_PT_BOTH (opoint + (PT - before),
5f17380c85f1 (status_notify): Use byte and char pointers.
Richard M. Stallman <rms@gnu.org>
parents: 20433
diff changeset
6870 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
6871 else
20551
5f17380c85f1 (status_notify): Use byte and char pointers.
Richard M. Stallman <rms@gnu.org>
parents: 20433
diff changeset
6872 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
6873
12215
2f1f03964f08 (status_notify): Undo May 18 change.
Richard M. Stallman <rms@gnu.org>
parents: 12132
diff changeset
6874 set_buffer_internal (old);
2f1f03964f08 (status_notify): Undo May 18 change.
Richard M. Stallman <rms@gnu.org>
parents: 12132
diff changeset
6875 }
2f1f03964f08 (status_notify): Undo May 18 change.
Richard M. Stallman <rms@gnu.org>
parents: 12132
diff changeset
6876 }
2f1f03964f08 (status_notify): Undo May 18 change.
Richard M. Stallman <rms@gnu.org>
parents: 12132
diff changeset
6877 } /* end for */
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6878
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6879 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
6880 redisplay_preserve_echo_area (13);
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6881
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6882 UNGCPRO;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6883 }
17041
b61cbe595be5 Include charset.h and coding.h.
Karl Heuer <kwzh@gnu.org>
parents: 16780
diff changeset
6884
b61cbe595be5 Include charset.h and coding.h.
Karl Heuer <kwzh@gnu.org>
parents: 16780
diff changeset
6885
b61cbe595be5 Include charset.h and coding.h.
Karl Heuer <kwzh@gnu.org>
parents: 16780
diff changeset
6886 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
6887 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
6888 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
6889 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
6890 encode subprocess input. */)
55444
976d03256b41 (Fwaiting_for_user_input_p, Fmake_network_process)
Juanma Barranquero <lekktu@gmail.com>
parents: 53835
diff changeset
6891 (process, decoding, encoding)
976d03256b41 (Fwaiting_for_user_input_p, Fmake_network_process)
Juanma Barranquero <lekktu@gmail.com>
parents: 53835
diff changeset
6892 register Lisp_Object process, decoding, encoding;
17041
b61cbe595be5 Include charset.h and coding.h.
Karl Heuer <kwzh@gnu.org>
parents: 16780
diff changeset
6893 {
b61cbe595be5 Include charset.h and coding.h.
Karl Heuer <kwzh@gnu.org>
parents: 16780
diff changeset
6894 register struct Lisp_Process *p;
b61cbe595be5 Include charset.h and coding.h.
Karl Heuer <kwzh@gnu.org>
parents: 16780
diff changeset
6895
55444
976d03256b41 (Fwaiting_for_user_input_p, Fmake_network_process)
Juanma Barranquero <lekktu@gmail.com>
parents: 53835
diff changeset
6896 CHECK_PROCESS (process);
976d03256b41 (Fwaiting_for_user_input_p, Fmake_network_process)
Juanma Barranquero <lekktu@gmail.com>
parents: 53835
diff changeset
6897 p = XPROCESS (process);
81826
077a1e6fd3f2 (struct Lisp_Process): Turn slots infd, outfd, kill_without_query, pty_flag,
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 80984
diff changeset
6898 if (p->infd < 0)
46370
40db0673e6f0 Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents: 46314
diff changeset
6899 error ("Input file descriptor of %s closed", SDATA (p->name));
81826
077a1e6fd3f2 (struct Lisp_Process): Turn slots infd, outfd, kill_without_query, pty_flag,
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 80984
diff changeset
6900 if (p->outfd < 0)
46370
40db0673e6f0 Most uses of XSTRING combined with STRING_BYTES or indirection changed to
Ken Raeburn <raeburn@raeburn.org>
parents: 46314
diff changeset
6901 error ("Output file descriptor of %s closed", SDATA (p->name));
49667
cbec1327e2f1 (QCfilter_multibyte): New variable.
Kenichi Handa <handa@m17n.org>
parents: 49600
diff changeset
6902 Fcheck_coding_system (decoding);
cbec1327e2f1 (QCfilter_multibyte): New variable.
Kenichi Handa <handa@m17n.org>
parents: 49600
diff changeset
6903 Fcheck_coding_system (encoding);
cbec1327e2f1 (QCfilter_multibyte): New variable.
Kenichi Handa <handa@m17n.org>
parents: 49600
diff changeset
6904
cbec1327e2f1 (QCfilter_multibyte): New variable.
Kenichi Handa <handa@m17n.org>
parents: 49600
diff changeset
6905 p->decode_coding_system = decoding;
cbec1327e2f1 (QCfilter_multibyte): New variable.
Kenichi Handa <handa@m17n.org>
parents: 49600
diff changeset
6906 p->encode_coding_system = encoding;
55444
976d03256b41 (Fwaiting_for_user_input_p, Fmake_network_process)
Juanma Barranquero <lekktu@gmail.com>
parents: 53835
diff changeset
6907 setup_process_coding_systems (process);
17041
b61cbe595be5 Include charset.h and coding.h.
Karl Heuer <kwzh@gnu.org>
parents: 16780
diff changeset
6908
b61cbe595be5 Include charset.h and coding.h.
Karl Heuer <kwzh@gnu.org>
parents: 16780
diff changeset
6909 return Qnil;
b61cbe595be5 Include charset.h and coding.h.
Karl Heuer <kwzh@gnu.org>
parents: 16780
diff changeset
6910 }
b61cbe595be5 Include charset.h and coding.h.
Karl Heuer <kwzh@gnu.org>
parents: 16780
diff changeset
6911
b61cbe595be5 Include charset.h and coding.h.
Karl Heuer <kwzh@gnu.org>
parents: 16780
diff changeset
6912 DEFUN ("process-coding-system",
b61cbe595be5 Include charset.h and coding.h.
Karl Heuer <kwzh@gnu.org>
parents: 16780
diff changeset
6913 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
6914 doc: /* Return a cons of coding systems for decoding and encoding of PROCESS. */)
55444
976d03256b41 (Fwaiting_for_user_input_p, Fmake_network_process)
Juanma Barranquero <lekktu@gmail.com>
parents: 53835
diff changeset
6915 (process)
976d03256b41 (Fwaiting_for_user_input_p, Fmake_network_process)
Juanma Barranquero <lekktu@gmail.com>
parents: 53835
diff changeset
6916 register Lisp_Object process;
17041
b61cbe595be5 Include charset.h and coding.h.
Karl Heuer <kwzh@gnu.org>
parents: 16780
diff changeset
6917 {
55444
976d03256b41 (Fwaiting_for_user_input_p, Fmake_network_process)
Juanma Barranquero <lekktu@gmail.com>
parents: 53835
diff changeset
6918 CHECK_PROCESS (process);
976d03256b41 (Fwaiting_for_user_input_p, Fmake_network_process)
Juanma Barranquero <lekktu@gmail.com>
parents: 53835
diff changeset
6919 return Fcons (XPROCESS (process)->decode_coding_system,
976d03256b41 (Fwaiting_for_user_input_p, Fmake_network_process)
Juanma Barranquero <lekktu@gmail.com>
parents: 53835
diff changeset
6920 XPROCESS (process)->encode_coding_system);
17041
b61cbe595be5 Include charset.h and coding.h.
Karl Heuer <kwzh@gnu.org>
parents: 16780
diff changeset
6921 }
49667
cbec1327e2f1 (QCfilter_multibyte): New variable.
Kenichi Handa <handa@m17n.org>
parents: 49600
diff changeset
6922
cbec1327e2f1 (QCfilter_multibyte): New variable.
Kenichi Handa <handa@m17n.org>
parents: 49600
diff changeset
6923 DEFUN ("set-process-filter-multibyte", Fset_process_filter_multibyte,
cbec1327e2f1 (QCfilter_multibyte): New variable.
Kenichi Handa <handa@m17n.org>
parents: 49600
diff changeset
6924 Sset_process_filter_multibyte, 2, 2, 0,
49680
7c27c9efd353 Doc fixes.
Kim F. Storm <storm@cua.dk>
parents: 49667
diff changeset
6925 doc: /* Set multibyteness of the strings given to PROCESS's filter.
7c27c9efd353 Doc fixes.
Kim F. Storm <storm@cua.dk>
parents: 49667
diff changeset
6926 If FLAG is non-nil, the filter is given multibyte strings.
7c27c9efd353 Doc fixes.
Kim F. Storm <storm@cua.dk>
parents: 49667
diff changeset
6927 If FLAG is nil, the filter is given unibyte strings. In this case,
49667
cbec1327e2f1 (QCfilter_multibyte): New variable.
Kenichi Handa <handa@m17n.org>
parents: 49600
diff changeset
6928 all character code conversion except for end-of-line conversion is
cbec1327e2f1 (QCfilter_multibyte): New variable.
Kenichi Handa <handa@m17n.org>
parents: 49600
diff changeset
6929 suppressed. */)
55444
976d03256b41 (Fwaiting_for_user_input_p, Fmake_network_process)
Juanma Barranquero <lekktu@gmail.com>
parents: 53835
diff changeset
6930 (process, flag)
976d03256b41 (Fwaiting_for_user_input_p, Fmake_network_process)
Juanma Barranquero <lekktu@gmail.com>
parents: 53835
diff changeset
6931 Lisp_Object process, flag;
49667
cbec1327e2f1 (QCfilter_multibyte): New variable.
Kenichi Handa <handa@m17n.org>
parents: 49600
diff changeset
6932 {
cbec1327e2f1 (QCfilter_multibyte): New variable.
Kenichi Handa <handa@m17n.org>
parents: 49600
diff changeset
6933 register struct Lisp_Process *p;
cbec1327e2f1 (QCfilter_multibyte): New variable.
Kenichi Handa <handa@m17n.org>
parents: 49600
diff changeset
6934
55444
976d03256b41 (Fwaiting_for_user_input_p, Fmake_network_process)
Juanma Barranquero <lekktu@gmail.com>
parents: 53835
diff changeset
6935 CHECK_PROCESS (process);
976d03256b41 (Fwaiting_for_user_input_p, Fmake_network_process)
Juanma Barranquero <lekktu@gmail.com>
parents: 53835
diff changeset
6936 p = XPROCESS (process);
81826
077a1e6fd3f2 (struct Lisp_Process): Turn slots infd, outfd, kill_without_query, pty_flag,
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 80984
diff changeset
6937 p->filter_multibyte = !NILP (flag);
55444
976d03256b41 (Fwaiting_for_user_input_p, Fmake_network_process)
Juanma Barranquero <lekktu@gmail.com>
parents: 53835
diff changeset
6938 setup_process_coding_systems (process);
49667
cbec1327e2f1 (QCfilter_multibyte): New variable.
Kenichi Handa <handa@m17n.org>
parents: 49600
diff changeset
6939
cbec1327e2f1 (QCfilter_multibyte): New variable.
Kenichi Handa <handa@m17n.org>
parents: 49600
diff changeset
6940 return Qnil;
cbec1327e2f1 (QCfilter_multibyte): New variable.
Kenichi Handa <handa@m17n.org>
parents: 49600
diff changeset
6941 }
cbec1327e2f1 (QCfilter_multibyte): New variable.
Kenichi Handa <handa@m17n.org>
parents: 49600
diff changeset
6942
cbec1327e2f1 (QCfilter_multibyte): New variable.
Kenichi Handa <handa@m17n.org>
parents: 49600
diff changeset
6943 DEFUN ("process-filter-multibyte-p", Fprocess_filter_multibyte_p,
cbec1327e2f1 (QCfilter_multibyte): New variable.
Kenichi Handa <handa@m17n.org>
parents: 49600
diff changeset
6944 Sprocess_filter_multibyte_p, 1, 1, 0,
cbec1327e2f1 (QCfilter_multibyte): New variable.
Kenichi Handa <handa@m17n.org>
parents: 49600
diff changeset
6945 doc: /* Return t if a multibyte string is given to PROCESS's filter.*/)
55444
976d03256b41 (Fwaiting_for_user_input_p, Fmake_network_process)
Juanma Barranquero <lekktu@gmail.com>
parents: 53835
diff changeset
6946 (process)
976d03256b41 (Fwaiting_for_user_input_p, Fmake_network_process)
Juanma Barranquero <lekktu@gmail.com>
parents: 53835
diff changeset
6947 Lisp_Object process;
49667
cbec1327e2f1 (QCfilter_multibyte): New variable.
Kenichi Handa <handa@m17n.org>
parents: 49600
diff changeset
6948 {
cbec1327e2f1 (QCfilter_multibyte): New variable.
Kenichi Handa <handa@m17n.org>
parents: 49600
diff changeset
6949 register struct Lisp_Process *p;
cbec1327e2f1 (QCfilter_multibyte): New variable.
Kenichi Handa <handa@m17n.org>
parents: 49600
diff changeset
6950
55444
976d03256b41 (Fwaiting_for_user_input_p, Fmake_network_process)
Juanma Barranquero <lekktu@gmail.com>
parents: 53835
diff changeset
6951 CHECK_PROCESS (process);
976d03256b41 (Fwaiting_for_user_input_p, Fmake_network_process)
Juanma Barranquero <lekktu@gmail.com>
parents: 53835
diff changeset
6952 p = XPROCESS (process);
49667
cbec1327e2f1 (QCfilter_multibyte): New variable.
Kenichi Handa <handa@m17n.org>
parents: 49600
diff changeset
6953
81826
077a1e6fd3f2 (struct Lisp_Process): Turn slots infd, outfd, kill_without_query, pty_flag,
Stefan Monnier <monnier@iro.umontreal.ca>
parents: 80984
diff changeset
6954 return (p->filter_multibyte ? Qt : Qnil);
49667
cbec1327e2f1 (QCfilter_multibyte): New variable.
Kenichi Handa <handa@m17n.org>
parents: 49600
diff changeset
6955 }
cbec1327e2f1 (QCfilter_multibyte): New variable.
Kenichi Handa <handa@m17n.org>
parents: 49600
diff changeset
6956
cbec1327e2f1 (QCfilter_multibyte): New variable.
Kenichi Handa <handa@m17n.org>
parents: 49600
diff changeset
6957
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
6958
9686
cd788aa8cb2a Handle multiple keyboard input descriptors.
Richard M. Stallman <rms@gnu.org>
parents: 9334
diff changeset
6959 /* 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
6960 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
6961 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
6962 in addition to other places. */
cd788aa8cb2a Handle multiple keyboard input descriptors.
Richard M. Stallman <rms@gnu.org>
parents: 9334
diff changeset
6963
cd788aa8cb2a Handle multiple keyboard input descriptors.
Richard M. Stallman <rms@gnu.org>
parents: 9334
diff changeset
6964 static int add_keyboard_wait_descriptor_called_flag;
cd788aa8cb2a Handle multiple keyboard input descriptors.
Richard M. Stallman <rms@gnu.org>
parents: 9334
diff changeset
6965
cd788aa8cb2a Handle multiple keyboard input descriptors.
Richard M. Stallman <rms@gnu.org>
parents: 9334
diff changeset
6966 void
cd788aa8cb2a Handle multiple keyboard input descriptors.
Richard M. Stallman <rms@gnu.org>
parents: 9334
diff changeset
6967 add_keyboard_wait_descriptor (desc)
cd788aa8cb2a Handle multiple keyboard input descriptors.
Richard M. Stallman <rms@gnu.org>
parents: 9334
diff changeset
6968 int desc;
cd788aa8cb2a Handle multiple keyboard input descriptors.
Richard M. Stallman <rms@gnu.org>
parents: 9334
diff changeset
6969 {
cd788aa8cb2a Handle multiple keyboard input descriptors.
Richard M. Stallman <rms@gnu.org>
parents: 9334
diff changeset
6970 if (! add_keyboard_wait_descriptor_called_flag)
cd788aa8cb2a Handle multiple keyboard input descriptors.
Richard M. Stallman <rms@gnu.org>
parents: 9334
diff changeset
6971 FD_CLR (0, &input_wait_mask);
cd788aa8cb2a Handle multiple keyboard input descriptors.
Richard M. Stallman <rms@gnu.org>
parents: 9334
diff changeset
6972 add_keyboard_wait_descriptor_called_flag = 1;
cd788aa8cb2a Handle multiple keyboard input descriptors.
Richard M. Stallman <rms@gnu.org>
parents: 9334
diff changeset
6973 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
6974 FD_SET (desc, &non_process_wait_mask);
9686
cd788aa8cb2a Handle multiple keyboard input descriptors.
Richard M. Stallman <rms@gnu.org>
parents: 9334
diff changeset
6975 if (desc > max_keyboard_desc)
cd788aa8cb2a Handle multiple keyboard input descriptors.
Richard M. Stallman <rms@gnu.org>
parents: 9334
diff changeset
6976 max_keyboard_desc = desc;
cd788aa8cb2a Handle multiple keyboard input descriptors.
Richard M. Stallman <rms@gnu.org>
parents: 9334
diff changeset
6977 }
cd788aa8cb2a Handle multiple keyboard input descriptors.
Richard M. Stallman <rms@gnu.org>
parents: 9334
diff changeset
6978
80984
9247e9d47488 (gpm_wait_mask, max_gpm_desc): New variables.
Nick Roberts <nickrob@snap.net.nz>
parents: 77462
diff changeset
6979 static int add_gpm_wait_descriptor_called_flag;
9247e9d47488 (gpm_wait_mask, max_gpm_desc): New variables.
Nick Roberts <nickrob@snap.net.nz>
parents: 77462
diff changeset
6980
9247e9d47488 (gpm_wait_mask, max_gpm_desc): New variables.
Nick Roberts <nickrob@snap.net.nz>
parents: 77462
diff changeset
6981 void
9247e9d47488 (gpm_wait_mask, max_gpm_desc): New variables.
Nick Roberts <nickrob@snap.net.nz>
parents: 77462
diff changeset
6982 add_gpm_wait_descriptor (desc)
9247e9d47488 (gpm_wait_mask, max_gpm_desc): New variables.
Nick Roberts <nickrob@snap.net.nz>
parents: 77462
diff changeset
6983 int desc;
9247e9d47488 (gpm_wait_mask, max_gpm_desc): New variables.
Nick Roberts <nickrob@snap.net.nz>
parents: 77462
diff changeset
6984 {
9247e9d47488 (gpm_wait_mask, max_gpm_desc): New variables.
Nick Roberts <nickrob@snap.net.nz>
parents: 77462
diff changeset
6985 if (! add_gpm_wait_descriptor_called_flag)
9247e9d47488 (gpm_wait_mask, max_gpm_desc): New variables.
Nick Roberts <nickrob@snap.net.nz>
parents: 77462
diff changeset
6986 FD_CLR (0, &input_wait_mask);
9247e9d47488 (gpm_wait_mask, max_gpm_desc): New variables.
Nick Roberts <nickrob@snap.net.nz>
parents: 77462
diff changeset
6987 add_gpm_wait_descriptor_called_flag = 1;
9247e9d47488 (gpm_wait_mask, max_gpm_desc): New variables.
Nick Roberts <nickrob@snap.net.nz>
parents: 77462
diff changeset
6988 FD_SET (desc, &input_wait_mask);
9247e9d47488 (gpm_wait_mask, max_gpm_desc): New variables.
Nick Roberts <nickrob@snap.net.nz>
parents: 77462
diff changeset
6989 FD_SET (desc, &gpm_wait_mask);
9247e9d47488 (gpm_wait_mask, max_gpm_desc): New variables.
Nick Roberts <nickrob@snap.net.nz>
parents: 77462
diff changeset
6990 if (desc > max_gpm_desc)
9247e9d47488 (gpm_wait_mask, max_gpm_desc): New variables.
Nick Roberts <nickrob@snap.net.nz>
parents: 77462
diff changeset
6991 max_gpm_desc = desc;
9247e9d47488 (gpm_wait_mask, max_gpm_desc): New variables.
Nick Roberts <nickrob@snap.net.nz>
parents: 77462
diff changeset
6992 }
9247e9d47488 (gpm_wait_mask, max_gpm_desc): New variables.
Nick Roberts <nickrob@snap.net.nz>
parents: 77462
diff changeset
6993
9686
cd788aa8cb2a Handle multiple keyboard input descriptors.
Richard M. Stallman <rms@gnu.org>
parents: 9334
diff changeset
6994 /* 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
6995
cd788aa8cb2a Handle multiple keyboard input descriptors.
Richard M. Stallman <rms@gnu.org>
parents: 9334
diff changeset
6996 void
cd788aa8cb2a Handle multiple keyboard input descriptors.
Richard M. Stallman <rms@gnu.org>
parents: 9334
diff changeset
6997 delete_keyboard_wait_descriptor (desc)
cd788aa8cb2a Handle multiple keyboard input descriptors.
Richard M. Stallman <rms@gnu.org>
parents: 9334
diff changeset
6998 int desc;
cd788aa8cb2a Handle multiple keyboard input descriptors.
Richard M. Stallman <rms@gnu.org>
parents: 9334
diff changeset
6999 {
cd788aa8cb2a Handle multiple keyboard input descriptors.
Richard M. Stallman <rms@gnu.org>
parents: 9334
diff changeset
7000 int fd;
cd788aa8cb2a Handle multiple keyboard input descriptors.
Richard M. Stallman <rms@gnu.org>
parents: 9334
diff changeset
7001 int lim = max_keyboard_desc;
cd788aa8cb2a Handle multiple keyboard input descriptors.
Richard M. Stallman <rms@gnu.org>
parents: 9334
diff changeset
7002
cd788aa8cb2a Handle multiple keyboard input descriptors.
Richard M. Stallman <rms@gnu.org>
parents: 9334
diff changeset
7003 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
7004 FD_CLR (desc, &non_process_wait_mask);
9686
cd788aa8cb2a Handle multiple keyboard input descriptors.
Richard M. Stallman <rms@gnu.org>
parents: 9334
diff changeset
7005
cd788aa8cb2a Handle multiple keyboard input descriptors.
Richard M. Stallman <rms@gnu.org>
parents: 9334
diff changeset
7006 if (desc == max_keyboard_desc)
cd788aa8cb2a Handle multiple keyboard input descriptors.
Richard M. Stallman <rms@gnu.org>
parents: 9334
diff changeset
7007 for (fd = 0; fd < lim; fd++)
cd788aa8cb2a Handle multiple keyboard input descriptors.
Richard M. Stallman <rms@gnu.org>
parents: 9334
diff changeset
7008 if (FD_ISSET (fd, &input_wait_mask)
80984
9247e9d47488 (gpm_wait_mask, max_gpm_desc): New variables.
Nick Roberts <nickrob@snap.net.nz>
parents: 77462
diff changeset
7009 && !FD_ISSET (fd, &non_keyboard_wait_mask)
9247e9d47488 (gpm_wait_mask, max_gpm_desc): New variables.
Nick Roberts <nickrob@snap.net.nz>
parents: 77462
diff changeset
7010 && !FD_ISSET (fd, &gpm_wait_mask))
9686
cd788aa8cb2a Handle multiple keyboard input descriptors.
Richard M. Stallman <rms@gnu.org>
parents: 9334
diff changeset
7011 max_keyboard_desc = fd;
cd788aa8cb2a Handle multiple keyboard input descriptors.
Richard M. Stallman <rms@gnu.org>
parents: 9334
diff changeset
7012 }
cd788aa8cb2a Handle multiple keyboard input descriptors.
Richard M. Stallman <rms@gnu.org>
parents: 9334
diff changeset
7013
80984
9247e9d47488 (gpm_wait_mask, max_gpm_desc): New variables.
Nick Roberts <nickrob@snap.net.nz>
parents: 77462
diff changeset
7014 void
9247e9d47488 (gpm_wait_mask, max_gpm_desc): New variables.
Nick Roberts <nickrob@snap.net.nz>
parents: 77462
diff changeset
7015 delete_gpm_wait_descriptor (desc)
9247e9d47488 (gpm_wait_mask, max_gpm_desc): New variables.
Nick Roberts <nickrob@snap.net.nz>
parents: 77462
diff changeset
7016 int desc;
9247e9d47488 (gpm_wait_mask, max_gpm_desc): New variables.
Nick Roberts <nickrob@snap.net.nz>
parents: 77462
diff changeset
7017 {
9247e9d47488 (gpm_wait_mask, max_gpm_desc): New variables.
Nick Roberts <nickrob@snap.net.nz>
parents: 77462
diff changeset
7018 int fd;
9247e9d47488 (gpm_wait_mask, max_gpm_desc): New variables.
Nick Roberts <nickrob@snap.net.nz>
parents: 77462
diff changeset
7019 int lim = max_gpm_desc;
9247e9d47488 (gpm_wait_mask, max_gpm_desc): New variables.
Nick Roberts <nickrob@snap.net.nz>
parents: 77462
diff changeset
7020
9247e9d47488 (gpm_wait_mask, max_gpm_desc): New variables.
Nick Roberts <nickrob@snap.net.nz>
parents: 77462
diff changeset
7021 FD_CLR (desc, &input_wait_mask);
9247e9d47488 (gpm_wait_mask, max_gpm_desc): New variables.
Nick Roberts <nickrob@snap.net.nz>
parents: 77462
diff changeset
7022 FD_CLR (desc, &non_process_wait_mask);
9247e9d47488 (gpm_wait_mask, max_gpm_desc): New variables.
Nick Roberts <nickrob@snap.net.nz>
parents: 77462
diff changeset
7023
9247e9d47488 (gpm_wait_mask, max_gpm_desc): New variables.
Nick Roberts <nickrob@snap.net.nz>
parents: 77462
diff changeset
7024 if (desc == max_gpm_desc)
9247e9d47488 (gpm_wait_mask, max_gpm_desc): New variables.
Nick Roberts <nickrob@snap.net.nz>
parents: 77462
diff changeset
7025 for (fd = 0; fd < lim; fd++)
9247e9d47488 (gpm_wait_mask, max_gpm_desc): New variables.
Nick Roberts <nickrob@snap.net.nz>
parents: 77462
diff changeset
7026 if (FD_ISSET (fd, &input_wait_mask)
9247e9d47488 (gpm_wait_mask, max_gpm_desc): New variables.
Nick Roberts <nickrob@snap.net.nz>
parents: 77462
diff changeset
7027 && !FD_ISSET (fd, &non_keyboard_wait_mask)
9247e9d47488 (gpm_wait_mask, max_gpm_desc): New variables.
Nick Roberts <nickrob@snap.net.nz>
parents: 77462
diff changeset
7028 && !FD_ISSET (fd, &non_process_wait_mask))
9247e9d47488 (gpm_wait_mask, max_gpm_desc): New variables.
Nick Roberts <nickrob@snap.net.nz>
parents: 77462
diff changeset
7029 max_gpm_desc = fd;
9247e9d47488 (gpm_wait_mask, max_gpm_desc): New variables.
Nick Roberts <nickrob@snap.net.nz>
parents: 77462
diff changeset
7030 }
9247e9d47488 (gpm_wait_mask, max_gpm_desc): New variables.
Nick Roberts <nickrob@snap.net.nz>
parents: 77462
diff changeset
7031
9686
cd788aa8cb2a Handle multiple keyboard input descriptors.
Richard M. Stallman <rms@gnu.org>
parents: 9334
diff changeset
7032 /* Return nonzero if *MASK has a bit set
cd788aa8cb2a Handle multiple keyboard input descriptors.
Richard M. Stallman <rms@gnu.org>
parents: 9334
diff changeset
7033 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
7034
64977
d26871fb1b7b (deactivate_process, status_notify, read_process_output)
Kim F. Storm <storm@cua.dk>
parents: 64770
diff changeset
7035 static int
9686
cd788aa8cb2a Handle multiple keyboard input descriptors.
Richard M. Stallman <rms@gnu.org>
parents: 9334
diff changeset
7036 keyboard_bit_set (mask)
cd788aa8cb2a Handle multiple keyboard input descriptors.
Richard M. Stallman <rms@gnu.org>
parents: 9334
diff changeset
7037 SELECT_TYPE *mask;
cd788aa8cb2a Handle multiple keyboard input descriptors.
Richard M. Stallman <rms@gnu.org>
parents: 9334
diff changeset
7038 {
cd788aa8cb2a Handle multiple keyboard input descriptors.
Richard M. Stallman <rms@gnu.org>
parents: 9334
diff changeset
7039 int fd;
cd788aa8cb2a Handle multiple keyboard input descriptors.
Richard M. Stallman <rms@gnu.org>
parents: 9334
diff changeset
7040
12541
33a4586124e9 (keyboard_bit_set): Fix one-off in loop end.
Karl Heuer <kwzh@gnu.org>
parents: 12491
diff changeset
7041 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
7042 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
7043 && !FD_ISSET (fd, &non_keyboard_wait_mask))
cd788aa8cb2a Handle multiple keyboard input descriptors.
Richard M. Stallman <rms@gnu.org>
parents: 9334
diff changeset
7044 return 1;
cd788aa8cb2a Handle multiple keyboard input descriptors.
Richard M. Stallman <rms@gnu.org>
parents: 9334
diff changeset
7045
cd788aa8cb2a Handle multiple keyboard input descriptors.
Richard M. Stallman <rms@gnu.org>
parents: 9334
diff changeset
7046 return 0;
cd788aa8cb2a Handle multiple keyboard input descriptors.
Richard M. Stallman <rms@gnu.org>
parents: 9334
diff changeset
7047 }
cd788aa8cb2a Handle multiple keyboard input descriptors.
Richard M. Stallman <rms@gnu.org>
parents: 9334
diff changeset
7048
21514
fa9ff387d260 Fix -Wimplicit warnings.
Andreas Schwab <schwab@suse.de>
parents: 21414
diff changeset
7049 void
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7050 init_process ()
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7051 {
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7052 register int i;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7053
72727
5f2a73453aa3 (inhibit_sentinels): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 72277
diff changeset
7054 inhibit_sentinels = 0;
5f2a73453aa3 (inhibit_sentinels): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 72277
diff changeset
7055
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7056 #ifdef SIGCHLD
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7057 #ifndef CANNOT_DUMP
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7058 if (! noninteractive || initialized)
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7059 #endif
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7060 signal (SIGCHLD, sigchld_handler);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7061 #endif
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7062
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7063 FD_ZERO (&input_wait_mask);
9686
cd788aa8cb2a Handle multiple keyboard input descriptors.
Richard M. Stallman <rms@gnu.org>
parents: 9334
diff changeset
7064 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
7065 FD_ZERO (&non_process_wait_mask);
7044
7032d07f5ad9 (max_process_desc): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 7013
diff changeset
7066 max_process_desc = 0;
4682
c4d471244116 (keyboard_descriptor): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 4639
diff changeset
7067
57840
8abbe69dfdb2 (connect_wait_mask, num_pending_connects): Only
Kim F. Storm <storm@cua.dk>
parents: 57287
diff changeset
7068 #ifdef NON_BLOCKING_CONNECT
8abbe69dfdb2 (connect_wait_mask, num_pending_connects): Only
Kim F. Storm <storm@cua.dk>
parents: 57287
diff changeset
7069 FD_ZERO (&connect_wait_mask);
8abbe69dfdb2 (connect_wait_mask, num_pending_connects): Only
Kim F. Storm <storm@cua.dk>
parents: 57287
diff changeset
7070 num_pending_connects = 0;
8abbe69dfdb2 (connect_wait_mask, num_pending_connects): Only
Kim F. Storm <storm@cua.dk>
parents: 57287
diff changeset
7071 #endif
8abbe69dfdb2 (connect_wait_mask, num_pending_connects): Only
Kim F. Storm <storm@cua.dk>
parents: 57287
diff changeset
7072
53472
1a5fe79d27f3 (ADAPTIVE_READ_BUFFERING): New conditional.
Kim F. Storm <storm@cua.dk>
parents: 53072
diff changeset
7073 #ifdef ADAPTIVE_READ_BUFFERING
1a5fe79d27f3 (ADAPTIVE_READ_BUFFERING): New conditional.
Kim F. Storm <storm@cua.dk>
parents: 53072
diff changeset
7074 process_output_delay_count = 0;
1a5fe79d27f3 (ADAPTIVE_READ_BUFFERING): New conditional.
Kim F. Storm <storm@cua.dk>
parents: 53072
diff changeset
7075 process_output_skip = 0;
1a5fe79d27f3 (ADAPTIVE_READ_BUFFERING): New conditional.
Kim F. Storm <storm@cua.dk>
parents: 53072
diff changeset
7076 #endif
1a5fe79d27f3 (ADAPTIVE_READ_BUFFERING): New conditional.
Kim F. Storm <storm@cua.dk>
parents: 53072
diff changeset
7077
9686
cd788aa8cb2a Handle multiple keyboard input descriptors.
Richard M. Stallman <rms@gnu.org>
parents: 9334
diff changeset
7078 FD_SET (0, &input_wait_mask);
4682
c4d471244116 (keyboard_descriptor): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 4639
diff changeset
7079
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7080 Vprocess_alist = Qnil;
71140
80310801887e 2006-06-01 Micha«³l Cadilhac <michael.cadilhac@lrde.org>
Kim F. Storm <storm@cua.dk>
parents: 71109
diff changeset
7081 #ifdef SIGCHLD
80310801887e 2006-06-01 Micha«³l Cadilhac <michael.cadilhac@lrde.org>
Kim F. Storm <storm@cua.dk>
parents: 71109
diff changeset
7082 deleted_pid_list = Qnil;
80310801887e 2006-06-01 Micha«³l Cadilhac <michael.cadilhac@lrde.org>
Kim F. Storm <storm@cua.dk>
parents: 71109
diff changeset
7083 #endif
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7084 for (i = 0; i < MAXDESC; i++)
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7085 {
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7086 chan_process[i] = Qnil;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7087 proc_buffered_char[i] = -1;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7088 }
17110
3a348cbb354f (Fstart_process, Fopen_network_stream): Do not perform
Kenichi Handa <handa@m17n.org>
parents: 17041
diff changeset
7089 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
7090 bzero (proc_encode_coding_system, sizeof proc_encode_coding_system);
43968
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
7091 #ifdef DATAGRAM_SOCKETS
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
7092 bzero (datagram_address, sizeof datagram_address);
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
7093 #endif
44067
e8a136850817 (QCfeature, QCdatagram): Removed variables.
Kim F. Storm <storm@cua.dk>
parents: 44041
diff changeset
7094
44073
9984126a7008 (init_process): Only provide make-network-process feature and
Kim F. Storm <storm@cua.dk>
parents: 44067
diff changeset
7095 #ifdef HAVE_SOCKETS
9984126a7008 (init_process): Only provide make-network-process feature and
Kim F. Storm <storm@cua.dk>
parents: 44067
diff changeset
7096 {
9984126a7008 (init_process): Only provide make-network-process feature and
Kim F. Storm <storm@cua.dk>
parents: 44067
diff changeset
7097 Lisp_Object subfeatures = Qnil;
52516
0ca23eb697b9 (Fset_process_sentinel): Add sentinel to childp plist
Kim F. Storm <storm@cua.dk>
parents: 52503
diff changeset
7098 struct socket_options *sopt;
0ca23eb697b9 (Fset_process_sentinel): Add sentinel to childp plist
Kim F. Storm <storm@cua.dk>
parents: 52503
diff changeset
7099
44067
e8a136850817 (QCfeature, QCdatagram): Removed variables.
Kim F. Storm <storm@cua.dk>
parents: 44041
diff changeset
7100 #define ADD_SUBFEATURE(key, val) \
e8a136850817 (QCfeature, QCdatagram): Removed variables.
Kim F. Storm <storm@cua.dk>
parents: 44041
diff changeset
7101 subfeatures = Fcons (Fcons (key, Fcons (val, Qnil)), subfeatures)
e8a136850817 (QCfeature, QCdatagram): Removed variables.
Kim F. Storm <storm@cua.dk>
parents: 44041
diff changeset
7102
e8a136850817 (QCfeature, QCdatagram): Removed variables.
Kim F. Storm <storm@cua.dk>
parents: 44041
diff changeset
7103 #ifdef NON_BLOCKING_CONNECT
44073
9984126a7008 (init_process): Only provide make-network-process feature and
Kim F. Storm <storm@cua.dk>
parents: 44067
diff changeset
7104 ADD_SUBFEATURE (QCnowait, Qt);
44067
e8a136850817 (QCfeature, QCdatagram): Removed variables.
Kim F. Storm <storm@cua.dk>
parents: 44041
diff changeset
7105 #endif
e8a136850817 (QCfeature, QCdatagram): Removed variables.
Kim F. Storm <storm@cua.dk>
parents: 44041
diff changeset
7106 #ifdef DATAGRAM_SOCKETS
44073
9984126a7008 (init_process): Only provide make-network-process feature and
Kim F. Storm <storm@cua.dk>
parents: 44067
diff changeset
7107 ADD_SUBFEATURE (QCtype, Qdatagram);
44067
e8a136850817 (QCfeature, QCdatagram): Removed variables.
Kim F. Storm <storm@cua.dk>
parents: 44041
diff changeset
7108 #endif
e8a136850817 (QCfeature, QCdatagram): Removed variables.
Kim F. Storm <storm@cua.dk>
parents: 44041
diff changeset
7109 #ifdef HAVE_LOCAL_SOCKETS
44073
9984126a7008 (init_process): Only provide make-network-process feature and
Kim F. Storm <storm@cua.dk>
parents: 44067
diff changeset
7110 ADD_SUBFEATURE (QCfamily, Qlocal);
44067
e8a136850817 (QCfeature, QCdatagram): Removed variables.
Kim F. Storm <storm@cua.dk>
parents: 44041
diff changeset
7111 #endif
68008
10f0a09ec82e Add IPv6 support.
Kim F. Storm <storm@cua.dk>
parents: 67920
diff changeset
7112 ADD_SUBFEATURE (QCfamily, Qipv4);
10f0a09ec82e Add IPv6 support.
Kim F. Storm <storm@cua.dk>
parents: 67920
diff changeset
7113 #ifdef AF_INET6
10f0a09ec82e Add IPv6 support.
Kim F. Storm <storm@cua.dk>
parents: 67920
diff changeset
7114 ADD_SUBFEATURE (QCfamily, Qipv6);
10f0a09ec82e Add IPv6 support.
Kim F. Storm <storm@cua.dk>
parents: 67920
diff changeset
7115 #endif
44067
e8a136850817 (QCfeature, QCdatagram): Removed variables.
Kim F. Storm <storm@cua.dk>
parents: 44041
diff changeset
7116 #ifdef HAVE_GETSOCKNAME
44073
9984126a7008 (init_process): Only provide make-network-process feature and
Kim F. Storm <storm@cua.dk>
parents: 44067
diff changeset
7117 ADD_SUBFEATURE (QCservice, Qt);
44067
e8a136850817 (QCfeature, QCdatagram): Removed variables.
Kim F. Storm <storm@cua.dk>
parents: 44041
diff changeset
7118 #endif
45118
cc30538ffb5c (init_process): Only add server subfeature if we can
Jason Rumney <jasonr@gnu.org>
parents: 45099
diff changeset
7119 #if !defined(TERM) && (defined(O_NONBLOCK) || defined(O_NDELAY))
44073
9984126a7008 (init_process): Only provide make-network-process feature and
Kim F. Storm <storm@cua.dk>
parents: 44067
diff changeset
7120 ADD_SUBFEATURE (QCserver, Qt);
44067
e8a136850817 (QCfeature, QCdatagram): Removed variables.
Kim F. Storm <storm@cua.dk>
parents: 44041
diff changeset
7121 #endif
52516
0ca23eb697b9 (Fset_process_sentinel): Add sentinel to childp plist
Kim F. Storm <storm@cua.dk>
parents: 52503
diff changeset
7122
0ca23eb697b9 (Fset_process_sentinel): Add sentinel to childp plist
Kim F. Storm <storm@cua.dk>
parents: 52503
diff changeset
7123 for (sopt = socket_options; sopt->name; sopt++)
0ca23eb697b9 (Fset_process_sentinel): Add sentinel to childp plist
Kim F. Storm <storm@cua.dk>
parents: 52503
diff changeset
7124 subfeatures = Fcons (intern (sopt->name), subfeatures);
0ca23eb697b9 (Fset_process_sentinel): Add sentinel to childp plist
Kim F. Storm <storm@cua.dk>
parents: 52503
diff changeset
7125
44073
9984126a7008 (init_process): Only provide make-network-process feature and
Kim F. Storm <storm@cua.dk>
parents: 44067
diff changeset
7126 Fprovide (intern ("make-network-process"), subfeatures);
9984126a7008 (init_process): Only provide make-network-process feature and
Kim F. Storm <storm@cua.dk>
parents: 44067
diff changeset
7127 }
9984126a7008 (init_process): Only provide make-network-process feature and
Kim F. Storm <storm@cua.dk>
parents: 44067
diff changeset
7128 #endif /* HAVE_SOCKETS */
59689
007a1a6d92de * s/darwin.h: Removed PTY_ITERATION from here.
Steven Tamm <steventamm@mac.com>
parents: 59113
diff changeset
7129
60637
c5074bc00bcc (init_process): Change `#ifdef DARWIN' to `#if defined (DARWIN) ||
YAMAMOTO Mitsuharu <mituharu@math.s.chiba-u.ac.jp>
parents: 59689
diff changeset
7130 #if defined (DARWIN) || defined (MAC_OSX)
63114
6ef9e44e50d7 Improve commentary for adaptive read buffering.
Kim F. Storm <storm@cua.dk>
parents: 62604
diff changeset
7131 /* PTYs are broken on Darwin < 6, but are sometimes useful for interactive
59689
007a1a6d92de * s/darwin.h: Removed PTY_ITERATION from here.
Steven Tamm <steventamm@mac.com>
parents: 59113
diff changeset
7132 processes. As such, we only change the default value. */
007a1a6d92de * s/darwin.h: Removed PTY_ITERATION from here.
Steven Tamm <steventamm@mac.com>
parents: 59113
diff changeset
7133 if (initialized)
007a1a6d92de * s/darwin.h: Removed PTY_ITERATION from here.
Steven Tamm <steventamm@mac.com>
parents: 59113
diff changeset
7134 {
007a1a6d92de * s/darwin.h: Removed PTY_ITERATION from here.
Steven Tamm <steventamm@mac.com>
parents: 59113
diff changeset
7135 char *release = get_operating_system_release();
007a1a6d92de * s/darwin.h: Removed PTY_ITERATION from here.
Steven Tamm <steventamm@mac.com>
parents: 59113
diff changeset
7136 if (!release || !release[0] || (release[0] < MIN_PTY_KERNEL_VERSION
007a1a6d92de * s/darwin.h: Removed PTY_ITERATION from here.
Steven Tamm <steventamm@mac.com>
parents: 59113
diff changeset
7137 && release[1] == '.')) {
007a1a6d92de * s/darwin.h: Removed PTY_ITERATION from here.
Steven Tamm <steventamm@mac.com>
parents: 59113
diff changeset
7138 Vprocess_connection_type = Qnil;
007a1a6d92de * s/darwin.h: Removed PTY_ITERATION from here.
Steven Tamm <steventamm@mac.com>
parents: 59113
diff changeset
7139 }
007a1a6d92de * s/darwin.h: Removed PTY_ITERATION from here.
Steven Tamm <steventamm@mac.com>
parents: 59113
diff changeset
7140 }
007a1a6d92de * s/darwin.h: Removed PTY_ITERATION from here.
Steven Tamm <steventamm@mac.com>
parents: 59113
diff changeset
7141 #endif
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7142 }
4231
91a883c56382 (Fget_buffer_process): Delete doc string from
Richard M. Stallman <rms@gnu.org>
parents: 4057
diff changeset
7143
21514
fa9ff387d260 Fix -Wimplicit warnings.
Andreas Schwab <schwab@suse.de>
parents: 21414
diff changeset
7144 void
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7145 syms_of_process ()
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7146 {
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7147 Qprocessp = intern ("processp");
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7148 staticpro (&Qprocessp);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7149 Qrun = intern ("run");
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7150 staticpro (&Qrun);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7151 Qstop = intern ("stop");
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7152 staticpro (&Qstop);
74749
526fb5e934a5 (Qsignal): Declare here.
Kim F. Storm <storm@cua.dk>
parents: 74540
diff changeset
7153 Qsignal = intern ("signal");
526fb5e934a5 (Qsignal): Declare here.
Kim F. Storm <storm@cua.dk>
parents: 74540
diff changeset
7154 staticpro (&Qsignal);
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7155
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7156 /* Qexit is already staticpro'd by syms_of_eval; don't staticpro it
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7157 here again.
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7158
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7159 Qexit = intern ("exit");
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7160 staticpro (&Qexit); */
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7161
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7162 Qopen = intern ("open");
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7163 staticpro (&Qopen);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7164 Qclosed = intern ("closed");
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7165 staticpro (&Qclosed);
43598
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
7166 Qconnect = intern ("connect");
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
7167 staticpro (&Qconnect);
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
7168 Qfailed = intern ("failed");
f49377cf2e3c (Qconnect, Qfailed): New variables.
Kim F. Storm <storm@cua.dk>
parents: 42600
diff changeset
7169 staticpro (&Qfailed);
43968
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
7170 Qlisten = intern ("listen");
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
7171 staticpro (&Qlisten);
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
7172 Qlocal = intern ("local");
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
7173 staticpro (&Qlocal);
68008
10f0a09ec82e Add IPv6 support.
Kim F. Storm <storm@cua.dk>
parents: 67920
diff changeset
7174 Qipv4 = intern ("ipv4");
10f0a09ec82e Add IPv6 support.
Kim F. Storm <storm@cua.dk>
parents: 67920
diff changeset
7175 staticpro (&Qipv4);
10f0a09ec82e Add IPv6 support.
Kim F. Storm <storm@cua.dk>
parents: 67920
diff changeset
7176 #ifdef AF_INET6
10f0a09ec82e Add IPv6 support.
Kim F. Storm <storm@cua.dk>
parents: 67920
diff changeset
7177 Qipv6 = intern ("ipv6");
10f0a09ec82e Add IPv6 support.
Kim F. Storm <storm@cua.dk>
parents: 67920
diff changeset
7178 staticpro (&Qipv6);
10f0a09ec82e Add IPv6 support.
Kim F. Storm <storm@cua.dk>
parents: 67920
diff changeset
7179 #endif
44067
e8a136850817 (QCfeature, QCdatagram): Removed variables.
Kim F. Storm <storm@cua.dk>
parents: 44041
diff changeset
7180 Qdatagram = intern ("datagram");
e8a136850817 (QCfeature, QCdatagram): Removed variables.
Kim F. Storm <storm@cua.dk>
parents: 44041
diff changeset
7181 staticpro (&Qdatagram);
43968
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
7182
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
7183 QCname = intern (":name");
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
7184 staticpro (&QCname);
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
7185 QCbuffer = intern (":buffer");
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
7186 staticpro (&QCbuffer);
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
7187 QChost = intern (":host");
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
7188 staticpro (&QChost);
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
7189 QCservice = intern (":service");
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
7190 staticpro (&QCservice);
44067
e8a136850817 (QCfeature, QCdatagram): Removed variables.
Kim F. Storm <storm@cua.dk>
parents: 44041
diff changeset
7191 QCtype = intern (":type");
e8a136850817 (QCfeature, QCdatagram): Removed variables.
Kim F. Storm <storm@cua.dk>
parents: 44041
diff changeset
7192 staticpro (&QCtype);
43968
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
7193 QClocal = intern (":local");
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
7194 staticpro (&QClocal);
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
7195 QCremote = intern (":remote");
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
7196 staticpro (&QCremote);
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
7197 QCcoding = intern (":coding");
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
7198 staticpro (&QCcoding);
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
7199 QCserver = intern (":server");
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
7200 staticpro (&QCserver);
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
7201 QCnowait = intern (":nowait");
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
7202 staticpro (&QCnowait);
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
7203 QCsentinel = intern (":sentinel");
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
7204 staticpro (&QCsentinel);
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
7205 QClog = intern (":log");
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
7206 staticpro (&QClog);
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
7207 QCnoquery = intern (":noquery");
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
7208 staticpro (&QCnoquery);
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
7209 QCstop = intern (":stop");
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
7210 staticpro (&QCstop);
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
7211 QCoptions = intern (":options");
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
7212 staticpro (&QCoptions);
49223
26622fa0d099 Reworked 2003-01-12 change -- call a plist a plist!
Kim F. Storm <storm@cua.dk>
parents: 49164
diff changeset
7213 QCplist = intern (":plist");
26622fa0d099 Reworked 2003-01-12 change -- call a plist a plist!
Kim F. Storm <storm@cua.dk>
parents: 49164
diff changeset
7214 staticpro (&QCplist);
49680
7c27c9efd353 Doc fixes.
Kim F. Storm <storm@cua.dk>
parents: 49667
diff changeset
7215 QCfilter_multibyte = intern (":filter-multibyte");
7c27c9efd353 Doc fixes.
Kim F. Storm <storm@cua.dk>
parents: 49667
diff changeset
7216 staticpro (&QCfilter_multibyte);
49600
23a1cea22d13 Trailing whitespace deleted.
Juanma Barranquero <lekktu@gmail.com>
parents: 49281
diff changeset
7217
8231
5226ed89c1a6 (Qlast_nonmenu_event): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 8063
diff changeset
7218 Qlast_nonmenu_event = intern ("last-nonmenu-event");
5226ed89c1a6 (Qlast_nonmenu_event): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 8063
diff changeset
7219 staticpro (&Qlast_nonmenu_event);
5226ed89c1a6 (Qlast_nonmenu_event): New variable.
Richard M. Stallman <rms@gnu.org>
parents: 8063
diff changeset
7220
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7221 staticpro (&Vprocess_alist);
71140
80310801887e 2006-06-01 Micha«³l Cadilhac <michael.cadilhac@lrde.org>
Kim F. Storm <storm@cua.dk>
parents: 71109
diff changeset
7222 #ifdef SIGCHLD
80310801887e 2006-06-01 Micha«³l Cadilhac <michael.cadilhac@lrde.org>
Kim F. Storm <storm@cua.dk>
parents: 71109
diff changeset
7223 staticpro (&deleted_pid_list);
80310801887e 2006-06-01 Micha«³l Cadilhac <michael.cadilhac@lrde.org>
Kim F. Storm <storm@cua.dk>
parents: 71109
diff changeset
7224 #endif
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7225
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7226 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
7227 doc: /* *Non-nil means delete processes immediately when they exit.
73951
182d429ba6f9 (syms_of_process) <delete-exited-processes>: Doc fix.
Juanma Barranquero <lekktu@gmail.com>
parents: 73225
diff changeset
7228 A value of nil means don't delete them until `list-processes' is run. */);
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7229
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7230 delete_exited_processes = 1;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7231
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7232 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
7233 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
7234 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
7235 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
7236 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
7237 The value takes effect when `start-process' is called. */);
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7238 Vprocess_connection_type = Qt;
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7239
53472
1a5fe79d27f3 (ADAPTIVE_READ_BUFFERING): New conditional.
Kim F. Storm <storm@cua.dk>
parents: 53072
diff changeset
7240 #ifdef ADAPTIVE_READ_BUFFERING
1a5fe79d27f3 (ADAPTIVE_READ_BUFFERING): New conditional.
Kim F. Storm <storm@cua.dk>
parents: 53072
diff changeset
7241 DEFVAR_LISP ("process-adaptive-read-buffering", &Vprocess_adaptive_read_buffering,
1a5fe79d27f3 (ADAPTIVE_READ_BUFFERING): New conditional.
Kim F. Storm <storm@cua.dk>
parents: 53072
diff changeset
7242 doc: /* If non-nil, improve receive buffering by delaying after short reads.
55444
976d03256b41 (Fwaiting_for_user_input_p, Fmake_network_process)
Juanma Barranquero <lekktu@gmail.com>
parents: 53835
diff changeset
7243 On some systems, when Emacs reads the output from a subprocess, the output data
53472
1a5fe79d27f3 (ADAPTIVE_READ_BUFFERING): New conditional.
Kim F. Storm <storm@cua.dk>
parents: 53072
diff changeset
7244 is read in very small blocks, potentially resulting in very poor performance.
63278
d826c3c6df3f (syms_of_process) [ADAPTIVE_READ_BUFFERING]: Fix spellings in docstrings.
Juanma Barranquero <lekktu@gmail.com>
parents: 63147
diff changeset
7245 This behavior can be remedied to some extent by setting this variable to a
53472
1a5fe79d27f3 (ADAPTIVE_READ_BUFFERING): New conditional.
Kim F. Storm <storm@cua.dk>
parents: 53072
diff changeset
7246 non-nil value, as it will automatically delay reading from such processes, to
69376
921341a03d5b (Vprocess_adaptive_read_buffering): Doc fix.
Romain Francoise <romain@orebokech.com>
parents: 69151
diff changeset
7247 allow them to produce more output before Emacs tries to read it.
53472
1a5fe79d27f3 (ADAPTIVE_READ_BUFFERING): New conditional.
Kim F. Storm <storm@cua.dk>
parents: 53072
diff changeset
7248 If the value is t, the delay is reset after each write to the process; any other
1a5fe79d27f3 (ADAPTIVE_READ_BUFFERING): New conditional.
Kim F. Storm <storm@cua.dk>
parents: 53072
diff changeset
7249 non-nil value means that the delay is not reset on write.
1a5fe79d27f3 (ADAPTIVE_READ_BUFFERING): New conditional.
Kim F. Storm <storm@cua.dk>
parents: 53072
diff changeset
7250 The variable takes effect when `start-process' is called. */);
1a5fe79d27f3 (ADAPTIVE_READ_BUFFERING): New conditional.
Kim F. Storm <storm@cua.dk>
parents: 53072
diff changeset
7251 Vprocess_adaptive_read_buffering = Qt;
1a5fe79d27f3 (ADAPTIVE_READ_BUFFERING): New conditional.
Kim F. Storm <storm@cua.dk>
parents: 53072
diff changeset
7252 #endif
1a5fe79d27f3 (ADAPTIVE_READ_BUFFERING): New conditional.
Kim F. Storm <storm@cua.dk>
parents: 53072
diff changeset
7253
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7254 defsubr (&Sprocessp);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7255 defsubr (&Sget_process);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7256 defsubr (&Sget_buffer_process);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7257 defsubr (&Sdelete_process);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7258 defsubr (&Sprocess_status);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7259 defsubr (&Sprocess_exit_status);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7260 defsubr (&Sprocess_id);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7261 defsubr (&Sprocess_name);
9030
b14532c71632 (exec_sentinel_error_handler): New function.
Richard M. Stallman <rms@gnu.org>
parents: 8570
diff changeset
7262 defsubr (&Sprocess_tty_name);
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7263 defsubr (&Sprocess_command);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7264 defsubr (&Sset_process_buffer);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7265 defsubr (&Sprocess_buffer);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7266 defsubr (&Sprocess_mark);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7267 defsubr (&Sset_process_filter);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7268 defsubr (&Sprocess_filter);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7269 defsubr (&Sset_process_sentinel);
16058
924aeb9ed7c3 (Fprocess_contact): New function.
Richard M. Stallman <rms@gnu.org>
parents: 16053
diff changeset
7270 defsubr (&Sprocess_sentinel);
6830
bcaddbe53068 (Fset_process_window_size): New function.
Richard M. Stallman <rms@gnu.org>
parents: 6823
diff changeset
7271 defsubr (&Sset_process_window_size);
21656
bb39a5863a82 (Fset_process_inherit_coding_system_flag,
Eli Zaretskii <eliz@gnu.org>
parents: 21530
diff changeset
7272 defsubr (&Sset_process_inherit_coding_system_flag);
bb39a5863a82 (Fset_process_inherit_coding_system_flag,
Eli Zaretskii <eliz@gnu.org>
parents: 21530
diff changeset
7273 defsubr (&Sprocess_inherit_coding_system_flag);
43968
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
7274 defsubr (&Sset_process_query_on_exit_flag);
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
7275 defsubr (&Sprocess_query_on_exit_flag);
16058
924aeb9ed7c3 (Fprocess_contact): New function.
Richard M. Stallman <rms@gnu.org>
parents: 16053
diff changeset
7276 defsubr (&Sprocess_contact);
49223
26622fa0d099 Reworked 2003-01-12 change -- call a plist a plist!
Kim F. Storm <storm@cua.dk>
parents: 49164
diff changeset
7277 defsubr (&Sprocess_plist);
26622fa0d099 Reworked 2003-01-12 change -- call a plist a plist!
Kim F. Storm <storm@cua.dk>
parents: 49164
diff changeset
7278 defsubr (&Sset_process_plist);
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7279 defsubr (&Slist_processes);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7280 defsubr (&Sprocess_list);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7281 defsubr (&Sstart_process);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7282 #ifdef HAVE_SOCKETS
52516
0ca23eb697b9 (Fset_process_sentinel): Add sentinel to childp plist
Kim F. Storm <storm@cua.dk>
parents: 52503
diff changeset
7283 defsubr (&Sset_network_process_option);
43968
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
7284 defsubr (&Smake_network_process);
47987
b30942bd85f3 (Fformat_network_address): New function.
Kim F. Storm <storm@cua.dk>
parents: 47542
diff changeset
7285 defsubr (&Sformat_network_address);
52525
fd2be6cea0e7 (Fnetwork_interface_list, Fnetwork_interface_info):
Kim F. Storm <storm@cua.dk>
parents: 52516
diff changeset
7286 #endif /* HAVE_SOCKETS */
fd2be6cea0e7 (Fnetwork_interface_list, Fnetwork_interface_info):
Kim F. Storm <storm@cua.dk>
parents: 52516
diff changeset
7287 #if defined(HAVE_SOCKETS) && defined(HAVE_NET_IF_H) && defined(HAVE_SYS_IOCTL_H)
52503
256a27a47af1 [HAVE_SOCKETS]: Include sys/ioctl.h and net/if.h.
Kim F. Storm <storm@cua.dk>
parents: 52401
diff changeset
7288 #ifdef SIOCGIFCONF
256a27a47af1 [HAVE_SOCKETS]: Include sys/ioctl.h and net/if.h.
Kim F. Storm <storm@cua.dk>
parents: 52401
diff changeset
7289 defsubr (&Snetwork_interface_list);
256a27a47af1 [HAVE_SOCKETS]: Include sys/ioctl.h and net/if.h.
Kim F. Storm <storm@cua.dk>
parents: 52401
diff changeset
7290 #endif
256a27a47af1 [HAVE_SOCKETS]: Include sys/ioctl.h and net/if.h.
Kim F. Storm <storm@cua.dk>
parents: 52401
diff changeset
7291 #if defined(SIOCGIFADDR) || defined(SIOCGIFHWADDR) || defined(SIOCGIFFLAGS)
52516
0ca23eb697b9 (Fset_process_sentinel): Add sentinel to childp plist
Kim F. Storm <storm@cua.dk>
parents: 52503
diff changeset
7292 defsubr (&Snetwork_interface_info);
52503
256a27a47af1 [HAVE_SOCKETS]: Include sys/ioctl.h and net/if.h.
Kim F. Storm <storm@cua.dk>
parents: 52401
diff changeset
7293 #endif
52525
fd2be6cea0e7 (Fnetwork_interface_list, Fnetwork_interface_info):
Kim F. Storm <storm@cua.dk>
parents: 52516
diff changeset
7294 #endif /* HAVE_SOCKETS ... */
43968
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
7295 #ifdef DATAGRAM_SOCKETS
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
7296 defsubr (&Sprocess_datagram_address);
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
7297 defsubr (&Sset_process_datagram_address);
7ec801358b7e (Qlocal, QCname, QCbuffer, QChost, QCservice, QCfamily)
Kim F. Storm <storm@cua.dk>
parents: 43642
diff changeset
7298 #endif
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7299 defsubr (&Saccept_process_output);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7300 defsubr (&Sprocess_send_region);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7301 defsubr (&Sprocess_send_string);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7302 defsubr (&Sinterrupt_process);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7303 defsubr (&Skill_process);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7304 defsubr (&Squit_process);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7305 defsubr (&Sstop_process);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7306 defsubr (&Scontinue_process);
24352
023601636a18 (syms_of_process): defsubr it.
Richard M. Stallman <rms@gnu.org>
parents: 23930
diff changeset
7307 defsubr (&Sprocess_running_child_p);
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7308 defsubr (&Sprocess_send_eof);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7309 defsubr (&Ssignal_process);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7310 defsubr (&Swaiting_for_user_input_p);
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7311 /* defsubr (&Sprocess_connection); */
17041
b61cbe595be5 Include charset.h and coding.h.
Karl Heuer <kwzh@gnu.org>
parents: 16780
diff changeset
7312 defsubr (&Sset_process_coding_system);
b61cbe595be5 Include charset.h and coding.h.
Karl Heuer <kwzh@gnu.org>
parents: 16780
diff changeset
7313 defsubr (&Sprocess_coding_system);
49667
cbec1327e2f1 (QCfilter_multibyte): New variable.
Kenichi Handa <handa@m17n.org>
parents: 49600
diff changeset
7314 defsubr (&Sset_process_filter_multibyte);
cbec1327e2f1 (QCfilter_multibyte): New variable.
Kenichi Handa <handa@m17n.org>
parents: 49600
diff changeset
7315 defsubr (&Sprocess_filter_multibyte_p);
578
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7316 }
a4591b4d5435 Initial revision
Jim Blandy <jimb@redhat.com>
parents:
diff changeset
7317
588
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
7318
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
7319 #else /* not subprocesses */
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
7320
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
7321 #include <sys/types.h>
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
7322 #include <errno.h>
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
7323
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
7324 #include "lisp.h"
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
7325 #include "systime.h"
21656
bb39a5863a82 (Fset_process_inherit_coding_system_flag,
Eli Zaretskii <eliz@gnu.org>
parents: 21530
diff changeset
7326 #include "charset.h"
bb39a5863a82 (Fset_process_inherit_coding_system_flag,
Eli Zaretskii <eliz@gnu.org>
parents: 21530
diff changeset
7327 #include "coding.h"
588
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
7328 #include "termopts.h"
12132
017f32786ed3 [!subprocesses]: Include sysselect.h.
Karl Heuer <kwzh@gnu.org>
parents: 11926
diff changeset
7329 #include "sysselect.h"
588
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
7330
765
e4093444f9f8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 692
diff changeset
7331 extern int frame_garbaged;
588
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
7332
14806
232b90ad50e8 (wait_reading_process_input) [! subprocesses]: Run
Karl Heuer <kwzh@gnu.org>
parents: 14802
diff changeset
7333 extern EMACS_TIME timer_check ();
232b90ad50e8 (wait_reading_process_input) [! subprocesses]: Run
Karl Heuer <kwzh@gnu.org>
parents: 14802
diff changeset
7334 extern int timers_run;
588
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
7335
44067
e8a136850817 (QCfeature, QCdatagram): Removed variables.
Kim F. Storm <storm@cua.dk>
parents: 44041
diff changeset
7336 Lisp_Object QCtype;
e8a136850817 (QCfeature, QCdatagram): Removed variables.
Kim F. Storm <storm@cua.dk>
parents: 44041
diff changeset
7337
588
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
7338 /* As described above, except assuming that there are no subprocesses:
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
7339
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
7340 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
7341
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
7342 time_limit is:
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
7343 timeout in seconds, or
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
7344 zero for no limit, or
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
7345 -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
7346
650
39f0e62a8511 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 648
diff changeset
7347 read_kbd is a Lisp_Object:
588
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
7348 0 to ignore keyboard input, or
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
7349 1 to return when input is available, or
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
7350 -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
7351 the quit handler.
56716
c126b8b6a314 * process.c (wait_reading_process_input): Clean up.
Kim F. Storm <storm@cua.dk>
parents: 56713
diff changeset
7352
c126b8b6a314 * process.c (wait_reading_process_input): Clean up.
Kim F. Storm <storm@cua.dk>
parents: 56713
diff changeset
7353 see full version for other parameters. We know that wait_proc will
c126b8b6a314 * process.c (wait_reading_process_input): Clean up.
Kim F. Storm <storm@cua.dk>
parents: 56713
diff changeset
7354 always be NULL, since `subprocesses' isn't defined.
588
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
7355
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
7356 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
7357 output that arrives.
588
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
7358
78501
1677cf1c2509 Replace `iff' in comments.
Glenn Morris <rgm@gnu.org>
parents: 78260
diff changeset
7359 Return true if we received input from any process. */
588
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
7360
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
7361 int
56728
1686b397ef16 (wait_reading_process_output): Rename from
Kim F. Storm <storm@cua.dk>
parents: 56716
diff changeset
7362 wait_reading_process_output (time_limit, microsecs, read_kbd, do_display,
1686b397ef16 (wait_reading_process_output): Rename from
Kim F. Storm <storm@cua.dk>
parents: 56716
diff changeset
7363 wait_for_cell, wait_proc, just_wait_proc)
56716
c126b8b6a314 * process.c (wait_reading_process_input): Clean up.
Kim F. Storm <storm@cua.dk>
parents: 56713
diff changeset
7364 int time_limit, microsecs, read_kbd, do_display;
c126b8b6a314 * process.c (wait_reading_process_input): Clean up.
Kim F. Storm <storm@cua.dk>
parents: 56713
diff changeset
7365 Lisp_Object wait_for_cell;
c126b8b6a314 * process.c (wait_reading_process_input): Clean up.
Kim F. Storm <storm@cua.dk>
parents: 56713
diff changeset
7366 struct Lisp_Process *wait_proc;
c126b8b6a314 * process.c (wait_reading_process_input): Clean up.
Kim F. Storm <storm@cua.dk>
parents: 56713
diff changeset
7367 int just_wait_proc;
588
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
7368 {
22535
fd9324c5a498 (wait_reading_process_input): Recompute timeout each
Eli Zaretskii <eliz@gnu.org>
parents: 22523
diff changeset
7369 register int nfds;
14806
232b90ad50e8 (wait_reading_process_input) [! subprocesses]: Run
Karl Heuer <kwzh@gnu.org>
parents: 14802
diff changeset
7370 EMACS_TIME end_time, timeout;
14278
3562c5f43780 (wait_reading_process_input) [not subprocesses]: Do
Karl Heuer <kwzh@gnu.org>
parents: 14186
diff changeset
7371 SELECT_TYPE waitchannels;
14806
232b90ad50e8 (wait_reading_process_input) [! subprocesses]: Run
Karl Heuer <kwzh@gnu.org>
parents: 14802
diff changeset
7372 int xerrno;
588
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
7373
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
7374 /* What does time_limit really mean? */
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
7375 if (time_limit || microsecs)
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
7376 {
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
7377 EMACS_GET_TIME (end_time);
22535
fd9324c5a498 (wait_reading_process_input): Recompute timeout each
Eli Zaretskii <eliz@gnu.org>
parents: 22523
diff changeset
7378 EMACS_SET_SECS_USECS (timeout, time_limit, microsecs);
588
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
7379 EMACS_ADD_TIME (end_time, end_time, timeout);
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
7380 }
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
7381
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
7382 /* Turn off periodic alarms (in case they are in use)
47431
8871e67384e4 (wait_reading_process_input, both versions):
Richard M. Stallman <rms@gnu.org>
parents: 47020
diff changeset
7383 and then turn off any other atimers,
588
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
7384 because the select emulator uses alarms. */
47431
8871e67384e4 (wait_reading_process_input, both versions):
Richard M. Stallman <rms@gnu.org>
parents: 47020
diff changeset
7385 stop_polling ();
27430
1aa71680fe50 (toplevel): Include atimer.h.
Gerd Moellmann <gerd@gnu.org>
parents: 27028
diff changeset
7386 turn_on_atimers (0);
588
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
7387
22535
fd9324c5a498 (wait_reading_process_input): Recompute timeout each
Eli Zaretskii <eliz@gnu.org>
parents: 22523
diff changeset
7388 while (1)
588
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
7389 {
14802
45827a5afe4d [!subprocesses] (wait_reading_process_input):
Richard M. Stallman <rms@gnu.org>
parents: 14785
diff changeset
7390 int timeout_reduced_for_timers = 0;
588
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
7391
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
7392 /* If calling from keyboard input, do not quit
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
7393 since we want to return C-g as an input character.
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
7394 Otherwise, do pending quit if requested. */
56716
c126b8b6a314 * process.c (wait_reading_process_input): Clean up.
Kim F. Storm <storm@cua.dk>
parents: 56713
diff changeset
7395 if (read_kbd >= 0)
588
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
7396 QUIT;
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
7397
15021
af36df262fc5 (wait_reading_process_input) [!subprocesses]: Handle
Richard M. Stallman <rms@gnu.org>
parents: 14998
diff changeset
7398 /* 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
7399 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
7400 break;
af36df262fc5 (wait_reading_process_input) [!subprocesses]: Handle
Richard M. Stallman <rms@gnu.org>
parents: 14998
diff changeset
7401
14802
45827a5afe4d [!subprocesses] (wait_reading_process_input):
Richard M. Stallman <rms@gnu.org>
parents: 14785
diff changeset
7402 /* 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
7403 /* Exit if already run out */
22535
fd9324c5a498 (wait_reading_process_input): Recompute timeout each
Eli Zaretskii <eliz@gnu.org>
parents: 22523
diff changeset
7404 if (time_limit == -1)
fd9324c5a498 (wait_reading_process_input): Recompute timeout each
Eli Zaretskii <eliz@gnu.org>
parents: 22523
diff changeset
7405 {
fd9324c5a498 (wait_reading_process_input): Recompute timeout each
Eli Zaretskii <eliz@gnu.org>
parents: 22523
diff changeset
7406 /* -1 specified for timeout means
fd9324c5a498 (wait_reading_process_input): Recompute timeout each
Eli Zaretskii <eliz@gnu.org>
parents: 22523
diff changeset
7407 gobble output available now
fd9324c5a498 (wait_reading_process_input): Recompute timeout each
Eli Zaretskii <eliz@gnu.org>
parents: 22523
diff changeset
7408 but don't wait at all. */
fd9324c5a498 (wait_reading_process_input): Recompute timeout each
Eli Zaretskii <eliz@gnu.org>
parents: 22523
diff changeset
7409
fd9324c5a498 (wait_reading_process_input): Recompute timeout each
Eli Zaretskii <eliz@gnu.org>
parents: 22523
diff changeset
7410 EMACS_SET_SECS_USECS (timeout, 0, 0);
fd9324c5a498 (wait_reading_process_input): Recompute timeout each
Eli Zaretskii <eliz@gnu.org>
parents: 22523
diff changeset
7411 }
fd9324c5a498 (wait_reading_process_input): Recompute timeout each
Eli Zaretskii <eliz@gnu.org>
parents: 22523
diff changeset
7412 else if (time_limit || microsecs)
588
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
7413 {
14806
232b90ad50e8 (wait_reading_process_input) [! subprocesses]: Run
Karl Heuer <kwzh@gnu.org>
parents: 14802
diff changeset
7414 EMACS_GET_TIME (timeout);
232b90ad50e8 (wait_reading_process_input) [! subprocesses]: Run
Karl Heuer <kwzh@gnu.org>
parents: 14802
diff changeset
7415 EMACS_SUB_TIME (timeout, end_time, timeout);
232b90ad50e8 (wait_reading_process_input) [! subprocesses]: Run
Karl Heuer <kwzh@gnu.org>
parents: 14802
diff changeset
7416 if (EMACS_TIME_NEG_P (timeout))
588
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
7417 break;
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
7418 }
22535
fd9324c5a498 (wait_reading_process_input): Recompute timeout each
Eli Zaretskii <eliz@gnu.org>
parents: 22523
diff changeset
7419 else
fd9324c5a498 (wait_reading_process_input): Recompute timeout each
Eli Zaretskii <eliz@gnu.org>
parents: 22523
diff changeset
7420 {
fd9324c5a498 (wait_reading_process_input): Recompute timeout each
Eli Zaretskii <eliz@gnu.org>
parents: 22523
diff changeset
7421 EMACS_SET_SECS_USECS (timeout, 100000, 0);
fd9324c5a498 (wait_reading_process_input): Recompute timeout each
Eli Zaretskii <eliz@gnu.org>
parents: 22523
diff changeset
7422 }
588
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
7423
14802
45827a5afe4d [!subprocesses] (wait_reading_process_input):
Richard M. Stallman <rms@gnu.org>
parents: 14785
diff changeset
7424 /* 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
7425 run timer events directly.
45827a5afe4d [!subprocesses] (wait_reading_process_input):
Richard M. Stallman <rms@gnu.org>
parents: 14785
diff changeset
7426 (Callers that will immediately read keyboard events
45827a5afe4d [!subprocesses] (wait_reading_process_input):
Richard M. Stallman <rms@gnu.org>
parents: 14785
diff changeset
7427 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
7428 if (NILP (wait_for_cell))
14802
45827a5afe4d [!subprocesses] (wait_reading_process_input):
Richard M. Stallman <rms@gnu.org>
parents: 14785
diff changeset
7429 {
45827a5afe4d [!subprocesses] (wait_reading_process_input):
Richard M. Stallman <rms@gnu.org>
parents: 14785
diff changeset
7430 EMACS_TIME timer_delay;
34660
75866a7ebaec (wait_reading_process_input): Check for pending
Gerd Moellmann <gerd@gnu.org>
parents: 34647
diff changeset
7431
75866a7ebaec (wait_reading_process_input): Check for pending
Gerd Moellmann <gerd@gnu.org>
parents: 34647
diff changeset
7432 do
15021
af36df262fc5 (wait_reading_process_input) [!subprocesses]: Handle
Richard M. Stallman <rms@gnu.org>
parents: 14998
diff changeset
7433 {
34660
75866a7ebaec (wait_reading_process_input): Check for pending
Gerd Moellmann <gerd@gnu.org>
parents: 34647
diff changeset
7434 int old_timers_run = timers_run;
75866a7ebaec (wait_reading_process_input): Check for pending
Gerd Moellmann <gerd@gnu.org>
parents: 34647
diff changeset
7435 timer_delay = timer_check (1);
75866a7ebaec (wait_reading_process_input): Check for pending
Gerd Moellmann <gerd@gnu.org>
parents: 34647
diff changeset
7436 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
7437 /* 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
7438 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
7439 redisplay_preserve_echo_area (14);
34660
75866a7ebaec (wait_reading_process_input): Check for pending
Gerd Moellmann <gerd@gnu.org>
parents: 34647
diff changeset
7440 else
75866a7ebaec (wait_reading_process_input): Check for pending
Gerd Moellmann <gerd@gnu.org>
parents: 34647
diff changeset
7441 break;
15021
af36df262fc5 (wait_reading_process_input) [!subprocesses]: Handle
Richard M. Stallman <rms@gnu.org>
parents: 14998
diff changeset
7442 }
34660
75866a7ebaec (wait_reading_process_input): Check for pending
Gerd Moellmann <gerd@gnu.org>
parents: 34647
diff changeset
7443 while (!detect_input_pending ());
15021
af36df262fc5 (wait_reading_process_input) [!subprocesses]: Handle
Richard M. Stallman <rms@gnu.org>
parents: 14998
diff changeset
7444
22535
fd9324c5a498 (wait_reading_process_input): Recompute timeout each
Eli Zaretskii <eliz@gnu.org>
parents: 22523
diff changeset
7445 /* If there is unread keyboard input, also return. */
56716
c126b8b6a314 * process.c (wait_reading_process_input): Clean up.
Kim F. Storm <storm@cua.dk>
parents: 56713
diff changeset
7446 if (read_kbd != 0
22535
fd9324c5a498 (wait_reading_process_input): Recompute timeout each
Eli Zaretskii <eliz@gnu.org>
parents: 22523
diff changeset
7447 && requeued_events_pending_p ())
fd9324c5a498 (wait_reading_process_input): Recompute timeout each
Eli Zaretskii <eliz@gnu.org>
parents: 22523
diff changeset
7448 break;
fd9324c5a498 (wait_reading_process_input): Recompute timeout each
Eli Zaretskii <eliz@gnu.org>
parents: 22523
diff changeset
7449
14806
232b90ad50e8 (wait_reading_process_input) [! subprocesses]: Run
Karl Heuer <kwzh@gnu.org>
parents: 14802
diff changeset
7450 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
7451 {
45827a5afe4d [!subprocesses] (wait_reading_process_input):
Richard M. Stallman <rms@gnu.org>
parents: 14785
diff changeset
7452 EMACS_TIME difference;
14806
232b90ad50e8 (wait_reading_process_input) [! subprocesses]: Run
Karl Heuer <kwzh@gnu.org>
parents: 14802
diff changeset
7453 EMACS_SUB_TIME (difference, timer_delay, timeout);
14802
45827a5afe4d [!subprocesses] (wait_reading_process_input):
Richard M. Stallman <rms@gnu.org>
parents: 14785
diff changeset
7454 if (EMACS_TIME_NEG_P (difference))
45827a5afe4d [!subprocesses] (wait_reading_process_input):
Richard M. Stallman <rms@gnu.org>
parents: 14785
diff changeset
7455 {
14806
232b90ad50e8 (wait_reading_process_input) [! subprocesses]: Run
Karl Heuer <kwzh@gnu.org>
parents: 14802
diff changeset
7456 timeout = timer_delay;
14802
45827a5afe4d [!subprocesses] (wait_reading_process_input):
Richard M. Stallman <rms@gnu.org>
parents: 14785
diff changeset
7457 timeout_reduced_for_timers = 1;
45827a5afe4d [!subprocesses] (wait_reading_process_input):
Richard M. Stallman <rms@gnu.org>
parents: 14785
diff changeset
7458 }
45827a5afe4d [!subprocesses] (wait_reading_process_input):
Richard M. Stallman <rms@gnu.org>
parents: 14785
diff changeset
7459 }
45827a5afe4d [!subprocesses] (wait_reading_process_input):
Richard M. Stallman <rms@gnu.org>
parents: 14785
diff changeset
7460 }
45827a5afe4d [!subprocesses] (wait_reading_process_input):
Richard M. Stallman <rms@gnu.org>
parents: 14785
diff changeset
7461
588
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
7462 /* Cause C-g and alarm signals to take immediate action,
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
7463 and cause input available signals to zero out timeout. */
56716
c126b8b6a314 * process.c (wait_reading_process_input): Clean up.
Kim F. Storm <storm@cua.dk>
parents: 56713
diff changeset
7464 if (read_kbd < 0)
588
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
7465 set_waiting_for_input (&timeout);
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
7466
15021
af36df262fc5 (wait_reading_process_input) [!subprocesses]: Handle
Richard M. Stallman <rms@gnu.org>
parents: 14998
diff changeset
7467 /* Wait till there is something to do. */
af36df262fc5 (wait_reading_process_input) [!subprocesses]: Handle
Richard M. Stallman <rms@gnu.org>
parents: 14998
diff changeset
7468
56716
c126b8b6a314 * process.c (wait_reading_process_input): Clean up.
Kim F. Storm <storm@cua.dk>
parents: 56713
diff changeset
7469 if (! read_kbd && NILP (wait_for_cell))
15021
af36df262fc5 (wait_reading_process_input) [!subprocesses]: Handle
Richard M. Stallman <rms@gnu.org>
parents: 14998
diff changeset
7470 FD_ZERO (&waitchannels);
af36df262fc5 (wait_reading_process_input) [!subprocesses]: Handle
Richard M. Stallman <rms@gnu.org>
parents: 14998
diff changeset
7471 else
af36df262fc5 (wait_reading_process_input) [!subprocesses]: Handle
Richard M. Stallman <rms@gnu.org>
parents: 14998
diff changeset
7472 FD_SET (0, &waitchannels);
af36df262fc5 (wait_reading_process_input) [!subprocesses]: Handle
Richard M. Stallman <rms@gnu.org>
parents: 14998
diff changeset
7473
765
e4093444f9f8 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 692
diff changeset
7474 /* If a frame has been newly mapped and needs updating,
588
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
7475 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
7476 if (frame_garbaged && do_display)
15021
af36df262fc5 (wait_reading_process_input) [!subprocesses]: Handle
Richard M. Stallman <rms@gnu.org>
parents: 14998
diff changeset
7477 {
af36df262fc5 (wait_reading_process_input) [!subprocesses]: Handle
Richard M. Stallman <rms@gnu.org>
parents: 14998
diff changeset
7478 clear_waiting_for_input ();
35336
002c02db42d3 Call redisplay_preserve_echo_area with additional arg.
Gerd Moellmann <gerd@gnu.org>
parents: 34660
diff changeset
7479 redisplay_preserve_echo_area (15);
56716
c126b8b6a314 * process.c (wait_reading_process_input): Clean up.
Kim F. Storm <storm@cua.dk>
parents: 56713
diff changeset
7480 if (read_kbd < 0)
15021
af36df262fc5 (wait_reading_process_input) [!subprocesses]: Handle
Richard M. Stallman <rms@gnu.org>
parents: 14998
diff changeset
7481 set_waiting_for_input (&timeout);
af36df262fc5 (wait_reading_process_input) [!subprocesses]: Handle
Richard M. Stallman <rms@gnu.org>
parents: 14998
diff changeset
7482 }
588
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
7483
56716
c126b8b6a314 * process.c (wait_reading_process_input): Clean up.
Kim F. Storm <storm@cua.dk>
parents: 56713
diff changeset
7484 if (read_kbd && detect_input_pending ())
15025
e5f54fd1c352 (wait_reading_process_input) [!subprocesses]:
Richard M. Stallman <rms@gnu.org>
parents: 15021
diff changeset
7485 {
e5f54fd1c352 (wait_reading_process_input) [!subprocesses]:
Richard M. Stallman <rms@gnu.org>
parents: 15021
diff changeset
7486 nfds = 0;
e5f54fd1c352 (wait_reading_process_input) [!subprocesses]:
Richard M. Stallman <rms@gnu.org>
parents: 15021
diff changeset
7487 FD_ZERO (&waitchannels);
e5f54fd1c352 (wait_reading_process_input) [!subprocesses]:
Richard M. Stallman <rms@gnu.org>
parents: 15021
diff changeset
7488 }
e5f54fd1c352 (wait_reading_process_input) [!subprocesses]:
Richard M. Stallman <rms@gnu.org>
parents: 15021
diff changeset
7489 else
e5f54fd1c352 (wait_reading_process_input) [!subprocesses]:
Richard M. Stallman <rms@gnu.org>
parents: 15021
diff changeset
7490 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
7491 &timeout);
14806
232b90ad50e8 (wait_reading_process_input) [! subprocesses]: Run
Karl Heuer <kwzh@gnu.org>
parents: 14802
diff changeset
7492
232b90ad50e8 (wait_reading_process_input) [! subprocesses]: Run
Karl Heuer <kwzh@gnu.org>
parents: 14802
diff changeset
7493 xerrno = errno;
588
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
7494
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
7495 /* Make C-g and alarm signals set flags again */
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
7496 clear_waiting_for_input ();
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
7497
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
7498 /* 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
7499 do_pending_window_change (0);
588
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
7500
14806
232b90ad50e8 (wait_reading_process_input) [! subprocesses]: Run
Karl Heuer <kwzh@gnu.org>
parents: 14802
diff changeset
7501 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
7502 /* 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
7503 break;
232b90ad50e8 (wait_reading_process_input) [! subprocesses]: Run
Karl Heuer <kwzh@gnu.org>
parents: 14802
diff changeset
7504
588
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
7505 if (nfds == -1)
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
7506 {
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
7507 /* If the system call was interrupted, then go around the
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
7508 loop again. */
14806
232b90ad50e8 (wait_reading_process_input) [! subprocesses]: Run
Karl Heuer <kwzh@gnu.org>
parents: 14802
diff changeset
7509 if (xerrno == EINTR)
14278
3562c5f43780 (wait_reading_process_input) [not subprocesses]: Do
Karl Heuer <kwzh@gnu.org>
parents: 14186
diff changeset
7510 FD_ZERO (&waitchannels);
14806
232b90ad50e8 (wait_reading_process_input) [! subprocesses]: Run
Karl Heuer <kwzh@gnu.org>
parents: 14802
diff changeset
7511 else
26088
b7aa6ac26872 Add support for large files, 64-bit Solaris, system locale codings.
Paul Eggert <eggert@twinsun.com>
parents: 26019
diff changeset
7512 error ("select error: %s", emacs_strerror (xerrno));
588
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
7513 }
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
7514 #ifdef sun
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
7515 else if (nfds > 0 && (waitchannels & 1) && interrupt_input)
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
7516 /* System sometimes fails to deliver SIGIO. */
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
7517 kill (getpid (), SIGIO);
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
7518 #endif
3915
55ed7a65746e (wait_reading_process_input): Use SIGIO only if defined.
Richard M. Stallman <rms@gnu.org>
parents: 3826
diff changeset
7519 #ifdef SIGIO
56716
c126b8b6a314 * process.c (wait_reading_process_input): Clean up.
Kim F. Storm <storm@cua.dk>
parents: 56713
diff changeset
7520 if (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
7521 kill (getpid (), SIGIO);
3915
55ed7a65746e (wait_reading_process_input): Use SIGIO only if defined.
Richard M. Stallman <rms@gnu.org>
parents: 3826
diff changeset
7522 #endif
588
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
7523
14806
232b90ad50e8 (wait_reading_process_input) [! subprocesses]: Run
Karl Heuer <kwzh@gnu.org>
parents: 14802
diff changeset
7524 /* Check for keyboard input */
232b90ad50e8 (wait_reading_process_input) [! subprocesses]: Run
Karl Heuer <kwzh@gnu.org>
parents: 14802
diff changeset
7525
56716
c126b8b6a314 * process.c (wait_reading_process_input): Clean up.
Kim F. Storm <storm@cua.dk>
parents: 56713
diff changeset
7526 if (read_kbd
37413
49147b9fe206 (wait_reading_process_input) [!subprocesses]: Don't
Eli Zaretskii <eliz@gnu.org>
parents: 37398
diff changeset
7527 && detect_input_pending_run_timers (do_display))
14806
232b90ad50e8 (wait_reading_process_input) [! subprocesses]: Run
Karl Heuer <kwzh@gnu.org>
parents: 14802
diff changeset
7528 {
37413
49147b9fe206 (wait_reading_process_input) [!subprocesses]: Don't
Eli Zaretskii <eliz@gnu.org>
parents: 37398
diff changeset
7529 swallow_events (do_display);
14806
232b90ad50e8 (wait_reading_process_input) [! subprocesses]: Run
Karl Heuer <kwzh@gnu.org>
parents: 14802
diff changeset
7530 if (detect_input_pending_run_timers (do_display))
232b90ad50e8 (wait_reading_process_input) [! subprocesses]: Run
Karl Heuer <kwzh@gnu.org>
parents: 14802
diff changeset
7531 break;
37413
49147b9fe206 (wait_reading_process_input) [!subprocesses]: Don't
Eli Zaretskii <eliz@gnu.org>
parents: 37398
diff changeset
7532 }
49147b9fe206 (wait_reading_process_input) [!subprocesses]: Don't
Eli Zaretskii <eliz@gnu.org>
parents: 37398
diff changeset
7533
22535
fd9324c5a498 (wait_reading_process_input): Recompute timeout each
Eli Zaretskii <eliz@gnu.org>
parents: 22523
diff changeset
7534 /* If there is unread keyboard input, also return. */
56716
c126b8b6a314 * process.c (wait_reading_process_input): Clean up.
Kim F. Storm <storm@cua.dk>
parents: 56713
diff changeset
7535 if (read_kbd
22535
fd9324c5a498 (wait_reading_process_input): Recompute timeout each
Eli Zaretskii <eliz@gnu.org>
parents: 22523
diff changeset
7536 && requeued_events_pending_p ())
fd9324c5a498 (wait_reading_process_input): Recompute timeout each
Eli Zaretskii <eliz@gnu.org>
parents: 22523
diff changeset
7537 break;
fd9324c5a498 (wait_reading_process_input): Recompute timeout each
Eli Zaretskii <eliz@gnu.org>
parents: 22523
diff changeset
7538
15064
fb0f2804c34a (wait_reading_process_input, both definitions):
Richard M. Stallman <rms@gnu.org>
parents: 15025
diff changeset
7539 /* 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
7540 but don't run any timers.
fb0f2804c34a (wait_reading_process_input, both definitions):
Richard M. Stallman <rms@gnu.org>
parents: 15025
diff changeset
7541 ??? (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
7542 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
7543 has been this way since July 1994.
fb0f2804c34a (wait_reading_process_input, both definitions):
Richard M. Stallman <rms@gnu.org>
parents: 15025
diff changeset
7544 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
7545 if (! NILP (wait_for_cell)
15064
fb0f2804c34a (wait_reading_process_input, both definitions):
Richard M. Stallman <rms@gnu.org>
parents: 15025
diff changeset
7546 && detect_input_pending ())
fb0f2804c34a (wait_reading_process_input, both definitions):
Richard M. Stallman <rms@gnu.org>
parents: 15025
diff changeset
7547 {
fb0f2804c34a (wait_reading_process_input, both definitions):
Richard M. Stallman <rms@gnu.org>
parents: 15025
diff changeset
7548 swallow_events (do_display);
fb0f2804c34a (wait_reading_process_input, both definitions):
Richard M. Stallman <rms@gnu.org>
parents: 15025
diff changeset
7549 if (detect_input_pending ())
fb0f2804c34a (wait_reading_process_input, both definitions):
Richard M. Stallman <rms@gnu.org>
parents: 15025
diff changeset
7550 break;
fb0f2804c34a (wait_reading_process_input, both definitions):
Richard M. Stallman <rms@gnu.org>
parents: 15025
diff changeset
7551 }
fb0f2804c34a (wait_reading_process_input, both definitions):
Richard M. Stallman <rms@gnu.org>
parents: 15025
diff changeset
7552
15021
af36df262fc5 (wait_reading_process_input) [!subprocesses]: Handle
Richard M. Stallman <rms@gnu.org>
parents: 14998
diff changeset
7553 /* 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
7554 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
7555 break;
588
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
7556 }
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
7557
2120
fc3cdca22f8d * process.c (process_send_signal): In the TERMIOS code for sending
Jim Blandy <jimb@redhat.com>
parents: 1925
diff changeset
7558 start_polling ();
fc3cdca22f8d * process.c (process_send_signal): In the TERMIOS code for sending
Jim Blandy <jimb@redhat.com>
parents: 1925
diff changeset
7559
588
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
7560 return 0;
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
7561 }
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
7562
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
7563
39964
4ca5cbe5610d (process-inherit-coding-system-flag, get-buffer-process): Do not confuse
Pavel Janík <Pavel@Janik.cz>
parents: 39812
diff changeset
7564 /* 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
7565 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
7566 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
7567 0)
6b389fb978bc Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
7568 (name)
588
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
7569 register Lisp_Object name;
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
7570 {
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
7571 return Qnil;
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
7572 }
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
7573
39964
4ca5cbe5610d (process-inherit-coding-system-flag, get-buffer-process): Do not confuse
Pavel Janík <Pavel@Janik.cz>
parents: 39812
diff changeset
7574 /* 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
7575 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
7576 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
7577 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
7578 1, 1, 0,
6b389fb978bc Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
7579 0)
6b389fb978bc Change doc-string comments to `new style' [w/`doc:' keyword].
Pavel Janík <Pavel@Janik.cz>
parents: 39973
diff changeset
7580 (process)
21656
bb39a5863a82 (Fset_process_inherit_coding_system_flag,
Eli Zaretskii <eliz@gnu.org>
parents: 21530
diff changeset
7581 register Lisp_Object process;
bb39a5863a82 (Fset_process_inherit_coding_system_flag,
Eli Zaretskii <eliz@gnu.org>
parents: 21530
diff changeset
7582 {
bb39a5863a82 (Fset_process_inherit_coding_system_flag,
Eli Zaretskii <eliz@gnu.org>
parents: 21530
diff changeset
7583 /* Ignore the argument and return the value of
bb39a5863a82 (Fset_process_inherit_coding_system_flag,
Eli Zaretskii <eliz@gnu.org>
parents: 21530
diff changeset
7584 inherit-process-coding-system. */
bb39a5863a82 (Fset_process_inherit_coding_system_flag,
Eli Zaretskii <eliz@gnu.org>
parents: 21530
diff changeset
7585 return inherit_process_coding_system ? Qt : Qnil;
bb39a5863a82 (Fset_process_inherit_coding_system_flag,
Eli Zaretskii <eliz@gnu.org>
parents: 21530
diff changeset
7586 }
bb39a5863a82 (Fset_process_inherit_coding_system_flag,
Eli Zaretskii <eliz@gnu.org>
parents: 21530
diff changeset
7587
588
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
7588 /* Kill all processes associated with `buffer'.
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
7589 If `buffer' is nil, kill all processes.
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
7590 Since we have no subprocesses, this does nothing. */
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
7591
21414
aac7354edaed (kill_buffer_processes): Make consistent with
Karl Heuer <kwzh@gnu.org>
parents: 21281
diff changeset
7592 void
588
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
7593 kill_buffer_processes (buffer)
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
7594 Lisp_Object buffer;
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
7595 {
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
7596 }
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
7597
21978
ba8852d809f6 (init_process, syms_of_process): Make definition consistent with
Eli Zaretskii <eliz@gnu.org>
parents: 21950
diff changeset
7598 void
588
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
7599 init_process ()
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
7600 {
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
7601 }
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
7602
21978
ba8852d809f6 (init_process, syms_of_process): Make definition consistent with
Eli Zaretskii <eliz@gnu.org>
parents: 21950
diff changeset
7603 void
588
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
7604 syms_of_process ()
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
7605 {
44067
e8a136850817 (QCfeature, QCdatagram): Removed variables.
Kim F. Storm <storm@cua.dk>
parents: 44041
diff changeset
7606 QCtype = intern (":type");
e8a136850817 (QCfeature, QCdatagram): Removed variables.
Kim F. Storm <storm@cua.dk>
parents: 44041
diff changeset
7607 staticpro (&QCtype);
e8a136850817 (QCfeature, QCdatagram): Removed variables.
Kim F. Storm <storm@cua.dk>
parents: 44041
diff changeset
7608
588
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
7609 defsubr (&Sget_buffer_process);
21656
bb39a5863a82 (Fset_process_inherit_coding_system_flag,
Eli Zaretskii <eliz@gnu.org>
parents: 21530
diff changeset
7610 defsubr (&Sprocess_inherit_coding_system_flag);
588
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
7611 }
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
7612
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
7613
f284b1a71fb3 *** empty log message ***
Jim Blandy <jimb@redhat.com>
parents: 578
diff changeset
7614 #endif /* not subprocesses */
52401
695cf19ef79e Add arch taglines
Miles Bader <miles@gnu.org>
parents: 52093
diff changeset
7615
695cf19ef79e Add arch taglines
Miles Bader <miles@gnu.org>
parents: 52093
diff changeset
7616 /* arch-tag: 3706c011-7b9a-4117-bd4f-59e7f701a4c4
695cf19ef79e Add arch taglines
Miles Bader <miles@gnu.org>
parents: 52093
diff changeset
7617 (do not change this comment) */