when_exe 0.4.1 → 0.4.2

data/lib/when_exe/region/jewish.rb

@@ -1,131 +1,130 @@
-# -*- coding: utf-8 -*-
-=begin
-  Copyright (C) 2011-2014 Takashi SUGA
-
-  You may use and/or modify this file according to the license described in the LICENSE.txt file included in this archive.
-=end
-
-module When
-  class BasicTypes::M17n
-
-    Jewish = [self, [
-      "locale:[=en:, ja=ja:, alias]",
-      "names:[Jewish=]",
-      "[Jewish=en:Hebrew_calendar, ユダヤ暦]",
-
-      [self,
-        "names:[IntercalaryMonth=en:Intercalation, 閏月]",
-        "[%s I=,  第１=]",
-        "[%s II=, 第２=]",
-      ],
-
-      [self,
-        "names:[Month, 月=ja:%%<月_(暦)>]",
-        "[Tishrei,  ティシュリー=]",
-        "[Cheshvan, マルヘシュバン=]",
-        "[Kislev,   キスレーヴ=]",
-        "[Tevet,    テベット=]",
-        "[Shevat,   シュバット=]",
-        "[Adar,     アダル]",
-        "[Nisan,    ニサン=]",
-        "[Iyar,     イヤール=]",
-        "[Sivan,    シバン]",
-        "[Tammuz,   タムーズ=]",
-        "[Av,       アブ]",
-        "[Elul,     エルール=]"
-      ]
-    ]]
-  end
-
-  class TM::CalendarEra
-
-    #
-    # Anno Mundi epoch
-    #
-    Jewish = [self, [
-      "locale:[=en:, ja=ja:, alias]",
-      "area:[Israel, イスラエル]",
-      ["[AnnoMundi=en:Anno_Mundi, ユダヤ紀元, *alias:HY]1.1.1", '@CE', "01-01-01^Jewish"],
-    ]]
-  end
-
-  module CalendarTypes
-
-    #
-    # Jewish Calendar
-    #
-    class Jewish < TableBased
-
-      include Lunar
-
-      private
-
-      # オブジェクトの正規化
-      def _normalize(args=[], options={})
-        @label = 'Jewish::Jewish'
-
-        # Default Parameters
-        Rational
-        @epoch_in_CE   ||= -3760
-        @origin_of_MSC ||=  3761
-        @origin_of_LSC ||= 1721300 + Rational(  9415,  98496)
-        @mean_month    ||=      29 + Rational(261307, 492480)
-        @leap_period   ||=   19
-        @leap_number   ||=    7
-        @leap_base     ||=    1
-
-        # Derived Parameters
-        @no_leap_number  = @leap_period - @leap_number
-        @date_shift      = @mean_month  / @leap_period
-        @mean_year       = 12 * @mean_month  + @leap_number * @date_shift
-
-        # Month & Day Index
-        @indices ||= [
-          When.Index('Jewish::Month', {:branch=>{-1=>When.Resource('_m:Jewish::IntercalaryMonth::*')[0],
-                                                  1=>When.Resource('_m:Jewish::IntercalaryMonth::*')[1]}}),
-          When::Coordinates::DefaultDayIndex
-        ]
-
-        # Month & Day Arrangement
-        @rule_table ||= {
-          353 => {'Length'=>[30,29,29,29]    + [30,29]*4, 'IDs'=>'1,2,3,4,5,6,7,8,9,10,11,12'   },
-          354 => {'Length'=>[30,29,30,29]    + [30,29]*4, 'IDs'=>'1,2,3,4,5,6,7,8,9,10,11,12'   },
-          355 => {'Length'=>[30,30,30,29]    + [30,29]*4, 'IDs'=>'1,2,3,4,5,6,7,8,9,10,11,12'   },
-          383 => {'Length'=>[30,29,29,29,30] + [30,29]*4, 'IDs'=>'1,2,3,4,5,6*,6=,7,8,9,10,11,12'},
-          384 => {'Length'=>[30,29,30,29,30] + [30,29]*4, 'IDs'=>'1,2,3,4,5,6*,6=,7,8,9,10,11,12'},
-          385 => {'Length'=>[30,30,30,29,30] + [30,29]*4, 'IDs'=>'1,2,3,4,5,6*,6=,7,8,9,10,11,12'}
-        }
-
-        super
-      end
-
-      # 年初の通日
-      #
-      # @param [Array<Numeric>] date ( 年 )
-      #
-      # @return [Integer] 年初の通日
-      #
-      def _sdn_(date)
-        y      = +date[0]
-        g      = (((y + @leap_base) % @leap_period) * @no_leap_number) % @leap_period
-        sdn, f = (y * @mean_year  + g * @date_shift + @origin_of_LSC).divmod(1)
-
-        case sdn % 7
-        when 2,4,6 # Wed, Fri, Sun
-          sdn += 1
-        when 0     # Mon
-          sdn += 1 if ((f >= Rational(23269, 25920)) && (g > 11))
-        when 1     # Tue
-          sdn += 2 if ((f >= Rational( 1367,  2160)) && (g >  6))
-        else       # Thu, Sat
-        end
-        return sdn
-      end
-    end
-
-    #
-    # Hebrew Calendar (alias of Jewish Calendar)
-    #
-    Hebrew = Jewish
-  end
-end
+# -*- coding: utf-8 -*-
+=begin
+  Copyright (C) 2011-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
+  class BasicTypes::M17n
+
+    Jewish = [self, [
+      "locale:[=en:, ja=ja:, zh=zh:, alias]",
+      "names:[Jewish=en:Hebrew_calendar, ユダヤ暦, 希伯來曆]",
+
+      [self,
+        "names:[IntercalaryMonth=en:Intercalation, 閏月]",
+        "[%s I=,  第１=, 第一=]",
+        "[%s II=, 第２=, 第二=]",
+      ],
+
+      [self,
+        "names:[month name=en:Month, 月の名前=ja:%%<月_(暦)>, 該月的名稱=, *alias:Month=]",
+        "[Tishrei,  ティシュリー=,   提斯利月]",
+        "[Cheshvan, マルヘシュバン=, 瑪西班月]",
+        "[Kislev,   キスレーヴ=,     基斯流月]",
+        "[Tevet,    テベット=,       提別月  ]",
+        "[Shevat,   シュバット=,     細罷特月]",
+        "[Adar,     アダル,          亞達月  ]",
+        "[Nisan,    ニサン=,         尼散月  ]",
+        "[Iyar,     イヤール=,       以珥月  ]",
+        "[Sivan,    シバン=,         西彎月  ]",
+        "[Tammuz,   タムーズ=,       搭模斯月]",
+        "[Av,       アブ=,           埃波月  ]",
+        "[Elul,     エルール=,       以祿月  ]"
+      ]
+    ]]
+  end
+
+  class TM::CalendarEra
+
+    #
+    # Anno Mundi epoch
+    #
+    Jewish = [self, [
+      "locale:[=en:, ja=ja:, alias]",
+      "area:[Israel, イスラエル]",
+      ["[AnnoMundi=en:Anno_Mundi, ユダヤ紀元, *alias:HY]1.1.1", '@CE', "01-01-01^Jewish"],
+    ]]
+  end
+
+  module CalendarTypes
+
+    #
+    # Jewish Calendar
+    #
+    class Jewish < TableBased
+
+      include Lunar
+
+      private
+
+      # オブジェクトの正規化
+      def _normalize(args=[], options={})
+        @label = 'Jewish'
+
+        # Default Parameters
+        Rational
+        @epoch_in_CE   ||= -3760
+        @origin_of_MSC ||=  3761
+        @origin_of_LSC ||= 1721300 + Rational(  9415,  98496)
+        @mean_month    ||=      29 + Rational(261307, 492480)
+        @leap_period   ||=   19
+        @leap_number   ||=    7
+        @leap_base     ||=    1
+
+        # Derived Parameters
+        @no_leap_number  = @leap_period - @leap_number
+        @date_shift      = @mean_month  / @leap_period
+        @mean_year       = 12 * @mean_month  + @leap_number * @date_shift
+
+        # Month & Day Index
+        @indices ||= [
+          When.Index('Jewish::Month', {:branch=>{-1=>When.Resource('_m:Jewish::IntercalaryMonth::*')[0],
+                                                  1=>When.Resource('_m:Jewish::IntercalaryMonth::*')[1]}}),
+          When::Coordinates::DefaultDayIndex
+        ]
+
+        # Month & Day Arrangement
+        @rule_table ||= {
+          353 => {'Length'=>[30,29,29,29]    + [30,29]*4, 'IDs'=>'1,2,3,4,5,6,7,8,9,10,11,12'   },
+          354 => {'Length'=>[30,29,30,29]    + [30,29]*4, 'IDs'=>'1,2,3,4,5,6,7,8,9,10,11,12'   },
+          355 => {'Length'=>[30,30,30,29]    + [30,29]*4, 'IDs'=>'1,2,3,4,5,6,7,8,9,10,11,12'   },
+          383 => {'Length'=>[30,29,29,29,30] + [30,29]*4, 'IDs'=>'1,2,3,4,5,6*,6=,7,8,9,10,11,12'},
+          384 => {'Length'=>[30,29,30,29,30] + [30,29]*4, 'IDs'=>'1,2,3,4,5,6*,6=,7,8,9,10,11,12'},
+          385 => {'Length'=>[30,30,30,29,30] + [30,29]*4, 'IDs'=>'1,2,3,4,5,6*,6=,7,8,9,10,11,12'}
+        }
+
+        super
+      end
+
+      # 年初の通日
+      #
+      # @param [Array<Numeric>] date ( 年 )
+      #
+      # @return [Integer] 年初の通日
+      #
+      def _sdn_(date)
+        y      = +date[0]
+        g      = (((y + @leap_base) % @leap_period) * @no_leap_number) % @leap_period
+        sdn, f = (y * @mean_year  + g * @date_shift + @origin_of_LSC).divmod(1)
+
+        case sdn % 7
+        when 2,4,6 # Wed, Fri, Sun
+          sdn += 1
+        when 0     # Mon
+          sdn += 1 if ((f >= Rational(23269, 25920)) && (g > 11))
+        when 1     # Tue
+          sdn += 2 if ((f >= Rational( 1367,  2160)) && (g >  6))
+        else       # Thu, Sat
+        end
+        return sdn
+      end
+    end
+
+    #
+    # Hebrew Calendar (alias of Jewish Calendar)
+    #
+    Hebrew = Jewish
+  end
+end

