when_exe 0.3.7 → 0.3.8

data/test/scripts/5.ext.rb

@@ -0,0 +1,78 @@
+# -*- 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の使用例/5.剰余類/コア拡張
+
+# コアクラスを require 'when_exe/core/extension' で拡張した場合の記法を確認
+
+# *準備
+# when_exe Ruby 版の When モジュールを include する
+require 'when_exe'
+require 'when_exe/core/extension'
+include When
+
+# *日の剰余
+# ** 剰余を求める
+date = '2013-05-28'.when?
+p date                               #=> 2013-05-28
+p 'Week'.day_of_week.iri             #=> "http://hosi.org/When/Coordinates/CommonResidue::Week"
+p ('Week'.day_of_week % date).iri    #=> "http://hosi.org/When/Coordinates/CommonResidue::Week::Tuesday"
+p date % 'Week'.day_of_week          #=> 1 (Integer)
+p 1.day_of_week.iri                  #=> "http://hosi.org/When/Coordinates/CommonResidue::Week::Tuesday"
+
+# ** 指定の剰余となる日を求める
+date = '2013-05-27'.when?
+p date                               #=> 2013-05-27
+p 'Tuesday'.day_of_week.iri          #=> "http://hosi.org/When/Coordinates/CommonResidue::Week::Tuesday"
+p date & 'Tuesday'.day_of_week       #=> 2013-05-28
+p date & 'Tuesday'.day_of_week << 1  #=> 2013-05-21
+p '甲子'.residue.iri                 #=> "http://hosi.org/When/Coordinates/CommonResidue::干支::甲子"
+p date & '甲子'.residue              #=> 2013-06-27
+p date & '甲子'.residue >> 1         #=> 2013-08-26
+p date & ('Tuesday'.day_of_week & '甲子'.residue) #=> 2013-12-24
+
+# **ブロック
+date = '2013-05-27'.when?
+p date                               #=> 2013-05-27
+(date ^ 'Tuesday'.day_of_week).each do |d|
+  break if d >= '2013-06-15'.when?
+  p d                                #=> 2013-05-28, 2013-06-04, 2013-06-11
+end
+
+# *年の剰余
+p 'Indiction'.residue                #=> nil
+p 'Metonic'.residue                  #=> nil
+p 'Solar'.residue                    #=> nil
+
+# ローマ暦をメモリにロードし、建国紀元500年の日付詳細を出力
+
+p 'AUC0500'.when?.to_h(:method=>:to_m17n, :locale=>'en') #=> 下記
+ # {:frame=>"http://hosi.org/When/CalendarTypes/RomanA?border=0-5-1",
+ #  :precision=>-2,
+ #  :trans=>{},
+ #  :query=>{"area"=>"", "period"=>"Roman", :validate=>:epoch},
+ #  :sdn=>1628745,
+ #  :calendar=>["http://hosi.org/When/TM/CalendarEra/Roman::AUC", -753],
+ #  :notes=>
+ #   [[{:note=>"Solar", :value=>"Solar(7)"},
+ #     {:note=>"Metonic", :value=>"Metonic(13)"},
+ #     {:note=>"Indiction", :value=>"V"}],
+ #    [],
+ #    []],
+ #  :cal_date=>["500", "5", 1]}
+
+# 剰余類の定義がメモリに読み込まれている
+
+p 'Indiction'.residue.iri #=> "http://hosi.org/When/CalendarTypes/CalendarNote/RomanNote/NoteObjects::year::Indiction"
+p 'Metonic'.residue.iri   #=> "http://hosi.org/When/CalendarTypes/CalendarNote/RomanNote/NoteObjects::year::Metonic"
+p 'Solar'.residue.iri     #=> "http://hosi.org/When/CalendarTypes/CalendarNote/RomanNote/NoteObjects::year::Solar"
+
+# ユリウス通日の元期を求めてみる
+p [2014, 1, 1].tm_pos(:frame=>'Julian') &
+   (('Indiction'.residue &
+    'Metonic'.residue   &
+    'Solar'.residue) << 1) #=> -04712-01-01 (ユリウス通日の元期)

data/test/scripts/5.rb

