when_exe 0.4.2 → 0.4.3

data/lib/when_exe/region/japanese/nihon_shoki.rb

@@ -1,70 +1,70 @@
-# -*- 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
-
-class When::TM::CalendarEra
-
-  #
-  # 皇紀
-  #
-  NihonKoki = [self, [
-    "locale:[=ja:, en=en:, alias]",
-    "area:[日本]",
-    ["[皇紀=ja:%%<神武天皇即位紀元>]1",		"@A",	"-659-01-01^JapaneseTwin::平朔儀鳳暦"],
-    ["[皇紀=ja:%%<神武天皇即位紀元>]1114",	"@CR",	"0454-01-01^Japanese"],
-    ["[皇紀=ja:%%<神武天皇即位紀元>]2533",	"@CR",	"1873-01-01^Gregorian"]
-  ]]
-
-  #
-  # 日本書紀暦日
-  #
-  NihonShoki = [self, [
-    "locale:[=ja:, en=en:, alias]",
-    "period:[日本(日本書紀)=ja:%%<日本書紀>, (Nihon_Shoki)=en:Nihon_Shoki]",
-    ["[<神武>=ja:%%<神武天皇>]1",	"@A",	"name=[神武=ja:%%<神武天皇>];-659-01-01^JapaneseTwin::平朔儀鳳暦"],
-    ["[<綏靖>=ja:%%<綏靖天皇>]1",	"@A",	"name=[綏靖=ja:%%<綏靖天皇>];-580-01-08"],
-    ["[<安寧>=ja:%%<安寧天皇>]0",	"@A",	"name=[安寧=ja:%%<安寧天皇>];-548-07-03"],
-    ["[<懿徳>=ja:%%<懿徳天皇>]1",	"@A",	"name=[懿徳=ja:%%<懿徳天皇>];-509-02-04"],
-    ["[<孝昭>=ja:%%<孝昭天皇>]1",	"@A",	"name=[孝昭=ja:%%<孝昭天皇>];-474-01-09"],
-    ["[<孝安>=ja:%%<孝安天皇>]1",	"@A",	"name=[孝安=ja:%%<孝安天皇>];-391-01-07"],
-    ["[<孝霊>=ja:%%<孝霊天皇>]1",	"@A",	"name=[孝霊=ja:%%<孝霊天皇>];-289-01-12"],
-    ["[<孝元>=ja:%%<孝元天皇>]1",	"@A",	"name=[孝元=ja:%%<孝元天皇>];-213-01-14"],
-    ["[<開化>=ja:%%<開化天皇>]0",	"@A",	"name=[開化=ja:%%<開化天皇>];-157-11-12"],
-    ["[<崇神>=ja:%%<崇神天皇>]1",	"@A",	"name=[崇神=ja:%%<崇神天皇>];-096-01-13"],
-    ["[<垂仁>=ja:%%<垂仁天皇>]1",	"@A",	"name=[垂仁=ja:%%<垂仁天皇>];-028-01-02"],
-    ["[<景行>=ja:%%<景行天皇>]1",	"@A",	"name=[景行=ja:%%<景行天皇>];0071-07-11"],
-    ["[<成務>=ja:%%<成務天皇>]1",	"@A",	"name=[成務=ja:%%<成務天皇>];0131-01-05"],
-    ["[<仲哀>=ja:%%<仲哀天皇>]1",	"@A",	"name=[仲哀=ja:%%<仲哀天皇>];0192-01-11"],
-    ["[<神功皇后>=ja:%%<神功皇后>]0",  "@A","name=[神功皇后=ja:%%<神功皇后>];0200-02-07"],
-    ["[<応神>=ja:%%<応神天皇>]1",	"@A",	"name=[応神=ja:%%<応神天皇>];0270-01-01"],
-    ["[<仁徳>=ja:%%<仁徳天皇>]1",	"@A",	"name=[仁徳=ja:%%<仁徳天皇>];0313-01-03"],
-    ["[<履中>=ja:%%<履中天皇>]1",	"@A",	"name=[履中=ja:%%<履中天皇>];0400-02-01"],
-    ["[<反正>=ja:%%<反正天皇>]1",	"@A",	"name=[反正=ja:%%<反正天皇>];0406-01-02"],
-    ["[<允恭>=ja:%%<允恭天皇>]1",	"@A",	"name=[允恭=ja:%%<允恭天皇>];0412-12"],
-    ["[<安康>=ja:%%<安康天皇>]0",	"@A",	"name=[安康=ja:%%<安康天皇>];0453-12-14^ChineseTwin::元嘉暦"],
-    ["[<雄略>=ja:%%<雄略天皇>]0",	"@A",	"name=[雄略=ja:%%<雄略天皇>];0456-11-13"],
-    ["[<清寧>=ja:%%<清寧天皇>]1",	"@A",	"name=[清寧=ja:%%<清寧天皇>];0480-01-15"],
-    ["[<顕宗>=ja:%%<顕宗天皇>]1",	"@A",	"name=[顕宗=ja:%%<顕宗天皇>];0485-01-01"],
-    ["[<仁賢>=ja:%%<仁賢天皇>]1",	"@A",	"name=[仁賢=ja:%%<仁賢天皇>];0488-01-05"],
-    ["[<武烈>=ja:%%<武烈天皇>]0",	"@A",	"name=[武烈=ja:%%<武烈天皇>];0498-12"],
-    ["[<継体>=ja:%%<継体天皇>]1",	"@A",	"name=[継体=ja:%%<継体天皇>];0507-02-04"],
-    ["[<安閑>=ja:%%<安閑天皇>]1",	"@A",	"name=[安閑=ja:%%<安閑天皇>];0534"],
-    ["[<宣化>=ja:%%<宣化天皇>]0",	"@A",	"name=[宣化=ja:%%<宣化天皇>];0535-12"],
-    ["[<欽明>=ja:%%<欽明天皇>]0",	"@A",	"name=[欽明=ja:%%<欽明天皇>];0539-12-05"],
-    ["[<敏達>=ja:%%<敏達天皇>]1",	"@A",	"name=[敏達=ja:%%<敏達天皇>];0572-04-03"],
-    ["[<用明>=ja:%%<用明天皇>]0",	"@A",	"name=[用明=ja:%%<用明天皇>];0585-09-05"],
-    ["[<崇峻>=ja:%%<崇峻天皇>]0",	"@A",	"name=[崇峻=ja:%%<崇峻天皇>];0587-08-02"],
-    ["[<推古>=ja:%%<推古天皇>]0",	"@A",	"name=[推古=ja:%%<推古天皇>];0592-12-08"],
-    ["[<舒明>=ja:%%<舒明天皇>]1",	"@A",	"name=[舒明=ja:%%<舒明天皇>];0629-01-04"],
-    ["[<皇極>=ja:%%<皇極天皇>]1",	"@A",	"name=[皇極=ja:%%<皇極天皇>];0642-01-15"],
-    ["[大化]1",				"@A",	"name=[孝徳=ja:%%<孝徳天皇>];0645-06-19"],
-    ["[白雉]1",				"@FE",			"	     0650-02-15"],
-    ["[<斉明>=ja:%%<皇極天皇>]1",	"@A",	"name=[斉明=ja:%%<皇極天皇>];0655-01-03"],
-    ["[<天智>=ja:%%<天智天皇>]1",	"@A",	"name=[天智=ja:%%<天智天皇>];0662-01-01"],
-    ["[<天武>=ja:%%<天武天皇>]1",	"@A",	"name=[天武=ja:%%<天武天皇>];0672-01-01"],
-    ["[朱鳥]1",			"",					    "0686-07-20", "0687-01-01"]
-  ]]
-end
+# -*- coding: utf-8 -*-
+=begin
+  Copyright (C) 2011-2014 Takashi SUGA
+
+  You may use and/or modify this file according to the license described in the LICENSE.txt file included in this archive.
+=end
+
+class When::TM::CalendarEra
+
+  #
+  # 皇紀
+  #
+  NihonKoki = [self, [
+    "locale:[=ja:, en=en:, alias]",
+    "area:[日本]",
+    ["[皇紀=ja:%%<神武天皇即位紀元>]1",		"@A",	"-659-01-01^JapaneseTwin::平朔儀鳳暦"],
+    ["[皇紀=ja:%%<神武天皇即位紀元>]1114",	"@CR",	"0454-01-01^Japanese"],
+    ["[皇紀=ja:%%<神武天皇即位紀元>]2533",	"@CR",	"1873-01-01^Gregorian"]
+  ]]
+
+  #
+  # 日本書紀暦日
+  #
+  NihonShoki = [self, [
+    "locale:[=ja:, en=en:, alias]",
+    "period:[日本(日本書紀)=ja:%%<日本書紀>, (Nihon_Shoki)=en:Nihon_Shoki]",
+    ["[<神武>=ja:%%<神武天皇>]1",	"@A",	"name=[神武=ja:%%<神武天皇>];-659-01-01^JapaneseTwin::平朔儀鳳暦"],
+    ["[<綏靖>=ja:%%<綏靖天皇>]1",	"@A",	"name=[綏靖=ja:%%<綏靖天皇>];-580-01-08"],
+    ["[<安寧>=ja:%%<安寧天皇>]0",	"@A",	"name=[安寧=ja:%%<安寧天皇>];-548-07-03"],
+    ["[<懿徳>=ja:%%<懿徳天皇>]1",	"@A",	"name=[懿徳=ja:%%<懿徳天皇>];-509-02-04"],
+    ["[<孝昭>=ja:%%<孝昭天皇>]1",	"@A",	"name=[孝昭=ja:%%<孝昭天皇>];-474-01-09"],
+    ["[<孝安>=ja:%%<孝安天皇>]1",	"@A",	"name=[孝安=ja:%%<孝安天皇>];-391-01-07"],
+    ["[<孝霊>=ja:%%<孝霊天皇>]1",	"@A",	"name=[孝霊=ja:%%<孝霊天皇>];-289-01-12"],
+    ["[<孝元>=ja:%%<孝元天皇>]1",	"@A",	"name=[孝元=ja:%%<孝元天皇>];-213-01-14"],
+    ["[<開化>=ja:%%<開化天皇>]0",	"@A",	"name=[開化=ja:%%<開化天皇>];-157-11-12"],
+    ["[<崇神>=ja:%%<崇神天皇>]1",	"@A",	"name=[崇神=ja:%%<崇神天皇>];-096-01-13"],
+    ["[<垂仁>=ja:%%<垂仁天皇>]1",	"@A",	"name=[垂仁=ja:%%<垂仁天皇>];-028-01-02"],
+    ["[<景行>=ja:%%<景行天皇>]1",	"@A",	"name=[景行=ja:%%<景行天皇>];0071-07-11"],
+    ["[<成務>=ja:%%<成務天皇>]1",	"@A",	"name=[成務=ja:%%<成務天皇>];0131-01-05"],
+    ["[<仲哀>=ja:%%<仲哀天皇>]1",	"@A",	"name=[仲哀=ja:%%<仲哀天皇>];0192-01-11"],
+    ["[<神功皇后>=ja:%%<神功皇后>]0",  "@A","name=[神功皇后=ja:%%<神功皇后>];0200-02-07"],
+    ["[<応神>=ja:%%<応神天皇>]1",	"@A",	"name=[応神=ja:%%<応神天皇>];0270-01-01"],
+    ["[<仁徳>=ja:%%<仁徳天皇>]1",	"@A",	"name=[仁徳=ja:%%<仁徳天皇>];0313-01-03"],
+    ["[<履中>=ja:%%<履中天皇>]1",	"@A",	"name=[履中=ja:%%<履中天皇>];0400-02-01"],
+    ["[<反正>=ja:%%<反正天皇>]1",	"@A",	"name=[反正=ja:%%<反正天皇>];0406-01-02"],
+    ["[<允恭>=ja:%%<允恭天皇>]1",	"@A",	"name=[允恭=ja:%%<允恭天皇>];0412-12"],
+    ["[<安康>=ja:%%<安康天皇>]0",	"@A",	"name=[安康=ja:%%<安康天皇>];0453-12-14^ChineseTwin::元嘉暦"],
+    ["[<雄略>=ja:%%<雄略天皇>]0",	"@A",	"name=[雄略=ja:%%<雄略天皇>];0456-11-13"],
+    ["[<清寧>=ja:%%<清寧天皇>]1",	"@A",	"name=[清寧=ja:%%<清寧天皇>];0480-01-15"],
+    ["[<顕宗>=ja:%%<顕宗天皇>]1",	"@A",	"name=[顕宗=ja:%%<顕宗天皇>];0485-01-01"],
+    ["[<仁賢>=ja:%%<仁賢天皇>]1",	"@A",	"name=[仁賢=ja:%%<仁賢天皇>];0488-01-05"],
+    ["[<武烈>=ja:%%<武烈天皇>]0",	"@A",	"name=[武烈=ja:%%<武烈天皇>];0498-12"],
+    ["[<継体>=ja:%%<継体天皇>]1",	"@A",	"name=[継体=ja:%%<継体天皇>];0507-02-04"],
+    ["[<安閑>=ja:%%<安閑天皇>]1",	"@A",	"name=[安閑=ja:%%<安閑天皇>];0534"],
+    ["[<宣化>=ja:%%<宣化天皇>]0",	"@A",	"name=[宣化=ja:%%<宣化天皇>];0535-12"],
+    ["[<欽明>=ja:%%<欽明天皇>]0",	"@A",	"name=[欽明=ja:%%<欽明天皇>];0539-12-05"],
+    ["[<敏達>=ja:%%<敏達天皇>]1",	"@A",	"name=[敏達=ja:%%<敏達天皇>];0572-04-03"],
+    ["[<用明>=ja:%%<用明天皇>]0",	"@A",	"name=[用明=ja:%%<用明天皇>];0585-09-05"],
+    ["[<崇峻>=ja:%%<崇峻天皇>]0",	"@A",	"name=[崇峻=ja:%%<崇峻天皇>];0587-08-02"],
+    ["[<推古>=ja:%%<推古天皇>]0",	"@A",	"name=[推古=ja:%%<推古天皇>];0592-12-08"],
+    ["[<舒明>=ja:%%<舒明天皇>]1",	"@A",	"name=[舒明=ja:%%<舒明天皇>];0629-01-04"],
+    ["[<皇極>=ja:%%<皇極天皇>]1",	"@A",	"name=[皇極=ja:%%<皇極天皇>];0642-01-15"],
+    ["[大化]1",				"@A",	"name=[孝徳=ja:%%<孝徳天皇>];0645-06-19"],
+    ["[白雉]1",				"@FE",			"	     0650-02-15"],
+    ["[<斉明>=ja:%%<皇極天皇>]1",	"@A",	"name=[斉明=ja:%%<皇極天皇>];0655-01-03"],
+    ["[<天智>=ja:%%<天智天皇>]1",	"@A",	"name=[天智=ja:%%<天智天皇>];0662-01-01"],
+    ["[<天武>=ja:%%<天武天皇>]1",	"@A",	"name=[天武=ja:%%<天武天皇>];0672-01-01"],
+    ["[朱鳥]1",			"",					    "0686-07-20", "0687-01-01"]
+  ]]
+end

data/lib/when_exe/region/korean.rb

@@ -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-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