xsettings-ruby 0.0.1

checksums.yaml

@@ -0,0 +1,7 @@
+---
+SHA1:
+  metadata.gz: 9a9a4535316fec30d4ce0d920aa4d094bd445bc0
+  data.tar.gz: 62b8dcf4332b965bb1b84e8ee6bfe5c4ecca9b0b
+SHA512:
+  metadata.gz: 2b5ca7d8df516011c6b1d94ed36f8b8cd427d572068f68389e3f2aa642edd3370a8b3c82fcf6ea885b5e2e322d97d15f16233b3afb187aa8ae0892d17d9e7f9a
+  data.tar.gz: 1f1302df4d3d3fbe53df480cbfc504a1d0ae36ff08d0b9deb14e5fccf73065f76c33dbaed452ac28829802c914a1bbee180ba3170c7c153d3b38d9907044c5e7

data/README.md

@@ -0,0 +1,15 @@
+XSettings Manager
+=================
+
+Description
+-----------
+Ruby bindings for Xsettings manager library
+
+
+License
+-------
+Copyright (c) 2011-2013 Geoff Youngs
+
+This program is free software.
+You can distribute/modify this program under the terms of
+the GNU LESSER GENERAL PUBLIC LICENSE Version 2.1.

data/Rakefile

@@ -0,0 +1,54 @@
+require 'rubygems'
+gem 'rake-compiler'
+require 'rake/extensiontask'
+BASE_DIR = Dir.pwd
+require 'rubygems/package_task'
+require 'rake/testtask'
+
+$: << './lib'
+
+require 'xsettings/version'
+exts = []
+
+namespace :prepare do
+FileList["ext/*/*.cr"].each do |cr|
+	dir = File.dirname(cr)
+	name = File.basename(dir)
+	desc "Generate source for #{name}"
+	task(name.intern) do
+		sh 'rubber-generate', '--build-dir', dir, cr
+	end
+end
+end
+
+spec = Gem::Specification.new do |s|
+	s.name = "xsettings-ruby"
+	s.author = "Geoff Youngs"
+	s.email = "git@intersect-uk.co.uk"
+	s.version = XSettings::VERSION
+	s.homepage = "http://github.com/geoffyoungs/xsettings-ruby"
+	s.summary = "xsettings bindings using rubber-generate"
+	s.add_dependency("rubber-generate", ">= 0.0.17")
+	s.platform = Gem::Platform::RUBY
+	s.extensions = FileList["ext/*/extconf.rb"]
+	s.files = FileList['ext/*/*.{c,h,cr,rd}'] + ['Rakefile', 'README.md'] + FileList['lib/**/*.rb']
+s.description = <<-EOF
+XSettings Manager bindings for ruby
+
+e.g
+require 'gtk2'
+require 'xsettings-ruby'
+
+EOF
+end
+Gem::PackageTask.new(spec) do |pkg|
+    pkg.need_tar = true
+end
+Rake::ExtensionTask.new("xsettings", spec)
+
+Rake::TestTask.new do |t|
+	t.test_files = FileList['test/*_test.rb']
+end
+
+task :default, :compile
+

data/ext/xsettings/extconf.rb

