when_exe 0.3.4 → 0.3.5

data/lib/when_exe/region/christian.rb

@@ -1,6 +1,6 @@
 # -*- coding: utf-8 -*-
 =begin
-  Copyright (C) 2011-2013 Takashi SUGA
+  Copyright (C) 2011-2014 Takashi SUGA
 
   You may use and/or modify this file according to the license described in the LICENSE.txt file included in this archive.
 =end
@@ -12,46 +12,10 @@ module When
     ChristianTerms = [self, [
       "namespace:[en=http://en.wikipedia.org/wiki/, ja=http://ja.wikipedia.org/wiki/]",
       "locale:[=en:, ja=ja:, alias]",
-      "names:[ChristianTerms]",
+      "names:[ChristianTerms=]",
       "[Julian=en:Julian_calendar,       ユリウス暦  ]",
       "[Gregorian=en:Gregorian_calendar, グレゴリオ暦]",
-      "[Civil=en:Civil_calendar,         西暦        ]",
-      "[Coptic=en:Coptic_calendar,       コプト暦    ]",
-      "[Ethiopian=en:Ethiopian_calendar, エチオピア暦=en:Ethiopian_calendar]",
-
-      [self,
-        "names:[EgyptianMonth, 月=ja:%%<月_(暦)>]",
-        "[tut=,      トート=      ]",
-        "[baba=,     バーバ=      ]",
-        "[hatur=,    ハートール=  ]",
-        "[kiyahak=,  キヤハーク=  ]",
-        "[tuba=,     トーバ=      ]",
-        "[amshir=,   アムシール=  ]",
-        "[baramhat=, バラムハート=]",
-        "[barmuda=,  バルムーダ=  ]",
-        "[bashans=,  バシャンス=  ]",
-        "[ba'una=,   バウーナ=    ]",
-        "[abib=,     アビーブ=    ]",
-        "[misra=,    ミスラー=    ]",
-        "[epagomen=, エパゴメネ=  ]"
-      ],
-
-      [self,
-        "names:[EthiopianMonth, 月=ja:%%<月_(暦)>]",
-        "[Mäskäräm=, マスカラム=  ]",
-        "[Ṭəqəmt=,   テケルト=    ]",
-        "[Ḫədar=,    ヘダル=      ]",
-        "[Taḫśaś=,   ターサス=    ]",
-        "[Ṭərr=,     テル=        ]",
-        "[Yäkatit=,  イェカティト=]",
-        "[Mägabit=,  メガビト=    ]",
-        "[Miyazya=,  ミアジア=    ]",
-        "[Gənbot=,   ゲエンポト=  ]",
-        "[Säne=,     セネ=        ]",
-        "[Ḥamle=,    ハムレ=      ]",
-        "[Nähase=,   ネハッセ=    ]",
-        "[Ṗagʷəmen=, パゴウメン=  ]"
-      ]
+      "[Civil in the West=en:Civil_calendar, 西暦, *alias:Civil]"
     ]]
   end
 
@@ -69,49 +33,22 @@ module When
   module CalendarTypes
 
     #
-    # Coptic Calendar in Egypt
+    # Christian Base Calendar
     #
-    EgyptianCoptic =  [CyclicTableBased, {
-      'label'         => Parts::Resource._instance('_m:ChristianTerms::Coptic'),
-      'origin_of_LSC' => 1825030,
-      'origin_of_MSC' =>       1,
-      'epoch_in_CE'   =>     285,
-      'indices' => [
-         When::Coordinates::Index.new({:unit =>13,
-                                       :trunk=>When::Parts::Resource._instance('_m:ChristianTerms::EgyptianMonth::*')}),
-         When::Coordinates::Index.new
-       ],
-      'rule_table' => {
-        'T' => {'Rule'  =>[366,365,365,365]},
-        365 => {'Length'=>[30]*12+[5]},
-        366 => {'Length'=>[30]*12+[6]}
-      }
-    }]
+    class Christian < When::TM::Calendar
 
