when_exe 0.3.6 → 0.3.7

data/lib/when_exe/region/coptic.rb

@@ -1,87 +1,106 @@
-# -*- 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
-
-    Coptic = [self, [
-      "locale:[=en:, ja=ja:, alias]",
-      "names:[Coptic=]",
-      "[Coptic=en:Coptic_calendar,       コプト暦    ]",
-      "[Ethiopian=en:Ethiopian_calendar, エチオピア暦=en:Ethiopian_calendar]",
-
-      [self,
-        "names:[EgyptianMonth=, 月=ja:%%<月_(暦)>]",
-        "[tut=,      トート=      ]",
-        "[baba=,     バーバ=      ]",
-        "[hatur=,    ハートール=  ]",
-        "[kiyahak=,  キヤハーク=  ]",
-        "[tuba=,     トーバ=      ]",
-        "[amshir=,   アムシール=  ]",
-        "[baramhat=, バラムハート=]",
-        "[barmuda=,  バルムーダ=  ]",
-        "[bashans=,  バシャンス=  ]",
-        "[ba'una=,   バウーナ=    ]",
-        "[abib=,     アビーブ=    ]",
-        "[misra=,    ミスラー=    ]",
-        "[epagomen=, エパゴメネ=  ]"
-      ],
-
-      [self,
-        "names:[EthiopianMonth=, 月=ja:%%<月_(暦)>]",
-        "[Mäskäräm=, マスカラム=  ]",
-        "[Ṭəqəmt=,   テケルト=    ]",
-        "[Ḫədar=,    ヘダル=      ]",
-        "[Taḫśaś=,   ターサス=    ]",
-        "[Ṭərr=,     テル=        ]",
-        "[Yäkatit=,  イェカティト=]",
-        "[Mägabit=,  メガビト=    ]",
-        "[Miyazya=,  ミアジア=    ]",
-        "[Gənbot=,   ゲエンポト=  ]",
-        "[Säne=,     セネ=        ]",
-        "[Ḥamle=,    ハムレ=      ]",
-        "[Nähase=,   ネハッセ=    ]",
-        "[Ṗagʷəmen=, パゴウメン=  ]"
-      ]
-    ]]
-  end
-
-  module CalendarTypes
-
-    _egyptian_month_indices  = [
-      When.Index('Coptic::EgyptianMonth', {:unit =>13}),
-      When::Coordinates::DefaultDayIndex
-    ]
-
-    _ethiopian_month_indices = [
-      When.Index('Coptic::EthiopianMonth', {:unit =>13}),
-      When::Coordinates::DefaultDayIndex
-    ]
-
-    #
-    # Coptic Calendar in Egypt and Ethiopia
-    #
-    Coptic =  [{'Epoch'=>{'284Y'=>{'origin_of_MSC' =>   1,
-                                   'label'         => 'Coptic::Coptic',
-                                   'indices'       => _egyptian_month_indices},
-                            '8Y'=>{'origin_of_MSC' => 277,
-                                   'label'         => 'Coptic::Ethiopian',
-                                   'indices'       => _ethiopian_month_indices}}}, CyclicTableBased, {
-      'label'         => 'Coptic::Coptic',
-      'origin_of_LSC' => 1825030,
-      'origin_of_MSC' =>       1,
-      'epoch_in_CE'   =>     285,
-      'indices'       => _egyptian_month_indices,
-      'rule_table' => {
-        'T' => {'Rule'  =>[365,365,366,365]},
-        365 => {'Length'=>[30]*12+[5]},
-        366 => {'Length'=>[30]*12+[6]}
-      }
-    }]
-  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
+
+  class BasicTypes::M17n
+
+    Coptic = [self, [
+      "locale:[=en:, ja=ja:, alias]",
+      "names:[Coptic=]",
+      "[Coptic=en:Coptic_calendar,       コプト暦    ]",
+      "[Ethiopian=en:Ethiopian_calendar, エチオピア暦=en:Ethiopian_calendar]",
+      "[Ptolemaic=en:Ptolemaic_dynasty, プトレマイオス朝]",
+
+      # Remarks
+      '[based on Chris Bennett "Egyptian Dates" (Retrieved 2014-06-29)=http://www.tyndalehouse.com/Egypt/ptolemies/chron/egyptian/chron_eg_intro.htm,' +
+       '典拠 - Chris Bennett "Egyptian Dates" (2014-06-29 閲覧)=]',
+
+      [self,
+        "names:[EgyptianMonth=, 月=ja:%%<月_(暦)>]",
+        "[tut=,      トート=      ]",
+        "[baba=,     バーバ=      ]",
+        "[hatur=,    ハートール=  ]",
+        "[kiyahak=,  キヤハーク=  ]",
+        "[tuba=,     トーバ=      ]",
+        "[amshir=,   アムシール=  ]",
+        "[baramhat=, バラムハート=]",
+        "[barmuda=,  バルムーダ=  ]",
+        "[bashans=,  バシャンス=  ]",
+        "[ba'una=,   バウーナ=    ]",
+        "[abib=,     アビーブ=    ]",
+        "[misra=,    ミスラー=    ]",
+        "[epagomen=, エパゴメネ=  ]"
+      ],
+
+      [self,
+        "names:[EthiopianMonth=, 月=ja:%%<月_(暦)>]",
+        "[Mäskäräm=, マスカラム=  ]",
+        "[Ṭəqəmt=,   テケルト=    ]",
+        "[Ḫədar=,    ヘダル=      ]",
+        "[Taḫśaś=,   ターサス=    ]",
+        "[Ṭərr=,     テル=        ]",
+        "[Yäkatit=,  イェカティト=]",
+        "[Mägabit=,  メガビト=    ]",
+        "[Miyazya=,  ミアジア=    ]",
+        "[Gənbot=,   ゲエンポト=  ]",
+        "[Säne=,     セネ=        ]",
+        "[Ḥamle=,    ハムレ=      ]",
+        "[Nähase=,   ネハッセ=    ]",
+        "[Ṗagʷəmen=, パゴウメン=  ]"
+      ]
+    ]]
+  end
+
+  module CalendarTypes
+
+    _egyptian_month_indices  = [
+      When.Index('Coptic::EgyptianMonth', {:unit =>13}),
+      When::Coordinates::DefaultDayIndex
+    ]
+
+    _ethiopian_month_indices = [
+      When.Index('Coptic::EthiopianMonth', {:unit =>13}),
+      When::Coordinates::DefaultDayIndex
+    ]
+
+    #
+    # Coptic Calendar in Egypt and Ethiopia
+    #
+    Coptic =  [{'Epoch'=>{'284Y'=>{'origin_of_MSC' =>   1},
+                            '0Y'=>{'origin_of_MSC' => 285},
+                            '8Y'=>{'origin_of_MSC' => 277,
+                                   'label'         => 'Coptic::Ethiopian',
+                                   'indices'       => _ethiopian_month_indices}}}, CyclicTableBased, {
+      'label'         => 'Coptic::Coptic',
+      'origin_of_LSC' => 1825030,
+      'origin_of_MSC' =>       1,
+      'epoch_in_CE'   =>     285,
+      'indices'       => _egyptian_month_indices,
+      'rule_table' => {
+        'T' => {'Rule'  =>[365,365,366,365]},
+        365 => {'Length'=>[30]*12+[5]},
+        366 => {'Length'=>[30]*12+[6]}
+      }
+    }]
+
+    #
+    # Egyptian Calendar based on Chris Bennett, http://www.tyndalehouse.com/Egypt/ptolemies/chron/babylonian/chron_bab_intro_fr.htm
+    #
+    Ptolemaic =  [CyclicTableBased, {
+      'label'         => 'Coptic::Ptolemaic',
+      'remarks'       => When.M17n('Coptic::based on Chris Bennett "Egyptian Dates" (Retrieved 2014-06-29)'),
+      'origin_of_LSC' => 1600478,
+      'origin_of_MSC' =>    -330,
+      'indices'       => _egyptian_month_indices,
+      'rule_table' => {
+        'T' => {'Rule'  =>[365]},
+        365 => {'Length'=>[30]*12+[5]}
+      }
+    }]
+  end
+end

