when_exe 0.3.6 → 0.3.7

data/lib/when_exe/region/weekdate.rb

@@ -1,80 +1,80 @@
-# -*- coding: utf-8 -*-
-=begin
-  Copyright (C) 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
-
-    WeekDate = [self, [
-      "locale:[=en:, ja]",
-      "names:[WeekDate=en:ISO_week_date, 暦週=]",
-      [self, "names:[week]"] + (1...100).to_a.map {|m| "Week #{m}"},
-    ]]
-  end
-
-  module CalendarTypes
-
-    #
-    # Week Date Calendar
-    #
-    class WeekDate < TableBased
-
-      private
-
-      #
-      # Object Normalization
-      #
-      def _normalize(args=[], options={})
-        @label    ||= 'WeekDate'
-        @period   ||= 7  # length of week
-        @first    ||= 0  # first day of week 
-        @margin   ||= 3  # first day of year
-        @strftime ||= @period < 10 ? '%Y-W%m-%q' : '%Y-W%m-%d'
-        @engine   ||= 'Gregorian'
-        @engine     = When.Calendar(@engine)
-        @indices  ||= [
-          When.Index('WeekDate::week'),
-          When::Coordinates::DefaultDayIndex
-        ]
-        @rule_table ||= _generate_rule
-        raise ArgumentError, 'Too many weeks in a year' if @rule_table.keys.max / @period >= 100
-        super
-      end
-
-      # 年初の通日
-      #
-      # @param [Array<Numeric>] date ( 年 )
-      #
-      # @return [Integer] 年初の通日
-      #
-      def _sdn_(date)
-        year  = +date[0] - @engine.origin_of_MSC
-        sdn0  =  @margin + @engine._coordinates_to_number(year, 0, 0)
-        sdn1  =  @first  + @period * sdn0.div(@period)
-        sdn1 -=  @period if sdn1 > sdn0
-        sdn1
-      end
-
-      # @private
-      def _generate_rule
-        hash = {}
-        _week_number_range.each do |length|
-          hash[@period * length] = {'Length'=>[@period] * length}
-        end
-        hash
-      end
-
-      # @private
-      def _week_number_range
-        return 52..53 if @engine.kind_of?(When::CalendarTypes::Christian)
-        starts  = (0..19).to_a.map {|year| @engine._coordinates_to_number(year, 0, 0)}
-        lengths = (0..18).to_a.map {|year| starts[year+1] - starts[year]}
-        (lengths.min / @period)..((lengths.max + @period - 1) / @period)
-      end
-    end
-  end
-end
+# -*- coding: utf-8 -*-
+=begin
+  Copyright (C) 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
+
+    WeekDate = [self, [
+      "locale:[=en:, ja]",
+      "names:[WeekDate=en:ISO_week_date, 暦週=]",
+      [self, "names:[week]"] + (1...100).to_a.map {|m| "Week #{m}"},
+    ]]
+  end
+
+  module CalendarTypes
+
+    #
+    # Week Date Calendar
+    #
+    class WeekDate < TableBased
+
+      private
+
+      #
+      # Object Normalization
+      #
+      def _normalize(args=[], options={})
+        @label    ||= 'WeekDate'
+        @period   ||= 7  # length of week
+        @first    ||= 0  # first day of week 
+        @margin   ||= 3  # first day of year
+        @strftime ||= @period < 10 ? '%Y-W%m-%q' : '%Y-W%m-%d'
+        @engine   ||= 'Gregorian'
+        @engine     = When.Calendar(@engine)
+        @indices  ||= [
+          When.Index('WeekDate::week'),
+          When::Coordinates::DefaultDayIndex
+        ]
+        @rule_table ||= _generate_rule
+        raise ArgumentError, 'Too many weeks in a year' if @rule_table.keys.max / @period >= 100
+        super
+      end
+
+      # 年初の通日
+      #
+      # @param [Array<Numeric>] date ( 年 )
+      #
+      # @return [Integer] 年初の通日
+      #
+      def _sdn_(date)
+        year  = +date[0] - @engine.origin_of_MSC
+        sdn0  =  @margin + @engine._coordinates_to_number(year, 0, 0)
+        sdn1  =  @first  + @period * sdn0.div(@period)
+        sdn1 -=  @period if sdn1 > sdn0
+        sdn1
+      end
+
+      # @private
+      def _generate_rule
+        hash = {}
+        _week_number_range.each do |length|
+          hash[@period * length] = {'Length'=>[@period] * length}
+        end
+        hash
+      end
+
+      # @private
+      def _week_number_range
+        return 52..53 if @engine.kind_of?(When::CalendarTypes::Christian)
+        starts  = (0..19).to_a.map {|year| @engine._coordinates_to_number(year, 0, 0)}
+        lengths = (0..18).to_a.map {|year| starts[year+1] - starts[year]}
+        (lengths.min / @period)..((lengths.max + @period - 1) / @period)
+      end
+    end
+  end
+end

