/*

  Simple DirectMedia Layer

  Copyright (C) 1997-2013 Sam Lantinga <slouken@libsdl.org>

  This software is provided 'as-is', without any express or implied

  warranty.  In no event will the authors be held liable for any damages

  arising from the use of this software.

  Permission is granted to anyone to use this software for any purpose,

  including commercial applications, and to alter it and redistribute it

  freely, subject to the following restrictions:

  1. The origin of this software must not be misrepresented; you must not

     claim that you wrote the original software. If you use this software

     in a product, an acknowledgment in the product documentation would be

     appreciated but is not required.

  2. Altered source versions must be plainly marked as such, and must not be

     misrepresented as being the original software.

  3. This notice may not be removed or altered from any source distribution.

*/

#include "SDL_config.h"

#if SDL_VIDEO_DRIVER_X11

#include <sys/types.h>

#include <sys/time.h>

#include <signal.h>

#include <unistd.h>

#include <limits.h> /* For INT_MAX */

#include "SDL_x11video.h"

#include "SDL_x11video.h"

#include "SDL_x11touch.h"

#include "SDL_x11xinput2.h"

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

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

#include "../../events/SDL_touch_c.h"

#include "SDL_timer.h"

#include "SDL_syswm.h"

#include <stdio.h>

typedef struct {

    unsigned char *data;

    int format, count;

    Atom type;

} SDL_x11Prop;

/* Reads property

   Must call XFree on results

 */

static void X11_ReadProperty(SDL_x11Prop *p, Display *disp, Window w, Atom prop)

{

    unsigned char *ret=NULL;

    Atom type;

    int fmt;

    unsigned long count;

    unsigned long bytes_left;

    int bytes_fetch = 0;

    do {

        if (ret != 0) XFree(ret);

        XGetWindowProperty(disp, w, prop, 0, bytes_fetch, False, AnyPropertyType, &type, &fmt, &count, &bytes_left, &ret);

        bytes_fetch += bytes_left;

    } while (bytes_left != 0);

    p->data=ret;

    p->format=fmt;

    p->count=count;

    p->type=type;

}

/* Find text-uri-list in a list of targets and return it's atom

   if available, else return None */

static Atom X11_PickTarget(Display *disp, Atom list[], int list_count)

{

    Atom request = None;

    char *name;

    int i;

    for (i=0; i < list_count && request == None; i++) {

        name = XGetAtomName(disp, list[i]);

        if (strcmp("text/uri-list", name)==0) request = list[i];

        XFree(name);

    }

    return request;

}

/* Wrapper for X11_PickTarget for a maximum of three targets, a special

   case in the Xdnd protocol */

static Atom X11_PickTargetFromAtoms(Display *disp, Atom a0, Atom a1, Atom a2)

{

    int count=0;

    Atom atom[3];

    if (a0 != None) atom[count++] = a0;

    if (a1 != None) atom[count++] = a1;

    if (a2 != None) atom[count++] = a2;

    return X11_PickTarget(disp, atom, count);

}

/*#define DEBUG_XEVENTS*/

/* Check to see if this is a repeated key.

   (idea shamelessly lifted from GII -- thanks guys! :)

 */

static SDL_bool X11_KeyRepeat(Display *display, XEvent *event)

{

    XEvent peekevent;

    if (XPending(display)) {

        XPeekEvent(display, &peekevent);

        if ((peekevent.type == KeyPress) &&

            (peekevent.xkey.keycode == event->xkey.keycode) &&

            ((peekevent.xkey.time-event->xkey.time) < 2)) {

            return SDL_TRUE;

        }

    }

    return SDL_FALSE;

}

static SDL_bool X11_IsWheelEvent(Display * display,XEvent * event,int * ticks)

{

    XEvent peekevent;

    if (XPending(display)) {

        /* according to the xlib docs, no specific mouse wheel events exist.

           however, mouse wheel events trigger a button press and a button release

           immediately. thus, checking if the same button was released at the same

           time as it was pressed, should be an adequate hack to derive a mouse

           wheel event. */

        XPeekEvent(display,&peekevent);

        if ((peekevent.type           == ButtonRelease) &&

            (peekevent.xbutton.button == event->xbutton.button) &&

            (peekevent.xbutton.time   == event->xbutton.time)) {

            /* by default, X11 only knows 5 buttons. on most 3 button + wheel mouse,

               Button4 maps to wheel up, Button5 maps to wheel down. */

            if (event->xbutton.button == Button4) {

                *ticks = 1;

            }

            else if (event->xbutton.button == Button5) {

                *ticks = -1;

            }

            /* remove the following release event, as this is now a wheel event */

            XNextEvent(display,&peekevent);

            return SDL_TRUE;

        }

    }

    return SDL_FALSE;

}

