zakuro 0.4.0 → 0.6.1

data/lib/zakuro/calculation/era/gengou/internal/reserve/range.rb

@@ -0,0 +1,193 @@
+# frozen_string_literal: true
+
+require_relative '../../../../../era/western/calendar'
+
+require_relative './list'
+
+# :nodoc:
+module Zakuro
+  # :nodoc:
+  module Calculation
+    # :nodoc:
+    module Gengou
+      # :nodoc:
+      module Reserve
+        #
+        # Range 予約済み計算範囲
+        #
+        class Range
+          # @return [List] 1行目元号
+          attr_reader :first_list
+          # @return [List] 2行目元号
+          attr_reader :second_list
+
+          #
+          # 初期化
+          #
+          # @param [Western::Calendar] start_date 西暦開始日
+          # @param [Western::Calendar] last_date 西暦終了日
+          #
+          def initialize(start_date: Western::Calendar.new, last_date: Western::Calendar.new)
+            last_date = start_date.clone if last_date.invalid?
+
+            @first_list = List.new(first: true, start_date: start_date, last_date: last_date)
+            @second_list = List.new(first: false, start_date: start_date, last_date: last_date)
+
+            renew(last_date: last_date)
+          end
+
+          #
+          # 再初期化
+          #   含まれる最初の元号が別の行にまたがっている場合に開始日を前倒しする
+          #
+          # @param [Western::Calendar] last_date 西暦終了日
+          #
+          def renew(last_date: Western::Calendar.new)
+            native_start_date = Western::Calendar.new
+            [@first_list, @second_list].each do |list|
+              next unless list.change_start_date?
+
+              if native_start_date.invalid?
+                native_start_date = list.native_start_date.clone
+                next
+              end
+
+              next if native_start_date <= list.native_start_date
+
+              native_start_date = list.native_start_date.clone
+            end
+
+            return if native_start_date.invalid?
+
+            @first_list = List.new(first: true,
+                                   start_date: native_start_date, last_date: last_date)
+            @second_list = List.new(first: false,
+                                    start_date: native_start_date, last_date: last_date)
+          end
+
+          #
+          # 不正か
+          #
+          # @return [True] 不正
+          # @return [False] 不正なし
+          #
+          def invalid?
+            @first_list.invalid?
+          end
+
+          #
+          # 範囲内元号（1行目元号）を取得する
+          #
+          # @param [Western::Calendar] start_date 西暦開始日
+          # @param [Western::Calendar] last_date 西暦終了日
+          #
+          # @return [Array<Gengou::Counter>] 範囲内元号（1行目元号）
+          #
+          def collect_first(start_date: Western::Calendar.new,
+                            last_date: Western::Calendar.new)
+            @first_list.collect(start_date: start_date, last_date: last_date)
+          end
+
+          #
+          # 範囲内元号（2行目元号）を取得する
+          #
+          # @param [Western::Calendar] start_date 西暦開始日
+          # @param [Western::Calendar] last_date 西暦終了日
+          #
+          # @return [Array<Gengou::Counter>] 範囲内元号（2行目元号）
+          #
+          def collect_second(start_date: Western::Calendar.new,
+                             last_date: Western::Calendar.new)
+            @second_list.collect(start_date: start_date, last_date: last_date)
+          end
+
+          #
+          # 最古の元号から和暦開始日を取得する
+          #
+          # @return [Japan::Calendar] 和暦開始日
+          #
+          def japan_start_date
+            gengou = oldest_gengou
+
+            return Japan::Calendar.new if gengou.invalid?
+
+            gengou.japan_start_date
+          end
+
+          #
+          # 最古の元号から西暦開始日を取得する
+          #
+          # @return [Western::Calendar] 西暦開始日
+          #
+          def western_start_date
+            gengou = oldest_gengou
+
+            return Western::Calendar.new if gengou.invalid?
+
+            gengou.western_start_date
+          end
+
+          #
+          # 開始西暦年を取得する
+          #
+          # @return [Integer] 開始西暦年
+          #
+          def western_start_year
+            first_start_year = @first_list.western_start_year
+            second_start_year = @second_list.western_start_year
+
+            return first_start_year if @first_list.invalid?
+
+            return first_start_year if @second_list.invalid?
+
+            return first_start_year if first_start_year < second_start_year
+
+            second_start_year
+          end
+
+          #
+          # 終了西暦年を取得する
+          #
+          # @return [Integer] 終了西暦年
+          #
+          def western_last_year
+            first_last_year = @first_list.western_last_year
+            second_last_year = @second_list.western_last_year
+
+            return first_last_year if @first_list.invalid?
+
+            return first_last_year if @second_list.invalid?
+
+            return first_last_year if first_last_year > second_last_year
+
+            second_last_year
+          end
+
+          private
+
+          #
+          # 最古の元号を取得する
+          #
+          # @return [Japan::Gengou] 最古の元号
+          #
+          def oldest_gengou
+            return @first_list if @first_list.invalid?
+
+            return @first_list if @second_list.invalid?
+
+            first_western_date = @first_list.western_start_date
+            second_western_date = @second_list.western_start_date
+
+            return @first_list if first_western_date.invalid?
+
+            return @first_list if second_western_date.invalid?
+
+            return @first_list if first_western_date < second_western_date
+
+            @second_list
+          end
+        end
+      end
+    end
+  end
+end

