annotate src/process-unix.c @ 853:2b6fa2618f76

[xemacs-hg @ 2002-05-28 08:44:22 by ben] merge my stderr-proc ws make-docfile.c: Fix places where we forget to check for EOF. code-init.el: Don't use CRLF conversion by default on process output. CMD.EXE and friends work both ways but Cygwin programs don't like the CRs. code-process.el, multicast.el, process.el: Removed. Improvements to call-process-internal: -- allows a buffer to be specified for input and stderr output -- use it on all systems -- implement C-g as documented -- clean up and comment call-process-region uses new call-process facilities; no temp file. remove duplicate funs in process.el. comment exactly how coding systems work and fix various problems. open-multicast-group now does similar coding-system frobbing to open-network-stream. dumped-lisp.el, faces.el, msw-faces.el: Fix some hidden errors due to code not being defined at the right time. xemacs.mak: Add -DSTRICT. ================================================================ ALLOW SEPARATION OF STDOUT AND STDERR IN PROCESSES ================================================================ Standard output and standard error can be processed separately in a process. Each can have its own buffer, its own mark in that buffer, and its filter function. You can specify a separate buffer for stderr in `start-process' to get things started, or use the new primitives: set-process-stderr-buffer process-stderr-buffer process-stderr-mark set-process-stderr-filter process-stderr-filter Also, process-send-region takes a 4th optional arg, a buffer. Currently always uses a pipe() under Unix to read the error output. (#### Would a PTY be better?) sysdep.h, sysproc.h, unexfreebsd.c, unexsunos4.c, nt.c, emacs.c, callproc.c, symsinit.h, sysdep.c, Makefile.in.in, process-unix.c: Delete callproc.c. Move child_setup() to process-unix.c. wait_for_termination() now only needed on a few really old systems. console-msw.h, event-Xt.c, event-msw.c, event-stream.c, event-tty.c, event-unixoid.c, events.h, process-nt.c, process-unix.c, process.c, process.h, procimpl.h: Rewrite the process methods to handle a separate channel for error input. Create Lstreams for reading in the error channel. Many process methods need change. In general the changes are fairly clear as they involve duplicating what's used for reading the normal stdout and changing for stderr -- although tedious, as such changes are required throughout the entire process code. Rewrote the code that reads process output to do two loops, one for stdout and one for stderr. gpmevent.c, tooltalk.c: set_process_filter takes an argument for stderr. ================================================================ NEW ERROR-TRAPPING MECHANISM ================================================================ Totally rewrite error trapping code to be unified and support more features. Basic function is call_trapping_problems(), which lets you specify, by means of flags, what sorts of problems you want trapped. these can include -- quit -- errors -- throws past the function -- creation of "display objects" (e.g. buffers) -- deletion of already-existing "display objects" (e.g. buffers) -- modification of already-existing buffers -- entering the debugger -- gc -- errors->warnings (ala suspended errors) etc. All other error funs rewritten in terms of this one. Various older mechanisms removed or rewritten. window.c, insdel.c, console.c, buffer.c, device.c, frame.c: When creating a display object, added call to note_object_created(), for use with trapping_problems mechanism. When deleting, call check_allowed_operation() and note_object deleted(). The trapping-problems code records the objects created since the call-trapping-problems began. Those objects can be deleted, but none others (i.e. previously existing ones). bytecode.c, cmdloop.c: internal_catch takes another arg. eval.c: Add long comments describing the "five lists" used to maintain state (backtrace, gcpro, specbind, etc.) in the Lisp engine. backtrace.h, eval.c: Implement trapping-problems mechanism, eliminate old mechanisms or redo in terms of new one. frame.c, gutter.c: Flush out the concept of "critical display section", defined by the in_display() var. Use an internal_bind() to get it reset, rather than just doing it at end, because there may be a non-local exit. event-msw.c, event-stream.c, console-msw.h, device.c, dialog-msw.c, frame.c, frame.h, intl.c, toolbar.c, menubar-msw.c, redisplay.c, alloc.c, menubar-x.c: Make use of new trapping-errors stuff and rewrite code based on old mechanisms. glyphs-widget.c, redisplay.h: Protect calling Lisp in redisplay. insdel.c: Protect hooks against deleting existing buffers. frame-msw.c: Use EQ, not EQUAL in hash tables whose keys are just numbers. Otherwise we run into stickiness in redisplay because internal_equal() can QUIT. ================================================================ SIGNAL, C-G CHANGES ================================================================ Here we change the way that C-g interacts with event reading. The idea is that a C-g occurring while we're reading a user event should be read as C-g, but elsewhere should be a QUIT. The former code did all sorts of bizarreness -- requiring that no QUIT occurs anywhere in event-reading code (impossible to enforce given the stuff called or Lisp code invoked), and having some weird system involving enqueue/dequeue of a C-g and interaction with Vquit_flag -- and it didn't work. Now, we simply enclose all code where we want C-g read as an event with {begin/end}_dont_check_for_quit(). This completely turns off the mechanism that checks (and may remove or alter) C-g in the read-ahead queues, so we just get the C-g normal. Signal.c documents this very carefully. cmdloop.c: Correct use of dont_check_for_quit to new scheme, remove old out-of-date comments. event-stream.c: Fix C-g handling to actually work. device-x.c: Disable quit checking when err out. signal.c: Cleanup. Add large descriptive comment. process-unix.c, process-nt.c, sysdep.c: Use QUIT instead of REALLY_QUIT. It's not necessary to use REALLY_QUIT and just confuses the issue. lisp.h: Comment quit handlers. ================================================================ CONS CHANGES ================================================================ free_cons() now takes a Lisp_Object not the result of XCONS(). car and cdr have been renamed so that they don't get used directly; go through XCAR(), XCDR() instead. alloc.c, dired.c, editfns.c, emodules.c, fns.c, glyphs-msw.c, glyphs-x.c, glyphs.c, keymap.c, minibuf.c, search.c, eval.c, lread.c, lisp.h: Correct free_cons calling convention: now takes Lisp_Object, not Lisp_Cons chartab.c: Eliminate direct use of ->car, ->cdr, should be black box. callint.c: Rewrote using EXTERNAL_LIST_LOOP to avoid use of Lisp_Cons. ================================================================ USE INTERNAL-BIND-* ================================================================ eval.c: Cleanups of these funs. alloc.c, fileio.c, undo.c, specifier.c, text.c, profile.c, lread.c, redisplay.c, menubar-x.c, macros.c: Rewrote to use internal_bind_int() and internal_bind_lisp_object() in place of whatever varied and cumbersome mechanisms were formerly there. ================================================================ SPECBIND SANITY ================================================================ backtrace.h: - Improved comments backtrace.h, bytecode.c, eval.c: Add new mechanism check_specbind_stack_sanity() for sanity checking code each time the catchlist or specbind stack change. Removed older prototype of same mechanism. ================================================================ MISC ================================================================ lisp.h, insdel.c, window.c, device.c, console.c, buffer.c: Fleshed out authorship. device-msw.c: Correct bad Unicode-ization. print.c: Be more careful when not initialized or in fatal error handling. search.c: Eliminate running_asynch_code, an FSF holdover. alloc.c: Added comments about gc-cons-threshold. dialog-x.c: Use begin_gc_forbidden() around code to build up a widget value tree, like in menubar-x.c. gui.c: Use Qunbound not Qnil as the default for gethash. lisp-disunion.h, lisp-union.h: Added warnings on use of VOID_TO_LISP(). lisp.h: Use ERROR_CHECK_STRUCTURES to turn on ERROR_CHECK_TRAPPING_PROBLEMS and ERROR_CHECK_TYPECHECK lisp.h: Add assert_with_message. lisp.h: Add macros for gcproing entire arrays. (You could do this before but it required manual twiddling the gcpro structure.) lisp.h: Add prototypes for new functions defined elsewhere.
author ben
date Tue, 28 May 2002 08:45:36 +0000
parents 6728e641994e
children 1d8fb2eee1bb
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1 /* Asynchronous subprocess implementation for UNIX
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2 Copyright (C) 1985, 1986, 1987, 1988, 1992, 1993, 1994, 1995
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
3 Free Software Foundation, Inc.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
4 Copyright (C) 1995 Sun Microsystems, Inc.
793
e38acbeb1cae [xemacs-hg @ 2002-03-29 04:46:17 by ben]
ben
parents: 771
diff changeset
5 Copyright (C) 1995, 1996, 2001, 2002 Ben Wing.
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
6
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
7 This file is part of XEmacs.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
8
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
9 XEmacs is free software; you can redistribute it and/or modify it
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
10 under the terms of the GNU General Public License as published by the
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
11 Free Software Foundation; either version 2, or (at your option) any
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
12 later version.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
13
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
14 XEmacs is distributed in the hope that it will be useful, but WITHOUT
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
15 ANY WARRANTY; without even the implied warranty of MERCHANTABILITY or
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
16 FITNESS FOR A PARTICULAR PURPOSE. See the GNU General Public License
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
17 for more details.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
18
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
19 You should have received a copy of the GNU General Public License
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
20 along with XEmacs; see the file COPYING. If not, write to
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
21 the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
22 Boston, MA 02111-1307, USA. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
23
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
24 /* Mule-ized as of 6-14-00 */
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
25
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
26 /* This file has been split into process.c and process-unix.c by
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
27 Kirill M. Katsnelson <kkm@kis.ru>, so please bash him and not
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
28 the original author(s) */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
29
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
30 /* The IPv6 support is derived from the code for GNU Emacs-20.3
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
31 written by Wolfgang S. Rupprecht */
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
32
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
33 #include <config.h>
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
34
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
35 #if !defined (NO_SUBPROCESSES)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
36
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
37 /* The entire file is within this conditional */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
38
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
39 #include "lisp.h"
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
40
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
41 #include "buffer.h"
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
42 #include "events.h"
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
43 #include "frame.h"
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
44 #include "hash.h"
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
45 #include "lstream.h"
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
46 #include "opaque.h"
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
47 #include "process.h"
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
48 #include "procimpl.h"
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
49 #include "sysdep.h"
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
50 #include "window.h"
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
51 #include "file-coding.h"
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
52
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
53 #include <setjmp.h>
853
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 826
diff changeset
54 #include "sysdir.h"
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
55 #include "sysfile.h"
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
56 #include "sysproc.h"
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
57 #include "systime.h"
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
58 #include "syssignal.h" /* Always include before systty.h */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
59 #include "systty.h"
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
60 #include "syswait.h"
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
61
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
62 #ifdef HPUX
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
63 #include <grp.h> /* See grantpt fixups for HPUX below. */
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
64 #endif
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
65
502
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 475
diff changeset
66 #if defined (HAVE_GETADDRINFO) && defined (HAVE_GETNAMEINFO)
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 475
diff changeset
67 #define USE_GETADDRINFO
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 475
diff changeset
68 #endif
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 475
diff changeset
69
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 475
diff changeset
70
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
71 /*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
72 * Implementation-specific data. Pointed to by Lisp_Process->process_data
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
73 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
74
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
75 struct unix_process_data
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
76 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
77 /* Non-0 if this is really a ToolTalk channel. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
78 int connected_via_filedesc_p;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
79 /* Descriptor by which we read from this process. -1 for dead process */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
80 int infd;
853
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 826
diff changeset
81 /* Descriptor by which we read stderr from this process. -1 for
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 826
diff changeset
82 dead process */
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 826
diff changeset
83 int errfd;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
84 /* Descriptor for the tty which this process is using.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
85 -1 if we didn't record it (on some systems, there's no need). */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
86 int subtty;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
87 /* Name of subprocess terminal. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
88 Lisp_Object tty_name;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
89 /* Non-false if communicating through a pty. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
90 char pty_flag;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
91 };
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
92
853
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 826
diff changeset
93 #define UNIX_DATA(p) ((struct unix_process_data*) ((p)->process_data))
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
94
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
95
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
96
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
97 /**********************************************************************/
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
98 /* Static helper routines */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
99 /**********************************************************************/
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
100
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
101 static SIGTYPE
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
102 close_safely_handler (int signo)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
103 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
104 EMACS_REESTABLISH_SIGNAL (signo, close_safely_handler);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
105 SIGRETURN;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
106 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
107
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
108 static void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
109 close_safely (int fd)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
110 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
111 stop_interrupts ();
613
023b83f4e54b [xemacs-hg @ 2001-06-10 10:42:16 by ben]
ben
parents: 609
diff changeset
112 set_timeout_signal (SIGALRM, close_safely_handler);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
113 alarm (1);
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
114 retry_close (fd);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
115 alarm (0);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
116 start_interrupts ();
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
117 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
118
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
119 static void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
120 close_descriptor_pair (int in, int out)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
121 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
122 if (in >= 0)
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
123 retry_close (in);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
124 if (out != in && out >= 0)
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
125 retry_close (out);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
126 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
127
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
128 /* Close all descriptors currently in use for communication
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
129 with subprocess. This is used in a newly-forked subprocess
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
130 to get rid of irrelevant descriptors. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
131
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
132 static int
853
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 826
diff changeset
133 close_process_descs_mapfun (const void *key, void *contents, void *arg)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
134 {
853
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 826
diff changeset
135 Lisp_Object proc = VOID_TO_LISP (contents);
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 826
diff changeset
136 USID vaffan, culo;
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 826
diff changeset
137
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 826
diff changeset
138 event_stream_delete_io_streams (XPROCESS (proc)->pipe_instream,
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 826
diff changeset
139 XPROCESS (proc)->pipe_outstream,
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 826
diff changeset
140 XPROCESS (proc)->pipe_errstream,
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 826
diff changeset
141 &vaffan, &culo);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
142 return 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
143 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
144
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
145 void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
146 close_process_descs (void)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
147 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
148 maphash (close_process_descs_mapfun, usid_to_process, 0);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
149 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
150
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
151 /* connect to an existing file descriptor. This is very similar to
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
152 open-network-stream except that it assumes that the connection has
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
153 already been initialized. It is currently used for ToolTalk
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
154 communication. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
155
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
156 /* This function used to be visible on the Lisp level, but there is no
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
157 real point in doing that. Here is the doc string:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
158
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
159 "Connect to an existing file descriptor.
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
160 Return a subprocess-object to represent the connection.
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
161 Input and output work as for subprocesses; `delete-process' closes it.
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
162 Args are NAME BUFFER INFD OUTFD.
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
163 NAME is name for process. It is modified if necessary to make it unique.
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
164 BUFFER is the buffer (or buffer-name) to associate with the process.
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
165 Process output goes at end of that buffer, unless you specify
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
166 an output stream or filter function to handle the output.
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
167 BUFFER may also be nil, meaning that this process is not associated
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
168 with any buffer.
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
169 INFD and OUTFD specify the file descriptors to use for input and
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
170 output, respectively."
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
171 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
172
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
173 Lisp_Object
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
174 connect_to_file_descriptor (Lisp_Object name, Lisp_Object buffer,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
175 Lisp_Object infd, Lisp_Object outfd)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
176 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
177 /* This function can GC */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
178 Lisp_Object proc;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
179 int inch;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
180
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
181 CHECK_STRING (name);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
182 CHECK_INT (infd);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
183 CHECK_INT (outfd);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
184
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
185 inch = XINT (infd);
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
186 if (get_process_from_usid (FD_TO_USID (inch)))
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
187 invalid_operation ("There is already a process connected to fd", infd);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
188 if (!NILP (buffer))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
189 buffer = Fget_buffer_create (buffer);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
190 proc = make_process_internal (name);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
191
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
192 XPROCESS (proc)->pid = Fcons (infd, name);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
193 XPROCESS (proc)->buffer = buffer;
853
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 826
diff changeset
194 init_process_io_handles (XPROCESS (proc), (void *) inch,
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 826
diff changeset
195 (void *) XINT (outfd), (void *) -1, 0);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
196 UNIX_DATA (XPROCESS (proc))->connected_via_filedesc_p = 1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
197
853
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 826
diff changeset
198 event_stream_select_process (XPROCESS (proc), 1, 1);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
199
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
200 return proc;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
201 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
202
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
203 static int allocate_pty_the_old_fashioned_way (void);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
204
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
205 /* The file name of the (slave) pty opened by allocate_pty(). */
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
206 #ifndef MAX_PTYNAME_LEN
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
207 #define MAX_PTYNAME_LEN 64
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
208 #endif
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
209 static Intbyte pty_name[MAX_PTYNAME_LEN];
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
210
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
211 /* Open an available pty, returning a file descriptor.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
212 Return -1 on failure.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
213 The file name of the terminal corresponding to the pty
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
214 is left in the variable `pty_name'. */
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
215
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
216 static int
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
217 allocate_pty (void)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
218 {
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
219 /* Unix98 standardized grantpt, unlockpt, and ptsname, but not the
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
220 functions required to open a master pty in the first place :-(
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
221
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
222 Modern Unix systems all seems to have convenience methods to open
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
223 a master pty fd in one function call, but there is little
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
224 agreement on how to do it.
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
225
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
226 allocate_pty() tries all the different known easy ways of opening
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
227 a pty. In case of failure, we resort to the old BSD-style pty
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
228 grovelling code in allocate_pty_the_old_fashioned_way(). */
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
229 int master_fd = -1;
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
230 const Extbyte *slave_name = NULL;
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
231 const CIntbyte *clone = NULL;
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
232 static const CIntbyte * const clones[] =
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
233 /* Different pty master clone devices */
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
234 {
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
235 "/dev/ptmx", /* Various systems */
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
236 "/dev/ptm/clone", /* HPUX */
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
237 "/dev/ptc", /* AIX */
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
238 "/dev/ptmx_bsd" /* Tru64 */
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
239 };
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
240
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
241 #ifdef HAVE_GETPT /* glibc */
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
242 master_fd = getpt ();
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
243 if (master_fd >= 0)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
244 goto have_master;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
245 #endif /* HAVE_GETPT */
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
246
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
247
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
248 #if defined(HAVE_OPENPTY) /* BSD, Tru64, glibc */
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
249 {
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
250 int slave_fd = -1;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
251 int rc;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
252 EMACS_BLOCK_SIGNAL (SIGCHLD);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
253 rc = openpty (&master_fd, &slave_fd, NULL, NULL, NULL);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
254 EMACS_UNBLOCK_SIGNAL (SIGCHLD);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
255 if (rc == 0)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
256 {
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
257 slave_name = ttyname (slave_fd);
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
258 retry_close (slave_fd);
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
259 goto have_slave_name;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
260 }
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
261 else
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
262 {
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
263 if (master_fd >= 0)
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
264 retry_close (master_fd);
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
265 if (slave_fd >= 0)
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
266 retry_close (slave_fd);
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
267 }
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
268 }
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
269 #endif /* HAVE_OPENPTY */
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
270
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
271 #if defined(HAVE__GETPTY) && defined (O_NDELAY) /* SGI */
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
272 master_fd = -1;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
273 EMACS_BLOCK_SIGNAL (SIGCHLD);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
274 slave_name = _getpty (&master_fd, O_RDWR | O_NDELAY, 0600, 0);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
275 EMACS_UNBLOCK_SIGNAL (SIGCHLD);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
276 if (master_fd >= 0 && slave_name != NULL)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
277 goto have_slave_name;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
278 #endif /* HAVE__GETPTY */
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
279
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
280 /* Master clone devices are available on most systems */
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
281 {
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
282 int i;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
283 for (i = 0; i < countof (clones); i++)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
284 {
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
285 clone = clones[i];
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
286 master_fd = qxe_open ((Intbyte *) clone,
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
287 O_RDWR | O_NONBLOCK | OPEN_BINARY, 0);
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
288 if (master_fd >= 0)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
289 goto have_master;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
290 }
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
291 clone = NULL;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
292 }
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
293
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
294 goto lose;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
295
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
296 have_master:
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
297
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
298 #if defined (HAVE_PTSNAME)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
299 slave_name = ptsname (master_fd);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
300 if (slave_name)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
301 goto have_slave_name;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
302 #endif
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
303
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
304 /* AIX docs say to use ttyname, not ptsname, to get slave_name */
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
305 if (clone
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
306 && !strcmp (clone, "/dev/ptc")
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
307 && (slave_name = ttyname (master_fd)) != NULL)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
308 goto have_slave_name;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
309
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
310 goto lose;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
311
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
312 have_slave_name:
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
313 {
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
314 Intbyte *slaveint;
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
315
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
316 EXTERNAL_TO_C_STRING (slave_name, slaveint, Qfile_name);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
317 qxestrncpy (pty_name, slaveint, sizeof (pty_name));
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
318 }
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
319
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
320 pty_name[sizeof (pty_name) - 1] = '\0';
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
321 setup_pty (master_fd);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
322
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
323 /* We jump through some hoops to frob the pty.
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
324 It's not obvious that checking the return code here is useful. */
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
325
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
326 /* "The grantpt() function will fail if it is unable to successfully
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
327 invoke the setuid root program. It may also fail if the
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
328 application has installed a signal handler to catch SIGCHLD
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
329 signals." */
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
330 #if defined (HAVE_GRANTPT) || defined (HAVE_UNLOCKPT)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
331 EMACS_BLOCK_SIGNAL (SIGCHLD);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
332
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
333 #if defined (HAVE_GRANTPT)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
334 grantpt (master_fd);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
335 #ifdef HPUX
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
336 /* grantpt() behavior on some versions of HP-UX differs from what's
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
337 specified in the man page: the group of the slave PTY is set to
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
338 the user's primary group, and we fix that. */
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
339 {
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
340 struct group *tty_group = getgrnam ("tty");
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
341 if (tty_group != NULL)
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
342 {
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
343 Extbyte *ptyout;
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
344
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
345 C_STRING_TO_EXTERNAL (pty_name, ptyout, Qfile_name);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
346 chown (ptyout, (uid_t) -1, tty_group->gr_gid);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
347 }
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
348 }
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
349 #endif /* HPUX has broken grantpt() */
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
350 #endif /* HAVE_GRANTPT */
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
351
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
352 #if defined (HAVE_UNLOCKPT)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
353 unlockpt (master_fd);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
354 #endif
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
355
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
356 EMACS_UNBLOCK_SIGNAL (SIGCHLD);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
357 #endif /* HAVE_GRANTPT || HAVE_UNLOCKPT */
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
358
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
359 return master_fd;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
360
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
361 lose:
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
362 if (master_fd >= 0)
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
363 retry_close (master_fd);
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
364 return allocate_pty_the_old_fashioned_way ();
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
365 }
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
366
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
367 /* This function tries to allocate a pty by iterating through file
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
368 pairs with names like /dev/ptyp1 and /dev/ttyp1. */
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
369 static int
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
370 allocate_pty_the_old_fashioned_way (void)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
371 {
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
372 struct stat stb;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
373
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
374 /* Some systems name their pseudoterminals so that there are gaps in
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
375 the usual sequence - for example, on HP9000/S700 systems, there
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
376 are no pseudoterminals with names ending in 'f'. So we wait for
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
377 three failures in a row before deciding that we've reached the
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
378 end of the ptys. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
379 int failed_count = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
380 int fd;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
381 int i;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
382 int c;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
383
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
384 #ifdef PTY_ITERATION
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
385 PTY_ITERATION
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
386 #else
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
387 # ifndef FIRST_PTY_LETTER
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
388 # define FIRST_PTY_LETTER 'p'
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
389 # endif
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
390 for (c = FIRST_PTY_LETTER; c <= 'z'; c++)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
391 for (i = 0; i < 16; i++)
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
392 #endif /* PTY_ITERATION */
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
393
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
394 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
395 #ifdef PTY_NAME_SPRINTF
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
396 PTY_NAME_SPRINTF
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
397 #else
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
398 qxesprintf (pty_name, "/dev/pty%c%x", c, i);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
399 #endif /* no PTY_NAME_SPRINTF */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
400
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
401 if (qxe_stat (pty_name, &stb) < 0)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
402 {
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
403 if (++failed_count >= 3)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
404 return -1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
405 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
406 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
407 failed_count = 0;
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
408 fd = qxe_open (pty_name, O_RDWR | O_NONBLOCK | OPEN_BINARY, 0);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
409
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
410 if (fd >= 0)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
411 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
412 #ifdef PTY_TTY_NAME_SPRINTF
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
413 PTY_TTY_NAME_SPRINTF
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
414 #else
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
415 qxesprintf (pty_name, "/dev/tty%c%x", c, i);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
416 #endif /* no PTY_TTY_NAME_SPRINTF */
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
417 if (qxe_access (pty_name, R_OK | W_OK) == 0)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
418 {
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
419 setup_pty (fd);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
420 return fd;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
421 }
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
422 retry_close (fd);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
423 }
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
424 } /* iteration */
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
425 return -1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
426 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
427
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
428 static int
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
429 create_bidirectional_pipe (int *inchannel, int *outchannel,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
430 volatile int *forkin, volatile int *forkout)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
431 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
432 int sv[2];
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
433
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
434 #ifdef SKTPAIR
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
435 if (socketpair (AF_UNIX, SOCK_STREAM, 0, sv) < 0)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
436 return -1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
437 *outchannel = *inchannel = sv[0];
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
438 *forkout = *forkin = sv[1];
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
439 #else /* not SKTPAIR */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
440 int temp;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
441 temp = pipe (sv);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
442 if (temp < 0) return -1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
443 *inchannel = sv[0];
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
444 *forkout = sv[1];
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
445 temp = pipe (sv);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
446 if (temp < 0) return -1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
447 *outchannel = sv[1];
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
448 *forkin = sv[0];
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
449 #endif /* not SKTPAIR */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
450 return 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
451 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
452
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
453
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
454 #ifdef HAVE_SOCKETS
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
455
502
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 475
diff changeset
456 #ifndef USE_GETADDRINFO
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
457 static int
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
458 get_internet_address (Lisp_Object host, struct sockaddr_in *address,
578
190b164ddcac [xemacs-hg @ 2001-05-25 11:26:50 by ben]
ben
parents: 576
diff changeset
459 Error_Behavior errb)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
460 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
461 struct hostent *host_info_ptr = NULL;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
462 #ifdef TRY_AGAIN
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
463 int count = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
464 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
465
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
466 xzero (*address);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
467
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
468 while (1)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
469 {
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
470 Extbyte *hostext;
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
471
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
472 #ifdef TRY_AGAIN
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
473 if (count++ > 10) break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
474 h_errno = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
475 #endif
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
476
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
477 TO_EXTERNAL_FORMAT (LISP_STRING, host, C_STRING_ALLOCA, hostext,
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
478 Qnative);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
479
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
480 /* Some systems can't handle SIGIO/SIGALARM in gethostbyname. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
481 slow_down_interrupts ();
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
482 host_info_ptr = gethostbyname (hostext);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
483 speed_up_interrupts ();
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
484 #ifdef TRY_AGAIN
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
485 if (! (host_info_ptr == 0 && h_errno == TRY_AGAIN))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
486 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
487 break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
488 Fsleep_for (make_int (1));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
489 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
490 if (host_info_ptr)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
491 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
492 address->sin_family = host_info_ptr->h_addrtype;
502
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 475
diff changeset
493 memcpy (&address->sin_addr, host_info_ptr->h_addr,
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 475
diff changeset
494 host_info_ptr->h_length);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
495 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
496 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
497 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
498 IN_ADDR numeric_addr;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
499 /* Attempt to interpret host as numeric inet address */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
500 numeric_addr = inet_addr ((char *) XSTRING_DATA (host));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
501 if (NUMERIC_ADDR_ERROR)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
502 {
563
183866b06e0b [xemacs-hg @ 2001-05-24 07:50:48 by ben]
ben
parents: 558
diff changeset
503 maybe_signal_error (Qio_error, "Unknown host", host,
183866b06e0b [xemacs-hg @ 2001-05-24 07:50:48 by ben]
ben
parents: 558
diff changeset
504 Qprocess, errb);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
505 return 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
506 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
507
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
508 /* There was some broken code here that called strlen() here
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
509 on (char *) &numeric_addr and even sometimes accessed
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
510 uninitialized data. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
511 address->sin_family = AF_INET;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
512 * (IN_ADDR *) &address->sin_addr = numeric_addr;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
513 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
514
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
515 return 1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
516 }
502
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 475
diff changeset
517 #endif /* !USE_GETADDRINFO */
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
518
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
519 static void
853
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 826
diff changeset
520 set_socket_nonblocking_maybe (int fd, int port, const char *proto)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
521 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
522 #ifdef PROCESS_IO_BLOCKING
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
523 Lisp_Object tail;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
524
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
525 for (tail = network_stream_blocking_port_list; CONSP (tail); tail = XCDR (tail))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
526 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
527 Lisp_Object tail_port = XCAR (tail);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
528
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
529 if (STRINGP (tail_port))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
530 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
531 struct servent *svc_info;
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
532 Extbyte *tailportext;
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
533
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
534 CHECK_STRING (tail_port);
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
535 TO_EXTERNAL_FORMAT (LISP_STRING, tail_port, C_STRING_ALLOCA,
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
536 tailportext, Qnative);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
537
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
538 svc_info = getservbyname (tailportext, proto);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
539 if ((svc_info != 0) && (svc_info->s_port == port))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
540 break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
541 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
542 continue;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
543 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
544 else if (INTP (tail_port) && (htons ((unsigned short) XINT (tail_port)) == port))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
545 break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
546 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
547
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
548 if (!CONSP (tail))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
549 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
550 set_descriptor_non_blocking (fd);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
551 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
552 #else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
553 set_descriptor_non_blocking (fd);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
554 #endif /* PROCESS_IO_BLOCKING */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
555 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
556
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
557 #endif /* HAVE_SOCKETS */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
558
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
559 /* Compute the Lisp form of the process status from
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
560 the numeric status that was returned by `wait'. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
561
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
562 static void
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
563 update_status_from_wait_code (Lisp_Process *p, int *w_fmh)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
564 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
565 /* C compiler lossage when attempting to pass w directly */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
566 int w = *w_fmh;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
567
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
568 if (WIFSTOPPED (w))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
569 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
570 p->status_symbol = Qstop;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
571 p->exit_code = WSTOPSIG (w);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
572 p->core_dumped = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
573 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
574 else if (WIFEXITED (w))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
575 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
576 p->status_symbol = Qexit;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
577 p->exit_code = WEXITSTATUS (w);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
578 p->core_dumped = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
579 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
580 else if (WIFSIGNALED (w))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
581 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
582 p->status_symbol = Qsignal;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
583 p->exit_code = WTERMSIG (w);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
584 p->core_dumped = WCOREDUMP (w);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
585 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
586 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
587 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
588 p->status_symbol = Qrun;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
589 p->exit_code = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
590 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
591 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
592
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
593 #ifdef SIGCHLD
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
594
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
595 #define MAX_EXITED_PROCESSES 1000
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
596 static volatile pid_t exited_processes[MAX_EXITED_PROCESSES];
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
597 static volatile int exited_processes_status[MAX_EXITED_PROCESSES];
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
598 static volatile int exited_processes_index;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
599
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
600 static volatile int sigchld_happened;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
601
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
602 /* On receipt of a signal that a child status has changed,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
603 loop asking about children with changed statuses until
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
604 the system says there are no more. All we do is record
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
605 the processes and wait status.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
606
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
607 This function could be called from within the SIGCHLD
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
608 handler, so it must be completely reentrant. When
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
609 not called from a SIGCHLD handler, BLOCK_SIGCHLD should
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
610 be non-zero so that SIGCHLD is blocked while this
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
611 function is running. (This is necessary so avoid
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
612 race conditions with the SIGCHLD_HAPPENED flag). */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
613
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
614 static void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
615 record_exited_processes (int block_sigchld)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
616 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
617 if (!sigchld_happened)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
618 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
619 return;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
620 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
621
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
622 #ifdef EMACS_BLOCK_SIGNAL
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
623 if (block_sigchld)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
624 EMACS_BLOCK_SIGNAL (SIGCHLD);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
625 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
626
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
627 while (sigchld_happened)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
628 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
629 int pid;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
630 int w;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
631
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
632 /* Keep trying to get a status until we get a definitive result. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
633 do
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
634 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
635 errno = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
636 #ifdef WNOHANG
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
637 # ifndef WUNTRACED
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
638 # define WUNTRACED 0
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
639 # endif /* not WUNTRACED */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
640 # ifdef HAVE_WAITPID
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
641 pid = waitpid ((pid_t) -1, &w, WNOHANG | WUNTRACED);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
642 # else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
643 pid = wait3 (&w, WNOHANG | WUNTRACED, 0);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
644 # endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
645 #else /* not WNOHANG */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
646 pid = wait (&w);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
647 #endif /* not WNOHANG */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
648 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
649 while (pid <= 0 && errno == EINTR);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
650
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
651 if (pid <= 0)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
652 break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
653
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
654 if (exited_processes_index < MAX_EXITED_PROCESSES)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
655 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
656 exited_processes[exited_processes_index] = pid;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
657 exited_processes_status[exited_processes_index] = w;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
658 exited_processes_index++;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
659 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
660
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
661 /* On systems with WNOHANG, we just ignore the number
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
662 of times that SIGCHLD was signalled, and keep looping
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
663 until there are no more processes to wait on. If we
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
664 don't have WNOHANG, we have to rely on the count in
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
665 SIGCHLD_HAPPENED. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
666 #ifndef WNOHANG
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
667 sigchld_happened--;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
668 #endif /* not WNOHANG */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
669 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
670
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
671 sigchld_happened = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
672
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
673 if (block_sigchld)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
674 EMACS_UNBLOCK_SIGNAL (SIGCHLD);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
675 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
676
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
677 /* For any processes that have changed status and are recorded
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
678 and such, update the corresponding Lisp_Process.
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
679 We separate this from record_exited_processes() so that
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
680 we never have to call this function from within a signal
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
681 handler. We block SIGCHLD in case record_exited_processes()
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
682 is called from a signal handler. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
683
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
684 /** USG WARNING: Although it is not obvious from the documentation
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
685 in signal(2), on a USG system the SIGCLD handler MUST NOT call
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
686 signal() before executing at least one wait(), otherwise the handler
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
687 will be called again, resulting in an infinite loop. The relevant
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
688 portion of the documentation reads "SIGCLD signals will be queued
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
689 and the signal-catching function will be continually reentered until
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
690 the queue is empty". Invoking signal() causes the kernel to reexamine
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
691 the SIGCLD queue. Fred Fish, UniSoft Systems Inc.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
692
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
693 (Note that now this only applies in SYS V Release 2 and before.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
694 On SYS V Release 3, we use sigset() to set the signal handler for
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
695 the first time, and so we don't have to reestablish the signal handler
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
696 in the handler below. On SYS V Release 4, we don't get this weirdo
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
697 behavior when we use sigaction(), which we do use.) */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
698
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
699 static SIGTYPE
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
700 sigchld_handler (int signo)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
701 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
702 #ifdef OBNOXIOUS_SYSV_SIGCLD_BEHAVIOR
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
703 int old_errno = errno;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
704
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
705 sigchld_happened++;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
706 record_exited_processes (0);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
707 errno = old_errno;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
708 #else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
709 sigchld_happened++;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
710 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
711 #ifdef HAVE_UNIXOID_EVENT_LOOP
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
712 signal_fake_event ();
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
713 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
714 /* WARNING - must come after wait3() for USG systems */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
715 EMACS_REESTABLISH_SIGNAL (signo, sigchld_handler);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
716 SIGRETURN;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
717 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
718
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
719 #endif /* SIGCHLD */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
720
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
721 #ifdef SIGNALS_VIA_CHARACTERS
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
722 /* Get signal character to send to process if SIGNALS_VIA_CHARACTERS */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
723
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
724 static int
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
725 process_signal_char (int tty_fd, int signo)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
726 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
727 /* If it's not a tty, pray that these default values work */
853
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 826
diff changeset
728 if (! isatty (tty_fd))
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 826
diff changeset
729 {
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
730 #define CNTL(ch) (037 & (ch))
853
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 826
diff changeset
731 switch (signo)
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 826
diff changeset
732 {
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 826
diff changeset
733 case SIGINT: return CNTL ('C');
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 826
diff changeset
734 case SIGQUIT: return CNTL ('\\');
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
735 #ifdef SIGTSTP
853
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 826
diff changeset
736 case SIGTSTP: return CNTL ('Z');
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
737 #endif
853
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 826
diff changeset
738 }
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 826
diff changeset
739 }
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
740
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
741 #ifdef HAVE_TERMIOS
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
742 /* TERMIOS is the latest and bestest, and seems most likely to work.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
743 If the system has it, use it. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
744 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
745 struct termios t;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
746 tcgetattr (tty_fd, &t);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
747 switch (signo)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
748 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
749 case SIGINT: return t.c_cc[VINTR];
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
750 case SIGQUIT: return t.c_cc[VQUIT];
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
751 #if defined(SIGTSTP) && defined(VSUSP)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
752 case SIGTSTP: return t.c_cc[VSUSP];
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
753 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
754 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
755 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
756
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
757 # elif defined (TIOCGLTC) && defined (TIOCGETC) /* not HAVE_TERMIOS */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
758 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
759 /* On Berkeley descendants, the following IOCTL's retrieve the
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
760 current control characters. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
761 struct tchars c;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
762 struct ltchars lc;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
763 switch (signo)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
764 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
765 case SIGINT: ioctl (tty_fd, TIOCGETC, &c); return c.t_intrc;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
766 case SIGQUIT: ioctl (tty_fd, TIOCGETC, &c); return c.t_quitc;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
767 # ifdef SIGTSTP
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
768 case SIGTSTP: ioctl (tty_fd, TIOCGLTC, &lc); return lc.t_suspc;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
769 # endif /* SIGTSTP */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
770 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
771 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
772
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
773 # elif defined (TCGETA) /* ! defined (TIOCGLTC) && defined (TIOCGETC) */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
774 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
775 /* On SYSV descendants, the TCGETA ioctl retrieves the current
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
776 control characters. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
777 struct termio t;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
778 ioctl (tty_fd, TCGETA, &t);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
779 switch (signo) {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
780 case SIGINT: return t.c_cc[VINTR];
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
781 case SIGQUIT: return t.c_cc[VQUIT];
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
782 # ifdef SIGTSTP
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
783 case SIGTSTP: return t.c_cc[VSWTCH];
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
784 # endif /* SIGTSTP */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
785 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
786 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
787 # else /* ! defined (TCGETA) */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
788 #error ERROR! Using SIGNALS_VIA_CHARACTERS, but not HAVE_TERMIOS || (TIOCGLTC && TIOCGETC) || TCGETA
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
789 /* If your system configuration files define SIGNALS_VIA_CHARACTERS,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
790 you'd better be using one of the alternatives above! */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
791 # endif /* ! defined (TCGETA) */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
792 return '\0';
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
793 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
794 #endif /* SIGNALS_VIA_CHARACTERS */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
795
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
796
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
797
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
798
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
799 /**********************************************************************/
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
800 /* Process implementation methods */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
801 /**********************************************************************/
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
802
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
803 /*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
804 * Allocate and initialize Lisp_Process->process_data
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
805 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
806
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
807 static void
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
808 unix_alloc_process_data (Lisp_Process *p)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
809 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
810 p->process_data = xnew (struct unix_process_data);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
811
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
812 UNIX_DATA(p)->connected_via_filedesc_p = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
813 UNIX_DATA(p)->infd = -1;
853
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 826
diff changeset
814 UNIX_DATA(p)->errfd = -1;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
815 UNIX_DATA(p)->subtty = -1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
816 UNIX_DATA(p)->tty_name = Qnil;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
817 UNIX_DATA(p)->pty_flag = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
818 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
819
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
820 /*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
821 * Mark any Lisp objects in Lisp_Process->process_data
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
822 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
823
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
824 static void
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
825 unix_mark_process_data (Lisp_Process *proc)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
826 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
827 mark_object (UNIX_DATA(proc)->tty_name);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
828 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
829
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
830 /*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
831 * Initialize XEmacs process implementation once
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
832 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
833
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
834 #ifdef SIGCHLD
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
835 static void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
836 unix_init_process (void)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
837 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
838 #ifndef CANNOT_DUMP
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
839 if (! noninteractive || initialized)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
840 #endif
613
023b83f4e54b [xemacs-hg @ 2001-06-10 10:42:16 by ben]
ben
parents: 609
diff changeset
841 EMACS_SIGNAL (SIGCHLD, sigchld_handler);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
842 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
843 #endif /* SIGCHLD */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
844
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
845 /*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
846 * Initialize any process local data. This is called when newly
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
847 * created process is connected to real OS file handles. The
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
848 * handles are generally represented by void* type, but are
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
849 * of type int (file descriptors) for UNIX.
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
850 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
851
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
852 static void
853
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 826
diff changeset
853 unix_init_process_io_handles (Lisp_Process *p, void *in, void *out, void *err,
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 826
diff changeset
854 int flags)
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 826
diff changeset
855 {
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 826
diff changeset
856 UNIX_DATA(p)->infd = (int) in;
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 826
diff changeset
857 UNIX_DATA(p)->errfd = (int) err;
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 826
diff changeset
858 }
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 826
diff changeset
859
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 826
diff changeset
860 /* Move the file descriptor FD so that its number is not less than MIN. *
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 826
diff changeset
861 The original file descriptor remains open. */
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 826
diff changeset
862 static int
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 826
diff changeset
863 relocate_fd (int fd, int min)
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 826
diff changeset
864 {
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 826
diff changeset
865 if (fd >= min)
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 826
diff changeset
866 return fd;
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 826
diff changeset
867 else
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 826
diff changeset
868 {
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 826
diff changeset
869 int newfd = dup (fd);
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 826
diff changeset
870 if (newfd == -1)
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 826
diff changeset
871 {
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 826
diff changeset
872 Intbyte *errmess;
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 826
diff changeset
873 GET_STRERROR (errmess, errno);
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 826
diff changeset
874 stderr_out ("Error while setting up child: %s\n", errmess);
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 826
diff changeset
875 _exit (1);
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 826
diff changeset
876 }
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 826
diff changeset
877 return relocate_fd (newfd, min);
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 826
diff changeset
878 }
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 826
diff changeset
879 }
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 826
diff changeset
880
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 826
diff changeset
881 /* This is the last thing run in a newly forked inferior process.
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 826
diff changeset
882 Copy descriptors IN, OUT and ERR
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 826
diff changeset
883 as descriptors STDIN_FILENO, STDOUT_FILENO, and STDERR_FILENO.
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 826
diff changeset
884 Initialize inferior's priority, pgrp, connected dir and environment.
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 826
diff changeset
885 then exec another program based on new_argv.
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 826
diff changeset
886
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 826
diff changeset
887 XEmacs: We've removed the SET_PGRP argument because it's already
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 826
diff changeset
888 done by the callers of child_setup.
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 826
diff changeset
889
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 826
diff changeset
890 CURRENT_DIR is an elisp string giving the path of the current
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 826
diff changeset
891 directory the subprocess should have. Since we can't really signal
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 826
diff changeset
892 a decent error from within the child (#### not quite correct in
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 826
diff changeset
893 XEmacs?), this should be verified as an executable directory by the
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 826
diff changeset
894 parent. */
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 826
diff changeset
895
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 826
diff changeset
896 static void
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 826
diff changeset
897 child_setup (int in, int out, int err, Intbyte **new_argv,
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 826
diff changeset
898 Lisp_Object current_dir)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
899 {
853
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 826
diff changeset
900 Intbyte **env;
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 826
diff changeset
901 Intbyte *pwd;
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 826
diff changeset
902
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 826
diff changeset
903 #ifdef SET_EMACS_PRIORITY
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 826
diff changeset
904 if (emacs_priority != 0)
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 826
diff changeset
905 nice (- emacs_priority);
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 826
diff changeset
906 #endif
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 826
diff changeset
907
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 826
diff changeset
908 #if !defined (NO_SUBPROCESSES)
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 826
diff changeset
909 /* Close Emacs's descriptors that this process should not have. */
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 826
diff changeset
910 close_process_descs ();
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 826
diff changeset
911 #endif /* not NO_SUBPROCESSES */
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 826
diff changeset
912 close_load_descs ();
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 826
diff changeset
913
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 826
diff changeset
914 /* [[Note that use of alloca is always safe here. It's obvious for systems
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 826
diff changeset
915 that do not have true vfork or that have true (stack) alloca.
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 826
diff changeset
916 If using vfork and C_ALLOCA it is safe because that changes
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 826
diff changeset
917 the superior's static variables as if the superior had done alloca
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 826
diff changeset
918 and will be cleaned up in the usual way.]] -- irrelevant because
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 826
diff changeset
919 XEmacs does not use vfork. */
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 826
diff changeset
920 {
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 826
diff changeset
921 REGISTER Bytecount i;
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 826
diff changeset
922
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 826
diff changeset
923 i = XSTRING_LENGTH (current_dir);
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 826
diff changeset
924 pwd = alloca_array (Intbyte, i + 6);
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 826
diff changeset
925 memcpy (pwd, "PWD=", 4);
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 826
diff changeset
926 memcpy (pwd + 4, XSTRING_DATA (current_dir), i);
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 826
diff changeset
927 i += 4;
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 826
diff changeset
928 if (!IS_DIRECTORY_SEP (pwd[i - 1]))
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 826
diff changeset
929 pwd[i++] = DIRECTORY_SEP;
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 826
diff changeset
930 pwd[i] = 0;
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 826
diff changeset
931
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 826
diff changeset
932 /* [[We can't signal an Elisp error here; we're in a vfork. Since
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 826
diff changeset
933 the callers check the current directory before forking, this
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 826
diff changeset
934 should only return an error if the directory's permissions
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 826
diff changeset
935 are changed between the check and this chdir, but we should
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 826
diff changeset
936 at least check.]] -- irrelevant because XEmacs does not use vfork. */
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 826
diff changeset
937 if (qxe_chdir (pwd + 4) < 0)
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 826
diff changeset
938 {
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 826
diff changeset
939 /* Don't report the chdir error, or ange-ftp.el doesn't work. */
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 826
diff changeset
940 /* (FSFmacs does _exit (errno) here.) */
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 826
diff changeset
941 pwd = 0;
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 826
diff changeset
942 }
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 826
diff changeset
943 else
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 826
diff changeset
944 {
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 826
diff changeset
945 /* Strip trailing "/". Cretinous *[]&@$#^%@#$% Un*x */
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 826
diff changeset
946 /* leave "//" (from FSF) */
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 826
diff changeset
947 while (i > 6 && IS_DIRECTORY_SEP (pwd[i - 1]))
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 826
diff changeset
948 pwd[--i] = 0;
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 826
diff changeset
949 }
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 826
diff changeset
950 }
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 826
diff changeset
951
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 826
diff changeset
952 /* Set `env' to a vector of the strings in Vprocess_environment. */
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 826
diff changeset
953 /* + 2 to include PWD and terminating 0. */
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 826
diff changeset
954 env = alloca_array (Intbyte *, XINT (Flength (Vprocess_environment)) + 2);
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 826
diff changeset
955 {
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 826
diff changeset
956 REGISTER Lisp_Object tail;
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 826
diff changeset
957 Intbyte **new_env = env;
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 826
diff changeset
958
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 826
diff changeset
959 /* If we have a PWD envvar and we know the real current directory,
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 826
diff changeset
960 pass one down, but with corrected value. */
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 826
diff changeset
961 if (pwd && egetenv ("PWD"))
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 826
diff changeset
962 *new_env++ = pwd;
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 826
diff changeset
963
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 826
diff changeset
964 /* Copy the Vprocess_environment strings into new_env. */
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 826
diff changeset
965 for (tail = Vprocess_environment;
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 826
diff changeset
966 CONSP (tail) && STRINGP (XCAR (tail));
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 826
diff changeset
967 tail = XCDR (tail))
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 826
diff changeset
968 {
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 826
diff changeset
969 Intbyte **ep = env;
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 826
diff changeset
970 Intbyte *envvar = XSTRING_DATA (XCAR (tail));
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 826
diff changeset
971
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 826
diff changeset
972 /* See if envvar duplicates any string already in the env.
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 826
diff changeset
973 If so, don't put it in.
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 826
diff changeset
974 When an env var has multiple definitions,
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 826
diff changeset
975 we keep the definition that comes first in process-environment. */
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 826
diff changeset
976 for (; ep != new_env; ep++)
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 826
diff changeset
977 {
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 826
diff changeset
978 Intbyte *p = *ep, *q = envvar;
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 826
diff changeset
979 while (1)
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 826
diff changeset
980 {
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 826
diff changeset
981 if (*q == 0)
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 826
diff changeset
982 /* The string is malformed; might as well drop it. */
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 826
diff changeset
983 goto duplicate;
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 826
diff changeset
984 if (*q != *p)
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 826
diff changeset
985 break;
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 826
diff changeset
986 if (*q == '=')
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 826
diff changeset
987 goto duplicate;
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 826
diff changeset
988 p++, q++;
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 826
diff changeset
989 }
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 826
diff changeset
990 }
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 826
diff changeset
991 if (pwd && !qxestrncmp ((Intbyte *) "PWD=", envvar, 4))
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 826
diff changeset
992 {
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 826
diff changeset
993 *new_env++ = pwd;
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 826
diff changeset
994 pwd = 0;
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 826
diff changeset
995 }
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 826
diff changeset
996 else
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 826
diff changeset
997 *new_env++ = envvar;
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 826
diff changeset
998
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 826
diff changeset
999 duplicate: ;
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 826
diff changeset
1000 }
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 826
diff changeset
1001
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 826
diff changeset
1002 *new_env = 0;
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 826
diff changeset
1003 }
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 826
diff changeset
1004
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 826
diff changeset
1005 /* Make sure that in, out, and err are not actually already in
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 826
diff changeset
1006 descriptors zero, one, or two; this could happen if Emacs is
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 826
diff changeset
1007 started with its standard in, out, or error closed, as might
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 826
diff changeset
1008 happen under X. */
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 826
diff changeset
1009 in = relocate_fd (in, 3);
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 826
diff changeset
1010 out = relocate_fd (out, 3);
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 826
diff changeset
1011 err = relocate_fd (err, 3);
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 826
diff changeset
1012
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 826
diff changeset
1013 /* Set the standard input/output channels of the new process. */
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 826
diff changeset
1014 retry_close (STDIN_FILENO);
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 826
diff changeset
1015 retry_close (STDOUT_FILENO);
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 826
diff changeset
1016 retry_close (STDERR_FILENO);
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 826
diff changeset
1017
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 826
diff changeset
1018 dup2 (in, STDIN_FILENO);
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 826
diff changeset
1019 dup2 (out, STDOUT_FILENO);
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 826
diff changeset
1020 dup2 (err, STDERR_FILENO);
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 826
diff changeset
1021
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 826
diff changeset
1022 retry_close (in);
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 826
diff changeset
1023 retry_close (out);
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 826
diff changeset
1024 retry_close (err);
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 826
diff changeset
1025
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 826
diff changeset
1026 /* I can't think of any reason why child processes need any more
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 826
diff changeset
1027 than the standard 3 file descriptors. It would be cleaner to
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 826
diff changeset
1028 close just the ones that need to be, but the following brute
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 826
diff changeset
1029 force approach is certainly effective, and not too slow.
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 826
diff changeset
1030
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 826
diff changeset
1031 #### Who the hell added this? We already close the descriptors
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 826
diff changeset
1032 by using close_process_descs()!!! --ben */
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 826
diff changeset
1033 {
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 826
diff changeset
1034 int fd;
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 826
diff changeset
1035 for (fd = 3; fd <= 64; fd++)
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 826
diff changeset
1036 retry_close (fd);
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 826
diff changeset
1037 }
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 826
diff changeset
1038
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 826
diff changeset
1039 /* we've wrapped execve; it translates its arguments */
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 826
diff changeset
1040 qxe_execve (new_argv[0], new_argv, env);
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 826
diff changeset
1041
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 826
diff changeset
1042 stdout_out ("Can't exec program %s\n", new_argv[0]);
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 826
diff changeset
1043 _exit (1);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1044 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1045
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1046 /*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1047 * Fork off a subprocess. P is a pointer to a newly created subprocess
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1048 * object. If this function signals, the caller is responsible for
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1049 * deleting (and finalizing) the process object.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1050 *
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1051 * The method must return PID of the new process, a (positive??? ####) number
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1052 * which fits into Lisp_Int. No return value indicates an error, the method
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1053 * must signal an error instead.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1054 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1055
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1056 static int
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
1057 unix_create_process (Lisp_Process *p,
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1058 Lisp_Object *argv, int nargv,
853
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 826
diff changeset
1059 Lisp_Object program, Lisp_Object cur_dir,
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 826
diff changeset
1060 int separate_err)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1061 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1062 int pid;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1063 int inchannel = -1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1064 int outchannel = -1;
853
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 826
diff changeset
1065 int errchannel = -1;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1066 /* Use volatile to protect variables from being clobbered by longjmp. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1067 volatile int forkin = -1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1068 volatile int forkout = -1;
853
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 826
diff changeset
1069 volatile int forkerr = -1;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1070 volatile int pty_flag = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1071
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1072 if (!NILP (Vprocess_connection_type))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1073 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1074 /* find a new pty, open the master side, return the opened
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1075 file handle, and store the name of the corresponding slave
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1076 side in global variable pty_name. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1077 outchannel = inchannel = allocate_pty ();
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1078 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1079
535
c69610198c35 [xemacs-hg @ 2001-05-14 04:52:02 by martinb]
martinb
parents: 502
diff changeset
1080 if (inchannel >= 0) /* We successfully allocated a pty. */
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1081 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1082 /* You're "supposed" to now open the slave in the child.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1083 On some systems, we can open it here; this allows for
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1084 better error checking. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1085 #if !defined(USG)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1086 /* On USG systems it does not work to open the pty's tty here
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1087 and then close and reopen it in the child. */
853
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 826
diff changeset
1088 # ifdef O_NOCTTY
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1089 /* Don't let this terminal become our controlling terminal
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1090 (in case we don't have one). */
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
1091 forkout = forkin = qxe_open (pty_name,
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
1092 O_RDWR | O_NOCTTY | OPEN_BINARY, 0);
853
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 826
diff changeset
1093 # else
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
1094 forkout = forkin = qxe_open (pty_name, O_RDWR | OPEN_BINARY, 0);
853
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 826
diff changeset
1095 # endif
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1096 if (forkin < 0)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1097 goto io_failure;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1098 #endif /* not USG */
853
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 826
diff changeset
1099 UNIX_DATA (p)->pty_flag = pty_flag = 1;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1100 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1101 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1102 if (create_bidirectional_pipe (&inchannel, &outchannel,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1103 &forkin, &forkout) < 0)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1104 goto io_failure;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1105
853
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 826
diff changeset
1106 if (separate_err)
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 826
diff changeset
1107 {
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 826
diff changeset
1108 int sv[2];
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 826
diff changeset
1109
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 826
diff changeset
1110 if (pipe (sv) < 0)
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 826
diff changeset
1111 goto io_failure;
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 826
diff changeset
1112 forkerr = sv[1];
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 826
diff changeset
1113 errchannel = sv[0];
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 826
diff changeset
1114 }
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 826
diff changeset
1115
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1116 #if 0
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1117 /* Replaced by close_process_descs */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1118 set_exclusive_use (inchannel);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1119 set_exclusive_use (outchannel);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1120 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1121
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1122 set_descriptor_non_blocking (inchannel);
853
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 826
diff changeset
1123 if (errchannel >= 0)
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 826
diff changeset
1124 set_descriptor_non_blocking (errchannel);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1125
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1126 /* Record this as an active process, with its channels.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1127 As a result, child_setup will close Emacs's side of the pipes. */
853
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 826
diff changeset
1128 init_process_io_handles (p, (void *) inchannel, (void *) outchannel,
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 826
diff changeset
1129 (void *) errchannel,
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1130 pty_flag ? STREAM_PTY_FLUSHING : 0);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1131 /* Record the tty descriptor used in the subprocess. */
853
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 826
diff changeset
1132 UNIX_DATA (p)->subtty = forkin;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1133
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1134 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1135 pid = fork ();
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1136 if (pid == 0)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1137 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1138 /**** Now we're in the child process ****/
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1139 int xforkin = forkin;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1140 int xforkout = forkout;
853
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 826
diff changeset
1141 int xforkerr = forkerr;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1142
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1143 /* Disconnect the current controlling terminal, pursuant to
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1144 making the pty be the controlling terminal of the process.
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1145 Also put us in our own process group. */
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1146
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1147 disconnect_controlling_terminal ();
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1148
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1149 if (pty_flag)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1150 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1151 /* Open the pty connection and make the pty's terminal
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1152 our controlling terminal.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1153
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1154 On systems with TIOCSCTTY, we just use it to set
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1155 the controlling terminal. On other systems, the
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1156 first TTY we open becomes the controlling terminal.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1157 So, we end up with four possibilities:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1158
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1159 (1) on USG and TIOCSCTTY systems, we open the pty
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1160 and use TIOCSCTTY.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1161 (2) on other USG systems, we just open the pty.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1162 (3) on non-USG systems with TIOCSCTTY, we
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1163 just use TIOCSCTTY. (On non-USG systems, we
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1164 already opened the pty in the parent process.)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1165 (4) on non-USG systems without TIOCSCTTY, we
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1166 close the pty and reopen it.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1167
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1168 This would be cleaner if we didn't open the pty
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1169 in the parent process, but doing it that way
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1170 makes it possible to trap error conditions.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1171 It's harder to convey an error from the child
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1172 process, and I don't feel like messing with
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1173 this now. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1174
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1175 /* There was some weirdo, probably wrong,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1176 conditionalization on RTU and UNIPLUS here.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1177 I deleted it. So sue me. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1178
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1179 /* SunOS has TIOCSCTTY but the close/open method
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1180 also works. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1181
853
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 826
diff changeset
1182 #if defined (USG) || !defined (TIOCSCTTY)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1183 /* Now close the pty (if we had it open) and reopen it.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1184 This makes the pty the controlling terminal of the
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1185 subprocess. */
853
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 826
diff changeset
1186 /* I wonder if retry_close (qxe_open (pty_name, ...)) would
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 826
diff changeset
1187 work? */
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1188 if (xforkin >= 0)
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
1189 retry_close (xforkin);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
1190 xforkout = xforkin = qxe_open (pty_name, O_RDWR | OPEN_BINARY, 0);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1191 if (xforkin < 0)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1192 {
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
1193 retry_write (1, "Couldn't open the pty terminal ", 31);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
1194 retry_write (1, pty_name, qxestrlen (pty_name));
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
1195 retry_write (1, "\n", 1);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1196 _exit (1);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1197 }
853
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 826
diff changeset
1198 #endif /* USG or not TIOCSCTTY */
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1199
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1200 /* Miscellaneous setup required for some systems.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1201 Must be done before using tc* functions on xforkin.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1202 This guarantees that isatty(xforkin) is true. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1203
853
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 826
diff changeset
1204 #if defined (HAVE_ISASTREAM) && defined (I_PUSH)
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1205 if (isastream (xforkin))
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1206 {
853
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 826
diff changeset
1207 # if defined (I_FIND)
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 826
diff changeset
1208 # define stream_module_pushed(fd, module) (ioctl (fd, I_FIND, module) == 1)
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 826
diff changeset
1209 # else
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 826
diff changeset
1210 # define stream_module_pushed(fd, module) 0
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 826
diff changeset
1211 # endif
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1212 if (! stream_module_pushed (xforkin, "ptem"))
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1213 ioctl (xforkin, I_PUSH, "ptem");
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1214 if (! stream_module_pushed (xforkin, "ldterm"))
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1215 ioctl (xforkin, I_PUSH, "ldterm");
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1216 if (! stream_module_pushed (xforkin, "ttcompat"))
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1217 ioctl (xforkin, I_PUSH, "ttcompat");
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1218 }
853
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 826
diff changeset
1219 #endif /* defined (HAVE_ISASTREAM) && defined (I_PUSH) */
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1220
853
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 826
diff changeset
1221 #ifdef TIOCSCTTY
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1222 /* We ignore the return value
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1223 because faith@cs.unc.edu says that is necessary on Linux. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1224 assert (isatty (xforkin));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1225 ioctl (xforkin, TIOCSCTTY, 0);
853
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 826
diff changeset
1226 #endif /* TIOCSCTTY */
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1227
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1228 /* Change the line discipline. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1229
853
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 826
diff changeset
1230 #if defined (HAVE_TERMIOS) && defined (LDISC1)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1231 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1232 struct termios t;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1233 assert (isatty (xforkin));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1234 tcgetattr (xforkin, &t);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1235 t.c_lflag = LDISC1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1236 if (tcsetattr (xforkin, TCSANOW, &t) < 0)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1237 perror ("create_process/tcsetattr LDISC1 failed\n");
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1238 }
853
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 826
diff changeset
1239 #elif defined (NTTYDISC) && defined (TIOCSETD)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1240 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1241 /* Use new line discipline. TIOCSETD is accepted and
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1242 ignored on Sys5.4 systems with ttcompat. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1243 int ldisc = NTTYDISC;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1244 assert (isatty (xforkin));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1245 ioctl (xforkin, TIOCSETD, &ldisc);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1246 }
853
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 826
diff changeset
1247 #endif /* TIOCSETD & NTTYDISC */
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1248
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1249 /* Make our process group be the foreground group
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1250 of our new controlling terminal. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1251
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1252 {
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1253 pid_t piddly = EMACS_GET_PROCESS_GROUP ();
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1254 EMACS_SET_TTY_PROCESS_GROUP (xforkin, &piddly);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1255 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1256
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1257 /* On AIX, we've disabled SIGHUP above once we start a
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1258 child on a pty. Now reenable it in the child, so it
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1259 will die when we want it to.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1260 JV: This needs to be done ALWAYS as we might have inherited
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1261 a SIG_IGN handling from our parent (nohup) and we are in new
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1262 process group.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1263 */
613
023b83f4e54b [xemacs-hg @ 2001-06-10 10:42:16 by ben]
ben
parents: 609
diff changeset
1264 EMACS_SIGNAL (SIGHUP, SIG_DFL);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1265
535
c69610198c35 [xemacs-hg @ 2001-05-14 04:52:02 by martinb]
martinb
parents: 502
diff changeset
1266 /* Set up the terminal characteristics of the pty. */
c69610198c35 [xemacs-hg @ 2001-05-14 04:52:02 by martinb]
martinb
parents: 502
diff changeset
1267 child_setup_tty (xforkout);
c69610198c35 [xemacs-hg @ 2001-05-14 04:52:02 by martinb]
martinb
parents: 502
diff changeset
1268 } /* if (pty_flag) */
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1269
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1270
613
023b83f4e54b [xemacs-hg @ 2001-06-10 10:42:16 by ben]
ben
parents: 609
diff changeset
1271 EMACS_SIGNAL (SIGINT, SIG_DFL);
023b83f4e54b [xemacs-hg @ 2001-06-10 10:42:16 by ben]
ben
parents: 609
diff changeset
1272 EMACS_SIGNAL (SIGQUIT, SIG_DFL);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1273
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1274 {
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
1275 Intbyte **new_argv = alloca_array (Intbyte *, nargv + 2);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1276 int i;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1277
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1278 /* Nothing below here GCs so our string pointers shouldn't move. */
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
1279 new_argv[0] = XSTRING_DATA (program);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1280 for (i = 0; i < nargv; i++)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1281 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1282 CHECK_STRING (argv[i]);
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
1283 new_argv[i + 1] = XSTRING_DATA (argv[i]);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1284 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1285 new_argv[i + 1] = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1286
853
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 826
diff changeset
1287 child_setup (xforkin, xforkout, separate_err ? xforkerr : xforkout,
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 826
diff changeset
1288 new_argv, cur_dir);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1289 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1290
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1291 } /**** End of child code ****/
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1292
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1293 /**** Back in parent process ****/
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1294 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1295
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1296 if (pid < 0)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1297 {
853
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 826
diff changeset
1298 /* Note: The caller set up an unwind-protect to automatically delete
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 826
diff changeset
1299 the process if we fail. This will correctly deselect and close
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 826
diff changeset
1300 inchannel, outchannel, and errchannel. */
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1301 int save_errno = errno;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1302 close_descriptor_pair (forkin, forkout);
853
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 826
diff changeset
1303 if (separate_err)
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 826
diff changeset
1304 retry_close (forkerr);
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1305 errno = save_errno;
563
183866b06e0b [xemacs-hg @ 2001-05-24 07:50:48 by ben]
ben
parents: 558
diff changeset
1306 report_process_error ("Doing fork", Qunbound);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1307 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1308
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1309 /* #### dmoore - why is this commented out, otherwise we leave
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1310 subtty = forkin, but then we close forkin just below. */
853
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 826
diff changeset
1311 /* UNIX_DATA (p)->subtty = -1; */
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1312
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1313 /* If the subfork execv fails, and it exits,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1314 this close hangs. I don't know why.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1315 So have an interrupt jar it loose. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1316 if (forkin >= 0)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1317 close_safely (forkin);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1318 if (forkin != forkout && forkout >= 0)
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
1319 retry_close (forkout);
853
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 826
diff changeset
1320 if (separate_err)
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 826
diff changeset
1321 retry_close (forkerr);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1322
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
1323 UNIX_DATA (p)->tty_name = pty_flag ? build_intstring (pty_name) : Qnil;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1324
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1325 /* Notice that SIGCHLD was not blocked. (This is not possible on
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1326 some systems.) No biggie if SIGCHLD occurs right around the
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1327 time that this call happens, because SIGCHLD() does not actually
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1328 deselect the process (that doesn't occur until the next time
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1329 we're waiting for an event, when status_notify() is called). */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1330 return pid;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1331
853
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 826
diff changeset
1332 io_failure:
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1333 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1334 int save_errno = errno;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1335 close_descriptor_pair (forkin, forkout);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1336 close_descriptor_pair (inchannel, outchannel);
853
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 826
diff changeset
1337 close_descriptor_pair (forkerr, errchannel);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1338 errno = save_errno;
563
183866b06e0b [xemacs-hg @ 2001-05-24 07:50:48 by ben]
ben
parents: 558
diff changeset
1339 report_process_error ("Opening pty or pipe", Qunbound);
801
2b676dc88c66 [xemacs-hg @ 2002-04-01 03:58:02 by ben]
ben
parents: 800
diff changeset
1340 RETURN_NOT_REACHED (0)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1341 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1342 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1343
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1344 /* Return nonzero if this process is a ToolTalk connection. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1345
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1346 static int
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
1347 unix_tooltalk_connection_p (Lisp_Process *p)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1348 {
853
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 826
diff changeset
1349 return UNIX_DATA (p)->connected_via_filedesc_p;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1350 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1351
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1352 /* This is called to set process' virtual terminal size */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1353
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1354 static int
853
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 826
diff changeset
1355 unix_set_window_size (Lisp_Process *p, int cols, int rows)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1356 {
853
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 826
diff changeset
1357 return set_window_size (UNIX_DATA (p)->infd, cols, rows);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1358 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1359
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1360 /*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1361 * This method is called to update status fields of the process
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1362 * structure. If the process has not existed, this method is
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1363 * expected to do nothing.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1364 *
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1365 * The method is called only for real child processes.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1366 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1367
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1368 #ifdef HAVE_WAITPID
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1369 static void
853
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 826
diff changeset
1370 unix_update_status_if_terminated (Lisp_Process *p)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1371 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1372 int w;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1373 #ifdef SIGCHLD
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1374 EMACS_BLOCK_SIGNAL (SIGCHLD);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1375 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1376 if (waitpid (XINT (p->pid), &w, WNOHANG) == XINT (p->pid))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1377 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1378 p->tick++;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1379 update_status_from_wait_code (p, &w);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1380 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1381 #ifdef SIGCHLD
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1382 EMACS_UNBLOCK_SIGNAL (SIGCHLD);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1383 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1384 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1385 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1386
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1387 /*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1388 * Update status of all exited processes. Called when SIGCLD has signaled.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1389 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1390
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1391 #ifdef SIGCHLD
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1392 static void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1393 unix_reap_exited_processes (void)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1394 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1395 int i;
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
1396 Lisp_Process *p;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1397
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1398 #ifndef OBNOXIOUS_SYSV_SIGCLD_BEHAVIOR
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1399 record_exited_processes (1);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1400 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1401
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1402 if (exited_processes_index <= 0)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1403 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1404 return;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1405 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1406
853
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 826
diff changeset
1407 #ifdef EMACS_BLOCK_SIGNAL
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1408 EMACS_BLOCK_SIGNAL (SIGCHLD);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1409 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1410 for (i = 0; i < exited_processes_index; i++)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1411 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1412 int pid = exited_processes[i];
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1413 int w = exited_processes_status[i];
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1414
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1415 /* Find the process that signaled us, and record its status. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1416
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1417 p = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1418 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1419 Lisp_Object tail;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1420 LIST_LOOP (tail, Vprocess_list)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1421 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1422 Lisp_Object proc = XCAR (tail);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1423 p = XPROCESS (proc);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1424 if (INTP (p->pid) && XINT (p->pid) == pid)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1425 break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1426 p = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1427 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1428 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1429
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1430 if (p)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1431 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1432 /* Change the status of the process that was found. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1433 p->tick++;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1434 process_tick++;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1435 update_status_from_wait_code (p, &w);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1436
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1437 /* If process has terminated, stop waiting for its output. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1438 if (WIFSIGNALED (w) || WIFEXITED (w))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1439 {
853
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 826
diff changeset
1440 if (!NILP (p->pipe_instream))
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1441 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1442 /* We can't just call event_stream->unselect_process_cb (p)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1443 here, because that calls XtRemoveInput, which is not
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1444 necessarily reentrant, so we can't call this at interrupt
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1445 level.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1446 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1447 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1448 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1449 }
853
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 826
diff changeset
1450 #ifdef NEED_SYNC_PROCESS_CODE
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1451 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1452 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1453 /* There was no asynchronous process found for that id. Check
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1454 if we have a synchronous process. Only set sync process status
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1455 if there is one, so we work OK with the waitpid() call in
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1456 wait_for_termination(). */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1457 if (synch_process_alive != 0)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1458 { /* Set the global sync process status variables. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1459 synch_process_alive = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1460
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1461 /* Report the status of the synchronous process. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1462 if (WIFEXITED (w))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1463 synch_process_retcode = WEXITSTATUS (w);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1464 else if (WIFSIGNALED (w))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1465 synch_process_death = signal_name (WTERMSIG (w));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1466 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1467 }
853
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 826
diff changeset
1468 #endif /* NEED_SYNC_PROCESS_CODE */
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1469 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1470
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1471 exited_processes_index = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1472
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1473 EMACS_UNBLOCK_SIGNAL (SIGCHLD);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1474 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1475 #endif /* SIGCHLD */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1476
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1477 /*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1478 * Stuff the entire contents of LSTREAM to the process output pipe
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1479 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1480
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1481 static JMP_BUF send_process_frame;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1482
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1483 static SIGTYPE
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1484 send_process_trap (int signum)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1485 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1486 EMACS_REESTABLISH_SIGNAL (signum, send_process_trap);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1487 EMACS_UNBLOCK_SIGNAL (signum);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1488 LONGJMP (send_process_frame, 1);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1489 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1490
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1491 static void
853
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 826
diff changeset
1492 unix_send_process (Lisp_Object proc, struct lstream *lstream)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1493 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1494 /* Use volatile to protect variables from being clobbered by longjmp. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1495 SIGTYPE (*volatile old_sigpipe) (int) = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1496 volatile Lisp_Object vol_proc = proc;
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
1497 Lisp_Process *volatile p = XPROCESS (proc);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1498
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1499 /* #### JV: layering violation?
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1500
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1501 This function knows too much about the relation between the encoding
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1502 stream (DATA_OUTSTREAM) and the actual output stream p->output_stream.
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1503
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1504 If encoding streams properly forwarded all calls, we could simply
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1505 use DATA_OUTSTREAM everywhere. */
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1506
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1507 if (!SETJMP (send_process_frame))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1508 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1509 /* use a reasonable-sized buffer (somewhere around the size of the
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1510 stream buffer) so as to avoid inundating the stream with blocked
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1511 data. */
665
fdefd0186b75 [xemacs-hg @ 2001-09-20 06:28:42 by ben]
ben
parents: 647
diff changeset
1512 Intbyte chunkbuf[512];
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1513 Bytecount chunklen;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1514
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1515 while (1)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1516 {
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
1517 int writeret;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1518
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1519 chunklen = Lstream_read (lstream, chunkbuf, 512);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1520 if (chunklen <= 0)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1521 break; /* perhaps should abort() if < 0?
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1522 This should never happen. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1523 old_sigpipe =
613
023b83f4e54b [xemacs-hg @ 2001-06-10 10:42:16 by ben]
ben
parents: 609
diff changeset
1524 (SIGTYPE (*) (int)) EMACS_SIGNAL (SIGPIPE, send_process_trap);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1525 /* Lstream_write() will never successfully write less than
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1526 the amount sent in. In the worst case, it just buffers
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1527 the unwritten data. */
800
a5954632b187 [xemacs-hg @ 2002-03-31 08:27:14 by ben]
ben
parents: 793
diff changeset
1528 writeret = Lstream_write (XLSTREAM (DATA_OUTSTREAM (p)), chunkbuf,
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1529 chunklen);
563
183866b06e0b [xemacs-hg @ 2001-05-24 07:50:48 by ben]
ben
parents: 558
diff changeset
1530 {
183866b06e0b [xemacs-hg @ 2001-05-24 07:50:48 by ben]
ben
parents: 558
diff changeset
1531 int save_errno = errno;
613
023b83f4e54b [xemacs-hg @ 2001-06-10 10:42:16 by ben]
ben
parents: 609
diff changeset
1532 EMACS_SIGNAL (SIGPIPE, old_sigpipe);
563
183866b06e0b [xemacs-hg @ 2001-05-24 07:50:48 by ben]
ben
parents: 558
diff changeset
1533 errno = save_errno;
183866b06e0b [xemacs-hg @ 2001-05-24 07:50:48 by ben]
ben
parents: 558
diff changeset
1534 if (writeret < 0)
183866b06e0b [xemacs-hg @ 2001-05-24 07:50:48 by ben]
ben
parents: 558
diff changeset
1535 /* This is a real error. Blocking errors are handled
183866b06e0b [xemacs-hg @ 2001-05-24 07:50:48 by ben]
ben
parents: 558
diff changeset
1536 specially inside of the filedesc stream. */
183866b06e0b [xemacs-hg @ 2001-05-24 07:50:48 by ben]
ben
parents: 558
diff changeset
1537 report_process_error ("writing to process", proc);
183866b06e0b [xemacs-hg @ 2001-05-24 07:50:48 by ben]
ben
parents: 558
diff changeset
1538 }
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1539 while (Lstream_was_blocked_p (XLSTREAM (p->pipe_outstream)))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1540 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1541 /* Buffer is full. Wait, accepting input;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1542 that may allow the program
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1543 to finish doing output and read more. */
800
a5954632b187 [xemacs-hg @ 2002-03-31 08:27:14 by ben]
ben
parents: 793
diff changeset
1544 Faccept_process_output (Qnil, volatile_make_int (1), Qnil);
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1545 /* It could have *really* finished, deleting the process */
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1546 if (NILP(p->pipe_outstream))
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1547 return;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1548 old_sigpipe =
613
023b83f4e54b [xemacs-hg @ 2001-06-10 10:42:16 by ben]
ben
parents: 609
diff changeset
1549 (SIGTYPE (*) (int)) EMACS_SIGNAL (SIGPIPE, send_process_trap);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1550 Lstream_flush (XLSTREAM (p->pipe_outstream));
613
023b83f4e54b [xemacs-hg @ 2001-06-10 10:42:16 by ben]
ben
parents: 609
diff changeset
1551 EMACS_SIGNAL (SIGPIPE, old_sigpipe);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1552 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1553 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1554 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1555 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1556 { /* We got here from a longjmp() from the SIGPIPE handler */
613
023b83f4e54b [xemacs-hg @ 2001-06-10 10:42:16 by ben]
ben
parents: 609
diff changeset
1557 EMACS_SIGNAL (SIGPIPE, old_sigpipe);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1558 /* Close the file lstream so we don't attempt to write to it further */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1559 /* #### There is controversy over whether this might cause fd leakage */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1560 /* my tests say no. -slb */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1561 XLSTREAM (p->pipe_outstream)->flags &= ~LSTREAM_FL_IS_OPEN;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1562 p->status_symbol = Qexit;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1563 p->exit_code = 256; /* #### SIGPIPE ??? */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1564 p->core_dumped = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1565 p->tick++;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1566 process_tick++;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1567 deactivate_process (*((Lisp_Object *) (&vol_proc)));
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1568 invalid_operation ("SIGPIPE raised on process; closed it", p->name);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1569 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1570
613
023b83f4e54b [xemacs-hg @ 2001-06-10 10:42:16 by ben]
ben
parents: 609
diff changeset
1571 old_sigpipe = (SIGTYPE (*) (int)) EMACS_SIGNAL (SIGPIPE, send_process_trap);
800
a5954632b187 [xemacs-hg @ 2002-03-31 08:27:14 by ben]
ben
parents: 793
diff changeset
1572 Lstream_flush (XLSTREAM (DATA_OUTSTREAM (p)));
613
023b83f4e54b [xemacs-hg @ 2001-06-10 10:42:16 by ben]
ben
parents: 609
diff changeset
1573 EMACS_SIGNAL (SIGPIPE, old_sigpipe);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1574 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1575
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1576 /*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1577 * Send EOF to the process. The default implementation simply
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1578 * closes the output stream. The method must return 0 to call
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1579 * the default implementation, or 1 if it has taken all care about
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1580 * sending EOF to the process.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1581 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1582
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1583 static int
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1584 unix_process_send_eof (Lisp_Object proc)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1585 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1586 if (!UNIX_DATA (XPROCESS (proc))->pty_flag)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1587 return 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1588
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1589 /* #### get_eof_char simply doesn't return the correct character
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1590 here. Maybe it is needed to determine the right eof
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1591 character in init_process_io_handles but here it simply screws
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1592 things up. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1593 #if 0
665
fdefd0186b75 [xemacs-hg @ 2001-09-20 06:28:42 by ben]
ben
parents: 647
diff changeset
1594 Intbyte eof_char = get_eof_char (XPROCESS (proc));
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1595 send_process (proc, Qnil, &eof_char, 0, 1);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1596 #else
665
fdefd0186b75 [xemacs-hg @ 2001-09-20 06:28:42 by ben]
ben
parents: 647
diff changeset
1597 send_process (proc, Qnil, (const Intbyte *) "\004", 0, 1);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1598 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1599 return 1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1600 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1601
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1602 /*
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1603 * Called before the process is deactivated. The process object
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1604 * is not immediately finalized, just undergoes a transition to
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1605 * inactive state.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1606 *
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1607 * The return value is a unique stream ID, as returned by
853
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 826
diff changeset
1608 * event_stream_delete_io_streams
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1609 *
853
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 826
diff changeset
1610 * In the lack of this method, only event_stream_delete_io_streams
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1611 * is called on both I/O streams of the process.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1612 *
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1613 * The UNIX version guards this by ignoring possible SIGPIPE.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1614 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1615
853
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 826
diff changeset
1616 static void
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 826
diff changeset
1617 unix_deactivate_process (Lisp_Process *p,
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 826
diff changeset
1618 USID *in_usid,
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 826
diff changeset
1619 USID *err_usid)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1620 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1621 SIGTYPE (*old_sigpipe) (int) = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1622
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1623 if (UNIX_DATA(p)->infd >= 0)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1624 flush_pending_output (UNIX_DATA(p)->infd);
853
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 826
diff changeset
1625 if (UNIX_DATA(p)->errfd >= 0)
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 826
diff changeset
1626 flush_pending_output (UNIX_DATA(p)->errfd);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1627
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1628 /* closing the outstream could result in SIGPIPE, so ignore it. */
613
023b83f4e54b [xemacs-hg @ 2001-06-10 10:42:16 by ben]
ben
parents: 609
diff changeset
1629 old_sigpipe = (SIGTYPE (*) (int)) EMACS_SIGNAL (SIGPIPE, SIG_IGN);
853
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 826
diff changeset
1630 event_stream_delete_io_streams (p->pipe_instream, p->pipe_outstream,
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 826
diff changeset
1631 p->pipe_errstream, in_usid, err_usid);
613
023b83f4e54b [xemacs-hg @ 2001-06-10 10:42:16 by ben]
ben
parents: 609
diff changeset
1632 EMACS_SIGNAL (SIGPIPE, old_sigpipe);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1633
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1634 UNIX_DATA(p)->infd = -1;
853
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 826
diff changeset
1635 UNIX_DATA(p)->errfd = -1;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1636 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1637
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1638 /* If the subtty field of the process data is not filled in, do so now. */
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1639 static void
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1640 try_to_initialize_subtty (struct unix_process_data *upd)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1641 {
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1642 if (upd->pty_flag
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
1643 && (upd->subtty == -1 || ! isatty (upd->subtty))
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1644 && STRINGP (upd->tty_name))
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
1645 upd->subtty = qxe_open (XSTRING_DATA (upd->tty_name), O_RDWR, 0);
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1646 }
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1647
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1648 /* Send signal number SIGNO to PROCESS.
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1649 CURRENT_GROUP means send to the process group that currently owns
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1650 the terminal being used to communicate with PROCESS.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1651 This is used for various commands in shell mode.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1652 If NOMSG is zero, insert signal-announcements into process's buffers
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1653 right away.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1654
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1655 If we can, we try to signal PROCESS by sending control characters
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1656 down the pty. This allows us to signal inferiors who have changed
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1657 their uid, for which killpg would return an EPERM error,
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1658 or processes running on other machines via remote login.
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1659
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1660 The method signals an error if the given SIGNO is not valid. */
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1661
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1662 static void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1663 unix_kill_child_process (Lisp_Object proc, int signo,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1664 int current_group, int nomsg)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1665 {
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1666 pid_t pgid = -1;
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
1667 Lisp_Process *p = XPROCESS (proc);
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1668 struct unix_process_data *d = UNIX_DATA (p);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1669
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1670 switch (signo)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1671 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1672 #ifdef SIGCONT
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1673 case SIGCONT:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1674 p->status_symbol = Qrun;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1675 p->exit_code = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1676 p->tick++;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1677 process_tick++;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1678 if (!nomsg)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1679 status_notify ();
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1680 break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1681 #endif /* ! defined (SIGCONT) */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1682 case SIGINT:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1683 case SIGQUIT:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1684 case SIGKILL:
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1685 flush_pending_output (d->infd);
853
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 826
diff changeset
1686 flush_pending_output (d->errfd);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1687 break;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1688 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1689
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1690 if (! d->pty_flag)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1691 current_group = 0;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1692
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1693 /* If current_group is true, we want to send a signal to the
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1694 foreground process group of the terminal our child process is
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1695 running on. You would think that would be easy.
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1696
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1697 The BSD people invented the TIOCPGRP ioctl to get the foreground
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1698 process group of a tty. That, combined with killpg, gives us
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1699 what we want.
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1700
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1701 However, the POSIX standards people, in their infinite wisdom,
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1702 have seen fit to only allow this for processes which have the
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1703 terminal as controlling terminal, which doesn't apply to us.
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1704
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1705 Sooo..., we have to do something non-standard. The ioctls
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1706 TIOCSIGNAL, TIOCSIG, and TIOCSIGSEND send the signal directly on
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1707 many systems. POSIX tcgetpgrp(), since it is *documented* as not
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1708 doing what we want, is actually less likely to work than the BSD
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1709 ioctl TIOCGPGRP it is supposed to obsolete. Sometimes we have to
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1710 use TIOCGPGRP on the master end, sometimes the slave end
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1711 (probably an AIX bug). So we better get a fd for the slave if we
444
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
1712 haven't got it yet.
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
1713
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
1714 Anal operating systems like SGI Irix and Compaq Tru64 adhere
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
1715 strictly to the letter of the law, so our hack doesn't work.
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
1716 The following fragment from an Irix header file is suggestive:
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
1717
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
1718 #ifdef __notdef__
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
1719 // this is not currently supported
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
1720 #define TIOCSIGNAL (tIOC|31) // pty: send signal to slave
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
1721 #endif
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
1722
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
1723 On those systems where none of our tricks work, we just fall back
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
1724 to the non-current_group behavior and kill the process group of
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
1725 the child.
576fb035e263 Import from CVS: tag r21-2-37
cvs
parents: 442
diff changeset
1726 */
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1727 if (current_group)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1728 {
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1729 try_to_initialize_subtty (d);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1730
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1731 #ifdef SIGNALS_VIA_CHARACTERS
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1732 /* If possible, send signals to the entire pgrp
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1733 by sending an input character to it. */
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1734 {
853
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 826
diff changeset
1735 Intbyte sigchar = process_signal_char (d->subtty, signo);
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1736 if (sigchar)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1737 {
853
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 826
diff changeset
1738 send_process (proc, Qnil, &sigchar, 0, 1);
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1739 return;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1740 }
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1741 }
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1742 #endif /* SIGNALS_VIA_CHARACTERS */
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1743
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1744 #ifdef TIOCGPGRP
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1745 if (pgid == -1)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1746 ioctl (d->infd, TIOCGPGRP, &pgid); /* BSD */
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1747 if (pgid == -1 && d->subtty != -1)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1748 ioctl (d->subtty, TIOCGPGRP, &pgid); /* Only this works on AIX! */
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1749 #endif /* TIOCGPGRP */
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1750
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1751 if (pgid == -1)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1752 {
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1753 /* Many systems provide an ioctl to send a signal directly */
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1754 #ifdef TIOCSIGNAL /* Solaris, HP-UX */
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1755 if (ioctl (d->infd, TIOCSIGNAL, signo) != -1)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1756 return;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1757 #endif /* TIOCSIGNAL */
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1758
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1759 #ifdef TIOCSIG /* BSD */
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1760 if (ioctl (d->infd, TIOCSIG, signo) != -1)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1761 return;
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1762 #endif /* TIOCSIG */
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1763 }
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1764 } /* current_group */
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1765
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1766 if (pgid == -1)
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1767 /* Either current_group is 0, or we failed to get the foreground
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1768 process group using the trickery above. So we fall back to
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1769 sending the signal to the process group of our child process.
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1770 Since this is often a shell that ignores signals like SIGINT,
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1771 the shell's subprocess is killed, which is the desired effect.
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1772 The process group of p->pid is always p->pid, since it was
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1773 created as a process group leader. */
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1774 pgid = XINT (p->pid);
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1775
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1776 /* Finally send the signal. */
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1777 if (EMACS_KILLPG (pgid, signo) == -1)
458
c33ae14dd6d0 Import from CVS: tag r21-2-44
cvs
parents: 444
diff changeset
1778 {
c33ae14dd6d0 Import from CVS: tag r21-2-44
cvs
parents: 444
diff changeset
1779 /* It's not an error if our victim is already dead.
462
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents: 458
diff changeset
1780 And we can't rely on the result of killing a zombie, since
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents: 458
diff changeset
1781 XPG 4.2 requires that killing a zombie fail with ESRCH,
0784d089fdc9 Import from CVS: tag r21-2-46
cvs
parents: 458
diff changeset
1782 while FIPS 151-2 requires that it succeeds! */
458
c33ae14dd6d0 Import from CVS: tag r21-2-44
cvs
parents: 444
diff changeset
1783 #ifdef ESRCH
c33ae14dd6d0 Import from CVS: tag r21-2-44
cvs
parents: 444
diff changeset
1784 if (errno != ESRCH)
c33ae14dd6d0 Import from CVS: tag r21-2-44
cvs
parents: 444
diff changeset
1785 #endif
563
183866b06e0b [xemacs-hg @ 2001-05-24 07:50:48 by ben]
ben
parents: 558
diff changeset
1786 signal_ferror_with_frob (Qio_error, lisp_strerror (errno),
183866b06e0b [xemacs-hg @ 2001-05-24 07:50:48 by ben]
ben
parents: 558
diff changeset
1787 "kill (pgid=%ld, signo=%ld) failed",
183866b06e0b [xemacs-hg @ 2001-05-24 07:50:48 by ben]
ben
parents: 558
diff changeset
1788 (long) pgid, (long) signo);
458
c33ae14dd6d0 Import from CVS: tag r21-2-44
cvs
parents: 444
diff changeset
1789 }
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1790 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1791
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1792 /* Send signal SIGCODE to any process in the system given its PID.
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1793 Return zero if successful, a negative number upon failure. */
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1794
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1795 static int
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1796 unix_kill_process_by_pid (int pid, int sigcode)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1797 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1798 return kill (pid, sigcode);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1799 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1800
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1801 /* Return TTY name used to communicate with subprocess. */
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1802
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1803 static Lisp_Object
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
1804 unix_get_tty_name (Lisp_Process *p)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1805 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1806 return UNIX_DATA (p)->tty_name;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1807 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1808
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1809 /* Canonicalize host name HOST, and return its canonical form.
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1810 The default implementation just takes HOST for a canonical name. */
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1811
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1812 #ifdef HAVE_SOCKETS
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1813 static Lisp_Object
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1814 unix_canonicalize_host_name (Lisp_Object host)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1815 {
502
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 475
diff changeset
1816 #ifdef USE_GETADDRINFO
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
1817 struct addrinfo hints, *res;
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
1818 static char addrbuf[NI_MAXHOST];
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
1819 Lisp_Object canonname;
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
1820 int retval;
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
1821 char *ext_host;
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
1822
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
1823 xzero (hints);
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
1824 hints.ai_flags = AI_CANONNAME;
724
76d5a3dd827a [xemacs-hg @ 2002-01-05 07:33:11 by stephent]
stephent
parents: 671
diff changeset
1825 #ifdef IPV6_CANONICALIZE
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
1826 hints.ai_family = AF_UNSPEC;
724
76d5a3dd827a [xemacs-hg @ 2002-01-05 07:33:11 by stephent]
stephent
parents: 671
diff changeset
1827 #else
76d5a3dd827a [xemacs-hg @ 2002-01-05 07:33:11 by stephent]
stephent
parents: 671
diff changeset
1828 hints.ai_family = PF_INET;
76d5a3dd827a [xemacs-hg @ 2002-01-05 07:33:11 by stephent]
stephent
parents: 671
diff changeset
1829 #endif
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
1830 hints.ai_socktype = SOCK_STREAM;
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
1831 hints.ai_protocol = 0;
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1832 LISP_STRING_TO_EXTERNAL (host, ext_host, Qnative);
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
1833 retval = getaddrinfo (ext_host, NULL, &hints, &res);
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
1834 if (retval != 0)
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
1835 {
665
fdefd0186b75 [xemacs-hg @ 2001-09-20 06:28:42 by ben]
ben
parents: 647
diff changeset
1836 CIntbyte *gai_error;
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
1837
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
1838 EXTERNAL_TO_C_STRING (gai_strerror (retval), gai_error,
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
1839 Qstrerror_encoding);
563
183866b06e0b [xemacs-hg @ 2001-05-24 07:50:48 by ben]
ben
parents: 558
diff changeset
1840 maybe_signal_error (Qio_error, gai_error, host,
793
e38acbeb1cae [xemacs-hg @ 2002-03-29 04:46:17 by ben]
ben
parents: 771
diff changeset
1841 Qprocess, ERROR_ME_DEBUG_WARN);
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
1842 canonname = host;
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
1843 }
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
1844 else
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
1845 {
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
1846 int gni = getnameinfo (res->ai_addr, res->ai_addrlen,
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
1847 addrbuf, sizeof(addrbuf),
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
1848 NULL, 0, NI_NUMERICHOST);
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
1849 canonname = gni ? host : build_ext_string (addrbuf, Qnative);
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
1850
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
1851 freeaddrinfo (res);
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
1852 }
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
1853
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
1854 return canonname;
502
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 475
diff changeset
1855 #else /* ! USE_GETADDRINFO */
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1856 struct sockaddr_in address;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1857
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1858 if (!get_internet_address (host, &address, ERROR_ME_NOT))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1859 return host;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1860
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1861 if (address.sin_family == AF_INET)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1862 return build_string (inet_ntoa (address.sin_addr));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1863 else
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1864 /* #### any clue what to do here? */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1865 return host;
502
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 475
diff changeset
1866 #endif /* ! USE_GETADDRINFO */
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1867 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1868
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1869 /* Open a TCP network connection to a given HOST/SERVICE.
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1870 Treated exactly like a normal process when reading and writing.
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1871 Only differences are in status display and process deletion.
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1872 A network connection has no PID; you cannot signal it. All you can
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1873 do is deactivate and close it via delete-process. */
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1874
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1875 static void
502
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 475
diff changeset
1876 unix_open_network_stream (Lisp_Object name, Lisp_Object host,
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 475
diff changeset
1877 Lisp_Object service, Lisp_Object protocol,
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 475
diff changeset
1878 void **vinfd, void **voutfd)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1879 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1880 int inch;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1881 int outch;
502
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 475
diff changeset
1882 volatile int s = -1;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1883 volatile int port;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1884 volatile int retry = 0;
502
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 475
diff changeset
1885 volatile int xerrno = 0;
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 475
diff changeset
1886 volatile int failed_connect = 0;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1887 int retval;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1888
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1889 CHECK_STRING (host);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1890
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1891 if (!EQ (protocol, Qtcp) && !EQ (protocol, Qudp))
563
183866b06e0b [xemacs-hg @ 2001-05-24 07:50:48 by ben]
ben
parents: 558
diff changeset
1892 invalid_constant ("Unsupported protocol", protocol);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1893
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
1894 {
502
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 475
diff changeset
1895 #ifdef USE_GETADDRINFO
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 475
diff changeset
1896
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
1897 struct addrinfo hints, *res;
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
1898 struct addrinfo * volatile lres;
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
1899 Extbyte *portstring;
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
1900 Extbyte *ext_host;
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
1901 Extbyte portbuf[128];
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
1902 /*
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
1903 * Caution: service can either be a string or int.
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
1904 * Convert to a C string for later use by getaddrinfo.
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
1905 */
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
1906 if (INTP (service))
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
1907 {
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
1908 snprintf (portbuf, sizeof (portbuf), "%ld", (long) XINT (service));
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
1909 portstring = portbuf;
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
1910 port = htons ((unsigned short) XINT (service));
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
1911 }
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
1912 else
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
1913 {
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
1914 CHECK_STRING (service);
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
1915 LISP_STRING_TO_EXTERNAL (service, portstring,
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
1916 Qunix_service_name_encoding);
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
1917 port = 0;
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
1918 }
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
1919
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
1920 xzero (hints);
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
1921 hints.ai_flags = 0;
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
1922 hints.ai_family = AF_UNSPEC;
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
1923 if (EQ (protocol, Qtcp))
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
1924 hints.ai_socktype = SOCK_STREAM;
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
1925 else /* EQ (protocol, Qudp) */
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
1926 hints.ai_socktype = SOCK_DGRAM;
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
1927 hints.ai_protocol = 0;
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
1928 LISP_STRING_TO_EXTERNAL (host, ext_host, Qunix_host_name_encoding);
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
1929 retval = getaddrinfo (ext_host, portstring, &hints, &res);
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
1930 if (retval != 0)
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
1931 {
665
fdefd0186b75 [xemacs-hg @ 2001-09-20 06:28:42 by ben]
ben
parents: 647
diff changeset
1932 CIntbyte *gai_error;
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
1933
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
1934 EXTERNAL_TO_C_STRING (gai_strerror (retval), gai_error,
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
1935 Qstrerror_encoding);
563
183866b06e0b [xemacs-hg @ 2001-05-24 07:50:48 by ben]
ben
parents: 558
diff changeset
1936 signal_error (Qio_error, gai_error, list2 (host, service));
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
1937 }
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
1938
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
1939 /* address loop */
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
1940 for (lres = res; lres ; lres = lres->ai_next)
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
1941
502
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 475
diff changeset
1942 #else /* !USE_GETADDRINFO */
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
1943
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
1944 struct sockaddr_in address;
502
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 475
diff changeset
1945 volatile int i;
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
1946
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
1947 if (INTP (service))
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
1948 port = htons ((unsigned short) XINT (service));
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
1949 else
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
1950 {
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
1951 struct servent *svc_info;
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
1952 Extbyte *servext;
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
1953
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
1954 CHECK_STRING (service);
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
1955 LISP_STRING_TO_EXTERNAL (service, servext,
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
1956 Qunix_service_name_encoding);
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
1957
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
1958 if (EQ (protocol, Qtcp))
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
1959 svc_info = getservbyname (servext, "tcp");
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
1960 else /* EQ (protocol, Qudp) */
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
1961 svc_info = getservbyname (servext, "udp");
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1962
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
1963 if (svc_info == 0)
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
1964 invalid_argument ("Unknown service", service);
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
1965 port = svc_info->s_port;
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
1966 }
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1967
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
1968 get_internet_address (host, &address, ERROR_ME);
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
1969 address.sin_port = port;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
1970
502
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 475
diff changeset
1971 /* use a trivial address loop */
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 475
diff changeset
1972 for (i = 0; i < 1; i++)
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 475
diff changeset
1973
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 475
diff changeset
1974 #endif /* !USE_GETADDRINFO */
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 475
diff changeset
1975 {
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 475
diff changeset
1976 #ifdef USE_GETADDRINFO
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 475
diff changeset
1977 int family = lres->ai_family;
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 475
diff changeset
1978 #else
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 475
diff changeset
1979 int family = address.sin_family;
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 475
diff changeset
1980 #endif
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 475
diff changeset
1981
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 475
diff changeset
1982 if (EQ (protocol, Qtcp))
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 475
diff changeset
1983 s = socket (family, SOCK_STREAM, 0);
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 475
diff changeset
1984 else /* EQ (protocol, Qudp) */
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 475
diff changeset
1985 s = socket (family, SOCK_DGRAM, 0);
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 475
diff changeset
1986
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 475
diff changeset
1987 if (s < 0)
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 475
diff changeset
1988 {
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 475
diff changeset
1989 xerrno = errno;
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 475
diff changeset
1990 failed_connect = 0;
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 475
diff changeset
1991 continue;
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 475
diff changeset
1992 }
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 475
diff changeset
1993
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 475
diff changeset
1994 #ifdef CONNECT_NEEDS_SLOWED_INTERRUPTS
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 475
diff changeset
1995 /* Slow down polling. Some kernels have a bug which causes retrying
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 475
diff changeset
1996 connect to fail after a connect. (Note that the entire purpose
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 475
diff changeset
1997 for this code is a very old comment concerning an Ultrix bug that
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 475
diff changeset
1998 requires this code. We used to do this ALWAYS despite this!
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 475
diff changeset
1999 This messes up C-g out of connect() in a big way. So instead we
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 475
diff changeset
2000 just assume that anyone who sees such a kernel bug will define
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 475
diff changeset
2001 this constant, which for now is only defined under Ultrix.) --ben
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 475
diff changeset
2002 */
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 475
diff changeset
2003 slow_down_interrupts ();
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 475
diff changeset
2004 #endif
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 475
diff changeset
2005
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 475
diff changeset
2006 loop:
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 475
diff changeset
2007
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 475
diff changeset
2008 /* A system call interrupted with a SIGALRM or SIGIO comes back
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 475
diff changeset
2009 here, with can_break_system_calls reset to 0. */
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 475
diff changeset
2010 SETJMP (break_system_call_jump);
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 475
diff changeset
2011 if (QUITP)
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 475
diff changeset
2012 {
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 475
diff changeset
2013 #ifdef CONNECT_NEEDS_SLOWED_INTERRUPTS
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 475
diff changeset
2014 speed_up_interrupts ();
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 475
diff changeset
2015 #endif
853
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 826
diff changeset
2016 QUIT;
502
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 475
diff changeset
2017 /* In case something really weird happens ... */
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 475
diff changeset
2018 #ifdef CONNECT_NEEDS_SLOWED_INTERRUPTS
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 475
diff changeset
2019 slow_down_interrupts ();
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 475
diff changeset
2020 #endif
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 475
diff changeset
2021 }
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 475
diff changeset
2022
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 475
diff changeset
2023 /* Break out of connect with a signal (it isn't otherwise possible).
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 475
diff changeset
2024 Thus you don't get screwed with a hung network. */
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 475
diff changeset
2025 can_break_system_calls = 1;
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 475
diff changeset
2026
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 475
diff changeset
2027 #ifdef USE_GETADDRINFO
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 475
diff changeset
2028 retval = connect (s, lres->ai_addr, lres->ai_addrlen);
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 475
diff changeset
2029 #else
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 475
diff changeset
2030 retval = connect (s, (struct sockaddr *) &address, sizeof (address));
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 475
diff changeset
2031 #endif
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 475
diff changeset
2032 can_break_system_calls = 0;
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 475
diff changeset
2033 if (retval == -1 && errno != EISCONN)
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 475
diff changeset
2034 {
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 475
diff changeset
2035 xerrno = errno;
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 475
diff changeset
2036 if (errno == EINTR)
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 475
diff changeset
2037 goto loop;
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 475
diff changeset
2038 if (errno == EADDRINUSE && retry < 20)
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 475
diff changeset
2039 {
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 475
diff changeset
2040 #ifdef __FreeBSD__
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 475
diff changeset
2041 /* A delay here is needed on some FreeBSD systems,
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 475
diff changeset
2042 and it is harmless, since this retrying takes
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 475
diff changeset
2043 time anyway and should be infrequent.
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 475
diff changeset
2044 `sleep-for' allowed for quitting this loop with
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 475
diff changeset
2045 interrupts slowed down so it can't be used
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 475
diff changeset
2046 here. Async timers should already be disabled
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 475
diff changeset
2047 at this point so we can use `sleep'.
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 475
diff changeset
2048
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 475
diff changeset
2049 (Again, this was not conditionalized on FreeBSD.
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 475
diff changeset
2050 Let's not mess up systems without the problem. --ben)
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 475
diff changeset
2051 */
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 475
diff changeset
2052 sleep (1);
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 475
diff changeset
2053 #endif
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 475
diff changeset
2054 retry++;
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 475
diff changeset
2055 goto loop;
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 475
diff changeset
2056 }
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 475
diff changeset
2057
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 475
diff changeset
2058 failed_connect = 1;
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2059 retry_close (s);
502
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 475
diff changeset
2060 s = -1;
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 475
diff changeset
2061
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 475
diff changeset
2062 #ifdef CONNECT_NEEDS_SLOWED_INTERRUPTS
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 475
diff changeset
2063 speed_up_interrupts ();
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 475
diff changeset
2064 #endif
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 475
diff changeset
2065
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 475
diff changeset
2066 continue;
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 475
diff changeset
2067 }
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 475
diff changeset
2068
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 475
diff changeset
2069 #ifdef USE_GETADDRINFO
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 475
diff changeset
2070 if (port == 0)
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 475
diff changeset
2071 {
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 475
diff changeset
2072 int gni;
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 475
diff changeset
2073 char servbuf[NI_MAXSERV];
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 475
diff changeset
2074
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 475
diff changeset
2075 if (EQ (protocol, Qtcp))
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 475
diff changeset
2076 gni = getnameinfo (lres->ai_addr, lres->ai_addrlen,
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 475
diff changeset
2077 NULL, 0, servbuf, sizeof(servbuf),
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 475
diff changeset
2078 NI_NUMERICSERV);
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 475
diff changeset
2079 else /* EQ (protocol, Qudp) */
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 475
diff changeset
2080 gni = getnameinfo (lres->ai_addr, lres->ai_addrlen,
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 475
diff changeset
2081 NULL, 0, servbuf, sizeof(servbuf),
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 475
diff changeset
2082 NI_NUMERICSERV | NI_DGRAM);
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 475
diff changeset
2083
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 475
diff changeset
2084 if (gni == 0)
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 475
diff changeset
2085 port = strtol (servbuf, NULL, 10);
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 475
diff changeset
2086 }
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 475
diff changeset
2087
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 475
diff changeset
2088 break;
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 475
diff changeset
2089 #endif /* USE_GETADDRINFO */
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 475
diff changeset
2090 } /* address loop */
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 475
diff changeset
2091
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 475
diff changeset
2092 #ifdef CONNECT_NEEDS_SLOWED_INTERRUPTS
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 475
diff changeset
2093 speed_up_interrupts ();
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 475
diff changeset
2094 #endif
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 475
diff changeset
2095
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 475
diff changeset
2096 #ifdef USE_GETADDRINFO
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 475
diff changeset
2097 freeaddrinfo (res);
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 475
diff changeset
2098 #endif
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2099
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
2100 if (s < 0)
502
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 475
diff changeset
2101 {
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 475
diff changeset
2102 errno = xerrno;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2103
502
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 475
diff changeset
2104 if (failed_connect)
563
183866b06e0b [xemacs-hg @ 2001-05-24 07:50:48 by ben]
ben
parents: 558
diff changeset
2105 report_network_error ("connection failed", list3 (Qunbound, host,
183866b06e0b [xemacs-hg @ 2001-05-24 07:50:48 by ben]
ben
parents: 558
diff changeset
2106 name));
502
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 475
diff changeset
2107 else
563
183866b06e0b [xemacs-hg @ 2001-05-24 07:50:48 by ben]
ben
parents: 558
diff changeset
2108 report_network_error ("error creating socket", name);
440
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
2109 }
8de8e3f6228a Import from CVS: tag r21-2-28
cvs
parents: 428
diff changeset
2110 }
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2111
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2112 inch = s;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2113 outch = dup (s);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2114 if (outch < 0)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2115 {
563
183866b06e0b [xemacs-hg @ 2001-05-24 07:50:48 by ben]
ben
parents: 558
diff changeset
2116 int save_errno = errno;
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2117 retry_close (s); /* this used to be leaked; from Kyle Jones */
563
183866b06e0b [xemacs-hg @ 2001-05-24 07:50:48 by ben]
ben
parents: 558
diff changeset
2118 errno = save_errno;
183866b06e0b [xemacs-hg @ 2001-05-24 07:50:48 by ben]
ben
parents: 558
diff changeset
2119 report_network_error ("error duplicating socket", name);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2120 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2121
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2122 set_socket_nonblocking_maybe (inch, port, "tcp");
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2123
502
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 475
diff changeset
2124 *vinfd = (void *) inch;
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 475
diff changeset
2125 *voutfd = (void *) outch;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2126 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2127
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2128
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2129 #ifdef HAVE_MULTICAST
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2130
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2131 /* Didier Verna <didier@xemacs.org> Nov. 28 1997.
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2132
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2133 This function is similar to open-network-stream-internal, but provides a
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2134 mean to open an UDP multicast connection instead of a TCP one. Like in the
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2135 TCP case, the multicast connection will be seen as a sub-process,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2136
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2137 Some notes:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2138 - Normally, we should use sendto and recvfrom with non connected
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2139 sockets. The current code doesn't allow us to do this. In the future, it
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2140 would be a good idea to extend the process data structure in order to deal
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2141 properly with the different types network connections.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2142 - For the same reason, when leaving a multicast group, it is better to make
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2143 a setsockopt - IP_DROP_MEMBERSHIP before closing the descriptors.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2144 Unfortunately, this can't be done here because delete_process doesn't know
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2145 about the kind of connection we have. However, this is not such an
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2146 important issue.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2147 */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2148
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2149 static void
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2150 unix_open_multicast_group (Lisp_Object name, Lisp_Object dest,
853
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 826
diff changeset
2151 Lisp_Object port, Lisp_Object ttl, void **vinfd,
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 826
diff changeset
2152 void **voutfd)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2153 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2154 struct ip_mreq imr;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2155 struct sockaddr_in sa;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2156 struct protoent *udp;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2157 int ws, rs;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2158 int theport;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2159 unsigned char thettl;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2160 int one = 1; /* For REUSEADDR */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2161 int ret;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2162 volatile int retry = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2163
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2164 CHECK_STRING (dest);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2165
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2166 CHECK_NATNUM (port);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2167 theport = htons ((unsigned short) XINT (port));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2168
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2169 CHECK_NATNUM (ttl);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2170 thettl = (unsigned char) XINT (ttl);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2171
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2172 if ((udp = getprotobyname ("udp")) == NULL)
563
183866b06e0b [xemacs-hg @ 2001-05-24 07:50:48 by ben]
ben
parents: 558
diff changeset
2173 invalid_operation ("No info available for UDP protocol", Qunbound);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2174
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2175 /* Init the sockets. Yes, I need 2 sockets. I couldn't duplicate one. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2176 if ((rs = socket (PF_INET, SOCK_DGRAM, udp->p_proto)) < 0)
563
183866b06e0b [xemacs-hg @ 2001-05-24 07:50:48 by ben]
ben
parents: 558
diff changeset
2177 report_network_error ("error creating socket", name);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2178 if ((ws = socket (PF_INET, SOCK_DGRAM, udp->p_proto)) < 0)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2179 {
563
183866b06e0b [xemacs-hg @ 2001-05-24 07:50:48 by ben]
ben
parents: 558
diff changeset
2180 int save_errno = errno;
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2181 retry_close (rs);
563
183866b06e0b [xemacs-hg @ 2001-05-24 07:50:48 by ben]
ben
parents: 558
diff changeset
2182 errno = save_errno;
183866b06e0b [xemacs-hg @ 2001-05-24 07:50:48 by ben]
ben
parents: 558
diff changeset
2183 report_network_error ("error creating socket", name);
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2184 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2185
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2186 /* This will be used for both sockets */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2187 memset (&sa, 0, sizeof(sa));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2188 sa.sin_family = AF_INET;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2189 sa.sin_port = theport;
671
53ec80338ec1 [xemacs-hg @ 2001-10-01 12:47:10 by didierv]
didierv
parents: 665
diff changeset
2190 sa.sin_addr.s_addr = inet_addr ((char *) XSTRING_DATA (dest));
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2191
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2192 /* Socket configuration for reading ------------------------ */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2193
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2194 /* Multiple connections from the same machine. This must be done before
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2195 bind. If it fails, it shouldn't be fatal. The only consequence is that
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2196 people won't be able to connect twice from the same machine. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2197 if (setsockopt (rs, SOL_SOCKET, SO_REUSEADDR, (char *) &one, sizeof (one))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2198 < 0)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2199 warn_when_safe (Qmulticast, Qwarning, "Cannot reuse socket address");
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2200
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2201 /* bind socket name */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2202 if (bind (rs, (struct sockaddr *)&sa, sizeof(sa)))
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2203 {
563
183866b06e0b [xemacs-hg @ 2001-05-24 07:50:48 by ben]
ben
parents: 558
diff changeset
2204 int save_errno = errno;
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2205 retry_close (rs);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2206 retry_close (ws);
563
183866b06e0b [xemacs-hg @ 2001-05-24 07:50:48 by ben]
ben
parents: 558
diff changeset
2207 errno = save_errno;
183866b06e0b [xemacs-hg @ 2001-05-24 07:50:48 by ben]
ben
parents: 558
diff changeset
2208 report_network_error ("error binding socket", list3 (Qunbound, name,
183866b06e0b [xemacs-hg @ 2001-05-24 07:50:48 by ben]
ben
parents: 558
diff changeset
2209 port));
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2210 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2211
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2212 /* join multicast group */
671
53ec80338ec1 [xemacs-hg @ 2001-10-01 12:47:10 by didierv]
didierv
parents: 665
diff changeset
2213 imr.imr_multiaddr.s_addr = inet_addr ((char *) XSTRING_DATA (dest));
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2214 imr.imr_interface.s_addr = htonl (INADDR_ANY);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2215 if (setsockopt (rs, IPPROTO_IP, IP_ADD_MEMBERSHIP,
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2216 &imr, sizeof (struct ip_mreq)) < 0)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2217 {
563
183866b06e0b [xemacs-hg @ 2001-05-24 07:50:48 by ben]
ben
parents: 558
diff changeset
2218 int save_errno = errno;
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2219 retry_close (ws);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2220 retry_close (rs);
563
183866b06e0b [xemacs-hg @ 2001-05-24 07:50:48 by ben]
ben
parents: 558
diff changeset
2221 errno = save_errno;
183866b06e0b [xemacs-hg @ 2001-05-24 07:50:48 by ben]
ben
parents: 558
diff changeset
2222 report_network_error ("error adding membership", list3 (Qunbound, name,
183866b06e0b [xemacs-hg @ 2001-05-24 07:50:48 by ben]
ben
parents: 558
diff changeset
2223 dest));
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2224 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2225
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2226 /* Socket configuration for writing ----------------------- */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2227
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2228 /* Normally, there's no 'connect' in multicast, since we prefer to use
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2229 'sendto' and 'recvfrom'. However, in order to handle this connection in
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2230 the process-like way it is done for TCP, we must be able to use 'write'
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2231 instead of 'sendto'. Consequently, we 'connect' this socket. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2232
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2233 /* See open-network-stream-internal for comments on this part of the code */
502
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 475
diff changeset
2234 #ifdef CONNECT_NEEDS_SLOWED_INTERRUPTS
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2235 slow_down_interrupts ();
502
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 475
diff changeset
2236 #endif
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2237
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2238 loop:
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2239
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2240 /* A system call interrupted with a SIGALRM or SIGIO comes back
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2241 here, with can_break_system_calls reset to 0. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2242 SETJMP (break_system_call_jump);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2243 if (QUITP)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2244 {
502
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 475
diff changeset
2245 #ifdef CONNECT_NEEDS_SLOWED_INTERRUPTS
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2246 speed_up_interrupts ();
502
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 475
diff changeset
2247 #endif
853
2b6fa2618f76 [xemacs-hg @ 2002-05-28 08:44:22 by ben]
ben
parents: 826
diff changeset
2248 QUIT;
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2249 /* In case something really weird happens ... */
502
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 475
diff changeset
2250 #ifdef CONNECT_NEEDS_SLOWED_INTERRUPTS
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2251 slow_down_interrupts ();
502
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 475
diff changeset
2252 #endif
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2253 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2254
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2255 /* Break out of connect with a signal (it isn't otherwise possible).
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2256 Thus you don't get screwed with a hung network. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2257 can_break_system_calls = 1;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2258 ret = connect (ws, (struct sockaddr *) &sa, sizeof (sa));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2259 can_break_system_calls = 0;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2260 if (ret == -1 && errno != EISCONN)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2261 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2262 int xerrno = errno;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2263
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2264 if (errno == EINTR)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2265 goto loop;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2266 if (errno == EADDRINUSE && retry < 20)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2267 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2268 /* A delay here is needed on some FreeBSD systems,
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2269 and it is harmless, since this retrying takes time anyway
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2270 and should be infrequent.
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2271 `sleep-for' allowed for quitting this loop with interrupts
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2272 slowed down so it can't be used here. Async timers should
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2273 already be disabled at this point so we can use `sleep'. */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2274 sleep (1);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2275 retry++;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2276 goto loop;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2277 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2278
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2279 retry_close (rs);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2280 retry_close (ws);
502
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 475
diff changeset
2281 #ifdef CONNECT_NEEDS_SLOWED_INTERRUPTS
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2282 speed_up_interrupts ();
502
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 475
diff changeset
2283 #endif
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2284
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2285 errno = xerrno;
563
183866b06e0b [xemacs-hg @ 2001-05-24 07:50:48 by ben]
ben
parents: 558
diff changeset
2286 report_network_error ("error connecting socket", list3 (Qunbound, name,
183866b06e0b [xemacs-hg @ 2001-05-24 07:50:48 by ben]
ben
parents: 558
diff changeset
2287 port));
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2288 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2289
502
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 475
diff changeset
2290 #ifdef CONNECT_NEEDS_SLOWED_INTERRUPTS
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2291 speed_up_interrupts ();
502
7039e6323819 [xemacs-hg @ 2001-05-04 22:41:46 by ben]
ben
parents: 475
diff changeset
2292 #endif
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2293
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2294 /* scope */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2295 if (setsockopt (ws, IPPROTO_IP, IP_MULTICAST_TTL,
442
abe6d1db359e Import from CVS: tag r21-2-36
cvs
parents: 440
diff changeset
2296 &thettl, sizeof (thettl)) < 0)
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2297 {
563
183866b06e0b [xemacs-hg @ 2001-05-24 07:50:48 by ben]
ben
parents: 558
diff changeset
2298 int save_errno = errno;
771
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2299 retry_close (rs);
943eaba38521 [xemacs-hg @ 2002-03-13 08:51:24 by ben]
ben
parents: 724
diff changeset
2300 retry_close (ws);
563
183866b06e0b [xemacs-hg @ 2001-05-24 07:50:48 by ben]
ben
parents: 558
diff changeset
2301 errno = save_errno;
183866b06e0b [xemacs-hg @ 2001-05-24 07:50:48 by ben]
ben
parents: 558
diff changeset
2302 report_network_error ("error setting ttl", list3 (Qunbound, name, ttl));
428
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2303 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2304
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2305 set_socket_nonblocking_maybe (rs, theport, "udp");
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2306
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2307 *vinfd = (void*)rs;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2308 *voutfd = (void*)ws;
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2309 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2310
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2311 #endif /* HAVE_MULTICAST */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2312
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2313 #endif /* HAVE_SOCKETS */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2314
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2315
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2316 /**********************************************************************/
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2317 /* Initialization */
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2318 /**********************************************************************/
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2319
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2320 void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2321 process_type_create_unix (void)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2322 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2323 PROCESS_HAS_METHOD (unix, alloc_process_data);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2324 PROCESS_HAS_METHOD (unix, mark_process_data);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2325 #ifdef SIGCHLD
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2326 PROCESS_HAS_METHOD (unix, init_process);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2327 PROCESS_HAS_METHOD (unix, reap_exited_processes);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2328 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2329 PROCESS_HAS_METHOD (unix, init_process_io_handles);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2330 PROCESS_HAS_METHOD (unix, create_process);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2331 PROCESS_HAS_METHOD (unix, tooltalk_connection_p);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2332 PROCESS_HAS_METHOD (unix, set_window_size);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2333 #ifdef HAVE_WAITPID
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2334 PROCESS_HAS_METHOD (unix, update_status_if_terminated);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2335 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2336 PROCESS_HAS_METHOD (unix, send_process);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2337 PROCESS_HAS_METHOD (unix, process_send_eof);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2338 PROCESS_HAS_METHOD (unix, deactivate_process);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2339 PROCESS_HAS_METHOD (unix, kill_child_process);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2340 PROCESS_HAS_METHOD (unix, kill_process_by_pid);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2341 PROCESS_HAS_METHOD (unix, get_tty_name);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2342 #ifdef HAVE_SOCKETS
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2343 PROCESS_HAS_METHOD (unix, canonicalize_host_name);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2344 PROCESS_HAS_METHOD (unix, open_network_stream);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2345 #ifdef HAVE_MULTICAST
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2346 PROCESS_HAS_METHOD (unix, open_multicast_group);
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2347 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2348 #endif
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2349 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2350
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2351 void
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2352 vars_of_process_unix (void)
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2353 {
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2354 Fprovide (intern ("unix-processes"));
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2355 }
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2356
3ecd8885ac67 Import from CVS: tag r21-2-22
cvs
parents:
diff changeset
2357 #endif /* !defined (NO_SUBPROCESSES) */