pango 0.20.0

data/src/rbpangorectangle.c

@@ -0,0 +1,178 @@
+/* -*- c-file-style: "ruby"; indent-tabs-mode: nil -*- */
+/************************************************
+
+  rbpangolayoutline.c -
+
+  $Author: mutoh $
+  $Date: 2005/02/13 17:31:33 $
+
+  Copyright (C) 2002,2003 Masao Mutoh
+************************************************/
+
+#include "rbpango.h"
+
+#define _SELF(s) ((PangoRectangle*)RVAL2BOXED(s, PANGO_TYPE_RECTANGLE))
+
+/**********************************/
+static PangoRectangle*
+pango_rectangle_copy(ref)
+    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
+pango_rectangle_initialize(self, x, y, width, height)
+    VALUE self, x, y, width, height;
+{
+    PangoRectangle new;
+
+    new.x = NUM2INT(x);
+    new.y = NUM2INT(y);
+    new.width = NUM2INT(width);
+    new.height = NUM2INT(height);
+
+    G_INITIALIZE(self, &new);
+    return Qnil;
+}
+
+
+static VALUE
+pango_rectangle_x(self)
+    VALUE self;
+{
+    return INT2NUM(_SELF(self)->x);
+}
+
+static VALUE
+pango_rectangle_y(self)
+    VALUE self;
+{
+    return INT2NUM(_SELF(self)->y);
+}
+
+static VALUE
+pango_rectangle_w(self)
+    VALUE self;
+{
+    return INT2NUM(_SELF(self)->width);
+}
+
+static VALUE
+pango_rectangle_h(self)
+    VALUE self;
+{
+    return INT2NUM(_SELF(self)->height);
+}
+
+static VALUE
+pango_rectangle_set_x(self, x)
+    VALUE self, x;
+{
+    _SELF(self)->x = NUM2INT(x);
+    return self;
+}
+
+static VALUE
+pango_rectangle_set_y(self, y)
+    VALUE self, y;
+{
+    _SELF(self)->y = NUM2INT(y);
+    return self;
+}
+static VALUE
+pango_rectangle_set_w(self, width)
+    VALUE self, width;
+{
+    _SELF(self)->width = NUM2INT(width);
+    return self;
+}
+
+static VALUE
+pango_rectangle_set_h(self, height)
+    VALUE self, height;
+{
+    _SELF(self)->height = NUM2INT(height);
+    return self;
+}
+static VALUE
+pango_rectangle_to_a(self)
+    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
+pango_rectangle_ascent(self)
+    VALUE self;
+{
+    PangoRectangle* r =_SELF(self);
+    return INT2NUM(PANGO_ASCENT(*r));
+}
+
+static VALUE
+pango_rectangle_descent(self)
+    VALUE self;
+{
+    PangoRectangle* r =_SELF(self);
+    return INT2NUM(PANGO_DESCENT(*r));
+}
+
+static VALUE
+pango_rectangle_lbearing(self)
+    VALUE self;
+{
+    PangoRectangle* r =_SELF(self);
+    return INT2NUM(PANGO_LBEARING(*r));
+}
+
+static VALUE
+pango_rectangle_rbearing(self)
+    VALUE self;
+{
+    PangoRectangle* r =_SELF(self);
+    return INT2NUM(PANGO_RBEARING(*r));
+}
+
+
+void
+Init_pango_rectangle()
+{
+    VALUE pRectangle = G_DEF_CLASS(PANGO_TYPE_RECTANGLE, "Rectangle", mPango);
+    rb_define_method(pRectangle, "initialize", pango_rectangle_initialize, 4);
+    rb_define_method(pRectangle, "x", pango_rectangle_x, 0);
+    rb_define_method(pRectangle, "y", pango_rectangle_y, 0);
+    rb_define_method(pRectangle, "width", pango_rectangle_w, 0);
+    rb_define_method(pRectangle, "height", pango_rectangle_h, 0);
+    rb_define_method(pRectangle, "set_x", pango_rectangle_set_x, 1);
+    rb_define_method(pRectangle, "set_y", pango_rectangle_set_y, 1);
+    rb_define_method(pRectangle, "set_width", pango_rectangle_set_w, 1);
+    rb_define_method(pRectangle, "set_height", pango_rectangle_set_h, 1);
+    rb_define_method(pRectangle, "to_a", pango_rectangle_to_a, 0);
+
+    rb_define_method(pRectangle, "ascent", pango_rectangle_ascent, 0);
+    rb_define_method(pRectangle, "descent", pango_rectangle_descent, 0);
+    rb_define_method(pRectangle, "lbearing", pango_rectangle_lbearing, 0);
+    rb_define_method(pRectangle, "rbearing", pango_rectangle_rbearing, 0);
+
+    G_DEF_SETTERS(pRectangle);
+}

