when_exe 0.3.7 → 0.3.8

data/test/scripts/3.ext.rb

@@ -0,0 +1,133 @@
+# -*- coding: utf-8 -*-
+=begin
+  Copyright (C) 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
+
+# Calendar/When/Ruby/2.APIの使用例/3.年号の扱い/コア拡張
+
+# コアクラスを require 'when_exe/core/extension' で拡張した場合の記法を確認
+
+# *準備
+# when_exe Ruby 版の When モジュールを include する
+require 'when_exe'
+require 'when_exe/core/extension'
+include When
+
+# 使用可能な &yard(CalendarEra) は http://hosi.org/frames/When/TM/CalendarEra.html 参照
+
+# *グレゴリオ暦 ⇔ 現代日本暦日
+# **最近の日付
+date = [2013, 5, 25].tm_pos
+p date                                      #=> 2013-05-25
+p 'ModernJapanese'.calendar_era.iri         #=> "http://hosi.org/When/TM/CalendarEra/ModernJapanese"
+list = date ^ 'ModernJapanese'.calendar_era
+p list                                      #=> [H25(2013).05.25]
+p list[0].frame.iri                         #=> "http://hosi.org/When/CalendarTypes/Gregorian?note=DefaultNotes"
+date = ['H', 25, 5, 25].tm_pos
+p date                                      #=> H25(2013).05.25
+p 'Gregorian'.calendar ^ date               #=> 2013-05-25
+date = 'H25.5.25'.when?
+p date                                      #=> H25(2013).05.25
+p 'Gregorian'.calendar ^ date               #=> 2013-05-25
+
+# *グレゴリオ暦 ⇔ 西暦(CE/BCE)
+# **グレゴリオ暦改暦直後
+date = '1582-10-15'.when?
+p date                                      #=> 1582-10-15
+p 'Common'.calendar_era.iri                 #=> "http://hosi.org/When/TM/CalendarEra/Common"
+list = date ^ 'Common'.calendar_era
+p list                                      #=> [CE1582.10.15]
+p list[0].frame.iri                         #=> "http://hosi.org/When/CalendarTypes/Gregorian"
+date = ['CE', 1582, 10, 15].tm_pos
+p date                                      #=> CE1582.10.15
+p 'Gregorian'.calendar ^ date               #=> 1582-10-15
+date = 'CE1582.10.15'.when?
+p date                                      #=> CE1582.10.15
+p 'Gregorian'.calendar ^ date               #=> 1582-10-15
+
+# **グレゴリオ暦改暦直前
+date = '1582-10-14'.when?
+p date                                      #=> 1582-10-14
+list = date ^ 'Common'.calendar_era
+p list                                      #=> [CE1582.10.04]
+p list[0].frame.iri                         #=> "http://hosi.org/When/CalendarTypes/Julian"
+date = ['CE', 1582, 10, 4].tm_pos
+p date                                      #=> CE1582.10.04
+p 'Gregorian'.calendar ^ date               #=> 1582-10-14
+date = 'CE1582.10.4'.when?
+p date                                      #=> CE1582.10.04
+p 'Gregorian'.calendar ^ date               #=> 1582-10-14
+
+# **紀元前45年
+date = '-44-03-13'.when?
+p date                                      #=> -00044-03-13
+list = date ^ 'Common'.calendar_era
+p list                                      #=> [BCE45(-044).03.15]
+p list[0].frame.iri                         #=> "http://hosi.org/When/CalendarTypes/Julian"
+date = ['BCE', 45, 3, 15].tm_pos
+p date                                      #=> BCE45(-044).03.15
+p 'Gregorian'.calendar ^ date               #=> -00044-03-13
+date = 'BCE45.3.15'.when?
+p date                                      #=> BCE45(-044).03.15
+p 'Gregorian'.calendar ^ date               #=> -00044-03-13
+
+# *天保年号のバリエーション
+# **日本
+date = '天保2.3.4'.when?                    # ここで日本暦日をメモリに展開するため、少々時間がかかる
+p date                                      #=> 天保02(1831).03.04
+p date.calendar_era.iri                     #=> "http://hosi.org/When/TM/CalendarEra/Japanese::江戸時代::天保"
+# **南朝の後梁
+date = '天保2.3.4'.when?(:count=>2)         # ここで中国暦日をメモリに展開するため、さらに時間がかかる
+p date                                      #=> 天保02(0563).03.04
+p date.calendar_era.iri                     #=> "http://hosi.org/When/TM/CalendarEra/Chinese::南朝::後梁::天保"
+date = '後梁::天保2.3.4'.when?
+p date                                      #=> 天保02(0563).03.04
+# **北朝の北斉
+date = '天保2.3.4'.when?(:count=>3)
+p date                                      #=> 天保02(0551).03.04
+p date.calendar_era.iri                     #=> "http://hosi.org/When/TM/CalendarEra/Chinese::北朝::北斉::天保"
+date = '北斉::天保2.3.4'.when?
+p date                                      #=> 天保02(0551).03.04
+# **四つ目はない
+begin
+  date = '天保2.3.4'.when?(:count=>4)
+rescue => e
+  p e.to_s                                  #=> ArgumentError: CalendarEraName doesn't exist: 天保
+end
+
+# *明治改元
+# **改元前
+date = '1868-10-22'.when?
+p date                                      #=> 1868-10-22
+list = date ^ 'Japanese'.calendar_era
+p list                                      #=> [慶応04(1868).09.07, 明治01(1868).09.07]
+p list[0].calendar_name[3]                  #=> nil
+p list[1].calendar_name[3]                  #=> true (改元前)
+# **改元後
+date = '1868-10-23'.when?
+p date                                      #=> 1868-10-23
+list = date ^ 'Japanese'.calendar_era
+p list                                      #=> [明治01(1868).09.08]
+p list[0].calendar_name[3]                  #=> nil
+p list[0].calendar_era.reference_date       #=> 01(1868)
+
+# 年号の reference_date の“精度”が“年”なら、年初に遡って検索をヒットさせる
+
+# *大正改元
+# **改元前
+date = '1912-7-29'.when?
+p date                                      #=> 1912-07-29
+list = date ^ 'Japanese'.calendar_era
+p list                                      #=> [明治45(1912).07.29]
+p list[0].calendar_name[3]                  #=> nil
+# **改元後
+date = '1912-7-30'.when?
+p date                                      #=> 1912-07-30
+list = date ^ 'Japanese'.calendar_era
+p list                                      #=> [大正01(1912).07.30]
+p list[0].calendar_name[3]                  #=> nil
+p list[0].calendar_era.reference_date       #=> 01(1912).07.30
+
+# 年号の reference_date の“精度”が“日”なら、年初に遡って検索をヒットさせない

