when_exe 0.4.1 → 0.4.2

data/lib/when_exe/inspect.rb

@@ -30,6 +30,25 @@ module When
       label
     end
 
+    # suffix 付の名前
+    #
+    # @param [When::BasicTypes::M17n] format 書式
+    # @param [String, Array<String>] locale 文字列化を行う locale の指定(デフォルト : オブジェクト生成時に保持している locale すべて)
+    #
+    # @return [String]
+    #
+    def suffixed_label(format, locale=nil)
+      if @suffix
+        @suffix = When.Resource(@suffix).to_m17n unless @suffix.kind_of?(When::Parts::Resource) || @suffix !~ /:/
+        format  = m17n([format]*self.keys.length, nil, nil, {:locale=>self.keys}) if format.instance_of?(String)
+        format._printf([label, @suffix], locale)
+      elsif locale
+        label.translate(locale)
+      else
+        label
+      end
+    end
+
     #
     # オブジェクトの内容を Hash 化
     #
@@ -688,17 +707,17 @@ module When
         hash
       end
 
-      # 指定の書式による多言語対応文字列化 - pattern で指定した書式で多言語対応文字列化する
+      # 指定の書式による多言語対応文字列化 - format で指定した書式で多言語対応文字列化する
       #
-      # @param [When::BasicTypes::M17n] pattern 書式
+      # @param [When::BasicTypes::M17n] format 書式
       # @param [String, Array<String>] locale 文字列化を行う locale の指定(デフォルト : オブジェクト生成時に保持している locale すべて)
       #
       # @return [When::BasicTypes::M17n]
       #
-      def strftime(pattern=@frame.strftime, locale=nil)
-        pattern = m17n([pattern]*self.keys.length, nil, nil, {:locale=>self.keys}) if pattern.instance_of?(String)
-        pattern._printf([], locale) do |k, *t|
-          _strftime(k, pattern, [''])
+      def strftime(format=@frame.strftime, locale=nil)
+        format = m17n([format]*self.keys.length, nil, nil, {:locale=>self.keys}) if format.instance_of?(String)
+        format._printf([], locale) do |k, *t|
+          _strftime(k, format, [''])
         end
       end
 
@@ -823,36 +842,36 @@ module When
       # 指定の書式による多言語対応文字列化
       #
       # @param [String] locale 文字列化を行う locale
-      # @param [When::BasicTypes::M17n] pattern 書式
+      # @param [When::BasicTypes::M17n] format 書式
       #
       # @return [Array] 書式と文字列化項目からなる配列
       #
-      def _strftime(locale, pattern, t)
-        format, *terms = t
-        pattern = pattern.translate(locale) if pattern.kind_of?(When::BasicTypes::M17n)
-        pattern.scan(/(%[O\d]*(?:\.(\d+))?.)|(.)/) do |c,e,s|
+      def _strftime(locale, format, t)
+        pattern, *terms = t
+        format = format.translate(locale) if format.kind_of?(When::BasicTypes::M17n)
+        format.scan(/(%[O\d]*(?:\.(\d+))?.)|(.)/) do |c,e,s|
           case c
           when /\A%%/
-            format += '%%'
+            pattern += '%%'
           when /\A%/
             action = TemporalPosition.format[c[-1..-1]]
             case action
             when Array
-              format += action[0]
+              pattern += action[0]
               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 =~ /%/)
-                format, *terms = _strftime(locale, action, [format] + terms)
+                pattern, *terms = _strftime(locale, action, [pattern] + terms)
               else
-                format += action
+                pattern += action
               end
             end
           else
-            format += s
+            pattern += s
           end
         end
-        [format] + terms
+        [pattern] + terms
       end
 
       #
@@ -1049,11 +1068,14 @@ module When
       #
       # 参照ラベル
       #
+      # @param [When::BasicTypes::M17n] format 書式
+      # @param [String, Array<String>] locale 文字列化を行う locale の指定(デフォルト : オブジェクト生成時に保持している locale すべて)
+      #
       # @return [When::BasicTypes::M17n]
       #