data/src/rbpangorenderer.c

@@ -0,0 +1,204 @@
+/* -*- c-file-style: "ruby"; indent-tabs-mode: nil -*- */
+/************************************************
+
+  rbpangorenderer.c -
+
+  $Author: ggc $
+  $Date: 2006/06/22 19:52:54 $
+
+  Copyright (C) 2005 Masao Mutoh 
+************************************************/
+
+#include "rbpango.h"
+
+#if PANGO_CHECK_VERSION(1,8,0)
+#define _SELF(self) (PANGO_RENDERER(RVAL2GOBJ(self)))
+
+static VALUE
+renderer_draw_layout(self, layout, x, y)
+    VALUE self, layout, x, y;
+{
+    pango_renderer_draw_layout(_SELF(self), 
+                               PANGO_LAYOUT(RVAL2GOBJ(layout)),
+                               NUM2INT(x), NUM2INT(y));
+    return self;
+}
+
+static VALUE
+renderer_draw_layout_line(self, line, x, y)
+    VALUE self, line, x, y;
+{
+    pango_renderer_draw_layout_line(_SELF(self),  
+                                    (PangoLayoutLine*)RVAL2BOXED(line, PANGO_TYPE_LAYOUT_LINE),
+                                    NUM2INT(x), NUM2INT(y));
+    return self;
+}
+
+static VALUE
+renderer_draw_glyphs(self, font, glyphs, x, y)
+    VALUE self, font, glyphs, x, y;
+{
+    pango_renderer_draw_glyphs(_SELF(self), 
+                               PANGO_FONT(RVAL2GOBJ(self)),
+                               (PangoGlyphString*)(RVAL2BOXED(self, PANGO_TYPE_GLYPH_STRING)),
+                               NUM2INT(x), NUM2INT(y));
+    return self;
+}
+
+static VALUE
+renderer_draw_rectangle(self, part, x, y, width, height)
+    VALUE self, part, x, y, width, height;
+{
+#if HAVE_PANGO_RENDER_PART_GET_TYPE
+    pango_renderer_draw_rectangle(_SELF(self), RVAL2GENUM(part, PANGO_TYPE_RENDER_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
+renderer_draw_error_underline(self, x, y, width, height)
+    VALUE self, x, y, width, height;
+{
+    pango_renderer_draw_error_underline(_SELF(self),
+                                        NUM2INT(x), NUM2INT(y), NUM2INT(width), NUM2INT(height));
+    return self;
+}
+
+static VALUE
+renderer_draw_trapezoid(self, part, y1, x11, x21, y2, x12, x22)
+    VALUE self, part, y1, x11, x21, y2, x12, x22;
+{
+#if HAVE_PANGO_RENDER_PART_GET_TYPE
+    pango_renderer_draw_trapezoid(_SELF(self), 
+                                  RVAL2GENUM(part, PANGO_TYPE_RENDER_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
+renderer_draw_glyph(self, font, glyph, x, y)
+    VALUE self, font, glyph, x, y;
+{
+    pango_renderer_draw_glyph(_SELF(self), PANGO_FONT(RVAL2GOBJ(self)),
+                              NUM2INT(glyph), NUM2INT(x), NUM2INT(y));
+    return self;
+}
+
+static VALUE
+renderer_deactivate(self)
+    VALUE self;
+{
+    pango_renderer_deactivate(_SELF(self));
+    return self;
+}
+
+static VALUE
+renderer_activate(self)
+    VALUE self;
+{
+    pango_renderer_activate(_SELF(self));
+    if (rb_block_given_p()) {
+        rb_ensure(rb_yield, self, renderer_deactivate, self);
+    }
+    return self;
+}
+
+static VALUE
+renderer_part_changed(self, part)
+    VALUE self, part;
+{
+#if HAVE_PANGO_RENDER_PART_GET_TYPE
+    pango_renderer_part_changed(_SELF(self), RVAL2GENUM(part, PANGO_TYPE_RENDER_PART));
+#else
+    pango_renderer_part_changed(_SELF(self), NUM2INT(part));
+#endif
+    return self;
+}
+
+static VALUE
+renderer_set_color(self, part, color)
+    VALUE self, part, color;
+{
+#if HAVE_PANGO_RENDER_PART_GET_TYPE
+    pango_renderer_set_color(_SELF(self), RVAL2GENUM(part, PANGO_TYPE_RENDER_PART),
+                             (PangoColor*)(NIL_P(color) ? NULL : RVAL2BOXED(color, PANGO_TYPE_COLOR)));
+#else
+    pango_renderer_set_color(_SELF(self), NUM2INT(part),
+                             (PangoColor*)(NIL_P(color) ? NULL : RVAL2BOXED(color, PANGO_TYPE_COLOR)));
+#endif
+    return self;
+}
+
+static VALUE
+renderer_get_color(self, part)
+    VALUE self, part;
+{
+#if HAVE_PANGO_RENDER_PART_GET_TYPE
+    PangoColor* color = pango_renderer_get_color(_SELF(self),
+                                                 RVAL2GENUM(part, PANGO_TYPE_RENDER_PART));
+#else
+    PangoColor* color = pango_renderer_get_color(_SELF(self),NUM2INT(part));
+#endif
+    return BOXED2RVAL(color, PANGO_TYPE_COLOR);
+}
+
+static VALUE
+renderer_set_matrix(self, matrix)
+    VALUE self, matrix;
+{
+    pango_renderer_set_matrix(_SELF(self), 
+                              (PangoMatrix*)(NIL_P(matrix) ? NULL : RVAL2BOXED(matrix, PANGO_TYPE_MATRIX)));
+    return self;
+}
+
+static VALUE
+renderer_get_matrix(self)
+    VALUE self;
+{
+    const PangoMatrix* matrix = pango_renderer_get_matrix(_SELF(self));
+    return BOXED2RVAL((PangoMatrix*)matrix, PANGO_TYPE_MATRIX);
+}
+
+#endif
+
+void
+Init_pangorenderer()
+{
+#if PANGO_CHECK_VERSION(1,8,0)
+    VALUE renderer = G_DEF_CLASS(PANGO_TYPE_RENDERER, "Renderer", mPango);
+
+    rb_define_method(renderer, "draw_layout", renderer_draw_layout, 3);
+    rb_define_method(renderer, "draw_layout_line", renderer_draw_layout_line, 3);
+    rb_define_method(renderer, "draw_glyphs", renderer_draw_glyphs, 4);
+    rb_define_method(renderer, "draw_rectangle", renderer_draw_rectangle, 5);
+    rb_define_method(renderer, "draw_error_underline", renderer_draw_error_underline, 4);
+    rb_define_method(renderer, "draw_trapezoid", renderer_draw_trapezoid, 7);
+    rb_define_method(renderer, "draw_glyph", renderer_draw_glyph, 4);
+    rb_define_method(renderer, "activate", renderer_activate, 0);
+    rb_define_method(renderer, "deactivate", renderer_deactivate, 0); 
+    rb_define_method(renderer, "part_changed", renderer_part_changed, 1);
+    rb_define_method(renderer, "set_color", renderer_set_color, 2);
+    rb_define_method(renderer, "get_color", renderer_get_color, 1);
+    rb_define_method(renderer, "set_matrix", renderer_set_matrix, 1);
+    rb_define_method(renderer, "matrix", renderer_get_matrix, 0);
+
+    G_DEF_SETTERS(renderer);
+
+    /* PangoRenderPart */
+#if HAVE_PANGO_RENDER_PART_GET_TYPE
+    G_DEF_CLASS(PANGO_TYPE_RENDER_PART, "Part", renderer);
+    G_DEF_CONSTANTS(renderer, PANGO_TYPE_RENDER_PART, "PANGO_RENDER_");
+#endif
+
+#endif
+}

data/src/rbpangoscript.c

@@ -0,0 +1,80 @@
+/* -*- c-file-style: "ruby"; indent-tabs-mode: nil -*- */
+/************************************************
+
+  rbpangoscript.c -
+
+  $Author: ggc $
+  $Date: 2006/06/22 19:52:54 $
+
+  Copyright (C) 2005 Masao Mutoh
+************************************************/
+
+#include "rbpango.h"
+
+#if PANGO_CHECK_VERSION(1,4,0)
+#define _SELF(r) (RVAL2GENUM(r, PANGO_TYPE_SCRIPT))
+
+static VALUE
+rbpango_s_script_for_unichar(self, ch)
+    VALUE self, ch;
+{
+    return GENUM2RVAL(pango_script_for_unichar(NUM2UINT(ch)), PANGO_TYPE_SCRIPT);
+}
+
+static VALUE
+rbpango_script_get_sample_language(self)
+    VALUE self;
+{
+    PangoLanguage* lang = pango_script_get_sample_language(_SELF(self));
+    return BOXED2RVAL(lang, PANGO_TYPE_LANGUAGE);
+}
+
+#if PANGO_CHECK_VERSION(1,16,0)
+static VALUE
+rbpango_script_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),
+                                         RVAL2GENUM(gravity, PANGO_TYPE_GRAVITY),
+                                         RVAL2GENUM(gravity_hint, PANGO_TYPE_GRAVITY_HINT));
+    } else {
+#  if PANGO_CHECK_VERSION(1,26,0)
+        g = pango_gravity_get_for_script_and_width(_SELF(self),
+                                                   RVAL2CBOOL(wide),
+                                                   RVAL2GENUM(gravity, PANGO_TYPE_GRAVITY),
+                                                   RVAL2GENUM(gravity_hint, PANGO_TYPE_GRAVITY_HINT));
+#  else
+        rb_raise(rb_eArgError,
+                 "the 3rd 'wide' argument requires Pango >= 1.26");
+#  endif
+    }
+    return GENUM2RVAL(g, PANGO_TYPE_GRAVITY);
+}
+#endif
+
+/* Move to Pango::Language
+gboolean    pango_language_includes_script  (PangoLanguage *language,
+                                             PangoScript script);
+*/
+#endif
+
+void
+Init_pango_script()
+{
+#if PANGO_CHECK_VERSION(1,4,0)
+    VALUE script = G_DEF_CLASS(PANGO_TYPE_SCRIPT, "Script", mPango);
+
+    rb_define_singleton_method(script, "for_unichar", rbpango_s_script_for_unichar, 1);
+    rb_define_method(script, "sample_language", rbpango_script_get_sample_language, 0);
+#endif
+#if PANGO_CHECK_VERSION(1,16,0)
+    rb_define_method(script, "get_gravity", rbpango_script_get_gravity, -1);
+#endif
+}
+