#include "xft.h"

/* XftPattern */
XFT_REC_ACCESSOR_MAKER(scx_enter_xftpattern, XftPattern, scx_xftpattern_record_type);

#define scx_extract_xftpattern(x) \
	((XftPattern *) s48_extract_integer(s48_checked_record_ref(x, 0, scx_xftpattern_record_type)))

/* XftFont */
XFT_REC_ACCESSOR_MAKER(scx_enter_xftfont, XftFont, scx_xftfont_record_type);

#define scx_extract_xftfont(x) \
	((XftFont *) s48_extract_integer(s48_checked_record_ref(x, 0, scx_xftfont_record_type)))

/* XftDraw */
XFT_REC_ACCESSOR_MAKER(scx_enter_xftdraw, XftDraw, scx_xftdraw_record_type);

#define scx_extract_xftdraw(x) \
	((XftDraw *) s48_extract_integer(s48_checked_record_ref(x, 0, scx_xftdraw_record_type)))

/* XftColor */
XFT_REC_ACCESSOR_MAKER(scx_enter_xftcolor, XftColor, scx_xftcolor_record_type);

#define scx_extract_xftcolor(x) \
	((XftColor *) s48_extract_integer(s48_checked_record_ref(x, 0, scx_xftcolor_record_type)))

/* XftObjectSet */
XFT_REC_ACCESSOR_MAKER(scx_enter_xftobjectset, XftObjectSet, scx_xftobjectset_record_type);

#define scx_extract_xftobjectset(x) \
	((XftObjectSet *) s48_extract_integer(s48_checked_record_ref(x, 0, scx_xftobjectset_record_type)))

/* XftFontSet */
XFT_REC_ACCESSOR_MAKER(scx_enter_xftfontset, XftFontSet, scx_xftfontset_record_type);

#define scx_extract_xftfontset(x) \
	((XftFontSet *) s48_extract_integer(s48_checked_record_ref(x, 0, scx_xftfontset_record_type)))


s48_value scx_XftPatternCreate(void) 
{
  return s48_enter_xftpattern(XftPatternCreate());
}


s48_value scx_XftPatternDestroy(s48_value sxp)
{
  XftPatternDestroy((XftPattern *) scx_extract_xftpattern(sxp));
  return S48_UNSPECIFIC;
}

s48_value scx_XftPatternDuplicate(s48_value sxp)
{
  XftPattern *p;

  p = XftPatternDuplicate(scx_extract_xftpattern(sxp));
  return scx_enter_xftpattern(p);
}

struct xft_pattern_property* lookup_pattern_property_by_id(int id)
{
  struct xft_pattern_property *tbl;

  for (tbl = &xft_pattern_property_tbl[0]; 
       (tbl->scx_id != id) && (tbl->type != SCX_XFT_INVALID); 
       tbl++)
    ;
  return tbl;
}

s48_value scx_XftPatternGet(s48_value sxp, s48_value sobj, s48_value sid)
{
  XftPattern *p;
  XftResult rc;
  XftValue v;
  int obj, i;
  s48_value rv = S48_UNSPECIFIC;
  s48_value rl = S48_UNSPECIFIC;
  struct xft_pattern_property *tbl;

  S48_DECLARE_GC_PROTECT(2);
  S48_GC_PROTECT_2(rl, rv);
  p = scx_extract_xftpattern(sxp);
  obj = s48_extract_integer(sobj);
  i = (int) s48_extract_integer(sid);

  tbl = lookup_pattern_property_by_id(obj);
  rc = XftPatternGet(p, tbl->name, i, &v);

  if ((rc != XftResultMatch) || (rc != XftResultNoMatch))
    {
      rl = s48_list_2(s48_enter_integer(rc), S48_UNSPECIFIC);
      S48_GC_UNPROTECT();
      return rl;
    }

  switch (tbl->type) {
  case SCX_XFT_STRING:
    rv = s48_enter_string(v.u.s);
    break;
  case SCX_XFT_DOUBLE:
    rv = s48_enter_double(v.u.d);
    break;
  case SCX_XFT_INT:
    rv = s48_enter_integer(v.u.i);
    break;
  case SCX_XFT_BOOL:
    rv = v.u.b ? S48_TRUE : S48_FALSE;
    break;
  case SCX_XFT_UNIMPLEMENTED:
    rv = S48_UNSPECIFIC;
    break;
  }

  rl = s48_list_2(s48_enter_integer(rc), rv);
  S48_GC_UNPROTECT();
  XftValueDestroy(v);
  return rl;
}

