when_exe 0.3.6 → 0.3.7

data/lib/when_exe/region/m17n.rb

@@ -1,113 +1,114 @@
-# -*- 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
-  module BasicTypes
-    class M17n
-      #
-      # 月名
-      #
-      # @param [Numeric] name 指定の月番号の月名を返します
-      # @param [When::BasicTypes::M17n] name name 自身をそのまま返します
-      # @param [String] name 最初の3文字から決定した月名を返します。
-      #                      一致する月名がない場合、名前の一致するその他のM17nを探して返します。
-      #
-      # @return [When::BasicTypes::M17n] 月名
-      #
-      def self.month_name(name)
-        return name if name.kind_of?(self)
-
-        months = When.Resource('_m:Calendar::Month').child
-        abbrs  = When.Resource('_m:Calendar::Abbr_Month').child
-        return name > 0 ? months[name-1] : abbrs[-name-1] if name.kind_of?(Numeric)
-
-        name   = When::EncodingConversion.to_internal_encoding(name)
-        match  = name[/^...|^..$/]
-        if match
-          (months+abbrs).each do |month|
-            return month if month.=~(/^#{match}/i)
-          end
-        end
-
-        ObjectSpace.each_object(self) do |object|
-          return object if object.registered? && object.=~(/^#{name}$/)
-        end
-
-        return nil
-      end
-
-      #
-      # 共通的な暦用語
-      # 
-      Calendar = [M17n, [
-        "locale:[=en:, ja=ja:, alias]",
-        "names:[Calendar=]",
-
-        "[Intercalary %s=, *閏]",
-
-        [M17n,
-          "names:[Month, 月=ja:%%<月_(暦)>, /datetime/prompts/month]",
-          "[January,   1月, /date/month_names/1] ",
-          "[February,  2月, /date/month_names/2] ",
-          "[March,     3月, /date/month_names/3] ",
-          "[April,     4月, /date/month_names/4] ",
-          "[May,       5月, /date/month_names/5] ",
-          "[June,      6月, /date/month_names/6] ",
-          "[July,      7月, /date/month_names/7] ",
-          "[August,    8月, /date/month_names/8] ",
-          "[September, 9月, /date/month_names/9] ",
-          "[October,  10月, /date/month_names/10]",
-          "[November, 11月, /date/month_names/11]",
-          "[December, 12月, /date/month_names/12]"
-        ],
-
-        [M17n,
-          "names:[Abbr_Month, 月略称)]",
-          "[Jan,  1月, /date/abbr_month_names/1] ",
-          "[Feb,  2月, /date/abbr_month_names/2] ",
-          "[Mar,  3月, /date/abbr_month_names/3] ",
-          "[Apr,  4月, /date/abbr_month_names/4] ",
-          "[May,  5月, /date/abbr_month_names/5] ",
-          "[Jun,  6月, /date/abbr_month_names/6] ",
-          "[Jul,  7月, /date/abbr_month_names/7] ",
-          "[Aug,  8月, /date/abbr_month_names/8] ",
-          "[Sep,  9月, /date/abbr_month_names/9] ",
-          "[Oct, 10月, /date/abbr_month_names/10]",
-          "[Nov, 11月, /date/abbr_month_names/11]",
-          "[Dec, 12月, /date/abbr_month_names/12]"
-        ]
-      ]]
-
-      # Events
-      EpochEvents = [M17n, [
-        "locale:[=en:, ja=ja:, alias]",
-        "names:[EpochEvents=]",
-        "[Accession=,        代始]",
-        "[FelicitousEvent=,  祥瑞]",
-        "[NaturalDisaster=,  災異]",
-        "[InauspiciousYear=, 革年]",
-        "[Foundation=,       創業]",
-        "[CalendarReform=,   改暦]"
-      ]]
-
-      # Formats
-      CalendarFormats = [M17n, [
-        "locale:[=]",
-        "names:[CalendarFormats=]",
-        "[Date=,          /date/formats/default]",
-        "[DateLong=,      /date/formats/long   ]",
-        "[DateShort=,     /date/formats/short  ]",
-        "[DateTime=,      /time/formats/default]",
-        "[DateTimeLong=,  /time/formats/long   ]",
-        "[DateTimeShort=, /time/formats/short  ]",
-        "[Time=,          /time/formats/time   ]",
-        "[AM=,            /time/am             ]",
-        "[PM=,            /time/pm             ]"
-      ]]
-    end
-  end
-end
+# -*- 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
+  module BasicTypes
+    class M17n
+      #
+      # 月名
+      #
+      # @param [Numeric] name 指定の月番号の月名を返します
+      # @param [When::BasicTypes::M17n] name name 自身をそのまま返します
+      # @param [String] name 最初の3文字から決定した月名を返します。
+      #                      一致する月名がない場合、名前の一致するその他のM17nを探して返します。
+      #
+      # @return [When::BasicTypes::M17n] 月名
+      #
+      def self.month_name(name)
+        return name if name.kind_of?(self)
+
+        months = When.Resource('_m:Calendar::Month').child
+        abbrs  = When.Resource('_m:Calendar::Abbr_Month').child
+        return name > 0 ? months[name-1] : abbrs[-name-1] if name.kind_of?(Numeric)
+
+        name   = When::EncodingConversion.to_internal_encoding(name)
+        match  = name[/\A...|^..\z/]
+        if match
+          (months+abbrs).each do |month|
+            return month if month.=~(/\A#{match}/i)
+          end
+        end
+
+        ObjectSpace.each_object(self) do |object|
+          return object if object.registered? && object.=~(/\A#{name}\z/)
+        end
+
+        return nil
+      end
+
+      #
+      # 共通的な暦用語
+      # 
+      Calendar = [M17n, [
+        "locale:[=en:, ja=ja:, alias]",
+        "names:[Calendar=]",
+
+        "[Intercalary %s=, *閏]",
+
+        [M17n,
+          "names:[Month, 月=ja:%%<月_(暦)>, /datetime/prompts/month]",
+          "[January,   1月, /date/month_names/1] ",
+          "[February,  2月, /date/month_names/2] ",
+          "[March,     3月, /date/month_names/3] ",
+          "[April,     4月, /date/month_names/4] ",
+          "[May,       5月, /date/month_names/5] ",
+          "[June,      6月, /date/month_names/6] ",
+          "[July,      7月, /date/month_names/7] ",
+          "[August,    8月, /date/month_names/8] ",
+          "[September, 9月, /date/month_names/9] ",
+          "[October,  10月, /date/month_names/10]",
+          "[November, 11月, /date/month_names/11]",
+          "[December, 12月, /date/month_names/12]"
+        ],
+
+        [M17n,
+          "names:[Abbr_Month, 月略称)]",
+          "[Jan,  1月, /date/abbr_month_names/1] ",
+          "[Feb,  2月, /date/abbr_month_names/2] ",
+          "[Mar,  3月, /date/abbr_month_names/3] ",
+          "[Apr,  4月, /date/abbr_month_names/4] ",
+          "[May,  5月, /date/abbr_month_names/5] ",
+          "[Jun,  6月, /date/abbr_month_names/6] ",
+          "[Jul,  7月, /date/abbr_month_names/7] ",
+          "[Aug,  8月, /date/abbr_month_names/8] ",
+          "[Sep,  9月, /date/abbr_month_names/9] ",
+          "[Oct, 10月, /date/abbr_month_names/10]",
+          "[Nov, 11月, /date/abbr_month_names/11]",
+          "[Dec, 12月, /date/abbr_month_names/12]"
+        ]
+      ]]
+
+      # Events
+      EpochEvents = [M17n, [
+        "locale:[=en:, ja=ja:, alias]",
+        "names:[EpochEvents=]",
+        "[Accession=,        代始]",
+        "[FelicitousEvent=,  祥瑞]",
+        "[NaturalDisaster=,  災異]",
+        "[InauspiciousYear=, 革年]",
+        "[Foundation=,       創業]",
+        "[CalendarReform=,   改暦]",
+        "[CalendarEpoch=,    暦元]"
+      ]]
+
+      # Formats
+      CalendarFormats = [M17n, [
+        "locale:[=]",
+        "names:[CalendarFormats=]",
+        "[Date=,          /date/formats/default]",
+        "[DateLong=,      /date/formats/long   ]",
+        "[DateShort=,     /date/formats/short  ]",
+        "[DateTime=,      /time/formats/default]",
+        "[DateTimeLong=,  /time/formats/long   ]",
+        "[DateTimeShort=, /time/formats/short  ]",
+        "[Time=,          /time/formats/time   ]",
+        "[AM=,            /time/am             ]",
+        "[PM=,            /time/pm             ]"
+      ]]
+    end
+  end
+end

data/lib/when_exe/region/martian.rb

@@ -1,255 +1,258 @@
-# -*- coding: utf-8 -*-
-=begin
-  Copyright (C) 2013-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
-
-    Martian = [self, [
-      "locale:[=en:, ja=ja:, alias]",
-      "names:[Martian=]",
-      "[Darian=en:Darian_calendar, ダリアン暦]",
-
-      [self,
-        "names:[DarianMonth=, 月=ja:%%<月_(暦)>]",
-        "[Sagittarius, いて=    ]",
-        "[Dhanus=,     人馬=    ]",
-        "[Capricornus, やぎ=    ]",
-        "[Makara=,     磨羯=    ]",
-        "[Aquarius,    みずがめ=]",
-        "[Kumbha=,     宝瓶=    ]",
-        "[Pisces,      うお=    ]",
-        "[Mina=,       双魚=    ]",
-        "[Aries,       おひつじ=]",
-        "[Mesha=,      白羊=    ]",
-        "[Taurus,      おうし=  ]",
-        "[Rishabha=,   金牛=    ]",
-        "[Gemini,      ふたご=  ]",
-        "[Mithuna=,    双児=    ]",
-        "[Cancer,      かに=    ]",
-        "[Karka=,      巨蟹=    ]",
-        "[Leo,         しし=    ]",
-        "[Simha=,      獅子=    ]",
-        "[Virgo,       おとめ=  ]",
-        "[Kanya=,      処女=    ]",
-        "[Libra,       てんびん=]",
-        "[Tula=,       天秤=    ]",
-        "[Scorpius,    さそり=  ]",
-        "[Vrishika=,   天蠍=    ]"
-      ]
-    ]]
-  end
-
-  module TimeStandard
-
-    #
-    #  Martian Time, Coordinated
-    #
-    class MartianTimeCoordinated < TimeStandard
-
-      J2000Jan6 = 2451549.5
-      Ratio     = 1.02749125
-      MTC0      = 44796.0 - 0.0002 - 0.5
-
-      # 当該時刻系の日付を dynamical date に変換する
-      #
-      # @param [Numeric] date 当該時刻系の日付
-      #
-      # @return [Numeric] dynamical date
-      #
-      def to_dynamical_date(date)
-        (date - @mtc0) * Ratio + J2000Jan6
-      end
-
-      # dynamical date を当該時刻系の日付に変換する
-      #
-      # @param [Numeric] date dynamical date
-      #
-      # @return [Numeric] 当該時刻系の日付
-      #
-      def from_dynamical_date(date)
-        (date - J2000Jan6) / Ratio + @mtc0
-      end
-
-      # universal time を dynamical time に変換する
-      #
-      # @param [Numeric] time universal time
-      #
-      # @return [Numeric] dynamical time
-      #
-      def to_dynamical_time(time)
-        When::TM::JulianDate._d_to_t(
-          to_dynamical_date(
-            When::TM::JulianDate._t_to_d(time)))
-      end
-
-      # dynamical time を universal time に変換する
-      #
-      # @param [Numeric] time dynamical time
-      #
-      # @return [Numeric] universal time
-      #
-      def from_dynamical_time(time)
-        When::TM::JulianDate._d_to_t(
-          from_dynamical_date(
-            When::TM::JulianDate._t_to_d(time)))
-      end
-
-      private
-
-      # オブジェクトの正規化
-      def _normalize(args=[], options={})
-        @location = When.Resource(@location || '_l:long=0&lat=0&datum=Mars')
-        @mtc0     = MTC0 + @location.long / (360.0 * When::Coordinates::Spatial::DEGREE)
-        super
-      end
-    end
-  end
-
-  class CalendarNote
-
-    #
-    # Darian Week
-    #
-    class DarianWeek < WorldWeek
-
-      Notes = [When::BasicTypes::M17n, [
-        "locale:[=en:, ja=ja:, alias]",
-        "names:[Darian]",
-
-        # 年の暦注 ----------------------------
-        [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:[Solis=,    日曜日]", {'delta'=>7}],
-            [DayOfWeek, "label:[Lunae=,    月曜日]", {'delta'=>7}],
-            [DayOfWeek, "label:[Martis=,   火曜日]", {'delta'=>7}],
-            [DayOfWeek, "label:[Mercurii=, 水曜日]", {'delta'=>7}],
-            [DayOfWeek, "label:[Jovis=,    木曜日]", {'delta'=>7}],
-            [DayOfWeek, "label:[Veneris=,  金曜日]", {'delta'=>7}],
-            [DayOfWeek, "label:[Saturni=,  土曜日]", {'delta'=>7}]
-          ]
-        ]
-      ]]
-
-      #
-      # 当日または直前の solis の日
-      #
-      # @param date [When::TM::TemporalPosition]
-      # @param parameter [nil] 未使用
-      #
-      # @return [When::TM::TemporalPosition]
-      #
-      def solis(date, parameter=nil)
-        date  = When.Calendar('Darian').jul_trans(date, {:events=>['from_solis']})
-        y,m,d = date.cal_date
-        dow   = (d-1) % 7
-        return date if dow == 0
-        date += When::TM::PeriodDuration.new([0,0,-dow])
-        date.events = ['from_solis']
-        date
-      end
-
-      #
-      # この日は何曜？
-      #
-      # @param [When::TM::TemporalPosition] date
-      # @param [When::TM::CalDate] base (not used)
-      #
-      # @return [Array<When::CalendarNote::Week::DayOfWeek, Array<Integer,Integer>>]
-      #
-      def week(date, base=nil)
-        date  = _to_date_for_note(date)
-        index = (date.cal_date.last - 1) % 7
-        [@days_of_week[index], [index, 7]]
-      end
-
-      #
-      # 曜日の名前の一覧
-      #
-      # @param [When::TM::TemporalPosition] date (ダミー)
-      #
-      # @return [Array<When::CalendarNote::Week::DayOfWeek>]
-      #
-      def week_labels(date)
-        @days_of_week.child
-      end
-
-      #
-      # 暦日を当該暦注計算用クラスに変換
-      #
-      # @private
-      def _to_date_for_note(date)
-        date = When::Darian ^ date unless date.frame.label.to_s == 'Darian'
-        date
-      end
-
-      private
-
-      # オブジェクトの正規化
-      def _normalize(args=[], options={})
-        @event  ||= 'solis'
-        super
-      end
-    end
-  end
-
-  module CalendarTypes
-
-    #
-    # Martian Time, Coordinated
-    #
-    class MTC < LocalTime
-
-      private
-
-      # オブジェクトの正規化
-      def _normalize(args=[], options={})
-        @label         = m17n('MTC')
-        @time_standard = When.Resource("_t:MartianTimeCoordinated?location=(_l:long=#{@long||0}&datum=Mars)")
-        super
-      end
-    end
-
-    #
-    # Darian Calendar
-    #
-    Darian =  [CyclicTableBased, {
-      'label'         => 'Martian::Darian',
-      'time_basis'    => 'MTC',
-      'origin_of_LSC' =>  -94798,
-      'indices' => [
-         When.Index('Martian::DarianMonth', {:unit =>24}),
-         When::Coordinates::DefaultDayIndex
-       ],
-      'rule_table' => {
-        'T'             => {'Rule' =>['LongCentury', ['ShortCentury', 4]]},
-        'LongCentury'   => {'Rule' =>[               ['LongDecade',  10]]},
-        'ShortCentury'  => {'Rule' =>['ShortDecade', ['LongDecade',   9]]},
-        'LongDecade'    => {'Rule' =>[669] * 2 + [668, 669] * 4 }, 
-        'ShortDecade'   => {'Rule' =>            [668, 669] * 5 },
-        668  => {'Length'=>[28, 28, 28, 28, 28, 27] * 4           },
-        669  => {'Length'=>[28, 28, 28, 28, 28, 27] * 3 + [28] * 6}
-      },
-      'note'   => 'DarianWeek'
-    }]
-  end
-end
+# -*- coding: utf-8 -*-
+=begin
+  Copyright (C) 2013-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
+
+    Martian = [self, [
+      "locale:[=en:, ja=ja:, alias]",
+      "names:[Martian=]",
+      "[Darian=en:Darian_calendar, ダリアン暦]",
+
+      [self,
+        "names:[DarianMonth=, 月=ja:%%<月_(暦)>]",
+        "[Sagittarius, いて=    ]",
+        "[Dhanus=,     人馬=    ]",
+        "[Capricornus, やぎ=    ]",
+        "[Makara=,     磨羯=    ]",
+        "[Aquarius,    みずがめ=]",
+        "[Kumbha=,     宝瓶=    ]",
+        "[Pisces,      うお=    ]",
+        "[Mina=,       双魚=    ]",
+        "[Aries,       おひつじ=]",
+        "[Mesha=,      白羊=    ]",
+        "[Taurus,      おうし=  ]",
+        "[Rishabha=,   金牛=    ]",
+        "[Gemini,      ふたご=  ]",
+        "[Mithuna=,    双児=    ]",
+        "[Cancer,      かに=    ]",
+        "[Karka=,      巨蟹=    ]",
+        "[Leo,         しし=    ]",
+        "[Simha=,      獅子=    ]",
+        "[Virgo,       おとめ=  ]",
+        "[Kanya=,      処女=    ]",
+        "[Libra,       てんびん=]",
+        "[Tula=,       天秤=    ]",
+        "[Scorpius,    さそり=  ]",
+        "[Vrishika=,   天蠍=    ]"
+      ]
+    ]]
+  end
+
+  module TimeStandard
+
+    #
+    #  Martian Time, Coordinated
+    #
+    class MartianTimeCoordinated < TimeStandard
+
+      J2000Jan6 = 2451549.5
+      Ratio     = 1.02749125
+      MTC0      = 44796.0 - 0.0002 - 0.5
+
+      # 当該時刻系の日付を dynamical date に変換する
+      #
+      # @param [Numeric] date 当該時刻系の日付
+      #
+      # @return [Numeric] dynamical date
+      #
+      def to_dynamical_date(date)
+        (date - @mtc0) * Ratio + J2000Jan6
+      end
+
+      # dynamical date を当該時刻系の日付に変換する
+      #
+      # @param [Numeric] date dynamical date
+      #
+      # @return [Numeric] 当該時刻系の日付
+      #
+      def from_dynamical_date(date)
+        (date - J2000Jan6) / Ratio + @mtc0
+      end
+
+      # universal time を dynamical time に変換する
+      #
+      # @param [Numeric] time universal time
+      #
+      # @return [Numeric] dynamical time
+      #
+      def to_dynamical_time(time)
+        When::TM::JulianDate._d_to_t(
+          to_dynamical_date(
+            When::TM::JulianDate._t_to_d(time)))
+      end
+
+      # dynamical time を universal time に変換する
+      #
+      # @param [Numeric] time dynamical time
+      #
+      # @return [Numeric] universal time
+      #
+      def from_dynamical_time(time)
+        When::TM::JulianDate._d_to_t(
+          from_dynamical_date(
+            When::TM::JulianDate._t_to_d(time)))
+      end
+
+      private
+
+      # オブジェクトの正規化
+      def _normalize(args=[], options={})
+        @location = When.Resource(@location || '_l:long=0&lat=0&datum=Mars')
+        @mtc0     = MTC0 + @location.long / (360.0 * When::Coordinates::Spatial::DEGREE)
+        super
+      end
+    end
+  end
+
+  class CalendarNote
+
+    #
+    # Darian Week
+    #
+    class DarianWeek < WorldWeek
+
+      Notes = [When::BasicTypes::M17n, [
+        "locale:[=en:, ja=ja:, alias]",
+        "names:[Darian]",
+
+        # 年の暦注 ----------------------------
+        [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:[Solis=,    日曜日]", {'delta'=>7}],
+            [DayOfWeek, "label:[Lunae=,    月曜日]", {'delta'=>7}],
+            [DayOfWeek, "label:[Martis=,   火曜日]", {'delta'=>7}],
+            [DayOfWeek, "label:[Mercurii=, 水曜日]", {'delta'=>7}],
+            [DayOfWeek, "label:[Jovis=,    木曜日]", {'delta'=>7}],
+            [DayOfWeek, "label:[Veneris=,  金曜日]", {'delta'=>7}],
+            [DayOfWeek, "label:[Saturni=,  土曜日]", {'delta'=>7}]
+          ]
+        ]
+      ]]
+
+      #
+      # 当日または直前の solis の日
+      #
+      # @param date [When::TM::TemporalPosition]
+      # @param parameter [nil] 未使用
+      #
+      # @return [When::TM::TemporalPosition]
+      #
+      def solis(date, parameter=nil)
+        date  = When.Calendar('Darian').jul_trans(date, {:events=>['from_solis']})
+        y,m,d = date.cal_date
+        dow   = (d-1) % 7
+        return date if dow == 0
+        date += When::TM::PeriodDuration.new([0,0,-dow])
+        date.events = ['from_solis']
+        date
+      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)
+        index = (date.cal_date.last - 1) % 7
+        {:value=>@days_of_week[index], :position=>[index, 7]}
+      end
+
+      #
+      # 曜日の名前の一覧
+      #
+      # @param [When::TM::TemporalPosition] date (ダミー)
+      #
+      # @return [Array<When::CalendarNote::Week::DayOfWeek>]
+      #
+      def week_labels(date)
+        @days_of_week.child
+      end
+
+      #
+      # 暦日を当該暦注計算用クラスに変換
+      #
+      # @private
+      def _to_date_for_note(date)
+        date = When::Darian ^ date unless date.frame.label.to_s == 'Darian'
+        date
+      end
+
+      private
+
+      # オブジェクトの正規化
+      def _normalize(args=[], options={})
+        @event  ||= 'solis'
+        super
+      end
+    end
+  end
+
+  module CalendarTypes
+
+    #
+    # Martian Time, Coordinated
+    #
+    class MTC < UTC
+
+      private
+
+      # オブジェクトの正規化
+      def _normalize(args=[], options={})
+        label  = 'MTC'
+        long   = @long||0
+        label += "?long=#{long}" unless long.to_f == 0
+        @label = m17n(label)
+        @time_standard = When.Resource("_t:MartianTimeCoordinated?location=(_l:long=#{long}&datum=Mars)")
+        super
+      end
+    end
+
+    #
+    # Darian Calendar
+    #
+    Darian =  [CyclicTableBased, {
+      'label'         => 'Martian::Darian',
+      'time_basis'    => 'MTC',
+      'origin_of_LSC' =>  -94798,
+      'indices' => [
+         When.Index('Martian::DarianMonth', {:unit =>24}),
+         When::Coordinates::DefaultDayIndex
+       ],
+      'rule_table' => {
+        'T'             => {'Rule' =>['LongCentury', ['ShortCentury', 4]]},
+        'LongCentury'   => {'Rule' =>[               ['LongDecade',  10]]},
+        'ShortCentury'  => {'Rule' =>['ShortDecade', ['LongDecade',   9]]},
+        'LongDecade'    => {'Rule' =>[669] * 2 + [668, 669] * 4 }, 
+        'ShortDecade'   => {'Rule' =>            [668, 669] * 5 },
+        668  => {'Length'=>[28, 28, 28, 28, 28, 27] * 4           },
+        669  => {'Length'=>[28, 28, 28, 28, 28, 27] * 3 + [28] * 6}
+      },
+      'note'   => 'DarianWeek'
+    }]
+  end
+end