when_exe 0.3.7 → 0.3.8

data/test/scripts/8.ext.rb

@@ -0,0 +1,61 @@
+# -*- 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の使用例/8.多言語対応文字列/コア拡張
+
+# コアクラスを require 'when_exe/core/extension' で拡張した場合の記法を確認
+
+# *準備
+require 'when_exe'
+require 'when_exe/core/extension'
+include When
+
+# * グレゴリオ暦
+gregorian = 'Christian::Gregorian'.m17n # .to_m17n は別機能(単純に文字列をStringクラスから When::BasicTypes::M17n クラスに変更)
+p gregorian.iri                              #=> "http://hosi.org/When/BasicTypes/M17n/Christian::Gregorian"
+p gregorian.translate('ja')                  #=> "グレゴリオ暦"
+p gregorian.translate('en')                  #=> "Gregorian"
+p gregorian.translate('fr')                  #=> "Gregorian" (未定義でデフォルト使用)
+p gregorian/'ja'                             #=> "グレゴリオ暦"
+p gregorian/'en'                             #=> "Gregorian"
+p gregorian/'fr'                             #=> "Gregorian" (未定義でデフォルト使用)
+p gregorian.reference('ja')                  #=> "http://ja.wikipedia.org/wiki/%E3%82%B0%E3%83%AC%E3%82%B4%E3%83%AA%E3%82%AA%E6%9A%A6"
+p gregorian.reference('en')                  #=> "http://en.wikipedia.org/wiki/Gregorian_calendar"
+p gregorian.reference('fr')                  #=> "http://en.wikipedia.org/wiki/Gregorian_calendar" (未定義でデフォルト使用)
+p 'Gregorian'.calendar.label.iri             #=> "http://hosi.org/When/BasicTypes/M17n/Christian::Gregorian" (同じIRIのオブジェクト)
+
+# * 一月
+january = 'Jan'.month_name
+p january.iri                                #=> "http://hosi.org/When/BasicTypes/M17n/Calendar::Month::January"
+p january.translate('ja')                    #=> "1月"
+p january.translate('en')                    #=> "January"
+p january.translate('fr')                    #=> "janvier"
+p january/'ja'                               #=> "1月"
+p january/'en'                               #=> "January"
+p january/'fr'                               #=> "janvier"
+p january.reference('ja')                    #=> "http://ja.wikipedia.org/wiki/1%E6%9C%88"
+p january.reference('en')                    #=> "http://en.wikipedia.org/wiki/January"
+p january.reference('fr')                    #=> "http://en.wikipedia.org/wiki/January" (未定義でデフォルト使用)
+p '1月'.month_name.iri                       #=> "http://hosi.org/When/BasicTypes/M17n/Calendar::Month::January" (同じIRIのオブジェクト)
+p 'Calendar::Month::January'.m17n.iri   #=> "http://hosi.org/When/BasicTypes/M17n/Calendar::Month::January" (同じIRIのオブジェクト)
+
+# * 日時書式
+format = 'CalendarFormats::DateTime'.m17n
+p format.iri                                 #=> "http://hosi.org/When/BasicTypes/M17n/CalendarFormats::DateTime"
+p format.translate('ja')                     #=> "%Y/%m/%d %H:%M:%S"
+p format.translate('en')                     #=> "%a, %d %b %Y %H:%M:%S %z"
+p format.translate('fr')                     #=> "%d %B %Y %H:%M:%S"
+p format/'ja'                                #=> "%Y/%m/%d %H:%M:%S"
+p format/'en'                                #=> "%a, %d %b %Y %H:%M:%S %z"
+p format/'fr'                                #=> "%d %B %Y %H:%M:%S"
+time = [2013, 5, 29, 8, 39, 34].tm_pos(:clock=>'+09:00').strftime(format)
+p time.translate('ja')                       #=> "2013/05/29 08:39:34"
+p time.translate('en')                       #=> "Wed, 29 May 2013 08:39:34 +0900"
+p time.translate('fr')                       #=> "29 mai 2013 08:39:34"
+p time/'ja'                                  #=> "2013/05/29 08:39:34"
+p time/'en'                                  #=> "Wed, 29 May 2013 08:39:34 +0900"
+p time/'fr'                                  #=> "29 mai 2013 08:39:34"

data/test/scripts/8.rb

