* monitor.c (monitor_load_srec monitor_make_srec): Move all
[binutils-gdb.git] / gdb / serial.c
index 5a4fcf42398880969f659a5a30aa4014099b492b..ea886a6a3c92ec7835c453adff31dbe485ab5ff2 100644 (file)
@@ -15,15 +15,24 @@ 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 "serial.h"
+#include "gdb_string.h"
 
-/* Open up a device or a network socket, depending upon the syntax of NAME. */
+/* Linked list of serial I/O handlers */
 
 static struct serial_ops *serial_ops_list = NULL;
 
+/* This is the last serial stream opened.  Used by connect command. */
+
+static serial_t last_serial_opened = NULL;
+
+/* Pointer to list of scb's. */
+
+static serial_t scb_base;
+
 static struct serial_ops *
 serial_interface_lookup (name)
      char *name;
@@ -45,14 +54,28 @@ serial_add_interface(optable)
   serial_ops_list = optable;
 }
 
+/* Open up a device or a network socket, depending upon the syntax of NAME. */
+
 serial_t
-serial_open(name)
+serial_open (name)
      const char *name;
 {
   serial_t scb;
   struct serial_ops *ops;
 
-  ops = serial_interface_lookup ("hardwire");
+  for (scb = scb_base; scb; scb = scb->next)
+    if (scb->name && strcmp (scb->name, name) == 0)
+      {
+       scb->refcnt++;
+       return scb;
+      }
+
+  if (strcmp (name, "pc") == 0)
+    ops = serial_interface_lookup ("pc");
+  else if (strchr (name, ':'))
+    ops = serial_interface_lookup ("tcp");
+  else
+    ops = serial_interface_lookup ("hardwire");
 
   if (!ops)
     return NULL;
@@ -64,25 +87,130 @@ serial_open(name)
   scb->bufcnt = 0;
   scb->bufp = scb->buf;
 
-  if (SERIAL_OPEN (scb, name))
+  if (scb->ops->open(scb, name))
     {
       free (scb);
       return NULL;
     }
 
+  scb->name = strsave (name);
+  scb->next = scb_base;
+  scb->refcnt = 1;
+  scb_base = scb;
+
+  last_serial_opened = scb;
+
   return scb;
 }
 
+serial_t
+serial_fdopen (fd)
+     const int fd;
+{
+  serial_t scb;
+  struct serial_ops *ops;
+
+  for (scb = scb_base; scb; scb = scb->next)
+    if (scb->fd == fd)
+      {
+       scb->refcnt++;
+       return scb;
+      }
+
+  ops = serial_interface_lookup ("hardwire");
+
+  if (!ops)
+    return NULL;
+
+  scb = (serial_t)xmalloc (sizeof (struct _serial_t));
+
+  scb->ops = ops;
+
+  scb->bufcnt = 0;
+  scb->bufp = scb->buf;
+
+  scb->fd = fd;
+
+  scb->name = NULL;
+  scb->next = scb_base;
+  scb->refcnt = 1;
+  scb_base = scb;
+
+  last_serial_opened = scb;
+
+  return scb;
+}
+
+void
+serial_close(scb, really_close)
+     serial_t scb;
+     int really_close;
+{
+  serial_t tmp_scb;
+
+  last_serial_opened = NULL;
+
+/* This is bogus.  It's not our fault if you pass us a bad scb...!  Rob, you
+   should fix your code instead.  */
+
+  if (!scb)
+    return;
+
+  scb->refcnt--;
+  if (scb->refcnt > 0)
+    return;
+
+  if (really_close)
+    scb->ops->close (scb);
+
+  if (scb->name)
+    free (scb->name);
+
+  if (scb_base == scb)
+    scb_base = scb_base->next;
+  else
+    for (tmp_scb = scb_base; tmp_scb; tmp_scb = tmp_scb->next)
+      {
+       if (tmp_scb->next != scb)
+         continue;
+
+       tmp_scb->next = tmp_scb->next->next;
+       break;
+      }
+
+  free(scb);
+}
+
 #if 0
+/*
+The connect command is #if 0 because I hadn't thought of an elegant
+way to wait for I/O on two serial_t's simultaneously.  Two solutions
+came to mind:
+
+       1) Fork, and have have one fork handle the to user direction,
+          and have the other hand the to target direction.  This
+          obviously won't cut it for MSDOS.
+
+       2) Use something like select.  This assumes that stdin and
+          the target side can both be waited on via the same
+          mechanism.  This may not be true for DOS, if GDB is
+          talking to the target via a TCP socket.
+-grossman, 8 Jun 93
+*/
+
 /* Connect the user directly to the remote system.  This command acts just like
    the 'cu' or 'tip' command.  Use <CR>~. or <CR>~^D to break out.  */
 
