swat 1.0.0

data/ext/eggaccelerators.h

@@ -0,0 +1,87 @@
+/* eggaccelerators.h
+ * Copyright (C) 2002  Red Hat, Inc.
+ * Developed by Havoc Pennington
+ *
+ * This library is free software; you can redistribute it and/or
+ * modify it under the terms of the GNU Library General Public
+ * License as published by the Free Software Foundation; either
+ * version 2 of the License, or (at your option) any later version.
+ *
+ * This library is distributed in the hope that it will be useful,
+ * but WITHOUT ANY WARRANTY; without even the implied warranty of
+ * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
+ * Library General Public License for more details.
+ *
+ * You should have received a copy of the GNU Library General Public
+ * License along with this library; if not, write to the
+ * Free Software Foundation, Inc., 59 Temple Place - Suite 330,
+ * Boston, MA 02111-1307, USA.
+ */
+
+#ifndef __EGG_ACCELERATORS_H__
+#define __EGG_ACCELERATORS_H__
+
+#include <gtk/gtkaccelgroup.h>
+#include <gdk/gdk.h>
+
+G_BEGIN_DECLS
+
+/* Where a value is also in GdkModifierType we coincide,
+ * otherwise we don't overlap.
+ */
+typedef enum
+{
+  EGG_VIRTUAL_SHIFT_MASK    = 1 << 0,
+  EGG_VIRTUAL_LOCK_MASK	    = 1 << 1,
+  EGG_VIRTUAL_CONTROL_MASK  = 1 << 2,
+
+  EGG_VIRTUAL_ALT_MASK      = 1 << 3, /* fixed as Mod1 */
+  
+  EGG_VIRTUAL_MOD2_MASK	    = 1 << 4,
+  EGG_VIRTUAL_MOD3_MASK	    = 1 << 5,
+  EGG_VIRTUAL_MOD4_MASK	    = 1 << 6,
+  EGG_VIRTUAL_MOD5_MASK	    = 1 << 7,
+
+#if 0
+  GDK_BUTTON1_MASK  = 1 << 8,
+  GDK_BUTTON2_MASK  = 1 << 9,
+  GDK_BUTTON3_MASK  = 1 << 10,
+  GDK_BUTTON4_MASK  = 1 << 11,
+  GDK_BUTTON5_MASK  = 1 << 12,
+  /* 13, 14 are used by Xkb for the keyboard group */
+#endif
+  
+  EGG_VIRTUAL_META_MASK = 1 << 24,
+  EGG_VIRTUAL_SUPER_MASK = 1 << 25,
+  EGG_VIRTUAL_HYPER_MASK = 1 << 26,
+  EGG_VIRTUAL_MODE_SWITCH_MASK = 1 << 27, 
+  EGG_VIRTUAL_NUM_LOCK_MASK = 1 << 28,
+  EGG_VIRTUAL_SCROLL_LOCK_MASK = 1 << 29,
+
+  /* Also in GdkModifierType */
+  EGG_VIRTUAL_RELEASE_MASK  = 1 << 30,
+
+  /*     28-31 24-27 20-23 16-19 12-15 8-11 4-7 0-3
+   *       7     f     0     0     0    0    f   f
+   */  
+  EGG_VIRTUAL_MODIFIER_MASK = 0x7f0000ff
+
+} EggVirtualModifierType;
+
+gboolean egg_accelerator_parse_virtual        (const gchar            *accelerator,
+                                               guint                  *accelerator_key,
+                                               EggVirtualModifierType *accelerator_mods);
+void     egg_keymap_resolve_virtual_modifiers (GdkKeymap              *keymap,
+                                               EggVirtualModifierType  virtual_mods,
+                                               GdkModifierType        *concrete_mods);
+void     egg_keymap_virtualize_modifiers      (GdkKeymap              *keymap,
+                                               GdkModifierType         concrete_mods,
+                                               EggVirtualModifierType *virtual_mods);
+
+gchar* egg_virtual_accelerator_name (guint                  accelerator_key,
+                                     EggVirtualModifierType accelerator_mods);
+
+G_END_DECLS
+
+
+#endif /* __EGG_ACCELERATORS_H__ */

