Created
May 17, 2021 02:32
-
-
Save suchowan/01cbab9482d0d5d4c0a66e8d121fb9f7 to your computer and use it in GitHub Desktop.
Refinement example for when_exe gem
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| # -*- coding: utf-8 -*- | |
| =begin | |
| Copyright (C) 2013-2021 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 | |
| # | |
| # When::TM::Duration のための標準クラスの拡張 | |
| # | |
| # | |
| # When::TM::Duration | |
| # | |
| # @private | |
| class When::TM::Duration | |
| def rational_duration | |
| unless @rational_duration | |
| sec = duration / When::TM::Duration::SECOND | |
| mod = sec % When::TM::Duration::DAY.to_i | |
| if mod == 0 || mod != mod.to_i | |
| @rational_duration = @duration / When::TM::Duration::DAY | |
| else | |
| @rational_duration = Rational(sec.to_i, 86400) | |
| end | |
| end | |
| @rational_duration | |
| end | |
| end | |
| module When::Refined | |
| # | |
| # Extensions to Date class | |
| # | |
| # @private | |
| if ::Object.const_defined?(:Date) && ::Date.method_defined?(:+) | |
| refine Date do | |
| # @private | |
| alias :_plus_ :+ | |
| # 加算 | |
| # | |
| # @param [When::TM::Duration] other 加える時間間隔(他の型の場合は動作に変更なし) | |
| # | |
| # @return [::Date] | |
| # | |
| def +(other) | |
| other.kind_of?(When::TM::Duration) ? self + other.rational_duration : self._plus_(other) | |
| end | |
| # @private | |
| alias :_minus_ :- | |
| # 減算 | |
| # | |
| # @param [When::TM::Duration] other 減じる時間間隔(他の型の場合は動作に変更なし) | |
| # | |
| # @return [::Date] | |
| # | |
| def -(other) | |
| case other | |
| when When::TM::Duration ; self - other.rational_duration | |
| when When::TimeValue ; self._minus_(other.to_date_or_datetime) | |
| else ; self._minus_(other) | |
| end | |
| end | |
| end | |
| end | |
| # | |
| # Extensions to Time class | |
| # | |
| # @private | |
| refine Time do | |
| # @private | |
| alias :_plus_ :+ | |
| # 加算 | |
| # | |
| # @param [When::TM::Duration] other 加える時間間隔(他の型の場合は動作に変更なし) | |
| # | |
| # @return [::Time] | |
| # | |
| def +(other) | |
| other.kind_of?(When::TM::Duration) ? self + other.to_f : self._plus_(other) | |
| end | |
| # @private | |
| alias :_minus_ :- | |
| # 減算 | |
| # | |
| # @param [When::TM::Duration] other 減じる時間間隔(他の型の場合は動作に変更なし) | |
| # | |
| # @return [::Time] | |
| # | |
| def -(other) | |
| other.kind_of?(When::TM::Duration) ? self - other.to_f : self._minus_(other) | |
| end | |
| end | |
| # | |
| # Extensions to Numeric class | |
| # | |
| refine Numeric do | |
| # | |
| # メソッド名に相当する単位で表した When::TM::Duration | |
| # @method unit_duration | |
| # @return [When::TM::Duration] | |
| # @note unit は second, minute, hour, day, week または | |
| # seconds, minutes, hours, days, weeks に読み替える | |
| # @note core/duration | |
| # @private | |
| When::TM::Duration::Unit.keys.each do |key| | |
| module_eval %Q{ | |
| # for When::TM::Duration | |
| def #{key}_duration | |
| When::TM::Duration.new(self * When::TM::Duration::Unit['#{key}']) | |
| end | |
| alias :#{key}s_duration :#{key}_duration | |
| } | |
| end | |
| end | |
| # | |
| # Extensions to Array class | |
| # | |
| refine Array do | |
| # | |
| # self を Array<日, 時, 分, 秒> とみなして When::TM::Duration を生成 | |
| # | |
| # @return [When::TM::Duration] | |
| # | |
| # @note core/duration | |
| # | |
| def duration | |
| When::TM::Duration.dhms(*self) | |
| end | |
| alias :to_duration :duration | |
| end | |
| end |
This file contains bidirectional Unicode text that may be interpreted or compiled differently than what appears below. To review, open the file in an editor that reveals hidden Unicode characters.
Learn more about bidirectional Unicode characters
| # -*- coding: utf-8 -*- | |
| =begin | |
| Copyright (C) 2013-2021 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 'when_exe/refined/duration' | |
| module When::Refined | |
| # | |
| # 標準クラスの拡張 | |
| # | |
| # | |
| # Extensions to Time class | |
| # | |
| refine Time do | |
| # | |
| # 対応する When::TM::JulianDate を生成 | |
| # | |
| # @param [Hash] options 以下の通り | |
| # @option options [When::TM::Clock] :clock | |
| # @option options [When::Parts::Timezone] :tz | |
| # | |
| # @return [When::TM::JulianDate] | |
| # | |
| # @note core/extension | |
| # | |
| def julian_date(options={}) | |
| options[:clock] ||= Clock(self.utc_offset) | |
| When::TM::JulianDate.universal_time(self.to_f * When::TM::IntervalLength::SECOND, options) | |
| end | |
| alias :to_julian_date :julian_date | |
| # | |
| # 対応する When::TM::DateAndTime を生成 | |
| # | |
| # @param [Hash] options 暦法や時法などの指定 | |
| # | |
| # @see When::TM::TemporalPosition._instance | |
| # | |
| # @return [When::TM::DateAndTime] | |
| # | |
| # @note core/extension | |
| # | |
| def tm_pos(options={}) | |
| When.at(self, options) | |
| end | |
| alias :to_tm_pos :tm_pos | |
| end | |
| # | |
| # Extensions to Date class | |
| # | |
| if ::Object.const_defined?(:Date) && ::Date.method_defined?(:+) | |
| refine Date do | |
| if When::TM.const_defined?(:TemporalPosition) | |
| include When::TM::TemporalPosition::Conversion | |
| # | |
| # 対応する When::TM::CalDate or DateAndTime を生成 | |
| # | |
| # @param [Hash] options 暦法や時法などの指定 | |
| # see {When::TM::TemporalPosition._instance} | |
| # | |
| # @return [When::TM::CalDate, When::TM::DateAndTime] | |
| # | |
| # @note 暦法の指定がない場合、start メソッドの値によって | |
| # Julian / Gregorian / Civil 暦法を選択する | |
| # | |
| def tm_pos(options={}) | |
| options[:frame] ||= When::CalendarTypes::Christian._default_start(self) | |
| super(options) | |
| end | |
| alias :to_tm_pos :tm_pos | |
| end | |
| private | |
| alias :__method_missing :method_missing | |
| # その他のメソッド | |
| # | |
| # @note | |
| # self で定義されていないメソッドは | |
| # tm_pos で変換して処理する | |
| # | |
| def method_missing(name, *args, &block) | |
| return __method_missing(name, *args, &block) if When::Parts::MethodCash::Escape.key?(name) | |
| self.class.module_eval %Q{ | |
| def #{name}(*args, &block) | |
| result = tm_pos.send("#{name}", *args, &block) | |
| result.kind_of?(When::TimeValue) ? result.to_date_or_datetime : result | |
| end | |
| } unless When::Parts::MethodCash.escape(name) | |
| result = tm_pos.send(name, *args, &block) | |
| result.kind_of?(When::TimeValue) ? result.to_date_or_datetime : result | |
| end | |
| end | |
| end | |
| # | |
| # Extensions to Numeric class | |
| # | |
| refine Numeric do | |
| include When::TM::TemporalPosition::Conversion if When::TM.const_defined?(:TemporalPosition) | |
| # | |
| # 曜日(剰余類) | |
| # | |
| # @return [When::Coordinates::Residue] 月曜を 0 とする七曜(剰余類) | |
| # | |
| # @note core/extension | |
| # | |
| def to_day_of_week | |
| When::Coordinates::Residue.day_of_week(self) | |
| end | |
| alias :day_of_week :to_day_of_week | |
| # | |
| # 月名 | |
| # | |
| # self が 月番号の月名を返します | |
| # | |
| # @return [When::BasicTypes::M17n] 月名 | |
| # | |
| # @note core/extension | |
| # | |
| def to_month_name | |
| When::BasicTypes::M17n.month_name(self) | |
| end | |
| alias :month_name :to_month_name | |
| # self を幹の要素と解釈してWhen::Coordinates::Pair を生成 | |
| # | |
| # @see When::Coordinates::Pair._force_pair | |
| # | |
| # @return [When::Coordinates::Pair] | |
| # | |
| def to_pair(branch=nil) | |
| Coordinates::Pair._force_pair(self, branch) | |
| end | |
| alias :pair :to_pair | |
| # | |
| # self を秒数とみなして When::Parts::Timezone::Base を取得 | |
| # | |
| # @return [When::Parts::Timezone::Base] | |
| # | |
| # @note core/extension | |
| # | |
| def clock | |
| When.Clock(self) | |
| end | |
| alias :to_clock :clock | |
| # メソッド名に相当する単位で表した When::TM::IntervalLength | |
| # @method unit_interval_length | |
| # @return [When::TM::IntervalLength] | |
| # | |
| # @note unit は second, minute, hour, day, week または | |
| # seconds, minutes, hours, days, weeks に読み替える | |
| # | |
| # @note core/extension | |
| # メソッド名に相当する単位で表した When::TM::PeriodDuration | |
| # @method unit_period_duration | |
| # @return [When::TM::PeriodDuration] | |
| # | |
| # @note unit は second, minute, hour, day, week, month, year または | |
| # seconds, minutes, hours, days, weeks, months, years に読み替える | |
| # | |
| # @note core/extension | |
| # @private | |
| When::TM::Duration::Unit.keys.each do |key| | |
| module_eval %Q{ | |
| # for When::TM::IntervalLength | |
| def #{key}_interval_length | |
| When::TM::IntervalLength.new(self, '#{key}') | |
| end | |
| alias :#{key}s_interval_length :#{key}_interval_length | |
| # for When::TM::PeriodDuration | |
| def #{key}_period_duration | |
| When::TM::PeriodDuration.new(self, When::#{key.upcase}) | |
| end | |
| alias :#{key}s_period_duration :#{key}_period_duration | |
| } | |
| end | |
| end | |
| # | |
| # Extensions to String class | |
| # | |
| refine String do | |
| include When::EncodingConversion | |
| # | |
| # self を When::BasicTypes::M17n に変換する | |
| # | |
| # @return [When::BasicTypes::M17n] | |
| # | |
| # @note core/extension | |
| # | |
| def to_m17n | |
| When::BasicTypes::M17n.new(self) | |
| end | |
| # 特定 locale に対応した文字列の取得 | |
| # | |
| # @param [String] loc locale の指定 | |
| # | |
| # @return [String] loc に対応した文字列 | |
| # | |
| # @note core/extension | |
| # | |
| def translate(loc='') | |
| return encode($1) if loc =~ /\.(.+)\z/ | |
| return self | |
| end | |
| alias :/ :translate | |
| # 包摂リストに登録されている文字を包摂する | |
| # | |
| # @param [Hash] pattern 包摂ルール | |
| # | |
| # @return [String] 包摂結果 | |
| # | |
| def ideographic_unification(pattern=When::Locale._unification) | |
| When::Locale.ideographic_unification(self, pattern) | |
| end | |
| # | |
| # self を IRI とみなして When::Parts::Resource を取得 | |
| # | |
| # @param [String] namespace デフォルトの namespace | |
| # | |
| # @return [When::Parts::Resource] | |
| # | |
| # @note core/extension | |
| # | |
| def resource(namespace=nil) | |
| When::Parts::Resource._instance(self, namespace) | |
| end | |
| alias :to_resource :resource | |
| # | |
| # self をプレフィクス '_c:' を省略した IRI とみなして When::TM::Calendar を取得 | |
| # | |
| # @return [When::TM::Calendar] | |
| # | |
| # @note core/extension | |
| # | |
| def calendar | |
| When::Parts::Resource._instance(self, '_c:') | |
| end | |
| alias :to_calendar :calendar | |
| # | |
| # self を時間帯文字列とみなして When::Parts::Timezone::Base を取得 | |
| # | |
| # @return [When::Parts::Timezone::Base] | |
| # | |
| # @note core/extension | |
| # | |
| def clock | |
| When.Clock(self) | |
| end | |
| alias :to_clock :clock | |
| # | |
| # self をプレフィクス '_c:' を省略した IRI とみなして When::TM::CalendarNote を取得 | |
| # | |
| # @return [When::TM::CalendarNote] | |
| # | |
| # @note core/extension | |
| # | |
| def calendar_note | |
| When::Parts::Resource._instance(self, '_n:') | |
| end | |
| alias :to_calendar_note :calendar_note | |
| # | |
| # self をプレフィクス '_e:' を省略した IRI とみなして When::TM::CalendarEra を取得 | |
| # | |
| # @return [When::TM::CalendarEra] | |
| # | |
| # @note core/extension | |
| # | |
| def calendar_era | |
| When::Parts::Resource._instance(self, '_e:') | |
| end | |
| alias :to_calendar_era :calendar_era | |
| # | |
| # self をプレフィクス '_m:' を省略した IRI とみなして When::BasicTypes::M17n を取得 | |
| # | |
| # @return [When::BasicTypes::M17n] | |
| # | |
| # @note core/extension | |
| # | |
| def m17n | |
| When::Parts::Resource._instance(self, '_m:') | |
| end | |
| # self を幹と枝の要素と解釈してWhen::Coordinates::Pair を生成 | |
| # | |
| # @see When::Coordinates::Pair._force_pair | |
| # | |
| # @return [When::Coordinates::Pair] | |
| # | |
| def to_pair | |
| Coordinates::Pair._force_pair(self) | |
| end | |
| alias :pair :to_pair | |
| # | |
| # self を検索する暦年代とみなして登録された When::TM::CalendarEraを検索 | |
| # | |
| # @overload calendar_era(options={} | |
| # @param [Hash] options | |
| # see alse {When.era} | |
| # | |
| # @return [Array<When::TM::CalendarEra>] | |
| # | |
| # 検索結果を When::TM::CalendarEra オブジェクトの Array で返す。 | |
| # ヒット数が不足している場合は、_setup_ で指定した順序で When::TM::CalendarEra オブジェクトを | |
| # 生成しつつ読み込んで検索する。 | |
| # | |
| # @note core/extension | |
| # | |
| def era(*args) | |
| When::TM::CalendarEra._instance(*([self] + args)) | |
| end | |
| alias :to_era :era | |
| # | |
| # self をWhen.exe Standard Expression とみなして When::TM::TemporalPosition を生成 | |
| # | |
| # @param [Hash] options 暦法や時法などの指定 | |
| # | |
| # @see When::TM::TemporalPosition._instance | |
| # | |
| # @return [When::TM::TemporalPosition] | |
| # | |
| # @note core/extension | |
| # | |
| def when?(options={}) | |
| When.when?(self, options) | |
| end | |
| alias :tm_pos :when? | |
| alias :to_tm_pos :when? | |
| # | |
| # 曜日(剰余類) | |
| # | |
| # self の最初の3文字から決定した七曜(剰余類)を返します。 | |
| # 一致する七曜(剰余類)がない場合、名前の一致するその他の剰余類を探して返します。 | |
| # | |
| # @return [When::Coordinates::Residue] | |
| # [ 月曜を 0 とする七曜(剰余類) ] | |
| # [ 名前の一致するその他の剰余類 ] | |
| # | |
| # @note core/extension | |
| # | |
| def to_residue | |
| When::Coordinates::Residue.to_residue(self) | |
| end | |
| alias :residue :to_residue | |
| alias :day_of_week :to_residue | |
| # | |
| # 月名 | |
| # | |
| # self の最初の3文字から決定した月名を返します。 | |
| # 一致する月名がない場合、名前の一致するその他のM17nを探して返します。 | |
| # (self が M17n なら name 自身をそのまま返します) | |
| # | |
| # @return [When::BasicTypes::M17n] 月名 | |
| # | |
| # @note core/extension | |
| # | |
| def to_month_name | |
| When::BasicTypes::M17n.month_name(self) | |
| end | |
| alias :month_name :to_month_name | |
| # | |
| # self をWhen.exe Standard Expression とみなして When::TM::TemporalPosition を生成し“^”演算を実行 | |
| # | |
| # @return [When::TM::TemporalPosition の “^”演算結果] | |
| # | |
| # @note core/extension | |
| # | |
| def ^(other) | |
| When::TM::TemporalPosition._instance(self, {}) ^ other | |
| end | |
| end | |
| # | |
| # Extensions to Regexp class | |
| # | |
| refine Regexp do | |
| include When::EncodingConversion | |
| # | |
| # self を検索する暦年代にマッチする正規表現とみなして登録された When::TM::CalendarEraを検索 | |
| # | |
| # @overload calendar_era(options={} | |
| # @param [Hash] options | |
| # see also {When.era} | |
| # | |
| # @return [Array<When::TM::CalendarEra>] | |
| # | |
| # 検索結果を When::TM::CalendarEra オブジェクトの Array で返す。 | |
| # ヒット数が不足している場合は、_setup_ で指定した順序で When::TM::CalendarEra オブジェクトを | |
| # 生成しつつ読み込んで検索する。 | |
| # | |
| # @note core/extension | |
| # | |
| def era(*args) | |
| When::TM::CalendarEra._instance(*([self] + args)) | |
| end | |
| alias :to_era :era | |
| # 包摂リストに登録されている文字を包摂する | |
| # | |
| # @param [Hash] pattern 包摂ルール | |
| # | |
| # @return [Regexp] 包摂結果 | |
| # | |
| def ideographic_unification(pattern=When::Locale._unification) | |
| When::Locale.ideographic_unification(self, pattern) | |
| end | |
| end | |
| # | |
| # Extensions to Array class | |
| # | |
| refine Array do | |
| # | |
| # self を暦要素の Array とみなして [When::TM::TemporalPosition] を生成 | |
| # | |
| # @param [Hash] options 暦法や時法などの指定 | |
| # @option options [Symbol] :invalid | |
| # [:raise 日時が存在しない場合例外発生 ] | |
| # [:check 日時が存在しない場合 nil を返す ] | |
| # [その他/nil 日時が存在することを確認しない(デフォルト)] | |
| # see also {When::TM::TemporalPosition._instance} | |
| # | |
| # @return [When::TM::TemporalPosition] | |
| # @raise [ArgumentError] | |
| # options[ :invalid ] が :raise で、日時が存在しない場合 | |
| # | |
| # @note core/extension | |
| # | |
| def tm_pos(options={}) | |
| When.TemporalPosition(*(self.dup << options)) | |
| end | |
| alias :to_tm_pos :tm_pos | |
| # self を[幹,枝]と解釈してWhen::Coordinates::Pair を生成 | |
| # | |
| # @see When::Coordinates::Pair._force_pair | |
| # | |
| # @return [When::Coordinates::Pair] | |
| # | |
| def to_pair | |
| Coordinates::Pair._force_pair(*self) | |
| end | |
| alias :pair :to_pair | |
| end | |
| # | |
| # Extensions to Module class | |
| # | |
| refine Module do | |
| unless method_defined?(:_const_missing) | |
| alias :_const_missing :const_missing | |
| # | |
| # When 直下に定数として定義する時法・暦法(暗黙的追加) | |
| # | |
| def const_missing(name) | |
| if When.const_defined?(name) | |
| _const_missing(name) | |
| else | |
| When.const_missing(name) | |
| end | |
| end | |
| end | |
| end | |
| end |
Sign up for free
to join this conversation on GitHub.
Already have an account?
Sign in to comment