data/lib/when_exe/region/m17n.rb

@@ -1,114 +1,114 @@
-# -*- coding: utf-8 -*-
-=begin
-  Copyright (C) 2011-2014 Takashi SUGA
-
-  You may use and/or modify this file according to the license described in the LICENSE.txt file included in this archive.
-=end
-
-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:Calendar::Month').child
-        abbrs  = When.Resource('_m:Calendar::Abbr_Month').child
-        return name > 0 ? months[name-1] : abbrs[-name-1] if name.kind_of?(Numeric)
-
-        name   = When::EncodingConversion.to_internal_encoding(name)
-        match  = name[/\A...|^..\z/]
-        if match
-          (months+abbrs).each do |month|
-            return month if month.=~(/\A#{match}/i)
-          end
-        end
-
-        ObjectSpace.each_object(self) do |object|
-          return object if object.registered? && object.=~(/\A#{name}\z/)
-        end
-
-        return nil
-      end
-
-      #
-      # 共通的な暦用語
-      # 
-      Calendar = [M17n, [
-        "locale:[=en:, ja=ja:, alias]",
-        "names:[Calendar=]",
-
-        "[Intercalary %s=, *閏]",
-
-        [M17n,
-          "names:[Month, 月=ja:%%<月_(暦)>, /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, [
-        "locale:[=en:, ja=ja:, alias]",
-        "names:[EpochEvents=]",
-        "[Accession=,        代始]",
-        "[FelicitousEvent=,  祥瑞]",
-        "[NaturalDisaster=,  災異]",
-        "[InauspiciousYear=, 革年]",
-        "[Foundation=,       創業]",
-        "[CalendarReform=,   改暦]",
-        "[CalendarEpoch=,    暦元]"
-      ]]
-
-      # 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
+# -*- coding: utf-8 -*-
+=begin
+  Copyright (C) 2011-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
+  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:Calendar::Month').child
+        abbrs  = When.Resource('_m:Calendar::Abbr_Month').child
+        return name > 0 ? months[name-1] : abbrs[-name-1] if name.kind_of?(Numeric)
+
+        name   = When::EncodingConversion.to_internal_encoding(name)
+        match  = name[/\A...|^..\z/]
+        if match
+          (months+abbrs).each do |month|
+            return month if month.=~(/\A#{match}/i)
+          end
+        end
+
+        ObjectSpace.each_object(self) do |object|
+          return object if object.registered? && object.=~(/\A#{name}\z/)
+        end
+
+        return nil
+      end
+
+      #
+      # 共通的な暦用語
+      # 
+      Calendar = [M17n, [
+        "locale:[=en:, ja=ja:, alias]",
+        "names:[Calendar=]",
+
+        "[Intercalary %s=, *閏, zh:閏]",
+
+        [M17n,
+          "names:[month name=en:Month, 月の名前=ja:%%<月_(暦)>, zh:該月的名稱=, *alias: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, [
+        "locale:[=en:, ja=ja:, alias]",
+        "names:[EpochEvents=]",
+        "[Accession=,        代始]",
+        "[FelicitousEvent=,  祥瑞]",
+        "[NaturalDisaster=,  災異]",
+        "[InauspiciousYear=, 革年]",
+        "[Foundation=,       創業]",
+        "[CalendarReform=,   改暦]",
+        "[CalendarEpoch=,    暦元]"
+      ]]
+
+      # 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