when_exe 0.2.100 → 0.3.1

data/lib/when_exe/region/v50.rb

@@ -0,0 +1,111 @@
+# -*- coding: utf-8 -*-
+=begin
+  Copyright (C) 2012-2013 Takashi SUGA
+
+  You may use and/or modify this file according to the license described in the LICENSE.txt file included in this archive.
+=end
+
+# Star specifications derived from Bright Star Catalogue V.50
+#
+# see {http://cdsarc.u-strasbg.fr/viz-bin/Cat?V/50}
+#
+module When::Ephemeris::V50
+  klass = When::Ephemeris::Star::Fixed
+
+  # from http://cdsarc.u-strasbg.fr/viz-bin/Cat?V/50
+
+  #   ID              t0         φ        θ      parallax Δφ      Δθ   V     mag     Bayer
+  #                            (deg)      (deg)     (m")   (m"/y)   (m"/y) (km/s)               
+  HR0015 = klass.new(2000.0,   2.09708,  29.09056,  32.0,   136.0,  -163.0, -12,  2.06, "Alp And")
+  HR0021 = klass.new(2000.0,   2.29458,  59.14972,  72.0,   525.0,  -181.0,  12,  2.27, "Bet Cas")
+  HR0099 = klass.new(2000.0,   6.57083, -42.30611,  35.0,   203.0,  -396.0,  75,  2.39, "Alp Phe")
+  HR0168 = klass.new(2000.0,  10.12708,  56.53722,  16.0,    53.0,   -32.0,  -4,  2.23, "Alp Cas")
+  HR0188 = klass.new(2000.0,  10.89750, -17.98667,  61.0,   234.0,    33.0,  13,  2.04, "Bet Cet")
+  HR0264 = klass.new(2000.0,  14.17708,  60.71667,  16.0,    26.0,    -5.0,  -7,  2.47, "Gam Cas")
+  HR0337 = klass.new(2000.0,  17.43292,  35.62056,  49.0,   178.0,  -114.0,   3,  2.06, "Bet And")
+  HR0424 = klass.new(2000.0,  37.95292,  89.26417,   7.0,    38.0,   -15.0, -17,  2.02, "Alp UMi")
+  HR0472 = klass.new(2000.0,  24.42875, -57.23667,  26.0,    95.0,   -35.0,  16,  0.46, "Alp Eri")
+  HR0603 = klass.new(2000.0,  30.97500,  42.32972,  13.0,    45.0,   -52.0, -12,  2.26, "Gam1 And")
+  HR0617 = klass.new(2000.0,  31.79333,  23.46250,  49.0,   190.0,  -148.0, -14,  2.00, "Alp Ari")
+  HR0936 = klass.new(2000.0,  47.04208,  40.95556,  45.0,     4.0,    -1.0,   4,  2.12, "Bet Per")
+  HR1017 = klass.new(2000.0,  51.08083,  49.86111,  16.0,    24.0,   -25.0,  -2,  1.79, "Alp Per")
+  HR1457 = klass.new(2000.0,  68.98000,  16.50917,  48.0,    63.0,  -190.0,  54,  0.85, "Alp Tau")
+  HR1708 = klass.new(2000.0,  79.17250,  45.99806,  73.0,    76.0,  -425.0,  30,  0.08, "Alp Aur")
+  HR1713 = klass.new(2000.0,  78.63458,  -8.20167,  13.0,     0.0,    -1.0,  21,  0.12, "Bet Ori")
+  HR1790 = klass.new(2000.0,  81.28292,   6.34972,  29.0,    -9.0,   -14.0,  18,  1.64, "Gam Ori")
+  HR1791 = klass.new(2000.0,  81.57292,  28.60750,  28.0,    22.0,  -175.0,   9,  1.65, "Bet Tau")
+  HR1852 = klass.new(2000.0,  83.00167,  -0.29917,  14.0,     1.0,    -2.0,  16,  2.23, "Del Ori")
+  HR1903 = klass.new(2000.0,  84.05333,  -1.20194,  -2.0,     1.0,    -2.0,  26,  1.70, "Eps Ori")
+  HR1948 = klass.new(2000.0,  85.18958,  -1.94278,  24.0,     3.0,    -2.0,  18,  2.05, "Zet Ori")
+  HR2004 = klass.new(2000.0,  86.93917,  -9.66972,  15.0,     2.0,    -2.0,  21,  2.06, "Kap Ori")
+  HR2061 = klass.new(2000.0,  88.79292,   7.40694,   5.0,    26.0,     9.0,  21,  0.50, "Alp Ori")
+  HR2088 = klass.new(2000.0,  89.88208,  44.94750,  41.0,   -57.0,     0.0, -18,  1.90, "Bet Aur")
+  HR2294 = klass.new(2000.0,  95.67500, -17.95583,  19.0,    -6.0,     0.0,  34,  1.98, "Bet CMa")
+  HR2326 = klass.new(2000.0,  95.98792, -52.69583,  28.0,    22.0,    21.0,  21, -0.72, "Alp Car")
+  HR2421 = klass.new(2000.0,  99.42792,  16.39917,  33.0,    42.0,   -42.0, -13,  1.93, "Gam Gem")
+  HR2491 = klass.new(2000.0, 101.28708, -16.71611, 375.0,  -553.0, -1205.0,  -8, -1.46, "Alp CMa")
+  HR2618 = klass.new(2000.0, 104.65625, -28.97222,   1.0,     4.0,     3.0,  27,  1.50, "Eps CMa")
+  HR2693 = klass.new(2000.0, 107.09792, -26.39333, -11.0,    -3.0,     4.0,  34,  1.84, "Del CMa")
+  HR2827 = klass.new(2000.0, 111.02375, -29.30306,   0.0,    -4.0,     5.0,  41,  2.45, "Eta CMa")
+  HR2891 = klass.new(2000.0, 113.65000,  31.88833,  67.0,  -171.0,   -98.0,   6,  1.98, "Alp Gem")
+  HR2943 = klass.new(2000.0, 114.82542,   5.22500, 288.0,  -710.0, -1023.0,  -3,  0.38, "Alp CMi")
+  HR2990 = klass.new(2000.0, 116.32875,  28.02611,  94.0,  -628.0,   -46.0,   3,  1.14, "Bet Gem")
+  HR3165 = klass.new(2000.0, 120.89625, -40.00333,   0.0,   -27.0,    12.0, -24,  2.25, "Zet Pup")
+  HR3207 = klass.new(2000.0, 122.38333, -47.33667,  17.0,    -4.0,     6.0,  35,  1.78, "Gam2 Vel")
+  HR3307 = klass.new(2000.0, 125.62833, -59.50972,   0.0,   -26.0,    14.0,   2,  1.86, "Eps Car")
+  HR3485 = klass.new(2000.0, 131.17583, -54.70833,  51.0,    23.0,   -78.0,   2,  1.96, "Del Vel")
+  HR3634 = klass.new(2000.0, 136.99917, -43.43250,  22.0,   -19.0,    13.0,  18,  2.21, "Lam Vel")
+  HR3685 = klass.new(2000.0, 138.30000, -69.71722,  21.0,  -162.0,   108.0,  -5,  1.68, "Bet Car")
+  HR3699 = klass.new(2000.0, 139.27250, -59.27528,  17.0,   -20.0,     8.0,  13,  2.25, "Iot Car")
+  HR3748 = klass.new(2000.0, 141.89667,  -8.65861,  22.0,   -14.0,    33.0,  -4,  1.98, "Alp Hya")
+  HR3982 = klass.new(2000.0, 152.09292,  11.96722,  45.0,  -248.0,     6.0,   6,  1.35, "Alp Leo")
+  HR4295 = klass.new(2000.0, 165.46042,  56.38250,  53.0,    82.0,    34.0, -12,  2.37, "Bet UMa")
+  HR4301 = klass.new(2000.0, 165.93208,  61.75083,  38.0,  -119.0,   -67.0,  -9,  1.79, "Alp UMa")
+  HR4534 = klass.new(2000.0, 177.26500,  14.57194,  82.0,  -497.0,  -114.0,   0,  2.14, "Bet Leo")
+  HR4554 = klass.new(2000.0, 178.45750,  53.69472,  28.0,    95.0,    12.0, -13,  2.44, "Gam UMa")
+  HR4730 = klass.new(2000.0, 186.64958, -63.09917,   8.0,   -36.0,   -12.0, -11,  1.33, "Alp1 Cru")
+  HR4731 = klass.new(2000.0, 186.65208, -63.09944,   8.0,   -34.0,    -7.0,  -1,  1.73, "Alp2 Cru")
+  HR4763 = klass.new(2000.0, 187.79125, -57.11333,   0.0,    23.0,  -262.0,  21,  1.63, "Gam Cru")
+  HR4819 = klass.new(2000.0, 190.37917, -48.95972,  16.0,  -189.0,    -5.0,  -6,  2.17, "Gam Cen")
+  HR4853 = klass.new(2000.0, 191.93000, -59.68861,   0.0,   -48.0,   -14.0,  16,  1.25, "Bet Cru")
+  HR4905 = klass.new(2000.0, 193.50708,  55.95972,   9.0,   112.0,    -6.0,  -9,  1.77, "Eps UMa")
+  HR5054 = klass.new(2000.0, 200.98125,  54.92528,  47.0,   122.0,   -20.0,  -6,  2.27, "Zet UMa")
+  HR5056 = klass.new(2000.0, 201.29833, -11.16139,  23.0,   -41.0,   -28.0,   1,  0.98, "Alp Vir")
+  HR5132 = klass.new(2000.0, 204.97167, -53.46639,   0.0,   -28.0,   -16.0,   3,  2.30, "Eps Cen")
+  HR5191 = klass.new(2000.0, 206.88500,  49.31333,  35.0,  -122.0,   -11.0, -11,  1.86, "Eta UMa")
+  HR5267 = klass.new(2000.0, 210.95583, -60.37306,   9.0,   -32.0,   -19.0,   6,  0.61, "Bet Cen")
+  HR5288 = klass.new(2000.0, 211.67083, -36.37000,  65.0,  -519.0,  -519.0,   1,  2.06, "The Cen")
+  HR5340 = klass.new(2000.0, 213.91542,  19.18250,  90.0, -1093.0, -1998.0,  -5, -0.04, "Alp Boo")
+  HR5440 = klass.new(2000.0, 218.87667, -42.15778,   0.0,   -35.0,   -35.0,   0,  2.31, "Eta Cen")
+  HR5459 = klass.new(2000.0, 219.89958, -60.83528, 751.0, -3642.0,   699.0, -22, -0.01, "Alp1 Cen")
+  HR5460 = klass.new(2000.0, 219.90042, -60.83556, 751.0, -3646.0,   700.0, -21,  1.33, "Alp2 Cen")
+  HR5469 = klass.new(2000.0, 220.48250, -47.38833,   0.0,   -21.0,   -18.0,   5,  2.30, "Alp Lup")
+  HR5563 = klass.new(2000.0, 222.67625,  74.15556,  39.0,   -31.0,    12.0,  17,  2.08, "Bet UMi")
+  HR5793 = klass.new(2000.0, 233.67208,  26.71472,  45.0,   121.0,   -89.0,   2,  2.23, "Alp CrB")
+  HR5953 = klass.new(2000.0, 240.08333, -22.62167,   0.0,   -12.0,   -22.0,  -7,  2.32, "Del Sco")
+  HR5958 = klass.new(2000.0, 239.87583,  25.92028,   0.0,    -5.0,    13.0, -29,  2.00, " ")
+  HR6134 = klass.new(2000.0, 247.35167, -26.43194,  24.0,   -10.0,   -20.0,  -3,  0.96, "Alp Sco")
+  HR6217 = klass.new(2000.0, 252.16625, -69.02778,  31.0,    14.0,   -34.0,  -3,  1.92, "Alp TrA")
+  HR6241 = klass.new(2000.0, 252.54083, -34.29333,  22.0,  -611.0,  -255.0,  -3,  2.29, "Eps Sco")
+  HR6378 = klass.new(2000.0, 257.59458, -15.72472,  52.0,    39.0,    98.0,  -1,  2.43, "Eta Oph")
+  HR6527 = klass.new(2000.0, 263.40208, -37.10389,   0.0,    -1.0,   -29.0,  -3,  1.63, "Lam Sco")
+  HR6553 = klass.new(2000.0, 264.33000, -42.99778,  27.0,    15.0,    -2.0,   1,  1.87, "The Sco")
+  HR6556 = klass.new(2000.0, 263.73375,  12.56000,  67.0,   120.0,  -226.0,  13,  2.08, "Alp Oph")
+  HR6580 = klass.new(2000.0, 265.62208, -39.03000,   0.0,    -6.0,   -27.0, -14,  2.41, "Kap Sco")
+  HR6705 = klass.new(2000.0, 269.15167,  51.48889,  25.0,    -8.0,   -19.0, -28,  2.23, "Gam Dra")
+  HR6879 = klass.new(2000.0, 276.04292, -34.38472,  23.0,   -38.0,  -124.0, -15,  1.85, "Eps Sgr")
+  HR7001 = klass.new(2000.0, 279.23458,  38.78361, 123.0,   202.0,   286.0, -14,  0.03, "Alp Lyr")
+  HR7121 = klass.new(2000.0, 283.81625, -26.29667,   0.0,    13.0,   -54.0, -11,  2.02, "Sig Sgr")
+  HR7557 = klass.new(2000.0, 297.69583,   8.86833, 198.0,   538.0,   386.0, -26,  0.77, "Alp Aql")
+  HR7790 = klass.new(2000.0, 306.41208, -56.73500,   0.0,     7.0,   -89.0,   2,  1.94, "Alp Pav")
+  HR7796 = klass.new(2000.0, 305.55708,  40.25667,   3.0,     4.0,     0.0,  -8,  2.20, "Gam Cyg")
+  HR7924 = klass.new(2000.0, 310.35792,  45.28028,  -6.0,     3.0,     2.0,  -5,  1.25, "Alp Cyg")
+  HR7949 = klass.new(2000.0, 311.55292,  33.97028,  57.0,   356.0,   328.0, -11,  2.46, "Eps Cyg")
+  HR8162 = klass.new(2000.0, 319.64500,  62.58556,  68.0,   151.0,    49.0, -10,  2.44, "Alp Cep")
+  HR8308 = klass.new(2000.0, 326.04667,   9.87500,   6.0,    31.0,    -1.0,   5,  2.39, "Eps Peg")
+  HR8425 = klass.new(2000.0, 332.05833, -46.96111,  57.0,   129.0,  -151.0,  12,  1.74, "Alp Gru")
+  HR8636 = klass.new(2000.0, 340.66708, -46.88472,   8.0,   137.0,    -8.0,   2,  2.10, "Bet Gru")
+  HR8728 = klass.new(2000.0, 344.41292, -29.62222, 149.0,   333.0,  -165.0,   7,  1.16, "Alp PsA")
+  HR8775 = klass.new(2000.0, 345.94375,  28.08278,  22.0,   189.0,   137.0,   9,  2.42, "Bet Peg")
+  HR8781 = klass.new(2000.0, 346.19042,  15.20528,  38.0,    63.0,   -42.0,  -4,  2.49, "Alp Peg")
+end

