when_exe 0.3.5 → 0.3.6

data/lib/when_exe/{region → ephemeris}/sun.rb

@@ -52,6 +52,10 @@ module When
     # The Sun
     #
     class Sun < Datum
+
+      # @private
+      Radius = 696000.0
+
       class << self
 
         include Ephemeris
@@ -144,9 +148,9 @@ module When
       def initialize(*args)
         options = [args.pop] if args[-1].kind_of?(Hash)
         surface_radius, aberration, luminosity, *rest = args
-        surface_radius ||= 696000.0
-        aberration     ||=      0.00000
-        luminosity     ||=      4.58
+        surface_radius ||= Radius
+        aberration     ||= 0.00000
+        luminosity     ||= 4.58
         args  = [surface_radius, aberration, luminosity] + rest
         args += options if options
         super(*args)

data/lib/when_exe/googlecalendar.rb

@@ -80,11 +80,11 @@ module GoogleCalendar
       conditions['orderby']     = 'starttime'
       direction = (conditions['sortorder'] == 'd') ? :reverse : :forward
       first     = When.when?(conditions['start-min'])
-      conditions['start-min']   = (When.Calendar('Gregorian') ^ first).to_s
+      conditions['start-min']   = (When::Gregorian ^ first).to_s
       if conditions['start-max']
         last       = When.when?(conditions['start-max'])
         inner_args = [first...last]
-        conditions['start-max'] = (When.Calendar('Gregorian') ^ last).to_s
+        conditions['start-max'] = (When::Gregorian ^ last).to_s
       else
         inner_args = [first, direction]
       end

data/lib/when_exe/icalendar.rb

@@ -198,7 +198,7 @@ module When::V
             @namespace[content.attribute['prefix'].object] = content.object
           end while (content = content.same_altid)
         else
-          @namespace.update(When::Parts::Locale._namespace(content.object))
+          @namespace.update(When::Locale._namespace(content.object))
         end
       end
 
@@ -315,7 +315,7 @@ module When::V
 
       # locale の登録
       @locale = @_pool['..'].respond_to?(:locale) ? @_pool['..'].locale : []
-      @locale = When::Parts::Locale._locale(@property['locale'].object) if @property['locale']
+      @locale = When::Locale._locale(@property['locale'].object) if @property['locale']
 
       # tzoffsetfrom の登録
       if @property['tzoffsetfrom']
@@ -896,7 +896,7 @@ module When::V
                  ['last_modified', 'tzurl', 'x_lic_location'], [], []]
     Classes   = [Standard, Daylight]
 
-    class << self; include When::Parts::Resource::Pool; end
+    extend When::Parts::Resource::Pool
 
     include When::Parts::Timezone::Base
 

data/lib/when_exe/inspect.rb

@@ -107,13 +107,28 @@ module When
         when Numeric, FalseClass, TrueClass ; element
         else        ; element.to_s
         end
-      result = When::Parts::Locale.translate(result,options[:locale]) if options[:locale] && result.kind_of?(String)
+      result = When::Locale.translate(result,options[:locale]) if options[:locale] && result.kind_of?(String)
       result
     end
   end
 
   module Coordinates
 
+    class Pair
+      #
+      # to_h のための要素生成
+      #
+      # @param [Hash] options 下記のとおり
+      # @option options [Symbol] :method :to_m17n なら to_s を返す、その他は self を返す
+      #
+      # @return [String, When::Coordinates::Pair]
+      #
+      # @private
+      def _to_hash_value(options={})
+        options[:method] == :to_m17n ? to_s : self
+      end
+    end
+
     class Residue
       # 多言語対応文字列化
       #
@@ -134,25 +149,99 @@ module When
         return label.to_s + "(#{difference})" unless @format
         @format.to_s % [label.to_s, difference, difference+1]
       end
-    end
 
-    class Pair
       #
-      # to_h のための要素生成
+      # week_included のための range の決定
       #
-      # @param [Hash] options 下記のとおり
-      # @option options [Symbol] :method :to_m17n なら to_s を返す、その他は self を返す
+      # @return [Array<Range>]
       #
-      # @return [String, When::Coordinates::Pair]
+      # @private
+      def _range_for_week_included(date, first, length, block_given=false)
+        today = date.floor
+        begun = today.succ & self >> first-1
+        unless date.frame.equal?(begun.frame)
+          begun  = (date.frame ^ today).succ & self >> first-1
+          middle = today
+        end
+        ended = begun.succ & self >> length-1
+        middle && block_given ? [begun...middle, middle...ended] : [begun...ended]
+      end
+
+      #
+      # week_included のためのコラムの生成
+      #
+      # @return [Array<Object>]
       #
       # @private
