when_exe 0.3.7 → 0.3.8

data/test/scripts/6.tz.rb

@@ -0,0 +1,105 @@
+# -*- 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.クラス図/12.時間参照系]]
+
+# *準備
+# when_exe Ruby 版の When モジュールを include する
+require 'when_exe'
+include When
+
+# *時間帯の指定に When::V::Timezone を使用する場合
+# **.icsファイルで時間帯を定義
+-- NewYork.ics -- (使用する場合は行頭の空白を削除)
+BEGIN:VCALENDAR
+VERSION:2.0
+PRODID:-//hacksw/handcal//NONSGML v1.0//EN
+BEGIN:VTIMEZONE
+TZID:America/New_York
+LAST-MODIFIED:20050809T050000Z
+BEGIN:STANDARD
+DTSTART:19671029T020000
+RRULE:FREQ=YEARLY;BYMONTH=10;BYDAY=-1SU;UNTIL=20061029T060000Z
+TZOFFSETFROM:-0400
+TZOFFSETTO:-0500
+TZNAME:EST
+END:STANDARD
+BEGIN:DAYLIGHT
+DTSTART:19870405T020000
+RRULE:FREQ=YEARLY;BYMONTH=4;BYDAY=1SU;UNTIL=20060402T070000Z
+TZOFFSETFROM:-0500
+TZOFFSETTO:-0400
+TZNAME:EDT
+END:DAYLIGHT
+END:VTIMEZONE
+END:VCALENDAR
+----------------
+
+vcal = Resource("NewYork.ics")  # "NewYork.ics"をメモリに読み込む
+p [vcal.class, vcal.iri]        #=> [When::V::Calendar, "NewYork.ics"]
+tz   = vcal["America/New_York"]
+p [tz.class, tz.iri]            #=> [When::V::Timezone, "NewYork.ics::America/New_York"]
+
+# ** 標準時間→夏時間
+When::V::Event.new({
+          'rrule'   => 'FREQ=YEARLY;BYMONTH=4;BYDAY=1SU;BYHOUR=1,2,3,4;BYMINUTE=30;COUNT=4',
+          'dtstart' => 'TZID=America/New_York:19970406T013000'
+}).each do |date|
+  p date #=> 1997-04-06T01:30:00-05:00, 1997-04-06T03:30:00-04:00, 1997-04-06T04:30:00-04:00, 1998-04-05T01:30:00-05:00
+end
+
+# ** 夏時間→標準時間(重複する1時間内はスキップ)
+When::V::Event.new({
+          'rrule'   => 'FREQ=YEARLY;BYMONTH=10;BYDAY=-1SU;BYHOUR=1,2,3;BYMINUTE=30;COUNT=4',
+          'dtstart' => 'TZID=America/New_York:19971026T013000'
+}).each do |date|
+  p date #=> 1997-10-26T01:30:00-04:00, 1997-10-26T02:30:00-05:00, 1997-10-26T03:30:00-05:00, 1998-10-25T01:30:00-04:00
+end
+
+# ** 夏時間→標準時間(重複する1時間内のイベントも発生)
+When::V::Event.new({
+          'rrule'   => 'FREQ=YEARLY;BYMONTH=10;BYDAY=-1SU;BYHOUR=1,1=,2,3;BYMINUTE=30;COUNT=5',
+          'dtstart' => 'TZID=America/New_York:19971026T013000'
+}).each do |date|
+  p date #=> 1997-10-26T01:30:00-04:00, 1997-10-26T01:30:00-05:00, 1997-10-26T02:30:00-05:00, 1997-10-26T03:30:00-05:00, 1998-10-25T01:30:00-04:00
+end
+
+# BYHOUR=1,1=,2,3 の 1= は [[When.exe　Standard　Expression>http://www.asahi-net.or.jp/~dd6t-sg/when_rdoc/when.html#label-8]] の書式に準じている
+
+# *時間帯の指定に TZInfo::Timezone を使用する場合
+# メモリに America/Chicago に対応する When::V::Timezone が読み込まれていない場合、TZInfo::Timezoneを使用する
+# ** 標準時間→夏時間
+When::V::Event.new({
+          'rrule'   => 'FREQ=YEARLY;BYMONTH=4;BYDAY=1SU;BYHOUR=1,2,3,4;BYMINUTE=30;COUNT=4',
+          'dtstart' => 'TZID=America/Chicago:19970406T013000'
+}).each do |date|
+  p date #=> 1997-04-06T01:30:00-06:00, 1997-04-06T03:30:00-05:00, 1997-04-06T04:30:00-05:00, 1998-04-05T01:30:00-06:00
+end
+
+# ** 夏時間→標準時間(重複する1時間内はスキップ)
+When::V::Event.new({
+          'rrule'   => 'FREQ=YEARLY;BYMONTH=10;BYDAY=-1SU;BYHOUR=1,2,3;BYMINUTE=30;COUNT=4',
+          'dtstart' => 'TZID=America/Chicago:19971026T013000'
+}).each do |date|
+  p date #=> 1997-10-26T01:30:00-05:00, 1997-10-26T02:30:00-06:00, 1997-10-26T03:30:00-06:00, 1998-10-25T01:30:00-05:00
+end
+
+# ** 夏時間→標準時間(重複する1時間内のイベントも発生)
+When::V::Event.new({
+          'rrule'   => 'FREQ=YEARLY;BYMONTH=10;BYDAY=-1SU;BYHOUR=1,1=,2,3;BYMINUTE=30;COUNT=5',
+          'dtstart' => 'TZID=America/Chicago:19971026T013000'
+}).each do |date|
+  p date #=> 1997-10-26T01:30:00-05:00, 1997-10-26T01:30:00-06:00, 1997-10-26T02:30:00-06:00, 1997-10-26T03:30:00-06:00, 1998-10-25T01:30:00-05:00
+end
+
+# 制限 : BYHOUR=1= から生成した 1997-10-26T01:30:00-06:00 が保持する時間帯は -06:00 固定となり加減算しても変わらない。
+
+

