pango 2.2.4-x64-mingw32

data/ext/pango/rbpangofontmetrics.c

@@ -0,0 +1,85 @@
+/* -*- 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 cFontMetrics
+#define _SELF(self) (RVAL2PANGOFONTMETRICS(self))
+
+static VALUE
+rg_ascent(VALUE self)
+{
+    return INT2NUM(pango_font_metrics_get_ascent(_SELF(self)));
+}
+
+static VALUE
+rg_descent(VALUE self)
+{
+    return INT2NUM(pango_font_metrics_get_descent(_SELF(self)));
+}
+
+static VALUE
+rg_approximate_char_width(VALUE self)
+{
+    return INT2NUM(pango_font_metrics_get_approximate_char_width(_SELF(self)));
+}
+
+static VALUE
+rg_approximate_digit_width(VALUE self)
+{
+    return INT2NUM(pango_font_metrics_get_approximate_digit_width(_SELF(self)));
+}
+
+static VALUE
+rg_underline_thickness(VALUE self)
+{
+    return INT2NUM(pango_font_metrics_get_underline_thickness(_SELF(self)));
+}
+static VALUE
+rg_underline_position(VALUE self)
+{
+    return INT2NUM(pango_font_metrics_get_underline_position(_SELF(self)));
+}
+static VALUE
+rg_strikethrough_thickness(VALUE self)
+{
+    return INT2NUM(pango_font_metrics_get_strikethrough_thickness(_SELF(self)));
+}
+static VALUE
+rg_strikethrough_position(VALUE self)
+{
+    return INT2NUM(pango_font_metrics_get_strikethrough_position(_SELF(self)));
+}
+
+void
+Init_pango_font_metrics(VALUE mPango)
+{
+    VALUE RG_TARGET_NAMESPACE = G_DEF_CLASS(PANGO_TYPE_FONT_METRICS, "FontMetrics", mPango);
+
+    RG_DEF_METHOD(ascent, 0);
+    RG_DEF_METHOD(descent, 0);
+    RG_DEF_METHOD(approximate_char_width, 0);
+    RG_DEF_METHOD(approximate_digit_width, 0);
+    RG_DEF_METHOD(underline_thickness, 0);
+    RG_DEF_METHOD(underline_position, 0);
+    RG_DEF_METHOD(strikethrough_thickness, 0);
+    RG_DEF_METHOD(strikethrough_position, 0);
+}

data/ext/pango/rbpangofontset.c

@@ -0,0 +1,69 @@
+/* -*- 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 cFontset
+#define _SELF(self) (RVAL2PANGOFONTSET(self))
+
+static ID id_call;
+
+static VALUE
+rg_get_font(VALUE self, VALUE wc)
+{
+    return GOBJ2RVAL(pango_fontset_get_font(_SELF(self), NUM2UINT(wc)));
+}
+
+static VALUE
+rg_metrics(VALUE self)
+{
+    return PANGOFONTMETRICS2RVAL(pango_fontset_get_metrics(_SELF(self)));
+}
+
+static gboolean
+fontset_each(PangoFontset *fontset, PangoFont *font, gpointer func)
+{
+    return RVAL2CBOOL(rb_funcall((VALUE)func, id_call, 
+                            2, GOBJ2RVAL(fontset), GOBJ2RVAL(font)));
+}
+
+static VALUE
+rg_each(VALUE self)
+{
+    VALUE func = rb_block_proc();
+    G_RELATIVE(self, func);
+    pango_fontset_foreach(_SELF(self), 
+                          (PangoFontsetForeachFunc)fontset_each, 
+                          (gpointer)func);
+    return self;
+}
+
+void
+Init_pango_fontset(VALUE mPango)
+{
+    VALUE RG_TARGET_NAMESPACE = G_DEF_CLASS(PANGO_TYPE_FONTSET, "Fontset", mPango);
+
+    id_call = rb_intern("call");
+
+    RG_DEF_METHOD(get_font, 1);
+    RG_DEF_METHOD(metrics, 0);
+    RG_DEF_METHOD(each, 0);
+}

data/ext/pango/rbpangofontsetsimple.c

@@ -0,0 +1,60 @@
+/* -*- 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"
+
+#ifdef PANGO_ENABLE_BACKEND
+
+#define RG_TARGET_NAMESPACE cFontsetSimple
+#define _SELF(self) (RVAL2PANGOFONTSETSIMPLE(self))
+
+static VALUE
+rg_initialize(VALUE self, VALUE lang)
+{
+    G_INITIALIZE(self, pango_fontset_simple_new(RVAL2PANGOLANGUAGE(lang)));
+    return Qnil;
+}
+
+static VALUE
+rg_append(VALUE self, VALUE font)
+{
+    pango_fontset_simple_append(_SELF(self), RVAL2PANGOFONT(font));
+    return self;
+}
+
+static VALUE
+rg_size(VALUE self)
+{
+    return INT2NUM(pango_fontset_simple_size(_SELF(self)));
+}
+
+#endif
+void
+Init_pango_fontset_simple(VALUE mPango)
+{
+#ifdef PANGO_ENABLE_BACKEND
+    VALUE RG_TARGET_NAMESPACE = G_DEF_CLASS(PANGO_TYPE_FONTSET_SIMPLE, "FontsetSimple", mPango);
+
+    RG_DEF_METHOD(initialize, 1);
+    RG_DEF_METHOD(append, 1);
+    RG_DEF_METHOD(size, 0);
+#endif
+}

data/ext/pango/rbpangoglyphinfo.c

@@ -0,0 +1,123 @@
+/* -*- 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 cGlyphInfo
+#define _SELF(self) (RVAL2PANGOGLYPHINFO(self))
+
+/**********************************/
+static PangoGlyphInfo *
+pango_glyph_info_copy(const PangoGlyphInfo *info)
+{
+  PangoGlyphInfo *data;
+
+  g_return_val_if_fail(info != NULL, NULL);
+
+  data = g_new(PangoGlyphInfo, 1);
+  *data = *info;
+
+  return data;
+}
+
+GType
+pango_glyph_info_get_type(void)
+{
+    static GType our_type = 0;
+
+    if (our_type == 0)
+        our_type = g_boxed_type_register_static ("PangoGlyphInfo",
+                    (GBoxedCopyFunc)pango_glyph_info_copy,
+                    (GBoxedFreeFunc)g_free);
+    return our_type;
+}
+/**********************************/
+
+static VALUE
+rg_initialize(VALUE self)
+{
+    G_INITIALIZE(self, g_new0(PangoGlyphInfo, 1));
+    return Qnil;
+}
+
+static VALUE
+rg_glyph(VALUE self)
+{
+    return UINT2NUM(_SELF(self)->glyph);
+}
+
+static VALUE
+rg_set_glyph(VALUE self, VALUE val)
+{
+    _SELF(self)->glyph = NUM2UINT(val);
+    return self;
+}
+
+static VALUE
+rg_geometry(VALUE self)
+{
+    PangoGlyphGeometry geo = _SELF(self)->geometry;
+
+    return rb_ary_new3(3, INT2NUM(geo.width), 
+                       INT2NUM(geo.x_offset), INT2NUM(geo.y_offset));
+}
+
+static VALUE
+rg_set_geometry(VALUE self, VALUE width, VALUE x_offset, VALUE y_offset)
+{
+    PangoGlyphGeometry geo = _SELF(self)->geometry;
+
+    geo.width = NUM2INT(width);
+    geo.x_offset = NUM2INT(x_offset);
+    geo.y_offset = NUM2INT(y_offset);
+
+    return self;
+}
+
+/*
+  This method may be changed in the future following Pango implementation.
+ */
+static VALUE
+rg_cluster_start_p(VALUE self)
+{
+    return CBOOL2RVAL(_SELF(self)->attr.is_cluster_start);
+}
+
+static VALUE
+rg_set_cluster_start(VALUE self, VALUE val)
+{
+    _SELF(self)->attr.is_cluster_start = RVAL2CBOOL(val);
+    return self;
+}
+
+void
+Init_pango_glyph_info(VALUE mPango)
+{
+    VALUE RG_TARGET_NAMESPACE = G_DEF_CLASS(PANGO_TYPE_GLYPH_INFO, "GlyphInfo", mPango);
+
+    RG_DEF_METHOD(initialize, 0);
+    RG_DEF_METHOD(glyph, 0);
+    RG_DEF_METHOD(set_glyph, 1);
+    RG_DEF_METHOD(geometry, 0);
+    RG_DEF_METHOD(set_geometry, 3);
+    RG_DEF_METHOD_P(cluster_start, 0);
+    RG_DEF_METHOD(set_cluster_start, 1);
+}

