+/*
+ * Copyright (c) 1998,1999,2000
+ * Traakan, Inc., Los Altos, CA
+ * All rights reserved.
+ *
+ * Redistribution and use in source and binary forms, with or without
+ * modification, are permitted provided that the following conditions
+ * are met:
+ * 1. Redistributions of source code must retain the above copyright
+ * notice unmodified, this list of conditions, and the following
+ * disclaimer.
+ * 2. Redistributions in binary form must reproduce the above copyright
+ * notice, this list of conditions and the following disclaimer in the
+ * documentation and/or other materials provided with the distribution.
+ *
+ * THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND CONTRIBUTORS ``AS IS'' AND
+ * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+ * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+ * ARE DISCLAIMED. IN NO EVENT SHALL THE AUTHOR OR CONTRIBUTORS BE LIABLE
+ * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
+ * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
+ * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
+ * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
+ * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
+ * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
+ * SUCH DAMAGE.
+ */
+
+/*
+ * Project: NDMJOB
+ * Ident: $Id: $
+ *
+ * Description:
+ *
+ */
+
+
+#include "smc_priv.h"
+#include "scsiconst.h"
+
+
+int
+smc_scsi_xa (struct smc_ctrl_block *smc)
+{
+ int try = 0;
+ int rc;
+ int sense_key;
+ unsigned char * sense_data = smc->scsi_req.sense_data;
+
+ for (try = 0; try < 2; try++) {
+ rc = (*smc->issue_scsi_req)(smc);
+ if (rc || smc->scsi_req.completion_status != SMCSR_CS_GOOD) {
+ strcpy (smc->errmsg, "SCSI request failed");
+ if (rc == 0) rc = -1;
+ continue; /* retry */
+ }
+
+ switch (SCSI_STATUS_BYTE_CODE(smc->scsi_req.status_byte)) {
+ case SCSI_STATUS_GOOD:
+ return 0;
+
+ case SCSI_STATUS_CHECK_CONDITION:
+ /* sense data processed below */
+ break;
+
+ default:
+ strcpy (smc->errmsg, "SCSI unexpected status");
+ return -1;
+ }
+
+ sense_key = sense_data[2] & SCSI_SENSE_SENSE_KEY_MASK;
+
+ if (sense_key == SCSI_SENSE_KEY_UNIT_ATTENTION) {
+ int valid;
+ int asc, ascq, asq, cmd;
+ long info;
+
+ valid = sense_data[0] & SCSI_SENSE_VALID_BIT;
+ info = SMC_GET4(&sense_data[3]);
+ asc = sense_data[12];
+ ascq = sense_data[13];
+ asq = _ASQ(asc,ascq);
+ cmd = smc->scsi_req.cmd[0];
+
+ sprintf (smc->errmsg,
+ "SCSI attn s0=%x asq=%x,%x cmd=%x info=%lx",
+ sense_data[0],
+ asc, ascq, cmd, info);
+
+ rc = 1;
+ } else {
+ strcpy (smc->errmsg, "SCSI check condition");
+ rc = 1;
+ break; /* don't retry, investigate */
+ }
+ }
+
+ if (!rc) rc = -1;
+ return rc;
+}
+
+
+#define SINQ_MEDIA_CHANGER 0x08
+
+int
+smc_inquire (struct smc_ctrl_block *smc)
+{
+ struct smc_scsi_req * sr = &smc->scsi_req;
+ unsigned char data[128];
+ int rc;
+ int i;
+
+ bzero (sr, sizeof *sr);
+ bzero (data, sizeof data);
+
+ sr->n_cmd = 6;
+ sr->cmd[0] = SCSI_CMD_INQUIRY;
+ sr->cmd[4] = sizeof data; /* allocation length */
+
+ sr->data = data;
+ sr->n_data_avail = sizeof data;
+ sr->data_dir = SMCSR_DD_IN;
+
+ rc = smc_scsi_xa (smc);
+ if (rc != 0) return rc;
+
+ if (data[0] != SINQ_MEDIA_CHANGER) {
+ strcpy (smc->errmsg, "Not a media changer");
+ return -1;
+ }
+
+ for (i = 28-1; i >= 0; i--) {
+ int c = data[8+i];
+
+ if (c != ' ')
+ break;
+ }
+
+ for (; i >= 0; i--) {
+ int c = data[8+i];
+
+ if (! (' ' <= c && c < 0x7F))
+ c = '*';
+ smc->ident[i] = c;
+ }
+
+ return 0;
+}
+
+int
+smc_test_unit_ready (struct smc_ctrl_block *smc)
+{
+ struct smc_scsi_req * sr = &smc->scsi_req;
+ int rc;
+
+ bzero (sr, sizeof *sr);
+
+ sr->n_cmd = 6;
+ sr->cmd[0] = SCSI_CMD_TEST_UNIT_READY;
+
+ rc = smc_scsi_xa (smc);
+
+ return rc;
+}
+
+int
+smc_get_elem_aa (struct smc_ctrl_block *smc)
+{
+ struct smc_scsi_req * sr = &smc->scsi_req;
+ unsigned char data[256];
+ int rc;
+
+ bzero (sr, sizeof *sr);
+ bzero (data, sizeof data);
+ bzero (&smc->elem_aa, sizeof smc->elem_aa);
+ smc->valid_elem_aa = 0;
+
+ sr->n_cmd = 6;
+ sr->cmd[0] = SCSI_CMD_MODE_SENSE_6;
+ sr->cmd[1] = 0x08; /* DBD */
+ sr->cmd[2] = 0x1D; /* current elem addrs */
+ sr->cmd[3] = 0; /* reserved */
+ sr->cmd[4] = 255; /* allocation length */
+ sr->cmd[5] = 0; /* reserved */
+
+ sr->data = data;
+ sr->n_data_avail = 255;
+ sr->data_dir = SMCSR_DD_IN;
+
+ rc = smc_scsi_xa (smc);
+ if (rc != 0) return rc;
+
+ if (data[0] < 18) {
+ strcpy (smc->errmsg, "short sense data");
+ return -1;
+ }
+
+
+ rc = smc_parse_element_address_assignment ((void*)&data[4],
+ &smc->elem_aa);
+ if (rc) {
+ strcpy (smc->errmsg, "elem_addr_assignment format error");
+ return -1;
+ }
+
+ smc->valid_elem_aa = 1;
+
+ return 0;
+}
+
+/*
+ * 17.2.2 INITIALIZE ELEMENT STATUS command
+ *
+ * The INITIALIZE ELEMENT STATUS command (see table 329) will cause the
+ * medium changer to check all elements for medium and any other status
+ * relevant to that element. The intent of this command is to enable the
+ * initiator to get a quick response from a following READ ELEMENT STATUS
+ * command. It may be useful to issue this command after a power failure,
+ * or if medium has been changed by an operator, or if configurations have
+ * been changed.
+ *
+ * Table 329 - INITIALIZE ELEMENT STATUS command
+ * +====-=======-========-========-========-========-========-========-======+
+ * | Bit| 7 | 6 | 5 | 4 | 3 | 2 | 1 | 0 |
+ * |Byte| | | | | | | | |
+ * |====+====================================================================|
+ * | 0 | Operation code (07h) |
+ * |----+--------------------------------------------------------------------|
+ * | 1 |Logical unit number | Reserved |
+ * |----+--------------------------------------------------------------------|
+ * | 2 | Reserved |
+ * |----+--------------------------------------------------------------------|
+ * | 3 | Reserved |
+ * |----+--------------------------------------------------------------------|
+ * | 4 | Reserved |
+ * |----+--------------------------------------------------------------------|
+ * | 5 | Control |
+ * +=========================================================================+
+ */
+
+
+int
+smc_init_elem_status (struct smc_ctrl_block *smc)
+{
+ struct smc_scsi_req * sr = &smc->scsi_req;
+ int rc;
+
+ bzero (sr, sizeof *sr);
+
+ sr->n_cmd = 6;
+ sr->cmd[0] = SCSI_CMD_INITIALIZE_ELEMENT_STATUS;
+
+ sr->data_dir = SMCSR_DD_NONE;
+
+ rc = smc_scsi_xa (smc);
+ if (rc != 0) return rc;
+
+ return 0;
+}
+
+
+
+/*
+ * 17.2.5 READ ELEMENT STATUS command
+ *
+ * The READ ELEMENT STATUS command (see table 332) requests that the
+ * target report the status of its internal elements to the initiator.
+ *
+ * Table 332 - READ ELEMENT STATUS command
+ * +====-=======-========-========-========-========-========-========-=======+
+ * | Bit| 7 | 6 | 5 | 4 | 3 | 2 | 1 | 0 |
+ * |Byte| | | | | | | | |
+ * |====+=====================================================================|
+ * | 0 | Operation code (B8h) |
+ * |----+---------------------------------------------------------------------|
+ * | 1 |Logical unit number | VolTag | Element type code |
+ * |----+---------------------------------------------------------------------|
+ * | 2 |(MSB) |
+ * |----+-- Starting element address --|
+ * | 3 | (LSB)|
+ * |----+---------------------------------------------------------------------|
+ * | 4 |(MSB) |
+ * |----+-- Number of elements --|
+ * | 5 | (LSB)|
+ * |----+---------------------------------------------------------------------|
+ * | 6 | Reserved |
+ * |----+---------------------------------------------------------------------|
+ * | 7 |(MSB) |
+ * |----+-- --|
+ * | 8 | Allocation length |
+ * |----+-- --|
+ * | 9 | (LSB)|
+ * |----+---------------------------------------------------------------------|
+ * |10 | Reserved |
+ * |----+---------------------------------------------------------------------|
+ * |11 | Control |
+ * +==========================================================================+
+ *
+ *
+ * A volume tag (VolTag) bit of one indicates that the target shall report
+ * volume tag information if this feature is supported. A value of zero
+ * indicates that volume tag information shall not be reported. If the
+ * volume tag feature is not supported this field shall be treated as
+ * reserved.
+ *
+ * The element type code field specifies the particular element type(s)
+ * selected for reporting by this command. A value of zero specifies that
+ * status for all element types shall be reported. The element type codes
+ * are defined in table 333.
+ *
+ * Table 333 - Element type code
+ * +=============-===================================================+
+ * | Code | Description |
+ * |-------------+---------------------------------------------------|
+ * | 0h | All element types reported, (valid in CDB only) |
+ * | 1h | Medium transport element |
+ * | 2h | Storage element |
+ * | 3h | Import export element |
+ * | 4h | Data transfer element |
+ * | 5h - Fh | Reserved |
+ * +=================================================================+
+ *
+ *
+ * The starting element address specifies the minimum element address to
+ * report. Only elements with an element type code permitted by the
+ * element type code specification, and an element address greater than or
+ * equal to the starting element address shall be reported. Element
+ * descriptor blocks are not generated for undefined element addresses.
+ *
+ * The number of elements specifies the maximum number of element
+ * descriptors to be created by the target for this command. The value
+ * specified by this field is not the range of element addresses to be
+ * considered for reporting but rather the number of defined elements to
+ * report. If the allocation length is not sufficient to transfer all the
+ * element descriptors, the target shall transfer all those descriptors
+ * that can be completely transferred and this shall not be considered an
+ * error.
+ */
+
+int
+smc_read_elem_status (struct smc_ctrl_block *smc)
+{
+ struct smc_scsi_req * sr = &smc->scsi_req;
+ unsigned char data[8192];
+ int rc;
+
+ retry:
+ bzero (sr, sizeof *sr);
+ bzero (data, sizeof data);
+ bzero (&smc->elem_desc, sizeof smc->elem_desc);
+ smc->n_elem_desc = 0;
+ smc->valid_elem_desc = 0;
+
+ sr->n_cmd = 12;
+ sr->cmd[0] = SCSI_CMD_READ_ELEMENT_STATUS;
+ if (!smc->dont_ask_for_voltags) {
+ sr->cmd[1] = 0x10; /* VolTag, all types */
+ } else {
+ sr->cmd[1] = 0x00; /* !VolTag, all types */
+ }
+ sr->cmd[2] = 0; /* starting elem MSB */
+ sr->cmd[3] = 0; /* starting elem LSB */
+ sr->cmd[4] = 0; /* number of elem MSB */
+ sr->cmd[5] = SMC_MAX_ELEMENT; /* number of elem LSB */
+ sr->cmd[6] = 0; /* reserved */
+ SMC_PUT3 (&sr->cmd[7], sizeof data);
+ sr->cmd[10] = 0; /* reserved */
+
+ sr->data = data;
+ sr->n_data_avail = sizeof data;
+ sr->data_dir = SMCSR_DD_IN;
+
+ rc = smc_scsi_xa (smc);
+ if (rc != 0) {
+ if (smc->dont_ask_for_voltags)
+ return rc;
+ smc->dont_ask_for_voltags = 1;
+ goto retry;
+ }
+
+ rc = smc_parse_element_status_data ((void*)data, sr->n_data_done,
+ smc->elem_desc, SMC_MAX_ELEMENT);
+ if (rc < 0) {
+ strcpy (smc->errmsg, "elem_status format error");
+ return -1;
+ }
+
+ smc->n_elem_desc = rc;
+
+ smc->valid_elem_aa = 1;
+
+ return 0;
+}
+
+
+int
+smc_move (struct smc_ctrl_block *smc, unsigned from_addr,
+ unsigned to_addr, int invert, unsigned chs_addr)
+{
+ struct smc_scsi_req * sr = &smc->scsi_req;
+ int rc;
+
+ bzero (sr, sizeof *sr);
+
+ sr->n_cmd = 12;
+ sr->cmd[0] = SCSI_CMD_MOVE_MEDIUM;
+ SMC_PUT2(&sr->cmd[2], chs_addr);
+ SMC_PUT2(&sr->cmd[4], from_addr);
+ SMC_PUT2(&sr->cmd[6], to_addr);
+ /* TODO: invert */
+
+ sr->data_dir = SMCSR_DD_NONE;
+
+ rc = smc_scsi_xa (smc);
+ if (rc != 0) return rc;
+
+ return 0;
+}
+
+int
+smc_position (struct smc_ctrl_block *smc, unsigned to_addr, int invert)
+{
+ return -1;
+}
+
+
+int
+smc_handy_move_to_drive (struct smc_ctrl_block *smc, unsigned from_se_ix)
+{
+ return -1;
+}
+
+int
+smc_handy_move_from_drive (struct smc_ctrl_block *smc, unsigned to_se_ix)
+{
+ return -1;
+}