data/test/scripts/7.phase.rb

@@ -0,0 +1,109 @@
+# -*- 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の使用例/7.暦注/月の位相
+
+# *準備
+# when_exe Ruby 版の When モジュールを include する
+require 'date'
+require 'when_exe'
+include When
+
+# *天体暦
+
+# 標準時を日本時間にしておく
+TM::Clock.local_time = '+09:00'
+
+# ** 望の日付
+# *** 天体暦用暦注リソースを明示的に使用
+date = when?('2014-01-01')            #=> 2014-01-01
+p date.class                          #=> When::TM::CalDate
+note = CalendarNote('LunarPhases')
+p note.class                          #=> When::CalendarNote::LunarPhases
+p note.phase(date,  15)               #=> 2014-01-16 (2014-01-01の直後の望)
+p note.phase(date, -15)               #=> 2013-12-17 (2014-01-01の直前の望)
+
+# *** 天体暦用暦注リソースを暗黙的に使用
+date = when?('2014-01-01')            #=> 2014-01-01
+p date.class                          #=> When::TM::CalDate
+p date.frame.class                    #=> When::CalendarTypes::Gregorian
+p date.frame.note.class               #=> When::CalendarNote::Christian
+p date.phase(15)                      #=> 2014-01-16 (2014-01-01の直後の望)
+p date.phase(-15)                     #=> 2013-12-17 (2014-01-01の直前の望)
+
+# &yard(When::CalendarNote::Christian,2)には phase メソッドがないため、代替して&yard(When::CalendarNote::LunarPhases,2)が使用される
+
+# ** 朔の時刻
+# *** 天体暦用暦注リソースを明示的に使用
+time = when?('2014-01-01T00:00')      #=> 2014-01-01T00:00+09:00
+p time.class                          #=> When::TM::DateAndTime
+note = CalendarNote('LunarPhases')
+p note.class                          #=> When::CalendarNote::LunarPhases
+p note.phase(time)                    #=> 2014-01-01T20:14+09:00 (2014-01-01の直後の朔, time と同じ分解能)
+p note.phase(time, -30)               #=> 2013-12-03T09:22+09:00 (2014-01-01の直前の朔, time と同じ分解能)
+
+# *** 天体暦用暦注リソースを暗黙的に使用
+time = when?('2014-01-01T00:00')      #=> 2014-01-01T00:00+09:00
+p time.class                          #=> When::TM::DateAndTime
+p time.frame.class                    #=> When::CalendarTypes::Gregorian
+p time.frame.note.class               #=> When::CalendarNote::Christian
+p time.phase                          #=> 2014-01-01T20:14+09:00 (2014-01-01の直後の朔, time と同じ分解能)
+p time.phase(-30)                     #=> 2013-12-03T09:22+09:00 (2014-01-01の直前の朔, time と同じ分解能)
+
+# phase メソッドの引数 0(=月の位相 0 ティティ)は省略できる
+
+# ** 朔の日付時刻(標準の日付時刻クラスを使用)
+# *** 天体暦用暦注リソースを明示的に使用
+date = Date.new(2014,1,1)             #=> #<Date: 2014-01-01 (4913317/2,0,2299161)>
+time = DateTime.new(2014,1,1)         #=> #<DateTime: 2014-01-01T00:00:00+00:00 (4913317/2,0,2299161)>
+note = CalendarNote('LunarPhases')
+p note.class                          #=> When::CalendarNote::LunarPhases
+p note.phase(date)                    #=> 2014-01-31
+p note.phase(time)                    #=> 2014-01-01T11:14:09.85Z
+
+# UTC の正午は朔の後のため、直後の朔は1月31日になる
+
+# *** 天体暦用暦注リソースを暗黙的に使用
+require 'when_exe/core/extension'
+date = Date.new(2014,1,1)             #=> #<Date: 2014-01-01 (4913317/2,0,2299161)>
+time = DateTime.new(2014,1,1)         #=> #<DateTime: 2014-01-01T00:00:00+00:00 (4913317/2,0,2299161)>
+p date.phase                          #=> #<Date: 2014-01-31 (4913377/2,0,2299161)>
+p time.phase                          #=> #<DateTime: 2014-01-01T11:14:09+00:00 (70751778283/28800,0/1,2299161)>
+
+# *宣明暦
+
+# 標準時を未定義にしておく
+TM::Clock.local_time = nil
+
+# ** 望の日付
+date = when?('康和3.2.1')             #=> 康和03(1101).02.01
+p date.class                          #=> When::TM::CalDate
+p date.frame.note.class               #=> When::CalendarNote::JapaneseNote
+p date.phase(15)                      #=> 康和03(1101).02.16
+p date.phase(-15)                     #=> 康和03(1101).01.16=
+
+# &yard(When::CalendarNote::JapaneseNote,2)の phase メソッドが使われ、当時行用されていた宣明暦で計算が行われる
+
+# 宣明暦での康和3年正月望は康和03(1101).01.16の翌朝の日の出前であるため = が付く
+
+# (= は<When.exe Standard Representation ([[Calendar/When/Ruby/2.APIの使用例/1.前提となる概念/1.日付時刻の表現]])> で翌日を意味する)
+
+# ** 月の位相の日付一覧
+[0, 7.5, 15, 22.5, 30].each do |phase|
+  date = when?('康和3.2.1T00:00').phase(phase)
+  p date                             #=> 下記
+  # 康和03(1101).02.01T04:33Z
+  # 康和03(1101).02.08=T03:27Z
+  # 康和03(1101).02.16T14:41Z
+  # 康和03(1101).02.23T09:36Z
+  # 康和03(1101).03.01*T19:36Z
+end
+
+
+# 宣明暦での康和3年３月朔は進朔しており実際は前日であるため * が付く
+
+# (* は<When.exe Standard Representation ([[Calendar/When/Ruby/2.APIの使用例/1.前提となる概念/1.日付時刻の表現]])> で前日を意味する)

