when_exe 0.3.4 → 0.3.5

data/lib/when_exe/region/world.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,7 +12,7 @@ module When
     WorldTerms = [self, [
       "namespace:[en=http://en.wikipedia.org/wiki/, ja=http://ja.wikipedia.org/wiki/]",
       "locale:[=en:, ja=ja:, alias]",
-      "names:[WorldTerms]",
+      "names:[WorldTerms=]",
       "[World=en:The_World_Calendar, 世界暦]"
     ]]
   end
@@ -21,159 +21,142 @@ module When
 
     World = [self, [
       "namespace:[en=http://en.wikipedia.org/wiki/]",
-      "area:[Common]",
+      "area:[Common=]",
       ["[BCE=en:BCE_(disambiguation), alias:BeforeCommonEra]0.1.1"],
       ["[CE=en:Common_Era, alias:CommonEra]1.1.1", "Calendar Epoch", "01-01-01^World"]
     ]]
   end
 
-  module CalendarTypes
+  #
+  # 世界暦の暦週
+  #
+  class CalendarNote::WorldWeek < CalendarNote
 
-    #
-    # 世界暦の暦週
-    #
-    class CalendarNote::WorldWeek < CalendarNote
-
-      NoteObjects = [When::BasicTypes::M17n, [
-        "namespace:[en=http://en.wikipedia.org/wiki/, ja=http://ja.wikipedia.org/wiki/]",
-        "locale:[=en:, ja=ja:, alias]",
-        "names:[World]",
+    NoteObjects = [When::BasicTypes::M17n, [
+      "namespace:[en=http://en.wikipedia.org/wiki/, ja=http://ja.wikipedia.org/wiki/]",
+      "locale:[=en:, ja=ja:, alias]",
+      "names:[World]",
 
-        # 年の暦注 ----------------------------
-        [When::BasicTypes::M17n,
-          "names:[year]"
-        ],
+      # 年の暦注 ----------------------------
+      [When::BasicTypes::M17n,
+        "names:[year]"
+      ],
 
-        # 月の暦注 ----------------------------
+      # 月の暦注 ----------------------------
+      [When::BasicTypes::M17n,
+        "names:[month]",
         [When::BasicTypes::M17n,
-          "names:[month]",
-          [When::BasicTypes::M17n,
-            "names:[Month]"
-          ]
-        ],
+          "names:[Month]"
+        ]
+      ],
 
-        # 日の暦注 ----------------------------
+      # 日の暦注 ----------------------------
+      [When::BasicTypes::M17n,
+        "names:[day]",
         [When::BasicTypes::M17n,
-          "names:[day]",
-          [When::BasicTypes::M17n,
-            "names:[Week]",
-            "[Sunday,    日曜日]",
-            "[Monday,    月曜日]",
-            "[Tuesday,   火曜日]",
-            "[Wednesday, 水曜日]",
-            "[Thursday,  木曜日]",
-            "[Friday,    金曜日]",
-            "[Saturday,  土曜日]",
-            "[Worldsday, 無曜日]"
-          ]
+          "names:[Week]",
+          "[Sunday,    日曜日]",
+          "[Monday,    月曜日]",
+          "[Tuesday,   火曜日]",
+          "[Wednesday, 水曜日]",
+          "[Thursday,  木曜日]",
+          "[Friday,    金曜日]",
+          "[Saturday,  土曜日]",
+          "[Worldsday, 無曜日]"
         ]
-      ]]
+      ]
+    ]]
 
-      # イベントの標準的な間隔を返す
-      # @private
-      def _delta(parameter=nil)
-        return When::DurationP1W
-      end
+    # イベントの標準的な間隔を返す
+    # @private
+    def _delta(parameter=nil)
+      return When::DurationP1W
+    end
 
-      # @private
-      def worldsday_delta(parameter=nil)
-        return When::TM::PeriodDuration.new([0,0,7*26+1])
-      end
+    # @private
+    def worldsday_delta(parameter=nil)
+      return When::TM::PeriodDuration.new([0,0,7*26+1])
+    end
 