@@ -0,0 +1,62 @@
+# -*- 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の使用例/8.多言語対応文字列
+
+# →関連クラス図 [[Calendar/When/Ruby/3.クラス図/02.BasicTypes]]
+
+# *準備
+require 'when_exe'
+include When
+
+# コア拡張を利用する場合は[[Calendar/When/Ruby/2.APIの使用例/8.多言語対応文字列/コア拡張]]を参照
+
+# * グレゴリオ暦
+gregorian = M17n('Christian::Gregorian')
+p gregorian.iri                             #=> "http://hosi.org/When/BasicTypes/M17n/Christian::Gregorian"
+p gregorian.translate('ja')                 #=> "グレゴリオ暦"
+p gregorian.translate('en')                 #=> "Gregorian"
+p gregorian.translate('fr')                 #=> "Gregorian" (未定義でデフォルト使用)
+p gregorian/'ja'                            #=> "グレゴリオ暦"
+p gregorian/'en'                            #=> "Gregorian"
+p gregorian/'fr'                            #=> "Gregorian" (未定義でデフォルト使用)
+p gregorian.reference('ja')                 #=> "http://ja.wikipedia.org/wiki/%E3%82%B0%E3%83%AC%E3%82%B4%E3%83%AA%E3%82%AA%E6%9A%A6"
+p gregorian.reference('en')                 #=> "http://en.wikipedia.org/wiki/Gregorian_calendar"
+p gregorian.reference('fr')                 #=> "http://en.wikipedia.org/wiki/Gregorian_calendar" (未定義でデフォルト使用)
+p Calendar('Gregorian').label.iri           #=> "http://hosi.org/When/BasicTypes/M17n/Christian::Gregorian" (同じIRIのオブジェクト)
+
+# * 一月
+january = MonthName('Jan')
+p january.iri                               #=> "http://hosi.org/When/BasicTypes/M17n/Calendar::Month::January"
+p january.translate('ja')                   #=> "1月"
+p january.translate('en')                   #=> "January"
+p january.translate('fr')                   #=> "janvier"
+p january/'ja'                              #=> "1月"
+p january/'en'                              #=> "January"
+p january/'fr'                              #=> "janvier"
+p january.reference('ja')                   #=> "http://ja.wikipedia.org/wiki/1%E6%9C%88"
+p january.reference('en')                   #=> "http://en.wikipedia.org/wiki/January"
+p january.reference('fr')                   #=> "http://en.wikipedia.org/wiki/January" (未定義でデフォルト使用)
+p MonthName('1月').iri                      #=> "http://hosi.org/When/BasicTypes/M17n/Calendar::Month::January" (同じIRIのオブジェクト)
+p M17n('Calendar::Month::January').iri #=> "http://hosi.org/When/BasicTypes/M17n/Calendar::Month::January" (同じIRIのオブジェクト)
+
+# * 日時書式
+format = M17n('CalendarFormats::DateTime')
+p format.iri                                #=> "http://hosi.org/When/BasicTypes/M17n/CalendarFormats::DateTime"
+p format.translate('ja')                    #=> "%Y/%m/%d %H:%M:%S"
+p format.translate('en')                    #=> "%a, %d %b %Y %H:%M:%S %z"
+p format.translate('fr')                    #=> "%d %B %Y %H:%M:%S"
+p format/'ja'                               #=> "%Y/%m/%d %H:%M:%S"
+p format/'en'                               #=> "%a, %d %b %Y %H:%M:%S %z"
+p format/'fr'                               #=> "%d %B %Y %H:%M:%S"
+time = tm_pos(2013, 5, 29, 8, 39, 34, :clock=>'+09:00').strftime(format)
+p time.translate('ja')                      #=> "2013/05/29 08:39:34"
+p time.translate('en')                      #=> "Wed, 29 May 2013 08:39:34 +0900"
+p time.translate('fr')                      #=> "29 mai 2013 08:39:34"
+p time/'ja'                                 #=> "2013/05/29 08:39:34"
+p time/'en'                                 #=> "Wed, 29 May 2013 08:39:34 +0900"
+p time/'fr'                                 #=> "29 mai 2013 08:39:34"

