X-Git-Url: https://code.delx.au/gnu-emacs/blobdiff_plain/3b7ad313e0d7b351c55cf999474b61cdc18ecad1..fbf349734468d48b421c3d03074bb66dfcf3115b:/src/process.h diff --git a/src/process.h b/src/process.h index f6aa17526f..cadc9b7031 100644 --- a/src/process.h +++ b/src/process.h @@ -1,5 +1,6 @@ /* Definitions for asynchronous process control in GNU Emacs. - Copyright (C) 1985, 1994 Free Software Foundation, Inc. + Copyright (C) 1985, 1994, 2002, 2003, 2004, + 2005 Free Software Foundation, Inc. This file is part of GNU Emacs. @@ -15,14 +16,15 @@ GNU General Public License for more details. You should have received a copy of the GNU General Public License along with GNU Emacs; see the file COPYING. If not, write to -the Free Software Foundation, Inc., 59 Temple Place - Suite 330, -Boston, MA 02111-1307, USA. */ +the Free Software Foundation, Inc., 51 Franklin Street, Fifth Floor, +Boston, MA 02110-1301, USA. */ -/* - * Structure records pertinent information about open channels. - * There is one channel associated with each process. - */ +/* This structure records information about a subprocess + or network connection. + + Every field in this structure except for the first two + must be a Lisp_Object, for GC's sake. */ struct Lisp_Process { @@ -32,31 +34,34 @@ struct Lisp_Process Lisp_Object infd; /* Descriptor by which we write to this process */ Lisp_Object outfd; - /* Descriptor for the tty which this process is using. - nil if we didn't record it (on some systems, there's no need). */ - Lisp_Object subtty; /* Name of subprocess terminal. */ Lisp_Object tty_name; /* Name of this process */ Lisp_Object name; - /* List of command arguments that this process was run with */ + /* List of command arguments that this process was run with. + Is set to t for a stopped network process; nil otherwise. */ Lisp_Object command; /* (funcall FILTER PROC STRING) (if FILTER is non-nil) to dispose of a bunch of chars from the process all at once */ Lisp_Object filter; /* (funcall SENTINEL PROCESS) when process state changes */ Lisp_Object sentinel; + /* (funcall LOG SERVER CLIENT MESSAGE) when a server process + accepts a connection from a client. */ + Lisp_Object log; /* Buffer that output is going to */ Lisp_Object buffer; /* Number of this process */ Lisp_Object pid; - /* Non-nil if this is really a command channel */ - Lisp_Object command_channel_p; - /* Non-nil if this is really a child process */ + /* t if this is a real child process. + For a net connection, it is a plist based on the arguments to make-network-process. */ Lisp_Object childp; + /* Plist for programs to keep per-process state information, parameters, etc. */ + Lisp_Object plist; /* Marker set to end of last buffer-inserted output from this process */ Lisp_Object mark; - /* Non-nil means kill silently if Emacs is exited. */ + /* Non-nil means kill silently if Emacs is exited. + This is the inverse of the `query-on-exit' flag. */ Lisp_Object kill_without_query; /* Record the process status in the raw form in which it comes from `wait'. This is to avoid consing in a signal handler. */ @@ -74,8 +79,44 @@ struct Lisp_Process Lisp_Object tick; /* Event-count of last such event reported. */ Lisp_Object update_tick; + /* Coding-system for decoding the input from this process. */ + Lisp_Object decode_coding_system; + /* Working buffer for decoding. */ + Lisp_Object decoding_buf; + /* Size of carryover in decoding. */ + Lisp_Object decoding_carryover; + /* Coding-system for encoding the output to this process. */ + Lisp_Object encode_coding_system; + /* Working buffer for encoding. */ + Lisp_Object encoding_buf; + /* Size of carryover in encoding. */ + Lisp_Object encoding_carryover; + /* Flag to set coding-system of the process buffer from the + coding_system used to decode process output. */ + Lisp_Object inherit_coding_system_flag; + /* Flat to decide the multibyteness of a string given to the + filter (if any). It is initialized to the value of + `default-enable-multibyte-characters' when the process is + generated, and can be changed by the function + `set-process-fileter-multibyte'. */ + Lisp_Object filter_multibyte; + /* Should we delay reading output from this process. + Initialized from `Vprocess_adaptive_read_buffering'. */ + Lisp_Object adaptive_read_buffering; + /* Hysteresis to try to read process output in larger blocks. + On some systems, e.g. GNU/Linux, Emacs is seen as + an interactive app also when reading process output, meaning + that process output can be read in as little as 1 byte at a + time. Value is micro-seconds to delay reading output from + this process. Range is 0 .. 50000. */ + Lisp_Object read_output_delay; + /* Skip reading this process on next read. */ + Lisp_Object read_output_skip; }; +/* Every field in the preceding structure except for the first two + must be a Lisp_Object, for GC's sake. */ + #define ChannelMask(n) (1<<(n)) /* Indexed by descriptor, gives the process (if any) for that descriptor. */ @@ -90,12 +131,13 @@ extern int synch_process_alive; /* Communicate exit status of sync process to from sigchld_handler to Fcall_process. */ -extern int synch_process_retcode; -extern char *synch_process_death; /* Nonzero => this is a string explaining death of synchronous subprocess. */ extern char *synch_process_death; +/* Nonzero => this is the signal number that terminated the subprocess. */ +extern int synch_process_termsig; + /* If synch_process_death is zero, this is exit code of synchronous subprocess. */ extern int synch_process_retcode; @@ -106,8 +148,5 @@ extern int synch_process_retcode; #define NULL_DEVICE "/dev/null" #endif -/* A string listing the possible suffixes used for executable files, - separated by colons. VMS, MS-DOS, and OS/2 redefine this. */ -#ifndef EXEC_SUFFIXES -#define EXEC_SUFFIXES "" -#endif +/* arch-tag: dffedfc4-d7bc-4b58-a26f-c16155449c72 + (do not change this comment) */