@@ -0,0 +1,114 @@
+require 'mkmf'
+use_gems = false
+begin
+  require 'mkmf-gnome2'
+rescue LoadError
+  use_gems = true
+end
+
+if use_gems or Object.const_defined?('Gem')
+  require 'rubygems'
+  gem 'glib2'
+  require 'mkmf-gnome2'
+  %w[rbglib.h rbgtk.h rbpango.h rbatk.h].each do |header|
+  	Gem.find_files(header).each do |f|
+		$CFLAGS += " '-I#{File.dirname(f)}'"
+	end
+  end
+end
+# Look for headers in {gem_root}/ext/{package}
+if use_gems
+  %w[
+ glib2 gdk_pixbuf2 atk gtk2].each do |package|
+    require package
+    if Gem.loaded_specs[package]
+      $CFLAGS += " -I" + Gem.loaded_specs[package].full_gem_path + "/ext/" + package
+    else
+      if fn = $".find { |n| n.sub(/[.](so|rb)$/,'') == package }
+        dr = $:.find { |d| File.exist?(File.join(d, fn)) }
+        pt = File.join(dr,fn) if dr && fn
+      else
+        pt = "??"
+      end
+      STDERR.puts "require '" + package + "' loaded '"+pt+"' instead of the gem - trying to continue, but build may fail"
+    end
+  end
+end
+if RbConfig::CONFIG.has_key?('rubyhdrdir')
+  $CFLAGS += " -I" + RbConfig::CONFIG['rubyhdrdir']+'/ruby'
+end
+
+$CFLAGS += " -I."
+have_func("rb_errinfo")
+PKGConfig.have_package("gtk+-2.0") or exit(-1)
+have_header("gtk/gtk.h") or exit(-1)
+have_header("gdk/gdk.h") or exit(-1)
+have_header("gdk/gdkx.h") or exit(-1)
+
+STDOUT.print("checking for new allocation framework... ") # for ruby-1.7
+if Object.respond_to? :allocate
+  STDOUT.print "yes
+"
+  $defs << "-DHAVE_OBJECT_ALLOCATE"
+else
+  STDOUT.print "no
+"
+end
+
+top = File.expand_path(File.dirname(__FILE__) + '/..') # XXX
+$CFLAGS += " " + ['glib/src'].map{|d|
+  "-I" + File.join(top, d)
+}.join(" ")
+
+have_func("rb_define_alloc_func") # for ruby-1.8
+
+#set_output_lib('libruby-xsettings.a')
+if /cygwin|mingw/ =~ RUBY_PLATFORM
+  top = "../.."
+  [
+    ["glib/src", "ruby-glib2"],
+  ].each{|d,l|
+    $LDFLAGS << sprintf(" -L%s/%s", top, d)
+    $libs << sprintf(" -l%s", l)
+  }
+end
+begin
+  srcdir = File.expand_path(File.dirname($0))
+
+  begin
+
+    obj_ext = "."+$OBJEXT
+
+    $libs = $libs.split(/ /).uniq.join(' ')
+    $source_files = Dir.glob(sprintf("%s/*.c", srcdir)).map{|fname|
+      fname[0, srcdir.length+1] = ''
+      fname
+    }
+    $objs = $source_files.collect do |item|
+      item.gsub(/.c$/, obj_ext)
+    end
+
+    #
+    # create Makefile
+    #
+    $defs << "-DRUBY_XSETTINGS_COMPILATION"
+    # $CFLAGS << $defs.join(' ')
+    create_makefile("xsettings", srcdir)
+    raise Interrupt if not FileTest.exist? "Makefile"
+
+    File.open("Makefile", "a") do |mfile|
+      $source_files.each do |e|
+        mfile.print sprintf("%s: %s
+", e.gsub(/.c$/, obj_ext), e)
+      end
+    end
+  ensure
+    #Dir.chdir ".."
+  end
+
+  #create_top_makefile()
+rescue Interrupt
+  print "  [error] " + $!.to_s + "
+"
+end
+

data/ext/xsettings/xsettings-common.c

@@ -0,0 +1,261 @@
+/*
+ * Copyright � 2001 Red Hat, Inc.
+ *
+ * Permission to use, copy, modify, distribute, and sell this software and its
+ * documentation for any purpose is hereby granted without fee, provided that
+ * the above copyright notice appear in all copies and that both that
+ * copyright notice and this permission notice appear in supporting
+ * documentation, and that the name of Red Hat not be used in advertising or
+ * publicity pertaining to distribution of the software without specific,
+ * written prior permission.  Red Hat makes no representations about the
+ * suitability of this software for any purpose.  It is provided "as is"
+ * without express or implied warranty.
+ *
+ * RED HAT DISCLAIMS ALL WARRANTIES WITH REGARD TO THIS SOFTWARE, INCLUDING ALL
+ * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS, IN NO EVENT SHALL RED HAT
+ * BE LIABLE FOR ANY SPECIAL, INDIRECT OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
+ * WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN ACTION
+ * OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF OR IN 
+ * CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
+ *
+ * Author:  Owen Taylor, Red Hat, Inc.
+ */
+#include "string.h"
+#include "stdlib.h"
+
+#include <X11/Xlib.h>
+#include <X11/Xmd.h>		/* For CARD32 */
+
+#include "xsettings-common.h"
+
+XSettingsSetting *
+xsettings_setting_copy (XSettingsSetting *setting)
+{
+  XSettingsSetting *result;
+  size_t str_len;
+  
+  result = malloc (sizeof *result);
+  if (!result)
+    return NULL;
+
+  str_len = strlen (setting->name);
+  result->name = malloc (str_len + 1);
+  if (!result->name)
+    goto err;
+
+  memcpy (result->name, setting->name, str_len + 1);
+
+  result->type = setting->type;
+
+  switch (setting->type)
+    {
+    case XSETTINGS_TYPE_INT:
+      result->data.v_int = setting->data.v_int;
+      break;
+    case XSETTINGS_TYPE_COLOR:
+      result->data.v_color = setting->data.v_color;
+      break;
+    case XSETTINGS_TYPE_STRING:
+      str_len = strlen (setting->data.v_string);
+      result->data.v_string = malloc (str_len + 1);
+      if (!result->data.v_string)
+	goto err;
+
+      memcpy (result->data.v_string, setting->data.v_string, str_len + 1);
+      break;
+    }
+
+  result->last_change_serial = setting->last_change_serial;
+
+  return result;
+
+ err:
+  if (result->name)
+    free (result->name);
+  free (result);
+  
+  return NULL;
+}
+
+XSettingsList *
+xsettings_list_copy (XSettingsList *list)
+{
+  XSettingsList *new = NULL;
+  XSettingsList *old_iter = list;
+  XSettingsList *new_iter = NULL;
+
+  while (old_iter)
+    {
+      XSettingsList *new_node;
+
+      new_node = malloc (sizeof *new_node);
+      if (!new_node)
+	goto error;
+
+      new_node->setting = xsettings_setting_copy (old_iter->setting);
+      if (!new_node->setting)
+	{
+	  free (new_node);
+	  goto error;
+	}
+
+      if (new_iter)
+	new_iter->next = new_node;
+      else
+	new = new_node;
+
+      new_iter = new_node;
+      
+      old_iter = old_iter->next;
+    }
+
+  return new;
+
+ error:
+  xsettings_list_free (new);
+  return NULL;
+}
+
+int
+xsettings_setting_equal (XSettingsSetting *setting_a,
+			 XSettingsSetting *setting_b)
+{
+  if (setting_a->type != setting_b->type)
+    return 0;
+
+  if (strcmp (setting_a->name, setting_b->name) != 0)
+    return 0;
+
+  switch (setting_a->type)
+    {
+    case XSETTINGS_TYPE_INT:
+      return setting_a->data.v_int == setting_b->data.v_int;
+    case XSETTINGS_TYPE_COLOR:
+      return (setting_a->data.v_color.red == setting_b->data.v_color.red &&
+	      setting_a->data.v_color.green == setting_b->data.v_color.green &&
+	      setting_a->data.v_color.blue == setting_b->data.v_color.blue &&
+	      setting_a->data.v_color.alpha == setting_b->data.v_color.alpha);
+    case XSETTINGS_TYPE_STRING:
+      return strcmp (setting_a->data.v_string, setting_b->data.v_string) == 0;
+    }
+
+  return 0;
+}
+
+void
+xsettings_setting_free (XSettingsSetting *setting)
+{
+  if (setting->type == XSETTINGS_TYPE_STRING)
+    free (setting->data.v_string);
+  
+  free (setting);
+}
+
+void
+xsettings_list_free (XSettingsList *list)
+{
+  while (list)
+    {
+      XSettingsList *next = list->next;
+
+      xsettings_setting_free (list->setting);
+      free (list);
+
+      list = next;
+    }
+}
+
+XSettingsResult
+xsettings_list_insert (XSettingsList    **list,
+		       XSettingsSetting  *setting)
+{
+  XSettingsList *node;
+  XSettingsList *iter;
+  XSettingsList *last = NULL;
+
+  node = malloc (sizeof *node);
+  if (!node)
+    return XSETTINGS_NO_MEM;
+  node->setting = setting;
+
+  iter = *list;
+  while (iter)
+    {
+      int cmp = strcmp (setting->name, iter->setting->name);
+
+      if (cmp < 0)
+	break;
+      else if (cmp == 0)
+	{
+	  free (node);
+	  return XSETTINGS_DUPLICATE_ENTRY;
+	}
+
+      last = iter;
+      iter = iter->next;
+    }
+  
+  if (last)
+    last->next = node;
+  else
+    *list = node;
+  
+  node->next = iter;
+  
+  return XSETTINGS_SUCCESS;
+}
+
+XSettingsResult
+xsettings_list_delete (XSettingsList **list,
+		       const char     *name)
+{
+  XSettingsList *iter;
+  XSettingsList *last = NULL;
+
+  iter = *list;
+  while (iter)
+    {
+      if (strcmp (name, iter->setting->name) == 0)
+	{
+	  if (last)
+	    last->next = iter->next;
+	  else
+	    *list = iter->next;
+  
+	  xsettings_setting_free (iter->setting);
+	  free (iter);
+
+	  return XSETTINGS_SUCCESS;
+	}
+
+      last = iter;
+      iter = iter->next;
+    }
+
+  return XSETTINGS_FAILED;
+}
+
+XSettingsSetting *
+xsettings_list_lookup (XSettingsList *list,
+		       const char    *name)
+{
+  XSettingsList *iter;
+
+  iter = list;
+  while (iter)
+    {
+      if (strcmp (name, iter->setting->name) == 0)
+	return iter->setting;
+
+      iter = iter->next;
+    }
+
+  return NULL;
+}
+
+char
+xsettings_byte_order (void)
+{
+  CARD32 myint = 0x01020304;
+  return (*(char *)&myint == 1) ? MSBFirst : LSBFirst;
+}