when_exe 0.2.100 → 0.3.1

data/lib/when_exe/core/compatibility.rb

@@ -0,0 +1,54 @@
+# -*- 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
+
+#
+# Ruby .8.x 系のためのための互換性確保用コード
+#
+
+class String
+  unless "1".respond_to?(:encode)
+    require('iconv')
+    # encode
+    #
+    # @param [String] code 文字コード
+    #
+    # @return [String] 文字コードcode に変換した文字列
+    #
+    def encode(code)
+      return Iconv.iconv(code, 'UTF-8', self)[0]
+    end
+  end
+
+  unless "1".respond_to?(:to_r)
+    # to_r(もどき)
+    #
+    # 文字列を numeric に変換する
+    # (できるだけ情報が落ちない型を選択)
+    #
+    # @return [Numeric]
+    def to_r
+      case self
+      when /\.|E/i
+        to_f
+      when /\//
+        Rational
+        Rational(*split(/\//).map {|v| v.to_i})
+      else
+        to_i
+      end
+    end
+  end
+end
+
+#
+# 例外クラス
+#
+unless Object.const_defined?(:StopIteration)
+  # @private
+  class StopIteration < IndexError
+  end
+end

data/lib/when_exe/core/duration.rb

@@ -1,72 +1,72 @@
-# -*- coding: utf-8 -*-
-=begin
-  Copyright (C) 2013 Takashi SUGA
-
-  You may use and/or modify this file according to the license described in the COPYING file included in this archive.
-=end
-
-#
-# When::TM::Duration のための標準クラスの拡張
-#
-
-#
-# 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 のための標準クラスの拡張
+#
+
+#
+# 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

@@ -0,0 +1,382 @@
+# -*- 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
+
+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={})
+    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_position(options={})
+    When.at(self, options)
+  end
+  alias :to_tm_position :tm_position
+end
+
+#
+# Extensions to Date class
+#
+class Date
+
+  include When::TM::TemporalPosition::Conversion if When::TM.const_defined?(:TemporalPosition)
+
+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
+
+  # メソッド名に相当する単位で表した 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
+
+  #
+  # 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::Parts::Locale::DefaultUnification)
+    When::Parts::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 をプレフィクス '_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 pair
+    Coordinates::Pair._force_pair(self)
+  end
+
+  #
+  # 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_position    :when?
+  alias :to_tm_position :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
+
+  #
+  # 月名
+  #
+  # 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
+  #
+  # 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::Parts::Locale::DefaultUnification)
+    When::Parts::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_position(options={})
+    When.TemporalPosition(*(self.dup << options))
+  end
+  alias :to_tm_position :tm_position
+end