data/lib/zakuro/calculation/era/gengou/internal/reserve.rb

@@ -0,0 +1,42 @@
+# frozen_string_literal: true
+
+require_relative '../../../../era/western/calendar'
+require_relative './reserve/range'
+require_relative './reserve/list'
+
+# :nodoc:
+module Zakuro
+  # :nodoc:
+  module Calculation
+    # :nodoc:
+    module Gengou
+      # Reserve
+      #
+      # 元号に基づき計算範囲を予約する
+      #
+      module Reserve
+        #
+        # 予約結果を取得する
+        #
+        #   * 開始日・終了日から計算する範囲を求める
+        #   * 開始日・終了日の範囲内にある元号全てが対象となる
+        #   * 元号に応じて計算範囲は変化する
+        #     * 元号の開始日（改元日）が開始日よりも前であれば、結果開始日は前者になる
+        #     * 元号の終了日（改元前日）が終了日よりも後であれば、結果終了日は前者になる
+        #     * 南北朝のように複数元号に属する場合、より広い範囲の元号に合わせる
+        #   * 属する元号よりもさらに範囲を広げる場合がある
+        #     * 開始日が最初の元号の改元後30日以内の場合、さらに前の元号まで対象にする
+        #     * 終了日が最後の元号の改元前日30日以内の場合、さらに次の元号まで対象にする
+        #
+        # @param [Western::Calendar] start_date 開始日
+        # @param [Western::Calendar] last_date 終了日
+        #
+        # @return [Range] 予約済み計算範囲
+        #
+        def self.get(start_date: Western::Calendar.new, last_date: Western::Calendar.new)
+          Range.new(start_date: start_date, last_date: last_date)
+        end
+      end
+    end
+  end
+end

data/lib/zakuro/calculation/era/gengou/scroll.rb

