when_exe 0.3.4 → 0.3.5

data/lib/when_exe/googlecalendar.rb

@@ -1,6 +1,6 @@
 # -*- coding: utf-8 -*-
 =begin
-  Copyright (C) 2012 Takashi SUGA
+  Copyright (C) 2012-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

data/lib/when_exe/icalendar.rb

@@ -29,7 +29,7 @@
 #     他のソフトウェアとの互換性を損なう可能性があるが、本ライブラリは両方の動作の違いを
 #     記述できる必要があると判断。
 # * BYDAY/c=n*e±s(,..)
-#     c で指定したWhen::CalendarTypes::CalendarNoteオブジェクトのイベントeのうち、
+#     c で指定したWhen::CalendarNoteオブジェクトのイベントeのうち、
 #     n番目のものについて、その±s日目
 #     デフォルトは n=all, s=0, cとeは省略不可(eはcのメソッドとして定義されている必要がある)
 #     example: 'BYDAY/Christian=easter-2' は、キリスト教の聖金曜日
@@ -505,6 +505,7 @@ module When::V
       }
       return copy
     end
+    alias :subset :intersection
 
     # @private
     def _enumerator_list(args)
@@ -534,10 +535,6 @@ module When::V
     class << self
       include When::Parts::Resource::Pool
 
-      # 最大打ち切り時間
-      # @return [When::TM::IntervalLength]
-      attr_reader :default_until
-
       # When::V::Event Class のグローバルな設定を行う
       #
       # @param [When::TM::IntervalLength] default_until
@@ -557,6 +554,21 @@ module When::V
         @_pool = {}
         @default_until = default_until
       end
+
+      # 設定情報を取得する
+      #
+      # @return [Hash] 設定情報
+      #
+      def _setup_info
+        {:until => default_until}
+      end
+
+      # 最大打ち切り時間
+      #
+      # @return [When::TM::IntervalLength]
+      def default_until
+        @default_until ||= 1000*When::TM::Duration::YEAR
+      end
     end
 
     # SUMMARY Property
@@ -672,8 +684,8 @@ module When::V
     #
     # @overload each(first, direction, count_limit)
     #   @param [When::TM::TemporalPosition] first  始点
-    #   @param [Symbol]  direction   :forward - 昇順, :reverse - 降順
-    #   @param [Integer] count_limit 繰り返し回数(デフォルトは指定なし)
+    #   @param [Symbol]  direction   :forward - 昇順, :reverse - 降順  (options[:direction]で渡してもよい)
+    #   @param [Integer] count_limit 繰り返し回数(デフォルトは指定なし, options[:count_limit]で渡してもよい)
     #
     # @return [Enumerator]
     #
@@ -923,7 +935,7 @@ module When::V
 
     # @private
     def _need_validate
-      (@difference != 0)
+      @tz_difference != 0
     end
 
     private
@@ -942,7 +954,7 @@ module When::V
           @standard = tz if (@standard==nil || tz.universal_time > @standard.universal_time)
         end
       end
-      @difference = @standard.universal_time - @daylight.universal_time
+      @tz_difference = @standard.universal_time - @daylight.universal_time
 
       name   = @property['tzid'].object
       case self.class[name]
@@ -1057,7 +1069,7 @@ module When::V
         @options = When::Parts::Enumerator._options(args)
         @exdate  = @options.delete(:exdate)
         @exevent = @options.delete(:exevent)
-        @parent, @rule, @dtstart, @duration, *args = args
+        @parent, @rule, @dtstart, @duration, *rest = args
         @dtstart = When.when?(@dtstart)
         @rule    = self.class._decode_rule(@rule, @dtstart) if (@rule.kind_of?(String))
         @logics  = @rule[:logics]
@@ -1071,7 +1083,7 @@ module When::V
             @dtstart = @dtstart.dup._copy({:tz_prop=>nil, :validate=>:done})
           end
         end
-        _range(args)
+        _range(rest)
         _rewind
       end
 
@@ -1205,7 +1217,7 @@ module When::V
           rule['UNTIL']    = When.when?(rule['UNTIL'])
         end
         unless rule['UNTIL']
-          rule['UNTIL'] = When.now + (Event.default_until || 1000*When::TM::Duration::YEAR)
+          rule['UNTIL'] = When.now + Event.default_until
         end
         rule['COUNT']      = rule['COUNT'].to_i if (rule['COUNT'])
         rule['INTERVAL']   = (rule['INTERVAL'] || 1).to_i
