ch.c revision 1.37 1 1.37 gibbs /* $NetBSD: ch.c,v 1.37 1998/12/17 22:28:07 gibbs Exp $ */
2 1.8 cgd
3 1.1 cgd /*
4 1.35 thorpej * Copyright (c) 1996, 1997, 1998 Jason R. Thorpe <thorpej (at) and.com>
5 1.20 thorpej * All rights reserved.
6 1.20 thorpej *
7 1.20 thorpej * Partially based on an autochanger driver written by Stefan Grefen
8 1.20 thorpej * and on an autochanger driver written by the Systems Programming Group
9 1.20 thorpej * at the University of Utah Computer Science Department.
10 1.6 mycroft *
11 1.6 mycroft * Redistribution and use in source and binary forms, with or without
12 1.6 mycroft * modification, are permitted provided that the following conditions
13 1.6 mycroft * are met:
14 1.6 mycroft * 1. Redistributions of source code must retain the above copyright
15 1.6 mycroft * notice, this list of conditions and the following disclaimer.
16 1.6 mycroft * 2. Redistributions in binary form must reproduce the above copyright
17 1.6 mycroft * notice, this list of conditions and the following disclaimer in the
18 1.6 mycroft * documentation and/or other materials provided with the distribution.
19 1.6 mycroft * 3. All advertising materials mentioning features or use of this software
20 1.20 thorpej * must display the following acknowledgements:
21 1.20 thorpej * This product includes software developed by Jason R. Thorpe
22 1.20 thorpej * for And Communications, http://www.and.com/
23 1.6 mycroft * 4. The name of the author may not be used to endorse or promote products
24 1.6 mycroft * derived from this software without specific prior written permission.
25 1.6 mycroft *
26 1.6 mycroft * THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR
27 1.6 mycroft * IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES
28 1.6 mycroft * OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.
29 1.6 mycroft * IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR ANY DIRECT, INDIRECT,
30 1.20 thorpej * INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES (INCLUDING,
31 1.20 thorpej * BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES;
32 1.20 thorpej * LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED
33 1.20 thorpej * AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY,
34 1.20 thorpej * OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
35 1.20 thorpej * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
36 1.20 thorpej * SUCH DAMAGE.
37 1.6 mycroft */
38 1.1 cgd
39 1.1 cgd #include <sys/param.h>
40 1.1 cgd #include <sys/systm.h>
41 1.1 cgd #include <sys/errno.h>
42 1.1 cgd #include <sys/ioctl.h>
43 1.1 cgd #include <sys/buf.h>
44 1.1 cgd #include <sys/proc.h>
45 1.1 cgd #include <sys/user.h>
46 1.20 thorpej #include <sys/chio.h>
47 1.6 mycroft #include <sys/device.h>
48 1.20 thorpej #include <sys/malloc.h>
49 1.21 christos #include <sys/conf.h>
50 1.22 thorpej #include <sys/fcntl.h>
51 1.1 cgd
52 1.27 bouyer #include <dev/scsipi/scsipi_all.h>
53 1.27 bouyer #include <dev/scsipi/scsi_all.h>
54 1.27 bouyer #include <dev/scsipi/scsi_changer.h>
55 1.27 bouyer #include <dev/scsipi/scsiconf.h>
56 1.1 cgd
57 1.20 thorpej #define CHRETRIES 2
58 1.20 thorpej #define CHUNIT(x) (minor((x)))
59 1.20 thorpej
60 1.20 thorpej struct ch_softc {
61 1.20 thorpej struct device sc_dev; /* generic device info */
62 1.27 bouyer struct scsipi_link *sc_link; /* link in the SCSI bus */
63 1.20 thorpej
64 1.20 thorpej int sc_picker; /* current picker */
65 1.1 cgd
66 1.20 thorpej /*
67 1.20 thorpej * The following information is obtained from the
68 1.20 thorpej * element address assignment page.
69 1.20 thorpej */
70 1.20 thorpej int sc_firsts[4]; /* firsts, indexed by CHET_* */
71 1.20 thorpej int sc_counts[4]; /* counts, indexed by CHET_* */
72 1.1 cgd
73 1.20 thorpej /*
74 1.20 thorpej * The following mask defines the legal combinations
75 1.20 thorpej * of elements for the MOVE MEDIUM command.
76 1.20 thorpej */
77 1.20 thorpej u_int8_t sc_movemask[4];
78 1.20 thorpej
79 1.20 thorpej /*
80 1.20 thorpej * As above, but for EXCHANGE MEDIUM.
81 1.20 thorpej */
82 1.20 thorpej u_int8_t sc_exchangemask[4];
83 1.1 cgd
84 1.20 thorpej int flags; /* misc. info */
85 1.26 thorpej
86 1.26 thorpej /*
87 1.26 thorpej * Quirks; see below.
88 1.26 thorpej */
89 1.26 thorpej int sc_settledelay; /* delay for settle */
90 1.26 thorpej
91 1.6 mycroft };
92 1.6 mycroft
93 1.20 thorpej /* sc_flags */
94 1.20 thorpej #define CHF_ROTATE 0x01 /* picker can rotate */
95 1.20 thorpej
96 1.20 thorpej /* Autoconfiguration glue */
97 1.25 cgd int chmatch __P((struct device *, struct cfdata *, void *));
98 1.15 christos void chattach __P((struct device *, struct device *, void *));
99 1.6 mycroft
100 1.17 thorpej struct cfattach ch_ca = {
101 1.17 thorpej sizeof(struct ch_softc), chmatch, chattach
102 1.17 thorpej };
103 1.17 thorpej
104 1.32 thorpej extern struct cfdriver ch_cd;
105 1.1 cgd
106 1.27 bouyer struct scsipi_inquiry_pattern ch_patterns[] = {
107 1.20 thorpej {T_CHANGER, T_REMOV,
108 1.20 thorpej "", "", ""},
109 1.20 thorpej };
110 1.20 thorpej
111 1.20 thorpej /* SCSI glue */
112 1.27 bouyer struct scsipi_device ch_switch = {
113 1.20 thorpej NULL, NULL, NULL, NULL
114 1.6 mycroft };
115 1.6 mycroft
116 1.20 thorpej int ch_move __P((struct ch_softc *, struct changer_move *));
117 1.20 thorpej int ch_exchange __P((struct ch_softc *, struct changer_exchange *));
118 1.20 thorpej int ch_position __P((struct ch_softc *, struct changer_position *));
119 1.28 mjacob int ch_ielem __P((struct ch_softc *));
120 1.20 thorpej int ch_usergetelemstatus __P((struct ch_softc *, int, u_int8_t *));
121 1.20 thorpej int ch_getelemstatus __P((struct ch_softc *, int, int, caddr_t, size_t));
122 1.20 thorpej int ch_get_params __P((struct ch_softc *, int));
123 1.29 enami void ch_get_quirks __P((struct ch_softc *,
124 1.29 enami struct scsipi_inquiry_pattern *));
125 1.26 thorpej
126 1.26 thorpej /*
127 1.26 thorpej * SCSI changer quirks.
128 1.26 thorpej */
129 1.26 thorpej struct chquirk {
130 1.27 bouyer struct scsipi_inquiry_pattern cq_match; /* device id pattern */
131 1.26 thorpej int cq_settledelay; /* settle delay, in seconds */
132 1.26 thorpej };
133 1.26 thorpej
134 1.26 thorpej struct chquirk chquirks[] = {
135 1.26 thorpej {{T_CHANGER, T_REMOV,
136 1.26 thorpej "SPECTRA", "9000", "0200"},
137 1.26 thorpej 75},
138 1.26 thorpej };
139 1.13 mycroft
140 1.13 mycroft int
141 1.13 mycroft chmatch(parent, match, aux)
142 1.13 mycroft struct device *parent;
143 1.25 cgd struct cfdata *match;
144 1.25 cgd void *aux;
145 1.13 mycroft {
146 1.27 bouyer struct scsipibus_attach_args *sa = aux;
147 1.13 mycroft int priority;
148 1.13 mycroft
149 1.27 bouyer (void)scsipi_inqmatch(&sa->sa_inqbuf,
150 1.29 enami (caddr_t)ch_patterns, sizeof(ch_patterns) / sizeof(ch_patterns[0]),
151 1.13 mycroft sizeof(ch_patterns[0]), &priority);
152 1.20 thorpej
153 1.13 mycroft return (priority);
154 1.13 mycroft }
155 1.13 mycroft
156 1.20 thorpej void
157 1.6 mycroft chattach(parent, self, aux)
158 1.6 mycroft struct device *parent, *self;
159 1.6 mycroft void *aux;
160 1.1 cgd {
161 1.20 thorpej struct ch_softc *sc = (struct ch_softc *)self;
162 1.27 bouyer struct scsipibus_attach_args *sa = aux;
163 1.27 bouyer struct scsipi_link *link = sa->sa_sc_link;
164 1.20 thorpej
165 1.20 thorpej /* Glue into the SCSI bus */
166 1.20 thorpej sc->sc_link = link;
167 1.20 thorpej link->device = &ch_switch;
168 1.20 thorpej link->device_softc = sc;
169 1.20 thorpej link->openings = 1;
170 1.1 cgd
171 1.24 christos printf("\n");
172 1.1 cgd
173 1.6 mycroft /*
174 1.26 thorpej * Find out our device's quirks.
175 1.26 thorpej */
176 1.27 bouyer ch_get_quirks(sc, &sa->sa_inqbuf);
177 1.26 thorpej
178 1.26 thorpej /*
179 1.26 thorpej * Some changers require a long time to settle out, to do
180 1.26 thorpej * tape inventory, for instance.
181 1.26 thorpej */
182 1.26 thorpej if (sc->sc_settledelay) {
183 1.26 thorpej printf("%s: waiting %d seconds for changer to settle...\n",
184 1.26 thorpej sc->sc_dev.dv_xname, sc->sc_settledelay);
185 1.26 thorpej delay(1000000 * sc->sc_settledelay);
186 1.26 thorpej }
187 1.26 thorpej
188 1.26 thorpej /*
189 1.20 thorpej * Get information about the device. Note we can't use
190 1.20 thorpej * interrupts yet.
191 1.6 mycroft */
192 1.20 thorpej if (ch_get_params(sc, SCSI_AUTOCONF))
193 1.24 christos printf("%s: offline\n", sc->sc_dev.dv_xname);
194 1.20 thorpej else {
195 1.26 thorpej #define PLURAL(c) (c) == 1 ? "" : "s"
196 1.26 thorpej printf("%s: %d slot%s, %d drive%s, %d picker%s, %d portal%s\n",
197 1.20 thorpej sc->sc_dev.dv_xname,
198 1.26 thorpej sc->sc_counts[CHET_ST], PLURAL(sc->sc_counts[CHET_ST]),
199 1.26 thorpej sc->sc_counts[CHET_DT], PLURAL(sc->sc_counts[CHET_DT]),
200 1.26 thorpej sc->sc_counts[CHET_MT], PLURAL(sc->sc_counts[CHET_MT]),
201 1.26 thorpej sc->sc_counts[CHET_IE], PLURAL(sc->sc_counts[CHET_IE]));
202 1.26 thorpej #undef PLURAL
203 1.20 thorpej #ifdef CHANGER_DEBUG
204 1.24 christos printf("%s: move mask: 0x%x 0x%x 0x%x 0x%x\n",
205 1.20 thorpej sc->sc_dev.dv_xname,
206 1.20 thorpej sc->sc_movemask[CHET_MT], sc->sc_movemask[CHET_ST],
207 1.20 thorpej sc->sc_movemask[CHET_IE], sc->sc_movemask[CHET_DT]);
208 1.24 christos printf("%s: exchange mask: 0x%x 0x%x 0x%x 0x%x\n",
209 1.20 thorpej sc->sc_dev.dv_xname,
210 1.20 thorpej sc->sc_exchangemask[CHET_MT], sc->sc_exchangemask[CHET_ST],
211 1.20 thorpej sc->sc_exchangemask[CHET_IE], sc->sc_exchangemask[CHET_DT]);
212 1.20 thorpej #endif /* CHANGER_DEBUG */
213 1.20 thorpej }
214 1.6 mycroft
215 1.20 thorpej /* Default the current picker. */
216 1.20 thorpej sc->sc_picker = sc->sc_firsts[CHET_MT];
217 1.1 cgd }
218 1.1 cgd
219 1.20 thorpej int
220 1.20 thorpej chopen(dev, flags, fmt, p)
221 1.6 mycroft dev_t dev;
222 1.20 thorpej int flags, fmt;
223 1.15 christos struct proc *p;
224 1.1 cgd {
225 1.20 thorpej struct ch_softc *sc;
226 1.35 thorpej int unit, error;
227 1.6 mycroft
228 1.6 mycroft unit = CHUNIT(dev);
229 1.20 thorpej if ((unit >= ch_cd.cd_ndevs) ||
230 1.20 thorpej ((sc = ch_cd.cd_devs[unit]) == NULL))
231 1.20 thorpej return (ENXIO);
232 1.12 mycroft
233 1.12 mycroft /*
234 1.20 thorpej * Only allow one open at a time.
235 1.12 mycroft */
236 1.20 thorpej if (sc->sc_link->flags & SDEV_OPEN)
237 1.20 thorpej return (EBUSY);
238 1.20 thorpej
239 1.35 thorpej if ((error = scsipi_adapter_addref(sc->sc_link)) != 0)
240 1.35 thorpej return (error);
241 1.35 thorpej
242 1.20 thorpej sc->sc_link->flags |= SDEV_OPEN;
243 1.6 mycroft
244 1.6 mycroft /*
245 1.20 thorpej * Absorb any unit attention errors. Ignore "not ready"
246 1.20 thorpej * since this might occur if e.g. a tape isn't actually
247 1.20 thorpej * loaded in the drive.
248 1.6 mycroft */
249 1.27 bouyer error = scsipi_test_unit_ready(sc->sc_link,
250 1.21 christos SCSI_IGNORE_NOT_READY|SCSI_IGNORE_MEDIA_CHANGE);
251 1.21 christos if (error)
252 1.13 mycroft goto bad;
253 1.6 mycroft
254 1.6 mycroft /*
255 1.20 thorpej * Make sure our parameters are up to date.
256 1.6 mycroft */
257 1.21 christos if ((error = ch_get_params(sc, 0)) != 0)
258 1.12 mycroft goto bad;
259 1.6 mycroft
260 1.20 thorpej return (0);
261 1.12 mycroft
262 1.20 thorpej bad:
263 1.35 thorpej scsipi_adapter_delref(sc->sc_link);
264 1.20 thorpej sc->sc_link->flags &= ~SDEV_OPEN;
265 1.20 thorpej return (error);
266 1.6 mycroft }
267 1.6 mycroft
268 1.20 thorpej int
269 1.20 thorpej chclose(dev, flags, fmt, p)
270 1.6 mycroft dev_t dev;
271 1.20 thorpej int flags, fmt;
272 1.15 christos struct proc *p;
273 1.1 cgd {
274 1.20 thorpej struct ch_softc *sc = ch_cd.cd_devs[CHUNIT(dev)];
275 1.36 thorpej
276 1.36 thorpej scsipi_wait_drain(sc->sc_link);
277 1.6 mycroft
278 1.35 thorpej scsipi_adapter_delref(sc->sc_link);
279 1.20 thorpej sc->sc_link->flags &= ~SDEV_OPEN;
280 1.20 thorpej return (0);
281 1.6 mycroft }
282 1.6 mycroft
283 1.20 thorpej int
284 1.20 thorpej chioctl(dev, cmd, data, flags, p)
285 1.6 mycroft dev_t dev;
286 1.10 cgd u_long cmd;
287 1.20 thorpej caddr_t data;
288 1.20 thorpej int flags;
289 1.13 mycroft struct proc *p;
290 1.6 mycroft {
291 1.20 thorpej struct ch_softc *sc = ch_cd.cd_devs[CHUNIT(dev)];
292 1.20 thorpej int error = 0;
293 1.22 thorpej
294 1.22 thorpej /*
295 1.22 thorpej * If this command can change the device's state, we must
296 1.22 thorpej * have the device open for writing.
297 1.22 thorpej */
298 1.22 thorpej switch (cmd) {
299 1.22 thorpej case CHIOGPICKER:
300 1.22 thorpej case CHIOGPARAMS:
301 1.22 thorpej case CHIOGSTATUS:
302 1.22 thorpej break;
303 1.22 thorpej
304 1.22 thorpej default:
305 1.22 thorpej if ((flags & FWRITE) == 0)
306 1.22 thorpej return (EBADF);
307 1.22 thorpej }
308 1.20 thorpej
309 1.20 thorpej switch (cmd) {
310 1.20 thorpej case CHIOMOVE:
311 1.20 thorpej error = ch_move(sc, (struct changer_move *)data);
312 1.20 thorpej break;
313 1.20 thorpej
314 1.20 thorpej case CHIOEXCHANGE:
315 1.20 thorpej error = ch_exchange(sc, (struct changer_exchange *)data);
316 1.20 thorpej break;
317 1.20 thorpej
318 1.20 thorpej case CHIOPOSITION:
319 1.20 thorpej error = ch_position(sc, (struct changer_position *)data);
320 1.20 thorpej break;
321 1.20 thorpej
322 1.20 thorpej case CHIOGPICKER:
323 1.20 thorpej *(int *)data = sc->sc_picker - sc->sc_firsts[CHET_MT];
324 1.20 thorpej break;
325 1.20 thorpej
326 1.20 thorpej case CHIOSPICKER: {
327 1.20 thorpej int new_picker = *(int *)data;
328 1.20 thorpej
329 1.20 thorpej if (new_picker > (sc->sc_counts[CHET_MT] - 1))
330 1.20 thorpej return (EINVAL);
331 1.20 thorpej sc->sc_picker = sc->sc_firsts[CHET_MT] + new_picker;
332 1.20 thorpej break; }
333 1.20 thorpej
334 1.20 thorpej case CHIOGPARAMS: {
335 1.20 thorpej struct changer_params *cp = (struct changer_params *)data;
336 1.20 thorpej
337 1.20 thorpej cp->cp_curpicker = sc->sc_picker - sc->sc_firsts[CHET_MT];
338 1.20 thorpej cp->cp_npickers = sc->sc_counts[CHET_MT];
339 1.20 thorpej cp->cp_nslots = sc->sc_counts[CHET_ST];
340 1.20 thorpej cp->cp_nportals = sc->sc_counts[CHET_IE];
341 1.20 thorpej cp->cp_ndrives = sc->sc_counts[CHET_DT];
342 1.20 thorpej break; }
343 1.20 thorpej
344 1.28 mjacob case CHIOIELEM:
345 1.28 mjacob error = ch_ielem(sc);
346 1.28 mjacob break;
347 1.28 mjacob
348 1.20 thorpej case CHIOGSTATUS: {
349 1.20 thorpej struct changer_element_status *ces =
350 1.20 thorpej (struct changer_element_status *)data;
351 1.20 thorpej
352 1.20 thorpej error = ch_usergetelemstatus(sc, ces->ces_type, ces->ces_data);
353 1.20 thorpej break; }
354 1.6 mycroft
355 1.20 thorpej /* Implement prevent/allow? */
356 1.6 mycroft
357 1.1 cgd default:
358 1.27 bouyer error = scsipi_do_ioctl(sc->sc_link, dev, cmd, data, flags, p);
359 1.20 thorpej break;
360 1.1 cgd }
361 1.20 thorpej
362 1.20 thorpej return (error);
363 1.1 cgd }
364 1.1 cgd
365 1.20 thorpej int
366 1.20 thorpej ch_move(sc, cm)
367 1.20 thorpej struct ch_softc *sc;
368 1.20 thorpej struct changer_move *cm;
369 1.1 cgd {
370 1.20 thorpej struct scsi_move_medium cmd;
371 1.20 thorpej u_int16_t fromelem, toelem;
372 1.20 thorpej
373 1.20 thorpej /*
374 1.20 thorpej * Check arguments.
375 1.20 thorpej */
376 1.20 thorpej if ((cm->cm_fromtype > CHET_DT) || (cm->cm_totype > CHET_DT))
377 1.20 thorpej return (EINVAL);
378 1.20 thorpej if ((cm->cm_fromunit > (sc->sc_counts[cm->cm_fromtype] - 1)) ||
379 1.20 thorpej (cm->cm_tounit > (sc->sc_counts[cm->cm_totype] - 1)))
380 1.20 thorpej return (ENODEV);
381 1.20 thorpej
382 1.20 thorpej /*
383 1.20 thorpej * Check the request against the changer's capabilities.
384 1.20 thorpej */
385 1.20 thorpej if ((sc->sc_movemask[cm->cm_fromtype] & (1 << cm->cm_totype)) == 0)
386 1.37 gibbs return (ENODEV);
387 1.20 thorpej
388 1.20 thorpej /*
389 1.20 thorpej * Calculate the source and destination elements.
390 1.20 thorpej */
391 1.20 thorpej fromelem = sc->sc_firsts[cm->cm_fromtype] + cm->cm_fromunit;
392 1.20 thorpej toelem = sc->sc_firsts[cm->cm_totype] + cm->cm_tounit;
393 1.20 thorpej
394 1.20 thorpej /*
395 1.20 thorpej * Build the SCSI command.
396 1.20 thorpej */
397 1.20 thorpej bzero(&cmd, sizeof(cmd));
398 1.20 thorpej cmd.opcode = MOVE_MEDIUM;
399 1.20 thorpej _lto2b(sc->sc_picker, cmd.tea);
400 1.20 thorpej _lto2b(fromelem, cmd.src);
401 1.20 thorpej _lto2b(toelem, cmd.dst);
402 1.20 thorpej if (cm->cm_flags & CM_INVERT)
403 1.20 thorpej cmd.flags |= MOVE_MEDIUM_INVERT;
404 1.20 thorpej
405 1.20 thorpej /*
406 1.20 thorpej * Send command to changer.
407 1.20 thorpej */
408 1.31 thorpej return (scsipi_command(sc->sc_link,
409 1.29 enami (struct scsipi_generic *)&cmd, sizeof(cmd), NULL, 0, CHRETRIES,
410 1.29 enami 100000, NULL, 0));
411 1.1 cgd }
412 1.1 cgd
413 1.20 thorpej int
414 1.20 thorpej ch_exchange(sc, ce)
415 1.20 thorpej struct ch_softc *sc;
416 1.20 thorpej struct changer_exchange *ce;
417 1.20 thorpej {
418 1.20 thorpej struct scsi_exchange_medium cmd;
419 1.20 thorpej u_int16_t src, dst1, dst2;
420 1.20 thorpej
421 1.20 thorpej /*
422 1.20 thorpej * Check arguments.
423 1.20 thorpej */
424 1.20 thorpej if ((ce->ce_srctype > CHET_DT) || (ce->ce_fdsttype > CHET_DT) ||
425 1.20 thorpej (ce->ce_sdsttype > CHET_DT))
426 1.20 thorpej return (EINVAL);
427 1.20 thorpej if ((ce->ce_srcunit > (sc->sc_counts[ce->ce_srctype] - 1)) ||
428 1.20 thorpej (ce->ce_fdstunit > (sc->sc_counts[ce->ce_fdsttype] - 1)) ||
429 1.20 thorpej (ce->ce_sdstunit > (sc->sc_counts[ce->ce_sdsttype] - 1)))
430 1.20 thorpej return (ENODEV);
431 1.20 thorpej
432 1.20 thorpej /*
433 1.20 thorpej * Check the request against the changer's capabilities.
434 1.20 thorpej */
435 1.20 thorpej if (((sc->sc_exchangemask[ce->ce_srctype] &
436 1.20 thorpej (1 << ce->ce_fdsttype)) == 0) ||
437 1.20 thorpej ((sc->sc_exchangemask[ce->ce_fdsttype] &
438 1.20 thorpej (1 << ce->ce_sdsttype)) == 0))
439 1.37 gibbs return (ENODEV);
440 1.20 thorpej
441 1.20 thorpej /*
442 1.20 thorpej * Calculate the source and destination elements.
443 1.20 thorpej */
444 1.20 thorpej src = sc->sc_firsts[ce->ce_srctype] + ce->ce_srcunit;
445 1.20 thorpej dst1 = sc->sc_firsts[ce->ce_fdsttype] + ce->ce_fdstunit;
446 1.20 thorpej dst2 = sc->sc_firsts[ce->ce_sdsttype] + ce->ce_sdstunit;
447 1.20 thorpej
448 1.20 thorpej /*
449 1.20 thorpej * Build the SCSI command.
450 1.20 thorpej */
451 1.20 thorpej bzero(&cmd, sizeof(cmd));
452 1.20 thorpej cmd.opcode = EXCHANGE_MEDIUM;
453 1.20 thorpej _lto2b(sc->sc_picker, cmd.tea);
454 1.20 thorpej _lto2b(src, cmd.src);
455 1.20 thorpej _lto2b(dst1, cmd.fdst);
456 1.20 thorpej _lto2b(dst2, cmd.sdst);
457 1.20 thorpej if (ce->ce_flags & CE_INVERT1)
458 1.20 thorpej cmd.flags |= EXCHANGE_MEDIUM_INV1;
459 1.20 thorpej if (ce->ce_flags & CE_INVERT2)
460 1.20 thorpej cmd.flags |= EXCHANGE_MEDIUM_INV2;
461 1.20 thorpej
462 1.20 thorpej /*
463 1.20 thorpej * Send command to changer.
464 1.20 thorpej */
465 1.31 thorpej return (scsipi_command(sc->sc_link,
466 1.29 enami (struct scsipi_generic *)&cmd, sizeof(cmd), NULL, 0, CHRETRIES,
467 1.29 enami 100000, NULL, 0));
468 1.1 cgd }
469 1.1 cgd
470 1.20 thorpej int
471 1.20 thorpej ch_position(sc, cp)
472 1.20 thorpej struct ch_softc *sc;
473 1.20 thorpej struct changer_position *cp;
474 1.20 thorpej {
475 1.20 thorpej struct scsi_position_to_element cmd;
476 1.20 thorpej u_int16_t dst;
477 1.20 thorpej
478 1.20 thorpej /*
479 1.20 thorpej * Check arguments.
480 1.20 thorpej */
481 1.20 thorpej if (cp->cp_type > CHET_DT)
482 1.20 thorpej return (EINVAL);
483 1.20 thorpej if (cp->cp_unit > (sc->sc_counts[cp->cp_type] - 1))
484 1.20 thorpej return (ENODEV);
485 1.20 thorpej
486 1.20 thorpej /*
487 1.20 thorpej * Calculate the destination element.
488 1.20 thorpej */
489 1.20 thorpej dst = sc->sc_firsts[cp->cp_type] + cp->cp_unit;
490 1.20 thorpej
491 1.20 thorpej /*
492 1.20 thorpej * Build the SCSI command.
493 1.20 thorpej */
494 1.20 thorpej bzero(&cmd, sizeof(cmd));
495 1.20 thorpej cmd.opcode = POSITION_TO_ELEMENT;
496 1.20 thorpej _lto2b(sc->sc_picker, cmd.tea);
497 1.20 thorpej _lto2b(dst, cmd.dst);
498 1.20 thorpej if (cp->cp_flags & CP_INVERT)
499 1.20 thorpej cmd.flags |= POSITION_TO_ELEMENT_INVERT;
500 1.20 thorpej
501 1.20 thorpej /*
502 1.20 thorpej * Send command to changer.
503 1.20 thorpej */
504 1.31 thorpej return (scsipi_command(sc->sc_link,
505 1.29 enami (struct scsipi_generic *)&cmd, sizeof(cmd), NULL, 0, CHRETRIES,
506 1.29 enami 100000, NULL, 0));
507 1.1 cgd }
508 1.1 cgd
509 1.6 mycroft /*
510 1.20 thorpej * Perform a READ ELEMENT STATUS on behalf of the user, and return to
511 1.20 thorpej * the user only the data the user is interested in (i.e. an array of
512 1.20 thorpej * flags bytes).
513 1.6 mycroft */
514 1.20 thorpej int
515 1.20 thorpej ch_usergetelemstatus(sc, chet, uptr)
516 1.20 thorpej struct ch_softc *sc;
517 1.20 thorpej int chet;
518 1.20 thorpej u_int8_t *uptr;
519 1.20 thorpej {
520 1.20 thorpej struct read_element_status_header *st_hdr;
521 1.20 thorpej struct read_element_status_page_header *pg_hdr;
522 1.20 thorpej struct read_element_status_descriptor *desc;
523 1.20 thorpej caddr_t data = NULL;
524 1.20 thorpej size_t size, desclen;
525 1.20 thorpej int avail, i, error = 0;
526 1.20 thorpej u_int8_t *user_data = NULL;
527 1.20 thorpej
528 1.20 thorpej /*
529 1.20 thorpej * If there are no elements of the requested type in the changer,
530 1.20 thorpej * the request is invalid.
531 1.20 thorpej */
532 1.20 thorpej if (sc->sc_counts[chet] == 0)
533 1.20 thorpej return (EINVAL);
534 1.20 thorpej
535 1.20 thorpej /*
536 1.20 thorpej * Request one descriptor for the given element type. This
537 1.20 thorpej * is used to determine the size of the descriptor so that
538 1.20 thorpej * we can allocate enough storage for all of them. We assume
539 1.20 thorpej * that the first one can fit into 1k.
540 1.20 thorpej */
541 1.20 thorpej data = (caddr_t)malloc(1024, M_DEVBUF, M_WAITOK);
542 1.21 christos error = ch_getelemstatus(sc, sc->sc_firsts[chet], 1, data, 1024);
543 1.21 christos if (error)
544 1.20 thorpej goto done;
545 1.20 thorpej
546 1.20 thorpej st_hdr = (struct read_element_status_header *)data;
547 1.20 thorpej pg_hdr = (struct read_element_status_page_header *)((u_long)st_hdr +
548 1.20 thorpej sizeof(struct read_element_status_header));
549 1.20 thorpej desclen = _2btol(pg_hdr->edl);
550 1.20 thorpej
551 1.20 thorpej size = sizeof(struct read_element_status_header) +
552 1.20 thorpej sizeof(struct read_element_status_page_header) +
553 1.20 thorpej (desclen * sc->sc_counts[chet]);
554 1.20 thorpej
555 1.20 thorpej /*
556 1.20 thorpej * Reallocate storage for descriptors and get them from the
557 1.20 thorpej * device.
558 1.20 thorpej */
559 1.20 thorpej free(data, M_DEVBUF);
560 1.20 thorpej data = (caddr_t)malloc(size, M_DEVBUF, M_WAITOK);
561 1.21 christos error = ch_getelemstatus(sc, sc->sc_firsts[chet],
562 1.21 christos sc->sc_counts[chet], data, size);
563 1.21 christos if (error)
564 1.20 thorpej goto done;
565 1.20 thorpej
566 1.20 thorpej /*
567 1.20 thorpej * Fill in the user status array.
568 1.20 thorpej */
569 1.20 thorpej st_hdr = (struct read_element_status_header *)data;
570 1.20 thorpej avail = _2btol(st_hdr->count);
571 1.28 mjacob
572 1.20 thorpej if (avail != sc->sc_counts[chet])
573 1.24 christos printf("%s: warning, READ ELEMENT STATUS avail != count\n",
574 1.20 thorpej sc->sc_dev.dv_xname);
575 1.20 thorpej
576 1.20 thorpej user_data = (u_int8_t *)malloc(avail, M_DEVBUF, M_WAITOK);
577 1.20 thorpej
578 1.20 thorpej desc = (struct read_element_status_descriptor *)((u_long)data +
579 1.20 thorpej sizeof(struct read_element_status_header) +
580 1.20 thorpej sizeof(struct read_element_status_page_header));
581 1.20 thorpej for (i = 0; i < avail; ++i) {
582 1.20 thorpej user_data[i] = desc->flags1;
583 1.20 thorpej (u_long)desc += desclen;
584 1.20 thorpej }
585 1.20 thorpej
586 1.20 thorpej /* Copy flags array out to userspace. */
587 1.20 thorpej error = copyout(user_data, uptr, avail);
588 1.20 thorpej
589 1.20 thorpej done:
590 1.20 thorpej if (data != NULL)
591 1.20 thorpej free(data, M_DEVBUF);
592 1.20 thorpej if (user_data != NULL)
593 1.20 thorpej free(user_data, M_DEVBUF);
594 1.20 thorpej return (error);
595 1.20 thorpej }
596 1.20 thorpej
597 1.20 thorpej int
598 1.20 thorpej ch_getelemstatus(sc, first, count, data, datalen)
599 1.20 thorpej struct ch_softc *sc;
600 1.20 thorpej int first, count;
601 1.20 thorpej caddr_t data;
602 1.20 thorpej size_t datalen;
603 1.1 cgd {
604 1.20 thorpej struct scsi_read_element_status cmd;
605 1.6 mycroft
606 1.6 mycroft /*
607 1.20 thorpej * Build SCSI command.
608 1.6 mycroft */
609 1.20 thorpej bzero(&cmd, sizeof(cmd));
610 1.20 thorpej cmd.opcode = READ_ELEMENT_STATUS;
611 1.20 thorpej _lto2b(first, cmd.sea);
612 1.20 thorpej _lto2b(count, cmd.count);
613 1.20 thorpej _lto3b(datalen, cmd.len);
614 1.6 mycroft
615 1.6 mycroft /*
616 1.20 thorpej * Send command to changer.
617 1.6 mycroft */
618 1.31 thorpej return (scsipi_command(sc->sc_link,
619 1.29 enami (struct scsipi_generic *)&cmd, sizeof(cmd),
620 1.30 thorpej (u_char *)data, datalen, CHRETRIES, 100000, NULL, SCSI_DATA_IN));
621 1.20 thorpej }
622 1.20 thorpej
623 1.20 thorpej
624 1.28 mjacob int
625 1.28 mjacob ch_ielem(sc)
626 1.28 mjacob struct ch_softc *sc;
627 1.28 mjacob {
628 1.33 mjacob int tmo;
629 1.28 mjacob struct scsi_initialize_element_status cmd;
630 1.28 mjacob
631 1.28 mjacob /*
632 1.28 mjacob * Build SCSI command.
633 1.28 mjacob */
634 1.28 mjacob bzero(&cmd, sizeof(cmd));
635 1.28 mjacob cmd.opcode = INITIALIZE_ELEMENT_STATUS;
636 1.28 mjacob
637 1.28 mjacob /*
638 1.28 mjacob * Send command to changer.
639 1.33 mjacob *
640 1.33 mjacob * The problem is, how long to allow for the command?
641 1.33 mjacob * It can take a *really* long time, and also depends
642 1.33 mjacob * on unknowable factors such as whether there are
643 1.33 mjacob * *almost* readable labels on tapes that a barcode
644 1.33 mjacob * reader is trying to decipher.
645 1.33 mjacob *
646 1.33 mjacob * I'm going to make this long enough to allow 5 minutes
647 1.33 mjacob * per element plus an initial 10 minute wait.
648 1.33 mjacob */
649 1.33 mjacob tmo = sc->sc_counts[CHET_MT] +
650 1.33 mjacob sc->sc_counts[CHET_ST] +
651 1.33 mjacob sc->sc_counts[CHET_IE] +
652 1.33 mjacob sc->sc_counts[CHET_DT];
653 1.33 mjacob tmo *= 5 * 1000;
654 1.33 mjacob tmo += (10 * 60 * 1000);
655 1.33 mjacob
656 1.31 thorpej return (scsipi_command(sc->sc_link,
657 1.29 enami (struct scsipi_generic *)&cmd, sizeof(cmd),
658 1.33 mjacob NULL, 0, CHRETRIES, tmo, NULL, 0));
659 1.28 mjacob }
660 1.28 mjacob
661 1.20 thorpej /*
662 1.20 thorpej * Ask the device about itself and fill in the parameters in our
663 1.20 thorpej * softc.
664 1.20 thorpej */
665 1.20 thorpej int
666 1.20 thorpej ch_get_params(sc, scsiflags)
667 1.20 thorpej struct ch_softc *sc;
668 1.20 thorpej int scsiflags;
669 1.20 thorpej {
670 1.20 thorpej struct scsi_mode_sense cmd;
671 1.20 thorpej struct scsi_mode_sense_data {
672 1.20 thorpej struct scsi_mode_header header;
673 1.20 thorpej union {
674 1.20 thorpej struct page_element_address_assignment ea;
675 1.20 thorpej struct page_transport_geometry_parameters tg;
676 1.20 thorpej struct page_device_capabilities cap;
677 1.20 thorpej } pages;
678 1.20 thorpej } sense_data;
679 1.20 thorpej int error, from;
680 1.20 thorpej u_int8_t *moves, *exchanges;
681 1.6 mycroft
682 1.6 mycroft /*
683 1.20 thorpej * Grab info from the element address assignment page.
684 1.6 mycroft */
685 1.20 thorpej bzero(&cmd, sizeof(cmd));
686 1.20 thorpej bzero(&sense_data, sizeof(sense_data));
687 1.27 bouyer cmd.opcode = SCSI_MODE_SENSE;
688 1.20 thorpej cmd.byte2 |= 0x08; /* disable block descriptors */
689 1.20 thorpej cmd.page = 0x1d;
690 1.20 thorpej cmd.length = (sizeof(sense_data) & 0xff);
691 1.31 thorpej error = scsipi_command(sc->sc_link,
692 1.29 enami (struct scsipi_generic *)&cmd, sizeof(cmd), (u_char *)&sense_data,
693 1.29 enami sizeof(sense_data), CHRETRIES, 6000, NULL,
694 1.29 enami scsiflags | SCSI_DATA_IN);
695 1.15 christos if (error) {
696 1.24 christos printf("%s: could not sense element address page\n",
697 1.21 christos sc->sc_dev.dv_xname);
698 1.20 thorpej return (error);
699 1.6 mycroft }
700 1.6 mycroft
701 1.20 thorpej sc->sc_firsts[CHET_MT] = _2btol(sense_data.pages.ea.mtea);
702 1.20 thorpej sc->sc_counts[CHET_MT] = _2btol(sense_data.pages.ea.nmte);
703 1.20 thorpej sc->sc_firsts[CHET_ST] = _2btol(sense_data.pages.ea.fsea);
704 1.20 thorpej sc->sc_counts[CHET_ST] = _2btol(sense_data.pages.ea.nse);
705 1.20 thorpej sc->sc_firsts[CHET_IE] = _2btol(sense_data.pages.ea.fieea);
706 1.20 thorpej sc->sc_counts[CHET_IE] = _2btol(sense_data.pages.ea.niee);
707 1.20 thorpej sc->sc_firsts[CHET_DT] = _2btol(sense_data.pages.ea.fdtea);
708 1.20 thorpej sc->sc_counts[CHET_DT] = _2btol(sense_data.pages.ea.ndte);
709 1.20 thorpej
710 1.20 thorpej /* XXX ask for page trasport geom */
711 1.6 mycroft
712 1.6 mycroft /*
713 1.20 thorpej * Grab info from the capabilities page.
714 1.20 thorpej */
715 1.20 thorpej bzero(&cmd, sizeof(cmd));
716 1.20 thorpej bzero(&sense_data, sizeof(sense_data));
717 1.27 bouyer cmd.opcode = SCSI_MODE_SENSE;
718 1.28 mjacob /*
719 1.28 mjacob * XXX: Note: not all changers can deal with disabled block descriptors
720 1.28 mjacob */
721 1.28 mjacob cmd.byte2 = 0x08; /* disable block descriptors */
722 1.20 thorpej cmd.page = 0x1f;
723 1.20 thorpej cmd.length = (sizeof(sense_data) & 0xff);
724 1.31 thorpej error = scsipi_command(sc->sc_link,
725 1.29 enami (struct scsipi_generic *)&cmd, sizeof(cmd), (u_char *)&sense_data,
726 1.29 enami sizeof(sense_data), CHRETRIES, 6000, NULL,
727 1.29 enami scsiflags | SCSI_DATA_IN);
728 1.20 thorpej if (error) {
729 1.24 christos printf("%s: could not sense capabilities page\n",
730 1.21 christos sc->sc_dev.dv_xname);
731 1.20 thorpej return (error);
732 1.20 thorpej }
733 1.20 thorpej
734 1.20 thorpej bzero(sc->sc_movemask, sizeof(sc->sc_movemask));
735 1.20 thorpej bzero(sc->sc_exchangemask, sizeof(sc->sc_exchangemask));
736 1.20 thorpej moves = &sense_data.pages.cap.move_from_mt;
737 1.20 thorpej exchanges = &sense_data.pages.cap.exchange_with_mt;
738 1.20 thorpej for (from = CHET_MT; from <= CHET_DT; ++from) {
739 1.20 thorpej sc->sc_movemask[from] = moves[from];
740 1.20 thorpej sc->sc_exchangemask[from] = exchanges[from];
741 1.1 cgd }
742 1.20 thorpej
743 1.20 thorpej sc->sc_link->flags |= SDEV_MEDIA_LOADED;
744 1.20 thorpej return (0);
745 1.26 thorpej }
746 1.26 thorpej
747 1.26 thorpej void
748 1.26 thorpej ch_get_quirks(sc, inqbuf)
749 1.26 thorpej struct ch_softc *sc;
750 1.27 bouyer struct scsipi_inquiry_pattern *inqbuf;
751 1.26 thorpej {
752 1.26 thorpej struct chquirk *match;
753 1.26 thorpej int priority;
754 1.26 thorpej
755 1.26 thorpej sc->sc_settledelay = 0;
756 1.26 thorpej
757 1.27 bouyer match = (struct chquirk *)scsipi_inqmatch(inqbuf,
758 1.26 thorpej (caddr_t)chquirks,
759 1.26 thorpej sizeof(chquirks) / sizeof(chquirks[0]),
760 1.26 thorpej sizeof(chquirks[0]), &priority);
761 1.29 enami if (priority != 0)
762 1.26 thorpej sc->sc_settledelay = match->cq_settledelay;
763 1.1 cgd }
764