# -*- coding: utf-8 -*-
=begin
  Copyright (C) 2013 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

    MartianTerms = [self, [
      "namespace:[en=http://en.wikipedia.org/wiki/, ja=http://ja.wikipedia.org/wiki/]",
      "locale:[=en:, ja=ja:, alias]",
      "names:[MartianTerms]",
      "[Darian=en:Darian_calendar, ダリアン暦]",

      [self,
        "names:[DarianMonth=, 月=ja:%E6%9C%88_(%E6%9A%A6)]",
        "[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
    end
  end

  module CalendarTypes

    #
    # Darian Week
    #
    class CalendarNote::DarianWeek < CalendarNote::WorldWeek

      NoteObjects = [When::BasicTypes::M17n, [
        "namespace:[en=http://en.wikipedia.org/wiki/, ja=http://ja.wikipedia.org/wiki/]",
        "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]",
            "[Solis,    日曜日]",
            "[Lunae,    月曜日]",
            "[Martis,   火曜日]",
            "[Mercurii, 水曜日]",
            "[Jovis,    木曜日]",
            "[Veneris,  金曜日]",
            "[Saturni,  土曜日]"
          ]
        ]
      ]]

      #
      # 当日または直前の 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
      alias :week :solis

      # @private
      alias :solis_delta :_delta

      private

      # オブジェクトの正規化
      def _normalize(args=[], options={})
        @event ||= 'solis'
        super
      end
    end

    #
    # Martian Time, Coordinated
    #
    class MTC < UTC

      private

      # オブジェクトの正規化
      def _normalize(args=[], options={})
        @label         = m17n('MTC')
        @time_standard = When.Resource("_t:MartianTimeCoordinated")
        super
      end
    end

    #
    # Darian Calendar
    #
    Darian =  [CyclicTableBased, {
      'label' => When.Resource('_m:MartianTerms::Darian'),
      'time_basis'    => 'MTC',
      'origin_of_LSC' =>  -94798,
      'indices' => [
         When::Coordinates::Index.new({:unit =>24, :trunk=>When.Resource('_m:MartianTerms::DarianMonth::*')}),
         When::Coordinates::Index.new
       ],
      '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