1 files changed, 414 insertions, 0 deletions
diff --git a/libusal/scsi-beos.c b/libusal/scsi-beos.c
new file mode 100644
index 0000000..78b649e
--- /dev/null
+++ b/libusal/scsi-beos.c
@@ -0,0 +1,414 @@
+/*
+ * This file has been modified for the cdrkit suite.
+ *
+ * The behaviour and appearence of the program code below can differ to a major
+ * extent from the version distributed by the original author(s).
+ *
+ * For details, see Changelog file distributed with the cdrkit package. If you
+ * received this file from another source then ask the distributing person for
+ * a log of modifications.
+ *
+ */
+
+/* @(#)scsi-beos.c	1.23 06/02/05 Copyright 1998 J. Schilling */
+/*
+ *	Interface for the BeOS user-land raw SCSI implementation.
+ *
+ *	This is a hack, that tries to emulate the functionality
+ *	of the usal driver.
+ *
+ *	First version done by swetland@be.com
+ *
+ *	Warning: you may change this source, but if you do that
+ *	you need to change the _usal_version and _usal_auth* string below.
+ *	You may not return "schily" for an SCG_AUTHOR request anymore.
+ *	Choose your name instead of "schily" and make clear that the version
+ *	string is related to a modified source.
+ *
+ *	Copyright (c) 1998 J. Schilling
+ */
+/*
+ * This program is free software; you can redistribute it and/or modify
+ * it under the terms of the GNU General Public License version 2
+ * as published by the Free Software Foundation.
+ *
+ * This program is distributed in the hope that it will be useful,
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
+ * GNU General Public License for more details.
+ *
+ * You should have received a copy of the GNU General Public License along with
+ * this program; see the file COPYING.  If not, write to the Free Software
+ * Foundation, 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
+ */
+
+
+/*
+ *	Warning: you may change this source, but if you do that
+ *	you need to change the _usal_version and _usal_auth* string below.
+ *	You may not return "schily" for an SCG_AUTHOR request anymore.
+ *	Choose your name instead of "schily" and make clear that the version
+ *	string is related to a modified source.
+ */
+static	char	_usal_trans_version[] = "scsi-beos.c-1.23";	/* The version for this transport*/
+
+/*
+ * There are also defines for:
+ *	B_BEOS_VERSION_4
+ *	B_BEOS_VERSION_4_5
+ *
+ * in BeOS 5
+ */
+#ifndef	B_BEOS_VERSION_5
+/*
+ * New BeOS seems to include <be/kernel/OS.h> from device/scsi.h
+ */
+
+/* nasty hack to avoid broken def of bool in SupportDefs.h */
+#define	_SUPPORT_DEFS_H
+
+#ifndef _SYS_TYPES_H
+typedef unsigned long			ulong;
+typedef unsigned int			uint;
+typedef unsigned short			ushort;
+#endif	/* _SYS_TYPES_H */
+
+#include <BeBuild.h>
+#include <sys/types.h>
+#include <Errors.h>
+
+
+/*-------------------------------------------------------------*/
+/*----- Shorthand type formats --------------------------------*/
+
+typedef	signed char			int8;
+typedef unsigned char			uint8;
+typedef volatile signed char		vint8;
+typedef volatile unsigned char		vuint8;
+
+typedef	short				int16;
+typedef unsigned short			uint16;
+typedef volatile short			vint16;
+typedef volatile unsigned short		vuint16;
+
+typedef	long				int32;
+typedef unsigned long			uint32;
+typedef volatile long			vint32;
+typedef volatile unsigned long		vuint32;
+
+typedef	long long			int64;
+typedef unsigned long long		uint64;
+typedef volatile long long		vint64;
+typedef volatile unsigned long long	vuint64;
+
+typedef volatile long			vlong;
+typedef volatile int			vint;
+typedef volatile short			vshort;
+typedef volatile char			vchar;
+
+typedef volatile unsigned long		vulong;
+typedef volatile unsigned int		vuint;
+typedef volatile unsigned short		vushort;
+typedef volatile unsigned char		vuchar;
+
+typedef unsigned char			uchar;
+typedef unsigned short			unichar;
+
+
+
+/*-------------------------------------------------------------*/
+/*----- Descriptive formats -----------------------------------*/
+typedef int32					status_t;
+typedef int64					bigtime_t;
+typedef uint32					type_code;
+typedef uint32					perform_code;
+
+/* end nasty hack */
+
+#endif	/* ! B_BEOS_VERSION_5 */
+
+
+#include <stdlib.h>
+#include <stdio.h>
+#include <string.h>
+#include <unistd.h>
+#include <sys/stat.h>
+#include <usal/usalio.h>
+
+/* this is really really dumb (tm) */
+/*#undef sense*/
+/*#undef scb*/
+#include <device/scsi.h>
+
+#undef bool
+#include <drivers/CAM.h>
+
+struct _fdmap_ {
+	struct _fdmap_ *next;
+	int bus;
+	int targ;
+	int lun;
+	int fd;
+};
+
+/*
+ * Return version information for the low level SCSI transport code.
+ * This has been introduced to make it easier to trace down problems
+ * in applications.
+ */
+static char *
+usalo_version(SCSI *usalp, int what)
+{
+	if (usalp != (SCSI *)0) {
+		switch (what) {
+
+		case SCG_VERSION:
+			return (_usal_trans_version);
+		/*
+		 * If you changed this source, you are not allowed to
+		 * return "schily" for the SCG_AUTHOR request.
+		 */
+		case SCG_AUTHOR:
+			return (_usal_auth_cdrkit);
+		case SCG_SCCS_ID:
+			return (__sccsid);
+		}
+	}
+	return ((char *)0);
+}
+
+static int
+usalo_help(SCSI *usalp, FILE *f)
+{
+	__usal_help(f, "CAM", "Generic transport independent SCSI (BeOS CAM variant)",
+		"", "bus,target,lun", "1,2,0", TRUE, FALSE);
+	return (0);
+}
+
+static int
+usalo_open(SCSI *usalp, char *device)
+{
+	int	busno	= usal_scsibus(usalp);
+	int	tgt	= usal_target(usalp);
+#ifdef	nonono
+	int	tlun	= usal_lun(usalp);
+#endif
+
+#ifdef	nonono
+	if (busno >= MAX_SCG || tgt >= MAX_TGT || tlun >= MAX_LUN) {
+		errno = EINVAL;
+		if (usalp->errstr)
+			snprintf(usalp->errstr, SCSI_ERRSTR_SIZE,
+				"Illegal value for busno, target or lun '%d,%d,%d'",
+				busno, tgt, tlun);
+		return (-1);
+	}
+#endif
+
+	if ((device != NULL && *device != '\0') || (busno == -2 && tgt == -2)) {
+		errno = EINVAL;
+		if (usalp->errstr)
+			snprintf(usalp->errstr, SCSI_ERRSTR_SIZE,
+				"Open by 'devname' not supported on this OS");
+		return (-1);
+	}
+	return (1);
+}
+
+static int
+usalo_close(SCSI *usalp)
+{
+	struct _fdmap_	*f;
+	struct _fdmap_	*fnext;
+
+	for (f = (struct _fdmap_ *)usalp->local; f; f = fnext) {
+		usalp->local = 0;
+		fnext = f->next;
+		close(f->fd);
+		free(f);
+	}
+	return (0);
+}
+
+static long
+usalo_maxdma(SCSI *usalp, long amt)
+{
+	return (128*1024);
+	return (256*1024);
+}
+
+static void *
+usalo_getbuf(SCSI *usalp, long amt)
+{
+	if (usalp->debug > 0) {
+		fprintf((FILE *)usalp->errfile,
+			"usalo_getbuf: %ld bytes\n", amt);
+	}
+	usalp->bufbase = malloc((size_t)(amt));
+	return (usalp->bufbase);
+}
+
+static void
+usalo_freebuf(SCSI *usalp)
+{
+	if (usalp->bufbase)
+		free(usalp->bufbase);
+	usalp->bufbase = NULL;
+}
+
+static BOOL
+usalo_havebus(SCSI *usalp, int busno)
+{
+	struct stat	sb;
+	char		buf[128];
+
+	if (busno < 8)
+		snprintf(buf, sizeof (buf), "/dev/bus/scsi/%d", busno);
+	else
+		snprintf(buf, sizeof (buf), "/dev/disk/ide/atapi/%d", busno-8);
+	if (stat(buf, &sb))
+		return (FALSE);
+	return (TRUE);
+}
+
+static int
+usalo_fileno(SCSI *usalp, int busno, int tgt, int tlun)
+{
+	struct _fdmap_	*f;
+	char		buf[128];
+	int		fd;
+
+	for (f = (struct _fdmap_ *)usalp->local; f; f = f->next) {
+		if (f->bus == busno && f->targ == tgt && f->lun == tlun)
+			return (f->fd);
+	}
+	if (busno < 8) {
+		snprintf(buf, sizeof (buf),
+					"/dev/bus/scsi/%d/%d/%d/raw",
+					busno, tgt, tlun);
+	} else {
+		char *tgtstr = (tgt == 0) ? "master" : (tgt == 1) ? "slave" : "dummy";
+		snprintf(buf, sizeof (buf),
+					"/dev/disk/ide/atapi/%d/%s/%d/raw",
+					busno-8, tgtstr, tlun);
+	}
+	fd = open(buf, 0);
+
+	if (fd >= 0) {
+		f = (struct _fdmap_ *) malloc(sizeof (struct _fdmap_));
+		f->bus = busno;
+		f->targ = tgt;
+		f->lun = tlun;
+		f->fd = fd;
+		f->next = (struct _fdmap_ *)usalp->local;
+		usalp->local = f;
+	}
+	return (fd);
+}
+
+static int
+usalo_initiator_id(SCSI *usalp)
+{
+	return (-1);
+}
+
+static int
+usalo_isatapi(SCSI *usalp)
+{
+	/*
+	 * XXX Should check for ATAPI
+	 */
+	return (-1);
+}
+
+static int
+usalo_reset(SCSI *usalp, int what)
+{
+	errno = EINVAL;
+	return (-1);
+}
+
+static int
+usalo_send(SCSI *usalp)
+{
+	struct usal_cmd		*sp = usalp->scmd;
+	int			e;
+	int 			scsi_error;
+	int			cam_error;
+	raw_device_command	rdc;
+
+	if (usalp->fd < 0) {
+		sp->error = SCG_FATAL;
+		return (0);
+	}
+
+	memcpy(rdc.command, &(sp->cdb), 12);
+	rdc.command_length = sp->cdb_len;
+	rdc.data = sp->addr;
+	rdc.data_length = sp->size;
+	rdc.sense_data_length = sp->sense_len;
+	rdc.sense_data = sp->u_sense.cmd_sense;
+	rdc.flags = sp->flags & SCG_RECV_DATA ? B_RAW_DEVICE_DATA_IN : 0;
+	if (sp->size > 0)
+		rdc.flags |= B_RAW_DEVICE_REPORT_RESIDUAL;
+	rdc.timeout = sp->timeout * 1000000;
+
+	sp->error		= SCG_NO_ERROR;
+	sp->sense_count		= 0;
+	sp->u_scb.cmd_scb[0]	= 0;
+	sp->resid		= 0;
+
+	if (usalp->debug > 0) {
+		fprintf(stderr, "SEND(%d): cmd %02x, cdblen = %d, datalen = %ld, senselen = %ld\n",
+			usalp->fd, rdc.command[0], rdc.command_length,
+			rdc.data_length, rdc.sense_data_length);
+	}
+	e = ioctl(usalp->fd, B_RAW_DEVICE_COMMAND, &rdc, sizeof (rdc));
+	if (usalp->debug > 0) {
+		fprintf(stderr, "SEND(%d): -> %d CAM Status %02X SCSI status %02X\n", e, rdc.cam_status, rdc.scsi_status);
+	}
+	sp->ux_errno = 0;
+#ifdef	DEBUG
+	fprintf(stderr, "err %d errno %x CAM %X SL %d DL %d/%d FL %X\n",
+		e, geterrno(), rdc.cam_status,
+		rdc.sense_data_length, rdc.data_length, sp->size, rdc.flags);
+#endif
+	if (!e) {
+		cam_error = rdc.cam_status;
+		scsi_error = rdc.scsi_status;
+		sp->u_scb.cmd_scb[0] = scsi_error;
+		if (sp->size > 0)
+			sp->resid = sp->size - rdc.data_length;
+
+		switch (cam_error & CAM_STATUS_MASK) {
+
+		case CAM_REQ_CMP:
+			sp->error = SCG_NO_ERROR;
+			break;
+
+		case CAM_REQ_CMP_ERR:
+			sp->sense_count = sp->sense_len; /* XXX */
+			sp->error = SCG_NO_ERROR;
+			sp->ux_errno = EIO;
+			break;
+
+		case CAM_CMD_TIMEOUT:
+			sp->error = SCG_TIMEOUT;
+			sp->ux_errno = EIO;
+
+		case CAM_SEL_TIMEOUT:
+			sp->error = SCG_FATAL;
+			sp->ux_errno = EIO;
+			break;
+
+		default:
+			sp->error = SCG_RETRYABLE;
+			sp->ux_errno = EIO;
+		}
+	} else {
+		sp->error = SCG_FATAL;
+		sp->ux_errno = geterrno();
+		sp->resid = sp->size;
+	}
+	return (0);
+}