atk 0.90.2-x86-mingw32

data/ext/atk/rbatkutil.c

@@ -0,0 +1,125 @@
+/* -*- c-file-style: "ruby"; indent-tabs-mode: nil -*- */
+/************************************************
+
+  rbatkutil.c -
+
+  $Author: sakai $
+  $Date: 2007/07/08 02:51:52 $
+
+  Copyright (C) 2004 Masao Mutoh
+************************************************/
+
+#include "rbatk.h"
+
+static ID id_call;
+
+/* How can I implement them?
+guint       atk_add_focus_tracker           (AtkEventListener focus_tracker);
+void        atk_remove_focus_tracker        (guint tracker_id);
+void        atk_focus_tracker_init          (AtkEventListenerInit add_function);
+void        (*AtkEventListener)             (AtkObject*);
+void        (*AtkEventListenerInit)         (void);
+guint       atk_add_global_event_listener   (GSignalEmissionHook listener,
+                                             const gchar *event_type);
+void        atk_remove_global_event_listener
+                                            (guint listener_id);
+*/
+
+static VALUE
+rbatk_focus_tracker_notify(self, obj)
+    VALUE self, obj;
+{
+    atk_focus_tracker_notify(ATK_OBJECT(RVAL2GOBJ(obj)));
+    return self;
+}
+
+static gint
+key_snoop_func(AtkKeyEventStruct* event, gpointer func)
+{
+    VALUE ret = rb_funcall((VALUE)func, id_call, 7,
+                           INT2NUM(event->type), UINT2NUM(event->state),
+                           UINT2NUM(event->keyval), INT2NUM(event->length),
+                           CSTR2RVAL(event->string), UINT2NUM(event->keycode),
+                           UINT2NUM(event->timestamp));
+    return NUM2INT(ret);
+}
+
+static VALUE
+rbatk_add_key_event_listener(self)
+    VALUE self;
+{
+    guint ret;
+    VALUE func = rb_block_proc();
+    G_RELATIVE(self, func);
+    ret = atk_add_key_event_listener((AtkKeySnoopFunc)key_snoop_func, (gpointer)func);
+    return UINT2NUM(ret);
+}
+
+static VALUE
+rbatk_remove_key_event_listener(self, id)
+    VALUE self, id;
+{
+    atk_remove_key_event_listener(NUM2UINT(id));
+    return self;
+}
+
+static VALUE
+rbatk_get_root(self)
+    VALUE self;
+{
+    return GOBJ2RVAL(atk_get_root());
+}
+
+#if ATK_CHECK_VERSION(1,6,0)
+static VALUE
+rbatk_get_focus_object(self)
+    VALUE self;
+{
+    return GOBJ2RVAL(atk_get_focus_object());
+}
+#endif
+
+static VALUE
+rbatk_get_toolkit_name(self)
+    VALUE self;
+{
+    return CSTR2RVAL(atk_get_toolkit_name());
+}
+
+static VALUE
+rbatk_get_toolkit_version(self)
+    VALUE self;
+{
+    return CSTR2RVAL(atk_get_toolkit_version());
+}
+
+void
+Init_atk_util()
+{
+    VALUE coord;
+
+    VALUE util = G_DEF_CLASS(ATK_TYPE_UTIL, "Util", mAtk);
+
+    id_call = rb_intern("call");
+
+    rb_define_singleton_method(util, "focus_tracker_notify", rbatk_focus_tracker_notify, 1);
+    rb_define_singleton_method(util, "add_key_event_listener", rbatk_add_key_event_listener, 0);
+    rb_define_singleton_method(util, "remove_key_event_listener", rbatk_remove_key_event_listener, 1);
+
+    rb_define_singleton_method(util, "root", rbatk_get_root, 0);
+#if ATK_CHECK_VERSION(1,6,0)
+    rb_define_singleton_method(util, "focus_object", rbatk_get_focus_object, 0);
+#endif
+    rb_define_singleton_method(util, "toolkit_name", rbatk_get_toolkit_name, 0);
+    rb_define_singleton_method(util, "toolkit_version", rbatk_get_toolkit_version, 0);
+    rb_define_singleton_method(util, "toolkit_version", rbatk_get_toolkit_version, 0);
+
+    /* AtkCoordType */
+    coord = G_DEF_CLASS(ATK_TYPE_COORD_TYPE, "CoordType", util);
+    G_DEF_CONSTANTS(util, ATK_TYPE_COORD_TYPE, "ATK_");
+
+    /* AtkKeyEventType */
+    coord = G_DEF_CLASS(ATK_TYPE_KEY_EVENT_TYPE, "KeyEventType", util);
+    G_DEF_CONSTANTS(util, ATK_TYPE_KEY_EVENT_TYPE, "ATK_");
+
+}

