when_exe 0.4.1 → 0.4.2

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-2015 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, zh]",
+      "names:[Dr. Irv Bromberg's Symmetry Calendar=, Bromberg博士の対称暦=, *alias:Symmetry]",
+      "[Sym454=en:Symmetry454, 対称454暦=, 対称454曆=]",
+      "[Sym010=http://individual.utoronto.ca/kalendis/classic.htm, 対称010暦=, 対称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,336 +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:, hi=hi:, 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   ||=      638
-        @before = @after =  'ThaiC'
-        @indices       ||= ThaiP::Indices
-        pattern        ||= Pattern.dup
-        if @patch
-          @patch.scan(/(\d+)([ABC])/i) do |year,type|
-            pattern[year.to_i-(@origin_of_MSC+@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
+# -*- coding: utf-8 -*-
+=begin
+  Copyright (C) 2011-2015 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:, zh=zh:, hi=hi:, alias]",
+      "names:[Thailand, タイ=ja:タイ王国, 泰国, *alias:Thai]",
+      "[ThaiLuniSolar=en:Thai_lunar_calendar, タイ太陰太陽暦=ja:%%<チャントラカティ>, 傣曆]",
+
+      [self,
+        "names:[HalfMonth=, 半月=, zh:半月=, *alias:IntercalaryMonth=en:Intercalation]",
+        "[%s Śuklapakṣa=,        %s 白分=,   %s 上弦月=,   _IAST_]",
+        "[%s Kṛṣṇapakṣa=,        %s 黒分=,   %s 下弦月=,   _IAST_]",
+        "[adhika %s Śuklapakṣa=, 閏%s 白分=, 閏%s 上弦月=, _IAST_]",
+        "[adhika %s Kṛṣṇapakṣa=, 閏%s 黒分=, 閏%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   ||=      638
+        @before = @after =  'ThaiC'
+        @indices       ||= ThaiP::Indices
+        pattern        ||= Pattern.dup
+        if @patch
+          @patch.scan(/(\d+)([ABC])/i) do |year,type|
+            pattern[year.to_i-(@origin_of_MSC+@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