when_exe 0.3.4 → 0.3.5

data/lib/when_exe/parts/geometric_complex.rb

@@ -257,13 +257,11 @@ module When::Parts
       when GeometricComplex
         @node     = args[0].node
         @reverse ^= args[0].reverse
-        super(self.first, self.last, exclude_end?) if self.first && self.last
-        return
+        return super(self.first||-Float::INFINITY, self.last||+Float::INFINITY, exclude_end?)
 
       when Array
         @node = args[0]
-        super(self.first, self.last, exclude_end?) if self.first && self.last
-        return
+        return super(self.first||-Float::INFINITY, self.last||+Float::INFINITY, exclude_end?)
 
       when Range
         first = [args[0].first, true]
@@ -288,7 +286,7 @@ module When::Parts
       @node = []
       @node << first if first
       @node << last  if last
-      super(self.first, self.last, exclude_end?) if first && last
+      super(self.first||-Float::INFINITY, self.last||+Float::INFINITY, exclude_end?)
     end
 
     private

data/lib/when_exe/parts/locale.rb

@@ -54,21 +54,47 @@ module When::Parts
       "\\,"  => ","
     }
 
+    # Wikipedia の URL の正規表現
+    # @private
+    Ref  = /^http:\/\/(.+?)\.wikipedia\.org\/wiki\/([^#]+?)$/
+
+    # Wikipedia の多言語リンクの正規表現
+    # @private
+    Link = /<li class="interlanguage-link interwiki-(.+?)"><a href="\/\/(.+?)\.wikipedia\.org\/wiki\/(.+?)" title="(.+?) – /
+
     class << self
 
+      # Wikipedia の連続的な参照を抑制するための遅延時間/秒
+      #
+      # @return [Numeric]
+      #
+      attr_accessor :wikipedia_interval
+
       # When::Parts::Locale Module のグローバルな設定を行う
       #
       # @param [Hash] options 下記の通り
-      # @option options [Hash] :alias       Locale の読み替えパターンを Hash で指定する。
-      # @option options [Hash] :unification 漢字の包摂パターンを Hash で指定する。
+      # @option options [Hash]    :alias              Locale の読み替えパターンを Hash で指定する。
+      # @option options [Hash]    :unification        漢字の包摂パターンを Hash で指定する。
+      # @option options [Numeric] :wikipedia_interval Wikipedia の連続的な参照を抑制するための遅延時間/秒
       #
       # @note
       #   :alias の指定がない場合、aliases は DefaultAlias(モジュール定数)と解釈する。
       #   :unification の指定がない場合、unifications は DefaultUnification(モジュール定数)と解釈する。
       #
       def _setup_(options={})
-        @aliases      = options[:alias]       || DefaultAlias
-        @unifications = options[:unification] || DefaultUnification
+        @aliases            = options[:alias]       || DefaultAlias
+        @unifications       = options[:unification] || DefaultUnification
+        @wikipedia_interval = options[:wikipedia_interval]
+      end
+
+      # 設定情報を取得する
+      #
+      # @return [Hash] 設定情報
+      #
+      def _setup_info
+        {:alias              => _alias,
+         :unification        => _unification,
+         :wikipedia_interval => @wikipedia_interval}
       end
 
       # 特定 locale に対応した文字列の取得
@@ -171,7 +197,7 @@ module When::Parts
           if v.kind_of?(String)
             v = v.strip
             next if (v=~/^#/)
-            (v =~ /^(\*)?(.*?)(?:\s*=\s*(.+))?$/) ? $~[1..3] : [[nil, '', nil]]
+            (v =~ /^(\*)?(.*?)(?:\s*=\s*(.*))?$/) ? $~[1..3] : [[nil, '', nil]]
           else
             v
           end
@@ -212,21 +238,118 @@ module When::Parts
       def _hash_value(hash, locale, default='')
         locale = locale.sub(/\..*/, '').sub(/-/,'_')
         return hash[locale] if (hash[locale])
-        return _hash_value(hash, _alias[locale], default) if (_alias[locale])
+        return _hash_value(hash, _alias[locale], default) if _alias[locale]
         language = locale.sub(/_.*/, '')
         return hash[language] if (hash[language])
         return hash[default]
       end
 
+      # 漢字の包摂パターン
       # @private
       def _unification
-        @unifications || DefaultUnification
+        @unifications ||= DefaultUnification
       end
 
+      private
+
+      # Locale の読み替えパターン
       def _alias
-        @aliases || DefaultAlias
+        @aliases ||= DefaultAlias
+      end
+
+      # wikipedia オブジェクトの生成・参照
+      def wikipedia_object(path, options={})
+        query    = options.delete(:query)
+        interval = options.key?(:interval) ? options.delete(:interval) : @wikipedia_interval
+        return nil unless Object.const_defined?(:JSON) && path =~ Ref
+        _wikipedia_relation(_wikipedia_object(path, $~[1], $~[2], query, interval, options), path, query)
+      end
+
+      # wikipedia の読み込み
+      def _wikipedia_object(path, locale, file, query, interval, options)
+        # 採取済みデータ
+        title = URI.decode(file.gsub('_', ' '))
+        mode  = "".respond_to?(:force_encoding) ? ':utf-8' : ''
+        dir   = Resource.root_dir + '/data/wikipedia/' + locale
+        FileUtils.mkdir_p(dir) unless FileTest.exist?(dir)
+
+        open("#{dir}/#{file}.json", 'r'+mode) do |source|
+          json = JSON.parse(source.read)
+          json.update(Hash[*query.split('&').map {|pair| pair.split('=')}.flatten]) if query
+          json.key?('names') ?
+            When::BasicTypes::M17n.new(json) :
+            When::Coordinates::Spatial.new(json)
+        end
+
+      rescue => no_file_error
+        # 新しいデータ
+        case interval
+        when 0
+          raise no_file_error
+        when Numeric
+          if @wikipedia_last_access
+            delay = (@wikipedia_last_access + interval.abs - Time.now.to_f).ceil
+            sleep(delay) if delay > 0
+          end
+        end
+        contents = nil
+        begin
+          OpenURI
+          source   = open(path, 'r'+mode)
+          contents = source.read
+        ensure
+          @wikipedia_last_access = Time.now.to_f
+          source.close if source
+        end
+
+        # wikipedia contents
+        raise KeyError, 'Article not found: ' + title if contents =~ /<div class="noarticletext">/
+
+        # word
+        word = {
+          :label => title,
+          :names => {''=>title, locale=>title},
+          :link  => {''=>path,   locale=>path  }
+        }
+        contents.scan(Link) do |link|
+          word[:names][$~[1]] = $~[4]
+          word[:link ][$~[1]] = "http://#{$~[1]}.wikipedia.org/wiki/#{$~[3]}"
+        end
+        object = When::BasicTypes::M17n.new(word)
+
+        # location
+        if contents =~ /tools\.wmflabs\.org\/geohack\/geohack\.php\?.+?params=(.+?[NS])_(.+?[EW])/
+          location = {
+            :label => object
+          }
+          location[:lat], location[:long] = $~[1..2].map {|pos|
+            pos.gsub(/_(\d)[._]/, '_0\1_').sub('.', '_').sub('_', '.').gsub('_', '')
+          }
+          object = When::Coordinates::Spatial.new(location)
+        end
+
+        # save data
+        open("#{dir}/#{file}.json", 'w'+mode) do |source|
+          source.write(JSON.dump(object.to_h({:method=>:to_h}).update(options)))
+        end
+        query ? _wikipedia_object(path, locale, file, query) : object
+      end
+
+      # wikipedia オブジェクトの関連付け
+      def _wikipedia_relation(object, path, query)
+        code_space = path.sub(/[^\/]+$/, '')
+        if object.kind_of?(When::Coordinates::Spatial)
+          object.label._pool['..'] = object
+          object._pool[object.label.to_s] = object.label
+          object.send(:child=, [object.label])
+          object.label.send(:code_space=, code_space)
+        else
+          object.send(:code_space=, code_space)
+        end
+        object._pool['..']  = path
+        object._pool['..'] += '?' + query if query
+        object
       end
-      private :_alias
     end
 
     # ローケール指定時の文字列
@@ -343,12 +466,14 @@ module When::Parts
         (@names.keys + other.names.keys).uniq.each do |key|
           names[key] = _label_value(key) + other._label_value(key)
         end
+        links = other.link
       else
         @names.keys.each do |key|
           names[key] = _label_value(key) + other.to_s
         end
+        links = {}
       end
-      return dup._copy({:names=>names, :label=>to_s + other.to_s})
+      return dup._copy({:names=>names, :link=>links.merge(link), :label=>to_s + other.to_s})
     end
 
     # 書式指定による文字列化
@@ -387,11 +512,17 @@ module When::Parts
         l
       }
 
+      # link ハッシュ
+      links = terms.reverse.inject({}) {|h,t|
+        h.update(t.link) if t.kind_of?(Locale)
+        h
+      }
+
       # 生成
-      # @private
       dup._copy({
         :label => keys.include?('') ? names.delete(nil) : (names[''] = names[keys[0]]),
-        :names => names
+        :names => names,
+        :link  => links
       })
     end
     alias :% :_printf
@@ -464,25 +595,35 @@ module When::Parts
 
     # @private
     def _copy(options={})
-      if (options.key?(:names))
-        @names    = options[:names]
+      if options.key?('label') # for JSON
+        opt = {}
+        options.each_pair do |key, value|
+          opt[key.to_sym] = value
+        end
+      else
+        opt = options
+      end
+
+      self[0..-1] = opt[:label]      if opt[:label]
+      if opt[:names]
+        @names    = opt[:names]
         @keys     = @names.keys.sort
         @values   = @names.values.compact.sort.reverse
       end
-      @link       = options[:link]       if (options.key?(:link))
-      @code_space = options[:code_space] if (options.key?(:code_space))
-      @access_key = options[:access_key] if (options.key?(:access_key))
-      self[0..-1] = options[:label]      if (options.key?(:label))
+      @label      = opt[:label]      if opt[:label]
+      @link       = opt[:link]       if opt[:link]
+      @access_key = opt[:access_key] if opt[:access_key]
+      @code_space = opt[:code_space] if opt[:code_space]
       return self
     end
 
     # @private
     def _copy_all(other)
-      _copy({:names      => other.names,
+      _copy({:label      => other.to_s,
+             :names      => other.names,
              :link       => other.link,
-             :code_space => other.code_space,
              :access_key => other.access_key,
-             :label      => other.to_s
+             :code_space => other.code_space
             })
     end
 
@@ -491,9 +632,12 @@ module When::Parts
     def _label_value(locale)
       label = Locale._hash_value(@names, locale, nil)
       return label if label
-      addition = When::BasicTypes::M17n._get_locale(locale, @access_key)
-      return @names[''] unless addition
-      update(addition)
+      foreign  = When::BasicTypes::M17n._get_locale(locale, @access_key)
+      return @names[''] unless foreign
+      english  = @names['en'] || @names['']
+      addition = english.dup.sub!(/^#{When::BasicTypes::M17n._get_locale('en', @access_key)['en']}/, '')
+      foreign[locale] += addition if addition
+      update(foreign)
       return Locale._hash_value(@names, locale)
     end
 
@@ -505,7 +649,7 @@ module When::Parts
       @names = {}
       @link  = {}
 
-      if (names.kind_of?(String))
+      if names.kind_of?(String)
         unless (names=~/\A\s*\[(.+?)\]\s*\z/m)
           names      = names.strip
           @names[''] = names
@@ -524,7 +668,7 @@ module When::Parts
         case v
         when '', /^#/ ;
         when /^\/(.+)/; @access_key = $1
-        when /^(\*)?(?:([^=%]*?)\s*:)?\s*(.+?)\s*(=\s*([^=]+?)?)?$/
+        when /^(\*)?(?:([^=%]*?)\s*:)?\s*(.+?)\s*(=\s*([^=]+?(\?.+)?)?)?$/
           asterisk[0], locale, name, assignment, ref = $~[1..5]
           asterisk[1], locale, default_ref = default_locale.shift unless locale
           locale ||= ''
@@ -540,7 +684,19 @@ module When::Parts
           end
           ref += '%%<' + name + '>' if (ref =~ /[\/#:]$/)
           @link[locale] = _encode(ref)
-        else ; raise ArgumentError, "Irregal locale format"
+        else ; raise ArgumentError, "Irregal locale format: " + v
+        end
+      end
+      if Locale.wikipedia_interval && Locale.wikipedia_interval <= 0
+        ['en', ''].each do |lc|
+          if Locale::Ref =~ @link[lc] && $~[1] == 'en'
+            object = Locale.send(:wikipedia_object, @link[lc])
+            if object
+              @names = object.names.merge(@names)
+              @link  = object.link.merge(@link)
+            end
+            break
+          end
         end
       end
 
@@ -548,7 +704,8 @@ module When::Parts
       @keys   = @names.keys.sort
       @values = @names.values.sort.reverse
 
-      return @names[mark[0] || mark[1] || mark[2]]
+      # 代表名
+      @names[mark[0] || mark[1] || mark[2]]
     end
 
     # encode URI from patterns %%(...) or %.(...)

data/lib/when_exe/parts/method_cash.rb

@@ -1,6 +1,6 @@
 # -*- coding: utf-8 -*-
 =begin
-  Copyright (C) 2011-2013 Takashi SUGA
+  Copyright (C) 2011-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
@@ -66,18 +66,20 @@ module When::Parts
 
       # When::Parts::MethodCash のグローバルな設定を行う
       #
-      # @param [Boolean] direct '_' で終わるメソッドをキャッシュせずに毎回計算する場合 true, キャッシュする場合 false/nil
-      # @param [Hash{Symbol=>boolean}] escape 毎回 method_missing を発生させるメソッドを true にして指定
-      # @param [false, nil] escape to_str, to_ary, to_hash のみ毎回 method_missing を発生させる
-      # @param [true] escape すべて毎回 method_missing を発生させる
+      # @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 では動作しません
+      # @note When::TM::Calendar クラスの一部はキャッシュ使用を前提としているため :direct=>true では動作しません
       #
-      def _setup_(direct=false, escape=false)
-        @direct = direct
-        case escape
+      def _setup_(options={})
+        @_setup_info = options
+        @direct      = options[:direct]
+        case options[:escape]
         when true
           instance_eval %Q{
             def escape(method)
@@ -85,7 +87,7 @@ module When::Parts
             end
           }
         when Hash
-          @escape = Escape.merge(escape)
+          @escape = Escape.merge(options[:escape])
           instance_eval %Q{
             def escape(method)
               @escape[method]
@@ -100,6 +102,14 @@ module When::Parts
         end
       end
 
+      # 設定情報を取得する
+      #
+      # @return [Hash] 設定情報
+      #
+      def _setup_info
+        @_setup_info ||= {}
+      end
+
       # method_missing メソッドを forward するか否か
       #
       # @param [Symbol] method メソッドシンボル

data/lib/when_exe/parts/resource.rb

@@ -143,7 +143,17 @@ module When::Parts
       #
       # @return [String]
       #
-      attr_reader :base_uri
+      def base_uri
+        @base_uri ||= When::SourceURI
+      end
+
+      # Root Directory for When_exe Resources
+      #
+      # @return [String]
+      #
+      def root_dir
+        @root_dir ||= When::RootDir
+      end
 
       # @private
       attr_reader :_prefix, :_prefix_values, :_prefix_index
@@ -151,7 +161,9 @@ module When::Parts
 
       # 初期化
       #
-      # @param [String] base_uri Base URI for When_exe Resources
+      # @param [Hash] options 以下の通り
+      # @option options [String] :base_uri Base URI for When_exe Resources (Default When::SourceURI)
+      # @option options [String] :root_dir Root Directory for When_exe Resources Cash data (Default When::RootDir)
       #
       # @return [void]
       #
@@ -159,9 +171,10 @@ module When::Parts
       #   本メソッドでマルチスレッド対応の管理変数の初期化を行っている。
       #   このため、本メソッド自体はスレッドセーフでない。
       #
-      def _setup_(base_uri=When::SourceURI)
+      def _setup_(options={})
         super()
         @_prefix = {
+          '_wp'  => 'http://en.wikipedia.org/wiki/',
           '_w'   => base_uri + '/',
           '_p'   => base_uri + 'Parts/',
           '_b'   => base_uri + 'BasicTypes/',
@@ -176,14 +189,23 @@ module When::Parts
           '_t'   => base_uri + 'TimeStandard/',
           '_ep'  => base_uri + 'Ephemeris/',
           '_c'   => base_uri + 'CalendarTypes/',
-          '_n'   => base_uri + 'CalendarTypes/CalendarNote/',
+          '_n'   => base_uri + 'CalendarNote/',
           '_sc'  => base_uri + 'Ephemeris/V50/'
         }
-        @base_uri       = base_uri
+        @base_uri       = options[:base_uri] || When::SourceURI
+        @root_dir       = options[:root_dir] || When::RootDir
         @_prefix_values = @_prefix.values.sort.reverse
         @_prefix_index  = @_prefix.invert
       end
 
+      # 設定情報を取得する
+      #
+      # @return [Hash] 設定情報
+      #
+      def _setup_info
+        {:base_uri => base_uri, :root_dir => root_dir}
+      end
+
       # オブジェクト生成&参照
       #
       # 指定した iri の When::Parts::Resource オブジェクトを取得する。
@@ -225,13 +247,13 @@ module When::Parts
             end
           end
           case @_pool[iri]
-          when my_mutex; my_mutex.synchronize    {_create_object(iri, path, query) }
-          when Mutex   ; @_pool[iri].synchronize { @_pool[iri] }
+          when my_mutex; my_mutex.synchronize    {@_pool[iri] = _create_object(iri, path, query) }
+          when Mutex   ; @_pool[iri].synchronize {@_pool[iri]}
           else         ; @_pool[iri]
           end
         else
-          @_pool ||= {}
-          @_pool[iri] ? @_pool[iri] : _create_object(iri, path, query)
+          @_pool      ||= {}
+          @_pool[iri] ||= _create_object(iri, path, query)
         end
       end
 
@@ -240,7 +262,11 @@ module When::Parts
         _setup_ unless @_pool
         path = obj.kind_of?(Class) ? obj.to_s.sub(/^When::/, base_uri).gsub(/::/, '/') :
                                      obj.iri
-        return path unless simple
+        simple ? _simplify_path(path) : path
+      end
+
+      # @private
+      def _simplify_path(path)
         _prefix_values.each do |value|
           index = path.index(value)
           return _prefix_index[value] + ':' + path[value.length..-1] if index
@@ -294,10 +320,12 @@ module When::Parts
       # @private
       def _replace_tags(source, tags)
         case source
+        when When::BasicTypes::M17n
+          source
         when String
           target = source.dup
           tags.each_pair do |key, value|
-            target.gsub!(/#\{(\?[^=#}]+?=)?#{key}(:.*?)?\}/, '\1' + value) if value.kind_of?(String)
+            target.gsub!(/#\{([?&][^=#}]+?=)?#{key}(:.*?)?\}/, '\1' + value) if value.kind_of?(String)
           end
           target.gsub(/#\{.+?(:(.*?))?\}/, '\2')
         when Array
@@ -305,7 +333,7 @@ module When::Parts
         when Hash
           target = {}
           source.each_pair do |key, value|
-            target[key] = tags[key].kind_of?(Numeric) ? tags[key] : _replace_tags(value, tags)
+            target[key] = _replace_tags(tags[key] || value, tags)
           end
           target
         else
@@ -344,9 +372,18 @@ module When::Parts
         iri
       end
 
+      # @private
+      def _instantiate(resource)
+        return resource unless resource.kind_of?(Array)
+        return resource[0].new(*resource[1..-1]) if resource[0].kind_of?(Class)
+        return resource.map {|rsc| _instantiate(rsc)}
+      end
+
       private
 
+      # オブジェクト生成
       def _create_object(iri, path, query)
+        # query analyzation
         options = {}
         replace = {}
         if query
@@ -361,69 +398,48 @@ module When::Parts
         end
         options['..'] = iri
 
-        obj  = nil
-        list = _class(path)
-        if list
-          # direct URI
-          case list[0]
-          when Class
-            obj = list[0].new(options)
-          when Array
-            top = list[0][0]
-            if top.kind_of?(Hash)
-              top.each_pair do |key, value|
-                replace.update(value[replace.delete(key)]) if value.kind_of?(Hash) && value.key?(replace[key])
-              end
-              list[0] = list[0][1..-1]
-              list[0] = _replace_tags(list[0], top.merge(replace))
-            end
-            if list[0][0].kind_of?(Class)
-              # 配列の先頭がクラスである場合
-              klass, *list = list[0]
-              unless list[-1].kind_of?(Hash)
-                if list.length == 1
-                  list[0] = {'.'=>Array(list[0])}
-                else
-                  list << {}
-                end
-              end
-            else
-              # 配列の先頭がクラスではない場合
-              klass, *list = [list[1], *list[0]]
-              list << {} unless list[-1].kind_of?(Hash)
-            end
-            list[-1] = list[-1].merge(options)
-            obj = klass.new(*list)
+        # internal Resource
+        if path.index(Resource.base_uri) == 0
+          list = _class(path)
+          if list
+            return _internal(list, replace, options)
           else
-            obj = list[0]
+            raise IOError, 'IRI not found - ' + path
           end
-        else
-          # external Resource
-          parsed = nil
+        end
+
+        # external Resource
+        begin
+          object = When::Parts::Locale.send(:wikipedia_object, path, {:query=>query})
+          return object if object
           OpenURI
-          begin
-            args  = [path, "1".respond_to?(:force_encoding) ? 'r:utf-8' : 'r']
-            args << {:ssl_verify_mode=>OpenSSL::SSL::VERIFY_NONE} if path =~ /^https:/
-            open(*args) do |file|
-              resource = _replace_tags(file.read, replace)
-              parsed = (resource[0..5]=='BEGIN:') ? _ics(resource.split(/[\n\r]+/)) :
-                                                    _xml(REXML::Document.new(resource).root)
+          args  = [path, "1".respond_to?(:force_encoding) ? 'r:utf-8' : 'r']
+          args << {:ssl_verify_mode=>OpenSSL::SSL::VERIFY_NONE} if path =~ /^https:/
+          open(*args) do |file|
+            resource = file.read
+            case resource[0..5].upcase
+            when 'BEGIN:'
+              options['.'] = _ics(_replace_tags(resource, replace).split(/[\n\r]+/))
+              options['.'][0].new(options)
+            when '<?XML '
+              options['.'] = _xml(REXML::Document.new(_replace_tags(resource, replace)).root)
+              options['.'][0].new(options)
+            else
+              raise NoMethodError, 'JSON not supported' unless Object.const_defined?(:JSON)
+              _internal(_json([JSON.parse(resource)]), replace, options)
             end
-          rescue OpenURI::HTTPError => error
-            message = error.message + " - #{path}"
-            error   = error.respond_to?(:uri) ?
-                        error.class.new(message, error.io, error.uri) :
-                        error.class.new(message, error.io)
-            raise error
           end
-          options['.'] = parsed
-          obj = parsed[0].new(options)
+        rescue OpenURI::HTTPError => error
+          message = error.message + " - #{path}"
+          error   = error.respond_to?(:uri) ?
+                      error.class.new(message, error.io, error.uri) :
+                      error.class.new(message, error.io)
+          raise error
         end
-        @_pool[iri] = obj
       end
 
+      # 内部形式定義の取得
       def _class(path)
-        return nil unless path.index(Resource.base_uri) == 0
         list = [When]
         path[Resource.base_uri.length..-1].split(/\//).each do |mod|
           if list[0].const_defined?(mod)
@@ -437,6 +453,42 @@ module When::Parts
         return list
       end
 
+      # 内部形式定義のオブジェクト化
+      def _internal(list, replace, options)
+        case list[0]
+        when Class
+          list[0].new(options)
+        when Array
+          top = list[0][0]
+          if top.kind_of?(Hash)
+            top.each_pair do |key, value|
+              replace.update(value[replace[key]]) if value.kind_of?(Hash) && value[replace[key]]
+            end
+            list[0] = list[0][1..-1]
+            list[0] = _replace_tags(list[0], top.merge(replace))
+          end
+          if list[0][0].kind_of?(Class)
+            # 配列の先頭がクラスである場合
+            klass, *list = list[0]
+            unless list[-1].kind_of?(Hash)
+              if list.length == 1
+                list[0] = {'.'=>Array(list[0])}
+              else
+                list << {}
+              end
+            end
+          else
+            # 配列の先頭がクラスではない場合
+            klass, *list = [list[1], *list[0]]
+            list << {} unless list[-1].kind_of?(Hash)
+          end
+          list[-1] = list[-1].merge(options)
+          klass.new(*list)
+        else
+          list[0]
+        end
+      end
+
       # .xml フォーマットの読み込み
       def _xml(xml, namespace={})
         obj = [_class(_extract_prefix(xml.attributes['type'].to_s))[0]]
@@ -497,6 +549,27 @@ module When::Parts
         end
         raise ArgumentError, "BEGIN-END mismatch"
       end
+
+      # .json フォーマットの読み込み
+      def _json(json)
+        case json
+        when Array
+          json.map {|value| _json(value)}
+        when Hash
+          hash = {}
+          json.each_pair {|key, value| hash[key] = _json(value)}
+          hash
+        when String
+          return json unless json =~ /^When::/
+          begin
+            return json.split('::').inject(Object) {|ns, sym| ns.const_get(sym)}
+          rescue
+            json
+          end
+        else
+          json
+        end
+      end
     end
 
     include Synchronize
@@ -508,7 +581,8 @@ module When::Parts
     #
     # @return [Array<When::Parts::Resource>]
     #
-    attr_reader :child
+    attr_accessor :child
+    private :child=
 
     #
     # Resource包含階層で使用する namespace
@@ -539,17 +613,21 @@ module When::Parts
 
     # オブジェクトの IRI
     #
-    #  @return [Sring]
+    # @param [Boolean] prefix true ならIRI の先頭部分を簡約表現にする
+    #
+    # @return [Sring]
     #
-    def iri
-      return @iri if @iri
-      root = @_pool['..']
-      path = root.instance_of?(String) ? root : label.to_s
-      if root.respond_to?(:iri)
-        prefix = root.iri
-        path = prefix + '::' + path if prefix
+    def iri(prefix=false)
+      unless @iri
+        root = @_pool['..']
+        path = root.instance_of?(String) ? root : label.to_s
+        if root.respond_to?(:iri)
+          root_iri = root.iri
+          path = root_iri + '::' + path if root_iri
+        end
+        @iri = path
       end
-      @iri = path
+      prefix ? Resource._simplify_path(@iri) : @iri
     end
 
     # IRI または child の番号によるオブジェクト参照