/* A simple test program framework */

#include <stdio.h>

#include "common.h"

#define VIDEO_USAGE \

"[--video driver] [--renderer driver] [--info all|video|modes|render|event] [--display %d] [--fullscreen | --windows N] [--title title] [--center | --position X,Y] [--geometry WxH] [--depth N] [--refresh R] [--vsync] [--noframe] [--resize] [--minimize] [--maximize] [--grab]"

#define AUDIO_USAGE \

"[--rate N] [--format U8|S8|U16|U16LE|U16BE|S16|S16LE|S16BE] [--channels N] [--samples N]"

CommonState *

CommonCreateState(char **argv, Uint32 flags)

{

    CommonState *state = SDL_calloc(1, sizeof(*state));

    if (!state) {

        SDL_OutOfMemory();

        return NULL;

    }

    /* Initialize some defaults */

    state->argv = argv;

    state->flags = flags;

    state->window_title = argv[0];

    state->window_flags = SDL_WINDOW_SHOWN;

    state->window_x = SDL_WINDOWPOS_UNDEFINED;

    state->window_y = SDL_WINDOWPOS_UNDEFINED;

    state->window_w = 640;

    state->window_h = 480;

    state->num_windows = 1;

    state->audiospec.freq = 22050;

    state->audiospec.format = AUDIO_S16;

    state->audiospec.channels = 2;

    state->audiospec.samples = 2048;

    return state;

}

int

CommonArg(CommonState * state, int index)

