/*

    SDL - Simple DirectMedia Layer

    Copyright (C) 1997-2010 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"

#include <sys/types.h>

#include <sys/time.h>

#include <signal.h>

#include <unistd.h>

#include "SDL_x11video.h"

#include "../../events/SDL_events_c.h"

#include "../../events/SDL_mouse_c.h"

#include "SDL_timer.h"

#include "SDL_syswm.h"

/*#define DEBUG_XEVENTS*/

static void

X11_DispatchEvent(_THIS)

{

    SDL_VideoData *videodata = (SDL_VideoData *) _this->driverdata;

    Display *display = videodata->display;

    SDL_WindowData *data;

    XEvent xevent;

    int i;

    SDL_zero(xevent);           /* valgrind fix. --ryan. */

    XNextEvent(display, &xevent);

    /* filter events catchs XIM events and sends them to the correct

       handler */

    if (XFilterEvent(&xevent, None) == True) {

#if 0

        printf("Filtered event type = %d display = %d window = %d\n",

               xevent.type, xevent.xany.display, xevent.xany.window);

#endif

        return;

    }

    /* Send a SDL_SYSWMEVENT if the application wants them */

    if (SDL_GetEventState(SDL_SYSWMEVENT) == SDL_ENABLE) {

        SDL_SysWMmsg wmmsg;

        SDL_VERSION(&wmmsg.version);

        wmmsg.subsystem = SDL_SYSWM_X11;

        wmmsg.event.xevent = xevent;

        SDL_SendSysWMEvent(&wmmsg);

    }

    data = NULL;

    if (videodata && videodata->windowlist) {

        for (i = 0; i < videodata->numwindows; ++i) {

            if ((videodata->windowlist[i] != NULL) &&

                (videodata->windowlist[i]->xwindow == xevent.xany.window)) {

                data = videodata->windowlist[i];

                break;

            }

        }

    }

    if (!data) {

        return;

    }

#if 0

    printf("type = %d display = %d window = %d\n",

           xevent.type, xevent.xany.display, xevent.xany.window);

#endif

    switch (xevent.type) {

        /* Gaining mouse coverage? */

    case EnterNotify:{

#ifdef DEBUG_XEVENTS

            printf("EnterNotify! (%d,%d,%d)\n", 

                   xevent.xcrossing.mode);

            if (xevent.xcrossing.mode == NotifyGrab)

                printf("Mode: NotifyGrab\n");

            if (xevent.xcrossing.mode == NotifyUngrab)

                printf("Mode: NotifyUngrab\n");

#endif

            SDL_SetMouseFocus(data->window);

        }

        break;

        /* Losing mouse coverage? */

    case LeaveNotify:{

#ifdef DEBUG_XEVENTS

            printf("LeaveNotify! (%d,%d,%d)\n", 

                   xevent.xcrossing.mode);

            if (xevent.xcrossing.mode == NotifyGrab)

                printf("Mode: NotifyGrab\n");

            if (xevent.xcrossing.mode == NotifyUngrab)

                printf("Mode: NotifyUngrab\n");

#endif

                SDL_SetMouseFocus(NULL);

            }

        }

        break;

        /* Gaining input focus? */

    case FocusIn:{

#ifdef DEBUG_XEVENTS

            printf("FocusIn!\n");

#endif

            SDL_SetKeyboardFocus(data->window);

#ifdef X_HAVE_UTF8_STRING

            if (data->ic) {

                XSetICFocus(data->ic);

            }

#endif

        }

        break;

        /* Losing input focus? */

    case FocusOut:{

#ifdef DEBUG_XEVENTS

            printf("FocusOut!\n");

#endif

            SDL_SetKeyboardFocus(NULL);

#ifdef X_HAVE_UTF8_STRING

            if (data->ic) {

                XUnsetICFocus(data->ic);

            }

#endif

        }

        break;

        /* Generated upon EnterWindow and FocusIn */

    case KeymapNotify:{

#ifdef DEBUG_XEVENTS

            printf("KeymapNotify!\n");

#endif

            /* FIXME:

               X11_SetKeyboardState(SDL_Display, xevent.xkeymap.key_vector);

             */

        }

        break;

        /* Has the keyboard layout changed? */

    case MappingNotify:{

#ifdef DEBUG_XEVENTS

            printf("MappingNotify!\n");

#endif

            X11_UpdateKeymap(_this);

        }

        break;

        /* Key press? */

    case KeyPress:{

            KeyCode keycode = xevent.xkey.keycode;

            KeySym keysym = NoSymbol;

            char text[SDL_TEXTINPUTEVENT_TEXT_SIZE];

            Status status = 0;

#ifdef DEBUG_XEVENTS

            printf("KeyPress (X11 keycode = 0x%X)\n", xevent.xkey.keycode);

#endif

            SDL_SendKeyboardKey(SDL_PRESSED, videodata->key_layout[keycode]);

#if 1

            if (videodata->key_layout[keycode] == SDLK_UNKNOWN) {

                int min_keycode, max_keycode;

                XDisplayKeycodes(display, &min_keycode, &max_keycode);

                keysym = XKeycodeToKeysym(display, keycode, 0);

                fprintf(stderr,

                        "The key you just pressed is not recognized by SDL. To help get this fixed, please report this to the SDL mailing list <sdl@libsdl.org> X11 KeyCode %d (%d), X11 KeySym 0x%lX (%s).\n",

                        keycode, keycode - min_keycode, keysym,

                        XKeysymToString(keysym));

            }

#endif

            /* */

            SDL_zero(text);

#ifdef X_HAVE_UTF8_STRING

            if (data->ic) {

                Xutf8LookupString(data->ic, &xevent.xkey, text, sizeof(text),

                                  &keysym, &status);

            }

#else

            XLookupString(&xevent.xkey, text, sizeof(text), &keysym, NULL);

#endif

            if (*text) {

                SDL_SendKeyboardText(text);

            }

        }

        break;

        /* Key release? */

    case KeyRelease:{

            KeyCode keycode = xevent.xkey.keycode;

#ifdef DEBUG_XEVENTS

            printf("KeyRelease (X11 keycode = 0x%X)\n", xevent.xkey.keycode);

#endif

            SDL_SendKeyboardKey(SDL_RELEASED, videodata->key_layout[keycode]);

        }

        break;

        /* Have we been iconified? */

    case UnmapNotify:{

#ifdef DEBUG_XEVENTS

            printf("UnmapNotify!\n");

#endif

            SDL_SendWindowEvent(data->window, SDL_WINDOWEVENT_HIDDEN, 0, 0);

            SDL_SendWindowEvent(data->window, SDL_WINDOWEVENT_MINIMIZED, 0, 0);

        }

        break;

        /* Have we been restored? */

    case MapNotify:{

#ifdef DEBUG_XEVENTS

            printf("MapNotify!\n");

#endif

            SDL_SendWindowEvent(data->window, SDL_WINDOWEVENT_SHOWN, 0, 0);

            SDL_SendWindowEvent(data->window, SDL_WINDOWEVENT_RESTORED, 0, 0);

        }

        break;

        /* Have we been resized or moved? */

    case ConfigureNotify:{

#ifdef DEBUG_XEVENTS

            printf("ConfigureNotify! (resize: %dx%d)\n",

                   xevent.xconfigure.width, xevent.xconfigure.height);

#endif

            SDL_SendWindowEvent(data->window, SDL_WINDOWEVENT_MOVED,

                                xevent.xconfigure.x, xevent.xconfigure.y);

            SDL_SendWindowEvent(data->window, SDL_WINDOWEVENT_RESIZED,

                                xevent.xconfigure.width,

                                xevent.xconfigure.height);

        }

        break;

        /* Have we been requested to quit (or another client message?) */

    case ClientMessage:{

            if ((xevent.xclient.format == 32) &&

                (xevent.xclient.data.l[0] == videodata->WM_DELETE_WINDOW)) {

                SDL_SendWindowEvent(data->window, SDL_WINDOWEVENT_CLOSE, 0, 0);

            }

        }

        break;

        /* Do we need to refresh ourselves? */

    case Expose:{

#ifdef DEBUG_XEVENTS

            printf("Expose (count = %d)\n", xevent.xexpose.count);

#endif

            SDL_SendWindowEvent(data->window, SDL_WINDOWEVENT_EXPOSED, 0, 0);

        }

        break;

    case MotionNotify:{

#ifdef DEBUG_MOTION

            printf("X11 motion: %d,%d\n", xevent.xmotion.x, xevent.xmotion.y);

#endif

            SDL_SendMouseMotion(data->window, 0, xevent.xmotion.x, xevent.xmotion.y);

        }

        break;

    case ButtonPress:{

            SDL_SendMouseButton(data->window, SDL_PRESSED, xevent.xbutton.button);

        }

        break;

    case ButtonRelease:{

            SDL_SendMouseButton(data->window, SDL_RELEASED, xevent.xbutton.button);

        }

        break;

    case PropertyNotify:{

#ifdef DEBUG_XEVENTS

            unsigned char *propdata;

            int status, real_format;

            Atom real_type;

            unsigned long items_read, items_left, i;

            char *name = XGetAtomName(display, xevent.xproperty.atom);

            if (name) {

                printf("PropertyNotify: %s %s\n", name, (xevent.xproperty.state == PropertyDelete) ? "deleted" : "changed");

                XFree(name);

            }

            status = XGetWindowProperty(display, data->xwindow, xevent.xproperty.atom, 0L, 8192L, False, AnyPropertyType, &real_type, &real_format, &items_read, &items_left, &propdata);

            if (status == Success && items_read > 0) {

                if (real_type == XA_INTEGER) {

                    int *values = (int *)propdata;

                    printf("{");

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

                        printf(" %d", values[i]);

                    }

                    printf(" }\n");

                } else if (real_type == XA_CARDINAL) {

                    if (real_format == 32) {

                        Uint32 *values = (Uint32 *)propdata;

                        printf("{");

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

                            printf(" %d", values[i]);

                        }

                        printf(" }\n");

                    } else if (real_format == 16) {

                        Uint16 *values = (Uint16 *)propdata;

                        printf("{");

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

                            printf(" %d", values[i]);

                        }

                        printf(" }\n");

                    } else if (real_format == 8) {

                        Uint8 *values = (Uint8 *)propdata;

                        printf("{");

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

                            printf(" %d", values[i]);

                        }

                        printf(" }\n");

                    }

                } else if (real_type == XA_STRING ||

                           real_type == videodata->UTF8_STRING) {

                    printf("{ \"%s\" }\n", propdata);

                } else if (real_type == XA_ATOM) {

                    Atom *atoms = (Atom *)propdata;

                    printf("{");

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

                        char *name = XGetAtomName(display, atoms[i]);

                        if (name) {

                            printf(" %s", name);

                            XFree(name);

                        }

                    }

                    printf(" }\n");

                } else {

                    char *name = XGetAtomName(display, real_type);

                    printf("Unknown type: %ld (%s)\n", real_type, name ? name : "UNKNOWN");

                    if (name) {

                        XFree(name);

                    }

                }

            }

