pango 2.2.4-x64-mingw32

data/ext/pango/rbpangoprivate.h

@@ -0,0 +1,49 @@
+#ifndef RB_PANGO_PRIVATE_H
+#define RB_PANGO_PRIVATE_H
+
+#include "rbpango.h"
+
+#ifndef HAVE_RB_ERRINFO
+#  define rb_errinfo() (ruby_errinfo)
+#endif
+
+G_BEGIN_DECLS
+
+G_GNUC_INTERNAL void Init_pango_analysis(VALUE mPango);
+G_GNUC_INTERNAL void Init_pango_attribute(VALUE mPango);
+G_GNUC_INTERNAL void Init_pango_attriterator(VALUE mPango);
+G_GNUC_INTERNAL void Init_pango_attrlist(VALUE mPango);
+G_GNUC_INTERNAL void Init_pango_cairo(VALUE mPango);
+G_GNUC_INTERNAL void Init_pango_cairo_context(VALUE mPango);
+G_GNUC_INTERNAL void Init_pango_color(VALUE mPango);
+G_GNUC_INTERNAL void Init_pango_context(VALUE mPango);
+G_GNUC_INTERNAL void Init_pango_coverage(VALUE mPango);
+G_GNUC_INTERNAL void Init_pango_engine(VALUE mPango);
+G_GNUC_INTERNAL void Init_pango_font(VALUE mPango);
+G_GNUC_INTERNAL void Init_pango_font_description(VALUE mPango);
+G_GNUC_INTERNAL void Init_pango_font_face(VALUE mPango);
+G_GNUC_INTERNAL void Init_pango_font_family(VALUE mPango);
+G_GNUC_INTERNAL void Init_pango_font_map(VALUE mPango);
+G_GNUC_INTERNAL void Init_pango_font_metrics(VALUE mPango);
+G_GNUC_INTERNAL void Init_pango_fontset(VALUE mPango);
+G_GNUC_INTERNAL void Init_pango_fontset_simple(VALUE mPango);
+G_GNUC_INTERNAL void Init_pango_glyph_info(VALUE mPango);
+G_GNUC_INTERNAL void Init_pango_glyph_item(VALUE mPango);
+G_GNUC_INTERNAL void Init_pango_glyph_string(VALUE mPango);
+G_GNUC_INTERNAL void Init_pango_gravity(VALUE mPango);
+G_GNUC_INTERNAL void Init_pango_item(VALUE mPango);
+G_GNUC_INTERNAL void Init_pango_language(VALUE mPango);
+G_GNUC_INTERNAL void Init_pango_layout(VALUE mPango);
+G_GNUC_INTERNAL void Init_pango_layout_iter(VALUE mPango);
+G_GNUC_INTERNAL void Init_pango_layout_line(VALUE mPango);
+G_GNUC_INTERNAL void Init_pango_logattr(VALUE mPango);
+G_GNUC_INTERNAL void Init_pango_matrix(VALUE mPango);
+G_GNUC_INTERNAL void Init_pango_rectangle(VALUE mPango);
+G_GNUC_INTERNAL void Init_pangorenderer(VALUE mPango);
+G_GNUC_INTERNAL void Init_pango_script(VALUE mPango);
+G_GNUC_INTERNAL void Init_pango_script_iter(VALUE mPango);
+G_GNUC_INTERNAL void Init_pango_array(VALUE mPango);
+
+G_END_DECLS
+
+#endif /* RB_PANGO_PRIVATE_H */

data/ext/pango/rbpangorectangle.c