data/lib/when_exe/region/vietnamese.rb

@@ -0,0 +1,173 @@
+# -*- coding: utf-8 -*-
+=begin
+  Copyright (C) 2013 Takashi SUGA
+
+  You may use and/or modify this file according to the license described in the LICENSE.txt file included in this archive.
+=end
+
+require 'when_exe/region/chinese_calendar'
+
+#
+#  ベトナム王位年号一覧表
+#
+# （参考文献）
+# コンサイス世界年表（三省堂）
+# 歴代紀元編（台湾中華書局）
+module When
+  class TM::CalendarEra
+
+    #
+    # ベトナム
+    #
+    Vietnamese = [self, [
+      "namespace:[ja=http://ja.wikipedia.org/wiki/, en=http://en.wikipedia.org/wiki/]",
+      "locale:[=ja:, en=en:, alias]",
+      "area:[ベトナム,Vietnam]",
+      [self,
+	"period:[呉朝]",
+	["[呉権]1",	"[::_m:EpochEvents::Foundation]",	"name=[呉権];939^Chinese0939", "943="],
+	["[天策王]1",	"[::_m:EpochEvents::Accession]",      "name=[天策王];952"],
+	["[南晋王]1",	"[::_m:EpochEvents::Accession]",      "name=[南晋王];954"],
+	["[呉昌熾]1",	"[::_m:EpochEvents::Accession]",      "name=[呉昌熾];966", "968"]
+      ],
+      [self,
+	"period:[丁朝]",
+	["[太平]1",	"[::_m:EpochEvents::Foundation]",      "name=[丁部領];968^Chinese0939"],
+	["[太平]12",	"[::_m:EpochEvents::Accession]",	"name=[衛王];979", "980"]
+      ],
+      [self,
+	"period:[前黎朝]",
+	["[天福]1",	"[::_m:EpochEvents::Foundation]",	"name=[黎桓];980^Chinese0939"],
+	["[興統]1",	"[::_m:EpochEvents::Accession]",		    "989"],
+	["[応天]1",	"[::_m:EpochEvents::Accession]",		    "994"],
+	["[応天]12",	"[::_m:EpochEvents::Accession]",	"name=[中宗];1005"],
+	["[景瑞]1",	"[::_m:EpochEvents::Accession]",      "name=[臥朝王];1005", "1009"]
+      ],
+      [self,
+	"period:[李朝]",
+	["[順天]1",	"[::_m:EpochEvents::Foundation]",	"name=[太祖];1009^Chinese0939"],
+	["[天成]1",	"[::_m:EpochEvents::Accession]",	"name=[太宗];1028"],
+	["[通瑞]1",	"[::_m:EpochEvents::Accession]",		    "1034"],
+	["[乾符有道]1",	"[::_m:EpochEvents::Accession]",		    "1039"],
+	["[明道]1",	"[::_m:EpochEvents::Accession]",		    "1042"],
+	["[天感聖武]1",	"[::_m:EpochEvents::Accession]",		    "1044"],
+	["[崇興大宝]1",	"[::_m:EpochEvents::Accession]",		    "1049"],
+	["[龍瑞太平]1",	"[::_m:EpochEvents::Accession]",	"name=[聖宗];1054"],
+	["[彰聖嘉慶]1",	"[::_m:EpochEvents::Accession]",		    "1059"],
+	["[龍章天嗣]1",	"[::_m:EpochEvents::Accession]",		    "1065"],
+	["[天貺宝象]1",	"[::_m:EpochEvents::Accession]",		    "1067"],
+	["[神武]1",	"[::_m:EpochEvents::Accession]",		    "1068"],
+	["[太寧]1",	"[::_m:EpochEvents::Accession]",	"name=[仁宗];1072"],
+	["[英武昭聖]1",	"[::_m:EpochEvents::Accession]",		    "1076"],
+	["[広祐]1",	"[::_m:EpochEvents::Accession]",		    "1085"],
+	["[会豊]1",	"[::_m:EpochEvents::Accession]",		    "1092"],
+	["[龍符]1",	"[::_m:EpochEvents::Accession]",		    "1101"],
+	["[会祥大慶]1",	"[::_m:EpochEvents::Accession]",		    "1109"],
+	["[天符睿武]1",	"[::_m:EpochEvents::Accession]",		    "1118"],			# このあたり２年のズレがあるか？
+	["[天符慶寿]1",	"[::_m:EpochEvents::Accession]",		    "1127"],
+	["[天順]1",	"[::_m:EpochEvents::Accession]",	"name=[神宗];1128"],
+	["[天彰宝嗣]1",	"[::_m:EpochEvents::Accession]",		    "1133.01.01"],
+	["[紹明]1",	"[::_m:EpochEvents::Accession]",	"name=[英宗];1138"],
+	["[大定]1",	"[::_m:EpochEvents::Accession]",		    "1140.01.01"],
+	["[政隆宝応]1",	"[::_m:EpochEvents::Accession]",		    "1163.01.01"],
+	["[天感至宝]1",	"[::_m:EpochEvents::Accession]",		    "1174.01.01"],
+	["[貞符]1",	"[::_m:EpochEvents::Accession]",	"name=[高宗];1176"],
+	["[天資嘉瑞]1",	"[::_m:EpochEvents::Accession]",		    "1186.01.01"],
+	["[天資宝祐]1",	"[::_m:EpochEvents::Accession]",		    "1202.01.01"],
+	["[治平龍応]1",	"[::_m:EpochEvents::Accession]",		    "1205"],
+	["[建嘉]1",	"[::_m:EpochEvents::Accession]",	"name=[恵宗];1211"],
+	["[天彰有道]1",	"[::_m:EpochEvents::Accession]",	"name=[昭皇];1224", "1225"]
+      ],
+      [self,
+	"period:[陳朝]",
+	["[建中]1",	"[::_m:EpochEvents::Foundation]",	"name=[太宗];1225^Chinese0939"],
+	["[天応政平]1",	"[::_m:EpochEvents::Accession]",		    "1232.01.01"],
+	["[元豊]1",	"[::_m:EpochEvents::Accession]",		    "1251.01.01"],
+	["[紹隆]1",	"[::_m:EpochEvents::Accession]",	"name=[聖宗];1258"],
+	["[宝符]1",	"[::_m:EpochEvents::Accession]",		    "1273.01.01"],
+	["[紹宝]1",	"[::_m:EpochEvents::Accession]",	"name=[仁宗];1279"],
+	["[重興]1",	"[::_m:EpochEvents::Accession]",		    "1285"],
+	["[興隆]1",	"[::_m:EpochEvents::Accession]",	"name=[英宗];1293"],
+	["[大慶]1",	"[::_m:EpochEvents::Accession]",	"name=[明宗];1314"],
+	["[開泰]1",	"[::_m:EpochEvents::Accession]",		    "1324.01.01"],
+	["[開祐]1",	"[::_m:EpochEvents::Accession]",	"name=[憲宗];1329"],
+	["[紹豊]1",	"[::_m:EpochEvents::Accession]",	"name=[裕宗];1341"],
+	["[大治]1",	"[::_m:EpochEvents::Accession]",		    "1358.01.01"],
+	["[大定]1",	"[::_m:EpochEvents::Accession]",      "name=[楊日礼];1369"],
+	["[紹慶]1",	"[::_m:EpochEvents::Accession]",	"name=[芸宗];1370"],
+	["[隆慶]1",	"[::_m:EpochEvents::Accession]",	"name=[睿宗];1373"],
+	["[昌符]1",	"[::_m:EpochEvents::Accession]",	"name=[廃帝];1377"],
+	["[光泰]1",	"[::_m:EpochEvents::Accession]",	"name=[順宗];1388"],
+	["[建新]1",	"[::_m:EpochEvents::Accession]",	"name=[少帝];1398", "1400="]
+      ],
+      [self,
+	"period:[後陳朝]",
+	["[興慶]1",	"[::_m:EpochEvents::Foundation]",     "name=[簡定帝];1407^Chinese0939"],
+	["[重光]1",	"[::_m:EpochEvents::Accession]",      "name=[重光帝];1409", "1414.03="]
+      ],
+      [self,
+	"period:[後黎朝]",
+	["[順天]1",	"[::_m:EpochEvents::Foundation]",	"name=[太祖];1428^Chinese0939"],
+	["[紹平]1",	"[::_m:EpochEvents::Accession]",	"name=[太宗];1434"],
+	["[大宝]1",	"[::_m:EpochEvents::Accession]",		    "1440.01.01"],
+	["[太和]1",	"[::_m:EpochEvents::Accession]",	"name=[仁宗];1443"],
+	["[延寧]1",	"[::_m:EpochEvents::Accession]",		    "1454.01.01"],
+	["[天興]1",	"[::_m:EpochEvents::Accession]",	"name=[廃帝];1459"],
+	["[光順]1",	"[::_m:EpochEvents::Accession]",	"name=[聖宗];1460"],
+	["[洪徳]1",	"[::_m:EpochEvents::Accession]",		    "1470.01.01"],
+	["[景統]1",	"[::_m:EpochEvents::Accession]",	"name=[憲宗];1498"],
+	["[泰貞]1",	"[::_m:EpochEvents::Accession]",	"name=[粛宗];1504"],
+	["[端慶]1",	"[::_m:EpochEvents::Accession]",      "name=[威穆帝];1505"],
+	["[洪順]1",	"[::_m:EpochEvents::Accession]",      "name=[襄翼帝];1509"],
+	["[光紹]1",	"[::_m:EpochEvents::Accession]",	"name=[昭宗];1516"],
+	["[統元]1",	"[::_m:EpochEvents::Accession]",	"name=[恭帝];1522", "1527="],
+	["[元和]1",	"[::_m:EpochEvents::Accession]",	"name=[荘宗];1533"],
+	["[順平]1",	"[::_m:EpochEvents::Accession]",	"name=[中宗];1549"],
+	["[天祐]1",	"[::_m:EpochEvents::Accession]",	"name=[英宗];1557"],
+	["[正治]1",	"[::_m:EpochEvents::Accession]",		    "1558.01.01"],
+	["[洪福]1",	"[::_m:EpochEvents::Accession]",		    "1572.01.01"],
+	["[嘉泰]1",	"[::_m:EpochEvents::Accession]",	"name=[世宗];1573"],
+	["[光興]1",	"[::_m:EpochEvents::Accession]",		    "1578.01.01"],
+	["[慎徳]1",	"[::_m:EpochEvents::Accession]",	"name=[敬宗];1600"],
+	["[弘定]1",	"[::_m:EpochEvents::Accession]",		    "1600"],
+	["[永祚]1",	"[::_m:EpochEvents::Accession]",	"name=[神宗];1619"],
+	["[徳隆]1",	"[::_m:EpochEvents::Accession]",		    "1629.01.01"],
+	["[陽和]1",	"[::_m:EpochEvents::Accession]",		    "1635.01.01"],
+	["[福泰]1",	"[::_m:EpochEvents::Accession]",	"name=[真宗];1643", "1645^Chinese1645", ""],
+	["[慶徳]1",	"[::_m:EpochEvents::Accession]",	"name=[神宗];1649"],
+	["[盛徳]1",	"[::_m:EpochEvents::Accession]",		    "1653"],
+	["[永寿]1",	"[::_m:EpochEvents::Accession]",		    "1658"],
+	["[万慶]1",	"[::_m:EpochEvents::Accession]",	"name=[玄宗];1662"],
+	["[景治]1",	"[::_m:EpochEvents::Accession]",		    "1663.01.01"],
+	["[陽徳]1",	"[::_m:EpochEvents::Accession]",	"name=[嘉宗];1672"],
+	["[徳元]1",	"[::_m:EpochEvents::Accession]",		    "1674"],
+	["[永治]1",	"[::_m:EpochEvents::Accession]",	"name=[熙宗];1676"],
+	["[正和]1",	"[::_m:EpochEvents::Accession]",		    "1680"],
+	["[永盛]1",	"[::_m:EpochEvents::Accession]",	"name=[裕宗];1705"],
+	["[保泰]1",	"[::_m:EpochEvents::Accession]",		    "1720.01.01"],
+	["[永慶]1",	"[::_m:EpochEvents::Accession]",	"name=[廃帝];1729"],
+	["[龍徳]1",	"[::_m:EpochEvents::Accession]",	"name=[純宗];1732"],
+	["[永佑]1",	"[::_m:EpochEvents::Accession]",	"name=[懿宗];1735"],
+	["[景興]1",	"[::_m:EpochEvents::Accession]",	"name=[顕宗];1740"],
+	["[昭統]1",	"[::_m:EpochEvents::Accession]",	"name=[愍帝];1787", "1789.10="]
+      ],
+      [self,
+	"period:[阮朝]",
+	["[嘉隆]1",	"[::_m:EpochEvents::Foundation]",	"name=[世祖];1802^Chinese1645"],
+	["[明命]1",	"[::_m:EpochEvents::Accession]",	"name=[聖祖];1820"],
+	["[紹治]1",	"[::_m:EpochEvents::Accession]",	"name=[憲祖];1841"],
+	["[嗣徳]1",	"[::_m:EpochEvents::Accession]",	"name=[翼宗];1848"],
+	["[育徳]1",	"[::_m:EpochEvents::Accession]",      "name=[育徳帝];1883"],
+	["[協和]1",	"[::_m:EpochEvents::Accession]",      "name=[協和帝];1883"],
+	["[建福]1",	"[::_m:EpochEvents::Accession]",	"name=[簡宗];1884"],
+	["[咸宜]1",	"[::_m:EpochEvents::Accession]",      "name=[咸宜帝];1885"],
+	["[同慶]1",	"[::_m:EpochEvents::Accession]",	"name=[景宗];1885",
+									    "1887.10.17^Gregorian?note=ChineseNotes", ""],
+	["[成泰]1",	"[::_m:EpochEvents::Accession]",      "name=[成泰帝];1889"],
+	["[維新]1",	"[::_m:EpochEvents::Accession]",      "name=[維新帝];1907"],
+	["[啓定]1",	"[::_m:EpochEvents::Accession]",      "name=[啓定帝];1916"],
+	["[保大]1",	"[::_m:EpochEvents::Accession]",      "name=[保大帝];1926", "1945.09.02="]
+      ]
+    ]]
+  end
+end