data/test/scripts/3.rb

@@ -0,0 +1,134 @@
+# -*- coding: utf-8 -*-
+=begin
+  Copyright (C) 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
+
+# Calendar/When/Ruby/2.APIの使用例/3.年号の扱い
+
+# →関連クラス図 [[Calendar/When/Ruby/3.クラス図/13.暦及び時計]]
+
+# *準備
+# when_exe Ruby 版の When モジュールを include する
+require 'when_exe'
+include When
+
+# コア拡張を利用する場合は[[Calendar/When/Ruby/2.APIの使用例/3.年号の扱い/コア拡張]]を参照
+
+# 使用可能な &yard(CalendarEra) は http://hosi.org/frames/When/TM/CalendarEra.html 参照
+
+# *グレゴリオ暦 ⇔ 現代日本暦日
+# **最近の日付
+date = tm_pos(2013, 5, 25)
+p date                                #=> 2013-05-25
+p CalendarEra('ModernJapanese').iri   #=> "http://hosi.org/When/TM/CalendarEra/ModernJapanese"
+list = date ^ CalendarEra('ModernJapanese')
+p list                                #=> [H25(2013).05.25]
+p list[0].frame.iri                   #=> "http://hosi.org/When/CalendarTypes/Gregorian?note=DefaultNotes"
+date = tm_pos('H', 25, 5, 25)
+p date                                #=> H25(2013).05.25
+p Calendar('Gregorian') ^ date        #=> 2013-05-25
+date = when?('H25.5.25')
+p date                                #=> H25(2013).05.25
+p Calendar('Gregorian') ^ date        #=> 2013-05-25
+
+# *グレゴリオ暦 ⇔ 西暦(CE/BCE)
+# **グレゴリオ暦改暦直後
+date = when?('1582-10-15')
+p date                                #=> 1582-10-15
+p CalendarEra('Common').iri           #=> "http://hosi.org/When/TM/CalendarEra/Common"
+list = date ^ CalendarEra('Common')
+p list                                #=> [CE1582.10.15]
+p list[0].frame.iri                   #=> "http://hosi.org/When/CalendarTypes/Gregorian"
+date = tm_pos('CE', 1582, 10, 15)
+p date                                #=> CE1582.10.15
+p Calendar('Gregorian') ^ date        #=> 1582-10-15
+date = when?('CE1582.10.15')
+p date                                #=> CE1582.10.15
+p Calendar('Gregorian') ^ date        #=> 1582-10-15
+
+# **グレゴリオ暦改暦直前
+date = when?('1582-10-14')
+p date                                #=> 1582-10-14
+list = date ^ CalendarEra('Common')
+p list                                #=> [CE1582.10.04]
+p list[0].frame.iri                   #=> "http://hosi.org/When/CalendarTypes/Julian"
+date = tm_pos('CE', 1582, 10, 4)
+p date                                #=> CE1582.10.04
+p Calendar('Gregorian') ^ date        #=> 1582-10-14
+date = when?('CE1582.10.4')
+p date                                #=> CE1582.10.04
+p Calendar('Gregorian') ^ date        #=> 1582-10-14
+
+# **紀元前45年
+date = when?('-44-03-13')
+p date                                #=> -00044-03-13
+list = date ^ CalendarEra('Common')
+p list                                #=> [BCE45(-044).03.15]
+p list[0].frame.iri                   #=> "http://hosi.org/When/CalendarTypes/Julian"
+date = tm_pos('BCE', 45, 3, 15)
+p date                                #=> BCE45(-044).03.15
+p Calendar('Gregorian') ^ date        #=> -00044-03-13
+date = when?('BCE45.3.15')
+p date                                #=> BCE45(-044).03.15
+p Calendar('Gregorian') ^ date        #=> -00044-03-13
+
+# *天保年号のバリエーション
+# **日本
+date = when?('天保2.3.4')             # ここで日本暦日をメモリに展開するため、少々時間がかかる
+p date                                #=> 天保02(1831).03.04
+p date.calendar_era.iri               #=> "http://hosi.org/When/TM/CalendarEra/Japanese::江戸時代::天保"
+# **南朝の後梁
+date = when?('天保2.3.4', :count=>2)  # ここで中国暦日をメモリに展開するため、さらに時間がかかる
+p date                                #=> 天保02(0563).03.04
+p date.calendar_era.iri               #=> "http://hosi.org/When/TM/CalendarEra/Chinese::南朝::後梁::天保"
+date = when?('後梁::天保2.3.4')
+p date                                #=> 天保02(0563).03.04
+# **北朝の北斉
+date = when?('天保2.3.4', :count=>3)
+p date                                #=> 天保02(0551).03.04
+p date.calendar_era.iri               #=> "http://hosi.org/When/TM/CalendarEra/Chinese::北朝::北斉::天保"
+date = when?('北斉::天保2.3.4')
+p date                                #=> 天保02(0551).03.04
+# **四つ目はない
+begin
+  date = when?('天保2.3.4', :count=>4)
+rescue => e
+  p e.to_s                            #=> ArgumentError: CalendarEraName doesn't exist: 天保
+end
+
+# *明治改元
+# **改元前
+date = when?('1868-10-22')
+p date                                #=> 1868-10-22
+list = date ^ CalendarEra('Japanese')
+p list                                #=> [慶応04(1868).09.07, 明治01(1868).09.07]
+p list[0].calendar_name[3]            #=> nil
+p list[1].calendar_name[3]            #=> true (改元前)
+# **改元後
+date = when?('1868-10-23')
+p date                                #=> 1868-10-23
+list = date ^ CalendarEra('Japanese')
+p list                                #=> [明治01(1868).09.08]
+p list[0].calendar_name[3]            #=> nil
+p list[0].calendar_era.reference_date #=> 01(1868)
+
+# 年号の reference_date の“精度”が“年”なら、年初に遡って検索をヒットさせる
+
+# *大正改元
+# **改元前
+date = when?('1912-7-29')
+p date                                #=> 1912-07-29
+list = date ^ CalendarEra('Japanese')
+p list                                #=> [明治45(1912).07.29]
+p list[0].calendar_name[3]            #=> nil
+# **改元後
+date = when?('1912-7-30')
+p date                                #=> 1912-07-30
+list = date ^ CalendarEra('Japanese')
+p list                                #=> [大正01(1912).07.30]
+p list[0].calendar_name[3]            #=> nil
+p list[0].calendar_era.reference_date #=> 01(1912).07.30
+
+# 年号の reference_date の“精度”が“日”なら、年初に遡って検索をヒットさせない

