when_exe 0.3.1 → 0.3.2

data/lib/when_exe/icalendar.rb

@@ -22,10 +22,10 @@
 #     ただし、この指定は BYxxx とは共存できない。
 # * BYHOUR=h(,..)
 #     h に When.exe Standard Representation を使用できる
-#     example: 'BYHOUR=2,3'
-#       夏時間から標準時間への切り替え時に 夏時間の2時,標準時間の3時 を生成
-#     example: 'BYHOUR=2,2=,3'
-#       夏時間から標準時間への切り替え時に 夏時間の2時,標準時間の2時,標準時間の3時 を生成
+#     example: 'BYHOUR=1,2'
+#       夏時間から標準時間への切り替え時に 夏時間の1時,標準時間の2時 を生成
+#     example: 'BYHOUR=1,1=,2'
+#       夏時間から標準時間への切り替え時に 夏時間の1時,標準時間の1時,標準時間の2時 を生成
 #     他のソフトウェアとの互換性を損なう可能性があるが、本ライブラリは両方の動作の違いを
 #     記述できる必要があると判断。
 # * BYDAY/c=n*e±s(,..)
@@ -506,12 +506,14 @@ module When::V
       #   (When.now + default_until)を本メソッドで指定している。
       #   default_until の指定がない場合、default_until は 1000年と解釈する。
       #
+      # @note
+      #   本メソッドでマルチスレッド対応の管理変数の初期化を行っている。
+      #   このため、本メソッド自体はスレッドセーフでない。
+      #
       def _setup_(default_until=nil)
         @_lock_ = Mutex.new if When.multi_thread
-        @_lock_.lock if @_lock_
         @_pool = {}
         @default_until = default_until
-        @_lock_.unlock if @_lock_
       end
     end
 
@@ -614,13 +616,13 @@ module When::V
 
     # 順次実行
     #
-    # @overload initialize()
+    # @overload each()
     #
-    # @overload initialize(range, count_limit=nil)
+    # @overload each(range, count_limit=nil)
     #   @param [Range, When::Parts::GeometricComplex] range 始点-range.first, 終点-range.last
     #   @param [Integer] count_limit 繰り返し回数(デフォルトは指定なし)
     #
-    # @overload initialize(first, direction, count_limit)
+    # @overload each(first, direction, count_limit)
     #   @param [When::TM::TemporalPosition] first  始点
     #   @param [Symbol]  direction   :forward - 昇順, :reverse - 降順
     #   @param [Integer] count_limit 繰り返し回数(デフォルトは指定なし)
@@ -880,13 +882,8 @@ module When::V
         zdate = yield(nprop.tzoffsetfrom.dup.tap{|clock| clock.tz_prop = nil})
       end
       deltad = zdate.universal_time - ndate.universal_time
-      if nprop.instance_of?(Standard)
-        return nprop.tzoffsetto   if (deltad >= @difference)
-        return nprop.tzoffsetfrom
-      else
-        return nprop.tzoffsetto   if (deltad >= 0)
-        return nprop.tzoffsetfrom
-      end
+      return nprop.tzoffsetto   if (deltad >= 0)
+      return nprop.tzoffsetfrom
     end
 
     # @private
@@ -1365,8 +1362,13 @@ module When::V
             period = ord-bound[index] if (index>0)
             result = bound + When::TM::PeriodDuration.new(period, index)
             if period > 0 && result.universal_time < lower_bound.universal_time
+              clock  = result.clock
+              case clock.tz_prop
+              when When::V::TimezoneProperty ; clock = clock.tz_prop.tzoffsetto
+              when When::Parts::Timezone     ; clock = clock.tz_prop.standard
+              end
               result = result._copy({:date=>result.cal_date, :validate=>:done, :events=>nil,
-                                     :time=>result.clk_time._copy({:clock=>result.clock.tz_prop.tzoffsetto})})
+                                     :time=>result.clk_time._copy({:clock=>clock})})
             end
             result
           }

