* stabsread.c (get_substring): Declare second arg as int.

[deliverable/binutils-gdb.git] / gdb / serial.c

diff --git a/gdb/serial.c b/gdb/serial.c
index 5efd5b70cef33d3f6f092b4fb3fad2bd86341646..151881ae88562dc33690dc0a70415b506f9ddd89 100644 (file)
--- a/gdb/serial.c
+++ b/gdb/serial.c
@@ -1,5 +1,5 @@
 /* Generic serial interface routines
-   Copyright 1992, 1993 Free Software Foundation, Inc.
+   Copyright 1992, 1993, 1996 Free Software Foundation, Inc.
 
 This file is part of GDB.
 
@@ -15,10 +15,13 @@ GNU General Public License for more details.
 
 You should have received a copy of the GNU General Public License
 along with this program; if not, write to the Free Software
-Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.  */
+Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.  */
 
 #include "defs.h"
+#include <ctype.h>
 #include "serial.h"
+#include "gdb_string.h"
+#include "gdbcmd.h"
 
 /* Linked list of serial I/O handlers */
 
@@ -32,6 +35,113 @@ static serial_t last_serial_opened = NULL;
 
 static serial_t scb_base;
 
+/* Non-NULL gives filename which contains a recording of the remote session,
+   suitable for playback by gdbserver. */
+
+char *serial_logfile = NULL;
+FILE *serial_logfp = NULL;
+
+static struct serial_ops *serial_interface_lookup PARAMS ((char *));
+static void serial_logchar PARAMS ((int));
+
+\f
+static int serial_reading = 0;
+static int serial_writing = 0;
+
+void
+serial_log_command (cmd)
+     const char *cmd;
+{
+  if (serial_reading || serial_writing)
+    {
+      fputc_unfiltered ('\n', serial_logfp);
+      serial_reading = 0;
+      serial_writing = 0;
+    }
+  fprintf_unfiltered (serial_logfp, "c %s\n", cmd);
+  /* Make sure that the log file is as up-to-date as possible,
+     in case we are getting ready to dump core or something. */
+  fflush (serial_logfp);
+}
+
+static void
+serial_logchar (ch)
+     int ch;
+{
+  switch (ch)
+    {
+    case '\\': fputs_unfiltered ("\\\\", serial_logfp); break; 
+    case '\b': fputs_unfiltered ("\\b", serial_logfp); break;  
+    case '\f': fputs_unfiltered ("\\f", serial_logfp); break;  
+    case '\n': fputs_unfiltered ("\\n", serial_logfp); break;  
+    case '\r': fputs_unfiltered ("\\r", serial_logfp); break;  
+    case '\t': fputs_unfiltered ("\\t", serial_logfp); break;  
+    case '\v': fputs_unfiltered ("\\v", serial_logfp); break;  
+    default:   fprintf_unfiltered (serial_logfp, isprint (ch) ? "%c" : "\\x%02x", ch & 0xFF); break;
+    }
+}
+
+int
+serial_write (scb, str, len)
+     serial_t scb;
+     const char *str;
+     int len;
+{
+  int count;
+
+  if (serial_logfp != NULL)
+    {
+      if (serial_reading)
+       {
+         fputc_unfiltered ('\n', serial_logfp);
+         serial_reading = 0;
+       }
+      if (!serial_writing)
+       {
+         serial_logchar ('w');
+         serial_logchar (' ');
+         serial_writing = 1;
+       }
+      for (count = 0; count < len; count++)
+       {
+         serial_logchar (str[count]);
+       }
+      /* Make sure that the log file is as up-to-date as possible,
+        in case we are getting ready to dump core or something. */
+      fflush (serial_logfp);
+    }
+  return (scb -> ops -> write (scb, str, len));
+}
+
+int
+serial_readchar (scb, timeout)
+     serial_t scb;
+     int timeout;
+{
+  int ch;
+
+  ch = scb -> ops -> readchar (scb, timeout);
+  if (serial_logfp != NULL)
+    {
+      if (serial_writing)
+       {
+         fputc_unfiltered ('\n', serial_logfp);
+         serial_writing = 0;
+       }
+      if (!serial_reading)
+       {
+         serial_logchar ('r');
+         serial_logchar (' ');
+         serial_reading = 1;
+       }
+      serial_logchar (ch);
+      /* Make sure that the log file is as up-to-date as possible,
+        in case we are getting ready to dump core or something. */
+      fflush (serial_logfp);
+    }
+  return (ch);
+}
+
 static struct serial_ops *
 serial_interface_lookup (name)
      char *name;
@@ -73,6 +183,8 @@ serial_open (name)
     ops = serial_interface_lookup ("pc");
   else if (strchr (name, ':'))
     ops = serial_interface_lookup ("tcp");
+  else if (strncmp (name, "lpt", 3) == 0)
+    ops = serial_interface_lookup ("parallel");
   else
     ops = serial_interface_lookup ("hardwire");
 
@@ -99,6 +211,15 @@ serial_open (name)
 
   last_serial_opened = scb;
 
+  if (serial_logfile != NULL)
+    {
+      serial_logfp = fopen (serial_logfile, "w");
+      if (serial_logfp == NULL)
+       {
+         perror_with_name (serial_logfile);
+       }
+    }
+
   return scb;
 }
 
@@ -149,6 +270,18 @@ serial_close(scb, really_close)
 
   last_serial_opened = NULL;
 
+  if (serial_logfp)
+    {
+      if (serial_reading || serial_writing)
+       {
+         fputc_unfiltered ('\n', serial_logfp);
+         serial_reading = 0;
+         serial_writing = 0;
+       }
+      fclose (serial_logfp);
+      serial_logfp = NULL;
+    }
+
 /* This is bogus.  It's not our fault if you pass us a bad scb...!  Rob, you
    should fix your code instead.  */
 
@@ -306,6 +439,35 @@ connect_command (args, fromtty)
 }
 #endif /* 0 */
 
+/* VARARGS */
+void
+#ifdef ANSI_PROTOTYPES
+serial_printf (serial_t desc, const char *format, ...)
+#else
+serial_printf (va_alist)
+     va_dcl
+#endif
+{
+  va_list args;
+  char *buf;
+#ifdef ANSI_PROTOTYPES
+  va_start (args, format);
+#else
+  serial_t desc;
+  char *format;
+
+  va_start (args);
+  desc = va_arg (args, serial_t);
+  format = va_arg (args, char *);
+#endif
+
+  vasprintf (&buf, format, args);
+  SERIAL_WRITE (desc, buf, strlen (buf));
+
+  free (buf);
+  va_end (args);
+}
+
 void
 _initialize_serial ()
 {
@@ -314,4 +476,12 @@ _initialize_serial ()
           "Connect the terminal directly up to the command monitor.\n\
 Use <CR>~. or <CR>~^D to break out.");
 #endif /* 0 */
+
+  add_show_from_set (add_set_cmd ("remotelogfile", no_class,
+                                 var_filename, (char *)&serial_logfile,
+                                 "Set filename for remote session recording.\n\
+This file is used to record the remote session for future playback\n\
+by gdbserver.", &setlist),
+                    &showlist);
+
 }