Module: When::CalendarTypes::Lunar

Included in:

EphemerisBasedLunar, EphemerisBasedLuniSolar, Jewish, PatternTableBasedLuniSolar, ThaiP, ThaiT

Defined in:

lib/when_exe/calendartypes.rb

Overview

太陰(太陽)暦の朔閏パターンを扱うモジュール

Constant Summary

Pattern =

' ABCDEFGHIJKLMNOPQRSTUVWXYZ'

Instance Method Summary

• #_verify(source, target) ⇒ Object
• #lunar_table(range, length = 30, duration = When::P1M) ⇒ Hash

  朔閏表を生成する.

• #verify(base, range = base.range, length = 30, duration = When::P1M) ⇒ Hash

  朔閏表を比較する.

Instance Method Details

#_verify(source, target) ⇒ Object

# File 'lib/when_exe/calendartypes.rb', line 218

def _verify(source, target)
  return nil if source == target
  return {source => target} unless source.length == target.length
  indices = []
  index   = []
  source.length.times do |i|
    if source[i..i] == target[i..i]
      unless index.empty?
        indices << index
        index = []
      end
    else
      index << i
    end
  end
  indices << index unless index.empty?
  ranges = []
  indices.each do |index|
    if ranges.empty? || index.first > ranges.last.last + 2
      ranges << index
    else
      ranges[-1] = [ranges.last.first,index.last]
    end
  end
  hash = {}
  ranges.each do |index|
    range = index.first..index.last
    hash[source[range]] = target[range]
  end
  test = source.dup
  hash.each_pair do |key, value|
    test.sub!(key, value)
  end
# raise ArgumentError, "can't replace '#{source}'=>'#{target}' by #{hash}." unless test == target
  return hash if test == target
  {source => target}
end

#lunar_table(range, length = 30, duration = When::P1M) ⇒ Hash

朔閏表を生成する

Parameters:

• range (Range) —

  生成範囲(西暦年)

• length (Integer) (defaults to: 30) —

  大の月の日数

• duration (When::TM::Duration) (defaults to: When::P1M) —

  チェックする月の間隔

Returns:

• (Hash) —

  朔閏表

# File 'lib/when_exe/calendartypes.rb', line 171

def lunar_table(range, length=30, duration=When::P1M)
  date  = When.TemporalPosition(range.first, {:frame=>self}).floor
  table = []
  hash  = {
    'origin_of_MSC' => range.first,
    'origin_of_LSC' => date.to_i,
    'rule_table'    => table
  }
  list  = ''
  while range.include?(date[YEAR])
    month = date[MONTH] * 1
    char  = Pattern[month..month]
    char  = char.downcase unless date.length(MONTH) == length
    list += char
    succ  = date + duration
    unless date[YEAR] == succ[YEAR]
      table << list
      list = ''
    end
    date = succ
  end
  hash
end

#verify(base, range = base.range, length = 30, duration = When::P1M) ⇒ Hash

朔閏表を比較する

Parameters:

• base (When::TM::Calendar) —

  基準とする暦法

• range (Range) (defaults to: base.range) —

  比較範囲(西暦年)

• length (Integer) (defaults to: 30) —

  大の月の日数

• duration (When::TM::Duration) (defaults to: When::P1M) —

  チェックする月の間隔

Returns:

• (Hash) —

  朔閏表の差分

# File 'lib/when_exe/calendartypes.rb', line 204

def verify(base, range=base.range, length=30, duration=When::P1M)
  range = When::Parts::GeometricComplex.new(range) & When::Parts::GeometricComplex.new(self.range) if respond_to?(:range)
  base_table = base.lunar_table(range, length, duration)
  self_table = self.lunar_table(range, length, duration)
  hash = {}
  range.each do |year|
    difference = _verify(base_table['rule_table'][year-range.first],
                         self_table['rule_table'][year-range.first])
    hash[year] = difference if difference
  end
  hash
end