Daniel Engeler <engeler at gmail.com>

These changes add serial port access.
* process.c: Add HAVE_SERIAL.
(Fdelete_process, Fprocess_status, Fset_process_buffer)
(Fset_process_filter, Fset_process_sentinel, Fprocess_contact)
(list_processes_1, select_wrapper, Fstop_process)
(Fcontinue_process, Fprocess_send_eof, kill_buffer_processes)
(status_notify): Modify to handle serial processes.
[HAVE_SERIAL] (Fserial_process_configure)
[HAVE_SERIAL] (make_serial_process_unwind, Fmake_serial_process):
New functions.
* process.h (struct Lisp_Process): Add `type'.
* sysdep.c [HAVE_TERMIOS] (serial_open, serial_configure):
New functions.
* w32.c (_sys_read_ahead, sys_read, sys_write): Modify to handle serial ports.
(serial_open, serial_configure) New functions.
* w32.h: Add FILE_SERIAL.
(struct _child_process): Add ovl_read, ovl_write.

1 files changed, 7 insertions, 3 deletions

diff --git a/src/process.h b/src/process.h
index 619eb2b5e67..29cf38a2a4f 100644
--- a/src/process.h
+++ b/src/process.h
@@ -51,11 +51,14 @@ struct Lisp_Process
     Lisp_Object log;
     /* Buffer that output is going to */
     Lisp_Object buffer;
-    /* t if this is a real child process.
-       For a net connection, it is a plist based on the arguments to make-network-process.  */
+    /* t if this is a real child process.  For a network or serial
+       connection, it is a plist based on the arguments to
+       make-network-process or make-serial-process.  */
     Lisp_Object childp;
     /* Plist for programs to keep per-process state information, parameters, etc.  */
     Lisp_Object plist;
+    /* Symbol indicating the type of process: real, network, serial  */
+    Lisp_Object type;
     /* Marker set to end of last buffer-inserted output from this process */
     Lisp_Object mark;
     /* Symbol indicating status of process.
@@ -78,7 +81,8 @@ struct Lisp_Process
 
     /* Number of this process.
        allocate_process assumes this is the first non-Lisp_Object field.
-       A value 0 is used for pseudo-processes such as network connections.  */
+       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 */
     int infd;