/* Test out the window manager interaction functions */

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

#include "SDL.h"

/* Is the cursor visible? */
static int visible = 1;

static Uint8 video_bpp;
static Uint32 video_flags;

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

int
SetVideoMode (int w, int h)
{
    SDL_Surface *screen;
    int i;
    Uint8 *buffer;
    SDL_Color palette[256];

    screen = SDL_SetVideoMode (w, h, video_bpp, video_flags);
    if (screen == NULL) {
        fprintf (stderr, "Couldn't set %dx%dx%d video mode: %s\n",
                 w, h, video_bpp, SDL_GetError ());
        return (-1);
    }
    printf ("Running in %s mode\n", screen->flags & SDL_FULLSCREEN ?
            "fullscreen" : "windowed");

    /* Set the surface pixels and refresh! */
    for (i = 0; i < 256; ++i) {
        palette[i].r = 255 - i;
        palette[i].g = 255 - i;
        palette[i].b = 255 - i;
    }
    SDL_SetColors (screen, palette, 0, 256);
    if (SDL_LockSurface (screen) < 0) {
        fprintf (stderr, "Couldn't lock display surface: %s\n",
                 SDL_GetError ());
        return (-1);
    }
    buffer = (Uint8 *) screen->pixels;
    for (i = 0; i < screen->h; ++i) {
        memset (buffer, (i * 255) / screen->h,
                screen->w * screen->format->BytesPerPixel);
        buffer += screen->pitch;
    }
    SDL_UnlockSurface (screen);
    SDL_UpdateRect (screen, 0, 0, 0, 0);

    return (0);
}

SDL_Surface *
LoadIconSurface (char *file, Uint8 ** maskp)
{
    SDL_Surface *icon;
    Uint8 *pixels;
    Uint8 *mask;
    int mlen, i, j;

    *maskp = NULL;

    /* Load the icon surface */
    icon = SDL_LoadBMP (file);
    if (icon == NULL) {
        fprintf (stderr, "Couldn't load %s: %s\n", file, SDL_GetError ());
        return (NULL);
    }

    /* Check width and height 
       if ( (icon->w%8) != 0 ) {
       fprintf(stderr, "Icon width must be a multiple of 8!\n");
       SDL_FreeSurface(icon);
       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, SDL_SRCCOLORKEY, *((Uint8 *) icon->pixels));

    /* Create the mask */
    pixels = (Uint8 *) icon->pixels;
    printf ("Transparent pixel: (%d,%d,%d)\n",
            icon->format->palette->colors[*pixels].r,
            icon->format->palette->colors[*pixels].g,
            icon->format->palette->colors[*pixels].b);
    mlen = (icon->w * icon->h + 7) / 8;
    mask = (Uint8 *) malloc (mlen);
    if (mask == NULL) {
        fprintf (stderr, "Out of memory!\n");
        SDL_FreeSurface (icon);
        return (NULL);
    }
    memset (mask, 0, mlen);
    for (i = 0; i < icon->h; i++)
        for (j = 0; j < icon->w; j++) {
            int pindex = i * icon->pitch + j;
            int mindex = i * icon->w + j;
            if (pixels[pindex] != *pixels)
                mask[mindex >> 3] |= 1 << (7 - (mindex & 7));
        }
    *maskp = mask;
    return (icon);
}

void
HotKey_ToggleFullScreen (void)
{
    SDL_Surface *screen;

    screen = SDL_GetVideoSurface ();
    if (SDL_WM_ToggleFullScreen (screen)) {
        printf ("Toggled fullscreen mode - now %s\n",
                (screen->flags & SDL_FULLSCREEN) ? "fullscreen" : "windowed");
    } else {
        printf ("Unable to toggle fullscreen mode\n");
        video_flags ^= SDL_FULLSCREEN;
        SetVideoMode (screen->w, screen->h);
    }
}

void
HotKey_ToggleGrab (void)
{
    SDL_GrabMode mode;

    printf ("Ctrl-G: toggling input grab!\n");
    mode = SDL_WM_GrabInput (SDL_GRAB_QUERY);
    if (mode == SDL_GRAB_ON) {
        printf ("Grab was on\n");
    } else {
        printf ("Grab was off\n");
    }
    mode = SDL_WM_GrabInput (mode ? SDL_GRAB_OFF : SDL_GRAB_ON);
    if (mode == SDL_GRAB_ON) {
        printf ("Grab is now on\n");
    } else {
        printf ("Grab is now off\n");
    }
}

void
HotKey_Iconify (void)
{
    printf ("Ctrl-Z: iconifying window!\n");
    SDL_WM_IconifyWindow ();
}

void
HotKey_Quit (void)
{
    SDL_Event event;

    printf ("Posting internal quit request\n");
    event.type = SDL_USEREVENT;
    SDL_PushEvent (&event);
}

