wmail: use automake.

[dockapps.git] / ascd / libworkman / plat_sun.c

/*
 * $Id: plat_sun.c,v 1.9 1999/05/28 03:35:54 dirk Exp $
 *
 * 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., 59 Temple Place, Suite 330, Boston, MA  02111-1307  USA
 *
 *
 * Sun-specific drive control routines.
 */

#ifdef sun
static char plat_sun_id[] = "$Id: plat_sun.c,v 1.9 1999/05/28 03:35:54 dirk Exp $";

#include <errno.h>
#include <stdio.h>
#include <sys/types.h>
#include <fcntl.h>
#include <string.h>
#include <sys/param.h>
#include <sys/stat.h>
#include <sys/time.h>
#include <sys/ioctl.h>

#include "include/wm_config.h"
#include "include/wm_helpers.h"
#include "include/wm_cdrom.h"


#include <ustat.h>
#include <unistd.h>
#include <signal.h>
#ifdef solbourne
# include <mfg/dklabel.h>
# include <mfg/dkio.h>
# include <sys/unistd.h>
# include <dev/srvar.h>
#else /* A real Sun */
# ifdef SYSV
#  include <poll.h>
#  include <stdlib.h>
#  include <sys/cdio.h>
#  include <sys/socket.h>
#  include <sys/scsi/impl/uscsi.h>
#  include "include/wm_cdda.h"
# else
#  include <sys/buf.h>
#  include <sun/dkio.h>
#  include <scsi/targets/srdef.h>
#  include <scsi/impl/uscsi.h>
#  include <scsi/generic/commands.h>
# endif
#endif

#include "include/wm_struct.h"

#define WM_MSG_CLASS WM_MSG_CLASS_PLATFORM

int     min_volume = 0;
int     max_volume = 255;

extern char     *cd_device, *cddaslave_path;
extern int      intermittent_dev;

int     cdda_slave = -1;

int     current_end;

#if defined(SYSV) && defined(SIGTHAW)
#ifdef __GNUC__
void sigthawinit(void) __attribute__ ((constructor));
#else
#pragma init(sigthawinit)
#endif /* GNUC */

static int last_left, last_right;
static struct wm_drive *thecd;

static void thawme(int sig)
{
        change_mode(NULL, WM_CDM_STOPPED, NULL);
        codec_init();
        if( thecd )
          gen_set_volume(thecd, last_left, last_right);
} /* thawme */

void sigthawinit( void )
{
        struct sigaction sa;

        sa.sa_handler = thawme;
        sigemptyset(&sa.sa_mask);
        sa.sa_flags = 0;

        sigaction(SIGTHAW, &sa, NULL);
}

#endif /* SYSV && SIGTHAW */

/*
 * find_cdrom
 *
 * Determine the name of the CD-ROM device.
 *
 * Use the first of /vol/dev/aliases/cdrom0, /dev/rdsk/c0t6d0s2, and /dev/rsr0
 * that exists.  (Check for /vol/dev/aliases, not cdrom0, since it won't be
 * there if there's no CD in the drive.)  This is done so a single SunOS 4.x
 * binary can be used on any 4.x or higher Sun system.
 */
void
find_cdrom( void )
{
        if (access("/vol/dev/aliases", X_OK) == 0)
        {
                /* Volume manager.  Device might not be there. */
                intermittent_dev = 1;

                /* If vold is running us, it'll tell us the device name. */
                cd_device = getenv("VOLUME_DEVICE");
                if (cd_device == NULL)
                        cd_device = "/vol/dev/aliases/cdrom0";
        }
        else if (access("/dev/rdsk/c0t6d0s2", F_OK) == 0)
        {
                /* Solaris 2.x w/o volume manager. */
                cd_device = "/dev/rdsk/c0t6d0s2";
        }
        else if (access("/dev/rcd0", F_OK) == 0)
        {
                cd_device = "/dev/rcd0";
        }
        else if (access("/dev/rsr0", F_OK) == 0)
                cd_device = "/dev/rsr0";
        else
        {
                fprintf(stderr, "Couldn't find a CD device!\n");
                exit(1);
        }
}

