pango 2.2.4-x64-mingw32

data/ext/pango/rbpangotabarray.c

@@ -0,0 +1,128 @@
+/* -*- 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/extconf.rb

@@ -0,0 +1,49 @@
+#!/usr/bin/env ruby
+
+require 'pathname'
+require 'mkmf'
+require 'rbconfig'
+require 'fileutils'
+
+package = "pango"
+
+base_dir = Pathname(__FILE__).dirname.expand_path
+ext_dir = base_dir + "ext" + package
+mkmf_gnome2_dir = base_dir + 'lib'
+
+ruby = File.join(RbConfig::CONFIG['bindir'],
+                 RbConfig::CONFIG['ruby_install_name'] +
+                 RbConfig::CONFIG["EXEEXT"])
+
+build_dir = Pathname("ext") + package
+FileUtils.mkdir_p(build_dir.to_s) unless build_dir.exist?
+extconf_rb_path = ext_dir + "extconf.rb"
+system(ruby, "-C", build_dir.to_s, extconf_rb_path.to_s, *ARGV) || exit(false)
+
+create_makefile(package)
+FileUtils.mv("Makefile", "Makefile.lib")
+
+File.open("Makefile", "w") do |makefile|
+  makefile.puts(<<-EOM)
+all:
+	(cd ext/#{package} && $(MAKE))
+	$(MAKE) -f Makefile.lib
+
+install:
+	(cd ext/#{package} && $(MAKE) install)
+	$(MAKE) -f Makefile.lib install
+
+site-install:
+	(cd ext/#{package} && $(MAKE) site-install)
+	$(MAKE) -f Makefile.lib site-install
+
+clean:
+	(cd ext/#{package} && $(MAKE) clean)
+	$(MAKE) -f Makefile.lib clean
+
+distclean:
+	(cd ext/#{package} && $(MAKE) distclean)
+	$(MAKE) -f Makefile.lib distclean
+	@rm -f Makefile.lib
+EOM
+end

data/lib/pango.rb

@@ -0,0 +1,79 @@
+#
+# pango.rb
+# Copyright(C) 2005, 2009 Ruby-GNOME2 Project.
+#
+# This program is licenced under the same
+# license of Ruby-GNOME2.
+#
+
+require 'glib2'
+begin
+  begin
+    require 'cairo'
+  rescue LoadError
+    require 'rubygems'
+    require 'cairo'
+  end
+rescue LoadError
+end
+
+base_dir = Pathname.new(__FILE__).dirname.dirname.expand_path
+vendor_dir = base_dir + "vendor" + "local"
+vendor_bin_dir = vendor_dir + "bin"
+GLib.prepend_dll_path(vendor_bin_dir)
+begin
+  major, minor, _ = RUBY_VERSION.split(/\./)
+  require "#{major}.#{minor}/pango.so"
+rescue LoadError
+  require "pango.so"
+end
+
+if vendor_dir.exist?
+  begin
+    require "gobject-introspection"
+    vendor_girepository_dir = vendor_dir + "lib" + "girepository-1.0"
+    GObjectIntrospection.prepend_typelib_path(vendor_girepository_dir)
+  rescue LoadError
+  end
+end
+
+module Pango
+  LOG_DOMAIN = "Pango"
+
+  class AttrList
+    def each(text = nil)
+      iter = iterator
+      begin
+        if text
+          s, e = iter.range
+          yield(iter, text[s, e - s], s, e)
+        else
+          yield(iter)
+        end
+      end while iter.next!
+    end
+  end
+
+  # [[klass, prefix], ....]]
+  targets = [[Layout::Alignment, "ALIGN_"], [AttrScale, "SCALE_"], 
+    [Coverage::Level, "COVERAGE_"], [Context::Direction, "DIRECTION_"],
+    [Layout::WrapMode, "WRAP_"], [FontDescription::FontMask, "FONT_MASK_"], 
+    [FontDescription::Stretch, "STRETCH_"], [FontDescription::Style, "STYLE_"],
+    [FontDescription::Variant, "VARIANT_"], [FontDescription::Weight, "WEIGHT_"], 
+    [TabArray::TabAlign, "TAB_"],
+    [AttrUnderline::Underline, "UNDERLINE_"]]
+
+  targets << [Script, "SCRIPT_"] if defined? Script
+  targets << [Layout::EllipsizeMode, "ELLIPSIZE_"] if defined? Layout::EllipsizeMode
+  targets << [Renderer::Part, "PART_"] if defined? Renderer::Part
+
+  targets.each do |klass, prefix|
+    (klass.constants - klass.superclass.constants).each do |name|
+      unless klass.const_get(name).is_a? Class
+	const_set("#{prefix}#{name}", klass.const_get(name))
+      end
+    end
+  end
+end
+
+GLib::Log.set_log_domain(Pango::LOG_DOMAIN)

data/sample/attribute.rb

@@ -0,0 +1,82 @@
+=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

@@ -0,0 +1,28 @@
+# -*- 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

@@ -0,0 +1,27 @@
+=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

data/sample/glyphstring.rb

@@ -0,0 +1,61 @@
+#!/usr/bin/env ruby
+=begin
+  glyphstring.rb - Ruby/Pango sample script.
+
+  Copyright (c) 2002-2006 Ruby-GNOME2 Project Team
+  This program is licenced under the same licence as Ruby-GNOME2.
+
+  $Id: glyphstring.rb,v 1.3 2006/06/17 14:16:53 ktou Exp $
+=end
+
+require 'gtk2'
+
+str = "Hello World"
+
+lang = Pango::Language.new("ja_JP")
+fd = Pango::FontDescription.new("Sans 18")
+
+context = Gdk::Pango.context
+context.language = lang
+context.base_dir = Pango::DIRECTION_LTR
+context.font_description = fd
+
+p font = context.load_font(fd)
+family = context.families[10]
+puts "#{family.class}, #{family.name}"
+
+family.faces.each do |face|
+  puts face.name
+end
+
+p fmap = font.font_map
+
+p fset = fmap.load_fontset(context, fd, lang)
+
+
+gs = Pango::GlyphString.new
+
+ink_rect, logical_rect = gs.extents(font)
+
+p ink_rect.to_a
+p logical_rect.to_a
+
+item = Pango::Item.new
+item.analysis.font = font
+item.analysis.shape_engine = font.find_shaper(lang, str.codepoints.first)
+
+gs = Pango.shape(str, item.analysis)
+
+ink_rect, logical_rect = gs.extents(font, 0, 11)
+
+p ink_rect.to_a
+p logical_rect.to_a
+
+gs.glyphs.each do |info, log_clusters|
+  puts "Pango::GlyphInfo: log_clusters = #{log_clusters}, glyph = #{info.glyph}, geometry = #{info.geometry.inspect}, cluster_start? = #{info.cluster_start?}"
+end
+
+p gs.index_to_x(str, item.analysis, 3, false)
+p gs.x_to_index(str, item.analysis, 103)
+
+p logical_widths = gs.get_logical_widths(str, item.analysis.level)

data/sample/item.rb

@@ -0,0 +1,37 @@
+# -*- coding: utf-8 -*-
+
+=begin
+  item.rb - Ruby/Pango sample script.
+
+  Copyright (c) 2005 Ruby-GNOME2 Project
+  This program is licenced under the same licence as Ruby-GNOME2.
+
+  $Id: item.rb,v 1.3 2006/06/17 13:37:01 mutoh Exp $
+=end
+
+require 'gtk2'
+
+str = "Ruby-GNOME2こんにちわ" 
+win = Gtk::Window.new("Ruby/Pango sample")
+win.realize
+
+p screen = Gdk::Screen.default
+p context = Gdk::Pango.context(screen)
+p attrlist = Pango::AttrList.new
+
+p a = Pango::AttrBackground.new(65535, 0, 0)
+
+attrlist.insert(Pango::AttrBackground.new(65535, 0,0))
+
+attrs = [Pango::AttrBackground.new(65535, 0,0), Pango::AttrForeground.new(65535, 0,0)]
+
+items = context.itemize(Pango::Context::DIRECTION_RTL, str, 0, 40, attrlist)
+
+items.each do |v|
+  ana = v.analysis
+  puts "shape_engine = #{ana.shape_engine}, lang_engine = #{ana.lang_engine}, font = #{ana.font}, level = #{ana.level}"
+  puts "language = #{ana.language}"
+  p ana.font.get_glyph_extents("a".codepoints.first)[0].to_a
+  ana.set_extra_attrs(attrs)
+  p ana.extra_attrs
+end

data/sample/label.rb

@@ -0,0 +1,23 @@
+=begin
+  label.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: label.rb,v 1.4 2006/06/17 13:36:11 mutoh Exp $
+=end
+
+require 'gtk2'
+
+str = File.read("sample.txt")
+attrs, text, accel_char = Pango.parse_markup(str, '$')
+
+#This is same as Gtk::Label#set_markup()
+label = Gtk::Label.new(text)
+label.attributes = attrs
+
+win = Gtk::Window.new
+win.signal_connect("destroy"){Gtk.main_quit}
+win.add(label).show_all
+
+Gtk.main

data/sample/layout.rb

@@ -0,0 +1,102 @@
+#!/usr/local/bin/ruby
+=begin
+  layout.rb - Ruby/Pango sample script.
+
+  Copyright (c) 2005 Ruby-GNOME2 Project Team
+  This program is licenced under the same licence as Ruby-GNOME2.
+
+  $Id: layout.rb,v 1.2 2006/06/17 13:36:11 mutoh Exp $
+=end
+
+require 'gtk2'
+require 'pp'
+
+puts
+puts "Start----------"
+puts
+str = File.read("sample.txt")
+context = Gdk::Pango.context
+context.base_dir = Pango::Context::DIRECTION_LTR
+context.language = Pango::Language.new("ja_JP")
+fd = Pango::FontDescription.new("Sans 18")
+font = context.load_font(fd)
+font_map = context.font_map 
+
+p "context: #{context}"
+p "font_desc: #{fd}"
+p "font: #{font}"
+p "font_map: #{font_map}"
+
+puts
+puts "Pango::Layout----------"
+puts
+p layout = Pango::Layout.new(context)
+
+layout.set_markup(str)
+layout.font_description = fd
+layout.auto_dir = true
+layout.alignment = Pango::Layout::ALIGN_LEFT
+
+p "attributes: #{layout.attributes}"
+p "font_description: #{layout.font_description}"
+p "width: #{layout.width}"
+p "wrap: #{layout.wrap}"
+p "ellipsize: #{layout.ellipsize}"
+p "indent: #{layout.indent}"
+p "spacing: #{layout.spacing}"
+p "justify?: #{layout.justify?}"
+p "auto_dir?: #{layout.auto_dir?}"
+p "alignment: #{layout.alignment.inspect}"
+p "tabs: #{layout.tabs}"
+p "single_paragraph_mode?: #{layout.single_paragraph_mode?}"
+p "size: #{layout.size}"
+p "pixel_size: #{layout.pixel_size}"
+p "line_count: #{layout.line_count}"
+
+puts "lines:" 
+pp layout.lines
+
+puts
+puts "Pango::LayoutIter--------"
+puts
+iter = layout.iter
+p "iter: #{iter}"
+p "index: #{iter.index}"
+p "baseline: #{iter.baseline}"
+p "line: #{iter.line}"
+p "char_extents: #{iter.char_extents}"
+p "cluster_extents: #{iter.cluster_extents}"
+p "run_extents: #{iter.run_extents}"
+p "layout_extents: #{iter.layout_extents}"
+p "line_extents: #{iter.line_extents}"
+p "line_yrange: #{iter.line_yrange}"
+
+puts
+puts "Pango::GlyphItem-------"
+puts
+glyph = iter.run
+p "glyph: #{glyph}"
+p "item: #{glyph.item}"
+p "glyphs: #{glyph.glyphs}"
+
+puts
+puts "Pango::LayoutLine ----------"
+puts
+
+line = iter.line
+
+p "line = #{line}"
+p "extents: #{line.extents}"
+p "pixel_extents: #{line.pixel_extents}"
+p "index_to_x: #{line.index_to_x(1, true)}"
+p "x_to_index: #{line.x_to_index(1)}"
+p "x_ranges: #{line.get_x_ranges(0, 2)}"
+p "layout: #{line.layout}"
+p "start_index: #{line.start_index}"
+p "length: #{line.length}"
+p "paragraph_start?: #{line.paragraph_start?}"
+p "resolved_dir: #{line.resolved_dir}"
+puts "runs:"
+pp line.runs
+puts
+puts "End----------"

data/sample/pango_cairo.rb

@@ -0,0 +1,66 @@
+=begin
+  cairo.rb - Ruby/Pango with cairo sample script.
+
+  Copyright (c) 2005 Ruby-GNOME2 Project
+  This program is licenced under the same licence as Ruby-GNOME2.
+
+  $Id: pango_cairo.rb,v 1.1 2005/10/15 07:57:52 mutoh Exp $
+=end
+
+require 'pango'
+
+unless Pango.cairo_available?
+  STDERR.puts "This sample requires Pango 1.0.0 or later and cairo support"
+  exit 1
+end
+
+filename = ARGV.shift
+filename ||= "cairo.png"
+
+RADIUS = 150
+N_WORDS = 10
+FONT = "Sans Bold 27"
+
+def draw_text(cr)
+  # Center coordinates on the middle of the region we are drawing
+  cr.translate(RADIUS, RADIUS);
+
+  # Create a PangoLayout, set the font and text
+  layout = cr.create_pango_layout
+  
+  layout.set_text("Text")
+  desc = Pango::FontDescription.new(FONT)
+  layout.set_font_description(desc)
+
+  # Draw the layout N_WORDS times in a circle
+  N_WORDS.times do |i|
+    angle = (360.0 * i) / N_WORDS;
+    cr.save do
+      # Gradient from red at angle == 60 to blue at angle == 300
+      red = (1 + Math.cos((angle - 60) * Math::PI / 180.0)) / 2
+      cr.set_source_rgb(red, 0, 1.0 - red)
+      cr.rotate(angle * Math::PI / 180.0)
+    
+      # Inform Pango to re-layout the text with the new transformation
+      cr.update_pango_layout(layout)
+    
+      width, height = layout.size
+      cr.move_to(-(width.to_f / Pango::SCALE) / 2, -RADIUS)
+      cr.show_pango_layout(layout)
+    end
+  end
+end
+
+diameter = 2 * RADIUS
+surface = Cairo::ImageSurface.new(Cairo::FORMAT_ARGB32, diameter, diameter)
+cr = Cairo::Context.new(surface)
+cr.set_source_rgb(1.0, 1.0, 1.0)
+cr.rectangle(0, 0, diameter, diameter);
+cr.fill
+draw_text(cr)
+
+File.open(filename, "wb") do |f|
+  cr.target.write_to_png(f)
+end
+# or
+#  cr.target.write_to_png(filename)