when_exe 0.2.100 → 0.3.1

data/lib/when_exe/parts/timezone.rb

@@ -0,0 +1,182 @@
+# -*- coding: utf-8 -*-
+=begin
+  Copyright (C) 2011-2013 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
+
+#
+# 本ライブラリのための諸々の部品
+#
+module When::Parts
+
+  #
+  # TZInfo::Timezone クラスを本ライブラリから使用するためのラッパークラス
+  #
+  class Timezone
+
+    class << self
+      include Resource::Pool
+
+      # @private
+      alias :_get :[]
+
+      # オブジェクト参照
+      #
+      # @param [String] label 識別名 ( "America/New_York" など)
+      #
+      # @return [When::Parts::Timezone] 時間帯オブジェクト
+      #
+      def [](label)
+        ref = _get(label)
+        return ref if ref
+        self[label] = self.new(label)
+      end
+      alias :get :[]
+
+      # TZInfo でサポートしている Timezone の連想配列
+      #
+      # @return [Hash] { String => TZInfo::CountryTimezone }
+      #   [ String                  - 時間帯ID ]
+      #   [ TZInfo::CountryTimezone - 時間帯オブジェクト(proxy for autoload) ]
+      #
+      def tz_info
+        zones = {}
+        TZInfo::Country.all.each do |c|
+          c.zone_info.each do |z|
+            zones[z.identifier]       ||= {}
+            zones[z.identifier][c.code] = z
+          end
+        end
+
+        list  = {}
+        zones.each_pair do |id, hash|
+          if hash.keys.size == 1
+            list[id] = hash[hash.keys[0]]
+          else
+            hash.each_pair do |c, z|
+              list["#{id}(#{c})"] = z
+            end
+          end
+        end
+        list
+      end
+    end
+
+    # ラップしている TZInfo::Timezone インスタンス
+    # @return [TZInfo::Timezone]
+    attr_reader :timezone
+
+    # 標準時間帯の時計
+    # @return [When::TM::Clock]
+    attr_reader :standard
+
+    # 夏時間帯の時計
+    # @return [When::TM::Clock]
+    attr_reader :daylight
+
+    # 夏時間帯と標準時間帯の時間差
+    # @return [When::TM:IntervalLength]
+    attr_reader :difference
+
+    # ユニーク識別名
+    # @return [String]
+    def label
+      @timezone.identifier
+    end
+
+    # 時分秒のインデクス
+    # @return [Array<When::Coordinates::Index>]
+    attr_reader :indices
+
+    # オブジェクト生成
+    #
+    # @param [String] identifier 識別名 ( "America/New_York" など)
+    #
+    def initialize(identifier)
+      @timezone   = TZInfo::Timezone.get(identifier)
+      unless TZInfo::TimeOrDateTime.method_defined?(:_to_datetime)
+        if TZInfo::RubyCoreSupport.respond_to?(:datetime_new)
+          TZInfo::TimeOrDateTime.class_eval %Q{
+            alias :_to_datetime :to_datetime
+            ::Rational
+            def to_datetime
+              unless @datetime
+                u = usec
+                s = u == 0 ? sec : Rational(sec * 1000000 + u, 1000000)
+                @datetime = TZInfo::RubyCoreSupport.datetime_new(year, mon, mday, hour, min, s, 0, Date::GREGORIAN)
+              end
+              @datetime
+            end
+          }
+        else
+          TZInfo::TimeOrDateTime.class_eval %Q{
+            alias :_to_datetime :to_datetime
+            def to_datetime
+              @datetime ||= DateTime.new(year, mon, mday, hour, min, sec, 0, Date::GREGORIAN)
+            end
+          }
+        end
+      end
+      std, dst    = _offsets(Time.now.to_i)
+      @standard   = When::TM::Clock.new({:zone=>std, :tz_prop=>self})
+      if std == dst
+        @daylight   = @standard
+        @difference = 0
+      else
+        @daylight   = When::TM::Clock.new({:zone=>dst, :tz_prop=>self})
+        @difference = @standard.universal_time - @daylight.universal_time
+      end
+      @indices = When::Coordinates::DefaultTimeIndex
+    end
+
+    # @private
+    def _daylight(zdate=nil)
+      if block_given?
+        zdate  = yield(@standard.dup.tap{|clock| clock.tz_prop = nil})
+        now    = zdate.to_time.to_i
+        clocks = _offsets(now).map {|clock| When::TM::Clock.new({:zone=>clock, :tz_prop=>self})}
+        flags  = clocks.map {|z| @timezone.period_for_utc(yield(z.dup.tap{|clock| clock.tz_prop = nil}).to_time.to_i).dst? }
+        return nil if flags[0] && !flags[1]
+        (flags[0] || flags[1]) ? clocks[1] : clocks[0]
+      else
+        now      = zdate.to_time.to_i
+        period   = @timezone.period_for_utc(now)
+        unless period.dst?
+          offset = _offsets(now)
+          period = @timezone.period_for_utc(now-(offset[1]-offset[0]))
+        end
+        When::TM::Clock.new({:zone=>period.utc_total_offset, :tz_prop=>self})
+      end
+    end
+
+    # @private
+    def _need_validate
+      true
+    end
+
+    private
+
+    def _offsets(time)
+      now         = @timezone.period_for_utc(time)
+      past        = @timezone.period_for_utc(now.utc_start-1) if now.utc_start
+      future      = @timezone.period_for_utc(now.utc_end)     if now.utc_end
+      std         = now.utc_offset
+      dst         = now.utc_total_offset
+      [past, future].each do |period|
+        next unless period
+        std = period.utc_offset       if std > period.utc_offset
+        dst = period.utc_total_offset if dst < period.utc_total_offset
+      end
+      [std, dst]
+    end
+
+    # その他のメソッド
+    #   When::Parts::GeometricComplex で定義されていないメソッドは
+    #   処理を first (type: When::TM::(Temporal)Position) に委譲する
+    #
+    def method_missing(name, *args, &block)
+      timezone.send(name.to_sym, *args, &block)
+    end
+  end
+end

