pango 0.20.0

data/src/rbpangoattriterator.c

@@ -0,0 +1,137 @@
+/* -*- c-file-style: "ruby"; indent-tabs-mode: nil -*- */
+/************************************************
+
+  rbpangoattriterator.c -
+
+  $Author: mutoh $
+  $Date: 2005/07/24 07:00:32 $
+
+  Copyright (C) 2002-2005 Masao Mutoh
+************************************************/
+
+#include "rbpango.h"
+
+#define _SELF(self) ((PangoAttrIterator*)RVAL2BOXED(self, PANGO_TYPE_ATTR_ITERATOR))
+
+/**********************************/
+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
+attriterator_next(self)
+    VALUE self;
+{
+    return CBOOL2RVAL(pango_attr_iterator_next(_SELF(self)));
+}
+
+static VALUE
+attriterator_range(self)
+    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
+attriterator_get(argc, argv, self)
+    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
+attriterator_get_font(self)
+    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, (PangoFontDescription*)BOXED2RVAL(desc, PANGO_TYPE_FONT_DESCRIPTION),
+                      (PangoLanguage*)BOXED2RVAL(lang, PANGO_TYPE_LANGUAGE),
+                      ary);
+
+    pango_font_description_free(desc);
+    return ret;
+}
+
+#ifdef HAVE_PANGO_ATTR_ITERATOR_GET_ATTRS
+static VALUE
+attriterator_get_attrs(self)
+    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 pAttriterator = G_DEF_CLASS(PANGO_TYPE_ATTR_ITERATOR, "AttrIterator", mPango);
+    
+    rb_define_method(pAttriterator, "next!", attriterator_next, 0);
+    rb_define_method(pAttriterator, "range", attriterator_range, 0);
+    rb_define_method(pAttriterator, "get", attriterator_get, -1);
+    rb_define_method(pAttriterator, "font", attriterator_get_font, 0);
+#ifdef HAVE_PANGO_ATTR_ITERATOR_GET_ATTRS
+    rb_define_method(pAttriterator, "attrs", attriterator_get_attrs, 0);
+#endif
+}

data/src/rbpangoattrlist.c

@@ -0,0 +1,104 @@
+/* -*- c-file-style: "ruby"; indent-tabs-mode: nil -*- */
+/************************************************
+
+  rbpangoattrlist.c -
+
+  $Author: sakai $
+  $Date: 2007/07/08 02:53:10 $
+
+  Copyright (C) 2002-2005 Masao Mutoh 
+************************************************/
+
+#include "rbpango.h"
+
+static ID id_call;
+
+#define _SELF(self) ((PangoAttrList*)RVAL2BOXED(self, PANGO_TYPE_ATTR_LIST))
+
+static VALUE
+attrlist_initialize(self)
+    VALUE self;
+{
+    G_INITIALIZE(self, pango_attr_list_new());
+    return Qnil;
+}
+
+static VALUE
+attrlist_insert(self, attr)
+    VALUE self, attr;
+{
+    pango_attr_list_insert(_SELF(self), RVAL2ATTR(attr));
+    return self;
+}
+
+static VALUE
+attrlist_insert_before(self, attr)
+    VALUE self, attr;
+{
+    pango_attr_list_insert_before(_SELF(self), RVAL2ATTR(attr));
+    return self;
+}
+
+static VALUE
+attrlist_change(self, attr)
+    VALUE self, attr;
+{
+    pango_attr_list_change(_SELF(self), RVAL2ATTR(attr));
+    return self;
+}
+
+static VALUE
+attrlist_splice(self, other, pos, len)
+    VALUE self, other, pos, len;
+{
+    pango_attr_list_splice(_SELF(self), _SELF(other), NUM2INT(pos), NUM2INT(len));
+    return self;
+}
+
+#if PANGO_CHECK_VERSION(1,4,0)
+static gboolean
+filter_func(attr, data)
+    PangoAttribute* attr;
+    gpointer data;
+{
+    return CBOOL2RVAL(rb_funcall((VALUE)data, id_call, 1, ATTR2RVAL(attr)));
+}
+
+static VALUE
+attrlist_filter(self)
+    VALUE self;
+{
+    VALUE func = rb_block_proc();
+    G_RELATIVE(self, func);
+    return BOXED2RVAL(pango_attr_list_filter(_SELF(self), 
+                                             (PangoAttrFilterFunc)filter_func, 
+                                             (gpointer)func),
+                      PANGO_TYPE_ATTR_LIST);
+}
+#endif
+
+static VALUE
+attrlist_get_iterator(self)
+    VALUE self;
+{
+    return BOXED2RVAL(pango_attr_list_get_iterator(_SELF(self)), PANGO_TYPE_ATTR_ITERATOR);
+}
+
+void
+Init_pango_attrlist()
+{
+    VALUE pAttrlist = G_DEF_CLASS(PANGO_TYPE_ATTR_LIST, "AttrList", mPango);
+
+    id_call = rb_intern("call");
+
+    rb_define_method(pAttrlist, "initialize", attrlist_initialize, 0);
+    rb_define_method(pAttrlist, "insert", attrlist_insert, 1);
+    rb_define_method(pAttrlist, "insert_before", attrlist_insert_before, 1);
+    rb_define_method(pAttrlist, "change", attrlist_change, 1);
+    rb_define_method(pAttrlist, "splice", attrlist_splice, 3);
+#if PANGO_CHECK_VERSION(1,4,0)
+    rb_define_method(pAttrlist, "filter", attrlist_filter, 0);
+#endif
+    rb_define_method(pAttrlist, "iterator", attrlist_get_iterator, 0);
+
+}