data/ext/extconf.rb

@@ -0,0 +1,84 @@
+require "English"
+require "mkmf"
+require "ftools"
+require "rbconfig"
+=begin
+extconf.rb for Ruby/GTK extention library
+=end
+
+PACKAGE_NAME = "gtk2"
+PKG_CONFIG_ID = "gtk+-2.0"
+
+require 'mkmf-gnome2'
+
+#
+# detect GTK+ configurations
+#
+
+PKGConfig.have_package('gthread-2.0')
+PKGConfig.have_package(PKG_CONFIG_ID) or exit 1
+setup_win32(PACKAGE_NAME)
+
+STDOUT.print("checking for target... ")
+STDOUT.flush
+target = PKGConfig.variable(PKG_CONFIG_ID, "target")
+$defs << "-DRUBY_GTK2_TARGET=\\\"#{target}\\\""
+STDOUT.print(target, "\n")
+
+#
+# detect location of GDK include files
+#
+gdkincl = nil
+tmpincl = $CFLAGS.gsub(/-D\w+/, '').split(/-I/) + ['/usr/include']
+tmpincl.each do |i|
+  i.strip!
+
+  if FileTest.exist?(i + "/gdk/gdkkeysyms.h")
+    gdkincl = i + "/gdk"
+    break
+  end
+end
+raise "can't find gdkkeysyms.h" if gdkincl.nil?
+
+have_func('gtk_plug_get_type')
+have_func('gtk_socket_get_type')
+have_func('pango_render_part_get_type')
+
+if target=="x11"
+  have_func("XReadBitmapFileData")
+  have_header('X11/Xlib.h')
+  have_func("XGetErrorText")
+end
+
+PKGConfig.have_package('gtk+-unix-print-2.0')
+
+have_func('gtk_print_unix_dialog_get_type')
+have_func('gtk_print_job_get_type')
+have_func('gtk_printer_get_type')
+have_func('gtk_page_setup_unix_get_type')
+
+PKGConfig.have_package('cairo')
+if have_header('rb_cairo.h')
+  if /mingw|cygwin|mswin32/ =~ RUBY_PLATFORM
+    unless ENV["CAIRO_PATH"]
+      puts "Error! Set CAIRO_PATH."
+      exit 1
+    end
+    add_depend_package("cairo", "packages/cairo/ext", ENV["CAIRO_PATH"])
+    $defs << "-DRUBY_CAIRO_PLATFORM_WIN32"
+  end
+end
+
+
+#
+# create Makefiles
+#
+
+add_distcleanfile("rbgdkkeysyms.h")
+add_distcleanfile("rbgtkinits.c")
+
+
+$defs.delete("-DRUBY_GTK2_COMPILATION")
+
+create_makefile("keybinder")
+

data/ext/keybinder.c

@@ -0,0 +1,49 @@
+#include "ruby.h"
+#include "tomboykeybinder.h"
+
+static VALUE key_callback_hash;
+static VALUE key_binder_class;
+
+// the callback, that gets invoked when key is pressed
+void handler_c_func(char *keystring, gpointer user_data)
+{
+  VALUE rb_keystring = rb_str_new2(keystring);
+
+  VALUE callback_func = rb_hash_aref(key_callback_hash,rb_keystring);
+
+  //rb_funcall(key_binder_class,rb_intern(StringValuePtr(callback_func)),0);
+  rb_funcall(callback_func,rb_intern("call"),0);
+}
+
+// an instance method, which gets invoked when you bind the key
+static VALUE rb_tomboy_binder(VALUE self,VALUE key_string, VALUE callback_string)
+{
+  /* VALUE key_callback_hash; */
+  /* key_callback_hash = rb_iv_get(self,"@callback_hash_shit"); */
+  /* if(NIL_P(key_callback_hash)) */
+  /*   rb_raise(rb_eTypeError, "not valid value"); */
+
+  rb_hash_aset(key_callback_hash,key_string,callback_string);
+
+  char *input_key_string = StringValuePtr(key_string);
+
+  tomboy_keybinder_bind(input_key_string,&handler_c_func,NULL);
+  return Qnil;
+}
+
+
+static VALUE rb_initialize_keybinder(VALUE self)
+{
+  key_callback_hash = rb_hash_new();
+  rb_iv_set(self,"@callback_hash_shit",key_callback_hash);
+  rb_iv_set(self,"@valid",Qtrue);
+  tomboy_keybinder_init();
+  return self;
+}
+
+
+void Init_keybinder() {
+  key_binder_class = rb_define_class("KeyBinder",rb_cObject);
+  rb_define_method(key_binder_class,"initialize",rb_initialize_keybinder,0);
+  rb_define_method(key_binder_class,"bindkey",rb_tomboy_binder,2);
+}

