/*
 *  Cdrom - device driver emulation - Audio features.
 *  (c) 1998 Petr Tomasek <tomasek@etf.cuni.cz>
 *
 */

#ifdef linux

#include "config.h"
#include <fcntl.h>
#include <sys/ioctl.h>
#include <sys/types.h>
/* FIXME - how to make this OS independent ?? */
#ifdef HAVE_LINUX_CDROM_H
# include <linux/cdrom.h>
#endif
#ifdef HAVE_LINUX_UCDROM_H
# include <linux/ucdrom.h>
#endif

#include "ldt.h"
#include "drive.h"
#include "msdos.h"
#include "miscemu.h"
#include "module.h"
/* #define DEBUG_INT */
#include "debug.h"


/*  FIXME - more general ?? */
#define cdrom_dev "/dev/cdrom"

u_char cdrom_a_status (int fd)
{
struct cdrom_subchnl sc;

ioctl(fd,CDROMSUBCHNL,&sc);
return sc.cdsc_audiostatus;
}

BYTE * get_io_stru (WORD * reqh,int dorealmode)
{
WORD ofst,segm;
BYTE * io_stru;
ofst = reqh[7]; segm = reqh[8];

if (dorealmode)
  io_stru = DOSMEM_MapRealToLinear (MAKELONG(ofst,segm));
else
  io_stru = PTR_SEG_OFF_TO_LIN(segm,ofst);

return io_stru;
}

DWORD msf0_to_abs (struct cdrom_msf0 msf)
{
return  (msf.minute *60 + 
        msf.second) *75 +
        msf.frame-150; 
}

void abs_to_msf0 (DWORD abs, struct cdrom_msf0 * msf)
{
DWORD d;
d=abs+150;
msf->frame=d%75;  d=d/75;
msf->second=d%60; msf->minute=d/60;
}

void msf0_to_msf (struct cdrom_msf0 from, struct cdrom_msf0 to, struct cdrom_msf * msf)
{
msf->cdmsf_min0=from.minute;
msf->cdmsf_min1=to.minute;
msf->cdmsf_sec0=from.second;
msf->cdmsf_sec1=to.second;
msf->cdmsf_frame0=from.frame;
msf->cdmsf_frame1=to.frame;
} 

void abs_to_msf (DWORD from, DWORD to, struct cdrom_msf * msf)
{
struct cdrom_msf0 fr,tt;
abs_to_msf0(from, &fr);
abs_to_msf0(to, &tt);
msf0_to_msf(fr,tt,msf);
}

/************************************************************
 *
 *   Cdrom ms-dos driver emulation. 
 *    (accesible throught the MSCDEX 0x10 function.)
 */