{

    char **argv = state->argv;

    if (SDL_strcasecmp(argv[index], "--video") == 0) {

        ++index;

        if (!argv[index]) {

            return -1;

        }

        state->videodriver = argv[index];

        return 2;

    }

    if (SDL_strcasecmp(argv[index], "--renderer") == 0) {

        ++index;

        if (!argv[index]) {

            return -1;

        }

        state->renderdriver = argv[index];

        return 2;

    }

    if (SDL_strcasecmp(argv[index], "--info") == 0) {

        ++index;

        if (!argv[index]) {

            return -1;

        }

        if (SDL_strcasecmp(argv[index], "all") == 0) {

            state->verbose |=

                (VERBOSE_VIDEO | VERBOSE_MODES | VERBOSE_RENDER |

                 VERBOSE_EVENT);

            return 2;

        }

        if (SDL_strcasecmp(argv[index], "video") == 0) {

            state->verbose |= VERBOSE_VIDEO;

            return 2;

        }

        if (SDL_strcasecmp(argv[index], "modes") == 0) {

            state->verbose |= VERBOSE_MODES;

            return 2;

        }

        if (SDL_strcasecmp(argv[index], "render") == 0) {

            state->verbose |= VERBOSE_RENDER;

            return 2;

        }

        if (SDL_strcasecmp(argv[index], "event") == 0) {

            state->verbose |= VERBOSE_EVENT;

            return 2;

        }

        return -1;

    }

    if (SDL_strcasecmp(argv[index], "--display") == 0) {

        ++index;

        if (!argv[index]) {

            return -1;

        }

        state->display = SDL_atoi(argv[index]);

        return 2;

    }

    if (SDL_strcasecmp(argv[index], "--fullscreen") == 0) {

        state->window_flags |= SDL_WINDOW_FULLSCREEN;

        state->num_windows = 1;

        return 1;

    }

    if (SDL_strcasecmp(argv[index], "--windows") == 0) {

        ++index;

        if (!argv[index] || !SDL_isdigit(*argv[index])) {

            return -1;

        }

        if (!(state->window_flags & SDL_WINDOW_FULLSCREEN)) {

            state->num_windows = SDL_atoi(argv[index]);

        }

        return 2;

    }

    if (SDL_strcasecmp(argv[index], "--title") == 0) {

        ++index;

        if (!argv[index]) {

            return -1;

        }

        state->window_title = argv[index];

        return 2;

    }

    if (SDL_strcasecmp(argv[index], "--center") == 0) {

        state->window_x = SDL_WINDOWPOS_CENTERED;

        state->window_y = SDL_WINDOWPOS_CENTERED;

        return 1;

    }

    if (SDL_strcasecmp(argv[index], "--position") == 0) {

        char *x, *y;

        ++index;

        if (!argv[index]) {

            return -1;

        }

        x = argv[index];

        y = argv[index];

        while (*y && *y != ',') {

            ++y;

        }

        if (!*y) {

            return -1;

        }

        *y++ = '\0';

        state->window_x = SDL_atoi(x);

        state->window_y = SDL_atoi(y);

        return 2;

    }

    if (SDL_strcasecmp(argv[index], "--geometry") == 0) {

        char *w, *h;

        ++index;

        if (!argv[index]) {

            return -1;

        }

        w = argv[index];

        h = argv[index];

        while (*h && *h != 'x') {

            ++h;

        }

        if (!*h) {

            return -1;

        }

        *h++ = '\0';

        state->window_w = SDL_atoi(w);

        state->window_h = SDL_atoi(h);

        return 2;

    }

    if (SDL_strcasecmp(argv[index], "--refresh") == 0) {

        ++index;

        if (!argv[index]) {

            return -1;

        }

        state->refresh_rate = SDL_atoi(argv[index]);

        return 2;

    }

    if (SDL_strcasecmp(argv[index], "--vsync") == 0) {

        return 1;

    }

    if (SDL_strcasecmp(argv[index], "--noframe") == 0) {

        state->window_flags |= SDL_WINDOW_BORDERLESS;

        return 1;

    }

    if (SDL_strcasecmp(argv[index], "--resize") == 0) {

        state->window_flags |= SDL_WINDOW_RESIZABLE;

        return 1;

    }

    if (SDL_strcasecmp(argv[index], "--minimize") == 0) {

        state->window_flags |= SDL_WINDOW_MINIMIZED;

        return 1;

    }

    if (SDL_strcasecmp(argv[index], "--maximize") == 0) {

        state->window_flags |= SDL_WINDOW_MAXIMIZED;

        return 1;

    }

    if (SDL_strcasecmp(argv[index], "--grab") == 0) {

        state->window_flags |= SDL_WINDOW_INPUT_GRABBED;

        return 1;

    }

    if (SDL_strcasecmp(argv[index], "--rate") == 0) {

        ++index;

        if (!argv[index]) {

            return -1;

        }

        state->audiospec.freq = SDL_atoi(argv[index]);

        return 2;

    }

    if (SDL_strcasecmp(argv[index], "--format") == 0) {

        ++index;

        if (!argv[index]) {

            return -1;

        }

        if (SDL_strcasecmp(argv[index], "U8") == 0) {

            state->audiospec.format = AUDIO_U8;

            return 2;

        }

        if (SDL_strcasecmp(argv[index], "S8") == 0) {

            state->audiospec.format = AUDIO_S8;

            return 2;

        }

        if (SDL_strcasecmp(argv[index], "U16") == 0) {

            state->audiospec.format = AUDIO_U16;

            return 2;

        }

        if (SDL_strcasecmp(argv[index], "U16LE") == 0) {

            state->audiospec.format = AUDIO_U16LSB;

            return 2;

        }

        if (SDL_strcasecmp(argv[index], "U16BE") == 0) {

            state->audiospec.format = AUDIO_U16MSB;

            return 2;

        }

        if (SDL_strcasecmp(argv[index], "S16") == 0) {

            state->audiospec.format = AUDIO_S16;

            return 2;

        }

        if (SDL_strcasecmp(argv[index], "S16LE") == 0) {

            state->audiospec.format = AUDIO_S16LSB;

            return 2;

        }

        if (SDL_strcasecmp(argv[index], "S16BE") == 0) {

            state->audiospec.format = AUDIO_S16MSB;

            return 2;

        }

        return -1;

    }

    if (SDL_strcasecmp(argv[index], "--channels") == 0) {

        ++index;

        if (!argv[index]) {

            return -1;

        }

        state->audiospec.channels = SDL_atoi(argv[index]);

        return 2;

    }

    if (SDL_strcasecmp(argv[index], "--samples") == 0) {

        ++index;

        if (!argv[index]) {

            return -1;

        }

        state->audiospec.samples = SDL_atoi(argv[index]);

        return 2;

    }

    if ((SDL_strcasecmp(argv[index], "-h") == 0)

        || (SDL_strcasecmp(argv[index], "--help") == 0)) {

        /* Print the usage message */

        return -1;

    }

    return 0;

}

const char *

CommonUsage(CommonState * state)

{

    switch (state->flags & (SDL_INIT_VIDEO | SDL_INIT_AUDIO)) {

    case SDL_INIT_VIDEO:

        return VIDEO_USAGE;

    case SDL_INIT_AUDIO:

        return AUDIO_USAGE;

    case (SDL_INIT_VIDEO | SDL_INIT_AUDIO):

        return VIDEO_USAGE " " AUDIO_USAGE;

    default:

        return "";

    }

}

static void

PrintRendererFlag(Uint32 flag)

{

    switch (flag) {

        fprintf(stderr, "SingleBuffer");

        break;

        fprintf(stderr, "PresentCopy");

        break;

        fprintf(stderr, "PresentFlip2");

        break;

        fprintf(stderr, "PresentFlip3");

        break;

        fprintf(stderr, "PresentDiscard");

        break;

        fprintf(stderr, "PresentVSync");

        break;

        fprintf(stderr, "Accelerated");

        break;

    default:

        fprintf(stderr, "0x%8.8x", flag);

        break;

    }

}