-    #
-    # Coptic Calendar in Ethiopia
-    #
-    EthiopianCoptic =  [CyclicTableBased, {
-      'label'         => Parts::Resource._instance('_m:ChristianTerms::Ethiopian'),
-      'origin_of_LSC' => 1825030,
-      'origin_of_MSC' =>     277,
-      'epoch_in_CE'   =>     285,
-      'indices' => [
-         When::Coordinates::Index.new({:unit =>13,
-                                       :trunk=>When::Parts::Resource._instance('_m:ChristianTerms::EthiopianMonth::*')}),
-         When::Coordinates::Index.new
-       ],
-      'rule_table' => {
-        'T' => {'Rule'  =>[366,365,365,365]},
-        365 => {'Length'=>[30]*12+[5]},
-        366 => {'Length'=>[30]*12+[6]}
-      }
-    }]
-
-    #
-    # Julian Calendar
-    #
-    class Julian < When::TM::Calendar
+      # @private
+      # 
+      # ::Date オブジェクトに対応する暦法名
+      # (require 'Date' されていることの保証は呼び出し側)
+      #
+      def self._default_start(date)
+        case date.start
+        when ::Date::JULIAN    ; 'Julian'
+        when ::Date::GREGORIAN ; 'Gregorian'
+        else                   ; "Civil?reform_jdn=#{date.start}"
+        end
+      end
 
       # 年月日 -> 通日
       #
@@ -167,6 +104,26 @@ module When
         return (((((mm + 10) % 12) % 5) % 2) == 0) ? 31 : 30
       end
 
+      private
+
+      def _normalize(args=[], options={})
+        raise TypeError, "#{self.class} is abstract class" unless @label
+        @note      = When.CalendarNote(@note || 'Christian')
+        @indices ||= [
+           Index.new({:unit =>12,
+                      :trunk=>m17n('[::_m:CalendarTerms::Month::*]')}),
+
+           DefaultDayIndex
+        ]
+        super
+      end
+    end
+
+    #
+    # Julian Calendar
+    #
+    class Julian < Christian
+
       # 太陰方程式
       #
       # @param [Numeric] year 西暦の年数
@@ -176,17 +133,17 @@ module When
         0
       end
 
+      # @private
+      #
+      # 対応する ::Date の start 属性
+      def _default_start
+        ::Date::JULIAN
+      end
+
       private
 
       def _normalize(args=[], options={})
-        @label   ||= When.Resource('_m:ChristianTerms::Julian')
-        @note      = When.CalendarNote(@note || 'Christian')
-        @indices ||= [
-           Index.new({:unit =>12,
-                      :trunk=>m17n('[::_m:CalendarTerms::Month::*]')}),
-
-           DefaultDayIndex
-        ]
+        @label ||= When.Resource('_m:ChristianTerms::Julian')
         super
       end
     end
@@ -194,7 +151,7 @@ module When
     #
     # Gregorian Calendar
     #
-    class Gregorian < Julian
+    class Gregorian < Christian
 
       # 通日 - > ユリウス暦とグレゴリオ暦の差
       #
@@ -282,6 +239,11 @@ module When
       #
       attr_reader :reform_jdn
 
+      # @private
+      #
+      # 対応する ::Date の start 属性
+      alias :_default_start :reform_jdn
+
       #
       # 年初の最初の定義の年
       #
@@ -460,280 +422,294 @@ module When
         @border = [0,0,0]
       end
     end
+  end
 
