projects / unix-history / blobdiff
? search:
summary | tags | clone url | shortlog | log | commit | commitdiff | tree
raw | inline | side by side
changes for local info, parity, vadic auto dialers
[unix-history] / usr / src / usr.bin / tip / tip.c
diff --git a/usr/src/usr.bin/tip/tip.c b/usr/src/usr.bin/tip/tip.c
index 5f95728..4e168f2 100644 (file)
--- a/usr/src/usr.bin/tip/tip.c
+++ b/usr/src/usr.bin/tip/tip.c
@@ -1,52 +1,15 @@
-/*     tip.c   4.3     81/05/18        */
+/*     tip.c   4.14    83/06/15        */
+
 /*
 /*
- * tip - Unix link to other systems
+ * tip - UNIX link to other systems
  *  tip [-v] [-speed] system-name
  *  tip [-v] [-speed] system-name
- *
- * Uses remote file for system descriptions.
- * Current commands (escapes):
- *
- *     ~!      fork a shell on the local machine
- *     ~c      change working directory on local machine
- *     ~^D     exit tip
- *     ~<      fetch file from remote system
- *     ~>      send file to remote system
- *     ~t      take a file from a remote UNIX (uses cat & echo)
- *     ~p      send a file to a remote UNIX (uses cat)
- *     ~|      fetch file from remote system and pipe it to
- *              a local process
- *     ~%      fork and wait for a program which inherits file
- *              descriptors 3 & 4 attached to the remote machine
- *              (optional by CONNECT define)
- *     ~s      set or show variable
- *     ~?      give a help summary
- *
- * Samuel J. Leffler   1-18-81
- *
- * sjl                 2-11-81
- * add auto-dial stuff for the BIZCOMP
- *
- * sjl                 2-14-81
- * cleaned up auto-dialer stuff and added variables
- *
- * sjl                 2-19-81
- * handle quit and interrupt during calls
- *
- * sjl                 3-8-81
- * made to pass lint
- *
- * sjl                 4-11-81
- * mods to handle both FIOCAPACITY and FIONREAD in biz.c
- *
- * sjl                 4-17-81
- * added take and put, made piping stuff work
- * honor uucp locks
- * rewrite remote file stuff for DN-11 like acu's and just to clean
- *   it up
+ * or
+ *  cu phone-number [-s speed] [-l line] [-a acu]
  */
  */
-
 #include "tip.h"
 
 #include "tip.h"
 
+static char *sccsid = "@(#)tip.c       4.14 %G%";
+
 /*
  * Baud rate mapping table
  */
 /*
  * Baud rate mapping table
  */
@@ -55,19 +18,29 @@ int bauds[] = {
        1200, 1800, 2400, 4800, 9600, 19200, -1
 };
 
        1200, 1800, 2400, 4800, 9600, 19200, -1
 };
 
+#ifdef VMUNIX
+int    disc = OTTYDISC;                /* tip normally runs this way */
+#endif
+
 int    intprompt();
 int    timeout();
 int    intprompt();
 int    timeout();
-static int cleanup();
+int    cleanup();
+char   *sname();
+extern char *sprintf();
 
 main(argc, argv)
 
 main(argc, argv)
