zakuro 0.4.0 → 0.6.1

data/lib/zakuro/era/japan/calendar.rb

@@ -0,0 +1,133 @@
+# frozen_string_literal: true
+
+require_relative '../../tools/typeconv'
+
+# :nodoc:
+module Zakuro
+  #
+  # Japan 和暦
+  #
+  module Japan
+    #
+    # Calendar 年月日情報（和暦）
+    #
+    class Calendar
+      # @return [Integer] 無効値
+      INVALID = -1
+      # @return [String] 空文字列
+      EMPTY = ''
+      # @return [String] 閏を示す文字列
+      LEAPED_TEXT = '閏'
+      # @return [Regexp] 和暦日フォーマット
+      FORMAT = /^([一-龥]{2,4})([0-9]+)年(#{LEAPED_TEXT})?([0-9]+)月([0-9]+)日$/.freeze
+      # @return [String] 出力用デフォルトフォーマット
+      DEFAULT_OUTPUT_FORM = '%s%02d年%s%02d月%02d日'
+
+      # @return [String] 元号
+      attr_reader :gengou
+      # @return [Integer] 元号年
+      attr_reader :year
+      # @return [True] 閏あり
+      # @return [False] 閏なし
+      attr_reader :leaped
+      # @return [Integer] 月
+      attr_reader :month
+      # @return [Integer] 日
+      attr_reader :day
+
+      #
+      # 初期化
+      #
+      # @param [String] gengou 元号
+      # @param [Integer] year 元号年
+      # @param [True, False] leaped 閏
+      # @param [Integer] month 月
+      # @param [Integer] day 日
+      #
+      def initialize(gengou: EMPTY, year: INVALID, leaped: false, month: INVALID, day: INVALID)
+        @gengou = gengou
+        @year = year
+        @leaped = leaped
+        @month = month
+        @day = day
+      end
+
+      #
+      # 無効か
+      #
+      # @return [True] 無効
+      # @return [False] 有効
+      #
+      def invalid?
+        @gengou == EMPTY || @year == INVALID || @month == INVALID || @day == INVALID
+      end
+
+      #
+      # 文字列にする
+      #
+      # @return [String] 和暦日フォーマット文字列
+      #
+      def format(form: DEFAULT_OUTPUT_FORM)
+        leaped_text = @leaped ? LEAPED_TEXT : ''
+        super(form, @gengou, @year, leaped_text, @month, @day)
+      end
+
+      #
+      # 同月か
+      #   年と日は無視する
+      #
+      # @param [True, False] leaped 閏
+      # @param [Integer] month 月
+      #
+      # @return [True] 同月
+      # @return [True] 同月ではない
+      #
+      def same_month?(leaped:, month:)
+        return false unless @leaped == leaped
+
+        @month == month
+      end
+
+      #
+      # 年月日情報（和暦）を生成する
+      #
+      # @param [Regexp] regex 正規表現
+      # @param [String] text 和暦日文字列
+      #
+      # @return [Calendar] 年月日情報（和暦）
+      #
+      def self.parse(regex: FORMAT, text: '')
+        return Calendar.new unless valid_date_string(regex: regex, text: text)
+
+        matched = text.match(regex)
+
+        Calendar.new(
+          gengou: matched[1],
+          year: Tools::Typeconv.to_i(text: matched[2], default: INVALID),
+          leaped: matched[3] ? true : false,
+          month: Tools::Typeconv.to_i(text: matched[4], default: INVALID),
+          day: Tools::Typeconv.to_i(text: matched[5], default: INVALID)
+        )
+      end
+
+      #
+      # 日付文字列を検証する
+      #
+      # @param [Regexp] regex 正規表現
+      # @param [String] text 和暦日文字列
+      #
+      # @return [True] 正しい
+      # @return [True] 正しくない
+      #
+      def self.valid_date_string(regex: FORMAT, text: '')
+        return false unless text
+
+        matched = text.match(regex)
+
+        return false unless matched
+
+        matched.size == 6
+      end
+    end
+  end
+end

data/lib/zakuro/era/japan/gengou/alignment/aligner.rb

@@ -0,0 +1,106 @@
+# frozen_string_literal: true
+
+require_relative '../../../western/calendar'
+
+require_relative './line'
+
+# :nodoc:
+module Zakuro
+  #
+  # Japan 和暦
+  #
+  module Japan
+    #
+    # Alignment 整列
+    #
+    module Alignment
+      #
+      # Aligner 元号整列
+      #
+      class Aligner
+        # @return [Integer] 1行目元号
+        FIRST_LINE = 0
+
+        # @return [Integer] 2行目元号
+        SECOND_LINE = 1
+
+        # @return [Array<Integer>] 元号リスト
+        LINE_INDEXES = [FIRST_LINE, SECOND_LINE].freeze
+
+        # @return [Integer] 行数
+        LINE_SIZE = LINE_INDEXES.size
+
+        # @return [Array<Line>] 行元号
+        attr_reader :lines
+
+        #
+        # 初期化
+        #
+        # @param [Array<Set>] resources 元号解析結果
+        #
+        def initialize(resources: [])
+          @lines = []
+          (1..LINE_SIZE).each do |_index|
+            @lines.push(Line.new)
+          end
+
+          save(resources: resources)
+        end
+
+        #
+        # 行元号に追加する
+        #
+        # @param [Set] set 元号セット
+        #
+        def push(set:)
+          list = set.list
+          list.each do |gengou|
+            push_gengou(gengou: gengou)
+          end
+        end
+
+        #
+        # 指定した範囲内の元号を取得する
+        #
+        # @param [Integer] line 行
+        # @param [Western::Calendar] start_date 開始日
+        # @param [Western::Calendar] last_date 終了日
+        #
+        # @return [Array<LinearGengou>] 元号
+        #
+        def get(line:, start_date:, last_date:)
+          raise ArgumentError.new, 'invalid line number' unless LINE_INDEXES.include?(line)
+
+          @lines[line].get(start_date: start_date, last_date: last_date)
+        end
+
+        private
+
+        #
+        # 保存する
+        #
+        # @param [Array<Set>] resources 元号解析結果
+        #
+        def save(resources: [])
+          resources.each do |set|
+            push(set: set)
+          end
+        end
+
+        #
+        # 元号を追加する
+        #
+        # @param [Gengou] gengou 元号
+        #
+        def push_gengou(gengou:)
+          rest = [
+            LinearGengou.new(gengou: gengou)
+          ]
+          @lines.each do |line|
+            rest = line.push(list: rest)
+          end
+        end
+      end
+    end
+  end
+end

data/lib/zakuro/era/japan/gengou/alignment/division.rb

@@ -0,0 +1,165 @@
+# frozen_string_literal: true
+
+require_relative './linear_gengou'
+
+# :nodoc:
+module Zakuro
+  # :nodoc:
+  module Japan
+    # :nodoc:
+    module Alignment
+      #
+      # Division 元号区分
+      #
+      module Division
+        #
+        # 重複した範囲を返す
+        #
+        # @param [LinearGengou] this 残り元号
+        # @param [LinearGengou] other 比較元号
+        #
+        # @return [Array<LinearGengou>] 重複分
+        #
+        def self.match(this:, other:)
+          result = []
+          if other.in?(start_date: this.start_date, last_date: this.last_date)
+            result.push(this)
+            return result
+          end
+
+          if other.out?(start_date: this.start_date, last_date: this.last_date)
+            # 該当なし
+            return result
+          end
+
+          if other.covered?(start_date: this.start_date, last_date: this.last_date)
+            # 範囲内のみ返す
+            result.push(trim_gengou(this: this, other: other))
+            return result
+          end
+
+          result.push(narrow_gengou(this: this, other: other))
+
+          result
+        end
+
+        #
+        # 範囲が重複しない差分を返す
+        #
+        # @param [LinearGengou] this 積元号
+        # @param [LinearGengou] other 比較元号
+        #
+        # @return [Array<LinearGengou>] 差分
+        #
+        def self.mismatch(this:, other:)
+          result = []
+          if other.in?(start_date: this.start_date, last_date: this.last_date)
+            # 該当なし
+            return result
+          end
+
+          if other.out?(start_date: this.start_date, last_date: this.last_date)
+            result.push(this)
+            return result
+          end
+
+          if other.covered?(start_date: this.start_date, last_date: this.last_date)
+            result |= split_gengou(this: this, other: other)
+            return result
+          end
+
+          result.push(shave_gengou(this: this, other: other))
+          result
+        end
+
+        #
+        # 比較により分離した元号をつなげる
+        #
+        # @param [Array<LinearGengou>] list 元号
+        #
+        # @return [Array<LinearGengou>] 同一元号がつながった元号
+        #
+        def self.connect(list: []) # rubocop:disable Metrics/MethodLength
+          result = []
+          list.each do |linear_gengou|
+            if result.size.zero?
+              result.push(linear_gengou)
+              next
+            end
+
+            before = result[-1]
+
+            if unconnectable?(current: linear_gengou, before: before)
+              result.push(linear_gengou)
+              next
+            end
+
+            result[-1] = LinearGengou.new(
+              start_date: before.start_date, last_date: linear_gengou.last_date,
+              gengou: linear_gengou.gengou
+            )
+          end
+
+          result
+        end
+
+        def self.unconnectable?(current:, before:)
+          return true unless current.gengou.name == before.gengou.name
+
+          return true unless (before.last_date.clone + 1) == current.start_date
+
+          false
+        end
+        private_class_method :unconnectable?
+
+        def self.split_gengou(this:, other:)
+          [
+            LinearGengou.new(
+              start_date: this.start_date.clone, last_date: other.start_date.clone - 1,
+              gengou: this.gengou
+            ),
+            LinearGengou.new(
+              start_date: other.last_date.clone + 1, last_date: this.last_date.clone,
+              gengou: this.gengou
+            )
+          ]
+        end
+        private_class_method :split_gengou
+
+        def self.trim_gengou(this:, other:)
+          LinearGengou.new(
+            start_date: other.start_date, last_date: other.last_date,
+            gengou: this.gengou
+          )
+        end
+        private_class_method :trim_gengou
+
+        def self.narrow_gengou(this:, other:)
+          start = this.start_date > other.start_date ? this.start_date : other.start_date
+          last = this.last_date < other.last_date ? this.last_date : other.last_date
+
+          LinearGengou.new(
+            start_date: start.clone, last_date: last.clone, gengou: this.gengou
+          )
+        end
+        private_class_method :narrow_gengou
+
+        def self.shave_gengou(this:, other:) # rubocop:disable Metrics/AbcSize
+          start = this.start_date
+          last = this.last_date
+
+          # 開始日が比較元号の開始日より前の範囲
+          last = other.start_date.clone - 1 if this.start_date < other.start_date
+
+          # 終了日が比較元号の開始日より後の範囲
+          start = other.last_date.clone + 1 if this.last_date > other.last_date
+
+          LinearGengou.new(
+            start_date: start.clone, last_date: last.clone, gengou: this.gengou
+          )
+        end
+        private_class_method :shave_gengou
+      end
+    end
+  end
+end

data/lib/zakuro/era/japan/gengou/alignment/line.rb

@@ -0,0 +1,156 @@
+# frozen_string_literal: true
+
+require_relative './division'
+
+require_relative './linear_gengou'
+
+# :nodoc:
+module Zakuro
+  # :nodoc:
+  module Japan
+    # :nodoc:
+    module Alignment
+      #
+      # Line 行
+      #
+      class Line
+        # @return [Array<LinearGengou>] 元号
+        attr_reader :list
+
+        #
+        # 初期化
+        #
+        def initialize
+          @list = []
+        end
+
+        #
+        # 追加する
+        #
+        # 下記のパターンが存在し、戻り値は重複分となる
+        #
+        # 1. 完全に範囲外（開始日より前）
+        #   [@list]:      |-------|-------|
+        #   [list]:  |---|
+        # 2. 前半のみ範囲外
+        #   [@list]:      |-------|-------|
+        #   [list]:  |------|
+        # 3. 範囲内
+        #   [@list]: |-------|-------|
+        #   [list]:  |------|
+        # 4. 後半のみ範囲外
+        #   [@list]: |-------|-------|
+        #   [list]:              |------|
+        # 5. 完全に範囲外（開始日より後）
+        #   [@list]: |-------|-------|
+        #   [list]:                   |----|
+        # 6. 両端が範囲外
+        #   [@list]:   |-------|-------|
+        #   [list]:  |--------------------|
+        #
+        # @param [Array<LinearGengou>] list 元号
+        #
+        # @return [Array<LinearGengou>] 未登録元号
+        #
+        def push(list: [])
+          rest = rest(list: list)
+
+          insert(list: list)
+
+          rest
+        end
+
+        #
+        # 範囲内の元号を取得する
+        #
+        # @param [Western::Calendar] start_date 開始日
+        # @param [Western::Calendar] last_date 終了日
+        #
+        # @return [Array<LinearGengou>] 元号
+        #
+        def get(start_date:, last_date:)
+          result = []
+          @list.each do |gengou|
+            next if gengou.out?(start_date: start_date, last_date: last_date)
+
+            # 1日でも範囲内であれば対象とみなす
+            result.push(gengou)
+          end
+
+          result
+        end
+
+        private
+
+        #
+        # 重複分（空きがないため追加できない範囲の元号）を返す
+        #
+        # @param [Array<LinearGengou>] list 元号
+        #
+        # @return [Array<LinearGengou>] 重複分元号
+        #
+        def rest(list: [])
+          result = []
+
+          @list.each do |gengou|
+            result |= and!(rest: list, other: gengou)
+          end
+
+          Division.connect(list: result)
+        end
+
+        #
+        # 空き範囲に元号を登録する
+        #
+        # @param [Array<LinearGengou>] list 元号
+        #
+        def insert(list: [])
+          surplus_result = list.clone
+          @list.each do |gengou|
+            surplus_result = not!(surplus: surplus_result, other: gengou)
+          end
+
+          surplus_result = Division.connect(list: surplus_result)
+
+          surplus_result.each do |gengou|
+            @list.push(gengou)
+          end
+        end
+
+        #
+        # 重複した範囲を返す
+        #
+        # @param [Array<LinearGengou>] rest 残り元号
+        # @param [LinearGengou] other 比較元号
+        #
+        # @return [Array<LinearGengou>] 重複分
+        #
+        def and!(rest:, other:)
+          result = []
+          rest.each do |gengou|
+            result |= Division.match(this: gengou, other: other)
+          end
+
+          result
+        end
+
+        #
+        # 範囲が重複しない差分を返す
+        #
+        # @param [Array<LinearGengou>] surplus 積元号
+        # @param [LinearGengou] other 比較元号
+        #
+        # @return [Array<LinearGengou>] 差分
+        #
+        def not!(surplus:, other:)
+          result = []
+          surplus.each do |gengou|
+            result |= Division.mismatch(this: gengou, other: other)
+          end
+
+          result
+        end
+      end
+    end
+  end
+end