-    #
-    # キリスト教の暦注(クリスマスと復活祭)
-    #
-    class CalendarNote::Christian < CalendarNote
-
-      NoteObjects = [When::BasicTypes::M17n, [
-        "namespace:[en=http://en.wikipedia.org/wiki/, ja=http://ja.wikipedia.org/wiki/]",
-        "locale:[=en:, ja=ja:, alias]",
-        "names:[Christian]",
+  #
+  # キリスト教の暦注(クリスマスと復活祭)
+  #
+  class CalendarNote::Christian < CalendarNote
 
-        # 年の暦注 ----------------------------
-        [When::BasicTypes::M17n,
-          "names:[year]"
-        ],
+    NoteObjects = [When::BasicTypes::M17n, [
+      "namespace:[en=http://en.wikipedia.org/wiki/, ja=http://ja.wikipedia.org/wiki/]",
+      "locale:[=en:, ja=ja:, alias]",
+      "names:[Christian]",
 
-        # 月の暦注 ----------------------------
-        [When::BasicTypes::M17n,
-          "names:[month]",
-          [When::BasicTypes::M17n,
-            "names:[Month]"
-          ]
-        ],
+      # 年の暦注 ----------------------------
+      [When::BasicTypes::M17n,
+        "names:[year]"
+      ],
 
-        # 日の暦注 ----------------------------
+      # 月の暦注 ----------------------------
+      [When::BasicTypes::M17n,
+        "names:[month]",
         [When::BasicTypes::M17n,
-          "names:[day]",
-          [When::BasicTypes::M17n, "names:[Easter,         復活祭]"    ],
-          [When::BasicTypes::M17n, "names:[Christmas,      クリスマス]"],
-          [When::BasicTypes::M17n, "names:[Fixed_feast=,   固定祝日=]" ],
-          [When::BasicTypes::M17n, "names:[Moveable_feast, 移動祝日]"  ]
+          "names:[Month]"
         ]
-      ]]
-
-      # 固定祝日
-      Fixed_feasts = {
-        [ 1,  6] => "Epiphany",
-        [ 3,  1] => "St.David's Day",
-        [ 3, 17] => "St.Patrick's Day",
-        [ 3, 25] => "Annunciation-Lady Day",
-        [ 4, 23] => "St.George's Day",
-        [ 6, 24] => "Midsummer Day",
-        [ 9, 14] => "Holy Cross Day",
-        [ 9, 29] => "Michaelmas Day",
-        [11, 30] => "St.Andrew's Day",
-        [12, 13] => "St.Lucia's Day",
-        [12, 21] => "St.Thomas's Day",
-      # [12, 25] => "Christmas Day"
-      }
-
-      # 移動祝日 (日付と曜日による)
-      moveable_feasts = {}
-      [[[ 9, 15, 2], "III Quatember"],
-       [[11, 27, 6], "Advent Sunday"],
-       [[12, 14, 2], "IV Quatember" ]].each do |pair|
-        date, name = pair
-        7.times do
-          moveable_feasts[date.dup] = name
-          date[1] += 1
-          if date[1] > 30
-            date[0] += 1
-            date[1]  = 1
-          end
-        end
-      end
-
-      # 移動祝日
-      Moveable_feasts = {
-        # 復活祭からの日数による
-        -63 => "Septuagesima Sunday",
-        -56 => "Sexagesima Sunday",
-        -49 => "Quinquagesima Sunday",
-        -46 => "Ash Wednesday",
-        -42 => "Quadragesima Sunday",
-        -40 => "I Quatember",
-        -35 => "Reminizer Sunday",
-        -28 => "Oculi Sunday",
-        -21 => "Laetare Sunday",
-        -14 => "Judica Sunday",
-         -7 => "Palmarum",
-         -2 => "Good Friday",
-      #   0 => "Easter Day",
-          7 => "Low Sunday",
-         35 => "Rogation Sunday",
-         39 => "Ascension Day",
-         49 => "Whitsunday",
-         53 => "II Quatember",
-         56 => "Trinity Sunday",
-         60 => "Corpus Christi",
-      }.update(moveable_feasts) 
-
-      # 週日補正フラグ
-      # @return [Integer]
-      attr_reader :w
-
-      # 最も遅い満月の3月0日からの日数
-      # @return [Integer]
-      attr_reader :d
-
-      # クリスマスの3月0日からの日数
-      # @return [Integer]
-      attr_reader :x
-
-      # 平年数
-      # @return [Integer]
-      attr_reader :n
-
-      # 置閏周期
-      # @return [Integer]
-      attr_reader :s
-
-      # 月の位相の補正
-      # @return [Integer]
-      attr_reader :c
-
-      # ガード
-      # @return [Integer]
-      attr_reader :g
-
-      # ベース
-      # @return [Integer]
-      attr_reader :b
+      ],
 
-      # 満月補正フラグ
-      # @return [Integer]
-      attr_reader :f
+      # 日の暦注 ----------------------------
+      [When::BasicTypes::M17n,
+        "names:[day]",
+        [When::BasicTypes::M17n, "names:[Week,           七曜]"      ],
+        [When::BasicTypes::M17n, "names:[Easter,         復活祭]"    ],
+        [When::BasicTypes::M17n, "names:[Christmas,      クリスマス]"],
+        [When::BasicTypes::M17n, "names:[Fixed_feast=,   固定祝日=]" ],
+        [When::BasicTypes::M17n, "names:[Moveable_feast, 移動祝日]"  ]
+      ]
+    ]]
 
