pango 0.20.0

data/src/rbpangofontface.c

@@ -0,0 +1,71 @@
+/* -*- c-file-style: "ruby"; indent-tabs-mode: nil -*- */
+/************************************************
+
+  rbpangofontface.c -
+
+  $Author: mutoh $
+  $Date: 2006/12/10 15:13:10 $
+
+  Copyright (C) 2002,2003 Masao Mutoh <mutoh@highway.ne.jp>
+************************************************/
+
+#include "rbpango.h"
+
+#define _SELF(self) (PANGO_FONT_FACE(RVAL2GOBJ(self)))
+
+static VALUE
+font_face_get_face_name(self)
+    VALUE self;
+{
+    return CSTR2RVAL(pango_font_face_get_face_name(_SELF(self)));
+}
+
+static VALUE
+font_face_describe(self)
+    VALUE self;
+{
+    return BOXED2RVAL(pango_font_face_describe(_SELF(self)), PANGO_TYPE_FONT_DESCRIPTION);
+}
+
+#if PANGO_CHECK_VERSION(1,4,0)
+static VALUE
+font_face_list_sizes(self)
+    VALUE self;
+{
+    int n_sizes;
+    int* sizes;
+    int i;
+    VALUE result;
+
+    pango_font_face_list_sizes(_SELF(self),
+                               &sizes,
+                               &n_sizes);
+
+    result = rb_ary_new();
+    for (i = 0; i < n_sizes; i++)
+      rb_ary_push(result, GOBJ2RVAL(&sizes[i]));
+
+    g_free(sizes);
+    return result;
+}
+#endif
+
+void
+Init_pango_font_face()
+{
+    VALUE pFace = G_DEF_CLASS(PANGO_TYPE_FONT_FACE, "FontFace", mPango);
+    
+    rb_define_method(pFace, "name", font_face_get_face_name, 0);
+    rb_define_method(pFace, "describe", font_face_describe, 0);
+#if PANGO_CHECK_VERSION(1,4,0)
+    rb_define_method(pFace, "sizes", font_face_list_sizes, 0);
+#endif
+    G_DEF_CLASS3("PangoFcFace", "FcFace", mPango);
+    G_DEF_CLASS3("PangoFT2Face", "FT2Face", mPango);
+    G_DEF_CLASS3("PangoXftFace", "XftFace", mPango);
+    G_DEF_CLASS3("PangoXFace", "XFace", mPango);
+    G_DEF_CLASS3("PangoWin32Face", "Win32Face", mPango);
+#if PANGO_CHECK_VERSION(1,12,0)
+    G_DEF_CLASS3("PangoATSUIFace", "ATSUIFace", mPango);
+#endif
+}

data/src/rbpangofontfamily.c

@@ -0,0 +1,74 @@
+/* -*- c-file-style: "ruby"; indent-tabs-mode: nil -*- */
+/************************************************
+
+  rbpangofontfamily.c -
+
+  $Author: mutoh $
+  $Date: 2006/12/10 15:13:10 $
+
+  Copyright (C) 2002-2005 Masao Mutoh 
+************************************************/
+
+#include "rbpango.h"
+
+#define _SELF(self) (PANGO_FONT_FAMILY(RVAL2GOBJ(self)))
+
+static VALUE
+font_family_get_name(self)
+    VALUE self;
+{
+    return CSTR2RVAL(pango_font_family_get_name(_SELF(self)));
+}
+
+#ifdef HAVE_PANGO_FONT_FAMILY_IS_MONOSPACE
+static VALUE
+font_family_is_monospace(self)
+    VALUE self;
+{
+    return CBOOL2RVAL(pango_font_family_is_monospace(_SELF(self)));
+}
+#endif
+
+static VALUE
+font_family_list_faces(self)
+    VALUE self;
+{
+    int n_faces;
+    PangoFontFace** faces;
+    int i;
+    VALUE result;
+
+    pango_font_family_list_faces(_SELF(self),
+                                 &faces,
+                                 &n_faces);
+
+    result = rb_ary_new2(n_faces);
+    for (i = 0; i < n_faces; i++)
+      rb_ary_store(result, i, GOBJ2RVAL(faces[i]));
+
+    g_free(faces);
+
+    return result;
+}
+
+void
+Init_pango_font_family()
+{
+    VALUE pFamily = G_DEF_CLASS(PANGO_TYPE_FONT_FAMILY, "FontFamily", mPango);
+    
+    rb_define_method(pFamily, "name", font_family_get_name, 0);
+#ifdef HAVE_PANGO_FONT_FAMILY_IS_MONOSPACE
+    rb_define_method(pFamily, "monospace?", font_family_is_monospace, 0);
+#endif
+    rb_define_method(pFamily, "faces", font_family_list_faces, 0);
+
+    G_DEF_CLASS3("PangoFcFamily", "FcFamily", mPango);
+    G_DEF_CLASS3("PangoFT2Family", "FT2Family", mPango);
+    G_DEF_CLASS3("PangoXftFamily", "XftFamily", mPango);
+    G_DEF_CLASS3("PangoXFamily", "XFamily", mPango);
+    G_DEF_CLASS3("PangoWin32Family", "Win32Family", mPango);
+#if PANGO_CHECK_VERSION(1,12,0)
+    G_DEF_CLASS3("PangoATSUIFamily", "ATSUIFamily", mPango);
+#endif
+
+}