@@ -0,0 +1,211 @@
+# frozen_string_literal: true
+
+require_relative '../../../era/western/calendar'
+require_relative '../../base/gengou'
+require_relative '../../base/linear_gengou'
+require_relative './internal/reserve/range'
+require_relative './internal/connector'
+require_relative './internal/publisher'
+
+# :nodoc:
+module Zakuro
+  # :nodoc:
+  module Calculation
+    # :nodoc:
+    module Gengou
+      # Scroll
+      #
+      # 元号スクロール
+      #
+      class Scroll
+        # @return [Western::Calendar] 月初日
+        attr_reader :monthly_start_date
+        # @return [Western::Calendar] 月末日
+        attr_reader :monthly_last_date
+        # @return [Reserve::Range] 予約範囲
+        attr_reader :range
+        # @return [Array<Counte>] 1行目元号
+        attr_reader :first_gengou
+        # @return [Array<Counte>] 2行目元号
+        attr_reader :second_gengou
+        # @return [Connector] 行変更済元号
+        attr_reader :connector
+
+        #
+        # 初期化
+        #
+        # @param [Western::Calendar] start_date 西暦開始日（最大範囲）
+        # @param [Western::Calendar] last_date 西暦終了日（最大範囲）
+        #
+        def initialize(start_date: Western::Calendar.new, last_date: Western::Calendar.new)
+          @monthly_start_date = Western::Calendar.new
+          @monthly_last_date = Western::Calendar.new
+          @range = Reserve::Range.new(start_date: start_date, last_date: last_date)
+          @first_gengou = []
+          @second_gengou = []
+          @ignited = false
+          @connector = Connector.new
+        end
+
+        #
+        # 進める
+        #
+        # @param [Monthly::Month] month 月
+        #
+        def run(month:)
+          unless @ignited
+            # 開始日の検索を行う
+            @ignited = ignite(month: month)
+            return
+          end
+
+          # 時間を進める
+          advance(month: month)
+        end
+
+        #
+        # 元号開始を試みる
+        #
+        # @param [Monthly::Month] month 月
+        #
+        # @return [True] 開始あり
+        # @return [False] 開始なし
+        #
+        def ignite(month:)
+          return false unless ignitable?(month: month)
+
+          japan_start_date = @range.japan_start_date
+
+          western_start_date = @range.western_start_date
+
+          # 今月初日（和暦日が1月2日であれば、開始日の1日前が初日）
+          @monthly_start_date = western_start_date.clone - japan_start_date.day + 1
+
+          # 今月末
+          @monthly_last_date = @monthly_start_date.clone + month.days - 1
+
+          update_current_gengou
+
+          true
+        end
+
+        #
+        # 進める
+        #
+        # @param [Monthly::Month] month 月
+        #
+        def advance(month:)
+          @monthly_start_date = @monthly_last_date.clone + 1
+
+          @monthly_last_date = @monthly_start_date.clone + month.days - 1
+
+          next_year if month.number == 1 && !month.leaped?
+
+          update_current_gengou
+        end
+
+        #
+        # 共通の元号に変換する
+        #
+        # @return [Base::Gengou] 元号
+        #
+        def to_gengou
+          start_date = @monthly_start_date.clone
+          last_date = @monthly_last_date.clone
+
+          # 行を超えた元号切り替え処理
+          continue_year
+
+          Publisher.run(
+            start_date: start_date, last_date: last_date,
+            first_gengou: @first_gengou, second_gengou: @second_gengou
+          )
+        end
+
+        #
+        # 開始西暦年を取得する
+        #
+        # @return [Integer] 開始西暦年
+        #
+        def western_start_year
+          @range.western_start_year
+        end
+
+        #
+        # 終了西暦年を取得する
+        #
+        # @return [Integer] 終了西暦年
+        #
+        def western_last_year
+          @range.western_last_year
+        end
+
+        private
+
+        #
+        # 行を跨ぐ元号年を継続させる
+        #
+        def continue_year
+          @connector.update(lines: [@first_gengou, @second_gengou])
+        end
+
+        #
+        # 現在月に合わせて元号を更新する
+        #
+        def update_current_gengou
+          start_date = @monthly_start_date
+          last_date = @monthly_last_date
+          first_gengou = @range.collect_first(start_date: start_date, last_date: last_date)
+          second_gengou = @range.collect_second(start_date: start_date,
+                                                last_date: last_date)
+
+          @first_gengou = replace_gengou(source: @first_gengou, destination: first_gengou)
+          @second_gengou = replace_gengou(source: @second_gengou, destination: second_gengou)
+        end
+
+        #
+        # 元号を差し替える
+        #
+        # @param [Array<Counter>] source 元の元号
+        # @param [Array<Counter>] destination 次の元号
+        #
+        # @return [Array<Counter>] 差し替え結果
+        #
+        def replace_gengou(source: [], destination: [])
+          return destination if destination.size.zero?
+
+          return destination if source.size.zero?
+
+          last = source[-1]
+          destination[0] = last if destination[0].name == last.name
+
+          destination
+        end
+
+        #
+        # 開始可能か
+        #
+        # @param [Monthly::Month] month 月
+        #
+        # @return [True] 開始可
+        # @return [True] 開始不可
+        #
+        def ignitable?(month:)
+          return false unless @monthly_start_date.invalid?
+
+          japan_start_date = @range.japan_start_date
+
+          japan_start_date.same_month?(leaped: month.leaped?, month: month.number)
+        end
+
+        #
+        # 次年にする
+        #
+        def next_year
+          @first_gengou.each(&:next_year)
+          @second_gengou.each(&:next_year)
+        end
+      end
+    end
+  end
+end