/*
 * Wait for an acknowledgement from the CDDA slave.
 */
static int
get_ack(int fd)
{
#if defined(BUILD_CDDA) && defined(WMCDDA_DONE) /* { */
        struct cdda_block       blk;

        do
                if (read(fd, &blk, sizeof(blk)) <= 0)
                        return (0);
        while (blk.status != WMCDDA_ACK);
#endif /* } */

        return (1);
}

/*
 * Initialize the drive.  A no-op for the generic driver.
 */
int
gen_init( struct wm_drive *d )
{
        codec_init();
        return (0);
}

/*
 * Try to initialize the CDDA slave.  Returns 0 on error.
 */
int
cdda_init( struct wm_drive *d )
{
#if defined(BUILD_CDDA) && defined(WMCDDA_DONE) /* { */
        int     slavefds[2];

        if (cdda_slave > -1)
                return (1);

        if (socketpair(AF_UNIX, SOCK_STREAM, 0, slavefds))
        {
                perror("socketpair");
                return (0);
        }

        switch (fork()) {
        case 0:
                close(slavefds[0]);
                dup2(slavefds[1], 1);
                dup2(slavefds[1], 0);
                close(slavefds[1]);
                close(d->fd);
                /* Try the default path first. */
                execl(cddaslave_path, cddaslave_path, cd_device, NULL);
                /* Search $PATH if that didn't work. */
                execlp("cddaslave", "cddaslave", cd_device, NULL);
                perror(cddaslave_path);
                exit(1);

        case -1:
                close(slavefds[0]);
                close(slavefds[1]);
                perror("fork");
                return (0);
        }

        close(slavefds[1]);
        cdda_slave = slavefds[0];

        if (!get_ack(cdda_slave))
        {
                cdda_slave = -1;
                codec_start();
                return (0);
        }

        return (1);

#else /* BUILD_CDDA } { */
        /*
         * If we're not building CDDA support, don't even bother trying.
         */
        return (0);
#endif
}

/*
 * Turn off the CDDA slave.
 */
void
cdda_kill( struct wm_drive *d )
{
        if (cdda_slave > -1)
        {
                write(cdda_slave, "Q", 1);
                get_ack(cdda_slave);
                wait(NULL);
                cdda_slave = -1;
                codec_start();
        }
}

/*
 * Get the number of tracks on the CD.
 */
int
gen_get_trackcount( struct wm_drive *d, int *tracks )
{
        struct cdrom_tochdr     hdr;

        if (ioctl(d->fd, CDROMREADTOCHDR, &hdr))
                return (-1);

        *tracks = hdr.cdth_trk1;
        return (0);
}

/*
 * Get the start time and mode (data or audio) of a track.
 */
int
gen_get_trackinfo( struct wm_drive *d, int track, int *data, int *startframe)
{
        struct cdrom_tocentry   entry;

        entry.cdte_track = track;
        entry.cdte_format = CDROM_MSF;

        if (ioctl(d->fd, CDROMREADTOCENTRY, &entry))
                return (-1);

        *startframe =   entry.cdte_addr.msf.minute * 60 * 75 +
                        entry.cdte_addr.msf.second * 75 +
                        entry.cdte_addr.msf.frame;
        *data = entry.cdte_ctrl & CDROM_DATA_TRACK ? 1 : 0;

        return (0);
}

/*
 * 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, CDROM_LEADOUT, &tmp, frames));
}


/* Alarm signal handler. */
static void do_nothing( int x ) { x++; }

