// -*- mode: C++; indent-tabs-mode: nil; c-basic-offset: 2; -*-

#ifdef HAVE_CONFIG_H
# include "../config.h"
#endif

#include "eventdispatcher.hh"
#include "display.hh"
#include <iostream>

namespace otk {

OtkEventDispatcher::OtkEventDispatcher()
  : _fallback(0), _master(0), _focus(None)
{
}

OtkEventDispatcher::~OtkEventDispatcher()
{
}

void OtkEventDispatcher::clearAllHandlers(void)
{
  _map.clear();
}

void OtkEventDispatcher::registerHandler(Window id, OtkEventHandler *handler)
{
  _map.insert(std::pair<Window, OtkEventHandler*>(id, handler));
}

void OtkEventDispatcher::clearHandler(Window id)
{
  _map.erase(id);
}

void OtkEventDispatcher::dispatchEvents(void)
{
  XEvent e;

  while (XPending(OBDisplay::display)) {
    XNextEvent(OBDisplay::display, &e);

#if 0//defined(DEBUG)
    printf("Event %d window %lx\n", e.type, e.xany.window);
#endif

    if (e.type == FocusIn || e.type == FocusOut) {
      // focus events are a beast all their own.. yuk, hate, etc.
      dispatchFocus(e);
    } else {    
      Window win;

      // pick a window
      switch (e.type) {
      case UnmapNotify:
        win = e.xunmap.window;
        break;
      case DestroyNotify:
        win = e.xdestroywindow.window;
        break;
      case ConfigureRequest:
        win = e.xconfigurerequest.window;
        break;
      default:
        win = e.xany.window;
      }
    
      // grab the lasttime and hack up the modifiers
      switch (e.type) {
      case ButtonPress:
      case ButtonRelease:
        _lasttime = e.xbutton.time;
        e.xbutton.state &= ~(LockMask | OBDisplay::numLockMask() |
                             OBDisplay::scrollLockMask());
        break;
      case KeyPress:
        e.xkey.state &= ~(LockMask | OBDisplay::numLockMask() |
                          OBDisplay::scrollLockMask());
        break;
      case MotionNotify:
        _lasttime = e.xmotion.time;
        e.xmotion.state &= ~(LockMask | OBDisplay::numLockMask() |
                             OBDisplay::scrollLockMask());
        break;
      case PropertyNotify:
        _lasttime = e.xproperty.time;
        break;
      case EnterNotify:
      case LeaveNotify:
        _lasttime = e.xcrossing.time;
        break;
      }

      dispatch(win, e);
    }
  }
}

void OtkEventDispatcher::dispatchFocus(const XEvent &e)
{
  Window newfocus = None;
  
  // any other types are not ones we're interested in
  if (e.xfocus.detail != NotifyNonlinear)
    return;
  
  if (e.type == FocusIn) {
    printf("---\n");
    printf("Got FocusIn!\n");
    printf("Using FocusIn\n");
    newfocus = e.xfocus.window;

    if (newfocus != _focus) {
      // send a FocusIn to whatever was just focused
      dispatch(newfocus, e);
      printf("Sent FocusIn 0x%lx\n", newfocus);

      // send a FocusOut to whatever used to be focused
      if (_focus) {
        XEvent ev;
        ev.xfocus = e.xfocus;
        ev.xfocus.window = _focus;
        ev.type = FocusOut;
        dispatch(_focus, ev);
        printf("Sent FocusOut 0x%lx\n", _focus);
      }

      // store the new focused window
      _focus = newfocus;
    }
      
  } else if (e.type == FocusOut) {
    bool focused = false; // found a new focus target?
    printf("---\n");
    printf("Got FocusOut!\n");

    // FocusOut events just make us look for FocusIn events. They are ignored
    // otherwise.
    XEvent fi;
    while (XCheckTypedEvent(OBDisplay::display, FocusIn, &fi)) {
      if (e.xfocus.detail == NotifyNonlinear) {
        printf("Found FocusIn\n");
        dispatchFocus(fi);
        focused = true;
        break;
      }
    }
    if (!focused) {
      // send a FocusOut to whatever used to be focused
      if (_focus) {
        XEvent ev;
        ev.xfocus = e.xfocus;
        ev.xfocus.window = _focus;
        dispatch(_focus, ev);
        printf("Sent FocusOut 0x%lx\n", _focus);
      }
      // store that no window has focus anymore
      _focus = None;
    }
  }
}

void OtkEventDispatcher::dispatch(Window win, const XEvent &e)
{
  OtkEventHandler *handler = 0;
  OtkEventMap::iterator it;

  // master gets everything first
  if (_master)
    _master->handle(e);

  // find handler for the chosen window
  it = _map.find(win);

  if (it != _map.end()) {
    // if we found a handler
    handler = it->second;
  } else if (e.type == ConfigureRequest) {
    // unhandled configure requests must be used to configure the window
    // directly
    XWindowChanges xwc;
      
    xwc.x = e.xconfigurerequest.x;
    xwc.y = e.xconfigurerequest.y;
    xwc.width = e.xconfigurerequest.width;
    xwc.height = e.xconfigurerequest.height;
    xwc.border_width = e.xconfigurerequest.border_width;
    xwc.sibling = e.xconfigurerequest.above;
    xwc.stack_mode = e.xconfigurerequest.detail;
      
    XConfigureWindow(otk::OBDisplay::display, e.xconfigurerequest.window,
                     e.xconfigurerequest.value_mask, &xwc);
  } else {
    // grab a falback if it exists
    handler = _fallback;
  }

  if (handler)
    handler->handle(e);
}

OtkEventHandler *OtkEventDispatcher::findHandler(Window win)
{
  OtkEventMap::iterator it = _map.find(win);
  if (it != _map.end())
    return it->second;
  return 0;
}

}