-      # 当日または直前の worldsday の日
-      # @param date [When::TM::TemporalPosition]
-      # @param parameter [nil] 未使用
-      # @return [When::TM::TemporalPosition]
-      #
-      def worldsday(date, parameter=nil)
-        event_name = 'worldsday'
-        date  = When.Calendar('World').jul_trans(date, {:events=>event_name})
-        y,m,d = date.cal_date
-        h, m  = (m-1).divmod(6)
-        return date if m == 5 && d == 31
-        dow   = [0, 31, 61, 91, 122, 152][m] + d
-        dow  += 182 if h == 1 && When.Calendar('World')._sum([y]) == 365
-        date += When::TM::PeriodDuration.new([0,0,-dow])
-        date.events = [event_name]
-        date
-      end
+    # 当日または直前の worldsday の日
+    # @param date [When::TM::TemporalPosition]
+    # @param parameter [nil] 未使用
+    # @return [When::TM::TemporalPosition]
+    #
+    def worldsday(date, parameter=nil)
+      event_name = 'worldsday'
+      date  = When.Calendar('World').jul_trans(date, {:events=>event_name})
+      y,m,d = date.cal_date
+      h, m  = (m-1).divmod(6)
+      return date if m == 5 && d == 31
+      dow   = [0, 31, 61, 91, 122, 152][m] + d
+      dow  += 182 if h == 1 && When.Calendar('World')._sum([y]) == 365
+      date += When::TM::PeriodDuration.new([0,0,-dow])
+      date.events = [event_name]
+      date
+    end
 
-      # 当日または直前の week_day の日
-      # @method week_day(date, parameter=nil)
-      #   @param date [When::TM::TemporalPosition]
-      #   @param parameter [nil] 未使用
-      #   @return [When::TM::TemporalPosition]
-      #   @note week_day は sunday, monday, tuesday, wednesday, thursday, friday, saturday に読み替えてください。
-
-      # @private
-      7.times do |k|
-        name = When.CalendarNote('WorldWeek/NoteObjects::day::Week')[k].to_s.downcase
-        module_eval %Q{
-          def #{name}(date, parameter=nil)
-            event_name = 'from_#{name}'
-            date  = When.Calendar('World').jul_trans(date, {:events=>[event_name], :precision=>When::DAY})
-            y,m,d = date.cal_date
-            dow   = (m % 6 == 0 && d == 31) ? 7-#{k} : ([4,6,2][m % 3] + d - #{k}) % 7
-            return date if dow == 0
-            dow  += 1 if d <= dow && (m == 1 || m == 7 && When.Calendar('World')._sum([y]) == 366)
-            date += When::TM::PeriodDuration.new([0,0,-dow])
-            date.events = [event_name]
-            date
-          end
-
-          alias :#{name}_delta :_delta
-        }
-      end
+    # 当日または直前の week_day の日
+    # @method week_day(date, parameter=nil)
+    #   @param date [When::TM::TemporalPosition]
+    #   @param parameter [nil] 未使用
+    #   @return [When::TM::TemporalPosition]
+    #   @note week_day は sunday, monday, tuesday, wednesday, thursday, friday, saturday に読み替えてください。
+
+    # @private
+    7.times do |k|
+      name = When.CalendarNote('WorldWeek/NoteObjects::day::Week')[k].to_s.downcase
+      module_eval %Q{
+        def #{name}(date, parameter=nil)
+          event_name = 'from_#{name}'
+          date  = When.Calendar('World').jul_trans(date, {:events=>[event_name], :precision=>When::DAY})
+          y,m,d = date.cal_date
+          dow   = (m % 6 == 0 && d == 31) ? 7-#{k} : ([4,6,2][m % 3] + d - #{k}) % 7
+          return date if dow == 0
+          dow  += 1 if d <= dow && (m == 1 || m == 7 && When.Calendar('World')._sum([y]) == 366)
+          date += When::TM::PeriodDuration.new([0,0,-dow])
+          date.events = [event_name]
+          date
+        end
 
-      alias :week :sunday
+        alias :#{name}_delta :_delta
+      }
+    end
 
