zakuro 0.6.0 → 0.7.2

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

@@ -0,0 +1,209 @@
+# frozen_string_literal: true
+
+require_relative '../../../era/western/calendar'
+require_relative '../../base/gengou'
+require_relative '../../base/linear_gengou'
+require_relative './internal/connector'
+require_relative './internal/publisher'
+
+# :nodoc:
+module Zakuro
+  # :nodoc:
+  module Calculation
+    # :nodoc:
+    module Gengou
+      # AbstractScroll
+      #
+      # 元号スクロール
+      #
+      class AbstractScroll
+        # @return [Western::Calendar] 月初日
+        attr_reader :monthly_start_date
+        # @return [Western::Calendar] 月末日
+        attr_reader :monthly_last_date
+        # @return [Reserve::AbstractRange] 予約範囲
+        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 [Reserve::AbstractRange] range 予約範囲
+        #
+        def initialize(range:)
+          @monthly_start_date = Western::Calendar.new
+          @monthly_last_date = Western::Calendar.new
+          @range = range
+          @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/gengou/dated_scroll.rb

@@ -0,0 +1,30 @@
+# frozen_string_literal: true
+
+require_relative './abstract_scroll'
+require_relative './internal/reserve/dated_range'
+
+# :nodoc:
+module Zakuro
+  # :nodoc:
+  module Calculation
+    # :nodoc:
+    module Gengou
+      # DatedScroll
+      #
+      # 元号スクロール
+      #
+      class DatedScroll < AbstractScroll
+        #
+        # 初期化
+        #
+        # @param [Western::Calendar] start_date 西暦開始日（最大範囲）
+        # @param [Western::Calendar] last_date 西暦終了日（最大範囲）
+        #
+        def initialize(start_date: Western::Calendar.new, last_date: Western::Calendar.new)
+          range = Reserve::DatedRange.new(start_date: start_date, last_date: last_date)
+          super(range: range)
+        end
+      end
+    end
+  end
+end

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

@@ -0,0 +1,107 @@
+# frozen_string_literal: true
+
+require_relative '../../../../era/japan/gengou/resource'
+require_relative '../../../../era/japan/calendar'
+require_relative '../../../../era/western/calendar'
+
+# :nodoc:
+module Zakuro
+  # :nodoc:
+  module Calculation
+    # :nodoc:
+    module Gengou
+      #
+      # Connector 元号接続器
+      #
+      # 現在は"明徳"のみを解決している
+      #   元中1年4月28日                  元中9年閏10月4日        明徳5年7月4日
+      #   1384-05-18                     1392-11-18              1394-8-1
+      #  [1] |-------------元中---------------|---------明徳------------|
+      #  [2]            |---------明徳--------|
+      #             明徳1年3月26日
+      #             1390-04-12
+      #
+      #  * 明徳は2行目元号から始まる
+      #  * 1392-11-19より1行目元号に移行する
+      #  * 移行のタイミングで元号年を引き継げるようにする
+      #
+      class Connector
+        # @return [Array<Counter>] 未解決元号
+        attr_reader :unsolved_list
+
+        #
+        # 初期化
+        #
+        def initialize
+          @unsolved_list = []
+        end
+
+        #
+        # 元号を更新する
+        #
+        # @param [Array<Array<Counter>>] lines 全行元号
+        #
+        def update(lines: [])
+          lines.each do |line|
+            line.each_with_index do |gengou, index|
+              next unless gengou.changed?
+
+              line[index] = replace(gengou: gengou)
+            end
+          end
+        end
+
+        #
+        # 元号を年を更新した元号に入れ替える
+        #
+        # @param [Counter] gengou 元号
+        #
+        # @return [Counter] 元号/更新済元号
+        #
+        def replace(gengou:)
+          matched_index = -1
+          @unsolved_list.each_with_index do |unsolved, index|
+            next unless unsolved.name == gengou.name
+
+            matched_index = index
+            break
+          end
+
+          if matched_index == -1
+            @unsolved_list.push(gengou)
+            return gengou
+          end
+
+          matched = @unsolved_list[matched_index]
+
+          result = recreate(gengou: gengou, unsolved: matched)
+
+          @unsolved_list[matched_index] = result
+
+          # 分離した元号の末尾まで到達した
+          @unsolved_list.delete_at(matched_index) unless result.change_last_date?
+
+          result
+        end
+
+        #
+        # 年を更新した元号を生成する
+        #
+        # @param [Counter] gengou 元号
+        # @param [Counter] unsolved 未解決元号
+        #
+        # @return [Counter] 更新済元号
+        #
+        def recreate(gengou:, unsolved:)
+          japan_year = gengou.japan_year
+          japan_year = unsolved.japan_year if unsolved.japan_year > gengou.japan_year
+
+          Counter.new(
+            gengou: gengou.gengou, start_date: gengou.start_date,
+            last_date: gengou.last_date, japan_year: japan_year
+          )
+        end
+      end
+    end
+  end
+end

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