int SDLCALL
FilterEvents (const SDL_Event * event)
{
    static int reallyquit = 0;

    switch (event->type) {

    case SDL_ACTIVEEVENT:
        /* See what happened */
        printf ("App %s ", event->active.gain ? "gained" : "lost");
        if (event->active.state & SDL_APPACTIVE)
            printf ("active ");
        if (event->active.state & SDL_APPINPUTFOCUS)
            printf ("input ");
        if (event->active.state & SDL_APPMOUSEFOCUS)
            printf ("mouse ");
        printf ("focus\n");

        /* See if we are iconified or restored */
        if (event->active.state & SDL_APPACTIVE) {
            printf ("App has been %s\n",
                    event->active.gain ? "restored" : "iconified");
        }
        return (0);

        /* We want to toggle visibility on buttonpress */
    case SDL_MOUSEBUTTONDOWN:
    case SDL_MOUSEBUTTONUP:
        if (event->button.state == SDL_PRESSED) {
            visible = !visible;
            SDL_ShowCursor (visible);
        }
        printf ("Mouse button %d has been %s\n",
                event->button.button,
                (event->button.state == SDL_PRESSED) ?
                "pressed" : "released");
        return (0);

        /* Show relative mouse motion */
    case SDL_MOUSEMOTION:
#if 0
        printf ("Mouse motion: {%d,%d} (%d,%d)\n",
                event->motion.x, event->motion.y,
                event->motion.xrel, event->motion.yrel);
#endif
        return (0);

    case SDL_KEYDOWN:
        if (event->key.keysym.sym == SDLK_ESCAPE) {
            HotKey_Quit ();
        }
        if ((event->key.keysym.sym == SDLK_g) &&
            (event->key.keysym.mod & KMOD_CTRL)) {
            HotKey_ToggleGrab ();
        }
        if ((event->key.keysym.sym == SDLK_z) &&
            (event->key.keysym.mod & KMOD_CTRL)) {
            HotKey_Iconify ();
        }
        if ((event->key.keysym.sym == SDLK_RETURN) &&
            (event->key.keysym.mod & KMOD_ALT)) {
            HotKey_ToggleFullScreen ();
        }
        return (0);

        /* Pass the video resize event through .. */
    case SDL_VIDEORESIZE:
        return (1);

        /* This is important!  Queue it if we want to quit. */
    case SDL_QUIT:
        if (!reallyquit) {
            reallyquit = 1;
            printf ("Quit requested\n");
            return (0);
        }
        printf ("Quit demanded\n");
        return (1);

        /* This will never happen because events queued directly
           to the event queue are not filtered.
         */
    case SDL_USEREVENT:
        return (1);

        /* Drop all other events */
    default:
        return (0);
    }
}

int
main (int argc, char *argv[])
{
    SDL_Event event;
    char *title;
    SDL_Surface *icon;
    Uint8 *icon_mask;
    int parsed;
    int w, h;

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

    /* Check command line arguments */
    w = 640;
    h = 480;
    video_bpp = 8;
    video_flags = SDL_SWSURFACE;
    parsed = 1;
    while (parsed) {
        if ((argc >= 2) && (strcmp (argv[1], "-fullscreen") == 0)) {
            video_flags |= SDL_FULLSCREEN;
            argc -= 1;
            argv += 1;
        } else if ((argc >= 2) && (strcmp (argv[1], "-resize") == 0)) {
            video_flags |= SDL_RESIZABLE;
            argc -= 1;
            argv += 1;
        } else if ((argc >= 2) && (strcmp (argv[1], "-noframe") == 0)) {
            video_flags |= SDL_NOFRAME;
            argc -= 1;
            argv += 1;
        } else if ((argc >= 3) && (strcmp (argv[1], "-width") == 0)) {
            w = atoi (argv[2]);
            argc -= 2;
            argv += 2;
        } else if ((argc >= 3) && (strcmp (argv[1], "-height") == 0)) {
            h = atoi (argv[2]);
            argc -= 2;
            argv += 2;
        } else if ((argc >= 3) && (strcmp (argv[1], "-bpp") == 0)) {
            video_bpp = atoi (argv[2]);
            argc -= 2;
            argv += 2;
        } else {
            parsed = 0;
        }
    }

    /* Set the icon -- this must be done before the first mode set */
    icon = LoadIconSurface ("icon.bmp", &icon_mask);
    if (icon != NULL) {
        SDL_WM_SetIcon (icon, icon_mask);
    }
    if (icon_mask != NULL)
        free (icon_mask);

    /* Set the title bar */
    if (argv[1] == NULL)
        title = "Testing  1.. 2.. 3...";
    else
        title = argv[1];
    SDL_WM_SetCaption (title, "testwm");

    /* See if it's really set */
    SDL_WM_GetCaption (&title, NULL);
    if (title)
        printf ("Title was set to: %s\n", title);
    else
        printf ("No window title was set!\n");

    /* Initialize the display */
    if (SetVideoMode (w, h) < 0) {
        quit (1);
    }

    /* Set an event filter that discards everything but QUIT */
    SDL_SetEventFilter (FilterEvents);

    /* Ignore key up events, they don't even get filtered */
    SDL_EventState (SDL_KEYUP, SDL_IGNORE);

    /* Loop, waiting for QUIT */
    while (SDL_WaitEvent (&event)) {
        switch (event.type) {
        case SDL_VIDEORESIZE:
            printf ("Got a resize event: %dx%d\n",
                    event.resize.w, event.resize.h);
            SetVideoMode (event.resize.w, event.resize.h);
            break;
        case SDL_USEREVENT:
            printf ("Handling internal quit request\n");
            /* Fall through to the quit handler */
        case SDL_QUIT:
            printf ("Bye bye..\n");
            quit (0);
        default:
            /* This should never happen */
            printf ("Warning: Event %d wasn't filtered\n", event.type);
            break;
        }
    }
    printf ("SDL_WaitEvent() error: %s\n", SDL_GetError ());
    SDL_Quit ();
    return (255);
}