/* Changes 2003 Steve Heck <steve.heck@am.sony.com>

$Date: 2003/06/27 00:28:05 $
$Revision: 1.1.1.1.2.1 $

  This program is free software; you may redistribute 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 complete details.

*/


/* This is the SCSI commands for AIX using GSC Generic SCSI Interface. */

#define LONG_PRINT_REQUEST_SENSE  /* sigh! */

DEVICE_TYPE SCSI_OpenDevice(char *DeviceName)
{
  int DeviceFD = open(DeviceName, 0); 
  
  if (DeviceFD < 0)
    FatalError("cannot open SCSI device '%s' - %m\n", DeviceName);
  return (DEVICE_TYPE) DeviceFD;
}


void SCSI_CloseDevice(char *DeviceName,
			     DEVICE_TYPE DeviceFD)
{
  if (close(DeviceFD) < 0)
    FatalError("cannot close SCSI device '%s' - %m\n", DeviceName);
}


#define HAS_SCSI_TIMEOUT

static int timeout=9*60; 

void SCSI_Set_Timeout(int to) {
  timeout=to;
}

void SCSI_Default_Timeout(void) {
  timeout=9*60; /* the default */
}

#ifdef DEBUG
int SCSI_DumpBuffer(int DataBufferLength, unsigned char *DataBuffer) {
  int i,j;
  j=0;
  for (i=0; i < DataBufferLength; i++) {
    if (j==25) {
      fprintf(stderr,"\n");
      j=0;
    }
    if (j==0) {
      fprintf(stderr,"%04x:",i);
    }
    if (j>0) {
      fprintf(stderr," ");
    }
    fprintf(stderr,"%02x",(int)DataBuffer[i]);
    j++;
  }
  fprintf(stderr,"\n");
}
#endif



int SCSI_ExecuteCommand(DEVICE_TYPE DeviceFD,
			       Direction_T Direction,
			       CDB_T *CDB,
			       int CDB_Length,
			       void *DataBuffer,
			       int DataBufferLength,
			       RequestSense_T *RequestSense)
{
  int ioctl_result;
  char sbyte;
  scmd_t scmd;

#ifdef DEBUG_SCSI
  fprintf(stderr,"------CDB--------\n");
  SCSI_DumpBuffer(CDB_Length,(char *)CDB);
#endif

  /* memset(&scmd, 0, sizeof(struct scmd_t)); */
  /* memset(RequestSense, 0, sizeof(RequestSense_T)); */
  switch (Direction)
    {
    case Input:
      scmd.rw = 1;
      if (DataBufferLength > 0) {
          memset(DataBuffer, 0, DataBufferLength);
	 }
      break;
    case Output:
      scmd.rw = 2;
      break;
    }
  /* Set timeout to 5 minutes. */
#ifdef DEBUG_TIMEOUT
  fprintf(stderr,"timeout=%d\n",timeout);
  fflush(stderr);
#endif
  
  scmd.timeval = timeout;
  
  scmd.cdb = (caddr_t) CDB;
  scmd.cdblen = CDB_Length;
  scmd.data_buf = DataBuffer;
  scmd.datalen = DataBufferLength;
  scmd.sense_buf = (caddr_t) RequestSense;
  scmd.senselen = sizeof(RequestSense_T);
  scmd.statusp = &sbyte;
  ioctl_result=ioctl(DeviceFD, GSC_CMD, (caddr_t) &scmd);

  SCSI_Default_Timeout(); /* set it back to default, sigh. */


  if (ioctl_result < 0) {
#ifdef DEBUG
    perror("mtx");
#endif
    return ioctl_result;
  }

  if (sbyte != 0) {
    return -1;
  }
#ifdef DEBUG_SCSI
  if (Direction==Input) {
    fprintf(stderr,"--------input data-----------\n");
    SCSI_DumpBuffer(DataBufferLength,DataBuffer);
  }
#endif
  return 0;
}