@@ -0,0 +1,170 @@
+/* -*- c-file-style: "ruby"; indent-tabs-mode: nil -*- */
+/*
+ *  Copyright (C) 2011  Ruby-GNOME2 Project Team
+ *  Copyright (C) 2002,2003 Masao Mutoh
+ *
+ *  This library is free software; you can redistribute it and/or
+ *  modify it under the terms of the GNU Lesser General Public
+ *  License as published by the Free Software Foundation; either
+ *  version 2.1 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
+ *  Lesser General Public License for more details.
+ *
+ *  You should have received a copy of the GNU Lesser General Public
+ *  License along with this library; if not, write to the Free Software
+ *  Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston,
+ *  MA  02110-1301  USA
+ */
+
+#include "rbpangoprivate.h"
+
+#define RG_TARGET_NAMESPACE cRectangle
+#define _SELF(s) (RVAL2PANGORECTANGLE(s))
+
+/**********************************/
+static PangoRectangle*
+pango_rectangle_copy(const PangoRectangle *ref)
+{
+  PangoRectangle* new_ref;
+  g_return_val_if_fail (ref != NULL, NULL);
+  new_ref = g_new(PangoRectangle, 1);
+  *new_ref = *ref;
+  return new_ref;
+}
+
+GType
+pango_rectangle_get_type(void)
+{
+    static GType our_type = 0;
+
+    if (our_type == 0)
+        our_type = g_boxed_type_register_static ("PangoRectangle",
+                    (GBoxedCopyFunc)pango_rectangle_copy,
+                    (GBoxedFreeFunc)g_free);
+    return our_type;
+}
+/**********************************/
+
+static VALUE
+rg_initialize(VALUE self, VALUE x, VALUE y, VALUE width, VALUE height)
+{
+    PangoRectangle rectangle;
+
+    rectangle.x = NUM2INT(x);
+    rectangle.y = NUM2INT(y);
+    rectangle.width = NUM2INT(width);
+    rectangle.height = NUM2INT(height);
+
+    G_INITIALIZE(self, g_boxed_copy(PANGO_TYPE_RECTANGLE, &rectangle));
+    return Qnil;
+}
+
+static VALUE
+rg_x(VALUE self)
+{
+    return INT2NUM(_SELF(self)->x);
+}
+
+static VALUE
+rg_y(VALUE self)
+{
+    return INT2NUM(_SELF(self)->y);
+}
+
+static VALUE
+rg_width(VALUE self)
+{
+    return INT2NUM(_SELF(self)->width);
+}
+
+static VALUE
+rg_height(VALUE self)
+{
+    return INT2NUM(_SELF(self)->height);
+}
+
+static VALUE
+rg_set_x(VALUE self, VALUE x)
+{
+    _SELF(self)->x = NUM2INT(x);
+    return self;
+}
+
+static VALUE
+rg_set_y(VALUE self, VALUE y)
+{
+    _SELF(self)->y = NUM2INT(y);
+    return self;
+}
+static VALUE
+rg_set_width(VALUE self, VALUE width)
+{
+    _SELF(self)->width = NUM2INT(width);
+    return self;
+}
+
+static VALUE
+rg_set_height(VALUE self, VALUE height)
+{
+    _SELF(self)->height = NUM2INT(height);
+    return self;
+}
+static VALUE
+rg_to_a(VALUE self)
+{
+  PangoRectangle* a = _SELF(self);
+  return rb_ary_new3(4, INT2FIX(a->x), INT2FIX(a->y),
+                     INT2FIX(a->width), INT2FIX(a->height));
+}
+
+static VALUE
+rg_ascent(VALUE self)
+{
+    PangoRectangle* r =_SELF(self);
+    return INT2NUM(PANGO_ASCENT(*r));
+}
+
+static VALUE
+rg_descent(VALUE self)
+{
+    PangoRectangle* r =_SELF(self);
+    return INT2NUM(PANGO_DESCENT(*r));
+}
+
+static VALUE
+rg_lbearing(VALUE self)
+{
+    PangoRectangle* r =_SELF(self);
+    return INT2NUM(PANGO_LBEARING(*r));
+}
+
+static VALUE
+rg_rbearing(VALUE self)
+{
+    PangoRectangle* r =_SELF(self);
+    return INT2NUM(PANGO_RBEARING(*r));
+}
+
+void
+Init_pango_rectangle(VALUE mPango)
+{
+    VALUE RG_TARGET_NAMESPACE = G_DEF_CLASS(PANGO_TYPE_RECTANGLE, "Rectangle", mPango);
+    RG_DEF_METHOD(initialize, 4);
+    RG_DEF_METHOD(x, 0);
+    RG_DEF_METHOD(y, 0);
+    RG_DEF_METHOD(width, 0);
+    RG_DEF_METHOD(height, 0);
+    RG_DEF_METHOD(set_x, 1);
+    RG_DEF_METHOD(set_y, 1);
+    RG_DEF_METHOD(set_width, 1);
+    RG_DEF_METHOD(set_height, 1);
+    RG_DEF_METHOD(to_a, 0);
+
+    RG_DEF_METHOD(ascent, 0);
+    RG_DEF_METHOD(descent, 0);
+    RG_DEF_METHOD(lbearing, 0);
+    RG_DEF_METHOD(rbearing, 0);
+}