data/lib/when_exe/inspect.rb

@@ -92,7 +92,7 @@ module When
         when Numeric, FalseClass, TrueClass ; element
         else        ; element.to_s
         end
-      result = result.translate(options[:locale]) if options[:locale] && result.kind_of?(When::BasicTypes::M17n)
+      result = When::Parts::Locale.translate(result,options[:locale]) if options[:locale] && result.kind_of?(String)
       result
     end
   end
@@ -297,10 +297,18 @@ module When
             begun = self.floor(MONTH,DAY) + When::TM::PeriodDuration.new([0,i,0])
             ended = begun                 + DurationP1M
             ended = ended.prev until begun.cal_date[MONTH-1] == ended.cal_date[MONTH-1]
+            if ended.to_i <= begun.to_i
+              ended = begun
+              loop do
+                succ  = ended.succ
+                break unless succ.frame.equal?(begun.frame)
+                ended = succ
+              end
+            end
             dates = [begun]
             loop do
               current = dates[-1].week_included(wkst)
-              if ((current.first.to_i)...(current.last.to_i)).include?(ended.to_i)
+              if current.last.to_i > ended.to_i
                 dates[-1] = ended
                 break (dates.map {|date| date.week_included(wkst, {:Range=>begun.to_i..ended.to_i}, &block)}).
                       unshift(yield(begun, MONTH)).compact
@@ -1107,6 +1115,10 @@ module When
 
       # event を 文字列化 - 日時で与えられた event を文字列化する
       #
+      # @param [When::TM::TemporalPosition] other 時系の歩度を比較する基準(nilは比較しない)
+      #
+      # @return [String]
+      #
       # @note
       #   events 配列なし          - 日時をそのまま文字列化
       #   日時の精度が日より細かい - イベント名(イベント時刻)
@@ -1117,7 +1129,7 @@ module When
         return events[0] + '(' + clk_time.to_s[/[:*=0-9]+/] + ')' if precision > When::DAY
         return events[0] unless other
         other = JulianDate.dynamical_time(other.dynamical_time,
-                  {:time_standard=>time_standard}) unless rate_of_clock == other.rate_of_clock
+                  {:time_standard=>time_standard}) unless time_standard.rate_of_clock == other.time_standard.rate_of_clock
         events[0] + '('  + (other.to_i - to_i).to_s + ')'
       end
 
@@ -1162,7 +1174,7 @@ module When
         date = Pair._format([format] + terms)
         date.sub!(/([^\d])\(([-+\d]+)\)/, '(\2)\1') if era
         date = date[0..-2] unless @frame.pair[precision-1] || date[-1..-1] != '.'
-        date.gsub!(/\./, '-') if (@frame.indices.length <= DefaultDateIndex.length) && !era
+        date.gsub!(/\./, '-') if (@frame.indices.length <= DefaultDateIndices.length) && !era
         return date
       end
     end

data/lib/when_exe/mini_application.rb

@@ -63,7 +63,9 @@ module When
             start = Time.now
             puts start._log_('%FT%X.%L') + ': Query - ' + When::Parts::Locale.translate(query, config['!'])
             begin
-              client.puts JSON.generate(Array(free_conv(*query.split(/\s+/)))).to_s
+              result = free_conv(*query.split(/\s+/))
+              result = When::Parts::Locale.translate(result, config['!'])
+              client.puts JSON.generate(Array(_to_string(result))).to_s
               stop = Time.now
               puts stop._log_('%FT%X.%L') + ": Respond (%7.0f ms)" % (1000 * (stop.to_f - start.to_f))
             rescue => err
@@ -94,10 +96,46 @@ module When
     def client(server, port, query)
       TCPSocket.open(server, port.to_i) do |socket|
         socket.puts(query)
-        JSON.parse(socket.gets.force_encoding("UTF-8"))
+        results = JSON.parse(socket.gets.force_encoding("UTF-8"))
+        results = Hash[*results.flatten(1)] if results[0].kind_of?(Array)
+        _to_symbol(results)
       end
     end
 
