pango 2.2.4-x64-mingw32

data/ext/pango/rbpangoattriterator.c

@@ -0,0 +1,141 @@
+/* -*- c-file-style: "ruby"; indent-tabs-mode: nil -*- */
+/*
+ *  Copyright (C) 2011  Ruby-GNOME2 Project Team
+ *  Copyright (C) 2002-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 cAttrIterator
+#define _SELF(self) (RVAL2PANGOATTRITERATOR(self))
+
+/**********************************/
+GType
+pango_attr_iter_get_type(void)
+{
+    static GType our_type = 0;
+
+    if (our_type == 0)
+        our_type = g_boxed_type_register_static ("PangoAttrIterator",
+                    (GBoxedCopyFunc)pango_attr_iterator_copy,
+                    (GBoxedFreeFunc)pango_attr_iterator_destroy);
+    return our_type;
+}
+/**********************************/
+
+static VALUE
+rg_next_bang(VALUE self)
+{
+    return CBOOL2RVAL(pango_attr_iterator_next(_SELF(self)));
+}
+
+static VALUE
+rg_range(VALUE self)
+{
+    gint start = 0;
+    gint end = 0;
+    pango_attr_iterator_range(_SELF(self), &start, &end);
+    return rb_ary_new3(2, INT2NUM(start), INT2NUM(end));
+}
+
+static VALUE
+rg_get(int argc, VALUE *argv, VALUE self)
+{
+    VALUE type, ret;
+    PangoAttribute* attr;
+    int i;
+
+    rb_scan_args(argc, argv, "01", &type);
+
+    if (NIL_P(type)){
+        PangoAttrIterator* iter = _SELF(self);
+        ret = rb_ary_new();
+        for (i = 0; i < PANGO_ATTR_SCALE + 1; i++){
+            attr = pango_attr_iterator_get(iter, i);
+            if (attr)
+                rb_ary_push(ret, ATTR2RVAL(attr));
+        }
+    } else {
+        attr = pango_attr_iterator_get(_SELF(self), FIX2INT(type));
+        ret = attr ? ATTR2RVAL(attr) : Qnil;
+    }
+    return ret;
+}
+
+static VALUE
+rg_font(VALUE self)
+{
+    PangoFontDescription* desc;
+    PangoLanguage* lang;
+    GSList* extra_attrs;
+    VALUE ary, ret;
+
+    desc = pango_font_description_new();
+
+    pango_attr_iterator_get_font(_SELF(self), desc, &lang, &extra_attrs);
+
+    ary = rb_ary_new();
+    while(extra_attrs) {
+        rb_ary_push(ary, ATTR2RVAL(extra_attrs->data));
+        extra_attrs = extra_attrs->next;
+    }
+
+    ret = rb_ary_new3(3, PANGOFONTDESCRIPTION2RVAL(desc),
+                      PANGOLANGUAGE2RVAL(lang),
+                      ary);
+
+    pango_font_description_free(desc);
+    return ret;
+}
+
+#ifdef HAVE_PANGO_ATTR_ITERATOR_GET_ATTRS
+static VALUE
+rg_attrs(VALUE self)
+{
+    GSList* list = pango_attr_iterator_get_attrs(_SELF(self));
+    GSList* base = list;
+    GSList* old = list;
+    VALUE ary = rb_ary_new();
+
+    while (list) {
+        rb_ary_push(ary, ATTR2RVAL(list->data));
+        list = list->next;
+    }
+    while (old) {
+        pango_attribute_destroy((PangoAttribute*)old);
+        old = old->next;
+    }
+    g_slist_free(base);
+
+    return ary;
+}  
+#endif
+
+void
+Init_pango_attriterator(VALUE mPango)
+{
+    VALUE RG_TARGET_NAMESPACE = G_DEF_CLASS(PANGO_TYPE_ATTR_ITERATOR, "AttrIterator", mPango);
+
+    RG_DEF_METHOD_BANG(next, 0);
+    RG_DEF_METHOD(range, 0);
+    RG_DEF_METHOD(get, -1);
+    RG_DEF_METHOD(font, 0);
+#ifdef HAVE_PANGO_ATTR_ITERATOR_GET_ATTRS
+    RG_DEF_METHOD(attrs, 0);
+#endif
+}

data/ext/pango/rbpangoattrlist.c