data/ext/pango/rbpangorenderer.c

@@ -0,0 +1,193 @@
+/* -*- c-file-style: "ruby"; indent-tabs-mode: nil -*- */
+/*
+ *  Copyright (C) 2011  Ruby-GNOME2 Project Team
+ *  Copyright (C) 2005  Masao Mutoh
+ *
+ *  This library is free software; you can redistribute it and/or
+ *  modify it under the terms of the GNU Lesser General Public
+ *  License as published by the Free Software Foundation; either
+ *  version 2.1 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
+ *  Lesser General Public License for more details.
+ *
+ *  You should have received a copy of the GNU Lesser General Public
+ *  License along with this library; if not, write to the Free Software
+ *  Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston,
+ *  MA  02110-1301  USA
+ */
+
+#include "rbpangoprivate.h"
+
+#define RG_TARGET_NAMESPACE cRenderer
+#define _SELF(self) (RVAL2PANGORENDERER(self))
+
+static VALUE
+rg_draw_layout(VALUE self, VALUE layout, VALUE x, VALUE y)
+{
+    pango_renderer_draw_layout(_SELF(self), 
+                               RVAL2PANGOLAYOUT(layout),
+                               NUM2INT(x), NUM2INT(y));
+    return self;
+}
+
+static VALUE
+rg_draw_layout_line(VALUE self, VALUE line, VALUE x, VALUE y)
+{
+    pango_renderer_draw_layout_line(_SELF(self),  
+                                    RVAL2PANGOLAYOUTLINE(line),
+                                    NUM2INT(x), NUM2INT(y));
+    return self;
+}
+
+static VALUE
+rg_draw_glyphs(VALUE self, VALUE font, VALUE glyphs, VALUE x, VALUE y)
+{
+    pango_renderer_draw_glyphs(_SELF(self),
+                               RVAL2PANGOFONT(font),
+                               RVAL2PANGOGLYPHSTRING(glyphs),
+                               NUM2INT(x), NUM2INT(y));
+    return self;
+}
+
+static VALUE
+rg_draw_rectangle(VALUE self, VALUE part, VALUE x, VALUE y, VALUE width, VALUE height)
+{
+#ifdef HAVE_PANGO_RENDER_PART_GET_TYPE
+    pango_renderer_draw_rectangle(_SELF(self), RVAL2PANGORENDERPART(part),
+                                  NUM2INT(x), NUM2INT(y), NUM2INT(width), NUM2INT(height));
+#else
+    pango_renderer_draw_rectangle(_SELF(self), NUM2INT(part),
+                                  NUM2INT(x), NUM2INT(y), NUM2INT(width), NUM2INT(height));
+#endif
+    return self;
+}
+
+static VALUE
+rg_draw_error_underline(VALUE self, VALUE x, VALUE y, VALUE width, VALUE height)
+{
+    pango_renderer_draw_error_underline(_SELF(self),
+                                        NUM2INT(x), NUM2INT(y), NUM2INT(width), NUM2INT(height));
+    return self;
+}
+
+static VALUE
+rg_draw_trapezoid(VALUE self, VALUE part, VALUE y1, VALUE x11, VALUE x21, VALUE y2, VALUE x12, VALUE x22)
+{
+#ifdef HAVE_PANGO_RENDER_PART_GET_TYPE
+    pango_renderer_draw_trapezoid(_SELF(self), 
+                                  RVAL2PANGORENDERPART(part),
+                                  NUM2DBL(y1), NUM2DBL(x11), NUM2DBL(x21),
+                                  NUM2DBL(y2), NUM2DBL(x12), NUM2DBL(x22));
+#else
+    pango_renderer_draw_trapezoid(_SELF(self), NUM2INT(part),
+                                  NUM2DBL(y1), NUM2DBL(x11), NUM2DBL(x21),
+                                  NUM2DBL(y2), NUM2DBL(x12), NUM2DBL(x22));
+#endif
+    return self;
+}
+
+static VALUE
+rg_draw_glyph(VALUE self, VALUE font, VALUE glyph, VALUE x, VALUE y)
+{
+    pango_renderer_draw_glyph(_SELF(self), RVAL2PANGOFONT(font),
+                              NUM2INT(glyph), NUM2INT(x), NUM2INT(y));
+    return self;
+}
+
+static VALUE
+rg_deactivate(VALUE self)
+{
+    pango_renderer_deactivate(_SELF(self));
+    return self;
+}
+
+static VALUE
+rg_activate(VALUE self)
+{
+    pango_renderer_activate(_SELF(self));
+    if (rb_block_given_p()) {
+        rb_ensure(rb_yield, self, rg_deactivate, self);
+    }
+    return self;
+}
+
+static VALUE
+rg_part_changed(VALUE self, VALUE part)
+{
+#ifdef HAVE_PANGO_RENDER_PART_GET_TYPE
+    pango_renderer_part_changed(_SELF(self), RVAL2PANGORENDERPART(part));
+#else
+    pango_renderer_part_changed(_SELF(self), NUM2INT(part));
+#endif
+    return self;
+}
+
+static VALUE
+rg_set_color(VALUE self, VALUE part, VALUE color)
+{
+#ifdef HAVE_PANGO_RENDER_PART_GET_TYPE
+    pango_renderer_set_color(_SELF(self), RVAL2PANGORENDERPART(part),
+                             NIL_P(color) ? NULL : RVAL2PANGOCOLOR(color));
+#else
+    pango_renderer_set_color(_SELF(self), NUM2INT(part),
+                             NIL_P(color) ? NULL : RVAL2PANGOCOLOR(color));
+#endif
+    return self;
+}
+
+static VALUE
+rg_get_color(VALUE self, VALUE part)
+{
+#ifdef HAVE_PANGO_RENDER_PART_GET_TYPE
+    PangoColor* color = pango_renderer_get_color(_SELF(self),
+                                                 RVAL2PANGORENDERPART(part));
+#else
+    PangoColor* color = pango_renderer_get_color(_SELF(self),NUM2INT(part));
+#endif
+    return PANGOCOLOR2RVAL(color);
+}
+
+static VALUE
+rg_set_matrix(VALUE self, VALUE matrix)
+{
+    pango_renderer_set_matrix(_SELF(self), 
+                              NIL_P(matrix) ? NULL : RVAL2PANGOMATRIX(matrix));
+    return self;
+}
+
+static VALUE
+rg_matrix(VALUE self)
+{
+    const PangoMatrix* matrix = pango_renderer_get_matrix(_SELF(self));
+    return PANGOMATRIX2RVAL((PangoMatrix*)matrix);
+}
+
+void
+Init_pangorenderer(VALUE mPango)
+{
+    VALUE RG_TARGET_NAMESPACE = G_DEF_CLASS(PANGO_TYPE_RENDERER, "Renderer", mPango);
+
+    RG_DEF_METHOD(draw_layout, 3);
+    RG_DEF_METHOD(draw_layout_line, 3);
+    RG_DEF_METHOD(draw_glyphs, 4);
+    RG_DEF_METHOD(draw_rectangle, 5);
+    RG_DEF_METHOD(draw_error_underline, 4);
+    RG_DEF_METHOD(draw_trapezoid, 7);
+    RG_DEF_METHOD(draw_glyph, 4);
+    RG_DEF_METHOD(activate, 0);
+    RG_DEF_METHOD(deactivate, 0); 
+    RG_DEF_METHOD(part_changed, 1);
+    RG_DEF_METHOD(set_color, 2);
+    RG_DEF_METHOD(get_color, 1);
+    RG_DEF_METHOD(set_matrix, 1);
+    RG_DEF_METHOD(matrix, 0);
+
+    /* PangoRenderPart */
+#ifdef HAVE_PANGO_RENDER_PART_GET_TYPE
+    G_DEF_CLASS(PANGO_TYPE_RENDER_PART, "Part", RG_TARGET_NAMESPACE);
+    G_DEF_CONSTANTS(RG_TARGET_NAMESPACE, PANGO_TYPE_RENDER_PART, "PANGO_RENDER_");
+#endif
+}