s48_value scx_XftPatternAdd(s48_value sxp, s48_value sobj, 
			    s48_value sval, s48_value sappend)
{
  XftPattern *p;
  XftValue v;
  int obj;
  Bool append, rv;
  struct xft_pattern_property *tbl;

  p = scx_extract_xftpattern(sxp);
  obj = s48_extract_integer(sobj);
  append = S48_TRUE_P(sappend);
  tbl = lookup_pattern_property_by_id(sobj);

  switch (tbl->type) {
  case SCX_XFT_STRING:
    v.type = XftTypeString;
    v.u.s = s48_extract_string(sval);
    break;
  case SCX_XFT_DOUBLE:
    v.type = XftTypeDouble;
    v.u.d = s48_extract_double(sval);
    break;
  case SCX_XFT_INT:
    v.type = XftTypeInteger;
    v.u.i = s48_extract_integer(sval);
    break;
  case SCX_XFT_BOOL:
    v.type = XftTypeBool;
    v.u.b = S48_TRUE_P(sval) ? True : False;
    break;
  }
  rv = XftPatternAdd(p, tbl->name, v, append);

  return rv ? S48_TRUE : S48_FALSE;
}

s48_value scx_XftFontMatch(s48_value sdpy, s48_value sscreen, s48_value sxp)
{
  XftPattern *p;
  XftResult r;

  p = XftFontMatch(scx_extract_display(sdpy),
		   s48_extract_integer(sscreen),
		   scx_extract_xftpattern(sxp),
		   &r);

  if (p == NULL)
  return s48_list_2(S48_FALSE, S48_UNSPECIFIC);
  else
  return s48_list_2(s48_enter_integer(r), scx_enter_xftpattern(p));
}

s48_value scx_XftFontOpenPattern(s48_value sdpy, s48_value sxp)
{
  return scx_enter_xftfont(XftFontOpenPattern(scx_extract_display(sdpy),
					      scx_extract_xftpattern(sxp)));
}

s48_value scx_XftFontOpenName(s48_value sdpy, s48_value sscreen, s48_value sname)
{
  return scx_enter_xftfont(scx_extract_display(sdpy),
			   scx_extract_integer(sscreen),
			   s48_extract_string(sname));
}

s48_value scx_XftFontOpenXlfd(s48_value sdpy, s48_value sscreen, s48_value sxlfd)
{
  return scx_enter_xftfont(scx_extract_display(sdpy),
			   s48_extract_integer(sscreen),
			   s48_extract_string(sxlfd));
}

s48_value scx_XftFontClose(s48_value sdpy, s48_value sxf)
{
  XftFontClose(scx_extract_display(sdpy),
	       scx_extract_xftfont(sxf));
  return S48_UNSPECIFIC;
}
  
s48_value scx_XftDrawCreate(s48_value sdpy, s48_value sdrawable,
			    s48_value svisual, s48_value scolormap)
{
  XftDraw *d;

  d = XftDrawCreate(scx_extract_display(sdpy),
		    scx_extract_drawable(sdrawable),
		    scx_extract_visual(svisual),
		    scx_extract_colormap(scolormap));

  return scx_enter_xftdraw(d);
}

s48_value scx_XftDrawCreateBitmap(s48_value sdpy, s48_value sdrawable)
{
  XftDraw *d;
  
  d = XftDrawCreateBitmap(scx_extract_display(sdpy),
			  scx_extract_drawable(sdrawable));

  return scx_enter_xftdraw(d);
}

s48_value scx_XftDrawChange(s48_value sxd, s48_value sdrawable)
{
  XftDrawChange(scx_extract_xftdraw(sxd), 
		scx_extract_drawable(sdrawable));
  return S48_UNSPECIFIC;
}
  
s48_value scx_XftDrawDisplay(s48_value sxd)
{
  return scx_enter_display(XftDrawDisplay(scx_extract_xftdraw(sxd)));
}

s48_value scx_XftDrawDrawable(s48_value sxd)
{
  return scx_enter_drawable(XftDrawDrawabale(scx_extract_xftdraw(sxd)));
}

s48_value scx_XftDrawColormap(s48_value sxd)
{
  return scx_enter_colormap(XftDrawColormap(scx_extract_xftdraw(sxd)));
}

s48_value scx_XftDrawVisual(s48_value sxd)
{
  return scx_enter_visual(XftDrawVisual(scx_extract_xftdraw(sxd)));
}
  
s48_value scx_XftDrawDestroy(s48_value sxd)
{
  XftDrawDestroy(scx_extract_xftdraw(sxd));
  return S48_UNSPECIFIC;
}

s48_value scx_XftTextExtents8(s48_value sdpy, s48_value sxf, s48_value sstr)
{
  XGlyphInfo extents;

  XftTextExtents8(scx_extract_display(sdpy),
		  scx_extract_xftfont(sxf),
		  (XftChar8 *) s48_extract_string(sstr),
		  S48_STRING_LENGTH(sstr),
		  &extents);

  return scx_enter_glyphinfo(extents);
}

s48_value scx_XftDrawString8(s48_value sxd, s48_value sxc,
			     s48_value sxf, s48_value sx,
			     s48_value sy, s48_value sstr)
{
  XftDrawString8(scx_extract_xftdraw(sxd), scx_extract_xftcolor(sxc),
		 scx_extract_xftfont(sxf), 
		 s48_extract_integer(sx), s48_extract_integer(sy), 
		 (XftChar8 *) s48_extract_string(sstr),
		 S48_STRING_LENGTH(sstr));
  return S48_UNSPECIFIC;
}

