when_exe 0.4.0 → 0.4.1

data/bin/make_ttl.rb

@@ -0,0 +1,37 @@
+# -*- coding: utf-8 -*-
+=begin
+  Copyright (C) 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
+
+Encoding.default_external = 'UTF-8'
+Encoding.default_internal = 'UTF-8'
+
+#require 'linkeddata' # gem install linkeddata
+require 'json/ld'     # gem install json-ld
+require 'rdf/turtle'  # gem install rdf-turtle
+require 'when_exe'
+include When
+
+config = JSON.parse(File.read(ARGV[0] || 'make_ttl.rb.config'))
+
+PREFIXES = Parts::Resource.namespace_prefixes(*config['resource'])
+CONTEXT  = Parts::Resource.prefixs_to_context(PREFIXES)
+
+File.open(config['file'], 'w') do |file|
+  CONTEXT.each_pair do |key, value|
+    file.puts "@prefix #{key}: <#{value}> ."
+  end
+  (when?(config['begin'])..when?(config['end'])).each do |date|
+    graph = RDF::Graph.new <<
+      JSON::LD::API.toRdf(date.rdf_graph(
+        {'@context'=>CONTEXT, :prefixes=>PREFIXES, :included=>true, :include=>true}))
+    graph.dump(:ttl, :prefixes=>CONTEXT).each_line do |line|
+      file.puts line unless line =~ /^@/
+    end
+    STDERR.puts '%4d - %s' % [date[YEAR], Time.now.to_s[/\d+:\d+:\d+/]]
+  end
+end
+

data/bin/make_ttl.rb.config

@@ -0,0 +1,9 @@
+{"begin"    :    "595^^Japanese",
+ "end"      :   "1872^^Japanese",
+ "file"     :   "japanese.ttl",
+ "resource" :   [
+   "_co:Common",
+   "_co:Common?V=0618",
+   "_m:Calendar",
+   "_m:Japanese",
+   "_n:Japanese/Notes"]}

data/lib/when_exe.rb