-      def _to_hash_value(options={})
-        options[:method] == :to_m17n ? to_s : self
+      def _column_for_week_included(base, range, opt, &block)
+        range.inject([]) {|s,r| s + r.map { |date|
+          yield(date, !opt.key?(:Range) || opt[:Range].include?(date.to_i) ? DAY : nil)
+        }}
       end
     end
   end
 
+  class CalendarNote::Week
+
+    #
+    # week_included のための range の決定
+    #
+    # @return [Array<Range>]
+    #
+    # @private
+    def _range_for_week_included(date, first, length, block_given=false)
+      begun = ended = nil
+      if first <= 0
+        it = enum_for(date.floor, :reverse)
+        (1-first).times do
+          begun = it.next
+        end
+      else
+        it = enum_for(date.floor, :forward)
+        first.times do
+          begun = it.next
+        end
+      end
+      it = enum_for(begun, :forward)
+      (length+1).times do
+        ended = it.next
+      end
+      [begun...ended]
+    end
+
+    #
+    # week_included のためのコラムの生成
+    #
+    # @return [Array<Object>]
+    #
+    # @private
+    def _column_for_week_included(base, range, opt, &block)
+      count = 0
+      limit = week(base)[:position][1]
+      range.inject([]) {|s,r| s + r.map { |date|
+        position = week(date, base)[:position][0]
+        (position - count).times do
+          yield(nil,nil)
+        end
+        count = position + 1
+        yield(date, !opt.key?(:Range) || opt[:Range].include?(date.to_i) ? DAY : nil) if position < limit
+      }}
+    end
+  end
+
   module TM
+
+    class Calendar
+
+      # TemporalPosition#strftime のためのデフォルト書式
+      #
+      # @return [String]
+      #
+      def strftime
+        @strftime ||= '%Y-%m-%d'
+      end
+    end
+
     class TemporalPosition
 
       AMPM   = ['AM', 'PM'].map {|half| When::Parts::Resource._instance('_m:CalendarFormats::' + half)}
@@ -163,10 +252,10 @@ module When
         'E' => ['%s',   'E'], 'F' => ['%s',   'F'], 'G' => ['%d',   'G'], 'g' => ['%02d', 'g'],
         'h' => '%b',          'H' => ['%02d', 'H'], 'I' => ['%02d', 'I'], 'j' => ['%03d', 'j'],
         'k' => ['%2d',  'H'], 'l' => ['%2d',  'I'], 'm' => ['%02d', 'm'], 'M' => ['%02d', 'M'],
-        'n' => '\n',          'p' => ['%s',   'p'], 'P' => ['%s',   'P'], 'r' => '%I:%M:%S %p',
-        'R' => '%H:%M',       's' => ['%d',   's'], 'S' => ['%02d', 'S'], 't' => '\t',
-        'T' => '%H:%M:%S',    'u' => ['%d',   'u'], 'U' => ['%02d', 'U'], 'V' => ['%02d', 'V'],
-        'w' => ['%d',   'w'], 'W' => ['%02d', 'W'],
+        'n' => '\n',          'p' => ['%s',   'p'], 'P' => ['%s',   'P'], 'q' => ['%01d', 'd'],
+        'r' => '%I:%M:%S %p', 'R' => '%H:%M',       's' => ['%d',   's'], 'S' => ['%02d', 'S'],
+        't' => '\t',          'T' => '%H:%M:%S',    'u' => ['%d',   'u'], 'U' => ['%02d', 'U'],
+        'V' => ['%02d', 'V'], 'w' => ['%d',   'w'], 'W' => ['%02d', 'W'],
         'x' => When::Parts::Resource._instance('_m:CalendarFormats::Date'),
         'X' => When::Parts::Resource._instance('_m:CalendarFormats::Time'),
         'y' => ['%02d', 'y'], 'Y' => ['%4d',  'Y'], 'z' => ['%s',   'z'], 'Z' => ['%s',   'Z'],
@@ -230,7 +319,7 @@ module When
 
       # 含まれる週
       #
