pango 3.1.1 → 3.1.2

data/ext/pango/rbpangoscript.c

@@ -1,84 +0,0 @@
-/* -*- 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 cScript
-#define _SELF(r) (RVAL2PANGOSCRIPT(r))
-
-static VALUE
-rg_s_for_unichar(G_GNUC_UNUSED VALUE self, VALUE ch)
-{
-    return PANGOSCRIPT2RVAL(pango_script_for_unichar(NUM2UINT(ch)));
-}
-
-static VALUE
-rg_sample_language(VALUE self)
-{
-    PangoLanguage* lang = pango_script_get_sample_language(_SELF(self));
-    return PANGOLANGUAGE2RVAL(lang);
-}
-
-#if PANGO_VERSION_CHECK(1,16,0)
-static VALUE
-rg_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),
-                                         RVAL2PANGOGRAVITY(gravity),
-                                         RVAL2PANGOGRAVITYHINT(gravity_hint));
-    } else {
-#  if PANGO_VERSION_CHECK(1,26,0)
-        g = pango_gravity_get_for_script_and_width(_SELF(self),
-                                                   RVAL2CBOOL(wide),
-                                                   RVAL2PANGOGRAVITY(gravity),
-                                                   RVAL2PANGOGRAVITYHINT(gravity_hint));
-#  else
-        rb_raise(rb_eArgError,
-                 "the 3rd 'wide' argument requires Pango >= 1.26");
-#  endif
-    }
-    return PANGOGRAVITY2RVAL(g);
-}
-#endif
-
-/* Move to Pango::Language
-gboolean    pango_language_includes_script  (PangoLanguage *language,
-                                             PangoScript script);
-*/
-
-void
-Init_pango_script(VALUE mPango)
-{
-    VALUE RG_TARGET_NAMESPACE = G_DEF_CLASS(PANGO_TYPE_SCRIPT, "Script", mPango);
-
-    RG_DEF_SMETHOD(for_unichar, 1);
-    RG_DEF_METHOD(sample_language, 0);
-#if PANGO_VERSION_CHECK(1,16,0)
-    RG_DEF_METHOD(get_gravity, -1);
-#endif
-}

data/ext/pango/rbpangoscriptiter.c

@@ -1,92 +0,0 @@
-/* -*- 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"
-
-/**********************************/
-static PangoScriptIter*
-rbpango_script_iter_copy(PangoScriptIter *ref)
-{
-/*
-  PangoScriptIter* new_ref = pango_script_iter_new("", 0);
-  g_return_val_if_fail (ref != NULL, NULL);
-  new_ref = g_new(PangoScriptIter, 1);
-  *new_ref = *ref;
-  return new_ref;
-*/
-    return ref;
-}
-
-GType
-pango_script_iter_get_type(void)
-{
-    static GType our_type = 0;
-
-    if (our_type == 0)
-        our_type = g_boxed_type_register_static ("PangoScriptIter",
-                    (GBoxedCopyFunc)rbpango_script_iter_copy,
-                    (GBoxedFreeFunc)pango_script_iter_free);
-    return our_type;
-}
-/**********************************/
-
-#define RG_TARGET_NAMESPACE cScriptIter
-#define _SELF(r) (RVAL2PANGOSCRIPTITER(r))
-
-static VALUE
-rg_initialize(VALUE self, VALUE text)
-{
-    PangoScriptIter* iter;
-
-    StringValue(text);
-    iter = pango_script_iter_new(RSTRING_PTR(text), RSTRING_LEN(text));
-    G_INITIALIZE(self, iter);
-    return Qnil;
-}
-
-static VALUE
-rg_range(VALUE self)
-{
-    G_CONST_RETURN char* start;
-    G_CONST_RETURN char* end;
-    PangoScript script;
-
-    pango_script_iter_get_range(_SELF(self), &start, &end, &script);
-
-    return rb_ary_new3(3, CSTR2RVAL(start), CSTR2RVAL(end), 
-                       PANGOSCRIPT2RVAL(script));
-}
-
-static VALUE
-rg_next_bang(VALUE self)
-{
-    return CBOOL2RVAL(pango_script_iter_next(_SELF(self)));
-}
-
-void
-Init_pango_script_iter(VALUE mPango)
-{
-    VALUE RG_TARGET_NAMESPACE = G_DEF_CLASS(PANGO_TYPE_SCRIPT_ITER, "ScriptIter", mPango);
-
-    RG_DEF_METHOD(initialize, 1);
-    RG_DEF_METHOD(range, 0);
-    RG_DEF_METHOD_BANG(next, 0);
-}

data/ext/pango/rbpangotabarray.c

