when_exe 0.2.100 → 0.3.1

data/lib/when_exe/region/m17n.rb

@@ -0,0 +1,115 @@
+# -*- 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
+  module BasicTypes
+    class M17n
+      #
+      # 月名
+      #
+      # @param [Numeric] name 指定の月番号の月名を返します
+      # @param [When::BasicTypes::M17n] name name 自身をそのまま返します
+      # @param [String] name 最初の3文字から決定した月名を返します。
+      #                      一致する月名がない場合、名前の一致するその他のM17nを探して返します。
+      #
+      # @return [When::BasicTypes::M17n] 月名
+      #
+      def self.month_name(name)
+        return name if name.kind_of?(self)
+
+        months = When.Resource('_m:CalendarTerms::Month').child
+        abbrs  = When.Resource('_m:CalendarTerms::Abbr_Month').child
+        return name > 0 ? months[name-1] : abbrs[-name-1] if name.kind_of?(Numeric)
+
+        match  = name[/^...|^..$/]
+        if match
+          (months+abbrs).each do |month|
+            return month if month.=~(/^#{match}/i)
+          end
+        end
+
+        ObjectSpace.each_object(self) do |object|
+          return object if object.registered? && object.=~(/^#{name}$/)
+        end
+
+        return nil
+      end
+
+      Namespace = "[ja=http://ja.wikipedia.org/wiki/, en=http://en.wikipedia.org/wiki/]"
+      Locale    = "[=ja:, en=en:]"
+
+      # Terms
+      CalendarTerms = [M17n, [
+        "namespace:[en=http://en.wikipedia.org/wiki/, ja=http://ja.wikipedia.org/wiki/]",
+        "locale:[=en:, ja=ja:, alias]",
+        "names:[CalendarTerms]",
+
+        "[Intercalary %s=, *閏]",
+
+        [M17n,
+          "names:[Month, 月=ja:%E6%9C%88_(%E6%9A%A6), /datetime/prompts/month]",
+          "[January,   1月, /date/month_names/1] ",
+          "[February,  2月, /date/month_names/2] ",
+          "[March,     3月, /date/month_names/3] ",
+          "[April,     4月, /date/month_names/4] ",
+          "[May,       5月, /date/month_names/5] ",
+          "[June,      6月, /date/month_names/6] ",
+          "[July,      7月, /date/month_names/7] ",
+          "[August,    8月, /date/month_names/8] ",
+          "[September, 9月, /date/month_names/9] ",
+          "[October,  10月, /date/month_names/10]",
+          "[November, 11月, /date/month_names/11]",
+          "[December, 12月, /date/month_names/12]"
+        ],
+
+        [M17n,
+          "names:[Abbr_Month, 月略称)]",
+          "[Jan,  1月, /date/abbr_month_names/1] ",
+          "[Feb,  2月, /date/abbr_month_names/2] ",
+          "[Mar,  3月, /date/abbr_month_names/3] ",
+          "[Apr,  4月, /date/abbr_month_names/4] ",
+          "[May,  5月, /date/abbr_month_names/5] ",
+          "[Jun,  6月, /date/abbr_month_names/6] ",
+          "[Jul,  7月, /date/abbr_month_names/7] ",
+          "[Aug,  8月, /date/abbr_month_names/8] ",
+          "[Sep,  9月, /date/abbr_month_names/9] ",
+          "[Oct, 10月, /date/abbr_month_names/10]",
+          "[Nov, 11月, /date/abbr_month_names/11]",
+          "[Dec, 12月, /date/abbr_month_names/12]"
+        ]
+      ]]
+
+      # Events
+      EpochEvents = [M17n, [
+        "namespace:[en=http://en.wikipedia.org/wiki/, ja=http://ja.wikipedia.org/wiki/]",
+        "locale:[=en:, ja=ja:, alias]",
+        "names:[EpochEvents]",
+        "[Accession,        代始]",
+        "[FelicitousEvent,  祥瑞]",
+        "[NaturalDisaster,  災異]",
+        "[InauspiciousYear, 革年]",
+        "[Foundation,       創業]",
+        "[CalendarReform,   改暦]"
+      ]]
+
+      # Formats
+      CalendarFormats = [M17n, [
+        "locale:[=]",
+        "names:[CalendarFormats]",
+        "[Date,          /date/formats/default]",
+        "[DateLong,      /date/formats/long   ]",
+        "[DateShort,     /date/formats/short  ]",
+        "[DateTime,      /time/formats/default]",
+        "[DateTimeLong,  /time/formats/long   ]",
+        "[DateTimeShort, /time/formats/short  ]",
+        "[Time,          /time/formats/time   ]",
+        "[AM,            /time/am             ]",
+        "[PM,            /time/pm             ]"
+      ]]
+    end
+  end
+end

data/lib/when_exe/region/martian.rb

@@ -0,0 +1,215 @@
+# -*- 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
+
+module When
+
+  class BasicTypes::M17n
+
+    MartianTerms = [self, [
+      "namespace:[en=http://en.wikipedia.org/wiki/, ja=http://ja.wikipedia.org/wiki/]",
+      "locale:[=en:, ja=ja:, alias]",
+      "names:[MartianTerms]",
+      "[Darian=en:Darian_calendar, ダリアン暦]",
+
+      [self,
+        "names:[DarianMonth=, 月=ja:%E6%9C%88_(%E6%9A%A6)]",
+        "[Sagittarius, いて=    ]",
+        "[Dhanus=,     人馬=    ]",
+        "[Capricornus, やぎ=    ]",
+        "[Makara=,     磨羯=    ]",
+        "[Aquarius,    みずがめ=]",
+        "[Kumbha=,     宝瓶=    ]",
+        "[Pisces,      うお=    ]",
+        "[Mina=,       双魚=    ]",
+        "[Aries,       おひつじ=]",
+        "[Mesha=,      白羊=    ]",
+        "[Taurus,      おうし=  ]",
+        "[Rishabha=,   金牛=    ]",
+        "[Gemini,      ふたご=  ]",
+        "[Mithuna=,    双児=    ]",
+        "[Cancer,      かに=    ]",
+        "[Karka=,      巨蟹=    ]",
+        "[Leo,         しし=    ]",
+        "[Simha=,      獅子=    ]",
+        "[Virgo,       おとめ=  ]",
+        "[Kanya=,      処女=    ]",
+        "[Libra,       てんびん=]",
+        "[Tula=,       天秤=    ]",
+        "[Scorpius,    さそり=  ]",
+        "[Vrishika=,   天蠍=    ]"
+      ]
+    ]]
+  end
+
+  module TimeStandard
+
+    #
+    #  Martian Time, Coordinated
+    #
+    class MartianTimeCoordinated < TimeStandard
+
+      J2000Jan6 = 2451549.5
+      Ratio     = 1.02749125
+      MTC0      = 44796.0 - 0.0002 - 0.5
+
+      # 当該時刻系の日付を dynamical date に変換する
+      #
+      # @param [Numeric] date 当該時刻系の日付
+      #
+      # @return [Numeric] dynamical date
+      #
+      def to_dynamical_date(date)
+        (date - MTC0) * Ratio + J2000Jan6
+      end
+
+      # dynamical date を当該時刻系の日付に変換する
+      #
+      # @param [Numeric] date dynamical date
+      #
+      # @return [Numeric] 当該時刻系の日付
+      #
+      def from_dynamical_date(date)
+        (date - J2000Jan6) / Ratio + MTC0
+      end
+
+      # universal time を dynamical time に変換する
+      #
+      # @param [Numeric] time universal time
+      #
+      # @return [Numeric] dynamical time
+      #
+      def to_dynamical_time(time)
+        When::TM::JulianDate._d_to_t(
+          to_dynamical_date(
+            When::TM::JulianDate._t_to_d(time)))
+      end
+
+      # dynamical time を universal time に変換する
+      #
+      # @param [Numeric] time dynamical time
+      #
+      # @return [Numeric] universal time
+      #
+      def from_dynamical_time(time)
+        When::TM::JulianDate._d_to_t(
+          from_dynamical_date(
+            When::TM::JulianDate._t_to_d(time)))
+      end
+    end
+  end
+
+  module CalendarTypes
+
+    #
+    # Darian Week
+    #
+    class CalendarNote::DarianWeek < CalendarNote::WorldWeek
+
+      NoteObjects = [When::BasicTypes::M17n, [
+        "namespace:[en=http://en.wikipedia.org/wiki/, ja=http://ja.wikipedia.org/wiki/]",
+        "locale:[=en:, ja=ja:, alias]",
+        "names:[Darian]",
+
+        # 年の暦注 ----------------------------
+        [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]",
+            "[Solis,    日曜日]",
+            "[Lunae,    月曜日]",
+            "[Martis,   火曜日]",
+            "[Mercurii, 水曜日]",
+            "[Jovis,    木曜日]",
+            "[Veneris,  金曜日]",
+            "[Saturni,  土曜日]"
+          ]
+        ]
+      ]]
+
+      #
+      # 当日または直前の solis の日
+      #
+      # @param date [When::TM::TemporalPosition]
+      # @param parameter [nil] 未使用
+      #
+      # @return [When::TM::TemporalPosition]
+      #
+      def solis(date, parameter=nil)
+        date  = When.Calendar('Darian').jul_trans(date, {:events=>['from_solis']})
+        y,m,d = date.cal_date
+        dow   = (d-1) % 7
+        return date if dow == 0
+        date += When::TM::PeriodDuration.new([0,0,-dow])
+        date.events = ['from_solis']
+        date
+      end
+      alias :week :solis
+
+      # @private
+      alias :solis_delta :_delta
+
+      private
+
+      # オブジェクトの正規化
+      def _normalize(args=[], options={})
+        @event ||= 'solis'
+        super
+      end
+    end
+
+    #
+    # Martian Time, Coordinated
+    #
+    class MTC < UTC
+
+      private
+
+      # オブジェクトの正規化
+      def _normalize(args=[], options={})
+        @label         = m17n('MTC')
+        @time_standard = When.Resource("_t:MartianTimeCoordinated")
+        super
+      end
+    end
+
+    #
+    # Darian Calendar
+    #
+    Darian =  [CyclicTableBased, {
+      'label' => When.Resource('_m:MartianTerms::Darian'),
+      'time_basis'    => 'MTC',
+      'origin_of_LSC' =>  -94798,
+      'indices' => [
+         When::Coordinates::Index.new({:unit =>24, :trunk=>When.Resource('_m:MartianTerms::DarianMonth::*')}),
+         When::Coordinates::Index.new
+       ],
+      'rule_table' => {
+        'T'             => {'Rule' =>['LongCentury', ['ShortCentury', 4]]},
+        'LongCentury'   => {'Rule' =>[               ['LongDecade',  10]]},
+        'ShortCentury'  => {'Rule' =>['ShortDecade', ['LongDecade',   9]]},
+        'LongDecade'    => {'Rule' =>[669] * 2 + [668, 669] * 4 }, 
+        'ShortDecade'   => {'Rule' =>            [668, 669] * 5 },
+        668  => {'Length'=>[28, 28, 28, 28, 28, 27] * 4           },
+        669  => {'Length'=>[28, 28, 28, 28, 28, 27] * 3 + [28] * 6}
+      },
+      'note'   => 'DarianWeek'
+    }]
+  end
+end