/*
 * 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,
                      enum wm_cd_modes oldmode,
                      enum wm_cd_modes *mode,
                      int *pos, int *track, int *index )
{
        struct cdrom_subchnl            sc;
        struct itimerval                old_timer, new_timer;
        struct sigaction                old_sig, new_sig;

        /* If we can't get status, the CD is ejected, so default to that. */
        *mode = WM_CDM_EJECTED;

        /* Is the device open? */
        if (d->fd < 0)
        {
                switch (wmcd_open(d)) {
                case -1:        /* error */
                        return (-1);

                case 1:         /* retry */
                        return (0);
                }
        }

#if defined(BUILD_CDDA) && defined(WMCDDA_DONE) /* { */
        if ((oldmode == WM_CDM_PAUSED || oldmode == WM_CDM_PLAYING || oldmode == WM_CDM_STOPPED) &&
                cdda_slave > -1)
        {
                struct cdda_block       blk;
                struct pollfd           fds;
                int                     gotone = 0;

                fds.fd = cdda_slave;
                fds.events = POLLRDNORM;

                *mode = oldmode;

                while (poll(&fds, 1, 0) > 0)
                {
                        read(cdda_slave, &blk, sizeof(blk));
                        gotone = 1;
                }

                /* We only want to use the latest status report. */
                if (gotone)
                {
                        if (blk.status == WMCDDA_PLAYED)
                        {
                                *track = blk.track;
                                *index = blk.index;
                                *pos = blk.minute * 60 * 75 +
                                        blk.second * 75 +
                                        blk.frame;

                                *mode = WM_CDM_PLAYING;
                        }
                        else if (blk.status == WMCDDA_DONE)
                                *mode = WM_CDM_TRACK_DONE;
                        else if (blk.status == WMCDDA_STOPPED)
                        {
                                if (oldmode == WM_CDM_PLAYING || oldmode == WM_CDM_PAUSED)
                                        *mode = WM_CDM_PAUSED;
                                else
                                        *mode = WM_CDM_STOPPED;
                        }
                        else if (blk.status == WMCDDA_ERROR)
                        {
                                /*
                                 * An error near the end of the CD probably
                                 * just means we hit the end.
                                 */
                                *mode = WM_CDM_TRACK_DONE;
                        }
                        else if (blk.status == WMCDDA_EJECTED)
                        {
                                *mode = WM_CDM_EJECTED;
                        }
                }

                return (0);
        }
#endif /* } */

        /*
         * Solaris 2.2 hangs on this ioctl if someone else ejects the CD.
         * So we schedule a signal to break out of the hang if the call
         * takes an unreasonable amount of time.  The signal handler and
         * timer are restored immediately to avoid interfering with XView.
         */
        if (intermittent_dev)
        {
                /*
                 * First clear out the timer so XView's signal doesn't happen
                 * while we're diddling with the signal handler.
                 */
                timerclear(&new_timer.it_interval);
                timerclear(&new_timer.it_value);
                setitimer(ITIMER_REAL, &new_timer, &old_timer);

                /*
                 * Now install the no-op signal handler.
                 */
                new_sig.sa_handler = do_nothing;
                memset(&new_sig.sa_mask, 0, sizeof(new_sig.sa_mask));
                new_sig.sa_flags = 0;
                if (sigaction(SIGALRM, &new_sig, &old_sig))
                        perror("sigaction");

                /*
                 * And finally, set the timer.
                 */
                new_timer.it_value.tv_sec = 2;
                setitimer(ITIMER_REAL, &new_timer, NULL);
        }

        sc.cdsc_format = CDROM_MSF;

        if (ioctl(d->fd, CDROMSUBCHNL, &sc))
        {
                if (intermittent_dev)
                {
                        sigaction(SIGALRM, &old_sig, NULL);
                        setitimer(ITIMER_REAL, &old_timer, NULL);

                        /* If the device can disappear, let it do so. */
                        close(d->fd);
                        d->fd = -1;
                }

                return (0);
        }

        if (intermittent_dev)
        {
                sigaction(SIGALRM, &old_sig, NULL);
                setitimer(ITIMER_REAL, &old_timer, NULL);
        }

        switch (sc.cdsc_audiostatus) {
        case CDROM_AUDIO_PLAY:
                *mode = WM_CDM_PLAYING;
                *track = sc.cdsc_trk;
                *index = sc.cdsc_ind;
                *pos = sc.cdsc_absaddr.msf.minute * 60 * 75 +
                        sc.cdsc_absaddr.msf.second * 75 +
                        sc.cdsc_absaddr.msf.frame;
                break;

        case CDROM_AUDIO_PAUSED:
        case CDROM_AUDIO_INVALID:
        case CDROM_AUDIO_NO_STATUS:
                if (oldmode == WM_CDM_PLAYING || oldmode == WM_CDM_PAUSED)
                {
                        *mode = WM_CDM_PAUSED;
                        *track = sc.cdsc_trk;
                        *index = sc.cdsc_ind;
                        *pos = sc.cdsc_absaddr.msf.minute * 60 * 75 +
                                sc.cdsc_absaddr.msf.second * 75 +
                                sc.cdsc_absaddr.msf.frame;
                }
                else
                        *mode = WM_CDM_STOPPED;
                break;

        /* CD ejected manually during play. */
        case CDROM_AUDIO_ERROR:
                break;

        case CDROM_AUDIO_COMPLETED:
                *mode = WM_CDM_TRACK_DONE; /* waiting for next track. */
                break;

        default:
                *mode = WM_CDM_UNKNOWN;
                break;
        }

        return (0);
}

