zakuro 0.0.0

data/lib/zakuro/version/senmyou/base/era.rb

@@ -0,0 +1,81 @@
+# frozen_string_literal: true
+
+require_relative '../../../era/japan'
+require_relative '../../../era/western'
+require_relative '../../../cycle/zodiac'
+
+# :nodoc:
+module Zakuro
+  # :nodoc:
+  module Senmyou
+    #
+    # Era 宣明暦時代
+    #
+    module Era
+      # @return [Western::Calendar] 貞観1年1月1日
+      JOUGAN_START_DATE = Western::Calendar.new(year: 859, month: 2, day: 7)
+      # @return [Western::Calendar] 貞観4年1月1日
+      START_DATE = Western::Calendar.new(year: 862, month: 2, day: 3)
+      # @return [Integer] （貞観）4年
+      START_GENGOU_YEAR = 4
+      # @return [Western::Calendar] 貞享2年12月29日
+      END_DATE = Western::Calendar.new(year: 1686, month: 1, day: 23)
+
+      #
+      # 元号（1行目）を取得する
+      #
+      # @param [Western::Calendar] start_date 開始日
+      #
+      # @return [Japan::Gengou] 元号（1行目）
+      #
+      def self.first(start_date:)
+        first_gengou = Japan::GengouResource.first_line(date: start_date)
+        # 宣明暦の初めの元号であれば、起算年を4年とする
+        if JOUGAN_START_DATE == first_gengou.start_date
+          first_gengou = Japan::Gengou.new(
+            name: first_gengou.name,
+            start_date: START_DATE,
+            end_date: first_gengou.end_date,
+            year: START_GENGOU_YEAR
+          )
+        end
+
+        first_gengou
+      end
+
+      #
+      # 元号（2行目）を取得する
+      #
+      # @param [Western::Calendar] start_date 開始日
+      #
+      # @return [Japan::Gengou] 元号（2行目）
+      #
+      def self.second(start_date:)
+        Japan::GengouResource.second_line(date: start_date)
+      end
+
+      #
+      # 宣明暦に含まれるかを確認する
+      #
+      # @param [Western::Calendar] date 日付
+      #
+      # @return [True] 含まれる
+      # @return [False] 含まれない
+      #
+      def self.include?(date:)
+        (START_DATE <= date && date <= END_DATE)
+      end
+
+      #
+      # 十干十二支を引き当てる
+      #
+      # @param [String] western_year 西暦年
+      #
+      # @return [String] 十干十二支
+      #
+      def self.zodiac_name(western_year: 0)
+        Cycle::Zodiac.year_name(western_year: western_year)
+      end
+    end
+  end
+end

data/lib/zakuro/version/senmyou/base/gengou.rb

