RubyGems - when_exe - Versions diffs - 0.4.2 → 0.5.0 - Mend

when_exe 0.4.2 → 0.5.0

This diff represents the content of publicly available package versions that have been released to one of the supported registries. The information contained in this diff is provided for informational purposes only and reflects changes between package versions as they appear in their respective public registries.

Files changed (144) hide show

checksums.yaml +5 -5
data/LICENSE.ja.txt +8 -21
data/LICENSE.txt +5 -27
data/README.md +25 -79
data/bin/.pryrc +9 -0
data/bin/make_ttl.rb +3 -2
data/bin/make_ttl.rb.config +3 -3
data/lib/when_exe.rb +101 -5
data/lib/when_exe/basictypes.rb +47 -16
data/lib/when_exe/calendarnote.rb +27 -18
data/lib/when_exe/calendartypes.rb +12 -50
data/lib/when_exe/coordinates.rb +37 -391
data/lib/when_exe/ephemeris.rb +53 -14
data/lib/when_exe/ephemeris/eclipse.rb +8 -8
data/lib/when_exe/ephemeris/moon.rb +333 -333
data/lib/when_exe/ephemeris/notes.rb +29 -17
data/lib/when_exe/ephemeris/phase_table.rb +825 -0
data/lib/when_exe/ephemeris/term_table.rb +603 -0
data/lib/when_exe/events.rb +1888 -0
data/lib/when_exe/google_api.rb +26 -31
data/lib/when_exe/icalendar.rb +129 -12
data/lib/when_exe/inspect.rb +5 -5
data/lib/when_exe/linkeddata.rb +43 -23
data/lib/when_exe/locales/akt.rb +63 -0
data/lib/when_exe/locales/encoding_conversion.rb +134 -134
data/lib/when_exe/locales/iast.rb +90 -90
data/lib/when_exe/locales/locale.rb +88 -18
data/lib/when_exe/locales/transliteration_table.rb +62 -62
data/lib/when_exe/mini_application.rb +14 -8
data/lib/when_exe/namespace.rb +42 -0
data/lib/when_exe/parts/enumerator.rb +16 -5
data/lib/when_exe/parts/geometric_complex.rb +52 -2
data/lib/when_exe/parts/method_cash.rb +229 -224
data/lib/when_exe/parts/resource.rb +65 -35
data/lib/when_exe/parts/timezone.rb +25 -34
data/lib/when_exe/region/balinese.rb +5 -3
data/lib/when_exe/region/chinese.rb +39 -11
data/lib/when_exe/region/chinese/calendars.rb +1016 -1016
data/lib/when_exe/region/chinese/epochs.rb +7 -7
data/lib/when_exe/region/chinese/notes.rb +3 -3
data/lib/when_exe/region/chinese/twins.rb +134 -11
data/lib/when_exe/region/dee.rb +4 -4
data/lib/when_exe/region/discordian.rb +1 -1
data/lib/when_exe/region/geologicalage.rb +139 -128
data/lib/when_exe/region/hanke_henry.rb +4 -4
data/lib/when_exe/region/indian.rb +77 -8
data/lib/when_exe/region/international_fixed.rb +3 -3
data/lib/when_exe/region/islamic.rb +1 -1
data/lib/when_exe/region/japanese.rb +12 -8
data/lib/when_exe/region/japanese/calendars.rb +397 -397
data/lib/when_exe/region/japanese/eclipses.rb +1194 -1194
data/lib/when_exe/region/japanese/epochs.rb +8 -4
data/lib/when_exe/region/japanese/location.rb +93 -0
data/lib/when_exe/region/japanese/nihon_shoki.rb +70 -70
data/lib/when_exe/region/japanese/notes.rb +57 -18
data/lib/when_exe/region/japanese/residues.rb +33 -11
data/lib/when_exe/region/japanese/twins.rb +27 -14
data/lib/when_exe/region/japanese/weeks.rb +7 -7
data/lib/when_exe/region/korean.rb +384 -384
data/lib/when_exe/region/location.rb +40 -0
data/lib/when_exe/region/martian.rb +1 -1
data/lib/when_exe/region/mayan.rb +2 -2
data/lib/when_exe/region/roman.rb +2 -2
data/lib/when_exe/region/ryukyu.rb +101 -101
data/lib/when_exe/region/saudi_arabian.rb +57 -0
data/lib/when_exe/region/shire.rb +1 -1
data/lib/when_exe/region/world.rb +3 -3
data/lib/when_exe/region/zoroastrian.rb +1 -1
data/lib/when_exe/spatial.rb +611 -0
data/lib/when_exe/timestandard.rb +9 -7
data/lib/when_exe/tmobjects.rb +34 -2
data/lib/when_exe/tmposition.rb +225 -1322
data/lib/when_exe/tmptypes.rb +1279 -0
data/lib/when_exe/tmreference.rb +42 -7
data/lib/when_exe/version.rb +3 -3
data/test/events/example-datasets +6 -0
data/test/events/history-dataset.csv +22 -0
data/test/events/japanese-holiday-index.csv +28 -0
data/test/events/japanese-holiday.csv +94 -0
data/test/events/japanese-holiday.ttl +948 -0
data/test/events/make_events_ttl.rb +18 -0
data/test/events/mori_wikichoshi.csv +14 -0
data/test/events/ndl_koyomi.csv +220 -0
data/test/events/ndl_koyomi_index.csv +44 -0
data/test/events/primeminister-dataset.csv +19 -0
data/test/events/shogun-dataset.csv +22 -0
data/test/events/test-history-dataset-edge-sparql.csv +26 -0
data/test/events/test-history-dataset-edge.csv +27 -0
data/test/events/test-history-dataset-sparql.csv +22 -0
data/test/events/test-history-dataset.csv +23 -0
data/test/events/test-history-events-edge.ttl +89 -0
data/test/events/test-history-events.csv +6 -0
data/test/examples/JapanHolidays.ics +2 -2
data/test/examples/JapanHolidaysRFC6350.ics +3 -3
data/test/examples/Residue.m17n +2 -2
data/test/examples/Spatial.m17n +3 -3
data/test/examples/Terms.m17n +3 -3
data/test/scripts/8.ext.rb +6 -6
data/test/scripts/8.rb +6 -6
data/test/scripts/geometric_complex.rb +41 -41
data/test/scripts/korea.rb +59 -59
data/test/scripts/thai.rb +36 -36
data/test/test.rb +6 -0
data/test/test/basictypes.rb +431 -431
data/test/test/calendarnote.rb +86 -86
data/test/test/calendartypes.rb +97 -97
data/test/test/coordinates.rb +399 -397
data/test/test/ephemeris.rb +115 -115
data/test/test/ephemeris/moon.rb +14 -14
data/test/test/ephemeris/planets.rb +14 -14
data/test/test/ephemeris/sun.rb +14 -14
data/test/test/events.rb +32 -0
data/test/test/google_api.rb +45 -32
data/test/test/inspect.rb +153 -153
data/test/test/parts.rb +488 -488
data/test/test/region/armenian.rb +20 -20
data/test/test/region/bahai.rb +58 -58
data/test/test/region/balinese.rb +34 -34
data/test/test/region/chinese.rb +229 -229
data/test/test/region/christian.rb +226 -226
data/test/test/region/coptic.rb +27 -27
data/test/test/region/discordian.rb +20 -20
data/test/test/region/french.rb +33 -33
data/test/test/region/geologicalage.rb +17 -17
data/test/test/region/indian.rb +14 -1
data/test/test/region/iran.rb +54 -54
data/test/test/region/islamic.rb +64 -54
data/test/test/region/japanese.rb +281 -261
data/test/test/region/jewish.rb +63 -63
data/test/test/region/m17n.rb +21 -21
data/test/test/region/mayan.rb +17 -16
data/test/test/region/reforms.rb +2 -2
data/test/test/region/residue.rb +7 -7
data/test/test/region/shire.rb +58 -58
data/test/test/region/swedish.rb +45 -45
data/test/test/region/thai.rb +116 -116
data/test/test/region/tibetan.rb +30 -30
data/test/test/region/vietnamese.rb +102 -102
data/test/test/region/zoroastrian.rb +58 -58
data/test/test/timestandard.rb +81 -81
data/test/test/tmobjects.rb +402 -402
data/test/test/tmposition.rb +66 -4
data/test/test/tmreference.rb +157 -157
metadata +36 -93

data/lib/when_exe/region/japanese/residues.rb CHANGED Viewed

@@ -1,6 +1,6 @@
 # -*- coding: utf-8 -*-
 =begin
-  Copyright (C) 2012-2014 Takashi SUGA
+  Copyright (C) 2012-2016 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
@@ -14,6 +14,8 @@ module When::Coordinates
     StartOfSequence = {-1=>'九星陽遁始め', +1=>'九星陰遁始め'}
+    Patch = {2421371=>2421431, 2429771=>2429831, 2463251=>2463191, 2475851=>2475791}
     class << self
       #
@@ -48,6 +50,7 @@ module When::Coordinates
       #
       def day(date, s_terms)
         thres, delta, sign = _parameters(date, s_terms)
+        delta += 3 if thres == 30
         delta = 8 - delta if sign < 0
         return delta % 9
       end
@@ -79,15 +82,34 @@ module When::Coordinates
       def _parameters(date, s_terms)
         date = When.when?(date.to_cal_date.to_s, {:frame=>date.frame, :clock=>date.frame.time_basis})
-        [+90,-90,-270].each do |deg|
-          prev   = s_terms.term(date, [deg,180])                     # 直後および直前の冬至または夏至
-          sign   = s_terms.position(prev)[0] == 270 ? -1 : +1        # 陽遁か?(冬至:-1, 夏至:+1)
-          base   = prev.to_i                                         # 当該の冬至または夏至のユリウス日
-          kanshi = (base + 17) % 60 - 28                             # 最も近い甲子との日数差
-          base  -= kanshi                                            # 当該陰陽遁の始め
-          delta  = date.to_i - base                                  # 始めからの日数
-          thres  = kanshi >= 29 ? 30 : 0                             # 区間の始めの delta (甲午の前後1日以内は甲午折り返し)
-          return [thres, delta, sign] if thres <= delta              # 区間に入れば確定
+        bases = [+450,+270,+90,-90,-270,-450].map { |deg|
+          prev   = s_terms.term(date, [deg,180])              # 直後および直前の冬至または夏至
+          sign   = s_terms.position(prev)[0] == 270 ? -1 : +1 # 陽遁か?(冬至:-1, 夏至:+1)
+          base   = prev.to_i                                  # 当該の冬至または夏至のユリウス日
+          kanshi = (base + 17) % 60 - 28                      # 最も近い甲子との日数差
+          base  -= kanshi                                     # 当該陰陽遁の始めの甲子
+          [(Patch[base] || base), sign]                       # 『暦日大鑑』に合わせる
+        }
+        (1...bases.size).each do |i|                          # 区間が短くなりすぎる場合は次と繋げる
+          next unless bases[i-1][0] - bases[i][0] == 120
+          bases[i-1][0] += 60
+          break
+        end
+        bases.size.times do |i|
+          base, sign = bases[i]
+          delta  = date.to_i - base                           # 始めからの日数
+          next if delta < 0
+          case (bases[i-1][0] - base)
+          when 180
+            return [ 0, delta, sign]                          # 通常
+          when 240
+            return [30, delta,      sign] if delta >= 30      # 甲午以降
+            return [ 0, delta+180, -sign]                     # 甲午より前
+          else
+            raise ArgumentError, "Invalid solstice interval: #{bases[i-1][0] - base}"
+          end
        end
        raise ArgumentError, "can't find any solstice."
       end