/* Convert URI to local filename

   return filename if possible, else NULL

*/

static char* X11_URIToLocal(char* uri) {

    char *file = NULL;

    if (memcmp(uri,"file:/",6) == 0) uri += 6;      /* local file? */

    else if (strstr(uri,":/") != NULL) return file; /* wrong scheme */

    SDL_bool local = uri[0] != '/' || ( uri[0] != '\0' && uri[1] == '/' );

    /* got a hostname? */

    if ( !local && uri[0] == '/' && uri[2] != '/' ) {

      char* hostname_end = strchr( uri+1, '/' );

      if ( hostname_end != NULL ) {

          char hostname[ 257 ];

          if ( gethostname( hostname, 255 ) == 0 ) {

            hostname[ 256 ] = '\0';

            if ( memcmp( uri+1, hostname, hostname_end - ( uri+1 )) == 0 ) {

                uri = hostname_end + 1;

                local = SDL_TRUE;

            }

          }

      }

    }

    if ( local ) {

      file = uri;

      if ( uri[1] == '/' ) {

          file++;

      } else {

          file--;

      }

    }

    return file;

}

#if SDL_VIDEO_DRIVER_X11_SUPPORTS_GENERIC_EVENTS

static void X11_HandleGenericEvent(SDL_VideoData *videodata,XEvent event)

{

    if (XGetEventData(videodata->display, &event)) {

        XGenericEventCookie *cookie = &event.xcookie;

        X11_HandleXinput2Event(videodata, cookie);

        XFreeEventData(videodata->display, cookie);

    }

}

#endif /* SDL_VIDEO_DRIVER_X11_SUPPORTS_GENERIC_EVENTS */

static void

X11_DispatchFocusIn(SDL_WindowData *data)

{

#ifdef DEBUG_XEVENTS

    printf("window %p: Dispatching FocusIn\n", data);

#endif

    SDL_SetKeyboardFocus(data->window);

#ifdef X_HAVE_UTF8_STRING

    if (data->ic) {

        XSetICFocus(data->ic);

    }

#endif

}

static void

X11_DispatchFocusOut(SDL_WindowData *data)

{

#ifdef DEBUG_XEVENTS

    printf("window %p: Dispatching FocusOut\n", data);

#endif

    SDL_SetKeyboardFocus(NULL);

#ifdef X_HAVE_UTF8_STRING

    if (data->ic) {

        XUnsetICFocus(data->ic);

    }

#endif

}

static void

X11_DispatchMapNotify(SDL_WindowData *data)

{

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

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

}

static void

X11_DispatchUnmapNotify(SDL_WindowData *data)

{

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

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

}

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.msg.x11.event = xevent;

        SDL_SendSysWMEvent(&wmmsg);

    }

#if SDL_VIDEO_DRIVER_X11_SUPPORTS_GENERIC_EVENTS

    if(xevent.type == GenericEvent) {

        X11_HandleGenericEvent(videodata,xevent);

        return;

    }

#endif

#if 0

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

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