#endif

        }

        break;

    /* Copy the selection from XA_CUT_BUFFER0 to the requested property */

    case SelectionRequest: {

            XSelectionRequestEvent *req;

            XEvent sevent;

            int seln_format;

            unsigned long nbytes;

            unsigned long overflow;

            unsigned char *seln_data;

            req = &xevent.xselectionrequest;

#ifdef DEBUG_XEVENTS

            printf("SelectionRequest (requestor = %ld, target = %ld)\n",

                req->requestor, req->target);

#endif

            SDL_zero(sevent);

            sevent.xany.type = SelectionNotify;

            sevent.xselection.selection = req->selection;

            sevent.xselection.target = None;

            sevent.xselection.property = None;

            sevent.xselection.requestor = req->requestor;

            sevent.xselection.time = req->time;

            if (XGetWindowProperty(display, DefaultRootWindow(display),

                    XA_CUT_BUFFER0, 0, INT_MAX/4, False, req->target,

                    &sevent.xselection.target, &seln_format, &nbytes,

                    &overflow, &seln_data) == Success) {

                if (sevent.xselection.target == req->target) {

                    XChangeProperty(display, req->requestor, req->property,

                        sevent.xselection.target, seln_format, PropModeReplace,

                        seln_data, nbytes);

                    sevent.xselection.property = req->property;

                }

                XFree(seln_data);

            }

            XSendEvent(display, req->requestor, False, 0, &sevent);

            XSync(display, False);

        }

        break;

    case SelectionNotify: {

#ifdef DEBUG_XEVENTS

            printf("SelectionNotify (requestor = %ld, target = %ld)\n",

                xevent.xselection.requestor, xevent.xselection.target);

#endif

            videodata->selection_waiting = SDL_FALSE;

        }

        break;

    default:{

#ifdef DEBUG_XEVENTS

            printf("Unhandled event %d\n", xevent.type);

#endif

        }

        break;

    }

}