-      # @overload week_included(ord, wkst, opt, block)
+      # @overload week_included(ord, wkst, opt, &block)
       #   @param [Numeric, Range] ord 週の番号(default: 今週)
       #     今週を 0 とする週番号(Integer) または週番号の範囲(Range)
       #       -1 - 先週
@@ -249,47 +338,17 @@ module When
       # @return [Range] 含まれる週を範囲として表現する Range (block 指定なし)
       # @return [Array] 含まれる週の各日をブロックに渡した結果の Array (block 指定あり)
       #
-      def week_included(*args)
+      def week_included(*args, &block)
         begin
           first, length, wkst, opt = _range(args, 'MO')
-          case wkst
-          when When::Coordinates::Residue
-            today = self.floor
-            begun = today.succ & wkst >> first-1
-            unless @frame.equal?(begun.frame)
-              begun  = (@frame ^ today).succ & wkst >> first-1
-              middle = today
-            end
-            ended  = begun.succ & wkst >> length-1
-          else
-            begun = ended = nil
-            if first <= 0
-              it = wkst.enum_for(self.floor, :reverse)
-              (1-first).times do
-                begun = it.next
-              end
-            else
-              it = wkst.enum_for(self.floor, :forward)
-              first.times do
-                begun = it.next
-              end
-            end
-            it = wkst.enum_for(begun, :forward)
-            (length+1).times do
-              ended = it.next
-            end
-          end
-          range = middle && block_given? ? [begun...middle, middle...ended] : [begun...ended]
-
+          range = wkst._range_for_week_included(self, first, length, block_given?)
         rescue RangeError
-          range = [(@frame ^ self).week_included(*args)]
+          range = wkst._range_for_week_included(@frame ^ self, first, length)
         end
 
-        return range[0] unless block_given?
+        return range.first unless block_given?
 
-        (range.inject([]) {|s,r| s + r.map { |date|
-          yield(date, !opt.key?(:Range) || opt[:Range].include?(date.to_i) ? DAY : nil)
-        }}).unshift(yield(range[0].first, WEEK)).compact
+        wkst._column_for_week_included(self, range, opt, &block).unshift(yield(range[0].first, WEEK)).compact
       end
 
       # 含まれる月
@@ -319,7 +378,7 @@ module When
         if wkst
           (first...(first+length)).map {|i|
             begun = self.floor(MONTH,DAY) + When::TM::PeriodDuration.new([0,i,0])
-            ended = begun                 + DurationP1M
+            ended = begun                 + P1M
             ended = ended.prev until begun.cal_date[MONTH-1] == ended.cal_date[MONTH-1]
             if ended.to_i <= begun.to_i
               ended = begun
@@ -398,7 +457,7 @@ module When
             result  = [yield(begun, YEAR)]
             while current < ended do
               result << current.month_included(wkst, &block)
-              current += DurationP1M
+              current += P1M
             end
             result.compact
           }
@@ -425,14 +484,14 @@ module When
           when date.most_significant_coordinate * 1 == year
             return date
           when date.most_significant_coordinate * 1 >  year
-            next_date = (date-When::DurationP1Y).floor(YEAR,DAY)
+            next_date = (date-When::P1Y).floor(YEAR,DAY)
             date = (date.to_i == next_date.to_i) ?
-                     (date-When::DurationP1Y*2).floor(YEAR,DAY) :
+                     (date-When::P1Y*2).floor(YEAR,DAY) :
                      next_date
           else
-            next_date = (date+When::DurationP1Y).floor(YEAR,DAY)
+            next_date = (date+When::P1Y).floor(YEAR,DAY)
             date = (date.to_i == next_date.to_i) ?
-                     (date+When::DurationP1Y*2).floor(YEAR,DAY) :
+                     (date+When::P1Y*2).floor(YEAR,DAY) :
                      next_date
           end
           raise RangeError, "can't find target date: #{self} -> #{year}" if done.key?(date.to_i)
@@ -479,9 +538,9 @@ module When
         form_options = options.kind_of?(Hash) ? options : {}
         form_options[:method] = :to_m17n unless form_options.key?(:method)
         persistence = options.delete(:persistence) if options.kind_of?(Hash)
-        retrieved   = When::CalendarNote::Notes.retrieve(persistence, self.to_i)
+        retrieved   = When::CalendarNote::NotesContainer.retrieve(persistence, self.to_i)
         return retrieved unless retrieved == false
-        When::CalendarNote::Notes.register(_m17n_form(_notes(options), form_options), persistence, self.to_i)
+        When::CalendarNote::NotesContainer.register(_m17n_form(_notes(options), form_options), persistence, self.to_i)
       end
 
       #
