when_exe 0.2.100 → 0.3.1

data/lib/when_exe/region/roman.rb

@@ -0,0 +1,325 @@
+# -*- 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
+
+    RomanTerms = [self, [
+      "namespace:[en=http://en.wikipedia.org/wiki/, ja=http://ja.wikipedia.org/wiki/]",
+      "locale:[=en:, ja=ja:, alias]",
+      "names:[RomanTerms]",
+
+      [self, # ..CE-44 / ..BCE45
+        "names:[MonthA, 月=ja:%E6%9C%88_(%E6%9A%A6)]",
+        "[Ianuarius,    1月]",
+        "[Februarius,   2月]",
+        "[Martius,      3月]",
+        "[Aprilis,      4月]",
+        "[Maius,        5月]",
+        "[Iunius,       6月]",
+        "[Quintilis,  旧7月]",
+        "[Sextilis,   旧8月]",
+        "[September,    9月]",
+        "[October,     10月]",
+        "[November,    11月]",
+        "[December,    12月]" 
+      ],
+
+      [self, # CE-43..CE-8 / BCE44..BCE9
+        "names:[MonthB, 月=ja:%E6%9C%88_(%E6%9A%A6)]",
+        "[Ianuarius,    1月]",
+        "[Februarius,   2月]",
+        "[Martius,      3月]",
+        "[Aprilis,      4月]",
+        "[Maius,        5月]",
+        "[Iunius,       6月]",
+        "[Iulius,       7月]",
+        "[Sextilis,   旧8月]",
+        "[September,    9月]",
+        "[October,     10月]",
+        "[November,    11月]",
+        "[December,    12月]"
+      ],
+
+      [self, # CE-7..CE36, CE41.. / BCE8..CE36, CE41..
+        "names:[Month, 月=ja:%E6%9C%88_(%E6%9A%A6)]",
+        "[Ianuarius,    1月]",
+        "[Februarius,   2月]",
+        "[Martius,      3月]",
+        "[Aprilis,      4月]",
+        "[Maius,        5月]",
+        "[Iunius,       6月]",
+        "[Iulius,       7月]",
+        "[Augustus,     8月]",
+        "[September,    9月]",
+        "[October,     10月]",
+        "[November,    11月]",
+        "[December,    12月]"
+      ],
+
+      [self, # CE37..CE40
+        "names:[MonthC, 月=ja:%E6%9C%88_(%E6%9A%A6)]",
+        "[Ianuarius,    1月]",
+        "[Februarius,   2月]",
+        "[Martius,      3月]",
+        "[Aprilis,      4月]",
+        "[Maius,        5月]",
+        "[Iunius,       6月]",
+        "[Iulius,       7月]",
+        "[Augustus,     8月]",
+        "[Germanicus, 新9月]",
+        "[October,     10月]",
+        "[November,    11月]",
+        "[December,    12月]"
+      ],
+
+      [self, # Intercalary Months
+        "names:[IntercalaryMonth=en:Intercalation, 閏月]",
+        "[%0sIntercalaris=en:Roman_calendar#Calendar_of_Numa,"      +
+         "閏月%0s=ja:%E3%83%AD%E3%83%BC%E3%83%9E%E6%9A%A6#.E6.9C.AB.E6.9C.9F.E3.81.AE.E3.83.AD.E3.83.BC.E3.83.9E.E6.9A.A6]",
+        "[%0sIntercalaris Prior=en:Julian_calendar#Realignment_of_the_year,"     +
+         "第１閏月%0s=ja:%E3%83%AD%E3%83%BC%E3%83%9E%E6%9A%A6#.E6.9C.AB.E6.9C.9F.E3.81.AE.E3.83.AD.E3.83.BC.E3.83.9E.E6.9A.A6]",
+        "[%0sIntercalaris Posterior=en:Julian_calendar#Realignment_of_the_year," +
+         "第２閏月%0s=ja:%E3%83%AD%E3%83%BC%E3%83%9E%E6%9A%A6#.E6.9C.AB.E6.9C.9F.E3.81.AE.E3.83.AD.E3.83.BC.E3.83.9E.E6.9A.A6]",
+      ]
+    ]]
+  end
+
+  class TM::CalendarEra
+
+    # From http://en.wikipedia.org/wiki/Julian_calendar#Sacrobosco.27s_theory_on_month_lengths
+    Julian = [self, [
+      "namespace:[en=http://en.wikipedia.org/wiki/, ja=http://ja.wikipedia.org/wiki/]",
+      "locale:[=en:, ja=ja:, alias]",
+      "period:[Roman=en:Roman_calendar, ローマ暦=ja:%E3%83%AD%E3%83%BC%E3%83%9E%E6%9A%A6]",
+      ["[AUC=en:Ab_urbe_condita, 建国紀元=ja:%E3%83%AD%E3%83%BC%E3%83%9E%E5%BB%BA%E5%9B%BD%E7%B4%80%E5%85%83, alias:Ab_urbe_condita]709.1.1",
+       "Calendar Epoch", "-44-01-01^JulianA",
+                          "-7-03-01^JulianB",
+                           "8-01-01^JulianC", "476-09-04"]
+    ]]
+
+    # From http://www.tyndalehouse.com/Egypt/ptolemies/chron/roman/chron_rom_intro_fr.htm
+    Roman = [self, [
+      "namespace:[en=http://en.wikipedia.org/wiki/, ja=http://ja.wikipedia.org/wiki/]",
+      "locale:[=en:, ja=ja:, alias]",
+      "period:[Roman=en:Roman_calendar, ローマ暦=ja:%E3%83%AD%E3%83%BC%E3%83%9E%E6%9A%A6]",
+      ["[AUC=en:Ab_urbe_condita, 建国紀元=ja:%E3%83%AD%E3%83%BC%E3%83%9E%E5%BB%BA%E5%9B%BD%E7%B4%80%E5%85%83, alias:Ab_urbe_condita]492.5.1",
+       "Calendar Epoch", "-261-05-01^RomanA?border=0-5-1",
+                         "-221-03-01^RomanA?border=0-3-1",
+                         "-152-01-01^RomanA",
+                          "-43-01-01^RomanB",
+                           "-7-01-01^Roman",
+                           "37-01-01^RomanC",
+                           "41-01-01^Roman", "476-09-04"]
+    ]]
+
+  end
+
+  module CalendarTypes
+
+    # From http://en.wikipedia.org/wiki/Julian_calendar#Sacrobosco.27s_theory_on_month_lengths
+    _Index0     = Coordinates::Index.new
+    _IndicesB12 = [Coordinates::Index.new({:unit=>12, :trunk=>When.Resource('_m:RomanTerms::MonthB::*')}), _Index0]
+    _Indices12  = [Coordinates::Index.new({:unit=>12, :trunk=>When.Resource('_m:RomanTerms::Month::*')}),  _Index0]
+
+    #
+    # Julian Calendar A : BCE45-BCE8
+    #
+    JulianA =  [CyclicTableBased, {
+      'origin_of_LSC'  =>  1704987,
+      'origin_of_MSC'  =>  -44,
+      'indices' => _IndicesB12,
+      'rule_table'     => {
+        'T' => {'Rule'  =>[365,366,365]},
+        365 => {'Length'=>[31,29] + [31,30]*5},
+        366 => {'Length'=>[31,30] + [31,30]*5}
+      },
+      'note' => 'RomanNote'
+    }]
+
+    #
+    # Julian Calendar B : BCE8-CE7
+    #
+    JulianB =  [CyclicTableBased, {
+      'origin_of_LSC'  =>  1704987+13,
+      'origin_of_MSC'  =>  -44,
+      'indices' => _IndicesB12,
+      'rule_table'     => {
+        'T' => {'Rule'  =>[365]},
+        365 => {'Length'=>[31,28] + [31,30,31,30,31]*2}
+      },
+      'note' => 'RomanNote'
+    }]
+
+    #
+    # Julian Calendar C : CE8-
+    #
+    JulianC =  [Julian, {
+      'indices' => _Indices12,
+      'note' => 'RomanNote'
+    }]
+
+    # From http://www.tyndalehouse.com/Egypt/ptolemies/chron/roman/chron_rom_intro_fr.htm
+    #
+    # Roman Calendar BCE262-(CE60)-CE480
+    #
+    # _ID_N = '1,2,3,4,5,6,7,8,9,10,11,12'
+    _ID_L = '1,2,2=,3,4,5,6,7,8,9,10,11,12'
+    _ID_J = '1,2,2=,3,4,5,6,7,8,9,10,11,11<,11>,12'
+    _Branch = {
+        1=>When.Resource('_m:RomanTerms::IntercalaryMonth::*')[0],
+      0.5=>When.Resource('_m:RomanTerms::IntercalaryMonth::*')[1],
+      1.5=>When.Resource('_m:RomanTerms::IntercalaryMonth::*')[2]
+    }
+    _IndicesA = [Coordinates::Index.new({:branch=>_Branch, :trunk=>When.Resource('_m:RomanTerms::MonthA::*')}), _Index0]
+    _IndicesB = [Coordinates::Index.new({:branch=>_Branch, :trunk=>When.Resource('_m:RomanTerms::MonthB::*')}), _Index0]
+    _Indices  = [Coordinates::Index.new({:branch=>_Branch, :trunk=>When.Resource('_m:RomanTerms::Month::*')}),  _Index0]
+    _IndicesC = [Coordinates::Index.new({:branch=>_Branch, :trunk=>When.Resource('_m:RomanTerms::MonthC::*')}), _Index0]
+    Options = {
+      'origin_of_LSC'  =>  1625698,
+      'origin_of_MSC'  =>  -261,
+      'indices' => _Indices,
+      'rule_table'     => {
+        'T' => {'Rule' =>      %w(                                                       A C  A B A C A B A C A B
+          A C A B A C A B A C  A B A C A B A C A B  A C A B A C A B A C  A B A A C B A A A A  C A A A B A C A A B
+          A A A A A A A A A A  C A C A B C A C A B  C A C A C A B C A C  A C A A B C A B C A  B C A B C A C A C A
+          C A C A C A C A C A  C A A C A C A C A C  A C A C A C A C A C  A C A C A C A A C A  A C A A C A A C A A
+          C A C A C A C A C A  C A C A A C A C A C  A C A C A C A C A C  A C A C A A C A A C  A A C A A B A A C A
+          A A A A J N L N N L  N N L N N L N N L N  N L N N L N N L N N  L N N L N N L N N L  N N L N N N N N N N) +
+          %w(N N N L) * 120
+        },
+        'A' => {'Length'=>[29, 28, 31, 29, 31, 29, 31, 29, 29, 31, 29, 29]},
+        'B' => {'Length'=>[29, 23, 27, 31, 29, 31, 29, 31, 29, 29, 31, 29, 29],         'IDs'=>_ID_L},
+        'C' => {'Length'=>[29, 24, 27, 31, 29, 31, 29, 31, 29, 29, 31, 29, 29],         'IDs'=>_ID_L},
+        'J' => {'Length'=>[29, 24, 27, 31, 29, 31, 29, 31, 29, 29, 31, 34, 31, 31, 29], 'IDs'=>_ID_J},
+        'N' => {'Length'=>[31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31]},
+        'L' => {'Length'=>[31, 29, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31]},
+      },
+      'note' => 'RomanNote'
+    }
+    RomanA =  [CyclicTableBased, Options.merge({'indices' => _IndicesA})]
+    RomanB =  [CyclicTableBased, Options.merge({'indices' => _IndicesB})]
+    Roman  =  [CyclicTableBased, Options]
+    RomanC =  [CyclicTableBased, Options.merge({'indices' => _IndicesC})]
+
+    #
+    # 古代ローマの暦注
+    #
+    class CalendarNote::RomanNote < CalendarNote
+
+      NoteObjects = [When::BasicTypes::M17n, [
+        "namespace:[en=http://en.wikipedia.org/wiki/, ja=http://ja.wikipedia.org/wiki/]",
+        "locale:[=en:, ja=ja:, alias]",
+        "names:[Roman]",
+
+        # 年の暦注 ----------------------------
+        [When::BasicTypes::M17n,
+          "names:[year]",
+
+          [When::Coordinates::Residue,
+            "label:[Solar=en:Solar_cycle_(calendar), 太陽章=]", "divisor:28", "year:-8",
+          ],
+
+          [When::Coordinates::Residue,
+            "label:[Metonic=en:Metonic_cycle, 太陰章=]", "divisor:19", "year:0",
+          ],
+
+          [When::Coordinates::Residue,
+            "label:[Indiction, インディクション]", "divisor:15", "year:-2",
+            [When::Coordinates::Residue, "label:[I=   ]", "remainder:  0"],
+            [When::Coordinates::Residue, "label:[II=  ]", "remainder:  1"],
+            [When::Coordinates::Residue, "label:[III= ]", "remainder:  2"],
+            [When::Coordinates::Residue, "label:[IV=  ]", "remainder:  3"],
+            [When::Coordinates::Residue, "label:[V=   ]", "remainder:  4"],
+            [When::Coordinates::Residue, "label:[VI=  ]", "remainder:  5"],
+            [When::Coordinates::Residue, "label:[VII= ]", "remainder:  6"],
+            [When::Coordinates::Residue, "label:[VIII=]", "remainder:  7"],
+            [When::Coordinates::Residue, "label:[IX=  ]", "remainder:  8"],
+            [When::Coordinates::Residue, "label:[X=   ]", "remainder:  9"],
+            [When::Coordinates::Residue, "label:[XI=  ]", "remainder: 10"],
+            [When::Coordinates::Residue, "label:[XII= ]", "remainder: 11"],
+            [When::Coordinates::Residue, "label:[XIII=]", "remainder: 12"],
+            [When::Coordinates::Residue, "label:[XIV= ]", "remainder: 13"],
+            [When::Coordinates::Residue, "label:[XV=  ]", "remainder: 14"],
+          ]
+        ],
+
+        # 月の暦注 ----------------------------
+        [When::BasicTypes::M17n,
+          "names:[month]",
+          [When::BasicTypes::M17n,
+            "names:[Month]"
+          ]
+        ],
+
+        # 日の暦注 ----------------------------
+        [When::BasicTypes::M17n,
+          "names:[day]",
+
+          [When::BasicTypes::M17n,
+            "names:[Nomen]"
+          ]
+        ]
+      ]]
+
+      Order = [
+        'a.d. bis VI',
+        'prid.',    'a.d. III',  'a.d. IV',    'a.d. V',   'a.d. VI',   'a.d. VII', 'a.d. VIII', 
+        'a.d. IX',  'a.d. X',    'a.d. XI',    'a.d. XII', 'a.d. XIII', 'a.d. XIV', 'a.d. XV', 
+        'a.d. XVI', 'a.d. XVII', 'a.d. XVIII', 'a.d. XIX', 'a.d. XX',   'a.d. XXI', 'a.d. XXII'
+      ]
+
+      LongMonths = [3, 5, 7, 10, When.Pair(11,0.5), When.Pair(11,1.5)]
+      LongType   = [1, 2..6, 7, 8..14, 15]
+      ShortType  = [1, 2..4, 5, 6..12, 13]
+
+      # 暦注 - 日の名前
+      #
+      # @param [When::TM::CalDate] date
+      #
+      # @return [String]
+      #
+      def nomen(date)
+        y, m, d = date.cal_date
+        month_name = _abbr_of_month(date)
+        kal, to_nonae, nonae, to_idus, idus = LongMonths.include?(m) ? LongType : ShortType
+        case d
+        when kal      ; return                     'Kal. ' + month_name
+        when to_nonae ; return Order[nonae - d] + ' Non. ' + month_name
+        when nonae    ; return                     'Non. ' + month_name
+        when to_idus  ; return Order[idus  - d] + ' Id. '  + month_name
+        when idus     ; return                     'Id. '  + month_name
+        end
+        this_month = date.floor(When::MONTH)
+        next_month = this_month.succ
+        month_name = _abbr_of_month(next_month)
+        rest = next_month.to_i - date.to_i
+        if m == 2 && next_month.to_i - this_month.to_i == 29
+          return Order[0] + ' Kal. ' + month_name if rest == 5
+          rest -= 1 if rest > 5
+        end
+        return Order[rest] + ' Kal. ' + month_name
+      end
+
+      private
+
+      # オブジェクトの正規化
+      def _normalize(args=[], options={})
+       @event = 'nomen'
+       super
+      end
+
+      # 日の省略名
+      def _abbr_of_month(month)
+        name = month.name('month').to_s
+        return name.sub(/ (..).*/, ' \1.') if name.sub!(/Intercalaris(.*)?/, 'Int.\1')
+        name.size <= 3 ? name : name[/^...[^caeiou]*/] + '.'
+      end
+    end
+  end
+end

