pango 0.20.0

data/src/rbpangologattr.c

@@ -0,0 +1,107 @@
+/* -*- c-file-style: "ruby"; indent-tabs-mode: nil -*- */
+/************************************************
+
+  rbpangologattr.c -
+
+  $Author: ggc $
+  $Date: 2007/07/13 16:07:33 $
+
+  Copyright (C) 2003 Masao Mutoh
+************************************************/
+
+#include "rbpango.h"
+
+#define _SELF(s) ((PangoLogAttr*)RVAL2BOXED(s, PANGO_TYPE_LOG_ATTR))
+
+/**********************************/
+static PangoLogAttr*
+log_copy(const PangoLogAttr* val)
+{
+    PangoLogAttr* new_val;
+    g_return_val_if_fail (val != NULL, NULL);
+    new_val = g_new(PangoLogAttr, 1);
+    *new_val = *val;
+    return new_val;
+}
+                                                                                     
+GType
+pango_log_attr_get_type(void)
+{
+    static GType our_type = 0;
+                                                                                     
+    if (our_type == 0)
+        our_type = g_boxed_type_register_static ("PangoLogAttr",
+                    (GBoxedCopyFunc)log_copy,
+                    (GBoxedFreeFunc)g_free);
+    return our_type;
+}
+/**********************************/
+
+#define ATTR_BOOL(name)\
+static VALUE \
+log_get_ ## name (self)\
+    VALUE self;\
+{\
+    return CBOOL2RVAL(_SELF(self)->name);\
+}\
+static VALUE \
+log_set_ ## name (self, val)\
+    VALUE self, val;\
+{\
+    _SELF(self)->name = RVAL2CBOOL(val);\
+    return self;\
+}
+
+static VALUE
+log_initialize(self)
+    VALUE self;
+{
+    PangoLogAttr log;
+    G_INITIALIZE(self, &log);
+    return Qnil;
+}
+
+#define DEFINE_ACCESSOR(logattr, name) \
+    rb_define_method(logattr, G_STRINGIFY(name?), log_get_is_ ## name, 0);\
+    rb_define_method(logattr, G_STRINGIFY(set_ ## name), log_set_is_ ## name, 1);
+
+ATTR_BOOL(is_line_break);
+ATTR_BOOL(is_mandatory_break);
+ATTR_BOOL(is_char_break);
+ATTR_BOOL(is_white);
+ATTR_BOOL(is_cursor_position);
+ATTR_BOOL(is_word_start);
+ATTR_BOOL(is_word_end);
+ATTR_BOOL(is_sentence_boundary);
+ATTR_BOOL(is_sentence_start);
+ATTR_BOOL(is_sentence_end);
+
+#if PANGO_CHECK_VERSION(1,4,0)
+ATTR_BOOL(backspace_deletes_character);
+#endif
+
+void
+Init_pango_logattr()
+{
+    VALUE logattr = G_DEF_CLASS(PANGO_TYPE_LOG_ATTR, "LogAttr", mPango);
+    
+    rb_define_method(logattr, "initialize", log_initialize, 0);
+
+    DEFINE_ACCESSOR(logattr, line_break);
+    DEFINE_ACCESSOR(logattr, mandatory_break);
+    DEFINE_ACCESSOR(logattr, char_break);
+    DEFINE_ACCESSOR(logattr, white);
+    DEFINE_ACCESSOR(logattr, cursor_position);
+    DEFINE_ACCESSOR(logattr, word_start);
+    DEFINE_ACCESSOR(logattr, word_end);
+    DEFINE_ACCESSOR(logattr, sentence_boundary);
+    DEFINE_ACCESSOR(logattr, sentence_start);
+    DEFINE_ACCESSOR(logattr, sentence_end);
+
+#if PANGO_CHECK_VERSION(1,4,0)
+    rb_define_method(logattr, "backspace_deletes_character?", log_get_backspace_deletes_character, 0); 
+    rb_define_method(logattr, "set_backspace_deletes_character", log_set_backspace_deletes_character, 1); 
+#endif
+
+    G_DEF_SETTERS(logattr);
+}

data/src/rbpangomain.c

@@ -0,0 +1,213 @@
+/* -*- c-file-style: "ruby"; indent-tabs-mode: nil -*- */
+/************************************************
+
+  rbpangomain.c -
+
+  $Author: sakai $
+  $Date: 2007/07/08 02:53:10 $
+
+  Copyright (C) 2002-2005 Masao Mutoh
+************************************************/
+
+#include "rbpango.h"
+
+/*
+ * Rendering
+ */
+
+static VALUE
+rpango_reorder_items(self, logical_items)
+    VALUE self, logical_items;
+{
+    int i;
+    GList *glist = NULL;
+    GList* ret;
+
+    Check_Type(logical_items, T_ARRAY);
+
+    for (i = 0; i < RARRAY_LEN(logical_items); i++){
+        glist = g_list_append(glist, RVAL2BOXED(RARRAY_PTR(logical_items)[i], PANGO_TYPE_ITEM));
+    }
+
+    ret = pango_reorder_items(glist);
+    g_list_free(glist);
+
+    return GLIST2ARY2(ret, PANGO_TYPE_ITEM);
+}
+
+#if PANGO_CHECK_VERSION(1,4,0)
+static VALUE
+rpango_unichar_direction(self, ch)
+    VALUE self, ch;
+{
+    return GENUM2RVAL(pango_unichar_direction(NUM2UINT(ch)), PANGO_TYPE_DIRECTION);
+}
+
+static VALUE
+rpango_find_base_dir(self, text)
+    VALUE self, text;
+{
+    StringValue(text);
+    return GENUM2RVAL(pango_find_base_dir(RVAL2CSTR(text), RSTRING_LEN(text)), 
+                      PANGO_TYPE_DIRECTION);
+}
+#endif
+
+static VALUE
+rpango_break(self, text, analysis)
+    VALUE self, text, analysis;
+{
+    gint i, len;
+    glong attrs_len;
+    PangoLogAttr* attrs;
+    gchar* gtext;
+    VALUE ret;
+
+    StringValue(text);
+    len = RSTRING_LEN(text);
+    gtext = RVAL2CSTR(text);
+    attrs_len = g_utf8_strlen(gtext, (gssize)len) + 1l;
+    attrs = g_new0(PangoLogAttr, attrs_len);
+
+    pango_break((const gchar*)gtext, len,
+                        NIL_P(analysis) ? NULL : RVAL2BOXED(analysis, PANGO_TYPE_ANALYSIS),
+                        attrs, attrs_len);
+
+    ret = rb_ary_new();
+    for (i = 0; i < attrs_len; i++){
+        rb_ary_push(ret, BOXED2RVAL(&attrs[i], PANGO_TYPE_LOG_ATTR));
+    }
+    g_free(attrs);
+    return ret;
+}
+
+static VALUE
+rpango_get_log_attrs(self, text, level, language)
+    VALUE self, text, level, language;
+{
+    gint i, len;
+    glong attrs_len;
+    PangoLogAttr* attrs;
+    gchar* gtext;
+    VALUE ret;
+
+    StringValue(text);
+    len = RSTRING_LEN(text);
+    gtext = RVAL2CSTR(text);
+    attrs_len = g_utf8_strlen(gtext, (gssize)len) + 1l;
+    attrs = g_new0(PangoLogAttr, attrs_len);
+
+    pango_get_log_attrs((const gchar*)gtext, len, NUM2INT(level),
+                        RVAL2BOXED(language, PANGO_TYPE_LANGUAGE),
+                        attrs, attrs_len);
+
+    ret = rb_ary_new();
+    for (i = 0; i < attrs_len; i++){
+        rb_ary_push(ret, BOXED2RVAL(&attrs[i], PANGO_TYPE_LOG_ATTR));
+    }
+    g_free(attrs);
+    return ret;
+}
+
+static VALUE
+rpango_find_paragraph_boundary(self, text)
+     VALUE self, text;
+{
+    gint paragraph_delimiter_index, next_paragraph_start;
+    
+    pango_find_paragraph_boundary(RVAL2CSTR(text), RSTRING_LEN(text),
+                                  &paragraph_delimiter_index,
+                                  &next_paragraph_start);
+    return rb_ary_new3(2, INT2NUM(paragraph_delimiter_index), 
+                       INT2NUM(next_paragraph_start));
+}
+
+/*
+Don't need to implement this. Use pango_break instead.
+void        pango_default_break             (const gchar *text,
+                                             int length,
+                                             PangoAnalysis *analysis,
+                                             PangoLogAttr *attrs,
+                                             int attrs_len);
+*/
+
+static VALUE
+rpango_shape(self, text, analysis)
+    VALUE self, text, analysis;
+{
+    VALUE ret;
+    PangoGlyphString* glyphs = pango_glyph_string_new();
+    StringValue(text);
+    pango_shape(RVAL2CSTR(text), RSTRING_LEN(text), RVAL2BOXED(analysis, PANGO_TYPE_ANALYSIS), glyphs);
+    ret = BOXED2RVAL(glyphs, PANGO_TYPE_GLYPH_STRING);
+    pango_glyph_string_free (glyphs);
+    return ret;
+}
+
+/* This method is from rbpangoattribute.c */
+static VALUE
+rpango_parse_markup(argc, argv, self)
+    int argc;
+    VALUE *argv;
+    VALUE self;
+{
+    VALUE markup_text, accel_marker;
+    PangoAttrList *pattr_list;
+    gchar* gtext;
+    gunichar accel_char;
+    GError *error = NULL;
+    gboolean ret;
+    char c;
+    VALUE text = Qnil;
+    VALUE attr_list = Qnil;
+
+    rb_scan_args(argc, argv, "11", &markup_text, &accel_marker);
+
+    if (NIL_P(markup_text)) rb_raise(rb_eRuntimeError, "1st argument can't accept nil");
+
+    ret = pango_parse_markup(RVAL2CSTR(markup_text),
+                             RSTRING_LEN(markup_text),
+                             NIL_P(accel_marker) ? 0 : NUM2CHR(accel_marker),
+                             &pattr_list, &gtext, &accel_char, &error);
+
+    if (!ret) RAISE_GERROR(error);
+
+    if (pattr_list){
+        attr_list = BOXED2RVAL(pattr_list, PANGO_TYPE_ATTR_LIST); 
+        pango_attr_list_unref(pattr_list);
+    }
+
+    c = (char)accel_char;
+    if (text){
+        text = CSTR2RVAL(gtext);
+        g_free(gtext);
+    }
+    return rb_ary_new3(3, attr_list, text,
+                       accel_char ? rb_str_new(&c, 1) : Qnil);
+}
+
+static VALUE
+rpango_pixels(self, pixels)
+    VALUE self, pixels;
+{
+    return rb_float_new(PANGO_PIXELS(NUM2DBL(pixels)));
+}
+
+void
+Init_pango_main()
+{
+    rb_define_module_function(mPango, "reorder_items", rpango_reorder_items, 1);
+
+#if PANGO_CHECK_VERSION(1,4,0)
+    rb_define_module_function(mPango, "unichar_direction", rpango_unichar_direction, 1);
+    rb_define_module_function(mPango, "find_base_dir", rpango_find_base_dir, 1);
+#endif
+    rb_define_module_function(mPango, "break", rpango_break, 2);
+    rb_define_module_function(mPango, "get_log_attrs", rpango_get_log_attrs, 3);
+    rb_define_module_function(mPango, "find_paragraph_boundary", rpango_find_paragraph_boundary, 1);
+    rb_define_module_function(mPango, "shape", rpango_shape, 2);
+    rb_define_module_function(mPango, "parse_markup", rpango_parse_markup, -1);
+    rb_define_module_function(mPango, "pixels", rpango_pixels, 1);
+
+    rb_define_const(mPango, "SCALE", INT2FIX(PANGO_SCALE));
+}

data/src/rbpangomatrix.c

@@ -0,0 +1,155 @@
+/* -*- c-file-style: "ruby"; indent-tabs-mode: nil -*- */
+/************************************************
+
+  rbpangomatrix.c -
+
+  $Author: mutoh $
+  $Date: 2006/12/10 15:13:10 $
+
+  Copyright (C) 2005 Masao Mutoh
+************************************************/
+
+#include "rbpango.h"
+
+#if PANGO_CHECK_VERSION(1,6,0)
+#define _SELF(self) ((PangoMatrix*)(RVAL2BOXED(self, PANGO_TYPE_MATRIX)))
+
+#define ATTR_FLOAT(name)\
+static VALUE \
+matrix_get_ ## name (self)\
+    VALUE self;\
+{\
+    return rb_float_new(_SELF(self)->name);\
+}\
+static VALUE \
+matrix_set_ ## name (self, val)\
+    VALUE self, val;\
+{\
+    _SELF(self)->name = NUM2DBL(val);\
+    return self;\
+}
+
+#define DEFINE_ACCESSOR(name) \
+    rb_define_method(matrix, G_STRINGIFY(name), matrix_get_ ## name, 0);\
+    rb_define_method(matrix, G_STRINGIFY(set_ ## name), matrix_set_## name, 1);
+
+static VALUE
+matrix_initialize(argc, argv, self)
+    int argc;
+    VALUE *argv;
+    VALUE self;
+{
+    PangoMatrix matrix = PANGO_MATRIX_INIT;
+    VALUE xx, xy, yx, yy, x0, y0;
+
+    rb_scan_args(argc, argv, "06", &xx, &xy, &yx, &yy, &x0, &y0);
+
+    if (argc > 0){
+        matrix.xx = NUM2DBL(xx);
+        matrix.xy = NUM2DBL(xy);
+        matrix.yx = NUM2DBL(yx);
+        matrix.yy = NUM2DBL(yy);
+        matrix.x0 = NUM2DBL(x0);
+        matrix.y0 = NUM2DBL(y0);
+    }
+    G_INITIALIZE(self, &matrix);
+    return Qnil;
+}
+
+static VALUE
+matrix_translate(self, tx, ty)
+    VALUE self, tx, ty;
+{
+    pango_matrix_translate(_SELF(self), NUM2DBL(tx), NUM2DBL(ty));
+    return self;
+}
+
+static VALUE
+matrix_scale(self, scale_x, scale_y)
+    VALUE self, scale_x, scale_y;
+{
+    pango_matrix_scale(_SELF(self), NUM2DBL(scale_x), NUM2DBL(scale_y));
+    return self;
+}
+
+static VALUE
+matrix_rotate(self, degrees)
+    VALUE self, degrees;
+{
+    pango_matrix_rotate(_SELF(self), NUM2DBL(degrees));
+    return self;
+}
+
+#if PANGO_CHECK_VERSION(1,16,0)
+static VALUE
+matrix_get_gravity(VALUE self)
+{
+    return GENUM2RVAL(pango_gravity_get_for_matrix(_SELF(self)), PANGO_TYPE_GRAVITY);
+}
+#endif
+
+static VALUE
+matrix_concat(self, new_matrix)
+    VALUE self, new_matrix;
+{
+    pango_matrix_concat(_SELF(self), _SELF(new_matrix));
+    return self;
+}
+
+#if PANGO_CHECK_VERSION(1,12,0)
+static VALUE
+matrix_get_font_scale_factor(self)
+    VALUE self;
+{
+    return rb_float_new(pango_matrix_get_font_scale_factor(_SELF(self)));
+}
+#endif
+
+ATTR_FLOAT(xx);
+ATTR_FLOAT(xy);
+ATTR_FLOAT(yx);
+ATTR_FLOAT(yy);
+ATTR_FLOAT(x0);
+ATTR_FLOAT(y0);
+
+static VALUE
+matrix_to_a(self)
+    VALUE self;
+{
+    PangoMatrix* matrix = _SELF(self);
+    return rb_ary_new3(6, INT2NUM(matrix->xx), INT2NUM(matrix->xy), INT2NUM(matrix->yx),
+                       INT2NUM(matrix->yy), INT2NUM(matrix->x0), INT2NUM(matrix->y0));
+}
+
+#endif
+
+void
+Init_pango_matrix()
+{
+#if PANGO_CHECK_VERSION(1,6,0)
+    VALUE matrix = G_DEF_CLASS(PANGO_TYPE_MATRIX, "Matrix", mPango);
+    
+    rb_define_method(matrix, "initialize", matrix_initialize, -1);
+    rb_define_method(matrix, "translate!", matrix_translate, 2);
+    rb_define_method(matrix, "scale!", matrix_scale, 2);
+    rb_define_method(matrix, "rotate!", matrix_rotate, 1);
+    rb_define_method(matrix, "concat!", matrix_concat, 1);
+#if PANGO_CHECK_VERSION(1,12,0)
+    rb_define_method(matrix, "font_scale_factor", matrix_get_font_scale_factor, 0);
+#endif
+#if PANGO_CHECK_VERSION(1,16,0)
+    rb_define_method(matrix, "gravity", matrix_get_gravity, 0);
+#endif
+    rb_define_method(matrix, "to_a", matrix_to_a, 0);
+
+    DEFINE_ACCESSOR(xx);
+    DEFINE_ACCESSOR(xy);
+    DEFINE_ACCESSOR(yx);
+    DEFINE_ACCESSOR(yy);
+    DEFINE_ACCESSOR(x0);
+    DEFINE_ACCESSOR(y0);
+
+    G_DEF_SETTERS(matrix);
+
+#endif
+}