when_exe 0.4.2 → 0.5.0

data/lib/when_exe/region/location.rb

@@ -0,0 +1,40 @@
+# -*- coding: utf-8 -*-
+=begin
+  Copyright (C) 2015 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::Coordinates
+
+  LocationTable = [
+
+    # 0 : Resource Pool
+    {},
+
+    # 1 : Fine Area Coordinates
+    {},
+
+    # 2 : Middle Area  Coordinates
+    Hash.new {|h,k|
+      h[k] = {}
+    },
+
+    # 3 : Wide Area Coordinates
+    Hash.new {|h1,k1|
+      h1[k1] = Hash.new {|h2,k2|
+        h2[k2] = {}
+      }
+    },
+
+    # 4 : Alias Pool
+    Hash.new {|h,k|
+      h[k] = []
+    }
+  ]
+
+end
+
+require 'when_exe/region/japanese/location'
+

data/lib/when_exe/region/martian.rb

@@ -104,7 +104,7 @@ module When
       # オブジェクトの正規化
       def _normalize(args=[], options={})
         @location = When.Resource(@location || '_l:long=0&lat=0&datum=Mars')
-        @mtc0     = MTC0 + @location.long / (360.0 * When::Coordinates::Spatial::DEGREE)
+        @mtc0     = MTC0 + @location.long / (360.0 * @location.degree)
         super
       end
     end

data/lib/when_exe/region/mayan.rb