data/lib/zakuro/calculation/era/version/internal/crawler.rb

@@ -0,0 +1,51 @@
+# frozen_string_literal: true
+
+require_relative '../../../../era/japan/version'
+require_relative './range'
+
+# :nodoc:
+module Zakuro
+  # :nodoc:
+  module Calculation
+    # :nodoc:
+    module Version
+      #
+      # 暦検索
+      #
+      module Crawler
+        #
+        # 暦の範囲を取得する
+        #
+        # @param [Integer] start_year 開始西暦年
+        # @param [Integer] last_year 終了西暦年
+        #
+        # @return [Array<Range>] 暦の範囲
+        #
+        def self.get(start_year:, last_year:)
+          ranges = Japan::Version.ranges_with_year(start_year: start_year, last_year: last_year)
+
+          result = []
+
+          ranges.each do |range|
+            next unless range.released
+
+            range_start_year = range.start_year
+            range_start_year = start_year if start_year > range.start_year
+
+            range_last_year = range.last_year
+            range_last_year = last_year if last_year < range.last_year
+
+            result.push(
+              Range.new(
+                name: range.name, start_date: range.start_date.clone,
+                start_year: range_start_year, last_year: range_last_year
+              )
+            )
+          end
+
+          result
+        end
+      end
+    end
+  end
+end

data/lib/zakuro/calculation/era/version/internal/range.rb

@@ -0,0 +1,39 @@
+# frozen_string_literal: true
+
+# :nodoc:
+module Zakuro
+  # :nodoc:
+  module Calculation
+    # :nodoc:
+    module Version
+      #
+      # Range 暦（範囲）
+      #
+      class Range
+        # @return [String] 暦名
+        attr_reader :name
+        # @return [Western::Calendar] 暦の開始日
+        attr_reader :start_date
+        # @return [Integer] 開始西暦年
+        attr_reader :start_year
+        # @return [Integer] 終了西暦年
+        attr_reader :last_year
+
+        #
+        # 初期化
+        #
+        # @param [String] name 暦名
+        # @param [Western::Calendar] start_date 暦の開始日
+        # @param [Integer] start_year 開始西暦年
+        # @param [Integer] last_year 終了西暦年
+        #
+        def initialize(name:, start_date:, start_year:, last_year:)
+          @name = name
+          @start_date = start_date
+          @start_year = start_year
+          @last_year = last_year
+        end
+      end
+    end
+  end
+end

data/lib/zakuro/calculation/era/version/version.rb

@@ -0,0 +1,24 @@
+# frozen_string_literal: true
+
+require_relative './internal/crawler'
+
+# :nodoc:
+module Zakuro
+  # :nodoc:
+  module Calculation
+    # :nodoc:
+    module Version
+      #
+      # 暦の範囲を取得する
+      #
+      # @param [Integer] start_year 開始西暦年
+      # @param [Integer] last_year 終了西暦年
+      #
+      # @return [Array<Range>] 暦の範囲
+      #
+      def self.get(start_year:, last_year:)
+        Crawler.get(start_year: start_year, last_year: last_year)
+      end
+    end
+  end
+end