-      # Enumeratorの生成
-      #
-      # @param [When::TM::TemporalPosition] first 始点
-      # @param [Symbol] direction
-      #   [ :forward - 昇順 ]
-      #   [ :reverse - 降順 ]
-      # @param [String] event イベント名
-      # @param [Integer] count_limit 繰り返し回数(デフォルトは指定なし)
-      #
-      # @return [When::CalendarTypes::ShireWeek::Enumerator]
-      #
-      def enum_for(first, direction=:forward, event=nil, count_limit=nil)
-        Enumerator.new(self, first, direction, event||@event, count_limit)
-      end
-      alias :to_enum :enum_for
+    alias :week :sunday
 
-      # オブジェクトの正規化
-      # @private
-      def _normalize(args=[], options={})
-        @event ||= 'sunday'
-        super
-      end
+    # オブジェクトの正規化
+    # @private
+    def _normalize(args=[], options={})
+      @event ||= 'sunday'
+      super
+    end
+
+    #
+    # イベントを取得する Enumerator
+    #
+    class Enumerator < When::CalendarNote::Enumerator
 
       #
-      # イベントを取得する Enumerator
+      # 次のイベントを得る
       #
-      class Enumerator < CalendarNote::Enumerator
-
-        #
-        # 次のイベントを得る
-        #
-        # @return [When::TM::TemporalPosition]
-        #
-        def succ
-          value = @current
-          if @current==:first
-            @first   = event_eval(@first) if @delta.sign < 0
-            @current = @first
-          else
-            @current = event_eval(@current + @delta)
-            @current = event_eval(@current + @delta * 2) if @current.to_i == value.to_i
-          end
-          return value
+      # @return [When::TM::TemporalPosition]
+      #
+      def succ
+        value = @current
+        if @current==:first
+          @first   = event_eval(@first) if @delta.sign < 0
+          @current = @first
+        else
+          @current = event_eval(@current + @delta)
+          @current = event_eval(@current + @delta * 2) if @current.to_i == value.to_i
         end
+        return value
       end
     end
+  end
 
+  module CalendarTypes
     #
     # World calendar based on Gregorian calendar
     #

data/lib/when_exe/timestandard.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
@@ -91,6 +91,14 @@ module When::TimeStandard
         end
     end
 
+    # 設定情報を取得する
+    #
+    # @return [Hash] 設定情報
+    #
+    def _setup_info
+      {:leap_seconds => _leap_seconds}
+    end
+
     # @private
     # 閏秒の挿入記録を取得する
     def _leap_seconds
@@ -310,6 +318,9 @@ module When::TimeStandard
   # @private
   module TimeBasis
 
+    # @private
+    attr_reader :_time_basis
+
     module FixedTimeBasis
 
       private

data/lib/when_exe/tmposition.rb

@@ -172,7 +172,7 @@ module When::TM
       #
       # 対応する When::TM::JulianDate を生成
       #
-      # @param [Hash] options
+      # @param [Hash] options 以下の通り
       # @option options [When::TM::Clock] :clock
       # @option options [When::Parts::Timezone] :tz
       #
@@ -271,7 +271,7 @@ module When::TM
       # @param [String] specification When.exe Standard Representation
       # @param [Hash] options 下記の通り
       # @option options [When::TM::ReferenceSystem] :frame 暦法の指定
-      # @option options [When::TM::Clock, When::V::Timezone, When::Parts::Timezone, String] :clock 時法の指定
+      # @option options [When::Parts::Timezone::Base, String] :clock 時法の指定
       # @option options [String] :tz 時法の指定(時間帯を指定する場合 :clock の替わりに用いることができる)
       # @option options [Array<Numeric>] :abbr ISO8601上位省略形式のためのデフォルト日付(省略時 指定なし)
       # @option options [Integer] :extra_year_digits ISO8601拡大表記のための年の構成要素拡大桁数(省略時 1桁)