data/test/scripts/9.ext.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の使用例/9.標準クラスとの変換/コア拡張
+
+# コアクラスを require 'when_exe/core/extension' で拡張した場合の記法を確認
+
+# *準備
+require 'date'
+require 'when_exe'
+require 'when_exe/core/extension'
+include When
+
+# *標準クラスからの変換
+# **Dateクラス
+sdate = Date.new(1582,10,15)
+p sdate                                     #=> #<Date: 1582-10-15 ((2299161j,0s,0n),+0s,2299161j)>
+gdate = sdate.tm_pos
+p gdate                                     #=> 1582-10-15
+p gdate.class                               #=> When::TM::CalDate
+p gdate.frame.iri                           #=> "http://hosi.org/When/CalendarTypes/Civil?reform_jdn=2299161"
+sdate = Date.new(1582,10,4)
+p sdate                                     #=> #<Date: 1582-10-04 ((2299160j,0s,0n),+0s,2299161j)>
+gdate = sdate.tm_pos
+p gdate                                     #=> 1582-10-04
+p gdate.frame.iri                           #=> "http://hosi.org/When/CalendarTypes/Civil?reform_jdn=2299161"
+jdate = sdate.tm_pos(:frame=>'Gregorian')
+p jdate                                     #=> 1582-10-14
+p jdate.frame.iri                           #=> "http://hosi.org/When/CalendarTypes/Gregorian"
+
+# **Timeクラス
+# ***UTC
+stime = Time.utc(2013, 5 ,30, 16, 20, 45)
+p stime                                     #=> 2013-05-30 16:20:45 UTC
+gtime = stime.tm_pos
+p gtime                                     #=> 2013-05-30T16:20:45.00Z
+p gtime.class                               #=> When::TM::DateAndTime
+p gtime.frame.iri                           #=> "http://hosi.org/When/CalendarTypes/Gregorian"
+p gtime.clock.iri                           #=> "http://hosi.org/When/CalendarTypes/UTC"
+
+# ***ローカル時刻
+stime = Time.local(2013, 5 ,30, 16, 20, 45)
+p stime                                     #=> 2013-05-30 16:20:45 +0900
+gtime = stime.tm_pos
+p gtime                                     #=> 2013-05-30T16:20:45.00+09:00
+p gtime.class                               #=> When::TM::DateAndTime
+p gtime.frame.iri                           #=> "http://hosi.org/When/CalendarTypes/Gregorian"
+p gtime.clock.iri                           #=> "http://hosi.org/When/TM/Clock?label=+09:00"
+
+# **Date Timeクラス
+# ***UTC
+sdate = DateTime.new(2013, 5 ,30, 16, 20, 45)
+p sdate                                     #=> #<DateTime: 2013-05-30T16:20:45+00:00 ((2456443j,58845s,0n),+0s,2299161j)>
+gdate = sdate.tm_pos
+p gdate                                     #=> 2013-05-30T16:20:45.00Z
+p gdate.class                               #=> When::TM::DateAndTime
+p gdate.frame.iri                           #=> "http://hosi.org/When/CalendarTypes/Civil?reform_jdn=2299161"
+p gdate.clock.iri                           #=> "http://hosi.org/When/CalendarTypes/UTC"
+
+# ***ローカル時刻
+sdate = DateTime.new(2013, 5 ,30, 16, 20, 45, 0.375)
+p sdate                                     #=> #<DateTime: 2013-05-30T16:20:45+09:00 ((2456443j,26445s,0n),+32400s,2299161j)>
+gdate = sdate.tm_pos
+p gdate                                     #=> 2013-05-30T16:20:45.00+09:00
+p gdate.class                               #=> When::TM::DateAndTime
+p gdate.frame.iri                           #=> "http://hosi.org/When/CalendarTypes/Civil?reform_jdn=2299161"
+p gdate.clock.iri                           #=> "http://hosi.org/When/TM/Clock?label=+09:00"
+
+# *標準クラスへの変換
+# **Dateクラス
+gdate = '1582-10-15'.when?
+p gdate                                     #=> 1582-10-15
+p gdate.class                               #=> When::TM::CalDate
+p gdate.frame.iri                           #=> "http://hosi.org/When/CalendarTypes/Gregorian"
+sdate = gdate.to_date
+p sdate                                     #=> #<Date: 1582-10-15 ((2299161j,0s,0n),+0s,-Infj)>
+gdate = '1582-10-04'.when?(:frame=>'Julian')
+p gdate                                     #=> 1582-10-04
+p gdate.class                               #=> When::TM::CalDate
+p gdate.frame.iri                           #=> "http://hosi.org/When/CalendarTypes/Julian"
+sdate = gdate.to_date
+p sdate                                     #=> #<Date: 1582-10-14 ((2299160j,0s,0n),+0s,-Infj)>
+
+# to_date による変換結果は原則としてグレゴリオ暦だが、変換元がCivilのユリウス暦期間かまたはJulianの場合のみユリウス暦
+
+# **Timeクラス
+# ***UTC
+gtime = '2013-05-30T16:20:45'.when?
+p gtime                                     #=> 2013-05-30T16:20:45Z
+p gtime.class                               #=> When::TM::DateAndTime
+p gtime.frame.iri                           #=> "http://hosi.org/When/CalendarTypes/Gregorian"
+p gtime.clock.iri                           #=> "http://hosi.org/When/CalendarTypes/UTC"
+stime = gtime.to_time
+p stime                                     #=> 2013-05-31 01:20:45 +0900
+
+# ***ローカル時刻
+if Object.const_defined?(:TZInfo) # TZInfo gem がインストールされていること
+  gtime = '2013-05-30T16:20:45'.when?(:tz=>'Asia/Tokyo')
+  p gtime                                   #=> 2013-05-30T16:20:45+09:00
+  p gtime.class                             #=> When::TM::DateAndTime
+  p gtime.frame.iri                         #=> "http://hosi.org/When/CalendarTypes/Gregorian"
+  p gtime.clock.tz_prop.timezone            #=> #<TZInfo::DataTimezone: Asia/Tokyo>
+  stime = gtime.to_time
+  p stime                                   #=> 2013-05-30 16:20:45 +0900
+end
+# to_time による変換結果は常にローカル時刻である
+
+# **Date Timeクラス
+# ***UTC
+gdate = '2013-05-30T16:20:45'.when?
+p gdate                                     #=> 2013-05-30T16:20:45Z
+p gdate.class                               #=> When::TM::DateAndTime
+p gdate.frame.iri                           #=> "http://hosi.org/When/CalendarTypes/Gregorian"
+p gdate.clock.iri                           #=> "http://hosi.org/When/CalendarTypes/UTC"
+sdate = gdate.to_datetime
+p sdate                                     #=> #<DateTime: 2013-05-30T16:20:45+00:00 ((2456443j,58845s,0n),+0s,-Infj)>
+
+# ***ローカル時刻
+if Object.const_defined?(:TZInfo) # TZInfo gem がインストールされていること
+  gdate = '2013-05-30T16:20:45'.when?(:tz=>'Asia/Tokyo')
+  p gdate                                   #=> 2013-05-30T16:20:45+09:00
+  p gdate.class                             #=> When::TM::DateAndTime
+  p gdate.frame.iri                         #=> "http://hosi.org/When/CalendarTypes/Gregorian"
+  p gtime.clock.tz_prop.timezone            #=> #<TZInfo::DataTimezone: Asia/Tokyo>
+  sdate = gdate.to_datetime
+  p sdate                                   #=> #<DateTime: 2013-05-30T16:20:45+09:00 ((2456443j,26445s,0n),+32400s,-Infj)>
+end