data/ext/mkmf-gnome2.rb

@@ -0,0 +1,286 @@
+#
+# mkmf-gnome2.rb
+#
+# Extended mkmf for Ruby-GNOME2 and Ruby/GLib based libraries.
+#
+# Copyright(C) 2003-2005 Ruby-GNOME2 Project.
+#
+# This program is licenced under the same
+# license of Ruby-GNOME2.
+#
+
+require 'mkmf'
+require 'pkg-config'
+require 'glib-mkenums'
+
+unless defined?(macro_defined?)
+  def macro_defined?(macro, src, opt="")
+    try_cpp(src + <<EOP, opt)
+#ifndef #{macro}
+# error
+#endif
+EOP
+  end
+end
+
+
+STDOUT.print("checking for GCC... ")
+STDOUT.flush
+if macro_defined?("__GNUC__", "")
+  STDOUT.print "yes\n"
+  $CFLAGS += ' -Wall'
+  $cc_is_gcc = true
+else
+  STDOUT.print "no\n"
+  $cc_is_gcc = false
+end
+
+include_path = nil
+if ENV['GTK_BASEPATH'] and /cygwin/ !~ RUBY_PLATFORM
+  include_path = (ENV['GTK_BASEPATH'] + "\\INCLUDE").gsub("\\", "/")
+#  $hdrdir += " -I#{include_path} "
+  $CFLAGS += " -I#{include_path} "
+end
+
+def check_win32()
+  $G_PLATFORM_WIN32 = false
+  $G_OS_WIN32       = false
+  $G_WITH_CYGWIN    = false
+
+  STDOUT.print("checking for G_PLATFORM_WIN32... ")
+  STDOUT.flush
+  if macro_defined?('G_PLATFORM_WIN32', "#include <glibconfig.h>\n")
+    STDOUT.print "yes\n"
+    $G_PLATFORM_WIN32 = true
+  else
+    STDOUT.print "no\n"
+  end
+
+  if $G_PLATFORM_WIN32
+    STDOUT.print("checking for G_OS_WIN32... ")
+    STDOUT.flush
+    if macro_defined?('G_OS_WIN32', "#include <glibconfig.h>\n")
+      STDOUT.print "yes\n"
+      $G_OS_WIN32 = true
+      if $cc_is_gcc
+	if /^2\./ =~ `#{Config::CONFIG['CC']} -dumpversion`.chomp
+	  $CFLAGS += ' -fnative-struct'
+	else
+	  $CFLAGS += ' -mms-bitfields'
+	end
+      end
+    else
+      STDOUT.print "no\n"
+    end
+
+#    STDOUT.print("checking for G_WITH_CYGWIN... ")
+#    STDOUT.flush
+#    if macro_defined?('G_WITH_CYGWIN', "#include <glibconfig.h>\n")
+#      STDOUT.print "yes\n"
+#      $G_WITH_CYGWIN = true
+#    else
+#      STDOUT.print "no\n"
+#    end
+  end
+
+  nil
+end
+
+def set_output_lib(target_name)
+  if /cygwin|mingw/ =~ RUBY_PLATFORM
+    filename = "libruby-#{target_name}.a"
+    if RUBY_VERSION > "1.8.0"
+      $DLDFLAGS << ",--out-implib=#{filename}" if filename
+    elsif RUBY_VERSION > "1.8"
+      $DLDFLAGS.gsub!(/ -Wl,--out-implib=[^ ]+/, '')
+      $DLDFLAGS << " -Wl,--out-implib=#{filename}" if filename
+    else
+      $DLDFLAGS.gsub!(/ --output-lib\s+[^ ]+/, '')
+      $DLDFLAGS << " --output-lib #{filename}" if filename
+    end
+  elsif /mswin32/ =~ RUBY_PLATFORM
+      filename = "libruby-#{target_name}.lib"
+      $DLDFLAGS.gsub!(/ --output-lib\s+[^ ]+/, '')
+      $DLDFLAGS.gsub!(/ \/IMPLIB:[^ ]+/, '')
+      $DLDFLAGS << " /IMPLIB:#{filename}" if filename   
+  end
+end
+
+def setup_win32(target_name)
+  check_win32
+  set_output_lib(target_name)
+end
+
+#add_depend_package("glib2", "glib/src", "/...../ruby-gnome2")
+def add_depend_package(target_name, target_srcdir, top_srcdir)
+  [top_srcdir, $configure_args['--topdir']].each do |topdir|
+    topdir = File.expand_path(topdir)
+    if RUBY_VERSION < "1.8.5"
+      $CFLAGS = "-I#{File.join(topdir, target_srcdir)} #{$CFLAGS}"
+    else
+      $INCFLAGS = "-I#{File.join(topdir, target_srcdir)} #{$INCFLAGS}"
+    end
+
+    if /cygwin|mingw/ =~ RUBY_PLATFORM
+      $libs << " -lruby-#{target_name}"
+      $LDFLAGS << " -L#{topdir}/#{target_srcdir}"
+    elsif /mswin32/ =~ RUBY_PLATFORM
+      $DLDFLAGS << " /libpath:#{topdir}/#{target_srcdir}"
+      $libs << " libruby-#{target_name}.lib"
+    end
+  end
+end
+
+def add_distcleanfile(file)
+  $distcleanfiles ||= []
+  $distcleanfiles << file
+end
+
+def create_makefile_at_srcdir(pkg_name, srcdir, defs = nil)
+  base_dir = File.basename(Dir.pwd)
+  builddir = srcdir[(srcdir.rindex(base_dir) + base_dir.size + 1)..-1]
+  builddir ||= "."
+  FileUtils.mkdir_p(builddir)
+
+  Dir.chdir(builddir) do
+    yield if block_given?
+
+    $defs << defs if defs
+
+    pattern = "*.{#{SRC_EXT.join(',')}}"
+    srcs = Dir[File.join(srcdir, pattern)]
+    srcs |= Dir[File.join(".", pattern)]
+    $objs = srcs.collect do |src|
+      File.basename(src, ".*") + ".o"
+    end.flatten.uniq
+
+    create_makefile(pkg_name, srcdir)
+  end
+end
+
+def create_top_makefile(sub_dirs = ["src"])
+  mfile = File.open("Makefile", "w")
+  if /mswin32/ =~ RUBY_PLATFORM
+    mfile.print <<MSWIN32_END
+
+all:
+#{sub_dirs.map{|d| "	@cd #{d}\n	@nmake -nologo all\n	@cd ..\n"}.join('')}
+install:
+#{sub_dirs.map{|d| "	@cd #{d}\n	@nmake -nologo install DESTDIR=$(DESTDIR)\n	@cd ..\n"}.join('')}
+site-install:
+#{sub_dirs.map{|d| "	@cd #{d}\n	@nmake -nologo site-install DESTDIR=$(DESTDIR)\n	@cd ..\n"}.join('')}
+clean:
+#{sub_dirs.map{|d| "	@cd #{d}\n	@nmake -nologo clean\n	@cd ..\n"}.join('')}	@if exist extconf.h del extconf.h
+	@if exist conftest.* del conftest.*
+	@if exist *.lib del *.lib
+	@if exist *~ del *~
+	@if exist mkmf.log del mkmf.log
+MSWIN32_END
+  else
+    mfile.print <<END
+all:
+#{sub_dirs.map{|d| "	@cd #{d}; make all\n"}.join('')}
+
+install:
+#{sub_dirs.map{|d| "	@cd #{d}; make install\n"}.join('')}
+site-install:
+#{sub_dirs.map{|d| "	@cd #{d}; make site-install\n"}.join('')}
+clean:
+#{sub_dirs.map{|d| "	@cd #{d}; make clean\n"}.join('')}
+distclean:	clean
+#{sub_dirs.map{|d| "	@cd #{d}; make distclean\n"}.join('')}
+	@rm -f Makefile extconf.h conftest.*
+	@rm -f core *~ mkmf.log
+END
+  end
+  mfile.close
+end
+
+# This is used for the library which doesn't support version info.
+def make_version_header(app_name, pkgname, dir = "src")
+  version = PKGConfig.modversion(pkgname).split(/\./)
+  (0..2).each do |v|
+    version[v] = "0" unless version[v]
+  end
+  filename = "rb#{app_name.downcase}version.h"
+
+  puts "creating #{filename}"
+
+  add_distcleanfile(filename)
+
+  FileUtils.mkdir_p(dir)
+  out = File.open(File.join(dir, filename), "w")
+
+  out.print %Q[/* -*- c-file-style: "ruby"; indent-tabs-mode: nil -*- */
+/************************************************
+
+  #{filename} -
+
+  This file was generated by mkmf-gnome2.rb.
+
+************************************************/
+
+#ifndef __RB#{app_name}_VERSION_H__
+#define __RB#{app_name}_VERSION_H__
+
+#define #{app_name}_MAJOR_VERSION (#{version[0]})
+#define #{app_name}_MINOR_VERSION (#{version[1]})
+#define #{app_name}_MICRO_VERSION (#{version[2]})
+
+#define #{app_name}_CHECK_VERSION(major,minor,micro)    \\
+    (#{app_name}_MAJOR_VERSION > (major) || \\
+     (#{app_name}_MAJOR_VERSION == (major) && #{app_name}_MINOR_VERSION > (minor)) || \\
+     (#{app_name}_MAJOR_VERSION == (major) && #{app_name}_MINOR_VERSION == (minor) && \\
+      #{app_name}_MICRO_VERSION >= (micro)))
+
+
+#endif /* __RB#{app_name}_VERSION_H__ */
+]
+      out.close
+end
+
+def check_ruby_func
+  $CPPFLAGS << " -I$(sitearchdir) "
+
+  #Other options
+  have_func("rb_define_alloc_func") # for ruby-1.8
+  have_func("rb_block_proc") # for ruby-1.8
+
+  STDOUT.print("checking for new allocation framework... ") # for ruby-1.7
+  if Object.respond_to? :allocate
+    STDOUT.print "yes\n"
+    $defs << "-DHAVE_OBJECT_ALLOCATE"
+  else
+    STDOUT.print "no\n"
+  end
+
+  STDOUT.print("checking for attribute assignment... ") # for ruby-1.7
+  STDOUT.flush
+  if defined? try_compile and try_compile <<SRC
+#include "ruby.h"
+#include "node.h"
+int node_attrasgn = (int)NODE_ATTRASGN;
+SRC
+    STDOUT.print "yes\n"
+    $defs << "-DHAVE_NODE_ATTRASGN"
+  else
+    STDOUT.print "no\n"
+  end
+end
+
+def add_obj(name)
+  $objs << name unless $objs.index(name)
+end
+
+def glib_mkenums(prefix, files, g_type_prefix, include_files)
+  add_distcleanfile(prefix + ".h")
+  add_distcleanfile(prefix + ".c")
+  GLib::MkEnums.create(prefix, files, g_type_prefix, include_files)
+end
+
+check_ruby_func
+
+if /mingw/ =~ RUBY_PLATFORM
+  $ruby.gsub!('\\', '/')
+end
+