when_exe 0.3.5 → 0.3.6

data/lib/when_exe/region/vietnamese.rb

@@ -5,18 +5,12 @@
   You may use and/or modify this file according to the license described in the LICENSE.txt file included in this archive.
 =end
 
-require 'when_exe/region/chinese_calendar'
+require 'when_exe/region/chinese/calendars'
 
 module When
 
   module CalendarTypes
 
-    _Indices = [
-      Coordinates::Index.new({:branch=>{1=>When.Resource('_m:CalendarTerms::閏')},
-                              :trunk=>When.Resource('_m:ChineseTerms::Month::*')}),
-      Coordinates::DefaultDayIndex
-    ]
-
     _year1884 = {
       'Years'  =>   1,
       'Months' =>  13,
@@ -36,7 +30,8 @@ module When
 
     # 欽授暦 1544 - 1788
     Vietnamese1544 = [PatternTableBasedLuniSolar, {
-      'origin_of_MSC'=>1544, 'origin_of_LSC'=>2285027, 'indices'=> _Indices,
+      'origin_of_MSC'=>1544, 'origin_of_LSC'=>2285027, 'indices'=> ChineseIndices,
+      'before' => 'Chinese0939', 'after' => 'Vietnamese1789',
       'rule_table'=> %w(				AbCdEFgHiJkL	aAbCdEfGHiJKl
 	aBcdEfGHIjKL	abCdeFgHIiJKL	abCdeFgHiJKL	aBcDefGhIjKL	AbCdEffGhIjKl
 
@@ -97,7 +92,8 @@ module When
 
     # 西山朝の暦 1789-1801
     Vietnamese1789 = [PatternTableBasedLuniSolar, {
-      'origin_of_MSC'=>1789, 'origin_of_LSC'=>2374505, 'indices'=> _Indices,
+      'origin_of_MSC'=>1789, 'origin_of_LSC'=>2374505, 'indices'=> ChineseIndices,
+      'before' => 'Vietnamese1544', 'after' => 'Vietnamese1631',
       'rule_table'=> %w(				ABcDeeFgHiJkL	AbCDefGhIjKl
 	AbCDeFgHiJkL	aBcDdEFgHiJkL	aBcdEFgHIjKl	AbcDeFgHIJkL	aBbcDeFgHIjKL
 	aBcDefgHIjKL	AbCdEffgHiJKL	aBCdeFghIjKL	aBCdEfGhIjkL	AbCdDEfGhIjKl
@@ -108,7 +104,8 @@ module When
 
     # 萬全暦 1631-1812
     Vietnamese1631 = [PatternTableBasedLuniSolar, {
-      'origin_of_MSC'=>1631, 'origin_of_LSC'=>2316802, 'indices'=> _Indices,
+      'origin_of_MSC'=>1631, 'origin_of_LSC'=>2316802, 'indices'=> ChineseIndices,
+      'before' => 'Vietnamese1544', 'after' => 'Vietnamese1813',
       'rule_table'=> %w(
 	ABcDeFgHiJklL	AbCDeFgHiJkL	aBcDeFGhIjKl	AbcDeFGhHIjKl	AbcDeFgHIjKL
 	aBcdEfgHIjKL	AbCddEfgHiJKL	AbCdeFghIjKL	AbCDefGhiJkL	AaBCdEfGhIjkL
@@ -156,7 +153,8 @@ module When
 
     # 協紀暦以降 1813-2030
     Vietnamese1813 = [PatternTableBasedLuniSolarExtended, {
-      'origin_of_MSC'=>1813, 'origin_of_LSC'=>2383276, 'indices'=> _Indices,
+      'origin_of_MSC'=>1813, 'origin_of_LSC'=>2383276, 'indices'=> ChineseIndices,
+      'before' => 'Vietnamese1631', 'after' => 'ChineseLuniSolar?time_basis=+07',
       'rule_table'=> %w(		AbCdefGhIJKl	ABbCdefGhIJkL	ABcdEfgHiJkL
 	ABcDeFfgHiJkL	AbCDeFgHijKl	AbCDeFGhIjkL	aBcDdEFgHIjKl	aBcDeFgHIJkL
 	abCdeFgHIJkL	AbCcdeFgHIjKL	AbCdefGhIjKL	AbCdEfgGhIjKL	AbCdEfgHiJkL
@@ -223,7 +221,6 @@ module When
                           'VSL'   => {'A'=>'1073', 'B'=>'1075', 'C'=>'1137.09', 'D'=>'1140.01', 'E'=>'1225.06'}},
                    'DN'=>{'KDVNT' => {'Z'=>'Chinese1645',  },
                           'LDNK'  => {'Z'=>'Vietnamese1813'}}}, self, [
-      "namespace:[ja=http://ja.wikipedia.org/wiki/, en=http://en.wikipedia.org/wiki/]",
       "locale:[=ja:, en=en:, alias]",
       'area:[ベトナム#{?LY=LY}#{&DN=DN}=ja:%%<元号>#%.<ベトナム>,Vietnam#{?LY=LY}#{&DN=DN}=en:Vietnam]',
       [self,

data/lib/when_exe/region/weekdate.rb

@@ -0,0 +1,80 @@
+# -*- 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
+
+module When
+
+  class BasicTypes::M17n
+
+    WeekDate = [self, [
+      "locale:[=en:, ja]",
+      "names:[WeekDate=en:ISO_week_date, 暦週=]",
+      [self, "names:[week]"] + (1...100).to_a.map {|m| "Week #{m}"},
+    ]]
+  end
+
+  module CalendarTypes
+
+    #
+    # Week Date Calendar
+    #
+    class WeekDate < TableBased
+
+      private
+
+      #
+      # Object Normalization
+      #
+      def _normalize(args=[], options={})
+        @label    ||= 'WeekDate'
+        @period   ||= 7  # length of week
+        @first    ||= 0  # first day of week 
+        @margin   ||= 3  # first day of year
+        @strftime ||= @period < 10 ? '%Y-W%m-%q' : '%Y-W%m-%d'
+        @engine   ||= 'Gregorian'
+        @engine     = When.Calendar(@engine)
+        @indices  ||= [
+          When.Index('WeekDate::week'),
+          When::Coordinates::DefaultDayIndex
+        ]
+        @rule_table ||= _generate_rule
+        raise ArgumentError, 'Too many weeks in a year' if @rule_table.keys.max / @period >= 100
+        super
+      end
+
+      # 年初の通日
+      #
+      # @param [Array<Numeric>] date ( 年 )
+      #
+      # @return [Integer] 年初の通日
+      #
+      def _sdn_(date)
+        year  = +date[0] - @engine.origin_of_MSC
+        sdn0  =  @margin + @engine._coordinates_to_number(year, 0, 0)
+        sdn1  =  @first  + @period * sdn0.div(@period)
+        sdn1 -=  @period if sdn1 > sdn0
+        sdn1
+      end
+
+      # @private
+      def _generate_rule
+        hash = {}
+        _week_number_range.each do |length|
+          hash[@period * length] = {'Length'=>[@period] * length}
+        end
+        hash
+      end
+
+      # @private
+      def _week_number_range
+        return 52..53 if @engine.kind_of?(When::CalendarTypes::Christian)
+        starts  = (0..19).to_a.map {|year| @engine._coordinates_to_number(year, 0, 0)}
+        lengths = (0..18).to_a.map {|year| starts[year+1] - starts[year]}
+        (lengths.min / @period)..((lengths.max + @period - 1) / @period)
+      end
+    end
+  end
+end

data/lib/when_exe/region/world.rb

@@ -9,31 +9,22 @@ module When
 
   class BasicTypes::M17n
 
-    WorldTerms = [self, [
-      "namespace:[en=http://en.wikipedia.org/wiki/, ja=http://ja.wikipedia.org/wiki/]",
+    World = [self, [
       "locale:[=en:, ja=ja:, alias]",
-      "names:[WorldTerms=]",
+      "names:[World=]",
       "[World=en:The_World_Calendar, 世界暦]"
     ]]
   end
 
-  class TM::CalendarEra
-
-    World = [self, [
-      "namespace:[en=http://en.wikipedia.org/wiki/]",
-      "area:[Common=]",
-      ["[BCE=en:BCE_(disambiguation), alias:BeforeCommonEra]0.1.1"],
-      ["[CE=en:Common_Era, alias:CommonEra]1.1.1", "Calendar Epoch", "01-01-01^World"]
-    ]]
-  end
-
   #
   # 世界暦の暦週
   #
-  class CalendarNote::WorldWeek < CalendarNote
+  class CalendarNote::WorldWeek < CalendarNote::Week
 
-    NoteObjects = [When::BasicTypes::M17n, [
-      "namespace:[en=http://en.wikipedia.org/wiki/, ja=http://ja.wikipedia.org/wiki/]",
+    #
+    # 暦注要素の定義
+    #
+    Notes = [When::BasicTypes::M17n, [
       "locale:[=en:, ja=ja:, alias]",
       "names:[World]",
 
@@ -55,32 +46,40 @@ module When
         "names:[day]",
         [When::BasicTypes::M17n,
           "names:[Week]",
-          "[Sunday,    日曜日]",
-          "[Monday,    月曜日]",
-          "[Tuesday,   火曜日]",
-          "[Wednesday, 水曜日]",
-          "[Thursday,  木曜日]",
-          "[Friday,    金曜日]",
-          "[Saturday,  土曜日]",
-          "[Worldsday, 無曜日]"
-        ]
+          [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:[Saturday,  土曜日]", {'delta'=>7}],
+          [DayOfWeek, "label:[Worldsday, 無曜日]", {'delta'=>183}],
+        ],
+
+        "[Standard_Week]"
       ]
     ]]
 
-    # イベントの標準的な間隔を返す
     # @private
-    def _delta(parameter=nil)
-      return When::DurationP1W
-    end
+    FirstDayOfWeek = [0, 3, 5] * 4
 
     # @private
-    def worldsday_delta(parameter=nil)
-      return When::TM::PeriodDuration.new([0,0,7*26+1])
-    end
+    ExtraDayInYear = {
+      [ 6, 31] => 7,
+      [12, 31] => 7
+    }
+
+    # @private
+    WeekLength = {
+      [ 6, 30] => 7,
+      [ 6, 31] => 8,
+      [12, 30] => 8,
+      [12, 31] => 8
+    }
 
     # 当日または直前の worldsday の日
-    # @param date [When::TM::TemporalPosition]
-    # @param parameter [nil] 未使用
+    # @param [When::TM::TemporalPosition] date
+    # @param [nil] parameter 未使用
     # @return [When::TM::TemporalPosition]
     #
     def worldsday(date, parameter=nil)
@@ -98,14 +97,14 @@ module When
 
     # 当日または直前の week_day の日
     # @method week_day(date, parameter=nil)
-    #   @param date [When::TM::TemporalPosition]
-    #   @param parameter [nil] 未使用
+    #   @param [When::TM::TemporalPosition] date
+    #   @param [nil] parameter 未使用
     #   @return [When::TM::TemporalPosition]
     #   @note week_day は sunday, monday, tuesday, wednesday, thursday, friday, saturday に読み替えてください。
 
     # @private
     7.times do |k|
-      name = When.CalendarNote('WorldWeek/NoteObjects::day::Week')[k].to_s.downcase
+      name = When.CalendarNote('WorldWeek/Notes::day::Week')[k].to_s.downcase
       module_eval %Q{
         def #{name}(date, parameter=nil)
           event_name = 'from_#{name}'
@@ -118,12 +117,35 @@ module When
           date.events = [event_name]
           date
         end
-
-        alias :#{name}_delta :_delta
       }
     end
 
-    alias :week :sunday
+    #
+    # この日は何曜？
+    #
+    # @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
+      index   = ExtraDayInYear[[m,d]] || (FirstDayOfWeek[m-1] + d - 1) % 7
+      length  = WeekLength[[m, date.length(When::MONTH)]] || 7
+      {:value=>@days_of_week[index], :position=>[index, length]}
+    end
+
+    #
+    # 暦日を当該暦注計算用クラスに変換
+    #
+    # @private
+    def _to_date_for_note(date)
+      date = When::World ^ date unless date.frame.equal?(When::World)
+      date
+    end
+
+    private
 
     # オブジェクトの正規化
     # @private
@@ -131,29 +153,6 @@ module When
       @event ||= 'sunday'
       super
     end
-
-    #
-    # イベントを取得する Enumerator
-    #
-    class Enumerator < When::CalendarNote::Enumerator
-
-      #
-      # 次のイベントを得る
-      #
-      # @return [When::TM::TemporalPosition]
-      #
-      def succ
-        value = @current
-        if @current==:first
-          @first   = event_eval(@first) if @delta.sign < 0
-          @current = @first
-        else
-          @current = event_eval(@current + @delta)
-          @current = event_eval(@current + @delta * 2) if @current.to_i == value.to_i
-        end
-        return value
-      end
-    end
   end
 
   module CalendarTypes
@@ -161,13 +160,9 @@ module When
     # World calendar based on Gregorian calendar
     #
     World =  [CyclicTableBased, {
-      'label'   => When.Resource('_m:WorldTerms::World'),
-      'origin_of_LSC'  => 1721060,
-      'indices' => [
-         Coordinates::Index.new({:unit =>12, :trunk=>When.Resource('_m:CalendarTerms::Month::*')}),
-         Coordinates::DefaultDayIndex
-       ],
-      'rule_table'      => {
+      'label'   => 'World::World',
+      'origin_of_LSC'    => 1721060,
+      'rule_table'       => {
         'T'  => {'Rule'  =>['LC', 'SC', 'SC', 'SC']},
         'SC' => {'Rule'  =>[365]*4 + [366, 365, 365, 365]*24},
         'LC' => {'Rule'  =>[366, 365, 365, 365]*25},

data/lib/when_exe/region/yerm.rb

@@ -0,0 +1,98 @@
+# -*- 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
+
+=begin
+  References
+
+ (1) http://calendars.wikia.com/wiki/Yerm_Lunar_Calendar
+ (2) http://www.hermetic.ch/cal_stud/palmen/yerm1.htm
+=end
+
+module When
+
+  class BasicTypes::M17n
+
+    Yerm = [self, [
+      "locale:[=en:, ja]",
+      "names:[Yerm=]",
+      "[YermLunar=http://calendars.wikia.com/wiki/Yerm_Lunar_Calendar, ヤーム=]",
+
+      [Coordinates::Residue, "label:[yerm=]", "divisor:52", "year:0", "format:[%s=]"] +
+      (1..52).to_a.map {|y|  [Coordinates::Residue, "label:[Yerm #{y}=]", "remainder:#{y-1}"]},
+      [self, "names:[month]"] + (1..17).to_a.map {|m| "Month #{m}"},
+      [self, "names:[night]"] + (1..30).to_a.map {|m| "Night #{m}"}
+    ]]
+  end
+
+  module CalendarTypes
+
+    #
+    # Yerm Lunar Calendar
+    #
+    class Yerm < CyclicTableBased
+
+      #
+      # Analyze notation with crescent
+      #
+      # @param [String] source Notation with crescents
+      # @param [Array<Integer>] Upper default elements (default - today's Yerm date)
+      #
+      # @return [String] Notation with hyphens
+      #
+      def self.parse(source, abbr=nil)
+        c, y, m, d = abbr || (When::Yerm^When.today).cal_date
+        case source
+        when /^(-?\d+)[-\(](\d+)\((\d+)\((\d+)$/; c, y, m, d = [$1, $2, $3, $4]
+        when /^(-?\d+)-(\d+)\((\d+)$/           ; c, y, m, d = [$1, $2, $3    ]
+        when /^(-?\d+)-(\d+)$/                  ; c, y, m, d = [$1, $2        ]
+        when /^(-?\d+)-$/                       ; c, y, m, d = [$1            ]
+        when /^(\d+)\((\d+)\((\d+)$/            ;    y, m, d = [    $1, $2, $3]
+        when /^(\d+)\((\d+)$/                   ;       m, d = [        $1, $2]
+        when /^(\d+)$/                          ;          d =              $1
+
+        when /^(\d+)\)(\d+)\)(\d+)[-\)](-?\d+)$/; c, y, m, d = [$4, $3, $2, $1]
+        when /^(\d+)\)(\d+)-(-?\d+)$/           ; c, y, m, d = [$3, $2, $1    ]
+        when /^(\d+)-(-\d+)$/                   ; c, y, m, d = [$2, $1        ]
+        when /^(-\d+)$/                         ; c, y, m, d = [$1            ]
+        when /^(\d+)\)(\d+)\)(\d+)$/            ;    y, m, d = [    $3, $2, $1]
+        when /^(\d+)\)(\d+)$/                   ;       m, d = [        $2, $1]
+        else                                    ; c, y, m, d = [              ]
+        end
+
+        ordered = [c, y, m, d]
+        ordered.pop until ordered.last
+        raise ArgumentError, "can't parse #{source}" if ordered.empty? || ordered.include?(nil)
+        ordered.map {|n| n.to_s}.join('-')
+      end
+
+      private
+
+      #
+      # Object Normalization
+      #
+      def _normalize(args=[], options={})
+        @label         ||= 'Yerm::YermLunar'
+        @origin_of_LSC ||= 1948379 - 25101 # 622-05-16 Base Cycle = No.1
+        @note          ||= [['_m:Yerm::yerm'],
+                            ['_m:Calendar::Month'],
+                            ['_co:Common::Week', '_n:Ephemeris/Notes::day::Moon_Age']]
+        @indices       ||= [
+          When.Index('Yerm::yerm', {:unit =>52}),
+          When.Index('Yerm::month'),
+          When.Index('Yerm::night')
+        ]
+        @rule_table    ||= {
+          'T' => {'Rule'  =>['L', 'L', 'S'] * 17 + ['L']},
+          'L' => {'Length'=>[30, 29] * 8 + [30]},
+          'S' => {'Length'=>[30, 29] * 7 + [30]}
+        }
+        @strftime = @strftime && @strftime.upcase == 'REVERSE' ? '%d)%m)%y' : '%y(%m(%d'
+        super
+      end
+    end
+  end
+end

data/lib/when_exe/region/zoroastrian.rb

@@ -0,0 +1,203 @@
+# -*- 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
+
+=begin
+
+  References
+
+ (1) http://en.wikipedia.org/wiki/Zoroastrian_calendar
+ (2) http://www.moonwise.co.uk/year/1375zoroastrian.htm
+ (3) http://www.zoroastrian.org/articles/nowruz.htm
+
+=end
+
+module When
+  class BasicTypes::M17n
+
+    Zoroastrian = [self, [
+      "locale:[=en:, ja=ja:, ar=ar:, alias=ja:]",
+      "names:[Zoroastrian=]",
+      "[Zoroastrian=en:Zoroastrian_calendar#The_reckoning_of_years,   ゾロアスター暦=  ]",
+      "[Qadimi=en:Zoroastrian_calendar#The_Qadimi_calendar ,          カディミ暦=      ]",
+      "[Shahanshahi=en:Zoroastrian_calendar#The_Shahanshahi_calendar, シャハンシャヒ暦=]",
+      "[Fasli=en:Zoroastrian_calendar#The_Fasli_calendar ,            ファスリ暦=      ]"
+    ]]
+  end
+
+  #
+  # ゾロアスター暦の暦注
+  #
+  class CalendarNote::Zoroastrian < CalendarNote
+
+    Notes = [When::BasicTypes::M17n, [
+      "locale:[=en:]",
+      "names:[Zoroastrian]",
+
+      # 年の暦注 ----------------------------
+      [When::BasicTypes::M17n,
+        "names:[year]",
+      ],
+
+      # 月の暦注 ----------------------------
+      [When::BasicTypes::M17n,
+        "names:[month]",
+        [When::BasicTypes::M17n,
+          "names:[Month]",
+          "[Fravardin=   ]",
+          "[Ardibehest=  ]",
+          "[Khordad=     ]",
+          "[Tir=         ]",
+          "[Amardad=     ]",
+          "[Shehrevar=   ]",
+          "[Meher=       ]",
+          "[Avan=        ]",
+          "[Adar=        ]",
+          "[Dae=         ]",
+          "[Bahman=      ]",
+          "[Aspandarmad= ]",
+          "[Gatha Days=  ]"
+        ]
+      ],
+
+      # 日の暦注 ----------------------------
+      [When::BasicTypes::M17n,
+        "names:[day]",
+        [When::BasicTypes::M17n,
+          "names:[divinity]",
+          "[Hormazd=        ]", # 01
+          "[Bahman=         ]", # 02
+          "[Ardibehest=     ]", # 03
+          "[Shehrevar=      ]", # 04
+          "[Aspandarmad=    ]", # 05
+          "[Khordad=        ]", # 06
+          "[Amardad=        ]", # 07
+          "[Daepadar=       ]", # 08
+          "[Adar=           ]", # 09
+          "[Avan=           ]", # 10
+          "[Khorshed=       ]", # 11
+          "[Mohor=          ]", # 12
+          "[Tir=            ]", # 13
+          "[Gosh=           ]", # 14
+          "[Daepmeher=      ]", # 15
+          "[Meher=          ]", # 16
+          "[Srosh=          ]", # 17
+          "[Rashne=         ]", # 18
+          "[Fravardin=      ]", # 19
+          "[Behram=         ]", # 20
+          "[Ram=            ]", # 21
+          "[Govad=          ]", # 22
+          "[Daepdin=        ]", # 23
+          "[Din=            ]", # 24
+          "[Ashishvangh=    ]", # 25
+          "[Ashtad=         ]", # 26
+          "[Asman=          ]", # 27
+          "[Zamyad=         ]", # 28
+          "[Mahrespand=     ]", # 29
+          "[Aneran=         ]", # 30
+          "[Ahunavad=       ]", # 31
+          "[Ushtavad=       ]", # 32
+          "[Spentomad=      ]", # 33
+          "[Vohukhshathra=  ]", # 34
+          "[Vahishtoist=    ]", # 35
+          "[intercalary day=]"  # 36
+        ]
+      ]
+    ]]
+
+    # 暦注 - 日の名前
+    #
+    # @param [When::TM::CalDate] date
+    #
+    # @return [String]
+    #
+    def divinity(date)
+      y, m, d = date.cal_date
+      When.CalendarNote('Zoroastrian/Notes::day::divinity::*')[m <= 12 ? d-1 : d+29]
+    end
+  end
+
+  module CalendarTypes
+
+    #
+    # Zoroastrian Calendar
+    #
+    Zoroastrian =  [CyclicTableBased, {
+      'label'   => 'Zoroastrian::Zoroastrian',
+      'indices' => [
+        When.Index('ZoroastrianNotes::month::Month', {:unit =>13}),
+        When::Coordinates::DefaultDayIndex
+      ],
+      'origin_of_MSC' => 1,
+      'origin_of_LSC' => 1952063 + 5 - 365 * 1020,
+      'epoch_in_CE'   => 31,
+      'rule_table'    => {
+        'T' => {'Rule'  =>[365]},
+        365 => {'Length'=>[30]*12+[5]}
+      },
+     'note' => 'Zoroastrian'
+    }]
+
+    #
+    # Qadimi Calendar
+    #
+    Qadimi =  [CyclicTableBased, {
+      'label'   => 'Zoroastrian::Qadimi',
+      'indices' => [
+         When.Index('ZoroastrianNotes::month::Month', {:unit =>13}),
+         When::Coordinates::DefaultDayIndex
+       ],
+      'origin_of_MSC' => 1,
+      'origin_of_LSC' => 1952063,
+      'epoch_in_CE'   => 31,
+      'rule_table'    => {
+        'T' => {'Rule'  =>[365]},
+        365 => {'Length'=>[30]*12+[5]}
+      },
+     'note' => 'Zoroastrian'
+    }]
+
+    #
+    # Shahanshahi Calendar
+    #
+    Shahanshahi =  [CyclicTableBased, {
+      'label'   => 'Zoroastrian::Shahanshahi',
+      'indices' => [
+         When.Index('ZoroastrianNotes::month::Month', {:unit =>13}),
+         When::Coordinates::DefaultDayIndex
+       ],
+      'origin_of_MSC' => 1,
+      'origin_of_LSC' => 1952063 + 30,
+      'epoch_in_CE'   => 31,
+      'rule_table'    => {
+        'T' => {'Rule'  =>[365]},
+        365 => {'Length'=>[30]*12+[5]}
+      },
+     'note' => 'Zoroastrian'
+    }]
+
+    #
+    # Fasli Calendar
+    #
+    Fasli =  [{'Epoch'=>{
+                 'ZRE'=>{'origin_of_MSC'=>1737},
+                 'YZ' =>{'origin_of_MSC'=>-630}
+              }}, Bahai, {
+      'label'   => 'Zoroastrian::Fasli',
+      'indices' => [
+         When.Index('ZoroastrianNotes::month::Month', {:unit =>13}),
+         When::Coordinates::DefaultDayIndex
+      ],
+      'origin_of_MSC' => -630,
+      'epoch_in_CE'   =>  0,
+      'rule_table'    => {
+        365 => {'Length'=>[30] * 12 + [5]},
+        366 => {'Length'=>[30] * 12 + [6]}
+      },
+      'note' => 'Zoroastrian'
+    }]
+  end
+end