data/lib/when_exe/region/ryukyu.rb

@@ -0,0 +1,98 @@
+# -*- 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
+
+require 'when_exe/region/japanese'
+require 'when_exe/region/chinese_calendar'
+
+#
+#  琉球王位一覧表
+#
+# （参考文献）
+# 沖縄県の歴史（山川出版社）巻末年表など
+# 沖縄の歴史と文化（中公新書）
+# コンサイス世界年表（三省堂）
+#
+module When
+  class TM::CalendarEra
+
+    #
+    # 琉球王朝
+    #
+    Ryukyu = [self, [
+      "namespace:[ja=http://ja.wikipedia.org/wiki/, en=http://en.wikipedia.org/wiki/]",
+      "locale:[=ja:, en=en:, alias]",
+      "area:[琉球,Ryukyu]",
+      [self,
+	"period:[舜天王統]",										#  嗣    ～ 没 or 譲位
+	["[舜天]1",	"[::_m:EpochEvents::Accession]",	"name=[舜天];1187^Chinese0956"],        # 文治  3～嘉禎  3(1237)       72歳
+	["[舜馬順熙]1",	"[::_m:EpochEvents::Accession]",	"name=[舜馬順熙];1238"],                # 嘉禎  4～宝治  2(1248)       64歳
+	["[義本]1",	"[::_m:EpochEvents::Accession]",	"name=[義本];1249" , "1259"]            # 宝治  3～正嘉  3(1259) 英祖に譲位
+      ],
+      [self,
+	"period:[英祖王統]",
+	["[英祖]0",	"[::_m:EpochEvents::Accession]",	"name=[英祖];1259^Chinese0939"],	# 正元  2～正安 元(1299)  8  5 71歳
+	["[大成]0",	"[::_m:EpochEvents::Accession]",	"name=[大成];1299-08-05"],              # 正安  2～延慶 元(1308) 12  8 62歳
+	["[英慈]0",	"[::_m:EpochEvents::Accession]",	"name=[英慈];1308-12-08"],              # 延慶  2～正和  2(1313)  9 20 46歳
+	["[玉城]0",	"[::_m:EpochEvents::Accession]",	"name=[玉城];1313-09-20"],              # 正和  3～延元 元(1336)  3 11 41歳
+	["[西威]0",	"[::_m:EpochEvents::Accession]",	"name=[西威];1336-03-11", "1349-04-13"] # 延元  2～貞和  5(1349)  4 13 22歳
+      ],
+      [self,
+	"period:[中山王国]",
+	["[察度]0",	"[::_m:EpochEvents::Accession]",	"name=[察度];1349-04-13^Chinese0939"],	# 貞和  6～応永  2(1395) 10  5 75歳
+	["[武寧]0",	"[::_m:EpochEvents::Accession]",	"name=[武寧];1395-10-05", "1406"]	# 応永  3～応永 13(1406) 尚巴志が滅ぼす
+      ],
+      [self,
+	"period:[山北王国]",
+	["[怕尼芝]1",	"[::_m:EpochEvents::Accession]",	"name=[怕尼芝];1322^Chinese0939"],	# 1383年初めて明に朝貢 
+	["[珉]0",	"[::_m:EpochEvents::Accession]",	"name=[珉];1395"],
+	["[攀安知]0",	"[::_m:EpochEvents::Accession]",	"name=[攀安知];1400", "1416="]		# 永楽元年(1403)衣冠束帯を乞う 尚巴志が滅ぼす
+      ],
+      [self,
+	"period:[山南王国]",
+	["[承察度]1",	"[::_m:EpochEvents::Accession]",	"name=[承察度];1337^Chinese0939"],	# 1380年初めて明に朝貢 
+	["[汪英紫]1",	"[::_m:EpochEvents::Accession]",	"name=[汪英紫];1388"],
+	["[汪応祖]0",	"[::_m:EpochEvents::Accession]",	"name=[汪応祖];1402"],			# 承察度の従弟 明永楽２年(1404)冊封
+	["[他魯毎]0",	"[::_m:EpochEvents::Accession]",	"name=[他魯毎];1413", "1429="]		# 汪応祖の子 永楽14年(1416)冊封 尚巴志が滅ぼす
+      ],
+      [self,
+	"period:[第一尚氏]",
+	["[尚思紹王]1",	"[::_m:EpochEvents::Accession]",	"name=[尚思紹王];1406^Chinese0939"],	# 応永 13～応永 28(1421)
+	["[尚巴志王]0",	"[::_m:EpochEvents::Accession]",	"name=[尚巴志王];1421"],                # 応永 29～永享 11(1439)  4 20 68歳
+	["[尚忠王]0",	"[::_m:EpochEvents::Accession]",	"name=[尚忠王];1439-04-20"],            # 永享 12～文安 元(1444) 10 24 54歳
+	["[尚思達王]0",	"[::_m:EpochEvents::Accession]",	"name=[尚思達王];1444-10-24"],          # 文安  2～宝徳 元(1449) 10 13 42歳
+	["[尚金福王]0",	"[::_m:EpochEvents::Accession]",	"name=[尚金福王];1449-10-13"],          # 宝徳  2～享徳  2(1453)  4 29 56歳
+	["[尚泰久王]0",	"[::_m:EpochEvents::Accession]",	"name=[尚泰久王];1453-04-29"],          # 享徳  3～長禄  4(1460)  6  5 46歳
+	["[尚徳王]0",	"[::_m:EpochEvents::Accession]",	"name=[尚徳王];1460-06-05","1469-04-23"]# 寛正  2～応仁  3(1469)  4 22 29歳
+      ],
+      [self,
+	"period:[第二尚氏]",
+	["[尚円王]0",	"[::_m:EpochEvents::Accession]",	"name=[尚円王];1469-04-23^Chinese0939"],# 文明  2～文明  8(1476)  7 28 62歳
+	["[尚宣威王]0",	"[::_m:EpochEvents::Accession]",	"name=[尚宣威王];1476-07-28"],          # 文明  9～同年   (1477)  8  4 48歳 没
+	["[尚真王]1",	"[::_m:EpochEvents::Accession]",	"name=[尚真王];1477-08-05"],            # 文明  9～大永  6(1526) 12 11 62歳
+	["[尚清王]0",	"[::_m:EpochEvents::Accession]",	"name=[尚清王];1526-12-12"],            # 大永  7～天文 24(1555)  6 25 59歳
+	["[尚元王]0",	"[::_m:EpochEvents::Accession]",	"name=[尚元王];1555-06-25"],            # 弘治  2～元亀  3(1572)  4  1 45歳
+	["[尚永王]0",	"[::_m:EpochEvents::Accession]",	"name=[尚永王];1572-04-01"],            # 天正 元～天正 16(1588) 11 25 30歳
+	["[尚寧王]0",	"[::_m:EpochEvents::Accession]",	"name=[尚寧王];1588-11-25",             # 天正 17～元和  6(1620)  9 19 57歳
+							 "1609-04-05^Japanese?note=ChineseNotes", ""],	# 慶長 14(1609)  4  5 尚寧、島津と和議
+	["[尚豊王]0",	"[::_m:EpochEvents::Accession]",	"name=[尚豊王];1620-09-19"],            # 元和  7～寛永 17(1640)  5  4 51歳
+	["[尚賢王]0",	"[::_m:EpochEvents::Accession]",	"name=[尚賢王];1640-05-04"],            # 寛永 18～正保  4(1647)  9 22 23歳
+	["[尚質王]0",	"[::_m:EpochEvents::Accession]",	"name=[尚質王];1647-09-22"],            # 慶安 元～寛文  8(1668) 11 17 40歳
+	["[尚貞王]0",	"[::_m:EpochEvents::Accession]",	"name=[尚貞王];1668-11-17"],            # 寛文  9～宝永  6(1709)  7 13 65歳
+	["[尚益王]0",	"[::_m:EpochEvents::Accession]",	"name=[尚益王];1709-07-13"],            # 宝永  7～正徳  2(1712)  7 15 35歳
+	["[尚敬王]0",	"[::_m:EpochEvents::Accession]",	"name=[尚敬王];1712-07-15"],            # 正徳  3～寛延  4(1751)  1 29 52歳
+	["[尚穆王]0",	"[::_m:EpochEvents::Accession]",	"name=[尚穆王];1751-01-29"],            # 宝暦  2～寛政  6(1794)  4  8 56歳
+	["[尚温王]0",	"[::_m:EpochEvents::Accession]",	"name=[尚温王];1794-04-08"],            # 寛政  7～享和  2(1802)  7 11 19歳
+	["[尚成王]0",	"[::_m:EpochEvents::Accession]",	"name=[尚成王];1802-07-11"],            # 享和  3～同年   (1803) 12 26  4歳
+	["[尚灝王]0",	"[::_m:EpochEvents::Accession]",	"name=[尚灝王];1803-12-26"],            # 文化 元～文政 10(1827) 出家
+	["[尚育摂位=]0",	"",				"name=[尚育王];1827"],			# 文政 11(1828) 摂位
+	["[尚育王]7",	"[::_m:EpochEvents::Accession]",	"name=[尚育王];1834-05-29"],            # 天保  6～弘化  4(1847)  9 17 35歳
+	["[尚泰王]0",	"[::_m:EpochEvents::Accession]",	"name=[尚泰王];1847-09-17",             # 弘化  5～明治 12(1879)  3 31 琉球処分
+								 "1873-01-01^Gregorian", "1879-03-31="] #          明治 34(1901)  8 19 59歳 没
+      ]
+    ]]
+  end
+end

