1 /* Definitions for asynchronous process control in GNU Emacs.
2 Copyright (C) 1985, 1994 Free Software Foundation, Inc.
4 This file is part of GNU Emacs.
6 GNU Emacs is free software; you can redistribute it and/or modify
7 it under the terms of the GNU General Public License as published by
8 the Free Software Foundation; either version 2, or (at your option)
11 GNU Emacs is distributed in the hope that it will be useful,
12 but WITHOUT ANY WARRANTY; without even the implied warranty of
13 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
14 GNU General Public License for more details.
16 You should have received a copy of the GNU General Public License
17 along with GNU Emacs; see the file COPYING. If not, write to
18 the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
19 Boston, MA 02111-1307, USA. */
23 * Structure records pertinent information about open channels.
24 * There is one channel associated with each process.
30 struct Lisp_Vector
*v_next
;
31 /* Descriptor by which we read from this process */
33 /* Descriptor by which we write to this process */
35 /* Descriptor for the tty which this process is using.
36 nil if we didn't record it (on some systems, there's no need). */
38 /* Name of subprocess terminal. */
40 /* Name of this process */
42 /* List of command arguments that this process was run with */
44 /* (funcall FILTER PROC STRING) (if FILTER is non-nil)
45 to dispose of a bunch of chars from the process all at once */
47 /* (funcall SENTINEL PROCESS) when process state changes */
49 /* Buffer that output is going to */
51 /* Number of this process */
53 /* Non-nil if this is really a command channel */
54 Lisp_Object command_channel_p
;
55 /* t if this is a real child process.
56 For a net connection, it is (HOST SERVICE). */
58 /* Marker set to end of last buffer-inserted output from this process */
60 /* Non-nil means kill silently if Emacs is exited. */
61 Lisp_Object kill_without_query
;
62 /* Record the process status in the raw form in which it comes from `wait'.
63 This is to avoid consing in a signal handler. */
64 Lisp_Object raw_status_low
;
65 Lisp_Object raw_status_high
;
66 /* Symbol indicating status of process.
67 This may be a symbol: run, open, or closed.
68 Or it may be a list, whose car is stop, exit or signal
69 and whose cdr is a pair (EXIT_CODE . COREDUMP_FLAG)
70 or (SIGNAL_NUMBER . COREDUMP_FLAG). */
72 /* Non-nil if communicating through a pty. */
74 /* Event-count of last event in which this process changed status. */
76 /* Event-count of last such event reported. */
77 Lisp_Object update_tick
;
80 #define ChannelMask(n) (1<<(n))
82 /* Indexed by descriptor, gives the process (if any) for that descriptor. */
83 extern Lisp_Object chan_process
[];
85 /* Alist of elements (NAME . PROCESS). */
86 extern Lisp_Object Vprocess_alist
;
88 /* True iff we are about to fork off a synchronous process or if we
89 are waiting for it. */
90 extern int synch_process_alive
;
92 /* Communicate exit status of sync process to from sigchld_handler
95 /* Nonzero => this is a string explaining death of synchronous subprocess. */
96 extern char *synch_process_death
;
98 /* If synch_process_death is zero,
99 this is exit code of synchronous subprocess. */
100 extern int synch_process_retcode
;
102 /* The name of the file open to get a null file, or a data sink.
103 VMS, MS-DOS, and OS/2 redefine this. */
105 #define NULL_DEVICE "/dev/null"
108 /* A string listing the possible suffixes used for executable files,
109 separated by colons. VMS, MS-DOS, and OS/2 redefine this. */
110 #ifndef EXEC_SUFFIXES
111 #define EXEC_SUFFIXES ""