data/ext/atk/rbatkvalue.c

@@ -0,0 +1,74 @@
+/* -*- c-file-style: "ruby"; indent-tabs-mode: nil -*- */
+/************************************************
+
+  rbatkvalue.c -
+
+  $Author: mutoh $
+  $Date: 2003/12/23 15:59:28 $
+
+  Copyright (C) 2003 Masao Mutoh
+************************************************/
+
+#include "rbatk.h"
+
+#define _SELF(s) (ATK_VALUE(RVAL2GOBJ(s)))
+
+static VALUE
+rbatk_value_get_current_value(self)
+    VALUE self;
+{
+    GValue gval = {0,};
+    atk_value_get_current_value(_SELF(self), &gval);
+
+    return GVAL2RVAL(&gval);
+}
+
+
+static VALUE
+rbatk_value_get_maximum_value(self)
+    VALUE self;
+{
+    GValue gval = {0,};
+    atk_value_get_maximum_value(_SELF(self), &gval);
+
+    return GVAL2RVAL(&gval);
+}
+
+static VALUE
+rbatk_value_get_minimum_value(self)
+    VALUE self;
+{
+    GValue gval = {0,};
+    atk_value_get_minimum_value(_SELF(self), &gval);
+
+    return GVAL2RVAL(&gval);
+}
+
+static VALUE
+rbatk_value_set_current_value(self, value)
+    VALUE self, value;
+{
+    GValue gval = {0,};
+    g_value_init(&gval, RVAL2GTYPE(value));
+
+    rbgobj_rvalue_to_gvalue(value, &gval);
+
+    if (! atk_value_set_current_value(_SELF(self), &gval)){
+        rb_raise(rb_eRuntimeError, "Can't set the current value.");
+    }
+
+    return self;
+}
+
+void
+Init_atk_value()
+{
+    VALUE mValue = G_DEF_INTERFACE(ATK_TYPE_VALUE, "Value", mAtk);
+
+    rb_define_method(mValue, "current", rbatk_value_get_current_value, 0);
+    rb_define_method(mValue, "max", rbatk_value_get_maximum_value, 0);
+    rb_define_method(mValue, "min", rbatk_value_get_minimum_value, 0);
+    rb_define_method(mValue, "set_current", rbatk_value_set_current_value, 1);
+
+    G_DEF_SETTERS(mValue);
+}

data/ext/atk/rbatkversion.h

@@ -0,0 +1,24 @@
+/* -*- c-file-style: "ruby"; indent-tabs-mode: nil -*- */
+/************************************************
+
+  rbatkversion.h -
+
+  This file was generated by mkmf-gnome2.rb.
+
+************************************************/
+
+#ifndef __RBATK_VERSION_H__
+#define __RBATK_VERSION_H__
+
+#define ATK_MAJOR_VERSION (1)
+#define ATK_MINOR_VERSION (22)
+#define ATK_MICRO_VERSION (0)
+
+#define ATK_CHECK_VERSION(major,minor,micro)    \
+    (ATK_MAJOR_VERSION > (major) || \
+     (ATK_MAJOR_VERSION == (major) && ATK_MINOR_VERSION > (minor)) || \
+     (ATK_MAJOR_VERSION == (major) && ATK_MINOR_VERSION == (minor) && \
+      ATK_MICRO_VERSION >= (micro)))
+
+
+#endif /* __RBATK_VERSION_H__ */

data/extconf.rb