@@ -0,0 +1,81 @@
+# -*- 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の使用例/5.剰余類
+
+# →関連クラス図 [[Calendar/When/Ruby/3.クラス図/01.Coordinates]]
+
+# *準備
+# when_exe Ruby 版の When モジュールを include する
+require 'when_exe'
+include When
+
+# コア拡張を利用する場合は[[Calendar/When/Ruby/2.APIの使用例/5.剰余類/コア拡張]]を参照
+
+# *日の剰余
+# ** 剰余を求める
+date = when?('2013-05-28')
+p date                                #=> 2013-05-28
+p day_of_week('Week').iri             #=> "http://hosi.org/When/Coordinates/CommonResidue::Week"
+p (day_of_week('Week') % date).iri    #=> "http://hosi.org/When/Coordinates/CommonResidue::Week::Tuesday"
+p date % day_of_week('Week')          #=> 1 (Integer)
+p day_of_week(1).iri                  #=> "http://hosi.org/When/Coordinates/CommonResidue::Week::Tuesday"
+
+# ** 指定の剰余となる日を求める
+date = when?('2013-05-27')
+p date                                #=> 2013-05-27
+p day_of_week('Tuesday').iri          #=> "http://hosi.org/When/Coordinates/CommonResidue::Week::Tuesday"
+p date & day_of_week('Tuesday')       #=> 2013-05-28
+p date & day_of_week('Tuesday') << 1  #=> 2013-05-21
+p Residue('甲子').iri                 #=> "http://hosi.org/When/Coordinates/CommonResidue::干支::甲子"
+p date & Residue('甲子')              #=> 2013-06-27
+p date & Residue('甲子') >> 1         #=> 2013-08-26
+p date & (day_of_week('Tuesday') & Residue('甲子')) #=> 2013-12-24
+
+# **ブロック
+date = when?('2013-05-27')
+p date                                #=> 2013-05-27
+day_of_week('Tuesday').enum_for(date, :forward, 3).each do |d|
+  p d                                 #=> 2013-05-28, 2013-06-04, 2013-06-11
+end
+day_of_week('Tuesday').enum_for(date, :reverse, 3).each do |d|
+  p d                                 #=> 2013-05-21, 2013-05-14, 2013-05-07
+end
+
+# *年の剰余
+p Residue('Indiction')                #=> nil
+p Residue('Metonic')                  #=> nil
+p Residue('Solar')                    #=> nil
+
+# ローマ暦をメモリにロードし、建国紀元500年の日付詳細を出力
+
+p when?('AUC0500').to_h(:method=>:to_m17n, :locale=>'en') #=> 下記
+ # {:frame=>"http://hosi.org/When/CalendarTypes/RomanA?border=0-5-1",
+ #  :precision=>-2,
+ #  :trans=>{},
+ #  :query=>{"area"=>"", "period"=>"Roman", :validate=>:epoch},
+ #  :sdn=>1628745,
+ #  :calendar=>["http://hosi.org/When/TM/CalendarEra/Roman::AUC", -753],
+ #  :notes=>
+ #   [[{:note=>"Solar", :value=>"Solar(7)"},
+ #     {:note=>"Metonic", :value=>"Metonic(13)"},
+ #     {:note=>"Indiction", :value=>"V"}],
+ #    [],
+ #    []],
+ #  :cal_date=>["500", "5", 1]}
+
+# 剰余類の定義がメモリに読み込まれている
+
+p Residue('Indiction').iri #=> "http://hosi.org/When/CalendarTypes/CalendarNote/RomanNote/NoteObjects::year::Indiction"
+p Residue('Metonic').iri   #=> "http://hosi.org/When/CalendarTypes/CalendarNote/RomanNote/NoteObjects::year::Metonic"
+p Residue('Solar').iri     #=> "http://hosi.org/When/CalendarTypes/CalendarNote/RomanNote/NoteObjects::year::Solar"
+
+# ユリウス通日の元期を求めてみる
+p tm_pos(2014, 1, 1, :frame=>'Julian') &
+   ((Residue('Indiction') &
+     Residue('Metonic')   &
+     Residue('Solar')) << 1) #=> -04712-01-01 (ユリウス通日の元期)

data/test/scripts/6.gcal.rb