-char *argv[];
+       char *argv[];
 {
        char *system = NOSTR;
        register int i;
 {
        char *system = NOSTR;
        register int i;
-#ifdef VMUNIX
-       int disc;
-#endif
-       char *p;
+       register char *p;
+       char sbuf[12];
+
+       if (equal(sname(argv[0]), "cu")) {
+               cumain(argc, argv);
+               cumode = 1;
+               goto cucommon;
+       }
 
        if (argc > 4) {
                fprintf(stderr, "usage: tip [-v] [-speed] [system-name]\n");
 
        if (argc > 4) {
                fprintf(stderr, "usage: tip [-v] [-speed] [system-name]\n");
@@ -77,18 +50,48 @@ char *argv[];
                fprintf(stderr, "tip: must be interactive\n");
                exit(1);
        }
                fprintf(stderr, "tip: must be interactive\n");
                exit(1);
        }
-       if (argc > 1 && argv[argc-1][0] != '-')
-               system = argv[argc-1];          /* always last item */
+
+       for (; argc > 1; argv++, argc--) {
+               if (argv[1][0] != '-')
+                       system = argv[1];
+               else switch (argv[1][1]) {
+
+               case 'v':
+                       vflag++;
+                       break;
+
+               case '0': case '1': case '2': case '3': case '4':
+               case '5': case '6': case '7': case '8': case '9':
+                       BR = atoi(&argv[1][1]);
+                       break;
+
+               default:
+                       fprintf(stderr, "tip: %s, unknown option\n", argv[1]);
+                       break;
+               }
+       }
+
+       if (system == NOSTR)
+               goto notnumber;
+       for (p = system; *p; p++)
+               if (isalpha(*p))
+                       goto notnumber;
+       PN = system;            /* system name is really a phone number */
+       system = sprintf(sbuf, "tip%d", BR);
+
+notnumber:
        signal(SIGINT, cleanup);
        signal(SIGQUIT, cleanup);
        signal(SIGHUP, cleanup);
        signal(SIGTERM, cleanup);
        signal(SIGINT, cleanup);
        signal(SIGQUIT, cleanup);
        signal(SIGHUP, cleanup);
        signal(SIGTERM, cleanup);
+
        if ((i = hunt(system)) == 0) {
                printf("all ports busy\n");
                exit(3);
        }
        if (i == -1) {
                printf("link down\n");
        if ((i = hunt(system)) == 0) {
                printf("all ports busy\n");
                exit(3);
        }
        if (i == -1) {
                printf("link down\n");
+               delock(uucplock);
                exit(3);
        }
        setbuf(stdout, NULL);
                exit(3);
        }
        setbuf(stdout, NULL);
@@ -100,11 +103,9 @@ char *argv[];
         *  because locking mechanism on the tty and the accounting
         *  will be bypassed.
         */
         *  because locking mechanism on the tty and the accounting
         *  will be bypassed.
         */
-       setuid(getuid());
        setgid(getgid());
        setgid(getgid());
-       for (i = 1; i < argc-1; i++)
-               if (equal(argv[i], "-v"))
-                       vflag++;
+       setuid(getuid());
+
        /*
         * Kludge, their's no easy way to get the initialization
         *   in the right order, so force it here
        /*
         * Kludge, their's no easy way to get the initialization
         *   in the right order, so force it here
@@ -112,51 +113,58 @@ char *argv[];
        if ((PH = getenv("PHONES")) == NOSTR)
                PH = "/etc/phones";
        vinit();                                /* init variables */
        if ((PH = getenv("PHONES")) == NOSTR)
                PH = "/etc/phones";
        vinit();                                /* init variables */
-       for (i = 1; i < argc-1; i++)
-               if (argv[i][0] == '-' && argv[i][1] != 'v') {
-                       if (isnum(argv[i][1]))
-                               number(value(BAUDRATE)) = atoi(&argv[i][1]);
-                       else
-                               printf("%s: unknown option\n", argv[i]);
-               }
-       if ((arg.sg_ispeed = speed(number(value(BAUDRATE)))) == NULL) {
+       setparity();                            /* set the parity table */
+       if ((i = speed(number(value(BAUDRATE)))) == NULL) {
                printf("tip: bad baud rate %d\n", number(value(BAUDRATE)));
                delock(uucplock);
                exit(3);
        }
                printf("tip: bad baud rate %d\n", number(value(BAUDRATE)));
                delock(uucplock);
                exit(3);
        }
-       arg.sg_ospeed = arg.sg_ispeed;
+
        /*
        /*
-        * NOTE that remote side runs in TANDEM mode,
-        *  if the host doesn't honor X-ON/X-OFF with default
-        *  start/stop chars, the remote description must be
-        *  extended and tchars will have to be set up here.
-        * If the host doesn't honor TANDEM mode, then watch
-        *  out, as you'll get garbage.
+        * Hardwired connections require the
+        *  line speed set before they make any transmissions
+        *  (this is particularly true of things like a DF03-AC)
         */
         */
-       arg.sg_flags = RAW | TANDEM;
-       ioctl(FD, TIOCSETP, &arg);
-
-       ioctl(0, TIOCGETP, &defarg);    /* store initial status */
-       ioctl(0, TIOCGETC, &defchars);
-       arg = defarg;
-       arg.sg_flags = ANYP | CBREAK;
-       tchars = defchars;
-       tchars.t_intrc = tchars.t_quitc = -1;
-
+       if (HW)
+               ttysetup(i);
        if (p = connect()) {
                printf("\07%s\n[EOT]\n", p);
                delock(uucplock);
                exit(1);
        }
        if (p = connect()) {
                printf("\07%s\n[EOT]\n", p);
                delock(uucplock);
                exit(1);
        }
-       write(1, "\07connected\n", 11);
-       raw();
+       if (!HW)
+               ttysetup(i);
+cucommon:
+       /*
+        * From here down the code is shared with
+        * the "cu" version of tip.
+        */
+       ioctl(0, TIOCGETP, (char *)&defarg);
+       ioctl(0, TIOCGETC, (char *)&defchars);
+       ioctl(0, TIOCGLTC, (char *)&deflchars);
 #ifdef VMUNIX
        ioctl(0, TIOCGETD, (char *)&odisc);
 #ifdef VMUNIX
        ioctl(0, TIOCGETD, (char *)&odisc);
-       disc = OTTYDISC;
-       ioctl(0, TIOCSETD, (char *)&disc);
 #endif
 #endif
+       arg = defarg;
+       arg.sg_flags = ANYP | CBREAK;
+       tchars = defchars;
+       tchars.t_intrc = tchars.t_quitc = -1;
+       ltchars = deflchars;
+       ltchars.t_suspc = ltchars.t_dsuspc = ltchars.t_flushc
+               = ltchars.t_lnextc = -1;
+       raw();
+
        pipe(fildes); pipe(repdes);
        signal(SIGALRM, timeout);
        pipe(fildes); pipe(repdes);
        signal(SIGALRM, timeout);
+
+       /*
+        * Everything's set up now:
+        *      connection established (hardwired or diaulup)
+        *      line conditioned (baud rate, mode, etc.)
+        *      internal data structures (variables)
+        * so, fork one process for local side and one for remote.
+        */
+       printf(cumode ? "Connected\r\n" : "\07connected\r\n");
        if (pid = fork())
                tipin();
        else
        if (pid = fork())
                tipin();
        else
@@ -164,10 +172,13 @@ char *argv[];
        /*NOTREACHED*/
 }
 
        /*NOTREACHED*/
 }
 
