#include "xlib.h"
#include "scheme48.h"

unsigned long AList_To_XSetWindowAttributes(s48_value attrAlist,
					    XSetWindowAttributes* Xattrs) {
  unsigned long mask = 0;
  s48_value l;
  s48_value p;
  char* cname;
  s48_value name, value;
  
  for (l = attrAlist; !S48_NULL_P(l); l = S48_CDR(l)) {
    p = S48_CAR(l);
    name = S48_CAR(p);
    value = S48_CDR(p);
    cname = s48_extract_symbol(name);

    if (strcmp(cname, "background-pixmap") == 0) { 
      Xattrs->background_pixmap = extract_background(value);
      mask |= CWBackPixmap;
    } else if (strcmp(cname, "background-pixel") == 0) {
      Xattrs->background_pixel = s48_extract_integer(value);
      mask |= CWBackPixel;
    } else if (strcmp(cname, "border-pixmap") == 0) {
      Xattrs->border_pixmap = extract_border(value);
      mask |= CWBorderPixmap;
    } else if (strcmp(cname, "border-pixel") == 0) {
      Xattrs->border_pixel = s48_extract_integer(value);
      mask |= CWBorderPixel;
    } else if (strcmp(cname, "bit-gravity") == 0) {
      Xattrs->bit_gravity = Symbol_To_Bit(value, Bit_Grav_Syms);
      mask |= CWBitGravity;
    } else if (strcmp(cname, "gravity") == 0) {
      Xattrs->win_gravity = Symbol_To_Bit(value, Grav_Syms);
      mask |= CWWinGravity;
    } else if (strcmp(cname, "backing-store") == 0) {
      Xattrs->backing_store = Symbol_To_Bit(value, Backing_Store_Syms);
      mask |= CWBackingStore;
    } else if (strcmp(cname, "backing-planes") == 0) {
      Xattrs->backing_planes = s48_extract_integer(value);
      mask |= CWBackingPlanes;
    } else if (strcmp(cname, "backing-pixel") == 0) {
      Xattrs->backing_pixel = s48_extract_integer(value);
      mask |= CWBackingPixel;
    } else if (strcmp(cname, "save-under") == 0) {
      Xattrs->save_under = !S48_FALSE_P(value);
      mask |= CWSaveUnder;
    } else if (strcmp(cname, "event-mask") == 0) {
      Xattrs->event_mask = Symbols_To_Bits(value, Event_Mask_Syms);
      mask |= CWEventMask;
    } else if (strcmp(cname, "do-not-propagate-mask") == 0) {
      Xattrs->do_not_propagate_mask = Symbols_To_Bits(value, Event_Mask_Syms);
      mask |= CWDontPropagate;
    } else if (strcmp(cname, "override-redirect") == 0) {
      Xattrs->override_redirect = !S48_FALSE_P(value);
      mask |= CWOverrideRedirect;
    } else if (strcmp(cname, "colormap") == 0) {
      Xattrs->colormap = s48_extract_integer(value);
      mask |= CWColormap;
    } else if (strcmp(cname, "cursor") == 0) {
      Xattrs->cursor = s48_extract_integer(value);
      mask |= CWCursor;
    } // else error ??
  } /* for */
  return mask;
}  

int extract_background(s48_value value) {
  if (S48_SYMBOL_P(value)) {
    char* v = s48_extract_string(S48_SYMBOL_TO_STRING(value));
    if (strcmp(v, "none") == 0)
      return None;
    else if (strcmp(v, "parent-relative") == 0)
      return ParentRelative;
    //else // error ...
  }
  return SCX_EXTRACT_PIXMAP(value);
}

int extract_border(s48_value value) {
  if (S48_SYMBOL_P(value)) {
    char* v = s48_extract_string(S48_SYMBOL_TO_STRING(value));
    if (strcmp(v, "copy-from-parent") == 0)
      return CopyFromParent;
    // else error
  } else
    return s48_extract_integer(value);
}
    
s48_value scx_Create_Window (s48_value Xdisplay, s48_value Xparent, s48_value x, 
			 s48_value y, s48_value width, s48_value height, 
			 s48_value border_width, s48_value attrAlist) {

  XSetWindowAttributes Xattrs;
  unsigned long mask = AList_To_XSetWindowAttributes( attrAlist, &Xattrs );
  
  Window win;
  win = XCreateWindow( SCX_EXTRACT_DISPLAY(Xdisplay), SCX_EXTRACT_WINDOW(Xparent), 
		       (int)s48_extract_integer(x),
		       (int)s48_extract_integer(y),
		       (int)s48_extract_integer (width),
		       (int)s48_extract_integer (height), 
		       (int)s48_extract_integer (border_width),
		       CopyFromParent,
		       CopyFromParent,
		       CopyFromParent,
		       mask,
		       &Xattrs );
  return SCX_ENTER_WINDOW(win);
}