+    # JSONで通信するために Symbol を String に変換する
+    def _to_string(source)
+      case source
+      when Array
+        source.map {|e| _to_string(e)}
+      when Hash
+        result = {}
+        source.each_pair {|k,v|
+          result[k.kind_of?(Symbol) ? '_sym_' + k.to_s : k] = _to_string(v)
+        }
+        result
+      else
+        source
+      end
+    end
+    private :_to_string
+
+    # JSONで通信するために String を Symbol に変換する
+    def _to_symbol(source)
+      case source
+      when Array
+        source.map {|e| _to_symbol(e)}
+      when Hash
+        result = {}
+        source.each_pair {|k,v|
+          result[k =~ /^_sym_(.+)$/ ? $1.to_sym : k] = _to_symbol(v)
+        }
+        result
+      else
+        source
+      end
+    end
+    private :_to_symbol
+
     # 日付の自由変換
     #
     # @param [Array<String>] args コマンドライン入力
@@ -234,11 +272,11 @@ module When
           list.map {|calendar|
              calendar.kind_of?(Class) ?
              yield(calendar.new(date)) :
-             yield(calendar ^ (calendar.rate_of_clock == date.rate_of_clock ? date.to_i : date))
+             yield(calendar ^ (calendar.rate_of_clock == date.time_standard.rate_of_clock ? date.to_i : date))
           }
         else
           list.map {|calendar|
-            date_for_calendar = calendar ^ (calendar.rate_of_clock == date.rate_of_clock ? date.to_i : date)
+            date_for_calendar = calendar ^ (calendar.rate_of_clock == date.time_standard.rate_of_clock ? date.to_i : date)
             methods.map {|method|
               date_for_calendar.send(method[0].to_sym, method[1], &block)
             }

data/lib/when_exe/parts/locale.rb

@@ -19,7 +19,7 @@ module When::Parts
   module Locale
 
     # Locale 読み替えの初期設定
-    Alias = {'alias'=>'ja', '日本語'=>'ja', '英語'=>'en'}
+    DefaultAlias = {'alias'=>'ja', '日本語'=>'ja', '英語'=>'en'}
 
     # 漢字の包摂
     DefaultUnification = {
@@ -52,12 +52,17 @@ module When::Parts
 
       # When::Parts::Locale Module のグローバルな設定を行う
       #
-      # @param [Hash] aliases
-      #   Locale の読み替えパターンを Hash で指定する。
-      #   aliases の指定がない場合、aliases は Alias(モジュール定数)と解釈する。
+      # @param [Hash] options 下記の通り
+      # @option options [Hash] :alias       Locale の読み替えパターンを Hash で指定する。
+      # @option options [Hash] :unification 漢字の包摂パターンを Hash で指定する。
       #
-      def _setup_(aliases=nil)
-        @aliases = aliases || Alias
+      # @note
+      #   :alias の指定がない場合、aliases は DefaultAlias(モジュール定数)と解釈する。
+      #   :unification の指定がない場合、unifications は DefaultUnification(モジュール定数)と解釈する。
+      #
+      def _setup_(options={})
+        @aliases      = options[:alias]       || DefaultAlias
+        @unifications = options[:unification] || DefaultUnification
       end
 
       # 特定 locale に対応した文字列の取得
@@ -72,6 +77,7 @@ module When::Parts
       # @return [String] loc に対応した文字列
       #
       # @note source が Hash や Array の場合、その構成要素を変換して返す
+      # @note encode は通常大文字だが、大文字/小文字の変換は行わず指定されたまま使用している
       #
       def translate(source, loc='')
         return source unless loc
@@ -103,7 +109,7 @@ module When::Parts
       # @return [String] 文字を包摂した文字列
       # @return [Regexp] 文字を包摂した正規表現
       #
-      def ideographic_unification(source, pattern=DefaultUnification)
+      def ideographic_unification(source, pattern=_unification)
         case source
         when When::Parts::Locale
           source.ideographic_unification(pattern)
@@ -196,11 +202,15 @@ module When::Parts
         return hash[default]
       end
 
-      private
+      # @private
+      def _unification
+        @unifications || DefaultUnification
+      end
 
       def _alias
-        @aliases || Alias
+        @aliases || DefaultAlias
       end
+      private :_alias
     end
 
     # ローケール指定時の文字列
@@ -385,7 +395,7 @@ module When::Parts
     #
     # @return [When::Parts::Locale] self
     # @private
-    def ideographic_unification!(pattern=DefaultUnification)
+    def ideographic_unification!(pattern=_unification)
       names = {}
       @names.each_pair do |key, value|
         names[key] = Locale.ideographic_unification(value, pattern)
@@ -403,7 +413,7 @@ module When::Parts
     #
     # @return [When::Parts::Locale] 包摂結果
     #
-    def ideographic_unification(pattern=DefaultUnification)
+    def ideographic_unification(pattern=_unification)
       dup.ideographic_unification!(pattern)
     end
 
@@ -497,8 +507,8 @@ module When::Parts
             prefix = namespace[$1]
             ref.sub!(/^.+:/, prefix) if (prefix)
           end
-          ref += URI.encode(name) if (ref =~ /[\/#:]$/)
-          @link[locale] = ref
+          ref += '%%<' + name + '>' if (ref =~ /[\/#:]$/)
+          @link[locale] = _encode(ref)
         else ; raise ArgumentError, "Irregal locale format"
         end
       end
@@ -509,5 +519,12 @@ module When::Parts
 
       return @names[mark[0] || mark[1] || mark[2]]
     end
+
+    # encode URI from patterns %%(...) or %.(...)
+    def _encode(source)
+      source.gsub(/%.<.+?>/) do |match|
+        URI.encode(match[3..-2].gsub(match[1], '%'))
+      end
+    end
   end
 end

data/lib/when_exe/parts/resource.rb

@@ -15,34 +15,6 @@ module When::Parts
   #
   module Resource
 
-    # 登録済み Prefix
-    Prefix = {'_w'   => When::SourceURI + '/',
-              '_p'   => When::SourceURI + 'Parts/',
-              '_b'   => When::SourceURI + 'BasicTypes/',
-              '_m'   => When::SourceURI + 'BasicTypes/M17n/',
-              '_co'  => When::SourceURI + 'Coordinates/',
-              '_l'   => When::SourceURI + 'Coordinates/Spatial?',
-              '_v'   => When::SourceURI + 'V/',
-              '_rs'  => When::SourceURI + 'RS/',
-              '_ex'  => When::SourceURI + 'EX/',
-              '_tm'  => When::SourceURI + 'TM/',
-              '_e'   => When::SourceURI + 'TM/CalendarEra/',
-              '_t'   => When::SourceURI + 'TimeStandard/',
-              '_ep'  => When::SourceURI + 'Ephemeris/',
-              '_c'   => When::SourceURI + 'CalendarTypes/',
-              '_n'   => When::SourceURI + 'CalendarTypes/CalendarNote/',
-              '_sc'  => When::SourceURI + 'Ephemeris/V50/'
-    }
-
-    # @private
-    PrefixKeys    = Prefix.keys.sort.reverse.map {|k| k.downcase}
-
-    # @private
-    PrefixValues  = Prefix.values.sort.reverse
-
-    # @private
-    PrefixIndex   = Prefix.invert
-
     # @private
     LabelProperty = nil
 
@@ -90,11 +62,14 @@ module When::Parts
 
       # 初期化
       # @return [void]
+      #
+      # @note
+      #   本メソッドでマルチスレッド対応の管理変数の初期化を行っている。
+      #   このため、本メソッド自体はスレッドセーフでない。
+      #
       def _setup_
         @_lock_ = Mutex.new if When.multi_thread
-        @_lock_.lock if @_lock_
         @_pool  = {}
-        @_lock_.unlock if @_lock_
       end
 
       # オブジェクト参照
@@ -152,6 +127,51 @@ module When::Parts
 
       include Pool
 
+      # Base URI for When_exe Resources
+      #
+      # @return [String]
+      #
+      attr_reader :base_uri
+
+      # @private
+      attr_reader :_prefix, :_prefix_values, :_prefix_index
+      private     :_prefix, :_prefix_values, :_prefix_index
+
+      # 初期化
+      #
+      # @param [String] base_uri Base URI for When_exe Resources
+      #
+      # @return [void]
+      #
+      # @note
+      #   本メソッドでマルチスレッド対応の管理変数の初期化を行っている。
+      #   このため、本メソッド自体はスレッドセーフでない。
+      #
+      def _setup_(base_uri=When::SourceURI)
+        super()
+        @_prefix = {
+          '_w'   => base_uri + '/',
+          '_p'   => base_uri + 'Parts/',
+          '_b'   => base_uri + 'BasicTypes/',
+          '_m'   => base_uri + 'BasicTypes/M17n/',
+          '_co'  => base_uri + 'Coordinates/',
+          '_l'   => base_uri + 'Coordinates/Spatial?',
+          '_v'   => base_uri + 'V/',
+          '_rs'  => base_uri + 'RS/',
+          '_ex'  => base_uri + 'EX/',
+          '_tm'  => base_uri + 'TM/',
+          '_e'   => base_uri + 'TM/CalendarEra/',
+          '_t'   => base_uri + 'TimeStandard/',
+          '_ep'  => base_uri + 'Ephemeris/',
+          '_c'   => base_uri + 'CalendarTypes/',
+          '_n'   => base_uri + 'CalendarTypes/CalendarNote/',
+          '_sc'  => base_uri + 'Ephemeris/V50/'
+        }
+        @base_uri       = base_uri
+        @_prefix_values = @_prefix.values.sort.reverse
+        @_prefix_index  = @_prefix.invert
+      end
+
       # オブジェクト生成&参照
       #
       # 指定した iri の When::Parts::Resource オブジェクトを取得する。
@@ -163,6 +183,8 @@ module When::Parts
       # @return [When::Parts::Resource]
       #
       def _instance(iri, namespace=nil)
+        _setup_ unless @_pool
+
         # 配列は個別に処理
         return iri.map {|e| _instance(e, namespace)} if iri.kind_of?(Array)
 
@@ -199,12 +221,13 @@ module When::Parts
 
       # @private
       def _path_with_prefix(obj, simple=true)
-        path = obj.kind_of?(Class) ? obj.to_s.sub(/^When::/, When::SourceURI).gsub(/::/, '/') :
+        _setup_ unless @_pool
+        path = obj.kind_of?(Class) ? obj.to_s.sub(/^When::/, base_uri).gsub(/::/, '/') :
                                      obj.iri
         return path unless simple
-        PrefixValues.each do |value|
+        _prefix_values.each do |value|
           index = path.index(value)
-          return PrefixIndex[value] + ':' + path[value.length..-1] if index
+          return _prefix_index[value] + ':' + path[value.length..-1] if index
         end
         return path
       end
@@ -238,11 +261,11 @@ module When::Parts
             prefix = '_' + prefix.downcase
             klass  = klass.capitalize if klass == klass.upcase
           end
-          path = Prefix[prefix] + klass if (Prefix[prefix])
+          path = _prefix[prefix] + klass if (_prefix[prefix])
         elsif capitalize && path =~ /^(v[^\/]+|daylight$|standard$)/i
           klass = path.sub(/^v/i, '').capitalize
-          path  = Prefix['_v'] + klass if When::V.const_defined?(klass) &&
-                                          When::V.const_get(klass).kind_of?(Class)
+          path  = _prefix['_v'] + klass if When::V.const_defined?(klass) &&
+                                           When::V.const_get(klass).kind_of?(Class)
         end
         return path
       end