when_exe 0.4.2 → 0.5.0

Sign up to get free protection for your applications and to get access to all the features.
Files changed (144) hide show
  1. checksums.yaml +5 -5
  2. data/LICENSE.ja.txt +8 -21
  3. data/LICENSE.txt +5 -27
  4. data/README.md +25 -79
  5. data/bin/.pryrc +9 -0
  6. data/bin/make_ttl.rb +3 -2
  7. data/bin/make_ttl.rb.config +3 -3
  8. data/lib/when_exe.rb +101 -5
  9. data/lib/when_exe/basictypes.rb +47 -16
  10. data/lib/when_exe/calendarnote.rb +27 -18
  11. data/lib/when_exe/calendartypes.rb +12 -50
  12. data/lib/when_exe/coordinates.rb +37 -391
  13. data/lib/when_exe/ephemeris.rb +53 -14
  14. data/lib/when_exe/ephemeris/eclipse.rb +8 -8
  15. data/lib/when_exe/ephemeris/moon.rb +333 -333
  16. data/lib/when_exe/ephemeris/notes.rb +29 -17
  17. data/lib/when_exe/ephemeris/phase_table.rb +825 -0
  18. data/lib/when_exe/ephemeris/term_table.rb +603 -0
  19. data/lib/when_exe/events.rb +1888 -0
  20. data/lib/when_exe/google_api.rb +26 -31
  21. data/lib/when_exe/icalendar.rb +129 -12
  22. data/lib/when_exe/inspect.rb +5 -5
  23. data/lib/when_exe/linkeddata.rb +43 -23
  24. data/lib/when_exe/locales/akt.rb +63 -0
  25. data/lib/when_exe/locales/encoding_conversion.rb +134 -134
  26. data/lib/when_exe/locales/iast.rb +90 -90
  27. data/lib/when_exe/locales/locale.rb +88 -18
  28. data/lib/when_exe/locales/transliteration_table.rb +62 -62
  29. data/lib/when_exe/mini_application.rb +14 -8
  30. data/lib/when_exe/namespace.rb +42 -0
  31. data/lib/when_exe/parts/enumerator.rb +16 -5
  32. data/lib/when_exe/parts/geometric_complex.rb +52 -2
  33. data/lib/when_exe/parts/method_cash.rb +229 -224
  34. data/lib/when_exe/parts/resource.rb +65 -35
  35. data/lib/when_exe/parts/timezone.rb +25 -34
  36. data/lib/when_exe/region/balinese.rb +5 -3
  37. data/lib/when_exe/region/chinese.rb +39 -11
  38. data/lib/when_exe/region/chinese/calendars.rb +1016 -1016
  39. data/lib/when_exe/region/chinese/epochs.rb +7 -7
  40. data/lib/when_exe/region/chinese/notes.rb +3 -3
  41. data/lib/when_exe/region/chinese/twins.rb +134 -11
  42. data/lib/when_exe/region/dee.rb +4 -4
  43. data/lib/when_exe/region/discordian.rb +1 -1
  44. data/lib/when_exe/region/geologicalage.rb +139 -128
  45. data/lib/when_exe/region/hanke_henry.rb +4 -4
  46. data/lib/when_exe/region/indian.rb +77 -8
  47. data/lib/when_exe/region/international_fixed.rb +3 -3
  48. data/lib/when_exe/region/islamic.rb +1 -1
  49. data/lib/when_exe/region/japanese.rb +12 -8
  50. data/lib/when_exe/region/japanese/calendars.rb +397 -397
  51. data/lib/when_exe/region/japanese/eclipses.rb +1194 -1194
  52. data/lib/when_exe/region/japanese/epochs.rb +8 -4
  53. data/lib/when_exe/region/japanese/location.rb +93 -0
  54. data/lib/when_exe/region/japanese/nihon_shoki.rb +70 -70
  55. data/lib/when_exe/region/japanese/notes.rb +57 -18
  56. data/lib/when_exe/region/japanese/residues.rb +33 -11
  57. data/lib/when_exe/region/japanese/twins.rb +27 -14
  58. data/lib/when_exe/region/japanese/weeks.rb +7 -7
  59. data/lib/when_exe/region/korean.rb +384 -384
  60. data/lib/when_exe/region/location.rb +40 -0
  61. data/lib/when_exe/region/martian.rb +1 -1
  62. data/lib/when_exe/region/mayan.rb +2 -2
  63. data/lib/when_exe/region/roman.rb +2 -2
  64. data/lib/when_exe/region/ryukyu.rb +101 -101
  65. data/lib/when_exe/region/saudi_arabian.rb +57 -0
  66. data/lib/when_exe/region/shire.rb +1 -1
  67. data/lib/when_exe/region/world.rb +3 -3
  68. data/lib/when_exe/region/zoroastrian.rb +1 -1
  69. data/lib/when_exe/spatial.rb +611 -0
  70. data/lib/when_exe/timestandard.rb +9 -7
  71. data/lib/when_exe/tmobjects.rb +34 -2
  72. data/lib/when_exe/tmposition.rb +225 -1322
  73. data/lib/when_exe/tmptypes.rb +1279 -0
  74. data/lib/when_exe/tmreference.rb +42 -7
  75. data/lib/when_exe/version.rb +3 -3
  76. data/test/events/example-datasets +6 -0
  77. data/test/events/history-dataset.csv +22 -0
  78. data/test/events/japanese-holiday-index.csv +28 -0
  79. data/test/events/japanese-holiday.csv +94 -0
  80. data/test/events/japanese-holiday.ttl +948 -0
  81. data/test/events/make_events_ttl.rb +18 -0
  82. data/test/events/mori_wikichoshi.csv +14 -0
  83. data/test/events/ndl_koyomi.csv +220 -0
  84. data/test/events/ndl_koyomi_index.csv +44 -0
  85. data/test/events/primeminister-dataset.csv +19 -0
  86. data/test/events/shogun-dataset.csv +22 -0
  87. data/test/events/test-history-dataset-edge-sparql.csv +26 -0
  88. data/test/events/test-history-dataset-edge.csv +27 -0
  89. data/test/events/test-history-dataset-sparql.csv +22 -0
  90. data/test/events/test-history-dataset.csv +23 -0
  91. data/test/events/test-history-events-edge.ttl +89 -0
  92. data/test/events/test-history-events.csv +6 -0
  93. data/test/examples/JapanHolidays.ics +2 -2
  94. data/test/examples/JapanHolidaysRFC6350.ics +3 -3
  95. data/test/examples/Residue.m17n +2 -2
  96. data/test/examples/Spatial.m17n +3 -3
  97. data/test/examples/Terms.m17n +3 -3
  98. data/test/scripts/8.ext.rb +6 -6
  99. data/test/scripts/8.rb +6 -6
  100. data/test/scripts/geometric_complex.rb +41 -41
  101. data/test/scripts/korea.rb +59 -59
  102. data/test/scripts/thai.rb +36 -36
  103. data/test/test.rb +6 -0
  104. data/test/test/basictypes.rb +431 -431
  105. data/test/test/calendarnote.rb +86 -86
  106. data/test/test/calendartypes.rb +97 -97
  107. data/test/test/coordinates.rb +399 -397
  108. data/test/test/ephemeris.rb +115 -115
  109. data/test/test/ephemeris/moon.rb +14 -14
  110. data/test/test/ephemeris/planets.rb +14 -14
  111. data/test/test/ephemeris/sun.rb +14 -14
  112. data/test/test/events.rb +32 -0
  113. data/test/test/google_api.rb +45 -32
  114. data/test/test/inspect.rb +153 -153
  115. data/test/test/parts.rb +488 -488
  116. data/test/test/region/armenian.rb +20 -20
  117. data/test/test/region/bahai.rb +58 -58
  118. data/test/test/region/balinese.rb +34 -34
  119. data/test/test/region/chinese.rb +229 -229
  120. data/test/test/region/christian.rb +226 -226
  121. data/test/test/region/coptic.rb +27 -27
  122. data/test/test/region/discordian.rb +20 -20
  123. data/test/test/region/french.rb +33 -33
  124. data/test/test/region/geologicalage.rb +17 -17
  125. data/test/test/region/indian.rb +14 -1
  126. data/test/test/region/iran.rb +54 -54
  127. data/test/test/region/islamic.rb +64 -54
  128. data/test/test/region/japanese.rb +281 -261
  129. data/test/test/region/jewish.rb +63 -63
  130. data/test/test/region/m17n.rb +21 -21
  131. data/test/test/region/mayan.rb +17 -16
  132. data/test/test/region/reforms.rb +2 -2
  133. data/test/test/region/residue.rb +7 -7
  134. data/test/test/region/shire.rb +58 -58
  135. data/test/test/region/swedish.rb +45 -45
  136. data/test/test/region/thai.rb +116 -116
  137. data/test/test/region/tibetan.rb +30 -30
  138. data/test/test/region/vietnamese.rb +102 -102
  139. data/test/test/region/zoroastrian.rb +58 -58
  140. data/test/test/timestandard.rb +81 -81
  141. data/test/test/tmobjects.rb +402 -402
  142. data/test/test/tmposition.rb +66 -4
  143. data/test/test/tmreference.rb +157 -157
  144. metadata +36 -93
data/lib/when_exe/region/japanese/residues.rb CHANGED
@@ -1,6 +1,6 @@
1
1
  # -*- coding: utf-8 -*-
2
2
  =begin
3
- Copyright (C) 2012-2014 Takashi SUGA
3
+ Copyright (C) 2012-2016 Takashi SUGA
4
4
 
5
5
  You may use and/or modify this file according to the license described in the LICENSE.txt file included in this archive.
6
6
  =end
@@ -14,6 +14,8 @@ module When::Coordinates
14
14
 
15
15
  StartOfSequence = {-1=>'九星陽遁始め', +1=>'九星陰遁始め'}
16
16
 
17
+ Patch = {2421371=>2421431, 2429771=>2429831, 2463251=>2463191, 2475851=>2475791}
18
+
17
19
  class << self
18
20
 
19
21
  #
@@ -48,6 +50,7 @@ module When::Coordinates
48
50
  #
49
51
  def day(date, s_terms)
50
52
  thres, delta, sign = _parameters(date, s_terms)
53
+ delta += 3 if thres == 30
51
54
  delta = 8 - delta if sign < 0
52
55
  return delta % 9
53
56
  end
@@ -79,15 +82,34 @@ module When::Coordinates
79
82
  def _parameters(date, s_terms)
80
83
  date = When.when?(date.to_cal_date.to_s, {:frame=>date.frame, :clock=>date.frame.time_basis})
81
84
 
82
- [+90,-90,-270].each do |deg|
83
- prev = s_terms.term(date, [deg,180]) # 直後および直前の冬至または夏至
84
- sign = s_terms.position(prev)[0] == 270 ? -1 : +1 # 陽遁か?(冬至:-1, 夏至:+1)
85
- base = prev.to_i # 当該の冬至または夏至のユリウス日
86
- kanshi = (base + 17) % 60 - 28 # 最も近い甲子との日数差
87
- base -= kanshi # 当該陰陽遁の始め
88
- delta = date.to_i - base # 始めからの日数
89
- thres = kanshi >= 29 ? 30 : 0 # 区間の始めの delta (甲午の前後1日以内は甲午折り返し)
90
- return [thres, delta, sign] if thres <= delta # 区間に入れば確定
85
+ bases = [+450,+270,+90,-90,-270,-450].map { |deg|
86
+ prev = s_terms.term(date, [deg,180]) # 直後および直前の冬至または夏至
87
+ sign = s_terms.position(prev)[0] == 270 ? -1 : +1 # 陽遁か?(冬至:-1, 夏至:+1)
88
+ base = prev.to_i # 当該の冬至または夏至のユリウス日
89
+ kanshi = (base + 17) % 60 - 28 # 最も近い甲子との日数差
90
+ base -= kanshi # 当該陰陽遁の始めの甲子
91
+ [(Patch[base] || base), sign] # 『暦日大鑑』に合わせる
92
+ }
93
+
94
+ (1...bases.size).each do |i| # 区間が短くなりすぎる場合は次と繋げる
95
+ next unless bases[i-1][0] - bases[i][0] == 120
96
+ bases[i-1][0] += 60
97
+ break
98
+ end
99
+
100
+ bases.size.times do |i|
101
+ base, sign = bases[i]
102
+ delta = date.to_i - base # 始めからの日数
103
+ next if delta < 0
104
+ case (bases[i-1][0] - base)
105
+ when 180
106
+ return [ 0, delta, sign] # 通常
107
+ when 240
108
+ return [30, delta, sign] if delta >= 30 # 甲午以降
109
+ return [ 0, delta+180, -sign] # 甲午より前
110
+ else
111
+ raise ArgumentError, "Invalid solstice interval: #{bases[i-1][0] - base}"
112
+ end
91
113
  end
