Split CD support for NetBSD from FreeBSD

Signed-off-by: OBATA Akio <obache@wizdas.com>
(cherry picked from commit 89e803c7531b9a294d3d9f634c712b7799a7d9aa)

3 files changed, 537 insertions, 3 deletions

diff --git a/kscd/libwm/CMakeLists.txt b/kscd/libwm/CMakeLists.txt
index 7e632701..4613f544 100644
--- a/kscd/libwm/CMakeLists.txt
+++ b/kscd/libwm/CMakeLists.txt
@@ -28,8 +28,8 @@ tde_add_library( workman STATIC_PIC
     cddb.c cdinfo.c cdrom.c wm_helpers.c cdtext.c
     database.c index.c scsi.c cdda.c plat_linux_cdda.c plat_sun_cdda.c
     plat_aix.c plat_bsd386.c plat_freebsd.c plat_hpux.c plat_irix.c
-    plat_linux.c plat_svr4.c plat_ultrix.c plat_news.c plat_openbsd.c
-    plat_osf1.c plat_sun.c plat_scor5.c
+    plat_linux.c plat_netbsd.c plat_svr4.c plat_ultrix.c plat_news.c
+    plat_openbsd.c plat_osf1.c plat_sun.c plat_scor5.c
     drv_sony.c drv_toshiba.c
   EMBED
     workmanaudio-static
diff --git a/kscd/libwm/plat_freebsd.c b/kscd/libwm/plat_freebsd.c
index a905ff5c..b400fd63 100644
--- a/kscd/libwm/plat_freebsd.c
+++ b/kscd/libwm/plat_freebsd.c
@@ -30,7 +30,7 @@
  *
  */
 
-#if defined(__FreeBSD__) || defined(__FreeBSD) || defined(__NetBSD__) || defined (__NetBSD) || defined(__DragonFly__)
+#if defined(__FreeBSD__) || defined(__FreeBSD) || defined(__DragonFly__)
 
 #include <errno.h>
 #include <stdio.h>
diff --git a/kscd/libwm/plat_netbsd.c b/kscd/libwm/plat_netbsd.c
new file mode 100644
index 00000000..2e326eb9
--- /dev/null
+++ b/kscd/libwm/plat_netbsd.c
@@ -0,0 +1,534 @@
+/*
+ * This file is part of WorkMan, the civilized CD player library
+ * (c) 1991-1997 by Steven Grimm (original author)
+ * (c) by Dirk Försterling (current 'author' = maintainer)
+ * The maintainer can be contacted by his e-mail address:
+ * milliByte@DeathsDoor.com 
+ *
+ * This library is free software; you can redistribute it and/or
+ * modify it under the terms of the GNU Library General Public
+ * License as published by the Free Software Foundation; either
+ * version 2 of the License, or (at your option) any later version.
+ *
+ * This library 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
+ * Library General Public License for more details.
+ *
+ * You should have received a copy of the GNU Library General Public
+ * License along with this library; if not, write to the Free
+ * Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA  02110-1301  USA
+ *
+ *
+ * plat_netbsd.c
+ *
+ * NetBSD-specific drive control routines. (Based on plat_freebsd.c)
+ *
+ * Todd Pfaff, 3/20/94
+ *
+ */
+
+#if defined(__NetBSD__)
+
+#include <errno.h>
+#include <stdio.h>
+#include <fcntl.h>
+#include <string.h>
+#include <unistd.h>
+#include <sys/types.h>
+#include <sys/param.h>
+#include <sys/mount.h>
+#include <sys/stat.h>
+#include <sys/statvfs.h>
+
+#include "include/wm_config.h"
+
+#include <sys/time.h>
+#include <sys/ioctl.h>
+#include <sys/cdio.h>
+
+#include "include/wm_struct.h"
+#include "include/wm_platform.h"
+#include "include/wm_cdrom.h"
+#include "include/wm_scsi.h"
+#include "include/wm_helpers.h"
+#include "include/wm_cdtext.h"
+
+#define WM_MSG_CLASS WM_MSG_CLASS_PLATFORM
+
+int	min_volume = 10;
+int	max_volume = 255;
+
+
+/*--------------------------------------------------------*
+ * Initialize the drive.  A no-op for the generic driver.
+ *--------------------------------------------------------*/
+int
+gen_init(struct wm_drive *d)
+{
+	return (0);
+} /* gen_init() */
+
+
+/*-------------------------------------------------------------------*
+ * Open the CD device and figure out what kind of drive is attached.
+ *-------------------------------------------------------------------*/
+int
+wmcd_open( struct wm_drive *d )
+{
+  int		fd;
+  static int	warned = 0;
+  char vendor[32] = WM_STR_GENVENDOR;
+  char  model[32] = WM_STR_GENMODEL;
+  char    rev[32] = WM_STR_GENREV;
+  
+  if (d->fd >= 0)		/* Device already open? */
+    {
+      wm_lib_message(WM_MSG_LEVEL_DEBUG|WM_MSG_CLASS, "wmcd_open(): [device is open (fd=%d)]\n", d->fd);
+      return (0);
+    }
+  
+  if (d->cd_device == NULL)
+    d->cd_device = DEFAULT_CD_DEVICE;
+  
+  d->fd = open(d->cd_device, 0);
+  if (d->fd < 0)
+    {
+      if (errno == EACCES)
+	{
+          return -EACCES;
+	}
+      
+      /* No CD in drive. */
+      return (1);
+    }
+    
+  /* Now fill in the relevant parts of the wm_drive structure. */
+  fd = d->fd;
+  
+  find_drive_struct(vendor, model, rev);
+   
+  /*(d->init)(d); */
+   
+  d->fd = fd;
+  
+  return (0);
+} /* wmcd_open() */
+
+/*
+ * Re-Open the device if it is open.
+ */
+int
+wmcd_reopen( struct wm_drive *d )
+{
+  int status;
+  
+  do {
+    wm_lib_message(WM_MSG_LEVEL_DEBUG|WM_MSG_CLASS, "wmcd_reopen\n");
+    status = gen_close( d );
+    wm_susleep( 1000 );
+    wm_lib_message(WM_MSG_LEVEL_DEBUG|WM_MSG_CLASS, "calling wmcd_open()\n");
+    status = wmcd_open( d ); /* open it as usual */
+    wm_susleep( 1000 );
+    if(status == -EACCES || status == 1)
+        return status;
+  } while ( status != 0 );
+  return status;
+} /* wmcd_reopen() */
+
+/*---------------------------------------------*
+ * Send an arbitrary SCSI command to a device.
+ *
+ *---------------------------------------------*/
+int
+wm_scsi(struct wm_drive *d, unsigned char *cdb, int cdblen, 
+	void *retbuf, int retbuflen, int getreply)
+{
+  return (-1);
+} /* wm_scsi() */
+
+int
+gen_close( struct wm_drive *d )
+{
+  if(d->fd != -1) {
+    wm_lib_message(WM_MSG_LEVEL_DEBUG|WM_MSG_CLASS, "closing the device\n");
+    close(d->fd);
+    d->fd = -1;
+  }
+  return 0;
+}
+
+/*--------------------------------------------------------------------------*
+ * Get the current status of the drive: the current play mode, the absolute
+ * position from start of disc (in frames), and the current track and index
+ * numbers if the CD is playing or paused.
+ *--------------------------------------------------------------------------*/
+int
+gen_get_drive_status(struct wm_drive *d, int oldmode,
+                     int *mode, int *pos, int *track, int *index)
+{
+  int ready;
+
+  struct ioc_read_subchannel	sc;
+  struct cd_sub_channel_info	scd;
+  
+  *mode = WM_CDM_UNKNOWN;
+  
+  sc.address_format	= CD_MSF_FORMAT;
+  sc.data_format		= CD_CURRENT_POSITION;
+  sc.track		= 0;
+  sc.data_len		= sizeof(scd);
+  sc.data			= (struct cd_sub_channel_info *)&scd;
+  
+  /* Is the device open? */
+  if (d->fd < 0)
+    {
+      switch (wmcd_open(d)) 
+	{
+	case -1:	/* error */
+	  return (-1);
+	  
+	case 1:		/* retry */
+	  return (0);
+	}
+    }
+  
+  ready = 0;
+  if (ioctl(d->fd, DIOCTUR, &ready) == -1) 
+    {
+      *mode = WM_CDM_UNKNOWN;
+      return (0);
+    }
+  if (ready == 0)
+    {
+     *mode = WM_CDM_NO_DISC;
+     return (0);
+    }
+
+  if (ioctl(d->fd, CDIOCREADSUBCHANNEL, &sc) == -1) 
+    {
+      *mode = WM_CDM_UNKNOWN;
+      return (0);
+    }
+  
+  switch (scd.header.audio_status) 
+    {
+    case CD_AS_PLAY_IN_PROGRESS:
+      *mode = WM_CDM_PLAYING;
+    dopos:
+	*pos = scd.what.position.absaddr.msf.minute * 60 * 75 +
+	scd.what.position.absaddr.msf.second * 75 +
+	scd.what.position.absaddr.msf.frame;
+	*track = scd.what.position.track_number;
+	*index = scd.what.position.index_number;
+      break;
+      
+    case CD_AS_PLAY_PAUSED:
+      if (oldmode == WM_CDM_PLAYING || oldmode == WM_CDM_PAUSED)
+	{
+	  *mode = WM_CDM_PAUSED;
+	  goto dopos;
+	}
+      else
+	*mode = WM_CDM_STOPPED;
+      break;
+      
+    case CD_AS_PLAY_COMPLETED:
+      *mode = WM_CDM_TRACK_DONE; /* waiting for next track. */
+      break;
+      
+    case CD_AS_NO_STATUS:
+    case CD_AS_AUDIO_INVALID:
+      *mode = WM_CDM_STOPPED;
+      break;
+    }
+  
+  return (0);
+} /* gen_get_drive_status() */
+
+
+/*-------------------------------------*
+ * Get the number of tracks on the CD.
+ *-------------------------------------*/
+int
+gen_get_trackcount(struct wm_drive *d, int *tracks)
+{
+  struct ioc_toc_header	hdr;
+  
+  if (ioctl(d->fd, CDIOREADTOCHEADER, &hdr) == -1)
+    return (-1);
+  
+  *tracks = hdr.ending_track - hdr.starting_track + 1;
+  
+  return (0);
+} /* gen_get_trackcount() */
+
+/*-----------------------------------------------------------------------*
+ * Get the start time and mode (data or audio) of a track.
+ *
+ * XXX - this should get cached, but that means keeping track of ejects.
+ *-----------------------------------------------------------------------*/
+int
+gen_get_trackinfo(struct wm_drive *d, int track, int *data, int *startframe)
+{
+  struct ioc_read_toc_entry	toc;
+  struct cd_toc_entry		toc_buffer;
+  
+  bzero((char *)&toc_buffer, sizeof(toc_buffer));
+  toc.address_format = CD_MSF_FORMAT;
+  toc.starting_track = track;
+  toc.data_len = sizeof(toc_buffer);
+  toc.data = &toc_buffer;
+  
+  if (ioctl(d->fd, CDIOREADTOCENTRYS, &toc) == -1)
+    return (-1);
+  
+  *data = ((toc_buffer.control & 0x4) != 0);
+  
+  *startframe = toc_buffer.addr.msf.minute*60*75 +
+    toc_buffer.addr.msf.second * 75 +
+    toc_buffer.addr.msf.frame;
+  
+  return (0);
+} /* gen_get_trackinfo() */
+
+/*-------------------------------------*
+ * Get the number of frames on the CD.
+ *-------------------------------------*/
+int
+gen_get_cdlen(struct wm_drive *d, int *frames)
+{
+  int		tmp;
+  struct ioc_toc_header		hdr;
+  int status;
+  
+#define LEADOUT 0xaa			/* see scsi.c.  what a hack! */
+  return gen_get_trackinfo(d, LEADOUT, &tmp, frames);
+} /* gen_get_cdlen() */
+
+
+/*------------------------------------------------------------*
+ * Play the CD from one position to another (both in frames.)
+ *------------------------------------------------------------*/
+int
+gen_play(struct wm_drive *d, int start, int end, int realstart)
+{
+  struct ioc_play_msf	msf;
+  
+  msf.start_m	= start / (60*75);
+  msf.start_s	= (start % (60*75)) / 75;
+  msf.start_f	= start % 75;
+  msf.end_m	= end / (60*75);
+  msf.end_s	= (end % (60*75)) / 75;
+  msf.end_f	= end % 75;
+  
+  if (ioctl(d->fd, CDIOCSTART) == -1)
+    return (-1);
+  
+  if (ioctl(d->fd, CDIOCPLAYMSF, &msf) == -1)
+    return (-2);
+  
+  return (0);
+} /* gen_play() */
+
+/*---------------*
+ * Pause the CD.
+ *---------------*/
+int
+gen_pause( struct wm_drive *d )
+{
+  return (ioctl(d->fd, CDIOCPAUSE) == -1 ? -1 : 0);
+} /* gen_pause() */
+
+/*-------------------------------------------------*
+ * Resume playing the CD (assuming it was paused.)
+ *-------------------------------------------------*/
+int
+gen_resume( struct wm_drive *d )
+{
+  return (ioctl(d->fd, CDIOCRESUME) == -1 ? -1 : 0);
+} /* gen_resume() */
+
+/*--------------*
+ * Stop the CD.
+ *--------------*/
+int
+gen_stop( struct wm_drive *d)
+{
+  return (ioctl(d->fd, CDIOCSTOP) == -1 ? -1 : 0);
+} /* gen_stop() */
+
+/*----------------------------------------*
+ * Eject the current CD, if there is one.
+ *----------------------------------------*/
+int
+gen_eject( struct wm_drive *d )
+{
+  /* On some systems, we can check to see if the CD is mounted. */
+  struct stat	stbuf;
+  struct statvfs	buf;
+  int rval;
+  
+  if (fstat(d->fd, &stbuf) != 0)
+    return (-2);
+  
+  /* Is this a mounted filesystem? */
+  if (fstatvfs(stbuf.st_rdev, &buf) == 0)
+    return (-3);
+  
+  rval = ioctl(d->fd, CDIOCALLOW);
+  
+  if (rval != -1)
+    rval = ioctl(d->fd, CDIOCEJECT);
+  
+  if (rval != -1)
+    rval = ioctl(d->fd, CDIOCPREVENT);
+  
+  (void) close(d->fd);
+  
+  return (rval == -1 ? -1 : 0);
+} /* gen_eject() */
+
+/*----------------------------------------*
+ * Close the CD tray
+ *----------------------------------------*/
+
+int 
+gen_closetray(struct wm_drive *d)
+{
+#ifdef CAN_CLOSE
+  if (ioctl(d->fd, CDIOCCLOSE) == -1)
+	return -1;
+#endif /* CAN_CLOSE */
+  /* Always succeed if the drive can't close */
+  return(0);
+} /* gen_closetray() */
+
+
+/*---------------------------------------------------------------------------*
+ * scale_volume(vol, max)
+ *
+ * Return a volume value suitable for passing to the CD-ROM drive.  "vol"
+ * is a volume slider setting; "max" is the slider's maximum value.
+ *
+ * On Sun and DEC CD-ROM drives, the amount of sound coming out the jack
+ * increases much faster toward the top end of the volume scale than it
+ * does at the bottom.  To make up for this, we make the volume scale look
+ * sort of logarithmic (actually an upside-down inverse square curve) so
+ * that the volume value passed to the drive changes less and less as you
+ * approach the maximum slider setting.  The actual formula looks like
+ *
+ *     (max^2 - (max - vol)^2) * (max_volume - min_volume)
+ * v = --------------------------------------------------- + min_volume
+ *                           max^2
+ *
+ * If your system's volume settings aren't broken in this way, something
+ * like the following should work:
+ *
+ *	return ((vol * (max_volume - min_volume)) / max + min_volume);
+ *---------------------------------------------------------------------------*/
+static int
+scale_volume(int vol, int max)
+{
+  return ((vol * (max_volume - min_volume)) / max + min_volume);
+} /* scale_volume() */
+
+/*---------------------------------------------------------------------------*
+ * unscale_volume(cd_vol, max)
+ *
+ * Given a value between min_volume and max_volume, return the volume slider
+ * value needed to achieve that value.
+ *
+ * Rather than perform floating-point calculations to reverse the above
+ * formula, we simply do a binary search of scale_volume()'s return values.
+ *--------------------------------------------------------------------------*/
+static int
+unscale_volume( int cd_vol, int max )
+{
+  int	vol = 0, top = max, bot = 0, scaled;
+  
+  while (bot <= top)
+    {
+      vol = (top + bot) / 2;
+      scaled = scale_volume(vol, max);
+      if (cd_vol == scaled)
+	break;
+      if (cd_vol < scaled)
+	top = vol - 1;
+      else
+	bot = vol + 1;
+    }
+  
+  if (vol < 0)
+    vol = 0;
+  else if (vol > max)
+    vol = max;
+  
+  return (vol);
+} /* unscale_volume() */
+
+/*---------------------------------------------------------------------*
+ * Set the volume level for the left and right channels.  Their values
+ * range from 0 to 100.
+ *---------------------------------------------------------------------*/
+int
+gen_set_volume(struct wm_drive *d, int left, int right)
+{
+  struct ioc_vol vol;
+  
+  if (left < 0)	/* don't laugh, I saw this happen once! */
+    left = 0;
+  if (right < 0)
+    right = 0;
+  left = scale_volume(left, 100);
+  right = scale_volume(right, 100);
+  
+  vol.vol[0] = left;
+  vol.vol[1] = right;
+  vol.vol[2] = 0;
+  vol.vol[3] = 0;
+  
+  if (ioctl(d->fd, CDIOCSETVOL, &vol) == -1)
+    return (-1);
+  
+  return (0);
+} /* gen_set_volume() */
+
+/*---------------------------------------------------------------------*
+ * Read the initial volume from the drive, if available.  Each channel
+ * ranges from 0 to 100, with -1 indicating data not available.
+ *---------------------------------------------------------------------*/
+int
+gen_get_volume( struct wm_drive *d, int *left, int *right )
+{
+  struct ioc_vol vol;
+  
+  if (d->fd >= 0)
+    {
+      bzero((char *)&vol, sizeof(vol));
+
+      if (ioctl(d->fd, CDIOCGETVOL, &vol) == -1)
+	*left = *right = -1;
+      else
+	{
+	  *left = unscale_volume(vol.vol[0], 100);
+	  *right = unscale_volume(vol.vol[1], 100);
+	}
+    } else {
+      *left = *right = -1;
+    } 
+  return (0);
+} /* gen_get_volume() */
+
+/*------------------------------------------------------------------------*
+ * gen_get_cdtext(drive, buffer, length)
+ *------------------------------------------------------------------------*/
+
+int
+gen_get_cdtext(struct wm_drive *d, unsigned char **pp_buffer, int *p_buffer_length)
+{
+  return -1; /* no SCSI, no CDTEXT */
+} /* gen_get_cdtext() */
+
+
+#endif