data/lib/when_exe/region/world.rb

@@ -1,175 +1,175 @@
-# -*- 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
-
-    World = [self, [
-      "locale:[=en:, ja=ja:, alias]",
-      "names:[World=]",
-      "[World=en:The_World_Calendar, 世界暦]"
-    ]]
-  end
-
-  #
-  # 世界暦の暦週
-  #
-  class CalendarNote::WorldWeek < CalendarNote::Week
-
-    #
-    # 暦注要素の定義
-    #
-    Notes = [When::BasicTypes::M17n, [
-      "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]",
-          [DayOfWeek, "label:[Sunday,    日曜日]", {'delta'=>7}],
-          [DayOfWeek, "label:[Monday,    月曜日]", {'delta'=>7}],
-          [DayOfWeek, "label:[Tuesday,   火曜日]", {'delta'=>7}],
-          [DayOfWeek, "label:[Wednesday, 水曜日]", {'delta'=>7}],
-          [DayOfWeek, "label:[Thursday,  木曜日]", {'delta'=>7}],
-          [DayOfWeek, "label:[Friday,    金曜日]", {'delta'=>7}],
-          [DayOfWeek, "label:[Saturday,  土曜日]", {'delta'=>7}],
-          [DayOfWeek, "label:[Worldsday, 無曜日]", {'delta'=>183}],
-        ],
-
-        "[Standard_Week]"
-      ]
-    ]]
-
-    # @private
-    FirstDayOfWeek = [0, 3, 5] * 4
-
-    # @private
-    ExtraDayInYear = {
-      [ 6, 31] => 7,
-      [12, 31] => 7
-    }
-
-    # @private
-    WeekLength = {
-      [ 6, 30] => 7,
-      [ 6, 31] => 8,
-      [12, 30] => 8,
-      [12, 31] => 8
-    }
-
-    # 当日または直前の worldsday の日
-    # @param [When::TM::TemporalPosition] date
-    # @param [nil] parameter 未使用
-    # @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 [When::TM::TemporalPosition] date
-    #   @param [nil] parameter 未使用
-    #   @return [When::TM::TemporalPosition]
-    #   @note week_day は sunday, monday, tuesday, wednesday, thursday, friday, saturday に読み替えてください。
-
-    # @private
-    7.times do |k|
-      name = When.CalendarNote('WorldWeek/Notes::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], :precision=>When::DAY})
-          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
-      }
-    end
-
-    #
-    # この日は何曜？
-    #
-    # @param [When::TM::TemporalPosition] date
-    # @param [When::TM::CalDate] base (not used)
-    #
-    # @return [Hash<:value=>When::CalendarNote::Week::DayOfWeek, :position=>Array<Integer>>]
-    #
-    def week(date, base=nil)
-      date    = _to_date_for_note(date)
-      y, m, d = date.cal_date
-      index   = ExtraDayInYear[[m,d]] || (FirstDayOfWeek[m-1] + d - 1) % 7
-      length  = WeekLength[[m, date.length(When::MONTH)]] || 7
-      {:value=>@days_of_week[index], :position=>[index, length]}
-    end
-
-    #
-    # 暦日を当該暦注計算用クラスに変換
-    #
-    # @private
-    def _to_date_for_note(date)
-      date = When::World ^ date unless date.frame.equal?(When::World)
-      date
-    end
-
-    private
-
-    # オブジェクトの正規化
-    # @private
-    def _normalize(args=[], options={})
-      @event ||= 'sunday'
-      super
-    end
-  end
-
-  module CalendarTypes
-    #
-    # World calendar based on Gregorian calendar
-    #
-    World =  [CyclicTableBased, {
-      'label'   => 'World::World',
-      'origin_of_LSC'    => 1721060,
-      '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
+# -*- 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
+
+    World = [self, [
+      "locale:[=en:, ja=ja:, alias]",
+      "names:[World=]",
+      "[World=en:The_World_Calendar, 世界暦]"
+    ]]
+  end
+
+  #
+  # 世界暦の暦週
+  #
+  class CalendarNote::WorldWeek < CalendarNote::Week
+
+    #
+    # 暦注要素の定義
+    #
+    Notes = [When::BasicTypes::M17n, [
+      "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]",
+          [DayOfWeek, "label:[Sunday,    日曜日]", {'delta'=>7}],
+          [DayOfWeek, "label:[Monday,    月曜日]", {'delta'=>7}],
+          [DayOfWeek, "label:[Tuesday,   火曜日]", {'delta'=>7}],
+          [DayOfWeek, "label:[Wednesday, 水曜日]", {'delta'=>7}],
+          [DayOfWeek, "label:[Thursday,  木曜日]", {'delta'=>7}],
+          [DayOfWeek, "label:[Friday,    金曜日]", {'delta'=>7}],
+          [DayOfWeek, "label:[Saturday,  土曜日]", {'delta'=>7}],
+          [DayOfWeek, "label:[Worldsday, 週外日]", {'delta'=>183}],
+        ],
+
+        "[Common_Week]"
+      ]
+    ]]
+
+    # @private
+    FirstDayOfWeek = [0, 3, 5] * 4
+
+    # @private
+    ExtraDayInYear = {
+      [ 6, 31] => 7,
+      [12, 31] => 7
+    }
+
+    # @private
+    WeekLength = {
+      [ 5, 31] => 8,
+      [ 6, 31] => 8,
+      [11, 31] => 8,
+      [12, 31] => 8
+    }
+
+    # 当日または直前の worldsday の日
+    # @param [When::TM::TemporalPosition] date
+    # @param [nil] parameter 未使用
+    # @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 [When::TM::TemporalPosition] date
+    #   @param [nil] parameter 未使用
+    #   @return [When::TM::TemporalPosition]
+    #   @note week_day は sunday, monday, tuesday, wednesday, thursday, friday, saturday に読み替えてください。
+
+    # @private
+    7.times do |k|
+      name = When.CalendarNote('WorldWeek/Notes::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], :precision=>When::DAY})
+          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
+      }
+    end
+
+    #
+    # この日は何曜？
+    #
+    # @param [When::TM::TemporalPosition] date
+    # @param [When::TM::CalDate] base
+    #
+    # @return [Hash<:value=>When::CalendarNote::Week::DayOfWeek, :position=>Array<Integer>>]
+    #
+    def week(date, base=nil)
+      date    = _to_date_for_note(date)
+      y, m, d = date.cal_date
+      index   = ExtraDayInYear[[m,d]] || (FirstDayOfWeek[m-1] + d - 1) % 7
+      length  = WeekLength[[m, (base||date).length(When::MONTH)]] || 7
+      {:value=>@days_of_week[index], :position=>[index, length]}
+    end
+
+    #
+    # 暦日を当該暦注計算用クラスに変換
+    #
+    # @private
+    def _to_date_for_note(date)
+      date = When::World ^ date unless date.frame.equal?(When::World)
+      date
+    end
+
+    private
+
+    # オブジェクトの正規化
+    # @private
+    def _normalize(args=[], options={})
+      @event ||= 'sunday'
+      super
+    end
+  end
+
+  module CalendarTypes
+    #
+    # World calendar based on Gregorian calendar
+    #
+    World =  [CyclicTableBased, {
+      'label'   => 'World::World',
+      'origin_of_LSC'    => 1721060,
+      '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