+static serial_t tty_desc;              /* Controlling terminal */
+
 static void
 cleanup_tty(ttystate)
-     struct ttystate ttystate;
+     serial_ttystate ttystate;
 {
-  printf("\r\n[Exiting connect mode]\r\n");
-  serial_restore(0, &ttystate);
+  printf_unfiltered ("\r\n[Exiting connect mode]\r\n");
+  SERIAL_SET_TTY_STATE (tty_desc, ttystate);
+  free (ttystate);
+  SERIAL_CLOSE (tty_desc);
 }
 
 static void
@@ -90,92 +218,130 @@ connect_command (args, fromtty)
      char      *args;
      int       fromtty;
 {
-  fd_set readfds;
-  int numfds;
   int c;
   char cur_esc = 0;
-  static struct ttystate ttystate;
+  serial_ttystate ttystate;
+  serial_t port_desc;          /* TTY port */
 
   dont_repeat();
 
-  if (desc < 0)
-    error("target not open.");
-  
   if (args)
-    fprintf("This command takes no args.  They have been ignored.\n");
+    fprintf_unfiltered(gdb_stderr, "This command takes no args.  They have been ignored.\n");
        
-  printf("[Entering connect mode.  Use ~. or ~^D to escape]\n");
+  printf_unfiltered("[Entering connect mode.  Use ~. or ~^D to escape]\n");
+
+  tty_desc = SERIAL_FDOPEN (0);
+  port_desc = last_serial_opened;
 
-  serial_raw(0, &ttystate);
+  ttystate = SERIAL_GET_TTY_STATE (tty_desc);
 
-  make_cleanup(cleanup_tty, &ttystate);
+  SERIAL_RAW (tty_desc);
+  SERIAL_RAW (port_desc);
 
-  FD_ZERO(&readfds);
+  make_cleanup (cleanup_tty, ttystate);
 
   while (1)
     {
-      do
-       {
-         FD_SET(0, &readfds);
-         FD_SET(desc, &readfds);
-         numfds = select(sizeof(readfds)*8, &readfds, 0, 0, 0);
-       }
-      while (numfds == 0);
+      int mask;
 
-      if (numfds < 0)
-       perror_with_name("select");
+      mask = SERIAL_WAIT_2 (tty_desc, port_desc, -1);
 
-      if (FD_ISSET(0, &readfds))
-       {                       /* tty input, send to stdebug */
+      if (mask & 2)
+       {                       /* tty input */
          char cx;
 
-         c = serial_readchar(-1);
-         if (c < 0)
-           perror_with_name("connect");
-
-         cx = c;
-         serial_write(&cx, 1);
-         switch (cur_esc)
+         while (1)
            {
-           case 0:
-             if (c == '\r')
-               cur_esc = c;
-             break;
-           case '\r':
-             if (c == '~')
-               cur_esc = c;
-             else
-               cur_esc = 0;
-             break;
-           case '~':
-             if (c == '.' || c == '\004')
-               return;
-             else
-               cur_esc = 0;
+             c = SERIAL_READCHAR(tty_desc, 0);
+
+             if (c == SERIAL_TIMEOUT)
+                 break;
+
+             if (c < 0)
+               perror_with_name("connect");
+
+             cx = c;
+             SERIAL_WRITE(port_desc, &cx, 1);
+
+             switch (cur_esc)
+               {
+               case 0:
+                 if (c == '\r')
+                   cur_esc = c;
+                 break;
+               case '\r':
+                 if (c == '~')
+                   cur_esc = c;
+                 else
+                   cur_esc = 0;
+                 break;
+               case '~':
+                 if (c == '.' || c == '\004')
+                   return;
+                 else
+                   cur_esc = 0;
+               }
            }
        }
 
-      if (FD_ISSET(desc, &readfds))
-       {
+      if (mask & 1)
+       {                       /* Port input */
+         char cx;
+
          while (1)
            {
-             c = serial_readchar(-1);
+             c = SERIAL_READCHAR(port_desc, 0);
+
+             if (c == SERIAL_TIMEOUT)
+                 break;
+
              if (c < 0)
-               break;
-             putchar(c);
+               perror_with_name("connect");
+
+             cx = c;
+
+             SERIAL_WRITE(tty_desc, &cx, 1);
            }
-         fflush(stdout);
        }
     }
 }
+#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
 
-#if 0
+  vasprintf (&buf, format, args);
+  SERIAL_WRITE (desc, buf, strlen (buf));
+
+  free (buf);
+  va_end (args);
+}
+
 void
 _initialize_serial ()
 {
+#if 0
   add_com ("connect", class_obscure, connect_command,
           "Connect the terminal directly up to the command monitor.\n\
 Use <CR>~. or <CR>~^D to break out.");
+#endif /* 0 */
 }
-#endif