data/src/rbpangofontmap.c

@@ -0,0 +1,104 @@
+/* -*- c-file-style: "ruby"; indent-tabs-mode: nil -*- */
+/************************************************
+
+  rbpangofontmap.c -
+
+  $Author: mutoh $
+  $Date: 2006/12/10 15:13:10 $
+
+  Copyright (C) 2002-2005 Masao Mutoh
+************************************************/
+
+#include "rbpango.h"
+
+#define _SELF(self) (PANGO_FONT_MAP(RVAL2GOBJ(self)))
+#define RVAL2DESC(d) ((PangoFontDescription*)RVAL2BOXED(d, PANGO_TYPE_FONT_DESCRIPTION))
+#define RVAL2LANG(l) ((PangoLanguage*)RVAL2BOXED(l, PANGO_TYPE_LANGUAGE))
+
+/*
+static VALUE
+font_map_initialize(self)
+    VALUE self;
+{
+    G_INITIALIZE(self, pango_ft2_font_map_new());
+    return Qnil;
+}
+*/
+
+static VALUE
+font_map_load_font(self, context, desc)
+    VALUE self, context, desc;
+{
+    return GOBJ2RVAL(pango_font_map_load_font(_SELF(self), 
+                                              PANGO_CONTEXT(RVAL2GOBJ(context)),
+                                              RVAL2DESC(desc)));
+}
+
+static VALUE
+font_map_load_fontset(self, context, desc, lang)
+    VALUE self, context, desc, lang;
+{
+    return GOBJ2RVAL(pango_font_map_load_fontset(_SELF(self),
+                                                 PANGO_CONTEXT(RVAL2GOBJ(context)),
+                                                 RVAL2DESC(desc),
+                                                 RVAL2LANG(lang)));
+}
+
+static VALUE
+font_map_list_families(self)
+    VALUE self;
+{
+    int n_families;
+    PangoFontFamily** families;
+    int i;
+    VALUE result;
+
+    pango_font_map_list_families(_SELF(self),
+                                 &families,
+                                 &n_families);
+
+    result = rb_ary_new2(n_families);
+    for (i = 0; i < n_families; i++)
+      rb_ary_store(result, i, GOBJ2RVAL(families[i]));
+
+    g_free(families);
+
+    return result;
+}
+
+#if PANGO_CHECK_VERSION(1,4,0)
+static VALUE
+font_map_get_shape_engine_type(self)
+    VALUE self;
+{
+    return CSTR2RVAL(pango_font_map_get_shape_engine_type(_SELF(self)));
+}
+#endif
+
+void
+Init_pango_font_map()
+{
+    VALUE pMap = G_DEF_CLASS(PANGO_TYPE_FONT_MAP, "FontMap", mPango);
+    
+	 /*
+    rb_define_method(pMap, "initialize", font_map_initialize, 0);
+	 */
+    rb_define_method(pMap, "load_font", font_map_load_font, 2);
+    rb_define_method(pMap, "load_fontset", font_map_load_fontset, 3);
+    rb_define_method(pMap, "families", font_map_list_families, 0);
+#if PANGO_CHECK_VERSION(1,4,0)
+    rb_define_method(pMap, "shape_engine_type", font_map_get_shape_engine_type, 0);
+#endif
+
+    G_DEF_CLASS3("PangoFcFontMap", "FcFontMap", mPango);
+    G_DEF_CLASS3("PangoXftFontMap", "XftFontMap", mPango);
+    G_DEF_CLASS3("PangoFT2FontMap", "FT2FontMap", mPango);
+    G_DEF_CLASS3("PangoXFontMap", "XFontMap", mPango);
+    G_DEF_CLASS3("PangoWin32FontMap", "Win32FontMap", mPango);
+    G_DEF_CLASS3("PangoCairoFcFontMap", "CairoFcFontMap", mPango);
+    G_DEF_CLASS3("PangoCairoWin32FontMap", "CairoWin32FontMap", mPango);
+#if PANGO_CHECK_VERSION(1,12,0)
+    G_DEF_CLASS3("PangoATSUIFontMap", "ATSUIFontMap", mPango);
+#endif
+}
+