data/test/scripts/4.ext.rb

@@ -0,0 +1,112 @@
+# -*- coding: utf-8 -*-
+=begin
+  Copyright (C) 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
+
+# Calendar/When/Ruby/2.APIの使用例/4.時間間隔/コア拡張
+
+# コアクラスを require 'when_exe/core/extension' で拡張した場合の記法を確認
+
+# *準備
+# when_exe Ruby 版の When モジュールを include する
+require 'when_exe'
+require 'when_exe/core/extension'
+include When
+
+# *Period Duration
+# **四則
+date = when?('2013-03-25')
+p date                               #=> 2013-03-25
+duration = 2.months_period_duration
+p duration                           #=> P2M
+p date + duration                    #=> 2013-05-25
+p date - duration                    #=> 2013-01-25
+duration2 = duration * 2
+p duration2                          #=> P4M
+p duration2 + duration               #=> P6M
+p duration2 - duration               #=> P2M
+p date + duration2                   #=> 2013-07-25
+p duration2 / 2                      #=> P2M
+begin
+  p duration2 / duration
+rescue => e                          #=> TypeError: nil can't be coerced into Float
+  p e
+end
+
+# **ブロック
+start = when?('2013-03-25')
+p start                              #=> 2013-03-25
+stop  = when?('2013-09-01')
+p stop                               #=> 2013-09-01
+duration = 2.months_period_duration
+(start ^ duration).each do |date|
+  break if date >= stop
+  p date                             #=> 2013-03-25,2013-05-25,2013-07-25
+end
+duration.enum_for(start, :forward, 3).each do |date|
+  p date                             #=> 2013-03-25,2013-05-25,2013-07-25
+end
+
+# *Interval Length
+# **四則
+time = when?('2013-03-25T01:23:45')
+p time                               #=> 2013-03-25T01:23:45Z
+duration = 3.seconds_interval_length
+p duration                           #=> 3s
+p time + duration                    #=> 2013-03-25T01:23:48Z
+p time - duration                    #=> 2013-03-25T01:23:42Z
+duration2 = duration * 2
+p duration2                          #=> 6s
+p duration2 + duration               #=> 9.0s
+p duration2 - duration               #=> 3.0s
+p time + duration2                   #=> 2013-03-25T01:23:51Z
+p duration2 / 2                      #=> 3.0s
+p duration2 / duration               #=> 2.0
+
+# **ブロック
+start = when?('2013-03-25T01:23:45')
+p start                              #=> 2013-03-25T01:23:45Z
+stop  = when?('2013-03-25T01:23:54')
+p stop                               #=> 2013-03-25T01:23:54Z
+duration = 3.seconds_interval_length
+(start ^ duration).each do |time|
+  break if time >= stop
+  p time                             #=> 2013-03-25T01:23:45Z,2013-03-25T01:23:48Z,2013-03-25T01:23:51Z
+end
+duration.enum_for(start, :forward, 3).each do |time|
+  p time                             #=> 2013-03-25T01:23:45Z,2013-03-25T01:23:48Z,2013-03-25T01:23:51Z
+end
+
+
+# *Duration
+# **四則
+time = when?('2013-03-25T01:23:45')
+p time                               #=> 2013-03-25T01:23:45Z
+duration =  3.seconds_duration
+p duration                           #=> [0, 0, 0, 3.0]
+p time + duration                    #=> 2013-03-25T01:23:48Z
+p time - duration                    #=> 2013-03-25T01:23:42Z
+duration2 = duration * 2
+p duration2                          #=> [0, 0, 0, 6.0]
+p duration2 + duration               #=> [0, 0, 0, 9.0]
+p duration2 - duration               #=> [0, 0, 0, 3.0]
+p time + duration2                   #=> 2013-03-25T01:23:51Z
+p duration2 / 2                      #=> [0, 0, 0, 3.0]
+p duration2 / duration               #=> 2.0
+
+# **ブロック
+start = when?('2013-03-25T01:23:45')
+p start                              #=> 2013-03-25T01:23:45Z
+stop  = when?('2013-03-25T01:23:54')
+p stop                               #=> 2013-03-25T01:23:54Z
+duration =  3.seconds_duration
+(start ^ duration).each do |time|
+  break if time >= stop
+  p time                             #=> 2013-03-25T01:23:45Z,2013-03-25T01:23:48Z,2013-03-25T01:23:51Z
+end
+duration.enum_for(start, :forward, 3).each do |time|
+  p time                             #=> 2013-03-25T01:23:45Z,2013-03-25T01:23:48Z,2013-03-25T01:23:51Z
+end
+