s48_value scx_Destroy_Window (s48_value Xdisplay, s48_value Xwindow) {
  XDestroyWindow (SCX_EXTRACT_DISPLAY(Xdisplay), SCX_EXTRACT_WINDOW(Xwindow));
  return S48_UNSPECIFIC;
}

s48_value scx_Change_Window_Attributes(s48_value Xwindow, s48_value Xdisplay,
  s48_value attrAlist) {

  XSetWindowAttributes Xattrs;
  unsigned long mask = AList_To_XSetWindowAttributes( attrAlist, &Xattrs );

  XChangeWindowAttributes(SCX_EXTRACT_DISPLAY(Xdisplay), SCX_EXTRACT_WINDOW(Xwindow), 
			  mask, &Xattrs);
  return S48_UNSPECIFIC;
}

s48_value scx_Get_Window_Attributes(s48_value Xdisplay, s48_value Xwindow) {
  XWindowAttributes WA;

  S48_DECLARE_GC_PROTECT(1);

  s48_value res = S48_NULL;

  if (!XGetWindowAttributes(SCX_EXTRACT_DISPLAY(Xdisplay),SCX_EXTRACT_WINDOW(Xwindow),
			    &WA))
    res = S48_FALSE;
  else {
    S48_GC_PROTECT_1(res);
  
    res = s48_make_vector(23, S48_FALSE);

    S48_VECTOR_SET(res, 0, s48_enter_integer(WA.x));
    S48_VECTOR_SET(res, 1, s48_enter_integer(WA.y));
    S48_VECTOR_SET(res, 2, s48_enter_integer(WA.width));
    S48_VECTOR_SET(res, 3, s48_enter_integer(WA.height));
    S48_VECTOR_SET(res, 4, s48_enter_integer(WA.border_width));
    S48_VECTOR_SET(res, 5, s48_enter_integer(WA.depth));
    S48_VECTOR_SET(res, 6, SCX_ENTER_VISUAL(WA.visual));
    S48_VECTOR_SET(res, 7, SCX_ENTER_WINDOW(WA.root));
    S48_VECTOR_SET(res, 8, Bit_To_Symbol(WA.class, Class_Syms));
    S48_VECTOR_SET(res, 9, Bit_To_Symbol(WA.bit_gravity, Bit_Grav_Syms));
    S48_VECTOR_SET(res, 10, Bit_To_Symbol(WA.win_gravity, Grav_Syms));
    S48_VECTOR_SET(res, 11, Bit_To_Symbol(WA.backing_store, 
					  Backing_Store_Syms));
    S48_VECTOR_SET(res, 12, s48_enter_integer(WA.backing_planes));
    S48_VECTOR_SET(res, 13, SCX_ENTER_PIXEL(WA.backing_pixel));
    S48_VECTOR_SET(res, 14, WA.save_under ? S48_TRUE : S48_FALSE );
    S48_VECTOR_SET(res, 15, SCX_ENTER_COLORMAP( WA.colormap ));
    S48_VECTOR_SET(res, 16, WA.map_installed ? S48_TRUE : S48_FALSE);
    S48_VECTOR_SET(res, 17, Bit_To_Symbol( WA.map_state, Map_State_Syms));
    S48_VECTOR_SET(res, 18, Bits_To_Symbols( WA.all_event_masks, 
					     Event_Mask_Syms ));
    S48_VECTOR_SET(res, 19, Bits_To_Symbols( WA.your_event_mask, 
					     Event_Mask_Syms ));
    S48_VECTOR_SET(res, 20, Bits_To_Symbols( WA.do_not_propagate_mask, 
					     Event_Mask_Syms ));
    S48_VECTOR_SET(res, 21, WA.override_redirect ? S48_TRUE : S48_FALSE);
    S48_VECTOR_SET(res, 22, s48_enter_integer((long)WA.screen)); //??
    // WA.screen - ignored/not supported in Elk
  }

  S48_GC_UNPROTECT();
  return res;
}

unsigned long AList_To_XWindowChanges(s48_value alist, XWindowChanges* WC) {
  unsigned long mask = 0;
  s48_value l, p;
  char* cname;
  int cvalue;
  s48_value name, value;
  for (l = alist; !S48_NULL_P(l); l = S48_CDR(l)) {
    p = S48_CAR(l);
    name = S48_CAR(p);
    value = S48_CDR(p);
    cname = s48_extract_string(S48_SYMBOL_TO_STRING(name));
    cvalue = (int)s48_extract_integer(value); // only ints here

    if (strcmp(cname, "x") == 0) {
      WC->x = cvalue;
      mask |= CWX;
    } else if (strcmp(cname, "y") == 0) {
      WC->y = cvalue;
      mask |= CWY;
    } else if (strcmp(cname, "width") == 0) {
      WC->width = cvalue;
      mask |= CWWidth;
    } else if (strcmp(cname, "height") == 0) {
      WC->height = cvalue;
      mask |= CWHeight;
    } else if (strcmp(cname, "border-width") == 0) {
      WC->border_width = cvalue;
      mask |= CWBorderWidth;
    } else if (strcmp(cname, "sibling") == 0) {
      WC->sibling = (Window)s48_extract_integer(value);
      mask |= CWSibling;
    } else if (strcmp(cname, "stack-mode") == 0) {
      WC->stack_mode = cvalue;
      mask |= CWStackMode;
    }
  } // for
  return mask;
}