@@ -0,0 +1,214 @@
+# frozen_string_literal: true
+
+require_relative '../../../../era/japan/gengou/resource'
+require_relative '../../../../era/japan/calendar'
+require_relative '../../../../era/western/calendar'
+
+# :nodoc:
+module Zakuro
+  # :nodoc:
+  module Calculation
+    # :nodoc:
+    module Gengou
+      #
+      # Counter 加算元号
+      #
+      class Counter
+        # @return [Integer] 不正値
+        INVALID_YEAR = -1
+
+        # @return [Japan::Resource::Gengou] 元号
+        attr_reader :gengou
+        # @return [Integer] 元号年
+        attr_reader :japan_year
+        # @return [Integer] 西暦年
+        attr_reader :western_year
+        # @return [Western::Calendar] 西暦開始年
+        attr_reader :start_date
+        # @return [Western::Calendar] 西暦終了年
+        attr_reader :last_date
+
+        #
+        # 初期化
+        #
+        # @param [Japan::Resource::Gengou] gengou 元号
+        # @param [Western::Calendar] start_date 西暦開始年
+        # @param [Western::Calendar] last_date 西暦終了年
+        # @param [Integer] japan_year 和暦年
+        #
+        def initialize(gengou: Japan::Resource::Gengou.new,
+                       start_date: Western::Calendar.new, last_date: Western::Calendar.new,
+                       japan_year: INVALID_YEAR)
+          @gengou = gengou
+          @japan_year = japan_year
+          @japan_year = gengou.both_start_year.japan if @japan_year == INVALID_YEAR
+          @western_year = gengou.both_start_year.western
+
+          @start_date = start_date.clone
+          @last_date = last_date.clone
+
+          select_valid_date
+        end
+
+        #
+        # 和暦開始日を取得する
+        #
+        # @return [Japan::Calendar] 和暦開始日
+        #
+        def japan_start_date
+          return Japan::Calendar.new if @gengou.invalid?
+
+          @gengou.both_start_date.japan
+        end
+
+        #
+        # 西暦開始日を取得する
+        #
+        # @return [Western::Calendar] 西暦開始日
+        #
+        def western_start_date
+          return Western::Calendar.new if @gengou.invalid?
+
+          @start_date
+        end
+
+        #
+        # 西暦終了日を取得する
+        #
+        # @return [Western::Calendar] 西暦終了日
+        #
+        def western_last_date
+          return Western::Calendar.new if @gengou.invalid?
+
+          @last_date
+        end
+
+        #
+        # 次年にする
+        #
+        # @return [MultiGengou] 自身
+        #
+        def next_year
+          @japan_year += 1
+          @western_year += 1
+
+          self
+        end
+
+        #
+        # 元号名を取得する
+        #
+        # @return [String] 元号名
+        #
+        def name
+          return '' unless @gengou
+
+          @gengou.name
+        end
+
+        #
+        # 不正か
+        #
+        # @return [True] 不正
+        # @return [False] 不正なし
+        #
+        def invalid?
+          @gengou.invalid? || @japan_year == INVALID_YEAR || @western_year == INVALID_YEAR
+        end
+
+        #
+        # 指定した日が元号に含まれるか
+        #
+        # @param [Western::Calendar] date 日
+        #
+        # @return [True] 含まれる
+        # @return [False] 含まれない
+        #
+        def include?
+          @gengou.include?
+        end
+
+        #
+        # 元は1繋ぎであった元号が別の行に存在するか（設定値から変更されているか）？
+        #
+        # @return [True] 存在する
+        # @return [False] 存在しない
+        #
+        def changed?
+          return true if change_start_date?
+
+          return true if change_last_date?
+
+          false
+        end
+
+        #
+        # 開始日が設定された開始日と異なるか（行が変更されているか）
+        #
+        # @return [True] 異なる
+        # @return [False] 同一
+        #
+        def change_start_date?
+          return false if invalid?
+
+          @start_date != native_start_date
+        end
+
+        #
+        # 終了日が設定された終了日と異なるか（行が変更されているか）
+        #
+        # @return [True] 異なる
+        # @return [False] 同一
+        #
+        def change_last_date?
+          return false if invalid?
+
+          @last_date != native_last_date
+        end
+
+        #
+        # ディープコピー
+        #
+        # @param [MultiGengou] obj 自身
+        #
+        def initialize_copy(obj)
+          @gengou = obj.gengou.clone
+          @japan_year = obj.japan_year
+          @western_year = obj.western_year
+          @start_date = obj.start_date.clone
+          @last_date = obj.last_date.clone
+        end
+
+        private
+
+        #
+        # 有効な日付範囲を選択する
+        #
+        def select_valid_date
+          return if @gengou.invalid?
+
+          @start_date = @gengou.both_start_date.western.clone if @start_date.invalid?
+          @last_date = @gengou.last_date.clone if @last_date.invalid?
+        end
+
+        #
+        # 設定された元号の開始日を取得する
+        #
+        # @return [Western::Calendar]設定された元号の開始日
+        #
+        def native_start_date
+          @gengou.both_start_date.western
+        end
+
+        #
+        # 設定された元号の終了日を取得する
+        #
+        # @return [Western::Calendar] 設定された元号の終了日
+        #
+        def native_last_date
+          @gengou.last_date
+        end
+      end
+    end
+  end
+end

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