-      def reference_label
-        return @calendar_era.hierarchy.map {|e| e.label} if @calendar_era
-        return [@frame.label] if @frame.label
+      def reference_label(format=nil, locale=nil)
+        return @calendar_era.hierarchy.map {|e| format ? e.suffixed_label(format, locale) : e.label} if @calendar_era
+        return [format ? @frame.suffixed_label(format, locale) : @frame.label] if @frame.label
         [When::BasicTypes::M17n.new(@frame.class.to_s.split(/::/)[-1])]
       end
 

data/lib/when_exe/linkeddata.rb

@@ -215,7 +215,7 @@ module When
       child.each do |c|
         next if c.iri =~ / /
         iri = c.child ? c.iri : self.iri
-        prefixes[((c.kind_of?(When::BasicTypes::M17n) ? c : c.label) / 'en').split(/ +/).first] = [iri + '::']
+        prefixes[((c.kind_of?(When::BasicTypes::M17n) ? c : c.label).label_for_prefix).split(/ +/).first] = [iri + '::']
       end
       prefixes
     end
@@ -234,7 +234,10 @@ module When
 
     # 自身を root とするグラフの jsonld を表現する Hash を生成する
     #
-    # @param [Hash] options {When::Parts::Resource.rdf_graph} を参照
+    # @param [Hash] options 以下の通り
+    # @option options [Boolean] :include 自身が含むResourceオブジェクトをグラフに含める(デフォルト nil)
+    # @option options [Object] @... そのまま戻り値のHashに追加
+    # @option options [Symbol] その他 {When::TM::CalDate#to_jsonld_hash} などを参照
     #
     # @return [Hash] jsonld を表現する Hash
     #
@@ -245,7 +248,10 @@ module When
     # Resourceオブジェクトの jsonld をグラフに追加する
     #
     # @param [Array<Hash>] graph 個別のResourceオブジェクトの jsonld hash の Array
-    # @param [Hash] options {When::Parts::Resource.rdf_graph} を参照
+    # @param [Hash] options { 以下の通り
+    # @option options [Boolean] :include 自身が含むResourceオブジェクトをグラフに含める(デフォルト nil)
+    # @option options [Object] @... そのまま戻り値のHashに追加
+    # @option options [Symbol] その他 {When::TM::CalDate#to_jsonld_hash} などを参照
     #
     # @return [Array] jsonld hash の Array
     #
@@ -368,7 +374,7 @@ module When
         Array(value).each do |prefix|
           start = source.index(prefix)
           body  = source[prefix.length..-1]
