when_exe 0.4.4 → 0.4.5

checksums.yaml

@@ -1,7 +1,7 @@
 ---
 SHA1:
-  metadata.gz: 9b9bc44ba4bb20ae30d7045497d49f25fd503dfd
-  data.tar.gz: ffe446a7242476d41521a3d6d0476976fa23f3fd
+  metadata.gz: 69630f5514eefbea95c1ddca1274582e19e337d0
+  data.tar.gz: 34bdb14391d28c9014e8b9b7229f1b03f52c10da
 SHA512:
-  metadata.gz: cbaf55a5f8bc08cfde7cead93da6d72a9436405ced2efe0630c824f0bcb0749a5767385d8e2ff79bad0a83ecb8f1ec127ed864d79456ab8060a924d9371ea64e
-  data.tar.gz: ed61811070132482a71402702c2ea9aeff47cff2f4c6f97c4d213f77add98472a4f622b8a3d52a70fcaaf541af412f440566d799d615a038eeafdeccd9543934
+  metadata.gz: c616bb66c59cac0b12cf6fc0305e2c514c021ea9c3cf1e31a37c0cf9cc1d578dc8b7990200972bbcc83b9b8bcf4b8ddbcd7909fd3280e95aa5af7d30b3d5200a
+  data.tar.gz: 648c7b04e05f2c9759112a6c2dc967a78fd61f3800bc7a3f04bf874539f9b785f4e5cc644904aff3649947a74741096c836eb813e2fba8938e7b6811e66da707

data/lib/when_exe.rb

@@ -1,6 +1,6 @@
 # -*- coding: utf-8 -*-
 =begin
-  Copyright (C) 2011-2015 Takashi SUGA
+  Copyright (C) 2011-2016 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
@@ -19,11 +19,12 @@ begin
 rescue LoadError, NoMethodError
 end
 
-autoload :URI,       'uri'
+autoload :CGI,       'cgi'
 autoload :OpenURI,   'open-uri'
 autoload :OpenSSL,   'openssl'
 autoload :FileUtils, 'fileutils'
 autoload :REXML,     'rexml/document'
+autoload :CSV,       'csv'
 autoload :Mutex,     'thread' unless Object.const_defined?(:Mutex)
 
 #
@@ -157,6 +158,7 @@ module When
 
   require 'when_exe/locales/locale'
   require 'when_exe/locales/autoload'
+  require 'when_exe/namespace'
   require 'when_exe/parts/enumerator'
   require 'when_exe/parts/resource'
   require 'when_exe/parts/geometric_complex'
@@ -165,11 +167,13 @@ module When
   require 'when_exe/basictypes'
   require 'when_exe/ephemeris'
   require 'when_exe/coordinates'
+  require 'when_exe/spatial'
   require 'when_exe/icalendar'
   require 'when_exe/google_api'
   require 'when_exe/tmobjects'
   require 'when_exe/timestandard'
   require 'when_exe/tmposition'
+  require 'when_exe/tmptypes'
   require 'when_exe/tmreference'
   require 'when_exe/calendartypes'
   require 'when_exe/calendarnote'
@@ -228,6 +232,14 @@ module When
   # eucJP encoding
   EUCJP = '.eucJP'
 
+  module Events
+    autoload :TS,                      'when_exe/events'
+    autoload :DataSets,                'when_exe/events'
+    autoload :DataSet,                 'when_exe/events'
+    autoload :Event,                   'when_exe/events'
+    autoload :Range,                   'when_exe/events'
+  end
+
   class BasicTypes::M17n
     autoload :Japanese,                'when_exe/region/japanese'
     autoload :JapaneseHoliday,         'when_exe/region/japanese'
@@ -272,6 +284,20 @@ module When
     autoload :IAST,                    'when_exe/locales/iast'
     autoload :IASTR,                   'when_exe/locales/iast'
     autoload :AKT,                     'when_exe/locales/akt'