/* Ack!  XPending() actually performs a blocking read if no events available */

static int

X11_Pending(Display * display)

{

    /* Flush the display connection and look to see if events are queued */

    XFlush(display);

    if (XEventsQueued(display, QueuedAlready)) {

        return (1);

    }

    /* More drastic measures are required -- see if X is ready to talk */

    {

        static struct timeval zero_time;        /* static == 0 */

        int x11_fd;

        fd_set fdset;

        x11_fd = ConnectionNumber(display);

        FD_ZERO(&fdset);

        FD_SET(x11_fd, &fdset);

        if (select(x11_fd + 1, &fdset, NULL, NULL, &zero_time) == 1) {

            return (XPending(display));

        }

    }

    /* Oh well, nothing is ready .. */

    return (0);

}

void

X11_PumpEvents(_THIS)

{

    SDL_VideoData *data = (SDL_VideoData *) _this->driverdata;

    /* Update activity every 30 seconds to prevent screensaver */

    if (_this->suspend_screensaver) {

        Uint32 now = SDL_GetTicks();

        if (!data->screensaver_activity ||

            (int) (now - data->screensaver_activity) >= 30000) {

            XResetScreenSaver(data->display);

            data->screensaver_activity = now;

        }

    }

    /* Keep processing pending events */

    while (X11_Pending(data->display)) {

        X11_DispatchEvent(_this);

    }

}

/* This is so wrong it hurts */

#define GNOME_SCREENSAVER_HACK

#ifdef GNOME_SCREENSAVER_HACK

#include <unistd.h>

static pid_t screensaver_inhibit_pid;

static void

gnome_screensaver_disable()

{

    screensaver_inhibit_pid = fork();

    if (screensaver_inhibit_pid == 0) {

        close(0);

        close(1);

        close(2);

        execl("/usr/bin/gnome-screensaver-command",

              "gnome-screensaver-command",

              "--inhibit",

              "--reason",

              "GNOME screensaver doesn't respect MIT-SCREEN-SAVER", NULL);

        exit(2);

    }

}

static void

gnome_screensaver_enable()

{

    kill(screensaver_inhibit_pid, 15);