data/lib/when_exe/region/mayan.rb

@@ -0,0 +1,122 @@
+# -*- coding: utf-8 -*-
+=begin
+  Copyright (C) 2011-2012 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
+
+  module Coordinates
+
+    # Mayan Residue
+    Mayan = [BasicTypes::M17n, [
+      "namespace:[en=http://en.wikipedia.org/wiki/, ja=http://ja.wikipedia.org/wiki/]",
+      "locale:[=en:, ja=ja:, alias]",
+      "names:[Mayan]",
+
+      [Residue,
+        "label:[Haab', ハアブ, Haab]", "divisor:365", "day:-65", "format:[%2$d%1$s/365]",
+        "namespace:[glyph=http://en.wikipedia.org/wiki/File:Maya-]",
+        [Residue, "label:[Pop     =glyph:Pop.jpg,            ポプ,       Pop   ]", "remainder:  0"],
+        [Residue, "label:[Wo'     =glyph:Dresden-wo.jpg,     ウオ,       Wo    ]", "remainder: 20"],
+        [Residue, "label:[Sip     =glyph:Dresden-sip.jpg,    シプ,       Sip   ]", "remainder: 40"],
+        [Residue, "label:[Sotz'   =glyph:Sotz.jpg,           ソッツ,     Sotz  ]", "remainder: 60"],
+        [Residue, "label:[Sek     =glyph:Dresden-Sek.jpg,    セック,     Sek   ]", "remainder: 80"],
+        [Residue, "label:[Xul     =glyph:Xul.png,            シュル,     Xul   ]", "remainder:100"],
+        [Residue, "label:[Yaxk'in'=glyph:Dresden-Yaxkin.jpg, ヤシュキン, Yaxkin]", "remainder:120"],
+        [Residue, "label:[Mol     =glyph:Mol.png,            モル,       Mol   ]", "remainder:140"],
+        [Residue, "label:[Ch'en   =glyph:Dresden-Chen.jpg,   チェン,     Chen  ]", "remainder:160"],
+        [Residue, "label:[Yax     =glyph:Dresden-Yax.jpg,    ヤシュ,     Yax   ]", "remainder:180"],
+        [Residue, "label:[Sak'    =glyph:Dresden-Sak.jpg,    サック,     Sak   ]", "remainder:200"],
+        [Residue, "label:[Keh     =glyph:Dresden-Keh.jpg,    ケフ,       Keh   ]", "remainder:220"],
+        [Residue, "label:[Mak     =glyph:Dresden-Mak.png,    マック,     Mak   ]", "remainder:240"],
+        [Residue, "label:[K'ank'in=glyph:Dresden-Kankin.png, カンキン,   Kankin]", "remainder:260"],
+        [Residue, "label:[Muwan'  =glyph:Muan.jpg,           ムアン,     Muwan ]", "remainder:280"],
+        [Residue, "label:[Pax     =glyph:Dresden-pax.jpg,    パシュ,     Pax   ]", "remainder:300"],
+        [Residue, "label:[K'ayab  =glyph:Dresden-Kayab.png,  カヤブ,     Kayab ]", "remainder:320"],
+        [Residue, "label:[Kumk'u  =glyph:Dresden-kumku.jpg,  クムク,     Kumku ]", "remainder:340"],
+        [Residue, "label:[Wayeb'  =glyph:Dresden-wayeb.jpg,  ウェヤブ,   Wayeb ]", "remainder:360"]
+      ],
+
+      [Residue,
+        "label:[Trecena, トレセナ=, Trecena]", "divisor:13", "day:8", "format:[%1$s(%3$d/13)]"
+      ],
+
+      [Residue,
+        "namespace:[glyph=http://en.wikipedia.org/wiki/File:MAYA-g-log-cal-]",
+        "label:[Tzolk'in, ツォルキン, Tzolkin]", "divisor:20", "day: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"],
+        [Residue, "label:[Ak'b'al =glyph:D03-Akbal.png,    アクバル,   Akbal   =glyph:D03-Akbal-cdxW.png   ]", "remainder: 2"],
+        [Residue, "label:[K'an    =glyph:D04-Kan.png,      カン,       Kan     =glyph:D04-Kan-cdxW.png     ]", "remainder: 3"],
+        [Residue, "label:[Chikchan=glyph:D05-Chikchan.png, チクチャン, Chicchan=glyph:D05-Chikchan-cdxW.png]", "remainder: 4"],
+        [Residue, "label:[Kimi    =glyph:D06-Kimi.png,     キミ,       Cimi    =glyph:D06-Kimi-cdxW.png    ]", "remainder: 5"],
+        [Residue, "label:[Manik'  =glyph:D07-Manik.png,    マニク,     Manik   =glyph:D07-Manik-cdxW.png   ]", "remainder: 6"],
+        [Residue, "label:[Lamat   =glyph:D08-Lamat.png,    ラマト,     Lamat   =glyph:D08-Lamat-cdxW.png   ]", "remainder: 7"],
+        [Residue, "label:[Muluk   =glyph:D09-Muluk.png,    ムルク,     Muluc   =glyph:D09-Muluk-cdxW.png   ]", "remainder: 8"],
+        [Residue, "label:[Ok      =glyph:D10-Ok.png,       オック,     Oc      =glyph:D10-Ok-cdxW.png      ]", "remainder: 9"],
+        [Residue, "label:[Chuwen  =glyph:D11-Chuwen.png,   チュエン,   Chuen   =glyph:D11-Chuwen-cdxW.png  ]", "remainder:10"],
+        [Residue, "label:[Eb'     =glyph:D12-Eb.png,       エブ,       Eb      =glyph:D12-Eb-cdxW.png      ]", "remainder:11"],
+        [Residue, "label:[B'en    =glyph:D13-Ben.png,      ベン,       Ben     =glyph:D13-Ben-cdxW.png     ]", "remainder:12"],
+        [Residue, "label:[Ix      =glyph:D14-Ix.png,       イシュ,     Ix      =glyph:D14-Ix-cdxW.png      ]", "remainder:13"],
+        [Residue, "label:[Men     =glyph:D15-Men.png,      メン,       Men     =glyph:D15-Men-cdxW.png     ]", "remainder:14"],
+        [Residue, "label:[Kib'    =glyph:D16-Kib.png,      キッブ,     Cib     =glyph:D16-Kib-cdxW.png     ]", "remainder:15"],
+        [Residue, "label:[Kab'an  =glyph:D17-Kaban.png,    カーバン,   Caban   =glyph:D17-Kaban-cdxW.png   ]", "remainder:16"],
+        [Residue, "label:[Etz'nab'=glyph:D18-Etznab.png,   エツナブ,   Etznab  =glyph:D18-Etznab-cdxW.png  ]", "remainder:17"],
+        [Residue, "label:[Kawak   =glyph:D19-Kawak.png,    カワク,     Cauac   =glyph:D19-Kawak-cdxW.png   ]", "remainder:18"],
+        [Residue, "label:[Ajaw    =glyph:D20-Ajaw.png,     アハウ,     Ahau    =glyph:D20-Ajaw-cdxW.png    ]", "remainder:19"],
+      ],
+
+      [Residue,
+        "namespace:[glyph=http://www.pauahtun.org/G/G]",
+        "label:[Lords_of_the_Night, 夜の九王]", "divisor:9", "day:3", "format:[%s(%d/9)]",
+        [Residue, "label:[G9=glyph:9_m.png]", "remainder: 0"],
+        [Residue, "label:[G1=glyph:1_m.png]", "remainder: 1"],
+        [Residue, "label:[G2=glyph:2_m.png]", "remainder: 2"],
+        [Residue, "label:[G3=glyph:3_m.png]", "remainder: 3"],
+        [Residue, "label:[G4=glyph:4_m.png]", "remainder: 4"],
+        [Residue, "label:[G5=glyph:5_m.png]", "remainder: 5"],
+        [Residue, "label:[G6=glyph:6_m.png]", "remainder: 6"],
+        [Residue, "label:[G7=glyph:7_m.png]", "remainder: 7"],
+        [Residue, "label:[G8=glyph:8_m.png]", "remainder: 8"],
+      ],
+    ]]
+  end
+
+  class TM::CalendarEra
+
+    #
+    # Mayan Long Count
+    #
+    Mayan = [self, [
+      "namespace:[en=http://en.wikipedia.org/wiki/, ja=http://ja.wikipedia.org/wiki/]",
+      "locale:[=en:, ja=ja:, alias]",
+      "area:[MayanLongCount=en:Mesoamerican_Long_Count_calendar, マヤ長期暦=ja:%E9%95%B7%E6%9C%9F%E6%9A%A6]",
+     ["[PHLC=, 先史時代=, PreHistoricLongCount=]0.0.0.0.0", "[Pre Historic=]",	"-13.0.0.0.0^LongCount"],
+     ["[HLC=,  歴史時代=, HistoricLongCount=]0.0.0.0.1",    "[Historic Age=]",	  "0.0.0.0.1"],
+     ["[NLC=,  新時代=,   NewLongCount=]0.0.0.0.1",	    "[New Age=]",	 "13.0.0.0.1", "26.0.0.0.1"]
+    ]]
+  end
+
+  module CalendarTypes
+
+    #
+    # Mayan Long Count
+    #
+    LongCount =  [CyclicTableBased, {
+      'origin_of_LSC' => 584283,
+      'rule_table'    => {
+        'T' => {'Rule'  =>[360]},
+        360 => {'Length'=>[20] * 18}},
+      'index_of_MSC' => 2,
+      'indices'=> [
+         Coordinates::Index.new({:base=>0, :unit=>20}),
+         Coordinates::Index.new({:base=>0, :unit=>20}),
+         Coordinates::Index.new({:base=>0, :unit=>18}),
+         Coordinates::Index.new({:base=>0, :unit=>20}),
+       ],
+      'note'   => 'MayanNotes'
+    }]
+  end
+end