-      # クリスマス
-      #
-      # @param [Numeric] date 西暦の年数
-      # @param [When::TM::TemporalPosition] date
-      # @param [When::TM::ReferenceSystem] frame 使用する暦法(デフォルトは When.Resource('_c:Gregorian'))
-      #
-      # @return [Integer]           クリスマスのユリウス通日(dateが西暦の年数の場合)
-      # @return [When::TM::CalDate] クリスマスのWhen::TM::CalDate(yearがWhen::TM::TemporalPositionの場合)
-      #
-      def christmas(date, frame=nil)
-        _event(date, 'christmas', frame) do |year, frame|
-          @x - 1 + frame._coordinates_to_number(year, 2, 0)
+    # 固定祝日
+    Fixed_feasts = {
+      [ 1,  6] => "Epiphany",
+      [ 3,  1] => "St.David's Day",
+      [ 3, 17] => "St.Patrick's Day",
+      [ 3, 25] => "Annunciation-Lady Day",
+      [ 4, 23] => "St.George's Day",
+      [ 6, 24] => "Midsummer Day",
+      [ 9, 14] => "Holy Cross Day",
+      [ 9, 29] => "Michaelmas Day",
+      [11, 30] => "St.Andrew's Day",
+      [12, 13] => "St.Lucia's Day",
+      [12, 21] => "St.Thomas's Day",
+    # [12, 25] => "Christmas Day"
+    }
+
+    # 移動祝日 (日付と曜日による)
+    moveable_feasts = {}
+    [[[ 9, 15, 2], "III Quatember"],
+     [[11, 27, 6], "Advent Sunday"],
+     [[12, 14, 2], "IV Quatember" ]].each do |pair|
+      date, name = pair
+      7.times do
+        moveable_feasts[date.dup] = name
+        date[1] += 1
+        if date[1] > 30
+          date[0] += 1
+          date[1]  = 1
         end
       end
+    end
 
