when_exe 0.3.5 → 0.3.6

data/lib/when_exe/locales/vi.rb

@@ -5,8 +5,8 @@
   You may use and/or modify this file according to the license described in the LICENSE.txt file included in this archive.
 =end
 
-module When::BasicTypes
-  class M17n
+module When
+  module Locale
 
     # from https://raw.github.com/svenfuchs/rails-i18n/master/rails/locale/vi.yml
 

data/lib/when_exe/locales/wo.rb

@@ -5,8 +5,8 @@
   You may use and/or modify this file according to the license described in the LICENSE.txt file included in this archive.
 =end
 
-module When::BasicTypes
-  class M17n
+module When
+  module Locale
 
     # from https://raw.github.com/svenfuchs/rails-i18n/master/rails/locale/wo.yml
 

data/lib/when_exe/locales/zh_CN.rb

@@ -5,8 +5,8 @@
   You may use and/or modify this file according to the license described in the LICENSE.txt file included in this archive.
 =end
 
-module When::BasicTypes
-  class M17n
+module When
+  module Locale
 
     # from https://raw.github.com/svenfuchs/rails-i18n/master/rails/locale/zh-CN.yml
 

data/lib/when_exe/locales/zh_HK.rb

@@ -5,8 +5,8 @@
   You may use and/or modify this file according to the license described in the LICENSE.txt file included in this archive.
 =end
 
-module When::BasicTypes
-  class M17n
+module When
+  module Locale
 
     # from https://raw.github.com/svenfuchs/rails-i18n/master/rails/locale/zh-HK.yml
 
@@ -45,30 +45,30 @@ module When::BasicTypes
      "十二月"],
    "order"=>[:year, :month, :day]},
  "time"=>