@@ -0,0 +1,131 @@
+# -*- 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の使用例/6.iCalendar/GoogleCalendar
+
+# *Ruby から制御するAPI
+
+# gcalapi for gem - http://gcalapi.rubyforge.org/
+
+# これ自体は周期イベントに対応していないが、簡単なパッチで対応可能
+
+require 'rubygems'
+gem 'gcalapi'
+require 'gcalapi'
+module GoogleCalendar
+  class Event
+    attr_accessor :recurrence
+    alias :_instance_to_xml :instance_to_xml
+    def instance_to_xml
+      _instance_to_xml
+      @xml.root.elements[recurrence ? "gd:when" : "gd:recurrence"].remove
+    end
+  end
+  Event::ATTRIBUTES_MAP["recurrence"] = { "element" => "gd:recurrence"}
+end
+
+# 期間を指定してイベントを取得する場合は、
+
+events = cal.events({'start-min'=>'2012-01-01', 'start-max'=>'2012-12-31'})
+
+# のようなコードで可能。:start_min, :start_max でないことに注意。
+
+# また、日時はISO8601として正しい文字列でなければならない。
+
+# *Google Calendar の挙動
+
+# 2014-07-15現在、Google側の動作が変わって、gcalapi が動作しなくなっているようです。
+# http://aligach.net/diary/20131214.html を読んだところ、REDIRECT 対応が必要になった由。
+# REDIRECT動作に対応した https://github.com/suchowan/gcalapi (0.1.2s)で動作が改善されます。
+
+# どうも insertだけでなく update や destroy でも REDIRECT 対応が必要のようです。
+# &yard(GoogleCalendar)の仕様を理解しないまま対症療法的に施した対策ですので妥当性は不明です。
+# が、一応 when_exe と協働したテストには通るようになったので、とりあえずこの 0.1.2s を前提にしようと思います。
+
+# **フィード先URI
+
+# フィード先URIは表の通り
+
+# |私用|http://www.google.com/calendar/feeds/'''ユーザ名'''%40gmail.com/private/full
+# |国別祝日|http://www.google.com/calendar/feeds/'''国名'''__'''言語コード'''%40holiday.calendar.google.com/public/full
+
+# 国名には、irish, usa, uk, islamic, italian, iranian, indian, indonesian, dutch,
+# australian, austrian, canadian, christian, greek, singapore, swedish, spain,
+# thai, danish, german, new_zealand, norwegian, philippines, finnish, french,
+# brazilian, vietnamese, portuguese, polish, malaysia, mexican, jewish, russian,
+# china, sa, taiwan, japanese, south_korea, hong_kong_c, hong_kong が
+# [[使用可能>https://gist.github.com/1438183]](2012-04-10現在)。
+
+# ただし、iranian は言語コード ja では使えない。
+
+# **recurrence定義
+
+# *** タイムゾーン部
+
+# 終日イベントはローカルタイムを使用する。タイムゾーンの指定は無視される。
+
+# 終日でないイベントにはタイムゾーンが付く。
+# 自前でタイムゾーンを定義する必要はなく、定義しても Google が提供するタイムゾーンに置き換えられる。
+# たとえば、America/New_York は、
+BEGIN:VTIMEZONE
+TZID:America/New_York
+X-LIC-LOCATION:America/New_York
+BEGIN:DAYLIGHT
+TZOFFSETFROM:-0500
+TZOFFSETTO:-0400
+TZNAME:EDT
+DTSTART:19700308T020000
+RRULE:FREQ=YEARLY;BYMONTH=3;BYDAY=2SU
+END:DAYLIGHT
+BEGIN:STANDARD
+TZOFFSETFROM:-0400
+TZOFFSETTO:-0500
+TZNAME:EST
+DTSTART:19701101T020000
+RRULE:FREQ=YEARLY;BYMONTH=11;BYDAY=1SU
+END:STANDARD
+END:VTIMEZONE
+
+# となるが、夏時間が上記のロジックになったのは2007年からなので、
+# Google が提供するタイムゾーン定義は実際には誤りである。
+
+# *** イベント部
+
+# 認識するのは、DTSTART, DTEND, RRULE のみである。
+
+# LOCALE, NAMESPACE などはエラーにならず破棄される。
+
+# 当然ながら RRULE に when.exe 独自の拡張機能は使えない(パースエラー)。
+
+# EXDATE は使用せず、別途キャンセルイベントを定義する方式になっている。
+# このため、キャンセルされたイベントも期間検索でヒットする。
+<gd:eventStatus value='http://schemas.google.com/g/2005#event.canceled'/>
+
+# * When::V::Event との連携
+
+# [[When::V::Event>http://www.asahi-net.or.jp/~dd6t-sg/when_rdoc/doc.1.9/When/V/Event.html]]と連携するため、gcalapi に API を追加
+
+# ** When::V::Event クラス
+# *** to_gcalevent(gcal)
+
+# When::V::Event クラスのインスタンスを &yard(GoogleCalendar::Event,2) クラスのインスタンスに変換する。
+
+# 引数 gcal は&yard(GoogleCalendar)::Calendarクラスのインスタンス
+
+# ** Google Calendar::Event クラス
+# *** to_vevent()
+
+# &yard(GoogleCalendar)::Event クラスのインスタンスを &yard(When::V::Event,2)クラスのインスタンスに変換する。
+
+# ** Google Calendar::Calendar クラス
+# *** enum_for(conditions)
+
+# 引数 conditions で抽出したイベントに対応する日時(&yard(When::TM::TemporalPosition,2))を生成する Enumeratorを取得する。
+
+# conditions は &yard(GoogleCalendar::Calendar,2)クラスの eventsメソッドと互換だが、'start-min'が省略された場合、現在時刻とみなす。
+
+# to_enum は enum_for の alias

