pango 0.20.0

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.readlines("sample.txt").to_s
+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)

data/sample/parse.rb

@@ -0,0 +1,33 @@
+#!/usr/bin/env ruby
+=begin
+  parse.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: parse.rb,v 1.4 2005/03/22 17:41:29 silicio Exp $
+=end
+
+require 'pango'
+
+str = File.readlines("sample.txt").to_s
+puts str
+puts "------"
+
+attr_list, text, accel_char = Pango.parse_markup(str, '$')
+puts "attr_list = #{attr_list}"
+puts "text = #{text}"
+puts "accel_char = #{accel_char}"
+puts "------"
+
+iterator = attr_list.iterator
+
+attr_list.each(text) do |iterator, text, start_pos, end_pos|
+  puts "range = #{start_pos}, #{end_pos}"
+  puts "text = #{text}"
+  iterator.get.each do |attr|
+    puts "#{attr} = #{attr.value}"
+  end
+  puts "---"
+end
+

data/sample/sample.txt

@@ -0,0 +1,10 @@
+<u><span foreground="red" size="x-large" style="italic"
+lang="en">Hello World!</span></u> <span background="yellow" lang="ja"
+font_desc="Sans Italic 20" stretch="normal">こんにちわ世界！</span>
+
+<span size="xx-large" face="Serif" foreground="#006600" background="#ffffee">
+<span size="larger" underline="double" weight="heavy">Ruby/Pango</span> <span
+rise="10000" variant="normal" weight="heavy">$Ruby-GNOME2</span>
+</span>
+
+<span strikethrough="true" size="xx-large" style="oblique" foreground="blue">ABCDEF</span>

data/sample/script.rb

@@ -0,0 +1,21 @@
+=begin
+  script.rb - Ruby/Pango sample script.
+
+  Copyright (c) 2005 Ruby-GNOME2 Project
+  This program is licenced under the same licence as Ruby-GNOME2.
+
+  $Id: script.rb,v 1.1 2005/09/17 17:09:12 mutoh Exp $
+=end
+
+require 'pango'
+
+iter = Pango::ScriptIter.new("Helloこんにちはコンニチハ안녕하세요السلام عليكمΕλληνικάவணக்கம்")
+begin
+  start_pos, end_pos, script = iter.range
+  puts "-----"
+  puts "start : #{start_pos}"
+  puts "end   : #{end_pos}"
+  puts "script: #{script.nick}"
+  puts "sample_language: #{script.sample_language.to_s}"
+end while iter.next!
+

data/src/lib/pango.rb

@@ -0,0 +1,60 @@
+#
+# 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
+require 'pango.so'
+
+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/src/makeinits.rb

@@ -0,0 +1,48 @@
+=begin
+  makeinits.rb -
+
+  $Author: mutoh $
+  $Date: 2005/01/28 09:24:45 $
+
+  Copyright (C) 2002-2005 Masao Mutoh
+=end
+
+except_targets = ["Init_pango()"]
+
+def print_data(array, type, defs, extern = false)
+  if array[type]
+    extern_def = "extern void" if extern
+    print "##{defs} #{type}\n" if defs
+    array[type].each do |val|
+	   print "#{extern_def}   #{val};\n"
+    end
+    print "#endif\n" if defs
+  end
+end
+
+inits = Hash.new
+
+while gets
+  if ~ /^(Init_.*\(.*\))(.*)/
+	init = $1
+	unless except_targets.include?(init)
+	  flag = $2
+	  if flag.size > 0
+		if flag =~ /\/\*\s*(\w*)\s*\*\//
+		  inits[$1] = Array.new unless inits[$1]
+		  inits[$1] << init
+		end
+	  else
+		inits[""] = Array.new unless inits[""]
+		inits[""] << init
+	  end
+	end
+  end
+end
+
+print_data(inits, "", nil, true)
+
+puts "void Init_pango_inits()\n"
+puts "{\n"
+print_data(inits, "", nil)
+puts "}\n"

data/src/rbpango.c

@@ -0,0 +1,27 @@
+/* -*- c-file-style: "ruby"; indent-tabs-mode: nil -*- */
+/************************************************
+
+  rbpango.c -
+
+  $Author: mutoh $
+  $Date: 2005/09/28 18:04:21 $
+
+  Copyright (C) 2002-2005 Masao Mutoh
+************************************************/
+
+#include "rbpango.h"
+
+VALUE mPango;
+
+void
+Init_pango()
+{
+    mPango = rb_define_module("Pango");
+
+    rb_define_const(mPango, "BUILD_VERSION", 
+                    rb_ary_new3(3, 
+                                INT2FIX(PANGO_MAJOR_VERSION), 
+                                INT2FIX(PANGO_MINOR_VERSION), 
+                                INT2FIX(PANGO_MICRO_VERSION)));
+    Init_pango_inits();
+}