-      # 復活祭
-      #
-      # @param [Numeric] date 西暦の年数
-      # @param [When::TM::TemporalPosition] date
-      # @param [When::TM::ReferenceSystem] frame 使用する暦法(デフォルトは When.Resource('_c:Gregorian'))
-      #
-      # @return [Integer]           復活祭のユリウス通日(dateが西暦の年数の場合)
-      # @return [When::TM::CalDate] 復活祭のWhen::TM::CalDate(yearがWhen::TM::TemporalPositionの場合)
-      #
-      def easter(date, frame=nil)
-        _event(date, 'easter', frame) do |year, frame|
-          golden = (year+@b) % @s + 1
-          m      = (frame._lunar_equation(year) + 11*golden + @c) % 30
-          if @f == 0
-            m += 1 if m==0 || m==1 && golden>=@n
-          else
-            m += (golden-1) / @f
-            m -= 30 if m>=@n
-          end
-          result  = frame._coordinates_to_number(year, 2, 0) + @d - 1 - m
-          result += @g - (result-@w) % 7 if @w<7
-          result
-        end
+    # 移動祝日
+    Moveable_feasts = {
+      # 復活祭からの日数による
+      -63 => "Septuagesima Sunday",
+      -56 => "Sexagesima Sunday",
+      -49 => "Quinquagesima Sunday",
+      -46 => "Ash Wednesday",
+      -42 => "Quadragesima Sunday",
+      -40 => "I Quatember",
+      -35 => "Reminizer Sunday",
+      -28 => "Oculi Sunday",
+      -21 => "Laetare Sunday",
+      -14 => "Judica Sunday",
+       -7 => "Palmarum",
+       -2 => "Good Friday",
+    #   0 => "Easter Day",
+        7 => "Low Sunday",
+       35 => "Rogation Sunday",
+       39 => "Ascension Day",
+       49 => "Whitsunday",
+       53 => "II Quatember",
+       56 => "Trinity Sunday",
+       60 => "Corpus Christi",
+    }.update(moveable_feasts) 
+
+    # 週日補正フラグ
+    # @return [Integer]
+    attr_reader :w
+
+    # 最も遅い満月の3月0日からの日数
+    # @return [Integer]
+    attr_reader :d
+
+    # クリスマスの3月0日からの日数
+    # @return [Integer]
+    attr_reader :x
+
+    # 平年数
+    # @return [Integer]
+    attr_reader :n
+
+    # 置閏周期
+    # @return [Integer]
+    attr_reader :s
+
+    # 月の位相の補正
+    # @return [Integer]
+    attr_reader :c
+
+    # ガード
+    # @return [Integer]
+    attr_reader :g
+
+    # ベース
+    # @return [Integer]
+    attr_reader :b
+
+    # 満月補正フラグ
+    # @return [Integer]
+    attr_reader :f
+
+    # 七曜
+    #
+    # @param [When::TM::TemporalPosition] date
+    # @param [When::TM::ReferenceSystem] frame 使用する暦法(ダミー)
+    #
+    # @return [When::Coordinates::Residue] 七曜
+    #
+    def week(date, frame=nil)
+      When.Residue('Week')[date.to_i % 7]
+    end
+
+    # クリスマス
+    #
+    # @param [Numeric] date 西暦の年数
+    # @param [When::TM::TemporalPosition] date
+    # @param [When::TM::ReferenceSystem] frame 使用する暦法(デフォルトは When.Resource('_c:Gregorian'))
+    #
+    # @return [Integer]           クリスマスのユリウス通日(dateが西暦の年数の場合)
+    # @return [When::TM::CalDate] クリスマスのWhen::TM::CalDate(yearがWhen::TM::TemporalPositionの場合)
+    #
+    def christmas(date, frame=nil)
+      _event(date, 'christmas', frame) do |year, frame|
+        @x - 1 + frame._coordinates_to_number(year, 2, 0)
       end
+    end
 
-      #   イベントの標準的な間隔を返す
-      # @private
-      def _delta(parameter=nil)
-        return When::DurationP1Y
+    # 復活祭
+    #
+    # @param [Numeric] date 西暦の年数
+    # @param [When::TM::TemporalPosition] date
+    # @param [When::TM::ReferenceSystem] frame 使用する暦法(デフォルトは When.Resource('_c:Gregorian'))
+    #
+    # @return [Integer]           復活祭のユリウス通日(dateが西暦の年数の場合)
+    # @return [When::TM::CalDate] 復活祭のWhen::TM::CalDate(yearがWhen::TM::TemporalPositionの場合)
+    #
+    def easter(date, frame=nil)
+      _event(date, 'easter', frame) do |year, frame|
+        golden = (year+@b) % @s + 1
+        m      = (frame._lunar_equation(year) + 11*golden + @c) % 30
+        if @f == 0
+          m += 1 if m==0 || m==1 && golden>=@n
+        else
+          m += (golden-1) / @f
+          m -= 30 if m>=@n
+        end
+        result  = frame._coordinates_to_number(year, 2, 0) + @d - 1 - m
+        result += @g - (result-@w) % 7 if @w<7
+        result
       end
+    end
 
-      # @private
-      alias :christmas_delta :_delta
+    #   イベントの標準的な間隔を返す
+    # @private
+    def _delta(parameter=nil)
+      return When::DurationP1Y
+    end
 
-      # @private
-      alias :easter_delta    :_delta
+    # @private
+    alias :christmas_delta :_delta
 
