when_exe 0.4.1 → 0.4.2

data/lib/when_exe/region/{soviet.rb → russian.rb}

@@ -1,209 +1,221 @@
-# -*- 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
-
-class When::CalendarNote
-
-  #
-  # 標準の暦注 ＋ 五曜
-  #
-  CommonWithSovietFiveDay = [['_m:Calendar::Month'], ['Common::Week', '_n:SovietFiveDayWeek/Notes::day::FiveDay']]
-
-  #
-  # 標準の暦注 ＋ 六曜
-  #
-  CommonWithSovietSixDay  = [['_m:Calendar::Month'], ['Common::Week', '_n:SovietSixDayWeek/Notes::day::SixDay']]
-
-  #
-  # 五曜
-  #
-  class SovietFiveDayWeek < Week
-
-    Holidays = {
-      [1,22] => 5, [2,29] => 6, [5,1] => 5, [5,2] => 5, [11,7] => 5, [11,8] => 5
-    }
-
-    FirstDay = [0, 0, 3, 4, 4, 3, 3, 4, 0, 0, 1, 4]
-
-    SkipDay  = {
-      1 => [23,1], 5 => [3,2], 11 => [9,2]
-    }
-
-
-    #
-    # 暦注要素の定義
-    #
-    Notes = [When::BasicTypes::M17n, [
-      "locale:[=en:, ja=ja:, alias]",
-      "names:[SovietFiveDay]",
-
-      # 日の暦注 ----------------------------
-      [When::BasicTypes::M17n,
-        "names:[day]",
-        [When::BasicTypes::M17n,
-          "names:[FiveDay, 五曜]",
-          [DayOfWeek, "label:[I=      ]", {'delta'=>5}],
-          [DayOfWeek, "label:[II=     ]", {'delta'=>5}],
-          [DayOfWeek, "label:[III=    ]", {'delta'=>5}],
-          [DayOfWeek, "label:[IV=     ]", {'delta'=>5}],
-          [DayOfWeek, "label:[V=      ]", {'delta'=>5}],
-          [DayOfWeek, "label:[Holiday=]", {'delta'=>190}],
-          [DayOfWeek, "label:[Leapday=]", {'delta'=>1461}]
-        ]
-      ]
-    ]]
-
-    #
-    # この日は何曜？
-    #
-    # @param [When::TM::TemporalPosition] date
-    # @param [When::TM::CalDate] base (not used)
-    #
-    # @return [Hash<:value=>When::CalendarNote::Week::DayOfWeek, :position=>Array<Integer>>]
-    #
-    def fiveday(date, base=nil)
-      date  = _to_date_for_note(date)
-      y,m,d = date.cal_date
-      index = fiveday_index(m,d)
-      {:value=>@days_of_week[index], :position=>[index, 7]}
-    end
-    alias :week :fiveday
-
-    # @private
-    def first(date, base=nil)
-      count = 0
-      d0 = d1 = _to_date_for_note(date)
-      r0 = r1 = nil
-      loop do
-        y,m,d = d1.cal_date
-        r1    = fiveday_index(m,d)
-        break if r1 == 0
-        d0 = d1
-        r0 = r1
-        d1 = d0 - When::P1D
-        count += 1
-      end
-      date -= count if count > 0
-      date.events = [@days_of_week[r1]]
-      date
-    end
-
-    # @private
-    def fiveday_index(m,d)
-      index = Holidays[[m,d]]
-      return index if index
-      day, shift = SkipDay[m]
-      d -= shift if day && d >= day
-      (FirstDay[m-1] + d - 1) % 5
-    end
-
-    # @private
-    def first_delta(parameter=nil)
-      When::P5D
-    end
-
-    #
-    # 暦日をグレゴリオ暦日に変換
-    #
-    # @private
-    def _to_date_for_note(date)
-      return date if date.frame.kind_of?(When::CalendarTypes::Gregorian)
-      return When::Gregorian ^ date
-    end
-
-    private
-
-    # オブジェクトの正規化
-    # @private
-    def _normalize(args=[], options={})
-      @days_of_week ||= When.CalendarNote("SovietFiveDayWeek/Notes::day::FiveDay")
-      @event        ||= 'first'
-      super
-    end
-  end
-
-  #
-  # 六曜
-  #
-  class SovietSixDayWeek < Week
-
-    # @private
-    #             1 2 3 4 5 6 7 8 9 X N D
-    WeekLength = [7,6,7,6,7,6,7,7,6,7,6,7]
-
-    #
-    # 暦注要素の定義
-    #
-    Notes = [When::BasicTypes::M17n, [
-      "locale:[=en:, ja=ja:, alias]",
-      "names:[SovietSixDay]",
-
-      # 日の暦注 ----------------------------
-      [When::BasicTypes::M17n,
-        "names:[day]",
-        [When::BasicTypes::M17n,
-          "names:[SixDay, 六曜]",
-          [DayOfWeek, "label:[Первый=      ]", {'delta'=>6}],
-          [DayOfWeek, "label:[Второй=      ]", {'delta'=>6}],
-          [DayOfWeek, "label:[Третий=      ]", {'delta'=>6}],
-          [DayOfWeek, "label:[Четвертый=]", {'delta'=>6}],
-          [DayOfWeek, "label:[Пятый=        ]", {'delta'=>6}],
-          [DayOfWeek, "label:[Шестой=      ]", {'delta'=>6}],
-          [DayOfWeek, "label:[Out of week=       ]", {'delta'=>6}]
-        ]
-      ]
-    ]]
-
-    #
-    # この日は何曜？
-    #
-    # @param [When::TM::TemporalPosition] date
-    # @param [When::TM::CalDate] base (not used)
-    #
-    # @return [Hash<:value=>When::CalendarNote::Week::DayOfWeek, :position=>Array<Integer>>]
-    #
-    def sixday(date, base=nil)
-      date  = _to_date_for_note(date)
-      dow   = date.cal_date[When::DAY-1]
-      index = dow == 31 ? 6 : (dow - 1) % 6
-      {:value=>@days_of_week[index], :position=>[index, WeekLength[(base||date).cal_date[When::MONTH-1]-1]]}
-    end
-    alias :week :sixday
-
-    # @private
-    def first(date, base=nil)
-      dow   = _to_date_for_note(date).cal_date[When::DAY-1]
-      index = dow == 31 ? 6 : (dow - 1) % 6
-      date -= index if index > 0
-      date.events = [@days_of_week[index]]
-      date
-    end
-
-    # @private
-    def first_delta(parameter=nil)
-      When::P6D
-    end
-
-    #
-    # 暦日をグレゴリオ暦日に変換
-    #
-    # @private
-    def _to_date_for_note(date)
-      return date if date.frame.kind_of?(When::CalendarTypes::Gregorian)
-      return When::Gregorian ^ date
-    end
-
-    private
-
-    # オブジェクトの正規化
-    # @private
-    def _normalize(args=[], options={})
-      @days_of_week ||= When.CalendarNote("SovietSixDayWeek/Notes::day::SixDay")
-      @event        ||= 'first'
-      super
-    end
-  end
-end
+# -*- coding: utf-8 -*-
+=begin
+  Copyright (C) 2014-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
+
+module When::Coordinates
+
+  # Location of cities in Russia
+  Russian = [When::BasicTypes::M17n, [
+    "locale:[=en:, ja=ja:, alias]",
+    "names:[Russia, ロシア]",
+    [Spatial, "long:37.3756E", "lat:55.4508N", "label:[Moscow,           モスクワ            ]"],
+    [Spatial, "long:30.18E",   "lat:59.57N",   "label:[Saint_Petersburg, サンクトペテルブルク]"],
+    [Spatial,"long:131.55E",   "lat:43.07N",   "label:[Vladivostok,      ウラジオストク      ]"]
+  ]]
+end
+
+class When::CalendarNote
+
+  #
+  # 標準の暦注 ＋ 五曜
+  #
+  CommonWithSovietFiveDay = [['_m:Calendar::Month'], ['Common::Week', '_n:SovietFiveDayWeek/Notes::day::FiveDay']]
+
+  #
+  # 標準の暦注 ＋ 六曜
+  #
+  CommonWithSovietSixDay  = [['_m:Calendar::Month'], ['Common::Week', '_n:SovietSixDayWeek/Notes::day::SixDay']]
+
+  #
+  # 五曜
+  #
+  class SovietFiveDayWeek < Week
+
+    Holidays = {
+      [1,22] => 5, [2,29] => 6, [5,1] => 5, [5,2] => 5, [11,7] => 5, [11,8] => 5
+    }
+
+    FirstDay = [0, 0, 3, 4, 4, 3, 3, 4, 0, 0, 1, 4]
+
+    SkipDay  = {
+      1 => [23,1], 5 => [3,2], 11 => [9,2]
+    }
+
+
+    #
+    # 暦注要素の定義
+    #
+    Notes = [When::BasicTypes::M17n, [
+      "locale:[=en:, ja=ja:, alias]",
+      "names:[SovietFiveDay]",
+
+      # 日の暦注 ----------------------------
+      [When::BasicTypes::M17n,
+        "names:[day]",
+        [When::BasicTypes::M17n,
+          "names:[FiveDay, 五曜]",
+          [DayOfWeek, "label:[I=      ]", {'delta'=>5}],
+          [DayOfWeek, "label:[II=     ]", {'delta'=>5}],
+          [DayOfWeek, "label:[III=    ]", {'delta'=>5}],
+          [DayOfWeek, "label:[IV=     ]", {'delta'=>5}],
+          [DayOfWeek, "label:[V=      ]", {'delta'=>5}],
+          [DayOfWeek, "label:[Holiday=]", {'delta'=>190}],
+          [DayOfWeek, "label:[Leapday=]", {'delta'=>1461}]
+        ]
+      ]
+    ]]
+
+    #
+    # この日は何曜？
+    #
+    # @param [When::TM::TemporalPosition] date
+    # @param [When::TM::CalDate] base (not used)
+    #
+    # @return [Hash<:value=>When::CalendarNote::Week::DayOfWeek, :position=>Array<Integer>>]
+    #
+    def fiveday(date, base=nil)
+      date  = _to_date_for_note(date)
+      y,m,d = date.cal_date
+      index = fiveday_index(m,d)
+      {:value=>@days_of_week[index], :position=>[index, 7]}
+    end
+    alias :week :fiveday
+
+    # @private
+    def first(date, base=nil)
+      count = 0
+      d0 = d1 = _to_date_for_note(date)
+      r0 = r1 = nil
+      loop do
+        y,m,d = d1.cal_date
+        r1    = fiveday_index(m,d)
+        break if r1 == 0
+        d0 = d1
+        r0 = r1
+        d1 = d0 - When::P1D
+        count += 1
+      end
+      date -= count if count > 0
+      date.events = [@days_of_week[r1]]
+      date
+    end
+
+    # @private
+    def fiveday_index(m,d)
+      index = Holidays[[m,d]]
+      return index if index
+      day, shift = SkipDay[m]
+      d -= shift if day && d >= day
+      (FirstDay[m-1] + d - 1) % 5
+    end
+
+    # @private
+    def first_delta(parameter=nil)
+      When::P5D
+    end
+
+    #
+    # 暦日をグレゴリオ暦日に変換
+    #
+    # @private
+    def _to_date_for_note(date)
+      return date if date.frame.kind_of?(When::CalendarTypes::Gregorian)
+      return When::Gregorian ^ date
+    end
+
+    private
+
+    # オブジェクトの正規化
+    # @private
+    def _normalize(args=[], options={})
+      @days_of_week ||= When.CalendarNote("SovietFiveDayWeek/Notes::day::FiveDay")
+      @event        ||= 'first'
+      super
+    end
+  end
+
+  #
+  # 六曜
+  #
+  class SovietSixDayWeek < Week
+
+    # @private
+    #             1 2 3 4 5 6 7 8 9 X N D
+    WeekLength = [7,6,7,6,7,6,7,7,6,7,6,7]
+
+    #
+    # 暦注要素の定義
+    #
+    Notes = [When::BasicTypes::M17n, [
+      "locale:[=en:, ja=ja:, alias]",
+      "names:[SovietSixDay]",
+
+      # 日の暦注 ----------------------------
+      [When::BasicTypes::M17n,
+        "names:[day]",
+        [When::BasicTypes::M17n,
+          "names:[SixDay, 六曜]",
+          [DayOfWeek, "label:[Первый=      ]", {'delta'=>6}],
+          [DayOfWeek, "label:[Второй=      ]", {'delta'=>6}],
+          [DayOfWeek, "label:[Третий=      ]", {'delta'=>6}],
+          [DayOfWeek, "label:[Четвертый=]", {'delta'=>6}],
+          [DayOfWeek, "label:[Пятый=        ]", {'delta'=>6}],
+          [DayOfWeek, "label:[Шестой=      ]", {'delta'=>6}],
+          [DayOfWeek, "label:[Out of week=       ]", {'delta'=>6}]
+        ]
+      ]
+    ]]
+
+    #
+    # この日は何曜？
+    #
+    # @param [When::TM::TemporalPosition] date
+    # @param [When::TM::CalDate] base (not used)
+    #
+    # @return [Hash<:value=>When::CalendarNote::Week::DayOfWeek, :position=>Array<Integer>>]
+    #
+    def sixday(date, base=nil)
+      date  = _to_date_for_note(date)
+      dow   = date.cal_date[When::DAY-1]
+      index = dow == 31 ? 6 : (dow - 1) % 6
+      {:value=>@days_of_week[index], :position=>[index, WeekLength[(base||date).cal_date[When::MONTH-1]-1]]}
+    end
+    alias :week :sixday
+
+    # @private
+    def first(date, base=nil)
+      dow   = _to_date_for_note(date).cal_date[When::DAY-1]
+      index = dow == 31 ? 6 : (dow - 1) % 6
+      date -= index if index > 0
+      date.events = [@days_of_week[index]]
+      date
+    end
+
+    # @private
+    def first_delta(parameter=nil)
+      When::P6D
+    end
+
+    #
+    # 暦日をグレゴリオ暦日に変換
+    #
+    # @private
+    def _to_date_for_note(date)
+      return date if date.frame.kind_of?(When::CalendarTypes::Gregorian)
+      return When::Gregorian ^ date
+    end
+
+    private
+
+    # オブジェクトの正規化
+    # @private
+    def _normalize(args=[], options={})
+      @days_of_week ||= When.CalendarNote("SovietSixDayWeek/Notes::day::SixDay")
+      @event        ||= 'first'
+      super
+    end
+  end
+end