@@ -1490,9 +1502,9 @@ module When::V
               shift = (period[PostFreqIndex[@by_part]] != 0)
               raise ArgumentError, "n*e+/-s format not permitted" if (nth || shift) && @freq_index >= When::DAY
               if (nth==nil || nth>0)
-                enum = @ref.enum_for(lower_bound, :forward, spec)
+                enum = @ref.enum_for(lower_bound, :forward, {:event=>spec})
               else
-                enum = @ref.enum_for(higher_bound, :reverse, spec)
+                enum = @ref.enum_for(higher_bound, :reverse, {:event=>spec})
               end
               if (nth)
                 date = nil

data/lib/when_exe/inspect.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
@@ -8,6 +8,10 @@
 module When
   module Parts::Resource
 
+    # option key for _m17n_form
+    # @private
+    FormOptions = [:precision, :camel, :method, :locale, :prefix]
+   
     #
     # オブジェクトの内容を Hash 化
     #
@@ -15,9 +19,9 @@ module When
     # @param [Hash] options 下記のとおり
     # @option options [Numeric] :precision 指定があれば「イベント名(イベント時刻)」出力の時刻を指定の精度に丸める
     # @option options [Boolean] :camel   true ならシンボルを camel case にする
+    # @option options [Symbol]  :method  _to_hash_value で変換に用いるメソッド(:to_m17n, :iri など, 指定なしなら変換しない)
     # @option options [String]  :locale  文字列化の locale(指定なしは M17nオブジェクトに変換)
-    # @option options [Boolean] :simple  true ならIRI の先頭部分を簡約表現にする
-    # @option options [Boolean] :residue true なら Residue をそのまま出力
+    # @option options [Boolean] :prefix  true ならIRI の先頭部分を簡約表現にする
     # @option options [Object]  :その他  各クラス#_to_h を参照
     #
     # @return [Hash] (Whenモジュール内のクラスは文字列 or M17n化)
@@ -33,7 +37,8 @@ module When
     #
     # @return [String] to_h 結果を JSON文字列化したもの
     #
-    def _to_json(options={})
+    def to_json(options={})
+      options[:method] = :to_m17n unless options.key?(:method)
       JSON.dump(to_h(options))
     end
 
@@ -41,7 +46,15 @@ module When
     # _m17n_form のための要素生成
     # @private
     def _to_hash_value(options={})
-       @_pool ? When::Parts::Resource._path_with_prefix(self, options[:simple]) : self
+       method = options[:method]
+       if method.kind_of?(Symbol)
+         if respond_to?(method, true) && method != :iri
+           return send(method)
+         elsif registered?
+           return iri(options[:prefix])
+         end
+       end
+       self
     end
 
     private
@@ -59,7 +72,7 @@ module When
       hash = {}
       self.class::HashProperty.each do |property|
         method, skip = property
-        value        = send(method)
+        value        = respond_to?(method, true) ? send(method) : skip
         hash[method] = value unless value == skip || value.class == skip
       end
       hash
@@ -72,9 +85,9 @@ module When
     # @param [Hash] options 下記の通り
     # @option options [Numeric] :precision 指定があれば「イベント名(イベント時刻)」出力の時刻を指定の精度に丸める
     # @option options [Boolean] :camel     true ならシンボルを camel case にする
+    # @option options [Symbol]  :method  _to_hash_value で変換に用いるメソッド(:to_m17n, :iri など, 指定なしなら変換しない)
     # @option options [String]  :locale    文字列化の locale(指定なしは M17nオブジェクトに変換)
-    # @option options [Boolean] :simple    true ならIRI の先頭部分を簡約表現にする
-    # @option options [Boolean] :residue   true なら Residue をそのまま出力
+    # @option options [Boolean] :prefix    true ならIRI の先頭部分を簡約表現にする
     #
     # @return [Hash, Array] 変換結果
     #
@@ -89,7 +102,7 @@ module When
                         s + [_m17n_form(k, options), _m17n_form(element[k], options)]
                       })]
         when Array  ; element.map {|e| _m17n_form(e, options)}
-        when Class  ; When::Parts::Resource._path_with_prefix(element, options[:simple])
+        when Class  ; When::Parts::Resource._path_with_prefix(element, options[:prefix])
         when Symbol ; options[:camel] ? element.to_s.split(/_/).map {|e| e.capitalize}.join('').to_sym : element
         when Numeric, FalseClass, TrueClass ; element
         else        ; element.to_s