data/ext/pango/rbpangoscript.c

@@ -0,0 +1,84 @@
+/* -*- c-file-style: "ruby"; indent-tabs-mode: nil -*- */
+/*
+ *  Copyright (C) 2011  Ruby-GNOME2 Project Team
+ *  Copyright (C) 2005  Masao Mutoh
+ *
+ *  This library is free software; you can redistribute it and/or
+ *  modify it under the terms of the GNU Lesser General Public
+ *  License as published by the Free Software Foundation; either
+ *  version 2.1 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
+ *  Lesser General Public License for more details.
+ *
+ *  You should have received a copy of the GNU Lesser General Public
+ *  License along with this library; if not, write to the Free Software
+ *  Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston,
+ *  MA  02110-1301  USA
+ */
+
+#include "rbpangoprivate.h"
+
+#define RG_TARGET_NAMESPACE cScript
+#define _SELF(r) (RVAL2PANGOSCRIPT(r))
+
+static VALUE
+rg_s_for_unichar(G_GNUC_UNUSED VALUE self, VALUE ch)
+{
+    return PANGOSCRIPT2RVAL(pango_script_for_unichar(NUM2UINT(ch)));
+}
+
+static VALUE
+rg_sample_language(VALUE self)
+{
+    PangoLanguage* lang = pango_script_get_sample_language(_SELF(self));
+    return PANGOLANGUAGE2RVAL(lang);
+}
+
+#if PANGO_CHECK_VERSION(1,16,0)
+static VALUE
+rg_get_gravity(int argc, VALUE *argv, VALUE self)
+{
+    VALUE wide, gravity, gravity_hint;
+    int n;
+    PangoGravity g;
+
+    n = rb_scan_args(argc, argv, "21", &gravity, &gravity_hint, &wide);
+
+    if (n == 2) {
+        g = pango_gravity_get_for_script(_SELF(self),
+                                         RVAL2PANGOGRAVITY(gravity),
+                                         RVAL2PANGOGRAVITYHINT(gravity_hint));
+    } else {
+#  if PANGO_CHECK_VERSION(1,26,0)
+        g = pango_gravity_get_for_script_and_width(_SELF(self),
+                                                   RVAL2CBOOL(wide),
+                                                   RVAL2PANGOGRAVITY(gravity),
+                                                   RVAL2PANGOGRAVITYHINT(gravity_hint));
+#  else
+        rb_raise(rb_eArgError,
+                 "the 3rd 'wide' argument requires Pango >= 1.26");
+#  endif
+    }
+    return PANGOGRAVITY2RVAL(g);
+}
+#endif
+
+/* Move to Pango::Language
+gboolean    pango_language_includes_script  (PangoLanguage *language,
+                                             PangoScript script);
+*/
+
+void
+Init_pango_script(VALUE mPango)
+{
+    VALUE RG_TARGET_NAMESPACE = G_DEF_CLASS(PANGO_TYPE_SCRIPT, "Script", mPango);
+
+    RG_DEF_SMETHOD(for_unichar, 1);
+    RG_DEF_METHOD(sample_language, 0);
+#if PANGO_CHECK_VERSION(1,16,0)
+    RG_DEF_METHOD(get_gravity, -1);
+#endif
+}

