when_exe 0.3.5 → 0.3.6

data/lib/when_exe/region/coptic.rb

@@ -9,10 +9,9 @@ module When
 
   class BasicTypes::M17n
 
-    CopticTerms = [self, [
-      "namespace:[en=http://en.wikipedia.org/wiki/, ja=http://ja.wikipedia.org/wiki/]",
+    Coptic = [self, [
       "locale:[=en:, ja=ja:, alias]",
-      "names:[CopticTerms=]",
+      "names:[Coptic=]",
       "[Coptic=en:Coptic_calendar,       コプト暦    ]",
       "[Ethiopian=en:Ethiopian_calendar, エチオピア暦=en:Ethiopian_calendar]",
 
@@ -55,25 +54,25 @@ module When
   module CalendarTypes
 
     _egyptian_month_indices  = [
-      When::Coordinates::Index.new({:unit =>13, :trunk=>When::Parts::Resource._instance('_m:CopticTerms::EgyptianMonth::*')}),
-      When::Coordinates::Index.new
+      When.Index('Coptic::EgyptianMonth', {:unit =>13}),
+      When::Coordinates::DefaultDayIndex
     ]
 
     _ethiopian_month_indices = [
-      When::Coordinates::Index.new({:unit =>13, :trunk=>When::Parts::Resource._instance('_m:CopticTerms::EthiopianMonth::*')}),
-      When::Coordinates::Index.new
+      When.Index('Coptic::EthiopianMonth', {:unit =>13}),
+      When::Coordinates::DefaultDayIndex
     ]
 
     #
     # Coptic Calendar in Egypt and Ethiopia
     #
     Coptic =  [{'Epoch'=>{'284Y'=>{'origin_of_MSC' =>   1,
-                                   'label'         => Parts::Resource._instance('_m:CopticTerms::Coptic'),
+                                   'label'         => 'Coptic::Coptic',
                                    'indices'       => _egyptian_month_indices},
                             '8Y'=>{'origin_of_MSC' => 277,
-                                   'label'         => Parts::Resource._instance('_m:CopticTerms::Ethiopian'),
+                                   'label'         => 'Coptic::Ethiopian',
                                    'indices'       => _ethiopian_month_indices}}}, CyclicTableBased, {
-      'label'         => Parts::Resource._instance('_m:CopticTerms::Coptic'),
+      'label'         => 'Coptic::Coptic',
       'origin_of_LSC' => 1825030,
       'origin_of_MSC' =>       1,
       'epoch_in_CE'   =>     285,

data/lib/when_exe/region/dee.rb

@@ -0,0 +1,48 @@
+# -*- 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
+
+    Dee = [self, [
+      "namespace:[en=http://www.hermetic.ch/cal_stud/]",
+      "locale:[=en:, ja]",
+      "names:[Dee=en:dee-cecil-calendar.htm, ディー暦=]",
+      "[DeeCecil=en:dee-cecil-calendar.htm, ディー-セシル暦=]"
+    ]]
+  end
+
+  module CalendarTypes
+
+    _rule_table = {
+      'T' => {'Rule'  =>(0...33).to_a.map {|year| (year % 33) % 4 == 3 ? 366 : 365}},
+      365 => {'Length'=>[31,28] + [31,30,31,30,31] * 2},
+      366 => {'Length'=>[31,29] + [31,30,31,30,31] * 2}
+    }
+
+    #
+    # Dee Calendar
+    #
+    Dee = [CyclicTableBased, {
+      'label'         => 'Dee',
+      'origin_of_LSC' => 1721425,
+      'origin_of_MSC' => 1,
+      'rule_table'    => _rule_table
+    }]
+
+    #
+    # DeeCecil Calendar
+    #
+    DeeCecil = [CyclicTableBased, {
+      'label'         => 'Dee::DeeCecil',
+      'origin_of_LSC' => 1721426,
+      'origin_of_MSC' => 1,
+      'rule_table'    => _rule_table
+    }]
+  end
+end

data/lib/when_exe/region/discordian.rb

@@ -0,0 +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

data/lib/when_exe/region/far_east.rb

@@ -6,7 +6,7 @@
 =end
 
 require 'when_exe/region/chinese'
-require 'when_exe/region/chinese_calendar'
+require 'when_exe/region/chinese/calendars'
 
 #
 #  王位年号一覧表
@@ -24,7 +24,6 @@ module When
     # 満洲
     #
     Manchurian = [self, [
-      "namespace:[ja=http://ja.wikipedia.org/wiki/, en=http://en.wikipedia.org/wiki/]",
       "locale:[=ja:, en=en:, alias]",
       "area:[満洲,Manchurian=en:Manchuria]",
       [self,
@@ -52,7 +51,7 @@ module When
       ],
       [self,
 	"period:[満洲国]",
-	["[大同]1",	"@F",	"name=[溥儀];1932-03-01^Gregorian?note=ChineseNotes"],
+	["[大同]1",	"@F",	"name=[溥儀];1932-03-01^Gregorian?note=Chinese"],
 	["[康徳]1.03.01","",		    "1934-03-01", "1945-08-18="]
       ],
     ]]
@@ -61,7 +60,6 @@ module When
     # 柔然
     #
     Rouran = [self, [
-      "namespace:[ja=http://ja.wikipedia.org/wiki/, en=http://en.wikipedia.org/wiki/]",
       "locale:[=ja:, en=en:, alias]",
       "area:[柔然,Rouran]",
       ["[永康]1",	"@A",	"name=[予成];464^Chinese0445"],
@@ -75,7 +73,6 @@ module When
     # 高昌
     #
     Gaochang = [self, [
-      "namespace:[ja=http://ja.wikipedia.org/wiki/, en=http://en.wikipedia.org/wiki/]",
       "locale:[=ja:, en=en:, alias]",
       "area:[高昌,Gaochang]",
       ["[章和]1",	"@A",	  "name=[麹堅];531^Chinese0523"],
@@ -93,7 +90,6 @@ module When
     # 雲南
     #
     Yunnan = [self, [
-      "namespace:[ja=http://ja.wikipedia.org/wiki/, en=http://en.wikipedia.org/wiki/]",
       "locale:[=ja:, en=en:, alias]",
       "area:[雲南,Yunnan]",
       [self,

data/lib/when_exe/region/french.rb

@@ -8,10 +8,10 @@
 module When
   class BasicTypes::M17n
 
-    FrenchTerms = [self, [
-      "namespace:[en=http://en.wikipedia.org/wiki/, ja=http://ja.wikipedia.org/wiki/]",
+    French = [self, [
       "locale:[=en:, ja=ja:, alias]",
-      "names:[FrenchTerms=]",
+      "names:[French=]",
+      "[FrenchRepublican=en:French_Republican_Calendar, フランス共和暦=ja:%%<フランス革命暦>]",
 
       [self,
         "names:[Month, 月=ja:%%<月_(暦)>]",
@@ -32,29 +32,19 @@ module When
     ]]
   end
 
-  class TM::CalendarEra
-
-    # フランス共和暦
-     French = [self, [
-      "namespace:[en=http://en.wikipedia.org/wiki/, ja=http://ja.wikipedia.org/wiki/]",
-      "locale:[=en:, ja=ja:, alias]",
-      "period:[FrenchRepublican=en:French_Republican_Calendar, フランス共和暦=ja:%%<フランス革命暦>]",
-      ["[FRE=en:French_Republican_Calendar, 共和暦=ja:%%<フランス革命暦>, alias:Republican_Era]1.1.1",
-       "Calendar Epoch", "1793-01-01^FrenchRepublican", "1806-04-11"],
-    ]]
-  end
-
   module CalendarTypes
 
     #
     # French Calendar
     #
     FrenchRepublican =  [YearLengthTableBased, {
+      'label'   => 'French::FrenchRepublican',
       'indices' => [
-         When::Coordinates::Index.new({:unit =>13, :trunk=>When.Resource('_m:FrenchTerms::Month::*')}),
+         When.Index('French::Month', {:unit =>13}),
          When::Coordinates::DefaultDayIndex
        ],
-       'origin_of_MSC' => +1,
+       'origin_of_MSC' => -1791,
+       'epoch_in_CE'   => +1,
        'cycle_offset'  => Rational(1,2),
        'time_basis'    => '+00:09:20',
        'rule_table'    => {

data/lib/when_exe/region/geologicalage.rb

@@ -11,7 +11,6 @@ class When::TM::OrdinalReferenceSystem
   # Geological Ages
   #
   GeologicalAge = [self, [
-    "namespace:[ja=http://ja.wikipedia.org/wiki/, en=http://en.wikipedia.org/wiki/]",
     "locale:[=ja:, en=en:]",
     "*area:[地球,Earth]",
 

data/lib/when_exe/region/goddess.rb

@@ -0,0 +1,58 @@
+# -*- 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/Goddess_Lunar_Calendar
+ (2) http://www.fractal-timewave.com/mmgc/mmgc.htm
+
+=end
+
+module When
+
+  class BasicTypes::M17n
+
+    Goddess = [self, [
+      "locale:[=en:, ja]",
+      "names:[Goddess=]",
+      "[Goddess(MMG)=http://calendars.wikia.com/wiki/Goddess_Lunar_Calendar, ゴッデス暦, *alias:Goddess]",
+
+      [self,
+        "names:[Month]",
+        "[Athena]", "[Brigid]", "[Cerridwen]", "[Diana ]",
+        "[Epona ]", "[Freya ]", "[Gaea     ]", "[Hathor]",
+        "[Inanna]", "[Juno  ]", "[Kore     ]", "[Lilith]",
+        "[Maria ]"
+      ]
+    ]]
+  end
+
+  module CalendarTypes
+
+    #
+    # Goddess Calendar
+    #
+    Goddess =  [CyclicTableBased, {
+      'label'         => 'Goddess::Goddess',
+      'origin_of_LSC' => 2415611 - 180432,  # 1901-08-14 Base Cycle = No.1
+      'indices'       => [
+        When.Index({:unit=>470}),
+        When.Index('Goddess::Month'),
+        When::Coordinates::DefaultDayIndex,
+      ],
+      'rule_table' => {
+        'T' => {'Rule'  =>(['L'] * 9 + ['S']) * 23 +
+                          (['L'] * 4 + ['S']) *  2 +
+                          (['L'] * 9 + ['S']) * 23},
+        'L' => {'Length'=>[30, 29] * 6 + [30]},
+        'S' => {'Length'=>[30, 29] * 6 + [29]}
+      }
+    }]
+  end
+end