data/test/scripts/9.rb

@@ -0,0 +1,130 @@
+# -*- 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の使用例/9.標準クラスとの変換
+
+# *準備
+require 'date'
+require 'when_exe'
+include When
+
+# コア拡張を利用する場合は[[Calendar/When/Ruby/2.APIの使用例/9.標準クラスとの変換/コア拡張]]を参照
+
+# *標準クラスからの変換
+# **Dateクラス
+sdate = Date.new(1582,10,15)
+p sdate                                     #=> #<Date: 1582-10-15 ((2299161j,0s,0n),+0s,2299161j)>
+gdate = when?(sdate)
+p gdate                                     #=> 1582-10-15
+p gdate.class                               #=> When::TM::CalDate
+p gdate.frame.iri                           #=> "http://hosi.org/When/CalendarTypes/Civil?reform_jdn=2299161"
+sdate = Date.new(1582,10,4)
+p sdate                                     #=> #<Date: 1582-10-04 ((2299160j,0s,0n),+0s,2299161j)>
+gdate = when?(sdate)
+p gdate                                     #=> 1582-10-04
+p gdate.frame.iri                           #=> "http://hosi.org/When/CalendarTypes/Civil?reform_jdn=2299161"
+jdate = when?(sdate, :frame=>'Gregorian')
+p jdate                                     #=> 1582-10-14
+p jdate.frame.iri                           #=> "http://hosi.org/When/CalendarTypes/Gregorian"
+
+# **Timeクラス
+# ***UTC
+stime = Time.utc(2013, 5 ,30, 16, 20, 45)
+p stime                                     #=> 2013-05-30 16:20:45 UTC
+gtime = when?(stime)
+p gtime                                     #=> 2013-05-30T16:20:45.00Z
+p gtime.class                               #=> When::TM::DateAndTime
+p gtime.frame.iri                           #=> "http://hosi.org/When/CalendarTypes/Gregorian"
+p gtime.clock.iri                           #=> "http://hosi.org/When/CalendarTypes/UTC"
+
+# ***ローカル時刻
+stime = Time.local(2013, 5 ,30, 16, 20, 45)
+p stime                                     #=> 2013-05-30 16:20:45 +0900
+gtime = when?(stime)
+p gtime                                     #=> 2013-05-30T16:20:45.00+09:00
+p gtime.class                               #=> When::TM::DateAndTime
+p gtime.frame.iri                           #=> "http://hosi.org/When/CalendarTypes/Gregorian"
+p gtime.clock.iri                           #=> "http://hosi.org/When/TM/Clock?label=+09:00"
+
+# **Date Timeクラス
+# ***UTC
+sdate = DateTime.new(2013, 5 ,30, 16, 20, 45)
+p sdate                                     #=> #<DateTime: 2013-05-30T16:20:45+00:00 ((2456443j,58845s,0n),+0s,2299161j)>
+gdate = when?(sdate)
+p gdate                                     #=> 2013-05-30T16:20:45.00Z
+p gdate.class                               #=> When::TM::DateAndTime
+p gdate.frame.iri                           #=> "http://hosi.org/When/CalendarTypes/Civil?reform_jdn=2299161"
+p gdate.clock.iri                           #=> "http://hosi.org/When/CalendarTypes/UTC"
+
+# ***ローカル時刻
+sdate = DateTime.new(2013, 5 ,30, 16, 20, 45, 0.375)
+p sdate                                     #=> #<DateTime: 2013-05-30T16:20:45+09:00 ((2456443j,26445s,0n),+32400s,2299161j)>
+gdate = when?(sdate)
+p gdate                                     #=> 2013-05-30T16:20:45.00+09:00
+p gdate.class                               #=> When::TM::DateAndTime
+p gdate.frame.iri                           #=> "http://hosi.org/When/CalendarTypes/Civil?reform_jdn=2299161"
+p gdate.clock.iri                           #=> "http://hosi.org/When/TM/Clock?label=+09:00"
+
+# *標準クラスへの変換
+# **Dateクラス
+gdate = when?('1582-10-15')
+p gdate                                     #=> 1582-10-15
+p gdate.class                               #=> When::TM::CalDate
+p gdate.frame.iri                           #=> "http://hosi.org/When/CalendarTypes/Gregorian"
+sdate = gdate.to_date
+p sdate                                     #=> #<Date: 1582-10-15 ((2299161j,0s,0n),+0s,-Infj)>
+gdate = when?('1582-10-04', :frame=>'Julian')
+p gdate                                     #=> 1582-10-04
+p gdate.class                               #=> When::TM::CalDate
+p gdate.frame.iri                           #=> "http://hosi.org/When/CalendarTypes/Julian"
+sdate = gdate.to_date
+p sdate                                     #=> #<Date: 1582-10-04 ((2299160j,0s,0n),+0s,+Infj)>
+
+# to_date による変換結果は原則としてグレゴリオ暦だが、変換元がCivilのユリウス暦期間かまたはJulianの場合のみユリウス暦
+
+# **Timeクラス
+# ***UTC
+gtime = when?('2013-05-30T16:20:45')
+p gtime                                     #=> 2013-05-30T16:20:45Z
+p gtime.class                               #=> When::TM::DateAndTime
+p gtime.frame.iri                           #=> "http://hosi.org/When/CalendarTypes/Gregorian"
+p gtime.clock.iri                           #=> "http://hosi.org/When/CalendarTypes/UTC"
+stime = gtime.to_time
+p stime                                     #=> 2013-05-31 01:20:45 +0900
+
+# ***ローカル時刻
+if Object.const_defined?(:TZInfo) # TZInfo gem がインストールされていること
+  gtime = when?('2013-05-30T16:20:45', :tz=>'Asia/Tokyo')
+  p gtime                                   #=> 2013-05-30T16:20:45+09:00
+  p gtime.class                             #=> When::TM::DateAndTime
+  p gtime.frame.iri                         #=> "http://hosi.org/When/CalendarTypes/Gregorian"
+  p gtime.clock.tz_prop.timezone            #=> #<TZInfo::DataTimezone: Asia/Tokyo>
+  stime = gtime.to_time
+  p stime                                   #=> 2013-05-30 16:20:45 +0900
+end
+# to_time による変換結果は常にローカル時刻である
+
+# **Date Timeクラス
+# ***UTC
+gdate = when?('2013-05-30T16:20:45')
+p gdate                                     #=> 2013-05-30T16:20:45Z
+p gdate.class                               #=> When::TM::DateAndTime
+p gdate.frame.iri                           #=> "http://hosi.org/When/CalendarTypes/Gregorian"
+p gdate.clock.iri                           #=> "http://hosi.org/When/CalendarTypes/UTC"
+sdate = gdate.to_datetime
+p sdate                                     #=> #<DateTime: 2013-05-30T16:20:45+00:00 ((2456443j,58845s,0n),+0s,-Infj)>
+
+# ***ローカル時刻
+if Object.const_defined?(:TZInfo) # TZInfo gem がインストールされていること
+  gdate = when?('2013-05-30T16:20:45', :tz=>'Asia/Tokyo')
+  p gdate                                   #=> 2013-05-30T16:20:45+09:00
+  p gdate.class                             #=> When::TM::DateAndTime
+  p gdate.frame.iri                         #=> "http://hosi.org/When/CalendarTypes/Gregorian"
+  p gtime.clock.tz_prop.timezone            #=> #<TZInfo::DataTimezone: Asia/Tokyo>
+  sdate = gdate.to_datetime
+  p sdate                                   #=> #<DateTime: 2013-05-30T16:20:45+09:00 ((2456443j,26445s,0n),+32400s,-Infj)>
+end