@@ -1,925 +1,923 @@
-# -*- coding: utf-8 -*-
-=begin
-  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
-
-begin
-  require 'json'
-rescue LoadError
-end
-begin
-  require 'rubygems'
-rescue LoadError
-end
-begin
-  gem 'tzinfo'
-  autoload :TZInfo, 'tzinfo'
-rescue LoadError, NoMethodError
-end
-begin
-  gem 'gcalapi'
-  autoload :GoogleCalendar, 'when_exe/googlecalendar'
-rescue LoadError, NoMethodError
-end
-
-autoload :URI,       'uri'
-autoload :OpenURI,   'open-uri'
-autoload :OpenSSL,   'openssl'
-autoload :FileUtils, 'fileutils'
-autoload :REXML,     'rexml/document'
-autoload :Mutex,     'thread' unless Object.const_defined?(:Mutex)
-
-$:.unshift(File.dirname(__FILE__)) unless
-  $:.include?(File.dirname(__FILE__)) || $:.include?(File.expand_path(File.dirname(__FILE__)))
-
-#
-# A multicultural and multilingualized calendar library based on ISO 8601, ISO 19108 and RFC 5545
-#
-module When
-
-  class << self
-
-    #
-    # マルチスレッド対応の場合 true
-    #
-    # @return [Boolean]
-    #
-    attr_reader :multi_thread
-
-    #
-    # Logger オブジェクト
-    #
-    # @return [Logger]
-    #
-    attr_accessor :logger
-    private :logger=
-
-    # Initializations
-    #
-    # @param [Hash] options 以下の通り
-    # @option options [When::Parts::Timezone::Base] :local                 デフォルトの地方時
-    # @option options [When::Coordinates::Spatial]  :location              デフォルトの空間位置
-    # @option options [When::TM::IntervalLength]    :until                 V::Event::Enumerator の until
-    # @option options [Hash{String=>String}]        :alias                 Locale の読替パターン         ({ 読替前のlocale=>読替後のlocale })
-    # @option options [String]                      :namespace_format      名前空間定義の省略時に名前空間生成に用いる書式
-    # @option options [Hash{String=>String}]        :unification           漢字の包摂パターン            ({ 包摂前の文字列=>包摂後の文字列 })
-    # @option options [Array<String>]               :order                 CalendarEra の検索順序        ([ IRI of When::TM::CalendarEra ])
-    # @option options [Hash{String=>Array, String}] :format                strftime で用いる記号の定義   ({ 記号=>[ 書式,項目名 ] or 記号列 })
-    # @option options [Array<Array>]                :leap_seconds          閏秒の挿入記録                ([ [JD, TAI-UTC, (MJD, OFFSET)] ])
-    # @option options [String]                      :base_uri              Base URI for When_exe Resources (Default When::SourceURI)
-    # @option options [Hash<String=>String>]        :additional_namespaces User defined namespaces (Default {})
-    # @option options [String]                      :root_dir              Root Directory for When_exe Resources Cash data (Default When::RootDir)
-    # @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 を発生させる
-    # @option options [Boolean]                     :multi_thread          マルチスレッド対応            (true: 対応, false/nil: 非対応)
-    # @option options [Logger]                      :logger                Logger オブジェクト
-    #
-    # @return [void]
-    #
-    # @note
-    #   本メソッドでマルチスレッド対応の管理変数の初期化を行っている。
-    #   このため、本メソッド自体および本メソッドから呼んでいる各クラスの _setup_ メソッドはスレッドセーフでない。
-    #
-    def _setup_(options={})
-      @multi_thread = options[:multi_thread]
-      @logger       = options[:logger]
-      Parts::MethodCash._setup_(options)
-      Parts::Resource._setup_(options)
-      Locale._setup_(options)
-      Coordinates::Spatial._setup_(options[:location])
-      TM::CalendarEra._setup_(options[:order])
-      TM::Calendar._setup_
-      TM::Clock._setup_(options[:local])
-      TM::TemporalPosition._setup_(options[:format])
-      V::Event._setup_(options[:until])
-      V::Timezone._setup_
-      Parts::Timezone._setup_
-      TimeStandard._setup_(options[:leap_seconds])
-    end
-
-    # 設定情報を取得する
-    #
-    # @return [Hash] 設定情報
-    #
-    def _setup_info
-      {:multi_thread => @multi_thread}.
-      update(Parts::MethodCash._setup_info).
-      update(Parts::Resource._setup_info).
-      update(Locale._setup_info).
-      update(Coordinates::Spatial._setup_info).
-      update(TM::CalendarEra._setup_info).
-      update(TM::Clock._setup_info).
-      update(TM::TemporalPosition._setup_info).
-      update(V::Event._setup_info).
-      update(TimeStandard._setup_info)
-    end
-
-    #
-    # When 直下に定数として定義する時法・暦法(明示的的追加)
-    #
-    # @private
-    def _define_common_calendar_types(list=%w(UTC Gregorian Julian Civil))
-      list.each do |calendar|
-        resource = Parts::Resource._instance(calendar, '_c:')
-        Parts::Resource.synchronize do
-          Parts::Resource::ConstList << calendar
-          const_set(calendar, resource)
-        end
-      end
-    end
-
-    alias :_const_missing :const_missing
-
-    #
-    # When 直下に定数として定義する時法・暦法など(暗黙的追加)
-    #
-    def const_missing(constant)
-      sgn, *args = TM::PeriodDuration._to_array(constant.to_s)
-      return const_set(constant, TM::PeriodDuration.new(*args)) if sgn
-      iri = Parts::Resource._abbreviation_to_iri(constant)
-      return _const_missing(constant) unless iri
-      resource = Parts::Resource._instance(iri)
-      return const_get(constant) if const_defined?(constant)
-      Parts::Resource.synchronize do
-        Parts::Resource::ConstList << constant
-        const_set(constant, resource)
-      end
-    end
-  end
-
-  #
-  # when_exe 用 International Resource Identifier
-  #
-  SourceURI = "http://hosi.org/When/"
-
-  #
-  # ライブラリのあるディレクトリ
-  #
-  RootDir   = File.dirname(__FILE__).sub(/\/[^\/]*\z/,'')
-
-  require 'when_exe/version'
-  require 'when_exe/locales/locale'
-  require 'when_exe/locales/autoload'
-  require 'when_exe/parts/enumerator'
-  require 'when_exe/parts/resource'
-  require 'when_exe/parts/geometric_complex'
-  require 'when_exe/parts/timezone'
-  require 'when_exe/core/compatibility'
-  require 'when_exe/basictypes'
-  require 'when_exe/ephemeris'
-  require 'when_exe/coordinates'
-  require 'when_exe/icalendar'
-  require 'when_exe/tmobjects'
-  require 'when_exe/timestandard'
-  require 'when_exe/tmposition'
-  require 'when_exe/tmreference'
-  require 'when_exe/calendartypes'
-  require 'when_exe/calendarnote'
-  require 'when_exe/region/m17n'
-  require 'when_exe/region/residue'
-  require 'when_exe/inspect'
-
-  #
-  # Module Constants
-  #
-
-  # 1 second period duration
-  PT1S = TM::PeriodDuration.new(nil,[0,0,0,1])
-
-  # 1 minute period duration
-  PT1M = TM::PeriodDuration.new(nil,[0,0,1,0])
-
-  # 1 hour period duration
-  PT1H = TM::PeriodDuration.new(nil,[0,1,0,0])
-
-  # 1 day period duration
-  P1D  = TM::PeriodDuration.new([0,0,1])
-
-  # 1 week period duration
-  P1W  = TM::PeriodDuration.new([0,0,7])
-
-  # 1 month period duration
-  P1M  = TM::PeriodDuration.new([0,1,0])
-
-  # 1 year period duration
-  P1Y  = TM::PeriodDuration.new([1,0,0])
-
-  # kind of When::TM::Position or When::TM::TemporalPosition
-  TimeValue = TM::IndeterminateValue
-
-  # 7 days week residue
-  Week  = When::Parts::Resource._instance('_co:Common::Week')
-
-  # Gregorian months
-  Month = When::Parts::Resource._instance('_m:Calendar::Month')
-
-  # + ∞
-  PlusInfinity  = TM::TemporalPosition.new({:indeterminated_position=>TimeValue::Max})
-
-  # - ∞
-  MinusInfinity = TM::TemporalPosition.new({:indeterminated_position=>TimeValue::Min})
-
-  # UTF-8 encoding
-  UTF8  = '.UTF-8'
-
-  # Windows-31J encoding
-  W31J  = '.Windows-31J'
-
-  # eucJP encoding
-  EUCJP = '.eucJP'
-
-  class BasicTypes::M17n
-    autoload :Japanese,                'when_exe/region/japanese'
-    autoload :Chinese,                 'when_exe/region/chinese'
-    autoload :Yi,                      'when_exe/region/chinese'
-    autoload :Tibetan,                 'when_exe/region/tibetan'
-    autoload :Thai,                    'when_exe/region/thai'
-    autoload :Balinese,                'when_exe/region/balinese'
-    autoload :Javanese,                'when_exe/region/javanese'
-    autoload :Indian,                  'when_exe/region/indian'
-    autoload :Iranian,                 'when_exe/region/iranian'
-    autoload :Islamic,                 'when_exe/region/islamic'
-    autoload :Jewish,                  'when_exe/region/jewish'
-    autoload :AncientOrient,           'when_exe/region/babylonian'
-    autoload :Armenian,                'when_exe/region/armenian'
-    autoload :Roman,                   'when_exe/region/roman'
-    autoload :Coptic,                  'when_exe/region/coptic'
-    autoload :French,                  'when_exe/region/french'
-    autoload :World,                   'when_exe/region/world'
-    autoload :Positivist,              'when_exe/region/positivist'
-    autoload :InternationalFixed,      'when_exe/region/international_fixed'
-    autoload :WorldSeason,             'when_exe/region/world_season'
-    autoload :Tranquility,             'when_exe/region/tranquility'
-    autoload :Pax,                     'when_exe/region/pax'
-    autoload :HankeHenry,              'when_exe/region/hanke_henry'
-    autoload :Shire,                   'when_exe/region/shire'
-    autoload :Dee,                     'when_exe/region/dee'
-    autoload :VanishingLeprechaun,     'when_exe/region/vanishing_leprechaun'
-    autoload :Yerm,                    'when_exe/region/yerm'
-    autoload :Goddess,                 'when_exe/region/goddess'
-    autoload :Martian,                 'when_exe/region/martian'
-    autoload :WeekDate,                'when_exe/region/weekdate'
-  end
-
-  module Locale
-    autoload :WikipediaLinks,          'when_exe/locales/links'
-    autoload :IAST,                    'when_exe/locales/iast'
-    autoload :IASTR,                   'when_exe/locales/iast'
-    autoload :AKT,                     'when_exe/locales/akt'
-  end
-
-  module CalendarTypes
-    autoload :Japanese,                'when_exe/region/japanese/calendars'
-    autoload :JapaneseTwin,            'when_exe/region/japanese/twins'
-    autoload :ChineseTwin,             'when_exe/region/chinese/twins'
-    autoload :ChineseSolar,            'when_exe/region/chinese'
-    autoload :ChineseLuniSolar,        'when_exe/region/chinese'
-    autoload :Yi,                      'when_exe/region/chinese'
-    autoload :TenrekiA,                'when_exe/region/chinese'
-    autoload :TenrekiB,                'when_exe/region/chinese'
-    autoload :Korean,                  'when_exe/region/korean'
-    autoload :Tibetan,                 'when_exe/region/tibetan'
-    autoload :Thai,                    'when_exe/region/thai'
-    autoload :ThaiP,                   'when_exe/region/thai'
-    autoload :ThaiC,                   'when_exe/region/thai'
-    autoload :ThaiT,                   'when_exe/region/thai'
-    autoload :Tenganan,                'when_exe/region/balinese'
-    autoload :Pranatamangsa,           'when_exe/region/javanese'
-    autoload :IndianNationalSolar,     'when_exe/region/indian'
-    autoload :Nanakshahi,              'when_exe/region/indian'
-    autoload :RevisedBengali,          'when_exe/region/indian'
-    autoload :HinduLuniSolar,          'when_exe/region/indian'
-    autoload :HinduSolar,              'when_exe/region/indian'
-    autoload :Jalali,                  'when_exe/region/iranian'
-    autoload :TableBasedJalali,        'when_exe/region/iranian'
-    autoload :Borji,                   'when_exe/region/iranian'
-    autoload :TableBasedBorji,         'when_exe/region/iranian'
-    autoload :SolarHijri,              'when_exe/region/iranian'
-    autoload :SolarHijriAlgorithmic,   'when_exe/region/iranian'
-    autoload :Zoroastrian,             'when_exe/region/zoroastrian'
-    autoload :Qadimi,                  'when_exe/region/zoroastrian'
-    autoload :Shahanshahi,             'when_exe/region/zoroastrian'
-    autoload :Fasli,                   'when_exe/region/zoroastrian'
-    autoload :Bahai,                   'when_exe/region/bahai'
-    autoload :TabularIslamic,          'when_exe/region/islamic'
-    autoload :EphemerisBasedIslamic,   'when_exe/region/islamic'
-    autoload :Jewish,                  'when_exe/region/jewish'
-    autoload :Hebrew,                  'when_exe/region/jewish'
-    autoload :Armenian,                'when_exe/region/armenian'
-    autoload :Babylonian,              'when_exe/region/babylonian'
-    autoload :BabylonianPD,            'when_exe/region/babylonian'
-    autoload :Seleucid,                'when_exe/region/babylonian'
-    autoload :SeleucidPD,              'when_exe/region/babylonian'
-    autoload :Ptolemaic,               'when_exe/region/coptic'
-    autoload :Coptic,                  'when_exe/region/coptic'
-    autoload :JulianA,                 'when_exe/region/roman'
-    autoload :JulianB,                 'when_exe/region/roman'
-    autoload :JulianC,                 'when_exe/region/roman'
-    autoload :Roman,                   'when_exe/region/roman'
-    autoload :Gregorian,               'when_exe/region/christian'
-    autoload :FrenchRepublican,        'when_exe/region/french'
-    autoload :World,                   'when_exe/region/world'
-    autoload :LongCount,               'when_exe/region/mayan'
-    autoload :Positivist,              'when_exe/region/positivist'
-    autoload :InternationalFixed,      'when_exe/region/international_fixed'
-    autoload :WorldSeason,             'when_exe/region/world_season'
-    autoload :Pax,                     'when_exe/region/pax'
-    autoload :Tranquility,             'when_exe/region/tranquility'
-    autoload :HankeHenry,              'when_exe/region/hanke_henry'
-    autoload :Discordian,              'when_exe/region/discordian'
-    autoload :Shire,                   'when_exe/region/shire'
-    autoload :Sym454,                  'when_exe/region/symmetry'
-    autoload :Sym010,                  'when_exe/region/symmetry'
-    autoload :Dee,                     'when_exe/region/dee'
-    autoload :DeeCecil,                'when_exe/region/dee'
-    autoload :VanishingLeprechaun,     'when_exe/region/vanishing_leprechaun'
-    autoload :Yerm,                    'when_exe/region/yerm'
-    autoload :Goddess,                 'when_exe/region/goddess'
-    autoload :Darian,                  'when_exe/region/martian'
-    autoload :WeekDate,                'when_exe/region/weekdate'
-
-    _time_systems = {
-      'LMT' => nil,                       # Local Mean Time
-      'LAT' => nil,                       # Local Apparent Time
-      'THS' => nil,                       # Temporal Hour System
-      'MTC' => 'when_exe/region/martian', # Martian Time, Coordinated
-    }
-    TimeSystems = _time_systems.keys.join('|')
-    _time_systems.each_pair do |key, required|
-      autoload key.to_sym, required if required
-    end
-  end
-
-  class CalendarNote
-    autoload :SolarTerms,              'when_exe/ephemeris/notes'
-    autoload :LunarPhases,             'when_exe/ephemeris/notes'
-    autoload :Ephemeris,               'when_exe/ephemeris/notes'
-    autoload :Japanese,                'when_exe/region/japanese/notes'
-    autoload :CommonWithRokuyo,        'when_exe/region/japanese/weeks'
-    autoload :RokuyoWeek,              'when_exe/region/japanese/weeks'
-    autoload :Yis,                     'when_exe/region/chinese'
-    autoload :Balinese,                'when_exe/region/balinese'
-    autoload :Javanese,                'when_exe/region/javanese'
-    autoload :Tibetan,                 'when_exe/region/tibetan'
-    autoload :Bahai,                   'when_exe/region/bahai'
-    autoload :Roman,                   'when_exe/region/roman'
-    autoload :Mayan,                   'when_exe/region/mayan'
-    autoload :DiscordianWeek,          'when_exe/region/discordian'
-    autoload :CommonWithSovietFiveDay, 'when_exe/region/soviet'
-    autoload :SovietFiveDayWeek,       'when_exe/region/soviet'
-    autoload :CommonWithSovietSixDay,  'when_exe/region/soviet'
-    autoload :SovietSixDayWeek,        'when_exe/region/soviet'
-  # autoload :Yerm,                    'when_exe/region/yerm'
-    autoload :WorldWeek,               'when_exe/region/world'
-    autoload :PositivistWeek,          'when_exe/region/positivist'
-    autoload :InternationalFixedWeek,  'when_exe/region/international_fixed'
-    autoload :TranquilityWeek,         'when_exe/region/tranquility'
-    autoload :WorldSeasonWeek,         'when_exe/region/world_season'
-    autoload :ShireWeek,               'when_exe/region/shire'
-
-    Default   = [['_m:Calendar::Month'], ['Common::Week']]
-    JulianDay = [['Common::Week', 'Common::干支']]
-    Chinese   = [['Common::干支'], ['_m:Calendar::Month'], ['Common::Week', 'Common::干支']]
-  end
-
-  module Coordinates
-    autoload :Tibetan,                 'when_exe/region/tibetan'
-    autoload :Yi,                      'when_exe/region/chinese'
-    autoload :Javanese,                'when_exe/region/javanese'
-    autoload :Indian,                  'when_exe/region/indian'
-    autoload :Iranian,                 'when_exe/region/iranian'
-    autoload :Bahai,                   'when_exe/region/bahai'
-    autoload :Roman,                   'when_exe/region/roman'
-    autoload :Mayan,                   'when_exe/region/mayan'
-
-    # default index for day coordinate
-    DefaultDayIndex = Index.new
-
-    # default indices for date coordinates
-    DefaultDateIndices = [
-      Index.new(When::Parts::Resource._instance('_m:Calendar::Month'), {:unit =>12}),
-      DefaultDayIndex
-    ]
-
-    # default indices for time coordinates
-    DefaultTimeIndices = [
-      Index.new({:base=>0, :unit=>24}),
-      Index.new({:base=>0, :unit=>60}),
-      Index.new({:base=>0, :unit=>60})
-    ]
-  end
-
-  module TM
-    class OrdinalReferenceSystem
-      autoload :GeologicalAge,         'when_exe/region/geologicalage'
-    end
-
-    class CalendarEra
-      autoload :Japanese,              'when_exe/region/japanese/epochs'
-      autoload :JapanesePrimeMinister, 'when_exe/region/japanese/epochs'
-      autoload :NihonKoki,             'when_exe/region/japanese/nihon_shoki'
-      autoload :NihonShoki,            'when_exe/region/japanese/nihon_shoki'
-      autoload :JapaneseSolar,         'when_exe/region/japanese/twins'
-      autoload :JapaneseLuniSolar,     'when_exe/region/japanese/twins'
-      autoload :Chinese,               'when_exe/region/chinese/epochs'
-      autoload :ChineseSolar,          'when_exe/region/chinese/twins'
-      autoload :ChineseLuniSolar,      'when_exe/region/chinese/twins'
-      autoload :Ryukyu,                'when_exe/region/ryukyu'
-      autoload :Korean,                'when_exe/region/korean'
-      autoload :Vietnamese,            'when_exe/region/vietnamese'
-      autoload :Manchurian,            'when_exe/region/east_asian'
-      autoload :Rouran,                'when_exe/region/east_asian'
-      autoload :Gaochang,              'when_exe/region/east_asian'
-      autoload :Yunnan,                'when_exe/region/east_asian'
-      autoload :WesternXia,            'when_exe/region/east_asian'
-      autoload :KaraKhitan,            'when_exe/region/east_asian'
-    # autoload :Tibetan,               'when_exe/region/tibetan'
-      autoload :BalineseLuniSolar,     'when_exe/region/balinese'
-      autoload :JavaneseLunar,         'when_exe/region/javanese'
-      autoload :Iranian,               'when_exe/region/iranian'
-      autoload :Hijra,                 'when_exe/region/islamic'
-      autoload :Jewish,                'when_exe/region/jewish'
-      autoload :AncientOrient,         'when_exe/region/babylonian'
-      autoload :Roman,                 'when_exe/region/roman'
-      autoload :Julian,                'when_exe/region/roman'
-      autoload :Pope,                  'when_exe/region/pope'
-      autoload :Byzantine,             'when_exe/region/christian'
-      autoload :LongCount,             'when_exe/region/mayan'
-
-      # Defualt search path for Epochs and Eras
-      DefaultEpochs = ['Common',   'ModernJapanese',
-                       'Hijra',    'Jewish',    'Iranian',
-                       'Roman',    'Byzantine', 'AncientOrient', 'LongCount',
-                       'BalineseLuniSolar',  'JavaneseLunar',
-                       'Japanese', 'NihonKoki', 'NihonShoki',
-                       'Chinese',  'Ryukyu',  'Vietnamese', 'Korean',
-                       'JapaneseLuniSolar', 'JapaneseSolar',
-                       'ChineseLuniSolar',  'ChineseSolar',
-                       'Manchurian', 'Rouran', 'Gaochang',
-                       'Yunnan',   'WesternXia', 'KaraKhitan', # 'Tibetan',
-                       'Pope',     'JapanesePrimeMinister']
-
-      # Defualt events for Epochs and Eras
-      DefaultEvents = Hash[*([['@A',  'Accession'       ],
-                              ['@FE', 'FelicitousEvent' ],
-                              ['@ND', 'NaturalDisaster' ],
-                              ['@IY', 'InauspiciousYear'],
-                              ['@F',  'Foundation'      ],
-                              ['@CR', 'CalendarReform'  ],
-                              ['@CE', 'CalendarEpoch'   ]].map {|e|
-        [e[0], When::Parts::Resource._instance('EpochEvents::'+e[1], '_m:')]
-      }.flatten)]
-
-      # Common Era
-      Common = [{}, self, [
-        'area:Common#{?Reform=Reform}',
-        ['[BeforeCommonEra=en:BCE_(disambiguation),*alias:BCE]0.1.1'],
-        ['[CommonEra=en:Common_Era,*alias:CE]1.1.1', '@CE', '01-01-01^Julian'],
-        ['[CommonEra=en:Common_Era,*alias:CE]#{Reform:1582.10.15}', '@CR', '#{Reform:1582.10.15}^Gregorian']
-      ]]
-
-      # Modern Japanese Eras after the calendar reform to the Gregorian Calendar
-      ModernJapanese = [self, [
-        'area:[ModernJapanese]',
-        ['[M=,alias:明=ja:%%<明治>]6.01.01', '@CR', '1873-01-01^Gregorian?note=Default'],
-        ['[T=,alias:大=ja:%%<大正>]1.07.30', '@A',  '1912-07-30'],
-        ['[S=,alias:昭=ja:%%<昭和>]1.12.25', '@A',  '1926-12-25'],
-        ['[H=,alias:平=ja:%%<平成>]1.01.08', '@A',  '1989-01-08']
-      ]]
-    end
-  end
-
-  #
-  # Module Functions
-  #
-  module_function
-
-  # Generation of Temporal Objetct, duration or When::Parts::GeometricComplex
-  #
-  # @param [String] specification  When.exe Standard Representation または ユリウス日JDN として解釈して生成する
-  # @param [Numeric] specification ユリウス日として解釈して生成する
-  # @param [Array] specification   要素を個別に解釈して生成したオブジェクトのArrayを返す
-  # @param [When::TM::TemporalPosition, When::Parts::GeometricComplex] specification specificationをそのまま返す
-  # @param [When::TM::TemporalPosition] specification specification.any_otherを返す
-  #
-  # @param [Hash] options 暦法や時法などの指定 (see {When::TM::TemporalPosition._instance})
-  #
-  # @return [When::TM::TemporalPosition, When::TM::Duration, When::Parts::GeometricComplex or Array<them>]
-  #
-  def when?(specification, options={})
-
-    # フォーマットごとの処理
-    case specification
-    when TM::TemporalPosition, Parts::GeometricComplex ; specification
-    when TM::Position ; specification.any_other
-    when Array        ; begin options = TM::TemporalPosition._options(options) ; specification.map {|e| when?(e, options)} end
-    when /\Atoday\z/i ; today(options)
-    when /\Anow\z/i   ; now(options)
-    when /(JDN|MJD|SDN|CEP)(\z|\^)/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))
-    else              ; Calendar(options[:frame] || 'Gregorian').jul_trans(specification, options)
-    end
-  end
-
-  # When::TM::TemporalPosition の生成
-  #
-  # @overload TemporalPosition(*args, options={})
-  #   @param [String or [String, Integer], Numeric, ...] args
-  #     [String]                 年号
-  #     [Array<String, Integer>] 年号と 0 年の通年
-  #     [Numeric]                年月日時分秒(途中で打ち切り可)
-  #   @param [Hash] options      暦法や時法などの指定
-  #   @option options [Symbol] :invalid
-  #     [:raise     日時が存在しない場合例外発生              ]
-  #     [:check     日時が存在しない場合 nil を返す           ]
-  #     [その他/nil 日時が存在することを確認しない(デフォルト)]
-  #   @see When::TM::TemporalPosition._instance
-  #
-  # @return [When::TM::TemporalPosition]
-  # @raise [ArgumentError]
-  #   options[ :invalid ] が :raise で、日時が存在しない場合
-  #
-  def TemporalPosition(*args)
-    TM::TemporalPosition._temporal_position(*args)
-  end
-
-  alias :tm_pos :TemporalPosition
-  module_function :tm_pos
-
-  # 指定日時に対応する When::TM::TemporalPosition の生成
-  # (When::TM::DateAndTime of specified Time)
-  #
-  # @param [::Time] time    変換元の日時のTimeオブジェクト
-  # @param [Float]  time    1970-01-01T00:00:00Z からの経過秒数
-  # @param [Hash]   options 暦法や時法などの指定
-  # @see When::TM::TemporalPosition._instance
-  #
-  # @return [When::TM::DateAndTime]
-  #
-  def at(time, options={})
-    options = options._attr if options.kind_of?(TM::TemporalPosition)
-    options[:frame] ||= 'Gregorian'
-    options[:frame]   = Resource(options[:frame], '_c:') if options[:frame].kind_of?(String)
-    options[:clock] ||= Clock(time.utc_offset) if time.kind_of?(::Time)
-    jdt  = TM::JulianDate.universal_time(time.to_f * TM::IntervalLength::SECOND, {:frame=>TM::Clock.get_clock(options)})
-    options[:clock]   = jdt.frame
-    date = options[:frame].jul_trans(jdt, options)
-    date = TM::CalDate.new(date.cal_date, options) if options[:precision] &&
-                                                      options[:precision] <= DAY
-    return date
-  end
-
-  # 現在日時に対応する When::TM::TemporalPosition の生成
-  # (When::TM::DateAndTime of now)
-  # @note メソッド実行時の「現在日時」である。@indeterminated_position は設定しないので自動的に日時が進むことはない
-  #
-  # @param [Hash]   options 暦法や時法などの指定
-  # @see When::TM::TemporalPosition._instance
-  #
-  # @return [When::TM::DateAndTime]
-  #
-  def now(options={})
-    When.at(Time.now, options)
-  end
-
-  # 本日に対応する When::TM::CalDate の生成
-  # (When::TM::CalDate of today)
-  # @note メソッド実行時の「本日」である。@indeterminated_position は設定しないので自動的に日時が進むことはない
-  # @note options で時間帯を指定しても「本日」の決定に使用するのみで、戻り値には反映されない
-  #
-  # @param [Hash]   options 暦法や時法などの指定
-  # @see When::TM::TemporalPosition._instance
-  #
-  # @return [When::TM::CalDate]
-  #
-  def today(options={})
-    now(options.merge({:precision=>DAY}))
-  end
-
-  # When::TM::Duration の生成
-  #
-  # @param [String] period  When.exe Standard Representation として解釈して生成する
-  # @param [Numeric] period When::TM::IntervalLength::SYSTEM 単位の値として解釈して生成する
-  # @param [Array] period   要素を個別に解釈して生成したオブジェクトのArrayを返す
-  # @param [When::TM::Duration] period  処理を行わず、そのまま返す
-  # @param [Hash] options 現時点では未使用
-  #
-  # @return [When::TM::Duration or Array<them>]
-  #
-  def Duration(period, options={})
-    case period
-    when Array
-      period.map {|e| Duration(e, options)}
-
-    when TM::Duration
-      period
-
-    when 0
-      TM::IntervalLength.new(0, 'day')
-
-    when Numeric
-      [TM::Duration::YEAR, TM::Duration::MONTH,  TM::Duration::WEEK, TM::Duration::DAY,
-       TM::Duration::HOUR, TM::Duration::MINUTE, TM::Duration::SECOND].each do |unit|
-        div, mod = period.divmod(unit)
-        return TM::IntervalLength.new(div, TM::Duration::Unit.invert[unit]) if mod == 0
-      end
-      TM::IntervalLength.new(period, 'system')
-
-    when String
-      # IntervalLength
-      args = TM::IntervalLength._to_array(period)
-      return TM::IntervalLength.new(*args) if args
-
-      # PeriodDuration
-      sign, *args = TM::PeriodDuration._to_array(period)
-      raise TypeError, "Argument 'period' is not a Duration" unless (sign)
-      args << options
-      duration = TM::PeriodDuration.new(*args)
-      return (sign >= 0) ? duration : -duration
-
-    else
-      nil
-    end
-  end
-
-  # When::TM::Calendar の生成/参照
-  #
-  # @param [String] calendar 暦法を表す文字列
-  #
-  # @return [When::TM::Calendar] calendar に対応する When::TM::Calendar オブジェクト
-  #
-  def Calendar(calendar)
-    Parts::Resource._instance(calendar, '_c:')
-  end
-
-  # When::CalendarNote の生成/参照
-  #
-  # @param [String] note 暦注リストを表す文字列
-  #
-  # @return [When::CalendarNote] note に対応する When::CalendarNote オブジェクト
-  #
-  def CalendarNote(note)
-    Parts::Resource._instance(note, '_n:')
-  end
-
-  # When::TM::CalendarEra の生成/参照
-  #
-  # @param [String] era 暦年代を表す文字列
-  #
-  # @return [When::TM::CalendarEra] era に対応する When::TM::CalendarEra オブジェクト
-  #
-  def CalendarEra(era)
-    Parts::Resource._instance(era, '_e:') do |iri|
-      TM::CalendarEra.send(:_behalf_of, iri)
-    end
-  end
-
-  # When::TM::CalendarEra の検索
-  #
-  # @overload era(key, epoch=nil, reverse=nil, options={})
-  #   @param [String, Regexp] key     検索する暦年代または、暦年代にマッチする正規表現
-  #   @param [Integer]        epoch   年数を昇順にカウントする方式での暦元(0年)の通年(デフォルトは nil - 指定なし)
-  #   @param [Integer]        reverse 年数を降順にカウントする方式での暦元(0年)の通年(デフォルトは nil - 指定なし)
-  #   @param [Hash] options 以下の通り
-  #   @option options [String]  :area   暦年代の使用地域の指定(デフォルトは nil - 指定なし)
-  #   @option options [String]  :period 暦年代の使用時代の指定(デフォルトは nil - 指定なし)
-  #   @option options [Integer] :count  何件ヒットするまで検索するかを指定(デフォルトは 1件)
-  #   @option options [String]  the_others 例えば When::TM::CalendarEra オブジェクトの epoch_of_use に 'name' などの
-  #                                        指定がある場合、:name に指定しておけば、検索での絞り込みに使用できる。
-  #
-  # @return [Array<When::TM::CalendarEra>] 検索結果を When::TM::CalendarEra オブジェクトの Array で返す
-  # @note ヒット数が不足している場合は、_setup_ で指定した順序で When::TM::CalendarEra オブジェクトを生成しつつ読み込んで検索する。
-  #
-  def era(*args)
-    TM::CalendarEra._instance(*args)
-  end
-
-  # When::TM::Clock の生成/参照
-  #
-  # @param [When::Parts::Timezone::Base] clock なにもせず clock をそのまま返す
-  # @param [String] clock  時法を表す文字列
-  # @param [Numeric] clock 秒を単位として表した時差(東経側を + とする)
-  #
-  # @return [When::Parts::Timezone::Base] 生成/参照した When::Parts::Timezone::Base オブジェクト
-  #
-  def Clock(clock)
-    case clock
-    when Parts::Timezone::Base             ; return clock
-    when 'Z', 0                            ; return UTC
-    when Numeric                           ; return Parts::Resource._instance("_tm:Clock?label=" + TM::Clock.to_hms(clock))
-    when /\A#{CalendarTypes::TimeSystems}/ ; return Parts::Resource._instance('_c:' + clock)
-    when String                            ;
-    else                                   ; raise TypeError, "Invalid Type: #{clock.class}"
-    end
-    c    = TM::Clock[clock] || V::Timezone[clock]
-    return c if c
-    clock, options = clock.split('?')
-    hms  = TM::Clock.to_hms(clock)
-    return Parts::Timezone[clock] unless hms
-    iri  = "_tm:Clock?label=" + hms
-    iri += "&" + options if options
-    Parts::Resource._instance(iri)
-  end
-
-  # When::Coordinates::Spatial の生成/参照
-  #
-  # @overload Location(location)
-  #   @param [When::Coordinates::Spatial] location なにもせず location をそのまま返す
-  #   @param [String] location  空間位置の IRI (デフォルトプレフィクス _l:)
-  #   @param [When::Parts::Timezone] 代表する都市の時間帯
-  #
-  # @overload Location(longitude, latitide, altitide=0, datum='Earth')
-  #   @param [Numeric] longitude 経度 / 度 (東経を正とする)
-  #   @param [Numeric] latitide  緯度 / 度 (北緯を正とする)
-  #   @param [Numeric] altitide  高度 / m
-  #   @param [When::Ephemeris::Datum] datum 座標系
-  #   @param [String] datum 座標系の IRI (デフォルトプレフィクス _ep:)
-  #
-  # @note longitudeが経度を意味する文字列, latitude が緯度を意味する文字列の場合、
-  #       引数の順番によらず、それぞれ経度および緯度と解釈する
-  #
-  # @return [When::Coordinates::Spatial] 生成/参照した When::Coordinates::Spatial オブジェクト
-  #
-  def Location(*args)
-    case args[0]
-    when Coordinates::Spatial ; return args[0]
-    when Parts::Timezone      ; return args[0].location
-    when String               ; return Parts::Resource._instance(args[0], '_l:') if args.size == 1
-    when Numeric              ;
-    else                      ; raise TypeError, "Invalid Type: #{args[0].class}"
-    end
-    rest = []
-    longitude = latitude = nil
-    args.each do |arg|
-      case arg
-      when /\A#{Coordinates::MATCH['EW']}\s*[.@\d]/, /[.@\d]\s*#{Coordinates::MATCH['EW']}\z/; longitude = arg
-      when /\A#{Coordinates::MATCH['NS']}\s*[.@\d]/, /[.@\d]\s*#{Coordinates::MATCH['NS']}\z/; latitude  = arg
-      else ; rest << arg
-      end
-    end
-    longitude ||= rest.shift
-    latitude  ||= rest.shift
-    raise ArgumentError, "too few arguments" unless longitude && latitude
-    altitude, datum = rest
-    iri = "_l:long=#{longitude}&lat=#{latitude}"
-    iri += "&alt=#{altitude}" if altitude
-    iri += "&datum=#{datum}"  if datum
-    Parts::Resource._instance(iri)
-  end
-
-  # When::Coordinates::Border の生成/参照
-  #
-  # @param [String] border 年/日境界を表す文字列
-  #
-  # @return [When::Coordinates::Border] border に対応する When::Coordinates::Border オブジェクト
-  #
-  def Border(border)
-    case border
-    when Coordinates::Border ; return border
-    when /\([-\d]+?\)/       ; border = "_co:MultiBorder?borders=#{border}"
-    when /\A[^A-Z_]/i        ; border = "_co:Border?border=#{border}"
-    end
-
-    Parts::Resource._instance(border, '_co:') do |iri|
-      Coordinates::CalendarBorder.send(:_behalf_of, iri)
-    end
-  end
-
-  #
-  # 曜日(剰余類)
-  #
-  # @param [Numeric] day 月曜を 0 とする七曜(剰余類)を返します
-  # @param [String]  day 最初の3文字から決定した七曜(剰余類)を返します。
-  #                      一致する七曜(剰余類)がない場合、名前の一致するその他の剰余類を探して返します。
-  #
-  # @return [When::Coordinates::Residue] 月曜を 0 とする七曜(剰余類) または 名前の一致するその他の剰余類
-  #
-  def Residue(day)
-    When::Coordinates::Residue.to_residue(day)
-  end
-  alias :day_of_week :Residue
-
-  #
-  # 月名
-  #
-  # @param [Numeric] name 指定の月番号の月名を返します
-  # @param [String]  name 最初の3文字から決定した月名を返します。
-  #                       一致する月名がない場合、名前の一致するその他のM17nを探して返します。
-  #                       (name が M17n なら name 自身をそのまま返します)
-  #
-  # @return [When::BasicTypes::M17n] 月名
-  #
-  def MonthName(name)
-    When::BasicTypes::M17n.month_name(name)
-  end
-
-  # When::BasicTypes::M17n の生成/参照
-  #
-  # @param [String] source 多言語対応文字列のIRI
-  #
-  # @return [When::BasicTypes::M17n] source に対応する When::BasicTypes::M17n オブジェクト
-  #
-  def M17n(source)
-    Parts::Resource._instance(source, '_m:')
-  end
-
-  # When::BasicTypes::M17n の生成/参照
-  #
-  # @param [When::BasicTypes::M17n] source 処理を行わず、そのままsourceを返す
-  # @param [String] source locale と 文字列の対応
-  # @param [Array]  source 要素を個別に解釈して生成したオブジェクトのArrayを返す
-  # @param [Hash]   namespace prefix の指定
-  # @param [Array]  locale    locale の定義順序の指定
-  # @param [Hash]   options (see {When::BasicTypes::M17n.new}[link:When/BasicTypes/M17n.html#method-c-new])
-  #
-  # @return [When::BasicTypes::M17n or Array<them>]
-  #
-  def m17n(source, namespace=nil, locale=nil, options={})
-    case source
-    when Array            ; BasicTypes::M17n.new(source, namespace, locale, options)
-    when BasicTypes::M17n ; source
-    when String
-      source = EncodingConversion.to_internal_encoding(source)
-      return self[$1] if source =~ /\A\s*\[((\.{1,2}|::)+[^\]]+)\]/ && self.kind_of?(When::Parts::Resource)
-      return Parts::Resource[$1] if source =~ /\A\s*\[::([^\]]+)\]/
-      BasicTypes::M17n.new(source, namespace, locale, options)
-    else ; raise TypeError, "Invalid Type: #{source.class}"
-    end
-  end
-
-  # Wikipedia を参照して When::BasicTypes::M17n を生成する
-  #
-  # @param [String] title Wikipedia の項目名
-  # @param [Hash] options 以下の通り
-  # @option options [String]       :locale   Wikipedia の言語(デフォルト 'en' - 英語)
-  # @option options [Numeric, nil] :interval Wikipedia サイトへのアクセス制御(デフォルト When::Locale.wikipedia_interval)
-  # @option options [Object]       :その他   キャッシュファイルへの追加書き出し要素
-  #
-  # @return [When::BasicTypes::M17n] 項目に対応する多言語対応文字列
-  #
-  # @note 生成した多言語対応文字列の what が nil でない場合、
-  #       その項目の位置情報を表わす When::Coordinates::Spatial を指す
-  #
-  def Wikipedia(title, options={})
-    locale = options.delete(:locale) || 'en'
-    title  = EncodingConversion.to_internal_encoding(title)
-    entry, query = title.split('?', 2)
-    url  = "http://#{locale}.wikipedia.org/wiki/#{URI.encode(entry).gsub(' ', '_')}"
-    Locale.send(:wikipedia_object, url, options) unless options.empty?
-    url += '?' + query if query
-    object = Parts::Resource._instance(url)
-    object.kind_of?(BasicTypes::M17n) ? object : object.label
-  end
-
-  # When::Parts::Resource の生成/参照
-  #
-  # @param [String] iri        IRI を表す文字列
-  # @param [String]  namespace デフォルトの namespace
-  #
-  # @return [When::Parts::Resourc] iri (または namespace:iri) に対応する When::Parts::Resource オブジェクト
-  #
-  def Resource(iri, namespace=nil)
-    Parts::Resource._instance(iri, namespace)
-  end
-  alias :IRI :Resource
-
-  # When::Coordinates::Index の生成
-  #
-  # @overload Index(terms=nil, name='Month', options)
-  #   @param [String] terms trunk の用語空間名
-  #   @param [String] name  trunk の要素配列名
-  #   @param [Hash] options
-  #   @option options [Array]   :trunk  幹の要素(省略時は使用しない)
-  #   @option options [Hash]    :branch 枝の要素(省略時は使用しない)
-  #   @option options [Integer] :unit   要素の数(省略時は不定)
-  #   @option options [Integer] :base   要素の最初の添え字(0 or 1(デフォルト))
-  #   @option options [Integer] :shift  幹の要素のローテート数(省略時はローテートしない)
-  #
-  # @return [When::Coordinates::Index]
-  #
-  def Index(*args)
-    Coordinates::Index.new(*args)
-  end
-
-  # When::Coordinates::Pair の生成
-  #
-  # @param [Numeric, String] trunk  幹の要素
-  # @param [Numeric, String] branch 枝の要素
-  # @see When::Coordinates::Pair._force_pair
-  #
-  # @return [When::Coordinates::Pair]
-  #
-  def Pair(trunk, branch=nil)
-    Coordinates::Pair._force_pair(trunk, branch)
-  end
-
-  # When 直下に定数として時法・暦法を定義する
-  _define_common_calendar_types
-
-end
+# -*- coding: utf-8 -*-
+=begin
+  Copyright (C) 2011-2015 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
+
+begin
+  require 'json'
+rescue LoadError
+end
+begin
+  require 'rubygems'
+rescue LoadError
+end
+begin
+  gem 'tzinfo'
+  autoload :TZInfo, 'tzinfo'
+rescue LoadError, NoMethodError
+end
+begin
+  gem 'gcalapi'
+  autoload :GoogleCalendar, 'when_exe/googlecalendar'
+rescue LoadError, NoMethodError
+end
+
+autoload :URI,       'uri'
+autoload :OpenURI,   'open-uri'
+autoload :OpenSSL,   'openssl'
+autoload :FileUtils, 'fileutils'
+autoload :REXML,     'rexml/document'
+autoload :Mutex,     'thread' unless Object.const_defined?(:Mutex)
+
+#
+# A multicultural and multilingualized calendar library based on ISO 8601, ISO 19108 and RFC 5545
+#
+module When
+
+  class << self
+
+    #
+    # マルチスレッド対応の場合 true
+    #
+    # @return [Boolean]
+    #
+    attr_reader :multi_thread
+
+    #
+    # Logger オブジェクト
+    #
+    # @return [Logger]
+    #
+    attr_accessor :logger
+    private :logger=
+
+    # Initializations
+    #
+    # @param [Hash] options 以下の通り
+    # @option options [When::Parts::Timezone::Base] :local                 デフォルトの地方時
+    # @option options [When::Coordinates::Spatial]  :location              デフォルトの空間位置
+    # @option options [When::TM::IntervalLength]    :until                 V::Event::Enumerator の until
+    # @option options [Hash{String=>String}]        :alias                 Locale の読替パターン         ({ 読替前のlocale=>読替後のlocale })
+    # @option options [String]                      :namespace_format      名前空間定義の省略時に名前空間生成に用いる書式
+    # @option options [Hash{String=>String}]        :unification           漢字の包摂パターン            ({ 包摂前の文字列=>包摂後の文字列 })
+    # @option options [Array<String>]               :order                 CalendarEra の検索順序        ([ IRI of When::TM::CalendarEra ])
+    # @option options [Hash{String=>Array, String}] :format                strftime で用いる記号の定義   ({ 記号=>[ 書式,項目名 ] or 記号列 })
+    # @option options [Array<Array>]                :leap_seconds          閏秒の挿入記録                ([ [JD, TAI-UTC, (MJD, OFFSET)] ])
+    # @option options [String]                      :base_uri              Base URI for When_exe Resources (Default When::SourceURI)
+    # @option options [Hash<String=>String>]        :additional_namespaces User defined namespaces (Default {})
+    # @option options [String]                      :root_dir              Root Directory for When_exe Resources Cash data (Default When::RootDir)
+    # @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 を発生させる
+    # @option options [Boolean]                     :multi_thread          マルチスレッド対応            (true: 対応, false/nil: 非対応)
+    # @option options [Logger]                      :logger                Logger オブジェクト
+    #
+    # @return [void]
+    #
+    # @note
+    #   本メソッドでマルチスレッド対応の管理変数の初期化を行っている。
+    #   このため、本メソッド自体および本メソッドから呼んでいる各クラスの _setup_ メソッドはスレッドセーフでない。
+    #
+    def _setup_(options={})
+      @multi_thread = options[:multi_thread]
+      @logger       = options[:logger]
+      Parts::MethodCash._setup_(options)
+      Parts::Resource._setup_(options)
+      Locale._setup_(options)
+      Coordinates::Spatial._setup_(options[:location])
+      TM::CalendarEra._setup_(options[:order])
+      TM::Calendar._setup_
+      TM::Clock._setup_(options[:local])
+      TM::TemporalPosition._setup_(options[:format])
+      V::Event._setup_(options[:until])
+      V::Timezone._setup_
+      Parts::Timezone._setup_
+      TimeStandard._setup_(options[:leap_seconds])
+    end
+
+    # 設定情報を取得する
+    #
+    # @return [Hash] 設定情報
+    #
+    def _setup_info
+      {:multi_thread => @multi_thread}.
+      update(Parts::MethodCash._setup_info).
+      update(Parts::Resource._setup_info).
+      update(Locale._setup_info).
+      update(Coordinates::Spatial._setup_info).
+      update(TM::CalendarEra._setup_info).
+      update(TM::Clock._setup_info).
+      update(TM::TemporalPosition._setup_info).
+      update(V::Event._setup_info).
+      update(TimeStandard._setup_info)
+    end
+
+    #
+    # When 直下に定数として定義する時法・暦法(明示的的追加)
+    #
+    # @private
+    def _define_common_calendar_types(list=%w(UTC Gregorian Julian Civil))
+      list.each do |calendar|
+        resource = Parts::Resource._instance(calendar, '_c:')
+        Parts::Resource.synchronize do
+          Parts::Resource::ConstList << calendar
+          const_set(calendar, resource)
+        end
+      end
+    end
+
+    alias :_const_missing :const_missing
+
+    #
+    # When 直下に定数として定義する時法・暦法など(暗黙的追加)
+    #
+    def const_missing(constant)
+      sgn, *args = TM::PeriodDuration._to_array(constant.to_s)
+      return const_set(constant, TM::PeriodDuration.new(*args)) if sgn
+      iri = Parts::Resource._abbreviation_to_iri(constant)
+      return _const_missing(constant) unless iri
+      resource = Parts::Resource._instance(iri)
+      return const_get(constant) if const_defined?(constant)
+      Parts::Resource.synchronize do
+        Parts::Resource::ConstList << constant
+        const_set(constant, resource)
+      end
+    end
+  end
+
+  #
+  # when_exe 用 International Resource Identifier
+  #
+  SourceURI = ENV["WHEN_EXE_BASE_URI"] || "http://hosi.org/When/"
+
+  #
+  # ルートディレクトリ(デフォルトでは lib の親ディレクトリ
+  #
+  RootDir   = ENV["WHEN_EXE_ROOT_DIR"] || File.dirname(__FILE__).sub(/\/[^\/]*\z/,'')
+
+  require 'when_exe/version'
+  require 'when_exe/locales/locale'
+  require 'when_exe/locales/autoload'
+  require 'when_exe/parts/enumerator'
+  require 'when_exe/parts/resource'
+  require 'when_exe/parts/geometric_complex'
+  require 'when_exe/parts/timezone'
+  require 'when_exe/core/compatibility'
+  require 'when_exe/basictypes'
+  require 'when_exe/ephemeris'
+  require 'when_exe/coordinates'
+  require 'when_exe/icalendar'
+  require 'when_exe/tmobjects'
+  require 'when_exe/timestandard'
+  require 'when_exe/tmposition'
+  require 'when_exe/tmreference'
+  require 'when_exe/calendartypes'
+  require 'when_exe/calendarnote'
+  require 'when_exe/region/m17n'
+  require 'when_exe/region/residue'
+  require 'when_exe/inspect'
+  require 'when_exe/linkeddata'
+
+  #
+  # Module Constants
+  #
+
+  # 1 second period duration
+  PT1S = TM::PeriodDuration.new(nil,[0,0,0,1])
+
+  # 1 minute period duration
+  PT1M = TM::PeriodDuration.new(nil,[0,0,1,0])
+
+  # 1 hour period duration
+  PT1H = TM::PeriodDuration.new(nil,[0,1,0,0])
+
+  # 1 day period duration
+  P1D  = TM::PeriodDuration.new([0,0,1])
+
+  # 1 week period duration
+  P1W  = TM::PeriodDuration.new([0,0,7])
+
+  # 1 month period duration
+  P1M  = TM::PeriodDuration.new([0,1,0])
+
+  # 1 year period duration
+  P1Y  = TM::PeriodDuration.new([1,0,0])
+
+  # kind of When::TM::Position or When::TM::TemporalPosition
+  TimeValue = TM::IndeterminateValue
+
+  # 7 days week residue
+  Week  = When::Parts::Resource._instance('_co:Common::Week')
+
+  # Gregorian months
+  Month = When::Parts::Resource._instance('_m:Calendar::Month')
+
+  # + ∞
+  PlusInfinity  = TM::TemporalPosition.new({:indeterminated_position=>TimeValue::Max})
+
+  # - ∞
+  MinusInfinity = TM::TemporalPosition.new({:indeterminated_position=>TimeValue::Min})
+
+  # UTF-8 encoding
+  UTF8  = '.UTF-8'
+
+  # Windows-31J encoding
+  W31J  = '.Windows-31J'
+
+  # eucJP encoding
+  EUCJP = '.eucJP'
+
+  class BasicTypes::M17n
+    autoload :Japanese,                'when_exe/region/japanese'
+    autoload :Chinese,                 'when_exe/region/chinese'
+    autoload :Yi,                      'when_exe/region/chinese'
+    autoload :Tibetan,                 'when_exe/region/tibetan'
+    autoload :Thai,                    'when_exe/region/thai'
+    autoload :Balinese,                'when_exe/region/balinese'
+    autoload :Javanese,                'when_exe/region/javanese'
+    autoload :Indian,                  'when_exe/region/indian'
+    autoload :Iranian,                 'when_exe/region/iranian'
+    autoload :Islamic,                 'when_exe/region/islamic'
+    autoload :Jewish,                  'when_exe/region/jewish'
+    autoload :AncientOrient,           'when_exe/region/babylonian'
+    autoload :Armenian,                'when_exe/region/armenian'
+    autoload :Roman,                   'when_exe/region/roman'
+    autoload :Coptic,                  'when_exe/region/coptic'
+    autoload :French,                  'when_exe/region/french'
+    autoload :World,                   'when_exe/region/world'
+    autoload :Positivist,              'when_exe/region/positivist'
+    autoload :InternationalFixed,      'when_exe/region/international_fixed'
+    autoload :WorldSeason,             'when_exe/region/world_season'
+    autoload :Tranquility,             'when_exe/region/tranquility'
+    autoload :Pax,                     'when_exe/region/pax'
+    autoload :HankeHenry,              'when_exe/region/hanke_henry'
+    autoload :Shire,                   'when_exe/region/shire'
+    autoload :Dee,                     'when_exe/region/dee'
+    autoload :VanishingLeprechaun,     'when_exe/region/vanishing_leprechaun'
+    autoload :Yerm,                    'when_exe/region/yerm'
+    autoload :Goddess,                 'when_exe/region/goddess'
+    autoload :Martian,                 'when_exe/region/martian'
+    autoload :WeekDate,                'when_exe/region/weekdate'
+  end
+
+  module Locale
+    autoload :WikipediaLinks,          'when_exe/locales/links'
+    autoload :IAST,                    'when_exe/locales/iast'
+    autoload :IASTR,                   'when_exe/locales/iast'
+    autoload :AKT,                     'when_exe/locales/akt'
+  end
+
+  module CalendarTypes
+    autoload :Japanese,                'when_exe/region/japanese/calendars'
+    autoload :JapaneseTwin,            'when_exe/region/japanese/twins'
+    autoload :ChineseTwin,             'when_exe/region/chinese/twins'
+    autoload :ChineseSolar,            'when_exe/region/chinese'
+    autoload :ChineseLuniSolar,        'when_exe/region/chinese'
+    autoload :Yi,                      'when_exe/region/chinese'
+    autoload :TenrekiA,                'when_exe/region/chinese'
+    autoload :TenrekiB,                'when_exe/region/chinese'
+    autoload :Korean,                  'when_exe/region/korean'
+    autoload :Tibetan,                 'when_exe/region/tibetan'
+    autoload :Thai,                    'when_exe/region/thai'
+    autoload :ThaiP,                   'when_exe/region/thai'
+    autoload :ThaiC,                   'when_exe/region/thai'
+    autoload :ThaiT,                   'when_exe/region/thai'
+    autoload :Tenganan,                'when_exe/region/balinese'
+    autoload :Pranatamangsa,           'when_exe/region/javanese'
+    autoload :IndianNationalSolar,     'when_exe/region/indian'
+    autoload :Nanakshahi,              'when_exe/region/indian'
+    autoload :RevisedBengali,          'when_exe/region/indian'
+    autoload :HinduLuniSolar,          'when_exe/region/indian'
+    autoload :HinduSolar,              'when_exe/region/indian'
+    autoload :Jalali,                  'when_exe/region/iranian'
+    autoload :TableBasedJalali,        'when_exe/region/iranian'
+    autoload :Borji,                   'when_exe/region/iranian'
+    autoload :TableBasedBorji,         'when_exe/region/iranian'
+    autoload :SolarHijri,              'when_exe/region/iranian'
+    autoload :SolarHijriAlgorithmic,   'when_exe/region/iranian'
+    autoload :Zoroastrian,             'when_exe/region/zoroastrian'
+    autoload :Qadimi,                  'when_exe/region/zoroastrian'
+    autoload :Shahanshahi,             'when_exe/region/zoroastrian'
+    autoload :Fasli,                   'when_exe/region/zoroastrian'
+    autoload :Bahai,                   'when_exe/region/bahai'
+    autoload :TabularIslamic,          'when_exe/region/islamic'
+    autoload :EphemerisBasedIslamic,   'when_exe/region/islamic'
+    autoload :Jewish,                  'when_exe/region/jewish'
+    autoload :Hebrew,                  'when_exe/region/jewish'
+    autoload :Armenian,                'when_exe/region/armenian'
+    autoload :Babylonian,              'when_exe/region/babylonian'
+    autoload :BabylonianPD,            'when_exe/region/babylonian'
+    autoload :Seleucid,                'when_exe/region/babylonian'
+    autoload :SeleucidPD,              'when_exe/region/babylonian'
+    autoload :Ptolemaic,               'when_exe/region/coptic'
+    autoload :Coptic,                  'when_exe/region/coptic'
+    autoload :JulianA,                 'when_exe/region/roman'
+    autoload :JulianB,                 'when_exe/region/roman'
+    autoload :JulianC,                 'when_exe/region/roman'
+    autoload :Roman,                   'when_exe/region/roman'
+    autoload :Gregorian,               'when_exe/region/christian'
+    autoload :FrenchRepublican,        'when_exe/region/french'
+    autoload :World,                   'when_exe/region/world'
+    autoload :LongCount,               'when_exe/region/mayan'
+    autoload :Positivist,              'when_exe/region/positivist'
+    autoload :InternationalFixed,      'when_exe/region/international_fixed'
+    autoload :WorldSeason,             'when_exe/region/world_season'
+    autoload :Pax,                     'when_exe/region/pax'
+    autoload :Tranquility,             'when_exe/region/tranquility'
+    autoload :HankeHenry,              'when_exe/region/hanke_henry'
+    autoload :Discordian,              'when_exe/region/discordian'
+    autoload :Shire,                   'when_exe/region/shire'
+    autoload :Sym454,                  'when_exe/region/symmetry'
+    autoload :Sym010,                  'when_exe/region/symmetry'
+    autoload :Dee,                     'when_exe/region/dee'
+    autoload :DeeCecil,                'when_exe/region/dee'
+    autoload :VanishingLeprechaun,     'when_exe/region/vanishing_leprechaun'
+    autoload :Yerm,                    'when_exe/region/yerm'
+    autoload :Goddess,                 'when_exe/region/goddess'
+    autoload :Darian,                  'when_exe/region/martian'
+    autoload :WeekDate,                'when_exe/region/weekdate'
+
+    _time_systems = {
+      'LMT' => nil,                       # Local Mean Time
+      'LAT' => nil,                       # Local Apparent Time
+      'THS' => nil,                       # Temporal Hour System
+      'MTC' => 'when_exe/region/martian', # Martian Time, Coordinated
+    }
+    TimeSystems = _time_systems.keys.join('|')
+    _time_systems.each_pair do |key, required|
+      autoload key.to_sym, required if required
+    end
+  end
+
+  class CalendarNote
+    autoload :SolarTerms,              'when_exe/ephemeris/notes'
+    autoload :LunarPhases,             'when_exe/ephemeris/notes'
+    autoload :Ephemeris,               'when_exe/ephemeris/notes'
+    autoload :Japanese,                'when_exe/region/japanese/notes'
+    autoload :CommonWithRokuyo,        'when_exe/region/japanese/weeks'
+    autoload :RokuyoWeek,              'when_exe/region/japanese/weeks'
+    autoload :Yis,                     'when_exe/region/chinese'
+    autoload :Balinese,                'when_exe/region/balinese'
+    autoload :Javanese,                'when_exe/region/javanese'
+    autoload :Tibetan,                 'when_exe/region/tibetan'
+    autoload :Bahai,                   'when_exe/region/bahai'
+    autoload :Roman,                   'when_exe/region/roman'
+    autoload :Mayan,                   'when_exe/region/mayan'
+    autoload :DiscordianWeek,          'when_exe/region/discordian'
+    autoload :CommonWithSovietFiveDay, 'when_exe/region/soviet'
+    autoload :SovietFiveDayWeek,       'when_exe/region/soviet'
+    autoload :CommonWithSovietSixDay,  'when_exe/region/soviet'
+    autoload :SovietSixDayWeek,        'when_exe/region/soviet'
+  # autoload :Yerm,                    'when_exe/region/yerm'
+    autoload :WorldWeek,               'when_exe/region/world'
+    autoload :PositivistWeek,          'when_exe/region/positivist'
+    autoload :InternationalFixedWeek,  'when_exe/region/international_fixed'
+    autoload :TranquilityWeek,         'when_exe/region/tranquility'
+    autoload :WorldSeasonWeek,         'when_exe/region/world_season'
+    autoload :ShireWeek,               'when_exe/region/shire'
+
+    Default   = [['_m:Calendar::Month'], ['Common::Week']]
+    JulianDay = [['Common::Week', 'Common::干支']]
+    Chinese   = [['Common::干支'], ['_m:Calendar::Month'], ['Common::Week', 'Common::干支']]
+  end
+
+  module Coordinates
+    autoload :Tibetan,                 'when_exe/region/tibetan'
+    autoload :Yi,                      'when_exe/region/chinese'
+    autoload :Javanese,                'when_exe/region/javanese'
+    autoload :Indian,                  'when_exe/region/indian'
+    autoload :Iranian,                 'when_exe/region/iranian'
+    autoload :Bahai,                   'when_exe/region/bahai'
+    autoload :Roman,                   'when_exe/region/roman'
+    autoload :Mayan,                   'when_exe/region/mayan'
+
+    # default index for day coordinate
+    DefaultDayIndex = Index.new
+
+    # default indices for date coordinates
+    DefaultDateIndices = [
+      Index.new(When::Parts::Resource._instance('_m:Calendar::Month'), {:unit =>12}),
+      DefaultDayIndex
+    ]
+
+    # default indices for time coordinates
+    DefaultTimeIndices = [
+      Index.new({:base=>0, :unit=>24}),
+      Index.new({:base=>0, :unit=>60}),
+      Index.new({:base=>0, :unit=>60})
+    ]
+  end
+
+  module TM
+    class OrdinalReferenceSystem
+      autoload :GeologicalAge,         'when_exe/region/geologicalage'
+    end
+
+    class CalendarEra
+      autoload :Japanese,              'when_exe/region/japanese/epochs'
+      autoload :JapanesePrimeMinister, 'when_exe/region/japanese/epochs'
+      autoload :NihonKoki,             'when_exe/region/japanese/nihon_shoki'
+      autoload :NihonShoki,            'when_exe/region/japanese/nihon_shoki'
+      autoload :JapaneseSolar,         'when_exe/region/japanese/twins'
+      autoload :JapaneseLuniSolar,     'when_exe/region/japanese/twins'
+      autoload :Chinese,               'when_exe/region/chinese/epochs'
+      autoload :ChineseSolar,          'when_exe/region/chinese/twins'
+      autoload :ChineseLuniSolar,      'when_exe/region/chinese/twins'
+      autoload :Ryukyu,                'when_exe/region/ryukyu'
+      autoload :Korean,                'when_exe/region/korean'
+      autoload :Vietnamese,            'when_exe/region/vietnamese'
+      autoload :Manchurian,            'when_exe/region/east_asian'
+      autoload :Rouran,                'when_exe/region/east_asian'
+      autoload :Gaochang,              'when_exe/region/east_asian'
+      autoload :Yunnan,                'when_exe/region/east_asian'
+      autoload :WesternXia,            'when_exe/region/east_asian'
+      autoload :KaraKhitan,            'when_exe/region/east_asian'
+    # autoload :Tibetan,               'when_exe/region/tibetan'
+      autoload :BalineseLuniSolar,     'when_exe/region/balinese'
+      autoload :JavaneseLunar,         'when_exe/region/javanese'
+      autoload :Iranian,               'when_exe/region/iranian'
+      autoload :Hijra,                 'when_exe/region/islamic'
+      autoload :Jewish,                'when_exe/region/jewish'
+      autoload :AncientOrient,         'when_exe/region/babylonian'
+      autoload :Roman,                 'when_exe/region/roman'
+      autoload :Julian,                'when_exe/region/roman'
+      autoload :Pope,                  'when_exe/region/pope'
+      autoload :Byzantine,             'when_exe/region/christian'
+      autoload :LongCount,             'when_exe/region/mayan'
+
+      # Defualt search path for Epochs and Eras
+      DefaultEpochs = ['Common',   'ModernJapanese',
+                       'Hijra',    'Jewish',    'Iranian',
+                       'Roman',    'Byzantine', 'AncientOrient', 'LongCount',
+                       'BalineseLuniSolar',  'JavaneseLunar',
+                       'Japanese', 'NihonKoki', 'NihonShoki',
+                       'Chinese',  'Ryukyu',  'Vietnamese', 'Korean',
+                       'JapaneseLuniSolar', 'JapaneseSolar',
+                       'ChineseLuniSolar',  'ChineseSolar',
+                       'Manchurian', 'Rouran', 'Gaochang',
+                       'Yunnan',   'WesternXia', 'KaraKhitan', # 'Tibetan',
+                       'Pope',     'JapanesePrimeMinister']
+
+      # Defualt events for Epochs and Eras
+      DefaultEvents = Hash[*([['@A',  'Accession'       ],
+                              ['@FE', 'FelicitousEvent' ],
+                              ['@ND', 'NaturalDisaster' ],
+                              ['@IY', 'InauspiciousYear'],
+                              ['@F',  'Foundation'      ],
+                              ['@CR', 'CalendarReform'  ],
+                              ['@CE', 'CalendarEpoch'   ]].map {|e|
+        [e[0], When::Parts::Resource._instance('EpochEvents::'+e[1], '_m:')]
+      }.flatten)]
+
+      # Common Era
+      Common = [{}, self, [
+        'area:Common#{?Reform=Reform}',
+        ['[BeforeCommonEra=en:BCE_(disambiguation),*alias:BCE]0.1.1'],
+        ['[CommonEra=en:Common_Era,*alias:CE]1.1.1', '@CE', '01-01-01^Julian'],
+        ['[CommonEra=en:Common_Era,*alias:CE]#{Reform:1582.10.15}', '@CR', '#{Reform:1582.10.15}^Gregorian']
+      ]]
+
+      # Modern Japanese Eras after the calendar reform to the Gregorian Calendar
+      ModernJapanese = [self, [
+        'area:[ModernJapanese]',
+        ['[M=,alias:明=ja:%%<明治>]6.01.01', '@CR', '1873-01-01^Gregorian?note=Default'],
+        ['[T=,alias:大=ja:%%<大正>]1.07.30', '@A',  '1912-07-30'],
+        ['[S=,alias:昭=ja:%%<昭和>]1.12.25', '@A',  '1926-12-25'],
+        ['[H=,alias:平=ja:%%<平成>]1.01.08', '@A',  '1989-01-08']
+      ]]
+    end
+  end
+
+  #
+  # Module Functions
+  #
+  module_function
+
+  # Generation of Temporal Objetct, duration or When::Parts::GeometricComplex
+  #
+  # @param [String] specification  When.exe Standard Representation または ユリウス日JDN として解釈して生成する
+  # @param [Numeric] specification ユリウス日として解釈して生成する
+  # @param [Array] specification   要素を個別に解釈して生成したオブジェクトのArrayを返す
+  # @param [When::TM::TemporalPosition, When::Parts::GeometricComplex] specification specificationをそのまま返す
+  # @param [When::TM::TemporalPosition] specification specification.any_otherを返す
+  #
+  # @param [Hash] options 暦法や時法などの指定 (see {When::TM::TemporalPosition._instance})
+  #
+  # @return [When::TM::TemporalPosition, When::TM::Duration, When::Parts::GeometricComplex or Array<them>]
+  #
+  def when?(specification, options={})
+
+    # フォーマットごとの処理
+    case specification
+    when TM::TemporalPosition, Parts::GeometricComplex ; specification
+    when TM::Position ; specification.any_other
+    when Array        ; begin options = TM::TemporalPosition._options(options) ; specification.map {|e| when?(e, options)} end
+    when /\Atoday(\^{1,2}(.+))?\z/i ; today($2 ? {:frame=>$2}.update(options) : options)
+    when /\Anow(\^{1,2}(.+))?\z/i   ; now(  $2 ? {:frame=>$2}.update(options) : options)
+    when /(JDN|MJD|SDN|CEP)(\z|\^)/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))
+    else              ; Calendar(options[:frame] || 'Gregorian').jul_trans(specification, options)
+    end
+  end
+
+  # When::TM::TemporalPosition の生成
+  #
+  # @overload TemporalPosition(*args, options={})
+  #   @param [String or [String, Integer], Numeric, ...] args
+  #     [String]                 年号
+  #     [Array<String, Integer>] 年号と 0 年の通年
+  #     [Numeric]                年月日時分秒(途中で打ち切り可)
+  #   @param [Hash] options      暦法や時法などの指定
+  #   @option options [Symbol] :invalid
+  #     [:raise     日時が存在しない場合例外発生              ]
+  #     [:check     日時が存在しない場合 nil を返す           ]
+  #     [その他/nil 日時が存在することを確認しない(デフォルト)]
+  #   @see When::TM::TemporalPosition._instance
+  #
+  # @return [When::TM::TemporalPosition]
+  # @raise [ArgumentError]
+  #   options[ :invalid ] が :raise で、日時が存在しない場合
+  #
+  def TemporalPosition(*args)
+    TM::TemporalPosition._temporal_position(*args)
+  end
+
+  alias :tm_pos :TemporalPosition
+  module_function :tm_pos
+
+  # 指定日時に対応する When::TM::TemporalPosition の生成
+  # (When::TM::DateAndTime of specified Time)
+  #
+  # @param [::Time] time    変換元の日時のTimeオブジェクト
+  # @param [Float]  time    1970-01-01T00:00:00Z からの経過秒数
+  # @param [Hash]   options 暦法や時法などの指定
+  # @see When::TM::TemporalPosition._instance
+  #
+  # @return [When::TM::DateAndTime]
+  #
+  def at(time, options={})
+    options = options._attr if options.kind_of?(TM::TemporalPosition)
+    options[:frame] ||= 'Gregorian'
+    options[:frame]   = Resource(options[:frame], '_c:') if options[:frame].kind_of?(String)
+    options[:clock] ||= Clock(time.utc_offset) if time.kind_of?(::Time)
+    jdt  = TM::JulianDate.universal_time(time.to_f * TM::IntervalLength::SECOND, {:frame=>TM::Clock.get_clock(options)})
+    options[:clock]   = jdt.frame
+    date = options[:frame].jul_trans(jdt, options)
+    date = TM::CalDate.new(date.cal_date, options) if options[:precision] &&
+                                                      options[:precision] <= DAY
+    return date
+  end
+
+  # 現在日時に対応する When::TM::TemporalPosition の生成
+  # (When::TM::DateAndTime of now)
+  # @note メソッド実行時の「現在日時」である。@indeterminated_position は設定しないので自動的に日時が進むことはない
+  #
+  # @param [Hash]   options 暦法や時法などの指定
+  # @see When::TM::TemporalPosition._instance
+  #
+  # @return [When::TM::DateAndTime]
+  #
+  def now(options={})
+    When.at(Time.now, options)
+  end
+
+  # 本日に対応する When::TM::CalDate の生成
+  # (When::TM::CalDate of today)
+  # @note メソッド実行時の「本日」である。@indeterminated_position は設定しないので自動的に日時が進むことはない
+  # @note options で時間帯を指定しても「本日」の決定に使用するのみで、戻り値には反映されない
+  #
+  # @param [Hash]   options 暦法や時法などの指定
+  # @see When::TM::TemporalPosition._instance
+  #
+  # @return [When::TM::CalDate]
+  #
+  def today(options={})
+    now(options.merge({:precision=>DAY}))
+  end
+
+  # When::TM::Duration の生成
+  #
+  # @param [String] period  When.exe Standard Representation として解釈して生成する
+  # @param [Numeric] period When::TM::IntervalLength::SYSTEM 単位の値として解釈して生成する
+  # @param [Array] period   要素を個別に解釈して生成したオブジェクトのArrayを返す
+  # @param [When::TM::Duration] period  処理を行わず、そのまま返す
+  # @param [Hash] options 現時点では未使用
+  #
+  # @return [When::TM::Duration or Array<them>]
+  #
+  def Duration(period, options={})
+    case period
+    when Array
+      period.map {|e| Duration(e, options)}
+
+    when TM::Duration
+      period
+
+    when 0
+      TM::IntervalLength.new(0, 'day')
+
+    when Numeric
+      [TM::Duration::YEAR, TM::Duration::MONTH,  TM::Duration::WEEK, TM::Duration::DAY,
+       TM::Duration::HOUR, TM::Duration::MINUTE, TM::Duration::SECOND].each do |unit|
+        div, mod = period.divmod(unit)
+        return TM::IntervalLength.new(div, TM::Duration::Unit.invert[unit]) if mod == 0
+      end
+      TM::IntervalLength.new(period, 'system')
+
+    when String
+      # IntervalLength
+      args = TM::IntervalLength._to_array(period)
+      return TM::IntervalLength.new(*args) if args
+
+      # PeriodDuration
+      sign, *args = TM::PeriodDuration._to_array(period)
+      raise TypeError, "Argument 'period' is not a Duration" unless (sign)
+      args << options
+      duration = TM::PeriodDuration.new(*args)
+      return (sign >= 0) ? duration : -duration
+
+    else
+      nil
+    end
+  end
+
+  # When::TM::Calendar の生成/参照
+  #
+  # @param [String] calendar 暦法を表す文字列
+  #
+  # @return [When::TM::Calendar] calendar に対応する When::TM::Calendar オブジェクト
+  #
+  def Calendar(calendar)
+    Parts::Resource._instance(calendar, '_c:')
+  end
+
+  # When::CalendarNote の生成/参照
+  #
+  # @param [String] note 暦注リストを表す文字列
+  #
+  # @return [When::CalendarNote] note に対応する When::CalendarNote オブジェクト
+  #
+  def CalendarNote(note)
+    Parts::Resource._instance(note, '_n:')
+  end
+
+  # When::TM::CalendarEra の生成/参照
+  #
+  # @param [String] era 暦年代を表す文字列
+  #
+  # @return [When::TM::CalendarEra] era に対応する When::TM::CalendarEra オブジェクト
+  #
+  def CalendarEra(era)
+    Parts::Resource._instance(era, '_e:') do |iri|
+      TM::CalendarEra.send(:_behalf_of, iri)
+    end
+  end
+
+  # When::TM::CalendarEra の検索
+  #
+  # @overload era(key, epoch=nil, reverse=nil, options={})
+  #   @param [String, Regexp] key     検索する暦年代または、暦年代にマッチする正規表現
+  #   @param [Integer]        epoch   年数を昇順にカウントする方式での暦元(0年)の通年(デフォルトは nil - 指定なし)
+  #   @param [Integer]        reverse 年数を降順にカウントする方式での暦元(0年)の通年(デフォルトは nil - 指定なし)
+  #   @param [Hash] options 以下の通り
+  #   @option options [String]  :area   暦年代の使用地域の指定(デフォルトは nil - 指定なし)
+  #   @option options [String]  :period 暦年代の使用時代の指定(デフォルトは nil - 指定なし)
+  #   @option options [Integer] :count  何件ヒットするまで検索するかを指定(デフォルトは 1件)
+  #   @option options [String]  the_others 例えば When::TM::CalendarEra オブジェクトの epoch_of_use に 'name' などの
+  #                                        指定がある場合、:name に指定しておけば、検索での絞り込みに使用できる。
+  #
+  # @return [Array<When::TM::CalendarEra>] 検索結果を When::TM::CalendarEra オブジェクトの Array で返す
+  # @note ヒット数が不足している場合は、_setup_ で指定した順序で When::TM::CalendarEra オブジェクトを生成しつつ読み込んで検索する。
+  #
+  def era(*args)
+    TM::CalendarEra._instance(*args)
+  end
+
+  # When::TM::Clock の生成/参照
+  #
+  # @param [When::Parts::Timezone::Base] clock なにもせず clock をそのまま返す
+  # @param [String] clock  時法を表す文字列
+  # @param [Numeric] clock 秒を単位として表した時差(東経側を + とする)
+  #
+  # @return [When::Parts::Timezone::Base] 生成/参照した When::Parts::Timezone::Base オブジェクト
+  #
+  def Clock(clock)
+    case clock
+    when Parts::Timezone::Base             ; return clock
+    when 'Z', 0                            ; return UTC
+    when Numeric                           ; return Parts::Resource._instance("_tm:Clock?label=" + TM::Clock.to_hms(clock))
+    when /\A#{CalendarTypes::TimeSystems}/ ; return Parts::Resource._instance('_c:' + clock)
+    when String                            ;
+    else                                   ; raise TypeError, "Invalid Type: #{clock.class}"
+    end
+    c    = TM::Clock[clock] || V::Timezone[clock]
+    return c if c
+    clock, options = clock.split('?')
+    hms  = TM::Clock.to_hms(clock)
+    return Parts::Timezone[clock] unless hms
+    iri  = "_tm:Clock?label=" + hms
+    iri += "&" + options if options
+    Parts::Resource._instance(iri)
+  end
+
+  # When::Coordinates::Spatial の生成/参照
+  #
+  # @overload Location(location)
+  #   @param [When::Coordinates::Spatial] location なにもせず location をそのまま返す
+  #   @param [String] location  空間位置の IRI (デフォルトプレフィクス _l:)
+  #   @param [When::Parts::Timezone] 代表する都市の時間帯
+  #
+  # @overload Location(longitude, latitide, altitide=0, datum='Earth')
+  #   @param [Numeric] longitude 経度 / 度 (東経を正とする)
+  #   @param [Numeric] latitide  緯度 / 度 (北緯を正とする)
+  #   @param [Numeric] altitide  高度 / m
+  #   @param [When::Ephemeris::Datum] datum 座標系
+  #   @param [String] datum 座標系の IRI (デフォルトプレフィクス _ep:)
+  #
+  # @note longitudeが経度を意味する文字列, latitude が緯度を意味する文字列の場合、
+  #       引数の順番によらず、それぞれ経度および緯度と解釈する
+  #
+  # @return [When::Coordinates::Spatial] 生成/参照した When::Coordinates::Spatial オブジェクト
+  #
+  def Location(*args)
+    case args[0]
+    when Coordinates::Spatial ; return args[0]
+    when Parts::Timezone      ; return args[0].location
+    when String               ; return Parts::Resource._instance(args[0], '_l:') if args.size == 1
+    when Numeric              ;
+    else                      ; raise TypeError, "Invalid Type: #{args[0].class}"
+    end
+    rest = []
+    longitude = latitude = nil
+    args.each do |arg|
+      case arg
+      when /\A#{Coordinates::MATCH['EW']}\s*[.@\d]/, /[.@\d]\s*#{Coordinates::MATCH['EW']}\z/; longitude = arg
+      when /\A#{Coordinates::MATCH['NS']}\s*[.@\d]/, /[.@\d]\s*#{Coordinates::MATCH['NS']}\z/; latitude  = arg
+      else ; rest << arg
+      end
+    end
+    longitude ||= rest.shift
+    latitude  ||= rest.shift
+    raise ArgumentError, "too few arguments" unless longitude && latitude
+    altitude, datum = rest
+    iri = "_l:long=#{longitude}&lat=#{latitude}"
+    iri += "&alt=#{altitude}" if altitude
+    iri += "&datum=#{datum}"  if datum
+    Parts::Resource._instance(iri)
+  end
+
+  # When::Coordinates::Border の生成/参照
+  #
+  # @param [String] border 年/日境界を表す文字列
+  #
+  # @return [When::Coordinates::Border] border に対応する When::Coordinates::Border オブジェクト
+  #
+  def Border(border)
+    case border
+    when Coordinates::Border ; return border
+    when /\([-\d]+?\)/       ; border = "_co:MultiBorder?borders=#{border}"
+    when /\A[^A-Z_]/i        ; border = "_co:Border?border=#{border}"
+    end
+
+    Parts::Resource._instance(border, '_co:') do |iri|
+      Coordinates::CalendarBorder.send(:_behalf_of, iri)
+    end
+  end
+
+  #
+  # 曜日(剰余類)
+  #
+  # @param [Numeric] day 月曜を 0 とする七曜(剰余類)を返します
+  # @param [String]  day 最初の3文字から決定した七曜(剰余類)を返します。
+  #                      一致する七曜(剰余類)がない場合、名前の一致するその他の剰余類を探して返します。
+  #
+  # @return [When::Coordinates::Residue] 月曜を 0 とする七曜(剰余類) または 名前の一致するその他の剰余類
+  #
+  def Residue(day)
+    When::Coordinates::Residue.to_residue(day)
+  end
+  alias :day_of_week :Residue
+
+  #
+  # 月名
+  #
+  # @param [Numeric] name 指定の月番号の月名を返します
+  # @param [String]  name 最初の3文字から決定した月名を返します。
+  #                       一致する月名がない場合、名前の一致するその他のM17nを探して返します。
+  #                       (name が M17n なら name 自身をそのまま返します)
+  #
+  # @return [When::BasicTypes::M17n] 月名
+  #
+  def MonthName(name)
+    When::BasicTypes::M17n.month_name(name)
+  end
+
+  # When::BasicTypes::M17n の生成/参照
+  #
+  # @param [String] source 多言語対応文字列のIRI
+  #
+  # @return [When::BasicTypes::M17n] source に対応する When::BasicTypes::M17n オブジェクト
+  #
+  def M17n(source)
+    Parts::Resource._instance(source, '_m:')
+  end
+
+  # When::BasicTypes::M17n の生成/参照
+  #
+  # @param [When::BasicTypes::M17n] source 処理を行わず、そのままsourceを返す
+  # @param [String] source locale と 文字列の対応
+  # @param [Array]  source 要素を個別に解釈して生成したオブジェクトのArrayを返す
+  # @param [Hash]   namespace prefix の指定
+  # @param [Array]  locale    locale の定義順序の指定
+  # @param [Hash]   options (see {When::BasicTypes::M17n.new}[link:When/BasicTypes/M17n.html#method-c-new])
+  #
+  # @return [When::BasicTypes::M17n or Array<them>]
+  #
+  def m17n(source, namespace=nil, locale=nil, options={})
+    case source
+    when Array            ; BasicTypes::M17n.new(source, namespace, locale, options)
+    when BasicTypes::M17n ; source
+    when String
+      source = EncodingConversion.to_internal_encoding(source)
+      return self[$1] if source =~ /\A\s*\[((\.{1,2}|::)+[^\]]+)\]/ && self.kind_of?(When::Parts::Resource)
+      return Parts::Resource[$1] if source =~ /\A\s*\[::([^\]]+)\]/
+      BasicTypes::M17n.new(source, namespace, locale, options)
+    else ; raise TypeError, "Invalid Type: #{source.class}"
+    end
+  end
+
+  # Wikipedia を参照して When::BasicTypes::M17n を生成する
+  #
+  # @param [String] title Wikipedia の項目名
+  # @param [Hash] options 以下の通り
+  # @option options [String]       :locale   Wikipedia の言語(デフォルト 'en' - 英語)
+  # @option options [Numeric, nil] :interval Wikipedia サイトへのアクセス制御(デフォルト When::Locale.wikipedia_interval)
+  # @option options [Object]       :その他   キャッシュファイルへの追加書き出し要素
+  #
+  # @return [When::BasicTypes::M17n] 項目に対応する多言語対応文字列
+  #
+  # @note 生成した多言語対応文字列の what が nil でない場合、
+  #       その項目の位置情報を表わす When::Coordinates::Spatial を指す
+  #
+  def Wikipedia(title, options={})
+    locale = options.delete(:locale) || 'en'
+    title  = EncodingConversion.to_internal_encoding(title)
+    entry, query = title.split('?', 2)
+    url  = "http://#{locale}.wikipedia.org/wiki/#{URI.encode(entry).gsub(' ', '_')}"
+    Locale.send(:wikipedia_object, url, options) unless options.empty?
+    url += '?' + query if query
+    object = Parts::Resource._instance(url)
+    object.to_m17n
+  end
+
+  # When::Parts::Resource の生成/参照
+  #
+  # @param [String] iri        IRI を表す文字列
+  # @param [String]  namespace デフォルトの namespace
+  #
+  # @return [When::Parts::Resourc] iri (または namespace:iri) に対応する When::Parts::Resource オブジェクト
+  #
+  def Resource(iri, namespace=nil)
+    Parts::Resource._instance(iri, namespace)
+  end
+  alias :IRI :Resource
+
+  # When::Coordinates::Index の生成
+  #
+  # @overload Index(terms=nil, name='Month', options)
+  #   @param [String] terms trunk の用語空間名
+  #   @param [String] name  trunk の要素配列名
+  #   @param [Hash] options
+  #   @option options [Array]   :trunk  幹の要素(省略時は使用しない)
+  #   @option options [Hash]    :branch 枝の要素(省略時は使用しない)
+  #   @option options [Integer] :unit   要素の数(省略時は不定)
+  #   @option options [Integer] :base   要素の最初の添え字(0 or 1(デフォルト))
+  #   @option options [Integer] :shift  幹の要素のローテート数(省略時はローテートしない)
+  #
+  # @return [When::Coordinates::Index]
+  #
+  def Index(*args)
+    Coordinates::Index.new(*args)
+  end
+
+  # When::Coordinates::Pair の生成
+  #
+  # @param [Numeric, String] trunk  幹の要素
+  # @param [Numeric, String] branch 枝の要素
+  # @see When::Coordinates::Pair._force_pair
+  #
+  # @return [When::Coordinates::Pair]
+  #
+  def Pair(trunk, branch=nil)
+    Coordinates::Pair._force_pair(trunk, branch)
+  end
+
+  # When 直下に定数として時法・暦法を定義する
+  _define_common_calendar_types
+
+end