/*
 * 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 cdrom_volctrl v;

#if defined(SIGTHAW) && defined(SYSV)
        last_left = left;
        last_right = right;
        thecd = d;
#endif

        if (cdda_slave > -1)
        {
                int             bal, vol;
                unsigned char   cmd[2];

                bal = (right - left) + 100;
                bal *= 255;
                bal /= 200;
                if (right > left)
                        vol = right;
                else
                        vol = left;
                vol *= 255;
                vol /= 100;

                cmd[0] = 'B';
                cmd[1] = bal;
                write(cdda_slave, cmd, 2);
                cmd[0] = 'V';
                cmd[1] = vol;
                write(cdda_slave, cmd, 2);
                /*
                 * Don't wait for the ack, or the user won't be able to drag
                 * the volume slider smoothly.
                 */

                return (0);
        }

        left = (left * (max_volume - min_volume)) / 100 + min_volume;
        right = (right * (max_volume - min_volume)) / 100 + min_volume;

        v.channel0 = left < 0 ? 0 : left > 255 ? 255 : left;
        v.channel1 = right < 0 ? 0 : right > 255 ? 255 : right;

        return (ioctl(d->fd, CDROMVOLCTRL, &v));
}

/*
 * Pause the CD.
 */
int
gen_pause( struct wm_drive *d )
{
        if (cdda_slave > -1)
        {
                int     dummy, mode = WM_CDM_PLAYING;

                write(cdda_slave, "S", 1);
                get_ack(cdda_slave);
/*              while (mode != WM_CDM_PAUSED)
                        gen_get_drive_status(d, WM_CDM_PAUSED, &mode, &dummy, &dummy,
                                                &dummy);
*/
                return (0);
        }

        codec_stop();
        return (ioctl(d->fd, CDROMPAUSE));
}

/*
 * Resume playing the CD (assuming it was paused.)
 */
int
gen_resume( struct wm_drive *d )
{
        if (cdda_slave > -1)
                return (1);

        codec_start();
        return (ioctl(d->fd, CDROMRESUME));
}

/*
 * Stop the CD.
 */
int
gen_stop( struct wm_drive *d )
{
        if (cdda_slave > -1)
        {
                write(cdda_slave, "S", 1);
                get_ack(cdda_slave);

                /*
                 * The WMCDDA_STOPPED status message will be caught by
                 * gen_get_drive_status.
                 */

                return (0);
        }
        codec_stop();
        return (ioctl(d->fd, CDROMSTOP));
}