data/lib/when_exe/region/shire.rb

@@ -0,0 +1,254 @@
+# -*- 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
+
+    ShireTerms = [self, [
+      "namespace:[en=http://en.wikipedia.org/wiki/, " +
+                 "ja=http://ja.wikipedia.org/wiki/, " +
+                 "cal=http://en.wikipedia.org/wiki/Middle-earth_calendar]",
+      "locale:[=en:, ja=ja:, alias]",
+      "names:[ShireTerms]",
+      "[Shire=en:The_Lord_of_the_Rings, ホビット庄暦=ja:%E6%8C%87%E8%BC%AA%E7%89%A9%E8%AA%9E]",
+
+      [self,
+        "names:[Month, 月=ja:%E6%9C%88_(%E6%9A%A6)]",
+        "[Yule=en:Yule,      ユール祭=          ]",
+        "[Afteryule=en:Yule, ユール後月=        ]",
+        "[Solmath=cal,       ソマス=            ]",
+        "[Rethe=cal,         レセ=              ]",
+        "[Astron=cal,        アストロン=        ]",
+        "[Thrimidge=cal,     スリミッジ=        ]",
+        "[Forelithe=cal,     ライズ前月=        ]",
+        "[Lithe=cal,         ライズ祭=          ]",
+        "[Afterlithe=cal,    ライズ後月=        ]",
+        "[Wedmath=cal,       ウェドマス=        ]",
+        "[Halimath=cal,      ハリマス=          ]",
+        "[Winterfilth=cal,   ウィンターフィルス=]",
+        "[Blotmath=cal,      ブロドマス=        ]",
+        "[Foreyule=en:Yule,  ユール前月=        ]"
+      ]
+    ]]
+  end
+
+  module CalendarTypes
+
+    #
+    # ホビット庄暦の暦週
+    #
+    class CalendarNote::ShireWeek < CalendarNote
+
+      NoteObjects = [When::BasicTypes::M17n, [
+        "namespace:[en=http://en.wikipedia.org/wiki/, ja=http://ja.wikipedia.org/wiki/]",
+        "locale:[=en:, ja=ja:, alias]",
+        "names:[Shire]",
+
+        # 年の暦注 ----------------------------
+        [When::BasicTypes::M17n,
+          "names:[year]"
+        ],
+
+        # 月の暦注 ----------------------------
+        [When::BasicTypes::M17n,
+          "names:[month]",
+          [When::BasicTypes::M17n,
+            "names:[Month]"
+          ]
+        ],
+
+        # 日の暦注 ----------------------------
+        [When::BasicTypes::M17n,
+          "names:[day]",
+          [When::BasicTypes::M17n,
+            "names:[Week]",
+            "[Saturday,     土曜日]",
+            "[Sunday,       日曜日]",
+            "[Monday,       月曜日]",
+            "[Tuesday,      火曜日]",
+            "[Wednesday,    水曜日]",
+            "[Thursday,     木曜日]",
+            "[Friday,       金曜日]",
+            "[lithe,        中日= ]",
+            "[double,       重日= ]"
+          ]
+        ]
+      ]]
+
+      # イベントの標準的な間隔を返す
+      # @private
+      def _delta(parameter=nil)
+        return When::DurationP1W
+      end
+
+      # @private
+      def lithe_delta(parameter=nil)
+        return When::TM::PeriodDuration.new([0,0,7*52+1])
+      end
+
+      # 当日または直前の lithe の日
+      # @param date [When::TM::TemporalPosition]
+      # @param parameter [nil] 未使用
+      # @return [When::TM::TemporalPosition]
+      #
+      def lithe(date, parameter=nil)
+        event_name = 'lithe'
+        date  = date.frame.jul_trans(date, {:events=>[event_name]})
+        y,m,d = date.cal_date
+        h,n   = (m+5).divmod(7)
+        dow   = 182 * h[0] + 30 * n + d + 1
+        if m==8
+          case d
+          when 2 ; dow = 0
+          when 3 ; dow = date.frame._sum([y]) == 365 ? 1 : 0
+          when 4 ; dow = 1
+          end
+        end
+        return date if dow == 0
+        date += When::TM::PeriodDuration.new([0,0,-dow])
+        date.events = [event_name]
+        date
+      end
+
+      # 当日または直前の week_day の日
+      # @method week_day(date, parameter=nil)
+      #   @param date [When::TM::TemporalPosition]
+      #   @param parameter [nil] 未使用
+      #   @return [When::TM::TemporalPosition]
+      #   @note week_day は saturday, sunday, monday, tuesday, wednesday, thursday, friday に読み替えてください。
+
+      # @private
+      7.times do |k|
+        name = When.CalendarNote('ShireWeek/NoteObjects::day::Week')[k].to_s.downcase
+        module_eval %Q{
+          def #{name}(date, parameter=nil)
+            event_name = 'from_#{name}'
+            date  = date.frame.jul_trans(date, {:events=>[event_name]})
+            y,m,d = date.cal_date
+            h,n   = (m+5).divmod(7)
+            dow   = (182 * h[0] + 30 * n + d - #{k}) % 7
+            case m
+            when 8
+              case d
+              when 2 ; dow = 7 - #{k}
+              when 3 ; dow = (date.frame._sum([y]) == 365 && #{k} == 0) ? 0 : 8 - #{k}
+              when 4 ; dow = #{k} == 0 ? 0 : 9 - #{k}
+              end
+            when 9
+              dow += (date.frame._sum([y]) == 365) ? 1 : 2 if d < #{k}
+            end
+            return date if dow == 0
+            date += When::TM::PeriodDuration.new([0,0,-dow])
+            date.events = [event_name]
+            date
+          end
+
+          alias :#{name}_delta :_delta
+        }
+      end
+
+      alias :week :saturday
+
+      # Enumeratorの生成
+      #
+      # @param [When::TM::TemporalPosition] first 始点
+      # @param [Symbol] direction
+      #   [ :forward - 昇順 ]
+      #   [ :reverse - 降順 ]
+      # @param [String] event イベント名
+      # @param [Integer] count_limit 繰り返し回数(デフォルトは指定なし)
+      #
+      # @return [When::CalendarTypes::ShireWeek::Enumerator]
+      #
+      def enum_for(first, direction=:forward, event=@event, count_limit=nil)
+        Enumerator.new(self, first, direction, event, count_limit)
+      end
+      alias :to_enum :enum_for
+
+      # オブジェクトの正規化
+      # @private
+      def _normalize(args=[], options={})
+        @event ||= 'saturday'
+        super
+      end
+
+      #
+      # イベントを取得する Enumerator
+      #
+      class Enumerator < CalendarNote::Enumerator
+
+        #
+        # 次のイベントを得る
+        #
+        # @return [When::TM::TemporalPosition]
+        #
+        def succ
+          value = @current
+          plus  = @delta.sign > 0
+          if @current==:first
+            @first   = event_eval(@first) unless plus
+            @current = @first
+          else
+            if plus
+              @current = event_eval(@current + @delta)
+            else
+              @last    = event_eval(@current - When.Duration('P1D'))
+              @current = event_eval(@current + @delta)
+              unless [@current.to_i, value.to_i].include?(@last.to_i) 
+                @current = @last
+                return value
+              end
+            end
+            @current = event_eval(@current + @delta * 2) if @current.to_i == value.to_i
+          end
+          return value
+        end
+      end
+    end
+
+    #
+    # Shire Calendar based on summer solstice date
+    #
+    Shire =  [YearLengthTableBased, {
+      'label'   => When.Resource('_m:ShireTerms::Shire'),
+      'indices' => [
+         Coordinates::Index.new({:unit=>14, :trunk=>When.Resource('_m:ShireTerms::Month::*')}),
+         Coordinates::Index.new
+       ],
+      'border'       => '00-01-02',
+      'day_offset'   => -183,           # the day 183 days before summer solstice
+      'cycle_offset' => Rational(1,4),  # summer solstice
+      'timezone'     => 9,              # JST
+      'rule_table'   => {
+        365 => {'Length'=>[2]+[30]*6+[3]+[30]*6},
+        366 => {'Length'=>[2]+[30]*6+[4]+[30]*6}
+      },
+      'note'   => 'ShireWeek'
+    }]
+
+    #
+    # Shire Calendar based on Gregorian Date
+    #
+    ShireG =  [CyclicTableBased, {
+      'label'   => When.Resource('_m:ShireTerms::Shire'),
+      'origin_of_LSC' => 1721060-10,
+      'indices' => [
+        Coordinates::Index.new({:unit=>14, :trunk=>When.Resource('_m:ShireTerms::Month::*')}),
+        Coordinates::Index.new
+      ],
+      'border'     => '00-01-02',
+      'rule_table' => {
+        'T'  => {'Rule'  =>['LC', 'SC', 'SC', 'SC']},
+        'SC' => {'Rule'  =>[365]*4 + [366, 365, 365, 365]*24},
+        'LC' => {'Rule'  =>[366, 365, 365, 365]*25},
+        365 => {'Length'=>[2]+[30]*6+[3]+[30]*6},
+        366 => {'Length'=>[2]+[30]*6+[4]+[30]*6}
+      },
+      'note'   => 'ShireWeek'
+    }]
+  end
+end