s48_value scx_XftDrawRect(s48_value sxd, s48_value sxc,
			  s48_value sx, s48_value sy,
			  s48_value sw, s48_value sh)
{
  XftDrawRect(scx_extract_xftdraw(sxd), scx_extract_xftcolor(sxc),
	      s48_extract_integer(sx), s48_extract_integer(sy),
	      s48_extract_integer(sw), s48_extract_integer(sh));
  return S48_UNSPECIFIC;
}

s48_value scx_XftDrawSetClip(s48_value sxd, s48_value sreg)
{
  return (XftDrawSetClip(scx_extract_draw(sxd), S48_EXTRACT_REGION(sreg))
	  ? S48_TRUE : S48_FALSE);
}

s48_value scx_XftObjectSetCreate(void)
{
  return scx_enter_xftobjectset(XftObjectSetCreate());
}

s48_value scx_XftObjectSetAdd(s48_value sxo, s48_value sobj)
{
  struct xft_pattern_property *tbl;
  Bool b;

  tbl = lookup_pattern_property_by_id(s48_extract_integer(sobj));
  b = XftObjectSetAdd(scx_extract_xftobjectset(sxo), tbl->name);
  return b ? S48_TRUE : S48_FALSE;
}

s48_value scx_XftListFontsPatternObjects(s48_value sdpy, s48_value sscreen,
					 s48_value sxp, s48_value sxo)
{
  XftFontSet *fs;

  fs = XftListFontsPatternObjects(scx_extract_display(sdpy),
				  s48_extract_integer(sscreen),
				  scx_extract_xftpatter(sxp),
				  scx_extract_objectset(sxo));

  return scx_enter_fontset(fs);
}


void scx_xft_init(void)
{
  XFT_GC_PROTECT_IMPORT_BINDING(scx_xftpattern_record_type, "xft-pattern");
  XFT_GC_PROTECT_IMPORT_BINDING(scx_xftfontset_record_type, "xft-font");
  XFT_GC_PROTECT_IMPORT_BINDING(scx_xftdraw_record_type, "xft-draw");
  XFT_GC_PROTECT_IMPORT_BINDING(scx_xftcolor_record_type, "xft-color");
  XFT_GC_PROTECT_IMPORT_BINDING(scx_xftobjectset_record_type, "xft-objectset");
  XFT_GC_PROTECT_IMPORT_BINDING(scx_xftfontset_record_type, "xft-fontset");

  GC_PROTECT_ENTER_INT(scx_XftResultMatch, XftResultMatch);
  GC_PROTECT_ENTER_INT(scx_XftResultNoMatch, XftResultNoMatch);
  GC_PROTECT_ENTER_INT(scx_XftResultTypeMismatch, XftResultTypeMismatch);
  GC_PROTECT_ENTER_INT(scx_XftResultNoId, XftResultNoId);

  S48_EXPORT_FUNCTION(scx_XftPatternCreate);
  S48_EXPORT_FUNCTION(scx_XftPatternDestroy);
  S48_EXPORT_FUNCTION(scx_XftPatternDuplicate);
  S48_EXPORT_FUNCTION(scx_XftPatternGet);
  S48_EXPORT_FUNCTION(scx_XftPatternAdd);

  S48_EXPORT_FUNCTION(scx_XftFontMatch);
  S48_EXPORT_FUNCTION(scx_XftFontOpenPattern);
  S48_EXPORT_FUNCTION(scx_XftFontOpenName);
  S48_EXPORT_FUNCTION(scx_XftFontOpenXlfd);
  S48_EXPORT_FUNCTION(scx_XftFontClose);
  
  S48_EXPORT_FUNCTION(scx_XftDrawCreate);
  S48_EXPORT_FUNCTION(scx_XftDrawCreateBitmap);
  S48_EXPORT_FUNCTION(scx_XftDrawChange);
  S48_EXPORT_FUNCTION(scx_XftDrawDisplay);
  S48_EXPORT_FUNCTION(scx_XftDrawDrawable);
  S48_EXPORT_FUNCTION(scx_XftDrawColormap);
  S48_EXPORT_FUNCTION(scx_XftDrawVisual);
  S48_EXPORT_FUNCTION(scx_XftDrawDestroy);
  
  S48_EXPORT_FUNCTION(scx_XftTextExtents8);
  S48_EXPORT_FUNCTION(scx_XftDrawString8);
  S48_EXPORT_FUNCTION(scx_XftDrawRect);
  S48_EXPORT_FUNCTION(scx_XftDrawSetClip);

  S48_EXPORT_FUNCTION(scx_XftObjectSetCreate);
  S48_EXPORT_FUNCTION(scx_XftObjectSetAdd);
  S48_EXPORT_FUNCTION(scx_XftListFontsPatternObjects);  
}