-static
 cleanup()
 {
        delock(uucplock);
 cleanup()
 {
        delock(uucplock);
+#ifdef VMUNIX
+       if (odisc)
+               ioctl(0, TIOCSETD, (char *)&odisc);
+#endif
        exit(0);
 }
 
        exit(0);
 }
 
@@ -178,6 +189,10 @@ raw()
 {
        ioctl(0, TIOCSETP, &arg);
        ioctl(0, TIOCSETC, &tchars);
 {
        ioctl(0, TIOCSETP, &arg);
        ioctl(0, TIOCSETC, &tchars);
+       ioctl(0, TIOCSLTC, &ltchars);
+#ifdef VMUNIX
+       ioctl(0, TIOCSETD, (char *)&disc);
+#endif
 }
 
 
 }
 
 
@@ -186,8 +201,12 @@ raw()
  */
 unraw()
 {
  */
 unraw()
 {
-       ioctl(0, TIOCSETP, &defarg);
-       ioctl(0, TIOCSETC, &defchars);
+#ifdef VMUNIX
+       ioctl(0, TIOCSETD, (char *)&odisc);
+#endif
+       ioctl(0, TIOCSETP, (char *)&defarg);
+       ioctl(0, TIOCSETC, (char *)&defchars);
+       ioctl(0, TIOCSLTC, (char *)&deflchars);
 }
 
 /*
 }
 
 /*
@@ -253,22 +272,23 @@ tipin()
                if ((gch == character(value(ESCAPE))) && bol) {
                        if (!(gch = escape()))
                                continue;
                if ((gch == character(value(ESCAPE))) && bol) {
                        if (!(gch = escape()))
                                continue;
-               } else if (gch == character(value(RAISECHAR))) {
+               } else if (!cumode && gch == character(value(RAISECHAR))) {
                        boolean(value(RAISE)) = !boolean(value(RAISE));
                        boolean(value(RAISE)) = !boolean(value(RAISE));
-                       printf("%s", ctrl(character(value(RAISECHAR))));
                        continue;
                } else if (gch == '\r') {
                        bol = 1;
                        continue;
                } else if (gch == '\r') {
                        bol = 1;
-                       write(FD, &gch, 1);
+                       pwrite(FD, &gch, 1);
+                       if (boolean(value(HALFDUPLEX)))
+                               printf("\r\n");
                        continue;
                        continue;
-               } else if (gch == character(value(FORCE))) {
-                       printf("%s", ctrl(character(value(FORCE))));
+               } else if (!cumode && gch == character(value(FORCE)))
                        gch = getchar()&0177;
                        gch = getchar()&0177;
-               }
                bol = any(gch, value(EOL));
                if (boolean(value(RAISE)) && islower(gch))
                bol = any(gch, value(EOL));
                if (boolean(value(RAISE)) && islower(gch))
-                       toupper(gch);
-               write(FD, &gch, 1);
+                       gch = toupper(gch);
+               pwrite(FD, &gch, 1);
+               if (boolean(value(HALFDUPLEX)))
+                       printf("%c", gch);
        }
 }
 
        }
 }
 
@@ -292,8 +312,9 @@ escape()
                        (*p->e_func)(gch);
                        return(0);
                }
                        (*p->e_func)(gch);
                        return(0);
                }
-
-       write(FD, &c, 1);
+       /* ESCAPE ESCAPE forces ESCAPE */
+       if (c != gch)
+               pwrite(FD, &c, 1);
        return(gch);
 }
 
        return(gch);
 }
 