data/test/scripts/chinese-luni-solar.rb

@@ -0,0 +1,52 @@
+# -*- coding: utf-8 -*-
+#
+# Copyright (C) 2014 Takashi SUGA
+#
+require 'pp'
+require 'when_exe'
+require 'when_exe/region/chinese/calendars'
+include When
+
+def check(range, name, base, force=false)
+  calendar = Calendar(name)
+  count    = 0
+  months   = 0
+  puts "期間: #{name.sub(/^.*::/,'')} <#{range}>"
+  puts ' 相違暦日   通日   日の干支  計算暦日  朔(計算)  定朔時刻/h(/d) 閏'
+  date = when?("#{range.first}-1^^#{base}")
+  while range.include?(date[YEAR]) do
+    count  += 1
+    months += 1 unless verify(date.floor, calendar, force)
+    date  = date.next
+  end
+  puts "相違暦日集計: <%d/%d>\n\n" % [months, count] unless force
+end
+
+def verify(date0, calendar, force=false)
+  date1 = calendar ^ date0
+  if !force && date0.to_s == date1.to_s
+    true
+  else # 史上の暦日と不一致の場合は詳細を出力
+    m   = When::Coordinates::Residue.mod(date0.to_i+3) {|cn| calendar.formula[-1].cn_to_time(cn)}
+    t   = calendar.formula[-1].cn_to_time(m[0]) + 0.5
+    t  -= calendar._time_basis[1].universal_time / 675 if calendar._time_basis[1]
+    t,f = t.divmod(1)
+    puts '%s %d %s %s %d %8.4f(%7.5f) %s' %
+      [date0, date0.to_i, Residue('干支')  % date0, date1, t, f * 24.0, f, date0[DAY] == date1[DAY] ? '*' : '']
+    false
+  end
+end
+
+check(1281...1368, 'ChineseTwin::大統暦',   'Chinese0939')
+check(1368...1500, 'ChineseTwin::大統暦',   'Chinese0939')
+check(1501...1600, 'ChineseTwin::大統暦',   'Chinese0939')
+check(1601...1662, 'ChineseTwin::大統暦',   'Chinese0939')
+check(1685...1687, 'JapaneseTwin::貞享乙丑暦', 'Japanese')
+check(1687...1753, 'JapaneseTwin::貞享暦',     'Japanese')
+check(1753...1754, 'JapaneseTwin::宝暦癸酉暦', 'Japanese')
+check(1754...1755, 'JapaneseTwin::宝暦甲戌暦', 'Japanese')
+check(1755...1771, 'JapaneseTwin::宝暦暦',     'Japanese')
+check(1771...1798, 'JapaneseTwin::修正宝暦暦', 'Japanese')
+check(1798...1827, 'JapaneseTwin::寛政暦',     'Japanese')
+check(1827...1844, 'JapaneseTwin::寛政丁亥暦', 'Japanese')
+check(1844...1873, 'JapaneseTwin::天保暦',     'Japanese')