92
114
  raise ArgumentError, "can't find any solstice."
93
115
  end
@@ -341,7 +363,7 @@ module When::Coordinates
341
363
  notes['天一'] ||= begin
342
364
  note = Rules['天一'][@remainder]
343
365
  dates.range >= 15 ? note.dup.sub!(/天上始/, '天上') :
344
- dates.range >= 11 ? note : note.dup.sub!(/始/, '')
366
+ dates.range >= 10 ? note : note.dup.sub!(/始/, '')
345
367
  end
346
368
  notes['土公'] ||= Rules['土公'][@remainder]
347
369
  notes['五墓'] ||= [4,22,28,31,37].include?(@remainder) ? '五墓' : nil
data/lib/when_exe/region/japanese/twins.rb CHANGED
@@ -64,7 +64,7 @@ module When
64
64
  'lunation_length' => 29.530590, # 朔実(朔望月)
65
65
  'lunar_mean_motion' => 13.36875, # 月平行(恒星天に対する月の平均運動 / 日)
66
66
  'anomalistic_month_length' => 27.5546, # 転終(近点月)
67
- 'anomaly_method' => 'c', # (経朔-定朔)の計算方法(a:差分, b:微分, c:幾何学的補正)
67
+ 'anomaly_method' => 'a', # (経朔-定朔)の計算方法(a:差分, b:微分, c:幾何学的補正)
68
68
  'anomaly_precision' => 1e-5, # c 方式 での収束判定誤差 / 日
69
69
  'lunar_unit' => 0.1, # 太陰遅速計算用招差法定数の時間の単位(限)
70
70
  'solar_weight' => 1, # (経朔-定朔)の計算で用いる実行差での太陽盈縮の重み(0:非考慮,1:考慮)
@@ -72,7 +72,8 @@ module When
72
72
  [ 0 ... 72.65342, 0, [-0, -1173_1000, +3_7000, +400]],
73
73
  [ 72.65342...137.773, 137.773, [-0, -1324_0000, +5_2000, +500]],
74
74
  [137.773 ...202.89258, 137.773, [+0, +1324_0000, -5_2000, -500]],
75
- [202.89258.. 275.546, 275.546, [+0, +1173_1000, -3_7000, -400]]
75
+ [202.89258...275.546, 275.546, [+0, +1173_1000, -3_7000, -400]],
76
+ [275.546 .. 277, 275.546, [-0, -1173_1000, +3_7000, +400]]
76
77
  ],
77
78
  's' => [ # 太陽盈縮計算用招差法定数
78
79
  [ 0 ... 89.25392, 0, [0, +436_0000, -2_0000, -34]],
@@ -99,9 +100,11 @@ module When
99
100
  'day_epoch' => 2336111 + 7.675, # 暦元天正冬至のユリウス日
100
101
  'year_epoch' => 1684, # 暦元の西暦年
101
102
  'year_length' => 365.241696, # 暦元の冬至年 / 日
102
- 'anomalistic_year_shift' => 6.445, # 暦應(冬至から近日点通過までの日数)
103
+ 'anomalistic_year_shift' => 6.445, # 暦應(暦元での冬至から近日点通過までの日数)
103
104
  'lunation_shift' => 2.779 - 0.015, # 閏應(暦元前経朔から暦元天正冬至までの日数)
104
- 'anomalistic_month_shift' => 22.72 - 0.015 # 転應(暦元前近/遠地点通過から暦元天正冬至までの日数)
105
+ 'anomalistic_month_shift' => 22.72 - 0.015, # 転應(暦元前近/遠地点通過から暦元天正冬至までの日数)
106
+ 'anomaly_method' => '#{Method:a}', # (経朔-定朔)の計算方法(a:差分, b:微分, c:幾何学的補正)
107
+ 'solar_weight' => '#{Weight:1}', # (経朔-定朔)の計算で用いる実行差での太陽盈縮の重み(0:非考慮,1:考慮)
105
108
  })]
106
109
  }
107
110
  }
@@ -115,9 +118,11 @@ module When
115
118
  'day_epoch' => 2336111 + 7.69 , # 暦元天正冬至のユリウス日
116
119
  'year_epoch' => 1684, # 暦元の西暦年
117
120
  'year_length' => 365.241696, # 暦元の冬至年 / 日
118
- 'anomalistic_year_shift' => 6.445, # 暦應(冬至から近日点通過までの日数)
121
+ 'anomalistic_year_shift' => 6.445, # 暦應(暦元での冬至から近日点通過までの日数)
119
122
  'lunation_shift' => 2.779, # 閏應(暦元前経朔から暦元天正冬至までの日数)
120
- 'anomalistic_month_shift' => 22.72 # 転應(暦元前近/遠地点通過から暦元天正冬至までの日数)
123
+ 'anomalistic_month_shift' => 22.72, # 転應(暦元前近/遠地点通過から暦元天正冬至までの日数)
124
+ 'anomaly_method' => '#{Method:a}', # (経朔-定朔)の計算方法(a:差分, b:微分, c:幾何学的補正)
125
+ 'solar_weight' => '#{Weight:1}', # (経朔-定朔)の計算で用いる実行差での太陽盈縮の重み(0:非考慮,1:考慮)
121
126
  })]
122
127
  }
123
128
  }
@@ -131,9 +136,11 @@ module When
131
136
  'day_epoch' => 2336111 + 7.9038,# 暦元天正冬至のユリウス日
132
137
  'year_epoch' => 1684, # 暦元の西暦年
133
138
  'year_length' => 365.241696, # 暦元の冬至年 / 日
134
- 'anomalistic_year_shift' => 6.445, # 暦應(冬至から近日点通過までの日数)
139
+ 'anomalistic_year_shift' => 6.445, # 暦應(暦元での冬至から近日点通過までの日数)
135
140
  'lunation_shift' => 2.779 + 0.2138, # 閏應(暦元前経朔から暦元天正冬至までの日数)
136
- 'anomalistic_month_shift' => 22.72 + 0.2138 # 転應(暦元前近/遠地点通過から暦元天正冬至までの日数)
141
+ 'anomalistic_month_shift' => 22.72 + 0.2138, # 転應(暦元前近/遠地点通過から暦元天正冬至までの日数)
142
+ 'anomaly_method' => '#{Method:a}', # (経朔-定朔)の計算方法(a:差分, b:微分, c:幾何学的補正)
143
+ 'solar_weight' => '#{Weight:1}', # (経朔-定朔)の計算で用いる実行差での太陽盈縮の重み(0:非考慮,1:考慮)
137
144
  })]
138
145
  }
139
146
  }
@@ -147,9 +154,11 @@ module When
147
154
  'day_epoch' => 2336111 + 7.6223,# 暦元天正冬至のユリウス日
148
155
  'year_epoch' => 1684, # 暦元の西暦年
149
156
  'year_length' => 365.241696, # 暦元の冬至年 / 日
150
- 'anomalistic_year_shift' => 6.445, # 暦應(冬至から近日点通過までの日数)
157
+ 'anomalistic_year_shift' => 6.445, # 暦應(暦元での冬至から近日点通過までの日数)
151
158
  'lunation_shift' => 2.779 - 0.0677, # 閏應(暦元前経朔から暦元天正冬至までの日数)
152
- 'anomalistic_month_shift' => 22.72 - 0.0677 # 転應(暦元前近/遠地点通過から暦元天正冬至までの日数)
159
+ 'anomalistic_month_shift' => 22.72 - 0.0677, # 転應(暦元前近/遠地点通過から暦元天正冬至までの日数)
160
+ 'anomaly_method' => '#{Method:a}', # (経朔-定朔)の計算方法(a:差分, b:微分, c:幾何学的補正)
161
+ 'solar_weight' => '#{Weight:1}', # (経朔-定朔)の計算で用いる実行差での太陽盈縮の重み(0:非考慮,1:考慮)
153
162
  })]
154
163
  }
155
164
  }
@@ -163,10 +172,12 @@ module When
163
172
  'day_epoch' => 2361671 + 14.536, # 暦元天正冬至のユリウス日
164
173
  'year_epoch' => 1754, # 暦元の西暦年
165
174
  'year_length' => 365.241556, # 暦元の冬至年 / 日
166
- 'anomalistic_year_shift' => 6.455, # 暦應(冬至から近日点通過までの日数)
175
+ 'anomalistic_year_shift' => 6.455, # 暦應(暦元での冬至から近日点通過までの日数)
167
176
  'lunation_shift' => 25.654, # 閏應(暦元前経朔から暦元天正冬至までの日数)
168
177
  'anomalistic_month_shift' => 18.88, # 転應(暦元前近/遠地点通過から暦元天正冬至までの日数)
169
- 's' => ChineseSolar.change_unit(365.241556 / 365.241696, _japanese_common['s'])
178
+ 's' => ChineseSolar.change_unit(365.241556 / 365.241696, _japanese_common['s']),
179
+ 'anomaly_method' => '#{Method:a}', # (経朔-定朔)の計算方法(a:差分, b:微分, c:幾何学的補正)
180
+ 'solar_weight' => '#{Weight:1}', # (経朔-定朔)の計算で用いる実行差での太陽盈縮の重み(0:非考慮,1:考慮)
170
181
  })]
171
182
  }
172
183
  }
@@ -180,10 +191,12 @@ module When
180
191
  'day_epoch' => 2361671 + 14.681, # 暦元天正冬至のユリウス日
181
192
  'year_epoch' => 1754, # 暦元の西暦年
182
193
  'year_length' => 365.241626, # 暦元の冬至年 / 日
183
- 'anomalistic_year_shift' => 7.42, # 暦應(冬至から近日点通過までの日数)
194
+ 'anomalistic_year_shift' => 7.42, # 暦應(暦元での冬至から近日点通過までの日数)
184
195
  'lunation_shift' => 25.82, # 閏應(暦元前経朔から暦元天正冬至までの日数)
185
196
  'anomalistic_month_shift' => 19.307, # 転應(暦元前近/遠地点通過から暦元天正冬至までの日数)
186
- 's' => ChineseSolar.change_unit(365.241626 / 365.241696, _japanese_common['s'])
197
+ 's' => ChineseSolar.change_unit(365.241626 / 365.241696, _japanese_common['s']),
198
+ 'anomaly_method' => '#{Method:a}', # (経朔-定朔)の計算方法(a:差分, b:微分, c:幾何学的補正)
199
+ 'solar_weight' => '#{Weight:1}', # (経朔-定朔)の計算で用いる実行差での太陽盈縮の重み(0:非考慮,1:考慮)
187
200
  })]
188
201
  }
189
202
  }
data/lib/when_exe/region/japanese/weeks.rb CHANGED
@@ -1,6 +1,6 @@
1
1
  # -*- coding: utf-8 -*-
2
2
  =begin
3
- Copyright (C) 2014 Takashi SUGA
3
+ Copyright (C) 2014-2017 Takashi SUGA
4
4
 
5
5
  You may use and/or modify this file according to the license described in the LICENSE.txt file included in this archive.
6
6
  =end
@@ -29,12 +29,12 @@ class When::CalendarNote
29
29
  "names:[day]",
