/*
    SDL - Simple DirectMedia Layer
    Copyright (C) 1997-2006 Sam Lantinga

    This library is free software; you can redistribute it and/or
    modify it under the terms of the GNU Lesser General Public
    License as published by the Free Software Foundation; either
    version 2.1 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
    Lesser General Public License for more details.

    You should have received a copy of the GNU Lesser General Public
    License along with this library; if not, write to the Free Software
    Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA  02110-1301  USA

    Sam Lantinga
    slouken@libsdl.org
*/
#include "SDL_config.h"

/* This is the CD-audio control API for Simple DirectMedia Layer */

#include "SDL_cdrom.h"
#include "SDL_syscdrom.h"

#if !defined(__MACOS__)
#define CLIP_FRAMES	10      /* Some CD-ROMs won't go all the way */
#endif

static int SDL_cdinitted = 0;
static SDL_CD *default_cdrom;

/* The system level CD-ROM control functions */
struct CDcaps SDL_CDcaps = {
    NULL,                       /* Name */
    NULL,                       /* Open */
    NULL,                       /* GetTOC */
    NULL,                       /* Status */
    NULL,                       /* Play */
    NULL,                       /* Pause */
    NULL,                       /* Resume */
    NULL,                       /* Stop */
    NULL,                       /* Eject */
    NULL,                       /* Close */
};
int SDL_numcds;

int
SDL_CDROMInit (void)
{
    int retval;

    SDL_numcds = 0;
    retval = SDL_SYS_CDInit ();
    if (retval == 0) {
        SDL_cdinitted = 1;
    }
    default_cdrom = NULL;
    return (retval);
}

/* Check to see if the CD-ROM subsystem has been initialized */
static int
CheckInit (int check_cdrom, SDL_CD ** cdrom)
{
    int okay;

    okay = SDL_cdinitted;
    if (check_cdrom && (*cdrom == NULL)) {
        *cdrom = default_cdrom;
        if (*cdrom == NULL) {
            SDL_SetError ("CD-ROM not opened");
            okay = 0;
        }
    }
    if (!SDL_cdinitted) {
        SDL_SetError ("CD-ROM subsystem not initialized");
    }
    return (okay);
}

int
SDL_CDNumDrives (void)
{
    if (!CheckInit (0, NULL)) {
        return (-1);
    }
    return (SDL_numcds);
}

const char *
SDL_CDName (int drive)
{
    if (!CheckInit (0, NULL)) {
        return (NULL);
    }
    if (drive >= SDL_numcds) {
        SDL_SetError ("Invalid CD-ROM drive index");
        return (NULL);
    }
    if (SDL_CDcaps.Name) {
        return (SDL_CDcaps.Name (drive));
    } else {
        return ("");
    }
}

SDL_CD *
SDL_CDOpen (int drive)
{
    struct SDL_CD *cdrom;

    if (!CheckInit (0, NULL)) {
        return (NULL);
    }
    if (drive >= SDL_numcds) {
        SDL_SetError ("Invalid CD-ROM drive index");
        return (NULL);
    }
    cdrom = (SDL_CD *) SDL_malloc (sizeof (*cdrom));
    if (cdrom == NULL) {
        SDL_OutOfMemory ();
        return (NULL);
    }
    SDL_memset (cdrom, 0, sizeof (*cdrom));
    cdrom->id = SDL_CDcaps.Open (drive);
    if (cdrom->id < 0) {
        SDL_free (cdrom);
        return (NULL);
    }
    default_cdrom = cdrom;
    return (cdrom);
}

CDstatus
SDL_CDStatus (SDL_CD * cdrom)
{
    CDstatus status;
    int i;
    Uint32 position;

    /* Check if the CD-ROM subsystem has been initialized */
    if (!CheckInit (1, &cdrom)) {
        return (CD_ERROR);
    }

    /* Get the current status of the drive */
    cdrom->numtracks = 0;
    cdrom->cur_track = 0;
    cdrom->cur_frame = 0;
    status = SDL_CDcaps.Status (cdrom, &i);
    position = (Uint32) i;
    cdrom->status = status;

    /* Get the table of contents, if there's a CD available */
    if (CD_INDRIVE (status)) {
        if (SDL_CDcaps.GetTOC (cdrom) < 0) {
            status = CD_ERROR;
        }
        /* If the drive is playing, get current play position */
        if ((status == CD_PLAYING) || (status == CD_PAUSED)) {
            for (i = 1; cdrom->track[i].offset <= position; ++i) {
                /* Keep looking */ ;
            }
#ifdef DEBUG_CDROM
            fprintf (stderr,
                     "Current position: %d, track = %d (offset is %d)\n",
                     position, i - 1, cdrom->track[i - 1].offset);
#endif
            cdrom->cur_track = i - 1;
            position -= cdrom->track[cdrom->cur_track].offset;
            cdrom->cur_frame = position;
        }
    }
    return (status);
}