data/lib/when_exe/region/bahai.rb

@@ -0,0 +1,145 @@
+# -*- coding: utf-8 -*-
+=begin
+  Copyright (C) 2013 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
+
+module When
+  class BasicTypes::M17n
+
+    BahaiTerms = [self, [
+      "namespace:[en=http://en.wikipedia.org/wiki/, ja=http://ja.wikipedia.org/wiki/, ar=http://ar.wikipedia.org/wiki/]",
+      "locale:[=en:, ar=ar:, alias=en:]",
+      "names:[BahaiTerms]",
+      "[Bahai=en:Bah%C3%A1%27%C3%AD_calendar, ja:バハーイー暦=ja:%E3%83%90%E3%83%8F%E3%83%BC%E3%82%A4%E3%83%BC%E6%95%99]",
+
+      [self,
+        "names:[Month, 月=ja:%E6%9C%88_(%E6%9A%A6)]",
+        "[Bahá=,      بهاء=,    Splendour=  ]", #  1
+        "[Jalál=,     جلال=,    Glory=      ]", #  2
+        "[Jamál=,     جمال=,    Beauty=     ]", #  3
+        "[‘Aẓamat=,  عظمة=,    Grandeur=   ]", #  4
+        "[Núr=,       نور=,     Light=      ]", #  5
+        "[Raḥmat=,    رحمة=,    Mercy=      ]", #  6
+        "[Kalimát=,   كلمات=,   Words=      ]", #  7
+        "[Kamál=,     كمال=,    Perfection= ]", #  8
+        "[Asmá’=,    اسماء=,   Names=      ]", #  9
+        "[‘Izzat=,   عزة=,     Might=      ]", # 10
+        "[Mashíyyat=, عزة=,     Will=       ]", # 11
+        "[‘Ilm=,     علم=,     Knowledge=  ]", # 12
+        "[Qudrat=,    قدرة=,    Power=      ]", # 13
+        "[Qawl=,      قول=,     Speech=     ]", # 14
+        "[Masá’il=,  مسائل=,   Questions=  ]", # 15
+        "[Sharaf=,    شرف=,     Honour=     ]", # 16
+        "[Sulṭán=,    سلطان=,   Sovereignty=]", # 17
+        "[Mulk=,      ملك=,     Dominion=   ]", # 18
+        "[‘Alá’=,   علاء=,    Loftiness=  ]", # 19
+        "[%0sAyyám-i-Há=en:Ayy%C3%A1m-i-H%C3%A1, %0sايام الهاء=, %0sThe Days of Há=]" # Intercalary days
+      ]
+    ]]
+  end
+
+  module Coordinates
+
+    # Bahai years
+    Bahai = [When::BasicTypes::M17n, [
+      "namespace:[en=http://en.wikipedia.org/wiki/, ja=http://ja.wikipedia.org/wiki/, ar=http://ar.wikipedia.org/wiki/]",
+      "locale:[=en:, ar=ar:, alias=en:]",
+      "names:[Bahai]",
+
+      [Residue,
+        "label:[YearName]", "divisor:19", "year:1",
+        [Residue, "label:[Alif=,   ألف=,   A=            ]", "remainder:  0"],
+        [Residue, "label:[Bá=,     باء=,   B=            ]", "remainder:  1"],
+        [Residue, "label:[Ab=,     أب=,    Father=       ]", "remainder:  2"],
+        [Residue, "label:[Dál=,    دﺍﻝ=,   D=            ]", "remainder:  3"],
+        [Residue, "label:[Báb=,    باب=,   Gate=         ]", "remainder:  4"],
+        [Residue, "label:[Váv=,    وﺍو=,   V=            ]", "remainder:  5"],
+        [Residue, "label:[Abad=,   أبد=,   Eternity=     ]", "remainder:  6"],
+        [Residue, "label:[Jád=,    جاد=,   Generosity=   ]", "remainder:  7"],
+        [Residue, "label:[Bahá'=,  بهاء=,  Splendour=    ]", "remainder:  8"],
+        [Residue, "label:[Ḥubb=,   حب=,    Love=         ]", "remainder:  9"],
+        [Residue, "label:[Bahháj=, بهاج=,  Delightful=   ]", "remainder: 10"],
+        [Residue, "label:[Javáb=,  جواب=,  Answer=       ]", "remainder: 11"],
+        [Residue, "label:[Aḥad=,   احد=,   Single=       ]", "remainder: 12"],
+        [Residue, "label:[Vahháb=, بهاء=,  Bountiful=    ]", "remainder: 13"],
+        [Residue, "label:[Vidád=,  وداد=,  Affection=    ]", "remainder: 14"],
+        [Residue, "label:[Badí‘=, بدیع=,  Beginning=    ]", "remainder: 15"],
+        [Residue, "label:[Bahí=,   بهي=,   Luminous=     ]", "remainder: 16"],
+        [Residue, "label:[Abhá=,   ابهى=,  Most Luminous=]", "remainder: 17"],
+        [Residue, "label:[Váḥid=,  واحد=,  Unity=        ]", "remainder: 18"]
+      ]
+    ]]
+  end
+
+  module CalendarTypes
+
+    #
+    # Bahá'í Calendar
+    #
+    class Bahai < TableBased
+
+      # 年初の通日 - グレゴリオ暦の３月21日を春分とする
+      #
+      # @param [Array<Numeric>] date ( 年 )
+      #
+      # @return [Numeric] 年初の通日
+      #
+      def gregorian_equinox(date)
+        @engine._coordinates_to_number(+date[0], 2, 20)
+      end
+
+      # 年初の通日 - 太陽の天文学的な位置による春分に基づく
+      #
+      # @param [Array<Numeric>] date ( 年 )
+      #
+      # @return [Numeric] 年初の通日
+      #
+      def ephemeris_equinox(date)
+        equinox_time = @engine.cn_to_time(+date[0])
+        equinox_date = (equinox_time + 0.5 + @engine.long/360.0).floor
+        sun_set_time = @engine.sun_set(equinox_date)
+        (sun_set_time <= equinox_time) ? equinox_date+1 : equinox_date
+      end
+
+      private
+
+      ID = '1,2,3,4,5,6,7,8,9,10,11,12,13,14,15,16,17,18,18=,19'
+
+      #
+      # オブジェクトの正規化
+      #
+      def _normalize(args=[], options={})
+        @label ||= When.Resource('_m:BahaiTerms::Bahai')
+
+        @indices ||= [
+          When::Coordinates::Index.new({:unit =>19}),
+          When::Coordinates::Index.new({:unit =>19}),
+          When::Coordinates::Index.new({:trunk=>When.Resource('_m:BahaiTerms::Month::*'),
+                                        :branch=>{+1=>When.Resource('_m:BahaiTerms::Month::*')[19]}}),
+          When::Coordinates::Index.new
+        ]
+        @index_of_MSC  ||= 2
+        @origin_of_MSC ||= -1844 + 19*19
+        @rule_table    ||= {
+          365 => {'Length'=>[19] * 18 + [4, 19], 'IDs'=>ID},
+          366 => {'Length'=>[19] * 18 + [5, 19], 'IDs'=>ID}
+        }
+        @note ||= 'BahaiNotes'
+
+        super
+
+        @engine ||= @location ?
+          When::Ephemeris::Formula.new({:formula=>'1S', :location=>@location}) :
+          When.Calendar('Gregorian') 
+
+        case @engine
+        when When::Ephemeris::Formula; instance_eval('class << self; alias :_sdn_ :ephemeris_equinox; end')
+        when When::TM::Calendar      ; instance_eval('class << self; alias :_sdn_ :gregorian_equinox; end')
+        else                         ; raise ArgumentError, 'Engine not specified'
+        end
+      end
+    end
+  end
+end