-      # 固定祝日
-      #
-      # @param [When::TM::TemporalPosition] date
-      # @param [When::TM::ReferenceSystem] frame 使用する暦法(デフォルトは When.Resource('_c:Gregorian'))
-      #
-      # @return [String] 祝日の名称
-      # @return [nil]    祝日に該当しない
-      #
-      def fixed_feast(date, frame=nil)
-        date = When.Calendar(frame||'Gregorian') ^ date unless date.frame.kind_of?(When::CalendarTypes::Julian)
-        Fixed_feasts[date.cal_date[-2..-1]]
-      end
+    # @private
+    alias :easter_delta    :_delta
 
-      # 移動祝日
-      #
-      # @param [When::TM::TemporalPosition] date
-      # @param [When::TM::ReferenceSystem] frame 使用する暦法(デフォルトは When.Resource('_c:Gregorian'))
-      #
-      # @return [String] 祝日の名称
-      # @return [nil]    祝日に該当しない
-      #
-      def moveable_feast(date, frame=nil)
-        result = Moveable_feasts[date.to_i - easter(date, frame).to_i]
-        return result if result
-        date = When.Calendar(frame||'Gregorian') ^ date unless date.frame.kind_of?(When::CalendarTypes::Julian)
-        Moveable_feasts[date.cal_date[-2..-1] + [date.to_i % 7]]
-      end
+    # 固定祝日
+    #
+    # @param [When::TM::TemporalPosition] date
+    # @param [When::TM::ReferenceSystem] frame 使用する暦法(デフォルトは When.Resource('_c:Gregorian'))
+    #
+    # @return [String] 祝日の名称
+    # @return [nil]    祝日に該当しない
+    #
+    def fixed_feast(date, frame=nil)
+      date = When.Calendar(frame||'Gregorian') ^ date unless date.frame.kind_of?(When::CalendarTypes::Christian)
+      Fixed_feasts[date.cal_date[-2..-1]]
+    end
 
-      private
+    # 移動祝日
+    #
+    # @param [When::TM::TemporalPosition] date
+    # @param [When::TM::ReferenceSystem] frame 使用する暦法(デフォルトは When.Resource('_c:Gregorian'))
+    #
+    # @return [String] 祝日の名称
+    # @return [nil]    祝日に該当しない
+    #
+    def moveable_feast(date, frame=nil)
+      result = Moveable_feasts[date.to_i - easter(date, frame).to_i]
+      return result if result
+      date = When.Calendar(frame||'Gregorian') ^ date unless date.frame.kind_of?(When::CalendarTypes::Christian)
+      Moveable_feasts[date.cal_date[-2..-1] + [date.to_i % 7]]
+    end
 
-      # オブジェクトの正規化
-      #   w - 週日補正フラグ(デフォルト  6)
-      #   d - 最も遅い満月  (デフォルト 3月0日から 50日)
-      #   x - クリスマス    (デフォルト 3月0日から300日)
-      #   n - 平年数        (デフォルト 12)
-      #   s - 置閏周期      (デフォルト 19)
-      #   c - 月の位相の補正(デフォルト  3)
-      #   g - ガード        (デフォルト  7)
-      #   b - ベース        (デフォルト  0)
-      #   f - 満月補正フラグ(デフォルト  0)
-      def _normalize(args=[], options={})
-        w, d, x, n, s, c, g, b, f = args
-        @w = (w || @w ||   6).to_i
-        @d = (d || @d ||  50).to_i
-        @x = (x || @x || 300).to_i
-        @n = (n || @n ||  12).to_i
-        @s = (s || @s ||  19).to_i
-        @c = (c || @c ||   3).to_i
-        @g = (g || @g ||   7).to_i
-        @b = (b || @b ||   0).to_i
-        @f = (f || @f ||   0).to_i
-        @event   = 'easter'
-        @prime ||= [['Month'], nil]
-        super
-      end
+    private
+
+    # オブジェクトの正規化
+    #   w - 週日補正フラグ(デフォルト  6)
+    #   d - 最も遅い満月  (デフォルト 3月0日から 50日)
+    #   x - クリスマス    (デフォルト 3月0日から300日)
+    #   n - 平年数        (デフォルト 12)
+    #   s - 置閏周期      (デフォルト 19)
+    #   c - 月の位相の補正(デフォルト  3)
+    #   g - ガード        (デフォルト  7)
+    #   b - ベース        (デフォルト  0)
+    #   f - 満月補正フラグ(デフォルト  0)
+    def _normalize(args=[], options={})
+      w, d, x, n, s, c, g, b, f = args
+      @w = (w || @w ||   6).to_i
+      @d = (d || @d ||  50).to_i
+      @x = (x || @x || 300).to_i
+      @n = (n || @n ||  12).to_i
+      @s = (s || @s ||  19).to_i
+      @c = (c || @c ||   3).to_i
+      @g = (g || @g ||   7).to_i
+      @b = (b || @b ||   0).to_i
+      @f = (f || @f ||   0).to_i
+      @event   = 'easter'
+      @prime ||= [['Month'], ['Week']]
+      super
+    end
 