data/test/scripts/4.min.rb

@@ -0,0 +1,65 @@
+# -*- coding: utf-8 -*-
+=begin
+  Copyright (C) 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
+
+# Calendar/When/Ruby/2.APIの使用例/4.時間間隔/最小セット
+
+# *準備
+require 'when_exe/tmduration'
+require 'when_exe/core/duration'             # コア拡張する場合のみ
+
+# *Duration
+# **生成
+# ***コア拡張に依存しない生成方式
+p When::TM::Duration.week(1)                 #=> [7, 0, 0, 0.0]
+p When::TM::Duration.day(2)                  #=> [2, 0, 0, 0.0]
+p When::TM::Duration.hour(3)                 #=> [0, 3, 0, 0.0]
+p When::TM::Duration.minute(4)               #=> [0, 0, 4, 0.0]
+p When::TM::Duration.second(5)               #=> [0, 0, 0, 5.0]
+p When::TM::Duration.dhms(2,3,4,5)           #=> [2, 3, 4, 5.0]
+
+# ***コア拡張時のみ可能な生成方式
+p 1.week_duration                            #=> [7, 0, 0, 0.0]
+p 2.days_duration                            #=> [2, 0, 0, 0.0]
+p 3.hours_duration                           #=> [0, 3, 0, 0.0]
+p 4.minutes_duration                         #=> [0, 0, 4, 0.0]
+p 5.seconds_duration                         #=> [0, 0, 0, 5.0]
+p [2,3,4,5].duration                         #=> [2, 3, 4, 5.0]
+
+# 単数(～)、複数(～s)は同義
+
+# **四則
+# ***コア拡張に依存しない生成方式を使用
+time = Time.at(1369475972)
+p time                                       #=> 2013-05-25 18:59:32 +0900
+duration = When::TM::Duration.second(3)
+p duration                                   #=> [0, 0, 0, 3.0]
+p time + duration                            #=> 2013-05-25 18:59:35 +0900
+p time - duration                            #=> 2013-05-25 18:59:29 +0900
+duration2 = duration * 2
+p duration2                                  #=> [0, 0, 0, 6.0]
+p duration2 + duration                       #=> [0, 0, 0, 9.0]
+p duration2 - duration                       #=> [0, 0, 0, 3.0]
+p time + duration2                           #=> 2013-05-25 18:59:38 +0900
+p duration2 / 2                              #=> [0, 0, 0, 3.0]
+p duration2 / duration                       #=> 2.0
+p duration2 + When::TM::Duration.dhms(1,2,3) #=> [1, 2, 3, 6.0]
+
+# ***コア拡張時のみ可能な生成方式を使用
+time = Time.at(1369475972)
+p time                                       #=> 2013-05-25 18:59:32 +0900
+duration = 3.seconds_duration
+p duration                                   #=> [0, 0, 0, 3.0]
+p time + duration                            #=> 2013-05-25 18:59:35 +0900
+p time - duration                            #=> 2013-05-25 18:59:29 +0900
+duration2 = duration * 2
+p duration2                                  #=> [0, 0, 0, 6.0]
+p duration2 + duration                       #=> [0, 0, 0, 9.0]
+p duration2 - duration                       #=> [0, 0, 0, 3.0]
+p time + duration2                           #=> 2013-05-25 18:59:38 +0900
+p duration2 / 2                              #=> [0, 0, 0, 3.0]
+p duration2 / duration                       #=> 2.0
+p duration2 + [1,2,3].duration               #=> [1, 2, 3, 6.0]