@@ -1,128 +0,0 @@
-/* -*- 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"
-
-#define RG_TARGET_NAMESPACE cTabArray
-#define _SELF(self) (RVAL2PANGOTABARRAY(self))
-
-static VALUE
-rg_initialize(int argc, VALUE *argv, VALUE self)
-{
-    VALUE size, positions_in_pixels, attr_ary;
-    PangoTabArray *array;
-    int i;
-
-    rb_scan_args(argc, argv, "2*", &size, &positions_in_pixels, &attr_ary);
-
-    array = pango_tab_array_new(NUM2INT(size), 
-                                RVAL2CBOOL(positions_in_pixels));
-    G_INITIALIZE(self, array);
-
-    if (! NIL_P(attr_ary)){
-        for (i = 0; i < RARRAY_LEN(attr_ary); i++) {
-            pango_tab_array_set_tab(array, i, 
-                                    RVAL2PANGOTABALIGN(RARRAY_PTR(RARRAY_PTR(attr_ary)[i])[0]),
-                                    FIX2INT(RARRAY_PTR(RARRAY_PTR(attr_ary)[i])[1]));
-        }
-    }
-
-    return Qnil;
-}
-/* This is implemented in rtab_initialize.
-PangoTabArray* pango_tab_array_new_with_positions
-                                            (gint size,
-                                             gboolean positions_in_pixels,
-                                             PangoTabAlign first_alignment,
-                                             gint first_position,
-                                             ...);
-*/
-static VALUE
-rg_size(VALUE self)
-{
-    return INT2NUM(pango_tab_array_get_size(_SELF(self)));
-}
-
-static VALUE
-rg_resize(VALUE self, VALUE size)
-{
-    pango_tab_array_resize(_SELF(self), NUM2INT(size));
-    return self;
-}
-
-static VALUE
-rg_set_tab(VALUE self, VALUE tab_index, VALUE align, VALUE location)
-{
-    pango_tab_array_set_tab(_SELF(self), NUM2INT(tab_index), RVAL2PANGOTABALIGN(align),
-                            NUM2INT(location));
-    return self;
-}
-
-static VALUE
-rg_get_tab(VALUE self, VALUE tab_index)
-{
-    PangoTabAlign align;
-    gint location;
-    pango_tab_array_get_tab(_SELF(self), NUM2INT(tab_index),
-                            &align, &location);
-    return rb_ary_new3(2, PANGOTABALIGN2RVAL(align), INT2NUM(location));
-}
-
-static VALUE
-rg_tabs(VALUE self)
-{
-    PangoTabAlign* aligns;
-    gint* locations;
-    VALUE ary = rb_ary_new();
-    PangoTabArray* tab_array = _SELF(self);
-    gint i;
-
-    pango_tab_array_get_tabs(tab_array, &aligns, &locations);
-
-    for (i = 0; i < pango_tab_array_get_size(tab_array); i++){
-        rb_ary_push(ary, rb_ary_new3(2, PANGOTABALIGN2RVAL(aligns[i]), 
-                                     INT2NUM(locations[i])));
-    }
-    return ary;
-}
-
-static VALUE
-rg_positions_in_pixels_p(VALUE self)
-{
-    return CBOOL2RVAL(pango_tab_array_get_positions_in_pixels(_SELF(self)));
-}
-
-void
-Init_pango_array(VALUE mPango)
-{
-    VALUE RG_TARGET_NAMESPACE = G_DEF_CLASS(PANGO_TYPE_TAB_ARRAY, "TabArray", mPango);
-    RG_DEF_METHOD(initialize, -1);
-    RG_DEF_METHOD(size, 0);
-    RG_DEF_METHOD(resize, 1);
-    RG_DEF_METHOD(set_tab, 3);
-    RG_DEF_METHOD(get_tab, 1);
-    RG_DEF_METHOD(tabs, 0);
-    RG_DEF_METHOD_P(positions_in_pixels, 0);
-
-    /* PangoTabAlign */
-    G_DEF_CLASS(PANGO_TYPE_TAB_ALIGN, "TabAlign", RG_TARGET_NAMESPACE);
-    G_DEF_CONSTANTS(RG_TARGET_NAMESPACE, PANGO_TYPE_TAB_ALIGN, "PANGO_");    
-}

data/sample/attribute.rb

