#include "xlib.h"

s48_value Enter_Visual_Info(XVisualInfo* vi) {
  s48_value t = s48_make_vector(10, S48_FALSE);
  S48_DECLARE_GC_PROTECT(1);
  
  S48_GC_PROTECT_1(t);

  S48_VECTOR_SET(t, 0, SCX_ENTER_VISUAL(vi->visual));
  S48_VECTOR_SET(t, 1, s48_enter_integer(vi->visualid));
  S48_VECTOR_SET(t, 2, s48_enter_integer(vi->screen));
  S48_VECTOR_SET(t, 3, s48_enter_integer(vi->depth));
  S48_VECTOR_SET(t, 4, Bit_To_Symbol(vi->class, Visual_Class_Syms));
  S48_VECTOR_SET(t, 5, s48_enter_integer(vi->red_mask));
  S48_VECTOR_SET(t, 6, s48_enter_integer(vi->green_mask));
  S48_VECTOR_SET(t, 7, s48_enter_integer(vi->blue_mask));
  S48_VECTOR_SET(t, 8, s48_enter_integer(vi->colormap_size));
  S48_VECTOR_SET(t, 9, s48_enter_integer(vi->bits_per_rgb));

  S48_GC_UNPROTECT();
  return t;
}

s48_value scx_Get_Visual_Info(s48_value Xdisplay, s48_value v) {
  XVisualInfo template;
  XVisualInfo* visualList;
  int visualsMatch, i;
  long mask = VisualNoMask;
  s48_value res = S48_FALSE;
  S48_DECLARE_GC_PROTECT(1);
  
  for (i=1; i<10; i++) {
    s48_value val = S48_VECTOR_REF(v, i);
    if (!S48_FALSE_P(val)) {
      switch (i) {
	// 0 = visual is not allowed here.
      case 1: {
	template.visualid = s48_extract_integer(val);
	mask |= VisualIDMask;
      } break;
      case 2: {
	template.screen = s48_extract_integer(val);
	mask |= VisualScreenMask;
      } break;
      case 3: {
	template.depth = s48_extract_integer(val);
	mask |= VisualDepthMask;
      } break;
      case 4: {
	template.class = Symbol_To_Bit(val, Visual_Class_Syms);
	mask |= VisualClassMask;
      } break;
      case 5: {
	template.red_mask = s48_extract_integer(val);
	mask |= VisualRedMaskMask;
      } break;
      case 6: {
	template.green_mask = s48_extract_integer(val);
	mask |= VisualGreenMaskMask;
      } break;
      case 7: {
	template.blue_mask = s48_extract_integer(val);
	mask |= VisualBlueMaskMask;
      } break;
      case 8: {
	template.colormap_size = s48_extract_integer(val);
	mask |= VisualColormapSizeMask;
      } break;
      case 9: {
	template.bits_per_rgb = s48_extract_integer(val);
	mask |= VisualBitsPerRGBMask;
      } break;
      }
    }
  }

  visualList = XGetVisualInfo( SCX_EXTRACT_DISPLAY(Xdisplay),
			       mask, &template, &visualsMatch);

  res = s48_make_vector(visualsMatch, S48_FALSE);
  S48_GC_PROTECT_1(res);
  
  for (i=0; i<visualsMatch; i++)
    S48_VECTOR_SET(res, i, Enter_Visual_Info(&visualList[i]));
  
  S48_GC_UNPROTECT();
  return res;
}

s48_value scx_Visual_ID(s48_value Xvisual) {
  return s48_enter_integer(XVisualIDFromVisual(SCX_EXTRACT_VISUAL(Xvisual)));
}

s48_value scx_Match_Visual_Info(s48_value Xdisplay, s48_value scrnum, 
				s48_value depth, s48_value class) {
  XVisualInfo r;
  if (XMatchVisualInfo(SCX_EXTRACT_DISPLAY(Xdisplay),
		       s48_extract_integer(scrnum),
		       s48_extract_integer(depth),
		       Symbol_To_Bit(class, Visual_Class_Syms),
		       &r))
    return Enter_Visual_Info(&r);
  else
    return S48_FALSE;
}    

void scx_init_visual(void) {
  S48_EXPORT_FUNCTION(scx_Get_Visual_Info);
  S48_EXPORT_FUNCTION(scx_Visual_ID);
  S48_EXPORT_FUNCTION(scx_Match_Visual_Info);
}