@@ -630,7 +689,7 @@ module When
       #
       # @return [When::BasicTypes::M17n]
       #
-      def strftime(pattern, locale=nil)
+      def strftime(pattern=@frame.strftime, locale=nil)
         pattern = m17n([pattern]*self.keys.length, nil, nil, {:locale=>self.keys}) if pattern.instance_of?(String)
         pattern._printf([], locale) do |k, *t|
           _strftime(k, pattern, [''])
@@ -649,12 +708,12 @@ module When
       # @return [designator に依存]
       #
       def _term(designator, locale=nil, d=0, e=3)
-        designator = When::Parts::Locale.translate(designator,locale)
+        designator = When::Locale.translate(designator,locale)
         case designator
                                                                 # 現在のロケールにおける曜日の省略名
-        when 'a' ; When.Resource('_co:CommonResidue::Abbr_Day')[to_i % 7].translate(locale)
+        when 'a' ; When.Resource('_co:Common::Abbr_Day')[to_i % 7].translate(locale)
                                                                 # 現在のロケールにおける曜日の完全な名前
-        when 'A' ; When.Resource('_co:CommonResidue::Week')[to_i % 7].label.translate(locale)
+        when 'A' ; When.Resource('_co:Common::Week')[to_i % 7].label.translate(locale)
         when 'b' ; (name(MONTH-d).translate(locale))[/^.{1,#{e}}/] # 現在のロケールにおける月の省略名
         when 'B' ; (name(MONTH-d).translate(locale))            # 現在のロケールにおける月の完全な名前
         when 'C' ; year(d).div(100)                             # 世紀 (西暦年の上 2 桁)
@@ -670,7 +729,7 @@ module When
         when 'M' ; minute(d)                                    # 分
         when 'p' ; (AMPM[hour(d).to_i.div(12)].translate(locale)).upcase   # 現在のロケールにおける「午前」「午後」に相当する文字列
         when 'P' ; (AMPM[hour(d).to_i.div(12)].translate(locale)).downcase # 前項を小文字で表記
-        when 's' ; universal_time / Duration::SECOND      # 紀元 (1970-01-01T00:00:00Z) からの秒数
+        when 's' ; universal_time / Duration::SECOND            # 紀元 (1970-01-01T00:00:00Z) からの秒数
         when 'S' ; second(d)                                    # 秒 (10 進数表記)
         when 'u' ; cwday                                        # 週の何番目の日か(月曜日を 1 とする)
         when 'U' ; yweek(6, 7, d)                               # 年の初めからの通算の週番号(日曜日始まり)
@@ -680,7 +739,7 @@ module When
         when 'y' ; year(d) % 100                                # 西暦の下2桁 (世紀部分を含まない年)
         when 'Y' ; year(d)                                      # 世紀部分を含めた ( 4 桁の) 西暦年
         when 'z' ; clock.to_basic                               # +hhmm や -hhmm の形式のタイムゾーン
-        when 'Z' ; When::Parts::Locale.translate(clock.tzname[0],locale) # タイムゾーンまたはゾーン名または省略名
+        when 'Z' ; When::Locale.translate(clock.tzname[0],locale) # タイムゾーンまたはゾーン名または省略名
         else     ; designator
         end
       end
@@ -729,7 +788,7 @@ module When
       #
       def _calendar_note(options)
         calendar_note   = options.delete(:calendar_note) if options.kind_of?(Hash)
-        calendar_note ||= @frame ? @frame.note : 'JulianDayNotes'
+        calendar_note ||= @frame ? @frame.note : 'JulianDay'
         When.CalendarNote(calendar_note)
       end
     end
@@ -1196,8 +1255,9 @@ module When
         # 準備
         precision = [precision, 1 - @cal_date.length].max
         precision = [precision, DAY].min
-        terms  = []
-        ext_dg = [(@extra_year_digits||1).to_i, 0].max
+        terms   = []
+        ext_dg  = [(@extra_year_digits||1).to_i, 0].max
+        year_dg = @frame.indices.length <= 2 ? 4 : 2
 
         # 年
         year_by_epoch = @cal_date[0]
@@ -1206,14 +1266,14 @@ module When
           year_in_term        = reverse ? -year_by_epoch : year_by_epoch
           year_by_calendar    = epoch + year_by_epoch if epoch
           terms  << year_in_term
-          format = (0..99) === (year_in_term * 1) ? "%02d." : "%04d."
+          format = (0..99) === (year_in_term * 1) ? "%02d." : "%0#{year_dg}d."
           if year_by_calendar && year_by_calendar != year_in_term
             terms  << (year_by_calendar * 1)
-            format += "(%04d)"
+            format += "(%0#{year_dg}d)"
           end
         else
           terms  << year_by_epoch
-          format = (0..9999) === (year_by_epoch * 1) ? "%04d." : "%+0#{5+ext_dg}d."
+          format = (0..(10**year_dg-1)) === (year_by_epoch * 1) ? "%0#{year_dg}d." : "%+0#{5+ext_dg}d."
         end
 
         # 月日
@@ -1227,7 +1287,7 @@ module When
         date = Pair._format([format] + terms)
         date.sub!(/([^\d])\(([-+\d]+)\)/, '(\2)\1') if era
         date = date[0..-2] unless @frame.pair[precision-1] || date[-1..-1] != '.'
-        date.gsub!(/\./, '-') if (@frame.indices.length <= DefaultDateIndices.length) && !era
+        date.gsub!(/\./, '-') if (@frame.indices.length <= 3) && !era
         return date
       end
     end

data/lib/when_exe/locales/af.rb

@@ -5,8 +5,8 @@
   You may use and/or modify this file according to the license described in the LICENSE.txt file included in this archive.
 =end
 
-module When::BasicTypes
-  class M17n
+module When
+  module Locale
 
     # from https://raw.github.com/svenfuchs/rails-i18n/master/rails/locale/af.yml
 

data/lib/when_exe/locales/akt.rb

@@ -0,0 +1,176 @@
+# -*- coding: utf-8 -*-
+=begin
+  Copyright (C) 2014 Takashi SUGA
+
+  You may use and/or modify this file according to the license described in the LICENSE.txt file included in this archive.
+=end
+
+require 'when_exe/locales/transliteration_table'
+
+module When
+  module Locale
+
+    #
+    # AKT: Alphabet of Katakana Transliteration
+    #
+    # see { http://www.asahi-net.or.jp/~dy5h-kdm/end2.htm MadKod}
+    #
+    AKT = {
+      'ja' => {
+        "a"  =>"ア",   "i"  =>"イ",   "u"  =>"ウ",   "e"  =>"エ",   "o"  =>"オ",
+        "ka" =>"カ",   "ki" =>"キ",   "ku" =>"ク",   "ke" =>"ケ",   "ko" =>"コ",   "k" =>"ク",
+        "qa" =>"カ",   "qi" =>"キ",   "qu" =>"ク",   "qe" =>"ケ",   "qo" =>"コ",   "q" =>"ク",
+        "ga" =>"ガ",   "gi" =>"ギ",   "gu" =>"グ",   "ge" =>"ゲ",   "go" =>"ゴ",   "g" =>"グ",
+        "sa" =>"サ",   "si" =>"シ",   "su" =>"ス",   "se" =>"セ",   "so" =>"ソ",   "s" =>"ス",
+        "za" =>"ザ",   "zi" =>"ヂ",   "zu" =>"ズ",   "ze" =>"ゼ",   "zo" =>"ゾ",   "z" =>"ズ",
+        "ja" =>"ジャ", "ji" =>"ジ",   "ju" =>"ジュ", "je" =>"ジェ", "jo" =>"ジョ", "j" =>"ジュ",
+        "ca" =>"カ",   "ci" =>"チ",   "cu" =>"ク",   "ce" =>"セ",   "co" =>"コ",   "c" =>"ク",
+        "ta" =>"タ",   "ti" =>"ティ", "tu" =>"トゥ", "te" =>"テ",   "to" =>"ト",   "t" =>"ト",
+        "tsa"=>"ツァ", "tsi"=>"ツィ", "tsu"=>"ツ",   "tse"=>"ツェ", "tso"=>"ツォ", "ts"=>"ツ",
+        "da" =>"ダ",   "di" =>"ディ", "du" =>"ドゥ", "de" =>"デ",   "do" =>"ド",   "d" =>"ド",
+        "na" =>"ナ",   "ni" =>"ニ",   "nu" =>"ヌ",   "ne" =>"ネ",   "no" =>"ノ",   "n" =>"ン",
+        "ha" =>"ハ",   "hi" =>"ヒ",   "hu" =>"フ",   "he" =>"ヘ",   "ho" =>"ホ",   "h" =>"フ",
+        "ba" =>"バ",   "bi" =>"ビ",   "bu" =>"ブ",   "be" =>"ベ",   "bo" =>"ボ",   "b" =>"ブ",
+        "pa" =>"パ",   "pi" =>"ピ",   "pu" =>"プ",   "pe" =>"ペ",   "po" =>"ポ",   "p" =>"プ",
+        "fa" =>"ファ", "fi" =>"フィ", "fu" =>"フ",   "fe" =>"フェ", "fo" =>"フォ", "f" =>"フ",
+        "va" =>"ヴァ", "vi" =>"ヴィ", "vu" =>"ヴ",   "ve" =>"ヴェ", "vo" =>"ヴォ", "v" =>"ヴ",
+        "ma" =>"マ",   "mi" =>"ミ",   "mu" =>"ム",   "me" =>"メ",   "mo" =>"モ",   "m" =>"ム",
+        "mma"=>"ンマ", "mmi"=>"ンミ", "mmu"=>"ンム", "mme"=>"ンメ", "mmo"=>"ンモ",
+        "ra" =>"ラ",   "ri" =>"リ",   "ru" =>"ル",   "re" =>"レ",   "ro" =>"ロ",   "r" =>"ル",
+        "la" =>"ラ",   "li" =>"リ",   "lu" =>"ル",   "le" =>"レ",   "lo" =>"ロ",   "l" =>"ル",
+        "wa" =>"ワ",   "wi" =>"ウィ", "wu" =>"ゥ",   "we" =>"ウェ", "wo" =>"ヲ",   "w" =>"ゥ",
+        "wwa"=>"ウヮ", "wwi"=>"ウィ", "wwu"=>"ウゥ", "wwe"=>"ウェ", "wwo"=>"ウォ",
+        "xa" =>"ァ",   "xi" =>"ィ",   "xu" =>"ゥ",   "xe" =>"ェ",   "xo" =>"ォ",   "x" =>"クス",
+        "ya" =>"ヤ",   "yu" =>"ユ",   "yo" =>"ヨ",   "y"  =>"イ",
+        "kya"=>"キャ", "kyu"=>"キュ", "kyo"=>"キョ",
+        "kja"=>"キャ", "kvu"=>"キュ", "kjo"=>"キョ",
+        "qja"=>"キャ", "qju"=>"キュ", "qjo"=>"キョ",
+        "gya"=>"ギャ", "gyu"=>"ギュ", "gyo"=>"ギョ",
+        "gja"=>"ギャ", "gju"=>"ギュ", "gjo"=>"ギョ",
+        "sya"=>"シャ", "syu"=>"シュ", "syo"=>"ショ",
+        "sja"=>"シャ", "sju"=>"シュ", "sjo"=>"ショ",
+        "zya"=>"ジャ", "zyu"=>"ジュ", "zyo"=>"ジョ",
+        "zja"=>"ヂャ", "zju"=>"ヂュ", "zjo"=>"ヂョ",
+        "jya"=>"ジャ", "jyu"=>"ジュ", "jye"=>"ジェ", "jyo"=>"ジョ",
+        "cyi"=>"チィ", "cyu"=>"チュ", "tyi"=>"ティ",
+        "tyu"=>"テュ", "tye"=>"テェ", "tja"=>"チャ",
+        "tju"=>"チュ", "tjo"=>"チョ", "-"  =>"ー",   "tsx"=>"ッ",
+        "dyi"=>"ディ", "dyu"=>"デュ", "dye"=>"デェ",
+        "dja"=>"ヂャ", "dju"=>"ヂュ", "djo"=>"ヂョ",
+        "nya"=>"ニャ", "nyu"=>"ニュ", "nyo"=>"ニョ",
+        "nva"=>"ニャ", "nvu"=>"ニュ", "nvo"=>"ニョ",
+        "hya"=>"ヒャ", "hyu"=>"ヒュ", "hyo"=>"ヒョ",
+        "bya"=>"ビャ", "byu"=>"ビュ", "byo"=>"ビョ",
+        "pya"=>"ピャ", "pyu"=>"ピュ", "pyo"=>"ピョ",
+        "fyu"=>"フュ", "vyu"=>"ヴュ",
+        "mya"=>"ミャ", "myu"=>"ミュ", "myo"=>"ミョ",
+        "mva"=>"ミャ", "mvu"=>"ミュ", "mvo"=>"ミョ",
+        "rya"=>"リャ", "ryu"=>"リュ", "ryo"=>"リョ",
+        "lya"=>"リャ", "lyu"=>"リュ", "lyo"=>"リョ",
+        "wyi"=>"ウイ", "wyu"=>"ウユ", "wye"=>"ウエ",
+        "xya"=>"ャ",   "xyu"=>"ュ",   "xyo"=>"ョ",
+        "yya"=>"イャ", "yyi"=>"イィ", "yyu"=>"イュ", "yye"=>"イェ", "yyo"=>"イョ",
+        "kwa"=>"クヮ", "kwi"=>"クィ", "kwu"=>"クゥ", "kwe"=>"クェ", "kwo"=>"クォ",
+        "kha"=>"クァ", "khi"=>"クィ", "khu"=>"クゥ", "khe"=>"クェ", "kho"=>"クォ",
+        "qha"=>"クァ", "qhi"=>"クィ", "qhu"=>"クゥ", "qhe"=>"クェ", "qho"=>"クォ",
+        "gwa"=>"グヮ", "gwi"=>"グィ", "gwu"=>"グゥ", "gwe"=>"グェ", "gwo"=>"グォ",
+        "gha"=>"グァ", "ghi"=>"グィ", "ghu"=>"グゥ", "ghe"=>"グェ", "gho"=>"グォ",
+        "sha"=>"シャ", "shi"=>"シ",   "shu"=>"シュ", "she"=>"シェ", "sho"=>"ショ", "sh"=>"シュ",
+        "swa"=>"スワ", "swi"=>"スィ", "swu"=>"スゥ", "swe"=>"スェ", "swo"=>"スヲ",
+        "zha"=>"ツァ", "zhi"=>"ツィ", "zhu"=>"ズゥ", "zhe"=>"ツェ", "zho"=>"ツォ",
+        "zxa"=>"ツァ", "zxi"=>"ツィ", "zxu"=>"ズゥ", "zxe"=>"ツェ", "zxo"=>"ツォ",
+        "jxa"=>"ジァ", "jxi"=>"ジィ", "jxu"=>"ジゥ", "jxe"=>"ジェ", "jxo"=>"ジォ",
+        "cha"=>"チャ", "chi"=>"チ",   "chu"=>"チュ", "che"=>"チェ", "cho"=>"チョ",
+        "twa"=>"トワ", "twi"=>"ツイ", "twu"=>"トゥ", "twe"=>"ツエ", "two"=>"ツー",
+        "tha"=>"スァ", "thi"=>"スィ", "thu"=>"スゥ", "the"=>"スェ", "tho"=>"スォ",
+        "tza"=>"ツァ", "tzi"=>"ツィ", "tzu"=>"ズー", "tze"=>"ツェ", "tzo"=>"ツォ",
+        "dwa"=>"ドワ", "dwi"=>"ドィ", "dwu"=>"ドゥ", "dwe"=>"ドェ", "dwo"=>"ドヲ",
+        "dha"=>"ダー", "dhi"=>"ジー", "dhu"=>"ドフ", "dhe"=>"ドヘ", "dho"=>"ドホ",
+        "dsa"=>"ドサ", "dsi"=>"ドシ", "dsu"=>"ズ",   "dse"=>"ドセ", "dso"=>"ドソ",
+        "nxa"=>"ニァ", "nxi"=>"ニィ", "nxu"=>"ニゥ", "nxe"=>"ニェ", "nxo"=>"ニォ",
+        "hwa"=>"ホヮ", "hwi"=>"ホィ", "hwu"=>"ホゥ", "hwe"=>"ホェ", "hwo"=>"ホォ",
+        "bha"=>"バー", "bhi"=>"ビー", "bhu"=>"ブー", "bhe"=>"ベー", "bho"=>"ボー",
+        "pwa"=>"プヮ", "pwi"=>"プィ", "pwu"=>"プゥ", "pwe"=>"プェ", "pwo"=>"プォ",
+        "pha"=>"ファ", "phi"=>"フィ", "phu"=>"フュ", "phe"=>"フェ", "pho"=>"フォ",
+        "vha"=>"ヒャ", "vhi"=>"ヒィ", "vhu"=>"ヒュ", "vhe"=>"ヒェ", "vho"=>"ヒョ",
+        "mha"=>"ムァ", "mhi"=>"ムィ", "mhu"=>"ムゥ", "mhe"=>"ムェ", "mho"=>"ムォ",
+        "mwa"=>"ムヮ", "mwi"=>"ムィ", "mwu"=>"ムゥ", "mwe"=>"ムェ", "mwo"=>"ムォ",
+        "rja"=>"リャ", "rji"=>"リィ", "rju"=>"リュ", "rje"=>"リェ", "rjo"=>"リョ",
+        "lja"=>"リャ", "lji"=>"リィ", "lju"=>"リュ", "lje"=>"リェ", "ljo"=>"リョ",
+        "wha"=>"ホワ", "whi"=>"ホイ", "whu"=>"ホウ", "whe"=>"ホエ", "who"=>"ホオ",
+        "wxa"=>"ヮ",   "wxi"=>"ヰ",   "wxu"=>"ゥ",   "wxe"=>"ヱ",   "wxo"=>"ウォ",
+        "xwa"=>"ヮ",   "xwi"=>"ヰ",   "xwu"=>"ゥ",   "xwe"=>"ヱ",   "xwo"=>"ウォ"
+      }
+    }
+
+    # @private
+    IAST_K = {
+      "Ā"  => "A-",     "ā"  => "a-",
+      "Ī"  => "I-",     "ī"  => "i-",
+      "Ū"  => "U-",     "ū"  => "u-",
+      "E"  => "e-",     "e"  => "e-",
+      "Ē"  => "e-",     "ē"  => "e-",
+      "O"  => "O-",     "o"  => "o-",
+      "Ō"  => "O-",     "ō"  => "o-",
+      "Ṛ"  => "R:",      "ṛ"  => "r:",
+      "Ṝ"  => "R:-",      "ṝ"  => "r:-",
+      "R̥"  => "R:",      "r̥"  => "r:",
+      "R̥̄"  => "R:-",      "r̥̄"  => "r:-",
+      "Ḷ"  => "L:",      "ḷ"  => "l:",
+      "Ḹ"  => "L:",      "ḹ"  => "l:",
+      "Ṃ"  => "M:",      "ṃ"  => "m:",
+      "Ṁ"  => "M:",      "ṁ"  => "m:",
+      "Ḥ"  => "H:",      "ḥ"  => "h:",
+      "C"  => "Ch",     "c"  => "ch",
+      "Ṭ"  => "T",      "ṭ"  => "t",
+      "Kh" => "K",      "kh" => "k",
+      "Ch" => "Ch",     "ch" => "ch",
+      "Ṭh" => "T",      "ṭh" => "t",
+      "Th" => "T",      "th" => "t",
+      "Ph" => "P",      "ph" => "p",
+      "Ḍ"  => "D",      "ḍ"  => "d",
+      "Gh" => "G",      "gh" => "g",
+      "Jh" => "J",      "jh" => "j",
+      "Ḍh" => "D",      "ḍh" => "d",
+      "Dh" => "D",      "dh" => "d",
+      "Bh" => "B",      "bh" => "b",
+      "Ṅ"  => "N",      "ṅ"  => "n",
+      "Ñ"  => "Ny",     "ñ"  => "ny",
+      "Ṇ"  => "N",      "ṇ"  => "n",
+      "Ś"  => "Sh",     "ś"  => "sh",
+      "Ṣ"  => "Sh",     "ṣ"  => "sh"
+    }
+
+    # @private
+    AKT_keys    = transliteration_keys_hash(AKT)
+
+    # @private
+    IAST_K_keys = transliteration_keys(IAST_K)
+
+    #
+    # Convert AKT string to katakana scripts
+    #
+    def self.akt(string, locale='ja')
+      string.gsub(/([^aeiou])\1/, 'ッ\1').
+             gsub(/m([fpb])/, 'n\1').
+        gsub(AKT_keys[locale]) {|code|
+        AKT[locale][code] || code
+      }
+    end
+
+    #
+    # Convert IAST string to katakana scripts
+    #
+    def self.iast_akt(string, locale='ja')
+      akt(
+        string.gsub(IAST_K_keys) {|code| IAST_K[code] || code}.
+        downcase.gsub(/(.):-?(.)|(.):-?$/) {|code|
+          "aeiou".index($2||':') ? $1 + $2   :
+                         $1=='m' ? "ン#{$2}" :
+                                   code.sub(':','i')
+        }.
+        gsub(/([rm])y/, '\1uy'),
+        locale)
+    end
+  end
+end