data/lib/zakuro/calculation/monthly/first_day.rb

@@ -1,6 +1,6 @@
 # frozen_string_literal: true
 
-require_relative '../../era/western'
+require_relative '../../era/western/calendar'
 
 # :nodoc:
 module Zakuro
@@ -23,7 +23,8 @@ module Zakuro
         # @param [Remainder] remainder 西暦日
         # @param [Western::Calendar] western_date 大余小余
         #
-        def initialize(western_date: Western::Calendar.new, remainder:)
+        def initialize(western_date: Western::Calendar.new,
+                       remainder: Calculation::Cycle::AbstractRemainder.new)
           # 西暦日
           @western_date = western_date
           # 大余小余

data/lib/zakuro/calculation/monthly/month.rb

@@ -1,5 +1,6 @@
 # frozen_string_literal: true
 
+require_relative '../base/gengou'
 require_relative './first_day'
 require_relative './month_label'
 
@@ -21,6 +22,8 @@ module Zakuro
         attr_reader :first_day
         # @return [Array<SolarTerm>] 二十四節気
         attr_reader :solar_terms
+        # @return [Base::Gengou] 元号
+        attr_reader :gengou
 
         #
         # 初期化
@@ -29,13 +32,25 @@ module Zakuro
         # @param [MonthLabel] month_label 月表示名
         # @param [FirstDay] first_day 月初日（朔日）
         # @param [Array<SolarTerm>] solar_terms 二十四節気
+        # @param [Base::Gengou] gengou 元号
         #
-        def initialize(context:, month_label: MonthLabel.new, first_day: FirstDay.new,
-                       solar_terms: [])
+        def initialize(context: Context.new, month_label: MonthLabel.new, first_day: FirstDay.new,
+                       solar_terms: [], gengou: Base::Gengou.new)
           @context = context
           @month_label = month_label
           @first_day = first_day
           @solar_terms = solar_terms
+          @gengou = gengou
+        end
+
+        #
+        # 不正か
+        #
+        # @return [True] 不正
+        # @return [False] 不正なし
+        #
+        def invalid?
+          @context.invalid?
         end
 
         #
@@ -181,6 +196,38 @@ module Zakuro
         def same?(other:)
           number == other.number && leaped? == other.leaped?
         end
+
+        #
+        # 月の終了日を返す
+        #
+        # @return [Western::Calendar] 月の終了日
+        #
+        def last_date
+          return Western::Calendar.new if western_date.invalid?
+
+          western_date.clone + days - 1
+        end
+
+        #
+        # 範囲内か
+        #
+        # @param [Western::Calendar] date 日付
+        #
+        # @return [True] 範囲内
+        # @return [False] 範囲外
+        #
+        def include?(date:)
+          return false if invalid?
+
+          start_date = western_date
+          return false if start_date.invalid?
+
+          return false if date < start_date
+
+          return false if date > last_date
+
+          true
+        end
       end
     end
   end

data/lib/zakuro/calculation/monthly/operated_month.rb

@@ -34,10 +34,10 @@ module Zakuro
         # @param [Operation::MonthHistory] history 変更履歴（月）
         #
         def initialize(context:, operated_solar_terms:, month_label: MonthLabel.new,
-                       first_day: FirstDay.new, solar_terms: [],
+                       first_day: FirstDay.new, solar_terms: [], gengou: Base::Gengou.new,
                        history: Operation::MonthHistory.new)
           super(context: context, month_label: month_label, first_day: first_day,
-                solar_terms: solar_terms)
+                solar_terms: solar_terms, gengou: gengou)
           @history = history
           @operated_solar_terms = operated_solar_terms
           @moved = false