Initial revision

3 files changed, 429 insertions, 0 deletions

diff --git a/libc/termios/Makefile b/libc/termios/Makefile
new file mode 100644
index 000000000..089fdc0c4
--- /dev/null
+++ b/libc/termios/Makefile
@@ -0,0 +1,36 @@
+# Copyright (C) 1996 Robert de Bath <robert@mayday.compulink.co.uk>
+# This file is part of the Linux-8086 C library and is distributed
+# under the GNU Library General Public License.
+
+LIBC=../libc.a
+
+CC=m68k-pic-coff-gcc
+AR=m68k-pic-coff-ar
+RANLIB=m68k-pic-coff-ranlib
+
+CCFLAGS= -O2 -m68000 -msoft-float -I../include
+
+TSRC=termios.c
+TOBJ=tcsetattr.o tcgetattr.o tcdrain.o tcflow.o tcflush.o tcsendbreak.o	\
+     tcsetpgrp.o tcgetpgrp.o isatty.o	\
+     cfgetospeed.o cfgetispeed.o cfsetospeed.o cfsetispeed.o cfmakeraw.o
+
+#     cfgetospeedn.o cfgetispeedn.o cfsetospeedn.o cfsetispeedn.o tcspeed.o
+
+OBJ=$(TOBJ) ttyname.o
+# unlike everything else, this does not compile out of the box...
+#  ttyname.o
+
+CFLAGS=$(ARCH) $(CCFLAGS) $(DEFS)
+
+all: $(LIBC)
+	@$(RM) $(OBJ)
+
+$(LIBC): $(LIBC)($(OBJ))
+
+$(LIBC)($(TOBJ)): $(TSRC)
+	$(CC) $(CFLAGS) -DL_$* $< -c -o $*.o
+	$(AR) $(ARFLAGS) $@ $*.o
+
+clean:
+	rm -f *.o libc.a
diff --git a/libc/termios/termios.c b/libc/termios/termios.c
new file mode 100644
index 000000000..c6c0117f0
--- /dev/null
+++ b/libc/termios/termios.c
@@ -0,0 +1,348 @@
+/* Copyright (C) 1996 Robert de Bath <robert@mayday.compulink.co.uk> This
+ * file is part of the Linux-8086 C library and is distributed under the
+ * GNU Library General Public License.
+ */
+
+/* Note: This is based loosely on the Glib termios routines. */
+
+#ifndef __MSDOS__
+
+#include <errno.h>
+#include <stddef.h>
+#include <sys/ioctl.h>
+#include <termios.h>
+
+#ifdef L_isatty
+isatty(fd)
+int fd;
+{
+   struct termios term;
+   int rv, err = errno;
+   rv= (ioctl(fd, TCGETS, &term)==0);
+   if( rv==0 && errno == ENOSYS )
+      rv = (fd<3);
+   errno = err;
+   return rv;
+}
+#endif 
+
+#ifdef L_tcgetattr
+int
+tcgetattr(fd, term)
+int   fd;
+struct termios *term;
+{
+   return ioctl(fd, TCGETS, term);
+}
+#endif
+
+#ifdef L_tcsetattr
+int
+tcsetattr(fildes, optional_actions, termios_p)
+int fildes;
+int optional_actions;
+struct termios *termios_p;
+{
+   switch (optional_actions)
+   {
+   case TCSANOW:
+      return ioctl(fildes, TCSETS, termios_p);
+   case TCSADRAIN:
+      return ioctl(fildes, TCSETSW, termios_p);
+   case TCSAFLUSH:
+      return ioctl(fildes, TCSETSF, termios_p);
+   default:
+      errno = EINVAL;
+      return -1;
+   }
+}
+#endif
+
+#ifdef L_tcdrain
+/* Wait for pending output to be written on FD.  */
+int
+tcdrain(fd)
+int   fd;
+{
+   /* With an argument of 1, TCSBRK just waits for output to drain.  */
+   return ioctl(fd, TCSBRK, 1);
+}
+#endif
+
+#ifdef L_tcflow
+int 
+tcflow(fd, action)
+int fd;
+int action;
+{
+   return ioctl(fd, TCXONC, action);
+}
+#endif
+
+#ifdef L_tcflush
+/* Flush pending data on FD.  */
+int
+tcflush(fd, queue_selector)
+int   fd;
+int   queue_selector;
+{
+   return ioctl(fd, TCFLSH, queue_selector);
+}
+#endif
+
+#ifdef L_tcsendbreak
+/* Send zero bits on FD.  */
+int
+tcsendbreak(fd, duration)
+int   fd;
+int   duration;
+{
+   /*
+    * The break lasts 0.25 to 0.5 seconds if DURATION is zero, and an
+    * implementation-defined period if DURATION is nonzero. We define a
+    * positive DURATION to be number of milliseconds to break.
+    */
+   if (duration <= 0)
+      return ioctl(fd, TCSBRK, 0);
+
+   /*
+    * ioctl can't send a break of any other duration for us. This could be
+    * changed to use trickery (e.g. lower speed and send a '\0') to send
+    * the break, but for now just return an error.
+    */
+   errno = EINVAL;
+   return -1;
+}
+#endif
+
+#ifdef L_tcsetpgrp
+/* Set the foreground process group ID of FD set PGRP_ID.  */
+int
+tcsetpgrp(fd, pgrp_id)
+int   fd;
+pid_t pgrp_id;
+{
+   return ioctl(fd, TIOCSPGRP, &pgrp_id);
+}
+#endif
+
+#ifdef L_tcgetpgrp
+/* Return the foreground process group ID of FD.  */
+pid_t
+tcgetpgrp(fd)
+int   fd;
+{
+   int   pgrp;
+   if (ioctl(fd, TIOCGPGRP, &pgrp) < 0)
+      return (pid_t) - 1;
+   return (pid_t) pgrp;
+}
+#endif
+
+#ifdef L_cfgetospeed
+speed_t cfgetospeed(tp)
+struct termios *tp;
+{
+    return (tp->c_cflag & CBAUD);
+}
+#endif
+
+#ifdef L_cfgetispeed
+speed_t cfgetispeed(tp)
+struct termios *tp;
+{
+    return (tp->c_cflag & CBAUD);
+}
+#endif
+
+#ifdef L_cfsetospeed
+int cfsetospeed(tp, speed)
+struct termios *tp; speed_t speed;
+{
+#ifdef CBAUDEX
+    if ((speed & ~CBAUD) || 
+	((speed & CBAUDEX) && (speed < B57600 || speed > B115200)))
+	return 0;
+#else
+    if (speed & ~CBAUD)
+	return 0;
+#endif
+    tp->c_cflag &= ~CBAUD;
+    tp->c_cflag |= speed;
+
+    return 0;
+}
+#endif
+
+#ifdef L_cfsetispeed
+int cfsetispeed(tp, speed)
+struct termios *tp; speed_t speed;
+{
+    return cfsetospeed(tp, speed);
+}
+#endif
+
+#if 0
+
+/* Not POSIX standard, not worth the bother to keep it up */
+
+#ifdef L_tcspeed
+static struct {
+	int number;
+	speed_t code;
+} tcspeeds[] = {
+#ifdef B50
+	{50, B50},
+#endif
+#ifdef B75
+	{75, B75},
+#endif
+#ifdef B110
+	{110, B110},
+#endif
+#ifdef B134
+	{134, B134},
+#endif
+#ifdef B150
+	{150, B150},
+#endif
+#ifdef B200
+	{200, B200},
+#endif
+#ifdef B300
+	{300, B300},
+#endif
+#ifdef B600
+	{600, B600},
+#endif
+#ifdef B1200
+	{1200, B1200},
+#endif
+#ifdef B1800
+	{1800, B1800},
+#endif
+#ifdef B2400
+	{2400, B2400},
+#endif
+#ifdef B4800
+	{4800, B4800},
+#endif
+#ifdef B9600
+	{9600, B9600},
+#endif
+#ifdef B19200
+	{19200, B19200},
+#endif
+#ifdef B38400
+	{38400, B38400},
+#endif
+#ifdef B57600
+	{57600, B57600},
+#endif
+#ifdef B115200
+	{115200, B115200},
+#endif
+#ifdef B230400
+	{230400, B230400},
+#endif
+#ifdef B460800
+	{460800, B460800},
+#endif
+#ifdef B0
+	{0, B0},
+#endif
+	{0, 0}
+};
+
+int tcspeed_to_number(code)
+speed_t code;
+{
+    int i;
+    code &= CBAUD;
+    for(i=0;tcspeeds[i].code;i++)
+        if (tcspeeds[i].code == code)
+          return tcspeeds[i].number;
+    return 0;
+}
+
+speed_t tcspeed_from_number(number)
+int number;
+{
+    int i;
+    for(i=0;tcspeeds[i].code;i++)
+        if (tcspeeds[i].number == number)
+          return tcspeeds[i].code;
+    return B0;
+}
+#endif
+
+#ifdef L_cfgetospeedn
+int cfgetospeedn(tp)
+struct termios *tp;
+{
+    return tcspeed_to_number(cfgetospeed(tp));
+}
+#endif
+
+#ifdef L_cfgetispeedn
+int cfgetispeedn(tp)
+struct termios *tp;
+{
+    return tcspeed_to_number(cfgetispeed(tp));
+}
+#endif
+
+#ifdef L_cfsetospeedn
+int cfsetospeedn(tp, speed)
+struct termios *tp; int speed;
+{
+    return cfsetospeed(tp, tcspeed_from_number(speed));
+}
+#endif
+
+#ifdef L_cfsetispeedn
+int cfsetispeedn(tp, speed)
+struct termios *tp; int speed;
+{
+    return cfsetispeedn(tp, tcspeed_from_number(speed));
+}
+#endif
+
+#endif
+
+/* From linux libc-4.6.27 again */
+#ifdef L_cfmakeraw
+/* Copyright (C) 1992 Free Software Foundation, Inc.
+This file is part of the GNU C Library.*/
+
+void
+cfmakeraw(t)
+struct termios *t;
+{
+/* I changed it to the current form according to the suggestions 
+ * from Bruce Evans. Thanks Bruce. Please report the problems to
+ * H.J. Lu (hlu@eecs.wsu.edu).
+ */
+
+/*
+ * I took out the bits commented out by #if 1...#else    - RHP
+ */
+
+    /*  VMIN = 0 means non-blocking for Linux */
+    t->c_cc[VMIN] = 1; t->c_cc[VTIME] = 1;
+    /* clear some bits with &= ~(bits), set others with |= */
+    t->c_cflag &= ~(CSIZE|PARENB|CSTOPB);
+    t->c_cflag |=  (CS8|HUPCL|CREAD);
+    t->c_iflag &= ~(IGNBRK|BRKINT|PARMRK|INPCK|ISTRIP);
+    t->c_iflag &= ~(INLCR|IGNCR|ICRNL|IXON|IXOFF);
+    t->c_iflag |=  (BRKINT|IGNPAR);
+    t->c_oflag &= ~(OPOST|OLCUC|OCRNL|ONOCR|ONLRET|OFILL|OFDEL);
+    t->c_oflag &= ~(NLDLY|CRDLY|TABDLY|BSDLY|VTDLY|FFDLY);
+    t->c_oflag |=  (ONLCR|NL0|CR0|TAB3|BS0|VT0|FF0);
+    t->c_lflag &= ~(ISIG|ICANON|IEXTEN|ECHO|ECHOE|ECHOK|ECHONL);
+    t->c_lflag &= ~(NOFLSH|XCASE);
+    t->c_lflag &= ~(ECHOPRT|ECHOCTL|ECHOKE);
+}
+#endif
+
+#endif
diff --git a/libc/termios/ttyname.c b/libc/termios/ttyname.c
new file mode 100644
index 000000000..897243e71
--- /dev/null
+++ b/libc/termios/ttyname.c
@@ -0,0 +1,45 @@
+
+#include <errno.h>
+#include <sys/stat.h>
+#include <dirent.h>
+
+char *
+ttyname(fd)
+int   fd;
+{
+   static char dev[] = "/dev";
+   struct stat st, dst;
+   DIR  *fp;
+   struct dirent *d;
+   static char name[NAME_MAX];
+   int noerr = errno;
+
+   if (fstat(fd, &st) < 0)
+      return 0;
+   if (!isatty(fd))
+   {
+      errno = ENOTTY;
+      return 0;
+   }
+
+   fp = opendir(dev);
+   if (fp == 0)
+      return 0;
+   strcpy(name, dev);
+   strcat(name, "/");
+
+   while ((d = readdir(fp)) != 0)
+   {
+      strcpy(name + sizeof(dev), d->d_name);
+      if (stat(name, &dst) == 0
+         && st.st_dev == dst.st_dev && st.st_ino == dst.st_ino)
+      {
+	 closedir(fp);
+	 errno = noerr;
+	 return name;
+      }
+   }
+   closedir(fp);
+   errno = noerr;
+   return 0;
+}