Initial revision

1 files changed, 552 insertions, 0 deletions

diff --git a/gdb/rdi-share/unixcomm.c b/gdb/rdi-share/unixcomm.c
new file mode 100644
index 00000000000..221ce55b3a4
--- /dev/null
+++ b/gdb/rdi-share/unixcomm.c
@@ -0,0 +1,552 @@
+/* 
+ * Copyright (C) 1995 Advanced RISC Machines Limited. All rights reserved.
+ * 
+ * This software may be freely used, copied, modified, and distributed
+ * provided that the above copyright notice is preserved in all copies of the
+ * software.
+ */
+
+/* -*-C-*-
+ *
+ * $Revision: 1.6 $
+ *     $Date: 1999/01/28 03:50:16 $
+ *
+ */
+
+#ifdef __hpux
+#  define _POSIX_SOURCE 1
+#endif
+
+#include <stdio.h>
+#include <unistd.h>
+#include <ctype.h>
+
+#ifdef __hpux
+#  define _TERMIOS_INCLUDED
+#  include <sys/termio.h>
+#  undef _TERMIOS_INCLUDED
+#else
+#  include <termios.h>
+#endif
+
+#include <string.h>
+#include <fcntl.h>
+#include <errno.h>
+#include <stdarg.h>
+#include <sys/types.h>
+#include <sys/time.h>
+
+#ifdef sun
+# include <sys/ioccom.h>
+# ifdef __svr4__
+#  include <sys/bpp_io.h>
+# else
+#  include <sbusdev/bpp_io.h>
+# endif
+#endif
+
+#ifdef BSD
+# ifdef sun
+#  include <sys/ttydev.h>
+# endif
+# ifdef __alpha 
+#  include <sys/ioctl.h>
+# else
+#  include <sys/filio.h>
+# endif
+#endif
+
+#ifdef __hpux
+#  define _INCLUDE_HPUX_SOURCE
+#  include <sys/ioctl.h>
+#  undef _INCLUDE_HPUX_SOURCE
+#endif
+
+#include "host.h"
+#include "unixcomm.h"
+
+#define PP_TIMEOUT      1              /* seconds */
+
+#ifdef sun
+#define SERPORT1   "/dev/ttya"
+#define SERPORT2   "/dev/ttyb"
+#define PARPORT1   "/dev/bpp0"
+#define PARPORT2   "/dev/bpp1"
+#endif
+
+#ifdef __hpux
+#define SERPORT1   "/dev/tty00"
+#define SERPORT2   "/dev/tty01"
+#define PARPORT1   "/dev/ptr_parallel"
+#define PARPORT2   "/dev/ptr_parallel"
+#endif
+
+#ifdef __linux__
+#define SERPORT1   "/dev/cua0"
+#define SERPORT2   "/dev/cua1"
+#define PARPORT1   "/dev/par0"
+#define PARPORT2   "/dev/par1"
+#endif
+
+#if defined (__FreeBSD__) || defined (__NetBSD__) || defined (__OpenBSD__) || defined (bsdi)
+#define SERPORT1   "/dev/cuaa0"
+#define SERPORT2   "/dev/cuaa1"
+#define PARPORT1   "/dev/lpt0"
+#define PARPORT2   "/dev/lpt1"
+#endif
+
+
+#define SERIAL_PREFIX "/dev/tty"
+#if defined(_WIN32) || defined (__CYGWIN32__) 
+#define SERPORT1   "com1"
+#define SERPORT2   "com2"
+#define PARPORT1   "lpt1"
+#define PARPORT2   "lpt2"
+#undef SERIAL_PREFIX
+#define SERIAL_PREFIX "com"
+#endif
+
+
+
+/*
+ * Parallel port output pins, used for signalling to target
+ */
+
+#ifdef sun
+struct bpp_pins bp;
+#endif
+
+static int serpfd = -1;
+static int parpfd = -1;
+
+extern const char *Unix_MatchValidSerialDevice(const char *name)
+{
+  int i=0;
+  char *sername=NULL;
+
+  /* Accept no name as the default serial port */
+  if (name == NULL) {
+    return SERPORT1;
+  }
+
+  /* Look for the simple cases - 1,2,s,S,/dev/... first, and
+   * afterwards look for S=... clauses, which need parsing properly.
+   */
+
+  /* Accept /dev/tty* where * is limited */
+  if (strlen(name) == strlen(SERPORT1)
+      && strncmp(name, SERIAL_PREFIX, strlen (SERIAL_PREFIX)) == 0)
+      {
+        return name;
+      }
+
+  /* Accept "1" or "2" or "S" - S is equivalent to "1" */
+  if (strcmp(name, "1") == 0 ||
+      strcmp(name, "S") == 0 || strcmp(name, "s") == 0) {
+    return SERPORT1;
+  }
+  if (strcmp(name, "2") == 0) return SERPORT2;
+
+  /* It wasn't one of the simple cases, so now we have to parse it
+   * properly
+   */
+
+  do {
+    switch (name[i]) {
+      case ',':
+        /* Skip over commas */
+        i++;
+        break;
+      
+      default:
+        return 0;
+        /* Unexpected character => error - not matched */
+
+      case 0:
+        /* End of string means return whatever we have matched */
+        return sername;
+
+      case 's':
+      case 'S':
+      case 'h':
+      case 'H': {
+        char ch = tolower(name[i]);
+        int j, continue_from, len;
+        
+        /* If the next character is a comma or a NULL then this is
+         * a request for the default Serial port
+         */
+        if (name[++i] == 0 || name[i] == ',') {
+          if (ch=='s') 
+              sername=SERPORT1;
+          break;
+        }
+
+        /* Next character must be an = */
+        if (name[i] != '=') return 0;
+        /* Search for the end of the port spec. (ends in NULL or ,) */
+        for (j= ++i; name[j] != 0 && name[j] != ','; j++)
+          ; /* Do nothing */
+        /* Notice whether this is the last thing to parse or not
+         * and also calaculate the length of the string
+         */
+        if (name[j] == '0') continue_from = -1;
+        else continue_from = j;
+        len=(j-i);
+
+        /* And now try to match the serial / parallel port */
+        switch (ch) {
+          case 's': {
+            /* Match serial port */
+            if (len==1) {
+              if (name[i]=='1') 
+                  sername=SERPORT1;
+              else if (name[i]=='2') 
+                  sername=SERPORT2;
+            } else if (len==strlen(SERPORT1)) {
+              if (strncmp(name+i,SERPORT1,strlen(SERPORT1)) == 0)
+                sername=SERPORT1;
+              else if (strncmp(name+i,SERPORT2,strlen(SERPORT2)) == 0)
+                sername=SERPORT2;
+            }
+
+            break;
+          }
+
+          case 'h': 
+            /* We don't actually deal with the H case here, we just
+             * match it and allow it through.
+             */
+            break;
+        }
+
+        if (continue_from == -1) return sername;
+        i = continue_from;
+        break;
+      }
+    }
+  } while (1);
+
+  return 0;
+}
+
+
+extern int Unix_IsSerialInUse(void)
+{
+    if (serpfd >= 0)
+        return -1;
+
+    return 0;
+}
+
+extern int Unix_OpenSerial(const char *name)
+{
+#if defined(BSD) || defined(__CYGWIN32__)
+    serpfd = open(name, O_RDWR);
+#else
+    serpfd = open(name, O_RDWR | O_NONBLOCK);
+#endif
+
+    if (serpfd < 0) {
+        perror("open");
+        return -1;
+    }
+
+    return 0;
+}
+
+extern void Unix_CloseSerial(void)
+{
+    if (serpfd >= 0)
+    {
+        (void)close(serpfd);
+        serpfd = -1;
+    }
+}
+
+extern int Unix_ReadSerial(unsigned char *buf, int n, bool block)
+{
+    fd_set fdset;
+    struct timeval tv;
+    int err;
+
+    FD_ZERO(&fdset);
+    FD_SET(serpfd, &fdset);
+
+    tv.tv_sec = 0;
+    tv.tv_usec = (block ? 10000 : 0);
+
+    err = select(serpfd + 1, &fdset, NULL, NULL, &tv);
+
+    if (err < 0 && errno != EINTR)
+    {
+#ifdef DEBUG
+        perror("select");
+#endif
+        panic("select failure");
+        return -1;
+    }
+    else if (err > 0 && FD_ISSET(serpfd, &fdset))
+        return read(serpfd, buf, n);
+    else /* err == 0 || FD_CLR(serpfd, &fdset) */
+    {
+        errno = ERRNO_FOR_BLOCKED_IO;
+        return -1;
+    }
+}
+
+extern int Unix_WriteSerial(unsigned char *buf, int n)
+{
+    return write(serpfd, buf, n);
+}
+
+extern void Unix_ResetSerial(void)
+{
+    struct termios terminfo;
+
+    tcgetattr(serpfd, &terminfo);
+#ifdef __CYGWIN32__
+    /* Expedient, but it works.  */
+    terminfo.c_iflag = 0;
+    terminfo.c_oflag = 0;
+    terminfo.c_cflag = 48;
+    terminfo.c_lflag = 0;
+    terminfo.c_cc[VMIN] = 0;
+    terminfo.c_cc[VTIME] = 1;
+#else
+    terminfo.c_lflag &= ~(ICANON | ISIG | ECHO | IEXTEN);
+    terminfo.c_iflag &= ~(IGNCR | INPCK | ISTRIP | ICRNL | BRKINT);
+    terminfo.c_iflag |= (IXON | IXOFF | IGNBRK);
+    terminfo.c_cflag = (terminfo.c_cflag & ~CSIZE) | CS8 | CREAD;
+    terminfo.c_cflag &= ~PARENB;
+    terminfo.c_cc[VMIN] = 1;
+    terminfo.c_cc[VTIME] = 0;
+    terminfo.c_oflag &= ~OPOST;
+#endif
+    tcsetattr(serpfd, TCSAFLUSH, &terminfo);
+}
+
+extern void Unix_SetSerialBaudRate(int baudrate)
+{
+    struct termios terminfo;
+
+    tcgetattr(serpfd, &terminfo);
+    cfsetospeed(&terminfo, baudrate);
+    cfsetispeed(&terminfo, baudrate);
+    tcsetattr(serpfd, TCSAFLUSH, &terminfo);
+}
+
+extern void Unix_ioctlNonBlocking(void)
+{
+#if defined(BSD)
+    int nonblockingIO = 1;
+    (void)ioctl(serpfd, FIONBIO, &nonblockingIO);
+
+    if (parpfd != -1)
+        (void)ioctl(parpfd, FIONBIO, &nonblockingIO);
+#endif
+}
+
+extern void Unix_IsValidParallelDevice(
+  const char *portstring, char **sername, char **parname)
+{
+  int i=0;
+  *sername=NULL;
+  *parname=NULL;
+
+  /* Do not recognise a NULL portstring */
+  if (portstring==NULL) return;
+
+  do {
+    switch (portstring[i]) {
+      case ',':
+        /* Skip over commas */
+        i++;
+        break;
+      
+      default:
+      case 0:
+        /* End of string or bad characcter means we have finished */
+        return;
+
+      case 's':
+      case 'S':
+      case 'p':
+      case 'P':
+      case 'h':
+      case 'H': {
+        char ch = tolower(portstring[i]);
+        int j, continue_from, len;
+        
+        /* If the next character is a comma or a NULL then this is
+         * a request for the default Serial or Parallel port
+         */
+        if (portstring[++i] == 0 || portstring[i] == ',') {
+          if (ch=='s') *sername=SERPORT1;
+          else if (ch=='p') *parname=PARPORT1;
+          break;
+        }
+
+        /* Next character must be an = */
+        if (portstring[i] != '=') return;
+        /* Search for the end of the port spec. (ends in NULL or ,) */
+        for (j= ++i; portstring[j] != 0 && portstring[j] != ','; j++)
+          ; /* Do nothing */
+        /* Notice whether this is the last thing to parse or not
+         * and also calaculate the length of the string
+         */
+        if (portstring[j] == '0') continue_from = -1;
+        else continue_from = j;
+        len=(j-i);
+
+        /* And now try to match the serial / parallel port */
+        switch (ch) {
+          case 's': {
+            /* Match serial port */
+            if (len==1) {
+              if (portstring[i]=='1') *sername=SERPORT1;
+              else if (portstring[i]=='2') *sername=SERPORT2;
+            } else if (len==strlen(SERPORT1)) {
+              if (strncmp(portstring+i,SERPORT1,strlen(SERPORT1)) == 0)
+                *sername=SERPORT1;
+              else if (strncmp(portstring+i,SERPORT2,strlen(SERPORT2)) == 0)
+                *sername=SERPORT2;
+            }
+            break;
+          }
+
+          case 'p': {
+            /* Match parallel port */
+            if (len==1) {
+              if (portstring[i]=='1') *parname=PARPORT1;
+              else if (portstring[i]=='2') *parname=PARPORT2;
+            } else if (len==strlen(PARPORT1)) {
+              if (strncmp(portstring+i,PARPORT1,strlen(PARPORT1)) == 0)
+                *parname=PARPORT1;
+              else if (strncmp(portstring+i,PARPORT2,strlen(PARPORT2)) == 0)
+                *parname=PARPORT2;
+            }
+            break;
+          }
+
+          case 'h': 
+            /* We don't actually deal with the H case here, we just
+             * match it and allow it through.
+             */
+            break;
+        }
+
+        if (continue_from == -1) return;
+        i = continue_from;
+        break;
+      }
+    }
+  } while (1);
+  return;  /* Will never get here */
+}
+
+extern int Unix_IsParallelInUse(void)
+{
+    if (parpfd >= 0)
+        return -1;
+
+    return 0;
+}
+
+extern int Unix_OpenParallel(const char *name)
+{
+#if defined(BSD)
+    parpfd = open(name, O_RDWR);
+#else
+    parpfd = open(name, O_RDWR | O_NONBLOCK);
+#endif
+
+    if (parpfd < 0)
+    {
+        char errbuf[256];
+
+        sprintf(errbuf, "open %s", name);
+        perror(errbuf);
+
+        return -1;
+    }
+
+    return 0;
+}
+
+extern void Unix_CloseParallel(void)
+{
+    if (parpfd >= 0)
+    {
+        (void)close(parpfd);
+        parpfd = -1;
+    }
+}
+
+
+extern unsigned int Unix_WriteParallel(unsigned char *buf, int n)
+{
+    int ngone;
+
+    if ((ngone = write(parpfd, buf, n)) < 0)
+    {
+        /*
+         * we ignore errors (except for debug purposes)
+         */
+#ifdef DEBUG
+        char errbuf[256];
+
+        sprintf(errbuf, "send_packet: write");
+        perror(errbuf);
+#endif
+        ngone = 0;
+    }
+
+    /* finished */
+    return (unsigned int)ngone;
+}
+
+
+#ifdef sun
+extern void Unix_ResetParallel(void)
+{
+    struct bpp_transfer_parms tp;
+
+#ifdef DEBUG
+    printf("serpar_reset\n");
+#endif
+
+    /*
+     * we need to set the parallel port up for BUSY handshaking,
+     * and select the timeout
+     */
+    if (ioctl(parpfd, BPPIOC_GETPARMS, &tp) < 0)
+    {
+#ifdef DEBUG
+        perror("ioctl(BPPIOCGETPARMS)");
+#endif
+        panic("serpar_reset: cannot get BPP parameters");
+    }
+
+    tp.write_handshake = BPP_BUSY_HS;
+    tp.write_timeout = PP_TIMEOUT;
+
+    if (ioctl(parpfd, BPPIOC_SETPARMS, &tp) < 0)
+    {
+#ifdef DEBUG
+        perror("ioctl(BPPIOC_SETPARMS)");
+#endif
+        panic("serpar_reset: cannot set BPP parameters");
+    }
+}
+
+#else
+
+/* Parallel not supported on HP */
+
+extern void Unix_ResetParallel(void)
+{
+}
+
+#endif
+