data/src/rbpangocairo.c

@@ -0,0 +1,229 @@
+/* -*- c-file-style: "ruby"; indent-tabs-mode: nil -*- */
+/************************************************
+
+  rbpangocairo.c -
+
+  $Author: ktou $
+  $Date: 2007/08/13 11:10:22 $
+
+  Copyright (C) 2005 Kouhei Sutou
+  Copyright (C) 2006 Ruby-GNOME2 Project Team
+************************************************/
+
+#include "rbpango.h"
+
+#if PANGO_CHECK_VERSION(1,10,0) && defined(HAVE_RB_CAIRO_H)
+#  define CAIRO_AVAILABLE 1
+#endif
+
+#ifdef CAIRO_AVAILABLE
+
+#define _SELF(self) (PANGO_CAIRO_FONT_MAP(RVAL2GOBJ(self)))
+#define RVAL2CONTEXT(v) (PANGO_CONTEXT(RVAL2GOBJ(v)))
+#define RVAL2LAYOUT(v) (PANGO_LAYOUT(RVAL2GOBJ(v)))
+#define RVAL2FONT(v) (PANGO_FONT(RVAL2GOBJ(v)))
+#define RVAL2GLYPH(v) ((PangoGlyphString*)(RVAL2BOXED(self, PANGO_TYPE_GLYPH_STRING)))
+#define RVAL2LINE(v) ((PangoLayoutLine*)RVAL2BOXED(v, PANGO_TYPE_LAYOUT_LINE))
+
+static VALUE
+font_map_create(klass)
+    VALUE klass;
+{
+    return GOBJ2RVAL(pango_cairo_font_map_new());
+}
+
+static VALUE
+font_map_get_default(klass)
+    VALUE klass;
+{
+    return GOBJ2RVAL(pango_cairo_font_map_get_default());
+}
+
+static VALUE
+font_map_set_resolution(self, dpi)
+    VALUE self, dpi;
+{
+    pango_cairo_font_map_set_resolution(_SELF(self), NUM2DBL(dpi));
+    return self;
+}
+
+static VALUE
+font_map_get_resolution(self)
+    VALUE self;
+{
+    return rb_float_new(pango_cairo_font_map_get_resolution(_SELF(self)));
+}
+
+static VALUE
+font_map_create_context(VALUE self)
+{
+    return GOBJ2RVAL_UNREF(pango_cairo_font_map_create_context(_SELF(self)));
+}
+
+static VALUE
+update_context(self, context)
+    VALUE self, context;
+{
+    pango_cairo_update_context(RVAL2CRCONTEXT(self), RVAL2CONTEXT(context));
+    return self;
+}
+
+/* Convenience */
+static VALUE
+create_layout(VALUE self)
+{
+    return GOBJ2RVAL_UNREF(pango_cairo_create_layout(RVAL2CRCONTEXT(self)));
+}
+
+static VALUE
+update_layout(self, layout)
+    VALUE self, layout;
+{
+    pango_cairo_update_layout(RVAL2CRCONTEXT(self), RVAL2LAYOUT(layout));
+    return self;
+}
+
+/* Rendering */
+static VALUE
+show_glyph_string(self, font, glyphs)
+    VALUE self, font, glyphs;
+{
+    pango_cairo_show_glyph_string(RVAL2CRCONTEXT(self),
+                                  RVAL2FONT(font),
+                                  RVAL2GLYPH(glyphs));
+    return self;
+}
+
+static VALUE
+show_layout_line(self, line)
+    VALUE self, line;
+{
+    pango_cairo_show_layout_line(RVAL2CRCONTEXT(self), RVAL2LINE(line));
+    return self;
+}
+
+static VALUE
+show_layout(self, layout)
+    VALUE self, layout;
+{
+    pango_cairo_show_layout(RVAL2CRCONTEXT(self), RVAL2LAYOUT(layout));
+    return self;
+}
+
+#if PANGO_CHECK_VERSION(1,14,0)
+static VALUE
+show_error_underline(self, x, y, width, height)
+    VALUE self, x, y, width, height;
+{
+    pango_cairo_show_error_underline(RVAL2CRCONTEXT(self), 
+                                     NUM2DBL(x), NUM2DBL(y), 
+                                     NUM2DBL(width), NUM2DBL(height));
+    return self;
+}
+#endif
+
+/* Rendering to a path */
+static VALUE
+glyph_string_path(self, font, glyphs)
+    VALUE self, font, glyphs;
+{
+    pango_cairo_glyph_string_path(RVAL2CRCONTEXT(self),
+                                  RVAL2FONT(font),
+                                  RVAL2GLYPH(glyphs));
+    return self;
+}
+
+static VALUE
+layout_line_path(self, line)
+    VALUE self, line;
+{
+    pango_cairo_layout_line_path(RVAL2CRCONTEXT(self), RVAL2LINE(line));
+    return self;
+}
+
+static VALUE
+layout_path(self, layout)
+    VALUE self, layout;
+{
+    pango_cairo_layout_path(RVAL2CRCONTEXT(self), RVAL2LAYOUT(layout));
+    return self;
+}
+
+#if PANGO_CHECK_VERSION(1,14,0)
+static VALUE
+error_underline_path(self, x, y, width, height)
+    VALUE self, x, y, width, height;
+{
+    pango_cairo_error_underline_path(RVAL2CRCONTEXT(self), 
+                                     NUM2DBL(x), NUM2DBL(y), 
+                                     NUM2DBL(width), NUM2DBL(height));
+    return self;
+}
+#endif
+
+#endif
+
+static VALUE
+cairo_available_p(VALUE self)
+{
+#if CAIRO_AVAILABLE
+    return Qtrue;
+#else
+    return Qfalse;
+#endif
+}
+
+void
+Init_pango_cairo()
+{
+#ifdef CAIRO_AVAILABLE
+    VALUE pFontMap;
+
+    /* Pango::CairoFontMap */
+    pFontMap = G_DEF_CLASS(PANGO_TYPE_CAIRO_FONT_MAP, "CairoFontMap", mPango);
+
+    rb_define_singleton_method(pFontMap, "create", font_map_create, 0);
+    rb_define_singleton_method(pFontMap, "default", font_map_get_default, 0);
+
+    rb_define_method(pFontMap, "set_resolution", font_map_set_resolution, 1);
+    rb_define_method(pFontMap, "resolution", font_map_get_resolution, 0);
+    rb_define_method(pFontMap, "create_context", font_map_create_context, 0);
+
+    G_DEF_SETTERS(pFontMap);
+
+    /* Cairo::Context */
+    rb_define_method(rb_cCairo_Context, "update_pango_context",
+                     update_context, 1);
+    /* Convenience */
+    rb_define_method(rb_cCairo_Context, "create_pango_layout",
+                     create_layout, 0);
+    rb_define_method(rb_cCairo_Context, "update_pango_layout",
+                     update_layout, 1);
+    /* Rendering */
+    rb_define_method(rb_cCairo_Context, "show_pango_glyph_string",
+                     show_glyph_string, 2);
+    rb_define_method(rb_cCairo_Context, "show_pango_layout_line",
+                     show_layout_line, 1);
+    rb_define_method(rb_cCairo_Context, "show_pango_layout",
+                     show_layout, 1);
+#if PANGO_CHECK_VERSION(1,14,0)
+    rb_define_method(rb_cCairo_Context, "show_pango_error_underline",
+                     show_error_underline, 4);
+#endif
+    /* Rendering to a path */
+    rb_define_method(rb_cCairo_Context, "pango_glyph_string_path",
+                     glyph_string_path, 2);
+    rb_define_method(rb_cCairo_Context, "pango_layout_line_path",
+                     layout_line_path, 1);
+    rb_define_method(rb_cCairo_Context, "pango_layout_path",
+                     layout_path, 1);
+
+#if PANGO_CHECK_VERSION(1,14,0)
+    rb_define_method(rb_cCairo_Context, "pango_error_underline_path",
+                     error_underline_path, 4);
+#endif
+
+#endif
+
+    rb_define_module_function(mPango, "cairo_available?", cairo_available_p, 0);
+}