/* 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 N] [--fullscreen | --windows N] [--title title] [--icon icon.bmp] [--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 = 0;

    state->window_x = SDL_WINDOWPOS_UNDEFINED;

    state->window_y = SDL_WINDOWPOS_UNDEFINED;

    state->window_w = DEFAULT_WINDOW_WIDTH;

    state->window_h = DEFAULT_WINDOW_HEIGHT;

    state->num_windows = 1;

    state->audiospec.freq = 22050;

    state->audiospec.format = AUDIO_S16;

    state->audiospec.channels = 2;

    state->audiospec.samples = 2048;

    /* Set some very sane GL defaults */

    state->gl_red_size = 3;

    state->gl_green_size = 3;

    state->gl_blue_size = 2;

    state->gl_alpha_size = 0;

    state->gl_buffer_size = 0;

    state->gl_depth_size = 16;

    state->gl_stencil_size = 0;

    state->gl_double_buffer = 1;

    state->gl_accum_red_size = 0;

    state->gl_accum_green_size = 0;

    state->gl_accum_blue_size = 0;

    state->gl_accum_alpha_size = 0;

    state->gl_stereo = 0;

    state->gl_multisamplebuffers = 0;

    state->gl_multisamplesamples = 0;

    state->gl_retained_backing = 1;

    state->gl_accelerated = -1;

    state->gl_major_version = 2;

    state->gl_minor_version = 1;

    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], "--icon") == 0) {

        ++index;

        if (!argv[index]) {

            return -1;

        }

        state->window_icon = 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], "--depth") == 0) {

        ++index;

        if (!argv[index]) {

            return -1;

        }

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

        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) {

        state->render_flags |= SDL_RENDERER_PRESENTVSYNC;

        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 = (Uint8) SDL_atoi(argv[index]);

        return 2;

    }

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

        ++index;

        if (!argv[index]) {

            return -1;

        }

        state->audiospec.samples = (Uint16) 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) {

    case SDL_RENDERER_PRESENTVSYNC:

        fprintf(stderr, "PresentVSync");

        break;

    case SDL_RENDERER_ACCELERATED:

        fprintf(stderr, "Accelerated");

        break;

    default:

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

        break;

    }

}

static void

PrintPixelFormat(Uint32 format)

{

    switch (format) {

    case SDL_PIXELFORMAT_UNKNOWN:

        fprintf(stderr, "Unknwon");

        break;

    case SDL_PIXELFORMAT_INDEX1LSB:

        fprintf(stderr, "Index1LSB");

        break;

    case SDL_PIXELFORMAT_INDEX1MSB:

        fprintf(stderr, "Index1MSB");

        break;

    case SDL_PIXELFORMAT_INDEX4LSB:

        fprintf(stderr, "Index4LSB");

        break;

    case SDL_PIXELFORMAT_INDEX4MSB:

        fprintf(stderr, "Index4MSB");

        break;

    case SDL_PIXELFORMAT_INDEX8:

        fprintf(stderr, "Index8");

        break;

    case SDL_PIXELFORMAT_RGB332:

        fprintf(stderr, "RGB332");

        break;

    case SDL_PIXELFORMAT_RGB444:

        fprintf(stderr, "RGB444");

        break;

    case SDL_PIXELFORMAT_RGB555:

        fprintf(stderr, "RGB555");

        break;

    case SDL_PIXELFORMAT_BGR555:

        fprintf(stderr, "BGR555");

        break;

    case SDL_PIXELFORMAT_ARGB4444:

        fprintf(stderr, "ARGB4444");

        break;

    case SDL_PIXELFORMAT_ABGR4444:

        fprintf(stderr, "ABGR4444");

        break;

    case SDL_PIXELFORMAT_ARGB1555:

        fprintf(stderr, "ARGB1555");

        break;

    case SDL_PIXELFORMAT_ABGR1555:

        fprintf(stderr, "ABGR1555");

        break;

    case SDL_PIXELFORMAT_RGB565:

        fprintf(stderr, "RGB565");

        break;

    case SDL_PIXELFORMAT_BGR565:

        fprintf(stderr, "BGR565");

        break;

    case SDL_PIXELFORMAT_RGB24:

        fprintf(stderr, "RGB24");

        break;

    case SDL_PIXELFORMAT_BGR24:

        fprintf(stderr, "BGR24");

        break;

    case SDL_PIXELFORMAT_RGB888:

        fprintf(stderr, "RGB888");

        break;

    case SDL_PIXELFORMAT_BGR888:

        fprintf(stderr, "BGR888");

        break;

    case SDL_PIXELFORMAT_ARGB8888:

        fprintf(stderr, "ARGB8888");

        break;

    case SDL_PIXELFORMAT_RGBA8888:

        fprintf(stderr, "RGBA8888");

        break;

    case SDL_PIXELFORMAT_ABGR8888:

        fprintf(stderr, "ABGR8888");

        break;

    case SDL_PIXELFORMAT_BGRA8888:

        fprintf(stderr, "BGRA8888");

        break;

    case SDL_PIXELFORMAT_ARGB2101010:

        fprintf(stderr, "ARGB2101010");

        break;

    case SDL_PIXELFORMAT_YV12:

        fprintf(stderr, "YV12");

        break;

    case SDL_PIXELFORMAT_IYUV:

        fprintf(stderr, "IYUV");

        break;

    case SDL_PIXELFORMAT_YUY2:

        fprintf(stderr, "YUY2");

        break;

    case SDL_PIXELFORMAT_UYVY:

        fprintf(stderr, "UYVY");

        break;

    case SDL_PIXELFORMAT_YVYU:

        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, "    Texture formats (%d): ", info->num_texture_formats);

    for (i = 0; i < (int) 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);

    }

}

static SDL_Surface *

LoadIcon(const char *file)

{

    SDL_Surface *icon;

    /* Load the icon surface */

    icon = SDL_LoadBMP(file);

    if (icon == NULL) {

        fprintf(stderr, "Couldn't load %s: %s\n", file, SDL_GetError());

        return (NULL);

    }

    if (icon->format->palette == NULL) {

        fprintf(stderr, "Icon must have a palette!\n");

        SDL_FreeSurface(icon);

        return (NULL);

    }

    /* Set the colorkey */

    SDL_SetColorKey(icon, 1, *((Uint8 *) icon->pixels));

    return (icon);

}

SDL_bool

CommonInit(CommonState * state)

{

    int i, j, m, n;

    SDL_DisplayMode fullscreen_mode;

    if (state->flags & SDL_INIT_VIDEO) {

        if (state->verbose & VERBOSE_VIDEO) {

            n = SDL_GetNumVideoDrivers();

            if (n == 0) {

                fprintf(stderr, "No built-in video drivers\n");

            } else {

                fprintf(stderr, "Built-in video drivers:");

                for (i = 0; i < n; ++i) {

                    if (i > 0) {

                        fprintf(stderr, ",");

                    }

                    fprintf(stderr, " %s", SDL_GetVideoDriver(i));

                }