data/lib/when_exe/region/shire.rb

@@ -1,223 +1,222 @@
-# -*- 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
-
-module When
-  class BasicTypes::M17n
-
-    Shire = [self, [
-      "namespace:[cal=http://en.wikipedia.org/wiki/Middle-earth_calendar#]",
-      "locale:[=en:, ja=ja:, alias]",
-      "names:[Shire=]",
-      "[Shire=en:The_Lord_of_the_Rings, ホビット庄暦=ja:%%<指輪物語>]",
-
-      [self,
-        "names:[Festival=,                 祭=                ]",
-        "[%0sYule=en:Yule,                 %0sユール祭=       ]",
-        "[%0sLithe=cal:Hobbit_calendar,    %0sライズ祭=       ]",
-      ],
-
-      [self,
-        "names:[Month, 月=ja:%%<月_(暦)>]",
-        "[Yule=en:Yule,                    ユール祭=          ]",
-        "[Afteryule=en:Yule,               ユール後月=        ]",
-        "[Solmath=cal:Hobbit_calendar,     ソマス=            ]",
-        "[Rethe=cal:Hobbit_calendar,       レセ=              ]",
-        "[Astron=cal:Hobbit_calendar,      アストロン=        ]",
-        "[Thrimidge=cal:Hobbit_calendar,   スリミッジ=        ]",
-        "[Forelithe=cal:Hobbit_calendar,   ライズ前月=        ]",
-        "[Afterlithe=cal:Hobbit_calendar,  ライズ後月=        ]",
-        "[Wedmath=cal:Hobbit_calendar,     ウェドマス=        ]",
-        "[Halimath=cal:Hobbit_calendar,    ハリマス=          ]",
-        "[Winterfilth=cal:Hobbit_calendar, ウィンターフィルス=]",
-        "[Blotmath=cal:Hobbit_calendar,    ブロドマス=        ]",
-        "[Foreyule=en:Yule,                ユール前月=        ]"
-      ]
-    ]]
-  end
-
-  #
-  # ホビット庄暦の暦週
-  #
-  class CalendarNote::ShireWeek < CalendarNote::Week
-
-    Notes = [When::BasicTypes::M17n, [
-      "locale:[=en:, ja=ja:, alias]",
-      "names:[Shire]",
-
-      # 年の暦注 ----------------------------
-      [When::BasicTypes::M17n,
-        "names:[year]"
-      ],
-
-      # 月の暦注 ----------------------------
-      [When::BasicTypes::M17n,
-        "names:[month]",
-        [When::BasicTypes::M17n,
-          "names:[Month]"
-        ]
-      ],
-
-      # 日の暦注 ----------------------------
-      [When::BasicTypes::M17n,
-        "names:[day]",
-        [When::BasicTypes::M17n,
-          "names:[Week]",
-          [DayOfWeek, "label:[Saturday,     土曜日]", {'delta'=>7}],
-          [DayOfWeek, "label:[Sunday,       日曜日]", {'delta'=>7}],
-          [DayOfWeek, "label:[Monday,       月曜日]", {'delta'=>7}],
-          [DayOfWeek, "label:[Tuesday,      火曜日]", {'delta'=>7}],
-          [DayOfWeek, "label:[Wednesday,    水曜日]", {'delta'=>7}],
-          [DayOfWeek, "label:[Thursday,     木曜日]", {'delta'=>7}],
-          [DayOfWeek, "label:[Friday,       金曜日]", {'delta'=>7}],
-          [DayOfWeek, "label:[lithe,        中日= ]", {'delta'=> 365}],
-          [DayOfWeek, "label:[double,       重日= ]", {'delta'=>1827}]
-        ],
-
-        "[Common_Week=]"
-      ]
-    ]]
-
-    # @private
-    FirstDayOfWeek  = [6, 1, 3, 5, 0, 2, 4] * 2
-
-    # @private
-    ExtraDayInYear = {
-      [ 8, 2] => 7,
-      [ 8, 4] => 0
-    }
-
-    # @private
-    WeekLength = {
-      [ 8, 3] => 8,
-      [ 8, 4] => 9
-    }
-
-    # 当日または直前の lithe の日
-    # @param date [When::TM::TemporalPosition]
-    # @param parameter [nil] 未使用
-    # @return [When::TM::TemporalPosition]
-    #
-    def lithe(date, parameter=nil)
-      event_name = 'lithe'
-      date  = date.frame.jul_trans(date, {:events=>[event_name]})
-      y,m,d = date.cal_date
-      m = date.frame.send(:_to_index,[y,m]) + 1
-      h,n   = (m+5).divmod(7)
-      dow   = 182 * h[0] + 30 * n + d + 1
-      if m==8
-        case d
-        when 2 ; dow = 0
-        when 3 ; dow = date.frame._sum([y]) == 365 ? 1 : 0
-        when 4 ; dow = 1
-        end
-      end
-      return date if dow == 0
-      date += When::TM::PeriodDuration.new([0,0,-dow])
-      date.events = [event_name]
-      date
-    end
-
-    # 当日または直前の week_day の日
-    # @method week_day(date, parameter=nil)
-    #   @param [When::TM::TemporalPosition] date
-    #   @param [nil] parameter 未使用
-    #   @return [When::TM::TemporalPosition]
-    #   @note week_day は saturday, sunday, monday, tuesday, wednesday, thursday, friday に読み替えてください。
-
-    # @private
-    7.times do |k|
-      name = When.CalendarNote('ShireWeek/Notes::day::Week')[k].to_s.downcase
-      module_eval %Q{
-        def #{name}(date, parameter=nil)
-          event_name = 'from_#{name}'
-          date  = date.frame.jul_trans(date, {:events=>[event_name], :precision=>When::DAY})
-          y,m,d = date.cal_date
-          m = date.frame.send(:_to_index, [y,m]) + 1
-          h,n   = (m+5).divmod(7)
-          dow   = (182 * h[0] + 30 * n + d - #{k}) % 7
-          case m
-          when 8
-            case d
-            when 2 ; dow = 7 - #{k}
-            when 3 ; dow = (date.frame._sum([y]) == 365 && #{k} == 0) ? 0 : 8 - #{k}
-            when 4 ; dow = #{k} == 0 ? 0 : 9 - #{k}
-            end
-          when 9
-            dow += (date.frame._sum([y]) == 365) ? 1 : 2 if d < #{k}
-          end
-          return date if dow == 0
-          date += When::TM::PeriodDuration.new([0,0,-dow])
-          date.events = [event_name]
-          date
-        end
-      }
-    end
-
-    #
-    # この日は何曜？
-    #
-    # @param [When::TM::TemporalPosition] date
-    # @param [When::TM::CalDate] base (not used)
-    #
-    # @return [Hash<:value=>When::CalendarNote::Week::DayOfWeek, :position=>Array<Integer>>]
-    #
-    def week(date, base=nil)
-      date    = _to_date_for_note(date)
-      y, m, d = date.cal_date
-      m = date.frame.send(:_to_index, [y,m]) + 1
-      length  = WeekLength[[m, date.length(When::MONTH)]] || 7
-      index   = length == 8 ? 0 : 8 if [m,d] == [8,3]
-      index ||= ExtraDayInYear[[m,d]] || (FirstDayOfWeek[m-1] + d - 1) % 7
-      {:value=>@days_of_week[index], :position=>[index, length]}
-    end
-
-    #
-    # 暦日を当該暦注計算用クラスに変換
-    #
-    # @private
-    def _to_date_for_note(date)
-      date = When::Shire ^ date unless date.frame.label.to_s == 'Shire'
-      date
-    end
-
-    # オブジェクトの正規化
-    # @private
-    def _normalize(args=[], options={})
-      @event ||= 'saturday'
-      super
-    end
-  end
-
-  module CalendarTypes
-
-    _shire_indices = [
-      When.Index('Shire::Month', {:base  => 0,
-                                  :branch=>{1=>When.Resource('_m:Shire::Festival::*')[1]}}),
-      When::Coordinates::DefaultDayIndex
-    ]
-
-    _IDs = '0,1,2,3,4,5,6,6=,7,8,9,10,11,12'
-
-    #
-    # Shire Calendar based on summer solstice date
-    #
-    Shire =  [SolarYearTableBased, {
-      'label'   => 'Shire::Shire',
-      'indices' => _shire_indices,
-      'border'       => '00-00-02',
-      'engine_day'   =>   -9,           # Jun 1st is 01-09
-      'day_offset'   => -183,           # the day 183 days before summer solstice
-      'cycle_offset' => Rational(1,4),  # summer solstice
-    # 'time_basis'   => '+09:00',       # JST
-      'rule_table'   => {
-        365 => {'Length'=>[2]+[30]*6+[3]+[30]*6, 'IDs'=>_IDs},
-        366 => {'Length'=>[2]+[30]*6+[4]+[30]*6, 'IDs'=>_IDs}
-      },
-      'note'   => 'ShireWeek'
-    }]
-  end
-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
+
+module When
+  class BasicTypes::M17n
+
+    Shire = [self, [
+      "namespace:[cal=http://en.wikipedia.org/wiki/Middle-earth_calendar#]",
+      "locale:[=en:, ja=ja:, zh=zh:, alias]",
+      "names:[Middle-earth=en:Middle-earth_calendar#Shire_calendar, ホビット庄暦=ja:%%<指輪物語>, 中土曆=zh:%%<魔戒>, *alias:Shire]",
+
+      [self,
+        "names:[Festival=,                 祭=                ]",
+        "[%0sYule=en:Yule,                 %0sユール祭=       ]",
+        "[%0sLithe=cal:Hobbit_calendar,    %0sライズ祭=       ]",
+      ],
+
+      [self,
+        "names:[month name=en:Month, 月の名前=ja:%%<月_(暦)>, 該月的名稱=, *alias:Month=]",
+        "[Yule=en:Yule,                    ユール祭=          ]",
+        "[Afteryule=en:Yule,               ユール後月=        ]",
+        "[Solmath=cal:Hobbit_calendar,     ソマス=            ]",
+        "[Rethe=cal:Hobbit_calendar,       レセ=              ]",
+        "[Astron=cal:Hobbit_calendar,      アストロン=        ]",
+        "[Thrimidge=cal:Hobbit_calendar,   スリミッジ=        ]",
+        "[Forelithe=cal:Hobbit_calendar,   ライズ前月=        ]",
+        "[Afterlithe=cal:Hobbit_calendar,  ライズ後月=        ]",
+        "[Wedmath=cal:Hobbit_calendar,     ウェドマス=        ]",
+        "[Halimath=cal:Hobbit_calendar,    ハリマス=          ]",
+        "[Winterfilth=cal:Hobbit_calendar, ウィンターフィルス=]",
+        "[Blotmath=cal:Hobbit_calendar,    ブロドマス=        ]",
+        "[Foreyule=en:Yule,                ユール前月=        ]"
+      ]
+    ]]
+  end
+
+  #
+  # ホビット庄暦の暦週
+  #
+  class CalendarNote::ShireWeek < CalendarNote::Week
+
+    Notes = [When::BasicTypes::M17n, [
+      "locale:[=en:, ja=ja:, alias]",
+      "names:[Shire, ホビット庄暦]",
+
+      # 年の暦注 ----------------------------
+      [When::BasicTypes::M17n,
+        "names:[note for year=, 年の暦注=, *year]"
+      ],
+
+      # 月の暦注 ----------------------------
+      [When::BasicTypes::M17n,
+        "names:[note for month=, 月の暦注=, *month]",
+        [When::BasicTypes::M17n,
+          "names:[month name=en:Month, 月の名前=ja:%%<月_(暦)>, zh:該月的名稱=, *alias:Month=]"
+        ]
+      ],
+
+      # 日の暦注 ----------------------------
+      [When::BasicTypes::M17n,
+        "names:[note for day=, 日の暦注=, *day]",
+        [When::BasicTypes::M17n,
+          "names:[Week, 週, zh:星期]",
+          [DayOfWeek, "label:[Saturday,  土曜日, /date/day_names/6]", {'delta'=>7}],
+          [DayOfWeek, "label:[Sunday,    日曜日, /date/day_names/0]", {'delta'=>7}],
+          [DayOfWeek, "label:[Monday,    月曜日, /date/day_names/1]", {'delta'=>7}],
+          [DayOfWeek, "label:[Tuesday,   火曜日, /date/day_names/2]", {'delta'=>7}],
+          [DayOfWeek, "label:[Wednesday, 水曜日, /date/day_names/3]", {'delta'=>7}],
+          [DayOfWeek, "label:[Thursday,  木曜日, /date/day_names/4]", {'delta'=>7}],
+          [DayOfWeek, "label:[Friday,    金曜日, /date/day_names/5]", {'delta'=>7}],
+          [DayOfWeek, "label:[lithe,     中日= ]", {'delta'=> 365}],
+          [DayOfWeek, "label:[double,    重日= ]", {'delta'=>1827}]
+        ],
+
+        "[Common_Week=]"
+      ]
+    ]]
+
+    # @private
+    FirstDayOfWeek  = [6, 1, 3, 5, 0, 2, 4] * 2
+
+    # @private
+    ExtraDayInYear = {
+      [ 8, 2] => 7,
+      [ 8, 4] => 0
+    }
+
+    # @private
+    WeekLength = {
+      [ 8, 3] => 8,
+      [ 8, 4] => 9
+    }
+
+    # 当日または直前の lithe の日
+    # @param date [When::TM::TemporalPosition]
+    # @param parameter [nil] 未使用
+    # @return [When::TM::TemporalPosition]
+    #
+    def lithe(date, parameter=nil)
+      event_name = 'lithe'
+      date  = date.frame.jul_trans(date, {:events=>[event_name]})
+      y,m,d = date.cal_date
+      m = date.frame.send(:_to_index,[y,m]) + 1
+      h,n   = (m+5).divmod(7)
+      dow   = 182 * h[0] + 30 * n + d + 1
+      if m==8
+        case d
+        when 2 ; dow = 0
+        when 3 ; dow = date.frame._sum([y]) == 365 ? 1 : 0
+        when 4 ; dow = 1
+        end
+      end
+      return date if dow == 0
+      date += When::TM::PeriodDuration.new([0,0,-dow])
+      date.events = [event_name]
+      date
+    end
+
+    # 当日または直前の week_day の日
+    # @method week_day(date, parameter=nil)
+    #   @param [When::TM::TemporalPosition] date
+    #   @param [nil] parameter 未使用
+    #   @return [When::TM::TemporalPosition]
+    #   @note week_day は saturday, sunday, monday, tuesday, wednesday, thursday, friday に読み替えてください。
+
+    # @private
+    7.times do |k|
+      name = When.CalendarNote('ShireWeek/Notes::day::Week')[k].to_s.downcase
+      module_eval %Q{
+        def #{name}(date, parameter=nil)
+          event_name = 'from_#{name}'
+          date  = date.frame.jul_trans(date, {:events=>[event_name], :precision=>When::DAY})
+          y,m,d = date.cal_date
+          m = date.frame.send(:_to_index, [y,m]) + 1
+          h,n   = (m+5).divmod(7)
+          dow   = (182 * h[0] + 30 * n + d - #{k}) % 7
+          case m
+          when 8
+            case d
+            when 2 ; dow = 7 - #{k}
+            when 3 ; dow = (date.frame._sum([y]) == 365 && #{k} == 0) ? 0 : 8 - #{k}
+            when 4 ; dow = #{k} == 0 ? 0 : 9 - #{k}
+            end
+          when 9
+            dow += (date.frame._sum([y]) == 365) ? 1 : 2 if d < #{k}
+          end
+          return date if dow == 0
+          date += When::TM::PeriodDuration.new([0,0,-dow])
+          date.events = [event_name]
+          date
+        end
+      }
+    end
+
+    #
+    # この日は何曜？
+    #
+    # @param [When::TM::TemporalPosition] date
+    # @param [When::TM::CalDate] base (not used)
+    #
+    # @return [Hash<:value=>When::CalendarNote::Week::DayOfWeek, :position=>Array<Integer>>]
+    #
+    def week(date, base=nil)
+      date    = _to_date_for_note(date)
+      y, m, d = date.cal_date
+      m = date.frame.send(:_to_index, [y,m]) + 1
+      length  = WeekLength[[m, date.length(When::MONTH)]] || 7
+      index   = length == 8 ? 0 : 8 if [m,d] == [8,3]
+      index ||= ExtraDayInYear[[m,d]] || (FirstDayOfWeek[m-1] + d - 1) % 7
+      {:value=>@days_of_week[index], :position=>[index, length]}
+    end
+
+    #
+    # 暦日を当該暦注計算用クラスに変換
+    #
+    # @private
+    def _to_date_for_note(date)
+      date = When::Shire ^ date unless date.frame.label.to_s == 'Shire'
+      date
+    end
+
+    # オブジェクトの正規化
+    # @private
+    def _normalize(args=[], options={})
+      @event ||= 'saturday'
+      super
+    end
+  end
+
+  module CalendarTypes
+
+    _shire_indices = [
+      When.Index('Shire::Month', {:base  => 0,
+                                  :branch=>{1=>When.Resource('_m:Shire::Festival::*')[1]}}),
+      When::Coordinates::DefaultDayIndex
+    ]
+
+    _IDs = '0,1,2,3,4,5,6,6=,7,8,9,10,11,12'
+
+    #
+    # Shire Calendar based on summer solstice date
+    #
+    Shire =  [SolarYearTableBased, {
+      'label'   => 'Shire',
+      'indices' => _shire_indices,
+      'border'       => '00-00-02',
+      'engine_day'   =>   -9,           # Jun 1st is 01-09
+      'day_offset'   => -183,           # the day 183 days before summer solstice
+      'cycle_offset' => Rational(1,4),  # summer solstice
+    # 'time_basis'   => '+09:00',       # JST
+      'rule_table'   => {
+        365 => {'Length'=>[2]+[30]*6+[3]+[30]*6, 'IDs'=>_IDs},
+        366 => {'Length'=>[2]+[30]*6+[4]+[30]*6, 'IDs'=>_IDs}
+      },
+      'note'   => 'ShireWeek'
+    }]
+  end
+end