data/test/scripts/7.rb

@@ -0,0 +1,95 @@
+# -*- 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の使用例/7.暦注
+
+# →関連クラス図 [[Calendar/When/Ruby/3.クラス図/03.CalendarTypes]]
+
+# *準備
+# when_exe Ruby 版の When モジュールを include する
+require 'when_exe'
+include When
+
+# 七曜表の扱いなどについては[[Calendar/When/Ruby/2.APIの使用例/7.暦注/七曜]]を参照
+
+# *復活祭
+# ** グレゴリオ暦
+gdate = CalendarNote('Christian').easter(when?('2013'))
+p [gdate, gdate.frame.class]                                #=> [2013-03-31, When::CalendarTypes::Gregorian]
+gdate = when?('2013').easter
+p [gdate, gdate.frame.class]                                #=> [2013-03-31, When::CalendarTypes::Gregorian]
+p gdate.events                                              #=> ["easter"]
+p gdate.to_h(:method=>:to_m17n)                             #=> 下記
+ # {:frame=>"http://hosi.org/When/CalendarTypes/Gregorian",
+ #  :precision=>0,
+ #  :events=>["easter"],
+ #  :sdn=>2456383,
+ #  :calendar=>["http://hosi.org/When/CalendarTypes/Gregorian"],
+ #  :notes=>[[{:note=>"Month", :value=>"March"}], []],
+ #  :cal_date=>[2013, 3, 31]}
+p CalendarNote('Christian').include?(gdate, 'easter')       #=> true
+p gdate.is?('easter')                                       #=> true
+p CalendarNote('Christian').include?(Calendar('Julian') ^ gdate, 'easter') #=> false
+p (Calendar('Julian') ^ gdate).is?('easter')                #=> false
+
+# ** ユリウス暦
+jdate = CalendarNote('Christian').easter(when?('2013^^Julian'))
+p [jdate, jdate.frame.class, Calendar('Gregorian') ^ jdate] #=> [2013-04-22, When::CalendarTypes::Julian, 2013-05-05]
+jdate = when?('2013^^Julian').easter
+p [jdate, jdate.frame.class, Calendar('Gregorian') ^ jdate] #=> [2013-04-22, When::CalendarTypes::Julian, 2013-05-05]
+p jdate.events                                              #=> ["easter"]
+p CalendarNote('Christian').include?(jdate, 'easter')       #=> true
+p jdate.is?('easter')                                       #=> true
+p CalendarNote('Christian').include?(Calendar('Gregorian') ^ jdate, 'easter') #=> false
+p (Calendar('Gregorian') ^ jdate).is?('easter')             #=> false
+
+# *秋分の日
+# **デフォルト暦注
+date = when?('H25.9.23')
+p date                                                      #=> H25(2013).09.23
+p date.frame.iri                                            #=> "http://hosi.org/When/CalendarTypes/Gregorian?note=DefaultNotes"
+p date.notes                                                #=>[[{:note=>"Month", :value=>"September"}], []]
+
+# &yard(When::TM::CalendarEra,1)('&yard(ModernJapanese)')は日本暦注を読み込まない
+
+# **日本暦注
+date = when?('平成25.9.23')                                 # ここで日本暦日をメモリに展開するため、少々時間がかかる
+p date                                                      #=> 平成25(2013).09.23
+p date.frame.iri                                            #=> "http://hosi.org/When/CalendarTypes/Gregorian?note=JapaneseNote"
+p date.notes                                                #=> 下記
+ # [[{:note=>"干支",     :value=>"癸巳(29)",  :position=>"共通"}],
+ #  [{:note=>"月名",     :value=>"September", :position=>"月建"}],
+ #  [{:note=>"干支",     :value=>"壬辰(28)",  :position=>"共通"},
+ #   {:note=>"六曜",     :value=>"友引",      :position=>"民間"},
+ #   {:note=>"廿四節気", :value=>"秋分(180)", :position=>"時候"},
+ #   {:note=>"祝祭日",   :value=>"秋分の日",  :position=>"祝祭日"}]]
+p date.notes("祝祭日")                                      #=> {:note=>"祝祭日",   :value=>"秋分の日",  :position=>"祝祭日"}
+p date.is?({:note=>"祝祭日", :value=>"秋分の日"})           #=> true
+p date.is?("祝祭日")                                        #=> true
+p date.is?("秋分の日")                                      #=> true
+
+# *応永年間
+# **すべての日本暦注
+date = when?('応永25.9.23')
+p date                                                      #=> 応永25(1418).09.23
+p date.notes({:notes=>:all, :locale=>'ja.UTF-8'})           #=> 省略 (全暦注出力)
+
+# *ヒンドゥー暦
+# **パンチャンガ
+date = Calendar('HinduLuniSolar?note=HinduNote') ^ when?('2013-5-28', :clock=>'+05:30')
+p date                                                      #=> 1935-02<04-T+05:30
+p date.notes({:locale=>'ja.UTF-8'})                         #=> 下記
+ # [[],
+ #  [{:note=>"Month",
+ #    :value=>"Vaiśākha Kṛṣṇapakṣa"}],
+ #  [{:note=>"tithi", :value=>["Chaturthi(00:42:49)"]},
+ #   {:note=>"vara", :value=>["Maṅgala(05:48:00)"]},
+ #   {:note=>"naksatra", :value=>["U. āṣāḍha(16:47:13)"]},
+ #   {:note=>"yoga", :value=>["ukla(11:57:35)"]},
+ #   {:note=>"karana", :value=>["Bālava(13:54:42)", "Kaulava(00:42:49)"]}]]
+
+# それぞれの要素の値が上記になる時刻を時間帯+05:30で表記