-          return key + ':' + body if start == 0 && body !~ /:/
+          return key + ':' + body if start == 0 && body !~ /[:#\/]/
         end
       end
       return source unless context
@@ -379,7 +385,7 @@ module When
       elsif namespace && namespace.index(When::Parts::Resource.base_uri) == 0
         label  = begin When.Resource(namespace.sub(/::\z/, '')) rescue return source end
         label  = label.label unless label.kind_of?(When::BasicTypes::M17n)
-        prefix = label.to_m17n / 'en'
+        prefix = label.to_m17n.label_for_prefix
         return source unless prefix =~ /\A[-A-Z\d_]+\z/i
       else
         return source
@@ -397,6 +403,15 @@ module When
   # 
   class BasicTypes::M17n
 
+    #
+    # namespace に対応させる文字列を取得する
+    #
+    # @return [String] prefix 用の文字列
+    #
+    def label_for_prefix
+      names['prefix'] || names['alias'] || names['en'] || names['']
+    end
+
     private
 
     #
@@ -463,7 +478,10 @@ module When
 
     # 自身を root とするグラフの jsonld を表現する Hash を生成する
     #
-    # @param [Hash] options {When::Parts::Resource.rdf_graph} を参照
+    # @param [Hash] options 以下の通り
+    # @option options [Boolean] :include 自身が含むResourceオブジェクトをグラフに含める(デフォルト nil)
+    # @option options [Object] @... そのまま戻り値のHashに追加
+    # @option options [Symbol] その他 {When::TM::CalDate#to_jsonld_hash} などを参照
     #
     # @return [Hash] jsonld を表現する Hash
     #
@@ -475,7 +493,10 @@ module When
     # CalDateオブジェクトの jsonld をグラフに追加する
     #
     # @param [Array<Hash>] graph 個別のCalDateオブジェクトの jsonld hash の Array
-    # @param [Hash] options {When::Parts::Resource.rdf_graph} を参照
+    # @param [Hash] options 以下の通り
+    # @option options [Boolean] :include 自身が含むResourceオブジェクトをグラフに含める(デフォルト nil)
+    # @option options [Object] @... そのまま戻り値のHashに追加
+    # @option options [Symbol] その他 {When::TM::CalDate#to_jsonld_hash} などを参照
     #
     # @return [Array] jsonld hash の Array
     #

data/lib/when_exe/locales/autoload.rb

@@ -1,6 +1,6 @@
 # -*- coding: utf-8 -*-
 =begin
-  Copyright (C) 2012-2014 Takashi SUGA
+  Copyright (C) 2012-2015 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
@@ -94,6 +94,7 @@ module When
     autoload :Locale_uz,      'when_exe/locales/uz'
     autoload :Locale_vi,      'when_exe/locales/vi'
     autoload :Locale_wo,      'when_exe/locales/wo'
+    autoload :Locale_zh,      'when_exe/locales/zh'
     autoload :Locale_zh_CN,   'when_exe/locales/zh_CN'
     autoload :Locale_zh_HK,   'when_exe/locales/zh_HK'
     autoload :Locale_zh_TW,   'when_exe/locales/zh_TW'

data/lib/when_exe/locales/locale.rb

@@ -20,6 +20,12 @@ module When
     # Locale 読み替えの初期設定
     DefaultAlias = {'alias'=>'ja', '日本語'=>'ja', '英語'=>'en'}
 
+    # 東アジアの国別コード
+    EastAsiaCC   = %w(gan hak ii kr kp ko vn ja zh)
+
+    # 東アジア判定正規表現
+    RegExpEastAsia = /\A(#{EastAsiaCC.join('|')})/
+
     # 省略時 Namespace
     DefaultNamespaces = Hash.new {|hash, key|
       hash[key] = "http://#{key}.wikipedia.org/wiki/"
@@ -40,7 +46,7 @@ module When
       '竜'=>'龍'
     }
 
-    # Escape
+    # Escape for RFC6868
     # @private
     Escape = {
       "\\\\" => "\\",
@@ -69,7 +75,7 @@ module When
       #
       # @param [Hash] options 下記の通り
       # @option options [Hash]    :alias              Locale の読み替えパターンを Hash で指定する。
-      # @option options [String]  :namespace_foramt   名前空間定義の省略時に名前空間生成に用いる書式
+      # @option options [Hash]    :namespace_foramt   名前空間定義の省略時に名前空間生成に用いる書式
       # @option options [Hash]    :unification        漢字の包摂パターンを Hash で指定する。
       # @option options [Numeric] :wikipedia_interval Wikipedia の連続的な参照を抑制するための遅延時間/秒
       #
@@ -185,9 +191,7 @@ module When
         # source の配列化
         if source.kind_of?(String)
           source = $1 if (source=~/\A\s*\[?(.+?)\]?\s*\z/m)
-          source = source.scan(/((?:[^\\\n\r,]|\\.)+)(?:[\n\r,]+(?!\z))?|[\n\r,]+/m).flatten.map {|token|
-            (token||'').gsub(/\\./) {|escape| Escape[escape] || escape}
-          }
+          source = _split_with_rfc6868_escape(source)
         end
 
         # 各Localeの展開
@@ -231,6 +235,14 @@ module When
         list.unshift(line)
       end
 
+      # rfc6868 による Escape を含んだ文字列 ".., .., .." を分割する
+      # @private
+      def _split_with_rfc6868_escape(source)
+        source.scan(/((?:[^\\\n\r,]|\\.)+)(?:[\n\r,]+(?!\z))?|[\n\r,]+/m).flatten.map {|token|
+          (token||'').gsub(/\\./) {|escape| Escape[escape] || escape}
+        }
+      end
+
       # locale 指定を解析して Hash の値を取り出す
       # @private
       def _hash_value(hash, locale, defaults=['', 'en'])
@@ -652,12 +664,20 @@ module When
       label = Locale._hash_value(@names, locale, [])
       return label if label
       foreign  = Locale._get_locale(locale, @access_key)
-      return @names[''] unless foreign
-      english  = @names['en'] || @names['']
-      addition = english.dup.sub!(/\A#{Locale._get_locale('en', @access_key)['en']}/, '')
-      foreign[locale] += addition if addition
-      update(foreign)
-      return Locale._hash_value(@names, locale)
+      if foreign
+        english  = @names['en'] || @names['']
+        addition = english.dup.sub!(/\A#{Locale._get_locale('en', @access_key)['en']}/, '')
+        foreign[locale] += addition if addition
+        update(foreign)
+        Locale._hash_value(@names, locale)
+      else
+        case locale
+        when /\Aja/         ; 
+        when RegExpEastAsia ; return @names['zh'] if @names['zh']
+        else                ; return @names['en'] if @names['en']
+        end
+        @names['']
+      end
     end
 
     private
@@ -676,7 +696,7 @@ module When
           @values    = [names]
           return names
         end
-        names = $1.split(/[\n\r,]+/)
+        names = $1.split(/[\n\r]+/).map {|line| Locale._split_with_rfc6868_escape(line)}.flatten
       end
 
       mark     = []
@@ -741,11 +761,11 @@ module When
         name
     end
 
-    # encode URI from patterns %%(...) or %.(...)
+    # encode URI from patterns %%(...) or %.(...) and replace space to '_'
     def _encode(source)
-      source.gsub(/%.<.+?>/) do |match|
+      source.gsub(' ','_').gsub(/%.<.+?>/) { |match|
         URI.encode(match[3..-2]).gsub('%', match[1..1])
-      end
+      }
     end
   end
 end

data/lib/when_exe/locales/zh.rb

@@ -0,0 +1,77 @@
+# -*- coding: utf-8 -*-
+=begin
+  Copyright (C) 2012-2015 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
+
+module When
+  module Locale
+
+    # from https://raw.github.com/svenfuchs/rails-i18n/master/rails/locale/zh-HK.yml
+
+    Locale_zh =
+{"date"=>
+  {"abbr_day_names"=>["日", "一", "二", "三", "四", "五", "六"],
+   "abbr_month_names"=>
+    [nil,
+     "1月",
+     "2月",
+     "3月",
+     "4月",
+     "5月",
+     "6月",
+     "7月",
+     "8月",
+     "9月",
+     "10月",
+     "11月",
+     "12月"],
+   "day_names"=>["星期日", "星期一", "星期二", "星期三", "星期四", "星期五", "星期六"],
+   "formats"=>{"default"=>"%Y-%m-%d", "long"=>"%Y年%b%d日", "short"=>"%b%d日"},
+   "month_names"=>
+    [nil,
+     "一月",
+     "二月",
+     "三月",
+     "四月",
+     "五月",
+     "六月",
+     "七月",
+     "八月",
+     "九月",
+     "十月",
+     "十一月",
+     "十二月"],
+   "order"=>[:year, :month, :day]},
+ "time"=>
+  {"am"=>"上午",
+   "formats"=>
+    {"default"=>"%Y年%b%d日 %A %H:%M:%S %Z",
+     "long"=>"%Y年%b%d日 %H:%M",
+     "short"=>"%b%d日 %H:%M",
+     "time"=>"%H:%M:%S %Z"},
+   "pm"=>"下午"},
+ "datetime"=>
+  {"distance_in_words"=>
+    {"about_x_hours"=>{"one"=>"約一小時", "other"=>"約%{count}小時"},
+     "about_x_months"=>{"one"=>"約一個月", "other"=>"約%{count}個月"},
+     "about_x_years"=>{"one"=>"約一年", "other"=>"約%{count}年"},
+     "almost_x_years"=>{"one"=>"接近一年", "other"=>"接近%{count}年"},
+     "half_a_minute"=>"半分鐘",
+     "less_than_x_minutes"=>{"one"=>"不到一分鐘", "other"=>"不到%{count}分鐘"},
+     "less_than_x_seconds"=>{"one"=>"不到一秒", "other"=>"不到%{count}秒"},
+     "over_x_years"=>{"one"=>"超過一年", "other"=>"超過%{count}年"},
+     "x_days"=>{"one"=>"一天", "other"=>"%{count}天"},
+     "x_minutes"=>{"one"=>"一分鐘", "other"=>"%{count}分鐘"},
+     "x_months"=>{"one"=>"一個月", "other"=>"%{count}個月"},
+     "x_seconds"=>{"one"=>"一秒", "other"=>"%{count}秒"}},
+   "prompts"=>
+    {"day"=>"日",
+     "hour"=>"時",
+     "minute"=>"分",
+     "month"=>"月",
+     "second"=>"秒",
+     "year"=>"年"}}}
+  end
+end

data/lib/when_exe/mini_application.rb

@@ -240,7 +240,7 @@ module When
           case list[i]
           when When::TM::Calendar ; list.slice!(i) if options[:extent] && !list[i].domain[''].include?(date)
           when Class              ; 
-          else
+          when When::TM::CalendarEra
              eras = (date ^ list[i]).delete_if {|e| !e.leaf?}
              unless options[:go_back] == :All
                if options[:go_back] == :After
@@ -250,6 +250,8 @@ module When
                end
              end
              list[i,1] = eras.map {|e| e.calendar_era}
+          else
+             list[i,1] = list[i].child
           end
         end
 

data/lib/when_exe/{googlecalendar.rb → obsolete/googlecalendar.rb}

@@ -1,144 +1,144 @@
-# -*- coding: utf-8 -*-
-=begin
-  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
-
-begin
-  require 'gcalapi'
-rescue LoadError
-  raise LoadError, "Please install gcalapi from https://github.com/suchowan/gcalapi"
-end
-
-#
-# gcalapi の GoogleCalendar モジュールへの機能追加
-#
-module GoogleCalendar
-
-  #
-  # gcalapi の GoogleCalendar::Event クラスへの機能追加
-  #
-  class Event
-    # 繰り返しイベントの定義
-    # @return [Array<String>]
-    attr_accessor :recurrence
-
-    Event::ATTRIBUTES_MAP["recurrence"] = { "element" => "gd:recurrence"}
-
-    # @private
-    alias :_instance_to_xml :instance_to_xml
-
-    # @private
-    def instance_to_xml
-      _instance_to_xml
-      @xml.root.elements[recurrence ? "gd:when" : "gd:recurrence"].remove
-    end
-
-    # When::V::Event オブジェクトへの変換
-    #
-    # @return [When::V::Event]
-    #
-    def to_vevent
-      options = {'summary'=>@title, 'description'=>@desc, 'location'=>@where}
-      if @recurrence
-        @recurrence.each_line do |line|
-          options[$1.downcase] ||= $2 if line =~ /^(DTSTART|DTEND|RRULE).(.+)$/i
-        end
-      else
-        options.update({'dtstart'=>When.when?(@st), 'dtend'=>When.when?(@en)})
-      end
-      When::V::Event.new(options)
-    end
-    alias :vevent :to_vevent
-
-    # イベントのステータス
-    #
-    # @return [String]
-    #   [ 'confirmed' - 有効 ]
-    #   [ 'canceled'  - 無効 ]
-    #
-    def event_status
-      @xml.root.elements['gd:eventStatus'].attributes['value'][/[^.]+$/]
-    end
-  end
-
-  #
-  # gcalapi の GoogleCalendar::Calendar クラスへの機能追加
-  #
-  class Calendar
-    # イベントを順に取り出す enumerator
-    #
-    # @param [Hash] conditions
-    # @option conditions [String, When::TM::TemporalPosition] 'start-min' 最初のイベント開始日時(省略時は現在時刻)
-    # @option conditions [String, When::TM::TemporalPosition] 'start-max' 最後のイベント開始日時(省略時は制限なし)
-    # @option conditions [String] 'sortorder'
-    #   [ 'a' - asend(省略時) ]
-    #   [ 'd' - desend ]
-    #
-    # @return [Enumerator]
-    #
-    def enum_for(conditions={})
-      conditions['start-min'] ||= When.now
-      conditions['sortorder'] ||= 'a'
-      conditions['orderby']     = 'starttime'
-      direction = (conditions['sortorder'] == 'd') ? :reverse : :forward
-      first     = When.when?(conditions['start-min'])
-      conditions['start-min']   = (When::Gregorian ^ first).to_s
-      if conditions['start-max']
-        last       = When.when?(conditions['start-max'])
-        inner_args = [first...last]
-        conditions['start-max'] = (When::Gregorian ^ last).to_s
-      else
-        inner_args = [first, direction]
-      end
-
-      confirmed = []
-      canceled  = []
-      self.events(conditions).each do |event|
-        case event.event_status
-        when 'canceled' ; canceled  << event
-        else            ; confirmed << event
-        end
-      end
-      outer_args = [first, direction]
-      outer_args << {:exevent => canceled.map {|event| event.to_vevent}} if canceled.length > 0
-
-      When::Parts::Enumerator::Integrated.new(self, confirmed.map {|event|
-        event.to_vevent.enum_for(*inner_args)
-      }, *outer_args)
-    end
-    alias :to_enum :enum_for
-  end
-end
-
-module When::V
-  class Event
-
-    # GoogleCalendar::Event オブジェクトへの変換
-    #
-    # @param [GoogleCalendar::Calendar] cal
-    #
-    # @return [GoogleCalendar::Event]
-    #
-    def to_gcalevent(cal)
-      event = cal.create_event
-      event.title = summary     if respond_to?(:summary)
-      event.desc  = description if respond_to?(:description)
-      event.where = location    if respond_to?(:location)
-      if rrule.size == 0
-        event.st  = dtstart.to_time
-        event.en  = dtend.to_time
-      else
-        event.recurrence =
-          (['RRULE:' + property['rrule'][0].object] +
-           ['dtstart', 'dtend'].map {|key|
-             value = property[key].attribute['.']
-             key.upcase + (value =~ /=/ ? ';' : ':') + value
-           }).join("\n") + "\n"
-      end
-      event
-    end
-    alias :gcalevent :to_gcalevent
-  end
-end
+# -*- coding: utf-8 -*-
+=begin
+  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
+
+begin
+  require 'gcalapi'
+rescue LoadError
+  raise LoadError, "Please install gcalapi from https://github.com/suchowan/gcalapi"
+end
+
+#
+# gcalapi の GoogleCalendar モジュールへの機能追加
+#
+module GoogleCalendar
+
+  #
+  # gcalapi の GoogleCalendar::Event クラスへの機能追加
+  #
+  class Event
+    # 繰り返しイベントの定義
+    # @return [Array<String>]
+    attr_accessor :recurrence
+
+    Event::ATTRIBUTES_MAP["recurrence"] = { "element" => "gd:recurrence"}
+
+    # @private
+    alias :_instance_to_xml :instance_to_xml
+
+    # @private
+    def instance_to_xml
+      _instance_to_xml
+      @xml.root.elements[recurrence ? "gd:when" : "gd:recurrence"].remove
+    end
+
+    # When::V::Event オブジェクトへの変換
+    #
+    # @return [When::V::Event]
+    #
+    def to_vevent
+      options = {'summary'=>@title, 'description'=>@desc, 'location'=>@where}
+      if @recurrence
+        @recurrence.each_line do |line|
+          options[$1.downcase] ||= $2 if line =~ /^(DTSTART|DTEND|RRULE).(.+)$/i
+        end
+      else
+        options.update({'dtstart'=>When.when?(@st), 'dtend'=>When.when?(@en)})
+      end
+      When::V::Event.new(options)
+    end
+    alias :vevent :to_vevent
+
+    # イベントのステータス
+    #
+    # @return [String]
+    #   [ 'confirmed' - 有効 ]
+    #   [ 'canceled'  - 無効 ]
+    #
+    def event_status
+      @xml.root.elements['gd:eventStatus'].attributes['value'][/[^.]+$/]
+    end
+  end
+
+  #
+  # gcalapi の GoogleCalendar::Calendar クラスへの機能追加
+  #
+  class Calendar
+    # イベントを順に取り出す enumerator
+    #
+    # @param [Hash] conditions
+    # @option conditions [String, When::TM::TemporalPosition] 'start-min' 最初のイベント開始日時(省略時は現在時刻)
+    # @option conditions [String, When::TM::TemporalPosition] 'start-max' 最後のイベント開始日時(省略時は制限なし)
+    # @option conditions [String] 'sortorder'
+    #   [ 'a' - asend(省略時) ]
+    #   [ 'd' - desend ]
+    #
+    # @return [Enumerator]
+    #
+    def enum_for(conditions={})
+      conditions['start-min'] ||= When.now
+      conditions['sortorder'] ||= 'a'
+      conditions['orderby']     = 'starttime'
+      direction = (conditions['sortorder'] == 'd') ? :reverse : :forward
+      first     = When.when?(conditions['start-min'])
+      conditions['start-min']   = (When::Gregorian ^ first).to_s
+      if conditions['start-max']
+        last       = When.when?(conditions['start-max'])
+        inner_args = [first...last]
+        conditions['start-max'] = (When::Gregorian ^ last).to_s
+      else
+        inner_args = [first, direction]
+      end
+
+      confirmed = []
+      canceled  = []
+      self.events(conditions).each do |event|
+        case event.event_status
+        when 'canceled' ; canceled  << event
+        else            ; confirmed << event
+        end
+      end
+      outer_args = [first, direction]
+      outer_args << {:exevent => canceled.map {|event| event.to_vevent}} if canceled.length > 0
+
+      When::Parts::Enumerator::Integrated.new(self, confirmed.map {|event|
+        event.to_vevent.enum_for(*inner_args)
+      }, *outer_args)
+    end
+    alias :to_enum :enum_for
+  end
+end
+
+module When::V
+  class Event
+
+    # GoogleCalendar::Event オブジェクトへの変換
+    #
+    # @param [GoogleCalendar::Calendar] cal
+    #
+    # @return [GoogleCalendar::Event]
+    #
+    def to_gcalevent(cal)
+      event = cal.create_event
+      event.title = summary     if respond_to?(:summary)
+      event.desc  = description if respond_to?(:description)
+      event.where = location    if respond_to?(:location)
+      if rrule.size == 0
+        event.st  = dtstart.to_time
+        event.en  = dtend.to_time
+      else
+        event.recurrence =
+          (['RRULE:' + property['rrule'][0].object] +
+           ['dtstart', 'dtend'].map {|key|
+             value = property[key].attribute['.']
+             key.upcase + (value =~ /=/ ? ';' : ':') + value
+           }).join("\n") + "\n"
+      end
+      event
+    end
+    alias :gcalevent :to_gcalevent
+  end
+end