pango 0.20.0

data/README

@@ -0,0 +1,33 @@
+Ruby/Pango
+==========
+Ruby/Pango is a Ruby binding of pango-1.x.
+
+Requirements
+------------
+   Ruby: http://www.ruby-lang.org/
+   GLib: http://www.gtk.org/
+   Pango: http://www.pango.org/
+   cairo/rcairo: http://cairographics.org/ (optional)
+   Ruby/GLib2: http://ruby-gnome2.sourceforge.net/
+
+Install
+-------
+   0. install ruby-1.6.x or later, GLib, Pango, Ruby/GLib2, Ruby/GTK2
+      (and cairo/rcairo).
+   1. ruby extconf.rb
+      (To use rcairo on Win32, set CAIRO_PATH as a environment variable first)
+   2. make
+   3. su
+   4. make install
+
+Copying
+-------
+   Copyright (c) 2002-2005 Ruby-GNOME2 Project Team
+
+   This program is free software.
+   You can distribute/modify this program under the terms of
+   the GNU LESSER GENERAL PUBLIC LICENSE Version 2.1.
+
+Project Website
+---------------
+   http://ruby-gnome2.sourceforge.jp/

data/Rakefile

@@ -0,0 +1,86 @@
+require 'rake/clean'
+CLEAN.include '**/*.o'
+CLEAN.include "**/*.#{Config::MAKEFILE_CONFIG['DLEXT']}"
+CLOBBER.include 'doc'
+CLOBBER.include '**/*.log'
+CLOBBER.include '**/Makefile'
+CLOBBER.include '**/extconf.h'
+
+# Determine the current version of the software
+def ruby_pango_version
+  buf = File.read('src/rbpango.h')
+  if buf =~ /\s*RBPANGO_MAJOR_VERSION\s*(\d.+)/
+    major = $1
+  else
+    major = 0
+  end
+  if buf =~ /\s*RBPANGO_MINOR_VERSION\s*(\d.+)/
+    minor = $1
+  else
+    minor = 0
+  end
+  if buf =~ /\s*RBPANGO_MICRO_VERSION\s*(\d.+)/
+    micro = $1
+  else
+    micro = 0
+  end
+  "#{major}.#{minor}.#{micro}"
+end
+
+CURRENT_VERSION = ruby_pango_version
+
+desc "Default Task (Test project)"
+task :default => :test
+
+# Make tasks -----------------------------------------------------
+make_program = (/mswin/ =~ RUBY_PLATFORM) ? 'nmake' : 'make'
+MAKECMD = ENV['MAKE_CMD'] || make_program
+MAKEOPTS = ENV['MAKE_OPTS'] || ''
+
+PANGO_SO = "src/pango.#{Config::MAKEFILE_CONFIG['DLEXT']}"
+
+file 'Makefile' => 'extconf.rb' do
+  sh "ruby extconf.rb #{ENV['EXTCONF_OPTS']}"
+end
+
+def make(target = '')
+  pid = system("#{MAKECMD} #{MAKEOPTS} #{target}")
+  $?.exitstatus
+end
+
+# Let make handle dependencies between c/o/so - we'll just run it. 
+file PANGO_SO => (['Makefile'] + Dir['src/*.c'] + Dir['src/*.h']) do
+  m = make
+  fail "Make failed (status #{m})" unless m == 0
+end
+
+desc "Configure Pango"
+task :configure => ['Makefile']
+
+desc "Compile the shared object"
+task :compile => [PANGO_SO]
+
+desc "Run pango tests"
+task :test => :compile do
+  sh "ruby test/run-test.rb"
+end
+
+desc 'Generate gem specification'
+task :gemspec do
+  require 'erb'
+  tspec = ERB.new(File.read(File.join(File.dirname(__FILE__),'src','pango.gemspec.erb')))
+  File.open(File.join(File.dirname(__FILE__),'pango.gemspec'),'wb') do|f|
+    f << tspec.result
+  end
+end
+
+desc 'Build gem'
+task :package => :gemspec do
+  require 'rubygems/specification'
+  spec_source = File.read File.join(File.dirname(__FILE__),'pango.gemspec')
+  spec = nil
+  # see: http://gist.github.com/16215
+  Thread.new { spec = eval("$SAFE = 3\n#{spec_source}") }.join
+  spec.validate
+  Gem::Builder.new(spec).build
+end

data/extconf.rb

@@ -0,0 +1,68 @@
+=begin
+extconf.rb for Ruby/Pango extention library
+=end
+
+PACKAGE_NAME = "pango"
+PACKAGE_ID   = "pango"
+
+begin
+  require 'mkmf-gnome2'
+  USE_GLIB_GEM = true
+  TOPDIR = File.expand_path(File.dirname(__FILE__) )
+  SRCDIR = TOPDIR + '/src'
+  require 'glib2'
+
+rescue LoadError => e
+
+  USE_GLIB_GEM = false
+
+  TOPDIR = File.expand_path(File.dirname(__FILE__) + '/..')
+  MKMF_GNOME2_DIR = TOPDIR + '/glib/src/lib'
+  SRCDIR = TOPDIR + '/pango/src'
+
+  $LOAD_PATH.unshift MKMF_GNOME2_DIR
+  $LOAD_PATH << "E:\\ruby\\lib\\ruby\\1.8\\i386-mswin32"
+
+  require 'mkmf-gnome2'
+
+end
+
+PKGConfig.have_package(PACKAGE_ID) or exit 1
+setup_win32(PACKAGE_NAME)
+
+pango_header = "pango/pango.h"
+have_func("pango_layout_iter_get_type", pango_header)
+have_func("pango_layout_set_ellipsize", pango_header)
+have_func("pango_layout_get_font_description", pango_header)
+have_func("pango_render_part_get_type", pango_header)
+have_func("pango_attr_strikethrough_color_new", pango_header)
+have_func("pango_attr_underline_color_new", pango_header)
+have_func("pango_glyph_item_free", pango_header)
+have_func("pango_glyph_item_get_type", pango_header)
+have_func("pango_attr_iterator_get_attrs", pango_header)
+have_func("pango_itemize_with_base_dir", pango_header)
+have_func("pango_font_family_is_monospace", pango_header)
+
+if PKGConfig.have_package('pangocairo')
+  check_cairo
+end
+
+if USE_GLIB_GEM
+  
+  path = File.expand_path(ENV['GEM_HOME'] + "/gems/glib2-#{GLib::BINDING_VERSION.join('.')}/src")
+  add_depend_package("glib2", path, '/')
+else
+  add_depend_package("glib2", "glib/src", TOPDIR)
+end
+
+add_distcleanfile("rbpangoinits.c")
+
+make_version_header("PANGO", "pango")
+
+create_pkg_config_file("Ruby/Pango", PACKAGE_ID)
+create_makefile_at_srcdir(PACKAGE_NAME, SRCDIR, "-DRUBY_PANGO_COMPILATION") {
+  SRCDIR_QUOTED = SRCDIR.gsub(' ', '\ ')
+  system("#{$ruby} #{SRCDIR_QUOTED}/makeinits.rb #{SRCDIR_QUOTED}/*.c > rbpangoinits.c")
+}
+create_top_makefile
+

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,26 @@
+=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.readlines("sample.txt").to_s, "$")
+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[0])
+
+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,35 @@
+=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"[0])[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.readlines("sample.txt").to_s
+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