X-Git-Url: https://code.delx.au/gnu-emacs/blobdiff_plain/6e66744d4c4bd94bb7e34f4243de0213334a31c5..d675db9:/src/process.h diff --git a/src/process.h b/src/process.h index 56c0f6d630..8d9f8f4c07 100644 --- a/src/process.h +++ b/src/process.h @@ -1,5 +1,5 @@ /* Definitions for asynchronous process control in GNU Emacs. - Copyright (C) 1985, 1994, 2001-2014 Free Software Foundation, Inc. + Copyright (C) 1985, 1994, 2001-2016 Free Software Foundation, Inc. This file is part of GNU Emacs. @@ -16,6 +16,9 @@ GNU General Public License for more details. You should have received a copy of the GNU General Public License along with GNU Emacs. If not, see . */ +#ifndef EMACS_PROCESS_H +#define EMACS_PROCESS_H + #ifdef HAVE_SYS_TYPES_H #include #endif @@ -43,25 +46,25 @@ struct Lisp_Process /* Name of subprocess terminal. */ Lisp_Object tty_name; - /* Name of this process */ + /* Name of this process. */ Lisp_Object name; /* List of command arguments that this process was run with. - Is set to t for a stopped network process; nil otherwise. */ + 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 */ + to dispose of a bunch of chars from the process all at once. */ Lisp_Object filter; - /* (funcall SENTINEL PROCESS) when process state changes */ + /* (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 */ + /* Buffer that output is going to. */ Lisp_Object buffer; /* t if this is a real child process. For a network or serial @@ -73,10 +76,10 @@ struct Lisp_Process /* Plist for programs to keep per-process state information, parameters, etc. */ Lisp_Object plist; - /* Symbol indicating the type of process: real, network, serial */ + /* Symbol indicating the type of process: real, network, serial. */ Lisp_Object type; - /* Marker set to end of last buffer-inserted output from this process */ + /* Marker set to end of last buffer-inserted output from this process. */ Lisp_Object mark; /* Symbol indicating status of process. @@ -98,13 +101,16 @@ struct Lisp_Process /* Working buffer for encoding. */ Lisp_Object encoding_buf; - /* Queue for storing waiting writes */ + /* Queue for storing waiting writes. */ Lisp_Object write_queue; #ifdef HAVE_GNUTLS Lisp_Object gnutls_cred_type; #endif + /* Pipe process attached to the standard error of this process. */ + Lisp_Object stderrproc; + /* After this point, there are no Lisp_Objects any more. */ /* alloc.c assumes that `pid' is the first such non-Lisp slot. */ @@ -113,9 +119,9 @@ struct Lisp_Process A value 0 is used for pseudo-processes such as network or serial connections. */ pid_t pid; - /* Descriptor by which we read from this process */ + /* Descriptor by which we read from this process. */ int infd; - /* Descriptor by which we write to this process */ + /* Descriptor by which we write to this process. */ int outfd; /* Descriptors that were created for this process and that need closing. Unused entries are negative. */ @@ -197,15 +203,6 @@ pset_gnutls_cred_type (struct Lisp_Process *p, Lisp_Object val) when exiting. */ extern bool inhibit_sentinels; -extern Lisp_Object Qeuid, Qegid, Qcomm, Qstate, Qppid, Qpgrp, Qsess, Qttname; -extern Lisp_Object Qminflt, Qmajflt, Qcminflt, Qcmajflt, Qutime, Qstime; -extern Lisp_Object Qcutime, Qpri, Qnice, Qthcount, Qstart, Qvsize, Qrss, Qargs; -extern Lisp_Object Quser, Qgroup, Qetime, Qpcpu, Qpmem, Qtpgid, Qcstime; -extern Lisp_Object Qtime, Qctime; -extern Lisp_Object QCspeed; -extern Lisp_Object QCbytesize, QCstopbits, QCparity, Qodd, Qeven; -extern Lisp_Object QCflowcontrol, Qhw, Qsw, QCsummary; - /* Exit statuses for GNU programs that exec other programs. */ enum { @@ -246,4 +243,8 @@ extern Lisp_Object network_interface_list (void); extern Lisp_Object network_interface_info (Lisp_Object); #endif +extern Lisp_Object remove_slash_colon (Lisp_Object); + INLINE_HEADER_END + +#endif /* EMACS_PROCESS_H */