data/test/{examples → scripts}/geometric_complex.rb

@@ -1,41 +1,41 @@
-# -*- coding: utf-8 -*-
-=begin
-  Copyright (C) 2011-2013 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
-
-require 'pp'
-require 'when_exe'
-include When
-
-range_null = Parts::GeometricComplex.new()
-range_1_1  = Parts::GeometricComplex.new(1)
-range_1_4  = Parts::GeometricComplex.new(1,4)
-range_2_2  = Parts::GeometricComplex.new(2)
-range_2_3  = Parts::GeometricComplex.new(2,3)
-range_2_5  = Parts::GeometricComplex.new(2,5)
-range_4_4  = Parts::GeometricComplex.new(4)
-pp range_1_4
-pp range_2_3
-range_1_4.each {|x| pp x}
-pp range_4_4
-pp range_1_4 | range_2_3
-pp range_1_4.include?(range_2_2)
-pp range_1_4.include?(range_2_3)
-range_1_5 = range_1_4 | range_2_5
-pp range_1_5
-pp range_1_4.include?(range_2_5)
-pp range_1_4 | range_4_4
-pp range_1_4.include?(range_4_4)
-reverse_all  = Parts::GeometricComplex.new(true)
-reverse_1_4  = Parts::GeometricComplex.new(1,4, true)
-reverse_2_3  = Parts::GeometricComplex.new(2,3, true)
-reverse_2_5  = Parts::GeometricComplex.new(2,5, true)
-pp reverse_all
-pp reverse_1_4
-pp reverse_2_3
-pp reverse_2_3 | range_2_3
-pp reverse_1_4 | range_2_5
-
+# -*- coding: utf-8 -*-
+=begin
+  Copyright (C) 2011-2013 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
+
+require 'pp'
+require 'when_exe'
+include When
+
+range_null = Parts::GeometricComplex.new()
+range_1_1  = Parts::GeometricComplex.new(1)
+range_1_4  = Parts::GeometricComplex.new(1,4)
+range_2_2  = Parts::GeometricComplex.new(2)
+range_2_3  = Parts::GeometricComplex.new(2,3)
+range_2_5  = Parts::GeometricComplex.new(2,5)
+range_4_4  = Parts::GeometricComplex.new(4)
+pp range_1_4
+pp range_2_3
+range_1_4.each {|x| pp x}
+pp range_4_4
+pp range_1_4 | range_2_3
+pp range_1_4.include?(range_2_2)
+pp range_1_4.include?(range_2_3)
+range_1_5 = range_1_4 | range_2_5
+pp range_1_5
+pp range_1_4.include?(range_2_5)
+pp range_1_4 | range_4_4
+pp range_1_4.include?(range_4_4)
+reverse_all  = Parts::GeometricComplex.new(true)
+reverse_1_4  = Parts::GeometricComplex.new(1,4, true)
+reverse_2_3  = Parts::GeometricComplex.new(2,3, true)
+reverse_2_5  = Parts::GeometricComplex.new(2,5, true)
+pp reverse_all
+pp reverse_1_4
+pp reverse_2_3
+pp reverse_2_3 | range_2_3
+pp reverse_1_4 | range_2_5
+