/*
 * Play the CD from one position to another.
 *
 *      d               Drive structure.
 *      start           Frame to start playing at.
 *      end             End of this chunk.
 *      realstart       Beginning of this chunk (<= start)
 */
int
gen_play( struct wm_drive *d, int start, int end, int realstart)
{
        struct cdrom_msf                msf;
        unsigned char                   cmdbuf[10];

        current_end = end;

        if (cdda_slave > -1)
        {
                cmdbuf[0] = 'P';
                cmdbuf[1] = start / (60 * 75);
                cmdbuf[2] = (start % (60*75)) / 75;
                cmdbuf[3] = start % 75;
                cmdbuf[4] = end / (60*75);
                cmdbuf[5] = (end % (60*75)) / 75;
                cmdbuf[6] = end % 75;
                cmdbuf[7] = realstart / (60 * 75);
                cmdbuf[8] = (realstart % (60*75)) / 75;
                cmdbuf[9] = realstart % 75;

                /* Write the play command and make sure the slave has it. */
                write(cdda_slave, cmdbuf, 10);
                get_ack(cdda_slave);

                return (0);
        }

        msf.cdmsf_min0 = start / (60*75);
        msf.cdmsf_sec0 = (start % (60*75)) / 75;
        msf.cdmsf_frame0 = start % 75;
        msf.cdmsf_min1 = end / (60*75);
        msf.cdmsf_sec1 = (end % (60*75)) / 75;
        msf.cdmsf_frame1 = end % 75;

        codec_start();
        if (ioctl(d->fd, CDROMSTART))
                return (-1);
        if (ioctl(d->fd, CDROMPLAYMSF, &msf))
                return (-2);

        return (0);
}

/*
 * Eject the current CD, if there is one.
 */
int
gen_eject( struct wm_drive *d )
{
        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);

        if (cdda_slave > -1)
        {
                write(cdda_slave, "S", 1);
                get_ack(cdda_slave);
        }

        if (ioctl(d->fd, CDROMEJECT))
                return (-1);

        /* Close the device if it needs to vanish. */
        if (intermittent_dev)
        {
                close(d->fd);
                d->fd = -1;
                /* Also remember to tell the cddaslave since volume
                   manager switches links around on us */
                if (cdda_slave > -1)
                {
                    write(cdda_slave, "E", 1);
                    get_ack(cdda_slave);
                }
        }

        return (0);
} /* gen_eject() */

/*----------------------------------------*
 * Close the CD tray
 *
 * Please edit and send changes to
 * milliByte@DeathsDoor.com
 *----------------------------------------*/

int gen_closetray(struct wm_drive *d)
{
#ifdef CAN_CLOSE
        if(!close(d->fd))
        {
                d->fd=-1;
                return(wmcd_reopen(d));
        } else {
                return(-1);
        }
#else
        /* Always succeed if the drive can't close */
        return(0);
#endif /* CAN_CLOSE */
} /* gen_closetray() */


/*
 * 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 )
{
#if defined(BUILD_CDDA) && defined(WMCDDA_DONE) /* { */
        struct cdda_block       blk;

        if (cdda_slave > -1)
        {
                write(cdda_slave, "G", 1);
                get_ack(cdda_slave);
                read(cdda_slave, &blk, sizeof(blk));

                *left = *right = (blk.volume * 100 + 254) / 255;

                if (blk.balance < 110)
                        *right = (((blk.volume * blk.balance + 127) / 128) *
                                  100 + 254) / 255;
                else if (blk.balance > 146)
                        *left = (((blk.volume * (255 - blk.balance) +
                                   127) / 128) * 100 + 254) / 255;

                return (0);
        }