int
SDL_CDPlayTracks (SDL_CD * cdrom,
                  int strack, int sframe, int ntracks, int nframes)
{
    int etrack, eframe;
    int start, length;

    /* Check if the CD-ROM subsystem has been initialized */
    if (!CheckInit (1, &cdrom)) {
        return (CD_ERROR);
    }

    /* Determine the starting and ending tracks */
    if ((strack < 0) || (strack >= cdrom->numtracks)) {
        SDL_SetError ("Invalid starting track");
        return (CD_ERROR);
    }
    if (!ntracks && !nframes) {
        etrack = cdrom->numtracks;
        eframe = 0;
    } else {
        etrack = strack + ntracks;
        if (etrack == strack) {
            eframe = sframe + nframes;
        } else {
            eframe = nframes;
        }
    }
    if (etrack > cdrom->numtracks) {
        SDL_SetError ("Invalid play length");
        return (CD_ERROR);
    }

    /* Skip data tracks and verify frame offsets */
    while ((strack <= etrack) &&
           (cdrom->track[strack].type == SDL_DATA_TRACK)) {
        ++strack;
    }
    if (sframe >= (int) cdrom->track[strack].length) {
        SDL_SetError ("Invalid starting frame for track %d", strack);
        return (CD_ERROR);
    }
    while ((etrack > strack) &&
           (cdrom->track[etrack - 1].type == SDL_DATA_TRACK)) {
        --etrack;
    }
    if (eframe > (int) cdrom->track[etrack].length) {
        SDL_SetError ("Invalid ending frame for track %d", etrack);
        return (CD_ERROR);
    }

    /* Determine start frame and play length */
    start = (cdrom->track[strack].offset + sframe);
    length = (cdrom->track[etrack].offset + eframe) - start;
#ifdef CLIP_FRAMES
    /* I've never seen this necessary, but xmcd does it.. */
    length -= CLIP_FRAMES;      /* CLIP_FRAMES == 10 */
#endif
    if (length < 0) {
        return (0);
    }

    /* Play! */
#ifdef DEBUG_CDROM
    fprintf (stderr, "Playing %d frames at offset %d\n", length, start);
#endif
    return (SDL_CDcaps.Play (cdrom, start, length));
}

int
SDL_CDPlay (SDL_CD * cdrom, int sframe, int length)
{
    /* Check if the CD-ROM subsystem has been initialized */
    if (!CheckInit (1, &cdrom)) {
        return (CD_ERROR);
    }

    return (SDL_CDcaps.Play (cdrom, sframe, length));
}

int
SDL_CDPause (SDL_CD * cdrom)
{
    CDstatus status;
    int retval;

    /* Check if the CD-ROM subsystem has been initialized */
    if (!CheckInit (1, &cdrom)) {
        return (CD_ERROR);
    }

    status = SDL_CDcaps.Status (cdrom, NULL);
    switch (status) {
    case CD_PLAYING:
        retval = SDL_CDcaps.Pause (cdrom);
        break;
    default:
        retval = 0;
        break;
    }
    return (retval);
}

int
SDL_CDResume (SDL_CD * cdrom)
{
    CDstatus status;
    int retval;

    /* Check if the CD-ROM subsystem has been initialized */
    if (!CheckInit (1, &cdrom)) {
        return (CD_ERROR);
    }

    status = SDL_CDcaps.Status (cdrom, NULL);
    switch (status) {
    case CD_PAUSED:
        retval = SDL_CDcaps.Resume (cdrom);
    default:
        retval = 0;
        break;
    }
    return (retval);
}

int
SDL_CDStop (SDL_CD * cdrom)
{
    CDstatus status;
    int retval;

    /* Check if the CD-ROM subsystem has been initialized */
    if (!CheckInit (1, &cdrom)) {
        return (CD_ERROR);
    }

    status = SDL_CDcaps.Status (cdrom, NULL);
    switch (status) {
    case CD_PLAYING:
    case CD_PAUSED:
        retval = SDL_CDcaps.Stop (cdrom);
    default:
        retval = 0;
        break;
    }
    return (retval);
}

int
SDL_CDEject (SDL_CD * cdrom)
{
    /* Check if the CD-ROM subsystem has been initialized */
    if (!CheckInit (1, &cdrom)) {
        return (CD_ERROR);
    }
    return (SDL_CDcaps.Eject (cdrom));
}

void
SDL_CDClose (SDL_CD * cdrom)
{
    /* Check if the CD-ROM subsystem has been initialized */
    if (!CheckInit (1, &cdrom)) {
        return;
    }
    SDL_CDcaps.Close (cdrom);
    SDL_free (cdrom);
    default_cdrom = NULL;
}

void
SDL_CDROMQuit (void)
{
    SDL_SYS_CDQuit ();
    SDL_cdinitted = 0;
}

/* vi: set ts=4 sw=4 expandtab: */