File indexing completed on 2024-04-14 04:49:19

 /*
  * This file is part of WorkMan, the civilized CD player library
  * Copyright (C) 1991-1997 by Steven Grimm <koreth@midwinter.com>
  * Copyright (C) by Dirk Försterling <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
  *
  *
  * OSF  drive control routines.
  */
 
 
 #if defined(__osf__) || defined(__osf)
 
 
 #include <errno.h>
 #include <stdio.h>
 #include <sys/types.h>
 #include <fcntl.h>
 #include <sys/param.h>
 #include <sys/stat.h>
 #include <sys/time.h>
 #include <ustat.h>
 #include <string.h>
 /* #include <sys/rzdisk.h>
 #include <sys/cdrom.h>  */
 #include <io/cam/rzdisk.h>
 #include <io/cam/cdrom.h>
 
 #include "include/wm_config.h"
 #include "include/wm_struct.h"
 #include "include/wm_helpers.h"
 #include "include/wm_cdtext.h"
 
 
 #define WM_MSG_CLASS WM_MSG_CLASS_PLATFORM
 
 /*
  *   This structure will be filled with the TOC header and all entries.
  * Ultrix doesn't seem to allow getting single TOC entries.
  *                              - Chris Ross (cross@eng.umd.edu)
  */
 struct cd_toc_header_and_entries
 {
   struct cd_toc_header  cdth;
   struct cd_toc_entry       cdte[CDROM_MAX_TRACK+1];
 };
 
 void *malloc();
 char *strchr();
 
 int min_volume = 128;
 int max_volume = 255;
 static char* osf_cd_device = NULL;
 
 /*
  * fgetline()
  *
  *   Simulate fgets, but joining continued lines in the output of uerf.
  *
  * platform specific internal function
  *
  */
 
 #define BUF_SIZE        85              /* Max length of a (real) line */
 
 char *
 fgetline( FILE *fp )
 {
   static char     *retval = NULL;
   static char     holdbuf[BUF_SIZE + 1];
   char            tmp[BUF_SIZE + 1];
   char            *stmp;
 
   if (!retval)
     {
       retval = malloc(BUF_SIZE * 3);  /* 3 lines can be joined */
       if (!retval)
     return(NULL);
       else
     *retval = '\0';
     }
 
   if (*holdbuf)
     {
       strcpy(retval, holdbuf);
       retval[strlen(retval)-1] = '\0';
       memset(holdbuf, 0, BUF_SIZE+1);
     }
 
   while (fgets(tmp, BUF_SIZE, fp))
     {
       stmp = tmp + strspn(tmp, " \t");
       if (*stmp == '_') {                     /* Continuation line */
     retval[strlen(retval)-1] = '\0';   /* Trim off C/R */
     strcat(retval, stmp+1);
       } else {
     if (*retval)
       {
         strcpy(holdbuf, tmp);
         holdbuf[strlen(holdbuf)-1] = -1;
         return retval;
       } else {             /* First line read, keep reading */
         strcat(retval, stmp);
         retval[strlen(retval)-1] = '\0';
       }
       }
     }
   return NULL;
 } /* fgetline() */
 
 
 /*
  * find_cdrom
  *
  * Determine the name of the CD-ROM device.
  *
  * Read through the boot records (via a call to uerf) and find the SCSI
  * address of the CD-ROM.
  */
 const char*
 find_cdrom()
 {
   char  *data;
   FILE  *uerf;
   int   fds[2];
   int   pid;
   extern char *getenv();
   const char *device = NULL;
 
   pipe(fds);
 
   device = getenv("CDROM");
   /*
   ** the path of the device has to start w/ /dev
   ** otherwise we are vulnerable to race conditions
   ** Thomas Biege <thomas@suse.de>
   */
   if ( device == NULL ||
        strncmp("/dev/", device, 5) ||
        strstr(device, "/../")
        )
     return NULL;
 
   if ((pid = fork()) == 0)
     {
       close(fds[0]);
       dup2(fds[1], 1);
       execl("/etc/uerf", "uerf", "-R", "-r", "300", (void *)0);
       execl("/usr/sbin/uerf", "uerf", "-R", "-r", "300", (void *)0);
       return NULL; /* _exit(1); */
     } else if (pid < 0) {
       perror("fork");
       return NULL;
     }
 
   close(fds[1]);
   uerf = fdopen(fds[0], "r");
 
   while (data = fgetline(uerf))
     if (strstr(data, "RRD42"))
       {
     char    *device_p;
 
     osf_cd_device = (char *)malloc(sizeof("/dev/rrz##c"));
     strcpy(osf_cd_device, "/dev/r");
     device_p = strstr(data, "rz");
     device_p[(int)(strchr(device_p, ' ') - device_p)] = '\0';
     strcat(osf_cd_device, device_p);
     strcat(osf_cd_device, "c");
     device = osf_cd_device;
     break;
       }
 
   fclose(uerf);
 
   if (device == NULL)
     {
       fprintf(stderr,
           "No cdrom (RRD42) is installed on this system\n");
       return NULL;
     }
 
   kill(pid, 15);
   (void)wait((int *)NULL);
   return device;
 } /* find_cdrom() */
 
 /*
  * 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
 gen_open( struct wm_drive *d )
 {
     if (d->fd >= 0) {       /* Device already open? */
         wm_lib_message(WM_MSG_LEVEL_DEBUG|WM_MSG_CLASS, "gen_open(): [device is open (fd=%d)]\n", d->fd);
         return 0;
     }
 
     d->fd = open(d->cd_device, O_RDWR);
     if (d->fd < 0) {
         if (errno == EACCES)
             return -EACCES;
         else if (errno != EINTR)
             return -6;
 
         /* No CD in drive. */
         return 1;
     }
 
     return 0;
 } /* gen_open() */
 
 /*
  * Send an arbitrary SCSI command to a device.
  */
 int
 gen_scsi(struct wm_drive *d, unsigned char *cdb, int cdblen,
     void *retbuf, int retbuflen, int getreply)
 {
     /* OSF1 doesn't have a SCSI passthrough interface, does it? */
     return -1;
 } /* gen_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)
 {
     struct cd_sub_channel       sc;
     struct cd_subc_channel_data scd;
 
     /* If we can't get status, the CD is ejected, so default to that. */
     *mode = WM_CDM_EJECTED;
 
     sc.sch_address_format   = CDROM_MSF_FORMAT;
     sc.sch_data_format  = CDROM_CURRENT_POSITION;
     sc.sch_track_number = 0;
     sc.sch_alloc_length = sizeof(scd);
     sc.sch_buffer       = (caddr_t)&scd;
 
     /* Is the device open? */
     if (d->fd < 0) {
         switch (d->proto.open(d)) {
         case -1:    /* error */
             return -1;
 
         case 1:     /* retry */
             return 0;
         }
     }
 
     if (ioctl(d->fd, CDROM_READ_SUBCHANNEL, &sc))
         return 0;   /* ejected */
 
     switch (scd.scd_header.sh_audio_status) {
     case AS_PLAY_IN_PROGRESS:
       *mode = WM_CDM_PLAYING;
     dopos:
       *pos = scd.scd_position_data.scp_absaddr.msf.m_units * 60 * 75 +
     scd.scd_position_data.scp_absaddr.msf.s_units * 75 +
     scd.scd_position_data.scp_absaddr.msf.f_units;
       *track = scd.scd_position_data.scp_track_number;
       *index = scd.scd_position_data.scp_index_number;
       break;
 
     case 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 AS_PLAY_COMPLETED:
       *mode = WM_CDM_TRACK_DONE; /* waiting for next track. */
       break;
 
     case AS_NO_STATUS:
       *mode = WM_CDM_STOPPED;
       break;
     default:
       abort();
     }
 
   return (0);
 } /* gen_get_drive_status() */
 
 /*
  * Play the CD from one position to another (both in frames.)
  */
 int
 gen_play( struct wm_drive *d, int start, int end )
 {
   struct cd_play_audio_msf  msf;
 
   msf.msf_starting_M_unit   = start / (60*75);
   msf.msf_starting_S_unit   = (start % (60*75)) / 75;
   msf.msf_starting_F_unit   = start % 75;
   msf.msf_ending_M_unit = end / (60*75);
   msf.msf_ending_S_unit = (end % (60*75)) / 75;
   msf.msf_ending_F_unit = end % 75;
 
   if (ioctl(d->fd, SCSI_START_UNIT))
     return (-1);
   if (ioctl(d->fd, CDROM_PLAY_AUDIO_MSF, &msf))
     return (-2);
 
   return (0);
 } /* gen_play() */
 
 /*
  * Pause the CD.
  */
 int
 gen_pause( struct wm_drive *d )
 {
   return (ioctl(d->fd, CDROM_PAUSE_PLAY, 0));
 } /* gen_pause() */
 
 /*
  * Resume playing the CD (assuming it was paused.)
  */
 int
 gen_resume( struct wm_drive *d )
 {
   return (ioctl(d->fd, CDROM_RESUME_PLAY, 0));
 } /* gen_resume() */
 
 /*
  * Stop the CD.
  */
 int
 gen_stop( struct wm_drive *d )
 {
   return (ioctl(d->fd, SCSI_STOP_UNIT, 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 ustat  ust;
 
   if (fstat(d->fd, &stbuf) != 0)
     return (-2);
 
   /* Is this a mounted filesystem? */
   if (ustat(stbuf.st_rdev, &ust) == 0)
     return (-3);
 
   return (ioctl(d->fd, CDROM_EJECT_CADDY, 0));
 } /* gen_eject() */
 
 /*----------------------------------------*
  * Close the CD tray
  *
  * Please edit and send changes to
  * milliByte@DeathsDoor.com
  *----------------------------------------*/
 
 int
 gen_closetray(struct wm_drive *d)
 {
     return -1;
 } /* gen_closetray() */
 
 /*
  * Get the number of tracks on the CD.
  */
 int
 gen_get_trackcount(struct wm_drive *d, int *tracks)
 {
   struct cd_toc_header  hdr;
 
   if (ioctl(d->fd, CDROM_TOC_HEADER, &hdr))
     return (-1);
 
   *tracks = hdr.th_ending_track;
 
   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 cd_toc             toc;
   struct cd_toc_header          hdr;
   struct cd_toc_header_and_entries  toc_buffer;
 
   if (ioctl(d->fd, CDROM_TOC_HEADER, &hdr))
     return (-1);
 
   bzero((char *)&toc_buffer, sizeof(toc_buffer));
   toc.toc_address_format = CDROM_MSF_FORMAT;
   toc.toc_starting_track = 0;
   toc.toc_alloc_length = (u_short)(((hdr.th_data_len1 << 8) +
                     hdr.th_data_len0) & 0xfff) + 2;
   toc.toc_buffer = (caddr_t)&toc_buffer;
 
   if (ioctl(d->fd, CDROM_TOC_ENTRYS, &toc))
     return (-1);
 
   if (track == 0)
     track = hdr.th_ending_track + 1;
 
   *data = (toc_buffer.cdte[track-1].te_control & CDROM_DATA_TRACK) ? 1:0;
   *startframe = toc_buffer.cdte[track - 1].te_absaddr.msf.m_units*60*75 +
     toc_buffer.cdte[track - 1].te_absaddr.msf.s_units * 75 +
     toc_buffer.cdte[track - 1].te_absaddr.msf.f_units;
 
   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;
 
   return (gen_get_trackinfo(d, 0, &tmp, frames));
 } /* gen_get_cdlen() */
 
 /*
  * 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);
  */
 scale_volume(int vol, int max)
 {
   return ((max * max - (max - vol) * (max - vol)) *
       (max_volume - min_volume) / (max * 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 cd_playback        pb;
   struct cd_playback_status ps;
   struct cd_playback_control    pc;
 
   left = scale_volume(left, 100);
   right = scale_volume(right, 100);
 
   bzero((char *)&pb, sizeof(pb));
   bzero((char *)&ps, sizeof(ps));
   bzero((char *)&pc, sizeof(pc));
 
   pb.pb_alloc_length = sizeof(ps);
   pb.pb_buffer = (caddr_t)&ps;
 
   if (ioctl(d->fd, CDROM_PLAYBACK_STATUS, &pb))
     return (-1);
 
   pc.pc_chan0_select = ps.ps_chan0_select;
   pc.pc_chan0_volume = (left < CDROM_MIN_VOLUME) ?
     CDROM_MIN_VOLUME : (left > CDROM_MAX_VOLUME) ?
     CDROM_MAX_VOLUME : left;
   pc.pc_chan1_select = ps.ps_chan1_select;
   pc.pc_chan1_volume = (right < CDROM_MIN_VOLUME) ?
     CDROM_MIN_VOLUME : (right > CDROM_MAX_VOLUME) ?
     CDROM_MAX_VOLUME : right;
 
   pb.pb_alloc_length = sizeof(pc);
   pb.pb_buffer = (caddr_t)&pc;
 
   if (ioctl(d->fd, CDROM_PLAYBACK_CONTROL, &pb))
     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 cd_playback        pb;
   struct cd_playback_status ps;
 
   bzero((char *)&pb, sizeof(pb));
   bzero((char *)&ps, sizeof(ps));
 
   pb.pb_alloc_length = sizeof(ps);
   pb.pb_buffer = (caddr_t)&ps;
 
   if (d->fd >= 0)
     {
       if (ioctl(d->fd, CDROM_PLAYBACK_STATUS, &pb))
     *left = *right = -1;
       else
     {
       *left = unscale_volume(ps.ps_chan0_volume, 100);
       *right = unscale_volume(ps.ps_chan1_volume, 100);
     }
     }
   else
     *left = *right = -1;
 
   return (0);
 } /* gen_get_volume() */
 
 #endif