#endif /* } */

        *left = *right = -1;

        return (wm_scsi2_get_volume(d, left, right));
}

#ifdef BUILD_CDDA /* { */

/*
 * Tell the CDDA slave to set the play direction.
 */
void
gen_set_direction( int newdir )
{
        unsigned char   buf[2];

        if (cdda_slave > -1)
        {
                buf[0] = 'd';
                buf[1] = newdir;
                write(cdda_slave, buf, 2);
                get_ack(cdda_slave);
        }
}

/*
 * Tell the CDDA slave to set the play speed.
 */
void
gen_set_speed( int speed )
{
        unsigned char   buf[2];

        if (cdda_slave > -1)
        {
                buf[0] = 's';
                buf[1] = speed;
                write(cdda_slave, buf, 2);
                get_ack(cdda_slave);
        }
}

/*
 * Tell the CDDA slave to set the loudness level.
 */
void
gen_set_loudness( int loud )
{
        unsigned char   buf[2];

        if (cdda_slave > -1)
        {
                buf[0] = 'L';
                buf[1] = loud;
                write(cdda_slave, buf, 2);
                get_ack(cdda_slave);
        }
}

/*
 * Tell the CDDA slave to start (or stop) saving to a file.
 */
void
gen_save( char *filename )
{
        int     len;

        if (filename == NULL || filename[0] == '\0')
                len = 0;
        else
                len = strlen(filename);
        write(cdda_slave, "F", 1);
        write(cdda_slave, &len, sizeof(len));
        if (len)
                write(cdda_slave, filename, len);
        get_ack(cdda_slave);
}

#endif /* BUILD_CDDA } */

#ifndef solbourne
/*
 * Send an arbitrary SCSI command out the bus and optionally wait for
 * a reply if "retbuf" isn't NULL.
 */
int
wm_scsi( struct wm_drive *d,
         unsigned char *cdb,
         int cdblen, void *retbuf,
         int retbuflen, int getreply )
{
        char                    x;
        struct uscsi_cmd        cmd;

        memset(&cmd, 0, sizeof(cmd));
        cmd.uscsi_cdb = (void *) cdb;
        cmd.uscsi_cdblen = cdblen;
        cmd.uscsi_bufaddr = retbuf ? retbuf : (void *)&x;
        cmd.uscsi_buflen = retbuf ? retbuflen : 0;
        cmd.uscsi_flags = USCSI_ISOLATE | USCSI_SILENT;
        if (getreply)
                cmd.uscsi_flags |= USCSI_READ;

        if (ioctl(d->fd, USCSICMD, &cmd))
                return (-1);

        if (cmd.uscsi_status)
                return (-1);

        return (0);
}
#else

int wm_scsi() { return (-1); }

#endif