s48_value scx_Configure_Window (s48_value Xwindow, s48_value Xdisplay, 
			    s48_value alist) {
  XWindowChanges WC;
  unsigned long mask = AList_To_XWindowChanges(alist, &WC);

  XConfigureWindow (SCX_EXTRACT_DISPLAY(Xdisplay), SCX_EXTRACT_WINDOW(Xwindow), 
		    mask, &WC);
  return S48_UNSPECIFIC;
}

s48_value scx_Map_Window(s48_value Xwindow, s48_value Xdisplay) {
  XMapWindow(SCX_EXTRACT_DISPLAY(Xdisplay), SCX_EXTRACT_WINDOW(Xwindow));
  return S48_UNSPECIFIC;
}
  
s48_value scx_Unmap_Window(s48_value Xwindow, s48_value Xdisplay) {
  XUnmapWindow(SCX_EXTRACT_DISPLAY(Xdisplay), SCX_EXTRACT_WINDOW(Xwindow));
  return S48_UNSPECIFIC;
}

s48_value scx_Destroy_Subwindows (s48_value Xwindow, s48_value Xdisplay) {
  XDestroySubwindows(SCX_EXTRACT_DISPLAY(Xdisplay), SCX_EXTRACT_WINDOW(Xwindow));
  return S48_UNSPECIFIC;
}

s48_value scx_Map_Subwindows (s48_value Xwindow, s48_value Xdisplay) {
  XMapSubwindows(SCX_EXTRACT_DISPLAY(Xdisplay), SCX_EXTRACT_WINDOW(Xwindow));
  return S48_UNSPECIFIC;
}

s48_value scx_Unmap_Subwindows (s48_value Xwindow, s48_value Xdisplay) {
  XUnmapSubwindows(SCX_EXTRACT_DISPLAY(Xdisplay), SCX_EXTRACT_WINDOW(Xwindow));
  return S48_UNSPECIFIC;
}

s48_value scx_Circulate_Subwindows(s48_value Xwindow, s48_value Xdisplay,
			       s48_value dir) {
  XCirculateSubwindows(SCX_EXTRACT_DISPLAY(Xdisplay), SCX_EXTRACT_WINDOW(Xwindow), 
		       S48_FALSE_P(dir) ? RaiseLowest : LowerHighest);
  return S48_UNSPECIFIC;
}

/*

static s48_value P_Get_Geometry (d) s48_value d; {
    Display *dpy;
    Drawable dr = Get_Drawable (d, &dpy);

    // GEO.width, GEO.height, etc. should really be unsigned, not int.
    
    XGetGeometry (dpy, dr, &GEO.root, &GEO.x, &GEO.y, (unsigned *)&GEO.width,
	(unsigned *)&GEO.height, (unsigned *)&GEO.border_width,
	(unsigned *)&GEO.depth);
    return Record_To_Vector (Geometry_Rec, Geometry_Size, Sym_Geo, dpy, ~0L);
}

*/

s48_value scx_Query_Tree (s48_value Xwindow, s48_value Xdisplay) {
  Window root, parent, *children;
  int i;
  unsigned n;

  s48_value v = S48_FALSE, ret = S48_FALSE;
  S48_DECLARE_GC_PROTECT(2);
  
  XQueryTree (SCX_EXTRACT_DISPLAY(Xdisplay), SCX_EXTRACT_WINDOW(Xwindow), 
	      &root, &parent, &children, &n);

  ret = s48_make_vector(3, S48_FALSE);
  v = S48_FALSE;

  S48_GC_PROTECT_2 (v, ret);
  
  // vector of child-windows
  v = s48_make_vector (n, S48_FALSE);
  for (i = 0; i < n; i++) {
    S48_VECTOR_SET(v, i, SCX_ENTER_WINDOW(children[i]));
  }

  S48_VECTOR_SET(ret, 0, SCX_ENTER_WINDOW(root));
  S48_VECTOR_SET(ret, 1, SCX_ENTER_WINDOW(parent));
  S48_VECTOR_SET(ret, 2, v);

  S48_GC_UNPROTECT();
  return ret;
}