data/src/rbpangofontmetrics.c

@@ -0,0 +1,85 @@
+/* -*- c-file-style: "ruby"; indent-tabs-mode: nil -*- */
+/************************************************
+
+  rbpangofontmetrics.c -
+
+  $Author: mutoh $
+  $Date: 2005/02/13 17:31:33 $
+
+  Copyright (C) 2002-2005 Masao Mutoh
+************************************************/
+
+#include "rbpango.h"
+
+#define _SELF(self) ((PangoFontMetrics*)RVAL2BOXED(self, PANGO_TYPE_FONT_METRICS))
+
+static VALUE
+font_metrics_get_ascent(self)
+    VALUE self;
+{
+    return INT2NUM(pango_font_metrics_get_ascent(_SELF(self)));
+}
+
+static VALUE
+font_metrics_get_descent(self)
+    VALUE self;
+{
+    return INT2NUM(pango_font_metrics_get_descent(_SELF(self)));
+}
+
+static VALUE
+font_metrics_get_approximate_char_width(self)
+    VALUE self;
+{
+    return INT2NUM(pango_font_metrics_get_approximate_char_width(_SELF(self)));
+}
+
+static VALUE
+font_metrics_get_approximate_digit_width(self)
+    VALUE self;
+{
+    return INT2NUM(pango_font_metrics_get_approximate_digit_width(_SELF(self)));
+}
+
+#if PANGO_CHECK_VERSION(1,6,0)
+static VALUE
+font_metrics_get_underline_thickness(self)
+    VALUE self;
+{
+    return INT2NUM(pango_font_metrics_get_underline_thickness(_SELF(self)));
+}
+static VALUE
+font_metrics_get_underline_position(self)
+    VALUE self;
+{
+    return INT2NUM(pango_font_metrics_get_underline_position(_SELF(self)));
+}
+static VALUE
+font_metrics_get_strikethrough_thickness(self)
+    VALUE self;
+{
+    return INT2NUM(pango_font_metrics_get_strikethrough_thickness(_SELF(self)));
+}
+static VALUE
+font_metrics_get_strikethrough_position(self)
+    VALUE self;
+{
+    return INT2NUM(pango_font_metrics_get_strikethrough_position(_SELF(self)));
+}
+#endif
+void
+Init_pango_font_metrics()
+{
+    VALUE pMetrics = G_DEF_CLASS(PANGO_TYPE_FONT_METRICS, "FontMetrics", mPango);
+    
+    rb_define_method(pMetrics, "ascent", font_metrics_get_ascent, 0);
+    rb_define_method(pMetrics, "descent", font_metrics_get_descent, 0);
+    rb_define_method(pMetrics, "approximate_char_width", font_metrics_get_approximate_char_width, 0);
+    rb_define_method(pMetrics, "approximate_digit_width", font_metrics_get_approximate_digit_width, 0);
+#if PANGO_CHECK_VERSION(1,6,0)
+    rb_define_method(pMetrics, "underline_thickness", font_metrics_get_underline_thickness, 0);
+    rb_define_method(pMetrics, "underline_position", font_metrics_get_underline_position, 0);
+    rb_define_method(pMetrics, "strikethrough_thickness", font_metrics_get_strikethrough_thickness, 0);
+    rb_define_method(pMetrics, "strikethrough_position", font_metrics_get_strikethrough_position, 0);
+#endif
+}