/*
 * 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 (cd_device == NULL)
                find_cdrom();

        if (d->fd >= 0)         /* Device already open? */
                return (0);

        d->fd = open(cd_device, 0);
        if (d->fd < 0)
        {
                /* Solaris 2.2 volume manager moves links around */
                if (errno == ENOENT && intermittent_dev)
                        return (1);

                if (errno == EACCES)
                {
                        if (!warned)
                        {
                                char    realname[MAXPATHLEN];

                                if (realpath(cd_device, realname) == NULL)
                                {
                                        perror("realpath");
                                        return (-1);
                                }

                                fprintf(stderr,
                "As root, please run\n\nchmod 666 %s\n\n%s\n", realname,
                "to give yourself permission to access the CD-ROM device.");
                                warned++;
                        }
                }
                else if (errno != ENXIO)
                {
                        perror(cd_device);
                        exit(1);
                }

                /* No CD in drive. */
                return (1);
        }

        if (warned)
        {
                warned = 0;
                fprintf(stderr, "Thank you.\n");
        }

        /* Now fill in the relevant parts of the wm_drive structure. */
        fd = d->fd;

        /*
         * See if we can do digital audio.
         */
        if (cdda_init(d))
                enable_cdda_controls(1);

        /* Can we figure out the drive type? */
        if (wm_scsi_get_drive_type(d, vendor, model, rev)) {
                if (errno == EPERM) {
                        /*
                         * Solaris 2.4 seems to refuse to do USCSICMD ioctls
                         * when not running as root.  SunOS 4.x allows it
                         * as an unprivileged user, though.
                         */
                        fprintf(stderr, "Warning: WorkMan can't adapt itself to your drive unless it runs as root.\n");
                } else {
                        fprintf(stderr, "Warning: WorkMan couldn't determine drive type\n");
                }
                *d = *(find_drive_struct("Generic", "drive type", ""));
        } else {
                *d = *(find_drive_struct(vendor, model, rev));
        }

        wm_drive_settype(vendor, model, rev);
        d->fd = fd;

        (d->init)(d);

        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 ");
                if (d->fd >= 0)         /* Device really open? */
                {
                      wm_lib_message(WM_MSG_LEVEL_DEBUG|WM_MSG_CLASS, "closes the device and ");
                      status = close( d->fd );   /* close it! */
                      /* we know, that the file is closed, do we? */
                      d->fd = -1;
                }
                wm_susleep( 1000 );
                wm_lib_message(WM_MSG_LEVEL_DEBUG|WM_MSG_CLASS, "calls wmcd_open()\n");
                status = wmcd_open( d ); /* open it as usual */
                wm_susleep( 1000 );
        } while ( status != 0 );
        return status;
} /* wmcd_reopen() */


/*
 * The following code activates the internal CD audio passthrough on
 * SPARCstation 5 systems (and possibly others.)
 *
 * Thanks to <stevep@ctc.ih.att.com>, Roger Oscarsson <roger@cs.umu.se>
 * and Steve McKinty <>
 *
 * Most CD drives have a headphone socket on the front, but it
 * is often more convenient to route the audio though the
 * built-in audio device. That way the user can leave their
 * headphones plugged-in to the base system, for use with
 * other audio stuff like ShowMeTV
 */

#ifdef CODEC /* { */
#ifdef SYSV /* { */

# include <sys/ioctl.h>
# include <sys/audioio.h>
# include <stdlib.h>

#else /* } { */

# include <sun/audioio.h>
# define AUDIO_DEV_SS5STYLE 5
typedef int audio_device_t;

#endif /* } */
#endif /* } */

/*
 * Don't do anything with /dev/audio if we can't set it to high quality.
 * Also, don't do anything real if it's not Solaris.
 */
#if !defined(AUDIO_ENCODING_LINEAR) || !defined(CODEC) || !defined(SYSV) /* { */
codec_init() { return 0; }
codec_start() { return 0; }
codec_stop() { return 0; }
#else

#ifndef AUDIO_INTERNAL_CD_IN
#define AUDIO_INTERNAL_CD_IN    0x4
#endif

static char* devname = 0;
static char* ctlname = 0;
static int ctl_fd = -1;
static int port = AUDIO_LINE_IN;
int internal_audio = 1;