data/lib/when_exe/region/world.rb

@@ -0,0 +1,197 @@
+# -*- coding: utf-8 -*-
+=begin
+  Copyright (C) 2011-2013 Takashi SUGA
+
+  You may use and/or modify this file according to the license described in the LICENSE.txt file included in this archive.
+=end
+
+module When
+
+  class BasicTypes::M17n
+
+    WorldTerms = [self, [
+      "namespace:[en=http://en.wikipedia.org/wiki/, ja=http://ja.wikipedia.org/wiki/]",
+      "locale:[=en:, ja=ja:, alias]",
+      "names:[WorldTerms]",
+      "[World=en:The_World_Calendar, 世界暦=ja:%E4%B8%96%E7%95%8C%E6%9A%A6]"
+    ]]
+  end
+
+  class TM::CalendarEra
+
+    World = [self, [
+      "namespace:[en=http://en.wikipedia.org/wiki/]",
+      "area:[Common]",
+      ["[BCE=en:BCE_(disambiguation), alias:BeforeCommonEra]0.1.1"],
+      ["[CE=en:Common_Era, alias:CommonEra]1.1.1", "Calendar Epoch", "01-01-01^World"]
+    ]]
+  end
+
+  module CalendarTypes
+
+    #
+    # 世界暦の暦週
+    #
+    class CalendarNote::WorldWeek < CalendarNote
+
+      NoteObjects = [When::BasicTypes::M17n, [
+        "namespace:[en=http://en.wikipedia.org/wiki/, ja=http://ja.wikipedia.org/wiki/]",
+        "locale:[=en:, ja=ja:, alias]",
+        "names:[World]",
+
+        # 年の暦注 ----------------------------
+        [When::BasicTypes::M17n,
+          "names:[year]"
+        ],
+
+        # 月の暦注 ----------------------------
+        [When::BasicTypes::M17n,
+          "names:[month]",
+          [When::BasicTypes::M17n,
+            "names:[Month]"
+          ]
+        ],
+
+        # 日の暦注 ----------------------------
+        [When::BasicTypes::M17n,
+          "names:[day]",
+          [When::BasicTypes::M17n,
+            "names:[Week]",
+            "[Sunday,    日曜日]",
+            "[Monday,    月曜日]",
+            "[Tuesday,   火曜日]",
+            "[Wednesday, 水曜日]",
+            "[Thursday,  木曜日]",
+            "[Friday,    金曜日]",
+            "[Saturday,  土曜日]",
+            "[Worldsday, 無曜日]"
+          ]
+        ]
+      ]]
+
+      # イベントの標準的な間隔を返す
+      # @private
+      def _delta(parameter=nil)
+        return When::DurationP1W
+      end
+
+      # @private
+      def worldsday_delta(parameter=nil)
+        return When::TM::PeriodDuration.new([0,0,7*26+1])
+      end
+
+      # 当日または直前の worldsday の日
+      # @param date [When::TM::TemporalPosition]
+      # @param parameter [nil] 未使用
+      # @return [When::TM::TemporalPosition]
+      #
+      def worldsday(date, parameter=nil)
+        event_name = 'worldsday'
+        date  = When.Calendar('World').jul_trans(date, {:events=>event_name})
+        y,m,d = date.cal_date
+        h, m  = (m-1).divmod(6)
+        return date if m == 5 && d == 31
+        dow   = [0, 31, 61, 91, 122, 152][m] + d
+        dow  += 182 if h == 1 && When.Calendar('World')._sum([y]) == 365
+        date += When::TM::PeriodDuration.new([0,0,-dow])
+        date.events = [event_name]
+        date
+      end
+
+      # 当日または直前の week_day の日
+      # @method week_day(date, parameter=nil)
+      #   @param date [When::TM::TemporalPosition]
+      #   @param parameter [nil] 未使用
+      #   @return [When::TM::TemporalPosition]
+      #   @note week_day は sunday, monday, tuesday, wednesday, thursday, friday, saturday に読み替えてください。
+
+      # @private
+      7.times do |k|
+        name = When.CalendarNote('WorldWeek/NoteObjects::day::Week')[k].to_s.downcase
+        module_eval %Q{
+          def #{name}(date, parameter=nil)
+            event_name = 'from_#{name}'
+            date  = When.Calendar('World').jul_trans(date, {:events=>[event_name]})
+            y,m,d = date.cal_date
+            dow   = (m % 6 == 0 && d == 31) ? 7-#{k} : ([4,6,2][m % 3] + d - #{k}) % 7
+            return date if dow == 0
+            dow  += 1 if d <= dow && (m == 1 || m == 7 && When.Calendar('World')._sum([y]) == 366)
+            date += When::TM::PeriodDuration.new([0,0,-dow])
+            date.events = [event_name]
+            date
+          end
+
+          alias :#{name}_delta :_delta
+        }
+      end
+
+      alias :week :sunday
+
+      # Enumeratorの生成
+      #
+      # @param [When::TM::TemporalPosition] first 始点
+      # @param [Symbol] direction
+      #   [ :forward - 昇順 ]
+      #   [ :reverse - 降順 ]
+      # @param [String] event イベント名
+      # @param [Integer] count_limit 繰り返し回数(デフォルトは指定なし)
+      #
+      # @return [When::CalendarTypes::ShireWeek::Enumerator]
+      #
+      def enum_for(first, direction=:forward, event=nil, count_limit=nil)
+        Enumerator.new(self, first, direction, event||@event, count_limit)
+      end
+      alias :to_enum :enum_for
+
+      # オブジェクトの正規化
+      # @private
+      def _normalize(args=[], options={})
+        @event ||= 'sunday'
+        super
+      end
+
+      #
+      # イベントを取得する Enumerator
+      #
+      class Enumerator < CalendarNote::Enumerator
+
+        #
+        # 次のイベントを得る
+        #
+        # @return [When::TM::TemporalPosition]
+        #
+        def succ
+          value = @current
+          if @current==:first
+            @first   = event_eval(@first) if @delta.sign < 0
+            @current = @first
+          else
+            @current = event_eval(@current + @delta)
+            @current = event_eval(@current + @delta * 2) if @current.to_i == value.to_i
+          end
+          return value
+        end
+      end
+    end
+
+    #
+    # World calendar based on Gregorian calendar
+    #
+    World =  [CyclicTableBased, {
+      'label'   => When.Resource('_m:WorldTerms::World'),
+      'origin_of_LSC'  => 1721060,
+      'indices' => [
+         Coordinates::Index.new({:unit =>12, :trunk=>When.Resource('_m:CalendarTerms::Month::*')}),
+         Coordinates::Index.new
+       ],
+      'rule_table'      => {
+        'T'  => {'Rule'  =>['LC', 'SC', 'SC', 'SC']},
+        'SC' => {'Rule'  =>[365]*4 + [366, 365, 365, 365]*24},
+        'LC' => {'Rule'  =>[366, 365, 365, 365]*25},
+        365  => {'Length'=>[31,30,30]*3 + [31,30,31]},
+        366  => {'Length'=>[31,30,30,31,30,31] *2}
+      },
+      'note'   => 'WorldWeek'
+    }]
+  end
+end