#include "matchbox.h"
#include "xas.h"

MBWMCookie
mb_wm_property_req (MBWMManager *wm,
		    Window           win,
		    Atom             property,
		    long             offset,
		    long             length,
		    Bool             delete,
		    Atom             req_type)
{
  XasCookie cookie;

  cookie = xas_get_property(wm->xas_context,
			    win,
			    property,
			    offset,
			    length,
			    delete,
			    req_type);

  return (MBWMCookie)cookie;
}


Status
mb_wm_property_reply (MBWMManager  *wm,
		      MBWMCookie        cookie,
		      Atom             *actual_type_return,
		      int              *actual_format_return,
		      unsigned long    *nitems_return,
		      unsigned long    *bytes_after_return,
		      unsigned char   **prop_return,
		      int              *x_error_code)
{
  return  xas_get_property_reply(wm->xas_context,
			         (XasCookie)cookie,
				 actual_type_return,
				 actual_format_return,
				 nitems_return,
				 bytes_after_return,
				 prop_return,
				 x_error_code);
}

void*
mb_wm_property_get_reply_and_validate (MBWMManager  *wm,
				       MBWMCookie        cookie,
				       Atom              expected_type,
				       int               expected_format,
				       int               expected_n_items,
				       int              *n_items_ret,
				       int              *x_error_code)
{
  Atom             actual_type_return;
  int              actual_format_return;
  unsigned long    nitems_return;
  unsigned long    bytes_after_return;
  unsigned char   *prop_data = NULL;

  *x_error_code = 0;

  xas_get_property_reply(wm->xas_context,
			 (XasCookie)cookie,
			 &actual_type_return,
			 &actual_format_return,
			 &nitems_return,
			 &bytes_after_return,
			 &prop_data,
			 x_error_code);

  if (*x_error_code || prop_data == NULL)
    goto fail;

  if (expected_format && actual_format_return != expected_format)
    goto fail;

  if (expected_n_items && nitems_return != expected_n_items)
    goto fail;

  if (n_items_ret)
    *n_items_ret = nitems_return;

  return prop_data;

 fail:

  if (prop_data)
    XFree(prop_data);

  return NULL;
}



Bool
mb_wm_property_have_reply (MBWMManager     *wm,
			   MBWMCookie           cookie)
{
  return xas_have_reply(wm->xas_context, (XasCookie)cookie);
}


MBWMCookie
mb_wm_xwin_get_attributes (MBWMManager   *wm,
			   Window             win)
{
  return xas_get_window_attributes(wm->xas_context, win);
}

MBWMCookie
mb_wm_xwin_get_geometry (MBWMManager   *wm,
			 Drawable            d)
{
  return xas_get_geometry(wm->xas_context, d);
}

MBWMClientWindowAttributes*
mb_wm_xwin_get_attributes_reply (MBWMManager   *wm,
				 MBWMCookie         cookie,
				 int               *x_error_code)
{
  return (MBWMClientWindowAttributes*)
    xas_get_window_attributes_reply(wm->xas_context,
				    cookie,
				    x_error_code);
}

Status
mb_wm_xwin_get_geometry_reply (MBWMManager   *wm,
			       XasCookie          cookie,
			       MBGeometry        *geom_return,
			       unsigned int      *border_width_return,
			       unsigned int      *depth_return,
			       int               *x_error_code)
{
  return xas_get_geometry_reply (wm->xas_context,
				 cookie,
				 &geom_return->x,
				 &geom_return->y,
				 &geom_return->width,
				 &geom_return->height,
				 border_width_return,
				 depth_return,
				 x_error_code);
}


void
mb_wm_props_send_x_message (MBWMManager *wm,
			    Window           xwin_src,
			    Window           xwin_dest,
			    Atom             delivery_atom,
			    unsigned long    data0,
			    unsigned long    data1,
			    unsigned long    data2,
			    unsigned long    data3,
			    unsigned long    data4,
			    unsigned long    mask)
{
  XEvent ev;

  memset(&ev, 0, sizeof(ev));

  ev.xclient.type = ClientMessage;
  ev.xclient.window = xwin_src;
  ev.xclient.message_type = delivery_atom;
  ev.xclient.format = 32;
  ev.xclient.data.l[0] = data0;
  ev.xclient.data.l[1] = data1;
  ev.xclient.data.l[2] = data2;
  ev.xclient.data.l[3] = data3;
  ev.xclient.data.l[4] = data4;

  if (!mask)
    mask = NoEventMask;

  /* FIXME: traps */

  XSendEvent(wm->xdpy, xwin_dest, False, mask, &ev);
  XSync(wm->xdpy, False);

}

void
mb_wm_props_sync_root_props (MBWMManager *wm)
{




}

void
mb_wm_props_root_message (MBWMManager *wm)
{




}