scx/c/xlib/property.c

/* Copyright 2001-2003 by Norbert Freudemann, David Frese */

#include "xlib.h"

s48_value scx_Intern_Atom(s48_value display, s48_value name,
			  s48_value only_if_exists) {
  Atom a = XInternAtom(scx_extract_display(display), 
		       s48_extract_string(name),
		       S48_EXTRACT_BOOLEAN(only_if_exists));
  return scx_enter_atom(a);
}

s48_value scx_Intern_Atoms(s48_value display, s48_value names,
			   s48_value only_if_exists) {
  int i, n = s48_list_length(names);
  char* cnames[n];
  Atom atoms[n];
  for (i = 0; i < n; i++)
    cnames[i] = s48_extract_string(names);
  if (!XInternAtoms(scx_extract_display(display), 
		    cnames, n,
		    S48_EXTRACT_BOOLEAN(only_if_exists),
		    atoms))
    return S48_FALSE;
  else {
    s48_value l = S48_NULL;
    S48_DECLARE_GC_PROTECT(1);
    S48_GC_PROTECT_1(l);
    for (i = n-1; i >= 0; i--)
      l = s48_cons(scx_enter_atom(atoms[i]), l);
    return l;
  }
}

s48_value scx_Get_Atom_Name(s48_value display, s48_value a) {
  char* s;
  s48_value str;
  s = XGetAtomName(scx_extract_display(display),
		   scx_extract_atom(a));
  str = s48_enter_string(s);
  XFree(s);
  return str;
}

s48_value scx_List_Properties(s48_value display, s48_value window) {
  int n, i;
  Atom *atoms;
  s48_value l = S48_NULL;
  S48_DECLARE_GC_PROTECT(1);
  atoms = XListProperties (scx_extract_display(display), 
			   scx_extract_window(window), &n);

  S48_GC_PROTECT_1(l);
  for (i = n-1; i >= 0; i--)
    l = s48_cons(scx_enter_atom(atoms[i]), l);
  S48_GC_UNPROTECT();
  XFree ((char*)atoms);
  return l;
}

s48_value scx_Rotate_Window_Properties(s48_value display, s48_value window,
				       s48_value properties, s48_value delta) {
  int i, n = s48_list_length(properties);
  Atom p[n];
  for (i = 0; i < n; i++) {
    p[i] = scx_extract_atom(S48_CAR(properties));
    properties = S48_CDR(properties);
  }
  XRotateWindowProperties(scx_extract_display(display), 
			  scx_extract_window(window),
			  p, n,	s48_extract_integer(delta));
  return S48_UNSPECIFIC;
}

s48_value scx_Delete_Property(s48_value display, s48_value window,
			      s48_value prop) {
  XDeleteProperty(scx_extract_display(display), scx_extract_window(window),
		  scx_extract_atom(prop));
  return S48_UNSPECIFIC;
}

void scx_extract_property(s48_value p, Atom* type, int* format,
			  char** data, int* nelements) {
  int i;
  s48_value d = S48_RECORD_REF(p, 2);
  s48_check_record_type(p, s48_get_imported_binding("scx-property"));
  *type = scx_extract_atom(S48_RECORD_REF(p, 0));
  *format = S48_EXTRACT_ENUM(S48_RECORD_REF(p, 1),
			     "scx-property-format");
  switch (*format) {
  case 0:
    *format = 8;
    *nelements = S48_STRING_LENGTH(d);
    *data = (char*)malloc(*nelements);
    strcpy(*data, s48_extract_string(d));
    break;
  case 1:
    *format = 16;
    *nelements = s48_list_length(d);
    *data = (char*)malloc(2 * (*nelements));
    for (i = 0; i < *nelements; i++) {
      (*(short**)data)[i] = s48_extract_integer(S48_CAR(d));
      d = S48_CDR(d);
    }
    break;
  case 2:
    *format = 32;
    *nelements = s48_list_length(d);
    *data = (char*)malloc(4 * (*nelements));
    for (i = 0; i < *nelements; i++) {
      (*(long**)data)[i] = s48_extract_integer(S48_CAR(d));
      d = S48_CDR(d);
    }
    break;
  }
}

