when_exe 0.3.1 → 0.3.2

data/lib/when_exe.rb

@@ -49,6 +49,7 @@ module When
     # @option options [When::TM::Clock, When::V::Timezone, When::Parts::Timezone] :local        デフォルトの地方時
     # @option options [When::TM::IntervalLength]    :until        V::Event::Enumerator の until
     # @option options [Hash{String=>String}]        :alias        Locale の読替パターン         ({ 読替前のlocale=>読替後のlocale })
+    # @option options [Hash{String=>String}]        :unification  漢字の包摂パターン            ({ 包摂前の文字列=>包摂後の文字列 })
     # @option options [Array<String>]               :order        CalendarEra の検索順序        ([ IRI of When::TM::CalendarEra ])
     # @option options [Hash{String=>Array, String}] :format       strftime で用いる記号の定義   ({ 記号=>[ 書式,項目名 ] or 記号列 })
     # @option options [Array<Array>]                :leap_seconds 閏秒の挿入記録                ([ [JD, TAI-UTC, (MJD, OFFSET)] ])
@@ -56,10 +57,14 @@ module When
     #
     # @return [void]
     #
+    # @note
+    #   本メソッドでマルチスレッド対応の管理変数の初期化を行っている。
+    #   このため、本メソッド自体および本メソッドから呼んでいる各クラスの _setup_ メソッドはスレッドセーフでない。
+    #
     def _setup_(options={})
       @multi_thread = options[:multi_thread]
       Parts::Resource._setup_
-      Parts::Locale._setup_(options[:alias])
+      Parts::Locale._setup_(options)
       TM::CalendarEra._setup_(options[:order])
       TM::Calendar._setup_
       TM::Clock._setup_(options[:local])
@@ -107,6 +112,9 @@ module When
   DurationP1Y = TM::PeriodDuration.new([1,0,0])
   TimeValue   = TM::IndeterminateValue
 
+  PlusInfinity  = TM::TemporalPosition.new({:indeterminated_position=>TimeValue::Max})
+  MinusInfinity = TM::TemporalPosition.new({:indeterminated_position=>TimeValue::Min})
+
   UTF8  = '.UTF-8'
   W31J  = '.Windows-31J'
   EUCJP = '.eucJP'
@@ -161,7 +169,17 @@ module When
     autoload :Shire,                 'when_exe/region/shire'
     autoload :ShireG,                'when_exe/region/shire'
     autoload :Darian,                'when_exe/region/martian'
-    autoload :MTC,                   'when_exe/region/martian'
+
+    _time_systems = {
+      'LMT' => nil,                       # Local Mean Time
+      'LAT' => nil,                       # Local Apparent Time
+      'THS' => nil,                       # Temporal Hour System
+      'MTC' => 'when_exe/region/martian', # Martian Time, Coordinated
+    }
+    TimeSystems = _time_systems.keys.join('|')
+    _time_systems.each_pair do |key, required|
+      autoload key.to_sym, required if required
+    end
 
     class CalendarNote
       autoload :JapaneseNote,        'when_exe/region/japanese_notes'
@@ -189,76 +207,92 @@ module When
     autoload :Roman,                 'when_exe/region/roman'
     autoload :Mayan,                 'when_exe/region/mayan'
 
