when_exe 0.4.1 → 0.4.2

data/lib/when_exe/region/roman.rb

@@ -1,333 +1,333 @@
-# -*- 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
-
-    Roman = [self, [
-      "locale:[=en:, ja=ja:, alias]",
-      "names:[Roman=]",
-
-      # Remarks
-      '[based on Chris Bennett "Roman Dates" (Retrieved 2013-05-13)=http://www.tyndalehouse.com/Egypt/ptolemies/chron/roman/chron_rom_intro_fr.htm,' +
-       '典拠 - Chris Bennett "Roman Dates" (2013-05-13 閲覧)=]',
-
-      [self, # ..CE-44 / ..BCE45
-        "names:[MonthA=en:Month, 月=ja:%%<月_(暦)>]",
-        "[Ianuarius,    1月]",
-        "[Februarius,   2月]",
-        "[Martius,      3月]",
-        "[Aprilis,      4月]",
-        "[Maius,        5月]",
-        "[Iunius,       6月]",
-        "[Quintilis,  旧7月=]",
-        "[Sextilis,   旧8月=]",
-        "[September,    9月]",
-        "[October,     10月]",
-        "[November,    11月]",
-        "[December,    12月]" 
-      ],
-
-      [self, # CE-43..CE-8 / BCE44..BCE9
-        "names:[MonthB=en:Month, 月=ja:%%<月_(暦)>]",
-        "[Ianuarius,    1月]",
-        "[Februarius,   2月]",
-        "[Martius,      3月]",
-        "[Aprilis,      4月]",
-        "[Maius,        5月]",
-        "[Iunius,       6月]",
-        "[Iulius,       7月]",
-        "[Sextilis,   旧8月=]",
-        "[September,    9月]",
-        "[October,     10月]",
-        "[November,    11月]",
-        "[December,    12月]"
-      ],
-
-      [self, # CE-7..CE36, CE41.. / BCE8..CE36, CE41..
-        "names:[Month, 月=ja:%%<月_(暦)>]",
-        "[Ianuarius,    1月]",
-        "[Februarius,   2月]",
-        "[Martius,      3月]",
-        "[Aprilis,      4月]",
-        "[Maius,        5月]",
-        "[Iunius,       6月]",
-        "[Iulius,       7月]",
-        "[Augustus,     8月]",
-        "[September,    9月]",
-        "[October,     10月]",
-        "[November,    11月]",
-        "[December,    12月]"
-      ],
-
-      [self, # CE37..CE40
-        "names:[MonthD=en:Month, 月=ja:%%<月_(暦)>]",
-        "[Ianuarius,    1月]",
-        "[Februarius,   2月]",
-        "[Martius,      3月]",
-        "[Aprilis,      4月]",
-        "[Maius,        5月]",
-        "[Iunius,       6月]",
-        "[Iulius,       7月]",
-        "[Augustus,     8月]",
-        "[Germanicus, 新9月=]",
-        "[October,     10月]",
-        "[November,    11月]",
-        "[December,    12月]"
-      ],
-
-      # %0s は“閏”の表記を抑制する指定となっている
-      [self, # Intercalary Months
-        "names:[IntercalaryMonth=en:Intercalation, 閏月]",
-        "[%0sIntercalaris=en:Roman_calendar#Calendar_of_Numa,"      +
-         "閏月%0s=ja:%%<ローマ暦>#%.<末期のローマ暦>]",
-        "[%0sIntercalaris Prior=en:Julian_calendar#Realignment_of_the_year,"     +
-         "第１閏月%0s=ja:%%<ローマ暦>#%.<末期のローマ暦>]",
-        "[%0sIntercalaris Posterior=en:Julian_calendar#Realignment_of_the_year," +
-         "第２閏月%0s=ja:%%<ローマ暦>#%.<末期のローマ暦>]",
-      ]
-    ]]
-  end
-
-  class TM::CalendarEra
-
-    # From http://en.wikipedia.org/wiki/Julian_calendar#Sacrobosco.27s_theory_on_month_lengths
-    Julian = [self, [
-      "locale:[=en:, ja=ja:, alias]",
-      "period:[Roman=en:Roman_calendar, ローマ暦]",
-      ["[AUC=en:Ab_urbe_condita, 建国紀元=ja:%%<ローマ建国紀元>, alias:Ab_urbe_condita]709.1.1",
-       '@CE', "-44-01-01^JulianA",
-               "-7-03-01^JulianB",
-                "8-01-01^JulianC", "476-09-04"]
-    ]]
-
-    # From Chris Bennett, http://www.tyndalehouse.com/Egypt/ptolemies/chron/roman/chron_rom_intro_fr.htm
-    Roman = [self, [
-      "locale:[=en:, ja=ja:, alias]",
-      "period:[Roman=en:Roman_calendar, ローマ暦]",
-      ["[AUC=en:Ab_urbe_condita, 建国紀元=ja:%%<ローマ建国紀元>, alias:Ab_urbe_condita]492.5.1",
-       '@CE', "-261-05-01^RomanA?border=0-5-1",
-              "-221-03-01^RomanA?border=0-3-1",
-              "-152-01-01^RomanA",
-               "-43-01-01^RomanB",
-                "-7-01-01^RomanC",
-                "37-01-01^RomanD",
-                "41-01-01^Roman", "476-09-04"]
-    ]]
-
-  end
-
-  module CalendarTypes
-
-    # From http://en.wikipedia.org/wiki/Julian_calendar#Sacrobosco.27s_theory_on_month_lengths
-    _Index0     = When::Coordinates::DefaultDayIndex
-    _IndicesB12 = [When.Index('Roman::MonthB', {:unit=>12}), _Index0]
-    _Indices12  = [When.Index('Roman::Month',  {:unit=>12}), _Index0]
-
-    #
-    # Julian Calendar A : BCE45-BCE8
-    #
-    JulianA =  [CyclicTableBased, {
-      'origin_of_LSC'  =>  1704987,
-      'origin_of_MSC'  =>  -44,
-      'indices' => _IndicesB12,
-      'rule_table'     => {
-        'T' => {'Rule'  =>[365,366,365]},
-        365 => {'Length'=>[31,29] + [31,30]*5},
-        366 => {'Length'=>[31,30] + [31,30]*5}
-      },
-      'note' => 'Roman'
-    }]
-
-    #
-    # Julian Calendar B : BCE8-CE7
-    #
-    JulianB =  [CyclicTableBased, {
-      'origin_of_LSC'  =>  1704987+13,
-      'origin_of_MSC'  =>  -44,
-      'indices' => _IndicesB12,
-      'rule_table'     => {
-        'T' => {'Rule'  =>[365]},
-        365 => {'Length'=>[31,28] + [31,30,31,30,31]*2}
-      },
-      'note' => 'Roman'
-    }]
-
-    #
-    # Julian Calendar C : CE8-
-    #
-    JulianC =  [Julian, {
-      'indices' => _Indices12,
-      'note'    => 'Roman'
-    }]
-
-    # From Chris Bennett, http://www.tyndalehouse.com/Egypt/ptolemies/chron/roman/chron_rom_intro_fr.htm
-    #
-    # Roman Calendar BCE262-(CE60)-CE480
-    #
-    # _ID_N = '1,2,3,4,5,6,7,8,9,10,11,12'
-    _ID_L = '1,2,2=,3,4,5,6,7,8,9,10,11,12'
-    _ID_J = '1,2,2=,3,4,5,6,7,8,9,10,11,11<,11>,12'
-    _Branch = {
-        1=>When.Resource('_m:Roman::IntercalaryMonth::*')[0],
-      0.5=>When.Resource('_m:Roman::IntercalaryMonth::*')[1],
-      1.5=>When.Resource('_m:Roman::IntercalaryMonth::*')[2]
-    }
-    _IndicesA = [When.Index('Roman::MonthA', {:branch=>_Branch}), _Index0]
-    _IndicesB = [When.Index('Roman::MonthB', {:branch=>_Branch}), _Index0]
-    _Indices  = [When.Index('Roman::Month',  {:branch=>_Branch}), _Index0]
-    _IndicesD = [When.Index('Roman::MonthD', {:branch=>_Branch}), _Index0]
-    _remarks  = When.M17n('Roman::based on Chris Bennett "Roman Dates" (Retrieved 2013-05-13)')
-    _options = {
-      'origin_of_LSC'  =>  1625698,
-      'origin_of_MSC'  =>  -261,
-      'indices' => _Indices,
-      'rule_table'     => {
-        'T' => {'Rule' =>      %w(                                                       A C  A B A C A B A C A B
-          A C A B A C A B A C  A B A C A B A C A B  A C A B A C A B A C  A B A A C B A A A A  C A A A B A C A A B
-          A A A A A A A A A A  C A C A B C A C A B  C A C A C A B C A C  A C A A B C A B C A  B C A B C A C A C A
-          C A C A C A C A C A  C A A C A C A C A C  A C A C A C A C A C  A C A C A C A A C A  A C A A C A A C A A
-          C A C A C A C A C A  C A C A A C A C A C  A C A C A C A C A C  A C A C A A C A A C  A A C A A B A A C A
-          A A A A J N L N N L  N N L N N L N N L N  N L N N L N N L N N  L N N L N N L N N L  N N L N N N N N N N) +
-          %w(N N N L) * 120
-        },
-        'A' => {'Length'=>[29, 28, 31, 29, 31, 29, 31, 29, 29, 31, 29, 29]},
-        'B' => {'Length'=>[29, 23, 27, 31, 29, 31, 29, 31, 29, 29, 31, 29, 29],         'IDs'=>_ID_L},
-        'C' => {'Length'=>[29, 24, 27, 31, 29, 31, 29, 31, 29, 29, 31, 29, 29],         'IDs'=>_ID_L},
-        'J' => {'Length'=>[29, 24, 27, 31, 29, 31, 29, 31, 29, 29, 31, 34, 31, 31, 29], 'IDs'=>_ID_J},
-        'N' => {'Length'=>[31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31]},
-        'L' => {'Length'=>[31, 29, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31]},
-      },
-      'note' => 'Roman'
-    }
-    # @private
-    RomanA =  [CyclicTableBased, _options.merge({'remarks'=>_remarks, 'indices' => _IndicesA})]
-    # @private
-    RomanB =  [CyclicTableBased, _options.merge({'remarks'=>_remarks, 'indices' => _IndicesB})]
-    # @private
-    RomanC =  [CyclicTableBased, _options.merge({'remarks'=>_remarks                        })]
-    # @private
-    RomanD =  [CyclicTableBased, _options.merge({'remarks'=>_remarks, 'indices' => _IndicesD})]
-    # @private
-    Roman  =  [CyclicTableBased, _options]
-  end
-
-  #
-  # 古代ローマの暦注
-  #
-  class CalendarNote::Roman < CalendarNote
-
-    Notes = [When::BasicTypes::M17n, [
-      "locale:[=en:, ja=ja:, alias]",
-      "names:[Roman]",
-
-      # 年の暦注 ----------------------------
-      [When::BasicTypes::M17n,
-        "names:[year]",
-
-        [When::Coordinates::Residue,
-          "label:[Solar=en:Solar_cycle_(calendar), 太陽章=]", "divisor:28", "year:-8",
-        ],
-
-        [When::Coordinates::Residue,
-          "label:[Metonic=en:Metonic_cycle, 太陰章=]", "divisor:19", "year:0",
-        ],
-
-        [When::Coordinates::Residue,
-          "label:[Indiction, インディクティオ]", "divisor:15", "year:-2", "format:[%s=en:Indiction, %s=ja:インディクティオ]",
-          [When::Coordinates::Residue, "label:[I=   ]", "remainder:  0"],
-          [When::Coordinates::Residue, "label:[II=  ]", "remainder:  1"],
-          [When::Coordinates::Residue, "label:[III= ]", "remainder:  2"],
-          [When::Coordinates::Residue, "label:[IV=  ]", "remainder:  3"],
-          [When::Coordinates::Residue, "label:[V=   ]", "remainder:  4"],
-          [When::Coordinates::Residue, "label:[VI=  ]", "remainder:  5"],
-          [When::Coordinates::Residue, "label:[VII= ]", "remainder:  6"],
-          [When::Coordinates::Residue, "label:[VIII=]", "remainder:  7"],
-          [When::Coordinates::Residue, "label:[IX=  ]", "remainder:  8"],
-          [When::Coordinates::Residue, "label:[X=   ]", "remainder:  9"],
-          [When::Coordinates::Residue, "label:[XI=  ]", "remainder: 10"],
-          [When::Coordinates::Residue, "label:[XII= ]", "remainder: 11"],
-          [When::Coordinates::Residue, "label:[XIII=]", "remainder: 12"],
-          [When::Coordinates::Residue, "label:[XIV= ]", "remainder: 13"],
-          [When::Coordinates::Residue, "label:[XV=  ]", "remainder: 14"],
-        ]
-      ],
-
-      # 月の暦注 ----------------------------
-      [When::BasicTypes::M17n,
-        "names:[month]",
-        [When::BasicTypes::M17n,
-          "names:[Month]"
-        ]
-      ],
-
-      # 日の暦注 ----------------------------
-      [When::BasicTypes::M17n,
-        "names:[day]",
-
-        [When::BasicTypes::M17n,
-          "names:[Nomen]"
-        ]
-      ]
-    ]]
-
-    Order = [
-      'a.d. bis VI',
-      'prid.',    'a.d. III',  'a.d. IV',    'a.d. V',   'a.d. VI',   'a.d. VII', 'a.d. VIII', 
-      'a.d. IX',  'a.d. X',    'a.d. XI',    'a.d. XII', 'a.d. XIII', 'a.d. XIV', 'a.d. XV', 
-      'a.d. XVI', 'a.d. XVII', 'a.d. XVIII', 'a.d. XIX', 'a.d. XX',   'a.d. XXI', 'a.d. XXII'
-    ]
-
-    LongMonths = [3, 5, 7, 10, When.Pair(11,0.5), When.Pair(11,1.5)]
-    LongType   = [1, 2..6, 7, 8..14, 15]
-    ShortType  = [1, 2..4, 5, 6..12, 13]
-
-    # 暦注 - 日の名前
-    #
-    # @param [When::TM::CalDate] date
-    #
-    # @return [String]
-    #
-    def nomen(date)
-      y, m, d = date.cal_date
-      month_name = _abbr_of_month(date)
-      kal, to_nonae, nonae, to_idus, idus = LongMonths.include?(m) ? LongType : ShortType
-      case d
-      when kal      ; return                     'Kal. ' + month_name
-      when to_nonae ; return Order[nonae - d] + ' Non. ' + month_name
-      when nonae    ; return                     'Non. ' + month_name
-      when to_idus  ; return Order[idus  - d] + ' Id. '  + month_name
-      when idus     ; return                     'Id. '  + month_name
-      end
-      this_month = date.floor(When::MONTH)
-      next_month = this_month.succ
-      month_name = _abbr_of_month(next_month)
-      rest = next_month.to_i - date.to_i
-      if m == 2 && next_month.to_i - this_month.to_i == 29
-        return Order[0] + ' Kal. ' + month_name if rest == 5
-        rest -= 1 if rest > 5
-      end
-      return Order[rest] + ' Kal. ' + month_name
-    end
-
-    private
-
-    # オブジェクトの正規化
-    def _normalize(args=[], options={})
-     @event = 'nomen'
-     super
-    end
-
-    # 日の省略名
-    def _abbr_of_month(month)
-      name = month.name('month').to_s
-      return name.sub(/ (..).*/, ' \1.') if name.sub!(/Intercalaris(.*)?/, 'Int.\1')
-      name.size <= 3 ? name : name[/\A...[^caeiou]*/] + '.'
-    end
-  end
-end
+# -*- coding: utf-8 -*-
+=begin
+  Copyright (C) 2011-2015 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
+
+    Roman = [self, [
+      "locale:[=en:, ja=ja:, zh=zh:, alias]",
+      "names:[Roman=en:Roman_calendar, ローマ暦, 羅馬曆]",
+
+      # Remarks
+      '[based on Chris Bennett "Roman Dates" (Retrieved 2013-05-13)=http://www.tyndalehouse.com/Egypt/ptolemies/chron/roman/chron_rom_intro_fr.htm,' +
+       '典拠 - Chris Bennett "Roman Dates" (2013-05-13 閲覧)=]',
+
+      [self, # ..CE-44 / ..BCE45
+        "names:[month name=en:Month, 月の名前=ja:%%<月_(暦)>, 該月的名稱=, *alias:MonthA=]",
+        "[Ianuarius,    1月]",
+        "[Februarius,   2月]",
+        "[Martius,      3月]",
+        "[Aprilis,      4月]",
+        "[Maius,        5月]",
+        "[Iunius,       6月]",
+        "[Quintilis,  旧7月=]",
+        "[Sextilis,   旧8月=]",
+        "[September,    9月]",
+        "[October,     10月]",
+        "[November,    11月]",
+        "[December,    12月]" 
+      ],
+
+      [self, # CE-43..CE-8 / BCE44..BCE9
+        "names:[month name=en:Month, 月の名前=ja:%%<月_(暦)>, 該月的名稱=, *alias:MonthB=]",
+        "[Ianuarius,    1月]",
+        "[Februarius,   2月]",
+        "[Martius,      3月]",
+        "[Aprilis,      4月]",
+        "[Maius,        5月]",
+        "[Iunius,       6月]",
+        "[Iulius,       7月]",
+        "[Sextilis,   旧8月=]",
+        "[September,    9月]",
+        "[October,     10月]",
+        "[November,    11月]",
+        "[December,    12月]"
+      ],
+
+      [self, # CE-7..CE36, CE41.. / BCE8..CE36, CE41..
+        "names:[month name=en:Month, 月の名前=ja:%%<月_(暦)>, 該月的名稱=, *alias:Month=]",
+        "[Ianuarius,    1月]",
+        "[Februarius,   2月]",
+        "[Martius,      3月]",
+        "[Aprilis,      4月]",
+        "[Maius,        5月]",
+        "[Iunius,       6月]",
+        "[Iulius,       7月]",
+        "[Augustus,     8月]",
+        "[September,    9月]",
+        "[October,     10月]",
+        "[November,    11月]",
+        "[December,    12月]"
+      ],
+
+      [self, # CE37..CE40
+        "names:[month name=en:Month, 月の名前=ja:%%<月_(暦)>, 該月的名稱=, *alias:MonthD=]",
+        "[Ianuarius,    1月]",
+        "[Februarius,   2月]",
+        "[Martius,      3月]",
+        "[Aprilis,      4月]",
+        "[Maius,        5月]",
+        "[Iunius,       6月]",
+        "[Iulius,       7月]",
+        "[Augustus,     8月]",
+        "[Germanicus, 新9月=]",
+        "[October,     10月]",
+        "[November,    11月]",
+        "[December,    12月]"
+      ],
+
+      # %0s は“閏”の表記を抑制する指定となっている
+      [self, # Intercalary Months
+        "names:[IntercalaryMonth=en:Intercalation, 閏月]",
+        "[%0sIntercalaris=en:Roman_calendar#Calendar_of_Numa,"      +
+         "閏月%0s=ja:%%<ローマ暦>#%.<末期のローマ暦>]",
+        "[%0sIntercalaris Prior=en:Julian_calendar#Realignment_of_the_year,"     +
+         "第１閏月%0s=ja:%%<ローマ暦>#%.<末期のローマ暦>]",
+        "[%0sIntercalaris Posterior=en:Julian_calendar#Realignment_of_the_year," +
+         "第２閏月%0s=ja:%%<ローマ暦>#%.<末期のローマ暦>]",
+      ]
+    ]]
+  end
+
+  class TM::CalendarEra
+
+    # From http://en.wikipedia.org/wiki/Julian_calendar#Sacrobosco.27s_theory_on_month_lengths
+    Julians = [self, [
+      "locale:[=en:, ja=ja:, zh=zh:, alias]",
+      "period:[Roman=en:Roman_calendar, ローマ暦, 羅馬曆]",
+      ["[AUC=en:Ab_urbe_condita, 建国紀元=ja:%%<ローマ建国紀元>, 建城紀年=zh:%%<羅馬建城紀年>, alias:Ab_urbe_condita]709.1.1",
+       '@CE', "-44-01-01^JulianA",
+               "-7-03-01^JulianB",
+                "8-01-01^JulianC", "476-09-04"]
+    ]]
+
+    # From Chris Bennett, http://www.tyndalehouse.com/Egypt/ptolemies/chron/roman/chron_rom_intro_fr.htm
+    Roman = [self, [
+      "locale:[=en:, ja=ja:, zh=zh:, alias]",
+      "period:[Roman=en:Roman_calendar, ローマ暦, 羅馬曆]",
+      ["[AUC=en:Ab_urbe_condita, 建国紀元=ja:%%<ローマ建国紀元>, 建城紀年=zh:%%<羅馬建城紀年>, alias:Ab_urbe_condita]492.5.1",
+       '@CE', "-261-05-01^RomanA?border=0-5-1",
+              "-221-03-01^RomanA?border=0-3-1",
+              "-152-01-01^RomanA",
+               "-43-01-01^RomanB",
+                "-7-01-01^RomanC",
+                "37-01-01^RomanD",
+                "41-01-01^Roman", "476-09-04"]
+    ]]
+
+  end
+
+  module CalendarTypes
+
+    # From http://en.wikipedia.org/wiki/Julian_calendar#Sacrobosco.27s_theory_on_month_lengths
+    _Index0     = When::Coordinates::DefaultDayIndex
+    _IndicesB12 = [When.Index('Roman::MonthB', {:unit=>12}), _Index0]
+    _Indices12  = [When.Index('Roman::Month',  {:unit=>12}), _Index0]
+
+    #
+    # Julian Calendar A : BCE45-BCE8
+    #
+    JulianA =  [CyclicTableBased, {
+      'origin_of_LSC'  =>  1704987,
+      'origin_of_MSC'  =>  -44,
+      'indices' => _IndicesB12,
+      'rule_table'     => {
+        'T' => {'Rule'  =>[365,366,365]},
+        365 => {'Length'=>[31,29] + [31,30]*5},
+        366 => {'Length'=>[31,30] + [31,30]*5}
+      },
+      'note' => 'Roman'
+    }]
+
+    #
+    # Julian Calendar B : BCE8-CE7
+    #
+    JulianB =  [CyclicTableBased, {
+      'origin_of_LSC'  =>  1704987+13,
+      'origin_of_MSC'  =>  -44,
+      'indices' => _IndicesB12,
+      'rule_table'     => {
+        'T' => {'Rule'  =>[365]},
+        365 => {'Length'=>[31,28] + [31,30,31,30,31]*2}
+      },
+      'note' => 'Roman'
+    }]
+
+    #
+    # Julian Calendar C : CE8-
+    #
+    JulianC =  [Julian, {
+      'indices' => _Indices12,
+      'note'    => 'Roman'
+    }]
+
+    # From Chris Bennett, http://www.tyndalehouse.com/Egypt/ptolemies/chron/roman/chron_rom_intro_fr.htm
+    #
+    # Roman Calendar BCE262-(CE60)-CE480
+    #
+    # _ID_N = '1,2,3,4,5,6,7,8,9,10,11,12'
+    _ID_L = '1,2,2=,3,4,5,6,7,8,9,10,11,12'
+    _ID_J = '1,2,2=,3,4,5,6,7,8,9,10,11,11<,11>,12'
+    _Branch = {
+        1=>When.Resource('_m:Roman::IntercalaryMonth::*')[0],
+      0.5=>When.Resource('_m:Roman::IntercalaryMonth::*')[1],
+      1.5=>When.Resource('_m:Roman::IntercalaryMonth::*')[2]
+    }
+    _IndicesA = [When.Index('Roman::MonthA', {:branch=>_Branch}), _Index0]
+    _IndicesB = [When.Index('Roman::MonthB', {:branch=>_Branch}), _Index0]
+    _Indices  = [When.Index('Roman::Month',  {:branch=>_Branch}), _Index0]
+    _IndicesD = [When.Index('Roman::MonthD', {:branch=>_Branch}), _Index0]
+    _remarks  = When.M17n('Roman::based on Chris Bennett "Roman Dates" (Retrieved 2013-05-13)')
+    _options = {
+      'origin_of_LSC'  =>  1625698,
+      'origin_of_MSC'  =>  -261,
+      'indices' => _Indices,
+      'rule_table'     => {
+        'T' => {'Rule' =>      %w(                                                       A C  A B A C A B A C A B
+          A C A B A C A B A C  A B A C A B A C A B  A C A B A C A B A C  A B A A C B A A A A  C A A A B A C A A B
+          A A A A A A A A A A  C A C A B C A C A B  C A C A C A B C A C  A C A A B C A B C A  B C A B C A C A C A
+          C A C A C A C A C A  C A A C A C A C A C  A C A C A C A C A C  A C A C A C A A C A  A C A A C A A C A A
+          C A C A C A C A C A  C A C A A C A C A C  A C A C A C A C A C  A C A C A A C A A C  A A C A A B A A C A
+          A A A A J N L N N L  N N L N N L N N L N  N L N N L N N L N N  L N N L N N L N N L  N N L N N N N N N N) +
+          %w(N N N L) * 120
+        },
+        'A' => {'Length'=>[29, 28, 31, 29, 31, 29, 31, 29, 29, 31, 29, 29]},
+        'B' => {'Length'=>[29, 23, 27, 31, 29, 31, 29, 31, 29, 29, 31, 29, 29],         'IDs'=>_ID_L},
+        'C' => {'Length'=>[29, 24, 27, 31, 29, 31, 29, 31, 29, 29, 31, 29, 29],         'IDs'=>_ID_L},
+        'J' => {'Length'=>[29, 24, 27, 31, 29, 31, 29, 31, 29, 29, 31, 34, 31, 31, 29], 'IDs'=>_ID_J},
+        'N' => {'Length'=>[31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31]},
+        'L' => {'Length'=>[31, 29, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31]},
+      },
+      'note' => 'Roman'
+    }
+    # @private
+    RomanA =  [CyclicTableBased, _options.merge({'remarks'=>_remarks, 'indices' => _IndicesA})]
+    # @private
+    RomanB =  [CyclicTableBased, _options.merge({'remarks'=>_remarks, 'indices' => _IndicesB})]
+    # @private
+    RomanC =  [CyclicTableBased, _options.merge({'remarks'=>_remarks                        })]
+    # @private
+    RomanD =  [CyclicTableBased, _options.merge({'remarks'=>_remarks, 'indices' => _IndicesD})]
+    # @private
+    Roman  =  [CyclicTableBased, _options]
+  end
+
+  #
+  # 古代ローマの暦注
+  #
+  class CalendarNote::Roman < CalendarNote
+
+    Notes = [When::BasicTypes::M17n, [
+      "locale:[=en:, ja=ja:, alias]",
+      "names:[Roman]",
+
+      # 年の暦注 ----------------------------
+      [When::BasicTypes::M17n,
+        "names:[note for year=, 年の暦注=, *year]",
+
+        [When::Coordinates::Residue,
+          "label:[Solar=en:Solar_cycle_(calendar), 太陽章=]", "divisor:28", "year:-8",
+        ],
+
+        [When::Coordinates::Residue,
+          "label:[Metonic=en:Metonic_cycle, 太陰章=]", "divisor:19", "year:0",
+        ],
+
+        [When::Coordinates::Residue,
+          "label:[Indiction, インディクティオ]", "divisor:15", "year:-2", "format:[%s=en:Indiction, %s=ja:インディクティオ]",
+          [When::Coordinates::Residue, "label:[I=   ]", "remainder:  0"],
+          [When::Coordinates::Residue, "label:[II=  ]", "remainder:  1"],
+          [When::Coordinates::Residue, "label:[III= ]", "remainder:  2"],
+          [When::Coordinates::Residue, "label:[IV=  ]", "remainder:  3"],
+          [When::Coordinates::Residue, "label:[V=   ]", "remainder:  4"],
+          [When::Coordinates::Residue, "label:[VI=  ]", "remainder:  5"],
+          [When::Coordinates::Residue, "label:[VII= ]", "remainder:  6"],
+          [When::Coordinates::Residue, "label:[VIII=]", "remainder:  7"],
+          [When::Coordinates::Residue, "label:[IX=  ]", "remainder:  8"],
+          [When::Coordinates::Residue, "label:[X=   ]", "remainder:  9"],
+          [When::Coordinates::Residue, "label:[XI=  ]", "remainder: 10"],
+          [When::Coordinates::Residue, "label:[XII= ]", "remainder: 11"],
+          [When::Coordinates::Residue, "label:[XIII=]", "remainder: 12"],
+          [When::Coordinates::Residue, "label:[XIV= ]", "remainder: 13"],
+          [When::Coordinates::Residue, "label:[XV=  ]", "remainder: 14"],
+        ]
+      ],
+
+      # 月の暦注 ----------------------------
+      [When::BasicTypes::M17n,
+        "names:[note for month=, 月の暦注=, *month]",
+        [When::BasicTypes::M17n,
+          "names:[month name=en:Month, 月の名前=ja:%%<月_(暦)>, zh:該月的名稱=, *alias:Month=]"
+        ]
+      ],
+
+      # 日の暦注 ----------------------------
+      [When::BasicTypes::M17n,
+        "names:[note for day=, 日の暦注=, *day]",
+
+        [When::BasicTypes::M17n,
+          "names:[Nomen]"
+        ]
+      ]
+    ]]
+
+    Order = [
+      'a.d. bis VI',
+      'prid.',    'a.d. III',  'a.d. IV',    'a.d. V',   'a.d. VI',   'a.d. VII', 'a.d. VIII', 
+      'a.d. IX',  'a.d. X',    'a.d. XI',    'a.d. XII', 'a.d. XIII', 'a.d. XIV', 'a.d. XV', 
+      'a.d. XVI', 'a.d. XVII', 'a.d. XVIII', 'a.d. XIX', 'a.d. XX',   'a.d. XXI', 'a.d. XXII'
+    ]
+
+    LongMonths = [3, 5, 7, 10, When.Pair(11,0.5), When.Pair(11,1.5)]
+    LongType   = [1, 2..6, 7, 8..14, 15]
+    ShortType  = [1, 2..4, 5, 6..12, 13]
+
+    # 暦注 - 日の名前
+    #
+    # @param [When::TM::CalDate] date
+    #
+    # @return [String]
+    #
+    def nomen(date)
+      y, m, d = date.cal_date
+      month_name = _abbr_of_month(date)
+      kal, to_nonae, nonae, to_idus, idus = LongMonths.include?(m) ? LongType : ShortType
+      case d
+      when kal      ; return                     'Kal. ' + month_name
+      when to_nonae ; return Order[nonae - d] + ' Non. ' + month_name
+      when nonae    ; return                     'Non. ' + month_name
+      when to_idus  ; return Order[idus  - d] + ' Id. '  + month_name
+      when idus     ; return                     'Id. '  + month_name
+      end
+      this_month = date.floor(When::MONTH)
+      next_month = this_month.succ
+      month_name = _abbr_of_month(next_month)
+      rest = next_month.to_i - date.to_i
+      if m == 2 && next_month.to_i - this_month.to_i == 29
+        return Order[0] + ' Kal. ' + month_name if rest == 5
+        rest -= 1 if rest > 5
+      end
+      return Order[rest] + ' Kal. ' + month_name
+    end
+
+    private
+
+    # オブジェクトの正規化
+    def _normalize(args=[], options={})
+     @event = 'nomen'
+     super
+    end
+
+    # 日の省略名
+    def _abbr_of_month(month)
+      name = month.name('month').to_s
+      return name.sub(/ (..).*/, ' \1.') if name.sub!(/Intercalaris(.*)?/, 'Int.\1')
+      name.size <= 3 ? name : name[/\A...[^caeiou]*/] + '.'
+    end
+  end
+end