@@ -296,7 +296,7 @@ module When::TM
       # @note options の中身は本メソッドによって更新されることがある。
       #
       # @note :tz は 'Asia/Tokyo'など時間帯を表す文字列をキーにして、登録済みのWhen::V::Timezone, When::Parts::Timezoneを検索して使用する。
-      #       :clock はWhen::TM::Clock, When::V::Timezone, When::Parts::Timezoneオブジェクトをそのまま使用するか '+09:00'などの文字列をWhen::TM::Clock化して使用する。
+      #       :clock はWhen::Parts::Timezone::Baseオブジェクトをそのまま使用するか '+09:00'などの文字列をWhen::TM::Clock化して使用する。
       #       :tz の方が :clock よりも優先される。
       #
       # @return [When::TM::TemporalPosition]    ISO8601 time point
@@ -630,15 +630,17 @@ module When::TM
     # @param [Hash] option  時間の歩度が1.0でない場合のための option
     #   see {When::TM::TemporalPosition._instance}
     #
+    # @param [Integer] start ::DateTime オブジェクトのグレゴリオ改暦日(ユリウス通日)
+    #
     # @return [::DateTime]
     #
-    def to_date_time(option={:frame=>When.utc})
+    def to_date_time(option={:frame=>When.utc}, start=_default_start)
       return JulianDate.dynamical_time(dynamical_time, option).to_date_time unless time_standard.rate_of_clock == 1.0
       raise TypeError, "Clock not assigned" unless clock
       Rational
       offset   = Rational(-(clock.universal_time/Duration::SECOND).to_i, (Duration::DAY/Duration::SECOND).to_i)
       clk_time = clock.to_clk_time(universal_time - (to_i - JulianDate::JD19700101)*Duration::DAY).clk_time
-      ::DateTime.jd(to_i, clk_time[1], clk_time[2], clk_time[3].to_i, offset, ::Date::GREGORIAN)
+      ::DateTime.jd(to_i, clk_time[1], clk_time[2], clk_time[3].to_i, offset, start)
     end
 
     # 標準ライブラリの Date オブジェクトへの変換
@@ -646,11 +648,13 @@ module When::TM
     # @param [Hash] option  時間の歩度が1.0でない場合のための option
     #   see {When::TM::TemporalPosition._instance}
     #
+    # @param [Integer] start ::DateTime オブジェクトのグレゴリオ改暦日(ユリウス通日)
+    #
     # @return [::Date]
     #
-    def to_date(option={})
+    def to_date(option={}, start=_default_start)
       return JulianDate.dynamical_time(dynamical_time, option).to_date unless time_standard.rate_of_clock == 1.0
-      ::Date.jd(to_i, ::Date::GREGORIAN)
+      ::Date.jd(to_i, start)
     end
 
     # 組み込みライブラリの Time オブジェクトへの変換
@@ -1007,6 +1011,12 @@ module When::TM
       end
     end
 
+    #
+    # 対応する ::Date の start 属性
+    def _default_start
+      frame ? frame._default_start : ::Date::GREGORIAN
+    end
+
     alias :_method_missing :method_missing
 
     # その他のメソッド
@@ -1568,10 +1578,14 @@ module When::TM
     #
     def %(other)
       raise TypeError,"The right operand should be When::Coordinates::Residue" unless other.kind_of?(Residue)
-      case other.event
-      when 'day'  ; other % least_significant_coordinate
-      when 'year' ; other % (most_significant_coordinate + @frame._diff_to_CE)
-      else        ; raise ArgumentError,"The right operand should have a unit 'day' or 'year'"
+      if precision <= When::YEAR && other.units['year'] && other.event != 'year'
+        other.to('year') % (most_significant_coordinate + @frame._diff_to_CE)
+      else
+        case other.event
+        when 'day'  ; other % least_significant_coordinate
+        when 'year' ; other % (most_significant_coordinate + @frame._diff_to_CE)
+        else        ; raise ArgumentError,"The right operand should have a unit 'day' or 'year'"
+        end
       end
     end
 
@@ -1887,7 +1901,7 @@ module When::TM
       count   = digit - length
       period  = PeriodDuration.new((count<=0) ? 1 : 0.1**count, digit, (-@frame.indices.length)..length)
       result  = floor(digit, precision) + period