s48_value scx_enter_property(Atom type, int format, char* data,
			     int nelements) {
  s48_value p = s48_make_record(s48_get_imported_binding("scx-property"));
  s48_value l = S48_NULL;
  int i;
  S48_DECLARE_GC_PROTECT(2);
  S48_GC_PROTECT_2(p, l);

  S48_RECORD_SET(p, 0, scx_enter_atom(type));
  S48_RECORD_SET(p, 1, S48_ENTER_ENUM((format >> 3) - 1,
				      "scx-property-formats"));
  switch (format) {
  case 8:
    S48_RECORD_SET(p, 2, s48_enter_substring(data, nelements));
  case 16:
    for (i = nelements-1; i >= 0; i--)
      l = s48_cons(s48_enter_integer(((short*)data)[i]), l);
    S48_RECORD_SET(p, 2, l);
  case 32:
    for (i = nelements-1; i >= 0; i--)
      l = s48_cons(s48_enter_integer(((long*)data)[i]), l);
    S48_RECORD_SET(p, 2, l);
  }
  S48_GC_UNPROTECT();
  return p;
}

s48_value scx_Get_Window_Property(s48_value display, s48_value window, 
				  s48_value atom, s48_value start,
				  s48_value len, s48_value deletep,
				  s48_value req_type) {
  Atom actual_type;
  int format, i;
  unsigned long nitems, bytes_left;
  unsigned char* data = NULL;
  if (XGetWindowProperty (scx_extract_display(display), 
			  scx_extract_window(window),
			  scx_extract_atom(atom), 
			  s48_extract_integer(start),
			  s48_extract_integer(len),
			  S48_EXTRACT_BOOLEAN(deletep), 
			  scx_extract_atom(req_type),
			  &actual_type, &format, &nitems,
			  &bytes_left, &data) == Success) {
    s48_value p = scx_enter_property(actual_type, format, data, nitems);
    s48_value res = S48_NULL;
    S48_DECLARE_GC_PROTECT(1);

    XFree(data);
    S48_GC_PROTECT_1(p);
    res = s48_cons(s48_enter_integer(bytes_left), p);
    S48_GC_UNPROTECT();
    return res;
  } else
    // Property does not exists
    return S48_FALSE;
}

#define scx_extract_change_property_mode(x) \
  S48_EXTRACT_ENUM(x, "scx-change-property-mode")

s48_value scx_Change_Property(s48_value display, s48_value window,
			      s48_value atom,  s48_value mode,
			      s48_value property) {
  Atom type;
  int format, nelements;
  char* data;
  
  scx_extract_property(property, &type, &format, &data, &nelements);

  XChangeProperty(scx_extract_display(display), scx_extract_window(window),
		  scx_extract_atom(atom), type, format,
		  scx_extract_change_property_mode(mode),
		  data, nelements);
  free(data);
  return S48_UNSPECIFIC;
}

s48_value scx_Set_Selection_Owner(s48_value display, s48_value selection,
				  s48_value owner, s48_value time) {
  XSetSelectionOwner(scx_extract_display(display), scx_extract_atom(selection),
		     scx_extract_window(owner), scx_extract_time(time));
  return S48_UNSPECIFIC;
}

s48_value scx_Get_Selection_Owner(s48_value display, s48_value selection) {
  return scx_enter_window(XGetSelectionOwner(scx_extract_display(display),
					     scx_extract_atom(selection)));
}

s48_value scx_Convert_Selection(s48_value display, s48_value selection,
				s48_value target, s48_value property,
				s48_value requestor, s48_value time) {
  XConvertSelection(scx_extract_display(display), scx_extract_atom(selection),
		    scx_extract_atom(target), scx_extract_atom(property),
		    scx_extract_window(requestor), scx_extract_time(time));
  return S48_UNSPECIFIC;
}

void scx_init_property(void) {
  S48_EXPORT_FUNCTION(scx_Intern_Atom);
  S48_EXPORT_FUNCTION(scx_Intern_Atoms);
  S48_EXPORT_FUNCTION(scx_Get_Atom_Name);
  S48_EXPORT_FUNCTION(scx_List_Properties);
  S48_EXPORT_FUNCTION(scx_Rotate_Window_Properties);
  S48_EXPORT_FUNCTION(scx_Delete_Property);
  S48_EXPORT_FUNCTION(scx_Get_Window_Property);
  S48_EXPORT_FUNCTION(scx_Change_Property);
  S48_EXPORT_FUNCTION(scx_Set_Selection_Owner);
  S48_EXPORT_FUNCTION(scx_Get_Selection_Owner);
  S48_EXPORT_FUNCTION(scx_Convert_Selection);
}