+    autoload :NumRExp3,                'when_exe/locales/akt'
+
+    sb = (When::Parts::Resource._instance('_co:Common::干支::*') +
+          When::Parts::Resource._instance('_co:Common::干::*')   +
+          When::Parts::Resource._instance('_co:Common::支::*')).map {|r| r.label.to_s}.join('|')
+    DigitParser    = [[:NumRExp3]]
+    TimeParser     = [[/閏(\d+)時/, 'T\1='], [/(\d+)時/, 'T\1:'], [/(\d+)分/, '\1:'], [/(\d+)秒/, '\1']]
+    DateParser     = [[/(#{sb})/, '{1\1}', true], [/([^\d])\{/, '\11{', true],
+                      [/元年/, '1-'], [/(\d+|\})[年|載|歳]/, '\1-'], [/閏(\d+)月/, '\1='], [/(\d+)月/, '\1-'],
+                      [/(\d+)日/, '\1']]
+    EasternParser  = DigitParser + DateParser + TimeParser
+    JapaneseParser = [[/\A(\d+)/, '日本\1']] + EasternParser
+    KoreanParser   = [[/\A(\d+)/, '朝鮮\1']] + EasternParser
+    ChineseParser  = [[/\A(\d+)/, '中国\1']] + EasternParser
   end
 
   module CalendarTypes
@@ -404,6 +430,7 @@ module When
     autoload :Russian,                 'when_exe/region/russian'
     autoload :Roman,                   'when_exe/region/roman'
     autoload :Mayan,                   'when_exe/region/mayan'
+    autoload :LocationTable,           'when_exe/region/location'
 
     # default index for day coordinate
     DefaultDayIndex = Index.new
@@ -528,7 +555,7 @@ module When
     when Array        ; begin options = TM::TemporalPosition._options(options) ; specification.map {|e| when?(e, options)} end
     when /\Atoday((\^|%5E){1,2}(.+))?\z/i ; today($3 ? {:frame=>$3}.update(options) : options)
     when /\Anow((\^|%5E){1,2}(.+))?\z/i   ; now(  $3 ? {:frame=>$3}.update(options) : options)
-    when /(JDN|MJD|SDN|CEP)(\z|\^|%5E)/i  ; TM::JulianDate.parse(specification, options)
+    when /(JDN|MJD|SDN|CEP|DTB)(\z|\^|%5E)/i  ; TM::JulianDate.parse(specification, options)
     when /[\n\r]+/    ; when?(specification.split(/[\n\r]+/), options)
     when String       ; TM::TemporalPosition._instance(EncodingConversion.to_internal_encoding(specification), options)
     when Numeric      ; TM::JulianDate.new(+specification, TM::TemporalPosition._options(options))
@@ -561,6 +588,40 @@ module When
   alias :tm_pos :TemporalPosition
   module_function :tm_pos
 
+  # 書式文字列に従った When::TM::TemporalPosition の生成
+  #
+  # @param [String] date_time 日時を表す文字列
+  # @param [String] format    その書式
+  # @param [Hash] options     暦法や時法などの指定
+  # @option options [String]       :locale   言語指定
+  # @option options [Object]       :その他   When::TM::TemporalPosition._instance に渡す
+  # @see When::TM::TemporalPosition._instance
+  #
+  # @return [When::TM::TemporalPosition]
+  # @raise [ArgumentError]
+  #   options[ :invalid ] が :raise で、日時が存在しない場合
+  #
+  # see {strptime}[link:http://docs.ruby-lang.org/ja/search/query:strptime/]
+  #
+  def strptime(date_time, format, options={})
+    h = When::Locale._to_date_time_hash(date_time, format, options[:locale])
+    abbr_y, abbr_m, abbr_d, =
+      options[:abbr].kind_of?(When::TimeValue) ?
+        ((options[:frame]||When::Gregorian) ^ options[:abbr]).cal_date : options[:abbr]
+    args =  [h[:year] || abbr_y || ::Date.today.year]
+    args << (h[:mon]  || abbr_m || 1) if h[:hour] ||  h[:mon]
+    args << (h[:mday] || abbr_d || 1) if h[:hour] || (h[:mon] && h[:mday])
+    args <<  h[:hour] if h[:hour]
+    args <<  h[:min]  if h[:hour] && h[:min]
+    args <<  h[:sec]  if h[:hour] && h[:min] && h[:sec]
+    args << options.dup
+    args[-1].delete(:locale)
+    args[-1].delete(:abbr)
+    args[-1].update({:parse=>{:residue=>{2=>When.Residue((h[:wday]-1)%7)}}}) if h[:wday]
+    args[-1].update({:clock=>When::TM::Clock.to_hms(h[:offset])})            if h[:offset]
+    TM::TemporalPosition._temporal_position(*args)
+  end
+
   # 指定日時に対応する When::TM::TemporalPosition の生成
   # (When::TM::DateAndTime of specified Time)
   #
@@ -709,6 +770,20 @@ module When
     TM::CalendarEra._instance(*args)
   end
 
+  # When::TM::TemporalPosition または When::TM::CalendarEraの検索
+  #
+  # @param [Array<Object>] args when? または era にそのまま渡される
+  #
+  # @return [When::TM::TemporalPosition or When::TM::CalendarEra]
+  #
+  def date_or_era(*args)
+    begin
+      when?(*args)
+    rescue
+      era(*args).first
+    end
+  end
+
   # When::TM::Clock の生成/参照
   #
   # @param [When::Parts::Timezone::Base] clock なにもせず clock をそのまま返す
@@ -782,6 +857,17 @@ module When
     Parts::Resource._instance(iri)
   end
 
+
+  # 地名を空間座標化する
+  #
+  # @param [String] name 地名または座標
+  #
+  # @return [When::Coordinates::Spatial or When::Coordinates::Spatial::Range]
+  #
+  def where?(name)
+    When::Coordinates::Spatial::Range[name]
+  end
+
   # When::Coordinates::Border の生成/参照
   #
   # @param [String] border 年/日境界を表す文字列

data/lib/when_exe/basictypes.rb

@@ -50,6 +50,7 @@ module When
           if options[:abbr].kind_of?(When::TimeValue)
             options[:abbr] = ((options[:frame]||When::Gregorian) ^ options[:abbr]).cal_date
           end
+          date_time = _parse(date_time, options.delete(:parse), options[:abbr]||[]) if options[:parse]
           date_time = date_time.gsub(/[_\s]+([\d])/, '\1')
           begin
             return _to_array_basic(date_time, options)
@@ -126,19 +127,48 @@ module When
 
         # 剰余類の指定を置き換える
         def _split_residue(d, abbr)
-          abbr,    = abbr
-          residue = {}
+          abbr,   = abbr
+          options = {}
           count   = 0
           sign, d = d =~ /^-/ ? ['-', d[1..-1]] : ['', d]
           [sign + d.gsub(/[-+*&%@!>=<?.]|(\d)?\{(.+?)\}/) {|s|
             if $2
-              residue[count] = $2
-              count == 0 ? ($1 || abbr || 1) : $1
+              digit     = $1
+              operation = $2.strip
+              residue   = When.Residue(operation) unless operation =~ /[#,]|[^:][-+]/
+              options[count] = residue && residue.shifted ? residue : operation
+              count == 0 ? (digit || abbr || 1) : digit
             else
               count += 1
               s
             end
-          }, residue]
+          }, options]
+        end
+
+        # 日付文字列を事前に変換する
+        def _parse(date_time, parse, abbr)
+          format, locale = parse
+          case format
+          when String, Hash
+            h = When::Locale._to_date_time_hash(date_time, format, locale)
+            date_time  = (h[:wday] ? "%4d-%02d-01{%d&%s}" : "%4d-%02d-%02d") % [
+              h[:year] || abbr[0] ||    ::Date.today.year,
+              h[:mon]  || abbr[1] ||    1,
+              h[:mday] || abbr[2] ||    1,
+              When::V::Event::DayOfWeek[h[:wday]||0]]
+            date_time << "T%02d:%02d:%02d" % [
+              h[:hour] || abbr[3] ||    0,
+              h[:min]  || abbr[4] ||    0,
+              h[:sec]  || abbr[5] ||    0] if h[:hour]
+            date_time << When::TM::Clock.to_hms(h[:offset]) if h[:offset]
+          when Array
+            parse.each do |item|
+              item[2] ? date_time.gsub!(item[0], item[1]) :
+              item[1] ? date_time.sub!( item[0], item[1]) :
+                        date_time.gsub!(When::Locale::NumRExp3) {|digit| When::Locale.k2a_digits(digit, true)}
+            end unless date_time =~ /\{/
+          end
+          date_time
         end
       end
     end
@@ -354,12 +384,12 @@ module When
           else
             tt = [0]
           end
-          while time =~ /\A(\d{2}(?:\.\d+)?|-)([:*=])(.+)/
+          while time =~ /\A(\d{1,2}(?:\.\d+)?|-)([:*=])(.+)/
             time = $3
             tt << Coordinates::Pair._en_pair($1=='-' ? abbr.shift : $1, $2)
           end
           case time
-          when /\A(\d{2}(\.\d+)?)\z/
+          when /\A(\d{1,2}(\.\d+)?)\z/
             tt << Coordinates::Pair._en_number($1, nil)
           when ''
           else

data/lib/when_exe/calendarnote.rb

@@ -35,19 +35,9 @@ module When
     end
 
     #
-    # 暦注要素のひな形クラス
+    # 暦注要素であることを示す
     #
-    # @private
-    class NoteElement < When::BasicTypes::Object
-      #
-      # _m17n_form のための要素生成
-      #
-      # @param [Hash] options 下記のとおり
-      # @option options [Symbol] :method :to_m17n なら label を返す、その他は When::Parts::Resource#to_h 参照
-      #
-      def _to_hash_value(options={})
-        options[:method] == :to_m17n ? label : super
-      end
+    module NoteElement
     end
 
     #
@@ -441,7 +431,7 @@ module When
         nobj = note_objects[note]
         case notes[note]
         when nil, false ; {}
-        when Hash       ; {:note=>nobj.label}.merge(notes[note])
+        when Hash       ; {:note=>nobj}.merge(notes[note])
         else
           if nobj.respond_to?(:to_note_hash)
             nobj.to_note_hash(notes[note], dates)
@@ -476,6 +466,7 @@ module When
           arg, method = $1, $2 if (arg =~ /\A(.+)#([_A-Z0-9]+)\z/i)
           obj = When.Resource(arg, prefix)
           obj = obj.copy(method) if method
+          obj.extend NoteElement
           obj
         when Array
           _to_iri(arg, prefix)
@@ -608,6 +599,20 @@ module When
       root.send(When::Coordinates::PRECISION_NAME[index].downcase, dates)
     end
 
+    #
+    # イベントの標準的な間隔を返す
+    #
+    # @param [String] parameter 座標の分子と分母("#{ num }/#{ den }" の形式)
+    #
+    # @return [When::TM::IntervalLength]
+    #
+    # @private
+    def event_delta(parameter=nil)
+      return @delta unless parameter
+      num, den = parameter.kind_of?(String) ? parameter.split(/\//, 2) : parameter
+      When::TM::IntervalLength.new([(den || @den).to_f,1].max*0.9, 'day')
+    end
+
     #
     # イベントを取得する Enumerator
     #

data/lib/when_exe/calendartypes.rb

@@ -419,7 +419,7 @@ module When::CalendarTypes
     #
     def _length(date)
       y, m = date
-      if (m)
+      if m
         #  指定した月に含まれる日の数を返します。
         return @unit[2] if @unit[2]
         rule = _rule(_key([y]))
@@ -443,7 +443,7 @@ module When::CalendarTypes
       # rule_table
       # @rule_table = @rule_table.dup
       @rule_table = {'T' => {'Rule' => @rule_table }} if @rule_table.kind_of?(Array)
-      @_m_cash_          = {}
+      @_m_cash_          = Hash.new {|hash,key| hash[key]={}}
       @_m_cash_["_rule"] = @rule_table
 
       # unit length
@@ -497,8 +497,6 @@ module When::CalendarTypes
       n_sdn = (@_m_cash_["_sdn"][n_key] ||= _sdn_(n_date))
       key   = (n_sdn - c_sdn).to_i
       rule  = (@_m_cash_["_rule"][key]  ||= _rule_(key))
-      @_m_cash_["_key"]        ||= {}
-      @_m_cash_["_ids"]        ||= {}
       @_m_cash_["_key"][c_key] ||= key
       @_m_cash_["_ids"][c_key] ||= rule['IDs']
       return c_sdn
@@ -772,8 +770,6 @@ module When::CalendarTypes
       count, year = c_date[0].divmod(root_rule['Years'])
       key, dd, mm = root_rule['Rule'][year]
       rule = (@_m_cash_["_rule"][key] ||= _rule_(key))
-      @_m_cash_["_key"]        ||= {}
-      @_m_cash_["_ids"]        ||= {}
       @_m_cash_["_key"][c_key] ||= key
       @_m_cash_["_ids"][c_key] ||= rule['IDs']
       @_m_cash_["_sdn"][c_key] ||= @origin_of_LSC + dd + count * root_rule['Days']
@@ -1027,8 +1023,6 @@ module When::CalendarTypes
       sdn, y, key  = _read_period(@entry_key,
                    'Years', value,
                    'Days',  @origin_of_LSC + count * root_rule['Days'])
-      @_m_cash_["_key"]        ||= {}
-      @_m_cash_["_ids"]        ||= {}
       @_m_cash_["_key"][c_key] ||= key
       @_m_cash_["_ids"][c_key] ||= @_m_cash_["_rule"][key]['IDs']
       @_m_cash_["_sdn"][c_key] ||= sdn
@@ -1424,7 +1418,7 @@ module When::CalendarTypes
       if m
         #  指定した月に含まれる日の数を返します。
         m += _new_year_month(+y)
-        _new_month(m+1) - _new_month(m)
+        _new_month(+m+1) - _new_month(+m)
       else
         #  指定した年に含まれる月の数を返します。
         _ids([y]).length

data/lib/when_exe/coordinates.rb

@@ -26,14 +26,15 @@ module When::Coordinates
   #
   # @param [String]   src 60進法で表した方向付きの数値
   # @param [String]   dir 方向 ('NS' または 'EW')
+  # @param [Numeric]  degree 角度の単位 (1 => 1度, 225=> 1/225 度)
   #
   # @return [Numeric] 10進変換した数値 (src が nil なら0.0を、Numeric なら 225*src を返す)
   #
-  def self.to_deg_225(src, dir)
+  def self.to_deg_225(src, dir, degree=Spatial::DEGREE)
     case src
     when String
       src = src.gsub(/_+/,'').gsub(/@/, '.')
-      return src.to_r * Spatial::DEGREE if (src =~ /E[-+]/ || src !~ MATCH[dir])
+      return src.to_r * degree if (src =~ /E[-+]/ || src !~ MATCH[dir])
       sign  = ($1 == dir[1..1]) ? -1 : +1
       value = src.gsub(MATCH[dir], '').strip
       if ((value + "00000") =~ /\A(\d+)\.(\d{2})(\d{2})(\d+)\z/)
@@ -42,13 +43,13 @@ module When::Coordinates
       else
         deg, min, sec = value.split(/[^\d.]+/)
       end
-      return sign * (deg.to_i *  Spatial::DEGREE +
-                (min||0).to_f * (Spatial::DEGREE/60.0) +
-                (sec||0).to_f * (Spatial::DEGREE/3600.0))
+      return sign * (deg.to_i *  degree +
+                (min||0).to_f * (degree/60.0) +
+                (sec||0).to_f * (degree/3600.0))
     when NilClass
       0.0
     when Numeric
-      src * Spatial::DEGREE
+      src * degree
     else
       raise TypeError, "Invalid Location Type"
     end
@@ -121,13 +122,14 @@ module When::Coordinates
         else            ; return nil
         end
 
-        day, shift = day.split(':', 2)
+        day, shift = day =~ /\A([-+\d]+)(.+)/ ? [$2, $1] : day.split(':', 2)
         residue = day.split('&').inject(nil) {|res,d|
           r = _day_of_week(d.strip, dow)
           return nil unless r
           res ? res & r : r
         }
         return residue unless shift
+        shift << '1' unless shift =~ /\d/
         shift  = shift.to_i
         shift -= 1 if shift > 0
         residue >> shift
@@ -238,6 +240,13 @@ module When::Coordinates
     attr_accessor :carry
     protected :carry=
 
+    # 周期分の補正の有無
+    #
+    # @return [Boolean]
+    #
+    attr_accessor :shifted
+    protected :shifted=
+
     # 単位
     #
     # @return [Hash] { String=>Numeric }
@@ -346,7 +355,9 @@ module When::Coordinates
     # @return [When::Coordinates::Residue]
     #
     def >>(other)
-      return self.class.new(@remainder, @divisor, @carry+other, @units)
+      result = self.class.new(@remainder, @divisor, @carry+other, @units)
+      result.shifted = true
+      result
     end
 
     # carryの減算
@@ -356,7 +367,9 @@ module When::Coordinates
     # @return [When::Coordinates::Residue]
     #
     def <<(other)
-      return self.class.new(@remainder, @divisor, @carry-other, @units)
+      result = self.class.new(@remainder, @divisor, @carry-other, @units)
+      result.shifted = true
+      result
     end
 
     # 剰余類の共通集合
@@ -488,6 +501,7 @@ module When::Coordinates
       raise RangeError, "Divisor shoud be Positive Numeric" if (@divisor <= 0)
       carry, @remainder = @remainder.divmod(@divisor)
       @carry += carry
+      @shifted   = @carry != 0
     end
 
     private
@@ -1243,370 +1257,6 @@ module When::Coordinates
     end
   end
 
-  #
-  # 空間位置
-  #
-  class Spatial < When::BasicTypes::Object
-
-    LabelProperty = 'label'
-
-    include When::Ephemeris
-
-    require 'when_exe/ephemeris/eclipse'
-
-    class << self
-      # When::Coordinates::Spatial のグローバルな設定を行う
-      #
-      # @param [When::Coordinates::Spatial, String] location デフォルトの空間位置を使用する場合、指定する
-      #
-      # @return [void]
-      #
-      # @note
-      #   本メソッドでマルチスレッド対応の管理変数の初期化を行っている。
-      #   このため、本メソッド自体はスレッドセーフでない。
-      #
-      def _setup_(location=nil)
-        @_lock_ = Mutex.new if When.multi_thread
-        @_pool  = {}
-        @default_location = location
-      end
-
-      # デフォルトの空間位置
-      #
-      # @param [When::Coordinates::Spatial, String] local デフォルトの空間位置
-      #
-      # @return [When::Coordinates::Spatial, String]
-      #
-      # @note
-      #   @default_locationは、原則、ライブラリ立ち上げ時に _setup_ で初期化する。
-      #   以降、@default_locationに代入を行っても、すでに生成した When::TM::TemporalPosition 等には反映されない。
-      #
-      def default_location=(local)
-        if @_pool
-          @default_location = local
-        else
-          _setup_(local)
-        end
-      end
-
-      # 設定情報を取得する
-      #
-      # @return [Hash] 設定情報
-      #
-      def _setup_info
-        {:location => @default_location}
-      end
-
-      # デフォルトの空間位置を読みだす
-      #
-      # @return [When::Coordinates::Spatial]
-      #
-      def default_location
-        _default_location[1]
-      end
-
-      # デフォルトの空間位置が When::TM::Clock のローカルタイムから生成されたか?
-      #
-      # @return [true, false]
-      #
-      def is_default_location_derived?
-        location = _default_location
-        location[0] && location[1]
-      end
-
-      private
-
-      # 共通処理
-      def _default_location
-        case @default_location
-        when nil    ;
-        when Array  ; return  @default_location unless @default_location[0]
-        when String ; return (@default_location = [false, When.Resource(@default_location)])
-        else        ; return (@default_location = [false, @default_location])
-        end
-        timezone = When::TM::Clock.local_time
-        location = timezone.location if timezone.kind_of?(When::Parts::Timezone)
-        return [true, location]
-      end
-    end
-
-    # @private
-    HashProperty = [:label, :longitude, :latitude, [:altitude, 0.0], [:datum, When::Ephemeris::Earth], :ref]
-
-    # Degree / Internal Location Unit(16")
-    #
-    #   (3600 を 2 の因数で割りつくした値を単位とする)
-    DEGREE     = 225
-
-    # 黄道座標 (ecliptic coordinate  system)
-    ECLIPTIC   = 0
-
-    # 赤道座標 (equatorial coordinate system)
-    EQUATORIAL = 1
-
-    # 赤道座標[時角] (equatorial coordinate system with hour angle)
-    EQUATORIAL_HA = 2
-
-    # 地平座標 (horizontal coordinate system)
-    HORIZONTAL = 3
-
-    # 惑星中心の高度
-    CENTER = :center
-
-    # 北緯を正とする緯度 / 16秒
-    #
-    # @return [Numeric]
-    #
-    attr_reader :lat
-
-    # 東経を正とする経度 / 16秒
-    #
-    # @return [Numeric]
-    #
-    attr_reader :long
-
-    # 高度 / m
-    #
-    # @return [Numeric]
-    # @return [:Center] 天体の中心の場合
-    #
-    attr_reader :alt
-    alias :altitude :alt
-
-    # 座標系
-    #
-    # @return [When::Ephemeris::Datum]
-    #
-    attr_reader :datum
-
-    # 参照
-    #
-    # @return [String] URI
-    #
-    attr_reader :ref
-
-    # 時間帯(オプショナル)
-    #
-    # @return [TZInfo::CountryTimezone]
-    #
-    #    TZInfoライブラリから経緯度を取得して使用する
-    #
-    attr_reader :tz
-
-    # 緯度文字列
-    #
-    # @param [Integer] round 秒の小数点以下最大桁数
-    #
-    # @return [String] 緯度文字列(DD.MMSSsss[NS])
-    #
-    def lat_s
-      When::Coordinates.to_dms(lat / When::Coordinates::Spatial::DEGREE, 'NS', round=6)
-    end
-    alias :latitude :lat_s
-
-    # 経度文字列
-    #
-    # @param [Integer] round 秒の小数点以下最大桁数
-    #
-    # @return [String] 経度文字列(DDD.MMSSsss[EW])
-    #
-    def long_s
-      When::Coordinates.to_dms(long / When::Coordinates::Spatial::DEGREE, 'EW', round=6)
-    end
-    alias :longitude :long_s
-
-    # 高度 / m
-    #
-    # @return [Numeric]
-    # @return [:Center] 天体の中心の場合
-    #
-    attr_reader :alt
-
-    # 観測地の地心距離 / kmを返します。
-    #
-    # @return [Numeric]
-    #
-    def obserber_distance
-      l = PI / (90 * DEGREE) * @lat
-      @datum.surface_radius * (@datum.shape[0]+@datum.shape[1]*cos(l)+@datum.shape[2]*cos(2*l))
-    end
-
-    # 観測地での‘大地’の視半径
-    #
-    # @return [Numeric]
-    #
-    def horizon
-      # 地面以下なら 90度とみなす
-      return 0.25 if @alt == :Center || @alt <= 0
-
-      # 観測地の地心距離 / m
-      r = obserber_distance * 1000.0
-
-      # 大気効果
-      air_effect = @datum.air[1] * @alt / (@datum.air[2] * @alt + r)
-
-      # ‘大地’の視半径
-      asin((1.0+air_effect) * r / (r+@alt)) / CIRCLE
-    end
-
-    #  観測地の地方恒星時 / 時を返します。
-    #
-    # @param [Numeric] t ユリウス日(Terrestrial Time)
-    # @param [When::TM::TemporalPosition] t
-    #
-    # @return [Numeric]
-    #
-    def local_sidereal_time(t)
-      t = +t
-      c = julian_century_from_2000(t)
-      result  = @datum.sid[0] + c * (@datum.sid[1] + c * @datum.sid[2]) + @long / (15.0 * DEGREE)
-      result += (cosc(obl(c)) * delta_p(c) +
-                 (t-When::TimeStandard.delta_t_observed(t)/86400+0.5) % 1) * 24 if @datum.kind_of?(Earth)
-      result
-    end
-
-    # 観測地の日心三次元座標(黄道座標)
-    #
-    # @param [Numeric] t ユリウス日(Terrestrial Time)
-    # @param [When::TM::TemporalPosition] t
-    #
-    # @return [Numeric]
-    #
-    def _coords(t)
-      t   = +t
-      @datum._coords(t) + _coords_diff(t)
-    end
-
-    private
-
-    # 要素の正規化
-    def _normalize(args=[], options={})
-
-      # 同一視
-      @long ||= @longitude
-      @lat  ||= @latitude
-      @alt  ||= @altitude
-
-      # 時間帯による指定
-      @tz = When::Parts::Timezone.tz_info[@tz] if @tz.kind_of?(String)
-      if @tz
-        @label ||= When.m17n(@tz.identifier)
-        @long  ||= @tz.longitude
-        @lat   ||= @tz.latitude
-      end
-
-      # データの整形
-      @label = When::BasicTypes::M17n.new(@label)        if @label.kind_of?(Hash)
-      @long  = When::Coordinates.to_deg_225(@long, 'EW') if @long
-      @lat   = When::Coordinates.to_deg_225(@lat,  'NS') if @lat
-      @datum = When.Resource(@datum || 'Earth', '_ep:')
-      @long ||= 0.0
-      @lat  ||= 0.0
-      @alt    =
-        case @alt
-        when String  ; @alt.gsub(/@/, '.').to_f
-        when Numeric ; @alt.to_f
-        when Symbol  ; @alt
-        else         ; 0.0
-        end
-
-      # 日月食用作業変数
-      @mean = When.Resource(@mean || '_ep:Formula?formula=1L')
-      @ecls = {}
-    end
-
-    # 観測地の惑星中心を原点とする三次元座標
-    #
-    # @param [Numeric] t ユリウス日(Terrestrial Time)
-    # @param [When::TM::TemporalPosition] t
-    # @param [Integer] system : 座標系
-    #   [ ECLIPTIC      = 黄道座標 ]
-    #   [ EQUATORIAL    = 赤道座標 ]
-    #   [ EQUATORIAL_HA = 赤道座標[時角] ]
-    #   [ HORIZONTAL    = 地平座標 ]
-    #
-    def _coords_diff(t, system=ECLIPTIC)
-      return Coords.polar(0,0,0) if alt == :Center
-      t   = +t
-      lat = @lat.to_f / DEGREE
-      coords = Coords.polar(
-                        local_sidereal_time(t) /  24.0,
-         (lat + @datum.shape[3] * sind(2*lat)) / 360.0,
-             (obserber_distance + @alt/1000.0) /   AU)
-      case system
-      when ECLIPTIC      ; coords.r_to_y(t, @datum)
-      when EQUATORIAL    ; coords
-      when EQUATORIAL_HA ; coords.r_to_rh(t, self)
-      when HORIZONTAL    ; coords.r_to_h(t, self)
-      end
-    end
-
-    # その他のメソッド
-    #   When::Coordinates::Spatial で定義されていないメソッドは
-    #   処理を @datum (type: When::Ephemeris::Datum) に委譲する
-    #
-    def method_missing(name, *args, &block)
-      self.class.module_eval %Q{
-        def #{name}(*args, &block)
-          @datum.send("#{name}", *args, &block)
-        end
-      } unless When::Parts::MethodCash.escape(name)
-      @datum.send(name, *args, &block)
-    end
-
-    # @private
-    module Normalize
-
-      private
-
-      # 位置情報
-      #
-      # @return [When::Coordinates::Spatial]
-      #
-      #attr_reader :location
-
-      # 日時要素の境界オブジェクト
-      #
-      # @return [When::Coordinates::Border]
-      #
-      #attr_reader :border
-
-      # 境界計算用の計算オブジェクト
-      #
-      # @return [When::Ephemeris::Formula]
-      #
-      #attr_reader :formula
-
-      #
-      # Temporal Module の Spatial Parts の初期化
-      #
-      def _normalize_spatial
-
-        # Location
-        if (@location||@long||@lat||@alt).kind_of?(String)
-          @location ||= "_l:long=#{@long||0}&lat=#{@lat||0}&alt=#{@alt||0}"
-          @location   = When.Resource(@location)
-        end
-        @location   ||= @tz_prop.location if @tz_prop
-
-        # Border
-        @border = When.Border(@border) if @border.kind_of?(String)
-
-        # Formula
-        instance_eval('class << self; attr_reader :formula; end') if @location && @border
-        if respond_to?(:formula)
-          extend When::Ephemeris::Formula::ForwardedFormula
-          unless @formula
-            options  = {:formula => kind_of?(When::CalendarTypes::SolarYearTableBased) ? '1S' : '1L'}
-            options[:location] = @location if @location
-            @formula = When::Ephemeris::Formula.new(options)
-          end
-          @formula   = When.Resource(Array(@formula), '_ep:')
-        end
-      end
-    end
-  end
-
   #
   # 暦座標を扱う処理をまとめたモジュール
   #