-      result += clock._tz_difference if (result.universal_time <= self.universal_time)
+      result += clock.tz_difference if (result.universal_time <= self.universal_time)
       return result
     end
 
@@ -1969,8 +1983,8 @@ module When::TM
         clock ||= options[:time].frame if options[:time].kind_of?(ClockTime)
         clock ||= Clock.local_time
       end
-      clock = When.Clock(clock) if (clock.kind_of?(String))
-      clock_is_timezone = clock.respond_to?(:daylight)
+      clock = When.Clock(clock) if clock.kind_of?(String)
+      clock_is_timezone = clock && !clock.kind_of?(When::TM::Clock)
       clock = clock.daylight if clock_is_timezone
 
       # ClockTime

data/lib/when_exe/tmreference.rb

@@ -302,6 +302,7 @@ module When::TM
   class Clock < ReferenceSystem
 
     include When::Coordinates
+    include When::Parts::Timezone::Base
     include Spatial::Normalize
     include Temporal
 
@@ -310,7 +311,7 @@ module When::TM
 
       # When::TM::Clock Class のグローバルな設定を行う
       #
-      # @param [When::TM::Clock, When::Parts::Timezone, When::V::Timezone, String] local 地方時を使用する場合、指定する
+      # @param [When::Parts::Timezone::Base, String] local 地方時を使用する場合、指定する
       #
       # @return [void]
       #
@@ -324,11 +325,19 @@ module When::TM
         @local_time = local
       end
 
+      # 設定情報を取得する
+      #
+      # @return [Hash] 設定情報
+      #
+      def _setup_info
+        {:local => _local_time}
+      end
+
       # 地方時
       #
-      # @param [When::TM::Clock, When::Parts::Timezone, When::V::Timezone, String] local 地方時
+      # @param [When::Parts::Timezone::Base, String] local 地方時
       #
-      # @return [When::TM::Clock, When::Parts::Timezone, When::V::Timezone, String]
+      # @return [When::Parts::Timezone::Base, String]
       #
       # @note
       #   @local_timeは、原則、ライブラリ立ち上げ時に _setup_ で初期化する。
@@ -344,7 +353,7 @@ module When::TM
 
       # When::TM::Clock のローカルタイムを読みだす
       #
-      # @return [When::TM::Clock, When::Parts::Timezone, When::V::Timezone]
+      # @return [When::Parts::Timezone::Base]
       #
       def local_time
         _local_time[1]
@@ -593,32 +602,51 @@ module When::TM
       return time
     end
 
-    # When::TM::TemporalPosition の時間帯を変更して複製する
     #
-    # @param [When::TM::CalDate, When::TM::DateAndTime, When::TM::JulianDate] date
-    # @param [Hash] options see {When::TM::TemporalPosition._instance}
+    # _m17n_form のための要素生成
     #
-    # @return [When::TM::DateAndTime, When::TM::JulianDate]
+    # @param [Hash] options 下記のとおり
+    # @option options [Symbol] :method :to_m17n なら時間帯名を返す、その他は When::Parts::Resource#to_h 参照
     #