@@ -0,0 +1,101 @@
+/* -*- c-file-style: "ruby"; indent-tabs-mode: nil -*- */
+/*
+ *  Copyright (C) 2011  Ruby-GNOME2 Project Team
+ *  Copyright (C) 2002-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 ID id_call;
+
+#define RG_TARGET_NAMESPACE cAttrList
+#define _SELF(self) (RVAL2PANGOATTRLIST(self))
+
+static VALUE
+rg_initialize(VALUE self)
+{
+    G_INITIALIZE(self, pango_attr_list_new());
+    return Qnil;
+}
+
+static VALUE
+rg_insert(VALUE self, VALUE attr)
+{
+    pango_attr_list_insert(_SELF(self), RVAL2ATTR(attr));
+    return self;
+}
+
+static VALUE
+rg_insert_before(VALUE self, VALUE attr)
+{
+    pango_attr_list_insert_before(_SELF(self), RVAL2ATTR(attr));
+    return self;
+}
+
+static VALUE
+rg_change(VALUE self, VALUE attr)
+{
+    pango_attr_list_change(_SELF(self), RVAL2ATTR(attr));
+    return self;
+}
+
+static VALUE
+rg_splice(VALUE self, VALUE other, VALUE pos, VALUE len)
+{
+    pango_attr_list_splice(_SELF(self), _SELF(other), NUM2INT(pos), NUM2INT(len));
+    return self;
+}
+
+static gboolean
+filter_func(PangoAttribute *attr, gpointer data)
+{
+    return CBOOL2RVAL(rb_funcall((VALUE)data, id_call, 1, ATTR2RVAL(attr)));
+}
+
+static VALUE
+rg_filter(VALUE self)
+{
+    VALUE func = rb_block_proc();
+    G_RELATIVE(self, func);
+    return PANGOATTRLIST2RVAL(pango_attr_list_filter(_SELF(self), 
+                                             (PangoAttrFilterFunc)filter_func, 
+                                             (gpointer)func));
+}
+
+static VALUE
+rg_iterator(VALUE self)
+{
+    return PANGOATTRITERATOR2RVAL(pango_attr_list_get_iterator(_SELF(self)));
+}
+
+void
+Init_pango_attrlist(VALUE mPango)
+{
+    VALUE RG_TARGET_NAMESPACE = G_DEF_CLASS(PANGO_TYPE_ATTR_LIST, "AttrList", mPango);
+
+    id_call = rb_intern("call");
+
+    RG_DEF_METHOD(initialize, 0);
+    RG_DEF_METHOD(insert, 1);
+    RG_DEF_METHOD(insert_before, 1);
+    RG_DEF_METHOD(change, 1);
+    RG_DEF_METHOD(splice, 3);
+    RG_DEF_METHOD(filter, 0);
+    RG_DEF_METHOD(iterator, 0);
+
+}

data/ext/pango/rbpangocairo.c

@@ -0,0 +1,122 @@
+/* -*- c-file-style: "ruby"; indent-tabs-mode: nil -*- */
+/*
+ *  Copyright (C) 2006-2014  Ruby-GNOME2 Project Team
+ *  Copyright (C) 2005  Kouhei Sutou
+ *
+ *  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 cCairoFontMap
+#define _SELF(self) (RVAL2PANGOCAIROFONTMAP(self))
+
+static VALUE
+rg_s_create(int argc, VALUE *argv, G_GNUC_UNUSED VALUE klass)
+{
+    VALUE rb_font_type;
+    PangoFontMap *font_map = NULL;
+
+    rb_scan_args(argc, argv, "01", &rb_font_type);
+    if (NIL_P(rb_font_type)) {
+        font_map = pango_cairo_font_map_new();
+    } else {
+#if PANGO_CHECK_VERSION(1, 18, 0)
+        cairo_font_type_t font_type = CAIRO_FONT_TYPE_USER;
+        if (rbgutil_key_equal(rb_font_type, "ft") ||
+            rbgutil_key_equal(rb_font_type, "freetype")) {
+            font_type = CAIRO_FONT_TYPE_FT;
+        } else if (rbgutil_key_equal(rb_font_type, "win32")) {
+            font_type = CAIRO_FONT_TYPE_WIN32;
+        } else if (rbgutil_key_equal(rb_font_type, "quartz")) {
+            font_type = CAIRO_FONT_TYPE_QUARTZ;
+        } else {
+            rb_raise(rb_eArgError,
+                     "font type must be one of "
+                     ":ft, :freetype, :win32 or :quartz: %s",
+                     RBG_INSPECT(rb_font_type));
+        }
+        font_map = pango_cairo_font_map_new_for_font_type(font_type);
+#else
+        rb_raise(rb_eArgError,
+                 "Pango::CairoFontMap.create with font type "
+                 "requires Pango 1.18.0 or later");
+#endif
+    }
+
+    return GOBJ2RVAL(font_map);
+}
+
+static VALUE
+rg_s_default(G_GNUC_UNUSED VALUE klass)
+{
+    return GOBJ2RVAL(pango_cairo_font_map_get_default());
+}
+
+#if PANGO_CHECK_VERSION(1, 22, 0)
+static VALUE
+rg_s_set_default(VALUE klass, VALUE font_map)
+{
+    pango_cairo_font_map_set_default(RVAL2GOBJ(font_map));
+    return klass;
+}
+#endif
+
+static VALUE
+rg_set_resolution(VALUE self, VALUE dpi)
+{
+    pango_cairo_font_map_set_resolution(_SELF(self), NUM2DBL(dpi));
+    return self;
+}
+
+static VALUE
+rg_resolution(VALUE self)
+{
+    return rb_float_new(pango_cairo_font_map_get_resolution(_SELF(self)));
+}
+
+static VALUE
+rg_create_context(VALUE self)
+{
+    PangoContext *pango_context;
+
+#if PANGO_CHECK_VERSION(1, 22, 0)
+    pango_context = pango_font_map_create_context(PANGO_FONT_MAP(_SELF(self)));
+#else
+    pango_context = pango_cairo_font_map_create_context(_SELF(self));
+#endif
+
+    return GOBJ2RVAL_UNREF(pango_context);
+}
+
+void
+Init_pango_cairo(VALUE mPango)
+{
+    VALUE RG_TARGET_NAMESPACE;
+
+    /* Pango::CairoFontMap */
+    RG_TARGET_NAMESPACE = G_DEF_CLASS(PANGO_TYPE_CAIRO_FONT_MAP, "CairoFontMap", mPango);
+
+    RG_DEF_SMETHOD(create, -1);
+    RG_DEF_SMETHOD(default, 0);
+#if PANGO_CHECK_VERSION(1, 22, 0)
+    RG_DEF_SMETHOD(set_default, 1);
+#endif
+
+    RG_DEF_METHOD(set_resolution, 1);
+    RG_DEF_METHOD(resolution, 0);
+    RG_DEF_METHOD(create_context, 0);
+}