-      #
-      # 任意の暦をグレゴリオorユリウス暦日に変換
-      #
-      def _to_date_for_note(date)
-        return date if date.frame.kind_of?(When::CalendarTypes::Julian)
-        When.Calendar(date.to_i < 2299161 ? 'Julian' : 'Gregorian') ^ date
-      end
+    #
+    # 任意の暦をグレゴリオorユリウス暦日に変換
+    #
+    def _to_date_for_note(date)
+      return When.Calendar(When::CalendarTypes::Christian._default_start(date)) ^ date if ::Object.const_defined?(:Date) && date.kind_of?(::Date)
+      return When.Calendar('Gregorian') ^ date if date.kind_of?(::Time)
+      return date if date.frame.kind_of?(When::CalendarTypes::Christian)
+      When.Calendar(date.frame.iri =~ /Coptic/ || date.to_i < 2299161 ? 'Julian' : 'Gregorian') ^ date
+    end
 
-      # 当該年のイベントの日付
-      #   date       : 西暦の年数 or When::TM::(Temporal)Position
-      #   event      : イベント名 (String)
-      #   frame      : 暦法(デフォルトは When.Resource('_c:Gregorian'))
-      #
-      # @return [Integer]           イベントのユリウス通日(dateが西暦の年数の場合)
-      # @return [When::TM::CalDate] イベントのWhen::TM::CalDate(yearがWhen::TM::(Temporal)Positionの場合)
-      #
-      def _event(date, event, frame=nil)
-        case date
-        when Numeric
-          year    = date * 1
-        when When::TimeValue
-          options = date._attr
-          options[:precision] = When::DAY
-          options[:events]    = [event]
-          if frame
-            frame = When.Calendar(frame)
-            date  = frame.jul_trans(date, options)
-          else
-            frame = date.frame
-          end
-          year = date.most_significant_coordinate * 1
+    # 当該年のイベントの日付
+    #   date       : 西暦の年数 or When::TM::(Temporal)Position
+    #   event      : イベント名 (String)
+    #   frame      : 暦法(デフォルトは When.Resource('_c:Gregorian'))
+    #
+    # @return [Integer]           イベントのユリウス通日(dateが西暦の年数の場合)
+    # @return [When::TM::CalDate] イベントのWhen::TM::CalDate(yearがWhen::TM::(Temporal)Positionの場合)
+    #
+    def _event(date, event, frame=nil)
+      case date
+      when Numeric
+        year    = date * 1
+      when When::TimeValue
+        options = date._attr
+        options[:precision] = When::DAY
+        options[:events]    = [event]
+        if frame
+          frame = When.Calendar(frame)
+          date  = frame.jul_trans(date, options)
         else
-          raise TypeError, "Irregal date type: #{date.class}"
+          frame = date.frame
         end
-        frame ||= When.Resource('_c:Gregorian')
-        result  = yield(year, frame)
-        return result if date.kind_of?(Numeric)
-        return frame.jul_trans(result, options)
+        year = date.most_significant_coordinate * 1
+      else
+        raise TypeError, "Irregal date type: #{date.class}"
       end
+      frame ||= When.Resource('_c:Gregorian')
+      result  = yield(year, frame)
+      return result if date.kind_of?(Numeric)
+      return frame.jul_trans(result, options)
     end
   end
 end