data/lib/when_exe/region/discordian.rb

@@ -1,225 +1,225 @@
-# -*- 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
-
-    Discordian = [self, [
-      "locale:[=en:, ja]",
-      "names:[Discordian=en:Discordian_calendar, ディスコーディアン暦=]",
-      [self,
-        "names:[IntercalaryDay=en:Intercalation, 閏日=ja:%%<閏>]",
-        "[%0sSt. Tib's Day=, %0s閏日=]"
-      ]
-    ]]
-  end
-
-  #
-  # Discordian Note
-  #
-  class CalendarNote::DiscordianWeek < CalendarNote::Week
-
-    Notes = [When::BasicTypes::M17n, [
-      "namespace:[en=http://en.wiktionary.org/wiki/]",
-      "locale:[=en:]",
-      "names:[Discordian]",
-
-      # Notes for year ----------------------------
-      [When::BasicTypes::M17n,
-        "names:[year]"
-      ],
-
-      # Notes for month ----------------------------
-      [When::BasicTypes::M17n,
-        "names:[month]",
-        [When::BasicTypes::M17n,
-          "names:[Month]",
-          "[Chaos=en:chaos            ]",
-          "[Discord=en:discord        ]",
-          "[Confusion=en:confusion    ]",
-          "[Bureaucracy               ]",
-          "[The Aftermath=en:aftermath]"
-        ]
-      ],
-
-      # Notes for day ----------------------------
-      [When::BasicTypes::M17n,
-        "names:[day]",
-        [When::BasicTypes::M17n,
-          "names:[Week]",
-          [DayOfWeek, "label:[Sweetmorn=      ]", {'delta'=>5}],
-          [DayOfWeek, "label:[Boomtime=       ]", {'delta'=>5}],
-          [DayOfWeek, "label:[Pungenday=      ]", {'delta'=>5}],
-          [DayOfWeek, "label:[Prickle-Prickle=]", {'delta'=>5}],
-          [DayOfWeek, "label:[Setting Orange= ]", {'delta'=>5}],
-          [DayOfWeek, "label:[Out of Week=    ]", {'delta'=>1461}]
-        ],
-
-        [When::BasicTypes::M17n,
-          "names:[Holyday=]",
-          "[St. Tib's Day=]", # 02-29 St. Tib's Day
-          "[Mungday=      ]", # 01-05 Chaos 5
-          "[Chaoflux=     ]", # 02-19 Chaos 50
-          "[Mojoday=      ]", # 03-19 Discord 5
-          "[Discoflux=    ]", # 05-03 Discord 50
-          "[Syaday=       ]", # 05-31 Confusion 5
-          "[Confuflux=    ]", # 07-15 Confusion 50
-          "[Zaraday=      ]", # 08-12 Bureaucracy 5
-          "[Bureflux=     ]", # 09-26 Bureaucracy 50
-          "[Maladay=      ]", # 10-24 The Aftermath 5
-          "[Afflux=       ]"  # 12-08 The Aftermath 50
-        ],
-
-        "[Standard_Week]"
-      ]
-    ]]
-
-    # @private
-    IndexOfWeek = [0, 1, 2, 3, 5, 4]
-
-    # Just or last sweetmorn
-    #
-    # @param [When::TM::TemporalPosition] date
-    # @param [nil] parameter (not used)
-    #
-    # @return [When::TM::TemporalPosition]
-    #
-    def sweetmorn(date, parameter=nil)
-      date  = _to_date_for_note(date)
-      y,m,d = date.cal_date
-      date -= When::P1D if date.length(When::MONTH) == 74 && +d == 60
-      dow   = ((m-1)*73+d*1-1) % 5
-      date -= When::P1D * dow unless dow == 0
-      date.events = [@days_of_week[0]]
-      date
-    end
-
-    # Erisian week
-    #
-    # @param [When::TM::CalDate] date
-    # @param [When::TM::CalDate] base
-    #
-    # @return [String]
-    #
-    def week(date, base=nil)
-      date   = _to_date_for_note(date)
-      y,m,d  = date.cal_date
-      dow    = d*0 == 0 ? ((m-1)*73+d*1-1) % 5 : 5
-      length = (base || date).length(When::MONTH) == 73 ? 5 : 6
-      index  = length == 5 ? dow : IndexOfWeek[dow]
-      {:value=>@days_of_week[dow], :position=>[index,length]}
-    end
-
-    #
-    # Week labels
-    #
-    # @param [When::TM::TemporalPosition] date
-    #
-    # @return [Array<When::CalendarNote::Week::DayOfWeek>]
-    #
-    def week_labels(date)
-      date = _to_date_for_note(date)
-      date.length(When::MONTH) == 73 ?
-        @days_of_week.child[0...5] :
-        @days_of_week.child[0...4] + [@days_of_week.child[5]] + [@days_of_week.child[4]]
-    end
-
-    #  Holyday
-    #
-    # @param [When::TM::CalDate] date
-    #
-    # @return [String]
-    #
-    def holyday(date)
-      date    = _to_date_for_note(date)
-      y, m, d = date.cal_date
-      index =
-        case +d
-        when  5 ;  1
-        when 50 ;  2
-        else    ;  d * 0 - 1
-        end
-      return nil if index == -1
-      When.CalendarNote('DiscordianWeek/Notes::day::Holyday::*')[(m-1)*2+index]
-    end
-
-    #
-    # convert date to Discordian date
-    #
-    # @private
-    def _to_date_for_note(date)
-      date = When::Discordian ^ date unless date.frame.label.to_s == 'Discordian'
-      date
-    end
-
-    private
-
-    # object normalization
-    #
-    # @private
-    def _normalize(args=[], options={})
-      @event ||= 'sweetmorn'
-      super
-    end
-  end
-
-  module CalendarTypes
-
-    #
-    # Discordian Calendar
-    #
-    class Discordian < TableBased
-
-      # @private
-      Normal_IDS = (1..73).to_a
-
-      # @private
-      Long_IDS   = (1..59).to_a + [When.Pair(59,1)] + (60..73).to_a
-
-      private
-
-      #
-      # Object Normalization
-      #
-      def _normalize(args=[], options={})
-        @label         ||= 'Discordian'
-        @epoch_in_CE   ||= -1166
-        @note          ||= 'DiscordianWeek'
-        @engine        ||= 'Gregorian'
-        @engine          = When.Calendar(@engine)
-        @indices       ||= [
-          When.Index('DiscordianWeekNotes::month::Month', {:unit =>5}),
-          When.Index({:branch=>{1=>When.M17n('Discordian::IntercalaryDay')[0]}})
-        ]
-        @rule_table ||= {
-          365 => {'Length'=>        [73]*5},
-          366 => {'Length'=> [74] + [73]*4}
-        }
-        super
-      end
-
-      # first day of year
-      #
-      def _sdn_(date)
-        year = +date[0] + @epoch_in_CE
-        @engine._coordinates_to_number(year, 0, 0)
-      end
-
-      #
-      # day arrangement pattern
-      #
-      def _ids_(date)
-        y, m = date
-        return super unless m
-        return Normal_IDS unless m == 0
-        year = +y + @epoch_in_CE
-        @engine._length([year,1]) == 28 ?  Normal_IDS : Long_IDS
-      end
-    end
-  end
-end
+# -*- 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
+
+    Discordian = [self, [
+      "locale:[=en:, ja]",
+      "names:[Discordian=en:Discordian_calendar, ディスコーディアン暦=]",
+      [self,
+        "names:[IntercalaryDay=en:Intercalation, 閏日=ja:%%<閏>]",
+        "[%0sSt. Tib's Day=, %0s閏日=]"
+      ]
+    ]]
+  end
+
+  #
+  # Discordian Note
+  #
+  class CalendarNote::DiscordianWeek < CalendarNote::Week
+
+    Notes = [When::BasicTypes::M17n, [
+      "namespace:[en=http://en.wiktionary.org/wiki/]",
+      "locale:[=en:]",
+      "names:[Discordian]",
+
+      # Notes for year ----------------------------
+      [When::BasicTypes::M17n,
+        "names:[year]"
+      ],
+
+      # Notes for month ----------------------------
+      [When::BasicTypes::M17n,
+        "names:[month]",
+        [When::BasicTypes::M17n,
+          "names:[Month]",
+          "[Chaos=en:chaos            ]",
+          "[Discord=en:discord        ]",
+          "[Confusion=en:confusion    ]",
+          "[Bureaucracy               ]",
+          "[The Aftermath=en:aftermath]"
+        ]
+      ],
+
+      # Notes for day ----------------------------
+      [When::BasicTypes::M17n,
+        "names:[day]",
+        [When::BasicTypes::M17n,
+          "names:[Week]",
+          [DayOfWeek, "label:[Sweetmorn=      ]", {'delta'=>5}],
+          [DayOfWeek, "label:[Boomtime=       ]", {'delta'=>5}],
+          [DayOfWeek, "label:[Pungenday=      ]", {'delta'=>5}],
+          [DayOfWeek, "label:[Prickle-Prickle=]", {'delta'=>5}],
+          [DayOfWeek, "label:[Setting Orange= ]", {'delta'=>5}],
+          [DayOfWeek, "label:[Out of Week=    ]", {'delta'=>1461}]
+        ],
+
+        [When::BasicTypes::M17n,
+          "names:[Holyday=]",
+          "[St. Tib's Day=]", # 02-29 St. Tib's Day
+          "[Mungday=      ]", # 01-05 Chaos 5
+          "[Chaoflux=     ]", # 02-19 Chaos 50
+          "[Mojoday=      ]", # 03-19 Discord 5
+          "[Discoflux=    ]", # 05-03 Discord 50
+          "[Syaday=       ]", # 05-31 Confusion 5
+          "[Confuflux=    ]", # 07-15 Confusion 50
+          "[Zaraday=      ]", # 08-12 Bureaucracy 5
+          "[Bureflux=     ]", # 09-26 Bureaucracy 50
+          "[Maladay=      ]", # 10-24 The Aftermath 5
+          "[Afflux=       ]"  # 12-08 The Aftermath 50
+        ],
+
+        "[Common_Week]"
+      ]
+    ]]
+
+    # @private
+    IndexOfWeek = [0, 1, 2, 3, 5, 4]
+
+    # Just or last sweetmorn
+    #
+    # @param [When::TM::TemporalPosition] date
+    # @param [nil] parameter (not used)
+    #
+    # @return [When::TM::TemporalPosition]
+    #
+    def sweetmorn(date, parameter=nil)
+      date  = _to_date_for_note(date)
+      y,m,d = date.cal_date
+      date -= When::P1D if date.length(When::MONTH) == 74 && +d == 60
+      dow   = ((m-1)*73+d*1-1) % 5
+      date -= When::P1D * dow unless dow == 0
+      date.events = [@days_of_week[0]]
+      date
+    end
+
+    # Erisian week
+    #
+    # @param [When::TM::CalDate] date
+    # @param [When::TM::CalDate] base
+    #
+    # @return [String]
+    #
+    def week(date, base=nil)
+      date   = _to_date_for_note(date)
+      y,m,d  = date.cal_date
+      dow    = d*0 == 0 ? ((m-1)*73+d*1-1) % 5 : 5
+      length = (base || date).length(When::MONTH) == 73 ? 5 : 6
+      index  = length == 5 ? dow : IndexOfWeek[dow]
+      {:value=>@days_of_week[dow], :position=>[index,length]}
+    end
+
+    #
+    # Week labels
+    #
+    # @param [When::TM::TemporalPosition] date
+    #
+    # @return [Array<When::CalendarNote::Week::DayOfWeek>]
+    #
+    def week_labels(date)
+      date = _to_date_for_note(date)
+      date.length(When::MONTH) == 73 ?
+        @days_of_week.child[0...5] :
+        @days_of_week.child[0...4] + [@days_of_week.child[5]] + [@days_of_week.child[4]]
+    end
+
+    #  Holyday
+    #
+    # @param [When::TM::CalDate] date
+    #
+    # @return [String]
+    #
+    def holyday(date)
+      date    = _to_date_for_note(date)
+      y, m, d = date.cal_date
+      index =
+        case +d
+        when  5 ;  1
+        when 50 ;  2
+        else    ;  d * 0 - 1
+        end
+      return nil if index == -1
+      When.CalendarNote('DiscordianWeek/Notes::day::Holyday::*')[(m-1)*2+index]
+    end
+
+    #
+    # convert date to Discordian date
+    #
+    # @private
+    def _to_date_for_note(date)
+      date = When::Discordian ^ date unless date.frame.label.to_s == 'Discordian'
+      date
+    end
+
+    private
+
+    # object normalization
+    #
+    # @private
+    def _normalize(args=[], options={})
+      @event ||= 'sweetmorn'
+      super
+    end
+  end
+
+  module CalendarTypes
+
+    #
+    # Discordian Calendar
+    #
+    class Discordian < TableBased
+
+      # @private
+      Normal_IDS = (1..73).to_a
+
+      # @private
+      Long_IDS   = (1..59).to_a + [When.Pair(59,1)] + (60..73).to_a
+
+      private
+
+      #
+      # Object Normalization
+      #
+      def _normalize(args=[], options={})
+        @label         ||= 'Discordian'
+        @epoch_in_CE   ||= -1166
+        @note          ||= 'DiscordianWeek'
+        @engine        ||= 'Gregorian'
+        @engine          = When.Calendar(@engine)
+        @indices       ||= [
+          When.Index('DiscordianWeekNotes::month::Month', {:unit =>5}),
+          When.Index({:branch=>{1=>When.M17n('Discordian::IntercalaryDay')[0]}})
+        ]
+        @rule_table ||= {
+          365 => {'Length'=>        [73]*5},
+          366 => {'Length'=> [74] + [73]*4}
+        }
+        super
+      end
+
+      # first day of year
+      #
+      def _sdn_(date)
+        year = +date[0] + @epoch_in_CE
+        @engine._coordinates_to_number(year, 0, 0)
+      end
+
+      #
+      # day arrangement pattern
+      #
+      def _ids_(date)
+        y, m = date
+        return super unless m
+        return Normal_IDS unless m == 0
+        year = +y + @epoch_in_CE
+        @engine._length([year,1]) == 28 ?  Normal_IDS : Long_IDS
+      end
+    end
+  end
+end