data/ext/pango/rbpangocairocontext.c

@@ -0,0 +1,131 @@
+/* -*- c-file-style: "ruby"; indent-tabs-mode: nil -*- */
+/*
+ *  Copyright (C) 2006-2013  Ruby-GNOME2 Project Team
+ *  Copyright (C) 2005  Kouhei Sutou
+ *
+ *  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 rb_cCairo_Context
+
+static VALUE
+rg_update_pango_context(VALUE self, VALUE context)
+{
+    pango_cairo_update_context(RVAL2CRCONTEXT(self), RVAL2PANGOCONTEXT(context));
+    return self;
+}
+
+/* Convenience */
+static VALUE
+rg_create_pango_layout(VALUE self)
+{
+    return GOBJ2RVAL_UNREF(pango_cairo_create_layout(RVAL2CRCONTEXT(self)));
+}
+
+static VALUE
+rg_update_pango_layout(VALUE self, VALUE layout)
+{
+    pango_cairo_update_layout(RVAL2CRCONTEXT(self), RVAL2PANGOLAYOUT(layout));
+    return self;
+}
+
+/* Rendering */
+static VALUE
+rg_show_pango_glyph_string(VALUE self, VALUE font, VALUE glyphs)
+{
+    pango_cairo_show_glyph_string(RVAL2CRCONTEXT(self),
+                                  RVAL2PANGOFONT(font),
+                                  RVAL2PANGOGLYPHSTRING(glyphs));
+    return self;
+}
+
+static VALUE
+rg_show_pango_layout_line(VALUE self, VALUE line)
+{
+    pango_cairo_show_layout_line(RVAL2CRCONTEXT(self), RVAL2PANGOLAYOUTLINE(line));
+    return self;
+}
+
+static VALUE
+rg_show_pango_layout(VALUE self, VALUE layout)
+{
+    pango_cairo_show_layout(RVAL2CRCONTEXT(self), RVAL2PANGOLAYOUT(layout));
+    return self;
+}
+
+static VALUE
+rg_show_pango_error_underline(VALUE self, VALUE x, VALUE y, VALUE width, VALUE height)
+{
+    pango_cairo_show_error_underline(RVAL2CRCONTEXT(self),
+                                     NUM2DBL(x), NUM2DBL(y),
+                                     NUM2DBL(width), NUM2DBL(height));
+    return self;
+}
+
+/* Rendering to a path */
+static VALUE
+rg_pango_glyph_string_path(VALUE self, VALUE font, VALUE glyphs)
+{
+    pango_cairo_glyph_string_path(RVAL2CRCONTEXT(self),
+                                  RVAL2PANGOFONT(font),
+                                  RVAL2PANGOGLYPHSTRING(glyphs));
+    return self;
+}
+
+static VALUE
+rg_pango_layout_line_path(VALUE self, VALUE line)
+{
+    pango_cairo_layout_line_path(RVAL2CRCONTEXT(self), RVAL2PANGOLAYOUTLINE(line));
+    return self;
+}
+
+static VALUE
+rg_pango_layout_path(VALUE self, VALUE layout)
+{
+    pango_cairo_layout_path(RVAL2CRCONTEXT(self), RVAL2PANGOLAYOUT(layout));
+    return self;
+}
+
+static VALUE
+rg_pango_error_underline_path(VALUE self, VALUE x, VALUE y, VALUE width, VALUE height)
+{
+    pango_cairo_error_underline_path(RVAL2CRCONTEXT(self),
+                                     NUM2DBL(x), NUM2DBL(y),
+                                     NUM2DBL(width), NUM2DBL(height));
+    return self;
+}
+
+void
+Init_pango_cairo_context(G_GNUC_UNUSED VALUE mPango)
+{
+    /* Cairo::Context */
+    RG_DEF_METHOD(update_pango_context, 1);
+    /* Convenience */
+    RG_DEF_METHOD(create_pango_layout, 0);
+    RG_DEF_METHOD(update_pango_layout, 1);
+    /* Rendering */
+    RG_DEF_METHOD(show_pango_glyph_string, 2);
+    RG_DEF_METHOD(show_pango_layout_line, 1);
+    RG_DEF_METHOD(show_pango_layout, 1);
+    RG_DEF_METHOD(show_pango_error_underline, 4);
+    /* Rendering to a path */
+    RG_DEF_METHOD(pango_glyph_string_path, 2);
+    RG_DEF_METHOD(pango_layout_line_path, 1);
+    RG_DEF_METHOD(pango_layout_path, 1);
+    RG_DEF_METHOD(pango_error_underline_path, 4);
+}

