when_exe 0.3.6 → 0.3.7

data/lib/when_exe/region/soviet.rb

@@ -0,0 +1,209 @@
+# -*- 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
+
+class When::CalendarNote
+
+  #
+  # 標準の暦注 ＋ 五曜
+  #
+  CommonWithSovietFiveDay = [['_m:Calendar::Month'], ['Common::Week', '_n:SovietFiveDayWeek/Notes::day::FiveDay']]
+
+  #
+  # 標準の暦注 ＋ 六曜
+  #
+  CommonWithSovietSixDay  = [['_m:Calendar::Month'], ['Common::Week', '_n:SovietSixDayWeek/Notes::day::SixDay']]
+
+  #
+  # 五曜
+  #
+  class SovietFiveDayWeek < Week
+
+    Holidays = {
+      [1,22] => 5, [2,29] => 6, [5,1] => 5, [5,2] => 5, [11,7] => 5, [11,8] => 5
+    }
+
+    FirstDay = [0, 0, 3, 4, 4, 3, 3, 4, 0, 0, 1, 4]
+
+    SkipDay  = {
+      1 => [23,1], 5 => [3,2], 11 => [9,2]
+    }
+
+
+    #
+    # 暦注要素の定義
+    #
+    Notes = [When::BasicTypes::M17n, [
+      "locale:[=en:, ja=ja:, alias]",
+      "names:[SovietFiveDay]",
+
+      # 日の暦注 ----------------------------
+      [When::BasicTypes::M17n,
+        "names:[day]",
+        [When::BasicTypes::M17n,
+          "names:[FiveDay, 五曜]",
+          [DayOfWeek, "label:[I=      ]", {'delta'=>5}],
+          [DayOfWeek, "label:[II=     ]", {'delta'=>5}],
+          [DayOfWeek, "label:[III=    ]", {'delta'=>5}],
+          [DayOfWeek, "label:[IV=     ]", {'delta'=>5}],
+          [DayOfWeek, "label:[V=      ]", {'delta'=>5}],
+          [DayOfWeek, "label:[Holiday=]", {'delta'=>190}],
+          [DayOfWeek, "label:[Leapday=]", {'delta'=>1461}]
+        ]
+      ]
+    ]]
+
+    #
+    # この日は何曜？
+    #
+    # @param [When::TM::TemporalPosition] date
+    # @param [When::TM::CalDate] base (not used)
+    #
+    # @return [Hash<:value=>When::CalendarNote::Week::DayOfWeek, :position=>Array<Integer>>]
+    #
+    def fiveday(date, base=nil)
+      date  = _to_date_for_note(date)
+      y,m,d = date.cal_date
+      index = fiveday_index(m,d)
+      {:value=>@days_of_week[index], :position=>[index, 7]}
+    end
+    alias :week :fiveday
+
+    # @private
+    def first(date, base=nil)
+      count = 0
+      d0 = d1 = _to_date_for_note(date)
+      r0 = r1 = nil
+      loop do
+        y,m,d = d1.cal_date
+        r1    = fiveday_index(m,d)
+        break if r1 == 0
+        d0 = d1
+        r0 = r1
+        d1 = d0 - When::P1D
+        count += 1
+      end
+      date -= count if count > 0
+      date.events = [@days_of_week[r1]]
+      date
+    end
+
+    # @private
+    def fiveday_index(m,d)
+      index = Holidays[[m,d]]
+      return index if index
+      day, shift = SkipDay[m]
+      d -= shift if day && d >= day
+      (FirstDay[m-1] + d - 1) % 5
+    end
+
+    # @private
+    def first_delta(parameter=nil)
+      When::P5D
+    end
+
+    #
+    # 暦日をグレゴリオ暦日に変換
+    #
+    # @private
+    def _to_date_for_note(date)
+      return date if date.frame.kind_of?(When::CalendarTypes::Gregorian)
+      return When::Gregorian ^ date
+    end
+
+    private
+
+    # オブジェクトの正規化
+    # @private
+    def _normalize(args=[], options={})
+      @days_of_week ||= When.CalendarNote("SovietFiveDayWeek/Notes::day::FiveDay")
+      @event        ||= 'first'
+      super
+    end
+  end
+
+  #
+  # 六曜
+  #
+  class SovietSixDayWeek < Week
+
+    # @private
+    #             1 2 3 4 5 6 7 8 9 X N D
+    WeekLength = [7,6,7,6,7,6,7,7,6,7,6,7]
+
+    #
+    # 暦注要素の定義
+    #
+    Notes = [When::BasicTypes::M17n, [
+      "locale:[=en:, ja=ja:, alias]",
+      "names:[SovietSixDay]",
+
+      # 日の暦注 ----------------------------
+      [When::BasicTypes::M17n,
+        "names:[day]",
+        [When::BasicTypes::M17n,
+          "names:[SixDay, 六曜]",
+          [DayOfWeek, "label:[Первый=      ]", {'delta'=>6}],
+          [DayOfWeek, "label:[Второй=      ]", {'delta'=>6}],
+          [DayOfWeek, "label:[Третий=      ]", {'delta'=>6}],
+          [DayOfWeek, "label:[Четвертый=]", {'delta'=>6}],
+          [DayOfWeek, "label:[Пятый=        ]", {'delta'=>6}],
+          [DayOfWeek, "label:[Шестой=      ]", {'delta'=>6}],
+          [DayOfWeek, "label:[Out of week=       ]", {'delta'=>6}]
+        ]
+      ]
+    ]]
+
+    #
+    # この日は何曜？
+    #
+    # @param [When::TM::TemporalPosition] date
+    # @param [When::TM::CalDate] base (not used)
+    #
+    # @return [Hash<:value=>When::CalendarNote::Week::DayOfWeek, :position=>Array<Integer>>]
+    #
+    def sixday(date, base=nil)
+      date  = _to_date_for_note(date)
+      dow   = date.cal_date[When::DAY-1]
+      index = dow == 31 ? 6 : (dow - 1) % 6
+      {:value=>@days_of_week[index], :position=>[index, WeekLength[(base||date).cal_date[When::MONTH-1]-1]]}
+    end
+    alias :week :sixday
+
+    # @private
+    def first(date, base=nil)
+      dow   = _to_date_for_note(date).cal_date[When::DAY-1]
+      index = dow == 31 ? 6 : (dow - 1) % 6
+      date -= index if index > 0
+      date.events = [@days_of_week[index]]
+      date
+    end
+
+    # @private
+    def first_delta(parameter=nil)
+      When::P6D
+    end
+
+    #
+    # 暦日をグレゴリオ暦日に変換
+    #
+    # @private
+    def _to_date_for_note(date)
+      return date if date.frame.kind_of?(When::CalendarTypes::Gregorian)
+      return When::Gregorian ^ date
+    end
+
+    private
+
+    # オブジェクトの正規化
+    # @private
+    def _normalize(args=[], options={})
+      @days_of_week ||= When.CalendarNote("SovietSixDayWeek/Notes::day::SixDay")
+      @event        ||= 'first'
+      super
+    end
+  end
+end