data/src/rbpangofontset.c

@@ -0,0 +1,68 @@
+/* -*- c-file-style: "ruby"; indent-tabs-mode: nil -*- */
+/************************************************
+
+  rbpangofontset.c -
+
+  $Author: ggc $
+  $Date: 2007/07/13 16:07:33 $
+
+  Copyright (C) 2002-2005 Masao Mutoh 
+************************************************/
+
+#include "rbpango.h"
+
+#define _SELF(self) (PANGO_FONTSET(RVAL2GOBJ(self)))
+
+static ID id_call;
+
+static VALUE
+fontset_get_font(self, wc)
+    VALUE self, wc;
+{
+    return GOBJ2RVAL(pango_fontset_get_font(_SELF(self), NUM2UINT(wc)));
+}
+
+static VALUE
+fontset_get_metrics(self)
+    VALUE self;
+{
+    return BOXED2RVAL(pango_fontset_get_metrics(_SELF(self)), PANGO_TYPE_FONT_METRICS);
+}
+
+#if PANGO_CHECK_VERSION(1,4,0)
+static gboolean
+fontset_each(fontset, font, func)
+    PangoFontset* fontset;
+    PangoFont* font;
+    gpointer func;
+{
+    return RVAL2CBOOL(rb_funcall((VALUE)func, id_call, 
+                            2, GOBJ2RVAL(fontset), GOBJ2RVAL(font)));
+}
+
+static VALUE
+fontset_foreach(self)
+    VALUE self;
+{
+    VALUE func = rb_block_proc();
+    G_RELATIVE(self, func);
+    pango_fontset_foreach(_SELF(self), 
+                          (PangoFontsetForeachFunc)fontset_each, 
+                          (gpointer)func);
+    return self;
+}
+#endif
+
+void
+Init_pango_fontset()
+{
+    VALUE pFontSet = G_DEF_CLASS(PANGO_TYPE_FONTSET, "Fontset", mPango);
+    
+    id_call = rb_intern("call");
+
+    rb_define_method(pFontSet, "get_font", fontset_get_font, 1);
+    rb_define_method(pFontSet, "metrics", fontset_get_metrics, 0);
+#if PANGO_CHECK_VERSION(1,4,0)
+    rb_define_method(pFontSet, "each", fontset_foreach, 0);
+#endif
+}

data/src/rbpangofontsetsimple.c

@@ -0,0 +1,53 @@
+/* -*- c-file-style: "ruby"; indent-tabs-mode: nil -*- */
+/************************************************
+
+  rbpangofontsetsimple.c -
+
+  $Author: mutoh $
+  $Date: 2005/10/14 09:55:57 $
+
+  Copyright (C) 2002,2003 Masao Mutoh
+************************************************/
+
+#include "rbpango.h"
+
+#ifdef PANGO_ENABLE_BACKEND
+
+#define _SELF(self) (PANGO_FONTSET_SIMPLE(RVAL2GOBJ(self)))
+#define RVAL2LANG(v) ((PangoLanguage*)RVAL2BOXED(v, PANGO_TYPE_LANGUAGE))
+
+static VALUE
+fontset_simple_initialize(self, lang)
+    VALUE self, lang;
+{
+    G_INITIALIZE(self, pango_fontset_simple_new(RVAL2LANG(lang)));
+    return Qnil;
+}
+
+static VALUE
+fontset_simple_append(self, font)
+    VALUE self, font;
+{
+    pango_fontset_simple_append(_SELF(self), PANGO_FONT(RVAL2GOBJ(font)));
+    return self;
+}
+
+static VALUE
+fontset_simple_size(self)
+    VALUE self;
+{
+    return INT2NUM(pango_fontset_simple_size(_SELF(self)));
+}
+
+#endif
+void
+Init_pango_fontset_simple()
+{
+#ifdef PANGO_ENABLE_BACKEND
+    VALUE pFSimple = G_DEF_CLASS(PANGO_TYPE_FONTSET_SIMPLE, "FontsetSimple", mPango);
+    
+    rb_define_method(pFSimple, "initialize", fontset_simple_initialize, 1);
+    rb_define_method(pFSimple, "append", fontset_simple_append, 1);
+    rb_define_method(pFSimple, "size", fontset_simple_size, 0);
+#endif
+}