data/ext/pango/rbpangocolor.c

@@ -0,0 +1,120 @@
+/* -*- 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 cColor
+#define _SELF(self) (RVAL2PANGOCOLOR(self))
+
+static VALUE
+rg_initialize(VALUE self, VALUE red, VALUE green, VALUE blue)
+{
+    PangoColor color;
+
+    color.red = NUM2UINT(red);
+    color.green = NUM2UINT(green);
+    color.blue = NUM2UINT(blue);
+
+    G_INITIALIZE(self, g_boxed_copy(PANGO_TYPE_COLOR, &color));
+    return Qnil;
+}
+
+static VALUE
+rg_parse(VALUE self, VALUE spec)
+{
+    return CBOOL2RVAL(pango_color_parse(_SELF(self), RVAL2CSTR(spec)));
+}
+
+static VALUE
+rg_red(VALUE self)
+{
+    return UINT2NUM(_SELF(self)->red);
+}
+
+static VALUE
+rg_set_red(VALUE self, VALUE red)
+{
+    _SELF(self)->red = NUM2UINT(red);
+    return self;
+}
+
+static VALUE
+rg_green(VALUE self)
+{
+    return UINT2NUM(_SELF(self)->green);
+}
+
+static VALUE
+rg_set_green(VALUE self, VALUE green)
+{
+    _SELF(self)->green = NUM2UINT(green);
+    return self;
+}
+
+static VALUE
+rg_blue(VALUE self)
+{
+    return UINT2NUM(_SELF(self)->blue);
+}
+
+static VALUE
+rg_set_blue(VALUE self, VALUE blue)
+{
+    _SELF(self)->blue = NUM2UINT(blue);
+    return self;
+}
+
+static VALUE
+rg_to_a(VALUE self)
+{
+    PangoColor *c = _SELF(self);
+    return rb_ary_new3(3,
+                       UINT2NUM(c->red),
+                       UINT2NUM(c->green),
+                       UINT2NUM(c->blue));
+}
+
+static VALUE
+rg_operator_color_equal(VALUE self, VALUE other)
+{
+    PangoColor* c1 = _SELF(self);
+    PangoColor* c2 = _SELF(other);
+
+    return CBOOL2RVAL((c1->red == c2->red) && (c1->green == c2->green) && 
+                      (c1->blue == c2->blue));
+}
+
+void
+Init_pango_color(VALUE mPango)
+{
+    VALUE RG_TARGET_NAMESPACE = G_DEF_CLASS(PANGO_TYPE_COLOR, "Color", mPango);
+
+    RG_DEF_METHOD(initialize, 3);
+    RG_DEF_METHOD(parse, 1);
+    RG_DEF_METHOD(red, 0);
+    RG_DEF_METHOD(set_red, 1);
+    RG_DEF_METHOD(green, 0);
+    RG_DEF_METHOD(set_green, 1);
+    RG_DEF_METHOD(blue, 0);
+    RG_DEF_METHOD(set_blue, 1);
+    RG_DEF_METHOD(to_a, 0);
+    RG_DEF_METHOD_OPERATOR("==", color_equal, 1);
+}