/* Test the SDL CD-ROM audio functions */

#include <stdlib.h>
#include <stdio.h>
#include <string.h>
#include <ctype.h>

#include "SDL.h"

/* Call this instead of exit(), so we can clean up SDL: atexit() is evil. */
static void
quit(int rc)
{
    SDL_Quit();
    exit(rc);
}

static void
PrintStatus(int driveindex, SDL_CD * cdrom)
{
    CDstatus status;
    char *status_str;

    status = SDL_CDStatus(cdrom);
    switch (status) {
    case CD_TRAYEMPTY:
        status_str = "tray empty";
        break;
    case CD_STOPPED:
        status_str = "stopped";
        break;
    case CD_PLAYING:
        status_str = "playing";
        break;
    case CD_PAUSED:
        status_str = "paused";
        break;
    case CD_ERROR:
        status_str = "error state";
        break;
    }
    printf("Drive %d status: %s\n", driveindex, status_str);
    if (status >= CD_PLAYING) {
        int m, s, f;
        FRAMES_TO_MSF(cdrom->cur_frame, &m, &s, &f);
        printf("Currently playing track %d, %d:%2.2d\n",
               cdrom->track[cdrom->cur_track].id, m, s);
    }
}

static void
ListTracks(SDL_CD * cdrom)
{
    int i;
    int m, s, f;
    char *trtype;

    SDL_CDStatus(cdrom);
    printf("Drive tracks: %d\n", cdrom->numtracks);
    for (i = 0; i < cdrom->numtracks; ++i) {
        FRAMES_TO_MSF(cdrom->track[i].length, &m, &s, &f);
        if (f > 0)
            ++s;
        switch (cdrom->track[i].type) {
        case SDL_AUDIO_TRACK:
            trtype = "audio";
            break;
        case SDL_DATA_TRACK:
            trtype = "data";
            break;
        default:
            trtype = "unknown";
            break;
        }
        printf("\tTrack (index %d) %d: %d:%2.2d / %d [%s track]\n", i,
               cdrom->track[i].id, m, s, cdrom->track[i].length, trtype);
    }
}

static void
PrintUsage(char *argv0)
{
    fprintf(stderr, "Usage: %s [drive#] [command] [command] ...\n", argv0);
    fprintf(stderr, "Where 'command' is one of:\n");
    fprintf(stderr, "	-status\n");
    fprintf(stderr, "	-list\n");
    fprintf(stderr,
            "	-play [first_track] [first_frame] [num_tracks] [num_frames]\n");
    fprintf(stderr, "	-pause\n");
    fprintf(stderr, "	-resume\n");
    fprintf(stderr, "	-stop\n");
    fprintf(stderr, "	-eject\n");
    fprintf(stderr, "	-sleep <milliseconds>\n");
}

int
main(int argc, char *argv[])
{
    int drive;
    int i;
    SDL_CD *cdrom;

    /* Initialize SDL first */
    if (SDL_Init(SDL_INIT_CDROM) < 0) {
        fprintf(stderr, "Couldn't initialize SDL: %s\n", SDL_GetError());
        return (1);
    }

    /* Find out how many CD-ROM drives are connected to the system */
    if (SDL_CDNumDrives() == 0) {
        printf("No CD-ROM devices detected\n");
        quit(0);
    }
    printf("Drives available: %d\n", SDL_CDNumDrives());
    for (i = 0; i < SDL_CDNumDrives(); ++i) {
        printf("Drive %d:  \"%s\"\n", i, SDL_CDName(i));
    }

    /* Open the CD-ROM */
    drive = 0;
    i = 1;
    if (argv[i] && isdigit(argv[i][0])) {
        drive = atoi(argv[i++]);
    }
    cdrom = SDL_CDOpen(drive);
    if (cdrom == NULL) {
        fprintf(stderr, "Couldn't open drive %d: %s\n", drive,
                SDL_GetError());
        quit(2);
    }
#ifdef TEST_NULLCD
    cdrom = NULL;
#endif

    /* Find out which function to perform */
    for (; argv[i]; ++i) {
        if (strcmp(argv[i], "-status") == 0) {
            /* PrintStatus(drive, cdrom); */
        } else if (strcmp(argv[i], "-list") == 0) {
            ListTracks(cdrom);
        } else if (strcmp(argv[i], "-play") == 0) {
            int strack, sframe;
            int ntrack, nframe;

            strack = 0;
            if (argv[i + 1] && isdigit(argv[i + 1][0])) {
                strack = atoi(argv[++i]);
            }
            sframe = 0;
            if (argv[i + 1] && isdigit(argv[i + 1][0])) {
                sframe = atoi(argv[++i]);
            }
            ntrack = 0;
            if (argv[i + 1] && isdigit(argv[i + 1][0])) {
                ntrack = atoi(argv[++i]);
            }
            nframe = 0;
            if (argv[i + 1] && isdigit(argv[i + 1][0])) {
                nframe = atoi(argv[++i]);
            }
            if (CD_INDRIVE(SDL_CDStatus(cdrom))) {
                if (SDL_CDPlayTracks(cdrom, strack, sframe,
                                     ntrack, nframe) < 0) {
                    fprintf(stderr,
                            "Couldn't play tracks %d/%d for %d/%d: %s\n",
                            strack, sframe, ntrack, nframe, SDL_GetError());
                }
            } else {
                fprintf(stderr, "No CD in drive!\n");
            }
        } else if (strcmp(argv[i], "-pause") == 0) {
            if (SDL_CDPause(cdrom) < 0) {
                fprintf(stderr, "Couldn't pause CD: %s\n", SDL_GetError());
            }
        } else if (strcmp(argv[i], "-resume") == 0) {
            if (SDL_CDResume(cdrom) < 0) {
                fprintf(stderr, "Couldn't resume CD: %s\n", SDL_GetError());
            }
        } else if (strcmp(argv[i], "-stop") == 0) {
            if (SDL_CDStop(cdrom) < 0) {
                fprintf(stderr, "Couldn't eject CD: %s\n", SDL_GetError());
            }
        } else if (strcmp(argv[i], "-eject") == 0) {
            if (SDL_CDEject(cdrom) < 0) {
                fprintf(stderr, "Couldn't eject CD: %s\n", SDL_GetError());
            }
        } else if ((strcmp(argv[i], "-sleep") == 0) &&
                   (argv[i + 1] && isdigit(argv[i + 1][0]))) {
            SDL_Delay(atoi(argv[++i]));
            printf("Delayed %d milliseconds\n", atoi(argv[i]));
        } else {
            PrintUsage(argv[0]);
            SDL_CDClose(cdrom);
            quit(1);
        }
    }
    PrintStatus(drive, cdrom);
    SDL_CDClose(cdrom);
    SDL_Quit();

    return (0);
}