@@ -0,0 +1,210 @@
+# frozen_string_literal: true
+
+require_relative './era'
+
+# :nodoc:
+module Zakuro
+  # :nodoc:
+  module Senmyou
+    #
+    # Gengou 元号
+    #
+    class Gengou
+      # @return [Japan::Gengou] 元号（1行目）
+      attr_reader :first_line
+      # @return [Japan::Gengou] 元号（2行目）
+      attr_reader :second_line
+      # @return [Integer] 年の日数
+      attr_reader :total_days
+      # @return [Western::Calendar] 元号内での最過去日（2つの元号が重複した場合はより過去の日となる）/ 次の元号年の年初（1月1日）
+      attr_reader :first_date
+
+      #
+      # 初期化
+      #
+      # @note (see #next_year)
+      #   次年度以降の first_date はその元号の1年目の最初の日を設定する
+      #
+      # @param [Western::Calendar] date 対象日
+      # @param [Japan::Gengou] first_line 元号（1行目）
+      #   * 計算結果を持ち越すため、自クラスでの初期化時のみ使用する
+      # @param [Japan::Gengou] second_line 元号（2行目）
+      #   * 計算結果を持ち越すため、自クラスでの初期化時のみ使用する
+      #
+      def initialize(date: Era::START_DATE, first_line: Japan::Gengou.new,
+                     second_line: Japan::Gengou.new)
+        @total_days = 0
+
+        if Gengou.first_called?(first_line: first_line,
+                                second_line: second_line)
+          initialize_first_called(date: date)
+          return
+        end
+        @first_line = first_line
+        @second_line = second_line
+        @first_date = date.clone
+      end
+
+      #
+      # 初期化で最初の呼び出しかどうかを判定する
+      #
+      # @note 以下の前提がある
+      #   * 初回呼び出しでは first_line/second_line を引数に指定しない（情報がないのでできない）
+      #   * 次回以降の呼び出し（ next_year ） では計算済みのfirst_line/second_lineを渡す
+      #
+      # @param [Japan::Gengou] first_line 元号（1行目）
+      # @param [Japan::Gengou] second_line 元号（2行目）
+      #
+      # @return [True] 初回呼び出し
+      # @return [False] 次回以降の呼び出し
+      #
+      def self.first_called?(first_line:, second_line:)
+        first_line.invalid? && second_line.invalid?
+      end
+
+      #
+      # 初期化（初回呼び出し）
+      #
+      # @param [Western::Calendar] date 日付
+      #
+      def initialize_first_called(date:)
+        raise ArgumentError, 'invalid senmyou date' unless Era.include?(date: date)
+
+        # 2つの元号が重なった時に、元号の開始日が最も古い日
+        @first_date = choise_oldest_gengou_date(
+          first_line: Era.first(start_date: date),
+          second_line: Era.second(start_date: date)
+        )
+        @first_line = Era.first(start_date: @first_date)
+        @second_line = Era.second(start_date: @first_date)
+
+        nil
+      end
+
+      #
+      # 十干十二支を取得する
+      #
+      # @return [String] 十干十二支
+      #
+      def zodiac_name
+        Era.zodiac_name(western_year: @first_date.year)
+      end
+
+      #
+      # 年の日数に加算する
+      #
+      # @param [Integer] days 日数
+      #
+      def add_days(days: 0)
+        @total_days += days
+
+        nil
+      end
+
+      #
+      # 次の年にする
+      #
+      # @return [Gengou] 次の年の元号
+      #
+      def next_year
+        next_date = @first_date.clone + @total_days
+        first = Gengou.next_first_line(gengou: @first_line, date: next_date)
+        second = Gengou.next_second_line(gengou: @second_line, date: next_date)
+
+        first, second = Gengou.swap_two_gengou_on_last_period(first: first,
+                                                              second: second)
+
+        Gengou.new(date: next_date,
+                   first_line: first, second_line: second)
+      end
+
+      #
+      # 南北朝の終末処理をする
+      #
+      # @note 特別対応。北朝の "明徳" を4年から主流にする（2行目から1行目にする）
+      #
+      # @param [Japan::Gengou] first 元号（1行目）
+      # @param [Japan::Gengou] second 元号（2行目）
+      #
+      # @return [Array<Japan::Gengou>] 元号（1行目）, 元号（2行目）
+      #
+      def self.swap_two_gengou_on_last_period(first:, second:)
+        if first.name == second.name
+          first = second
+          second = Japan::Gengou.new
+        end
+        [first, second]
+      end
+
+      #
+      # 元号（1行目）を次の年にする
+      #
+      # @param [Japan::Gengou] gengou 元号（1行目）
+      # @param [Western::Calendar] date 日付
+      #
+      # @return [Japan::Gengou] 翌年の元号（1行目）
+      #
+      def self.next_first_line(gengou:, date:)
+        return Era.first(start_date: date) unless gengou.include?(date: date)
+
+        next_gengou = gengou.clone
+        next_gengou.next_year
+        next_gengou
+      end
+
+      #
+      # 元号（2行目）を次の年にする
+      #
+      # @param [Japan::Gengou] gengou 元号（2行目）
+      # @param [Western::Calendar] date 日付
+      #
+      # @return [Japan::Gengou] 翌年の元号（2行目）
+      #
+      def self.next_second_line(gengou:, date:)
+        return Era.second(start_date: date) unless gengou.include?(date: date)
+
+        next_gengou = gengou.clone
+        next_gengou.next_year
+        next_gengou
+      end
+
+      #
+      # 元号内での最過去日を求める
+      # @note 2つの元号が重複した場合はより過去の日となる
+      #
+      # @param [Japan::Gengou] first_line 元号（1行目）
+      # @param [Japan::Gengou] second_line 元号（2行目）
+      #
+      # @return [Western::Calendar] 最過去日
+      #
+      def choise_oldest_gengou_date(first_line: @first_line,
+                                    second_line: @second_line)
+        first_start_date = first_line.start_date.clone
+        second_start_date = second_line.start_date.clone
+        # first_lineは常に存在する
+        return first_start_date if second_line.invalid?
+
+        first_start_date < second_start_date ? first_start_date : second_start_date
+      end
+
+      #
+      # 元号内での最未来日を求める
+      # @note 2つの元号が重複した場合はより未来の日となる
+      #
+      # @param [Japan::Gengou] first_line 元号（1行目）
+      # @param [Japan::Gengou] second_line 元号（2行目）
+      #
+      # @return [Western::Calendar] 最未来日
+      #
+      def choise_newest_gengou_date(first_line: @first_line,
+                                    second_line: @second_line)
+        first_end_date = first_line.end_date.clone
+        second_end_date = second_line.end_date.clone
+        # first_lineは常に存在する
+        return first_end_date if second_line.invalid?
+
+        first_end_date > second_end_date ? first_end_date : second_end_date
+      end
+    end
+  end
+end

data/lib/zakuro/version/senmyou/base/remainder.rb