-  {"am"=>"上晝",
+  {"am"=>"上午",
    "formats"=>
-    {"default"=>"%Y年%b%d號 %A %H:%M:%S %Z",
-     "long"=>"%Y年%b%d號 %H:%M",
-     "short"=>"%b%d號 %H:%M",
+    {"default"=>"%Y年%b%d日 %A %H:%M:%S %Z",
+     "long"=>"%Y年%b%d日 %H:%M",
+     "short"=>"%b%d日 %H:%M",
      "time"=>"%H:%M:%S %Z"},
-   "pm"=>"下晝"},
+   "pm"=>"下午"},
  "datetime"=>
   {"distance_in_words"=>
-    {"about_x_hours"=>{"one"=>"大概一個鐘", "other"=>"大概%{count}個鐘"},
-     "about_x_months"=>{"one"=>"大概一個月", "other"=>"大概%{count}個月"},
-     "about_x_years"=>{"one"=>"大概一年", "other"=>"大概%{count}年"},
-     "almost_x_years"=>{"one"=>"差唔多一年", "other"=>"差唔多%{count}年"},
+    {"about_x_hours"=>{"one"=>"約一小時", "other"=>"約%{count}小時"},
+     "about_x_months"=>{"one"=>"約一個月", "other"=>"約%{count}個月"},
+     "about_x_years"=>{"one"=>"約一年", "other"=>"約%{count}年"},
+     "almost_x_years"=>{"one"=>"接近一年", "other"=>"接近%{count}年"},
      "half_a_minute"=>"半分鐘",
-     "less_than_x_minutes"=>{"one"=>"唔夠一分鐘", "other"=>"唔夠%{count}分鐘"},
-     "less_than_x_seconds"=>{"one"=>"唔夠一秒", "other"=>"唔夠%{count}秒"},
+     "less_than_x_minutes"=>{"one"=>"不到一分鐘", "other"=>"不到%{count}分鐘"},
+     "less_than_x_seconds"=>{"one"=>"不到一秒", "other"=>"不到%{count}秒"},
      "over_x_years"=>{"one"=>"超過一年", "other"=>"超過%{count}年"},
-     "x_days"=>{"one"=>"一日", "other"=>"%{count}日"},
+     "x_days"=>{"one"=>"一天", "other"=>"%{count}天"},
      "x_minutes"=>{"one"=>"一分鐘", "other"=>"%{count}分鐘"},
      "x_months"=>{"one"=>"一個月", "other"=>"%{count}個月"},
      "x_seconds"=>{"one"=>"一秒", "other"=>"%{count}秒"}},
    "prompts"=>
     {"day"=>"日",
-     "hour"=>"點",
+     "hour"=>"時",
      "minute"=>"分",
      "month"=>"月",
      "second"=>"秒",

data/lib/when_exe/locales/zh_TW.rb

@@ -5,8 +5,8 @@
   You may use and/or modify this file according to the license described in the LICENSE.txt file included in this archive.
 =end
 
-module When::BasicTypes
-  class M17n
+module When
+  module Locale
 
     # from https://raw.github.com/svenfuchs/rails-i18n/master/rails/locale/zh-TW.yml
 

data/lib/when_exe/locales/zh_YUE.rb

@@ -0,0 +1,77 @@
+# -*- coding: utf-8 -*-
+=begin
+  Copyright (C) 2012-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
+
+module When
+  module Locale
+
+    # from https://raw.github.com/svenfuchs/rails-i18n/master/rails/locale/zh-YUE.yml
+
+    Locale_zh_YUE =
+{"date"=>
+  {"abbr_day_names"=>["日", "一", "二", "三", "四", "五", "六"],
+   "abbr_month_names"=>
+    [nil,
+     "1月",
+     "2月",
+     "3月",
+     "4月",
+     "5月",
+     "6月",
+     "7月",
+     "8月",
+     "9月",
+     "10月",
+     "11月",
+     "12月"],
+   "day_names"=>["星期日", "星期一", "星期二", "星期三", "星期四", "星期五", "星期六"],
+   "formats"=>{"default"=>"%Y-%m-%d", "long"=>"%Y年%b%d日", "short"=>"%b%d日"},
+   "month_names"=>
+    [nil,
+     "一月",
+     "二月",
+     "三月",
+     "四月",
+     "五月",
+     "六月",
+     "七月",
+     "八月",
+     "九月",
+     "十月",
+     "十一月",
+     "十二月"],
+   "order"=>[:year, :month, :day]},
+ "time"=>
+  {"am"=>"上晝",
+   "formats"=>
+    {"default"=>"%Y年%b%d號 %A %H:%M:%S %Z",
+     "long"=>"%Y年%b%d號 %H:%M",
+     "short"=>"%b%d號 %H:%M",
+     "time"=>"%H:%M:%S %Z"},
+   "pm"=>"下晝"},
+ "datetime"=>
+  {"distance_in_words"=>
+    {"about_x_hours"=>{"one"=>"大概一個鐘", "other"=>"大概%{count}個鐘"},
+     "about_x_months"=>{"one"=>"大概一個月", "other"=>"大概%{count}個月"},
+     "about_x_years"=>{"one"=>"大概一年", "other"=>"大概%{count}年"},
+     "almost_x_years"=>{"one"=>"差唔多一年", "other"=>"差唔多%{count}年"},
+     "half_a_minute"=>"半分鐘",
+     "less_than_x_minutes"=>{"one"=>"唔夠一分鐘", "other"=>"唔夠%{count}分鐘"},
+     "less_than_x_seconds"=>{"one"=>"唔夠一秒", "other"=>"唔夠%{count}秒"},
+     "over_x_years"=>{"one"=>"超過一年", "other"=>"超過%{count}年"},
+     "x_days"=>{"one"=>"一日", "other"=>"%{count}日"},
+     "x_minutes"=>{"one"=>"一分鐘", "other"=>"%{count}分鐘"},
+     "x_months"=>{"one"=>"一個月", "other"=>"%{count}個月"},
+     "x_seconds"=>{"one"=>"一秒", "other"=>"%{count}秒"}},
+   "prompts"=>
+    {"day"=>"日",
+     "hour"=>"點",
+     "minute"=>"分",
+     "month"=>"月",
+     "second"=>"秒",
+     "year"=>"年"}}}
+  end
+end

data/lib/when_exe/mini_application.rb

@@ -61,10 +61,10 @@ module When
           Thread.start(socket.accept) do |client|
             query = client.gets.chomp.force_encoding("UTF-8")
             start = Time.now
-            puts start._log_('%FT%X.%L') + ': Query - ' + When::Parts::Locale.translate(query, config['!'])
+            puts start._log_('%FT%X.%L') + ': Query - ' + When::Locale.translate(query, config['!'])
             begin
               result = free_conv(*query.split(/\s+/))
-              result = When::Parts::Locale.translate(result, config['!'])
+              result = When::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))
@@ -126,19 +126,28 @@ module When
         if methods.size == 0
           lambda {|date| date.send(*output)}
         else
-          lambda {|date, type|
-            case type
-            when When::YEAR  ; date.strftime("%Y")
-            when When::MONTH ; date.strftime("%B %Y")
-            when When::WEEK  ; nil
-            when When::DAY   ; date[0]
-            else             ; '-'
-            end
-          }
+          lambda {|date, type| column(date, type)}
         end
       _free_conv(calendars, dates, methods, output, options, &block)
     end
 
+    # 七曜表の一日分
+    #
+    # @param [When::TM::TemporalPosition] date 処理する一日
+    # @param [Integer, nil] type 当該日の種類
+    #
+    # @return [Object>] 処理結果
+    #
+    def column(date, type)
+      case type
+      when When::YEAR  ; date.strftime("%Y")
+      when When::MONTH ; date.strftime("%B %Y")
+      when When::WEEK  ; nil
+      when When::DAY   ; date[0]
+      else             ; '-'
+      end
+    end
+
     private
 
     # to_h メソッドのオプション設定
@@ -173,6 +182,7 @@ module When
         when Range   ; arg.each {|d| dates << d}
         when Symbol  ; output = [arg]
         when String
+          arg = When::EncodingConversion.to_internal_encoding(arg)
           case arg
           when /^:(.+?)(?:\[(..)\])?$/             ; output  = [$1.to_sym, $2].compact
           when /^(year|month|week)(?:\[(..)\])?$/i ; methods << [$1.downcase + '_included', $2||'SU']
@@ -217,7 +227,7 @@ module When
     #
     def _free_conv(calendars, dates, methods, output, options, &block)
       dates[0]     ||= When.now
-      calendars[0] ||= When.Calendar('Gregorian')
+      calendars[0] ||= When::Gregorian
       result = dates.map {|date|
         date = When.when?(date)
         opts = {}

data/lib/when_exe/parts/geometric_complex.rb

@@ -5,6 +5,9 @@
   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/parts/method_cash'
+require 'when_exe/tmduration'
+
 #
 # 本ライブラリのための諸々の部品
 #
@@ -105,7 +108,7 @@ module When::Parts
     #   分解能がない場合は、When::SYSTEM を返す
     #
     def precision
-      @node[0] && @node[0][0].respond_to?(:precision) ? @node[0][0].precision : Coordinates::SYSTEM
+      @node[0] && @node[0][0].respond_to?(:precision) ? @node[0][0].precision : When::SYSTEM
     end
 
     # 範囲を反転する
@@ -150,6 +153,16 @@ module When::Parts
       return GeometricComplex.new(copy, self.reverse)
     end
 
+    # 共通集合
+    #
+    # @param [Range, When::Parts::GeometricComplex] other
+    #
+    # @return [When::Parts::GeometricComplex] self と other の共通集合を返す
+    #
+    def &(other)
+      -(-self | -other)
+    end
+
     # ISO19108 の TM オブジェクトに変換する
     #
     # @param [Hash] options When::TM::TemporalPosition の生成を行う場合に使用する
@@ -172,6 +185,8 @@ module When::Parts
       end
       return objects[0] if objects.length==1
       return When::TM::TopologicalComplex.new(objects)
+    rescue NameError
+      raise NameError, "Please require 'when_exe' to use Temporal Objects Package"
     end
 
     # 範囲に含まれるか?

data/lib/when_exe/parts/method_cash.rb

@@ -5,274 +5,220 @@
   You may use and/or modify this file according to the license described in the LICENSE.txt file included in this archive.
 =end
 
-#
-# 本ライブラリのための諸々の部品
-#
-module When::Parts
-
-  #
-  # == メソッドの実行結果をキャッシュし処理の高速化を行う
-  #
-  # === fn というメソッドをキャッシュ化
-  #  * fn ではなく fn_ を定義しておく
-  #  * fn メソッドが呼ばれると fn_ を実行し、{引数=>戻り値} を Hash に記憶する
-  #  * 同じ引数で再度 fn メソッドが呼ばれると Hash から戻り値を取り出して返す
-  #
-  # === a_to_b と b_to_a という互いに逆関数のメソッドをキャッシュ化
-  #  * a_to_b ではなく a_to_b_ , b_to_a ではなく b_to_a_ を定義しておく
-  #  * a_to_b メソッドが呼ばれると a_to_b_ を実行し、{引数=>戻り値}, {戻り値=>引数}を Hash に記憶する
-  #  * 同じ引数で再度 a_to_b メソッドが呼ばれると Hash から戻り値を取り出して返す
-  #  * b_to_a メソッドが呼ばれ Hash に戻り値があれば Hash から戻り値を取り出して返す
-  #
-  # == 特記事項
-  #
-  # === Argument identification
-  #   The eql? method of When::TM::(Temporal)Position is not overridden.
-  #   It seems that the cost of identification of the argument exceeds the merit of the method cash.
-  #   I do not recommend applying the methodcash to the method which takes
-  #   When::TM::(Temporal)Position as an argument.
+module When
   #
-  # === Multi-thread critical situation
-  #   There is a problem in consistency of hash when this function is used in multi-thread environment.
-  #   If the initialize method sets Mutex in instance variable @_m_cash_lock_,
-  #   this function gives up use of hash in the critical situation.
+  # 本ライブラリのための諸々の部品
   #
-  #   class Foo
-  #     include MethodCash
-  #
-  #     def initialize
-  #       ...
-  #       @_m_cash_lock_ = Mutex.new
-  #       ...
-  #      end
-  #   end
-  #
-  #   参考 http://blade.nagaokaut.ac.jp/cgi-bin/scat.rb/ruby/ruby-list/47663
-  #
-  module MethodCash
+  module Parts
 
-    # @private
-    Escape = {:to_str  => true,
-              :to_ary  => true,
-              :to_hash => true}
-
-    class << self
+    #
+    # == メソッドの実行結果をキャッシュし処理の高速化を行う
+    #
+    # === fn というメソッドをキャッシュ化
+    #  * fn ではなく fn_ を定義しておく
+    #  * fn メソッドが呼ばれると fn_ を実行し、{引数=>戻り値} を Hash に記憶する
+    #  * 同じ引数で再度 fn メソッドが呼ばれると Hash から戻り値を取り出して返す
+    #
+    # === a_to_b と b_to_a という互いに逆関数のメソッドをキャッシュ化
+    #  * a_to_b ではなく a_to_b_ , b_to_a ではなく b_to_a_ を定義しておく
+    #  * a_to_b メソッドが呼ばれると a_to_b_ を実行し、{引数=>戻り値}, {戻り値=>引数}を Hash に記憶する
+    #  * 同じ引数で再度 a_to_b メソッドが呼ばれると Hash から戻り値を取り出して返す
+    #  * b_to_a メソッドが呼ばれ Hash に戻り値があれば Hash から戻り値を取り出して返す
+    #
+    # == 特記事項
+    #
+    # === Argument identification
+    #   The eql? method of When::TM::(Temporal)Position is not overridden.
+    #   It seems that the cost of identification of the argument exceeds the merit of the method cash.
+    #   I do not recommend applying the methodcash to the method which takes
+    #   When::TM::(Temporal)Position as an argument.
+    #
+    # === Multi-thread critical situation
+    #   There is a problem in consistency of hash when this function is used in multi-thread environment.
+    #   If the initialize method sets Mutex in instance variable @_m_cash_lock_,
+    #   this function gives up use of hash in the critical situation.
+    #
+    #   class Foo
+    #     include MethodCash
+    #
+    #     def initialize
+    #       ...
+    #       @_m_cash_lock_ = Mutex.new
+    #       ...
+    #      end
+    #   end
+    #
+    #   参考 http://blade.nagaokaut.ac.jp/cgi-bin/scat.rb/ruby/ruby-list/47663
+    #
+    module MethodCash
+
+      # @private
+      Escape = {:to_str  => true,
+                :to_ary  => true,
+                :to_hash => true}
+
+      class << self
+
+        # '_' で終わるメソッドをキャッシュせずに毎回計算するか否か
+        #
+        # @return [Boolean] キャッシュしない true, キャッシュする false/nil
+        #
+        attr_accessor :direct
+
+        # When::Parts::MethodCash のグローバルな設定を行う
+        #
+        # @param [Hash] options 以下の通り
+        # @option options [Boolean]               :direct '_' で終わるメソッドをキャッシュせずに毎回計算するか否か
+        # @option options [Hash{Symbol=>boolean}] :escape 毎回 method_missing を発生させるメソッドを true にする
+        # @option options [false, nil]            :escape to_str, to_ary, to_hash のみ毎回 method_missing を発生させる
+        # @option options [true]                  :escape すべて毎回 method_missing を発生させる
+        #
+        # @return [void]
+        #
+        # @note When::TM::Calendar クラスの一部はキャッシュ使用を前提としているため :direct=>true では動作しません
+        #
+        def _setup_(options={})
+          @_setup_info = options
+          @direct      = options[:direct]
+          case options[:escape]
+          when true
+            instance_eval %Q{
+              def escape(method)
+                true
+              end
+            }
+          when Hash
+            @escape = Escape.merge(options[:escape])
+            instance_eval %Q{
+              def escape(method)
+                @escape[method]
+              end
+            }
+          else
+            instance_eval %Q{
+              def escape(method)
+                Escape.key?(method)
+              end
+            }
+          end
+        end
 
-      # '_' で終わるメソッドをキャッシュせずに毎回計算するか否か
-      #
-      # @return [Boolean] キャッシュしない true, キャッシュする false/nil
-      #
-      attr_accessor :direct
+        # 設定情報を取得する
+        #
+        # @return [Hash] 設定情報
+        #
+        def _setup_info
+          @_setup_info ||= {}
+        end
 
-      # When::Parts::MethodCash のグローバルな設定を行う
-      #
-      # @param [Hash] options 以下の通り
-      # @option options [Boolean]               :direct '_' で終わるメソッドをキャッシュせずに毎回計算するか否か
-      # @option options [Hash{Symbol=>boolean}] :escape 毎回 method_missing を発生させるメソッドを true にする
-      # @option options [false, nil]            :escape to_str, to_ary, to_hash のみ毎回 method_missing を発生させる
-      # @option options [true]                  :escape すべて毎回 method_missing を発生させる
-      #
-      # @return [void]
-      #
-      # @note When::TM::Calendar クラスの一部はキャッシュ使用を前提としているため :direct=>true では動作しません
-      #
-      def _setup_(options={})
-        @_setup_info = options
-        @direct      = options[:direct]
-        case options[:escape]
-        when true
-          instance_eval %Q{
-            def escape(method)
-              true
-            end
-          }
-        when Hash
-          @escape = Escape.merge(options[:escape])
-          instance_eval %Q{
-            def escape(method)
-              @escape[method]
-            end
-          }
-        else
-          instance_eval %Q{
-            def escape(method)
-              Escape.key?(method)
-            end
-          }
+        # method_missing メソッドを forward するか否か
+        #
+        # @param [Symbol] method メソッドシンボル
+        #
+        # @return [boolean] true - しない, false/nil - する
+        #
+        def escape(method)
+          Escape.key?(method)
         end
       end
 
-      # 設定情報を取得する
-      #
-      # @return [Hash] 設定情報
-      #
-      def _setup_info
-        @_setup_info ||= {}
-      end
+      alias :method_missing_ :method_missing
 
-      # method_missing メソッドを forward するか否か
       #
-      # @param [Symbol] method メソッドシンボル
+      # 最初に発生する method_missing で、キャッシュ機能を登録する
       #
-      # @return [boolean] true - しない, false/nil - する
+      # @param [Symbol] name メソッド名
+      # @param [Array] args メソッド引数
+      # @param [block] block ブロック(省略可)
       #
-      def escape(method)
-        Escape.key?(method)
-      end
-    end
-
-    alias :method_missing_ :method_missing
-
-    #
-    # 最初に発生する method_missing で、キャッシュ機能を登録する
-    #
-    # @param [Symbol] name メソッド名
-    # @param [Array] args メソッド引数
-    # @param [block] block ブロック(省略可)
-    #
-    # @return [void]
-    #
-    def method_missing(name, *args, &block)
+      # @return [void]
+      #
+      def method_missing(name, *args, &block)
 
-      return method_missing_(name, *args, &block) unless respond_to?("#{name}_", true)
-      return send("#{name}_",  *args, &block) if MethodCash.direct
+        return method_missing_(name, *args, &block) unless respond_to?("#{name}_", true)
+        return send("#{name}_",  *args, &block) if MethodCash.direct
 
-      if ((name.to_s =~ /^(_*)(.+?)_to_(.+)$/) && respond_to?("#{$1}#{$3}_to_#{$2}_", true))
-        prefix, from, to = $~[1..3]
-        begin
-          if (@_m_cash_lock_)
-            return send("#{prefix}#{from}_to_#{to}_", *args, &block) unless @_m_cash_lock_.try_lock
-            unlock = "ensure ; @_m_cash_lock_.locked? && @_m_cash_lock_.unlock"
+        if ((name.to_s =~ /^(_*)(.+?)_to_(.+)$/) && respond_to?("#{$1}#{$3}_to_#{$2}_", true))
+          prefix, from, to = $~[1..3]
+          begin
+            if (@_m_cash_lock_)
+              return send("#{prefix}#{from}_to_#{to}_", *args, &block) unless @_m_cash_lock_.try_lock
+              unlock = "ensure ; @_m_cash_lock_.locked? && @_m_cash_lock_.unlock"
+            end
+            [[from, to],[to, from]].each do |pair|
+              a, b = pair
+              lock = @_m_cash_lock_ ? "  return #{prefix}#{a}_to_#{b}_(*args) unless @_m_cash_lock_.try_lock" : ''
+              instance_eval %Q{
+                def #{prefix}#{a}_to_#{b}(*args)
+                  key = _key_simplefy(args)
+                  inv = @_m_cash_["#{prefix}#{a}_to_#{b}"][key]
+                  return inv if inv
+                  begin
+                  #{lock}
+                    inv = #{prefix}#{a}_to_#{b}_(*args)
+                    @_m_cash_["#{prefix}#{b}_to_#{a}"][_key_simplefy(inv)] = args
+                    @_m_cash_["#{prefix}#{a}_to_#{b}"][key] = inv
+                    return inv
+                  #{unlock}
+                  end
+                end
+              }
+            end
+            key = _key_simplefy(args)
+            inv = send("#{prefix}#{from}_to_#{to}_", *args)
+            @_m_cash_ ||= {}
+            @_m_cash_["#{prefix}#{to}_to_#{from}"]    ||= {}
+            @_m_cash_["#{prefix}#{from}_to_#{to}"]    ||= {}
+            @_m_cash_["#{prefix}#{to}_to_#{from}"][_key_simplefy(inv)] = args
+            @_m_cash_["#{prefix}#{from}_to_#{to}"][key] = inv
+            return inv
+          ensure
+            @_m_cash_lock_ && @_m_cash_lock_.locked? && @_m_cash_lock_.unlock
           end
-          [[from, to],[to, from]].each do |pair|
-            a, b = pair
-            lock = @_m_cash_lock_ ? "  return #{prefix}#{a}_to_#{b}_(*args) unless @_m_cash_lock_.try_lock" : ''
+
+        else
+          begin
+            respond = respond_to?("#{name}_setup", true)
+            setup   = respond ? "#{name}_setup(key, *args)" :
+                                "(@_m_cash_[\"#{name}\"][key] = #{name}_(*args))"
+            if (@_m_cash_lock_)
+              return send("#{name}_", *args, &block) unless @_m_cash_lock_.try_lock
+              lock   = "  return #{name}_(*args) unless @_m_cash_lock_.try_lock"
+              unlock = "ensure ; @_m_cash_lock_.locked? && @_m_cash_lock_.unlock"
+            end
             instance_eval %Q{
-              def #{prefix}#{a}_to_#{b}(*args)
+              def #{name}(*args)
                 key = _key_simplefy(args)
-                inv = @_m_cash_["#{prefix}#{a}_to_#{b}"][key]
-                return inv if inv
+                ret = @_m_cash_["#{name}"][key]
+                return ret if ret
                 begin
                 #{lock}
-                  inv = #{prefix}#{a}_to_#{b}_(*args)
-                  @_m_cash_["#{prefix}#{b}_to_#{a}"][_key_simplefy(inv)] = args
-                  @_m_cash_["#{prefix}#{a}_to_#{b}"][key] = inv
-                  return inv
+                  return #{setup}
                 #{unlock}
                 end
               end
             }
-          end
-          key = _key_simplefy(args)
-          inv = send("#{prefix}#{from}_to_#{to}_", *args)
-          @_m_cash_ ||= {}
-          @_m_cash_["#{prefix}#{to}_to_#{from}"]    ||= {}
-          @_m_cash_["#{prefix}#{from}_to_#{to}"]    ||= {}
-          @_m_cash_["#{prefix}#{to}_to_#{from}"][_key_simplefy(inv)] = args
-          @_m_cash_["#{prefix}#{from}_to_#{to}"][key] = inv
-          return inv
-        ensure
-          @_m_cash_lock_ && @_m_cash_lock_.locked? && @_m_cash_lock_.unlock
-        end
-
-      else
-        begin
-          respond = respond_to?("#{name}_setup", true)
-          setup   = respond ? "#{name}_setup(key, *args)" :
-                              "(@_m_cash_[\"#{name}\"][key] = #{name}_(*args))"
-          if (@_m_cash_lock_)
-            return send("#{name}_", *args, &block) unless @_m_cash_lock_.try_lock
-            lock   = "  return #{name}_(*args) unless @_m_cash_lock_.try_lock"
-            unlock = "ensure ; @_m_cash_lock_.locked? && @_m_cash_lock_.unlock"
-          end
-          instance_eval %Q{
-            def #{name}(*args)
-              key = _key_simplefy(args)
-              ret = @_m_cash_["#{name}"][key]
-              return ret if ret
-              begin
-              #{lock}
-                return #{setup}
-              #{unlock}
-              end
-            end
-          }
-          key = _key_simplefy(args)
-          @_m_cash_ ||= {}
-          @_m_cash_["#{name}"] ||= {}
-          if (respond)
-            return send("#{name}_setup", key, *args)
-          else
-            return(@_m_cash_["#{name}"][key] ||= send("#{name}_", *args))
-          end
-        ensure
-          @_m_cash_lock_ && @_m_cash_lock_.locked? && @_m_cash_lock_.unlock
-        end
-      end
-    end
-
-    private
-
-    def _key_simplefy(args)
-      key = args.kind_of?(Array) ? args.dup : args
-      key = key[0] while key.kind_of?(Array) && key.length<=1
-      return key
-    end
-  end
-
-  #
-  # デバッグのためのオブジェクト内部記録用
-  # @private
-  module SnapShot
-
-    @@depth = 2
-
-    class << self
-      def _default(depth=2)
-        @@depth = depth
-      end
-
-      def _snapshot(object, depth=@@depth, processed={})
-        obj = object.dup rescue (return object)
-      # def obj.is_snapshoted? ; true ; end
-        if (depth==0 || processed.key?(object))
-          return object if object.instance_of?(String)
-          string = object.to_s
-          string = "<##{object.class}>" + string unless (string =~ /^#</)
-          return string
-        else
-          object.instance_variables.each do |v|
-            if ((v =~ /^@_/) && object.kind_of?(SnapShot))
-              obj._remove_instance_variable(v)
+            key = _key_simplefy(args)
+            @_m_cash_ ||= {}
+            @_m_cash_["#{name}"] ||= {}
+            if (respond)
+              return send("#{name}_setup", key, *args)
             else
-              src = object.instance_variable_get(v)
-              case src
-              when Array
-                val = src.map {|e| _snapshot(e, depth-1, processed)}
-              when Hash
-                val = {}
-                src.each_pair {|k,c| val[_snapshot(k, depth-1, processed)] = _snapshot(c, depth-1, processed)}
-              else
-                val = _snapshot(src, depth-1, processed)
-              end
-              obj.instance_variable_set(v, val)
+              return(@_m_cash_["#{name}"][key] ||= send("#{name}_", *args))
             end
+          ensure
+            @_m_cash_lock_ && @_m_cash_lock_.locked? && @_m_cash_lock_.unlock
           end
-          processed[object] = true
         end
-        return obj
       end
-    end
 
-    def _snapshot(depth=@@depth, processed={})
-      SnapShot._snapshot(self, depth, processed)
-    end
+      private
 
-    private
-
-    def _remove_instance_variable(name)
-      remove_instance_variable(name) if (name =~ /^@_/)
+      def _key_simplefy(args)
+        key = args.kind_of?(Array) ? args.dup : args
+        key = key[0] while key.kind_of?(Array) && key.length<=1
+        return key
+      end
     end
   end
-  # module Resource ; include SnapShot ; end
 end