zakuro 0.5.0 → 0.7.0

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,121 @@
+# frozen_string_literal: true
+
+require_relative '../../../western/calendar'
+
+require_relative './line'
+
+# :nodoc:
+module Zakuro
+  # :nodoc:
+  module Japan
+    # :nodoc:
+    module Gengou
+      #
+      # 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
+
+          #
+          # 指定した範囲内の元号を取得する（元号名）
+          #
+          # @param [Integer] line 行
+          # @param [String] name 元号名
+          #
+          # @return [Array<LinearGengou>] 元号
+          #
+          def get_by_name(line:, name:)
+            raise ArgumentError.new, 'invalid line number' unless LINE_INDEXES.include?(line)
+
+            @lines[line].get_by_name(name: name)
+          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
+end

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

@@ -0,0 +1,168 @@
+# frozen_string_literal: true
+
+require_relative './linear_gengou'
+
+# :nodoc:
+module Zakuro
+  # :nodoc:
+  module Japan
+    # :nodoc:
+    module Gengou
+      # :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
+end

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

@@ -0,0 +1,175 @@
+# frozen_string_literal: true
+
+require_relative './division'
+
+require_relative './linear_gengou'
+
+# :nodoc:
+module Zakuro
+  # :nodoc:
+  module Japan
+    # :nodoc:
+    module Gengou
+      # :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
+
+          #
+          # 範囲内の元号を取得する（元号名）
+          #
+          # @param [String] name 元号名
+          #
+          # @return [Array<LinearGengou>] 元号
+          #
+          def get_by_name(name:)
+            result = []
+            @list.each do |gengou|
+              result.push(gengou) if gengou.name == name
+            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
+end