data/lib/when_exe/region/symmetry.rb

@@ -1,50 +1,50 @@
-# -*- coding: utf-8 -*-
-=begin
-  Copyright (C) 2011-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
-
-module When
-
-  class BasicTypes::M17n
-
-    Symmetry = [self, [
-      "locale:[=en:, ja]",
-      "names:[Symmetry=]",
-      "[Sym454=en:Symmetry454, 対称454暦=]",
-      "[Sym010=http://individual.utoronto.ca/kalendis/classic.htm, 対称010暦=]"
-    ]]
-  end
-
-  module CalendarTypes
-
-    _pattern = (0...293).to_a.map {|year| (52 * year + 146) % 293 < 52 ? 371 : 364}
-
-    #
-    # Symmetry 454 Calendar
-    #
-    Sym454 =  [CyclicTableBased, {
-      'label'   => 'Symmetry::Sym454',
-      'origin_of_LSC'  => 1721062,
-      'rule_table'       => {
-        'T'  => {'Rule'  =>_pattern},
-        364  => {'Length'=>[28,35,28] * 4},
-        371  => {'Length'=>[28,35,28] * 3 + [28,35,35]}
-      }
-    }]
-
-    #
-    # Symmetry 010 Calendar
-    #
-    Sym010 =  [CyclicTableBased, {
-      'label'   => 'Symmetry::Sym010',
-      'origin_of_LSC'  => 1721062,
-      'rule_table'       => {
-        'T'  => {'Rule'  =>_pattern},
-        364  => {'Length'=>[30,31,30] * 4},
-        371  => {'Length'=>[30,31,30] * 3 + [30,31,37]}
-      }
-    }]
-  end
-end
+# -*- coding: utf-8 -*-
+=begin
+  Copyright (C) 2011-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
+
+module When
+
+  class BasicTypes::M17n
+
+    Symmetry = [self, [
+      "locale:[=en:, ja]",
+      "names:[Symmetry=]",
+      "[Sym454=en:Symmetry454, 対称454暦=]",
+      "[Sym010=http://individual.utoronto.ca/kalendis/classic.htm, 対称010暦=]"
+    ]]
+  end
+
+  module CalendarTypes
+
+    _pattern = (0...293).to_a.map {|year| (52 * year + 146) % 293 < 52 ? 371 : 364}
+
+    #
+    # Symmetry 454 Calendar
+    #
+    Sym454 =  [CyclicTableBased, {
+      'label'   => 'Symmetry::Sym454',
+      'origin_of_LSC'  => 1721062,
+      'rule_table'       => {
+        'T'  => {'Rule'  =>_pattern},
+        364  => {'Length'=>[28,35,28] * 4},
+        371  => {'Length'=>[28,35,28] * 3 + [28,35,35]}
+      }
+    }]
+
+    #
+    # Symmetry 010 Calendar
+    #
+    Sym010 =  [CyclicTableBased, {
+      'label'   => 'Symmetry::Sym010',
+      'origin_of_LSC'  => 1721062,
+      'rule_table'       => {
+        'T'  => {'Rule'  =>_pattern},
+        364  => {'Length'=>[30,31,30] * 4},
+        371  => {'Length'=>[30,31,30] * 3 + [30,31,37]}
+      }
+    }]
+  end
+end

