/*
 * CDDL HEADER START
 *
 * The contents of this file are subject to the terms of the
 * Common Development and Distribution License, Version 1.0 only
 * (the "License").  You may not use this file except in compliance
 * with the License.
 *
 * You can obtain a copy of the license at usr/src/OPENSOLARIS.LICENSE
 * or http://www.opensolaris.org/os/licensing.
 * See the License for the specific language governing permissions
 * and limitations under the License.
 *
 * When distributing Covered Code, include this CDDL HEADER in each
 * file and include the License file at usr/src/OPENSOLARIS.LICENSE.
 * If applicable, add the following below this CDDL HEADER, with the
 * fields enclosed by brackets "[]" replaced with your own identifying
 * information: Portions Copyright [yyyy] [name of copyright owner]
 *
 * CDDL HEADER END
 */
/*
 * Copyright 2004 Sun Microsystems, Inc.  All rights reserved.
 * Use is subject to license terms.
 */

#include <stdio.h>
#include <string.h>
#include <stdlib.h>
#include <sys/types.h>
#include <libintl.h>

#include "transport.h"
#include "toshiba.h"
#include "device.h"
#include "misc_scsi.h"
#include "util.h"
#include "main.h"
#include "msgs.h"
#include "mmc.h"

static int speed_tbl[4] = 		{ 1, 2, 12, 4 };
static uchar_t rev_speed_tbl[16] = 	{ 0, 0, 1, 0, 3, 0, 0, 0, 0,
					    0, 0, 0, 2, 0, 0, 0 };

/*
 * These are commands for using older Sun Toshiba drives. These
 * commands are needed for reading CD TOC and audio extraction
 * and changing speeds (used for audio extraction).
 */

int
read_toc_as_per_8020(int fd, int format, int trackno, int buflen, uchar_t *buf)
{
	struct uscsi_cmd *scmd;

	scmd = get_uscsi_cmd();
	scmd->uscsi_flags = USCSI_READ|USCSI_SILENT;
	scmd->uscsi_timeout = 60;
	scmd->uscsi_cdb[0] = READ_TOC_CMD;
	scmd->uscsi_cdb[6] = trackno;
	scmd->uscsi_cdb[8] = buflen & 0xff;
	scmd->uscsi_cdb[7] = (buflen >> 8) & 0xff;
	scmd->uscsi_cdb[9] = (format << 6) & 0xc0;
	scmd->uscsi_cdblen = 10;
	scmd->uscsi_bufaddr = (char *)buf;
	scmd->uscsi_buflen = buflen;
	if (uscsi(fd, scmd) < 0)
		return (0);
	return (1);
}

int
toshiba_read_audio(cd_device *target, uint_t start_blk, uint_t nblk,
    uchar_t *buf)
{
	struct uscsi_cmd *scmd;
	int ret, retry;

	scmd = get_uscsi_cmd();
	scmd->uscsi_flags = USCSI_READ|USCSI_SILENT;
	scmd->uscsi_timeout = 60;
	((uchar_t *)scmd->uscsi_cdb)[0] = READ_AUDIO_CMD;
	scmd->uscsi_cdb[5] = start_blk & 0xff;
	scmd->uscsi_cdb[4] = (start_blk >> 8) & 0xff;
	scmd->uscsi_cdb[3] = (start_blk >> 16) & 0xff;
	scmd->uscsi_cdb[2] = (start_blk >> 24) & 0xff;
	scmd->uscsi_cdb[9] = nblk & 0xff;
	scmd->uscsi_cdb[8] = (nblk >> 8) & 0xff;
	scmd->uscsi_cdb[7] = (nblk >> 16) & 0xff;
	scmd->uscsi_cdb[6] = (nblk >> 24) & 0xff;
	scmd->uscsi_cdblen = 12;
	scmd->uscsi_bufaddr = (char *)buf;
	scmd->uscsi_buflen = nblk*2352;

	for (retry = 0; retry < 3; retry++) {
		ret = uscsi(target->d_fd, scmd);
		if (ret >= 0)
			break;
	}

	if (ret < 0)
		return (0);
	return (1);
}

int
toshiba_speed_ctrl(cd_device *dev, int cmd, int speed)
{
	uchar_t *mpage;
	struct uscsi_cmd *scmd;
	int ret;

	if ((cmd == GET_WRITE_SPEED) || (cmd == SET_WRITE_SPEED)) {
		if (debug) {
			(void) printf("toshiba_speed_ctrl: WRONG CMD %d\n",
			    cmd);
		}
		return (0);
	}

	if (cmd == SET_READ_SPEED) {
		if (dev->d_cap & DEV_CAP_SETTING_SPEED_NOT_ALLOWED) {
			if (verbose)
				err_msg(gettext(
				    "Cannot set speed on this device.\n"));
			return (0);
		}
		if (speed == 32) {
			if (strncmp("SUN32XCD",
			    (const char *)&dev->d_inq[24], 8) == 0)
				return (1);
		}
		if ((speed != 1) && (speed != 2) && (speed != 4) &&
		    (speed != 12)) {
			if (verbose)
				err_msg(gettext(
				"%dx speed is not supported by the device.\n"));
			return (0);
		}
	}

	ret = 0;
	mpage = (uchar_t *)my_zalloc(16);
	scmd = get_uscsi_cmd();
	scmd->uscsi_flags = USCSI_READ|USCSI_SILENT;
	scmd->uscsi_timeout = 60;
	scmd->uscsi_cdblen = 6;
	scmd->uscsi_bufaddr = (char *)mpage;
	scmd->uscsi_buflen = 16;
	/* 6 byte mode sense for older drives */
	scmd->uscsi_cdb[0] = MODE_SENSE_6_CMD;
	scmd->uscsi_cdb[2] = 0x31;
	scmd->uscsi_cdb[4] = 16;
	if (uscsi(dev->d_fd, scmd) < 0)
		goto end_speed_ctrl;
	if (cmd == GET_READ_SPEED) {
		ret = speed_tbl[mpage[14] & 0x3];
		goto end_speed_ctrl;
	}
	if (cmd == SET_READ_SPEED) {
		(void) memset(mpage, 0, 9);
		mpage[3] = 8;
		mpage[12] = 0x31;
		mpage[13] = 2;
		mpage[14] = rev_speed_tbl[speed];
		scmd = get_uscsi_cmd();
		scmd->uscsi_flags = USCSI_WRITE|USCSI_SILENT;
		scmd->uscsi_timeout = 60;
		scmd->uscsi_cdblen = 6;
		scmd->uscsi_bufaddr = (char *)mpage;
		scmd->uscsi_buflen = 16;
		/* 6 byte mode sense command for older drives */
		scmd->uscsi_cdb[0] = MODE_SELECT_6_CMD;
		scmd->uscsi_cdb[1] = 0x10;
		scmd->uscsi_cdb[4] = 16;
		if (uscsi(dev->d_fd, scmd) < 0)
			goto end_speed_ctrl;
		ret = 1;
	}
end_speed_ctrl:
	free(mpage);
	return (ret);
}