-    # default index for date coordinates
-    DefaultDateIndex = [
+    # default index for day coordinate
+    DefaultDayIndex = Coordinates::Index.new
+
+    # default indices for date coordinates
+    DefaultDateIndices = [
       Coordinates::Index.new({:unit=>12}),
-      Coordinates::Index.new
+      DefaultDayIndex
     ]
 
-    # default index for time coordinates
-    DefaultTimeIndex = [
+    # default indices for time coordinates
+    DefaultTimeIndices = [
       Coordinates::Index.new({:base=>0, :unit=>24}),
       Coordinates::Index.new({:base=>0, :unit=>60}),
       Coordinates::Index.new({:base=>0, :unit=>60})
     ]
   end
 
-  class TM::CalendarEra
-    autoload :GeologicalAge,         'when_exe/region/geologicalage'
-    autoload :Japanese,              'when_exe/region/japanese'
-    autoload :JapanesePrimeMinister, 'when_exe/region/japanese'
-    autoload :NihonKoki,             'when_exe/region/nihon_shoki'
-    autoload :NihonShoki,            'when_exe/region/nihon_shoki'
-    autoload :Chinese,               'when_exe/region/chinese_epoch'
-    autoload :Ryukyu,                'when_exe/region/ryukyu'
-    autoload :Korean,                'when_exe/region/korean'
-    autoload :Vietnamese,            'when_exe/region/vietnamese'
-    autoload :Manchurian,            'when_exe/region/far_east'
-    autoload :Rouran,                'when_exe/region/far_east'
-    autoload :Gaochang,              'when_exe/region/far_east'
-    autoload :Yunnan,                'when_exe/region/far_east'
-  # autoload :Tibetan,               'when_exe/region/tibetan'
-    autoload :Balinese,              'when_exe/region/balinese'
-    autoload :Javanese,              'when_exe/region/javanese'
-    autoload :Indian ,               'when_exe/region/indian'
-    autoload :Iranian,               'when_exe/region/iranian'
-    autoload :Hijra,                 'when_exe/region/islamic'
-    autoload :Jewish,                'when_exe/region/jewish'
-    autoload :Roman,                 'when_exe/region/roman'
-    autoload :Julian,                'when_exe/region/roman'
-    autoload :Pope,                  'when_exe/region/pope'
-    autoload :Byzantine,             'when_exe/region/christian'
-    autoload :French,                'when_exe/region/french'
-    autoload :World,                 'when_exe/region/world'
-    autoload :Mayan,                 'when_exe/region/mayan'
-
-    # Defualt search path for Epochs and Eras
-    DefaultEpochs = ['Common',     'ModernJapanese',
-                     'Iranian',    'Hijra', 'Jewish', 'Roman', 'Byzantine',
-                     'French',     'World', 'Mayan',
-                     'Balinese',   'Javanese',
-                     'Japanese',   'JapanesePrimeMinister', 'NihonKoki', 'NihonShoki',
-                     'Chinese',    'Ryukyu',  'Vietnamese', 'Korean',
-                     'Manchurian', 'Rouran',  'Gaochang',   'Yunnan', # 'Tibetan',
-                     'Pope' ]
-
-    # Common Era
-    Common = [self, [
-      "namespace:[en=http://en.wikipedia.org/wiki/]",
-      "area:[Common]",
-      ["[BeforeCommonEra=en:BCE_(disambiguation),*alias:BCE]0.1.1"],
-      ["[CommonEra=en:Common_Era,*alias:CE]1.1.1", "Calendar Epoch", "01-01-01^Julian"],
-      ["[CommonEra=en:Common_Era,*alias:CE]1582.10.15", "Calendar Reform", "1582-10-15^Gregorian"]
-    ]]
-
-    # Modern Japanese Eras after the calendar reform to the Gregorian Calendar
-    ModernJapanese = [self, [
-      "area:[Japan]",
-      ["M6.01.01", "Calendar Reform", "1873-01-01^Gregorian?note=DefaultNotes"],
-      ["T1.07.30", "Accession",       "1912-07-30"],
-      ["S1.12.25", "Accession",       "1926-12-25"],
-      ["H1.01.08", "Accession",       "1989-01-08"]
-    ]]
+  module TM
+    autoload :GeologicalAge,           'when_exe/region/geologicalage'
+    class CalendarEra
+      autoload :Japanese,              'when_exe/region/japanese'
+      autoload :JapanesePrimeMinister, 'when_exe/region/japanese'
+      autoload :NihonKoki,             'when_exe/region/nihon_shoki'
+      autoload :NihonShoki,            'when_exe/region/nihon_shoki'
+      autoload :Chinese,               'when_exe/region/chinese_epoch'
+      autoload :Ryukyu,                'when_exe/region/ryukyu'
+      autoload :Korean,                'when_exe/region/korean'
+      autoload :Vietnamese,            'when_exe/region/vietnamese'
+      autoload :Manchurian,            'when_exe/region/far_east'
+      autoload :Rouran,                'when_exe/region/far_east'
+      autoload :Gaochang,              'when_exe/region/far_east'
+      autoload :Yunnan,                'when_exe/region/far_east'
+    # autoload :Tibetan,               'when_exe/region/tibetan'
+      autoload :Balinese,              'when_exe/region/balinese'
+      autoload :Javanese,              'when_exe/region/javanese'
+      autoload :Indian ,               'when_exe/region/indian'
+      autoload :Iranian,               'when_exe/region/iranian'
+      autoload :Hijra,                 'when_exe/region/islamic'
+      autoload :Jewish,                'when_exe/region/jewish'
+      autoload :Roman,                 'when_exe/region/roman'
+      autoload :Julian,                'when_exe/region/roman'
+      autoload :Pope,                  'when_exe/region/pope'
+      autoload :Byzantine,             'when_exe/region/christian'
+      autoload :French,                'when_exe/region/french'
+      autoload :World,                 'when_exe/region/world'
+      autoload :Mayan,                 'when_exe/region/mayan'
+
+      # Defualt search path for Epochs and Eras
+      DefaultEpochs = ['Common',     'ModernJapanese',
+                       'Indian',     'Iranian',   'Hijra',    'Jewish',
+                        'Roman',     'Byzantine', 'French',   'World', 'Mayan',
+                       'Balinese',   'Javanese',
+                       'Japanese',   'JapanesePrimeMinister', 'NihonKoki', 'NihonShoki',
+                       'Chinese',    'Ryukyu',  'Vietnamese', 'Korean',
+                       'Manchurian', 'Rouran',  'Gaochang',   'Yunnan', # 'Tibetan',
+                       'Pope' ]
+
+      # Defualt events for Epochs and Eras
+      DefaultEvents = Hash[*([['@A',  'Accession'       ],
+                              ['@FE', 'FelicitousEvent' ],
+                              ['@ND', 'NaturalDisaster' ],
+                              ['@IY', 'InauspiciousYear'],
+                              ['@F',  'Foundation'      ],
+                              ['@CR', 'CalendarReform'  ]].map {|e|
+        [e[0], When::Parts::Resource._instance('EpochEvents::'+e[1], '_m:')]
+      }.flatten)]
+
+      # Common Era
+      Common = [self, [
+        "namespace:[en=http://en.wikipedia.org/wiki/]",
+        "area:[Common]",
+        ["[BeforeCommonEra=en:BCE_(disambiguation),*alias:BCE]0.1.1"],
+        ["[CommonEra=en:Common_Era,*alias:CE]1.1.1", "Calendar Epoch", "01-01-01^Julian"],
+        ["[CommonEra=en:Common_Era,*alias:CE]1582.10.15", "Calendar Reform", "1582-10-15^Gregorian"]
+      ]]
+
+      # Modern Japanese Eras after the calendar reform to the Gregorian Calendar
+      ModernJapanese = [self, [
+        "namespace:[en=http://en.wikipedia.org/wiki/, ja=http://ja.wikipedia.org/wiki/]",
+        "area:[Japan]",
+        ["[M=,alias:明=ja:明治]6.01.01", "Calendar Reform", "1873-01-01^Gregorian?note=DefaultNotes"],
+        ["[T=,alias:大=ja:大正]1.07.30", "Accession",       "1912-07-30"],
+        ["[S=,alias:昭=ja:昭和]1.12.25", "Accession",       "1926-12-25"],
+        ["[H=,alias:平=ja:平成]1.01.08", "Accession",       "1989-01-08"]
+      ]]
+    end
   end
 
   #
@@ -508,7 +542,7 @@ module When
     case clock
     when TM::Clock ; return clock
     when 'Z'       ; return utc
-    when /^LMT|LAT|THS|MTC/ ; return Parts::Resource._instance('_c:' + clock)
+    when /^#{CalendarTypes::TimeSystems}/ ; return Parts::Resource._instance('_c:' + clock)
     when Numeric   ; return utc if clock==0
     when String
       c = TM::Clock[clock] || V::Timezone[clock]

data/lib/when_exe/basictypes.rb

@@ -278,7 +278,7 @@ module When
           unless (time =~ /^(\d{2}(?:\.\d+)?|-)(\d{2}(?:\.\d+)?|-)?(\d{2}(\.\d+)?)?$/)
             raise ArgumentError, "Wrong time format: #{time}"
           end
-          indices = options[:frame] ? options[:frame].indices : Coordinates::DefaultDateIndex
+          indices = options[:frame] ? options[:frame].indices : Coordinates::DefaultDateIndices
           abbr = Array(options[:abbr]).dup
           abbr[0..indices.length] = []
           return [0, Coordinates::Pair._en_number($1=='-' ? abbr[0] : $1, nil),
@@ -290,7 +290,7 @@ module When
         def _to_array_extended(time, t, options={})
           return nil unless t
           return [0] unless time
-          indices = options[:frame] ? options[:frame].indices : Coordinates::DefaultDateIndex
+          indices = options[:frame] ? options[:frame].indices : Coordinates::DefaultDateIndices
           abbr = Array(options[:abbr]).dup
           abbr[0..indices.length] = []
           time.sub!(/,/, '.')

data/lib/when_exe/calendartypes.rb

@@ -57,7 +57,7 @@ module When::CalendarTypes
     # オブジェクトの正規化
     def _normalize(args=[], options={})
       @label   ||= m17n('Z')
-      @indices ||= When::Coordinates::DefaultTimeIndex
+      @indices ||= When::Coordinates::DefaultTimeIndices
       @note    ||= 'JulianDayNotes'
       _normalize_temporal
       @second    = (@second||128).to_f
@@ -1228,6 +1228,9 @@ module When::CalendarTypes
     # @option options [Hash]                 その他のキー date を When::TM::TemporalPosition に変換するために使用する
     #                                        see {When::TM::TemporalPosition._instance}
     #
+    # @note CalendarNoteオブジェクト生成時に _normalize メソッド内で @prime 変数を設定しておけば、
+    #       本メソッドの :prime オプションで参照される。(BalineseNote#_normalize等参照)
+    #
     # @note 暦注のビットアドレスは、暦注サブクラスのNoteObjects定数の中の定義順序による。
     #       When::CalendarTypes::CalendarNote クラスの場合 new の引数とした暦注要素リストの定義順序による。
     #       ビットアドレスの値が 1 の暦注が計算対象となる。
@@ -1327,7 +1330,7 @@ module When::CalendarTypes
     #
     def _normalize(args=[], options={})
       @_elements = (args.size == 0 && self.class.const_defined?(:NoteObjects)) ?
-        When::SourceURI + self.class.to_s.split(/::/)[1..-1].join('/') + '/NoteObjects' :
+        When::Parts::Resource.base_uri + self.class.to_s.split(/::/)[1..-1].join('/') + '/NoteObjects' :
         _to_iri(args, options[:prefix] || '_co:')
       if @_elements.kind_of?(Array)
         @_elements.each do |e|

data/lib/when_exe/coordinates.rb

@@ -855,6 +855,8 @@ module When::Coordinates
       #
       # @return [String]
       #
+      # @note %0s は文字列引数の表示を抑制するための指定となる。C言語のprintfと異なるので注意。
+      #
       def _format(m17ns)
         index = 1
         m17ns[0].scan(/(%(?:(\d)\$)?[-+0# ]?[*\d.$]*[cspdiuboxXfgeEG])([-.:])?|(%%|.)/).inject('') { |form, m17n|
@@ -1399,7 +1401,12 @@ module When::Coordinates
         if respond_to?(:timezone)
           @timezone ||= @location ? @location.long / (Spatial::DEGREE * 15) : 9.0
           @timezone   = @timezone.kind_of?(String) ? @timezone.split(/,/) : Array(@timezone)
-          @timezone   = @timezone.map {|v| v.to_f / 24}
+          @timezone   = @timezone.map {|v|
+            d  = v.split('/')[1] if v.kind_of?(String)
+            v  = v.to_f / 24
+            v /= d.to_f if d
+            v
+          }
           (1...@timezone.size).each do |i|
             @timezone[i] += @timezone[i-1]
           end
@@ -1487,6 +1494,9 @@ module When::Coordinates
     #
     #   初期化時に indices から自動生成する
     #
+    # @note 日付/日時の外部表現の「下限」を指定する。内部表現の下限は常に 0 である。
+    # サブクラスが定義するメソッド _coordinates_to_number, _number_to_coordinates は内部表現を使用する。
+    #
     attr_reader :base
 
     # 日時要素がPairであるべきか

data/lib/when_exe/core/duration.rb

@@ -9,6 +9,44 @@
 # When::TM::Duration のための標準クラスの拡張
 #
 
+#
+# When::TM::Duration
+#
+# @private
+class When::TM::Duration
+  def rational_duration
+    unless @rational_duration
+      sec = duration / When::TM::Duration::SECOND
+      mod = sec % When::TM::Duration::DAY.to_i
+      if mod == 0 || mod != mod.to_i
+        @rational_duration = @duration / When::TM::Duration::DAY
+      else
+        @rational_duration = Rational(sec.to_i, 86400)
+      end
+    end
+
+    @rational_duration
+  end
+end
+
+#
+# Extensions to Date class
+#
+# @private
+class Date
+
+  alias :_plus_  :+
+  def +(other)
+    other.kind_of?(When::TM::Duration) ? self + other.rational_duration : self._plus_(other)
+  end
+
+
+  alias :_minus_ :-
+  def -(other)
+    other.kind_of?(When::TM::Duration) ? self - other.rational_duration : self._minus_(other)
+  end
+end
+
 #
 # Extensions to Time class
 #

data/lib/when_exe/core/extension.rb

@@ -90,6 +90,17 @@ class Numeric
   end
   alias :month_name :to_month_name
 
+  # self を幹の要素と解釈してWhen::Coordinates::Pair を生成
+  #
+  # @see When::Coordinates::Pair._force_pair
+  #
+  # @return [When::Coordinates::Pair]
+  #
+  def to_pair(branch=nil)
+    Coordinates::Pair._force_pair(self, branch)
+  end
+  alias :pair :to_pair
+
   # メソッド名に相当する単位で表した When::TM::IntervalLength
   # @method unit_interval_length
   # @return [When::TM::IntervalLength]
@@ -163,7 +174,7 @@ class String
   #
   # @return [String] 包摂結果
   #
-  def ideographic_unification(pattern=When::Parts::Locale::DefaultUnification)
+  def ideographic_unification(pattern=When::Parts::Locale._unification)
     When::Parts::Locale.ideographic_unification(self, pattern)
   end
 
@@ -234,9 +245,10 @@ class String
   #
   # @return [When::Coordinates::Pair]
   #
-  def pair
+  def to_pair
     Coordinates::Pair._force_pair(self)
   end
+  alias :pair :to_pair
 
   #
   # self を検索する暦年代とみなして登録された When::TM::CalendarEraを検索
@@ -290,7 +302,8 @@ class String
   def to_residue
     When::Coordinates::Residue.to_residue(self)
   end
-  alias :residue :to_residue
+  alias :residue     :to_residue
+  alias :day_of_week :to_residue
 
   #
   # 月名
@@ -350,7 +363,7 @@ class Regexp
   #
   # @return [Regexp] 包摂結果
   #
-  def ideographic_unification(pattern=When::Parts::Locale::DefaultUnification)
+  def ideographic_unification(pattern=When::Parts::Locale._unification)
     When::Parts::Locale.ideographic_unification(self, pattern)
   end
 end

data/lib/when_exe/ephemeris.rb

@@ -277,13 +277,15 @@ module When::Ephemeris
 
   # func の逆変換
   #
-  # @param [Numeric] t0   独立変数の初期近似値
-  # @param [Numeric] y0   逆変換される関数値(nil なら極値を求める)
-  # @param [Block]   func 逆変換される関数
+  # @param [Numeric] t0    独立変数の初期近似値
+  # @param [Numeric] y0    逆変換される関数値(nil なら極値を求める)
+  # @param [Numeric] count 収束までの最大繰り返し回数
+  # @param [Float]   error 収束と判断する誤差
+  # @param [Block]   func  逆変換される関数
   #
   # @return [Numeric] 逆変換結果
   #
-  def root(t0, y0=nil, &func)
+  def root(t0, y0=nil, count=10, error=1E-6, &func)
 
     # 近似値0,1
     # printf("y0=%20.7f\n",y0)
@@ -295,11 +297,11 @@ module When::Ephemeris
     t << (y0 ? (t[1]-t[0])/(y[1]-y[0])*(y0-y[0])+t[0] : t0-0.1)
 
     # 繰り返し
-    i = 10
-    while ((t[2]-t[1]).abs > 1E-6) && (i > 0)
+    i = count
+    while ((t[2]-t[1]).abs > error) && (i > 0)
       # 予備計算
       y << func.call(t[2])
-      break if y0 && (y[2]-y0).abs <= 1E-7
+      break if y0 && (y[2]-y0).abs <= error / 10
 
       # printf("t=%20.7f,L=%20.7f\n",t[2],y[2])
       t01     = t[0]-t[1]
@@ -329,7 +331,7 @@ module When::Ephemeris
       t.shift
       y.shift
     end
-    $stderr.puts "The result is not reliable" if i<=0
+    raise RangeError, "The result does not converge." if i<=0
     return t[2]
   end
 
@@ -1292,9 +1294,10 @@ module When::Ephemeris
     # @param [Numeric] t ユリウス日(Terrestrial Time)
     # @param [When::TM::TemporalPosition] t
     # @param [Integer] event
-    #   [ -1 - 出       ]
-    #   [  0 - 最大高度 ]
-    #   [ +1 - 没       ]
+    #   [ -1   - 出       ]
+    #   [  0   - 南中     ]
+    #   [ +1   - 没       ]
+    #   [  nil - 最大高度 ]
     # @param [When::Ephemeris::CelestialObject] target 対象星(デフォルトは太陽)
     # @param [Numeric] height 閾値高度/度
     # @param [String]  height
@@ -1311,13 +1314,14 @@ module When::Ephemeris
       dl  = @location.long / (360.0 * When::Coordinates::Spatial::DEGREE)
       t0  = (+t + 0.5 + dl).floor - dl
       dt  = _coords(t0, When::Coordinates::Spatial::EQUATORIAL, target).phi -
-            @location.local_sidereal_time(t0) / 24.0 + 0.25 * event
+            @location.local_sidereal_time(t0) / 24.0 + 0.25 * (event||0)
       t0 += dt - (dt+0.5).floor
 
-      # 天体の地平座標での高度
-      if event == 0
-        height = nil # 極値検索のため
-      else
+      # 天体の地平座標での高度または方位角
+      case event
+      when 0
+        meridian = _coords(t0, When::Coordinates::Spatial::HORIZONTAL, target).phi.round
+      when +1, -1
         height ||= target.instance_of?(When::Ephemeris::Sun) ? '0' : 'A'
         if height.kind_of?(String)
           height = @location.datum.zeros[height.upcase]
@@ -1325,10 +1329,15 @@ module When::Ephemeris
         end
         height = height / 360.0 - (0.25 - @location.horizon) +
                [@location.alt / (1000.0 * @location.datum.air[0]), 1].min * @location.datum.zeros['A'] / 360.0
+      else
+        height = nil # 極値検索のため
       end
 
       # イベントの時刻
-      _to_seed_type(root(t0, height) {|t1| _coords(t1, When::Coordinates::Spatial::HORIZONTAL, target).theta }, t)
+      _to_seed_type(
+        event == 0 ? (root(t0, meridian) {|t1| _coords(t1, When::Coordinates::Spatial::HORIZONTAL, target).phi   }) :
+                     (root(t0, height  ) {|t1| _coords(t1, When::Coordinates::Spatial::HORIZONTAL, target).theta }),
+       t)
     end
 
     # 日の出の日時
@@ -1369,6 +1378,17 @@ module When::Ephemeris
     # @return [Numeric, When::TM::TemporalPosotion] 太陽の最大高度の日時(ユリウス日(Terrestrial Time)またはWhen::TM::DateAndTime
     #
     def sun_noon(t)
+      day_event(t, nil, When.Resource('_ep:Sun'))
+    end
+
+    # 太陽の南中の日時
+    #
+    # @param [Numeric] t ユリウス日(Terrestrial Time)
+    # @param [When::TM::TemporalPosition] t
+    #
+    # @return [Numeric, When::TM::TemporalPosotion] 太陽の南中の日時(ユリウス日(Terrestrial Time)またはWhen::TM::DateAndTime
+    #
+    def meridian_passage_of_sun(t)
       day_event(t, 0, When.Resource('_ep:Sun'))
     end
 
@@ -1411,6 +1431,18 @@ module When::Ephemeris
     #             該当時刻がなければ nil
     #
     def moon_noon(t)
+      _day_event(t, nil, When.Resource('_ep:Moon'))
+    end
+
+    # 月の南中の日時
+    #
+    # @param [Numeric] t ユリウス日(Terrestrial Time)
+    # @param [When::TM::TemporalPosition] t
+    #
+    # @return [Numeric, When::TM::TemporalPosotion] 月の南中の日時(ユリウス日(Terrestrial Time)またはWhen::TM::DateAndTime
+    #             該当時刻がなければ nil
+    #
+    def meridian_passage_of_moon(t)
       _day_event(t, 0, When.Resource('_ep:Moon'))
     end