data/ext/pango/rbpangoscriptiter.c

@@ -0,0 +1,92 @@
+/* -*- c-file-style: "ruby"; indent-tabs-mode: nil -*- */
+/*
+ *  Copyright (C) 2011  Ruby-GNOME2 Project Team
+ *  Copyright (C) 2005  Masao Mutoh
+ *
+ *  This library is free software; you can redistribute it and/or
+ *  modify it under the terms of the GNU Lesser General Public
+ *  License as published by the Free Software Foundation; either
+ *  version 2.1 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
+ *  Lesser General Public License for more details.
+ *
+ *  You should have received a copy of the GNU Lesser General Public
+ *  License along with this library; if not, write to the Free Software
+ *  Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston,
+ *  MA  02110-1301  USA
+ */
+
+#include "rbpangoprivate.h"
+
+/**********************************/
+static PangoScriptIter*
+rbpango_script_iter_copy(PangoScriptIter *ref)
+{
+/*
+  PangoScriptIter* new_ref = pango_script_iter_new("", 0);
+  g_return_val_if_fail (ref != NULL, NULL);
+  new_ref = g_new(PangoScriptIter, 1);
+  *new_ref = *ref;
+  return new_ref;
+*/
+    return ref;
+}
+
+GType
+pango_script_iter_get_type(void)
+{
+    static GType our_type = 0;
+
+    if (our_type == 0)
+        our_type = g_boxed_type_register_static ("PangoScriptIter",
+                    (GBoxedCopyFunc)rbpango_script_iter_copy,
+                    (GBoxedFreeFunc)pango_script_iter_free);
+    return our_type;
+}
+/**********************************/
+
+#define RG_TARGET_NAMESPACE cScriptIter
+#define _SELF(r) (RVAL2PANGOSCRIPTITER(r))
+
+static VALUE
+rg_initialize(VALUE self, VALUE text)
+{
+    PangoScriptIter* iter;
+
+    StringValue(text);
+    iter = pango_script_iter_new(RSTRING_PTR(text), RSTRING_LEN(text));
+    G_INITIALIZE(self, iter);
+    return Qnil;
+}
+
+static VALUE
+rg_range(VALUE self)
+{
+    G_CONST_RETURN char* start;
+    G_CONST_RETURN char* end;
+    PangoScript script;
+
+    pango_script_iter_get_range(_SELF(self), &start, &end, &script);
+
+    return rb_ary_new3(3, CSTR2RVAL(start), CSTR2RVAL(end), 
+                       PANGOSCRIPT2RVAL(script));
+}
+
+static VALUE
+rg_next_bang(VALUE self)
+{
+    return CBOOL2RVAL(pango_script_iter_next(_SELF(self)));
+}
+
+void
+Init_pango_script_iter(VALUE mPango)
+{
+    VALUE RG_TARGET_NAMESPACE = G_DEF_CLASS(PANGO_TYPE_SCRIPT_ITER, "ScriptIter", mPango);
+
+    RG_DEF_METHOD(initialize, 1);
+    RG_DEF_METHOD(range, 0);
+    RG_DEF_METHOD_BANG(next, 0);
+}