@@ -0,0 +1,60 @@
+# frozen_string_literal: true
+
+require_relative '../../../cycle/abstract_remainder'
+
+# :nodoc:
+module Zakuro
+  # :nodoc:
+  module Senmyou
+    #
+    # Remainder 宣明暦の時刻情報（大余小余）
+    #
+    # * 「15日1835分5秒」のような形式で表される
+    # * 分は8400で一日に繰り上げる
+    # * 秒は基本的に1/8分で、8秒で1分に繰り上げる。ただし、月補正値は1分に100秒とするなど基数の変更がありえる
+    # * 十干十二支（60日）を上限とした「日時分秒」の情報で、日付（date）/時刻（time）と部分的に重なる概念
+    #
+    class Remainder < Cycle::AbstractRemainder
+      # @return [Integer] 統法（1日=8400分）
+      DAY = 8400
+      # @return [Integer] 分（1分=8秒）
+      MINUTE = 8
+
+      #
+      # 初期化
+      #
+      # @param [Integer] day 大余（"日"に相当）
+      # @param [Integer] minute 小余（"分"に相当）
+      # @param [Integer] second 秒
+      # @param [Integer] total 繰り上げなしの小余
+      #
+      def initialize(day: -1, minute: -1, second: -1, total: -1)
+        super(day: day, minute: minute, second: second, total: total,
+              base_day: DAY, base_mitune: MINUTE)
+      end
+    end
+
+    #
+    # LunarRemainder 月の位相計算向け時刻情報（大余小余）
+    #
+    class LunarRemainder < Cycle::AbstractRemainder
+      # @return [Integer] 統法（1日=8400分）
+      DAY = 8400
+      # @return [Integer] 分（1分=100秒）
+      MINUTE = 100
+
+      #
+      # 初期化
+      #
+      # @param [Integer] day 大余（"日"に相当）
+      # @param [Integer] minute 小余（"分"に相当）
+      # @param [Integer] second 秒
+      # @param [Integer] total 繰り上げなしの小余
+      #
+      def initialize(day: -1, minute: -1, second: -1, total: -1)
+        super(day: day, minute: minute, second: second, total: total,
+              base_day: DAY, base_mitune: MINUTE)
+      end
+    end
+  end
+end

data/lib/zakuro/version/senmyou/base/solar_term.rb

@@ -0,0 +1,66 @@
+# frozen_string_literal: true
+
+# :nodoc:
+module Zakuro
+  # :nodoc:
+  module Senmyou
+    #
+    # SolarTerm 二十四節気
+    #
+    class SolarTerm
+      # @return [Integer] 連番
+      attr_reader :index
+      # @return [Remainder] 時刻情報（大余小余）
+      attr_reader :remainder
+
+      # @return [Hash<Integer, Symbol>] 順序
+      ORDER = {
+        0 => :touji,
+        1 => :shoukan,
+        2 => :daikan,
+        3 => :risshun,
+        4 => :usui,
+        5 => :keichitsu,
+        6 => :shunbun,
+        7 => :seimei,
+        8 => :kokuu,
+        9 => :rikka,
+        10 => :shouman,
+        11 => :boushu,
+        12 => :geshi,
+        13 => :shousho,
+        14 => :taisho,
+        15 => :risshuu,
+        16 => :shosho,
+        17 => :hakuro,
+        18 => :shuubun,
+        19 => :kanro,
+        20 => :soukou,
+        21 => :rittou,
+        22 => :shousetsu,
+        23 => :taisetsu
+      }.freeze
+
+      #
+      # 初期化
+      #
+      # @param [Integer] index 連番
+      # @param [Remainder] remainder 時刻情報（大余小余）
+      #
+      def initialize(index: -1, remainder: Remainder.new)
+        @index = index
+        @remainder = remainder
+      end
+
+      #
+      # 不正かどうか検証する
+      #
+      # @return [True] 正しくない
+      # @return [False] 正しい
+      #
+      def invalid?
+        (@index == -1 || @remainder.invalid?)
+      end
+    end
+  end
+end

data/lib/zakuro/version/senmyou/base/year.rb

@@ -0,0 +1,58 @@
+# frozen_string_literal: true
+
+# :nodoc:
+module Zakuro
+  # :nodoc:
+  module Senmyou
+    #
+    # Year 年
+    #
+    class Year
+      # @return [Gengou] 元号
+      attr_reader :gengou
+      # @return [Array<Month>] 年内の全ての月
+      attr_reader :months
+
+      #
+      # 初期化
+      #
+      # @param [Gengou] gengou 元号
+      #
+      def initialize(gengou:)
+        @gengou = gengou
+        @months = []
+      end
+
+      #
+      # 月を追加する
+      #
+      # @param [Month] month 月
+      #
+      def push(month:)
+        return if duplicated?(month: month)
+
+        @months.push(month)
+        @gengou.add_days(days: month.days)
+
+        nil
+      end
+
+      #
+      # すでに登録済みの月と重複しているか判定する
+      #
+      # @note 昨年11月1日から今年1月1日の前日までで、去年データと重複する場合は登録スキップする
+      #
+      # @param [Month] month 月
+      #
+      # @return [True] 重複している
+      # @return [True] 重複していない
+      #
+      def duplicated?(month:)
+        @months.each do |existed|
+          return true if existed.same?(other: month)
+        end
+        false
+      end
+    end
+  end
+end