static void

PrintBlendMode(Uint32 flag)

{

    switch (flag) {

        fprintf(stderr, "None");

        break;

        fprintf(stderr, "Mask");

        break;

        fprintf(stderr, "Blend");

        break;

        fprintf(stderr, "Add");

        break;

        fprintf(stderr, "Mod");

        break;

    default:

        fprintf(stderr, "0x%8.8x", flag);

        break;

    }

}

static void

PrintScaleMode(Uint32 flag)

{

    switch (flag) {

        fprintf(stderr, "None");

        break;

        fprintf(stderr, "Fast");

        break;

        fprintf(stderr, "Slow");

        break;

        fprintf(stderr, "Best");

        break;

    default:

        fprintf(stderr, "0x%8.8x", flag);

        break;

    }

}

static void

PrintPixelFormat(Uint32 format)

{

    switch (format) {

        fprintf(stderr, "Unknwon");

        break;

        fprintf(stderr, "Index1LSB");

        break;

        fprintf(stderr, "Index1MSB");

        break;

        fprintf(stderr, "Index4LSB");

        break;

        fprintf(stderr, "Index4MSB");

        break;

        fprintf(stderr, "Index8");

        break;

        fprintf(stderr, "RGB332");

        break;

        fprintf(stderr, "RGB444");

        break;

        fprintf(stderr, "RGB555");

        break;

        fprintf(stderr, "ARGB4444");

        break;

        fprintf(stderr, "ARGB1555");

        break;

        fprintf(stderr, "RGB565");

        break;

        fprintf(stderr, "RGB24");

        break;

        fprintf(stderr, "BGR24");

        break;

        fprintf(stderr, "RGB888");

        break;

        fprintf(stderr, "BGR888");

        break;

        fprintf(stderr, "ARGB8888");

        break;

        fprintf(stderr, "RGBA8888");

        break;

        fprintf(stderr, "ABGR8888");

        break;

        fprintf(stderr, "BGRA8888");

        break;

        fprintf(stderr, "ARGB2101010");

        break;

        fprintf(stderr, "YV12");

        break;

        fprintf(stderr, "IYUV");

        break;

        fprintf(stderr, "YUY2");

        break;

        fprintf(stderr, "UYVY");

        break;

        fprintf(stderr, "YVYU");

        break;

    default:

        fprintf(stderr, "0x%8.8x", format);

        break;

    }

}

static void

PrintRenderer(SDL_RendererInfo * info)

{

    int i, count;

    fprintf(stderr, "  Renderer %s:\n", info->name);

    fprintf(stderr, "    Flags: 0x%8.8X", info->flags);

    fprintf(stderr, " (");

    count = 0;

    for (i = 0; i < sizeof(info->flags) * 8; ++i) {

        Uint32 flag = (1 << i);

        if (info->flags & flag) {

            if (count > 0) {

                fprintf(stderr, " | ");

            }

            PrintRendererFlag(flag);

            ++count;

        }

    }

    fprintf(stderr, ")\n");

    fprintf(stderr, "    Blend: 0x%8.8X", info->blend_modes);

    fprintf(stderr, " (");

    count = 0;

    for (i = 0; i < sizeof(info->blend_modes) * 8; ++i) {

        Uint32 flag = (1 << i);

        if (info->blend_modes & flag) {

            if (count > 0) {

                fprintf(stderr, " | ");

            }

            PrintBlendMode(flag);

            ++count;

        }

    }

    fprintf(stderr, ")\n");

    fprintf(stderr, "    Scale: 0x%8.8X", info->scale_modes);

    fprintf(stderr, " (");

    count = 0;

    for (i = 0; i < sizeof(info->scale_modes) * 8; ++i) {

        Uint32 flag = (1 << i);

        if (info->scale_modes & flag) {

            if (count > 0) {

                fprintf(stderr, " | ");

            }

            PrintScaleMode(flag);

            ++count;

        }

    }

    fprintf(stderr, ")\n");

    fprintf(stderr, "    Texture formats (%d): ", info->num_texture_formats);

    for (i = 0; i < info->num_texture_formats; ++i) {

        if (i > 0) {

            fprintf(stderr, ", ");

        }

        PrintPixelFormat(info->texture_formats[i]);

    }

    fprintf(stderr, "\n");

    if (info->max_texture_width || info->max_texture_height) {

        fprintf(stderr, "    Max Texture Size: %dx%d\n",

                info->max_texture_width, info->max_texture_height);

    }

}

SDL_bool

CommonInit(CommonState * state)

{

    int i, j, m, n;

    SDL_DisplayMode fullscreen_mode;