data/ext/pango/rbpangoglyphitem.c

@@ -0,0 +1,125 @@
+/* -*- 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 cGlyphItem
+#define _SELF(r) (RVAL2PANGOGLYPHITEM(r))
+
+/**********************************/
+#ifndef HAVE_PANGO_GLYPH_ITEM_GET_TYPE
+static PangoGlyphItem*
+glyph_item_copy(const PangoGlyphItem *ref)
+{
+  PangoGlyphItem* new_ref;
+  g_return_val_if_fail (ref != NULL, NULL);
+  new_ref = g_new(PangoGlyphItem, 1);
+  *new_ref = *ref;
+  return new_ref;
+}
+
+#  ifndef HAVE_PANGO_GLYPH_ITEM_FREE
+void
+pango_glyph_item_free(PangoGlyphItem* glyph_item)
+{
+    if (glyph_item->item)
+        pango_item_free(glyph_item->item);
+    if (glyph_item->glyphs)
+        pango_glyph_string_free(glyph_item->glyphs);
+    g_free(glyph_item);
+}
+#  endif
+
+GType
+pango_glyph_item_get_type(void)
+{
+    static GType our_type = 0;
+
+    if (our_type == 0)
+        our_type = g_boxed_type_register_static ("PangoGlyphItem",
+                    (GBoxedCopyFunc)glyph_item_copy,
+                    (GBoxedFreeFunc)pango_glyph_item_free);
+    return our_type;
+}
+#endif
+/**********************************/
+
+static VALUE
+rg_item(VALUE self)
+{
+    PangoItem* item = _SELF(self)->item;
+    return PANGOITEM2RVAL(item);
+}
+
+static VALUE
+rg_glyphs(VALUE self)
+{
+    PangoGlyphString* glyphs = _SELF(self)->glyphs;
+    return PANGOGLYPHSTRING2RVAL(glyphs);
+}
+
+static VALUE
+rg_split(VALUE self, VALUE text, VALUE split_index)
+{
+    return PANGOGLYPHITEM2RVAL(pango_glyph_item_split(_SELF(self), RVAL2CSTR(text),
+                                                      NUM2INT(split_index)));
+}
+
+static VALUE
+rg_appy_attrs(VALUE self, VALUE text, VALUE attrs)
+{
+    GSList* list = pango_glyph_item_apply_attrs(_SELF(self), RVAL2CSTR(text),
+                                                RVAL2PANGOATTRLIST(attrs));
+
+    VALUE ret = rb_ary_new();
+
+    while (list) {
+        rb_ary_push(ret, PANGOGLYPHITEM2RVAL(list->data));
+        pango_glyph_item_free(list->data); 
+        list = list->next;
+    }
+
+    g_slist_free(list);
+    return ret;
+}
+
+static VALUE
+rg_letter_space(VALUE self, VALUE text, VALUE log_attrs, VALUE letter_spacing)
+{
+    pango_glyph_item_letter_space(_SELF(self), RVAL2CSTR(text),
+                                  RVAL2PANGOLOGATTR(log_attrs),
+                                  NUM2INT(letter_spacing));
+    return self;
+}
+
+void
+Init_pango_glyph_item(VALUE mPango)
+{
+    VALUE RG_TARGET_NAMESPACE = G_DEF_CLASS(PANGO_TYPE_GLYPH_ITEM, "GlyphItem", mPango);
+
+    RG_DEF_METHOD(item, 0);
+    RG_DEF_METHOD(glyphs, 0);
+
+    RG_DEF_METHOD(split, 2);
+    RG_DEF_METHOD(appy_attrs, 2);
+
+    RG_DEF_METHOD(letter_space, 3);
+}