@@ -109,7 +122,7 @@ module When
       def to_m17n
         return m17n(@remainder.to_s)     unless label
         return label + "(#{difference})" unless @format
-        label[0...0] + (@format % [label, difference, difference+1])
+        (label[0...0] + @format) % [label, difference, difference+1]
       end
 
       # 文字列化
@@ -119,23 +132,22 @@ module When
       def to_s
         return @remainder.to_s                unless label
         return label.to_s + "(#{difference})" unless @format
-        (@format % [label, difference, difference+1]).to_s
-      end
-
-      #
-      # to_h のための要素生成
-      # @private
-      def _to_hash_value(options={})
-        options[:residue] ? self : to_m17n
+        @format.to_s % [label.to_s, difference, difference+1]
       end
     end
 
     class Pair
       #
       # to_h のための要素生成
+      #
+      # @param [Hash] options 下記のとおり
+      # @option options [Symbol] :method :to_m17n なら to_s を返す、その他は self を返す
+      #
+      # @return [String, When::Coordinates::Pair]
+      #
       # @private
       def _to_hash_value(options={})
-        to_s
+        options[:method] == :to_m17n ? to_s : self
       end
     end
   end
@@ -162,10 +174,6 @@ module When
       }
 
       class << self
-
-        # strftime で用いる書式のハッシュ
-        attr_accessor :format
-
         # When::TM::TemporalPosition Class のグローバルな設定を行う
         #
         # @param [Hash] format strftime で用いる記号の定義
@@ -177,6 +185,19 @@ module When
         def _setup_(format=nil)
           @format = format ? Format.merge(format) : Format
         end
+
+        # 設定情報を取得する
+        #
+        # @return [Hash] 設定情報
+        #
+        def _setup_info
+          {:format => format}
+        end
+
+        # strftime で用いる書式のハッシュ
+        def format
+          @format ||= Format
+        end
       end
 
       #
@@ -190,11 +211,12 @@ module When
 
       #
       # 時法名
+      # @param [Boolean] prefix true ならIRI の先頭部分を簡約表現にする
       #
       # @return [Array<String>] String 時法の IRI
       #
-      def clock_name
-        [When::Parts::Resource._path_with_prefix(clock)]
+      def clock_name(prefix=true)
+        [clock.iri(prefix)]
       end
 
       #
@@ -215,8 +237,8 @@ module When
       #        0 - 今週
       #       +1 - 来週
       #   @param [String] wkst 週の開始曜日(defaultは 月曜)
-      #   @param [When::CalendarTypes::CalendarNote] wkst 暦注オブジェクト
-      #   @param [Array<When::CalendarTypes::CalendarNote, String>] wkst 暦注オブジェクトとそのイベントメソッド名
+      #   @param [When::CalendarNote] wkst 暦注オブジェクト
+      #   @param [Array<When::CalendarNote, String>] wkst 暦注オブジェクトとそのイベントメソッド名
       #     (暦注オブジェクトは、そのIRI文字列を指定しても良い)
       #   @param [Hash] opt 下記の通り
       #   @option opt [Range] :Range 上位繰り返し範囲(ユリウス通日...ユリウス通日)
@@ -279,8 +301,8 @@ module When
       #        0 - 今月
       #       +1 - 来月
       #   @param [String] wkst 週の開始曜日(defaultはなし)
-      #   @param [When::CalendarTypes::CalendarNote] wkst 暦注オブジェクト
-      #   @param [Array<When::CalendarTypes::CalendarNote, String>] wkst 暦注オブジェクトとそのイベントメソッド名
+      #   @param [When::CalendarNote] wkst 暦注オブジェクト
+      #   @param [Array<When::CalendarNote, String>] wkst 暦注オブジェクトとそのイベントメソッド名
       #    (暦注オブジェクトは、そのIRI文字列を指定しても良い)
       #   @param [Hash] opt 下記の通り
       #   @option opt [Range] :Range 上位繰り返し範囲(ユリウス通日...ユリウス通日)
@@ -353,8 +375,8 @@ module When
       #        0 - 今年
       #       +1 - 来年
       #   @param [String] wkst 週の開始曜日(defaultはなし)