data/test/scripts/6.rb

@@ -0,0 +1,205 @@
+# -*- 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の使用例/6.iCalendar
+
+# →関連クラス図 [[Calendar/When/Ruby/3.クラス図/05.RFC5545継承と包含]]
+
+# *準備
+# when_exe Ruby 版の When モジュールを include する
+require 'when_exe'
+include When
+
+# 標準時間と夏時間の切り替え時の振る舞いについては[[Calendar/When/Ruby/2.APIの使用例/6.iCalendar/時間帯]]を参照
+
+# &yard(When::TM::GoogleCalendar,1)を利用する場合は[[Calendar/When/Ruby/2.APIの使用例/6.iCalendar/GoogleCalendar]]も参照
+
+# *敬老の日
+# **APIのみで計算
+event = When::V::Event.new({
+  'rrule'   => {'FREQ'=>'MONTHLY', 'INTERVAL'=>12, 'BYDAY'=>{''=>'3MO'}},
+  'dtstart' => 'VALUE=DATE;TZID=Asia/Tokyo:20080915'
+})
+p event.class   #=> When::V::Event
+event.enum_for(When.when?('20070101'), :forward, 3).each do |date|
+  p date        #=> 2008-09-15T+09:00, 2009-09-21T+09:00, 2010-09-20T+09:00
+end
+
+# **ローカル時刻を使う場合
+When::TM::Clock.local_time = Clock("+0900")
+event = When::V::Event.new({
+  'rrule'   => {'FREQ'=>'MONTHLY', 'INTERVAL'=>12, 'BYDAY'=>{''=>'3MO'}},
+  'dtstart' => 'VALUE=DATE:20080915'
+})
+p event.class   #=> When::V::Event
+event.enum_for(When.when?('20070101'), :forward, 3).each do |date|
+  p date        #=> 2008-09-15, 2009-09-21, 2010-09-20
+end
+
+# **icsファイルを読み込んで利用
+-- sample1.ics -- (使用する場合は行頭の空白を削除)
+BEGIN:VCALENDAR
+VERSION:2.0
+PRODID:-//hacksw/handcal//NONSGML v1.0//EN
+BEGIN:VTIMEZONE
+TZID:Asia/Tokyo
+BEGIN:STANDARD
+TZOFFSETFROM:+0900
+TZOFFSETTO:+0900
+TZNAME:JST
+DTSTART:19700101T000000
+END:STANDARD
+END:VTIMEZONE
+BEGIN:VEVENT
+CREATED:20050809T050000Z
+LAST-MODIFIED:20050809T050000Z
+DTSTAMP:20050809T050000Z
+UID:event1-ID
+RRULE:FREQ=MONTHLY;INTERVAL=12;BYDAY=3MO
+DTSTART;VALUE=DATE;TZID=Asia/Tokyo:20080915
+DTEND;VALUE=DATE;TZID=Asia/Tokyo:20080916
+END:VEVENT
+END:VCALENDAR
+----------------
+
+event = Resource('sample1.ics::event1-ID')
+p event.iri                               #=> "sample1.ics::event1-ID" (実際は IRI に適合しないが便宜上ファイル名から生成)
+p event.class                             #=> When::V::Event
+event.enum_for(When.when?('20080101'), :forward, 3).each do |date|
+  p date                                  #=> 2008-09-15T+09:00, 2009-09-21T+09:00, 2010-09-20T+09:00
+end
+
+# *秋分の日
+# **APIのみで計算(RFC5545に対する拡張機能)
+event = When::V::Event.new({
+  'rrule'   => {'FREQ'=>'YEARLY', 'BYDAY'=>{'SolarTerms'=>'term180'}},
+  'dtstart' => 'VALUE=DATE;TZID=Asia/Tokyo:19480923'
+})
+p event.class   #=> When::V::Event
+event.enum_for(When.when?('20110101'), :forward, 3).each do |date|
+  p date        #=> 2011-09-23T+09:00, 2012-09-22T+09:00, 2013-09-23T+09:00
+end
+
+# **icsファイルを読み込んで利用
+-- sample2.ics --
+(snip) - sample1.ics と同じ
+UID:event2-ID
+RRULE:FREQ=YEARLY;BYDAY/SolarTerms=term180
+DTSTART;VALUE=DATE;TZID=Asia/Tokyo:19480923
+DTEND;VALUE=DATE;TZID=Asia/Tokyo:19480924
+(snip) - sample1.ics と同じ
+----------------
+
+event = Resource('sample2.ics::event2-ID')
+p event.iri                               #=> "sample2.ics::event2-ID" (実際は IRI に適合しないが便宜上ファイル名から生成)
+p event.class                             #=> When::V::Event
+event.enum_for(When.when?('20110101'), :forward, 3).each do |date|
+  p date                                  #=> 2011-09-23T+09:00, 2012-09-22T+09:00, 2013-09-23T+09:00
+end
+
+# *日本の年間祝日
+# **イベントの取得
+service = GoogleCalendar::Service.new('xxxxxxxx@gmail.com', '*********')
+feed = "http://www.google.com/calendar/feeds/%s__%s%%40holiday.calendar.google.com/public/full" % ['japanese', 'ja']
+gcal = GoogleCalendar::Calendar::new(service, feed)
+gcal.events({'start-min'=>'2012-01-01', 'start-max'=>'2013-01-01',
+             'orderby'=>'starttime', 'sortorder'=>'a'
+            }).each do |event|
+  vevent = event.to_vevent
+  p [vevent.summary, vevent.dtstart]  #=> 下記の通り
+  # ["元日",                "2012-01-01T00:00:00.00+09:00"]
+  # ["元日 振替休日",       "2012-01-02T00:00:00.00+09:00"]
+  # ["銀行休業日",          "2012-01-02T00:00:00.00+09:00"]
+  # ["銀行休業日",          "2012-01-03T00:00:00.00+09:00"]
+  # ["成人の日",            "2012-01-09T00:00:00.00+09:00"]
+  # ["建国記念の日",        "2012-02-11T00:00:00.00+09:00"]
+  # ["春分の日",            "2012-03-20T00:00:00.00+09:00"]
+  # ["昭和の日",            "2012-04-29T00:00:00.00+09:00"]
+  # ["昭和の日 振替休日",   "2012-04-30T00:00:00.00+09:00"]
+  # ["憲法記念日",          "2012-05-03T00:00:00.00+09:00"]
+  # ["みどりの日",          "2012-05-04T00:00:00.00+09:00"]
+  # ["こどもの日",          "2012-05-05T00:00:00.00+09:00"]
+  # ["海の日",              "2012-07-16T00:00:00.00+09:00"]
+  # ["敬老の日",            "2012-09-17T00:00:00.00+09:00"]
+  # ["秋分の日",            "2012-09-22T00:00:00.00+09:00"]
+  # ["体育の日",            "2012-10-08T00:00:00.00+09:00"]
+  # ["文化の日",            "2012-11-03T00:00:00.00+09:00"]
+  # ["勤労感謝の日",        "2012-11-23T00:00:00.00+09:00"]
+  # ["天皇誕生日",          "2012-12-23T00:00:00.00+09:00"]
+  # ["天皇誕生日 振替休日", "2012-12-24T00:00:00.00+09:00"]
+  # ["クリスマス",          "2012-12-25T00:00:00.00+09:00"]
+  # ["大晦日",              "2012-12-31T00:00:00.00+09:00"]
+end
+
+# **日時範囲の取得
+service = GoogleCalendar::Service.new('xxxxxxxx@gmail.com', '*********')
+feed = "http://www.google.com/calendar/feeds/%s__%s%%40holiday.calendar.google.com/public/full" % ['japanese', 'ja']
+gcal = GoogleCalendar::Calendar::new(service, feed)
+gcal.enum_for({'start-min'=>'2012-01-01', 'start-max'=>'2013-01-01',
+               'orderby'=>'starttime', 'sortorder'=>'a'
+              }).each do |range|
+  p [range.events[0].summary, range] #=> 下記の通り
+  # ["元日",                2012-01-01T00:00:00.00+09:00...2012-01-02T00:00:00.00+09:00]
+  # ["元日 振替休日",       2012-01-02T00:00:00.00+09:00...2012-01-03T00:00:00.00+09:00]
+  # ["銀行休業日",          2012-01-02T00:00:00.00+09:00...2012-01-03T00:00:00.00+09:00]
+  # ["銀行休業日",          2012-01-03T00:00:00.00+09:00...2012-01-04T00:00:00.00+09:00]
+  # ["成人の日",            2012-01-09T00:00:00.00+09:00...2012-01-10T00:00:00.00+09:00]
+  # ["建国記念の日",        2012-02-11T00:00:00.00+09:00...2012-02-12T00:00:00.00+09:00]
+  # ["春分の日",            2012-03-20T00:00:00.00+09:00...2012-03-21T00:00:00.00+09:00]
+  # ["昭和の日",            2012-04-29T00:00:00.00+09:00...2012-04-30T00:00:00.00+09:00]
+  # ["昭和の日 振替休日",   2012-04-30T00:00:00.00+09:00...2012-05-01T00:00:00.00+09:00]
+  # ["憲法記念日",          2012-05-03T00:00:00.00+09:00...2012-05-04T00:00:00.00+09:00]
+  # ["みどりの日",          2012-05-04T00:00:00.00+09:00...2012-05-05T00:00:00.00+09:00]
+  # ["こどもの日",          2012-05-05T00:00:00.00+09:00...2012-05-06T00:00:00.00+09:00]
+  # ["海の日",              2012-07-16T00:00:00.00+09:00...2012-07-17T00:00:00.00+09:00]
+  # ["敬老の日",            2012-09-17T00:00:00.00+09:00...2012-09-18T00:00:00.00+09:00]
+  # ["秋分の日",            2012-09-22T00:00:00.00+09:00...2012-09-23T00:00:00.00+09:00]
+  # ["体育の日",            2012-10-08T00:00:00.00+09:00...2012-10-09T00:00:00.00+09:00]
+  # ["文化の日",            2012-11-03T00:00:00.00+09:00...2012-11-04T00:00:00.00+09:00]
+  # ["勤労感謝の日",        2012-11-23T00:00:00.00+09:00...2012-11-24T00:00:00.00+09:00]
+  # ["天皇誕生日",          2012-12-23T00:00:00.00+09:00...2012-12-24T00:00:00.00+09:00]
+  # ["天皇誕生日 振替休日", 2012-12-24T00:00:00.00+09:00...2012-12-25T00:00:00.00+09:00]
+  # ["クリスマス",          2012-12-25T00:00:00.00+09:00...2012-12-26T00:00:00.00+09:00]
+  # ["大晦日",              2012-12-31T00:00:00.00+09:00...2013-01-01T00:00:00.00+09:00]
+end
+
+# **when.exe での iCalendar の拡張
+
+TM::Clock.local_time = Clock("+0900")
+cal = Resource("../test/examples/JapanHolidays.ics")
+cal.each(when?('20090101')...when?('20100101')) do |date|
+  p date #=> 下記の通り
+  # 2009-01-01T+09:00
+  # 2009-01-12T+09:00
+  # 2009-02-11T+09:00
+  # 2009-03-20T+09:00
+  # 2009-04-29T+09:00
+  # 2009-05-03T+09:00
+  # 2009-05-04T+09:00
+  # 2009-05-05T+09:00
+  # 2009-05-06T+09:00
+  # 2009-07-20T+09:00
+  # 2009-09-21T+09:00
+  # 2009-09-22T+09:00
+  # 2009-09-23T+09:00
+  # 2009-10-12T+09:00
+  # 2009-11-03T+09:00
+  # 2009-11-23T+09:00
+  # 2009-12-23T+09:00
+end
+
+# 9月22日が現れるのは &yard(JapanHolidays.ics) に拡張構文
+
+ # -- JapanHolidays.ics --
+ # (snip)
+ # RRULE:FREQ=MONTHLY;INTERVAL=12;BYDAY=TU;BYDAY/SolarTerms=term180-1
+ # (snip)
+ # ----------------
+
+# で「秋分の前日である火曜日」が定義してあるからです。
+# 拡張構文を使っていますから&yard(JapanHolidays.ics) は when.exe 以外とは情報交換できません。
+