@@ -341,7 +363,7 @@ module When::Coordinates
       notes['天一']     ||= begin
         note = Rules['天一'][@remainder]
         dates.range >= 15 ?  note.dup.sub!(/天上始/, '天上') :
-        dates.range >= 11 ?  note : note.dup.sub!(/始/, '')
+        dates.range >= 10 ?  note : note.dup.sub!(/始/, '')
       end
       notes['土公']     ||= Rules['土公'][@remainder]
       notes['五墓']     ||= [4,22,28,31,37].include?(@remainder) ? '五墓' : nil

data/lib/when_exe/region/japanese/twins.rb CHANGED Viewed

@@ -64,7 +64,7 @@ module When
       'lunation_length'          => 29.530590, # 朔実(朔望月)
       'lunar_mean_motion'        => 13.36875,  # 月平行(恒星天に対する月の平均運動 / 日)
       'anomalistic_month_length' => 27.5546,   # 転終(近点月)
-      'anomaly_method'           => 'c',       # (経朔-定朔)の計算方法(a:差分, b:微分, c:幾何学的補正)
+      'anomaly_method'           => 'a',       # (経朔-定朔)の計算方法(a:差分, b:微分, c:幾何学的補正)
       'anomaly_precision'        => 1e-5,      # c 方式 での収束判定誤差 / 日
       'lunar_unit'               =>  0.1,      # 太陰遅速計算用招差法定数の時間の単位(限)
       'solar_weight'             =>  1,        # (経朔-定朔)の計算で用いる実行差での太陽盈縮の重み(0:非考慮,1:考慮)
@@ -72,7 +72,8 @@ module When
         [  0      ... 72.65342,   0,     [-0, -1173_1000, +3_7000, +400]],
         [ 72.65342...137.773,   137.773, [-0, -1324_0000, +5_2000, +500]],
         [137.773  ...202.89258, 137.773, [+0, +1324_0000, -5_2000, -500]],
-        [202.89258.. 275.546,   275.546, [+0, +1173_1000, -3_7000, -400]]
+        [202.89258...275.546,   275.546, [+0, +1173_1000, -3_7000, -400]],
+        [275.546  .. 277,       275.546, [-0, -1173_1000, +3_7000, +400]]
       ],
       's'                        => [          # 太陽盈縮計算用招差法定数
         [  0       ... 89.25392,    0,        [0, +436_0000, -2_0000, -34]],
@@ -99,9 +100,11 @@ module When
             'day_epoch'                => 2336111 +  7.675, # 暦元天正冬至のユリウス日
             'year_epoch'               => 1684,             # 暦元の西暦年
             'year_length'              => 365.241696,       # 暦元の冬至年 / 日
-            'anomalistic_year_shift'   => 6.445,            # 暦應(冬至から近日点通過までの日数)
+            'anomalistic_year_shift'   => 6.445,            # 暦應(暦元での冬至から近日点通過までの日数)
             'lunation_shift'           =>  2.779 - 0.015,   # 閏應(暦元前経朔から暦元天正冬至までの日数)
-            'anomalistic_month_shift'  => 22.72  - 0.015    # 転應(暦元前近/遠地点通過から暦元天正冬至までの日数)
+            'anomalistic_month_shift'  => 22.72  - 0.015,   # 転應(暦元前近/遠地点通過から暦元天正冬至までの日数)
+            'anomaly_method'           => '#{Method:a}',    # (経朔-定朔)の計算方法(a:差分, b:微分, c:幾何学的補正)
+            'solar_weight'             => '#{Weight:1}',    # (経朔-定朔)の計算で用いる実行差での太陽盈縮の重み(0:非考慮,1:考慮)
          })]
         }
        }
@@ -115,9 +118,11 @@ module When
             'day_epoch'                => 2336111 +  7.69 , # 暦元天正冬至のユリウス日
             'year_epoch'               => 1684,             # 暦元の西暦年
             'year_length'              => 365.241696,       # 暦元の冬至年 / 日
-            'anomalistic_year_shift'   => 6.445,            # 暦應(冬至から近日点通過までの日数)
+            'anomalistic_year_shift'   => 6.445,            # 暦應(暦元での冬至から近日点通過までの日数)
             'lunation_shift'           =>  2.779,           # 閏應(暦元前経朔から暦元天正冬至までの日数)
-            'anomalistic_month_shift'  => 22.72             # 転應(暦元前近/遠地点通過から暦元天正冬至までの日数)
+            'anomalistic_month_shift'  => 22.72,            # 転應(暦元前近/遠地点通過から暦元天正冬至までの日数)
+            'anomaly_method'           => '#{Method:a}',    # (経朔-定朔)の計算方法(a:差分, b:微分, c:幾何学的補正)
+            'solar_weight'             => '#{Weight:1}',    # (経朔-定朔)の計算で用いる実行差での太陽盈縮の重み(0:非考慮,1:考慮)
          })]
         }
        }
@@ -131,9 +136,11 @@ module When
             'day_epoch'                => 2336111 +  7.9038,# 暦元天正冬至のユリウス日
             'year_epoch'               => 1684,             # 暦元の西暦年
             'year_length'              => 365.241696,       # 暦元の冬至年 / 日
-            'anomalistic_year_shift'   => 6.445,            # 暦應(冬至から近日点通過までの日数)
+            'anomalistic_year_shift'   => 6.445,            # 暦應(暦元での冬至から近日点通過までの日数)
             'lunation_shift'           =>  2.779 + 0.2138,  # 閏應(暦元前経朔から暦元天正冬至までの日数)
-            'anomalistic_month_shift'  => 22.72  + 0.2138   # 転應(暦元前近/遠地点通過から暦元天正冬至までの日数)
+            'anomalistic_month_shift'  => 22.72  + 0.2138,  # 転應(暦元前近/遠地点通過から暦元天正冬至までの日数)
+            'anomaly_method'           => '#{Method:a}',    # (経朔-定朔)の計算方法(a:差分, b:微分, c:幾何学的補正)
+            'solar_weight'             => '#{Weight:1}',    # (経朔-定朔)の計算で用いる実行差での太陽盈縮の重み(0:非考慮,1:考慮)
          })]
         }
        }
@@ -147,9 +154,11 @@ module When
             'day_epoch'                => 2336111 +  7.6223,# 暦元天正冬至のユリウス日
             'year_epoch'               => 1684,             # 暦元の西暦年
             'year_length'              => 365.241696,       # 暦元の冬至年 / 日
-            'anomalistic_year_shift'   => 6.445,            # 暦應(冬至から近日点通過までの日数)
+            'anomalistic_year_shift'   => 6.445,            # 暦應(暦元での冬至から近日点通過までの日数)
             'lunation_shift'           =>  2.779 - 0.0677,  # 閏應(暦元前経朔から暦元天正冬至までの日数)
-            'anomalistic_month_shift'  => 22.72  - 0.0677   # 転應(暦元前近/遠地点通過から暦元天正冬至までの日数)
+            'anomalistic_month_shift'  => 22.72  - 0.0677,  # 転應(暦元前近/遠地点通過から暦元天正冬至までの日数)
+            'anomaly_method'           => '#{Method:a}',    # (経朔-定朔)の計算方法(a:差分, b:微分, c:幾何学的補正)
+            'solar_weight'             => '#{Weight:1}',    # (経朔-定朔)の計算で用いる実行差での太陽盈縮の重み(0:非考慮,1:考慮)
          })]
         }
        }
@@ -163,10 +172,12 @@ module When
             'day_epoch'                => 2361671 + 14.536, # 暦元天正冬至のユリウス日
             'year_epoch'               => 1754,             # 暦元の西暦年
             'year_length'              => 365.241556,       # 暦元の冬至年 / 日
-            'anomalistic_year_shift'   => 6.455,            # 暦應(冬至から近日点通過までの日数)
+            'anomalistic_year_shift'   => 6.455,            # 暦應(暦元での冬至から近日点通過までの日数)
             'lunation_shift'           => 25.654,           # 閏應(暦元前経朔から暦元天正冬至までの日数)
             'anomalistic_month_shift'  => 18.88,            # 転應(暦元前近/遠地点通過から暦元天正冬至までの日数)
-            's'                        => ChineseSolar.change_unit(365.241556 / 365.241696, _japanese_common['s'])
+            's'                        => ChineseSolar.change_unit(365.241556 / 365.241696, _japanese_common['s']),
+            'anomaly_method'           => '#{Method:a}',    # (経朔-定朔)の計算方法(a:差分, b:微分, c:幾何学的補正)
+            'solar_weight'             => '#{Weight:1}',    # (経朔-定朔)の計算で用いる実行差での太陽盈縮の重み(0:非考慮,1:考慮)
          })]
         }
        }
@@ -180,10 +191,12 @@ module When
             'day_epoch'                => 2361671 + 14.681, # 暦元天正冬至のユリウス日
             'year_epoch'               => 1754,             # 暦元の西暦年
             'year_length'              => 365.241626,       # 暦元の冬至年 / 日
-            'anomalistic_year_shift'   => 7.42,             # 暦應(冬至から近日点通過までの日数)
+            'anomalistic_year_shift'   => 7.42,             # 暦應(暦元での冬至から近日点通過までの日数)
             'lunation_shift'           => 25.82,            # 閏應(暦元前経朔から暦元天正冬至までの日数)
             'anomalistic_month_shift'  => 19.307,           # 転應(暦元前近/遠地点通過から暦元天正冬至までの日数)
-            's'                        => ChineseSolar.change_unit(365.241626 / 365.241696, _japanese_common['s'])
+            's'                        => ChineseSolar.change_unit(365.241626 / 365.241696, _japanese_common['s']),
+            'anomaly_method'           => '#{Method:a}',    # (経朔-定朔)の計算方法(a:差分, b:微分, c:幾何学的補正)
+            'solar_weight'             => '#{Weight:1}',    # (経朔-定朔)の計算で用いる実行差での太陽盈縮の重み(0:非考慮,1:考慮)
          })]
         }
        }

data/lib/when_exe/region/japanese/weeks.rb CHANGED Viewed

@@ -1,6 +1,6 @@
 # -*- coding: utf-8 -*-
 =begin
-  Copyright (C) 2014 Takashi SUGA
+  Copyright (C) 2014-2017 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
@@ -29,12 +29,12 @@ class When::CalendarNote
         "names:[day]",
         [When::BasicTypes::M17n,
           "names:[Rokuyo=, 六曜, 六曜=zh:%%<六曜>]",
-          [DayOfWeek, "label:[Taian=,      *大安, 大安]", {'delta'=>6}],
-          [DayOfWeek, "label:[Shakko=,     *赤口, 赤口]", {'delta'=>6}],
-          [DayOfWeek, "label:[Sensho=,     *先勝, 先勝]", {'delta'=>6}],
-          [DayOfWeek, "label:[Tomobiki=,   *友引, 友引]", {'delta'=>6}],
-          [DayOfWeek, "label:[Sembu=,      *先負, 先負]", {'delta'=>6}],
-          [DayOfWeek, "label:[Butsumetsu=, *仏滅, 仏滅]", {'delta'=>6}]
+          [DayOfWeek, "label:[Taian=,      *大安=ja:%%<六曜>#%.<大安>, 大安=ja:%%<六曜>#%.<大安>]", {'delta'=>6}],
+          [DayOfWeek, "label:[Shakko=,     *赤口=ja:%%<六曜>#%.<赤口>, 赤口=ja:%%<六曜>#%.<赤口>]", {'delta'=>6}],
+          [DayOfWeek, "label:[Sensho=,     *先勝=ja:%%<六曜>#%.<先勝>, 先勝=ja:%%<六曜>#%.<先勝>]", {'delta'=>6}],
+          [DayOfWeek, "label:[Tomobiki=,   *友引=ja:%%<六曜>#%.<友引>, 友引=ja:%%<六曜>#%.<友引>]", {'delta'=>6}],
+          [DayOfWeek, "label:[Sembu=,      *先負=ja:%%<六曜>#%.<先負>, 先負=ja:%%<六曜>#%.<先負>]", {'delta'=>6}],
+          [DayOfWeek, "label:[Butsumetsu=, *仏滅=ja:%%<六曜>#%.<仏滅>, 仏滅=zh:%%<佛滅日>]", {'delta'=>6}]
         ]
       ]
     ]]