-      #   @param [When::CalendarTypes::CalendarNote] wkst 暦注オブジェクト
-      #   @param [Array<When::CalendarTypes::CalendarNote, String>] wkst 暦注オブジェクトとそのイベントメソッド名
+      #   @param [When::CalendarNote] wkst 暦注オブジェクト
+      #   @param [Array<When::CalendarNote, String>] wkst 暦注オブジェクトとそのイベントメソッド名
       #     (暦注オブジェクトは、そのIRI文字列を指定しても良い)
       #   @param [Hash] opt 下記の通り
       #   @option opt [Range] :Range 上位繰り返し範囲(ユリウス通日...ユリウス通日)
@@ -446,15 +468,20 @@ module When
       # @param [String]  options { :notes   => String  } という Hash の指定と等価
       # @param [Integer] options { :indices => Integer } という Hash の指定と等価
       # @param [Hash] options 下記のとおり
-      # @option options [When::CalendarTypes::CalendarNote, String] :calendar_note 暦注を計算する暦注オブジェクトまたはそのIRI
-      # @option options [Object] その他のキー {When::CalendarTypes::CalendarNote#notes} を参照
+      # @option options [When::CalendarNote, String] :calendar_note 暦注を計算する暦注オブジェクトまたはそのIRI
+      # @option options [Object] その他のキー {When::CalendarNote#notes} を参照
       #
       # @return   [Array<Array<Hash{:note=>note, :value=>value}>>]
       #   [ note  [String, When::BasicTypes::M17n] 暦注名 ]
       #   [ value [String, When::BasicTypes::M17n, When::Coordinates::Residue] 暦注の値 ]
       #
       def notes(options={})
-        _m17n_form(_notes(options), options.kind_of?(Hash) ? options : {})
+        form_options = options.kind_of?(Hash) ? options : {}
+        form_options[:method] = :to_m17n unless form_options.key?(:method)
+        persistence = options.delete(:persistence) if options.kind_of?(Hash)
+        retrieved   = When::CalendarNote::Notes.retrieve(persistence, self.to_i)
+        return retrieved unless retrieved == false
+        When::CalendarNote::Notes.register(_m17n_form(_notes(options), form_options), persistence, self.to_i)
       end
 
       #
@@ -463,8 +490,8 @@ module When
       # @param [String]  options { :notes   => String  } という Hash の指定と等価
       # @param [Integer] options { :indices => Integer } という Hash の指定と等価
       # @param [Hash] options 下記のとおり
-      # @option options [When::CalendarTypes::CalendarNote, String] :calendar_note 暦注を計算する暦注オブジェクトまたはそのIRI
-      # @option options [Object] その他のキー {When::CalendarTypes::CalendarNote#notes} を参照
+      # @option options [When::CalendarNote, String] :calendar_note 暦注を計算する暦注オブジェクトまたはそのIRI
+      # @option options [Object] その他のキー {When::CalendarNote#notes} を参照
       #
       # @return   [Array<Array<Hash{:note=>note, :value=>value}>>]
       #   [ note  [String, When::BasicTypes::M17n, When::Coordinates::Residue] 暦注名 ]
@@ -487,7 +514,7 @@ module When
       # @param [Integer] options { :indices => Integer } という Hash の指定と等価
       # @param [Hash] options 下記のとおり
       # @option options [Object] :value 確認する暦注の値
-      # @option options [Object] その他のキー {When::CalendarTypes::CalendarNote#notes} を参照
+      # @option options [Object] その他のキー {When::CalendarNote#notes} を参照
       #
       # @return [Boolean]
       #   [ true  - 暦注が一致   ]
@@ -505,7 +532,7 @@ module When
       # @param [Hash] options 下記のとおり
       # @option options [String] :event 確認するイベント名
       # @option options [Object] :value 確認する暦注の値
-      # @option options [Object] その他のキー {When::CalendarTypes::CalendarNote#notes} を参照
+      # @option options [Object] その他のキー {When::CalendarNote#notes} を参照
       #
       # @return [Boolean]
       #   [ true  - 該当する   ]
@@ -530,15 +557,15 @@ module When
       # @param [String]  options { :notes   => String  } という Hash の指定と等価
       # @param [Integer] options { :indices => Integer } という Hash の指定と等価
       # @param [Hash] options 下記のとおり
