1 /***********************************************************************
2 * *
3 * This software is part of the ast package *
4 * Copyright (c) 1985-2011 AT&T Intellectual Property *
5 * and is licensed under the *
6 * Eclipse Public License, Version 1.0 *
7 * by AT&T Intellectual Property *
8 * *
9 * A copy of the License is available at *
10 * http://www.eclipse.org/org/documents/epl-v10.html *
11 * (with md5 checksum b35adb5213ca9657e911e9befb180842) *
12 * *
13 * Information and Software Systems Research *
14 * AT&T Research *
15 * Florham Park NJ *
16 * *
17 * Glenn Fowler <gsf@research.att.com> *
18 * David Korn <dgk@research.att.com> *
19 * Phong Vo <kpv@research.att.com> *
20 * *
21 ***********************************************************************/
22 #pragma prototyped
23 /*
24 * local device pathname for portable tape unit specification is returned
25 * if e is non-null then it is set to the next unused char in s
26 *
27 * <unit><density>[<no-rewind>]
28 * {0-7}[l,m,h,u,c][n]
29 */
30
31 #include <ast.h>
32
33 char*
strtape(register const char * s,register char ** e)34 strtape(register const char* s, register char** e)
35 {
36 int mtunit = '0';
37 int mtdensity = 0;
38 char mtrewind[2];
39 char mtbehavior[2];
40
41 static char tapefile[sizeof("/dev/Xrmt/123456789")];
42
43 mtrewind[0] = mtrewind[1] = mtbehavior[0] = mtbehavior[1] = 0;
44 for (;;)
45 {
46 switch (*s)
47 {
48 case '0':
49 case '1':
50 case '2':
51 case '3':
52 case '4':
53 case '5':
54 case '6':
55 case '7':
56 mtunit = *s++;
57 continue;
58 case 'b':
59 case 'v':
60 mtbehavior[0] = *s++;
61 continue;
62 case 'l':
63 case 'm':
64 case 'h':
65 case 'u':
66 case 'c':
67 mtdensity = *s++;
68 continue;
69 case 'n':
70 mtrewind[0] = *s++;
71 continue;
72 }
73 break;
74 }
75 if (e) *e = (char*)s;
76 if (!access("/dev/rmt/.", F_OK))
77 {
78 /*
79 * system V
80 */
81
82 if (!mtdensity) mtdensity = 'm';
83 sfsprintf(tapefile, sizeof(tapefile), "/dev/rmt/ctape%c%s", mtunit, mtrewind);
84 if (!access(tapefile, F_OK)) return(tapefile);
85 for (;;)
86 {
87 sfsprintf(tapefile, sizeof(tapefile), "/dev/rmt/%c%c%s%s", mtunit, mtdensity, mtbehavior, mtrewind);
88 if (!access(tapefile, F_OK)) return(tapefile);
89 if (!mtbehavior[0]) break;
90 mtbehavior[0] = 0;
91 }
92 }
93 else if (!access("/dev/nst0", F_OK))
94 {
95 /*
96 * linux
97 */
98
99 sfsprintf(tapefile, sizeof(tapefile), "/dev/%sst%c", mtrewind, mtunit);
100 }
101 else if (!access("/dev/nrmt0", F_OK))
102 {
103 /*
104 * 9th edition
105 */
106
107 switch (mtdensity)
108 {
109 case 'l':
110 mtunit = '0';
111 break;
112 case 'm':
113 mtunit = '1';
114 break;
115 case 'h':
116 mtunit = '2';
117 break;
118 }
119 sfsprintf(tapefile, sizeof(tapefile), "/dev/%srmt%c", mtrewind, mtunit);
120 }
121 else
122 {
123 /*
124 * BSD
125 */
126
127 mtunit -= '0';
128 switch (mtdensity)
129 {
130 case 'l':
131 break;
132 case 'h':
133 mtunit |= 020;
134 break;
135 default:
136 mtunit |= 010;
137 break;
138 }
139 switch (mtrewind[0])
140 {
141 case 'n':
142 mtunit |= 040;
143 break;
144 }
145 sfsprintf(tapefile, sizeof(tapefile), "/dev/rmt%d", mtunit);
146 }
147 return(tapefile);
148 }
149