extern void do_mscdex_dd (CONTEXT * context, int dorealmode)
 { 
 BYTE * driver_request;	
 BYTE * io_stru;	
 static int fdcd=-1; /* file descriptor.. */
 struct cdrom_tochdr tochdr; /* the Toc header */
 struct cdrom_tocentry tocentry; /* a Toc entry */
 struct cdrom_msf msf; 
 struct cdrom_subchnl subchnl; 
 u_char Error=255; /*No Error */ 

if (dorealmode)
  driver_request=DOSMEM_MapRealToLinear
                        (MAKELONG(BX_reg(context),ES_reg(context)));
else
  driver_request=PTR_SEG_OFF_TO_LIN(ES_reg(context),BX_reg(context));

if (!driver_request) 
     {             /* FIXME - to be deleted ?? */
	ERR(int,"   ES:BX==0 ! SEGFAULT ?\n");
	ERR(int," -->BX=0x%04x, ES=0x%04lx, DS=0x%04lx, CX=0x%04x\n\n",
		BX_reg(context),
		ES_reg(context),
		DS_reg(context),
		CX_reg(context));
     }
else

/* FIXME - would be best to open the device at the begining of the wine
   session .... */
 if (fdcd<0) fdcd=open(cdrom_dev,O_RDONLY);

   TRACE(int,"CDROM device driver -> command <%d>\n",
         (unsigned char)driver_request[2]);

/* set status to 0 */
 driver_request[3]=0;
 driver_request[4]=0;


 switch(driver_request[2])
 {
 case 3:
   io_stru=get_io_stru((WORD *)driver_request,dorealmode);
   FIXME(int," --> IOCTL INPUT <%d>\n",io_stru[0]); 
   switch (io_stru[0])
	{
	case 1: /* location of head */
	 if (io_stru[1]==0)
          {
          ioctl(fdcd,CDROMSUBCHNL,&subchnl);
	((DWORD*)io_stru+2)[0]=(DWORD)msf0_to_abs(subchnl.cdsc_absaddr.msf); 
         FIXME(int," ----> HEAD LOCATION <%ld>\n\n", 
                                ((DWORD *)io_stru+2)[0]); 
	  }
         else
     	  {
 	 ERR(int,"CDRom-Driver: Unsupported address mode !!\n");
   	 Error=0x0c;
    	  }
	 break;

	case 6: /* device status */
              /* FIXME .. does this work properly ?? */
	 io_stru[3]=io_stru[4]=0;
	 io_stru[2]=1; /* supports audio channels (?? FIXME ??) */
	 io_stru[1]=16; /* data read and plays audio racks */
	 io_stru[1]|=(ioctl(fdcd,CDROM_DRIVE_STATUS,0)==CDS_TRAY_OPEN);
         TRACE(int," ----> DEVICE STATUS <0x%08lx>\n\n",(DWORD)io_stru[1]); 
	 break;

	case 9: /* media changed ? */
	 if (ioctl(fdcd,CDROM_MEDIA_CHANGED,0))
          io_stru[1]=0xff;
         else
	  io_stru[0]=0; /* FIXME? 1? */
	 break;

	case 10: /* audio disk info */
         ioctl(fdcd,CDROMREADTOCHDR,&tochdr);
	 io_stru[1]=tochdr.cdth_trk0; /* staring track of the disc */
	 io_stru[2]=tochdr.cdth_trk1; /* ending track */
         tocentry.cdte_track=CDROM_LEADOUT; /* Now the leadout track ...*/
         tocentry.cdte_format=CDROM_MSF; 
         ioctl(fdcd,CDROMREADTOCENTRY,&tocentry); /* ... get position of it */
	 ((DWORD*)io_stru+3)[0]=(DWORD)msf0_to_abs(tocentry.cdte_addr.msf); 
         TRACE(int," ----> AUDIO DISK INFO <%d-%d/%ld>\n\n",
				io_stru[1],io_stru[2],
                                ((DWORD *)io_stru+3)[0]); 
	 break;


	case 11: /* audio track info */
	 tocentry.cdte_track=io_stru[1]; /* track of the disc */ 
         tocentry.cdte_format=CDROM_MSF; 
         ioctl(fdcd,CDROMREADTOCENTRY,&tocentry);
	 ((DWORD*)io_stru+2)[0]=(DWORD)msf0_to_abs(tocentry.cdte_addr.msf); 
                        /* starting point if the track */
         io_stru[6]=tocentry.cdte_adr+16*tocentry.cdte_ctrl;
         TRACE(int," ----> AUDIO TRACK INFO <track=%d>[%ld] \n\n",
                         io_stru[1],((DWORD *)io_stru+2)[0]); 
	 break;

	case 12: /* get Q-Channel / Subchannel (??) info */
	 subchnl.cdsc_format=CDROM_MSF;
	 ioctl(fdcd,CDROMSUBCHNL,&subchnl);
	 io_stru[1]=subchnl.cdsc_adr+16*subchnl.cdsc_ctrl;
	 io_stru[2]=subchnl.cdsc_trk;
	 io_stru[3]=subchnl.cdsc_ind; /* FIXME - ?? */
	 io_stru[4]=subchnl.cdsc_reladdr.msf.minute;
	 io_stru[5]=subchnl.cdsc_reladdr.msf.second;
	 io_stru[6]=subchnl.cdsc_reladdr.msf.frame;
	 io_stru[7]=0; /* always zero */
	 io_stru[8]=subchnl.cdsc_absaddr.msf.minute;
	 io_stru[9]=subchnl.cdsc_absaddr.msf.second;
	 io_stru[10]=subchnl.cdsc_absaddr.msf.frame;
	 break;
	
	case 15: /* fixme !!!!!!! just a small workaround ! */
	 /* !!!! FIXME FIXME FIXME !! */
         tocentry.cdte_track=CDROM_LEADOUT; /* Now the leadout track ...*/
         tocentry.cdte_format=CDROM_MSF; 
         ioctl(fdcd,CDROMREADTOCENTRY,&tocentry); /* ... get position of it */
	 ((DWORD*)io_stru+7)[0]=(DWORD)msf0_to_abs(tocentry.cdte_addr.msf); 
 	break;

	default:
         FIXME(int," Cdrom-driver: IOCTL INPUT: Unimplemented <%d>!! \n",
                                                             io_stru[0]); 
	 Error=0x0c; 
	 break;	
	}	
   break;

 case 12:
   io_stru=get_io_stru((WORD *)driver_request,dorealmode);
   TRACE(int," --> IOCTL OUTPUT <%d>\n",io_stru[0]); 
   switch (io_stru[0])
	{
	case 0: /* eject */ 
	 ioctl (fdcd,CDROMEJECT);
         TRACE(int," ----> EJECT \n\n"); 
	 break;
	case 5: /* close tray */
	 ioctl (fdcd,CDROMCLOSETRAY);
         TRACE(int," ----> CLOSE TRAY \n\n"); 
	 break;
	case 2: /* reset drive */
	 ioctl (fdcd,CDROMRESET);
         TRACE(int," ----> RESET \n\n"); 
	 break;
	default:
         FIXME(int," Cdrom-driver: IOCTL OUPUT: Unimplemented <%d>!! \n",
                                                             io_stru[0]); 
	 Error=0x0c;
	 break;	
	}	
   break;
 
case 133:
   if (cdrom_a_status(fdcd)==CDROM_AUDIO_PLAY)
     {
     ioctl (fdcd,CDROMPAUSE);
     TRACE(int," --> STOP AUDIO (Paused)\n\n");
     }
   else
     {
     ioctl (fdcd,CDROMSTOP);
     TRACE(int," --> STOP AUDIO (Stopped)\n\n");
     }
   break;

 case 132:  /* FIXME - It didn't function for me... */
   FIXME(int," --> PLAY AUDIO \n");
     ioctl (fdcd,CDROMSTART);
   FIXME(int,"Mode :<0x%02X> , [%ld-%ld]\n\n",
          (unsigned char)driver_request[13],
          ((DWORD*)driver_request+14)[0],
          ((DWORD*)driver_request+18)[0]);
   if (driver_request[13]==0)
     {
    abs_to_msf(((DWORD*)driver_request+14)[0],
               ((DWORD*)driver_request+18)[0],&msf);
    ioctl(fdcd,CDROMPLAYMSF,&msf);
     }
   else 
     {
    ERR(int,"CDRom-Driver: Unsupported address mode !!\n");
    Error=0x0c;
     }
   break;
 case 136:
   TRACE(int," --> RESUME AUDIO \n\n");
   ioctl(fdcd,CDROMRESUME);
   break;
 default:
   FIXME(int," CDRom-Driver - ioctl uninplemented <%d>\n",driver_request[2]); 
   Error=0x0c;	

 }

if (Error<255)
 {
 driver_request[4]|=127;
 driver_request[3]=Error;
 }
 driver_request[4]|=2*(cdrom_a_status(fdcd)==CDROM_AUDIO_PLAY);

/*  close (fdcd); FIXME !! -- cannot use close when ejecting 
    the cd-rom - close would close it again */ 
}

#endif