@@ -310,6 +331,7 @@ speed(n)
 any(c, p)
        register char c, *p;
 {
 any(c, p)
        register char c, *p;
 {
+       if (p)
        while (*p)
                if (*p++ == c)
                        return(1);
        while (*p)
                if (*p++ == c)
                        return(1);
@@ -386,3 +408,99 @@ help(c)
                        p->e_flags&EXP ? '*': ' ', p->e_help);
        }
 }
                        p->e_flags&EXP ? '*': ' ', p->e_help);
        }
 }
+
+/*
+ * Set up the "remote" tty's state
+ */
+ttysetup(speed)
+{
+#ifdef VMUNIX
+       unsigned bits = LDECCTQ;
+#endif
+
+       arg.sg_ispeed = arg.sg_ospeed = speed;
+       if (boolean(value(TAND)))
+               arg.sg_flags = TANDEM|RAW;
+       else
+               arg.sg_flags = RAW;
+       ioctl(FD, TIOCSETP, (char *)&arg);
+#ifdef VMUNIX
+       ioctl(FD, TIOCLBIS, (char *)&bits);
+#endif
+}
+
+/*
+ * Return "simple" name from a file name,
+ * strip leading directories.
+ */
+char *
+sname(s)
+       register char *s;
+{
+       register char *p = s;
+
+       while (*s)
+               if (*s++ == '/')
+                       p = s;
+       return (p);
+}
+
+extern char chartab[];
+static char partab[0200];
+
+/*
+ * do a write to the remote machine with the correct parity
+ * we are doing 8 bit wide output, so we just generate a character
+ * with the right parity and output it.
+ */
+pwrite(fd, buf, n)
+       int fd;
+       char *buf;
+       register int n;
+{
+       register int i;
+       register char *bp = buf;
+
+       for (i = 0, bp = buf; i < n; i++, bp++) {
+               *bp = partab[(*bp) & 0177];
+       }
+       write(fd, buf, n);
+}
+
+/*
+ * build a parity table with the right high-order bit
+ * copy an even-parity table and doctor it
+ */
+setparity()
+{
+       int i;
+       char *parity;
+
+       if (value(PARITY) == NOSTR)
+               value(PARITY) = "even";
+
+       parity = value(PARITY);
+
+       for (i = 0; i < 0200; i++)
+               partab[i] = chartab[i];
+
+       if (equal(parity, "odd")) {
+               for (i = 0; i < 0200; i++)
+                       partab[i] ^= 0200;      /* reverse bit 7 */
+       }
+       else if (equal(parity, "none") || equal(parity, "zero")) {
+               for (i = 0; i < 0200; i++)
+                       partab[i] &= ~0200;     /* turn off bit 7 */
+       }
+       else if (equal(parity, "one")) {
+               for (i = 0; i < 0200; i++)
+                       partab[i] |= 0200;      /* turn on bit 7 */
+       }
+       else if (equal(parity, "even")) {
+               /* table is already even parity */
+       }
+       else {
+               fprintf(stderr, "parity value %s unknown\n", PA);
+               fflush(stderr);
+       }
+}
Continuous source code history from original PDP-7 UNIX to FreeBSD 2, the first fully unencumbered FreeBSD release.