30
30
  [When::BasicTypes::M17n,
31
31
  "names:[Rokuyo=, 六曜, 六曜=zh:%%<六曜>]",
32
- [DayOfWeek, "label:[Taian=, *大安, 大安]", {'delta'=>6}],
33
- [DayOfWeek, "label:[Shakko=, *赤口, 赤口]", {'delta'=>6}],
34
- [DayOfWeek, "label:[Sensho=, *先勝, 先勝]", {'delta'=>6}],
35
- [DayOfWeek, "label:[Tomobiki=, *友引, 友引]", {'delta'=>6}],
36
- [DayOfWeek, "label:[Sembu=, *先負, 先負]", {'delta'=>6}],
37
- [DayOfWeek, "label:[Butsumetsu=, *仏滅, 仏滅]", {'delta'=>6}]
32
+ [DayOfWeek, "label:[Taian=, *大安=ja:%%<六曜>#%.<大安>, 大安=ja:%%<六曜>#%.<大安>]", {'delta'=>6}],
33
+ [DayOfWeek, "label:[Shakko=, *赤口=ja:%%<六曜>#%.<赤口>, 赤口=ja:%%<六曜>#%.<赤口>]", {'delta'=>6}],
34
+ [DayOfWeek, "label:[Sensho=, *先勝=ja:%%<六曜>#%.<先勝>, 先勝=ja:%%<六曜>#%.<先勝>]", {'delta'=>6}],
35
+ [DayOfWeek, "label:[Tomobiki=, *友引=ja:%%<六曜>#%.<友引>, 友引=ja:%%<六曜>#%.<友引>]", {'delta'=>6}],
36
+ [DayOfWeek, "label:[Sembu=, *先負=ja:%%<六曜>#%.<先負>, 先負=ja:%%<六曜>#%.<先負>]", {'delta'=>6}],
37
+ [DayOfWeek, "label:[Butsumetsu=, *仏滅=ja:%%<六曜>#%.<仏滅>, 仏滅=zh:%%<佛滅日>]", {'delta'=>6}]
38
38
  ]
39
39
  ]
40
40
  ]]