#endif

    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;

    }

    switch (xevent.type) {

        /* Gaining mouse coverage? */

    case EnterNotify:{

#ifdef DEBUG_XEVENTS

            printf("window %p: EnterNotify! (%d,%d,%d)\n", data,

                   xevent.xcrossing.x,

                   xevent.xcrossing.y,

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

            if (!SDL_GetMouse()->relative_mode) {

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

            }

        }

        break;

        /* Losing mouse coverage? */

    case LeaveNotify:{

#ifdef DEBUG_XEVENTS

            printf("window %p: LeaveNotify! (%d,%d,%d)\n", data,

                   xevent.xcrossing.x,

                   xevent.xcrossing.y,

                   xevent.xcrossing.mode);

            if (xevent.xcrossing.mode == NotifyGrab)

                printf("Mode: NotifyGrab\n");

            if (xevent.xcrossing.mode == NotifyUngrab)

                printf("Mode: NotifyUngrab\n");

#endif

            if (!SDL_GetMouse()->relative_mode) {

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

            }

            if (xevent.xcrossing.mode != NotifyGrab &&

                xevent.xcrossing.mode != NotifyUngrab &&

                xevent.xcrossing.detail != NotifyInferior) {

                SDL_SetMouseFocus(NULL);

            }

        }

        break;

        /* Gaining input focus? */

    case FocusIn:{

            if (xevent.xfocus.detail == NotifyInferior) {

#ifdef DEBUG_XEVENTS

                printf("window %p: FocusIn (NotifierInferior, ignoring)\n", data);

#endif

                break;

            }

#ifdef DEBUG_XEVENTS

            printf("window %p: FocusIn!\n", data);

#endif

            if (data->pending_focus == PENDING_FOCUS_OUT &&

                data->window == SDL_GetKeyboardFocus()) {

                /* We want to reset the keyboard here, because we may have

                   missed keyboard messages after our previous FocusOut.

                 */

                /* Actually, if we do this we clear the ALT key on Unity

                   because it briefly takes focus for their dashboard.

                   I think it's better to think the ALT key is held down

                   when it's not, then always lose the ALT modifier on Unity.

                 */

                /*SDL_ResetKeyboard();*/

            }

            data->pending_focus = PENDING_FOCUS_IN;

            data->pending_focus_time = SDL_GetTicks() + PENDING_FOCUS_IN_TIME;

        }

        break;

        /* Losing input focus? */

    case FocusOut:{

            if (xevent.xfocus.detail == NotifyInferior) {

                /* We still have focus if a child gets focus */

#ifdef DEBUG_XEVENTS

                printf("window %p: FocusOut (NotifierInferior, ignoring)\n", data);

#endif

                break;

            }

#ifdef DEBUG_XEVENTS

            printf("window %p: FocusOut!\n", data);

#endif

            data->pending_focus = PENDING_FOCUS_OUT;

            data->pending_focus_time = SDL_GetTicks() + PENDING_FOCUS_OUT_TIME;

        }

        break;

        /* Generated upon EnterWindow and FocusIn */

    case KeymapNotify:{

#ifdef DEBUG_XEVENTS

            printf("window %p: KeymapNotify!\n", data);

#endif

            /* FIXME:

               X11_SetKeyboardState(SDL_Display, xevent.xkeymap.key_vector);

             */

        }

        break;

        /* Has the keyboard layout changed? */

    case MappingNotify:{

#ifdef DEBUG_XEVENTS

            printf("window %p: MappingNotify!\n", data);

#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("window %p: KeyPress (X11 keycode = 0x%X)\n", data, xevent.xkey.keycode);

#endif

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

#if 1

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

                int min_keycode, max_keycode;

                XDisplayKeycodes(display, &min_keycode, &max_keycode);

#if SDL_VIDEO_DRIVER_X11_HAS_XKBKEYCODETOKEYSYM

                keysym = XkbKeycodeToKeysym(display, keycode, 0, 0);

#else

                keysym = XKeycodeToKeysym(display, keycode, 0);

#endif

                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("window %p: KeyRelease (X11 keycode = 0x%X)\n", data, xevent.xkey.keycode);

#endif

            if (X11_KeyRepeat(display, &xevent)) {

                /* We're about to get a repeated key down, ignore the key up */

                break;

            }

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

        }

        break;

        /* Have we been iconified? */

    case UnmapNotify:{

#ifdef DEBUG_XEVENTS

            printf("window %p: UnmapNotify!\n", data);

#endif

            X11_DispatchUnmapNotify(data);

        }

        break;

        /* Have we been restored? */

    case MapNotify:{

#ifdef DEBUG_XEVENTS

            printf("window %p: MapNotify!\n", data);

#endif

            X11_DispatchMapNotify(data);

        }

        break;

        /* Have we been resized or moved? */

    case ConfigureNotify:{

#ifdef DEBUG_XEVENTS

            printf("window %p: ConfigureNotify! (position: %d,%d, size: %dx%d)\n", data,

                   xevent.xconfigure.x, xevent.xconfigure.y,

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

#endif

            if (xevent.xconfigure.x != data->last_xconfigure.x ||

                xevent.xconfigure.y != data->last_xconfigure.y) {