@@ -0,0 +1,49 @@
+#!/usr/bin/env ruby
+
+require 'pathname'
+require 'mkmf'
+require 'rbconfig'
+require 'fileutils'
+
+package = "atk"
+
+base_dir = Pathname(__FILE__).dirname.expand_path
+ext_dir = base_dir + "ext" + package
+mkmf_gnome2_dir = base_dir + 'lib'
+
+ruby = File.join(RbConfig::CONFIG['bindir'],
+                 RbConfig::CONFIG['ruby_install_name'] +
+                 RbConfig::CONFIG["EXEEXT"])
+
+build_dir = Pathname("ext") + package
+FileUtils.mkdir_p(build_dir.to_s) unless build_dir.exist?
+extconf_rb_path = ext_dir + "extconf.rb"
+system(ruby, "-C", build_dir.to_s, extconf_rb_path.to_s, *ARGV) || exit(false)
+
+create_makefile(package)
+FileUtils.mv("Makefile", "Makefile.lib")
+
+File.open("Makefile", "w") do |makefile|
+  makefile.puts(<<-EOM)
+all:
+	(cd ext/#{package} && $(MAKE))
+	$(MAKE) -f Makefile.lib
+
+install:
+	(cd ext/#{package} && $(MAKE) install)
+	$(MAKE) -f Makefile.lib install
+
+site-install:
+	(cd ext/#{package} && $(MAKE) site-install)
+	$(MAKE) -f Makefile.lib site-install
+
+clean:
+	(cd ext/#{package} && $(MAKE) clean)
+	$(MAKE) -f Makefile.lib clean
+
+distclean:
+	(cd ext/#{package} && $(MAKE) distclean)
+	$(MAKE) -f Makefile.lib distclean
+	@rm -f Makefile.lib
+EOM
+end

data/lib/atk.rb

@@ -0,0 +1,12 @@
+require 'glib2'
+
+base_dir = Pathname.new(__FILE__).dirname.dirname.expand_path
+vendor_dir = base_dir + "vendor" + "local"
+vendor_bin_dir = vendor_dir + "bin"
+GLib.prepend_environment_path(vendor_bin_dir)
+begin
+  major, minor, micro, = RUBY_VERSION.split(/\./)
+  require "#{major}.#{minor}/atk.so"
+rescue LoadError
+  require 'atk.so'
+end

data/vendor/local/bin/gettext.sh

@@ -0,0 +1,123 @@
+#! /bin/sh
+#
+# Copyright (C) 2003, 2005-2007 Free Software Foundation, Inc.
+#
+# This program 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, or (at your option)
+# any later version.
+#
+# This program 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 General Public License for more details.
+#
+# You should have received a copy of the GNU Library General Public
+# License along with this program; if not, write to the Free Software
+# Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301,
+# USA.
+#
+
+# Find a way to echo strings without interpreting backslash.
+if test "X`(echo '\t') 2>/dev/null`" = 'X\t'; then
+  echo='echo'
+else
+  if test "X`(printf '%s\n' '\t') 2>/dev/null`" = 'X\t'; then
+    echo='printf %s\n'
+  else
+    echo_func () {
+      cat <<EOT
+$*
+EOT
+    }
+    echo='echo_func'
+  fi
+fi
+
+# This script is primarily a shell function library. In order for
+# ". gettext.sh" to find it, we install it in $PREFIX/bin (that is usually
+# contained in $PATH), rather than in some other location such as
+# $PREFIX/share/sh-scripts or $PREFIX/share/gettext. In order to not violate
+# the Filesystem Hierarchy Standard when doing so, this script is executable.
+# Therefore it needs to support the standard --help and --version.
+if test -z "$ZSH_VERSION"; then
+  # zsh is not POSIX compliant: By default, while ". gettext.sh" is executed,
+  # it sets $0 to "gettext.sh", defeating the purpose of this test. But
+  # fortunately we know that when running under zsh, this script is always
+  # being sourced, not executed, because hardly anyone is crazy enough to
+  # install zsh as /bin/sh.
+  case "$0" in
+    gettext.sh | */gettext.sh | *\\gettext.sh)
+      progname=$0
+      package=gettext-runtime
+      version=0.18.1
+      # func_usage
+      # outputs to stdout the --help usage message.
+      func_usage ()
+      {
+        echo "GNU gettext shell script function library version $version"
+        echo "Usage: . gettext.sh"
+      }
+      # func_version
+      # outputs to stdout the --version message.
+      func_version ()
+      {
+        echo "$progname (GNU $package) $version"
+        echo "Copyright (C) 2003-2007 Free Software Foundation, Inc.
+License GPLv2+: GNU GPL version 2 or later <http://gnu.org/licenses/gpl.html>
+This is free software: you are free to change and redistribute it.
+There is NO WARRANTY, to the extent permitted by law."
+        echo "Written by" "Bruno Haible"
+      }
+      if test $# = 1; then
+        case "$1" in
+          --help | --hel | --he | --h )
+            func_usage; exit 0 ;;
+          --version | --versio | --versi | --vers | --ver | --ve | --v )
+            func_version; exit 0 ;;
+        esac
+      fi
+      func_usage 1>&2
+      exit 1
+      ;;
+  esac
+fi
+
+# eval_gettext MSGID
+# looks up the translation of MSGID and substitutes shell variables in the
+# result.
+eval_gettext () {
+  gettext "$1" | (export PATH `envsubst --variables "$1"`; envsubst "$1")
+}
+
+# eval_ngettext MSGID MSGID-PLURAL COUNT
+# looks up the translation of MSGID / MSGID-PLURAL for COUNT and substitutes
+# shell variables in the result.
+eval_ngettext () {
+  ngettext "$1" "$2" "$3" | (export PATH `envsubst --variables "$1 $2"`; envsubst "$1 $2")
+}
+
+# Note: This use of envsubst is much safer than using the shell built-in 'eval'
+# would be.
+# 1) The security problem with Chinese translations that happen to use a
+#    character such as \xe0\x60 is avoided.
+# 2) The security problem with malevolent translators who put in command lists
+#    like "$(...)" or "`...`" is avoided.
+# 3) The translations can only refer to shell variables that are already
+#    mentioned in MSGID or MSGID-PLURAL.
+#
+# Note: "export PATH" above is a dummy; this is for the case when
+# `envsubst --variables ...` returns nothing.
+#
+# Note: In eval_ngettext above, "$1 $2" means a string whose variables set is
+# the union of the variables set of "$1" and "$2".
+#
+# Note: The minimal use of backquote above ensures that trailing newlines are
+# not dropped, not from the gettext invocation and not from the value of any
+# shell variable.
+#
+# Note: Field splitting on the `envsubst --variables ...` result is desired,
+# since envsubst outputs the variables, separated by newlines. Pathname
+# wildcard expansion or tilde expansion has no effect here, since the words
+# output by "envsubst --variables ..." consist solely of alphanumeric
+# characters and underscore.

data/vendor/local/bin/glib-gettextize

@@ -0,0 +1,188 @@
+#! /bin/sh
+#
+# Copyright (C) 1995-1998, 2000, 2001 Free Software Foundation, Inc.
+#
+# This program is free software; you can redistribute it and/or modify
+# it under the terms of the GNU General Public License as published by
+# the Free Software Foundation; either version 2, or (at your option)
+# any later version.
+#
+# This program 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 General Public License for more details.
+#
+# You should have received a copy of the GNU General Public License
+# along with this program; if not, write to the Free Software
+# Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
+#
+
+# - Modified in October 2001 by jacob berkman <jacob@ximian.com> to
+# work with glib's Makefile.in.in and po2tbl.sed.in, to not copy in
+# intl/, and to not add ChangeLog entries to po/ChangeLog
+
+# This file is meant for authors or maintainers which want to
+# internationalize their package with the help of GNU gettext.  For
+# further information how to use it consult the GNU gettext manual.
+
+echo=echo
+progname=$0
+force=0
+configstatus=0
+origdir=`pwd`
+usage="\
+Usage: glib-gettextize [OPTION]... [package-dir]
+      --help           print this help and exit
+      --version        print version information and exit
+  -c, --copy           copy files instead of making symlinks
+  -f, --force          force writing of new files even if old exist
+Report bugs to http://bugzilla.gnome.org/."
+package=glib
+version=2.24.2
+try_ln_s=:
+
+# Directory where the sources are stored.
+prefix=c:/devel/target/fd56e00a6de2dc0ebdb82aea42c4eec0
+case `uname` in
+MINGW32*)
+    prefix="`dirname $0`/.."
+    ;;
+esac
+
+datadir=${datarootdir}
+datarootdir=${prefix}/share
+
+gettext_dir=$prefix/share/glib-2.0/gettext
+
+while test $# -gt 0; do
+  case "$1" in
+    -c | --copy | --c* )
+      shift
+      try_ln_s=false ;;
+    -f | --force | --f* )
+      shift
+      force=1 ;;
+    -r | --run | --r* )
+      shift
+      configstatus=1 ;;
+    --help | --h* )
+      $echo "$usage"; exit 0 ;;
+    --version | --v* )
+      echo "$progname (GNU $package) $version"
+      $echo "Copyright (C) 1995-1998, 2000, 2001 Free Software Foundation, Inc.
+This is free software; see the source for copying conditions.  There is NO
+warranty; not even for MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE."
+      $echo "Written by" "Ulrich Drepper"
+      exit 0 ;;
+    -- )	# Stop option prcessing
+      shift; break ;;
+    -* )
+      $echo "glib-gettextize: unknown option $1"
+      $echo "Try \`glib-gettextize --help' for more information."; exit 1 ;;
+    * )
+      break ;;
+  esac
+done
+
+if test $# -gt 1; then
+  $echo "$usage"
+  exit 1
+fi
+
+# Fill in the command line options value.
+if test $# -eq 1; then
+  srcdir=$1
+  if cd "$srcdir"; then
+    srcdir=`pwd`
+  else
+    $echo "Cannot change directory to \`$srcdir'"
+    exit 1
+  fi
+else
+  srcdir=$origdir
+fi
+
+test -f configure.in || test -f configure.ac || {
+  $echo "Missing configure.in or configure.ac, please cd to your package first."
+  exit 1
+}
+
+configure_in=NONE
+if test -f configure.in; then
+  configure_in=configure.in
+else
+  if test -f configure.ac; then
+    configure_in=configure.ac
+  fi
+fi
+# Check in which directory config.rpath, mkinstalldirs etc. belong.
+auxdir=`cat "$configure_in" | grep '^AC_CONFIG_AUX_DIR' | sed -n -e 's/AC_CONFIG_AUX_DIR(\([^()]*\))/\1/p' | sed -e 's/^\[\(.*\)\]$/\1/' | sed -e 1q`
+if test -n "$auxdir"; then
+  auxdir="$auxdir/"
+fi
+
+if test -f po/Makefile.in.in && test $force -eq 0; then
+  $echo "\
+po/Makefile.in.in exists: use option -f if you really want to delete it."
+  exit 1
+fi
+
+test -d po || {
+  $echo "Creating po/ subdirectory"
+  mkdir po || {
+    $echo "failed to create po/ subdirectory"
+    exit 1
+  }
+}
+
+# For simplicity we changed to the gettext source directory.
+cd $gettext_dir || {
+   $echo "gettext source directory '${gettext_dir}' doesn't exist"
+   exit 1
+}
+
+# Now copy all files.  Take care for the destination directories.
+for file in *; do
+  case $file in
+    intl | po)
+      ;;
+    mkinstalldirs)
+      rm -f "$srcdir/$auxdir$file"
+      ($try_ln_s && ln -s $gettext_dir/$file "$srcdir/$auxdir$file" && $echo "Symlinking file $file") 2>/dev/null ||
+      { $echo "Copying file $file"; cp $file "$srcdir/$auxdir$file"; }
+      ;;
+    *)
+      rm -f "$srcdir/$file"
+      ($try_ln_s && ln -s $gettext_dir/$file "$srcdir/$file" && $echo "Symlinking file $file") 2>/dev/null ||
+      { $echo "Copying file $file"; cp $file "$srcdir/$file"; }
+      ;;
+  esac
+done
+
+# Copy files to po/ subdirectory.
+cd po
+for file in *; do
+  rm -f "$srcdir/po/$file"
+  ($try_ln_s && ln -s $gettext_dir/po/$file "$srcdir/po/$file" && $echo "Symlinking file po/$file") 2>/dev/null ||
+  { $echo "Copying file po/$file"; cp $file "$srcdir/po/$file"; }
+done
+if test -f "$srcdir/po/cat-id-tbl.c"; then
+  $echo "Removing po/cat-id-tbl.c"
+  rm -f "$srcdir/po/cat-id-tbl.c"
+fi
+if test -f "$srcdir/po/stamp-cat-id"; then
+  $echo "Removing po/stamp-cat-id"
+  rm -f "$srcdir/po/stamp-cat-id"
+fi
+
+echo
+echo "Please add the files"
+echo "  codeset.m4 gettext.m4 glibc21.m4 iconv.m4 isc-posix.m4 lcmessage.m4"
+echo "  progtest.m4"
+echo "from the $datadir/aclocal directory to your autoconf macro directory"
+echo "or directly to your aclocal.m4 file."
+echo "You will also need config.guess and config.sub, which you can get from"
+echo "ftp://ftp.gnu.org/pub/gnu/config/."
+echo
+
+exit 0