-      # @option options [When::CalendarTypes::CalendarNote, String] :calendar_note 暦注を計算する暦注オブジェクトまたはそのIRI
-      # @option options [Object] その他のキー {When::CalendarTypes::CalendarNote#notes} を参照
+      # @option options [When::CalendarNote, String] :calendar_note 暦注を計算する暦注オブジェクトまたはそのIRI
+      # @option options [Object] その他のキー {When::CalendarNote#notes} を参照
       #
       # @return [Hash]
       #   - :sdn       日の通し番号 - ユリウス通日(Integer)
       #   - :calendar  calendar_name の結果       - Array<暦法または暦年代(, 付属情報..)>
       #   - :notes     Hash (の Array (の Array)) - _notes(options)
       #   clock が定義されている場合、さらに下記も出力する
-      #   - :clock     時計(When::TM::Clock, When::V::Timezone, When::Parts::Timezone)
+      #   - :clock     時計(When::Parts::Timezone::Base)
       #   - :clk_time  to_clock_time の結果       - ( 日, 時, 分, 秒 )
       #   - :dynamical dynamical_time / 秒
       #   - :universal universal_time / 秒
@@ -582,32 +609,19 @@ module When
         to_m17n(*args).to_s
       end
 
-      # URI要素化 - URI表現の要素として用いる形式に変換
-      #
-      # @overload to_uri()
+      # caret 付きの frame 名
       #
       # @return [String]
       #
-      def to_uri(*args)
-        _to_uri(to_s(*args))
-      end
-
-      # URI要素化(日付のみ) - 日付の部分をURI表現の要素として用いる形式に変換
+      # @note 暦年代付きかまたは frame がグレゴリオ暦の場合は空文字列を返す
       #
-      # @overload to_date_uri()
-      #
-      # @return [String]
-      #
-      def to_date_uri(*args)
-        _to_uri(to_s(*args).sub(/T([-+][\d:]+|Z|MTC)$/,''))
-      end
-
-      def _to_uri(date)
-        uri  = date.gsub(/\./, '-').gsub(/%/, '@')
-        uri += '^^' + @frame.iri.split(/\//)[-1] unless @calendar_era_name || @frame == When.Calendar('Gregorian')
-        uri
+      def caret_frame
+        prefix = When::Parts::Resource.base_uri + 'CalendarTypes/'
+        path   = frame.iri
+        return '' if @calendar_era_name || path == prefix + 'Gregorian'
+        path   = path[prefix.length..-1] if path.index(prefix) == 0
+        '^^' + path
       end
-      private :_to_uri
 
       # 指定の書式による多言語対応文字列化 - pattern で指定した書式で多言語対応文字列化する
       #
@@ -634,7 +648,7 @@ module When
       #
       # @return [designator に依存]
       #
-      def term(designator, locale=nil, d=0, e=3)
+      def _term(designator, locale=nil, d=0, e=3)
         designator = When::Parts::Locale.translate(designator,locale)
         case designator
                                                                 # 現在のロケールにおける曜日の省略名
@@ -688,11 +702,11 @@ module When
           when /^%%/
             format += '%%'
           when /^%/
-            action = (TemporalPosition.format || Format)[c[-1..-1]]
+            action = TemporalPosition.format[c[-1..-1]]
             case action
             when Array
               format += action[0]
-              terms  << term(action[1], locale, c[1..-2].to_i, e||3)
+              terms  << _term(action[1], locale, c[1..-2].to_i, e||3)
             when String
               action = action.translate(locale) if action.kind_of?(When::BasicTypes::M17n)
               if (action =~ /%/)
@@ -709,7 +723,7 @@ module When
       end
 
       #
-      # 使用する When::CalendarTypes::CalendarNote を決定する
+      # 使用する When::CalendarNote を決定する
       #
       #   options に副作用があることに注意
       #
@@ -916,8 +930,8 @@ module When
       # @param [String]  options { :notes   => String  } という Hash の指定と等価
       # @param [Integer] options { :indices => Integer } という Hash の指定と等価
       # @param [Hash] options 下記のとおり
-      # @option options [When::CalendarTypes::CalendarNote, String] :calendar_note 暦注を計算する暦注オブジェクトまたはそのIRI
-      # @option options [Object] その他のキー {When::CalendarTypes::CalendarNote#notes} を参照
+      # @option options [When::CalendarNote, String] :calendar_note 暦注を計算する暦注オブジェクトまたはそのIRI
+      # @option options [Object] その他のキー {When::CalendarNote#notes} を参照
       #
       # @return [Hash]
       #   - :calendar calendar_name の結果 ( name, epoch, reverse, go back )