data/test/scripts/4.rb

@@ -0,0 +1,136 @@
+# -*- coding: utf-8 -*-
+=begin
+  Copyright (C) 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
+
+# Calendar/When/Ruby/2.APIの使用例/4.時間間隔
+
+# →関連クラス図 [[Calendar/When/Ruby/3.クラス図/10.Duration]]
+
+# *準備
+# when_exe Ruby 版の When モジュールを include する
+require 'when_exe'
+include When
+
+# コア拡張を利用する場合は[[Calendar/When/Ruby/2.APIの使用例/4.時間間隔/コア拡張]]を参照
+
+# When::TM::Durationのみを利用する場合は[[Calendar/When/Ruby/2.APIの使用例/4.時間間隔/最小セット]]を参照
+
+# *Period Duration
+# **四則
+date = when?('2013-03-25')
+p date                               #=> 2013-03-25
+duration = Duration('P1Y2M3D')
+p duration                           #=> P1Y2M3D
+p date + duration                    #=> 2014-05-28
+p date - duration                    #=> 2012-01-22
+duration2 = duration * 2
+p duration2                          #=> P2Y4M6D
+p duration2 + duration               #=> P3Y6M9D
+p duration2 - duration               #=> P1Y2M3D
+p date + duration2                   #=> 2015-07-31
+p duration2 / 2                      #=> P1Y2M3D
+begin
+  p duration2 / duration
+rescue => e                          #=> TypeError: nil can't be coerced into Float
+  p e
+end
+
+# **ブロック
+start = when?('2013-03-25')
+p start                              #=> 2013-03-25
+stop  = when?('2016-01-01')
+p stop                               #=> 2016-01-01
+duration = Duration('P1Y2M3D')
+(start ^ duration).each do |date|
+  break if date >= stop
+  p date                             #=> 2013-03-25,2014-05-28,2015-07-31
+end
+duration.enum_for(start, :forward, 3).each do |date|
+  p date                             #=> 2013-03-25,2014-05-28,2015-07-31
+end
+
+# *Interval Length
+# **四則
+time = when?('2013-03-25T01:23:45')
+p time                               #=> 2013-03-25T01:23:45Z
+duration = Duration('3s')
+p duration                           #=> 3s
+p time + duration                    #=> 2013-03-25T01:23:48Z
+p time - duration                    #=> 2013-03-25T01:23:42Z
+duration2 = duration * 2
+p duration2                          #=> 6s
+p duration2 + duration               #=> 9.0s
+p duration2 - duration               #=> 3.0s
+p time + duration2                   #=> 2013-03-25T01:23:51Z
+p duration2 / 2                      #=> 3.0s
+p duration2 / duration               #=> 2.0
+
+# **ブロック
+start = when?('2013-03-25T01:23:45')
+p start                              #=> 2013-03-25T01:23:45Z
+stop  = when?('2013-03-25T01:23:54')
+p stop                               #=> 2013-03-25T01:23:54Z
+duration = Duration('3s')
+(start ^ duration).each do |time|
+  break if time >= stop
+  p time                             #=> 2013-03-25T01:23:45Z,2013-03-25T01:23:48Z,2013-03-25T01:23:51Z
+end
+duration.enum_for(start, :forward, 3).each do |time|
+  p time                             #=> 2013-03-25T01:23:45Z,2013-03-25T01:23:48Z,2013-03-25T01:23:51Z
+end
+
+
+# *Duration
+# **四則
+time = when?('2013-03-25T01:23:45')
+p time                               #=> 2013-03-25T01:23:45Z
+duration = TM::Duration.second(3)
+p duration                           #=> [0, 0, 0, 3.0]
+p time + duration                    #=> 2013-03-25T01:23:48Z
+p time - duration                    #=> 2013-03-25T01:23:42Z
+duration2 = duration * 2
+p duration2                          #=> [0, 0, 0, 6.0]
+p duration2 + duration               #=> [0, 0, 0, 9.0]
+p duration2 - duration               #=> [0, 0, 0, 3.0]
+p time + duration2                   #=> 2013-03-25T01:23:51Z
+p duration2 / 2                      #=> [0, 0, 0, 3.0]
+p duration2 / duration               #=> 2.0
+
+# **ブロック
+start = when?('2013-03-25T01:23:45')
+p start                              #=> 2013-03-25T01:23:45Z
+stop  = when?('2013-03-25T01:23:54')
+p stop                               #=> 2013-03-25T01:23:54Z
+duration = TM::Duration.second(3)
+(start ^ duration).each do |time|
+  break if time >= stop
+  p time                             #=> 2013-03-25T01:23:45Z,2013-03-25T01:23:48Z,2013-03-25T01:23:51Z
+end
+duration.enum_for(start, :forward, 3).each do |time|
+  p time                             #=> 2013-03-25T01:23:45Z,2013-03-25T01:23:48Z,2013-03-25T01:23:51Z
+end
+
+# *Temporal Position の差
+time1 = when?('2013-03-25T01:23:45')
+time2 = when?('2013-03-26T01:23:45')
+duration = time2 - time1
+p [duration, duration.class] # => [86400.0s, When::TM::IntervalLength]
+
+# 分解能が「日」よりも細かい時間位置の差は&yard(When::TM::IntervalLength)になる。
+
+date1 = when?('2013-03-25')
+date2 = when?('2013-03-26')
+duration = date2 - date1
+p [duration, duration.class] # => [P1D, When::TM::PeriodDuration]
+
+# 分解能が「日」またはそれより粗い時間位置の差は「日」を単位とする&yard(When::TM::PeriodDuration)になる。
+
+date3 = when?('215-20-17^^Darian')
+duration = date3 - date1
+p [duration, duration.class] # => [14434.504952669144s, When::TM::IntervalLength]
+
+# グレゴリオ暦と火星暦のように歩度の異なる暦で表された時間位置の差は分解能に関係なく&yard(When::TM::IntervalLength)になる。
+