when_exe 0.3.6 → 0.3.7

data/lib/when_exe/coordinates.rb

@@ -36,7 +36,7 @@ module When::Coordinates
       return src.to_r * Spatial::DEGREE if (src =~ /E[-+]/ || src !~ MATCH[dir])
       sign  = ($1 == dir[1..1]) ? -1 : +1
       value = src.gsub(MATCH[dir], '').strip
-      if ((value + "00000") =~ /^(\d+)\.(\d{2})(\d{2})(\d+)$/)
+      if ((value + "00000") =~ /\A(\d+)\.(\d{2})(\d{2})(\d+)\z/)
         deg, min, sec, frac = $~[1..4]
         sec += "." + frac
       else
@@ -119,15 +119,15 @@ module When::Coordinates
         else         ; return nil
         end
 
-        match = day[/^...|^.{1,2}$/]
+        match = day[/\A...|^.{1,2}\z/]
         if match
           week.size.times do |i|
-            return week[i] if week[i].label.=~(/^#{match}/i)
+            return week[i] if week[i].label.=~(/\A#{match}/i)
           end
         end
 
         ObjectSpace.each_object(self) do |object|
-          return object if object.registered? && object.label.=~(/^#{day}$/)
+          return object if object.registered? && object.label.=~(/\A#{day}\z/)
         end
 
         return nil
@@ -849,9 +849,9 @@ module When::Coordinates
       # @return [Array<When::Coordinates::Pair>]
       #
       def _en_pair_array(source)
-        source = $1 if (source=~/^\s*\[?(.+?)\]?\s*$/)
+        source = $1 if source=~/\A\s*\[?(.+?)\]?\s*\z/
         source.split(/,/).map {|v|
-           v =~ /^\s*(.+?)([^\d\s])?\s*$/
+           v =~ /\A\s*(.+?)([^\d\s])?\s*\z/
            _en_pair($1, $2)
         }
       end
@@ -864,7 +864,7 @@ module When::Coordinates
       # @return [Array<When::Coordinates::Pair>]
       #
       def _en_pair_date_time(source)
-        source = $1 if source =~ /^\s*\[(.+)\]\s*$/
+        source = $1 if source =~ /\A\s*\[(.+)\]\s*\z/
         trunk, branch, *rest = source.strip.split(/([^\d])/)
         if trunk == ''
           sign = branch
@@ -954,7 +954,7 @@ module When::Coordinates
     #
     # branch の更新
     #
-    # @param [Numeric] branch新しい branch
+    # @param [Numeric] branch 新しい branch
     #
     # @return [When::Coordinates::Pair] 更新結果
     #
@@ -1252,7 +1252,7 @@ module When::Coordinates
 
       # デフォルトの空間位置
       #
-      # @param [When::Coordinates::Spatial, String] default_location デフォルトの空間位置
+      # @param [When::Coordinates::Spatial, String] local デフォルトの空間位置
       #
       # @return [When::Coordinates::Spatial, String]
       #
@@ -1460,7 +1460,7 @@ module When::Coordinates
       # 時間帯による指定
       @tz = When::Parts::Timezone.tz_info[@tz] if @tz.kind_of?(String)
       if @tz
-        @label ||= @tz.label
+        @label ||= When.m17n(@tz.identifier)
         @long  ||= @tz.longitude
         @lat   ||= @tz.latitude
       end
@@ -1563,17 +1563,18 @@ module When::Coordinates
       def _normalize_spatial
 
         # Location
-        if ((@location||@long||@lat||@alt).kind_of?(String))
+        if (@location||@long||@lat||@alt).kind_of?(String)
           @location ||= "_l:long=#{@long||0}&lat=#{@lat||0}&alt=#{@alt||0}"
           @location   = When.Resource(@location)
         end
+        @location   ||= @tz_prop.location if @tz_prop
 
         # Border
-        if (@border.kind_of?(String))
+        if @border.kind_of?(String)
           @border = When.Calendar(
             case @border
             when /\([-\d]+?\)/ ; "_c:MultiBorder?borders=#{@border}"
-            when /^[^A-Z_]/i   ; "_c:Border?border=#{@border}"
+            when /\A[^A-Z_]/i   ; "_c:Border?border=#{@border}"
             else               ; @border
             end)
         end
@@ -1786,7 +1787,7 @@ module When::Coordinates
 
       # 下の位の既定値
       unless date[1] || !@border
-        date[0...@base.length] = @border.border([date[0]], self)
+        date[0...@base.length] = @border.border([@border._date_adjust(date[0])], self)
       end
 
       # 要素数固定部分の正規化(上 -> 下) - ISO8601 の 小数要素(ex. "T23:20.8")の処理
@@ -1947,7 +1948,7 @@ module When::Coordinates
       @label = When::BasicTypes::M17n.label(@label)
 
       # Origin and Upper Digits
-      @origin_of_MSC  ||= - +@border.behavior if @border
+      @origin_of_MSC  ||= - @border.behavior * 1 if @border
       @origin_of_MSC    = Pair._en_number(@origin_of_MSC)
       @origin_of_LSC    = Pair._en_number(@origin_of_LSC)
       @index_of_MSC     = Pair._en_number(@index_of_MSC)

data/lib/when_exe/core/duration.rb

@@ -1,110 +1,114 @@
-# -*- coding: utf-8 -*-
-=begin
-  Copyright (C) 2013 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
-
-#
-# 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
-#
-# @private
-class Time
-
-  alias :_plus_  :+
-  def +(other)
-    other.kind_of?(When::TM::Duration) ? self + other.to_f : self._plus_(other)
-  end
-
-
-  alias :_minus_ :-
-  def -(other)
-    other.kind_of?(When::TM::Duration) ? self - other.to_f : self._minus_(other)
-  end
-end
-
-#
-# Extensions to Numeric class
-#
-class Numeric
-
-  #
-  # メソッド名に相当する単位で表した When::TM::Duration
-  # @method unit_duration
-  # @return [When::TM::Duration]
-  # @note unit は second, minute, hour, day, week または
-  #       seconds, minutes, hours, days, weeks に読み替える
-  # @note core/duration
-
-  # @private
-  When::TM::Duration::Unit.keys.each do |key|
-
-    module_eval %Q{
-      # for When::TM::Duration
-      def #{key}_duration
-        When::TM::Duration.new(self * When::TM::Duration::Unit['#{key}'])
-      end
-      alias :#{key}s_duration :#{key}_duration
-    }
-  end
-end
-
-#
-# Extensions to Array class
-#
-class Array
-
-  #
-  # self を Array<日, 時, 分, 秒> とみなして When::TM::Duration を生成
-  #
-  # @return [When::TM::Duration]
-  #
-  # @note core/duration
-  #
-  def duration
-    When::TM::Duration.dhms(*self)
-  end
-  alias :to_duration :duration
-end
+# -*- coding: utf-8 -*-
+=begin
+  Copyright (C) 2013 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
+
+#
+# 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)
+    case other
+    when When::TM::Duration ; self - other.rational_duration
+    when When::TimeValue    ; self._minus_(kind_of?(DateTime) ? other.to_date_time : other.to_date)
+    else                    ; self._minus_(other)
+    end
+  end
+end
+
+#
+# Extensions to Time class
+#
+# @private
+class Time
+
+  alias :_plus_  :+
+  def +(other)
+    other.kind_of?(When::TM::Duration) ? self + other.to_f : self._plus_(other)
+  end
+
+
+  alias :_minus_ :-
+  def -(other)
+    other.kind_of?(When::TM::Duration) ? self - other.to_f : self._minus_(other)
+  end
+end
+
+#
+# Extensions to Numeric class
+#
+class Numeric
+
+  #
+  # メソッド名に相当する単位で表した When::TM::Duration
+  # @method unit_duration
+  # @return [When::TM::Duration]
+  # @note unit は second, minute, hour, day, week または
+  #       seconds, minutes, hours, days, weeks に読み替える
+  # @note core/duration
+
+  # @private
+  When::TM::Duration::Unit.keys.each do |key|
+
+    module_eval %Q{
+      # for When::TM::Duration
+      def #{key}_duration
+        When::TM::Duration.new(self * When::TM::Duration::Unit['#{key}'])
+      end
+      alias :#{key}s_duration :#{key}_duration
+    }
+  end
+end
+
+#
+# Extensions to Array class
+#
+class Array
+
+  #
+  # self を Array<日, 時, 分, 秒> とみなして When::TM::Duration を生成
+  #
+  # @return [When::TM::Duration]
+  #
+  # @note core/duration
+  #
+  def duration
+    When::TM::Duration.dhms(*self)
+  end
+  alias :to_duration :duration
+end

data/lib/when_exe/core/extension.rb

@@ -1,504 +1,504 @@
-# -*- coding: utf-8 -*-
-=begin
-  Copyright (C) 2013-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
-
-require 'date'
-require 'when_exe/core/duration'
-
-#
-# 標準クラスの拡張
-#
-
-#
-# Extensions to Time class
-#
-class Time
-  #
-  # 対応する When::TM::JulianDate を生成
-  #
-  # @param [Hash] options 以下の通り
-  # @option options [When::TM::Clock] :clock
-  # @option options [When::Parts::Timezone] :tz
-  #
-  # @return [When::TM::JulianDate]
-  #
-  # @note core/extension
-  #
-  def julian_date(options={})
-    options[:clock] ||= Clock(self.utc_offset)
-    When::TM::JulianDate.universal_time(self.to_f * When::TM::IntervalLength::SECOND, options)
-  end
-  alias :to_julian_date :julian_date
-
-  #
-  # 対応する When::TM::DateAndTime を生成
-  #
-  # @param [Hash] options 暦法や時法などの指定
-  #
-  # @see When::TM::TemporalPosition._instance
-  #
-  # @return [When::TM::DateAndTime]
-  #
-  # @note core/extension
-  #
-  def tm_pos(options={})
-    When.at(self, options)
-  end
-  alias :to_tm_pos :tm_pos
-end
-
-#
-# Extensions to Date class
-#
-class Date
-
-  if When::TM.const_defined?(:TemporalPosition)
-
-    include When::TM::TemporalPosition::Conversion
-
-    #
-    # 対応する When::TM::CalDate or DateAndTime を生成
-    #
-    # @param [Hash] options 暦法や時法などの指定
-    #   see {When::TM::TemporalPosition._instance}
-    #
-    # @return [When::TM::CalDate, When::TM::DateAndTime]
-    #
-    # @note 暦法の指定がない場合、start メソッドの値によって
-    #       Julian / Gregorian / Civil 暦法を選択する
-    #
-    def tm_pos(options={})
-      options[:frame] ||= When::CalendarTypes::Christian._default_start(self)
-      super(options)
-    end
-    alias :to_tm_pos :tm_pos
-  end
-
-  alias :__method_missing :method_missing
-
-  # その他のメソッド
-  #
-  # @note
-  #   self で定義されていないメソッドは
-  #   tm_pos で変換して処理する
-  #
-  def method_missing(name, *args, &block)
-    return __method_missing(name, *args, &block) if When::Parts::MethodCash::Escape.key?(name)
-    self.class.module_eval %Q{
-      def #{name}(*args, &block)
-        result = tm_pos.send("#{name}", *args, &block)
-        case result
-        when When::TM::DateAndTime ; result.to_date_time
-        when When::TM::CalDate     ; result.to_date
-        else                       ; result
-        end
-      end
-    } unless When::Parts::MethodCash.escape(name)
-    result = tm_pos.send(name, *args, &block)
-    case result
-    when When::TM::DateAndTime ; result.to_date_time
-    when When::TM::CalDate     ; result.to_date
-    else                       ; result
-    end
-  end
-end
-
-#
-# Extensions to Numeric class
-#
-class Numeric
-
-  include When::TM::TemporalPosition::Conversion if When::TM.const_defined?(:TemporalPosition)
-
-  #
-  # 曜日(剰余類)
-  #
-  # @return [When::Coordinates::Residue] 月曜を 0 とする七曜(剰余類)
-  #
-  # @note core/extension
-  #
-  def to_day_of_week
-    When::Coordinates::Residue.day_of_week(self)
-  end
-  alias :day_of_week :to_day_of_week
-
-  #
-  # 月名
-  #
-  # self が 月番号の月名を返します
-  #
-  # @return [When::BasicTypes::M17n] 月名
-  #
-  # @note core/extension
-  #
-  def to_month_name
-    When::BasicTypes::M17n.month_name(self)
-  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
-
-  #
-  # self を秒数とみなして When::Parts::Timezone::Base を取得
-  #
-  # @return [When::Parts::Timezone::Base]
-  #
-  # @note core/extension
-  #
-  def clock
-    When.Clock(self)
-  end
-  alias :to_clock :clock
-
-  # メソッド名に相当する単位で表した When::TM::IntervalLength
-  # @method unit_interval_length
-  # @return [When::TM::IntervalLength]
-  #
-  # @note unit は second, minute, hour, day, week または
-  #       seconds, minutes, hours, days, weeks に読み替える
-  #
-  # @note core/extension
-
-  # メソッド名に相当する単位で表した When::TM::PeriodDuration
-  # @method unit_period_duration
-  # @return [When::TM::PeriodDuration]
-  #
-  # @note unit は second, minute, hour, day, week, month, year または
-  #       seconds, minutes, hours, days, weeks, months, years に読み替える
-  #
-  # @note core/extension
-
-  # @private
-  When::TM::Duration::Unit.keys.each do |key|
-
-    module_eval %Q{
-      # for When::TM::IntervalLength
-      def #{key}_interval_length
-        When::TM::IntervalLength.new(self, '#{key}')
-      end
-      alias :#{key}s_interval_length :#{key}_interval_length
-
-      # for When::TM::PeriodDuration
-      def #{key}_period_duration
-        When::TM::PeriodDuration.new(self, When::#{key.upcase})
-      end
-      alias :#{key}s_period_duration :#{key}_period_duration
-    }
-  end
-end
-
-#
-# Extensions to String class
-#
-class String
-
-  include When::EncodingConversion
-
-  #
-  # self を When::BasicTypes::M17n に変換する
-  #
-  # @return [When::BasicTypes::M17n]
-  #
-  # @note core/extension
-  #
-  def to_m17n
-    When::BasicTypes::M17n.new(self)
-  end
-
-  # 特定 locale に対応した文字列の取得
-  #
-  # @param [String] loc locale の指定
-  #
-  # @return [String] loc に対応した文字列
-  #
-  # @note core/extension
-  #
-  def translate(loc='')
-    return encode($1) if loc =~ /\.(.+)$/
-    return self
-  end
-  alias :/ :translate
-
-  # 包摂リストに登録されている文字を包摂する
-  #
-  # @param [Hash] pattern 包摂ルール
-  #
-  # @return [String] 包摂結果
-  #
-  def ideographic_unification(pattern=When::Locale._unification)
-    When::Locale.ideographic_unification(self, pattern)
-  end
-
-  #
-  # self を IRI とみなして When::Parts::Resource を取得
-  #
-  # @param [String] namespace デフォルトの namespace
-  #
-  # @return [When::Parts::Resource]
-  #
-  # @note core/extension
-  #
-  def resource(namespace=nil)
-    When::Parts::Resource._instance(self, namespace)
-  end
-  alias :to_resource :resource
-
-  #
-  # self をプレフィクス '_c:' を省略した IRI とみなして When::TM::Calendar を取得
-  #
-  # @return [When::TM::Calendar]
-  #
-  # @note core/extension
-  #
-  def calendar
-    When::Parts::Resource._instance(self, '_c:')
-  end
-  alias :to_calendar :calendar
-
-  #
-  # self を時間帯文字列とみなして When::Parts::Timezone::Base を取得
-  #
-  # @return [When::Parts::Timezone::Base]
-  #
-  # @note core/extension
-  #
-  def clock
-    When.Clock(self)
-  end
-  alias :to_clock :clock
-
-  #
-  # self をプレフィクス '_c:' を省略した IRI とみなして When::TM::CalendarNote を取得
-  #
-  # @return [When::TM::CalendarNote]
-  #
-  # @note core/extension
-  #
-  def calendar_note
-    When::Parts::Resource._instance(self, '_n:')
-  end
-  alias :to_calendar_note :calendar_note
-
-  #
-  # self をプレフィクス '_e:' を省略した IRI とみなして When::TM::CalendarEra を取得
-  #
-  # @return [When::TM::CalendarEra]
-  #
-  # @note core/extension
-  #
-  def calendar_era
-    When::Parts::Resource._instance(self, '_e:')
-  end
-  alias :to_calendar_era :calendar_era
-
-  #
-  # self をプレフィクス '_m:' を省略した IRI とみなして When::BasicTypes::M17n を取得
-  #
-  # @return [When::BasicTypes::M17n]
-  #
-  # @note core/extension
-  #
-  def m17n
-    When::Parts::Resource._instance(self, '_m:')
-  end
-
-  # self を幹と枝の要素と解釈してWhen::Coordinates::Pair を生成
-  #
-  # @see When::Coordinates::Pair._force_pair
-  #
-  # @return [When::Coordinates::Pair]
-  #
-  def to_pair
-    Coordinates::Pair._force_pair(self)
-  end
-  alias :pair :to_pair
-
-  #
-  # self を検索する暦年代とみなして登録された When::TM::CalendarEraを検索
-  #
-  # @overload calendar_era(options={}
-  #   @param [Hash] options
-  #   see alse {When.era}
-  #
-  # @return [Array<When::TM::CalendarEra>]
-  #
-  #   検索結果を When::TM::CalendarEra オブジェクトの Array で返す。
-  #   ヒット数が不足している場合は、_setup_ で指定した順序で When::TM::CalendarEra オブジェクトを
-  #   生成しつつ読み込んで検索する。
-  #
-  # @note core/extension
-  #
-  def era(*args)
-    When::TM::CalendarEra._instance(*([self] + args))
-  end
-  alias :to_era :era
-
-  #
-  # self をWhen.exe Standard Expression とみなして When::TM::TemporalPosition を生成
-  #
-  # @param [Hash] options 暦法や時法などの指定
-  #
-  # @see When::TM::TemporalPosition._instance
-  #
-  # @return [When::TM::TemporalPosition]
-  #
-  # @note core/extension
-  #
-  def when?(options={})
-    When.when?(self, options)
-  end
-  alias :tm_pos    :when?
-  alias :to_tm_pos :when?
-
-  #
-  # 曜日(剰余類)
-  #
-  # self の最初の3文字から決定した七曜(剰余類)を返します。
-  # 一致する七曜(剰余類)がない場合、名前の一致するその他の剰余類を探して返します。
-  #
-  # @return [When::Coordinates::Residue]
-  #   [ 月曜を 0 とする七曜(剰余類)  ]
-  #   [ 名前の一致するその他の剰余類 ]
-  #
-  # @note core/extension
-  #
-  def to_residue
-    When::Coordinates::Residue.to_residue(self)
-  end
-  alias :residue     :to_residue
-  alias :day_of_week :to_residue
-
-  #
-  # 月名
-  #
-  # self の最初の3文字から決定した月名を返します。
-  # 一致する月名がない場合、名前の一致するその他のM17nを探して返します。
-  # (self が M17n なら name 自身をそのまま返します)
-  #
-  # @return [When::BasicTypes::M17n] 月名
-  #
-  # @note core/extension
-  #
-  def to_month_name
-    When::BasicTypes::M17n.month_name(self)
-  end
-  alias :month_name :to_month_name
-
-  #
-  # self をWhen.exe Standard Expression とみなして When::TM::TemporalPosition を生成し“^”演算を実行
-  #
-  # @return [When::TM::TemporalPosition の “^”演算結果]
-  #
-  # @note core/extension
-  #
-  def ^(other)
-    When::TM::TemporalPosition._instance(self, {}) ^ other
-  end
-end
-
-#
-# Extensions to Regexp class
-#
-class Regexp
-
-  include When::EncodingConversion
-
-  #
-  # self を検索する暦年代にマッチする正規表現とみなして登録された When::TM::CalendarEraを検索
-  #
-  # @overload calendar_era(options={}
-  #   @param [Hash] options
-  #   see also {When.era}
-  #
-  # @return [Array<When::TM::CalendarEra>]
-  #
-  #   検索結果を When::TM::CalendarEra オブジェクトの Array で返す。
-  #   ヒット数が不足している場合は、_setup_ で指定した順序で When::TM::CalendarEra オブジェクトを
-  #   生成しつつ読み込んで検索する。
-  #
-  # @note core/extension
-  #
-  def era(*args)
-    When::TM::CalendarEra._instance(*([self] + args))
-  end
-  alias :to_era :era
-
-  # 包摂リストに登録されている文字を包摂する
-  #
-  # @param [Hash] pattern 包摂ルール
-  #
-  # @return [Regexp] 包摂結果
-  #
-  def ideographic_unification(pattern=When::Locale._unification)
-    When::Locale.ideographic_unification(self, pattern)
-  end
-end
-
-#
-# Extensions to Array class
-#
-class Array
-  #
-  # self を暦要素の Array とみなして [When::TM::TemporalPosition] を生成
-  #
-  # @param [Hash] options 暦法や時法などの指定
-  #   @option options [Symbol] :invalid
-  #     [:raise     日時が存在しない場合例外発生              ]
-  #     [:check     日時が存在しない場合 nil を返す           ]
-  #     [その他/nil 日時が存在することを確認しない(デフォルト)]
-  #   see also {When::TM::TemporalPosition._instance}
-  #
-  # @return [When::TM::TemporalPosition]
-  # @raise [ArgumentError]
-  #   options[ :invalid ] が :raise で、日時が存在しない場合
-  #
-  # @note core/extension
-  #
-  def tm_pos(options={})
-    When.TemporalPosition(*(self.dup << options))
-  end
-  alias :to_tm_pos :tm_pos
-
-  # self を[幹,枝]と解釈してWhen::Coordinates::Pair を生成
-  #
-  # @see When::Coordinates::Pair._force_pair
-  #
-  # @return [When::Coordinates::Pair]
-  #
-  def to_pair
-    Coordinates::Pair._force_pair(*self)
-  end
-  alias :pair :to_pair
-end
-
-#
-# Extensions to Module class
-#
-class Module
-  unless method_defined?(:_const_missing)
-    alias :_const_missing :const_missing
-
-    #
-    # When 直下に定数として定義する時法・暦法(暗黙的追加)
-    #
-    def const_missing(name)
-      if When.const_defined?(name)
-        _const_missing(name)
-      else
-        When.const_missing(name)
-      end
-    end
-  end
-end
+# -*- coding: utf-8 -*-
+=begin
+  Copyright (C) 2013-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
+
+require 'date'
+require 'when_exe/core/duration'
+
+#
+# 標準クラスの拡張
+#
+
+#
+# Extensions to Time class
+#
+class Time
+  #
+  # 対応する When::TM::JulianDate を生成
+  #
+  # @param [Hash] options 以下の通り
+  # @option options [When::TM::Clock] :clock
+  # @option options [When::Parts::Timezone] :tz
+  #
+  # @return [When::TM::JulianDate]
+  #
+  # @note core/extension
+  #
+  def julian_date(options={})
+    options[:clock] ||= Clock(self.utc_offset)
+    When::TM::JulianDate.universal_time(self.to_f * When::TM::IntervalLength::SECOND, options)
+  end
+  alias :to_julian_date :julian_date
+
+  #
+  # 対応する When::TM::DateAndTime を生成
+  #
+  # @param [Hash] options 暦法や時法などの指定
+  #
+  # @see When::TM::TemporalPosition._instance
+  #
+  # @return [When::TM::DateAndTime]
+  #
+  # @note core/extension
+  #
+  def tm_pos(options={})
+    When.at(self, options)
+  end
+  alias :to_tm_pos :tm_pos
+end
+
+#
+# Extensions to Date class
+#
+class Date
+
+  if When::TM.const_defined?(:TemporalPosition)
+
+    include When::TM::TemporalPosition::Conversion
+
+    #
+    # 対応する When::TM::CalDate or DateAndTime を生成
+    #
+    # @param [Hash] options 暦法や時法などの指定
+    #   see {When::TM::TemporalPosition._instance}
+    #
+    # @return [When::TM::CalDate, When::TM::DateAndTime]
+    #
+    # @note 暦法の指定がない場合、start メソッドの値によって
+    #       Julian / Gregorian / Civil 暦法を選択する
+    #
+    def tm_pos(options={})
+      options[:frame] ||= When::CalendarTypes::Christian._default_start(self)
+      super(options)
+    end
+    alias :to_tm_pos :tm_pos
+  end
+
+  alias :__method_missing :method_missing
+
+  # その他のメソッド
+  #
+  # @note
+  #   self で定義されていないメソッドは
+  #   tm_pos で変換して処理する
+  #
+  def method_missing(name, *args, &block)
+    return __method_missing(name, *args, &block) if When::Parts::MethodCash::Escape.key?(name)
+    self.class.module_eval %Q{
+      def #{name}(*args, &block)
+        result = tm_pos.send("#{name}", *args, &block)
+        case result
+        when When::TM::DateAndTime ; result.to_date_time
+        when When::TM::CalDate     ; result.to_date
+        else                       ; result
+        end
+      end
+    } unless When::Parts::MethodCash.escape(name)
+    result = tm_pos.send(name, *args, &block)
+    case result
+    when When::TM::DateAndTime ; result.to_date_time
+    when When::TM::CalDate     ; result.to_date
+    else                       ; result
+    end
+  end
+end
+
+#
+# Extensions to Numeric class
+#
+class Numeric
+
+  include When::TM::TemporalPosition::Conversion if When::TM.const_defined?(:TemporalPosition)
+
+  #
+  # 曜日(剰余類)
+  #
+  # @return [When::Coordinates::Residue] 月曜を 0 とする七曜(剰余類)
+  #
+  # @note core/extension
+  #
+  def to_day_of_week
+    When::Coordinates::Residue.day_of_week(self)
+  end
+  alias :day_of_week :to_day_of_week
+
+  #
+  # 月名
+  #
+  # self が 月番号の月名を返します
+  #
+  # @return [When::BasicTypes::M17n] 月名
+  #
+  # @note core/extension
+  #
+  def to_month_name
+    When::BasicTypes::M17n.month_name(self)
+  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
+
+  #
+  # self を秒数とみなして When::Parts::Timezone::Base を取得
+  #
+  # @return [When::Parts::Timezone::Base]
+  #
+  # @note core/extension
+  #
+  def clock
+    When.Clock(self)
+  end
+  alias :to_clock :clock
+
+  # メソッド名に相当する単位で表した When::TM::IntervalLength
+  # @method unit_interval_length
+  # @return [When::TM::IntervalLength]
+  #
+  # @note unit は second, minute, hour, day, week または
+  #       seconds, minutes, hours, days, weeks に読み替える
+  #
+  # @note core/extension
+
+  # メソッド名に相当する単位で表した When::TM::PeriodDuration
+  # @method unit_period_duration
+  # @return [When::TM::PeriodDuration]
+  #
+  # @note unit は second, minute, hour, day, week, month, year または
+  #       seconds, minutes, hours, days, weeks, months, years に読み替える
+  #
+  # @note core/extension
+
+  # @private
+  When::TM::Duration::Unit.keys.each do |key|
+
+    module_eval %Q{
+      # for When::TM::IntervalLength
+      def #{key}_interval_length
+        When::TM::IntervalLength.new(self, '#{key}')
+      end
+      alias :#{key}s_interval_length :#{key}_interval_length
+
+      # for When::TM::PeriodDuration
+      def #{key}_period_duration
+        When::TM::PeriodDuration.new(self, When::#{key.upcase})
+      end
+      alias :#{key}s_period_duration :#{key}_period_duration
+    }
+  end
+end
+
+#
+# Extensions to String class
+#
+class String
+
+  include When::EncodingConversion
+
+  #
+  # self を When::BasicTypes::M17n に変換する
+  #
+  # @return [When::BasicTypes::M17n]
+  #
+  # @note core/extension
+  #
+  def to_m17n
+    When::BasicTypes::M17n.new(self)
+  end
+
+  # 特定 locale に対応した文字列の取得
+  #
+  # @param [String] loc locale の指定
+  #
+  # @return [String] loc に対応した文字列
+  #
+  # @note core/extension
+  #
+  def translate(loc='')
+    return encode($1) if loc =~ /\.(.+)\z/
+    return self
+  end
+  alias :/ :translate
+
+  # 包摂リストに登録されている文字を包摂する
+  #
+  # @param [Hash] pattern 包摂ルール
+  #
+  # @return [String] 包摂結果
+  #
+  def ideographic_unification(pattern=When::Locale._unification)
+    When::Locale.ideographic_unification(self, pattern)
+  end
+
+  #
+  # self を IRI とみなして When::Parts::Resource を取得
+  #
+  # @param [String] namespace デフォルトの namespace
+  #
+  # @return [When::Parts::Resource]
+  #
+  # @note core/extension
+  #
+  def resource(namespace=nil)
+    When::Parts::Resource._instance(self, namespace)
+  end
+  alias :to_resource :resource
+
+  #
+  # self をプレフィクス '_c:' を省略した IRI とみなして When::TM::Calendar を取得
+  #
+  # @return [When::TM::Calendar]
+  #
+  # @note core/extension
+  #
+  def calendar
+    When::Parts::Resource._instance(self, '_c:')
+  end
+  alias :to_calendar :calendar
+
+  #
+  # self を時間帯文字列とみなして When::Parts::Timezone::Base を取得
+  #
+  # @return [When::Parts::Timezone::Base]
+  #
+  # @note core/extension
+  #
+  def clock
+    When.Clock(self)
+  end
+  alias :to_clock :clock
+
+  #
+  # self をプレフィクス '_c:' を省略した IRI とみなして When::TM::CalendarNote を取得
+  #
+  # @return [When::TM::CalendarNote]
+  #
+  # @note core/extension
+  #
+  def calendar_note
+    When::Parts::Resource._instance(self, '_n:')
+  end
+  alias :to_calendar_note :calendar_note
+
+  #
+  # self をプレフィクス '_e:' を省略した IRI とみなして When::TM::CalendarEra を取得
+  #
+  # @return [When::TM::CalendarEra]
+  #
+  # @note core/extension
+  #
+  def calendar_era
+    When::Parts::Resource._instance(self, '_e:')
+  end
+  alias :to_calendar_era :calendar_era
+
+  #
+  # self をプレフィクス '_m:' を省略した IRI とみなして When::BasicTypes::M17n を取得
+  #
+  # @return [When::BasicTypes::M17n]
+  #
+  # @note core/extension
+  #
+  def m17n
+    When::Parts::Resource._instance(self, '_m:')
+  end
+
+  # self を幹と枝の要素と解釈してWhen::Coordinates::Pair を生成
+  #
+  # @see When::Coordinates::Pair._force_pair
+  #
+  # @return [When::Coordinates::Pair]
+  #
+  def to_pair
+    Coordinates::Pair._force_pair(self)
+  end
+  alias :pair :to_pair
+
+  #
+  # self を検索する暦年代とみなして登録された When::TM::CalendarEraを検索
+  #
+  # @overload calendar_era(options={}
+  #   @param [Hash] options
+  #   see alse {When.era}
+  #
+  # @return [Array<When::TM::CalendarEra>]
+  #
+  #   検索結果を When::TM::CalendarEra オブジェクトの Array で返す。
+  #   ヒット数が不足している場合は、_setup_ で指定した順序で When::TM::CalendarEra オブジェクトを
+  #   生成しつつ読み込んで検索する。
+  #
+  # @note core/extension
+  #
+  def era(*args)
+    When::TM::CalendarEra._instance(*([self] + args))
+  end
+  alias :to_era :era
+
+  #
+  # self をWhen.exe Standard Expression とみなして When::TM::TemporalPosition を生成
+  #
+  # @param [Hash] options 暦法や時法などの指定
+  #
+  # @see When::TM::TemporalPosition._instance
+  #
+  # @return [When::TM::TemporalPosition]
+  #
+  # @note core/extension
+  #
+  def when?(options={})
+    When.when?(self, options)
+  end
+  alias :tm_pos    :when?
+  alias :to_tm_pos :when?
+
+  #
+  # 曜日(剰余類)
+  #
+  # self の最初の3文字から決定した七曜(剰余類)を返します。
+  # 一致する七曜(剰余類)がない場合、名前の一致するその他の剰余類を探して返します。
+  #
+  # @return [When::Coordinates::Residue]
+  #   [ 月曜を 0 とする七曜(剰余類)  ]
+  #   [ 名前の一致するその他の剰余類 ]
+  #
+  # @note core/extension
+  #
+  def to_residue
+    When::Coordinates::Residue.to_residue(self)
+  end
+  alias :residue     :to_residue
+  alias :day_of_week :to_residue
+
+  #
+  # 月名
+  #
+  # self の最初の3文字から決定した月名を返します。
+  # 一致する月名がない場合、名前の一致するその他のM17nを探して返します。
+  # (self が M17n なら name 自身をそのまま返します)
+  #
+  # @return [When::BasicTypes::M17n] 月名
+  #
+  # @note core/extension
+  #
+  def to_month_name
+    When::BasicTypes::M17n.month_name(self)
+  end
+  alias :month_name :to_month_name
+
+  #
+  # self をWhen.exe Standard Expression とみなして When::TM::TemporalPosition を生成し“^”演算を実行
+  #
+  # @return [When::TM::TemporalPosition の “^”演算結果]
+  #
+  # @note core/extension
+  #
+  def ^(other)
+    When::TM::TemporalPosition._instance(self, {}) ^ other
+  end
+end
+
+#
+# Extensions to Regexp class
+#
+class Regexp
+
+  include When::EncodingConversion
+
+  #
+  # self を検索する暦年代にマッチする正規表現とみなして登録された When::TM::CalendarEraを検索
+  #
+  # @overload calendar_era(options={}
+  #   @param [Hash] options
+  #   see also {When.era}
+  #
+  # @return [Array<When::TM::CalendarEra>]
+  #
+  #   検索結果を When::TM::CalendarEra オブジェクトの Array で返す。
+  #   ヒット数が不足している場合は、_setup_ で指定した順序で When::TM::CalendarEra オブジェクトを
+  #   生成しつつ読み込んで検索する。
+  #
+  # @note core/extension
+  #
+  def era(*args)
+    When::TM::CalendarEra._instance(*([self] + args))
+  end
+  alias :to_era :era
+
+  # 包摂リストに登録されている文字を包摂する
+  #
+  # @param [Hash] pattern 包摂ルール
+  #
+  # @return [Regexp] 包摂結果
+  #
+  def ideographic_unification(pattern=When::Locale._unification)
+    When::Locale.ideographic_unification(self, pattern)
+  end
+end
+
+#
+# Extensions to Array class
+#
+class Array
+  #
+  # self を暦要素の Array とみなして [When::TM::TemporalPosition] を生成
+  #
+  # @param [Hash] options 暦法や時法などの指定
+  #   @option options [Symbol] :invalid
+  #     [:raise     日時が存在しない場合例外発生              ]
+  #     [:check     日時が存在しない場合 nil を返す           ]
+  #     [その他/nil 日時が存在することを確認しない(デフォルト)]
+  #   see also {When::TM::TemporalPosition._instance}
+  #
+  # @return [When::TM::TemporalPosition]
+  # @raise [ArgumentError]
+  #   options[ :invalid ] が :raise で、日時が存在しない場合
+  #
+  # @note core/extension
+  #
+  def tm_pos(options={})
+    When.TemporalPosition(*(self.dup << options))
+  end
+  alias :to_tm_pos :tm_pos
+
+  # self を[幹,枝]と解釈してWhen::Coordinates::Pair を生成
+  #
+  # @see When::Coordinates::Pair._force_pair
+  #
+  # @return [When::Coordinates::Pair]
+  #
+  def to_pair
+    Coordinates::Pair._force_pair(*self)
+  end
+  alias :pair :to_pair
+end
+
+#
+# Extensions to Module class
+#
+class Module
+  unless method_defined?(:_const_missing)
+    alias :_const_missing :const_missing
+
+    #
+    # When 直下に定数として定義する時法・暦法(暗黙的追加)
+    #
+    def const_missing(name)
+      if When.const_defined?(name)
+        _const_missing(name)
+      else
+        When.const_missing(name)
+      end
+    end
+  end
+end