data/test/scripts/7.term.rb

@@ -0,0 +1,128 @@
+# -*- 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の使用例/7.暦注/二十四節気
+
+# *準備
+# when_exe Ruby 版の When モジュールを include する
+require 'when_exe'
+include When
+
+# *天体暦
+
+# 標準時を日本時間にしておく
+TM::Clock.local_time = '+09:00'
+
+# ** 冬至の日付
+# *** 天体暦用暦注リソースを明示的に使用
+date = when?('2014-01-01')            #=> 2014-01-01
+p date.class                          #=> When::TM::CalDate
+note = CalendarNote('SolarTerms')
+p note.class                          #=> When::CalendarNote::SolarTerms
+p note.term(date, 270)                #=> 2014-12-22 (2014-01-01の直後の冬至)
+p note.term(date, -90)                #=> 2013-12-22 (2014-01-01の直前の冬至)
+
+# *** 天体暦用暦注リソースを暗黙的に使用
+date = when?('2014-01-01')            #=> 2014-01-01
+p date.class                          #=> When::TM::CalDate
+p date.frame.class                    #=> When::CalendarTypes::Gregorian
+p date.frame.note.class               #=> When::CalendarNote::Christian
+p date.term(270)                      #=> 2014-12-22 (2014-01-01の直後の冬至)
+p date.term(-90)                      #=> 2013-12-22 (2014-01-01の直前の冬至)
+
+# &yard(When::CalendarNote::Christian,2)には term メソッドがないため、代替して&yard(When::CalendarNote::SolarTerms,2)が使用される
+
+# ** 春分の時刻
+# *** 天体暦用暦注リソースを明示的に使用
+time = when?('2014-01-01T00:00')      #=> 2014-01-01T00:00+09:00
+p time.class                          #=> When::TM::DateAndTime
+note = CalendarNote('SolarTerms')
+p note.class                          #=> When::CalendarNote::SolarTerms
+p note.term(time)                     #=> 2014-03-21T01:56+09:00 (2014-01-01の直後の春分, time と同じ分解能)
+p note.term(time, -360)               #=> 2013-03-20T20:02+09:00 (2014-01-01の直前の春分, time と同じ分解能)
+
+# *** 天体暦用暦注リソースを暗黙的に使用
+time = when?('2014-01-01T00:00')      #=> 2014-01-01T00:00+09:00
+p time.class                          #=> When::TM::DateAndTime
+p time.frame.class                    #=> When::CalendarTypes::Gregorian
+p time.frame.note.class               #=> When::CalendarNote::Christian
+p time.term                           #=> 2014-03-21T01:56+09:00 (2014-01-01の直後の春分, time と同じ分解能)
+p time.term(-360)                     #=> 2013-03-20T20:02+09:00 (2014-01-01の直前の春分, time と同じ分解能)
+
+# term メソッドの引数 0(=太陽黄経 0 度)は省略できる
+
+# ** 春分の日付時刻(標準の日付時刻クラスを使用)
+# *** 天体暦用暦注リソースを明示的に使用
+require 'date'
+date = Date.new(2014,1,1)             #=> #<Date: 2014-01-01 (4913317/2,0,2299161)>
+time = DateTime.new(2014,1,1)         #=> #<DateTime: 2014-01-01T00:00:00+00:00 (4913317/2,0,2299161)>
+note = CalendarNote('SolarTerms')
+p note.class                          #=> When::CalendarNote::SolarTerms
+p note.term(date)                     #=> 2014-03-21
+p note.term(time)                     #=> 2014-03-20T16:56:55.09Z
+
+# *** 天体暦用暦注リソースを暗黙的に使用
+require 'when_exe/core/extension'
+date = Date.new(2014,1,1)             #=> #<Date: 2014-01-01 (4913317/2,0,2299161)>
+time = DateTime.new(2014,1,1)         #=> #<DateTime: 2014-01-01T00:00:00+00:00 (4913317/2,0,2299161)>
+p date.term                           #=> #<Date: 2014-03-21 (4913475/2,0,2299161)>
+p time.term                           #=> #<DateTime: 2014-03-20T16:56:55+00:00 (42452418923/17280,0/1,2299161)>
+
+# *宣明暦
+
+# 冬至の日付を移動して朔旦冬至にした建仁2～3年を例にする
+
+# 標準時を未定義にしておく
+TM::Clock.local_time = nil
+
+# ** 冬至の日付
+date = when?('建仁03.01.01')          #=> 建仁03(1203).01.01
+p date.class                          #=> When::TM::CalDate
+p date.frame.note.class               #=> When::CalendarNote::JapaneseNote
+p date.term(270)                      #=> 建仁03(1203).11.12
+p date.term(-90)                      #=> 建仁02(1202).11.01*
+
+# &yard(When::CalendarNote::JapaneseNote,2)の term メソッドが使われ、当時行用されていた宣明暦で計算が行われる
+
+# 宣明暦での建仁2年の冬至は建仁02(1202).11.01の前日であるため * が付く
+
+# (* は<When.exe Standard Representation ([[Calendar/When/Ruby/2.APIの使用例/1.前提となる概念/1.日付時刻の表現]])> で前日を意味する)
+
+# ** 二十四節気の日付一覧
+date = when?('建仁02.01.01')          #=> 建仁02(1202).01.01
+25.times do |t|
+  # [0,15] は「太陽黄経を15で割って0余る」という指定
+  date = date.ceil.term([0,15])
+  p date                              #=> 下記
+  # 建仁02(1202).01.05
+  # 建仁02(1202).01.20
+  # 建仁02(1202).02.06
+  # 建仁02(1202).02.22
+  # 建仁02(1202).03.07
+  # 建仁02(1202).03.22
+  # 建仁02(1202).04.08
+  # 建仁02(1202).04.23
+  # 建仁02(1202).05.10
+  # 建仁02(1202).05.25
+  # 建仁02(1202).06.10
+  # 建仁02(1202).06.25
+  # 建仁02(1202).07.12
+  # 建仁02(1202).07.27
+  # 建仁02(1202).08.13
+  # 建仁02(1202).08.28
+  # 建仁02(1202).09.13
+  # 建仁02(1202).09.29
+  # 建仁02(1202).10.14
+  # 建仁02(1202).10.29
+  # 建仁02(1202).10=14
+  # 建仁02(1202).11.01*
+  # 建仁02(1202).11.16
+  # 建仁02(1202).12.01
+  # 建仁02(1202).12.16
+end
+
+# &yard(When::TM::CalDate,2)オブジェクトはその日付の正午に丸められるため ceil メソッドで日付をすすめる必要がある