@@ -24,7 +24,7 @@ module When
 
       [Residue,
         "label:[Haab', ハアブ, Haab]", "divisor:365", 'day:#{Haab:300}', "format:[%2$d%1$s/365=]",
-        "namespace:[glyph=http://en.wikipedia.org/wiki/File:]",
+        "namespace:[glyph=https://en.wikipedia.org/wiki/File:]",
         [Residue, "label:[Pop     =glyph:Maya-Pop.jpg,            ポプ,        Pop   ]", "remainder:  0"],
         [Residue, "label:[Wo'     =glyph:Maya-Dresden-wo.jpg,     ウオ,        Wo    ]", "remainder: 20"],
         [Residue, "label:[Sip     =glyph:Maya-Dresden-sip.jpg,    シプ,        Sip   ]", "remainder: 40"],
@@ -54,7 +54,7 @@ module When
       ],
 
       [Residue,
-        "namespace:[glyph=http://en.wikipedia.org/wiki/File:MAYA-g-log-cal-]",
+        "namespace:[glyph=https://en.wikipedia.org/wiki/File:MAYA-g-log-cal-]",
         "label:[Tzolk'in, ツォルキン, Tzolkin]", "divisor:20", 'day:#{Tzolkin:4}', "format:[%s(%d/20)=]",
         [Residue, "label:[Imix'   =glyph:D01-Imix.png,     イミシュ,   Imix    =glyph:D01-Imix-cdxW.png    ]", "remainder: 0"],
         [Residue, "label:[Ik'     =glyph:D02-Ik.png,       イック,     Ik      =glyph:D02-Ik-cdxW.png      ]", "remainder: 1"],

data/lib/when_exe/region/roman.rb

@@ -96,7 +96,7 @@ module When
 
   class TM::CalendarEra
 
-    # From http://en.wikipedia.org/wiki/Julian_calendar#Sacrobosco.27s_theory_on_month_lengths
+    # From https://en.wikipedia.org/wiki/Julian_calendar#Sacrobosco.27s_theory_on_month_lengths
     Julians = [self, [
       "locale:[=en:, ja=ja:, zh=zh:, alias]",
       "period:[Roman=en:Roman_calendar, ローマ暦, 羅馬曆]",
@@ -124,7 +124,7 @@ module When
 
   module CalendarTypes
 
-    # From http://en.wikipedia.org/wiki/Julian_calendar#Sacrobosco.27s_theory_on_month_lengths
+    # From https://en.wikipedia.org/wiki/Julian_calendar#Sacrobosco.27s_theory_on_month_lengths
     _Index0     = When::Coordinates::DefaultDayIndex
     _IndicesB12 = [When.Index('Roman::MonthB', {:unit=>12}), _Index0]
     _Indices12  = [When.Index('Roman::Month',  {:unit=>12}), _Index0]

data/lib/when_exe/region/ryukyu.rb

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

data/lib/when_exe/region/saudi_arabian.rb

@@ -0,0 +1,57 @@
+# -*- coding: utf-8 -*-
+=begin
+  Copyright (C) 2017 Takashi SUGA
+
+  You may use and/or modify this file according to the license described in the LICENSE.txt file included in this archive.
+=end
+
+module When
+  class BasicTypes::M17n
+
+    SaudiArabia = [self, [
+      "locale:[=en:, ja=ja:, zh=zh:, alias]",
+      "names:[SaudiArabia=en:Saudi_Arabia, サウジアラビア, 沙特阿拉伯]",
+      "[UmmalquraSolar=http://www.staff.science.uu.nl/~gent0113/islam/ummalqura_solar.htm, サウジアラビア太陽暦=, 沙特阿拉伯太陽曆, era:AH=]",
+
+      [self,
+        "locale:[=en:, ja=ja:, alias=en:]",
+        "names:[month name named after the zodiac=, 黄道十二宮にちなむ月名=, zh:對應於黃道十二宮月份名稱=, *alias:SolarMonth=]",
+        "[al-Mīzān=,     天秤宮,     Libra      ]",
+        "[al-ʿAqrab=,    天蝎宮,     Scorpio    ]",
+        "[al-Qaws=,      人馬宮,     Sagittarius]",
+        "[al-Jady=,      磨羯宮,     Capricorn  ]",
+        "[al-Dalw=,      宝瓶宮,     Aquarius   ]",
+        "[al-Ḥūt=,       双魚宮,     Pisces     ]",
+        "[al-Ḥamal=,     白羊宮,     Aries      ]",
+        "[al-Thawr=,     金牛宮,     Taurus     ]",
+        "[al-Jawzāʾ=,    双児宮,     Gemini     ]",
+        "[al-Saraṭān=,   巨蟹宮,     Cancer     ]",
+        "[al-Asad=,      獅子宮,     Leo        ]",
+        "[al-Sunbula=,   処女宮,     Virgo      ]"
+      ],
+
+    ]]
+  end
+
+  module CalendarTypes
+
+    #
+    # Ummalqura Solar Calendar
+    #
+    UmmalquraSolar = [SolarYearTableBased, {
+      'label'   =>  'SaudiArabia::UmmalquraSolar',
+      'origin_of_MSC' => -621,
+      'diff_to_CE'    =>    0,
+      'engine_month'  =>    9,
+      'engine_day'    =>   23,
+      'indices' => [
+        When.Index('SaudiArabia::SolarMonth', {:unit=>12}),
+        When::Coordinates::DefaultDayIndex
+      ],
+      'rule_table'    => {
+        365 => {'Length'=> [30]*5 + [29] + [31]*6},
+        366 => {'Length'=> [30]*6        + [31]*6}
+      }
+    }]
+  end
+end

data/lib/when_exe/region/shire.rb

@@ -9,7 +9,7 @@ module When
   class BasicTypes::M17n
 
     Shire = [self, [
-      "namespace:[cal=http://en.wikipedia.org/wiki/Middle-earth_calendar#]",
+      "namespace:[cal=https://en.wikipedia.org/wiki/Middle-earth_calendar#]",
       "locale:[=en:, ja=ja:, zh=zh:, alias]",
       "names:[Middle-earth=en:Middle-earth_calendar#Shire_calendar, ホビット庄暦=ja:%%<指輪物語>, 中土曆=zh:%%<魔戒>, *alias:Shire]",
 

data/lib/when_exe/region/world.rb

@@ -1,6 +1,6 @@
 # -*- coding: utf-8 -*-
 =begin
-  Copyright (C) 2011-2015 Takashi SUGA
+  Copyright (C) 2011-2021 Takashi SUGA
 
   You may use and/or modify this file according to the license described in the LICENSE.txt file included in this archive.
 =end
@@ -161,8 +161,8 @@ module When
     World =  [SolarYearTableBased, {
       'label'   => 'World',
       'rule_table'       => {
-        365  => {'Length'=>[31,30,30]*3 + [31,30,31]},
-        366  => {'Length'=>[31,30,30,31,30,31] *2}
+        365  => {'Length'=>[31,30,30] * 3 + [31,30,31]},
+        366  => {'Length'=>[31,30,30,31,30,31] * 2}
       },
       'note'   => 'WorldWeek'
     }]

data/lib/when_exe/region/zoroastrian.rb

@@ -9,7 +9,7 @@
 
   References
 
- (1) http://en.wikipedia.org/wiki/Zoroastrian_calendar
+ (1) https://en.wikipedia.org/wiki/Zoroastrian_calendar
  (2) http://www.moonwise.co.uk/year/1375zoroastrian.htm
  (3) http://www.zoroastrian.org/articles/nowruz.htm
 

data/lib/when_exe/spatial.rb

@@ -0,0 +1,611 @@
+# -*- coding: utf-8 -*-
+=begin
+  Copyright (C) 2011-2016 Takashi SUGA
+
+  You may use and/or modify this file according to the license described in the LICENSE.txt file included in this archive.
+=end
+
+#
+# 座標の記述に用いる諸オブジェクト
+#
+module When::Coordinates
+
+  #
+  # 空間位置
+  #
+  class Spatial < When::BasicTypes::Object
+
+    LabelProperty = 'label'
+
+    include When::Ephemeris
+
+    require 'when_exe/ephemeris/eclipse'
+
+    class << self
+      # When::Coordinates::Spatial のグローバルな設定を行う
+      #
+      # @param [When::Coordinates::Spatial, String] location デフォルトの空間位置を使用する場合、指定する
+      #
+      # @return [void]
+      #
+      # @note
+      #   本メソッドでマルチスレッド対応の管理変数の初期化を行っている。
+      #   このため、本メソッド自体はスレッドセーフでない。
+      #
+      def _setup_(location=nil)
+        @_lock_ = Mutex.new if When.multi_thread
+        @_pool  = {}
+        @default_location = location
+      end
+
+      # デフォルトの空間位置
+      #
+      # @param [When::Coordinates::Spatial, String] local デフォルトの空間位置
+      #
+      # @return [When::Coordinates::Spatial, String]
+      #
+      # @note
+      #   @default_locationは、原則、ライブラリ立ち上げ時に _setup_ で初期化する。
+      #   以降、@default_locationに代入を行っても、すでに生成した When::TM::TemporalPosition 等には反映されない。
+      #
+      def default_location=(local)
+        if @_pool
+          @default_location = local
+        else
+          _setup_(local)
+        end
+      end
+
+      # 設定情報を取得する
+      #
+      # @return [Hash] 設定情報
+      #
+      def _setup_info
+        {:location => @default_location}
+      end
+
+      # デフォルトの空間位置を読みだす
+      #
+      # @return [When::Coordinates::Spatial]
+      #
+      def default_location
+        _default_location[1]
+      end
+
+      # デフォルトの空間位置が When::TM::Clock のローカルタイムから生成されたか?
+      #
+      # @return [true, false]
+      #
+      def is_default_location_derived?
+        location = _default_location
+        location[0] && location[1]
+      end
+
+      private
+
+      # 共通処理
+      def _default_location
+        case @default_location
+        when nil    ;
+        when Array  ; return  @default_location unless @default_location[0]
+        when String ; return (@default_location = [false, When.Resource(@default_location)])
+        else        ; return (@default_location = [false, @default_location])
+        end
+        timezone = When::TM::Clock.local_time
+        location = timezone.location if timezone.kind_of?(When::Parts::Timezone)
+        return [true, location]
+      end
+    end
+
+    # @private
+    HashProperty = [:label, :longitude, :latitude, [:altitude, 0.0], [:datum, When::Ephemeris::Earth], :ref]
+
+    # Degree / Internal Location Unit(16")
+    #
+    #   (3600 を 2 の因数で割りつくした値を単位とする)
+    DEGREE     = 225
+
+    # 黄道座標 (ecliptic coordinate  system)
+    ECLIPTIC   = 0
+
+    # 赤道座標 (equatorial coordinate system)
+    EQUATORIAL = 1
+
+    # 赤道座標[時角] (equatorial coordinate system with hour angle)
+    EQUATORIAL_HA = 2
+
+    # 地平座標 (horizontal coordinate system)
+    HORIZONTAL = 3
+
+    # 惑星中心の高度
+    CENTER = :center
+
+    # 角度の単位 (1 => 1度, 225=> 1/225 度)
+    #
+    # @return [Numeric]
+    #
+    attr_reader :degree
+
+    # 北緯を正とする緯度 / 16秒
+    #
+    # @return [Numeric]
+    #
+    attr_reader :lat
+
+    # 東経を正とする経度 / 16秒
+    #
+    # @return [Numeric]
+    #
+    attr_reader :long
+
+    # 高度 / m
+    #
+    # @return [Numeric]
+    # @return [:Center] 天体の中心の場合
+    #
+    attr_reader :alt
+    alias :altitude :alt
+
+    # 座標系
+    #
+    # @return [When::Ephemeris::Datum]
+    #
+    attr_reader :datum
+
+    # 参照
+    #
+    # @return [String] URI
+    #
+    attr_reader :ref
+
+    # 時間帯(オプショナル)
+    #
+    # @return [TZInfo::CountryTimezone]
+    #
+    #    TZInfoライブラリから経緯度を取得して使用する
+    #
+    attr_reader :tz
+
+    # 緯度文字列
+    #
+    # @param [Integer] round 秒の小数点以下最大桁数
+    #
+    # @return [String] 緯度文字列(DD.MMSSsss[NS])
+    #
+    def lat_s(round=6)
+      When::Coordinates.to_dms(lat / @degree, 'NS', round)
+    end
+    alias :latitude :lat_s
+
+    # 経度文字列
+    #
+    # @param [Integer] round 秒の小数点以下最大桁数
+    #
+    # @return [String] 経度文字列(DDD.MMSSsss[EW])
+    #
+    def long_s(round=6)
+      When::Coordinates.to_dms(long / @degree, 'EW', round)
+    end
+    alias :longitude :long_s
+
+    # 高度 / m
+    #
+    # @return [Numeric]
+    # @return [:Center] 天体の中心の場合
+    #
+    attr_reader :alt
+
+    # 観測地の地心距離 / kmを返します。
+    #
+    # @return [Numeric]
+    #
+    def obserber_distance
+      l = PI / (90 * @degree) * @lat
+      @datum.surface_radius * (@datum.shape[0]+@datum.shape[1]*cos(l)+@datum.shape[2]*cos(2*l))
+    end
+
+    # 観測地での‘大地’の視半径
+    #
+    # @return [Numeric]
+    #
+    def horizon
+      # 地面以下なら 90度とみなす
+      return 0.25 if @alt == :Center || @alt <= 0
+
+      # 観測地の地心距離 / m
+      r = obserber_distance * 1000.0
+
+      # 大気効果
+      air_effect = @datum.air[1] * @alt / (@datum.air[2] * @alt + r)
+
+      # ‘大地’の視半径
+      asin((1.0+air_effect) * r / (r+@alt)) / CIRCLE
+    end
+
+    #  観測地の地方恒星時 / 時を返します。
+    #
+    # @param [Numeric] t ユリウス日(Terrestrial Time)
+    # @param [When::TM::TemporalPosition] t
+    #
+    # @return [Numeric]
+    #
+    def local_sidereal_time(t)
+      t = +t
+      c = julian_century_from_2000(t)
+      result  = @datum.sid[0] + c * (@datum.sid[1] + c * @datum.sid[2]) + @long / (15.0 * @degree)
+      result += (cosc(obl(c)) * delta_p(c) +
+                 (t-When::TimeStandard.delta_t_observed(t)/86400+0.5) % 1) * 24 if @datum.kind_of?(Earth)
+      result
+    end
+
+    # 観測地の日心三次元座標(黄道座標)
+    #
+    # @param [Numeric] t ユリウス日(Terrestrial Time)
+    # @param [When::TM::TemporalPosition] t
+    #
+    # @return [Numeric]
+    #
+    def _coords(t)
+      t   = +t
+      @datum._coords(t) + _coords_diff(t)
+    end
+
+    private
+
+    # 要素の正規化
+    def _normalize(args=[], options={})
+
+      # 角度の単位は 1/225 度
+      @degree ||= DEGREE
+
+      # 同一視
+      @long ||= @longitude
+      @lat  ||= @latitude
+      @alt  ||= @altitude
+
+      # 時間帯による指定
+      @tz = When::Parts::Timezone.tz_info[@tz] if @tz.kind_of?(String)
+      if @tz
+        @label ||= When.m17n(@tz.identifier)
+        @long  ||= @tz.longitude
+        @lat   ||= @tz.latitude
+      end
+
+      # データの整形
+      @label = When::BasicTypes::M17n.new(@label) if @label.kind_of?(Hash)
+      @long  = When::Coordinates.to_deg_225(@long, 'EW', @degree) if @long
+      @lat   = When::Coordinates.to_deg_225(@lat,  'NS', @degree) if @lat
+      @datum = When.Resource(@datum || 'Earth', '_ep:')
+      @long ||= 0.0
+      @lat  ||= 0.0
+      @alt    =
+        case @alt
+        when String  ; @alt.gsub(/@/, '.').to_f
+        when Numeric ; @alt.to_f
+        when Symbol  ; @alt
+        else         ; 0.0
+        end
+
+      # 日月食用作業変数
+      @mean = When.Resource(@mean || '_ep:Formula?formula=1L')
+      @ecls = {}
+
+    end
+
+    # 観測地の惑星中心を原点とする三次元座標
+    #
+    # @param [Numeric] t ユリウス日(Terrestrial Time)
+    # @param [When::TM::TemporalPosition] t
+    # @param [Integer] system : 座標系
+    #   [ ECLIPTIC      = 黄道座標 ]
+    #   [ EQUATORIAL    = 赤道座標 ]
+    #   [ EQUATORIAL_HA = 赤道座標[時角] ]
+    #   [ HORIZONTAL    = 地平座標 ]
+    #
+    # @return [When::Coordinates::Spatial]
+    #
+    def _coords_diff(t, system=ECLIPTIC)
+      return Coords.polar(0,0,0) if alt == :Center
+      t   = +t
+      lat = @lat.to_f / @degree
+      coords = Coords.polar(
+                        local_sidereal_time(t) /  24.0,
+         (lat + @datum.shape[3] * sind(2*lat)) / 360.0,
+             (obserber_distance + @alt/1000.0) /   AU)
+      case system
+      when ECLIPTIC      ; coords.r_to_y(t, @datum)
+      when EQUATORIAL    ; coords
+      when EQUATORIAL_HA ; coords.r_to_rh(t, self)
+      when HORIZONTAL    ; coords.r_to_h(t, self)
+      end
+    end
+
+    # その他のメソッド
+    #   When::Coordinates::Spatial で定義されていないメソッドは
+    #   処理を @datum (type: When::Ephemeris::Datum) に委譲する
+    #
+    def method_missing(name, *args, &block)
+      self.class.module_eval %Q{
+        def #{name}(*args, &block)
+          @datum.send("#{name}", *args, &block)
+        end
+      } unless When::Parts::MethodCash.escape(name)
+      @datum.send(name, *args, &block)
+    end
+
+    # @private
+    module Normalize
+
+      private
+
+      # 位置情報
+      #
+      # @return [When::Coordinates::Spatial]
+      #
+      #attr_reader :location
+
+      # 日時要素の境界オブジェクト
+      #
+      # @return [When::Coordinates::Border]
+      #
+      #attr_reader :border
+
+      # 境界計算用の計算オブジェクト
+      #
+      # @return [When::Ephemeris::Formula]
+      #
+      #attr_reader :formula
+
+      #
+      # Temporal Module の Spatial Parts の初期化
+      #
+      def _normalize_spatial
+
+        # Location
+        if (@location||@long||@lat||@alt).kind_of?(String)
+          @location ||= "_l:long=#{@long||0}&lat=#{@lat||0}&alt=#{@alt||0}"
+          @location   = When.Resource(@location)
+        end
+        @location   ||= @tz_prop.location if @tz_prop
+
+        # Border
+        @border = When.Border(@border) if @border.kind_of?(String)
+
+        # Formula
+        instance_eval('class << self; attr_reader :formula; end') if @location && @border
+        if respond_to?(:formula)
+          extend When::Ephemeris::Formula::ForwardedFormula
+          unless @formula
+            options  = {:formula => kind_of?(When::CalendarTypes::SolarYearTableBased) ? '1S' : '1L'}
+            options[:location] = @location if @location
+            @formula = When::Ephemeris::Formula.new(options)
+          end
+          @formula   = When.Resource(Array(@formula), '_ep:')
+        end
+      end
+    end
+
+    #
+    # イベント管理用範囲オブジェクト
+    #
+    class Range
+
+      class << self
+
+        # 地名を空間座標化する
+        #
+        # @param [String] name 地名または座標
+        #
+        # @return [When::Coordinates::Spatial] or [When::Coordinates::Spatial::Range]
+        #
+        def [](name)
+          source = name.strip
+          case source
+          when /\A(.+)\.\.(.+)\z/                       ; return self.new(_instance($1), _instance($2))
+          when /\A([\d.]+)([SN])([\d.]+)([WE])([-+\d.]+)?\z/i ; lat,  sn, long, we, alt = $~[1..5]
+          when /\A([\d.]+)([WE])([\d.]+)([SN])([-+\d.]+)?\z/i,
+               /\A([-+\d.]+)(_)([-+\d.]+)(_)?([-+\d.]+)?\z/   ; long, we, lat,  sn, alt = $~[1..5]
+          end
+          locations =
+            if long
+              [[
+                When::Coordinates.to_deg_225("#{long}#{we}", 'EW', 1),
+                When::Coordinates.to_deg_225("#{lat }#{sn}", 'NS', 1),
+                (alt || 0).to_f
+              ]]
+            else
+              t = When::Coordinates::LocationTable
+              keys = [source]
+              keys.concat(name.names.values) if name.kind_of?(When::BasicTypes::M17n)
+              keys_to_location(keys, t)
+            end
+          return locations unless locations.kind_of?(Array)
+          locations = locations.map {|location|
+            When::Coordinates::Spatial.new({'long'=>location[0], 'lat'=>location[1], 'alt'=>location[2], 'degree'=>1})
+          }
+          locations = locations.size > 1 ? self.new(*locations) : locations.first
+          if t
+            keys.each do |key|
+              t[0][key] = locations
+            end
+          end
+          locations
+        end
+        alias :_instance :[]
+
+        # 地名に空間座標を設定する
+        #
+        # @param [String] name 地名または座標
+        # @param [When::Coordinates::Spatial or When::Coordinates::Spatial::Range] locations 空間座標
+        #
+        def []=(name, locations)
+          keys = [source]
+          keys.concat(name.names.values) if name.kind_of?(When::BasicTypes::M17n)
+          keys.each do |key|
+            When::Coordinates::LocationTable[0][key] = locations
+          end
+        end
+
+        private
+
+        Index = {nil=>0, 'N'=>0, 'S'=>-1}
+
+        def keys_to_location(keys, t)
+          keys.each do |key|
+            /\A(.+?)([\dNS])?\z/ =~ key
+            key = t[4][$1][Index[$2] || ($2.to_i-1)] if t[4].key?($1)
+            if t[0].key?(key)
+               return t[0][key] 
+            elsif t[1].key?(key)
+              return [t[1][key]]
+            elsif t[2].key?(key)
+              return [t[2][key][:SWB], t[2][key][:NET]]
+            elsif t[3].key?(key)
+              return [t[3][key][:SWB], t[3][key][:NET]]
+            end
+          end
+          raise ArgumentError, keys.first + ' not found'
+        end
+      end
+
+      # 西南下の境界
+      #
+      # @return [When::Coordinates::Spatial]
+      #
+      attr_reader :first
+
+      # 西の境界
+      #
+      # @return [Numeric]
+      #
+      attr_reader :west
+
+      # 南の境界
+      #
+      # @return [Numeric]
+      #
+      attr_reader :south
+
+      # 下の境界
+      #
+      # @return [Numeric]
+      #
+      attr_reader :bottom
+
+      # 東北上の境界
+      #
+      # @return [When::Coordinates::Spatial]
+      #
+      attr_reader :last
+
+      # 東の境界
+      #
+      # @return [Numeric]
+      #
+      attr_reader :east
+
+      # 北の境界
+      #
+      # @return [Numeric]
+      #
+      attr_reader :north
+
+      # 上の境界
+      #
+      # @return [Numeric]
+      #
+      attr_reader :top
+
+      # 東西の範囲
+      #
+      # @return [::Range]
+      #
+      attr_reader :long
+
+      # 南北の範囲
+      #
+      # @return [::Range]
+      #
+      attr_reader :lat
+
+      # 上下の範囲
+      #
+      # @return [::Range]
+      #
+      attr_reader :alt
+
+      # 範囲の重なりの判断が複雑になるか？(ダミー)
+      #
+      # @return [Boolean] false - 単純
+      #
+      def is_complex?
+        false
+      end
+
+      # 終端を除外するか？(ダミー)
+      #
+      # @return [Boolean] false - 除外しない
+      #
+      def exclude_end?
+        false
+      end
+
+      # 指定オブジェクトが範囲内か？
+      #
+      # @param [Object] target 判定するオブジェクト
+      #
+      # @return [Boolean] true - 範囲内のオブジェクトあり, false - 範囲内のオブジェクトなし
+      #
+      def include?(target)
+        case target
+        when When::Coordinates::Spatial
+          @long.include?(target.long) && @lat.include?(target.lat) && @alt.include?(target.alt)
+        when Range
+          @long.include?(target.west) && @lat.include?(target.south) && @alt.include?(target.bottom) &&
+          @long.include?(target.east) && @lat.include?(target.north) && @alt.include?(target.top)
+        else
+          false
+        end
+      end
+
+      #
+      # 範囲の重なりの判断
+      #
+      # @param [Range] range 確認対象の単純範囲オブジェクト
+      #
+      # @return [Boolean] true - 重なる, false - 重ならない
+      #
+      def is_overlaped?(range)
+        case target
+        when When::Coordinates::Spatial
+          @long.include?(target.long) && @lat.include?(target.lat) && @alt.include?(target.alt)
+        when Range
+          @west >= target.east && @north >= target.south && @top >= target.bottom &&
+          @east <= target.west && @south <= target.north && @bottom <= target.top
+        else
+          false
+        end
+      end
+
+      #
+      # イベント管理用範囲オブジェクトの生成
+      #
+      # @param [When::Coordinates::Spatial] first 南西下の境界
+      # @param [When::Coordinates::Spatial] last  東北上の境界
+      #
+      def initialize(first, last)
+        @first  = first.kind_of?(Range) ? first.first : first
+        @last   = last.kind_of?(Range)  ? last.last   : last
+        @west   = @first.long
+        @south  = @first.lat
+        @bottom = @first.alt
+        @east   = @last.long
+        @north  = @last.lat
+        @top    = @last.alt
+        @long   = ::Range.new(@west,   @east,  false)
+        @lat    = ::Range.new(@south,  @north, false)
+        @alt    = ::Range.new(@bottom, @top,   false)
+      end
+    end
+  end
+end