data/src/rbpango.h

@@ -0,0 +1,97 @@
+/* -*- c-file-style: "ruby"; indent-tabs-mode: nil -*- */
+/************************************************
+
+  rbpango.h -
+
+  $Author: ktou $
+  $Date: 2005/10/05 11:16:26 $
+
+  Copyright (C) 2002-2005 Masao Mutoh
+************************************************/
+
+#include "ruby.h"
+#define PANGO_ENABLE_ENGINE
+#define PANGO_ENABLE_BACKEND
+#include <pango/pango.h>
+
+#define RBPANGO_MAJOR_VERSION 0
+#define RBPANGO_MINOR_VERSION 20
+#define RBPANGO_MICRO_VERSION 0
+
+#if HAVE_FREETYPE2
+#include <pango/pangofc-font.h>
+#endif
+
+#include "rbgobject.h"
+#include "rbpangoversion.h"
+
+#if PANGO_CHECK_VERSION(1,10,0)
+#include <pango/pangocairo.h>
+#  if HAVE_RB_CAIRO_H
+#include <rb_cairo.h>
+#  endif
+#endif
+
+#if defined(G_PLATFORM_WIN32) && !defined(RUBY_PANGO_STATIC_COMPILATION)
+#  ifdef RUBY_PANGO_COMPILATION
+#    define RUBY_PANGO_VAR __declspec(dllexport)
+#  else
+#    define RUBY_PANGO_VAR extern __declspec(dllimport)
+#  endif
+#else
+#  define RUBY_PANGO_VAR extern
+#endif
+
+extern void Init_pango_inits();
+RUBY_PANGO_VAR VALUE mPango;
+
+#ifndef PANGO_TYPE_ITEM
+#define PANGO_TYPE_ITEM (pango_item_get_type())
+#endif
+#define PANGO_TYPE_ANALYSIS (pango_analysis_get_type())
+#define PANGO_TYPE_LOG_ATTR (pango_log_attr_get_type())
+#ifndef PANGO_TYPE_LAYOUT_ITER
+#define PANGO_TYPE_LAYOUT_ITER (pango_layout_iter_get_type())
+#endif
+#ifndef PANGO_TYPE_LAYOUT_LINE
+#define PANGO_TYPE_LAYOUT_LINE (pango_layout_line_get_type())
+#endif
+#define PANGO_TYPE_RECTANGLE (pango_rectangle_get_type())
+#define PANGO_TYPE_ATTR_ITERATOR (pango_attr_iter_get_type())
+#define PANGO_TYPE_COVERAGE (pango_coverage_get_type())
+#define PANGO_TYPE_GLYPH_INFO (pango_glyph_info_get_type())
+#ifndef PANGO_TYPE_GLYPH_ITEM
+#  define PANGO_TYPE_GLYPH_ITEM (pango_glyph_item_get_type())
+#endif
+
+#if PANGO_CHECK_VERSION(1,4,0)
+#define PANGO_TYPE_SCRIPT_ITER (pango_script_iter_get_type())
+#endif
+
+#define ATTR2RVAL(attr) (pango_make_attribute(attr))
+#define RVAL2ATTR(attr) (pango_get_attribute(attr))
+#define ATTRTYPE2CLASS(attr_type) (pango_get_attribute_klass(attr_type))
+#define RBPANGO_ADD_ATTRIBUTE(type, klass) (pango_add_attribute(type, klass))
+
+extern VALUE pango_make_attribute(PangoAttribute* attr);
+extern PangoAttribute* pango_get_attribute(VALUE attr);
+
+extern GType pango_item_get_type();
+extern GType pango_analysis_get_type();
+extern GType pango_log_attr_get_type();
+extern GType pango_layout_iter_get_type();
+extern GType pango_layout_line_get_type();
+extern GType pango_rectangle_get_type();
+extern GType pango_attr_iter_get_type();
+extern GType pango_coverage_get_type();
+extern GType pango_glyph_info_get_type();
+#ifndef HAVE_PANGO_GLYPH_ITEM_GET_TYPE
+extern GType pango_glyph_item_get_type();
+#endif
+
+#if PANGO_CHECK_VERSION(1,4,0)
+extern GType pango_script_iter_get_type();
+#endif
+
+extern VALUE pango_get_attribute_klass(VALUE attr_type);
+extern void pango_add_attribute(int attr_type, VALUE klass);