data/ext/pango/rbpangoglyphstring.c

@@ -0,0 +1,151 @@
+/* -*- c-file-style: "ruby"; indent-tabs-mode: nil -*- */
+/*
+ *  Copyright (C) 2011  Ruby-GNOME2 Project Team
+ *  Copyright (C) 2002-2006 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 cGlyphString
+#define _SELF(self) (RVAL2PANGOGLYPHSTRING(self))
+
+static VALUE
+rg_initialize(VALUE self)
+{
+    G_INITIALIZE(self, pango_glyph_string_new());
+    return Qnil;
+}
+
+static VALUE
+rg_set_size(VALUE self, VALUE len)
+{
+    pango_glyph_string_set_size(_SELF(self), NUM2INT(len));
+    return self;
+}
+
+static VALUE
+rg_extents(int argc, VALUE *argv, VALUE self)
+{
+    VALUE font, start_index, end_index;
+    PangoRectangle ink_rect;
+    PangoRectangle logical_rect;
+
+    rb_scan_args(argc, argv, "12", &font, &start_index, &end_index);
+
+    if (NIL_P(start_index)){
+        pango_glyph_string_extents(_SELF(self), 
+                                   RVAL2PANGOFONT(font),
+                                   &ink_rect, &logical_rect);
+    } else {
+        pango_glyph_string_extents_range(_SELF(self), 
+                                         NUM2INT(start_index), NUM2INT(end_index),
+                                         RVAL2PANGOFONT(font),
+                                         &ink_rect, &logical_rect);
+    }
+
+    return rb_assoc_new(PANGORECTANGLE2RVAL(&ink_rect),
+                        PANGORECTANGLE2RVAL(&logical_rect));
+}
+
+static VALUE
+rg_width(VALUE self)
+{
+    return INT2NUM(pango_glyph_string_get_width(_SELF(self)));
+}
+
+static VALUE
+rg_index_to_x(VALUE self, VALUE text, VALUE analysis, VALUE index, VALUE trailing)
+{
+    int x_pos;
+    StringValue(text);
+
+    pango_glyph_string_index_to_x(_SELF(self),
+                                  /* NOTE: This is a bug in the signature of
+                                   * pango_glyph_string_index_to_x */
+                                  (char *)RSTRING_PTR(text),
+                                  RSTRING_LEN(text),
+                                  RVAL2PANGOANALYSIS(analysis),
+                                  NUM2INT(index), RVAL2CBOOL(trailing),
+                                  &x_pos);
+    return INT2NUM(x_pos);
+}
+
+static VALUE
+rg_x_to_index(VALUE self, VALUE text, VALUE analysis, VALUE x_pos)
+{
+    int index;
+    int trailing;
+
+    StringValue(text);
+    pango_glyph_string_x_to_index(_SELF(self),
+                                  /* NOTE: This is a bug in the signature of
+                                   * pango_glyph_string_index_to_x */
+                                  (char *)RSTRING_PTR(text),
+                                  RSTRING_LEN(text),
+                                  RVAL2PANGOANALYSIS(analysis),
+                                  NUM2INT(x_pos),
+                                  &index, &trailing);
+    return rb_assoc_new(INT2NUM(index), CBOOL2RVAL(trailing));
+}
+
+static VALUE
+rg_get_logical_widths(VALUE self, VALUE rbtext, VALUE rbembedding_level)
+{
+    PangoGlyphString *glyphs = _SELF(self);
+    const char *text = RVAL2CSTR(rbtext);
+    long length = RSTRING_LEN(rbtext);
+    int embedding_level = NUM2INT(rbembedding_level);
+    glong n = g_utf8_strlen(text, length);
+    int *logical_widths = g_new(int, n);
+
+    pango_glyph_string_get_logical_widths(glyphs, text, length, embedding_level,
+                                          logical_widths);
+
+    return GINTS2RVAL_FREE(logical_widths, n);
+}
+
+static VALUE
+rg_glyphs(VALUE self)
+{
+    int i;
+    PangoGlyphInfo *glyphs = _SELF(self)->glyphs;
+    gint* log_clusters = _SELF(self)->log_clusters;
+
+    VALUE ret = rb_ary_new();
+    for (i = 0; i < _SELF(self)->num_glyphs; i++) {
+        rb_ary_push(ret, 
+                    rb_assoc_new(PANGOGLYPHINFO2RVAL(glyphs + i),
+                                 INT2NUM(log_clusters[i])));
+    }
+    return ret;
+}
+
+void
+Init_pango_glyph_string(VALUE mPango)
+{
+    VALUE RG_TARGET_NAMESPACE = G_DEF_CLASS(PANGO_TYPE_GLYPH_STRING, "GlyphString", mPango);
+
+    RG_DEF_METHOD(initialize, 0);
+    RG_DEF_METHOD(set_size, 1);
+    RG_DEF_METHOD(extents, -1);
+    RG_DEF_METHOD(width, 0);
+    RG_DEF_METHOD(index_to_x, 4);
+    RG_DEF_METHOD(x_to_index, 3);
+    RG_DEF_METHOD(get_logical_widths, 2);
+    RG_DEF_METHOD(glyphs, 0);
+}

