more fixes from jsq@utexas-11

[unix-history] / usr / src / usr.bin / mt / mt.c

diff --git a/usr/src/usr.bin/mt/mt.c b/usr/src/usr.bin/mt/mt.c
index 6af04a4..cf4baf8 100644 (file)
--- a/usr/src/usr.bin/mt/mt.c
+++ b/usr/src/usr.bin/mt/mt.c
@@ -1,58 +1,57 @@
-static char *sccsid = "@(#)mt.c        4.1 (Berkeley) 81/05/11";
-
+static char *sccsid = "@(#)mt.c        4.7 (Berkeley) 83/02/09";

 /*
 /*

- * mt
+ * mt --
+ *   magnetic tape manipulation program

  */
  */

-

 #include <stdio.h>
 #include <ctype.h>
 #include <sys/types.h>
 #include <sys/mtio.h>
 #include <sys/ioctl.h>
 
 #include <stdio.h>
 #include <ctype.h>
 #include <sys/types.h>
 #include <sys/mtio.h>
 #include <sys/ioctl.h>
 

+#define        equal(s1,s2)    (strcmp(s1, s2) == 0)
+

 struct commands {
        char *c_name;
        int c_code;
 struct commands {
        char *c_name;
        int c_code;

+       int c_ronly;

 } com[] = {
 } com[] = {

-       "eof",  MTWEOF,
-       "fsf",  MTFSF,
-       "bsf",  MTBSF,
-       "fsr",  MTFSR,
-       "bsr",  MTBSR,
-       "rewind",       MTREW,
-       "offline",      MTOFFL,
-       0,0
+       { "weof",       MTWEOF, 0 },
+       { "eof",        MTWEOF, 0 },
+       { "fsf",        MTFSF,  1 },
+       { "bsf",        MTBSF,  1 },
+       { "fsr",        MTFSR,  1 },
+       { "bsr",        MTBSR,  1 },
+       { "rewind",     MTREW,  1 },
+       { "offline",    MTOFFL, 1 },
+       { "rewoffl",    MTOFFL, 1 },
+       { "status",     MTNOP,  1 },
+       { 0 }

 };
 
 int mtfd;
 struct mtop mt_com;
 };
 
 int mtfd;
 struct mtop mt_com;

+struct mtget mt_status;

 char *tape;
 
 main(argc, argv)
 char *tape;
 
 main(argc, argv)

-char **argv;
+       char **argv;

 {
        char line[80], *getenv();
        register char *cp;
        register struct commands *comp;
 
        if (argc < 2) {
 {
        char line[80], *getenv();
        register char *cp;
        register struct commands *comp;
 
        if (argc < 2) {

-               fprintf(stderr, "usage: mt [ -t tape ] command [ count ]\n");
+               fprintf(stderr, "usage: mt [ -f device ] command [ count ]\n");

                exit(1);
        }
                exit(1);
        }

-       if ((strcmp(argv[1], "-t") == 0) && argc > 2) {
+       if ((equal(argv[1], "-t") || equal(argv[1], "-f")) && argc > 2) {

                argc -= 2;
                tape = argv[2];
                argv += 2;
        } else
                if ((tape = getenv("TAPE")) == NULL)
                argc -= 2;
                tape = argv[2];
                argv += 2;
        } else
                if ((tape = getenv("TAPE")) == NULL)

-                       tape = "/dev/rmt12";
-       if ((mtfd = open(tape, 2)) < 0) {
-               if ((mtfd = open(tape, 0)) < 0) {
-                       perror(tape);
-                       exit(1);
-               }
-       }
-
+                       tape = DEFTAPE;

        cp = argv[1];
        for (comp = com; comp->c_name != NULL; comp++)
                if (strncmp(cp, comp->c_name, strlen(cp)) == 0)
        cp = argv[1];
        for (comp = com; comp->c_name != NULL; comp++)
                if (strncmp(cp, comp->c_name, strlen(cp)) == 0)


@@ -61,10 +60,117 @@ char **argv;
                fprintf(stderr, "mt: don't grok \"%s\"\n", cp);
                exit(1);
        }
                fprintf(stderr, "mt: don't grok \"%s\"\n", cp);
                exit(1);
        }

