![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to mt.c CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [CSRG BSD Unix] / 43BSDReno / usr.bin / mt|
Return to mt.c CVS log | Up to [CSRG BSD Unix] / 43BSDReno / usr.bin / mt |
1.1 root 1: /*
2: * Copyright (c) 1980 The Regents of the University of California.
3: * All rights reserved.
4: *
5: * Redistribution and use in source and binary forms are permitted
6: * provided that: (1) source distributions retain this entire copyright
7: * notice and comment, and (2) distributions including binaries display
8: * the following acknowledgement: ``This product includes software
9: * developed by the University of California, Berkeley and its contributors''
10: * in the documentation or other materials provided with the distribution
11: * and in all advertising materials mentioning features or use of this
12: * software. Neither the name of the University nor the names of its
13: * contributors may be used to endorse or promote products derived
14: * from this software without specific prior written permission.
15: * THIS SOFTWARE IS PROVIDED ``AS IS'' AND WITHOUT ANY EXPRESS OR
16: * IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED
17: * WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE.
18: */
19:
20: #ifndef lint
21: char copyright[] =
22: "@(#) Copyright (c) 1980 The Regents of the University of California.\n\
23: All rights reserved.\n";
24: #endif /* not lint */
25:
26: #ifndef lint
27: static char sccsid[] = "@(#)mt.c 5.4 (Berkeley) 6/1/90";
28: #endif /* not lint */
29:
30: /*
31: * mt --
32: * magnetic tape manipulation program
33: */
34: #include <stdio.h>
35: #include <ctype.h>
36: #include <sys/types.h>
37: #include <sys/mtio.h>
38: #include <sys/ioctl.h>
39:
40: #define equal(s1,s2) (strcmp(s1, s2) == 0)
41:
42: struct commands {
43: char *c_name;
44: int c_code;
45: int c_ronly;
46: } com[] = {
47: { "weof", MTWEOF, 0 },
48: { "eof", MTWEOF, 0 },
49: { "fsf", MTFSF, 1 },
50: { "bsf", MTBSF, 1 },
51: { "fsr", MTFSR, 1 },
52: { "bsr", MTBSR, 1 },
53: { "rewind", MTREW, 1 },
54: { "offline", MTOFFL, 1 },
55: { "rewoffl", MTOFFL, 1 },
56: { "status", MTNOP, 1 },
57: { 0 }
58: };
59:
60: int mtfd;
61: struct mtop mt_com;
62: struct mtget mt_status;
63: char *tape;
64:
65: main(argc, argv)
66: char **argv;
67: {
68: char line[80], *getenv();
69: register char *cp;
70: register struct commands *comp;
71:
72: if (argc > 2 && (equal(argv[1], "-t") || equal(argv[1], "-f"))) {
73: argc -= 2;
74: tape = argv[2];
75: argv += 2;
76: } else
77: if ((tape = getenv("TAPE")) == NULL)
78: tape = DEFTAPE;
79: if (argc < 2) {
80: fprintf(stderr, "usage: mt [ -f device ] command [ count ]\n");
81: exit(1);
82: }
83: cp = argv[1];
84: for (comp = com; comp->c_name != NULL; comp++)
85: if (strncmp(cp, comp->c_name, strlen(cp)) == 0)
86: break;
87: if (comp->c_name == NULL) {
88: fprintf(stderr, "mt: don't grok \"%s\"\n", cp);
89: exit(1);
90: }
91: if ((mtfd = open(tape, comp->c_ronly ? 0 : 2)) < 0) {
92: perror(tape);
93: exit(1);
94: }
95: if (comp->c_code != MTNOP) {
96: mt_com.mt_op = comp->c_code;
97: mt_com.mt_count = (argc > 2 ? atoi(argv[2]) : 1);
98: if (mt_com.mt_count < 0) {
99: fprintf(stderr, "mt: negative repeat count\n");
100: exit(1);
101: }
102: if (ioctl(mtfd, MTIOCTOP, &mt_com) < 0) {
103: fprintf(stderr, "%s %s %d ", tape, comp->c_name,
104: mt_com.mt_count);
105: perror("failed");
106: exit(2);
107: }
108: } else {
109: if (ioctl(mtfd, MTIOCGET, (char *)&mt_status) < 0) {
110: perror("mt");
111: exit(2);
112: }
113: status(&mt_status);
114: }
115: }
116:
117: #ifdef vax
118: #include <vaxmba/mtreg.h>
119: #include <vaxmba/htreg.h>
120:
121: #include <vaxuba/utreg.h>
122: #include <vaxuba/tmreg.h>
123: #undef b_repcnt /* argh */
124: #include <vaxuba/tsreg.h>
125: #endif
126:
127: #ifdef sun
128: #include <sundev/tmreg.h>
129: #include <sundev/arreg.h>
130: #endif
131:
132: #ifdef tahoe
133: #include <tahoevba/cyreg.h>
134: #endif
135:
136: struct tape_desc {
137: short t_type; /* type of magtape device */
138: char *t_name; /* printing name */
139: char *t_dsbits; /* "drive status" register */
140: char *t_erbits; /* "error" register */
141: } tapes[] = {
142: #ifdef vax
143: { MT_ISTS, "ts11", 0, TSXS0_BITS },
144: { MT_ISHT, "tm03", HTDS_BITS, HTER_BITS },
145: { MT_ISTM, "tm11", 0, TMER_BITS },
146: { MT_ISMT, "tu78", MTDS_BITS, 0 },
147: { MT_ISUT, "tu45", UTDS_BITS, UTER_BITS },
148: #endif
149: #ifdef sun
150: { MT_ISCPC, "TapeMaster", TMS_BITS, 0 },
151: { MT_ISAR, "Archive", ARCH_CTRL_BITS, ARCH_BITS },
152: #endif
153: #ifdef tahoe
154: { MT_ISCY, "cipher", CYS_BITS, CYCW_BITS },
155: #endif
156: { 0 }
157: };
158:
159: /*
160: * Interpret the status buffer returned
161: */
162: status(bp)
163: register struct mtget *bp;
164: {
165: register struct tape_desc *mt;
166:
167: for (mt = tapes; mt->t_type; mt++)
168: if (mt->t_type == bp->mt_type)
169: break;
170: if (mt->t_type == 0) {
171: printf("unknown tape drive type (%d)\n", bp->mt_type);
172: return;
173: }
174: printf("%s tape drive, residual=%d\n", mt->t_name, bp->mt_resid);
175: printreg("ds", bp->mt_dsreg, mt->t_dsbits);
176: printreg("\ner", bp->mt_erreg, mt->t_erbits);
177: putchar('\n');
178: }
179:
180: /*
181: * Print a register a la the %b format of the kernel's printf
182: */
183: printreg(s, v, bits)
184: char *s;
185: register char *bits;
186: register unsigned short v;
187: {
188: register int i, any = 0;
189: register char c;
190:
191: if (bits && *bits == 8)
192: printf("%s=%o", s, v);
193: else
194: printf("%s=%x", s, v);
195: bits++;
196: if (v && bits) {
197: putchar('<');
198: while (i = *bits++) {
199: if (v & (1 << (i-1))) {
200: if (any)
201: putchar(',');
202: any = 1;
203: for (; (c = *bits) > 32; bits++)
204: putchar(c);
205: } else
206: for (; *bits > 32; bits++)
207: ;
208: }
209: putchar('>');
210: }
211: }
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.