-    def ^(date, options={})
-      date = Position.any_other(date, options)
-      my_options = (date.options||{}).merge(options)
-      frac       = self.universal_time(date.to_i)
-      sdn, time  = (date.universal_time - frac).divmod(Duration::DAY)
-      my_options[:frame] ||= date.frame if date.kind_of?(CalDate)
-      my_options[:clock]   = self
-      case date
-      when DateAndTime
-        time += frac unless self.kind_of?(When::CalendarTypes::LocalTime)
-        DateAndTime.new(my_options[:frame].to_cal_date(sdn + JulianDate::JD19700101), time, my_options)
-      when CalDate
-        CalDate.new(my_options[:frame].to_cal_date(date.to_i), my_options)
-      when JulianDate
-        my_options[:frame] = my_options.delete(:clock)
-        JulianDate.universal_time(sdn * Duration::DAY, my_options)
-      else
-        raise TypeError, "Irregal (Temporal)Position"
+    # @private
+    def _to_hash_value(options={})
+      options[:method] == :to_m17n ? tzname(:hash)[0] : super
+    end
+
+    # この時法のUTCとの差(ISO 8601 basic format)
+    #
+    # @return [String] (±hhmm)
+    #
+    def to_basic
+      return '' unless @zone
+      @zone.gsub(/:/, '')
+    end
+
+    # 期間オブジェクトの桁数合わせ
+    # @private
+    def _arrange_length(period)
+      return period unless period.kind_of?(Array)
+      diff = @indices.length - period.length + 1
+      return period if (diff == 0)
+      return (diff > 0) ? period + Array.new(diff, 0) : period[0...diff]
+    end
+
+    # 時刻配列の分解能
+    # @private
+    def _precision(time, default=nil)
+      nil_index = time.index(nil) || time.length
+      precision = nil_index - 1 if (nil_index < @base.length || time[-1].kind_of?(Integer))
+      When::Coordinates::Index.precision(default || precision)
+    end
+
+    # 丸め量 / When::TM::Duration::SYSTEM
+    # @private
+    def _round_value(precision)
+      offset = When::TM::Duration::DAY / 2
+      precision.times do |i|
+        offset /= @unit[i+1] ? @unit[i+1] : 10
       end
+      offset
     end
 
     # この時法の時間帯名
@@ -647,84 +675,43 @@ module When::TM
       name
     end
 
-    #
-    # _m17n_form のための要素生成
-    #
-    # @private
-    def _to_hash_value(options={})
-      tzname(:hash)[0]
+    # 標準時間帯の時計
+    # @return [When::TM::Clock]
+    def standard
+      _tz_prop ? _tz_prop.standard : self
     end
 
-    # この時法のUTCとの差(ISO 8601 basic format)
-    #
-    # @return [String] (±hhmm)
-    #
-    def to_basic
-      return '' unless @zone
-      @zone.gsub(/:/, '')
+    # 夏時間帯の時計
+    # @return [When::TM::Clock]
+    def daylight
+      _tz_prop ? _tz_prop.daylight : self
+    end
+
+    # 夏時間帯と標準時間帯の時間差
+    # @return [When::TM:IntervalLength]
+    def tz_difference
+      _tz_prop ? _tz_prop.tz_difference : 0
     end
 
     # 夏時間の有無
     # @private
     def _need_validate
-      case @tz_prop
-      when nil                       ; false
-      when When::V::TimezoneProperty ; @tz_prop._pool['..']._need_validate
-      else                           ; @tz_prop._need_validate
-      end
+      _tz_prop ? _tz_prop._need_validate : false
     end
 
     # 夏時間
     # @private
     def _daylight(time)
-      case @tz_prop
-      when nil                       ; return self
-      when When::V::TimezoneProperty ; timezone = @tz_prop._pool['..']
-      else                           ; timezone = @tz_prop
-      end
-      return self unless timezone
-      return timezone._daylight(time)
-    end
-
-    # この時法の夏時間-標準時間変化量
-    # @private
-    def _tz_difference
-      case @tz_prop
-      when nil                       ; 0
-      when When::V::TimezoneProperty ; @tz_prop._pool['..'].difference
-      else                           ; @tz_prop.difference
-      end
-    end
-
-    # 期間オブジェクトの桁数合わせ
-    # @private
-    def _arrange_length(period)
-      return period unless period.kind_of?(Array)
-      diff = @indices.length - period.length + 1
-      return period if (diff == 0)
-      return (diff > 0) ? period + Array.new(diff, 0) : period[0...diff]
+      _tz_prop ? _tz_prop._daylight(time) : self
     end
 
-    # 時刻配列の分解能
-    # @private
-    def _precision(time, default=nil)
-      nil_index = time.index(nil) || time.length
-      precision = nil_index - 1 if (nil_index < @base.length || time[-1].kind_of?(Integer))
-      When::Coordinates::Index.precision(default || precision)
-    end
+    private
 