data/lib/when_exe/region/korean.rb CHANGED
@@ -1,384 +1,384 @@
1
- # -*- coding: utf-8 -*-
2
- =begin
3
- Copyright (C) 2013-2014 Takashi SUGA
4
-
5
- You may use and/or modify this file according to the license described in the LICENSE.txt file included in this archive.
6
- =end
7
-
8
- require 'when_exe/region/chinese/calendars'
9
-
10
- #
11
- # 朝鮮朔閏表および王位年号一覧表
12
- #
13
- # （参考文献）
14
- # 東洋史辞典（東京創元社）
15
- # コンサイス世界年表（三省堂）
16
- # 朝鮮史（山川出版社）
17
- # 三国遺事（六興出版）
18
- # 歴代紀元編（台湾中華書局）に引用される新唐書
19
- # 観象授時（月刊『言語』1991.12 特集・暦の記号学）
20
- # 増補改訂中国の天文暦法（平凡社）P156
21
- # 現代こよみ読み解き事典（柏書房）
22
- # 韓國年暦大典（嶺南大学校出版部）
23
- # 三国時代年曆表（Korea Astronomy Observatory）
24
- # 高麗時代年曆表（Korea Astronomy Observatory）
25
- # 朝鮮時代年曆表（Korea Astronomy Observatory）
26
- # 朝鮮における時憲曆の受容過程とその思想的背景(東方學報 京都第84冊(2009) pp.302-281).
27
- #
28
- module When
29
- module CalendarTypes
30
-
31
- # 正月:A, ２月:B, ３月:C, ４月:D, ５月:E, ６月:F,
32
- # ７月:G, ８月:H, ９月:I, 10月:J, 11月:K, 12月:L
33
- # 大の月:大文字, 小の月:小文字
34
- # 同じアルファベットの連続の後者:閏月
35
- # #- は『韓國年暦大典』(1987年版)の中国-朝鮮差分が取り消されたもの
36
- # #! は全勇勳「朝鮮における時憲曆の受容過程とその思想的背景」で言及された年(最終的には差分でない)
37
-
38
- Korean = PatternTableBasedLuniSolar.join([
39
- PatternTableBasedLuniSolar,
40
- {
41
- 'indices'=> ChineseIndices,
42
- 'before' => 'ChineseTwin::太初暦',
43
- 'after' => 'ChineseLuniSolar?time_basis=+09',
44
- 'note' => 'Chinese',
45
- },
46
- ['Chinese_103', -60.. 263], # 前漢～蜀漢(太初暦・四分暦)
47
- ['Chinese0239', 264.. 444], # 三国・南朝(景初暦)
48
- ['Chinese0445', 445.. 589], # 南朝(元嘉暦・大明暦)
49
- ['Chinese0523', 590.. 946], # 隋・唐～五代前期(大業暦～調元暦)
50
- ['Chinese0956', 947..1279], # 五代後期～南宋(調元暦～本天暦)
51
- ['Chinese0939', 1280..1653], # 元・明・南明(重修大明暦・授時暦・大統暦)
52
- ['Chinese1645', 1654..1911]], # 清(時憲暦)
53
- {
54
- -26 => {'aB' => 'Ab' }, # ベースとする中国暦日表の違い
55
- 240 => {'Hi' => 'hI' }, # 四分・景初・乾象暦いずれにも不一致
56
-
57
- 478 => {'bC' => 'Bc' }, # 日食記事による見直し(景初・元嘉・三紀・玄始暦いずれにも不一致)
58
- 502 => {'D' => 'E' }, # 中国暦日表を計算による元嘉暦に戻す
59
- 559 => {'De' => 'eE' }, # 日食記事による見直し(元嘉・大明・興和・天保・正光暦いずれにも不一致)
60
- 575 => {'i' => 'h' }, # ベースとする中国暦日表の違い
61
-
62
- 592 => {'FgHi' => 'fgHI'},
63
- 716 => {'lL' => 'Ll' }, # ベースとする中国暦日表の違い
64
- 768 => {'bC' => 'Bc' },
65
- 795 => {'H' => 'G' }, # ベースとする中国暦日表の違い
66
- 935 => {'Kl' => 'kL' }, # 宣明暦に一致(崇玄暦とは不一致)
67
-
68
- 1022 => {'aB' => 'Ab' }, # 宣明暦に一致
69
- 1025 => {'fG' => 'Fg' }, # 宣明・遼の大明暦に一致
70
- 1032 => {'cD' => 'Cd' },
71
- 1040 => {'dE' => 'De', 'K' => 'k' }, # ５月朔は宣明・遼の大明暦に一致
72
- 1041 => {'a' => 'A', 'Jk' => 'jK'}, # 12月朔は宣明・遼の大明暦に一致
73
- 1048 => {'l' => 'L' },
74
- 1049 => {'A' => 'a', 'Kl' => 'kL'}, # 12月朔は宣明・遼の大明暦に一致
75
- 1058 => {'l' => 'L' },
76
- 1059 => {'A' => 'a', 'Kl' => 'kL'}, # 12月朔は宣明・遼の大明暦に一致
77
- 1067 => {'bC' => 'aB' }, # 宣明暦に一致(閏月２か月ずれ)
78
- 1073 => {'kL' => 'Kl' },
79
- 1078 => {'gHI' => 'GHi' },
80
- 1079 => {'Ef' => 'eF' },
81
- 1096 => {'bcDefGhIJKl' => 'BCdeFGhijkL' },
82
- 1114 => {'bC' => 'Bc' },
83
- 1118 => {'dE' => 'De' },
84
- 1149 => {'efG' => 'Efg' },
85
- 1244 => {'fGH' => 'FGh' },
86
- 1252 => {'eF' => 'Ef' },
87
- 1253 => {'Hi' => 'hI' }, # 重修大明暦に一致(たまたま?宣明暦にも一致)
88
- 1270 => {'jjK' => 'jKk' }, # 重修大明暦に一致
89
- 1276 => {'Ab' => 'aB' }, # 重修大明暦に一致
90
-
91
- 1287 => {'bCD' => 'BCd' }, # ベースとする中国暦日表の違い
92
- 1300 => {'HIj' => 'hIJ' },
93
- 1365 => {'aB' => 'Ab' },
94
- 1397 => {'bC' => 'Bc' },
95
- 1399 => {'De' => 'dE' },
96
- 1430 => {'Cd' => 'cD' },
97
- #- 1437 => {'kL' => 'Kl' },
98
- 1440 => {'kL' => 'Kl' },
99
- 1444 => {'kL' => 'Kl' },
100
- 1462 => {'Jk' => 'jK' },
101
- 1495 => {'fG' => 'Fg' },
102
- 1530 => {'Ab' => 'aB' },
103
- 1581 => {'Ij' => 'iJ' },
104
- 1588 => {'bCD' => 'BCd','Kl' =>'kL'},
105
- 1597 => {'Hi' => 'hI' },
106
- #- , 'L' =>'l' },
107
- #- 1598 => {'a' => 'A' },
108
- 1599 => {'l' => 'L' },
109
- 1600 => {'A' => 'a' },
110
- 1602 => {'hI' => 'Hi' },
111
- 1608 => {'l' => 'L' },
112
- 1609 => {'A' => 'a' },
113
- #- 1615 => {'Fg' => 'fG', 'Hh' =>'hH'},
114
- #- 1619 => {'L' => 'l' },
115
- #- 1620 => {'a' => 'A' },
116
- #- 1642 => {'Fg' => 'fG' },
117
- #- 1644 => {'fG' => 'Fg' },
118
- #- 1649 => {'iJ' => 'Ij' },
119
- #- 1650 => {'kL' => 'Kl' },
120
- 1652 => {'hIJ' => 'HIj' },
121
-
122
- #- 1664 => {'bC' => 'Bc' },
123
- #- 1674 => {'aB' => 'Ab' },
124
- 1677 => {'iJ' => 'Ij' },
125
- 1698 => {'jK' => 'Jk' },
126
- #! 1705 => {'Kl' => 'kL' },
127
- 1709 => {'aB' => 'Ab', 'jK' =>'Jk' },
128
- 1727 => {'cC' => 'Cc' },
129
- 1730 => {'Cd' => 'cD' },
130
- #! 1735 => 『英祖實録』巻38 10年4月10日(乙卯) 是以我國明年曆與彼國所同者,只是置閏與月朔大小,而節候則日時皆不同
131
- 1751 => {'Jk' => 'jK' },
132
- 1778 => {'Cd' => 'cD' },
133
- 1841 => {'kL' => 'Kl' }
134
- })
135
- end
136
-
137
- class TM::CalendarEra
138
-
139
- #
140
- # 朝鮮半島
141
- #
142
- Korean = [self, [
143
- "locale:[=ja:, en=en:, alias]",
144
- "area:[朝鮮=ja:%%<元号>#%.<朝鮮半島>,Korea=en:Regnal_year#Korean]",
145
- [self,
146
- "period:[高句麗]",
147
- ["[<東明王>=ja:%%<東明聖王>]1", "@F", "name=[東明王=ja:%%<東明聖王>];-36^Korean"],
148
- ["[<瑠璃王>=ja:%%<瑠璃明王>]1", "@A", "name=[瑠璃王=ja:%%<瑠璃明王>];-18"],
149
- ["[<大武神王>]1", "@A", "name=[大武神王];018"],
150
- ["[<閔中王>]1", "@A", "name=[閔中王];044"],
151
- ["[<慕本王>]1", "@A", "name=[慕本王];048"],
152
- ["[<太祖王>=ja:%%<太祖大王>]1", "@A", "name=[太祖王=ja:%%<太祖大王>];053"],
153
- ["[<次大王>]1", "@A", "name=[次大王];146"],
154
- ["[<新大王>]1", "@A", "name=[新大王];165"],
155
- ["[<故国川王>]1", "@A", "name=[故国川王];179"],
156
- ["[<山上王>]1", "@A", "name=[山上王];197"], # 朝鮮史ではこれ以降を実在とする
157
- ["[<東川王>]1", "@A", "name=[東川王];227"],
158
- ["[<中川王>]1", "@A", "name=[中川王];248"],
159
- ["[<西川王>]1", "@A", "name=[西川王];270"],
160
- ["[<烽上王>]1", "@A", "name=[烽上王];292"],
161
- ["[<美川王>]1", "@A", "name=[美川王];300"],
162
- ["[<故国原王>]1", "@A", "name=[故国原王];331"],
163
- ["[<小獣林王>]1", "@A", "name=[小獣林王];371"],
164
- ["[<故国壌王>]1", "@A", "name=[故国壌王];384"], # 朝鮮史では末年に？
165
- ["[永楽=ja:%%<永楽_(高句麗)>]1","@A", "name=[広開土王=ja:%%<好太王>];391"], # コンサイスでは翌年が元年
166
- ["[<長寿王>]1", "@A", "name=[長寿王];413.01.01", "492.01.01"], # 朝鮮史では元年に？
167
- ["[延寿=ja:%%<延寿_(高句麗)>]1","", "451"], # Wikipedia
168
- ["[<文咨王>=ja:%%<文咨明王>]1", "@A", "name=[文咨王=ja:%%<文咨明王>];492.01.01"],
169
- ["[<安臧王>]1", "@A", "name=[安臧王];519"],
170
- ["[<安原王>]1", "@A", "name=[安原王];531"],
171
- ["[<陽原王>]1", "@A", "name=[陽原王];545"],
172
- ["[<平原王>]1", "@A", "name=[平原王];559"],
173
- ["[<嬰陽王>]1", "@A", "name=[嬰陽王];590"],
174
- ["[<栄留王>]1", "@A", "name=[栄留王];618"],
175
- ["[<宝臧王>=ja:%%<宝蔵王>]1","@A","name=[宝臧王=ja:%%<宝蔵王>];642", "668.09.12="], # 資治通鑑による、癸巳滅亡
176
- ],
177
- [self,
178
- "period:[百済]",
179
- ["[<温祚王>]1", "@F", "name=[温祚王];-17^Korean"],
180
- ["[<多婁王>]1", "@A", "name=[多婁王];028"],
181
- ["[<己婁王>]1", "@A", "name=[己婁王];077"],
182
- ["[<蓋婁王>]1", "@A", "name=[蓋婁王];128"], # 朝鮮史では127が末年
183
- ["[<肖古王>]1", "@A", "name=[肖古王];166"],
184
- ["[<仇首王>]1", "@A", "name=[仇首王];214"],
185
- ["[<沙伴王>]1", "@A", "name=[沙伴王];234"],
186
- ["[<古爾王>=ja:%%<古尓王>]1", "@A", "name=[古爾王=ja:%%<古尓王>];234"],
187
- ["[<責稽王>]1", "@A", "name=[責稽王];286"],
188
- ["[<汾西王>]1", "@A", "name=[汾西王];298"],
189
- ["[<比流王>]1", "@A", "name=[比流王];304"], # 朝鮮史ではこれ以後を実在とする
190
- ["[<契王>]1", "@A", "name=[契王];344"],
191
- ["[<近肖古王>]1", "@A", "name=[近肖古王];346"],
192
- ["[<近仇首王>]1", "@A", "name=[近仇首王];375"],
193
- ["[<枕流王>]1", "@A", "name=[枕流王];384"],
194
- ["[<辰斯王>]1", "@A", "name=[辰斯王];385"],
195
- ["[<阿莘王>=ja:%%<阿シン王>]1", "@A", "name=[阿莘王=ja:%%<阿シン王>];392"],
196
- ["[<腆支王>]1", "@A", "name=[腆支王];405"],
197
- ["[<久爾辛王>=ja:%%<久尓辛王>]1", "@A", "name=[久爾辛王=ja:%%<久尓辛王>];420"],
198
- ["[<毗有王>=ja:%%<毘有王>]1", "@A", "name=[毗有王=ja:%%<毘有王>];427"],
199
- ["[<蓋鹵王>]1", "@A", "name=[蓋鹵王];455"],
200
- ["[<文周王>]1", "@A", "name=[文周王];475"],
201
- ["[<三斤王>]1", "@A", "name=[三斤王];477"], # 朝鮮史では末年に？
202
- ["[<東城王>]1", "@A", "name=[東城王];479"],
203
- ["[<武寧王>]1", "@A", "name=[武寧王];501"],
204
- ["[<聖王>=ja:%%<聖王_(百済)>]1", "@A", "name=[聖王=ja:%%<聖王_(百済)];523.05.07"], # 武寧王墓誌による
205
- ["[<威徳王>=ja:%%<威徳王_(百済)>]1", "@A", "name=[威徳王=ja:%%<威徳王_(百済)>];554"],
206
- ["[<恵王>=ja:%%<恵王_(百済)>]1", "@A", "name=[恵王=ja:%%<恵王_(百済)>];598"],
207
- ["[<法王>=ja:%%<法王_(百済)>]1", "@A", "name=[法王=ja:%%<法王_(百済)>];599"],
208
- ["[<武王>=ja:%%<聖王_(百済)>]1", "@A", "name=[武王=ja:%%<武王_(百済)>];600"],
209
- ["[<義慈王>]1", "@A", "name=[義慈王];641", "660.08="] # 資治通鑑による
210
- ],
211
- [self,
212
- "period:[新羅]",
213
- ["[<赫居世>=ja:%%<赫居世居西干>]1", "@F", "name=[赫居世=ja:%%<赫居世居西干>];-56^^Korean"],
214
- ["[<南解王>=ja:%%<南解次次雄>]1", "@A", "name=[南解王=ja:%%<南解次次雄>];004"],
215
- ["[<儒理王>=ja:%%<儒理尼師今>]1", "@A", "name=[儒理王=ja:%%<儒理尼師今>];024"],
216
- ["[<脱解王>=ja:%%<脱解尼師今>]1", "@A", "name=[脱解王=ja:%%<脱解尼師今>];057"],
217
- ["[<婆娑王>=ja:%%<婆娑尼師今>]1", "@A", "name=[婆娑王=ja:%%<婆娑尼師今>];080"],
218
- ["[<祇摩王>=ja:%%<祇摩尼師今>]1", "@A", "name=[祇摩王=ja:%%<祇摩尼師今>];112"],
219
- ["[<逸聖王>=ja:%%<逸聖尼師今>]1", "@A", "name=[逸聖王=ja:%%<逸聖尼師今>];134"],
220
- ["[<阿達羅王>=ja:%%<阿達羅尼師今>]1", "@A","name=[阿達羅王=ja:%%<阿達羅尼師今>];154"],
221
- ["[<伐休王>=ja:%%<伐休尼師今>]1", "@A", "name=[伐休王=ja:%%<伐休尼師今>];184"],
222
- ["[<奈解王>=ja:%%<奈解尼師今>]1", "@A", "name=[奈解王=ja:%%<奈解尼師今>];196"],
223
- ["[<助賁王>=ja:%%<助賁尼師今>]1", "@A", "name=[助賁王=ja:%%<助賁尼師今>];230"],
224
- ["[<沾解王>=ja:%%<沾解尼師今>]1", "@A", "name=[沾解王=ja:%%<沾解尼師今>];247"], # 朝鮮史では261が末年
225
- ["[<味鄒王>=ja:%%<味鄒尼師今>]1", "@A", "name=[味鄒王=ja:%%<味鄒尼師今>];262"],
226
- ["[<儒礼王>=ja:%%<儒礼尼師今>]1", "@A", "name=[儒礼王=ja:%%<儒礼尼師今>];284"],
227
- ["[<基臨王>=ja:%%<基臨尼師今>]1", "@A", "name=[基臨王=ja:%%<基臨尼師今>];298"],
228
- ["[<訖解王>=ja:%%<訖解尼師今>]1", "@A", "name=[訖解王=ja:%%<訖解尼師今>];310"], # コンサイスはこれ以前の在位を記さない
229
- ["[<奈勿王>=ja:%%<奈勿尼師今>]1", "@A", "name=[奈勿王=ja:%%<奈勿尼師今>];356"], # 朝鮮史ではこれ以後を実在とする
230
- ["[<実聖王>=ja:%%<実聖尼師今>]1", "@A", "name=[実聖王=ja:%%<実聖尼師今>];402"],
231
- ["[<訥祇王>=ja:%%<訥祇麻立干>]1", "@A", "name=[訥祇王=ja:%%<訥祇麻立干>];417"],
232
- ["[<慈悲王>=ja:%%<慈悲麻立干>]1", "@A", "name=[慈悲王=ja:%%<慈悲麻立干>];458"],
233
- ["[<炤知王>=ja:%%<ショウ知麻立干>]1", "@A", "name=[炤知王=ja:%%<ショウ知麻立干>];479"],
234
- ["[<智証王>=ja:%%<智証麻立干>]1", "@A", "name=[智証王=ja:%%<智証麻立干>];500"],
235
- ["[<法興王>]1", "@A", "name=[法興王];514"],
236
- ["[<真興王>]1", "@A", "name=[真興王];540"],
237
- ["[<真智王>]1", "@A", "name=[真智王];576"],
238
- ["[<真平王>]1", "@A", "name=[真平王];579"],
239
- ["[<善徳女王>]1","@A","name=[善徳女王];632"],
240
- ["[<真徳女王>]1","@A","name=[真徳女王];647"],
241
- ["[<武烈王>]1", "@A", "name=[武烈王];654"],
242
- ["[<文武王>]1", "@A", "name=[文武王];661"],
243
- ["[<神文王>]1", "@A", "name=[神文王];681"],
244
- ["[<孝昭王>]1", "@A", "name=[孝昭王];692"],
245
- ["[<聖徳王>]1", "@A", "name=[聖徳王];702"],
246
- ["[<孝成王>=ja:%%<孝成王_(新羅)>]1", "@A", "name=[孝成王=ja:%%<孝成王_(新羅)>];737"],
247
- ["[<景徳王>]1", "@A", "name=[景徳王];742"],
248
- ["[<恵恭王>]1", "@A", "name=[恵恭王];765"],
249
- ["[<宣徳王>]1", "@A", "name=[宣徳王];780"],
250
- ["[<元聖王>]1", "@A", "name=[元聖王];785"],
251
- ["[<昭聖王>]1", "@A", "name=[昭聖王];799.01.01"],
252
- ["[<哀荘王>]1", "@A", "name=[哀荘王];800"],
253
- ["[<憲徳王>]1", "@A", "name=[憲徳王];809"],
254
- ["[<興徳王>]1", "@A", "name=[興徳王];826"],
255
- ["[<僖康王>]1", "@A", "name=[僖康王];836"],
256
- ["[<閔哀王>]1", "@A", "name=[閔哀王];838"],
257
- ["[<神武王>]1", "@A", "name=[神武王];839"],
258
- ["[<文聖王>]1", "@A", "name=[文聖王];839"],
259
- ["[<憲安王>]1", "@A", "name=[憲安王];857"],
260
- ["[<景文王>]1", "@A", "name=[景文王];861"],
261
- ["[<憲康王>]1", "@A", "name=[憲康王];875"],
262
- ["[<定康王>]1", "@A", "name=[定康王];886"],
263
- ["[<真聖女王>]1","@A","name=[真聖女王];887"], # 東洋史辞典のみ１年遅
264
- ["[<孝恭王>]1", "@A", "name=[孝恭王];897"], # 〃
265
- ["[<神徳王>]1", "@A", "name=[神徳王];912"], # 〃
266
- ["[<景明王>]1", "@A", "name=[景明王];917"],
267
- ["[<景哀王>]1", "@A", "name=[景哀王];924"],
268
- ["[<敬順王>]1", "@A", "name=[敬順王];927", "935="],
269
- [self,
270
- "period:[年号=]",
271
- ["[建元=ja:%%<建元_(新羅)>]1", "", "name=[法興王];536^Korean"],
272
- ["[開国=ja:%%<開国_(新羅)>]1", "", "name=[真興王];551"],
273
- ["[大昌,alias:太昌=ja:%%<大昌>]1", "", "568"],
274
- ["[鴻済]1", "", "572"],
275
- ["[建福=ja:%%<建福_(新羅)>]1", "", "name=[真平王];584"],
276
- ["[仁平=ja:%%<仁平_(新羅)>]1", "", "name=[善徳女王];634"],
277
- ["[太和=ja:%%<太和_(新羅)>]1", "@A", "name=[真徳女王];647", "649="]
278
- ],
279
- [self,
280
- "period:[長安=zh:%%<長安國>]", # １月で滅亡と仮定
281
- ["[慶雲=ja:%%<慶雲_(金憲昌)>]1", "@F", "name=[金憲昌=zh:%%<金憲昌>];822.03^^Korean", "822.03="]
282
- ]
283
- ],
284
- [self,
285
- "period:[後百済]", # 三国遺事による
286
- ["[<甄萱>]1", "@F", "name=[甄萱];900^Korean", "936.09.08="]
287
- ],
288
- [self,
289
- "period:[後高句麗]",
290
- ["[<弓裔>=ja:%%<弓裔>]1", "@F", "name=[弓裔];901^Korean", "904"],
291
- [self,
292
- "period:[摩震=ja:%%<後高句麗>]",
293
- ["[武泰=ja:%%<武泰_(後高句麗)>]1", "", "name=[弓裔];904^Korean"],
294
- ["[聖冊]1", "", "905", "911"]
295
- ],
296
- [self,
297
- "period:[泰封=ja:%%<後高句麗>]",
298
- ["[水徳万歳]1", "", "name=[弓裔];911^Korean"],
299
- ["[政開]1", "", "914", "918.06"]
300
- ]
301
- ],
302
- [self,
303
- "period:[高麗]",
304
- ["[天授=ja:%%<天授_(高麗)>]1", "@F", "name=[太祖=ja:%%<太祖_(高麗王)>];918.06^Korean"], # 三国遺事による
305
- ["[<太祖>=ja:%%<太祖_(高麗王)>]16", "", "933"],
306
- ["[<恵宗>=ja:%%<恵宗_(高麗王)>]1", "@A", "name=[恵宗=ja:%%<恵宗_(高麗王)>];944"],
307
- ["[<定宗>=ja:%%<定宗_(高麗王)>]1", "@A", "name=[定宗=ja:%%<定宗_(高麗王)>];946"],
308
- ["[光徳=ja:%%<光徳_(高麗)>]1", "@A", "name=[光宗=ja:%%<光宗_(高麗王)>];950"],
309
- ["[<光宗>=ja:%%<光宗_(高麗王)>]3", "@A", "952"],
310
- # ["[峻豊]1", "@A", "962.01.01"], # こよみ読み解き事典による Wikipedia で否定
311
- ["[<景宗>=ja:%%<景宗_(高麗王)>]1", "@A", "name=[景宗=ja:%%<景宗_(高麗王)>];976"],
312
- ["[<成宗>=ja:%%<成宗_(高麗王)>]1", "@A", "name=[成宗=ja:%%<成宗_(高麗王)>];982"],
313
- ["[<穆宗>=ja:%%<穆宗_(高麗王)>]1", "@A", "name=[穆宗=ja:%%<穆宗_(高麗王)>];998"],
314
- ["[<顕宗>=ja:%%<顕宗_(高麗王)>]1", "@A", "name=[顕宗=ja:%%<顕宗_(高麗王)>];1010"],
315
- ["[<徳宗>=ja:%%<徳宗_(高麗王)>]1", "@A", "name=[徳宗=ja:%%<徳宗_(高麗王)>];1032"],
316
- ["[<靖宗>=ja:%%<靖宗_(高麗王)>]1", "@A", "name=[靖宗=ja:%%<靖宗_(高麗王)>];1035"],
317
- ["[<文宗>=ja:%%<文宗_(高麗王)>]1", "@A", "name=[文宗=ja:%%<文宗_(高麗王)>];1047"],
318
- ["[<順宗>=ja:%%<順宗_(高麗王)>]1", "@A", "name=[順宗=ja:%%<順宗_(高麗王)>];1083"],
319
- ["[<宣宗>=ja:%%<宣宗_(高麗王)>]1", "@A", "name=[宣宗=ja:%%<宣宗_(高麗王)>];1084"],
320
- ["[<献宗>=ja:%%<献宗_(高麗王)>]1", "@A", "name=[献宗=ja:%%<献宗_(高麗王)>];1095"],
321
- ["[<粛宗>=ja:%%<粛宗_(高麗王)>]1", "@A", "name=[粛宗=ja:%%<粛宗_(高麗王)>];1096"],
322
- ["[<睿宗>=ja:%%<睿宗_(高麗王)>]1", "@A", "name=[睿宗=ja:%%<睿宗_(高麗王)>];1106"],
323
- ["[<仁宗>=ja:%%<仁宗_(高麗王)>]1", "@A", "name=[仁宗=ja:%%<仁宗_(高麗王)>];1123"],
324
- ["[<毅宗>=ja:%%<毅宗_(高麗王)>]1", "@A", "name=[毅宗=ja:%%<毅宗_(高麗王)>];1147"],
325
- ["[<明宗>=ja:%%<明宗_(高麗王)>]0", "@A", "name=[明宗=ja:%%<明宗_(高麗王)>];1170.08"], # 朝鮮史による
326
- ["[<神宗>=ja:%%<神宗_(高麗王)>]1", "@A", "name=[神宗=ja:%%<神宗_(高麗王)>];1198"],
327
- ["[<熙宗>=ja:%%<熙宗_(高麗王)>]1", "@A", "name=[熙宗=ja:%%<熙宗_(高麗王)>];1205"],
328
- ["[<康宗>=ja:%%<康宗_(高麗王)>]1", "@A", "name=[康宗=ja:%%<康宗_(高麗王)>];1212"],
329
- ["[<高宗>=ja:%%<高宗_(高麗王)>]1", "@A", "name=[高宗=ja:%%<高宗_(高麗王)>];1214"],
330
- ["[<元宗>=ja:%%<元宗_(高麗王)>]1", "@A", "name=[元宗=ja:%%<元宗_(高麗王)>];1260"],
331
- ["[<忠烈王>]1", "@A", "name=[忠烈王];1275"],
332
- ["[<忠宣王>]1", "@A", "name=[忠宣王];1298.01"], # 朝鮮史による
333
- ["[<忠烈王･再>=ja:%%<忠烈王>]24", "@A", "name=[忠烈王];1298.08"], # 〃
334
- ["[<忠宣王･再>=ja:%%<忠宣王>]1", "@A", "name=[忠宣王];1309"],
335
- ["[<忠粛王>]1", "@A", "name=[忠粛王];1314"],
336
- ["[<忠恵王>]1", "@A", "name=[忠恵王];1331"],
337
- ["[<忠粛王･再>=ja:%%<忠粛王>]1", "@A", "name=[忠粛王];1332"],
338
- ["[<忠恵王･再>=ja:%%<忠恵王>]1", "@A", "name=[忠恵王];1340"],
339
- ["[<忠穆王>]1", "@A", "name=[忠穆王];1345"],
340
- ["[<忠定王>]1", "@A", "name=[忠定王];1349.01.01"],
341
- ["[<恭愍王>]1", "@A", "name=[恭愍王];1352"],
342
- ["[<禑王>=ja:%%<王ウ_(高麗王)>]1", "@A", "name=[禑王=ja:%%<王ウ_(高麗王)>];1375"],
343
- ["[<昌王>=ja:%%<王昌_(高麗王)>]1", "@A", "name=[昌王=ja:%%<王昌_(高麗王)>];1389"],
344
- ["[<恭譲王>]1", "@A", "name=[恭譲王];1390", "1392.07.17"] # コンサイスによる
345
- ],
346
- [self,
347
- "period:[朝鮮=ja:%%<李氏朝鮮>]",
348
- ["[<太祖>=ja:%%<李成桂>]1.07.17", "@F", "name=[太祖=ja:%%<李成桂>];1392-07-17^Korean"], # コンサイスによる
349
- ["[<定宗>=ja:%%<定宗_(朝鮮王)>]1", "@A", "name=[定宗=ja:%%<定宗_(朝鮮王)>];1399"],
350
- ["[<太宗>=ja:%%<太宗_(朝鮮王)>]1", "@A", "name=[太宗=ja:%%<太宗_(朝鮮王)>];1401"],
351
- ["[<世宗>=ja:%%<世宗_(朝鮮王)>]1", "@A", "name=[世宗=ja:%%<世宗_(朝鮮王)>];1419"],
352
- ["[<文宗>=ja:%%<文宗_(朝鮮王)>]1", "@A", "name=[文宗=ja:%%<文宗_(朝鮮王)>];1451"],
353
- ["[<端宗>=ja:%%<端宗_(朝鮮王)>]1", "@A", "name=[端宗=ja:%%<端宗_(朝鮮王)>];1453"],
354
- ["[<世祖>=ja:%%<世祖_(朝鮮王)>]1", "@A", "name=[世祖=ja:%%<世祖_(朝鮮王)>];1455"],
355
- ["[<睿宗>=ja:%%<睿宗_(朝鮮王)>]1", "@A", "name=[睿宗=ja:%%<睿宗_(朝鮮王)>];1469"],
356
- ["[<成宗>=ja:%%<成宗_(朝鮮王)>]1", "@A", "name=[成宗=ja:%%<成宗_(朝鮮王)>];1470"],
357
- ["[<燕山君>]1", "@A", "name=[燕山君];1495"],
358
- ["[<中宗>=ja:%%<中宗_(朝鮮王)>]1", "@A", "name=[中宗=ja:%%<中宗_(朝鮮王)>];1506"],
359
- ["[<仁宗>=ja:%%<仁宗_(朝鮮王)>]1", "@A", "name=[仁宗=ja:%%<仁宗_(朝鮮王)>];1545"],
360
- ["[<明宗>=ja:%%<明宗_(朝鮮王)>]1", "@A", "name=[明宗=ja:%%<明宗_(朝鮮王)>];1546"],
361
- ["[<宣祖>]1", "@A", "name=[宣祖];1568"],
362
- ["[<光海君>]1", "@A", "name=[光海君];1609"],
363
- ["[<仁祖>]1", "@A", "name=[仁祖];1623"],
364
- ["[<孝宗>=ja:%%<孝宗_(朝鮮王)>]1", "@A", "name=[孝宗=ja:%%<孝宗_(朝鮮王)>];1650"],
365
- ["[<顕宗>=ja:%%<顕宗_(朝鮮王)>]1", "@A", "name=[顕宗=ja:%%<顕宗_(朝鮮王)>];1660"],
366
- ["[<粛宗>=ja:%%<粛宗_(朝鮮王)>]1", "@A", "name=[粛宗=ja:%%<粛宗_(朝鮮王)>];1675"],
367
- ["[<景宗>=ja:%%<景宗_(朝鮮王)>]1", "@A", "name=[景宗=ja:%%<景宗_(朝鮮王)>];1721"],
368
- ["[<英祖>=ja:%%<英祖_(朝鮮王)>]1", "@A", "name=[英祖=ja:%%<英祖_(朝鮮王)>];1725"], # コンサイスでは英宗
369
- ["[<正祖>]1", "@A", "name=[正祖];1777"],
370
- ["[<純祖>]1", "@A", "name=[純祖];1801"],
371
- ["[<憲宗>=ja:%%<憲宗_(朝鮮王)>]1", "@A", "name=[憲宗=ja:%%<憲宗_(朝鮮王)>];1835"],
372
- ["[<哲宗>=ja:%%<哲宗_(朝鮮王)>]1", "@A", "name=[哲宗=ja:%%<哲宗_(朝鮮王)>];1850"],
373
- ["[<高宗>=ja:%%<高宗_(朝鮮王)>]1", "@A", "name=[高宗=ja:%%<高宗_(朝鮮王)>];1864"],
374
- ["[建陽]1", "", "1896.01.01^Gregorian?note=Chinese", # 朝鮮史による
375
- "1897.10.01"]
376
- ],
377
- [self,
378
- "period:[大韓帝国]",
379
- ["[光武=ja:%%<光武_(元号)>]1", "@F", "name=[高宗=ja:%%<高宗_(朝鮮王)>];1897.10.01^Gregorian?note=Chinese"],
380
- ["[隆熙]1", "@A", "name=[純宗=ja:%%<純宗_(朝鮮王)>];1907.07.19", "1910.08.29="]
381
- ]
382
- ]]
383
- end
384
- end
1
+ # -*- coding: utf-8 -*-
2
+ =begin
3
+ Copyright (C) 2013-2021 Takashi SUGA
4
+
5
+ You may use and/or modify this file according to the license described in the LICENSE.txt file included in this archive.
6
+ =end
7
+
8
+ require 'when_exe/region/chinese/calendars'
9
+
10
+ #
11
+ # 朝鮮朔閏表および王位年号一覧表
12
+ #
13
+ # （参考文献）
14
+ # 東洋史辞典（東京創元社）
15
+ # コンサイス世界年表（三省堂）
16
+ # 朝鮮史（山川出版社）
17
+ # 三国遺事（六興出版）
18
+ # 歴代紀元編（台湾中華書局）に引用される新唐書
19
+ # 観象授時（月刊『言語』1991.12 特集・暦の記号学）
20
+ # 増補改訂中国の天文暦法（平凡社）P156
21
+ # 現代こよみ読み解き事典（柏書房）
22
+ # 韓國年暦大典（嶺南大学校出版部）
23
+ # 三国時代年曆表（Korea Astronomy Observatory）
24
+ # 高麗時代年曆表（Korea Astronomy Observatory）
25
+ # 朝鮮時代年曆表（Korea Astronomy Observatory）
26
+ # 朝鮮における時憲曆の受容過程とその思想的背景(東方學報 京都第84冊(2009) pp.302-281).
27
+ #
28
+ module When
29
+ module CalendarTypes
30
+
31
+ # 正月:A, ２月:B, ３月:C, ４月:D, ５月:E, ６月:F,
32
+ # ７月:G, ８月:H, ９月:I, 10月:J, 11月:K, 12月:L
33
+ # 大の月:大文字, 小の月:小文字
34
+ # 同じアルファベットの連続の後者:閏月
35
+ # #- は『韓國年暦大典』(1987年版)の中国-朝鮮差分が取り消されたもの
36
+ # #! は全勇勳「朝鮮における時憲曆の受容過程とその思想的背景」で言及された年(最終的には差分でない)
37
+
38
+ Korean = PatternTableBasedLuniSolar.join([
39
+ PatternTableBasedLuniSolar,
40
+ {
41
+ 'indices'=> ChineseIndices,
42
+ 'before' => 'ChineseTwin::太初暦',
43
+ 'after' => 'ChineseLuniSolar?time_basis=+09',
44
+ 'note' => 'Chinese',
45
+ },
46
+ ['Chinese_103', -60.. 263], # 前漢～蜀漢(太初暦・四分暦)
47
+ ['Chinese0239', 264.. 444], # 三国・南朝(景初暦)
48
+ ['Chinese0445', 445.. 589], # 南朝(元嘉暦・大明暦)
49
+ ['Chinese0523', 590.. 946], # 隋・唐～五代前期(大業暦～調元暦)
50
+ ['Chinese0956', 947..1279], # 五代後期～南宋(調元暦～本天暦)
51
+ ['Chinese0939', 1280..1653], # 元・明・南明(重修大明暦・授時暦・大統暦)
52
+ ['Chinese1645', 1654..1911]], # 清(時憲暦)
53
+ {
54
+ -26 => {'aB' => 'Ab' }, # ベースとする中国暦日表の違い
55
+ 240 => {'Hi' => 'hI' }, # 四分・景初・乾象暦いずれにも不一致
56
+
57
+ 478 => {'bC' => 'Bc' }, # 日食記事による見直し(景初・元嘉・三紀・玄始暦いずれにも不一致)
58
+ 502 => {'D' => 'E' }, # 中国暦日表を計算による元嘉暦に戻す
59
+ 559 => {'De' => 'eE' }, # 日食記事による見直し(元嘉・大明・興和・天保・正光暦いずれにも不一致)
60
+ 575 => {'i' => 'h' }, # ベースとする中国暦日表の違い
61
+
62
+ 592 => {'FgHi' => 'fgHI'},
63
+ 716 => {'lL' => 'Ll' }, # ベースとする中国暦日表の違い
64
+ 768 => {'bC' => 'Bc' },
65
+ 795 => {'H' => 'G' }, # ベースとする中国暦日表の違い
66
+ 935 => {'Kl' => 'kL' }, # 宣明暦に一致(崇玄暦とは不一致)
67
+
68
+ 1022 => {'aB' => 'Ab' }, # 宣明暦に一致
69
+ 1025 => {'fG' => 'Fg' }, # 宣明・遼の大明暦に一致
70
+ 1032 => {'cD' => 'Cd' },
71
+ 1040 => {'dE' => 'De', 'K' => 'k' }, # ５月朔は宣明・遼の大明暦に一致
72
+ 1041 => {'a' => 'A', 'Jk' => 'jK'}, # 12月朔は宣明・遼の大明暦に一致
73
+ 1048 => {'l' => 'L' },
74
+ 1049 => {'A' => 'a', 'Kl' => 'kL'}, # 12月朔は宣明・遼の大明暦に一致
75
+ 1058 => {'l' => 'L' },
76
+ 1059 => {'A' => 'a', 'Kl' => 'kL'}, # 12月朔は宣明・遼の大明暦に一致
77
+ 1067 => {'bC' => 'aB' }, # 宣明暦に一致(閏月２か月ずれ)
78
+ 1073 => {'kL' => 'Kl' },
79
+ 1078 => {'gHI' => 'GHi' },
80
+ 1079 => {'Ef' => 'eF' },
81
+ 1096 => {'bcDefGhIJKl' => 'BCdeFGhijkL' },
82
+ 1114 => {'bC' => 'Bc' },
83
+ 1118 => {'dE' => 'De' },
84
+ 1149 => {'efG' => 'Efg' },
85
+ 1244 => {'fGH' => 'FGh' },
86
+ 1252 => {'eF' => 'Ef' },
87
+ 1253 => {'Hi' => 'hI' }, # 重修大明暦に一致(たまたま?宣明暦にも一致)
88
+ 1270 => {'jjK' => 'jKk' }, # 重修大明暦に一致
89
+ 1276 => {'Ab' => 'aB' }, # 重修大明暦に一致
90
+
91
+ 1287 => {'bCD' => 'BCd' }, # ベースとする中国暦日表の違い
92
+ 1300 => {'HIj' => 'hIJ' },
93
+ 1365 => {'aB' => 'Ab' },
94
+ 1397 => {'bC' => 'Bc' },
95
+ 1399 => {'De' => 'dE' },
96
+ 1430 => {'Cd' => 'cD' },
97
+ #- 1437 => {'kL' => 'Kl' },
98
+ 1440 => {'kL' => 'Kl' },
99
+ 1444 => {'kL' => 'Kl' },
100
+ 1462 => {'Jk' => 'jK' },
101
+ 1495 => {'fG' => 'Fg' },
102
+ 1530 => {'Ab' => 'aB' },
103
+ 1581 => {'Ij' => 'iJ' },
104
+ 1588 => {'bCD' => 'BCd','Kl' =>'kL'},
105
+ 1597 => {'Hi' => 'hI' },
106
+ #- , 'L' =>'l' },
107
+ #- 1598 => {'a' => 'A' },
108
+ 1599 => {'l' => 'L' },
109
+ 1600 => {'A' => 'a' },
110
+ 1602 => {'hI' => 'Hi' },
111
+ 1608 => {'l' => 'L' },
112
+ 1609 => {'A' => 'a' },
113
+ #- 1615 => {'Fg' => 'fG', 'Hh' =>'hH'},
114
+ #- 1619 => {'L' => 'l' },
115
+ #- 1620 => {'a' => 'A' },
116
+ #- 1642 => {'Fg' => 'fG' },
117
+ #- 1644 => {'fG' => 'Fg' },
118
+ #- 1649 => {'iJ' => 'Ij' },
119
+ #- 1650 => {'kL' => 'Kl' },
120
+ 1652 => {'hIJ' => 'HIj' },
121
+
122
+ #- 1664 => {'bC' => 'Bc' },
123
+ #- 1674 => {'aB' => 'Ab' },
124
+ 1677 => {'iJ' => 'Ij' },
125
+ 1698 => {'jK' => 'Jk' },
126
+ #! 1705 => {'Kl' => 'kL' },
127
+ 1709 => {'aB' => 'Ab', 'jK' =>'Jk' },
128
+ 1727 => {'cC' => 'Cc' },
129
+ 1730 => {'Cd' => 'cD' },
130
+ #! 1735 => 『英祖實録』巻38 10年4月10日(乙卯) 是以我國明年曆與彼國所同者,只是置閏與月朔大小,而節候則日時皆不同
131
+ 1751 => {'Jk' => 'jK' },
132
+ 1778 => {'Cd' => 'cD' },
133
+ 1841 => {'kL' => 'Kl' }
134
+ })
135
+ end
136
+
137
+ class TM::CalendarEra
138
+
139
+ #
140
+ # 朝鮮半島
141
+ #
142
+ Korean = [self, [
143
+ "locale:[=ja:, en=en:, alias]",
144
+ "area:[朝鮮=ja:%%<元号>#%.<朝鮮半島>,Korea=en:Regnal_year#Korean]",
145
+ [self,
146
+ "period:[高句麗]",
147
+ ["[<東明王>=ja:%%<東明聖王>]1", "@F", "name=[東明王=ja:%%<東明聖王>];-36^Korean"],
148
+ ["[<瑠璃王>=ja:%%<瑠璃明王>]1", "@A", "name=[瑠璃王=ja:%%<瑠璃明王>];-18"],
149
+ ["[<大武神王>]1", "@A", "name=[大武神王];018"],
150
+ ["[<閔中王>]1", "@A", "name=[閔中王];044"],
151
+ ["[<慕本王>]1", "@A", "name=[慕本王];048"],
152
+ ["[<太祖王>=ja:%%<太祖大王>]1", "@A", "name=[太祖王=ja:%%<太祖大王>];053"],
153
+ ["[<次大王>]1", "@A", "name=[次大王];146"],
154
+ ["[<新大王>]1", "@A", "name=[新大王];165"],
155
+ ["[<故国川王>]1", "@A", "name=[故国川王];179"],
156
+ ["[<山上王>]1", "@A", "name=[山上王];197"], # 朝鮮史ではこれ以降を実在とする
157
+ ["[<東川王>]1", "@A", "name=[東川王];227"],
158
+ ["[<中川王>]1", "@A", "name=[中川王];248"],
159
+ ["[<西川王>]1", "@A", "name=[西川王];270"],
160
+ ["[<烽上王>]1", "@A", "name=[烽上王];292"],
161
+ ["[<美川王>]1", "@A", "name=[美川王];300"],
162
+ ["[<故国原王>]1", "@A", "name=[故国原王];331"],
163
+ ["[<小獣林王>]1", "@A", "name=[小獣林王];371"],
164
+ ["[<故国壌王>]1", "@A", "name=[故国壌王];384"], # 朝鮮史では末年に？
165
+ ["[永楽=ja:%%<永楽_(高句麗)>]1","@A", "name=[広開土王=ja:%%<好太王>];391"], # コンサイスでは翌年が元年
166
+ ["[<長寿王>]1", "@A", "name=[長寿王];413.01.01", "492.01.01"], # 朝鮮史では元年に？
167
+ ["[延寿=ja:%%<延寿_(高句麗)>]1","", "451"], # Wikipedia
168
+ ["[<文咨王>=ja:%%<文咨明王>]1", "@A", "name=[文咨王=ja:%%<文咨明王>];492.01.01"],
169
+ ["[<安臧王>]1", "@A", "name=[安臧王];519"],
170
+ ["[<安原王>]1", "@A", "name=[安原王];531"],
171
+ ["[<陽原王>]1", "@A", "name=[陽原王];545"],
172
+ ["[<平原王>]1", "@A", "name=[平原王];559"],
173
+ ["[<嬰陽王>]1", "@A", "name=[嬰陽王];590"],
174
+ ["[<栄留王>]1", "@A", "name=[栄留王];618"],
175
+ ["[<宝臧王>=ja:%%<宝蔵王>]1","@A","name=[宝臧王=ja:%%<宝蔵王>];642", "668.09.12="], # 資治通鑑による、癸巳滅亡
176
+ ],
177
+ [self,
178
+ "period:[百済]",
179
+ ["[<温祚王>]1", "@F", "name=[温祚王];-17^Korean"],
180
+ ["[<多婁王>]1", "@A", "name=[多婁王];028"],
181
+ ["[<己婁王>]1", "@A", "name=[己婁王];077"],
182
+ ["[<蓋婁王>]1", "@A", "name=[蓋婁王];128"], # 朝鮮史では127が末年
183
+ ["[<肖古王>]1", "@A", "name=[肖古王];166"],
184
+ ["[<仇首王>]1", "@A", "name=[仇首王];214"],
185
+ ["[<沙伴王>]1", "@A", "name=[沙伴王];234"],
186
+ ["[<古爾王>=ja:%%<古尓王>]1", "@A", "name=[古爾王=ja:%%<古尓王>];234"],
187
+ ["[<責稽王>]1", "@A", "name=[責稽王];286"],
188
+ ["[<汾西王>]1", "@A", "name=[汾西王];298"],
189
+ ["[<比流王>]1", "@A", "name=[比流王];304"], # 朝鮮史ではこれ以後を実在とする
190
+ ["[<契王>]1", "@A", "name=[契王];344"],
191
+ ["[<近肖古王>]1", "@A", "name=[近肖古王];346"],
192
+ ["[<近仇首王>]1", "@A", "name=[近仇首王];375"],
193
+ ["[<枕流王>]1", "@A", "name=[枕流王];384"],
194
+ ["[<辰斯王>]1", "@A", "name=[辰斯王];385"],
195
+ ["[<阿莘王>=ja:%%<阿シン王>]1", "@A", "name=[阿莘王=ja:%%<阿シン王>];392"],
196
+ ["[<腆支王>]1", "@A", "name=[腆支王];405"],
197
+ ["[<久爾辛王>=ja:%%<久尓辛王>]1", "@A", "name=[久爾辛王=ja:%%<久尓辛王>];420"],
198
+ ["[<毗有王>=ja:%%<毘有王>]1", "@A", "name=[毗有王=ja:%%<毘有王>];427"],
199
+ ["[<蓋鹵王>]1", "@A", "name=[蓋鹵王];455"],
200
+ ["[<文周王>]1", "@A", "name=[文周王];475"],
201
+ ["[<三斤王>]1", "@A", "name=[三斤王];477"], # 朝鮮史では末年に？
202
+ ["[<東城王>]1", "@A", "name=[東城王];479"],
203
+ ["[<武寧王>]1", "@A", "name=[武寧王];501"],
204
+ ["[<聖王>=ja:%%<聖王_(百済)>]1", "@A", "name=[聖王=ja:%%<聖王_(百済)];523.05.07"], # 武寧王墓誌による
205
+ ["[<威徳王>=ja:%%<威徳王_(百済)>]1", "@A", "name=[威徳王=ja:%%<威徳王_(百済)>];554"],
206
+ ["[<恵王>=ja:%%<恵王_(百済)>]1", "@A", "name=[恵王=ja:%%<恵王_(百済)>];598"],
207
+ ["[<法王>=ja:%%<法王_(百済)>]1", "@A", "name=[法王=ja:%%<法王_(百済)>];599"],
208
+ ["[<武王>=ja:%%<聖王_(百済)>]1", "@A", "name=[武王=ja:%%<武王_(百済)>];600"],
209
+ ["[<義慈王>]1", "@A", "name=[義慈王];641", "660.08="] # 資治通鑑による
210
+ ],
211
+ [self,
212
+ "period:[新羅]",
213
+ ["[<赫居世>=ja:%%<赫居世居西干>]1", "@F", "name=[赫居世=ja:%%<赫居世居西干>];-56^^Korean"],
214
+ ["[<南解王>=ja:%%<南解次次雄>]1", "@A", "name=[南解王=ja:%%<南解次次雄>];004"],
215
+ ["[<儒理王>=ja:%%<儒理尼師今>]1", "@A", "name=[儒理王=ja:%%<儒理尼師今>];024"],
216
+ ["[<脱解王>=ja:%%<脱解尼師今>]1", "@A", "name=[脱解王=ja:%%<脱解尼師今>];057"],
217
+ ["[<婆娑王>=ja:%%<婆娑尼師今>]1", "@A", "name=[婆娑王=ja:%%<婆娑尼師今>];080"],
218
+ ["[<祇摩王>=ja:%%<祇摩尼師今>]1", "@A", "name=[祇摩王=ja:%%<祇摩尼師今>];112"],
219
+ ["[<逸聖王>=ja:%%<逸聖尼師今>]1", "@A", "name=[逸聖王=ja:%%<逸聖尼師今>];134"],
220
+ ["[<阿達羅王>=ja:%%<阿達羅尼師今>]1", "@A","name=[阿達羅王=ja:%%<阿達羅尼師今>];154"],
221
+ ["[<伐休王>=ja:%%<伐休尼師今>]1", "@A", "name=[伐休王=ja:%%<伐休尼師今>];184"],
222
+ ["[<奈解王>=ja:%%<奈解尼師今>]1", "@A", "name=[奈解王=ja:%%<奈解尼師今>];196"],
223
+ ["[<助賁王>=ja:%%<助賁尼師今>]1", "@A", "name=[助賁王=ja:%%<助賁尼師今>];230"],
224
+ ["[<沾解王>=ja:%%<沾解尼師今>]1", "@A", "name=[沾解王=ja:%%<沾解尼師今>];247"], # 朝鮮史では261が末年
225
+ ["[<味鄒王>=ja:%%<味鄒尼師今>]1", "@A", "name=[味鄒王=ja:%%<味鄒尼師今>];262"],
226
+ ["[<儒礼王>=ja:%%<儒礼尼師今>]1", "@A", "name=[儒礼王=ja:%%<儒礼尼師今>];284"],
227
+ ["[<基臨王>=ja:%%<基臨尼師今>]1", "@A", "name=[基臨王=ja:%%<基臨尼師今>];298"],
228
+ ["[<訖解王>=ja:%%<訖解尼師今>]1", "@A", "name=[訖解王=ja:%%<訖解尼師今>];310"], # コンサイスはこれ以前の在位を記さない
229
+ ["[<奈勿王>=ja:%%<奈勿尼師今>]1", "@A", "name=[奈勿王=ja:%%<奈勿尼師今>];356"], # 朝鮮史ではこれ以後を実在とする
230
+ ["[<実聖王>=ja:%%<実聖尼師今>]1", "@A", "name=[実聖王=ja:%%<実聖尼師今>];402"],
231
+ ["[<訥祇王>=ja:%%<訥祇麻立干>]1", "@A", "name=[訥祇王=ja:%%<訥祇麻立干>];417"],
232
+ ["[<慈悲王>=ja:%%<慈悲麻立干>]1", "@A", "name=[慈悲王=ja:%%<慈悲麻立干>];458"],
233
+ ["[<炤知王>=ja:%%<ショウ知麻立干>]1", "@A", "name=[炤知王=ja:%%<ショウ知麻立干>];479"],
234
+ ["[<智証王>=ja:%%<智証麻立干>]1", "@A", "name=[智証王=ja:%%<智証麻立干>];500"],
235
+ ["[<法興王>]1", "@A", "name=[法興王];514"],
236
+ ["[<真興王>]1", "@A", "name=[真興王];540"],
237
+ ["[<真智王>]1", "@A", "name=[真智王];576"],
238
+ ["[<真平王>]1", "@A", "name=[真平王];579"],
239
+ ["[<善徳女王>]1","@A","name=[善徳女王];632"],
240
+ ["[<真徳女王>]1","@A","name=[真徳女王];647"],
241
+ ["[<武烈王>]1", "@A", "name=[武烈王];654"],
242
+ ["[<文武王>]1", "@A", "name=[文武王];661"],
243
+ ["[<神文王>]1", "@A", "name=[神文王];681"],
244
+ ["[<孝昭王>]1", "@A", "name=[孝昭王];692"],
245
+ ["[<聖徳王>]1", "@A", "name=[聖徳王];702"],
246
+ ["[<孝成王>=ja:%%<孝成王_(新羅)>]1", "@A", "name=[孝成王=ja:%%<孝成王_(新羅)>];737"],
247
+ ["[<景徳王>]1", "@A", "name=[景徳王];742"],
248
+ ["[<恵恭王>]1", "@A", "name=[恵恭王];765"],
249
+ ["[<宣徳王>]1", "@A", "name=[宣徳王];780"],
250
+ ["[<元聖王>]1", "@A", "name=[元聖王];785"],
251
+ ["[<昭聖王>]1", "@A", "name=[昭聖王];799.01.01"],
252
+ ["[<哀荘王>]1", "@A", "name=[哀荘王];800"],
253
+ ["[<憲徳王>]1", "@A", "name=[憲徳王];809"],
254
+ ["[<興徳王>]1", "@A", "name=[興徳王];826"],
255
+ ["[<僖康王>]1", "@A", "name=[僖康王];836"],
256
+ ["[<閔哀王>]1", "@A", "name=[閔哀王];838"],
257
+ ["[<神武王>]1", "@A", "name=[神武王];839"],
258
+ ["[<文聖王>]1", "@A", "name=[文聖王];839"],
259
+ ["[<憲安王>]1", "@A", "name=[憲安王];857"],
260
+ ["[<景文王>]1", "@A", "name=[景文王];861"],
261
+ ["[<憲康王>]1", "@A", "name=[憲康王];875"],
262
+ ["[<定康王>]1", "@A", "name=[定康王];886"],
263
+ ["[<真聖女王>]1","@A","name=[真聖女王];887"], # 東洋史辞典のみ１年遅
264
+ ["[<孝恭王>]1", "@A", "name=[孝恭王];897"], # 〃
265
+ ["[<神徳王>]1", "@A", "name=[神徳王];912"], # 〃
266
+ ["[<景明王>]1", "@A", "name=[景明王];917"],
267
+ ["[<景哀王>]1", "@A", "name=[景哀王];924"],
268
+ ["[<敬順王>]1", "@A", "name=[敬順王];927", "935="],
269
+ [self,
270
+ "period:[年号=]",
271
+ ["[建元=ja:%%<建元_(新羅)>]1", "", "name=[法興王];536^Korean"],
272
+ ["[開国=ja:%%<開国_(新羅)>]1", "", "name=[真興王];551"],
273
+ ["[大昌,alias:太昌=ja:%%<大昌>]1", "", "568"],
274
+ ["[鴻済]1", "", "572"],
275
+ ["[建福=ja:%%<建福_(新羅)>]1", "", "name=[真平王];584"],
276
+ ["[仁平=ja:%%<仁平_(新羅)>]1", "", "name=[善徳女王];634"],
277
+ ["[太和=ja:%%<太和_(新羅)>]1", "@A", "name=[真徳女王];647", "649="]
278
+ ],
279
+ [self,
280
+ "period:[長安=zh:%%<長安國>]", # １月で滅亡と仮定
281
+ ["[慶雲=ja:%%<慶雲_(金憲昌)>]1", "@F", "name=[金憲昌=zh:%%<金憲昌>];822.03^^Korean", "822.03="]
282
+ ]
283
+ ],
284
+ [self,
285
+ "period:[後百済]", # 三国遺事による
286
+ ["[<甄萱>]1", "@F", "name=[甄萱];900^Korean", "936.09.08="]
287
+ ],
288
+ [self,
289
+ "period:[後高句麗]",
290
+ ["[<弓裔>=ja:%%<弓裔>]1", "@F", "name=[弓裔];901^Korean", "904"],
291
+ [self,
292
+ "period:[摩震=ja:%%<後高句麗>]",
293
+ ["[武泰=ja:%%<武泰_(後高句麗)>]1", "", "name=[弓裔];904^Korean"],
294
+ ["[聖冊]1", "", "905", "911"]
295
+ ],
296
+ [self,
297
+ "period:[泰封=ja:%%<後高句麗>]",
298
+ ["[水徳万歳]1", "", "name=[弓裔];911^Korean"],
299
+ ["[政開]1", "", "914", "918.06"]
300
+ ]
301
+ ],
302
+ [self,
303
+ "period:[高麗]",
304
+ ["[天授=ja:%%<天授_(高麗)>]1", "@F", "name=[太祖=ja:%%<太祖_(高麗王)>];918.06^Korean"], # 三国遺事による
305
+ ["[<太祖>=ja:%%<太祖_(高麗王)>]16", "", "933"],
306
+ ["[<恵宗>=ja:%%<恵宗_(高麗王)>]1", "@A", "name=[恵宗=ja:%%<恵宗_(高麗王)>];944"],
307
+ ["[<定宗>=ja:%%<定宗_(高麗王)>]1", "@A", "name=[定宗=ja:%%<定宗_(高麗王)>];946"],
308
+ ["[光徳=ja:%%<光徳_(高麗)>]1", "@A", "name=[光宗=ja:%%<光宗_(高麗王)>];950"],
309
+ ["[<光宗>=ja:%%<光宗_(高麗王)>]3", "@A", "952"],
310
+ # ["[峻豊]1", "@A", "962.01.01"], # こよみ読み解き事典による Wikipedia で否定
311
+ ["[<景宗>=ja:%%<景宗_(高麗王)>]1", "@A", "name=[景宗=ja:%%<景宗_(高麗王)>];976"],
312
+ ["[<成宗>=ja:%%<成宗_(高麗王)>]1", "@A", "name=[成宗=ja:%%<成宗_(高麗王)>];982"],
313
+ ["[<穆宗>=ja:%%<穆宗_(高麗王)>]1", "@A", "name=[穆宗=ja:%%<穆宗_(高麗王)>];998"],
314
+ ["[<顕宗>=ja:%%<顕宗_(高麗王)>]1", "@A", "name=[顕宗=ja:%%<顕宗_(高麗王)>];1010"],
315
+ ["[<徳宗>=ja:%%<徳宗_(高麗王)>]1", "@A", "name=[徳宗=ja:%%<徳宗_(高麗王)>];1032"],
316
+ ["[<靖宗>=ja:%%<靖宗_(高麗王)>]1", "@A", "name=[靖宗=ja:%%<靖宗_(高麗王)>];1035"],
317
+ ["[<文宗>=ja:%%<文宗_(高麗王)>]1", "@A", "name=[文宗=ja:%%<文宗_(高麗王)>];1047"],
318
+ ["[<順宗>=ja:%%<順宗_(高麗王)>]1", "@A", "name=[順宗=ja:%%<順宗_(高麗王)>];1083"],
319
+ ["[<宣宗>=ja:%%<宣宗_(高麗王)>]1", "@A", "name=[宣宗=ja:%%<宣宗_(高麗王)>];1084"],
320
+ ["[<献宗>=ja:%%<献宗_(高麗王)>]1", "@A", "name=[献宗=ja:%%<献宗_(高麗王)>];1095"],
321
+ ["[<粛宗>=ja:%%<粛宗_(高麗王)>]1", "@A", "name=[粛宗=ja:%%<粛宗_(高麗王)>];1096"],
322
+ ["[<睿宗>=ja:%%<睿宗_(高麗王)>]1", "@A", "name=[睿宗=ja:%%<睿宗_(高麗王)>];1106"],
323
+ ["[<仁宗>=ja:%%<仁宗_(高麗王)>]1", "@A", "name=[仁宗=ja:%%<仁宗_(高麗王)>];1123"],
324
+ ["[<毅宗>=ja:%%<毅宗_(高麗王)>]1", "@A", "name=[毅宗=ja:%%<毅宗_(高麗王)>];1147"],
325
+ ["[<明宗>=ja:%%<明宗_(高麗王)>]0", "@A", "name=[明宗=ja:%%<明宗_(高麗王)>];1170.08"], # 朝鮮史による
326
+ ["[<神宗>=ja:%%<神宗_(高麗王)>]1", "@A", "name=[神宗=ja:%%<神宗_(高麗王)>];1198"],
327
+ ["[<熙宗>=ja:%%<熙宗_(高麗王)>]1", "@A", "name=[熙宗=ja:%%<熙宗_(高麗王)>];1205"],
328
+ ["[<康宗>=ja:%%<康宗_(高麗王)>]1", "@A", "name=[康宗=ja:%%<康宗_(高麗王)>];1212"],
329
+ ["[<高宗>=ja:%%<高宗_(高麗王)>]1", "@A", "name=[高宗=ja:%%<高宗_(高麗王)>];1214"],
330
+ ["[<元宗>=ja:%%<元宗_(高麗王)>]1", "@A", "name=[元宗=ja:%%<元宗_(高麗王)>];1260"],
331
+ ["[<忠烈王>]1", "@A", "name=[忠烈王];1275"],
332
+ ["[<忠宣王>]1", "@A", "name=[忠宣王];1298.01"], # 朝鮮史による
333
+ ["[<忠烈王･再>=ja:%%<忠烈王>]24", "@A", "name=[忠烈王];1298.08"], # 〃
334
+ ["[<忠宣王･再>=ja:%%<忠宣王>]1", "@A", "name=[忠宣王];1309"],
335
+ ["[<忠粛王>]1", "@A", "name=[忠粛王];1314"],
336
+ ["[<忠恵王>]1", "@A", "name=[忠恵王];1331"],
337
+ ["[<忠粛王･再>=ja:%%<忠粛王>]1", "@A", "name=[忠粛王];1332"],
338
+ ["[<忠恵王･再>=ja:%%<忠恵王>]1", "@A", "name=[忠恵王];1340"],
339
+ ["[<忠穆王>]1", "@A", "name=[忠穆王];1345"],
340
+ ["[<忠定王>]1", "@A", "name=[忠定王];1349.01.01"],
341
+ ["[<恭愍王>]1", "@A", "name=[恭愍王];1352"],
342
+ ["[<禑王>=ja:%%<王ウ_(高麗王)>]1", "@A", "name=[禑王=ja:%%<王ウ_(高麗王)>];1375"],
343
+ ["[<昌王>=ja:%%<王昌_(高麗王)>]1", "@A", "name=[昌王=ja:%%<王昌_(高麗王)>];1389"],
344
+ ["[<恭譲王>]1", "@A", "name=[恭譲王];1390", "1392.07.17"] # コンサイスによる
345
+ ],
346
+ [self,
347
+ "period:[朝鮮=ja:%%<李氏朝鮮>]",
348
+ ["[<太祖>=ja:%%<李成桂>]1.07.17", "@F", "name=[太祖=ja:%%<李成桂>];1392-07-17^Korean"], # コンサイスによる
349
+ ["[<定宗>=ja:%%<定宗_(朝鮮王)>]1", "@A", "name=[定宗=ja:%%<定宗_(朝鮮王)>];1399"],
350
+ ["[<太宗>=ja:%%<太宗_(朝鮮王)>]1", "@A", "name=[太宗=ja:%%<太宗_(朝鮮王)>];1401"],
351
+ ["[<世宗>=ja:%%<世宗_(朝鮮王)>]1", "@A", "name=[世宗=ja:%%<世宗_(朝鮮王)>];1419"],
352
+ ["[<文宗>=ja:%%<文宗_(朝鮮王)>]1", "@A", "name=[文宗=ja:%%<文宗_(朝鮮王)>];1451"],
353
+ ["[<端宗>=ja:%%<端宗_(朝鮮王)>]1", "@A", "name=[端宗=ja:%%<端宗_(朝鮮王)>];1453"],
354
+ ["[<世祖>=ja:%%<世祖_(朝鮮王)>]1", "@A", "name=[世祖=ja:%%<世祖_(朝鮮王)>];1455"],
355
+ ["[<睿宗>=ja:%%<睿宗_(朝鮮王)>]1", "@A", "name=[睿宗=ja:%%<睿宗_(朝鮮王)>];1469"],
356
+ ["[<成宗>=ja:%%<成宗_(朝鮮王)>]1", "@A", "name=[成宗=ja:%%<成宗_(朝鮮王)>];1470"],
357
+ ["[<燕山君>]1", "@A", "name=[燕山君];1495"],
358
+ ["[<中宗>=ja:%%<中宗_(朝鮮王)>]1", "@A", "name=[中宗=ja:%%<中宗_(朝鮮王)>];1506"],
359
+ ["[<仁宗>=ja:%%<仁宗_(朝鮮王)>]1", "@A", "name=[仁宗=ja:%%<仁宗_(朝鮮王)>];1545"],
360
+ ["[<明宗>=ja:%%<明宗_(朝鮮王)>]1", "@A", "name=[明宗=ja:%%<明宗_(朝鮮王)>];1546"],
361
+ ["[<宣祖>]1", "@A", "name=[宣祖];1568"],
362
+ ["[<光海君>]1", "@A", "name=[光海君];1609"],
363
+ ["[<仁祖>]1", "@A", "name=[仁祖];1623"],
364
+ ["[<孝宗>=ja:%%<孝宗_(朝鮮王)>]1", "@A", "name=[孝宗=ja:%%<孝宗_(朝鮮王)>];1650"],
365
+ ["[<顕宗>=ja:%%<顕宗_(朝鮮王)>]1", "@A", "name=[顕宗=ja:%%<顕宗_(朝鮮王)>];1660"],
366
+ ["[<粛宗>=ja:%%<粛宗_(朝鮮王)>]1", "@A", "name=[粛宗=ja:%%<粛宗_(朝鮮王)>];1675"],
367
+ ["[<景宗>=ja:%%<景宗_(朝鮮王)>]1", "@A", "name=[景宗=ja:%%<景宗_(朝鮮王)>];1721"],
368
+ ["[<英祖>=ja:%%<英祖_(朝鮮王)>]1", "@A", "name=[英祖=ja:%%<英祖_(朝鮮王)>];1725"], # コンサイスでは英宗
369
+ ["[<正祖>]1", "@A", "name=[正祖];1777"],
370
+ ["[<純祖>]1", "@A", "name=[純祖];1801"],
371
+ ["[<憲宗>=ja:%%<憲宗_(朝鮮王)>]1", "@A", "name=[憲宗=ja:%%<憲宗_(朝鮮王)>];1835"],
372
+ ["[<哲宗>=ja:%%<哲宗_(朝鮮王)>]1", "@A", "name=[哲宗=ja:%%<哲宗_(朝鮮王)>];1850"],
373
+ ["[<高宗>=ja:%%<高宗_(朝鮮王)>]1", "@A", "name=[高宗=ja:%%<高宗_(朝鮮王)>];1864"],
374
+ ["[建陽]1", "", "1896.01.01^Gregorian?note=Chinese", # 朝鮮史による
375
+ "1897.10.01"]
376
+ ],
377
+ [self,
378
+ "period:[大韓帝国]",
379
+ ["[光武=ja:%%<光武_(元号)>]1", "@F", "name=[高宗=ja:%%<高宗_(朝鮮王)>];1897.10.01^Gregorian?note=Chinese"],
380
+ ["[隆熙]1", "@A", "name=[純宗=ja:%%<純宗_(朝鮮王)>];1907.07.19", "1910.08.29="]
381
+ ]
382
+ ]]
383
+ end
384
+ end