*** empty log message ***

[bpt/emacs.git] / src / process.h

diff --git a/src/process.h b/src/process.h
index 197dda1..8dc0f1e 100644 (file)
--- a/src/process.h
+++ b/src/process.h
@@ -19,10 +19,11 @@ the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
 Boston, MA 02111-1307, 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
   {
@@ -39,24 +40,30 @@ struct Lisp_Process
     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;
     /* 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 +81,26 @@ 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;
 };
 
+/* 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.  */
@@ -103,9 +128,3 @@ extern int synch_process_retcode;
 #ifndef NULL_DEVICE
 #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