-    # 丸め量 / When::TM::Duration::SYSTEM
-    # @private
-    def _round_value(precision)
-      offset = When::TM::Duration::DAY / 2
-      precision.times do |i|
-        offset /= @unit[i+1] ? @unit[i+1] : 10
-      end
-      offset
+    # Timezone オブジェクト
+    def _tz_prop
+      @tz_prop.kind_of?(When::V::TimezoneProperty) ? @tz_prop._pool['..'] : @tz_prop
     end
 
-    private
-
     # オブジェクトの正規化
     def _normalize(args=[], options={})
       @indices ||= DefaultTimeIndices
@@ -971,13 +958,21 @@ module When::TM
         @order  = order || DefaultEpochs
       end
 
+      # 設定情報を取得する
+      #
+      # @return [Hash] 設定情報
+      #
+      def _setup_info
+        {:order => @order || _setup_}
+      end
+
       # When::TM::CalendarEra オブジェクトを検索し取得する
       #
       # @overload _instance(key, epoch=nil, reverse=nil, options={})
       #   @param [String, Regexp] key     検索する暦年代または、暦年代にマッチする正規表現
       #   @param [Integer]        epoch   年数を昇順にカウントする方式での暦元(0年)の通年(デフォルトは nil - 指定なし)
       #   @param [Integer]        reverse 年数を降順にカウントする方式での暦元(0年)の通年(デフォルトは nil - 指定なし)
-      #   @param [Hash] options
+      #   @param [Hash] options 以下の通り
       #   @option options [String]  :area   暦年代の使用地域の指定(デフォルトは nil - 指定なし)
       #   @option options [String]  :period 暦年代の使用時代の指定(デフォルトは nil - 指定なし)
       #   @option options [Integer] :count  何件ヒットするまで検索するかを指定(デフォルトは 1件)
@@ -1009,7 +1004,15 @@ module When::TM
         _compact(pool, parents)
         return pool unless pool.size < count
 
-        @order.each do |iri|
+        order = @order
+        if /\?.+?=/ =~ parents[-1]
+          begin
+            head  = When.CalendarEra(parents[-1])
+            order = order.dup.unshift(head)
+          rescue
+          end
+        end
+        order.each do |iri|
           When.CalendarEra(iri)
           pool = _candidates(options, area, period, key, epoch,  false) +
                  _candidates(options, area, period, key, reverse, true)
@@ -1295,7 +1298,7 @@ module When::TM
           next_ref = next_era.reference_date if next_era.respond_to?(:reference_date)
           next_ref &&
           next_ref.precision == YEAR &&
-          next_ref.cal_date[YEAR-1] == 0 ? @epoch[-1].ceil(YEAR).to_i :
+          next_ref.cal_date[YEAR-1] == 0 ? @epoch[-1].ceil(YEAR).to_i - 1 :
           case type
           when true            ;  @epoch[-1].to_i - 1
           when :reference_date ;  @reference_date.to_i
@@ -1430,7 +1433,7 @@ module When::TM
           f.domain_of_validity = When::EX::Extent.new(
                                    When::TM::Period.new(
                                      When::TM::Instant.new(first),
-                                     When::TM::Instant.new(last))) if first
+                                     When::TM::Instant.new(last))) if first && first <= last
         end
       end
 
@@ -1466,7 +1469,7 @@ module When::TM
       # other attributes
       if (@child && @child.length>0)
         _non_leaf_era(args, term_options)
-        #_register_calendar_era unless _pool['..'].kind_of?(CalendarEra)
+        _register_calendar_era unless _pool['..'].kind_of?(CalendarEra)
         @child.each do |era|
           era._register_calendar_era
         end
@@ -1477,7 +1480,7 @@ module When::TM
     end
 
     def _non_leaf_era(args, term_options)
-      @label = m17n(@label, nil, nil, term_options) if (@label.instance_of?(String))
+      @label = m17n(@label, nil, nil, term_options) if @label.instance_of?(String)
       if @label
         @label._pool['..']  = self # TODO ここを ||= にすると leaf? の判定がおかしくなる
         @_pool[@label.to_s] = @label