data/lib/when_exe/region/balinese.rb

@@ -0,0 +1,627 @@
+# -*- coding: utf-8 -*-
+=begin
+  Copyright (C) 2011-2013 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
+
+module When
+  class BasicTypes::M17n
+
+    BalineseTerms = [self, [
+      "namespace:[en=http://en.wikipedia.org/wiki/, ja=http://ja.wikipedia.org/wiki/]",
+      "locale:[=en:, ja=ja:, alias]",
+      "names:[BalineseTerms]",
+      "[BalineseLuniSolar=, バリ・サカ暦=]",
+      "[Tenganan=, テンガナン暦=]",
+
+      [self,
+        "names:[IntercalaryMonth=en:Intercalation, 閏月]",
+        "[%s Suklapaksa=,      %s 白分=  ]",
+        "[%s Krsnapaksa=,      %s 黒分=  ]",
+        "[Mala %s Suklapaksa=, 閏%s 白分=]",
+        "[Mala %s Krsnapaksa=, 閏%s 黒分=]"
+      ],
+
+      [self,
+        "names:[IntercalaryDay=en:Intercalation, 閏日=ja:%E9%96%8F]",
+        "[Double %s=,           欠=       ]"
+      ],
+
+      [self,
+        "names:[HinduMonth=, ヒンドゥ月=]",
+        "[Kelima=,    5月=]",
+        "[Kenem=,     6月=]",
+        "[Kepitu=,    7月=]",
+        "[Kewulu=,    8月=]",
+        "[Kesanga=,   9月=]",
+        "[Kedasa=,   10月=]",
+        "[Jiyestha=, 11月=]",
+        "[Sadha=,    12月=]",
+        "[Kasa=,      1月=]",
+        "[Karo=,      2月=]",
+        "[Ketiga=,    3月=]",
+        "[Kapat=,     4月=]"
+      ],
+
+      [self,
+        "names:[TengananMonth=, テンガナン月=]",
+        "[Kelima=,      5月=]",
+        "[Kanem=,       6月=]",
+        "[Kepitu=,      7月=]",
+        "[Kolu=,        8月=]",
+        "[Kesanga=,     9月=]",
+        "[Kedasa=,     10月=]",
+        "[Desta=,      11月=]",
+        "[Sadda=,      12月=]",
+        "[Kasa=,        1月=]",
+        "[Karo=,        2月=]",
+        "[Ketiga=,      3月=]",
+        "[Kapat=,       4月=]",
+        "[Kapat Sep=, 閏4月=]"
+      ]
+    ]]
+  end
+
+  module Coordinates
+
+    # Balinese Residues
+
+    #
+    # ウク周期
+    #
+    class Wuku < Residue
+      # 2日週
+      Dwiwara  = [ 0, 1, 1, 1, 1, 1, 0,
+                   1, 0, 0, 0, 1, 0, 1,
+                   0, 1, 0, 1, 0, 1, 0,
+                   0, 0, 1, 0, 1, 1, 1,
+                   1, 1, 0, 0, 0, 0, 0]
+      # 10日週
+      Dasawara = [ 0, 1, 2, 3, 4, 3, 5,
+                   6, 7, 8, 5, 3, 9, 2,
+                   9, 4, 9, 1, 5, 1, 8,
+                   7, 8, 1, 7, 2, 4, 4,
+                   4, 6, 7, 0, 7, 0, 0]
+      # Watek
+      Watek    = [ 0, 1, 2, 3, 4, 3, 5,
+                   6, 7, 8, 5, 3, 9,10,
+                   9, 4, 9, 1, 5, 1,11,
+                   7, 8, 1, 7,10, 4, 4,
+                   4, 6, 7, 0, 7, 0, 0]
+
+      # 2日週
+      # @return [When::BasicTypes::M17n]
+      def dwiwara
+        When.CalendarNote('BalineseNote/NoteObjects')['day']['Dwiwara'][Dwiwara[@remainder % 35]]
+      end
+
+      # 4日週
+      # @return [When::BasicTypes::M17n]
+      def tjaturwara
+        index = (@remainder + 137) % 210
+        When.CalendarNote('BalineseNote/NoteObjects')['day']['Tjaturwara'][index >= 208 ? 2 : (index-1) % 4]
+      end
+
+      # 8日週
+      # @return [When::BasicTypes::M17n]
+      def astawara
+        index = (@remainder + 137) % 210
+        When.CalendarNote('BalineseNote/NoteObjects')['day']['Astawara'][index >= 208 ? 6 : (index-1) % 8]
+      end
+
+      # 9日週
+      # @return [When::BasicTypes::M17n]
+      def sangawara
+        index = @remainder - 3
+        When.CalendarNote('BalineseNote/NoteObjects')['day']['Sangawara'][index < 0 ? 0 : index % 9]
+      end
+
+      # 10日週
+      # @return [When::BasicTypes::M17n]
+      def dasawara
+        When.CalendarNote('BalineseNote/NoteObjects')['day']['Dasawara'][Dasawara[@remainder % 35]]
+      end
+
+      # Watek
+      # @return [When::BasicTypes::M17n]
+      def watek
+        When.CalendarNote('BalineseNote/NoteObjects')['day']['Watek'][Watek[@remainder % 35]]
+      end
+    end
+  end
+
+  class TM::CalendarEra
+
+    #
+    # バリのサカ暦
+    #
+    Balinese = [self, [
+      "namespace:[en=http://en.wikipedia.org/wiki/, ja=http://ja.wikipedia.org/wiki/]",
+      "locale:[=en:, ja=ja:, alias]",
+      "period:[BalineseLuniSolar=, バリ・サカ暦=]",
+      ["[BSE=, サカ暦=, alias:Balinese_Saka_Era]1886-07<13", "Calendar Epoch", "1886-07<13^BalineseLuniSolar1965",
+                                                             "1892-07-04^BalineseLuniSolar1971",
+                                                             "1914-07-08^BalineseLuniSolar1993",
+                                                             "1921-06<10^BalineseLuniSolar2000",
+                                                             "1924-07<14^BalineseLuniSolar2003", '+Infinity']
+    ]]
+  end
+
+  module CalendarTypes
+
+    #
+    # Balinese Luni-Solar Calendar
+    #
+    class BalineseLuniSolar  < HinduLuniSolar
+
+      # protected
+
+      # 朔望日 -> 年・月・日
+      #
+      # @param [Numeric] tithi 朔望日(月の位相 / (CIRCLE/30))
+      #
+      # @return [Array<Numeric>] ( y, m, d )
+      #   [ y - 年(Integer) ]
+      #   [ m - 月(When::Coordinates::Pair) ]
+      #   [ d - 日(Integer) ]
+      #
+      def _tithi_to_coordinates(tithi)
+        @tabular._encode(@tabular._number_to_coordinates(tithi.to_i))
+      end
+
+      # 日時要素の翻訳表の取得
+      #
+      # @overload _ids_(date)
+      #   @param [Array<Numeric>] date ( 年 )
+      #   @return [Array<When::Coordinates::Pair>] 1年の月の配置の翻訳表
+      #
+      # @overload _ids_(date)
+      #   @param [Array<Numeric>] date ( 年 月 )
+      #   @return [Array<When::Coordinates::Pair>] 1月の日の配置の翻訳表
+      #   @note 月は 0 始まりの通番
+      #
+      def _ids_(date)
+        y, m = date
+        m ? super : @tabular._ids(date)
+      end
+
+      private
+
+      # オブジェクトの正規化
+      #
+      #    @tabular     = 19年7閏のパターンを与える tithi に対する Calendar
+      #    @formula[-1] = 位相の計算に用いる月の Ephemeris
+      #
+      def _normalize(args=[], options={})
+
+        intercalary_month = When.Resource('_m:BalineseTerms::IntercalaryMonth::*')
+        intercalary_day   = When.Resource('_m:BalineseTerms::IntercalaryDay::*')
+        month_index = Coordinates::Index.new({:branch=>{ 0   => intercalary_month[0],  #   白分
+                                                        +0.5 => intercalary_month[1],  #   黒分
+                                                        +1   => intercalary_month[2],  # 閏白分
+                                                        +1.5 => intercalary_month[3]}, # 閏黒分
+                                              :trunk=>When.Resource('_m:BalineseTerms::HinduMonth::*'),
+                                              :shift=>+8})
+
+        @tabular = CyclicTableBased.new({
+          'indices'    => [month_index, Coordinates::Index.new],
+          'rule_table' => @rule_table
+        })
+
+        @formula = [Ephemeris::MeanLunation.new(
+          {
+           'day_epoch'       => @day_epoch,
+           'longitude_shift' => '-1/12', # 雨水
+           'long'            => 360.0 / 63 * @day_border.to_i,
+           'formula'         => '2L',
+           'year_length'     => '222075/608',
+           'lunation_length' => '945/32'
+        })]
+
+        @indices    = [month_index, Coordinates::Index.new({:branch=>{-2=>intercalary_day[0]}})]
+
+        @note       = When.CalendarNote(@note || 'BalineseNote')
+
+        @timezone ||= 0
+        super
+      end
+    end
+
+    intercalary_pattern_1 = {# 17  18  0   1   2   3   4   5   6   7   8   9  10  11  12  13  14  15  16
+      'T'  => {'Rule'  =>[  'N','N','D','N','N','S','N','N','D','N','S','N','N','D','N','N','S','N','S']},
+      'N'  => {'Length'  =>[15]*24, 'IDs' => '10,10<,11,11<,12,12<,1,1<,2,2<,3,3<,4,4<,5,5<,6,6<,7,7<,8,8<,9,9<'},
+      'D'  => {'Length'  =>[15]*26, 'IDs' => '10,10<,11,11<,11=,11>,12,12<,1,1<,2,2<,3,3<,4,4<,5,5<,6,6<,7,7<,8,8<,9,9<'},
+      'S'  => {'Length'  =>[15]*26, 'IDs' => '10,10<,11,11<,12,12<,12=,12>,1,1<,2,2<,3,3<,4,4<,5,5<,6,6<,7,7<,8,8<,9,9<'}
+    }
+
+    intercalary_pattern_2 = {# 17  18  0   1   2   3   4   5   6   7   8   9  10  11  12  13  14  15  16
+      'T'  => {'Rule'  =>[   'N','S','N','N','D','N','3','N','N','1','N','N','D','N','N','K','N','2','N']},
+      'N'  => {'Length'  =>[15]*24, 'IDs' => '10,10<,11,11<,12,12<,1,1<,2,2<,3,3<,4,4<,5,5<,6,6<,7,7<,8,8<,9,9<'},
+      'K'  => {'Length'  =>[15]*26, 'IDs' => '10,10<,10=,10>,11,11<,12,12<,1,1<,2,2<,3,3<,4,4<,5,5<,6,6<,7,7<,8,8<,9,9<'},
+      'D'  => {'Length'  =>[15]*26, 'IDs' => '10,10<,11,11<,11=,11>,12,12<,1,1<,2,2<,3,3<,4,4<,5,5<,6,6<,7,7<,8,8<,9,9<'},
+      'S'  => {'Length'  =>[15]*26, 'IDs' => '10,10<,11,11<,12,12<,12=,12>,1,1<,2,2<,3,3<,4,4<,5,5<,6,6<,7,7<,8,8<,9,9<'},
+      '1'  => {'Length'  =>[15]*26, 'IDs' => '10,10<,11,11<,12,12<,1,1<,1=,1>,2,2<,3,3<,4,4<,5,5<,6,6<,7,7<,8,8<,9,9<'},
+      '2'  => {'Length'  =>[15]*26, 'IDs' => '10,10<,11,11<,12,12<,1,1<,2,2<,2=,2>,3,3<,4,4<,5,5<,6,6<,7,7<,8,8<,9,9<'},
+      '3'  => {'Length'  =>[15]*26, 'IDs' => '10,10<,11,11<,12,12<,1,1<,2,2<,3,3<,3=,3>,4,4<,5,5<,6,6<,7,7<,8,8<,9,9<'}
+    }
+
+    BalineseLuniSolar1965 = [BalineseLuniSolar, {
+      'day_epoch'  => 1749594, # CE78-02-16
+      'day_border' => 0,       # Friday
+      'rule_table' => intercalary_pattern_1
+    }]
+
+    BalineseLuniSolar1971 = [BalineseLuniSolar, {
+      'day_epoch'  => 1749594, # CE78-02-16
+      'day_border' => -23,     # Wednesday
+      'rule_table' => intercalary_pattern_1
+    }]
+
+    BalineseLuniSolar1993 = [BalineseLuniSolar, {
+      'day_epoch'  => 1749594, # CE78-02-16
+      'day_border' => -23,     # Wednesday
+      'rule_table' => intercalary_pattern_2
+    }]
+
+    BalineseLuniSolar2000 = [BalineseLuniSolar, {
+      'day_epoch'  => 1749593, # CE78-02-15
+      'day_border' => -23,     # Tuesday
+      'rule_table' => intercalary_pattern_2
+    }]
+
+    BalineseLuniSolar2003 = [BalineseLuniSolar, {
+      'day_epoch'  => 1749593, # CE78-02-15
+      'day_border' => -23,     # Tuesday
+      'rule_table' => intercalary_pattern_1
+    }]
+
+    #
+    # Tenganan Calendar
+    #
+    Tenganan = [CyclicTableBased, {
+      'label' => When.Resource('_m:BalineseTerms::Tenganan'),
+      'origin_of_LSC' =>  1095 * 1573 - 381,
+      'origin_of_MSC' =>  1,
+      'indices' => [
+         When::Coordinates::Index.new({:trunk=>When.Resource('_m:BalineseTerms::TengananMonth::*')}),
+         When::Coordinates::Index.new
+       ],
+      'rule_table' => {
+        'T'  => {'Rule'  =>[360, 379, 356]},
+        360  => {'Length'=>[30] * 12},
+        379  => {'Length'=>[30] * 6 + [26] * 2 + [30] * 4 + [27]},
+        356  => {'Length'=>[30] * 6 + [28] * 2 + [30] * 4 }
+      }
+    }]
+
+    #
+    # バリ暦の暦注
+    #
+    class CalendarNote::BalineseNote < CalendarNote
+
+      NoteObjects = [When::BasicTypes::M17n, [
+        "namespace:[en=http://en.wikipedia.org/wiki/, ja=http://ja.wikipedia.org/wiki/]",
+        "locale:[=en:, ja=ja:, alias]",
+        "names:[Balinese]",
+
+        # 年の暦注 ----------------------------
+        [When::BasicTypes::M17n,
+          "names:[year]"
+        ],
+
+        # 月の暦注 ----------------------------
+        [When::BasicTypes::M17n,
+          "names:[month]",
+          [When::BasicTypes::M17n,
+            "names:[Month]"
+          ]
+        ],
+
+        # 日の暦注 ----------------------------
+        [When::BasicTypes::M17n,
+          "names:[day]",
+
+          [When::BasicTypes::M17n,
+            "names:[Hari=, 日名=]",
+
+            [When::BasicTypes::M17n,
+              "names:[Suklapaksa=, 白分=]",
+              "[Lidi=   ]",
+              "[Kuda=   ]",
+              "[Kidang= ]",
+              "[Macan=  ]",
+              "[Kucing= ]",
+              "[Sampi=  ]",
+              "[Kerbau= ]",
+              "[Tikus=  ]",
+              "[Debu=   ]",
+              "[Anjing= ]",
+              "[Naga=   ]",
+              "[Kambing=]",
+              "[Mayang= ]",
+              "[Gajah=  ]",
+              "[Singa=  ]"
+            ],
+
+            [When::BasicTypes::M17n,
+              "names:[Krsnapaksa=, 黒分=]",
+              "[Ikan=   ]",
+              "[Lilin=  ]",
+              "[Ulung=  ]",
+              "[Kelapa= ]",
+              "[Banteng=]",
+              "[Hantu=  ]",
+              "[Areng=  ]",
+              "[Udang=  ]",
+              "[Semudra=]",
+              "[Pare=   ]",
+              "[Madu=   ]",
+              "[Kala=   ]",
+              "[Ular=   ]",
+              "[Padi=   ]",
+              "[Ulat=   ]"
+            ]
+          ],
+
+          [When::BasicTypes::M17n,
+            "names:[Dwiwara=, 2日週=]",
+            "[Menga=]", #  0
+            "[Pepet=]"  #  1
+          ],
+
+          [When::Coordinates::Residue,
+            "label:[Triwara=, 3日週=]", "divisor:3", "day:2",
+            [When::Coordinates::Residue, "label:[Pasah=       ]", "remainder:  0"],
+            [When::Coordinates::Residue, "label:[Gelang Tegeh=]", "remainder:  1"],
+            [When::Coordinates::Residue, "label:[Kajeng=      ]", "remainder:  2"]
+          ],
+
+          [When::BasicTypes::M17n,
+            "names:[Tjaturwara=, 4日週=]",
+            "[Sri=   ]",
+            "[Laba=  ]",
+            "[Jaya=  ]",
+            "[Menala=]"
+          ],
+
+          [When::Coordinates::Residue,
+            "label:[Pantjawara=, 5日週=]", "divisor:5", "day:1",
+            [When::Coordinates::Residue, "label:[Paing= ]", "remainder:  0"],
+            [When::Coordinates::Residue, "label:[Pon=   ]", "remainder:  1"],
+            [When::Coordinates::Residue, "label:[Wage=  ]", "remainder:  2"],
+            [When::Coordinates::Residue, "label:[Kliwon=]", "remainder:  3"],
+            [When::Coordinates::Residue, "label:[Umanis=]", "remainder:  4"]
+          ],
+
+          [When::Coordinates::Residue,
+            "label:[Perinkelan=, 六曜=]", "divisor:6", "day:2",
+            [When::Coordinates::Residue, "label:[Tungleh=]", "remainder:  0"],
+            [When::Coordinates::Residue, "label:[Aryang= ]", "remainder:  1"],
+            [When::Coordinates::Residue, "label:[Urukung=]", "remainder:  2"],
+            [When::Coordinates::Residue, "label:[Paniron=]", "remainder:  3"],
+            [When::Coordinates::Residue, "label:[Was=    ]", "remainder:  4"],
+            [When::Coordinates::Residue, "label:[Maulu=  ]", "remainder:  5"]
+          ],
+
+          [When::Coordinates::Residue,
+            "label:[Sadwara=, 6日週=]", "divisor:6", "day:2",
+            [When::Coordinates::Residue, "label:[Mina= ]", "remainder:  0"],
+            [When::Coordinates::Residue, "label:[Taru= ]", "remainder:  1"],
+            [When::Coordinates::Residue, "label:[Sato= ]", "remainder:  2"],
+            [When::Coordinates::Residue, "label:[Patra=]", "remainder:  3"],
+            [When::Coordinates::Residue, "label:[Wong= ]", "remainder:  4"],
+            [When::Coordinates::Residue, "label:[Paksi=]", "remainder:  5"]
+          ],
+
+          [When::Coordinates::Residue,
+            "label:[Septawara=, 7日週=]", "divisor:7", "day:6",
+            [When::Coordinates::Residue, "label:[Reditē=   ]", "remainder:  0"],
+            [When::Coordinates::Residue, "label:[Coma=     ]", "remainder:  1"],
+            [When::Coordinates::Residue, "label:[Anggara=  ]", "remainder:  2"],
+            [When::Coordinates::Residue, "label:[Buda=     ]", "remainder:  3"],
+            [When::Coordinates::Residue, "label:[Wraspati= ]", "remainder:  4"],
+            [When::Coordinates::Residue, "label:[Sukra=    ]", "remainder:  5"],
+            [When::Coordinates::Residue, "label:[Saniscara=]", "remainder:  6"]
+          ],
+
+          [When::BasicTypes::M17n,
+            "names:[Astawara=, 8日週=]",
+            "[Sri=   ]",
+            "[Indra= ]",
+            "[Guru=  ]",
+            "[Yama=  ]",
+            "[Ludra= ]",
+            "[Brahma=]",
+            "[Kala=  ]",
+            "[Uma=   ]"
+          ],
+
+          [When::BasicTypes::M17n,
+            "names:[Sangawara=, 9日週=]",
+            "[Dangu=  ]",
+            "[Jangur= ]",
+            "[Gigis=  ]",
+            "[Nohan=  ]",
+            "[Ogan=   ]",
+            "[Erangan=]",
+            "[Urungan=]",
+            "[Tulus=  ]",
+            "[Dadi=   ]"
+          ],
+
+          [When::BasicTypes::M17n,
+            "names:[Dasawara=, 10日週=]",
+            "[Sri    ]", #  0
+            "[Pati   ]", #  1
+            "[Raja   ]", #  2
+            "[Manuh  ]", #  3
+            "[Duka   ]", #  4
+            "[Manusa ]", #  5
+            "[Raksasa]", #  6
+            "[Suka   ]", #  7
+            "[Dewa   ]", #  8
+            "[Pandita]"  #  9
+          ],
+
+          [When::Coordinates::Residue,
+            "label:[Ingkel=]", "divisor:42", "day:20",
+            [When::Coordinates::Residue, "label:[Wong= ]", "remainder:  0"],
+            [When::Coordinates::Residue, "label:[Sato= ]", "remainder:  7"],
+            [When::Coordinates::Residue, "label:[Mina= ]", "remainder: 14"],
+            [When::Coordinates::Residue, "label:[Manuk=]", "remainder: 21"],
+            [When::Coordinates::Residue, "label:[Taru= ]", "remainder: 28"],
+            [When::Coordinates::Residue, "label:[Buku= ]", "remainder: 35"]
+          ],
+
+          [When::BasicTypes::M17n,
+            "names:[Watek=]",
+            "[Suku-Gajah=  ]", #  0
+            "[Gajah-Lembu= ]", #  1
+            "[Watu-Lembu=  ]", #  2
+            "[Wong-Lembu=  ]", #  3
+            "[Buta-Uler=   ]", #  4
+            "[Gajah-Lintah=]", #  5
+            "[Suku-Uler=   ]", #  6
+            "[Watu-Lintah= ]", #  7
+            "[Buta-Lintah= ]", #  8
+            "[Wong-Gajah=  ]", #  9
+            "[Watu-Uler=   ]", # 10
+            "[Buta-Gajah=  ]"  # 11
+          ],
+
+          [When::Coordinates::Residue,
+            "label:[Lintang=]", "divisor:35", "day:6",
+            [When::Coordinates::Residue, "label:[Gajah=           ]", "remainder:  0"],
+            [When::Coordinates::Residue, "label:[Kiriman=         ]", "remainder:  1"],
+            [When::Coordinates::Residue, "label:[Jong Sarat=      ]", "remainder:  2"],
+            [When::Coordinates::Residue, "label:[Tiwa-Tiwa=       ]", "remainder:  3"],
+            [When::Coordinates::Residue, "label:[Sangkatikel=     ]", "remainder:  4"],
+            [When::Coordinates::Residue, "label:[Bubu bolong=     ]", "remainder:  5"],
+            [When::Coordinates::Residue, "label:[Sungenge=        ]", "remainder:  6"],
+            [When::Coordinates::Residue, "label:[Uluku=           ]", "remainder:  7"],
+            [When::Coordinates::Residue, "label:[Pedati=          ]", "remainder:  8"],
+            [When::Coordinates::Residue, "label:[Kuda=            ]", "remainder:  9"],
+            [When::Coordinates::Residue, "label:[Gajah-Mina=      ]", "remainder: 10"],
+            [When::Coordinates::Residue, "label:[Bade=            ]", "remainder: 11"],
+            [When::Coordinates::Residue, "label:[Maglut=          ]", "remainder: 12"],
+            [When::Coordinates::Residue, "label:[Paglangan=       ]", "remainder: 13"],
+            [When::Coordinates::Residue, "label:[Kala Sungsang=   ]", "remainder: 14"],
+            [When::Coordinates::Residue, "label:[Kukus=           ]", "remainder: 15"],
+            [When::Coordinates::Residue, "label:[Asu=             ]", "remainder: 16"],
+            [When::Coordinates::Residue, "label:[Kartika=         ]", "remainder: 17"],
+            [When::Coordinates::Residue, "label:[Naga=            ]", "remainder: 18"],
+            [When::Coordinates::Residue, "label:[Banyakangrem=    ]", "remainder: 19"],
+            [When::Coordinates::Residue, "label:[Ru=              ]", "remainder: 20"],
+            [When::Coordinates::Residue, "label:[Patrem=          ]", "remainder: 21"],
+            [When::Coordinates::Residue, "label:[Lembu=           ]", "remainder: 22"],
+            [When::Coordinates::Residue, "label:[Dpat=            ]", "remainder: 23"],
+            [When::Coordinates::Residue, "label:[Tangis=          ]", "remainder: 24"],
+            [When::Coordinates::Residue, "label:[Salar Ukur=      ]", "remainder: 25"],
+            [When::Coordinates::Residue, "label:[Prahu Pgat=      ]", "remainder: 26"],
+            [When::Coordinates::Residue, "label:[Pwuhu atarung=   ]", "remainder: 27"],
+            [When::Coordinates::Residue, "label:[Lawean=          ]", "remainder: 28"],
+            [When::Coordinates::Residue, "label:[Kelapa=          ]", "remainder: 29"],
+            [When::Coordinates::Residue, "label:[Yuyu=            ]", "remainder: 30"],
+            [When::Coordinates::Residue, "label:[Lumbung=         ]", "remainder: 31"],
+            [When::Coordinates::Residue, "label:[Kumba=           ]", "remainder: 32"],
+            [When::Coordinates::Residue, "label:[Udang=           ]", "remainder: 33"],
+            [When::Coordinates::Residue, "label:[Bgoong=          ]", "remainder: 34"]
+          ],
+
+          [When::Coordinates::Wuku,
+            "label:[Wuku=]", "divisor:210", "day:146",
+            [When::Coordinates::Wuku, "label:[Sinta=       ]", "remainder:  0"],
+            [When::Coordinates::Wuku, "label:[Landep=      ]", "remainder:  7"],
+            [When::Coordinates::Wuku, "label:[Ukir=        ]", "remainder: 14"],
+            [When::Coordinates::Wuku, "label:[Kurantir=    ]", "remainder: 21"],
+            [When::Coordinates::Wuku, "label:[Tulu=        ]", "remainder: 28"],
+            [When::Coordinates::Wuku, "label:[Gumbreg=     ]", "remainder: 35"],
+            [When::Coordinates::Wuku, "label:[Wariga=      ]", "remainder: 42"],
+            [When::Coordinates::Wuku, "label:[Warigadian=  ]", "remainder: 49"],
+            [When::Coordinates::Wuku, "label:[Julungwangi= ]", "remainder: 56"],
+            [When::Coordinates::Wuku, "label:[Sungsang=    ]", "remainder: 63"],
+            [When::Coordinates::Wuku, "label:[Dunggulan=   ]", "remainder: 70"],
+            [When::Coordinates::Wuku, "label:[Kuningan=    ]", "remainder: 77"],
+            [When::Coordinates::Wuku, "label:[Langkir=     ]", "remainder: 84"],
+            [When::Coordinates::Wuku, "label:[Medangsiya=  ]", "remainder: 91"],
+            [When::Coordinates::Wuku, "label:[Pujut=       ]", "remainder: 98"],
+            [When::Coordinates::Wuku, "label:[Pahang=      ]", "remainder:105"],
+            [When::Coordinates::Wuku, "label:[Krulut=      ]", "remainder:112"],
+            [When::Coordinates::Wuku, "label:[Merakih=     ]", "remainder:119"],
+            [When::Coordinates::Wuku, "label:[Tambir=      ]", "remainder:126"],
+            [When::Coordinates::Wuku, "label:[Medangkungan=]", "remainder:133"],
+            [When::Coordinates::Wuku, "label:[Matal=       ]", "remainder:140"],
+            [When::Coordinates::Wuku, "label:[Uye=         ]", "remainder:147"],
+            [When::Coordinates::Wuku, "label:[Menail=      ]", "remainder:154"],
+            [When::Coordinates::Wuku, "label:[Prangbakat=  ]", "remainder:161"],
+            [When::Coordinates::Wuku, "label:[Bala=        ]", "remainder:168"],
+            [When::Coordinates::Wuku, "label:[Ugu=         ]", "remainder:175"],
+            [When::Coordinates::Wuku, "label:[Wayang=      ]", "remainder:182"],
+            [When::Coordinates::Wuku, "label:[Kelawu=      ]", "remainder:189"],
+            [When::Coordinates::Wuku, "label:[Dukut=       ]", "remainder:196"],
+            [When::Coordinates::Wuku, "label:[Watugunung=  ]", "remainder:203"]
+          ]
+        ]
+      ]]
+
+      #
+      # When::Coordinates::Residue へ処理を委譲する暦注
+      #
+      # @private
+      When.CalendarNote('BalineseNote/NoteObjects')['day::*'].each do |cood|
+        case cood
+        when Coordinates::Residue
+          module_eval %Q{
+            def #{cood.label.to_s.downcase}(date, parameter=nil)
+              When.CalendarNote('BalineseNote/NoteObjects')['day']['#{cood.label.to_s}'] % date
+            end
+          }
+        when BasicTypes::M17n
+          module_eval %Q{
+            def #{cood.to_s.downcase}(date, parameter=nil)
+              (When.CalendarNote('BalineseNote/NoteObjects')['day']['Wuku'] % date).#{cood.to_s.downcase}
+            end
+          }
+        end
+      end
+
+      #
+      # 任意の暦をバリ暦日に変換
+      #
+      # @private
+      def _to_date_for_note(date)
+        return date if date.frame.kind_of?(When::CalendarTypes::BalineseLuniSolar)
+        (date ^ When.era(:period=>'BalineseLuniSolar')).each do |list|
+          return list[0] if list[0]
+        end
+        nil
+      end
+
+      # バリ暦日の「日名」
+      #
+      # @param [When::TM::TemporalPosition] date 「日名」を求める日付
+      # @param [nil] parameter 未使用
+      #
+      # @return [When::BasicTypes::M17n] 「日名」(欠日の場合は2日分を'/'で連結)
+      #
+      def hari(date, parameter=nil)
+        y, m, d = _to_date_for_note(date).cal_date
+        thiti     = [d * 1 - 1]
+        thiti[0] += 15 unless [0,1,nil].include?(m * 0)
+        thiti << (thiti[0] + 1) % 30 if d * 0 == -2
+        table = When.CalendarNote('BalineseNote/NoteObjects')['day']['Hari']
+        thiti.map {|t| table[t / 15][t % 15]}.join('/')
+      end
+
+      private
+
+      # オブジェクトの正規化
+      def _normalize(args=[], options={})
+        @event   = 'hari'
+        @prime ||= [%w(Month), %w(Pantjawara Perinkelan Septawara Wuku)]
+        super
+      end
+    end
+  end
+end