@@ -0,0 +1,104 @@
+# frozen_string_literal: true
+
+require_relative '../../../../era/western/calendar'
+require_relative '../../../base/linear_gengou'
+
+# :nodoc:
+module Zakuro
+  # :nodoc:
+  module Calculation
+    # :nodoc:
+    module Gengou
+      # Publisher
+      #
+      # 元号発行
+      #
+      module Publisher
+        #
+        # 発行する
+        #
+        # @param [Western::Calendar] start_date 西暦開始日
+        # @param [Western::Calendar] last_date 西暦終了日
+        # @param [Array<Counter>] first_gengou 1行目元号
+        # @param [Array<Counter>] second_gengou 2行目元号
+        #
+        # @return [Base::Gengou] 元号
+        #
+        def self.run(start_date: Western::Calendar.new, last_date: Western::Calendar.new,
+                     first_gengou: [], second_gengou: [])
+
+          Base::Gengou.new(
+            start_date: start_date,
+            last_date: last_date,
+            first_line: to_linear_gengou(
+              start_date: start_date, last_date: last_date, gengou_list: first_gengou
+            ),
+            second_line: to_linear_gengou(
+              start_date: start_date, last_date: last_date, gengou_list: second_gengou
+            )
+          )
+        end
+
+        #
+        # 直列元号に変換する
+        #
+        #   * 最初の元号：開始日～その元号の終了日
+        #   * 中間の元号：その元号の開始日～その元号の終了日
+        #   * 最後の元号：その元号の開始日～終了日
+        #
+        # @param [Western::Calendar] start_date 西暦開始日
+        # @param [Western::Calendar] last_date 西暦終了日
+        # @param [Array<Counter>] gengou_list 元号リスト
+        #
+        # @return [Array<Base::LinearGengou>] 元号リスト
+        #
+        def self.to_linear_gengou(start_date:, last_date:, gengou_list: [])
+          return [] if gengou_list.size.zero?
+
+          result = []
+
+          gengou_list.each do |gengou|
+            if gengou.invalid?
+              # 無効元号は無効のままにする
+              result.push(Base::LinearGengou.new)
+              next
+            end
+
+            linear_gengou = to_limited_linear_gengou(
+              start_date: start_date,
+              last_date: last_date,
+              gengou: gengou
+            )
+            result.push(linear_gengou)
+          end
+
+          result
+        end
+
+        #
+        # 範囲を限定した直列元号に変換する
+        #
+        # * 開始日・終了日により範囲を狭める
+        #
+        # @param [Western::Calendar] start_date 西暦開始日
+        # @param [Western::Calendar] last_date 西暦終了日
+        # @param [Counter] gengou 加算元号
+        #
+        # @return [Base::LinearGengou] 元号
+        #
+        def self.to_limited_linear_gengou(start_date:, last_date:, gengou:)
+          gengou_start_date = gengou.western_start_date.clone
+          gengou_last_date = gengou.western_last_date.clone
+
+          gengou_start_date = start_date.clone if start_date > gengou_start_date
+          gengou_last_date = last_date.clone if last_date < gengou_last_date
+
+          Base::LinearGengou.new(
+            start_date: gengou_start_date, last_date: gengou_last_date,
+            name: gengou.name, year: gengou.japan_year
+          )
+        end
+      end
+    end
+  end
+end