data/lib/when_exe/region/thai.rb

@@ -1,335 +1,336 @@
-# -*- coding: utf-8 -*-
-=begin
-  Copyright (C) 2011-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
-
-module When
-  class BasicTypes::M17n
-
-    Thai = [self, [
-      "locale:[=en:, ja=ja:, alias]",
-      "names:[Thai=]",
-      "[ThaiLuniSolar=en:Thai_lunar_calendar, タイ太陰太陽暦=ja:%%<チャントラカティ>]",
-
-      [self,
-        "names:[IntercalaryMonth=en:Intercalation, 閏月]",
-        "[%s Śuklapakṣa=,        %s 白分=,   _IAST_]",
-        "[%s Kṛṣṇapakṣa=,        %s 黒分=,   _IAST_]",
-        "[adhika %s Śuklapakṣa=, 閏%s 白分=, _IAST_]",
-        "[adhika %s Kṛṣṇapakṣa=, 閏%s 黒分=, _IAST_]"
-      ],
-
-      [self,
-        "names:[LunarMonth=, 太陰月=ja:%%<月_(暦)>]",
-        "[Mārgaśīra=en:Margashirsha,   マールガシールシャ=, _IAST_]",
-        "[Pauṣa=en:Pausha,             パウシャ=,           _IAST_]",
-        "[Māgha=en:Maagha,             マーガ=,             _IAST_]",
-        "[Phālguna=en:Phalguna,        パールグナ=,         _IAST_]",
-        "[Caitra=en:Chaitra,           チャイトラ=,         _IAST_]",
-        "[Vaiśākha=en:Vaisakha,        ヴァイシャーカ=,     _IAST_]",
-        "[Jyaiṣṭha=en:Jyeshta,         ジャイシュタ=,       _IAST_]",
-        "[Āṣāḍha=en:Aashaadha,         アーシャーダ=,       _IAST_]",
-        "[Śrāvaṇa=en:Shraavana,        シュラーヴァナ=,     _IAST_]",
-        "[Bhādrapada=en:Bhadrapada,    バードラパダ=,       _IAST_]",
-        "[Āśvina=en:Ashwin,            アーシュヴィナ=,     _IAST_]",
-        "[Kārttika=en:Kartika_(month), カールッティカ=,     _IAST_]"
-      ]
-    ]]
-  end
-
-  module CalendarTypes
-
-    #
-    # ソンクラーンとタイ暦の暦定数
-    #
-    module Songkran
-
-      # ソンクラーン - 太陽の白羊宮入り
-      #
-      # @param [Integer] y 年
-      #
-      # @return [Integer] ソンクラーンのユリウス日
-      #
-      def songkran_(y)
-        e = _eph(y)
-        return @origin_of_LSC - 1 + e['H'][0]
-      end
-
-      # y で指定した年の暦定数を返します。
-      #
-      # @param [Integer] y 年
-      #
-      # @return [Hash]
-      #
-      def _eph(y) # C
-        h  = (y+4).divmod(9)[0]                   # y
-        h  = (y-h).divmod(3)[0]                   # z
-        h  = (y+1-h).divmod(2)[0]                 # r (2 => h?)
-        h  = (36525876*y+149049-h).divmod(100000) # s
-        a  = (h[0]*11+633-((h[0]+7368).divmod(8878))[0]).divmod(692)
-        m  = (h[0]+a[0]+0).divmod(30)
-        return {'H'=>h, 'A'=>a, 'M'=>m}
-      end
-    end
-
-    #
-    # The Calendar of Thai (Prototype)
-    #
-    class ThaiP < TableBased
-
-      include Lunar
-      include Songkran
-
-      # 月番号
-      _intercalary_month = When.Resource('_m:Thai::IntercalaryMonth::*')
-      Indices = [
-        When.Index('Thai::LunarMonth', {:branch=>{0   => _intercalary_month[0],
-                                                  0.5 => _intercalary_month[1],
-                                                 -1.5 => _intercalary_month[2],
-                                                 -1   => _intercalary_month[3]}}),
-        When::Coordinates::DefaultDayIndex
-      ]
-
-      # 月の大小と閏
-      _NormalIDs =  '1,1<,2,2<,3,3<,4,4<,5,5<,6,6<,7,7<,8,8<,9,9<,10,10<,11,11<,12,12<'
-      _LeapIDs   =  '1,1<,2,2<,3,3<,4,4<,5,5<,6,6<,7,7<,8,8<,9&,9*,9,9<,10,10<,11,11<,12,12<'
-      RuleTable = {
-        354 => {'Length'=>[15,15,15,14]*6,                            'IDs' => _NormalIDs},
-        355 => {'Length'=>[15,15,15,14]*3 + [15]*4 + [15,15,15,14]*2, 'IDs' => _NormalIDs},
-        384 => {'Length'=>[15,15,15,14]*4 + [15]*2 + [15,15,15,14]*2, 'IDs' => _LeapIDs}
-      }
-
-      private
-
-      # オブジェクトの正規化
-      # @private
-      def _normalize(args=[], options={})
-        @label ||= 'Thai::ThaiLuniSolar'
-
-        Rational
-        @mean_month    ||=       29 + Rational(  373,    703)
-        @mean_year     ||=      365 + Rational(25876, 100000)
-        @epoch_in_CE   ||=      638
-        @origin_of_MSC ||=        0 # 638 + 543
-        @origin_of_LSC ||=  1954168
-        @origin_of_MSC   =  @origin_of_MSC.to_i
-        @origin_of_LSC   =  @origin_of_LSC.to_i
-        @indices       ||= Indices
-        @rule_table    ||= RuleTable
-        super
-      end
-
-      # 年初の通日
-      #
-      # @param [Array<Numeric>] date ( 年 )
-      #
-      # @return [Integer] 年初の通日
-      #
-      def _sdn_(date)
-        y  = +date[0]
-        e0 = _thai(y,  0)[0]
-        e1 = _thai(y+1,0)[0]
-        case e1['T']-e0['T']
-        when 353,383 ; e0['T'] -= 1
-        when 385     ; e0['T'] += 1
-        end
-        return @origin_of_LSC - 1 + e0['T'] - 30*3 - 29*2
-      end
-
-      #  y で指定した年の平閏、8月の大小を判定します。
-      #
-      # @param [Integer] y   年
-      # @param [Integer] dir 前後の閏状態を表すコード
-      #
-      # @return [Array<Hash, String>]
-      #
-      def _thai(y,dir)
-          # 諸元の計算 
-        e = _eph(y)
-        k = 800*125 - e['H'][1]
-        t = e['M'][1]
-
-          # Jyaistha 大の判定 
-        b = ((e['A'][1]<126) && (k<=207*125)) || ((e['A'][1]<137) && (k> 207*125))
-
-          # 閏年の判定
-        c = ((t<6) || (t>24))
-        c = true  if ((t==24) && (_thai(y+1,+1)[1]< 'C'))
-        c = false if ((t==25) && (_thai(y+1,+1)[1]>='C'))
-
-          # Caitra 月 0 日 
-        e['T'] = e['H'][0] - t
-        e['T'] -= 1  if (t==0)
-        e['T'] -= 29 if (c && (t<=6))
-        e['b'] = b
-        e['c'] = c
-        e['t'] = t
-        return e,' '
-      end
-    end
-
-    #
-    # The Calendar of Thai people in China (Calculation)
-    #
-    class ThaiC < ThaiP
-
-      # オブジェクトの正規化
-      # @private
-      def _normalize(args=[], options={})
-        super
-        @thoreshold    = (@mean_month * 13) % 1
-        @eoch_new_moon = (@origin_of_LSC - 18.90409 + 12 * @mean_month / 19)
-      end
-
-      # 年初の通日
-      #
-      # @param [Array<Numeric>] date ( 年 )
-      #
-      # @return [Integer] 年初の通日
-      #
-      def _sdn_(date)
-        year  = +date[0]
-        prev  = _meton(year-1)
-        this  = _meton(year)
-        this += 1 if this.floor - prev.floor > 360 && this % 1 > @thoreshold
-        this.floor
-      end
-
-      private
-
-      def _meton(year)
-        (((year + 9) * 235 / 19) - 111) * @mean_month + @eoch_new_moon
-      end
-    end
-
-    #
-    # The Calendar of Thai people in China (Table based)
-    #
-    class ThaiT < CyclicTableBased
-
-      include Lunar
-      include Songkran
-
-      Pattern = %w(
-        B A C A C B A C A B  C A A C B C A A C B  A C A C B A C A A C
-        B A C A C A B C A A  C B C A A C B A C A  C B A C A B C A A C
-        B C A A C B A C A C  B A C A B C A A C A  C B A C A B C A A C
-        A C B B C A A C A C  A A C B A C A B C A  C A B C A A C B C A
-        A C B A C A A C B C  A A C B A C A C B A  C A A C B A C A C B
-        A C A B C A C A B C  A A C A B C A C A B  C A A C B C A A C B
-        A C A A C B C A A C  B A C A C B A C A A  C B A C A C B A C A)
-
-      # オブジェクトの正規化
-      # @private
-      def _normalize(args=[], options={})
-        @origin_of_LSC =  2393198
-        @origin_of_MSC =     1202
-        @epoch_in_CE   =     1840
-        @indices       = ThaiP::Indices
-        pattern        = Pattern.dup
-        if @patch
-          @patch.scan(/\d+[ABC]/i) do |patch|
-            pattern[patch[0..-2].to_i-@epoch_in_CE] = patch[-1..-1].upcase
-          end
-        end
-        @rule_table    = {
-          'T' => {'Rule' => pattern},
-          'A' => {'Rule' => [354]},
-          'B' => {'Rule' => [355]},
-          'C' => {'Rule' => [384]}}.merge(ThaiP::RuleTable)
-        super
-      end
-    end
-
-    #
-    # The Calendar of central Thailand
-    #
-    class Thai < ThaiP
-
-      # 年の朔閏パターン
-      YEAR_TYPE = {'A'=>354, 'B'=>355, 'C'=>384, 'D'=>384, 'E'=>384}
-
-      # 月の大小と閏
-      _NormalIDs    =  '1,1<,2,2<,3,3<,4,4<,5,5<,6,6<,7,7<,8,8<,9,9<,10,10<,11,11<,12,12<'
-      _LeapIDs      =  '1,1<,2,2<,3,3<,4,4<,5,5<,6,6<,7,7<,8&,8*,8,8<,9,9<,10,10<,11,11<,12,12<'
-      RuleTable = {
-          354 => {'Length'=>[15,14,15,15]*6,    'IDs' => _NormalIDs},
-          355 => {'Length'=>[15,14,15,15]*3 + [15]*4 + [15,14,15,15]*2, 'IDs' => _NormalIDs},
-          384 => {'Length'=>[15,14,15,15]*4 + [15]*2 + [15,14,15,15]*2, 'IDs' => _LeapIDs  }
-      }
-
-      private
-
-      # オブジェクトの正規化
-      #
-      def _normalize(args=[], options={})
-        @rule_table ||= RuleTable
-        super
-      end
-
-      # 年初の通日
-      #
-      # @param [Array<Numeric>] date ( 年 )
-      #
-      # @return [Integer] 年初の通日
-      #
-      def _sdn_(date)
-        y  = +date[0]
-        e0,dir0  = _thai(y,  0)
-        e1,dir1  = _thai(y+1,0)
-        e0['T'] -= 1 if (e1['T'] - e0['T'] < YEAR_TYPE[dir0])
-        return @origin_of_LSC + e0['T'] - 29*2 - 30*2
-      end
-
-      # y で指定した年の暦定数を返します。
-      #
-      # @param [Integer] y 年
-      #
-      # @return [Hash]
-      #
-      def _eph(y) # C
-        h = (y*292207+373+800*1).divmod(800)
-      # u = (h[0]+2611).divmod(3232)
-        a = (h[0]*11+650).divmod(692)
-        m = (h[0]+a[0]+0).divmod(30)
-        h[1] *= 125
-        return {'H'=>h, 'A'=>a, 'M'=>m}
-      end
-
-      #  y で指定した年の平閏、8月の大小を判定します。
-      #
-      # @param [Integer] y   年
-      # @param [Integer] dir 前後の閏状態を表すコード
-      #
-      # @return [Array<Hash, String>]
-      #
-      def _thai(y,dir)
-        # 諸元の計算
-        e,w = super(y,dir)
-
-        # カレンダーのタイプ 
-        if (e['c'])
-          if (!e['b'])
-            return  e,'C'   # 普通の閏年   
-          elsif ((0<e['t']) && (e['t']<6))
-            return  e,'D'   # 前年大の閏年 
-          else
-            return  e,'E'   # 翌年大の閏年 
-          end
-        else
-          if (e['b'])
-            return  e,'B'   # 大の平年 
-          elsif ((dir != -1) && (_thai(y+1,+1)[1]=='D'))
-            return  e,'B'   # 大の平年 
-          elsif ((dir != +1) && (_thai(y-1,-1)[1]=='E'))
-            return  e,'B'   # 大の平年 
-          else
-            return  e,'A'   # 小の平年 
-          end
-        end
-      end
-    end
-  end
-end
+# -*- coding: utf-8 -*-
+=begin
+  Copyright (C) 2011-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
+
+module When
+  class BasicTypes::M17n
+
+    Thai = [self, [
+      "locale:[=en:, ja=ja:, alias]",
+      "names:[Thai=]",
+      "[ThaiLuniSolar=en:Thai_lunar_calendar, タイ太陰太陽暦=ja:%%<チャントラカティ>]",
+
+      [self,
+        "names:[IntercalaryMonth=en:Intercalation, 閏月]",
+        "[%s Śuklapakṣa=,        %s 白分=,   _IAST_]",
+        "[%s Kṛṣṇapakṣa=,        %s 黒分=,   _IAST_]",
+        "[adhika %s Śuklapakṣa=, 閏%s 白分=, _IAST_]",
+        "[adhika %s Kṛṣṇapakṣa=, 閏%s 黒分=, _IAST_]"
+      ],
+
+      [self,
+        "names:[LunarMonth=, 太陰月=ja:%%<月_(暦)>]",
+        "[Mārgaśīra=en:Margashirsha,   マールガシールシャ=, _IAST_]",
+        "[Pauṣa=en:Pausha,             パウシャ=,           _IAST_]",
+        "[Māgha=en:Maagha,             マーガ=,             _IAST_]",
+        "[Phālguna=en:Phalguna,        パールグナ=,         _IAST_]",
+        "[Caitra=en:Chaitra,           チャイトラ=,         _IAST_]",
+        "[Vaiśākha=en:Vaisakha,        ヴァイシャーカ=,     _IAST_]",
+        "[Jyaiṣṭha=en:Jyeshta,         ジャイシュタ=,       _IAST_]",
+        "[Āṣāḍha=en:Aashaadha,         アーシャーダ=,       _IAST_]",
+        "[Śrāvaṇa=en:Shraavana,        シュラーヴァナ=,     _IAST_]",
+        "[Bhādrapada=en:Bhadrapada,    バードラパダ=,       _IAST_]",
+        "[Āśvina=en:Ashwin,            アーシュヴィナ=,     _IAST_]",
+        "[Kārttika=en:Kartika_(month), カールッティカ=,     _IAST_]"
+      ]
+    ]]
+  end
+
+  module CalendarTypes
+
+    #
+    # ソンクラーンとタイ暦の暦定数
+    #
+    module Songkran
+
+      # ソンクラーン - 太陽の白羊宮入り
+      #
+      # @param [Integer] y 年
+      #
+      # @return [Integer] ソンクラーンのユリウス日
+      #
+      def songkran_(y)
+        e = _eph(y)
+        return @origin_of_LSC - 1 + e['H'][0]
+      end
+
+      # y で指定した年の暦定数を返します。
+      #
+      # @param [Integer] y 年
+      #
+      # @return [Hash]
+      #
+      def _eph(y) # C
+        h  = (y+4).divmod(9)[0]                   # y
+        h  = (y-h).divmod(3)[0]                   # z
+        h  = (y+1-h).divmod(2)[0]                 # r (2 => h?)
+        h  = (36525876*y+149049-h).divmod(100000) # s
+        a  = (h[0]*11+633-((h[0]+7368).divmod(8878))[0]).divmod(692)
+        m  = (h[0]+a[0]+0).divmod(30)
+        return {'H'=>h, 'A'=>a, 'M'=>m}
+      end
+    end
+
+    #
+    # The Calendar of Thai (Prototype)
+    #
+    class ThaiP < TableBased
+
+      include Lunar
+      include Songkran
+
+      # 月番号
+      _intercalary_month = When.Resource('_m:Thai::IntercalaryMonth::*')
+      Indices = [
+        When.Index('Thai::LunarMonth', {:branch=>{0   => _intercalary_month[0],
+                                                  0.5 => _intercalary_month[1],
+                                                 -1.5 => _intercalary_month[2],
+                                                 -1   => _intercalary_month[3]}}),
+        When::Coordinates::DefaultDayIndex
+      ]
+
+      # 月の大小と閏
+      _NormalIDs =  '1,1<,2,2<,3,3<,4,4<,5,5<,6,6<,7,7<,8,8<,9,9<,10,10<,11,11<,12,12<'
+      _LeapIDs   =  '1,1<,2,2<,3,3<,4,4<,5,5<,6,6<,7,7<,8,8<,9&,9*,9,9<,10,10<,11,11<,12,12<'
+      RuleTable = {
+        354 => {'Length'=>[15,15,15,14]*6,                            'IDs' => _NormalIDs},
+        355 => {'Length'=>[15,15,15,14]*3 + [15]*4 + [15,15,15,14]*2, 'IDs' => _NormalIDs},
+        384 => {'Length'=>[15,15,15,14]*4 + [15]*2 + [15,15,15,14]*2, 'IDs' => _LeapIDs}
+      }
+
+      private
+
+      # オブジェクトの正規化
+      # @private
+      def _normalize(args=[], options={})
+        @label ||= 'Thai::ThaiLuniSolar'
+
+        Rational
+        @mean_month    ||=       29 + Rational(  373,    703)
+        @mean_year     ||=      365 + Rational(25876, 100000)
+        @epoch_in_CE   ||=      638
+        @origin_of_MSC ||=        0 # 638 + 543
+        @origin_of_LSC ||=  1954168
+        @origin_of_MSC   =  @origin_of_MSC.to_i
+        @origin_of_LSC   =  @origin_of_LSC.to_i
+        @indices       ||= Indices
+        @rule_table    ||= RuleTable
+        super
+      end
+
+      # 年初の通日
+      #
+      # @param [Array<Numeric>] date ( 年 )
+      #
+      # @return [Integer] 年初の通日
+      #
+      def _sdn_(date)
+        y  = +date[0]
+        e0 = _thai(y,  0)[0]
+        e1 = _thai(y+1,0)[0]
+        case e1['T']-e0['T']
+        when 353,383 ; e0['T'] -= 1
+        when 385     ; e0['T'] += 1
+        end
+        return @origin_of_LSC - 1 + e0['T'] - 30*3 - 29*2
+      end
+
+      #  y で指定した年の平閏、8月の大小を判定します。
+      #
+      # @param [Integer] y   年
+      # @param [Integer] dir 前後の閏状態を表すコード
+      #
+      # @return [Array<Hash, String>]
+      #
+      def _thai(y,dir)
+          # 諸元の計算 
+        e = _eph(y)
+        k = 800*125 - e['H'][1]
+        t = e['M'][1]
+
+          # Jyaistha 大の判定 
+        b = ((e['A'][1]<126) && (k<=207*125)) || ((e['A'][1]<137) && (k> 207*125))
+
+          # 閏年の判定
+        c = ((t<6) || (t>24))
+        c = true  if ((t==24) && (_thai(y+1,+1)[1]< 'C'))
+        c = false if ((t==25) && (_thai(y+1,+1)[1]>='C'))
+
+          # Caitra 月 0 日 
+        e['T'] = e['H'][0] - t
+        e['T'] -= 1  if (t==0)
+        e['T'] -= 29 if (c && (t<=6))
+        e['b'] = b
+        e['c'] = c
+        e['t'] = t
+        return e,' '
+      end
+    end
+
+    #
+    # The Calendar of Thai people in China (Calculation)
+    #
+    class ThaiC < ThaiP
+
+      # オブジェクトの正規化
+      # @private
+      def _normalize(args=[], options={})
+        super
+        @thoreshold     = (@mean_month * 13) % 1
+        @epoch_new_moon = (@origin_of_LSC - 18.90409 + 12 * @mean_month / 19)
+      end
+
+      # 年初の通日
+      #
+      # @param [Array<Numeric>] date ( 年 )
+      #
+      # @return [Integer] 年初の通日
+      #
+      def _sdn_(date)
+        year  = +date[0]
+        prev  = _meton(year-1)
+        this  = _meton(year)
+        this += 1 if this.floor - prev.floor > 360 && this % 1 > @thoreshold
+        this.floor - 148
+      end
+
+      private
+
+      def _meton(year)
+        (((year + 9) * 235 / 19) - 111) * @mean_month + @epoch_new_moon
+      end
+    end
+
+    #
+    # The Calendar of Thai people in China CE1840..2049 (Table based)
+    #
+    class ThaiT < CyclicTableBased
+
+      include Lunar
+      include Songkran
+
+      Pattern =  %w(C
+        B A C A C B A C A B  C A A C B C A A C B  A C A C B A C A A C
+        B A C A C A B C A A  C B C A A C B A C A  C B A C A B C A A C
+        B C A A C B A C A C  B A C A B C A A C A  C B A C A B C A A C
+        A C B B C A A C A C  A A C B A C A B C A  C A B C A A C B C A
+        A C B A C A A C B C  A A C B A C A C B A  C A A C B A C A C B
+        A C A B C A C A B C  A A C A B C A C A B  C A A C B C A A C B
+        A C A A C B C A A C  B A C A C B A C A A  C B A C A C B A C A)
+
+      # オブジェクトの正規化
+      # @private
+      def _normalize(args=[], options={})
+        @origin_of_LSC ||=  2392666
+        @origin_of_MSC ||=     1201
+        @epoch_in_CE   ||=     1839
+        @before = @after =  'ThaiC'
+        @indices       ||= ThaiP::Indices
+        pattern        ||= Pattern.dup
+        if @patch
+          @patch.scan(/(\d+)([ABC])/i) do |year,type|
+            pattern[year.to_i-@epoch_in_CE] = type.upcase
+          end
+        end
+        @rule_table    = {
+          'T' => {'Rule' => pattern},
+          'A' => {'Rule' => [354]},
+          'B' => {'Rule' => [355]},
+          'C' => {'Rule' => [384]}}.merge(ThaiP::RuleTable)
+        super
+      end
+    end
+
+    #
+    # The Calendar of central Thailand
+    #
+    class Thai < ThaiP
+
+      # 年の朔閏パターン
+      YEAR_TYPE = {'A'=>354, 'B'=>355, 'C'=>384, 'D'=>384, 'E'=>384}
+
+      # 月の大小と閏
+      _NormalIDs    =  '1,1<,2,2<,3,3<,4,4<,5,5<,6,6<,7,7<,8,8<,9,9<,10,10<,11,11<,12,12<'
+      _LeapIDs      =  '1,1<,2,2<,3,3<,4,4<,5,5<,6,6<,7,7<,8&,8*,8,8<,9,9<,10,10<,11,11<,12,12<'
+      RuleTable = {
+          354 => {'Length'=>[15,14,15,15]*6,    'IDs' => _NormalIDs},
+          355 => {'Length'=>[15,14,15,15]*3 + [15]*4 + [15,14,15,15]*2, 'IDs' => _NormalIDs},
+          384 => {'Length'=>[15,14,15,15]*4 + [15]*2 + [15,14,15,15]*2, 'IDs' => _LeapIDs  }
+      }
+
+      private
+
+      # オブジェクトの正規化
+      #
+      def _normalize(args=[], options={})
+        @rule_table ||= RuleTable
+        super
+      end
+
+      # 年初の通日
+      #
+      # @param [Array<Numeric>] date ( 年 )
+      #
+      # @return [Integer] 年初の通日
+      #
+      def _sdn_(date)
+        y  = +date[0]
+        e0,dir0  = _thai(y,  0)
+        e1,dir1  = _thai(y+1,0)
+        e0['T'] -= 1 if (e1['T'] - e0['T'] < YEAR_TYPE[dir0])
+        return @origin_of_LSC + e0['T'] - 29*2 - 30*2
+      end
+
+      # y で指定した年の暦定数を返します。
+      #
+      # @param [Integer] y 年
+      #
+      # @return [Hash]
+      #
+      def _eph(y) # C
+        h = (y*292207+373+800*1).divmod(800)
+      # u = (h[0]+2611).divmod(3232)
+        a = (h[0]*11+650).divmod(692)
+        m = (h[0]+a[0]+0).divmod(30)
+        h[1] *= 125
+        return {'H'=>h, 'A'=>a, 'M'=>m}
+      end
+
+      #  y で指定した年の平閏、8月の大小を判定します。
+      #
+      # @param [Integer] y   年
+      # @param [Integer] dir 前後の閏状態を表すコード
+      #
+      # @return [Array<Hash, String>]
+      #
+      def _thai(y,dir)
+        # 諸元の計算
+        e,w = super(y,dir)
+
+        # カレンダーのタイプ 
+        if (e['c'])
+          if (!e['b'])
+            return  e,'C'   # 普通の閏年   
+          elsif ((0<e['t']) && (e['t']<6))
+            return  e,'D'   # 前年大の閏年 
+          else
+            return  e,'E'   # 翌年大の閏年 
+          end
+        else
+          if (e['b'])
+            return  e,'B'   # 大の平年 
+          elsif ((dir != -1) && (_thai(y+1,+1)[1]=='D'))
+            return  e,'B'   # 大の平年 
+          elsif ((dir != +1) && (_thai(y-1,-1)[1]=='E'))
+            return  e,'B'   # 大の平年 
+          else
+            return  e,'A'   # 小の平年 
+          end
+        end
+      end
+    end
+  end
+end