data/test/scripts/7.week.rb

@@ -0,0 +1,84 @@
+# -*- 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の使用例/7.暦注/七曜
+
+# *準備
+# when_exe Ruby 版の When モジュールを include する
+require 'pp'
+require 'when_exe'
+require 'when_exe/mini_application'
+include When
+
+# *グレゴリオ暦
+# ** 週
+date = when?('2013-12-30')
+p date.week_included                            #=> 2013-12-30...2014-01-06 (月曜始まり)
+p date.week_included('Mon')                     #=> 2013-12-30...2014-01-06 (月曜始まり)
+p date.week_included('Sun')                     #=> 2013-12-29...2014-01-05 (日曜始まり)
+
+# ** 月
+date = when?('2013-12-30')
+p date.month_included                           #=> 2013-12-01...2014-01-01
+p date.month_included.map {|date| date[DAY]}    #=> [1,2, (snip), 31]
+pp date.month_included('Sun') { |date, type|
+    case type                                   #=> [["December 2013",
+    when YEAR  ; date.strftime("%Y")            #    ["*",  1,  2,  3,  4,  5,  6,  7],
+    when MONTH ; date.strftime("%B %Y")         #    ["*",  8,  9, 10, 11, 12, 13, 14],
+    when WEEK  ; '*'                            #    ["*", 15, 16, 17, 18, 19, 20, 21],
+    when DAY   ; date[DAY]                      #    ["*", 22, 23, 24, 25, 26, 27, 28],
+    else       ; '-'                            #    ["*", 29, 30, 31,"-","-","-","-"]]]
+    end                                         #
+  }
+
+# ** 年
+date = when?('2013-12-30')
+p date.year_included                            #=> 2013-01-01...2014-01-01
+pp date.year_included('Sun') { |date, type|      #=> (省略)
+    When.column(date, type)
+  }
+
+# *世界暦
+# ** 週
+date = when?('2013-12-30^^World')
+p date.week_included                            #=> 2013-12-30...2014-01-06 (月曜始まり)
+p date.week_included('Mon')                     #=> 2013-12-30...2014-01-06 (月曜始まり)
+p date.week_included('Sun')                     #=> 2013-12-29...2014-01-05 (日曜始まり)
+p date.week_included('WorldWeek')               #=> 2013-12-24...2014-01-01 (日曜始まりの8日間)
+
+# &yard(When::CalendarTypes::CalendarNote,1)('&yard(WorldWeek)')を使うと、専用の固定曜日を使用
+
+# ** 月
+date = when?('2013-12-30^^World')
+pp date.month_included('Sun') {|date, type|
+    case type                                   #=> [["December 2013",
+    when YEAR  ; date.strftime("%Y")            #    ["*",  1,  2,  3,  4,  5,  6,  7],
+    when MONTH ; date.strftime("%B %Y")         #    ["*",  8,  9, 10, 11, 12, 13, 14],
+    when WEEK  ; '*'                            #    ["*", 15, 16, 17, 18, 19, 20, 21],
+    when DAY   ; date[DAY]                      #    ["*", 22, 23, 24, 25, 26, 27, 28],
+    else       ; '-'                            #    ["*", 29, 30, 31,"-","-","-","-"]]]
+    end                                         #
+  }
+pp date.month_included('WorldWeek') {|date, type|
+    case type                                   #=> [["December 2013",
+    when YEAR  ; date.strftime("%Y")            #    ["*","-","-","-","-","-",  1,  2],
+    when MONTH ; date.strftime("%B %Y")         #    ["*",  3,  4,  5,  6,  7,  8,  9],
+    when WEEK  ; '*'                            #    ["*", 10, 11, 12, 13, 14, 15, 16],
+    when DAY   ; date[DAY]                      #    ["*", 17, 18, 19, 20, 21, 22, 23],
+    else       ; '-'                            #    ["*", 24, 25, 26, 27, 28, 29, 30, 31]]]
+    end                                         # 31日は七曜外
+  }
+
+# &yard(CalendarNote)('&yard(WorldWeek)')を使うと、専用の固定曜日を使用
+
+# ** 年
+date = when?('2013-12-30^^World')
+p date.year_included                            #=> 2013-01-01...2014-01-01
+pp date.year_included('Sun') {|date, type|       #=> (省略)
+    When.column(date, type)
+  }
+