-       mt_com.mt_count = (argc > 2 ? atoi(argv[2]) : 1);
-       mt_com.mt_op = comp->c_code;
-       if (ioctl(mtfd, MTIOCTOP, &mt_com) < 0) {
-               fprintf(stderr, "%s %d ", comp->c_name, mt_com.mt_count);
-               perror("failed");
+       if ((mtfd = open(tape, comp->c_ronly ? 0 : 2)) < 0) {
+               perror(tape);
+               exit(1);
+       }
+       if (comp->c_code != MTNOP) {
+               mt_com.mt_op = comp->c_code;
+               mt_com.mt_count = (argc > 2 ? atoi(argv[2]) : 1);
+               if (mt_com.mt_count < 0) {
+                       fprintf(stderr, "mt: negative repeat count\n");
+                       exit(1);
+               }
+               if (ioctl(mtfd, MTIOCTOP, &mt_com) < 0) {
+                       fprintf(stderr, "%s %s %d ", tape, comp->c_name,
+                               mt_com.mt_count);
+                       perror("failed");
+                       exit(2);
+               }
+       } else {
+               if (ioctl(mtfd, MTIOCGET, (char *)&mt_status) < 0) {
+                       perror("mt");
+                       exit(2);
+               }
+               status(&mt_status);
+       }
+}
+
+#ifdef vax
+#include <vaxmba/mtreg.h>
+#include <vaxmba/htreg.h>
+
+#include <vaxuba/utreg.h>
+#include <vaxuba/tmreg.h>
+#undef b_repcnt                /* argh */
+#include <vaxuba/tsreg.h>
+#endif
+
+#ifdef sun
+#include <sundev/tmreg.h>
+#include <sundev/arreg.h>
+#endif
+
+struct tape_desc {
+       short   t_type;         /* type of magtape device */
+       char    *t_name;        /* printing name */
+       char    *t_dsbits;      /* "drive status" register */
+       char    *t_erbits;      /* "error" register */
+} tapes[] = {
+#ifdef vax
+       { MT_ISTS,      "ts11",         0,              TSXS0_BITS },
+       { MT_ISHT,      "tm03",         HTDS_BITS,      HTER_BITS },
+       { MT_ISTM,      "tm11",         0,              TMER_BITS },
+       { MT_ISMT,      "tu78",         MTDS_BITS,      0 },
+       { MT_ISUT,      "tu45",         UTDS_BITS,      UTER_BITS },
+#endif
+#ifdef sun
+       { MT_ISCPC,     "TapeMaster",   TMS_BITS,       0 },
+       { MT_ISAR,      "Archive",      ARCH_CTRL_BITS, ARCH_BITS },
+#endif
+       { 0 }
+};
+
+/*
+ * Interpret the status buffer returned
+ */
+status(bp)
+       register struct mtget *bp;
+{
+       register struct tape_desc *mt;
+
+       for (mt = tapes; mt->t_type; mt++)
+               if (mt->t_type == bp->mt_type)
+                       break;
+       if (mt->t_type == 0) {
+               printf("unknown tape drive type (%d)\n", bp->mt_type);
+               return;
+       }
+       printf("%s tape drive, residual=%d\n", mt->t_name, bp->mt_resid);
+       printreg("ds", bp->mt_dsreg, mt->t_dsbits);
+       printreg("\ner", bp->mt_erreg, mt->t_erbits);
+       putchar('\n');
+}
+
+/*
+ * Print a register a la the %b format of the kernel's printf
+ */
+printreg(s, v, bits)
+       char *s;
+       register char *bits;
+       register unsigned short v;
+{
+       register int i, any = 0;
+       register char c;
+
+       if (bits && *bits == 8)
+               printf("%s=%o", s, v);
+       else
+               printf("%s=%x", s, v);
+       bits++;
+       if (v && bits) {
+               putchar('<');
+               while (i = *bits++) {
+                       if (v & (1 << (i-1))) {
+                               if (any)
+                                       putchar(',');
+                               any = 1;
+                               for (; (c = *bits) > 32; bits++)
+                                       putchar(c);
+                       } else
+                               for (; *bits > 32; bits++)
+                                       ;
+               }
+               putchar('>');

        }
 }
        }
 }