codec_init( void )
{
    register int i;
    char* ctlname;
    audio_info_t foo;
    audio_device_t aud_dev;

    if (internal_audio == 0)
    {
        ctl_fd = -1;
        return(0);
    }

    if (!(devname = getenv("AUDIODEV"))) devname = "/dev/audio";
    ctlname = strcat(strcpy(malloc(strlen(devname) + 4), devname), "ctl");
    if ((ctl_fd = open(ctlname, O_WRONLY, 0)) < 0) {
        perror(ctlname);
        return -1;
    }
    if (ioctl(ctl_fd, AUDIO_GETDEV, &aud_dev) < 0) {
        close(ctl_fd);
        ctl_fd = -1;
        return -1;
    }
/*
 * Instead of filtering the "OLD_SUN_AUDIO", try to find the new ones.
 * Not sure if this is all correct.
 */
#ifdef SYSV
    if (strcmp(aud_dev.name, "SUNW,CS4231") &&
        strcmp(aud_dev.name, "SUNW,sb16") &&
        strcmp(aud_dev.name, "SUNW,sbpro"))
#else
    if (aud_dev != AUDIO_DEV_SS5STYLE)
#endif
    {
        close(ctl_fd);
        ctl_fd = -1;
        return 0;                                       /* but it's okay */
    }

/*
 * Does the chosen device have an internal CD port?
 * If so, use it. If not then try and use the
 * Line In port.
 */
    if (ioctl(ctl_fd, AUDIO_GETINFO, &foo) < 0)
    {
        perror("AUDIO_GETINFO");
        close(ctl_fd);
        ctl_fd = -1;
        return(-1);
    }
    if (foo.record.avail_ports & AUDIO_INTERNAL_CD_IN)
        port = AUDIO_INTERNAL_CD_IN;
    else
        port = AUDIO_LINE_IN;

/*
 * now set it up to use it. See audio(7I)
 */

    AUDIO_INITINFO(&foo);
    foo.record.port = port;
    foo.record.balance = foo.play.balance = AUDIO_MID_BALANCE;
#ifdef BUILD_CDDA
    if (cdda_slave > -1)
        foo.monitor_gain = 0;
    else
#endif
        foo.monitor_gain = AUDIO_MAX_GAIN;
/*
 * These next ones are tricky. The voulme will depend on the CD drive
 * volume (set by the knob on the drive and/or by workman's volume
 * control), the audio device record gain and the audio device
 * play gain.  For simplicity we set the latter two to something
 * reasonable, but we don't force them to be reset if the user
 * wants to change them.
*/
    foo.record.gain = (AUDIO_MAX_GAIN * 80) / 100;
    foo.play.gain = (AUDIO_MAX_GAIN * 40) / 100;

    ioctl(ctl_fd, AUDIO_SETINFO, &foo);
    return 0;
}

static kick_codec( void ) {
    audio_info_t foo;
    int dev_fd;
    int retval = 0;

/*
 * Open the audio device, not the control device. This
 * will fail if someone else has taken it.
 */

    if ((dev_fd = open(devname, O_WRONLY|O_NDELAY, 0)) < 0) {
        perror(devname);
        return -1;
    }

    AUDIO_INITINFO(&foo);
    foo.record.port = port;
    foo.monitor_gain = AUDIO_MAX_GAIN;

/* These can only be set on the real device */
    foo.play.sample_rate = 44100;
    foo.play.channels = 2;
    foo.play.precision = 16;
    foo.play.encoding = AUDIO_ENCODING_LINEAR;

    if ((retval = ioctl(dev_fd, AUDIO_SETINFO, &foo)) < 0)
        perror(devname);

    close(dev_fd);
    return retval;
}

codec_start( void )
{
audio_info_t foo;

    if (ctl_fd < 0)
        return 0;

    if (ioctl(ctl_fd, AUDIO_GETINFO, &foo) < 0)
        return -1;

    if (foo.play.channels != 2) return kick_codec();
    if (foo.play.encoding != AUDIO_ENCODING_LINEAR) return kick_codec();
    if (foo.play.precision != 16) return kick_codec();
    if (foo.play.sample_rate != 44100) return kick_codec();

    if (foo.record.channels != 2) return kick_codec();
    if (foo.record.encoding != AUDIO_ENCODING_LINEAR) return kick_codec();
    if (foo.record.precision != 16) return kick_codec();
    if (foo.record.sample_rate != 44100) return kick_codec();

    if (foo.monitor_gain != AUDIO_MAX_GAIN) return kick_codec();
    if (foo.record.port != port) return kick_codec();

    return 0;
}

codec_stop( void ) { return 0; }

#endif /* CODEC } */
#endif /* sun } */