ch.c revision 1.28 1 1.28 mjacob /* $NetBSD: ch.c,v 1.28 1997/09/29 17:32:31 mjacob Exp $ */
2 1.8 cgd
3 1.1 cgd /*
4 1.26 thorpej * Copyright (c) 1996, 1997 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 #ifdef __BROKEN_INDIRECT_CONFIG
98 1.15 christos int chmatch __P((struct device *, void *, void *));
99 1.25 cgd #else
100 1.25 cgd int chmatch __P((struct device *, struct cfdata *, void *));
101 1.25 cgd #endif
102 1.15 christos void chattach __P((struct device *, struct device *, void *));
103 1.6 mycroft
104 1.17 thorpej struct cfattach ch_ca = {
105 1.17 thorpej sizeof(struct ch_softc), chmatch, chattach
106 1.17 thorpej };
107 1.17 thorpej
108 1.17 thorpej struct cfdriver ch_cd = {
109 1.17 thorpej NULL, "ch", DV_DULL
110 1.6 mycroft };
111 1.1 cgd
112 1.27 bouyer struct scsipi_inquiry_pattern ch_patterns[] = {
113 1.20 thorpej {T_CHANGER, T_REMOV,
114 1.20 thorpej "", "", ""},
115 1.20 thorpej };
116 1.20 thorpej
117 1.20 thorpej /* SCSI glue */
118 1.27 bouyer struct scsipi_device ch_switch = {
119 1.20 thorpej NULL, NULL, NULL, NULL
120 1.6 mycroft };
121 1.6 mycroft
122 1.20 thorpej int ch_move __P((struct ch_softc *, struct changer_move *));
123 1.20 thorpej int ch_exchange __P((struct ch_softc *, struct changer_exchange *));
124 1.20 thorpej int ch_position __P((struct ch_softc *, struct changer_position *));
125 1.28 mjacob int ch_ielem __P((struct ch_softc *));
126 1.20 thorpej int ch_usergetelemstatus __P((struct ch_softc *, int, u_int8_t *));
127 1.20 thorpej int ch_getelemstatus __P((struct ch_softc *, int, int, caddr_t, size_t));
128 1.20 thorpej int ch_get_params __P((struct ch_softc *, int));
129 1.27 bouyer void ch_get_quirks __P((struct ch_softc *, struct scsipi_inquiry_pattern *));
130 1.26 thorpej
131 1.26 thorpej /*
132 1.26 thorpej * SCSI changer quirks.
133 1.26 thorpej */
134 1.26 thorpej struct chquirk {
135 1.27 bouyer struct scsipi_inquiry_pattern cq_match; /* device id pattern */
136 1.26 thorpej int cq_settledelay; /* settle delay, in seconds */
137 1.26 thorpej };
138 1.26 thorpej
139 1.26 thorpej struct chquirk chquirks[] = {
140 1.26 thorpej {{T_CHANGER, T_REMOV,
141 1.26 thorpej "SPECTRA", "9000", "0200"},
142 1.26 thorpej 75},
143 1.26 thorpej };
144 1.13 mycroft
145 1.13 mycroft int
146 1.13 mycroft chmatch(parent, match, aux)
147 1.13 mycroft struct device *parent;
148 1.25 cgd #ifdef __BROKEN_INDIRECT_CONFIG
149 1.25 cgd void *match;
150 1.25 cgd #else
151 1.25 cgd struct cfdata *match;
152 1.25 cgd #endif
153 1.25 cgd void *aux;
154 1.13 mycroft {
155 1.27 bouyer struct scsipibus_attach_args *sa = aux;
156 1.13 mycroft int priority;
157 1.13 mycroft
158 1.27 bouyer (void)scsipi_inqmatch(&sa->sa_inqbuf,
159 1.13 mycroft (caddr_t)ch_patterns, sizeof(ch_patterns)/sizeof(ch_patterns[0]),
160 1.13 mycroft sizeof(ch_patterns[0]), &priority);
161 1.20 thorpej
162 1.13 mycroft return (priority);
163 1.13 mycroft }
164 1.13 mycroft
165 1.20 thorpej void
166 1.6 mycroft chattach(parent, self, aux)
167 1.6 mycroft struct device *parent, *self;
168 1.6 mycroft void *aux;
169 1.1 cgd {
170 1.20 thorpej struct ch_softc *sc = (struct ch_softc *)self;
171 1.27 bouyer struct scsipibus_attach_args *sa = aux;
172 1.27 bouyer struct scsipi_link *link = sa->sa_sc_link;
173 1.20 thorpej
174 1.20 thorpej /* Glue into the SCSI bus */
175 1.20 thorpej sc->sc_link = link;
176 1.20 thorpej link->device = &ch_switch;
177 1.20 thorpej link->device_softc = sc;
178 1.20 thorpej link->openings = 1;
179 1.1 cgd
180 1.24 christos printf("\n");
181 1.1 cgd
182 1.6 mycroft /*
183 1.26 thorpej * Find out our device's quirks.
184 1.26 thorpej */
185 1.27 bouyer ch_get_quirks(sc, &sa->sa_inqbuf);
186 1.26 thorpej
187 1.26 thorpej /*
188 1.26 thorpej * Some changers require a long time to settle out, to do
189 1.26 thorpej * tape inventory, for instance.
190 1.26 thorpej */
191 1.26 thorpej if (sc->sc_settledelay) {
192 1.26 thorpej printf("%s: waiting %d seconds for changer to settle...\n",
193 1.26 thorpej sc->sc_dev.dv_xname, sc->sc_settledelay);
194 1.26 thorpej delay(1000000 * sc->sc_settledelay);
195 1.26 thorpej }
196 1.26 thorpej
197 1.26 thorpej /*
198 1.20 thorpej * Get information about the device. Note we can't use
199 1.20 thorpej * interrupts yet.
200 1.6 mycroft */
201 1.20 thorpej if (ch_get_params(sc, SCSI_AUTOCONF))
202 1.24 christos printf("%s: offline\n", sc->sc_dev.dv_xname);
203 1.20 thorpej else {
204 1.26 thorpej #define PLURAL(c) (c) == 1 ? "" : "s"
205 1.26 thorpej printf("%s: %d slot%s, %d drive%s, %d picker%s, %d portal%s\n",
206 1.20 thorpej sc->sc_dev.dv_xname,
207 1.26 thorpej sc->sc_counts[CHET_ST], PLURAL(sc->sc_counts[CHET_ST]),
208 1.26 thorpej sc->sc_counts[CHET_DT], PLURAL(sc->sc_counts[CHET_DT]),
209 1.26 thorpej sc->sc_counts[CHET_MT], PLURAL(sc->sc_counts[CHET_MT]),
210 1.26 thorpej sc->sc_counts[CHET_IE], PLURAL(sc->sc_counts[CHET_IE]));
211 1.26 thorpej #undef PLURAL
212 1.20 thorpej #ifdef CHANGER_DEBUG
213 1.24 christos printf("%s: move mask: 0x%x 0x%x 0x%x 0x%x\n",
214 1.20 thorpej sc->sc_dev.dv_xname,
215 1.20 thorpej sc->sc_movemask[CHET_MT], sc->sc_movemask[CHET_ST],
216 1.20 thorpej sc->sc_movemask[CHET_IE], sc->sc_movemask[CHET_DT]);
217 1.24 christos printf("%s: exchange mask: 0x%x 0x%x 0x%x 0x%x\n",
218 1.20 thorpej sc->sc_dev.dv_xname,
219 1.20 thorpej sc->sc_exchangemask[CHET_MT], sc->sc_exchangemask[CHET_ST],
220 1.20 thorpej sc->sc_exchangemask[CHET_IE], sc->sc_exchangemask[CHET_DT]);
221 1.20 thorpej #endif /* CHANGER_DEBUG */
222 1.20 thorpej }
223 1.6 mycroft
224 1.20 thorpej /* Default the current picker. */
225 1.20 thorpej sc->sc_picker = sc->sc_firsts[CHET_MT];
226 1.1 cgd }
227 1.1 cgd
228 1.20 thorpej int
229 1.20 thorpej chopen(dev, flags, fmt, p)
230 1.6 mycroft dev_t dev;
231 1.20 thorpej int flags, fmt;
232 1.15 christos struct proc *p;
233 1.1 cgd {
234 1.20 thorpej struct ch_softc *sc;
235 1.20 thorpej int unit, error = 0;
236 1.6 mycroft
237 1.6 mycroft unit = CHUNIT(dev);
238 1.20 thorpej if ((unit >= ch_cd.cd_ndevs) ||
239 1.20 thorpej ((sc = ch_cd.cd_devs[unit]) == NULL))
240 1.20 thorpej return (ENXIO);
241 1.12 mycroft
242 1.12 mycroft /*
243 1.20 thorpej * Only allow one open at a time.
244 1.12 mycroft */
245 1.20 thorpej if (sc->sc_link->flags & SDEV_OPEN)
246 1.20 thorpej return (EBUSY);
247 1.20 thorpej
248 1.20 thorpej sc->sc_link->flags |= SDEV_OPEN;
249 1.6 mycroft
250 1.6 mycroft /*
251 1.20 thorpej * Absorb any unit attention errors. Ignore "not ready"
252 1.20 thorpej * since this might occur if e.g. a tape isn't actually
253 1.20 thorpej * loaded in the drive.
254 1.6 mycroft */
255 1.27 bouyer error = scsipi_test_unit_ready(sc->sc_link,
256 1.21 christos SCSI_IGNORE_NOT_READY|SCSI_IGNORE_MEDIA_CHANGE);
257 1.21 christos if (error)
258 1.13 mycroft goto bad;
259 1.6 mycroft
260 1.6 mycroft /*
261 1.20 thorpej * Make sure our parameters are up to date.
262 1.6 mycroft */
263 1.21 christos if ((error = ch_get_params(sc, 0)) != 0)
264 1.12 mycroft goto bad;
265 1.6 mycroft
266 1.20 thorpej return (0);
267 1.12 mycroft
268 1.20 thorpej bad:
269 1.20 thorpej sc->sc_link->flags &= ~SDEV_OPEN;
270 1.20 thorpej return (error);
271 1.6 mycroft }
272 1.6 mycroft
273 1.20 thorpej int
274 1.20 thorpej chclose(dev, flags, fmt, p)
275 1.6 mycroft dev_t dev;
276 1.20 thorpej int flags, fmt;
277 1.15 christos struct proc *p;
278 1.1 cgd {
279 1.20 thorpej struct ch_softc *sc = ch_cd.cd_devs[CHUNIT(dev)];
280 1.6 mycroft
281 1.20 thorpej sc->sc_link->flags &= ~SDEV_OPEN;
282 1.20 thorpej return (0);
283 1.6 mycroft }
284 1.6 mycroft
285 1.20 thorpej int
286 1.20 thorpej chioctl(dev, cmd, data, flags, p)
287 1.6 mycroft dev_t dev;
288 1.10 cgd u_long cmd;
289 1.20 thorpej caddr_t data;
290 1.20 thorpej int flags;
291 1.13 mycroft struct proc *p;
292 1.6 mycroft {
293 1.20 thorpej struct ch_softc *sc = ch_cd.cd_devs[CHUNIT(dev)];
294 1.20 thorpej int error = 0;
295 1.22 thorpej
296 1.22 thorpej /*
297 1.22 thorpej * If this command can change the device's state, we must
298 1.22 thorpej * have the device open for writing.
299 1.22 thorpej */
300 1.22 thorpej switch (cmd) {
301 1.22 thorpej case CHIOGPICKER:
302 1.22 thorpej case CHIOGPARAMS:
303 1.22 thorpej case CHIOGSTATUS:
304 1.22 thorpej break;
305 1.22 thorpej
306 1.22 thorpej default:
307 1.22 thorpej if ((flags & FWRITE) == 0)
308 1.22 thorpej return (EBADF);
309 1.22 thorpej }
310 1.20 thorpej
311 1.20 thorpej switch (cmd) {
312 1.20 thorpej case CHIOMOVE:
313 1.20 thorpej error = ch_move(sc, (struct changer_move *)data);
314 1.20 thorpej break;
315 1.20 thorpej
316 1.20 thorpej case CHIOEXCHANGE:
317 1.20 thorpej error = ch_exchange(sc, (struct changer_exchange *)data);
318 1.20 thorpej break;
319 1.20 thorpej
320 1.20 thorpej case CHIOPOSITION:
321 1.20 thorpej error = ch_position(sc, (struct changer_position *)data);
322 1.20 thorpej break;
323 1.20 thorpej
324 1.20 thorpej case CHIOGPICKER:
325 1.20 thorpej *(int *)data = sc->sc_picker - sc->sc_firsts[CHET_MT];
326 1.20 thorpej break;
327 1.20 thorpej
328 1.20 thorpej case CHIOSPICKER: {
329 1.20 thorpej int new_picker = *(int *)data;
330 1.20 thorpej
331 1.20 thorpej if (new_picker > (sc->sc_counts[CHET_MT] - 1))
332 1.20 thorpej return (EINVAL);
333 1.20 thorpej sc->sc_picker = sc->sc_firsts[CHET_MT] + new_picker;
334 1.20 thorpej break; }
335 1.20 thorpej
336 1.20 thorpej case CHIOGPARAMS: {
337 1.20 thorpej struct changer_params *cp = (struct changer_params *)data;
338 1.20 thorpej
339 1.20 thorpej cp->cp_curpicker = sc->sc_picker - sc->sc_firsts[CHET_MT];
340 1.20 thorpej cp->cp_npickers = sc->sc_counts[CHET_MT];
341 1.20 thorpej cp->cp_nslots = sc->sc_counts[CHET_ST];
342 1.20 thorpej cp->cp_nportals = sc->sc_counts[CHET_IE];
343 1.20 thorpej cp->cp_ndrives = sc->sc_counts[CHET_DT];
344 1.20 thorpej break; }
345 1.20 thorpej
346 1.28 mjacob case CHIOIELEM:
347 1.28 mjacob error = ch_ielem(sc);
348 1.28 mjacob break;
349 1.28 mjacob
350 1.20 thorpej case CHIOGSTATUS: {
351 1.20 thorpej struct changer_element_status *ces =
352 1.20 thorpej (struct changer_element_status *)data;
353 1.20 thorpej
354 1.20 thorpej error = ch_usergetelemstatus(sc, ces->ces_type, ces->ces_data);
355 1.20 thorpej break; }
356 1.6 mycroft
357 1.20 thorpej /* Implement prevent/allow? */
358 1.6 mycroft
359 1.1 cgd default:
360 1.27 bouyer error = scsipi_do_ioctl(sc->sc_link, dev, cmd, data, flags, p);
361 1.20 thorpej break;
362 1.1 cgd }
363 1.20 thorpej
364 1.20 thorpej return (error);
365 1.1 cgd }
366 1.1 cgd
367 1.20 thorpej int
368 1.20 thorpej ch_move(sc, cm)
369 1.20 thorpej struct ch_softc *sc;
370 1.20 thorpej struct changer_move *cm;
371 1.1 cgd {
372 1.20 thorpej struct scsi_move_medium cmd;
373 1.20 thorpej u_int16_t fromelem, toelem;
374 1.20 thorpej
375 1.20 thorpej /*
376 1.20 thorpej * Check arguments.
377 1.20 thorpej */
378 1.20 thorpej if ((cm->cm_fromtype > CHET_DT) || (cm->cm_totype > CHET_DT))
379 1.20 thorpej return (EINVAL);
380 1.20 thorpej if ((cm->cm_fromunit > (sc->sc_counts[cm->cm_fromtype] - 1)) ||
381 1.20 thorpej (cm->cm_tounit > (sc->sc_counts[cm->cm_totype] - 1)))
382 1.20 thorpej return (ENODEV);
383 1.20 thorpej
384 1.20 thorpej /*
385 1.20 thorpej * Check the request against the changer's capabilities.
386 1.20 thorpej */
387 1.20 thorpej if ((sc->sc_movemask[cm->cm_fromtype] & (1 << cm->cm_totype)) == 0)
388 1.20 thorpej return (EINVAL);
389 1.20 thorpej
390 1.20 thorpej /*
391 1.20 thorpej * Calculate the source and destination elements.
392 1.20 thorpej */
393 1.20 thorpej fromelem = sc->sc_firsts[cm->cm_fromtype] + cm->cm_fromunit;
394 1.20 thorpej toelem = sc->sc_firsts[cm->cm_totype] + cm->cm_tounit;
395 1.20 thorpej
396 1.20 thorpej /*
397 1.20 thorpej * Build the SCSI command.
398 1.20 thorpej */
399 1.20 thorpej bzero(&cmd, sizeof(cmd));
400 1.20 thorpej cmd.opcode = MOVE_MEDIUM;
401 1.20 thorpej _lto2b(sc->sc_picker, cmd.tea);
402 1.20 thorpej _lto2b(fromelem, cmd.src);
403 1.20 thorpej _lto2b(toelem, cmd.dst);
404 1.20 thorpej if (cm->cm_flags & CM_INVERT)
405 1.20 thorpej cmd.flags |= MOVE_MEDIUM_INVERT;
406 1.20 thorpej
407 1.20 thorpej /*
408 1.20 thorpej * Send command to changer.
409 1.20 thorpej */
410 1.27 bouyer return (sc->sc_link->scsipi_cmd(sc->sc_link, (struct scsipi_generic *)&cmd,
411 1.20 thorpej sizeof(cmd), NULL, 0, CHRETRIES, 100000, NULL, 0));
412 1.1 cgd }
413 1.1 cgd
414 1.20 thorpej int
415 1.20 thorpej ch_exchange(sc, ce)
416 1.20 thorpej struct ch_softc *sc;
417 1.20 thorpej struct changer_exchange *ce;
418 1.20 thorpej {
419 1.20 thorpej struct scsi_exchange_medium cmd;
420 1.20 thorpej u_int16_t src, dst1, dst2;
421 1.20 thorpej
422 1.20 thorpej /*
423 1.20 thorpej * Check arguments.
424 1.20 thorpej */
425 1.20 thorpej if ((ce->ce_srctype > CHET_DT) || (ce->ce_fdsttype > CHET_DT) ||
426 1.20 thorpej (ce->ce_sdsttype > CHET_DT))
427 1.20 thorpej return (EINVAL);
428 1.20 thorpej if ((ce->ce_srcunit > (sc->sc_counts[ce->ce_srctype] - 1)) ||
429 1.20 thorpej (ce->ce_fdstunit > (sc->sc_counts[ce->ce_fdsttype] - 1)) ||
430 1.20 thorpej (ce->ce_sdstunit > (sc->sc_counts[ce->ce_sdsttype] - 1)))
431 1.20 thorpej return (ENODEV);
432 1.20 thorpej
433 1.20 thorpej /*
434 1.20 thorpej * Check the request against the changer's capabilities.
435 1.20 thorpej */
436 1.20 thorpej if (((sc->sc_exchangemask[ce->ce_srctype] &
437 1.20 thorpej (1 << ce->ce_fdsttype)) == 0) ||
438 1.20 thorpej ((sc->sc_exchangemask[ce->ce_fdsttype] &
439 1.20 thorpej (1 << ce->ce_sdsttype)) == 0))
440 1.20 thorpej return (EINVAL);
441 1.20 thorpej
442 1.20 thorpej /*
443 1.20 thorpej * Calculate the source and destination elements.
444 1.20 thorpej */
445 1.20 thorpej src = sc->sc_firsts[ce->ce_srctype] + ce->ce_srcunit;
446 1.20 thorpej dst1 = sc->sc_firsts[ce->ce_fdsttype] + ce->ce_fdstunit;
447 1.20 thorpej dst2 = sc->sc_firsts[ce->ce_sdsttype] + ce->ce_sdstunit;
448 1.20 thorpej
449 1.20 thorpej /*
450 1.20 thorpej * Build the SCSI command.
451 1.20 thorpej */
452 1.20 thorpej bzero(&cmd, sizeof(cmd));
453 1.20 thorpej cmd.opcode = EXCHANGE_MEDIUM;
454 1.20 thorpej _lto2b(sc->sc_picker, cmd.tea);
455 1.20 thorpej _lto2b(src, cmd.src);
456 1.20 thorpej _lto2b(dst1, cmd.fdst);
457 1.20 thorpej _lto2b(dst2, cmd.sdst);
458 1.20 thorpej if (ce->ce_flags & CE_INVERT1)
459 1.20 thorpej cmd.flags |= EXCHANGE_MEDIUM_INV1;
460 1.20 thorpej if (ce->ce_flags & CE_INVERT2)
461 1.20 thorpej cmd.flags |= EXCHANGE_MEDIUM_INV2;
462 1.20 thorpej
463 1.20 thorpej /*
464 1.20 thorpej * Send command to changer.
465 1.20 thorpej */
466 1.27 bouyer return (sc->sc_link->scsipi_cmd(sc->sc_link, (struct scsipi_generic *)&cmd,
467 1.20 thorpej sizeof(cmd), NULL, 0, CHRETRIES, 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.27 bouyer return (sc->sc_link->scsipi_cmd(sc->sc_link, (struct scsipi_generic *)&cmd,
505 1.20 thorpej sizeof(cmd), NULL, 0, CHRETRIES, 100000, NULL, 0));
506 1.1 cgd }
507 1.1 cgd
508 1.6 mycroft /*
509 1.20 thorpej * Perform a READ ELEMENT STATUS on behalf of the user, and return to
510 1.20 thorpej * the user only the data the user is interested in (i.e. an array of
511 1.20 thorpej * flags bytes).
512 1.6 mycroft */
513 1.20 thorpej int
514 1.20 thorpej ch_usergetelemstatus(sc, chet, uptr)
515 1.20 thorpej struct ch_softc *sc;
516 1.20 thorpej int chet;
517 1.20 thorpej u_int8_t *uptr;
518 1.20 thorpej {
519 1.20 thorpej struct read_element_status_header *st_hdr;
520 1.20 thorpej struct read_element_status_page_header *pg_hdr;
521 1.20 thorpej struct read_element_status_descriptor *desc;
522 1.20 thorpej caddr_t data = NULL;
523 1.20 thorpej size_t size, desclen;
524 1.20 thorpej int avail, i, error = 0;
525 1.20 thorpej u_int8_t *user_data = NULL;
526 1.20 thorpej
527 1.20 thorpej /*
528 1.20 thorpej * If there are no elements of the requested type in the changer,
529 1.20 thorpej * the request is invalid.
530 1.20 thorpej */
531 1.20 thorpej if (sc->sc_counts[chet] == 0)
532 1.20 thorpej return (EINVAL);
533 1.20 thorpej
534 1.20 thorpej /*
535 1.20 thorpej * Request one descriptor for the given element type. This
536 1.20 thorpej * is used to determine the size of the descriptor so that
537 1.20 thorpej * we can allocate enough storage for all of them. We assume
538 1.20 thorpej * that the first one can fit into 1k.
539 1.20 thorpej */
540 1.20 thorpej data = (caddr_t)malloc(1024, M_DEVBUF, M_WAITOK);
541 1.21 christos error = ch_getelemstatus(sc, sc->sc_firsts[chet], 1, data, 1024);
542 1.21 christos if (error)
543 1.20 thorpej goto done;
544 1.20 thorpej
545 1.20 thorpej st_hdr = (struct read_element_status_header *)data;
546 1.20 thorpej pg_hdr = (struct read_element_status_page_header *)((u_long)st_hdr +
547 1.20 thorpej sizeof(struct read_element_status_header));
548 1.20 thorpej desclen = _2btol(pg_hdr->edl);
549 1.20 thorpej
550 1.20 thorpej size = sizeof(struct read_element_status_header) +
551 1.20 thorpej sizeof(struct read_element_status_page_header) +
552 1.20 thorpej (desclen * sc->sc_counts[chet]);
553 1.20 thorpej
554 1.20 thorpej /*
555 1.20 thorpej * Reallocate storage for descriptors and get them from the
556 1.20 thorpej * device.
557 1.20 thorpej */
558 1.20 thorpej free(data, M_DEVBUF);
559 1.20 thorpej data = (caddr_t)malloc(size, M_DEVBUF, M_WAITOK);
560 1.21 christos error = ch_getelemstatus(sc, sc->sc_firsts[chet],
561 1.21 christos sc->sc_counts[chet], data, size);
562 1.21 christos if (error)
563 1.20 thorpej goto done;
564 1.20 thorpej
565 1.20 thorpej /*
566 1.20 thorpej * Fill in the user status array.
567 1.20 thorpej */
568 1.20 thorpej st_hdr = (struct read_element_status_header *)data;
569 1.20 thorpej avail = _2btol(st_hdr->count);
570 1.28 mjacob
571 1.20 thorpej if (avail != sc->sc_counts[chet])
572 1.24 christos printf("%s: warning, READ ELEMENT STATUS avail != count\n",
573 1.20 thorpej sc->sc_dev.dv_xname);
574 1.20 thorpej
575 1.20 thorpej user_data = (u_int8_t *)malloc(avail, M_DEVBUF, M_WAITOK);
576 1.20 thorpej
577 1.20 thorpej desc = (struct read_element_status_descriptor *)((u_long)data +
578 1.20 thorpej sizeof(struct read_element_status_header) +
579 1.20 thorpej sizeof(struct read_element_status_page_header));
580 1.20 thorpej for (i = 0; i < avail; ++i) {
581 1.20 thorpej user_data[i] = desc->flags1;
582 1.20 thorpej (u_long)desc += desclen;
583 1.20 thorpej }
584 1.20 thorpej
585 1.20 thorpej /* Copy flags array out to userspace. */
586 1.20 thorpej error = copyout(user_data, uptr, avail);
587 1.20 thorpej
588 1.20 thorpej done:
589 1.20 thorpej if (data != NULL)
590 1.20 thorpej free(data, M_DEVBUF);
591 1.20 thorpej if (user_data != NULL)
592 1.20 thorpej free(user_data, M_DEVBUF);
593 1.20 thorpej return (error);
594 1.20 thorpej }
595 1.20 thorpej
596 1.20 thorpej int
597 1.20 thorpej ch_getelemstatus(sc, first, count, data, datalen)
598 1.20 thorpej struct ch_softc *sc;
599 1.20 thorpej int first, count;
600 1.20 thorpej caddr_t data;
601 1.20 thorpej size_t datalen;
602 1.1 cgd {
603 1.20 thorpej struct scsi_read_element_status cmd;
604 1.6 mycroft
605 1.6 mycroft /*
606 1.20 thorpej * Build SCSI command.
607 1.6 mycroft */
608 1.20 thorpej bzero(&cmd, sizeof(cmd));
609 1.20 thorpej cmd.opcode = READ_ELEMENT_STATUS;
610 1.20 thorpej _lto2b(first, cmd.sea);
611 1.20 thorpej _lto2b(count, cmd.count);
612 1.20 thorpej _lto3b(datalen, cmd.len);
613 1.6 mycroft
614 1.6 mycroft /*
615 1.20 thorpej * Send command to changer.
616 1.6 mycroft */
617 1.27 bouyer return (sc->sc_link->scsipi_cmd(sc->sc_link, (struct scsipi_generic *)&cmd,
618 1.20 thorpej sizeof(cmd), (u_char *)data, datalen, CHRETRIES, 100000, NULL, 0));
619 1.20 thorpej }
620 1.20 thorpej
621 1.20 thorpej
622 1.28 mjacob int
623 1.28 mjacob ch_ielem(sc)
624 1.28 mjacob struct ch_softc *sc;
625 1.28 mjacob {
626 1.28 mjacob struct scsi_initialize_element_status cmd;
627 1.28 mjacob
628 1.28 mjacob /*
629 1.28 mjacob * Build SCSI command.
630 1.28 mjacob */
631 1.28 mjacob bzero(&cmd, sizeof(cmd));
632 1.28 mjacob cmd.opcode = INITIALIZE_ELEMENT_STATUS;
633 1.28 mjacob
634 1.28 mjacob /*
635 1.28 mjacob * Send command to changer.
636 1.28 mjacob */
637 1.28 mjacob return (sc->sc_link->scsipi_cmd(sc->sc_link,
638 1.28 mjacob (struct scsipi_generic *)&cmd, sizeof(cmd),
639 1.28 mjacob NULL, 0, CHRETRIES, 100000, NULL, 0));
640 1.28 mjacob }
641 1.28 mjacob
642 1.20 thorpej /*
643 1.20 thorpej * Ask the device about itself and fill in the parameters in our
644 1.20 thorpej * softc.
645 1.20 thorpej */
646 1.20 thorpej int
647 1.20 thorpej ch_get_params(sc, scsiflags)
648 1.20 thorpej struct ch_softc *sc;
649 1.20 thorpej int scsiflags;
650 1.20 thorpej {
651 1.20 thorpej struct scsi_mode_sense cmd;
652 1.20 thorpej struct scsi_mode_sense_data {
653 1.20 thorpej struct scsi_mode_header header;
654 1.20 thorpej union {
655 1.20 thorpej struct page_element_address_assignment ea;
656 1.20 thorpej struct page_transport_geometry_parameters tg;
657 1.20 thorpej struct page_device_capabilities cap;
658 1.20 thorpej } pages;
659 1.20 thorpej } sense_data;
660 1.20 thorpej int error, from;
661 1.20 thorpej u_int8_t *moves, *exchanges;
662 1.6 mycroft
663 1.6 mycroft /*
664 1.20 thorpej * Grab info from the element address assignment page.
665 1.6 mycroft */
666 1.20 thorpej bzero(&cmd, sizeof(cmd));
667 1.20 thorpej bzero(&sense_data, sizeof(sense_data));
668 1.27 bouyer cmd.opcode = SCSI_MODE_SENSE;
669 1.20 thorpej cmd.byte2 |= 0x08; /* disable block descriptors */
670 1.20 thorpej cmd.page = 0x1d;
671 1.20 thorpej cmd.length = (sizeof(sense_data) & 0xff);
672 1.27 bouyer error = sc->sc_link->scsipi_cmd(sc->sc_link, (struct scsipi_generic *)&cmd,
673 1.20 thorpej sizeof(cmd), (u_char *)&sense_data, sizeof(sense_data), CHRETRIES,
674 1.20 thorpej 6000, NULL, scsiflags | SCSI_DATA_IN);
675 1.15 christos if (error) {
676 1.24 christos printf("%s: could not sense element address page\n",
677 1.21 christos sc->sc_dev.dv_xname);
678 1.20 thorpej return (error);
679 1.6 mycroft }
680 1.6 mycroft
681 1.20 thorpej sc->sc_firsts[CHET_MT] = _2btol(sense_data.pages.ea.mtea);
682 1.20 thorpej sc->sc_counts[CHET_MT] = _2btol(sense_data.pages.ea.nmte);
683 1.20 thorpej sc->sc_firsts[CHET_ST] = _2btol(sense_data.pages.ea.fsea);
684 1.20 thorpej sc->sc_counts[CHET_ST] = _2btol(sense_data.pages.ea.nse);
685 1.20 thorpej sc->sc_firsts[CHET_IE] = _2btol(sense_data.pages.ea.fieea);
686 1.20 thorpej sc->sc_counts[CHET_IE] = _2btol(sense_data.pages.ea.niee);
687 1.20 thorpej sc->sc_firsts[CHET_DT] = _2btol(sense_data.pages.ea.fdtea);
688 1.20 thorpej sc->sc_counts[CHET_DT] = _2btol(sense_data.pages.ea.ndte);
689 1.20 thorpej
690 1.20 thorpej /* XXX ask for page trasport geom */
691 1.6 mycroft
692 1.6 mycroft /*
693 1.20 thorpej * Grab info from the capabilities page.
694 1.20 thorpej */
695 1.20 thorpej bzero(&cmd, sizeof(cmd));
696 1.20 thorpej bzero(&sense_data, sizeof(sense_data));
697 1.27 bouyer cmd.opcode = SCSI_MODE_SENSE;
698 1.28 mjacob /*
699 1.28 mjacob * XXX: Note: not all changers can deal with disabled block descriptors
700 1.28 mjacob */
701 1.28 mjacob cmd.byte2 = 0x08; /* disable block descriptors */
702 1.20 thorpej cmd.page = 0x1f;
703 1.20 thorpej cmd.length = (sizeof(sense_data) & 0xff);
704 1.27 bouyer error = sc->sc_link->scsipi_cmd(sc->sc_link, (struct scsipi_generic *)&cmd,
705 1.20 thorpej sizeof(cmd), (u_char *)&sense_data, sizeof(sense_data), CHRETRIES,
706 1.20 thorpej 6000, NULL, scsiflags | SCSI_DATA_IN);
707 1.20 thorpej if (error) {
708 1.24 christos printf("%s: could not sense capabilities page\n",
709 1.21 christos sc->sc_dev.dv_xname);
710 1.20 thorpej return (error);
711 1.20 thorpej }
712 1.20 thorpej
713 1.20 thorpej bzero(sc->sc_movemask, sizeof(sc->sc_movemask));
714 1.20 thorpej bzero(sc->sc_exchangemask, sizeof(sc->sc_exchangemask));
715 1.20 thorpej moves = &sense_data.pages.cap.move_from_mt;
716 1.20 thorpej exchanges = &sense_data.pages.cap.exchange_with_mt;
717 1.20 thorpej for (from = CHET_MT; from <= CHET_DT; ++from) {
718 1.20 thorpej sc->sc_movemask[from] = moves[from];
719 1.20 thorpej sc->sc_exchangemask[from] = exchanges[from];
720 1.1 cgd }
721 1.20 thorpej
722 1.20 thorpej sc->sc_link->flags |= SDEV_MEDIA_LOADED;
723 1.20 thorpej return (0);
724 1.26 thorpej }
725 1.26 thorpej
726 1.26 thorpej void
727 1.26 thorpej ch_get_quirks(sc, inqbuf)
728 1.26 thorpej struct ch_softc *sc;
729 1.27 bouyer struct scsipi_inquiry_pattern *inqbuf;
730 1.26 thorpej {
731 1.26 thorpej struct chquirk *match;
732 1.26 thorpej int priority;
733 1.26 thorpej
734 1.26 thorpej sc->sc_settledelay = 0;
735 1.26 thorpej
736 1.27 bouyer match = (struct chquirk *)scsipi_inqmatch(inqbuf,
737 1.26 thorpej (caddr_t)chquirks,
738 1.26 thorpej sizeof(chquirks) / sizeof(chquirks[0]),
739 1.26 thorpej sizeof(chquirks[0]), &priority);
740 1.26 thorpej if (priority != 0) {
741 1.26 thorpej sc->sc_settledelay = match->cq_settledelay;
742 1.26 thorpej }
743 1.1 cgd }
744