data/ext/pango/rbpangogravity.c

@@ -0,0 +1,54 @@
+/* -*- c-file-style: "ruby"; indent-tabs-mode: nil -*- */
+/*
+ *  Copyright (C) 2011  Ruby-GNOME2 Project Team
+ *
+ *  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"
+
+#if PANGO_CHECK_VERSION(1,16,0)
+
+#define RG_TARGET_NAMESPACE mGravity
+
+static VALUE
+rg_s_to_rotation(G_GNUC_UNUSED VALUE self, VALUE gravity)
+{
+    return rb_float_new(pango_gravity_to_rotation(RVAL2PANGOGRAVITY(gravity)));
+}
+
+static VALUE
+rg_s_vertical_p(G_GNUC_UNUSED VALUE self, VALUE gravity)
+{
+    return CBOOL2RVAL(PANGO_GRAVITY_IS_VERTICAL(RVAL2PANGOGRAVITY(gravity)));
+}
+#endif
+
+void
+Init_pango_gravity(VALUE mPango)
+{
+#if PANGO_CHECK_VERSION(1,16,0)
+    VALUE RG_TARGET_NAMESPACE = rb_define_module_under(mPango, "Gravity");
+
+    RG_DEF_SMETHOD(to_rotation, 1);
+    RG_DEF_SMETHOD_P(vertical, 1);
+
+    G_DEF_CLASS(PANGO_TYPE_GRAVITY, "Gravity", RG_TARGET_NAMESPACE);
+    G_DEF_CONSTANTS(RG_TARGET_NAMESPACE, PANGO_TYPE_GRAVITY, "PANGO_GRAVITY_");
+    G_DEF_CLASS(PANGO_TYPE_GRAVITY_HINT, "Hint", RG_TARGET_NAMESPACE);
+    G_DEF_CONSTANTS(RG_TARGET_NAMESPACE, PANGO_TYPE_GRAVITY_HINT, "PANGO_GRAVITY_");
+#endif
+}