data/lib/when_exe/region/korean.rb CHANGED Viewed

@@ -1,384 +1,384 @@
-# -*- coding: utf-8 -*-
-=begin
-  Copyright (C) 2013-2014 Takashi SUGA
-  You may use and/or modify this file according to the license described in the LICENSE.txt file included in this archive.
-=end
-require 'when_exe/region/chinese/calendars'
-#
-#  朝鮮朔閏表および王位年号一覧表
-#
-# （参考文献）
-# 東洋史辞典（東京創元社）
-# コンサイス世界年表（三省堂）
-# 朝鮮史（山川出版社）
-# 三国遺事（六興出版）
-# 歴代紀元編（台湾中華書局）に引用される新唐書
-# 観象授時（月刊『言語』1991.12 特集・暦の記号学）
-# 増補改訂中国の天文暦法（平凡社）P156
-# 現代こよみ読み解き事典（柏書房）
-# 韓國年暦大典（嶺南大学校出版部）
-# 三国時代年曆表（Korea Astronomy Observatory）
-# 高麗時代年曆表（Korea Astronomy Observatory）
-# 朝鮮時代年曆表（Korea Astronomy Observatory）
-# 朝鮮における時憲曆の受容過程とその思想的背景(東方學報 京都第84冊(2009) pp.302-281).
-#
-module When
-  module CalendarTypes
-    # 正月:A, ２月:B, ３月:C, ４月:D, ５月:E, ６月:F,
-    # ７月:G, ８月:H, ９月:I, 10月:J, 11月:K, 12月:L
-    # 大の月:大文字, 小の月:小文字
-    # 同じアルファベットの連続の後者:閏月
-    # #- は『韓國年暦大典』(1987年版)の中国-朝鮮差分が取り消されたもの
-    # #! は全勇勳「朝鮮における時憲曆の受容過程とその思想的背景」で言及された年(最終的には差分でない)
-  Korean = PatternTableBasedLuniSolar.join([
-    PatternTableBasedLuniSolar,
-    {
-      'indices'=>  ChineseIndices,
-      'before' => 'ChineseTwin::太初暦',
-      'after'  => 'ChineseLuniSolar?time_basis=+09',
-      'note'   => 'Chinese',
-    },
-    ['Chinese_103',  -60.. 263],             # 前漢～蜀漢(太初暦・四分暦)
-    ['Chinese0239',  264.. 444],             # 三国・南朝(景初暦)
-    ['Chinese0445',  445.. 589],             # 南朝(元嘉暦・大明暦)
-    ['Chinese0523',  590.. 946],             # 隋・唐～五代前期(大業暦～調元暦)
-    ['Chinese0956',  947..1279],             # 五代後期～南宋(調元暦～本天暦)
-    ['Chinese0939', 1280..1653],             # 元・明・南明(重修大明暦・授時暦・大統暦)
-    ['Chinese1645', 1654..1911]],            # 清(時憲暦)
-    {
-       -26 => {'aB'   => 'Ab'  },            # ベースとする中国暦日表の違い
-       240 => {'Hi'   => 'hI'  },            # 四分・景初・乾象暦いずれにも不一致
-       478 => {'bC'   => 'Bc'  },            # 日食記事による見直し(景初・元嘉・三紀・玄始暦いずれにも不一致)
-       502 => {'D'    => 'E'   },            # 中国暦日表を計算による元嘉暦に戻す
-       559 => {'De'   => 'eE'  },            # 日食記事による見直し(元嘉・大明・興和・天保・正光暦いずれにも不一致)
-       575 => {'i'    => 'h'   },            # ベースとする中国暦日表の違い
-       592 => {'FgHi' => 'fgHI'},
-       716 => {'lL'   => 'Ll'  },            # ベースとする中国暦日表の違い
-       768 => {'bC'   => 'Bc'  },
-       795 => {'H'    => 'G'   },            # ベースとする中国暦日表の違い
-       935 => {'Kl'   => 'kL'  },            # 宣明暦に一致(崇玄暦とは不一致)
-      1022 => {'aB'  => 'Ab'  },             # 宣明暦に一致
-      1025 => {'fG'  => 'Fg'  },             # 宣明・遼の大明暦に一致
-      1032 => {'cD'  => 'Cd'  },
-      1040 => {'dE'  => 'De', 'K'  => 'k' }, # ５月朔は宣明・遼の大明暦に一致
-      1041 => {'a'   => 'A',  'Jk' => 'jK'}, # 12月朔は宣明・遼の大明暦に一致
-      1048 => {'l'   => 'L'   },
-      1049 => {'A'   => 'a',  'Kl' => 'kL'}, # 12月朔は宣明・遼の大明暦に一致
-      1058 => {'l'   => 'L'   },
-      1059 => {'A'   => 'a',  'Kl' => 'kL'}, # 12月朔は宣明・遼の大明暦に一致
-      1067 => {'bC'  => 'aB'  },             # 宣明暦に一致(閏月２か月ずれ)
-      1073 => {'kL'  => 'Kl'  },
-      1078 => {'gHI' => 'GHi' },
-      1079 => {'Ef'  => 'eF'  },
-      1096 => {'bcDefGhIJKl' => 'BCdeFGhijkL' },
-      1114 => {'bC'  => 'Bc'  },
-      1118 => {'dE'  => 'De'  },
-      1149 => {'efG' => 'Efg' },
-      1244 => {'fGH' => 'FGh' },
-      1252 => {'eF'  => 'Ef'  },
-      1253 => {'Hi'  => 'hI'  },             # 重修大明暦に一致(たまたま?宣明暦にも一致)
-      1270 => {'jjK' => 'jKk' },             # 重修大明暦に一致
-      1276 => {'Ab'  => 'aB'  },             # 重修大明暦に一致
-      1287 => {'bCD' => 'BCd' },             # ベースとする中国暦日表の違い
-      1300 => {'HIj' => 'hIJ' },
-      1365 => {'aB'  => 'Ab'  },
-      1397 => {'bC'  => 'Bc'  },
-      1399 => {'De'  => 'dE'  },
-      1430 => {'Cd'  => 'cD'  },
-   #- 1437 => {'kL'  => 'Kl'  },
-      1440 => {'kL'  => 'Kl'  },
-      1444 => {'kL'  => 'Kl'  },
-      1462 => {'Jk'  => 'jK'  },
-      1495 => {'fG'  => 'Fg'  },
-      1530 => {'Ab'  => 'aB'  },
-      1581 => {'Ij'  => 'iJ'  },
-      1588 => {'bCD' => 'BCd','Kl' =>'kL'},
-      1597 => {'Hi'  => 'hI'  },
-   #- ,        'L'   =>'l' },
-   #- 1598 => {'a'   => 'A'   },
-      1599 => {'l'   => 'L'   },
-      1600 => {'A'   => 'a'   },
-      1602 => {'hI'  => 'Hi'  },
-      1608 => {'l'   => 'L'   },
-      1609 => {'A'   => 'a'   },
-   #- 1615 => {'Fg'  => 'fG', 'Hh' =>'hH'},
-   #- 1619 => {'L'   => 'l'   },
-   #- 1620 => {'a'   => 'A'   },
-   #- 1642 => {'Fg'  => 'fG'  },
-   #- 1644 => {'fG'  => 'Fg'  },
-   #- 1649 => {'iJ'  => 'Ij'  },
-   #- 1650 => {'kL'  => 'Kl'  },
-      1652 => {'hIJ' => 'HIj' },
-   #- 1664 => {'bC'  => 'Bc'  },
-   #- 1674 => {'aB'  => 'Ab'  },
-      1677 => {'iJ'  => 'Ij'  },
-      1698 => {'jK'  => 'Jk'  },
-   #! 1705 => {'Kl'  => 'kL'  },
-      1709 => {'aB'  => 'Ab', 'jK' =>'Jk' },
-      1727 => {'cC'  => 'Cc'  },
-      1730 => {'Cd'  => 'cD'  },
-   #! 1735 => 『英祖實録』巻38 10年4月10日(乙卯) 是以我國明年曆與彼國所同者,只是置閏與月朔大小,而節候則日時皆不同
-      1751 => {'Jk'  => 'jK'  },
-      1778 => {'Cd'  => 'cD'  },
-      1841 => {'kL'  => 'Kl'  }
-    })
-  end
-  class TM::CalendarEra
-    #
-    # 朝鮮半島
-    #
-    Korean = [self, [
-      "locale:[=ja:, en=en:, alias]",
-      "area:[朝鮮=ja:%%<元号>#%.<朝鮮半島>,Korea=en:Regnal_year#Korean]",
-      [self,
-	"period:[高句麗]",
-	["[<東明王>=ja:%%<東明聖王>]1",	"@F",	"name=[東明王=ja:%%<東明聖王>];-36^Korean"],
-	["[<瑠璃王>=ja:%%<瑠璃明王>]1",	"@A",	"name=[瑠璃王=ja:%%<瑠璃明王>];-18"],
-	["[<大武神王>]1",		"@A", "name=[大武神王];018"],
-	["[<閔中王>]1",			"@A",	"name=[閔中王];044"],
-	["[<慕本王>]1",			"@A",	"name=[慕本王];048"],
-	["[<太祖王>=ja:%%<太祖大王>]1",	"@A",	"name=[太祖王=ja:%%<太祖大王>];053"],
-	["[<次大王>]1",			"@A",	"name=[次大王];146"],
-	["[<新大王>]1",			"@A",	"name=[新大王];165"],
-	["[<故国川王>]1",		"@A", "name=[故国川王];179"],
-	["[<山上王>]1",			"@A",	"name=[山上王];197"],						# 朝鮮史ではこれ以降を実在とする
-	["[<東川王>]1",			"@A",	"name=[東川王];227"],
-	["[<中川王>]1",			"@A",	"name=[中川王];248"],
-	["[<西川王>]1",			"@A",	"name=[西川王];270"],
-	["[<烽上王>]1",			"@A",	"name=[烽上王];292"],
-	["[<美川王>]1",			"@A",	"name=[美川王];300"],
-	["[<故国原王>]1",		"@A", "name=[故国原王];331"],
-	["[<小獣林王>]1",		"@A", "name=[小獣林王];371"],
-	["[<故国壌王>]1",		"@A", "name=[故国壌王];384"],						# 朝鮮史では末年に？
-	["[永楽=ja:%%<永楽_(高句麗)>]1","@A",	"name=[広開土王=ja:%%<好太王>];391"],				# コンサイスでは翌年が元年
-	["[<長寿王>]1",			"@A",	"name=[長寿王];413.01.01", "492.01.01"],			# 朝鮮史では元年に？
-	["[延寿=ja:%%<延寿_(高句麗)>]1","",		      "451"],						# Wikipedia
-	["[<文咨王>=ja:%%<文咨明王>]1",	"@A",	"name=[文咨王=ja:%%<文咨明王>];492.01.01"],
-	["[<安臧王>]1",			"@A",	"name=[安臧王];519"],
-	["[<安原王>]1",			"@A",	"name=[安原王];531"],
-	["[<陽原王>]1",			"@A",	"name=[陽原王];545"],
-	["[<平原王>]1",			"@A",	"name=[平原王];559"],
-	["[<嬰陽王>]1",			"@A",	"name=[嬰陽王];590"],
-	["[<栄留王>]1",			"@A",	"name=[栄留王];618"],
-	["[<宝臧王>=ja:%%<宝蔵王>]1","@A","name=[宝臧王=ja:%%<宝蔵王>];642", "668.09.12="],			# 資治通鑑による、癸巳滅亡
-     ],
-      [self,
-	"period:[百済]",
-	["[<温祚王>]1",				"@F",	"name=[温祚王];-17^Korean"],
-	["[<多婁王>]1",				"@A",	"name=[多婁王];028"],
-	["[<己婁王>]1",				"@A",	"name=[己婁王];077"],
-	["[<蓋婁王>]1",				"@A",	"name=[蓋婁王];128"],					# 朝鮮史では127が末年
-	["[<肖古王>]1",				"@A",	"name=[肖古王];166"],
-	["[<仇首王>]1",				"@A",	"name=[仇首王];214"],
-	["[<沙伴王>]1",				"@A",	"name=[沙伴王];234"],
-	["[<古爾王>=ja:%%<古尓王>]1",		"@A",	"name=[古爾王=ja:%%<古尓王>];234"],
-	["[<責稽王>]1",				"@A",	"name=[責稽王];286"],
-	["[<汾西王>]1",				"@A",	"name=[汾西王];298"],
-	["[<比流王>]1",				"@A",	"name=[比流王];304"],					# 朝鮮史ではこれ以後を実在とする
-	["[<契王>]1",				"@A",	  "name=[契王];344"],
-	["[<近肖古王>]1",			"@A", "name=[近肖古王];346"],
-	["[<近仇首王>]1",			"@A", "name=[近仇首王];375"],
-	["[<枕流王>]1",				"@A",	"name=[枕流王];384"],
-	["[<辰斯王>]1",				"@A",	"name=[辰斯王];385"],
-	["[<阿莘王>=ja:%%<阿シン王>]1",		"@A",	"name=[阿莘王=ja:%%<阿シン王>];392"],
-	["[<腆支王>]1",				"@A",	"name=[腆支王];405"],
-	["[<久爾辛王>=ja:%%<久尓辛王>]1",	"@A", "name=[久爾辛王=ja:%%<久尓辛王>];420"],
-	["[<毗有王>=ja:%%<毘有王>]1",		"@A",	"name=[毗有王=ja:%%<毘有王>];427"],
-	["[<蓋鹵王>]1",				"@A",	"name=[蓋鹵王];455"],
-	["[<文周王>]1",				"@A",	"name=[文周王];475"],
-	["[<三斤王>]1",				"@A",	"name=[三斤王];477"],					# 朝鮮史では末年に？
-	["[<東城王>]1",				"@A",	"name=[東城王];479"],
-	["[<武寧王>]1",				"@A",	"name=[武寧王];501"],
-	["[<聖王>=ja:%%<聖王_(百済)>]1",	"@A",	   "name=[聖王=ja:%%<聖王_(百済)];523.05.07"],		# 武寧王墓誌による
-	["[<威徳王>=ja:%%<威徳王_(百済)>]1",	"@A", "name=[威徳王=ja:%%<威徳王_(百済)>];554"],
-	["[<恵王>=ja:%%<恵王_(百済)>]1",	"@A",	  "name=[恵王=ja:%%<恵王_(百済)>];598"],
-	["[<法王>=ja:%%<法王_(百済)>]1",	"@A",	  "name=[法王=ja:%%<法王_(百済)>];599"],
-	["[<武王>=ja:%%<聖王_(百済)>]1",	"@A",	  "name=[武王=ja:%%<武王_(百済)>];600"],
-	["[<義慈王>]1",				"@A",			   "name=[義慈王];641", "660.08="]	# 資治通鑑による
-      ],
-      [self,
-	"period:[新羅]",
-	["[<赫居世>=ja:%%<赫居世居西干>]1",	"@F", "name=[赫居世=ja:%%<赫居世居西干>];-56^^Korean"],
-	["[<南解王>=ja:%%<南解次次雄>]1",	"@A",	"name=[南解王=ja:%%<南解次次雄>];004"],
-	["[<儒理王>=ja:%%<儒理尼師今>]1",	"@A",	"name=[儒理王=ja:%%<儒理尼師今>];024"],
-	["[<脱解王>=ja:%%<脱解尼師今>]1",	"@A",	"name=[脱解王=ja:%%<脱解尼師今>];057"],
-	["[<婆娑王>=ja:%%<婆娑尼師今>]1",	"@A",	"name=[婆娑王=ja:%%<婆娑尼師今>];080"],
-	["[<祇摩王>=ja:%%<祇摩尼師今>]1",	"@A",	"name=[祇摩王=ja:%%<祇摩尼師今>];112"],
-	["[<逸聖王>=ja:%%<逸聖尼師今>]1",	"@A",	"name=[逸聖王=ja:%%<逸聖尼師今>];134"],
-	["[<阿達羅王>=ja:%%<阿達羅尼師今>]1",  "@A","name=[阿達羅王=ja:%%<阿達羅尼師今>];154"],
-	["[<伐休王>=ja:%%<伐休尼師今>]1",	"@A",	"name=[伐休王=ja:%%<伐休尼師今>];184"],
-	["[<奈解王>=ja:%%<奈解尼師今>]1",	"@A",	"name=[奈解王=ja:%%<奈解尼師今>];196"],
-	["[<助賁王>=ja:%%<助賁尼師今>]1",	"@A",	"name=[助賁王=ja:%%<助賁尼師今>];230"],
-	["[<沾解王>=ja:%%<沾解尼師今>]1",	"@A",	"name=[沾解王=ja:%%<沾解尼師今>];247"],			# 朝鮮史では261が末年
-	["[<味鄒王>=ja:%%<味鄒尼師今>]1",	"@A",	"name=[味鄒王=ja:%%<味鄒尼師今>];262"],
-	["[<儒礼王>=ja:%%<儒礼尼師今>]1",	"@A",	"name=[儒礼王=ja:%%<儒礼尼師今>];284"],
-	["[<基臨王>=ja:%%<基臨尼師今>]1",	"@A",	"name=[基臨王=ja:%%<基臨尼師今>];298"],
-	["[<訖解王>=ja:%%<訖解尼師今>]1",	"@A",	"name=[訖解王=ja:%%<訖解尼師今>];310"],			# コンサイスはこれ以前の在位を記さない
-	["[<奈勿王>=ja:%%<奈勿尼師今>]1",	"@A",	"name=[奈勿王=ja:%%<奈勿尼師今>];356"],			# 朝鮮史ではこれ以後を実在とする
-	["[<実聖王>=ja:%%<実聖尼師今>]1",	"@A",	"name=[実聖王=ja:%%<実聖尼師今>];402"],
-	["[<訥祇王>=ja:%%<訥祇麻立干>]1",	"@A",	"name=[訥祇王=ja:%%<訥祇麻立干>];417"],
-	["[<慈悲王>=ja:%%<慈悲麻立干>]1",	"@A",	"name=[慈悲王=ja:%%<慈悲麻立干>];458"],
-	["[<炤知王>=ja:%%<ショウ知麻立干>]1", "@A", "name=[炤知王=ja:%%<ショウ知麻立干>];479"],
-	["[<智証王>=ja:%%<智証麻立干>]1",	"@A",	"name=[智証王=ja:%%<智証麻立干>];500"],
-	["[<法興王>]1",	"@A",	"name=[法興王];514"],
-	["[<真興王>]1",	"@A",	"name=[真興王];540"],
-	["[<真智王>]1",	"@A",	"name=[真智王];576"],
-	["[<真平王>]1",	"@A",	"name=[真平王];579"],
-	["[<善徳女王>]1","@A","name=[善徳女王];632"],
-	["[<真徳女王>]1","@A","name=[真徳女王];647"],
-	["[<武烈王>]1",	"@A",	"name=[武烈王];654"],
-	["[<文武王>]1",	"@A",	"name=[文武王];661"],
-	["[<神文王>]1",	"@A",	"name=[神文王];681"],
-	["[<孝昭王>]1",	"@A",	"name=[孝昭王];692"],
-	["[<聖徳王>]1",	"@A",	"name=[聖徳王];702"],
-	["[<孝成王>=ja:%%<孝成王_(新羅)>]1", "@A", "name=[孝成王=ja:%%<孝成王_(新羅)>];737"],
-	["[<景徳王>]1",	"@A",	"name=[景徳王];742"],
-	["[<恵恭王>]1",	"@A",	"name=[恵恭王];765"],
-	["[<宣徳王>]1",	"@A",	"name=[宣徳王];780"],
-	["[<元聖王>]1",	"@A",	"name=[元聖王];785"],
-	["[<昭聖王>]1",	"@A",	"name=[昭聖王];799.01.01"],
-	["[<哀荘王>]1",	"@A",	"name=[哀荘王];800"],
-	["[<憲徳王>]1",	"@A",	"name=[憲徳王];809"],
-	["[<興徳王>]1",	"@A",	"name=[興徳王];826"],
-	["[<僖康王>]1",	"@A",	"name=[僖康王];836"],
-	["[<閔哀王>]1",	"@A",	"name=[閔哀王];838"],
-	["[<神武王>]1",	"@A",	"name=[神武王];839"],
-	["[<文聖王>]1",	"@A",	"name=[文聖王];839"],
-	["[<憲安王>]1",	"@A",	"name=[憲安王];857"],
-	["[<景文王>]1",	"@A",	"name=[景文王];861"],
-	["[<憲康王>]1",	"@A",	"name=[憲康王];875"],
-	["[<定康王>]1",	"@A",	"name=[定康王];886"],
-	["[<真聖女王>]1","@A","name=[真聖女王];887"],			# 東洋史辞典のみ１年遅
-	["[<孝恭王>]1",	"@A",	"name=[孝恭王];897"],			#        〃
-	["[<神徳王>]1",	"@A",	"name=[神徳王];912"],			#        〃
-	["[<景明王>]1",	"@A",	"name=[景明王];917"],
-	["[<景哀王>]1",	"@A",	"name=[景哀王];924"],
-	["[<敬順王>]1",	"@A",	"name=[敬順王];927", "935="],
-        [self,
-	  "period:[年号=]",
-	  ["[建元=ja:%%<建元_(新羅)>]1",	"",	"name=[法興王];536^Korean"],
-	  ["[開国=ja:%%<開国_(新羅)>]1",	"",	"name=[真興王];551"],
-	  ["[大昌,alias:太昌=ja:%%<大昌>]1",	"",		      "568"],
-	  ["[鴻済]1",				"",		      "572"],
-	  ["[建福=ja:%%<建福_(新羅)>]1",	"",	"name=[真平王];584"],
-	  ["[仁平=ja:%%<仁平_(新羅)>]1",	"",   "name=[善徳女王];634"],
-	  ["[太和=ja:%%<太和_(新羅)>]1",	"@A", "name=[真徳女王];647", "649="]
-        ],
-        [self,
-	  "period:[長安=zh:%%<長安國>]", # １月で滅亡と仮定
-	  ["[慶雲=ja:%%<慶雲_(金憲昌)>]1",	"@F",	"name=[金憲昌=zh:%%<金憲昌>];822.03^^Korean", "822.03="]
-        ]
-      ],
-      [self,
-	"period:[後百済]",		# 三国遺事による
-	["[<甄萱>]1",	"@F",			 "name=[甄萱];900^Korean", "936.09.08="]
-      ],
-      [self,
-	"period:[後高句麗]",
-	["[<弓裔>=ja:%%<弓裔>]1",	"@F",	 "name=[弓裔];901^Korean", "904"],
-	[self,
-	  "period:[摩震=ja:%%<後高句麗>]",
-	  ["[武泰=ja:%%<武泰_(後高句麗)>]1", "", "name=[弓裔];904^Korean"],
-	  ["[聖冊]1",	"",				     "905", "911"]
-	],
-	[self,
-	  "period:[泰封=ja:%%<後高句麗>]",
-	  ["[水徳万歳]1",		"",	 "name=[弓裔];911^Korean"],
-	  ["[政開]1",			"",		     "914", "918.06"]
-	]
-      ],
-      [self,
-	"period:[高麗]",
-	["[天授=ja:%%<天授_(高麗)>]1",		"@F",	"name=[太祖=ja:%%<太祖_(高麗王)>];918.06^Korean"],	# 三国遺事による
-	["[<太祖>=ja:%%<太祖_(高麗王)>]16",	"",					 "933"],
-	["[<恵宗>=ja:%%<恵宗_(高麗王)>]1",	"@A",	"name=[恵宗=ja:%%<恵宗_(高麗王)>];944"],
-	["[<定宗>=ja:%%<定宗_(高麗王)>]1",	"@A",	"name=[定宗=ja:%%<定宗_(高麗王)>];946"],
-	["[光徳=ja:%%<光徳_(高麗)>]1",		"@A",	"name=[光宗=ja:%%<光宗_(高麗王)>];950"],
-	["[<光宗>=ja:%%<光宗_(高麗王)>]3",	"@A",					 "952"],
-      # ["[峻豊]1",				"@A",					 "962.01.01"],		# こよみ読み解き事典による Wikipedia で否定
-	["[<景宗>=ja:%%<景宗_(高麗王)>]1",	"@A",	"name=[景宗=ja:%%<景宗_(高麗王)>];976"],
-	["[<成宗>=ja:%%<成宗_(高麗王)>]1",	"@A",	"name=[成宗=ja:%%<成宗_(高麗王)>];982"],
-	["[<穆宗>=ja:%%<穆宗_(高麗王)>]1",	"@A",	"name=[穆宗=ja:%%<穆宗_(高麗王)>];998"],
-	["[<顕宗>=ja:%%<顕宗_(高麗王)>]1",	"@A",	"name=[顕宗=ja:%%<顕宗_(高麗王)>];1010"],
-	["[<徳宗>=ja:%%<徳宗_(高麗王)>]1",	"@A",	"name=[徳宗=ja:%%<徳宗_(高麗王)>];1032"],
-	["[<靖宗>=ja:%%<靖宗_(高麗王)>]1",	"@A",	"name=[靖宗=ja:%%<靖宗_(高麗王)>];1035"],
-	["[<文宗>=ja:%%<文宗_(高麗王)>]1",	"@A",	"name=[文宗=ja:%%<文宗_(高麗王)>];1047"],
-	["[<順宗>=ja:%%<順宗_(高麗王)>]1",	"@A",	"name=[順宗=ja:%%<順宗_(高麗王)>];1083"],
-	["[<宣宗>=ja:%%<宣宗_(高麗王)>]1",	"@A",	"name=[宣宗=ja:%%<宣宗_(高麗王)>];1084"],
-	["[<献宗>=ja:%%<献宗_(高麗王)>]1",	"@A",	"name=[献宗=ja:%%<献宗_(高麗王)>];1095"],
-	["[<粛宗>=ja:%%<粛宗_(高麗王)>]1",	"@A",	"name=[粛宗=ja:%%<粛宗_(高麗王)>];1096"],
-	["[<睿宗>=ja:%%<睿宗_(高麗王)>]1",	"@A",	"name=[睿宗=ja:%%<睿宗_(高麗王)>];1106"],
-	["[<仁宗>=ja:%%<仁宗_(高麗王)>]1",	"@A",	"name=[仁宗=ja:%%<仁宗_(高麗王)>];1123"],
-	["[<毅宗>=ja:%%<毅宗_(高麗王)>]1",	"@A",	"name=[毅宗=ja:%%<毅宗_(高麗王)>];1147"],
-	["[<明宗>=ja:%%<明宗_(高麗王)>]0",	"@A",	"name=[明宗=ja:%%<明宗_(高麗王)>];1170.08"],		# 朝鮮史による
-	["[<神宗>=ja:%%<神宗_(高麗王)>]1",	"@A",	"name=[神宗=ja:%%<神宗_(高麗王)>];1198"],
-	["[<熙宗>=ja:%%<熙宗_(高麗王)>]1",	"@A",	"name=[熙宗=ja:%%<熙宗_(高麗王)>];1205"],
-	["[<康宗>=ja:%%<康宗_(高麗王)>]1",	"@A",	"name=[康宗=ja:%%<康宗_(高麗王)>];1212"],
-	["[<高宗>=ja:%%<高宗_(高麗王)>]1",	"@A",	"name=[高宗=ja:%%<高宗_(高麗王)>];1214"],
-	["[<元宗>=ja:%%<元宗_(高麗王)>]1",	"@A",	"name=[元宗=ja:%%<元宗_(高麗王)>];1260"],
-	["[<忠烈王>]1",				"@A",			   "name=[忠烈王];1275"],
-	["[<忠宣王>]1",				"@A",			   "name=[忠宣王];1298.01"],		# 朝鮮史による
-	["[<忠烈王･再>=ja:%%<忠烈王>]24",	"@A",			   "name=[忠烈王];1298.08"],		#      〃
-	["[<忠宣王･再>=ja:%%<忠宣王>]1",	"@A",			   "name=[忠宣王];1309"],
-	["[<忠粛王>]1",				"@A",			   "name=[忠粛王];1314"],
-	["[<忠恵王>]1",				"@A",			   "name=[忠恵王];1331"],
-	["[<忠粛王･再>=ja:%%<忠粛王>]1",	"@A",			   "name=[忠粛王];1332"],
-	["[<忠恵王･再>=ja:%%<忠恵王>]1",	"@A",			   "name=[忠恵王];1340"],
-	["[<忠穆王>]1",				"@A",			   "name=[忠穆王];1345"],
-	["[<忠定王>]1",				"@A",			   "name=[忠定王];1349.01.01"],
-	["[<恭愍王>]1",				"@A",			   "name=[恭愍王];1352"],
-	["[<禑王>=ja:%%<王ウ_(高麗王)>]1",	"@A",   "name=[禑王=ja:%%<王ウ_(高麗王)>];1375"],
-	["[<昌王>=ja:%%<王昌_(高麗王)>]1",	"@A",   "name=[昌王=ja:%%<王昌_(高麗王)>];1389"],
-	["[<恭譲王>]1",				"@A",		   "name=[恭譲王];1390", "1392.07.17"]		# コンサイスによる
-      ],
-      [self,
-	"period:[朝鮮=ja:%%<李氏朝鮮>]",
-	["[<太祖>=ja:%%<李成桂>]1.07.17",	"@F",	       "name=[太祖=ja:%%<李成桂>];1392-07-17^Korean"],	# コンサイスによる
-	["[<定宗>=ja:%%<定宗_(朝鮮王)>]1",	"@A",	"name=[定宗=ja:%%<定宗_(朝鮮王)>];1399"],
-	["[<太宗>=ja:%%<太宗_(朝鮮王)>]1",	"@A",	"name=[太宗=ja:%%<太宗_(朝鮮王)>];1401"],
-	["[<世宗>=ja:%%<世宗_(朝鮮王)>]1",	"@A",	"name=[世宗=ja:%%<世宗_(朝鮮王)>];1419"],
-	["[<文宗>=ja:%%<文宗_(朝鮮王)>]1",	"@A",	"name=[文宗=ja:%%<文宗_(朝鮮王)>];1451"],
-	["[<端宗>=ja:%%<端宗_(朝鮮王)>]1",	"@A",	"name=[端宗=ja:%%<端宗_(朝鮮王)>];1453"],
-	["[<世祖>=ja:%%<世祖_(朝鮮王)>]1",	"@A",	"name=[世祖=ja:%%<世祖_(朝鮮王)>];1455"],
-	["[<睿宗>=ja:%%<睿宗_(朝鮮王)>]1",	"@A",	"name=[睿宗=ja:%%<睿宗_(朝鮮王)>];1469"],
-	["[<成宗>=ja:%%<成宗_(朝鮮王)>]1",	"@A",	"name=[成宗=ja:%%<成宗_(朝鮮王)>];1470"],
-	["[<燕山君>]1",				"@A",			   "name=[燕山君];1495"],
-	["[<中宗>=ja:%%<中宗_(朝鮮王)>]1",	"@A",	"name=[中宗=ja:%%<中宗_(朝鮮王)>];1506"],
-	["[<仁宗>=ja:%%<仁宗_(朝鮮王)>]1",	"@A",	"name=[仁宗=ja:%%<仁宗_(朝鮮王)>];1545"],
-	["[<明宗>=ja:%%<明宗_(朝鮮王)>]1",	"@A",	"name=[明宗=ja:%%<明宗_(朝鮮王)>];1546"],
-	["[<宣祖>]1",				"@A",			     "name=[宣祖];1568"],
-	["[<光海君>]1",				"@A",			   "name=[光海君];1609"],
-	["[<仁祖>]1",				"@A",			     "name=[仁祖];1623"],
-	["[<孝宗>=ja:%%<孝宗_(朝鮮王)>]1",	"@A",	"name=[孝宗=ja:%%<孝宗_(朝鮮王)>];1650"],
-	["[<顕宗>=ja:%%<顕宗_(朝鮮王)>]1",	"@A",	"name=[顕宗=ja:%%<顕宗_(朝鮮王)>];1660"],
-	["[<粛宗>=ja:%%<粛宗_(朝鮮王)>]1",	"@A",	"name=[粛宗=ja:%%<粛宗_(朝鮮王)>];1675"],
-	["[<景宗>=ja:%%<景宗_(朝鮮王)>]1",	"@A",	"name=[景宗=ja:%%<景宗_(朝鮮王)>];1721"],
-	["[<英祖>=ja:%%<英祖_(朝鮮王)>]1",	"@A",	"name=[英祖=ja:%%<英祖_(朝鮮王)>];1725"],		# コンサイスでは英宗
-	["[<正祖>]1",				"@A",			     "name=[正祖];1777"],
-	["[<純祖>]1",				"@A",			     "name=[純祖];1801"],
-	["[<憲宗>=ja:%%<憲宗_(朝鮮王)>]1",	"@A",	"name=[憲宗=ja:%%<憲宗_(朝鮮王)>];1835"],
-	["[<哲宗>=ja:%%<哲宗_(朝鮮王)>]1",	"@A",	"name=[哲宗=ja:%%<哲宗_(朝鮮王)>];1850"],
-	["[<高宗>=ja:%%<高宗_(朝鮮王)>]1",	"@A",	"name=[高宗=ja:%%<高宗_(朝鮮王)>];1864"],
-	["[建陽]1",				"",					 "1896.01.01^Gregorian?note=Chinese",	# 朝鮮史による
-	    "1897.10.01"]
-      ],
-      [self,
-	"period:[大韓帝国]",
-	["[光武=ja:%%<光武_(元号)>]1",	"@F",	"name=[高宗=ja:%%<高宗_(朝鮮王)>];1897.10.01^Gregorian?note=Chinese"],
-	["[隆熙]1",			"@A",	"name=[純宗=ja:%%<純宗_(朝鮮王)>];1907.07.19", "1910.08.29="]
-      ]
-    ]]
-  end
-end
+# -*- coding: utf-8 -*-
+=begin
+  Copyright (C) 2013-2021 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/chinese/calendars'
+#
+#  朝鮮朔閏表および王位年号一覧表
+#
+# （参考文献）
+# 東洋史辞典（東京創元社）
+# コンサイス世界年表（三省堂）
+# 朝鮮史（山川出版社）
+# 三国遺事（六興出版）
+# 歴代紀元編（台湾中華書局）に引用される新唐書
+# 観象授時（月刊『言語』1991.12 特集・暦の記号学）
+# 増補改訂中国の天文暦法（平凡社）P156
+# 現代こよみ読み解き事典（柏書房）
+# 韓國年暦大典（嶺南大学校出版部）
+# 三国時代年曆表（Korea Astronomy Observatory）
+# 高麗時代年曆表（Korea Astronomy Observatory）
+# 朝鮮時代年曆表（Korea Astronomy Observatory）
+# 朝鮮における時憲曆の受容過程とその思想的背景(東方學報 京都第84冊(2009) pp.302-281).
+#
+module When
+  module CalendarTypes
+    # 正月:A, ２月:B, ３月:C, ４月:D, ５月:E, ６月:F,
+    # ７月:G, ８月:H, ９月:I, 10月:J, 11月:K, 12月:L
+    # 大の月:大文字, 小の月:小文字
+    # 同じアルファベットの連続の後者:閏月
+    # #- は『韓國年暦大典』(1987年版)の中国-朝鮮差分が取り消されたもの
+    # #! は全勇勳「朝鮮における時憲曆の受容過程とその思想的背景」で言及された年(最終的には差分でない)
+    Korean = PatternTableBasedLuniSolar.join([
+      PatternTableBasedLuniSolar,
+      {
+        'indices'=>  ChineseIndices,
+        'before' => 'ChineseTwin::太初暦',
+        'after'  => 'ChineseLuniSolar?time_basis=+09',
+        'note'   => 'Chinese',
+      },
+      ['Chinese_103',  -60.. 263],             # 前漢～蜀漢(太初暦・四分暦)
+      ['Chinese0239',  264.. 444],             # 三国・南朝(景初暦)
+      ['Chinese0445',  445.. 589],             # 南朝(元嘉暦・大明暦)
+      ['Chinese0523',  590.. 946],             # 隋・唐～五代前期(大業暦～調元暦)
+      ['Chinese0956',  947..1279],             # 五代後期～南宋(調元暦～本天暦)
+      ['Chinese0939', 1280..1653],             # 元・明・南明(重修大明暦・授時暦・大統暦)
+      ['Chinese1645', 1654..1911]],            # 清(時憲暦)
+      {
+       -26 => {'aB'   => 'Ab'  },            # ベースとする中国暦日表の違い
+       240 => {'Hi'   => 'hI'  },            # 四分・景初・乾象暦いずれにも不一致
+       478 => {'bC'   => 'Bc'  },            # 日食記事による見直し(景初・元嘉・三紀・玄始暦いずれにも不一致)
+       502 => {'D'    => 'E'   },            # 中国暦日表を計算による元嘉暦に戻す
+       559 => {'De'   => 'eE'  },            # 日食記事による見直し(元嘉・大明・興和・天保・正光暦いずれにも不一致)
+       575 => {'i'    => 'h'   },            # ベースとする中国暦日表の違い
+       592 => {'FgHi' => 'fgHI'},
+       716 => {'lL'   => 'Ll'  },            # ベースとする中国暦日表の違い
+       768 => {'bC'   => 'Bc'  },
+       795 => {'H'    => 'G'   },            # ベースとする中国暦日表の違い
+       935 => {'Kl'   => 'kL'  },            # 宣明暦に一致(崇玄暦とは不一致)
+      1022 => {'aB'  => 'Ab'  },             # 宣明暦に一致
+      1025 => {'fG'  => 'Fg'  },             # 宣明・遼の大明暦に一致
+      1032 => {'cD'  => 'Cd'  },
+      1040 => {'dE'  => 'De', 'K'  => 'k' }, # ５月朔は宣明・遼の大明暦に一致
+      1041 => {'a'   => 'A',  'Jk' => 'jK'}, # 12月朔は宣明・遼の大明暦に一致
+      1048 => {'l'   => 'L'   },
+      1049 => {'A'   => 'a',  'Kl' => 'kL'}, # 12月朔は宣明・遼の大明暦に一致
+      1058 => {'l'   => 'L'   },
+      1059 => {'A'   => 'a',  'Kl' => 'kL'}, # 12月朔は宣明・遼の大明暦に一致
+      1067 => {'bC'  => 'aB'  },             # 宣明暦に一致(閏月２か月ずれ)
+      1073 => {'kL'  => 'Kl'  },
+      1078 => {'gHI' => 'GHi' },
+      1079 => {'Ef'  => 'eF'  },
+      1096 => {'bcDefGhIJKl' => 'BCdeFGhijkL' },
+      1114 => {'bC'  => 'Bc'  },
+      1118 => {'dE'  => 'De'  },
+      1149 => {'efG' => 'Efg' },
+      1244 => {'fGH' => 'FGh' },
+      1252 => {'eF'  => 'Ef'  },
+      1253 => {'Hi'  => 'hI'  },             # 重修大明暦に一致(たまたま?宣明暦にも一致)
+      1270 => {'jjK' => 'jKk' },             # 重修大明暦に一致
+      1276 => {'Ab'  => 'aB'  },             # 重修大明暦に一致
+      1287 => {'bCD' => 'BCd' },             # ベースとする中国暦日表の違い
+      1300 => {'HIj' => 'hIJ' },
+      1365 => {'aB'  => 'Ab'  },
+      1397 => {'bC'  => 'Bc'  },
+      1399 => {'De'  => 'dE'  },
+      1430 => {'Cd'  => 'cD'  },
+   #- 1437 => {'kL'  => 'Kl'  },
+      1440 => {'kL'  => 'Kl'  },
+      1444 => {'kL'  => 'Kl'  },
+      1462 => {'Jk'  => 'jK'  },
+      1495 => {'fG'  => 'Fg'  },
+      1530 => {'Ab'  => 'aB'  },
+      1581 => {'Ij'  => 'iJ'  },
+      1588 => {'bCD' => 'BCd','Kl' =>'kL'},
+      1597 => {'Hi'  => 'hI'  },
+   #- ,        'L'   =>'l' },
+   #- 1598 => {'a'   => 'A'   },
+      1599 => {'l'   => 'L'   },
+      1600 => {'A'   => 'a'   },
+      1602 => {'hI'  => 'Hi'  },
+      1608 => {'l'   => 'L'   },
+      1609 => {'A'   => 'a'   },
+   #- 1615 => {'Fg'  => 'fG', 'Hh' =>'hH'},
+   #- 1619 => {'L'   => 'l'   },
+   #- 1620 => {'a'   => 'A'   },
+   #- 1642 => {'Fg'  => 'fG'  },
+   #- 1644 => {'fG'  => 'Fg'  },
+   #- 1649 => {'iJ'  => 'Ij'  },
+   #- 1650 => {'kL'  => 'Kl'  },
+      1652 => {'hIJ' => 'HIj' },
+   #- 1664 => {'bC'  => 'Bc'  },
+   #- 1674 => {'aB'  => 'Ab'  },
+      1677 => {'iJ'  => 'Ij'  },
+      1698 => {'jK'  => 'Jk'  },
+   #! 1705 => {'Kl'  => 'kL'  },
+      1709 => {'aB'  => 'Ab', 'jK' =>'Jk' },
+      1727 => {'cC'  => 'Cc'  },
+      1730 => {'Cd'  => 'cD'  },
+   #! 1735 => 『英祖實録』巻38 10年4月10日(乙卯) 是以我國明年曆與彼國所同者,只是置閏與月朔大小,而節候則日時皆不同
+      1751 => {'Jk'  => 'jK'  },
+      1778 => {'Cd'  => 'cD'  },
+      1841 => {'kL'  => 'Kl'  }
+    })
+  end
+  class TM::CalendarEra
+    #
+    # 朝鮮半島
+    #
+    Korean = [self, [
+      "locale:[=ja:, en=en:, alias]",
+      "area:[朝鮮=ja:%%<元号>#%.<朝鮮半島>,Korea=en:Regnal_year#Korean]",
+      [self,
+	"period:[高句麗]",
+	["[<東明王>=ja:%%<東明聖王>]1",	"@F",	"name=[東明王=ja:%%<東明聖王>];-36^Korean"],
+	["[<瑠璃王>=ja:%%<瑠璃明王>]1",	"@A",	"name=[瑠璃王=ja:%%<瑠璃明王>];-18"],
+	["[<大武神王>]1",		"@A", "name=[大武神王];018"],
+	["[<閔中王>]1",			"@A",	"name=[閔中王];044"],
+	["[<慕本王>]1",			"@A",	"name=[慕本王];048"],
+	["[<太祖王>=ja:%%<太祖大王>]1",	"@A",	"name=[太祖王=ja:%%<太祖大王>];053"],
+	["[<次大王>]1",			"@A",	"name=[次大王];146"],
+	["[<新大王>]1",			"@A",	"name=[新大王];165"],
+	["[<故国川王>]1",		"@A", "name=[故国川王];179"],
+	["[<山上王>]1",			"@A",	"name=[山上王];197"],						# 朝鮮史ではこれ以降を実在とする
+	["[<東川王>]1",			"@A",	"name=[東川王];227"],
+	["[<中川王>]1",			"@A",	"name=[中川王];248"],
+	["[<西川王>]1",			"@A",	"name=[西川王];270"],
+	["[<烽上王>]1",			"@A",	"name=[烽上王];292"],
+	["[<美川王>]1",			"@A",	"name=[美川王];300"],
+	["[<故国原王>]1",		"@A", "name=[故国原王];331"],
+	["[<小獣林王>]1",		"@A", "name=[小獣林王];371"],
+	["[<故国壌王>]1",		"@A", "name=[故国壌王];384"],						# 朝鮮史では末年に？
+	["[永楽=ja:%%<永楽_(高句麗)>]1","@A",	"name=[広開土王=ja:%%<好太王>];391"],				# コンサイスでは翌年が元年
+	["[<長寿王>]1",			"@A",	"name=[長寿王];413.01.01", "492.01.01"],			# 朝鮮史では元年に？
+	["[延寿=ja:%%<延寿_(高句麗)>]1","",		      "451"],						# Wikipedia
+	["[<文咨王>=ja:%%<文咨明王>]1",	"@A",	"name=[文咨王=ja:%%<文咨明王>];492.01.01"],
+	["[<安臧王>]1",			"@A",	"name=[安臧王];519"],
+	["[<安原王>]1",			"@A",	"name=[安原王];531"],
+	["[<陽原王>]1",			"@A",	"name=[陽原王];545"],
+	["[<平原王>]1",			"@A",	"name=[平原王];559"],
+	["[<嬰陽王>]1",			"@A",	"name=[嬰陽王];590"],
+	["[<栄留王>]1",			"@A",	"name=[栄留王];618"],
+	["[<宝臧王>=ja:%%<宝蔵王>]1","@A","name=[宝臧王=ja:%%<宝蔵王>];642", "668.09.12="],			# 資治通鑑による、癸巳滅亡
+     ],
+      [self,
+	"period:[百済]",
+	["[<温祚王>]1",				"@F",	"name=[温祚王];-17^Korean"],
+	["[<多婁王>]1",				"@A",	"name=[多婁王];028"],
+	["[<己婁王>]1",				"@A",	"name=[己婁王];077"],
+	["[<蓋婁王>]1",				"@A",	"name=[蓋婁王];128"],					# 朝鮮史では127が末年
+	["[<肖古王>]1",				"@A",	"name=[肖古王];166"],
+	["[<仇首王>]1",				"@A",	"name=[仇首王];214"],
+	["[<沙伴王>]1",				"@A",	"name=[沙伴王];234"],
+	["[<古爾王>=ja:%%<古尓王>]1",		"@A",	"name=[古爾王=ja:%%<古尓王>];234"],
+	["[<責稽王>]1",				"@A",	"name=[責稽王];286"],
+	["[<汾西王>]1",				"@A",	"name=[汾西王];298"],
+	["[<比流王>]1",				"@A",	"name=[比流王];304"],					# 朝鮮史ではこれ以後を実在とする
+	["[<契王>]1",				"@A",	  "name=[契王];344"],
+	["[<近肖古王>]1",			"@A", "name=[近肖古王];346"],
+	["[<近仇首王>]1",			"@A", "name=[近仇首王];375"],
+	["[<枕流王>]1",				"@A",	"name=[枕流王];384"],
+	["[<辰斯王>]1",				"@A",	"name=[辰斯王];385"],
+	["[<阿莘王>=ja:%%<阿シン王>]1",		"@A",	"name=[阿莘王=ja:%%<阿シン王>];392"],
+	["[<腆支王>]1",				"@A",	"name=[腆支王];405"],
+	["[<久爾辛王>=ja:%%<久尓辛王>]1",	"@A", "name=[久爾辛王=ja:%%<久尓辛王>];420"],
+	["[<毗有王>=ja:%%<毘有王>]1",		"@A",	"name=[毗有王=ja:%%<毘有王>];427"],
+	["[<蓋鹵王>]1",				"@A",	"name=[蓋鹵王];455"],
+	["[<文周王>]1",				"@A",	"name=[文周王];475"],
+	["[<三斤王>]1",				"@A",	"name=[三斤王];477"],					# 朝鮮史では末年に？
+	["[<東城王>]1",				"@A",	"name=[東城王];479"],
+	["[<武寧王>]1",				"@A",	"name=[武寧王];501"],
+	["[<聖王>=ja:%%<聖王_(百済)>]1",	"@A",	   "name=[聖王=ja:%%<聖王_(百済)];523.05.07"],		# 武寧王墓誌による
+	["[<威徳王>=ja:%%<威徳王_(百済)>]1",	"@A", "name=[威徳王=ja:%%<威徳王_(百済)>];554"],
+	["[<恵王>=ja:%%<恵王_(百済)>]1",	"@A",	  "name=[恵王=ja:%%<恵王_(百済)>];598"],
+	["[<法王>=ja:%%<法王_(百済)>]1",	"@A",	  "name=[法王=ja:%%<法王_(百済)>];599"],
+	["[<武王>=ja:%%<聖王_(百済)>]1",	"@A",	  "name=[武王=ja:%%<武王_(百済)>];600"],
+	["[<義慈王>]1",				"@A",			   "name=[義慈王];641", "660.08="]	# 資治通鑑による
+      ],
+      [self,
+	"period:[新羅]",
+	["[<赫居世>=ja:%%<赫居世居西干>]1",	"@F", "name=[赫居世=ja:%%<赫居世居西干>];-56^^Korean"],
+	["[<南解王>=ja:%%<南解次次雄>]1",	"@A",	"name=[南解王=ja:%%<南解次次雄>];004"],
+	["[<儒理王>=ja:%%<儒理尼師今>]1",	"@A",	"name=[儒理王=ja:%%<儒理尼師今>];024"],
+	["[<脱解王>=ja:%%<脱解尼師今>]1",	"@A",	"name=[脱解王=ja:%%<脱解尼師今>];057"],
+	["[<婆娑王>=ja:%%<婆娑尼師今>]1",	"@A",	"name=[婆娑王=ja:%%<婆娑尼師今>];080"],
+	["[<祇摩王>=ja:%%<祇摩尼師今>]1",	"@A",	"name=[祇摩王=ja:%%<祇摩尼師今>];112"],
+	["[<逸聖王>=ja:%%<逸聖尼師今>]1",	"@A",	"name=[逸聖王=ja:%%<逸聖尼師今>];134"],
+	["[<阿達羅王>=ja:%%<阿達羅尼師今>]1",  "@A","name=[阿達羅王=ja:%%<阿達羅尼師今>];154"],
+	["[<伐休王>=ja:%%<伐休尼師今>]1",	"@A",	"name=[伐休王=ja:%%<伐休尼師今>];184"],
+	["[<奈解王>=ja:%%<奈解尼師今>]1",	"@A",	"name=[奈解王=ja:%%<奈解尼師今>];196"],
+	["[<助賁王>=ja:%%<助賁尼師今>]1",	"@A",	"name=[助賁王=ja:%%<助賁尼師今>];230"],
+	["[<沾解王>=ja:%%<沾解尼師今>]1",	"@A",	"name=[沾解王=ja:%%<沾解尼師今>];247"],			# 朝鮮史では261が末年
+	["[<味鄒王>=ja:%%<味鄒尼師今>]1",	"@A",	"name=[味鄒王=ja:%%<味鄒尼師今>];262"],
+	["[<儒礼王>=ja:%%<儒礼尼師今>]1",	"@A",	"name=[儒礼王=ja:%%<儒礼尼師今>];284"],
+	["[<基臨王>=ja:%%<基臨尼師今>]1",	"@A",	"name=[基臨王=ja:%%<基臨尼師今>];298"],
+	["[<訖解王>=ja:%%<訖解尼師今>]1",	"@A",	"name=[訖解王=ja:%%<訖解尼師今>];310"],			# コンサイスはこれ以前の在位を記さない
+	["[<奈勿王>=ja:%%<奈勿尼師今>]1",	"@A",	"name=[奈勿王=ja:%%<奈勿尼師今>];356"],			# 朝鮮史ではこれ以後を実在とする
+	["[<実聖王>=ja:%%<実聖尼師今>]1",	"@A",	"name=[実聖王=ja:%%<実聖尼師今>];402"],
+	["[<訥祇王>=ja:%%<訥祇麻立干>]1",	"@A",	"name=[訥祇王=ja:%%<訥祇麻立干>];417"],
+	["[<慈悲王>=ja:%%<慈悲麻立干>]1",	"@A",	"name=[慈悲王=ja:%%<慈悲麻立干>];458"],
+	["[<炤知王>=ja:%%<ショウ知麻立干>]1", "@A", "name=[炤知王=ja:%%<ショウ知麻立干>];479"],
+	["[<智証王>=ja:%%<智証麻立干>]1",	"@A",	"name=[智証王=ja:%%<智証麻立干>];500"],
+	["[<法興王>]1",	"@A",	"name=[法興王];514"],
+	["[<真興王>]1",	"@A",	"name=[真興王];540"],
+	["[<真智王>]1",	"@A",	"name=[真智王];576"],
+	["[<真平王>]1",	"@A",	"name=[真平王];579"],
+	["[<善徳女王>]1","@A","name=[善徳女王];632"],
+	["[<真徳女王>]1","@A","name=[真徳女王];647"],
+	["[<武烈王>]1",	"@A",	"name=[武烈王];654"],
+	["[<文武王>]1",	"@A",	"name=[文武王];661"],
+	["[<神文王>]1",	"@A",	"name=[神文王];681"],
+	["[<孝昭王>]1",	"@A",	"name=[孝昭王];692"],
+	["[<聖徳王>]1",	"@A",	"name=[聖徳王];702"],
+	["[<孝成王>=ja:%%<孝成王_(新羅)>]1", "@A", "name=[孝成王=ja:%%<孝成王_(新羅)>];737"],
+	["[<景徳王>]1",	"@A",	"name=[景徳王];742"],
+	["[<恵恭王>]1",	"@A",	"name=[恵恭王];765"],
+	["[<宣徳王>]1",	"@A",	"name=[宣徳王];780"],
+	["[<元聖王>]1",	"@A",	"name=[元聖王];785"],
+	["[<昭聖王>]1",	"@A",	"name=[昭聖王];799.01.01"],
+	["[<哀荘王>]1",	"@A",	"name=[哀荘王];800"],
+	["[<憲徳王>]1",	"@A",	"name=[憲徳王];809"],
+	["[<興徳王>]1",	"@A",	"name=[興徳王];826"],
+	["[<僖康王>]1",	"@A",	"name=[僖康王];836"],
+	["[<閔哀王>]1",	"@A",	"name=[閔哀王];838"],
+	["[<神武王>]1",	"@A",	"name=[神武王];839"],
+	["[<文聖王>]1",	"@A",	"name=[文聖王];839"],
+	["[<憲安王>]1",	"@A",	"name=[憲安王];857"],
+	["[<景文王>]1",	"@A",	"name=[景文王];861"],
+	["[<憲康王>]1",	"@A",	"name=[憲康王];875"],
+	["[<定康王>]1",	"@A",	"name=[定康王];886"],
+	["[<真聖女王>]1","@A","name=[真聖女王];887"],			# 東洋史辞典のみ１年遅
+	["[<孝恭王>]1",	"@A",	"name=[孝恭王];897"],			#        〃
+	["[<神徳王>]1",	"@A",	"name=[神徳王];912"],			#        〃
+	["[<景明王>]1",	"@A",	"name=[景明王];917"],
+	["[<景哀王>]1",	"@A",	"name=[景哀王];924"],
+	["[<敬順王>]1",	"@A",	"name=[敬順王];927", "935="],
+        [self,
+	  "period:[年号=]",
+	  ["[建元=ja:%%<建元_(新羅)>]1",	"",	"name=[法興王];536^Korean"],
+	  ["[開国=ja:%%<開国_(新羅)>]1",	"",	"name=[真興王];551"],
+	  ["[大昌,alias:太昌=ja:%%<大昌>]1",	"",		      "568"],
+	  ["[鴻済]1",				"",		      "572"],
+	  ["[建福=ja:%%<建福_(新羅)>]1",	"",	"name=[真平王];584"],
+	  ["[仁平=ja:%%<仁平_(新羅)>]1",	"",   "name=[善徳女王];634"],
+	  ["[太和=ja:%%<太和_(新羅)>]1",	"@A", "name=[真徳女王];647", "649="]
+        ],
+        [self,
+	  "period:[長安=zh:%%<長安國>]", # １月で滅亡と仮定
+	  ["[慶雲=ja:%%<慶雲_(金憲昌)>]1",	"@F",	"name=[金憲昌=zh:%%<金憲昌>];822.03^^Korean", "822.03="]
+        ]
+      ],
+      [self,
+	"period:[後百済]",		# 三国遺事による
+	["[<甄萱>]1",	"@F",			 "name=[甄萱];900^Korean", "936.09.08="]
+      ],
+      [self,
+	"period:[後高句麗]",
+	["[<弓裔>=ja:%%<弓裔>]1",	"@F",	 "name=[弓裔];901^Korean", "904"],
+	[self,
+	  "period:[摩震=ja:%%<後高句麗>]",
+	  ["[武泰=ja:%%<武泰_(後高句麗)>]1", "", "name=[弓裔];904^Korean"],
+	  ["[聖冊]1",	"",				     "905", "911"]
+	],
+	[self,
+	  "period:[泰封=ja:%%<後高句麗>]",
+	  ["[水徳万歳]1",		"",	 "name=[弓裔];911^Korean"],
+	  ["[政開]1",			"",		     "914", "918.06"]
+	]
+      ],
+      [self,
+	"period:[高麗]",
+	["[天授=ja:%%<天授_(高麗)>]1",		"@F",	"name=[太祖=ja:%%<太祖_(高麗王)>];918.06^Korean"],	# 三国遺事による
+	["[<太祖>=ja:%%<太祖_(高麗王)>]16",	"",					 "933"],
+	["[<恵宗>=ja:%%<恵宗_(高麗王)>]1",	"@A",	"name=[恵宗=ja:%%<恵宗_(高麗王)>];944"],
+	["[<定宗>=ja:%%<定宗_(高麗王)>]1",	"@A",	"name=[定宗=ja:%%<定宗_(高麗王)>];946"],
+	["[光徳=ja:%%<光徳_(高麗)>]1",		"@A",	"name=[光宗=ja:%%<光宗_(高麗王)>];950"],
+	["[<光宗>=ja:%%<光宗_(高麗王)>]3",	"@A",					 "952"],
+      # ["[峻豊]1",				"@A",					 "962.01.01"],		# こよみ読み解き事典による Wikipedia で否定
+	["[<景宗>=ja:%%<景宗_(高麗王)>]1",	"@A",	"name=[景宗=ja:%%<景宗_(高麗王)>];976"],
+	["[<成宗>=ja:%%<成宗_(高麗王)>]1",	"@A",	"name=[成宗=ja:%%<成宗_(高麗王)>];982"],
+	["[<穆宗>=ja:%%<穆宗_(高麗王)>]1",	"@A",	"name=[穆宗=ja:%%<穆宗_(高麗王)>];998"],
+	["[<顕宗>=ja:%%<顕宗_(高麗王)>]1",	"@A",	"name=[顕宗=ja:%%<顕宗_(高麗王)>];1010"],
+	["[<徳宗>=ja:%%<徳宗_(高麗王)>]1",	"@A",	"name=[徳宗=ja:%%<徳宗_(高麗王)>];1032"],
+	["[<靖宗>=ja:%%<靖宗_(高麗王)>]1",	"@A",	"name=[靖宗=ja:%%<靖宗_(高麗王)>];1035"],
+	["[<文宗>=ja:%%<文宗_(高麗王)>]1",	"@A",	"name=[文宗=ja:%%<文宗_(高麗王)>];1047"],
+	["[<順宗>=ja:%%<順宗_(高麗王)>]1",	"@A",	"name=[順宗=ja:%%<順宗_(高麗王)>];1083"],
+	["[<宣宗>=ja:%%<宣宗_(高麗王)>]1",	"@A",	"name=[宣宗=ja:%%<宣宗_(高麗王)>];1084"],
+	["[<献宗>=ja:%%<献宗_(高麗王)>]1",	"@A",	"name=[献宗=ja:%%<献宗_(高麗王)>];1095"],
+	["[<粛宗>=ja:%%<粛宗_(高麗王)>]1",	"@A",	"name=[粛宗=ja:%%<粛宗_(高麗王)>];1096"],
+	["[<睿宗>=ja:%%<睿宗_(高麗王)>]1",	"@A",	"name=[睿宗=ja:%%<睿宗_(高麗王)>];1106"],
+	["[<仁宗>=ja:%%<仁宗_(高麗王)>]1",	"@A",	"name=[仁宗=ja:%%<仁宗_(高麗王)>];1123"],
+	["[<毅宗>=ja:%%<毅宗_(高麗王)>]1",	"@A",	"name=[毅宗=ja:%%<毅宗_(高麗王)>];1147"],
+	["[<明宗>=ja:%%<明宗_(高麗王)>]0",	"@A",	"name=[明宗=ja:%%<明宗_(高麗王)>];1170.08"],		# 朝鮮史による
+	["[<神宗>=ja:%%<神宗_(高麗王)>]1",	"@A",	"name=[神宗=ja:%%<神宗_(高麗王)>];1198"],
+	["[<熙宗>=ja:%%<熙宗_(高麗王)>]1",	"@A",	"name=[熙宗=ja:%%<熙宗_(高麗王)>];1205"],
+	["[<康宗>=ja:%%<康宗_(高麗王)>]1",	"@A",	"name=[康宗=ja:%%<康宗_(高麗王)>];1212"],
+	["[<高宗>=ja:%%<高宗_(高麗王)>]1",	"@A",	"name=[高宗=ja:%%<高宗_(高麗王)>];1214"],
+	["[<元宗>=ja:%%<元宗_(高麗王)>]1",	"@A",	"name=[元宗=ja:%%<元宗_(高麗王)>];1260"],
+	["[<忠烈王>]1",				"@A",			   "name=[忠烈王];1275"],
+	["[<忠宣王>]1",				"@A",			   "name=[忠宣王];1298.01"],		# 朝鮮史による
+	["[<忠烈王･再>=ja:%%<忠烈王>]24",	"@A",			   "name=[忠烈王];1298.08"],		#      〃
+	["[<忠宣王･再>=ja:%%<忠宣王>]1",	"@A",			   "name=[忠宣王];1309"],
+	["[<忠粛王>]1",				"@A",			   "name=[忠粛王];1314"],
+	["[<忠恵王>]1",				"@A",			   "name=[忠恵王];1331"],
+	["[<忠粛王･再>=ja:%%<忠粛王>]1",	"@A",			   "name=[忠粛王];1332"],
+	["[<忠恵王･再>=ja:%%<忠恵王>]1",	"@A",			   "name=[忠恵王];1340"],
+	["[<忠穆王>]1",				"@A",			   "name=[忠穆王];1345"],
+	["[<忠定王>]1",				"@A",			   "name=[忠定王];1349.01.01"],
+	["[<恭愍王>]1",				"@A",			   "name=[恭愍王];1352"],
+	["[<禑王>=ja:%%<王ウ_(高麗王)>]1",	"@A",   "name=[禑王=ja:%%<王ウ_(高麗王)>];1375"],
+	["[<昌王>=ja:%%<王昌_(高麗王)>]1",	"@A",   "name=[昌王=ja:%%<王昌_(高麗王)>];1389"],
+	["[<恭譲王>]1",				"@A",		   "name=[恭譲王];1390", "1392.07.17"]		# コンサイスによる
+      ],
+      [self,
+	"period:[朝鮮=ja:%%<李氏朝鮮>]",
+	["[<太祖>=ja:%%<李成桂>]1.07.17",	"@F",	       "name=[太祖=ja:%%<李成桂>];1392-07-17^Korean"],	# コンサイスによる
+	["[<定宗>=ja:%%<定宗_(朝鮮王)>]1",	"@A",	"name=[定宗=ja:%%<定宗_(朝鮮王)>];1399"],
+	["[<太宗>=ja:%%<太宗_(朝鮮王)>]1",	"@A",	"name=[太宗=ja:%%<太宗_(朝鮮王)>];1401"],
+	["[<世宗>=ja:%%<世宗_(朝鮮王)>]1",	"@A",	"name=[世宗=ja:%%<世宗_(朝鮮王)>];1419"],
+	["[<文宗>=ja:%%<文宗_(朝鮮王)>]1",	"@A",	"name=[文宗=ja:%%<文宗_(朝鮮王)>];1451"],
+	["[<端宗>=ja:%%<端宗_(朝鮮王)>]1",	"@A",	"name=[端宗=ja:%%<端宗_(朝鮮王)>];1453"],
+	["[<世祖>=ja:%%<世祖_(朝鮮王)>]1",	"@A",	"name=[世祖=ja:%%<世祖_(朝鮮王)>];1455"],
+	["[<睿宗>=ja:%%<睿宗_(朝鮮王)>]1",	"@A",	"name=[睿宗=ja:%%<睿宗_(朝鮮王)>];1469"],
+	["[<成宗>=ja:%%<成宗_(朝鮮王)>]1",	"@A",	"name=[成宗=ja:%%<成宗_(朝鮮王)>];1470"],
+	["[<燕山君>]1",				"@A",			   "name=[燕山君];1495"],
+	["[<中宗>=ja:%%<中宗_(朝鮮王)>]1",	"@A",	"name=[中宗=ja:%%<中宗_(朝鮮王)>];1506"],
+	["[<仁宗>=ja:%%<仁宗_(朝鮮王)>]1",	"@A",	"name=[仁宗=ja:%%<仁宗_(朝鮮王)>];1545"],
+	["[<明宗>=ja:%%<明宗_(朝鮮王)>]1",	"@A",	"name=[明宗=ja:%%<明宗_(朝鮮王)>];1546"],
+	["[<宣祖>]1",				"@A",			     "name=[宣祖];1568"],
+	["[<光海君>]1",				"@A",			   "name=[光海君];1609"],
+	["[<仁祖>]1",				"@A",			     "name=[仁祖];1623"],
+	["[<孝宗>=ja:%%<孝宗_(朝鮮王)>]1",	"@A",	"name=[孝宗=ja:%%<孝宗_(朝鮮王)>];1650"],
+	["[<顕宗>=ja:%%<顕宗_(朝鮮王)>]1",	"@A",	"name=[顕宗=ja:%%<顕宗_(朝鮮王)>];1660"],
+	["[<粛宗>=ja:%%<粛宗_(朝鮮王)>]1",	"@A",	"name=[粛宗=ja:%%<粛宗_(朝鮮王)>];1675"],
+	["[<景宗>=ja:%%<景宗_(朝鮮王)>]1",	"@A",	"name=[景宗=ja:%%<景宗_(朝鮮王)>];1721"],
+	["[<英祖>=ja:%%<英祖_(朝鮮王)>]1",	"@A",	"name=[英祖=ja:%%<英祖_(朝鮮王)>];1725"],		# コンサイスでは英宗
+	["[<正祖>]1",				"@A",			     "name=[正祖];1777"],
+	["[<純祖>]1",				"@A",			     "name=[純祖];1801"],
+	["[<憲宗>=ja:%%<憲宗_(朝鮮王)>]1",	"@A",	"name=[憲宗=ja:%%<憲宗_(朝鮮王)>];1835"],
+	["[<哲宗>=ja:%%<哲宗_(朝鮮王)>]1",	"@A",	"name=[哲宗=ja:%%<哲宗_(朝鮮王)>];1850"],
+	["[<高宗>=ja:%%<高宗_(朝鮮王)>]1",	"@A",	"name=[高宗=ja:%%<高宗_(朝鮮王)>];1864"],
+	["[建陽]1",				"",					 "1896.01.01^Gregorian?note=Chinese",	# 朝鮮史による
+	    "1897.10.01"]
+      ],
+      [self,
+	"period:[大韓帝国]",
+	["[光武=ja:%%<光武_(元号)>]1",	"@F",	"name=[高宗=ja:%%<高宗_(朝鮮王)>];1897.10.01^Gregorian?note=Chinese"],
+	["[隆熙]1",			"@A",	"name=[純宗=ja:%%<純宗_(朝鮮王)>];1907.07.19", "1910.08.29="]
+      ]
+    ]]
+  end
+end