s48_value scx_Translate_Coordinates (s48_value Xdisplay, s48_value srcXwindow, 
				 s48_value x, s48_value y, 
				 s48_value dstXwindow) {
  int rx, ry;
  Window child;
  s48_value v = S48_FALSE;

  S48_DECLARE_GC_PROTECT(1);

  if (!XTranslateCoordinates (SCX_EXTRACT_DISPLAY(Xdisplay), 
			      SCX_EXTRACT_WINDOW(srcXwindow), 
			      SCX_EXTRACT_WINDOW(dstXwindow),
			      (int)s48_extract_integer (x), 
			      (int)s48_extract_integer (y), 
			      &rx, &ry, &child))
    return S48_FALSE;

  S48_GC_PROTECT_1 (v);

  v = s48_make_vector(3, S48_FALSE);
  S48_VECTOR_SET(v, 0, s48_enter_integer(rx));
  S48_VECTOR_SET(v, 1, s48_enter_integer(ry));
  S48_VECTOR_SET(v, 2, SCX_ENTER_WINDOW(child));

  S48_GC_UNPROTECT();
  return v;
}

s48_value scx_Query_Pointer (s48_value Xdisplay, s48_value Xwindow) {

  s48_value v = S48_FALSE;
  Bool ret;
  Window root, child;
  int r_x, r_y, x, y;
  unsigned int mask;
  S48_DECLARE_GC_PROTECT(1);
  
  ret = XQueryPointer (SCX_EXTRACT_DISPLAY(Xdisplay), SCX_EXTRACT_WINDOW(Xwindow), 
		       &root, &child, &r_x, &r_y, &x, &y, &mask);

  v = s48_make_vector(8, S48_FALSE);
  S48_GC_PROTECT_1(v);

  S48_VECTOR_SET(v, 0, s48_enter_integer(x));
  S48_VECTOR_SET(v, 1, s48_enter_integer(y));
  S48_VECTOR_SET(v, 2, ret ? S48_TRUE : S48_FALSE);
  S48_VECTOR_SET(v, 3, SCX_ENTER_WINDOW(root));
  S48_VECTOR_SET(v, 4, s48_enter_integer(r_x));
  S48_VECTOR_SET(v, 5, s48_enter_integer(r_y));
  S48_VECTOR_SET(v, 6, SCX_ENTER_WINDOW(child));
  S48_VECTOR_SET(v, 7, Bits_To_Symbols ((unsigned long)mask, State_Syms));

  S48_GC_UNPROTECT();
  return v;
}

s48_value scx_Get_Geometry(s48_value Xdisplay, s48_value Xdrawable) {
  s48_value v = S48_FALSE;
  Window root;
  unsigned int x,y,width,height,border_width,depth;
  S48_DECLARE_GC_PROTECT(1);

  XGetGeometry(SCX_EXTRACT_DISPLAY(Xdisplay), SCX_EXTRACT_DRAWABLE(Xdrawable),
	       &root, &x, &y, &width, &height, &border_width, &depth);

  v = s48_make_vector(7, S48_FALSE);
  S48_GC_PROTECT_1(v);
  S48_VECTOR_SET(v, 0, SCX_ENTER_WINDOW(root));
  S48_VECTOR_SET(v, 1, s48_enter_integer(x));
  S48_VECTOR_SET(v, 2, s48_enter_integer(y));
  S48_VECTOR_SET(v, 3, s48_enter_integer(width));
  S48_VECTOR_SET(v, 4, s48_enter_integer(height));
  S48_VECTOR_SET(v, 5, s48_enter_integer(border_width));
  S48_VECTOR_SET(v, 6, s48_enter_integer(depth));
  S48_GC_UNPROTECT();
  return v;
}

void scx_init_window(void) {
  S48_EXPORT_FUNCTION(scx_Create_Window);
  S48_EXPORT_FUNCTION(scx_Destroy_Window);
  S48_EXPORT_FUNCTION(scx_Change_Window_Attributes);
  S48_EXPORT_FUNCTION(scx_Get_Window_Attributes);
  S48_EXPORT_FUNCTION(scx_Configure_Window);
  S48_EXPORT_FUNCTION(scx_Map_Window);
  S48_EXPORT_FUNCTION(scx_Unmap_Window);
  S48_EXPORT_FUNCTION(scx_Destroy_Subwindows);
  S48_EXPORT_FUNCTION(scx_Map_Subwindows);
  S48_EXPORT_FUNCTION(scx_Unmap_Subwindows);  
  S48_EXPORT_FUNCTION(scx_Circulate_Subwindows);
  S48_EXPORT_FUNCTION(scx_Query_Tree);
  S48_EXPORT_FUNCTION(scx_Translate_Coordinates);
  S48_EXPORT_FUNCTION(scx_Query_Pointer);
  S48_EXPORT_FUNCTION(scx_Get_Geometry);
}