@@ -1,82 +0,0 @@
-=begin
-  attribute.rb - Ruby/Pango sample script.
-
-  Copyright (c) 2002,2003 Ruby-GNOME2 Project Team
-  This program is licenced under the same licence as Ruby-GNOME2.
-
-  $Id: attribute.rb,v 1.6 2006/06/17 13:37:01 mutoh Exp $
-=end
-
-require 'pango'
-
-p a = Pango::AttrSize.new(1)
-puts "value = #{a.value}"
-puts "start_index = #{a.start_index}"
-puts "end_index = #{a.end_index}"
-
-p a = Pango::AttrStyle.new(Pango::FontDescription::STYLE_NORMAL)
-puts "value = #{a.value}"
-
-p a = Pango::AttrVariant.new(Pango::FontDescription::VARIANT_SMALL_CAPS)
-puts "value = #{a.value}"
-
-p a = Pango::AttrStretch.new(Pango::FontDescription::STRETCH_EXPANDED)
-puts "value = #{a.value}"
-
-p a = Pango::AttrWeight.new(Pango::FontDescription::WEIGHT_BOLD)
-puts "value = #{a.value}"
-
-p a = Pango::AttrRise.new(10)
-puts "value = #{a.value}"
-
-p a = Pango::AttrLanguage.new(Pango::Language.new("ja"))
-p a.value
-p a.value.to_str
-
-p a = Pango::AttrFamily.new("family")
-p a.value
-
-p b = Pango::FontDescription.new
-p b.to_str
-p a = Pango::AttrFontDescription.new(b)
-p a.value
-p a.value.to_str
-
-p a = Pango::AttrForeground.new(10, 20, 30)
-p a.value
-p a.value.to_a
-
-p a = Pango::AttrBackground.new(20, 30, 40)
-p a.value
-p a.value.to_a
-
-p a = Pango::AttrStrikethrough.new(true)
-p a.value
-
-p Pango::AttrUnderline::SINGLE
-p a = Pango::AttrUnderline.new(Pango::AttrUnderline::SINGLE)
-p a.value
-
-p ink = Pango::Rectangle.new(1, 2, 3, 4)
-p log = Pango::Rectangle.new(5, 6, 7, 8)
-p a = Pango::AttrShape.new(ink, log)
-p a.value[0].to_a
-p a.value[1].to_a
-
-p a = Pango::AttrScale.new(2.3)
-p a.value
-
-begin
-  require 'gtk2'
-rescue
-  p "Ruby/GTK2 is not existed."
-  exit 0
-end
-  p a = Gdk::PangoAttrEmbossed.new(true)
-  p a.value
-
-  mask = Gdk::Pixmap.new(Gtk::Window.new.realize.window, 100, 100, 1)
-  p a = Gdk::PangoAttrStipple.new(mask)
-  p a.value
-
-

data/sample/break.rb

@@ -1,28 +0,0 @@
-# -*- coding: utf-8 -*-
-
-=begin
-  break.rb - Ruby/Pango sample script.
-
-  Copyright (c) 2005 Ruby-GNOME2 Project
-  This program is licenced under the same licence as Ruby-GNOME2.
-
-  $Id: break.rb,v 1.1 2005/09/17 17:09:12 mutoh Exp $
-=end
-
-require 'pango'
-
-attr = Pango.break("Hello Worldです\n2nd line", Pango::Analysis.new)
-
-p attr.length
-attr.each do |v|
-  print "line_break:#{v.line_break?}"
-  print ", mandatory_break:#{v.mandatory_break?}"
-  print ", char_break:#{v.char_break?}"
-  print ", white:#{v.white?}"
-  print ", cursor_position:#{v.cursor_position?}"
-  print ", word_start:#{v.word_start?}"
-  print ", word_end:#{v.word_end?}"
-  print ", sentence_boundary:#{v.sentence_boundary?}"
-  print ", sentence_start:#{v.sentence_start?}"
-  print ", sentence_end:#{v.sentence_end?}\n"
-end

data/sample/gdk_layout.rb

@@ -1,27 +0,0 @@
-=begin
-  gdk_layout.rb - Ruby/Pango sample script.
-
-  Copyright (c) 2003-2006 Ruby-GNOME2 Project
-  This program is licenced under the same licence as Ruby-GNOME2.
-
-  $Id: gdk_layout.rb,v 1.7 2006/06/17 13:36:11 mutoh Exp $
-=end
-
-require 'gtk2'
-
-window = Gtk::Window.new("Ruby/Pango sample")
-window.signal_connect("destroy"){Gtk.main_quit}
-window.realize
-
-gdkwin = window.window
-gc = Gdk::GC.new(gdkwin)
-
-layout = window.create_pango_layout
-layout.set_markup(File.read("sample.txt"), "$")
-window.signal_connect("expose_event") do
-  gdkwin.draw_layout(gc, 10, 10, layout)
-end
-
-window.set_default_size(500,400).show_all
-
-Gtk.main