when_exe 0.4.2 → 0.5.0

data/test/events/test-history-events-edge.ttl

@@ -0,0 +1,89 @@
+@prefix dc: <http://purl.org/dc/elements/1.1/> .
+@prefix dcq: <http://purl.org/dc/terms/> .
+@prefix ex: <http://example.com/> .
+@prefix rdfs: <http://www.w3.org/2000/01/rdf-schema#> .
+@prefix ts: <http://hosi.org/ts#> .
+
+ex:1 rdfs:label "{康元元}:{第5代}{執権}の{北条時頼}、{執権}{辞任}、{翌日}{出家}。";
+   ts:east 1.39581758e2;
+   ts:north 3.5361604e1;
+   ts:south 3.5304314e1;
+   ts:start 2180156;
+   ts:west 1.39490658e2;
+   dc:contributor "須賀隆";
+   dcq:abstract "{康元元}:{第5代}{執権}の{北条時頼}、{執権}{辞任}、{翌日}{出家}。";
+   dcq:hasPart "康元元",
+     "第5代",
+     "執権",
+     "北条時頼",
+     "辞任",
+     "翌日",
+     "出家";
+   dcq:spatial "神奈川県鎌倉市";
+   dcq:valid "1256-11-22^^Japanese" .
+
+ex:2 rdfs:label "{康元元}:{前日}{執権}を{辞任}した{北条時頼}、{出家}。";
+   ts:east 1.39581758e2;
+   ts:north 3.5361604e1;
+   ts:south 3.5304314e1;
+   ts:start 2180157;
+   ts:west 1.39490658e2;
+   dc:contributor "須賀隆";
+   dcq:abstract "{康元元}:{前日}{執権}を{辞任}した{北条時頼}、{出家}。";
+   dcq:hasPart "康元元",
+     "前日",
+     "執権",
+     "辞任",
+     "北条時頼",
+     "出家";
+   dcq:spatial "神奈川県鎌倉市";
+   dcq:valid "1256-11-23^^Japanese" .
+
+ex:3 rdfs:label "{天文24}:{厳島}の{合戦}で{毛利元就}が{陶晴賢}を滅ぼす。";
+   ts:east 1.3234682e2;
+   ts:north 3.4479038e1;
+   ts:south 3.4267624e1;
+   ts:start 2289310;
+   ts:west 1.32083881e2;
+   dc:contributor "須賀隆";
+   dcq:abstract "{天文24}:{厳島}の{合戦}で{毛利元就}が{陶晴賢}を滅ぼす。";
+   dcq:hasPart "天文24",
+     "厳島",
+     "合戦",
+     "毛利元就",
+     "陶晴賢";
+   dcq:spatial "広島県廿日市市";
+   dcq:valid "1555-10-01^^Japanese" .
+
+ex:4 rdfs:label "{慶應2}:{将軍}{徳川家茂}が{大坂城}中で{病死}する。{21歳}。{毒殺説}もある。";
+   ts:east 1.35595982e2;
+   ts:north 3.4766764e1;
+   ts:south 3.458949e1;
+   ts:start 2402843;
+   ts:west 1.35391479e2;
+   dc:contributor "須賀隆";
+   dcq:abstract "{慶應2}:{将軍}{徳川家茂}が{大坂城}中で{病死}する。{21歳}。{毒殺説}もある。";
+   dcq:hasPart "慶應2",
+     "将軍",
+     "徳川家茂",
+     "大坂城",
+     "病死",
+     "21歳",
+     "毒殺説";
+   dcq:spatial "大阪市";
+   dcq:valid "1866-07-20^^Japanese" .
+
+ex:5 rdfs:label "{大同元}:{空海}が用いたとされる{日曜日}の{起点}";
+   ts:east 1.35873329e2;
+   ts:north 3.528243e1;
+   ts:south 3.4886268e1;
+   ts:start 2015474;
+   ts:west 1.35577055e2;
+   dc:contributor "suchowan";
+   dcq:abstract "{大同元}:{空海}が用いたとされる{日曜日}の{起点}";
+   dcq:hasPart "大同元",
+     "空海",
+     "日曜日",
+     "起点";
+   dcq:spatial "京都市";
+   dcq:valid "0806-01-02^^Japanese" .

data/test/events/test-history-events.csv

@@ -0,0 +1,6 @@
+valid,abstarct,contributor,mbox,created,domain,remark,location
+"1256-11-22^^Japanese","{康元元}:{第5代}{執権}の{北条時頼}、{執権}{辞任}、{翌日}{出家}。","須賀隆","suchowan@box.email.ne.jp","","","高柳光寿・竹内理三編『日本史辞典』","神奈川県鎌倉市"
+"1256-11-23^^Japanese","{康元元}:{前日}{執権}を{辞任}した{北条時頼}、{出家}。","須賀隆","suchowan@box.email.ne.jp","","","高柳光寿・竹内理三編『日本史辞典』","神奈川県鎌倉市"
+"1555-10-01^^Japanese","{天文24}:{厳島}の{合戦}で{毛利元就}が{陶晴賢}を滅ぼす。","須賀隆","suchowan@box.email.ne.jp","","","コンサイス世界年表","広島県廿日市市"
+"1866-07-20^^Japanese","{慶應2}:{将軍}{徳川家茂}が{大坂城}中で{病死}する。{21歳}。{毒殺説}もある。","須賀隆","suchowan@box.email.ne.jp","","","","大阪市"
+"0806-01-02^^Japanese","{大同元}:{空海}が用いたとされる{日曜日}の{起点}","suchowan","","Sat Jun 22  1:35:54 JST 2002 ","1","日本史小百科「暦」","京都市"

data/test/examples/JapanHolidays.ics

@@ -1,5 +1,5 @@
 BEGIN:VCALENDAR
-# Copyright (C) 2011 Takashi SUGA
+# 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.
@@ -8,7 +8,7 @@ BEGIN:VCALENDAR
 VERSION:2.0
 PRODID:-//hacksw/handcal//NONSGML v1.0//EN
 LOCALE:[ja=ja:,*en=en:]
-NAMESPACE:[ja=http://ja.wikipedia.org/wiki/,en=http://en.wikipedia.org/wiki/]
+NAMESPACE:[ja=https://ja.wikipedia.org/wiki/,en=https://en.wikipedia.org/wiki/]
 BEGIN:VTIMEZONE
 TZID:Asia/Tokyo
 X-LIC-LOCATION:Asia/Tokyo

data/test/examples/JapanHolidaysRFC6350.ics

@@ -1,5 +1,5 @@
 BEGIN:VCALENDAR
-# Copyright (C) 2011-2014 Takashi SUGA
+# 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.
@@ -7,8 +7,8 @@ BEGIN:VCALENDAR
 
 VERSION:2.0
 PRODID:-//hacksw/handcal//NONSGML v1.0//EN
-NAMESPACE;ALTID=1;PREFIX=ja:http://ja.wikipedia.org/wiki/
-NAMESPACE;ALTID=1;PREFIX=en:http://en.wikipedia.org/wiki/
+NAMESPACE;ALTID=1;PREFIX=ja:https://ja.wikipedia.org/wiki/
+NAMESPACE;ALTID=1;PREFIX=en:https://en.wikipedia.org/wiki/
 BEGIN:VTIMEZONE
 TZID:Asia/Tokyo
 X-LIC-LOCATION:Asia/Tokyo

data/test/examples/Residue.m17n

@@ -3,8 +3,8 @@ BEGIN:B:M17N
 #
 # You may use and/or modify this file according to the license
 # described in the LICENSE.txt file included in this archive.
-  NAMESPACE:[en=http://en.wikipedia.org/wiki/,
-             ja=http://ja.wikipedia.org/wiki/]
+  NAMESPACE:[en=https://en.wikipedia.org/wiki/,
+             ja=https://ja.wikipedia.org/wiki/]
   LOCALE:[=en:, ja=ja:, alias]
   NAMES:[Residue]
 

data/test/examples/Spatial.m17n

@@ -1,10 +1,10 @@
 BEGIN:B:M17N
-# Copyright (C) 2011-2013 Takashi SUGA
+# 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.
-  NAMESPACE:[ja=http://ja.wikipedia.org/wiki/]
-  NAMESPACE;ALTID=1;PREFIX=en:http://en.wikipedia.org/wiki/
+  NAMESPACE:[ja=https://ja.wikipedia.org/wiki/]
+  NAMESPACE;ALTID=1;PREFIX=en:https://en.wikipedia.org/wiki/
   LOCALE:[=en:, ja=ja:, alias]
   NAMES:[Locations]
 

data/test/examples/Terms.m17n

@@ -3,15 +3,15 @@ BEGIN:B:M17n
 #
 # You may use and/or modify this file according to the license
 # described in the LICENSE.txt file included in this archive.
-  NAMESPACE:[en=http://en.wikipedia.org/wiki/,
-             ja=http://ja.wikipedia.org/wiki/]
+  NAMESPACE:[en=https://en.wikipedia.org/wiki/,
+             ja=https://ja.wikipedia.org/wiki/]
   LOCALE:[=en:, ja=ja:, alias]
   NAMES:[Calendar=]
 
   [Calendars_and_Eras=, 暦法と紀元=]
 
   BEGIN:B:M17n
-    NAMES:[month name, 月の名前=ja:%E6%9C%88_(%E6%9A%A6), *Month=]
+    NAMES:[month name, 月の名前=ja:%%<月_(暦)>, *Month=]
     B:M17N:[January,   1月]
     B:M17N:[February,  2月]
     B:M17N:[March,     3月]

data/test/scripts/8.ext.rb

@@ -23,9 +23,9 @@ p gregorian.translate('fr')                  #=> "Gregorian" (未定義でデフ
 p gregorian/'ja'                             #=> "グレゴリオ暦"
 p gregorian/'en'                             #=> "Gregorian"
 p gregorian/'fr'                             #=> "Gregorian" (未定義でデフォルト使用)
-p gregorian.reference('ja')                  #=> "http://ja.wikipedia.org/wiki/%E3%82%B0%E3%83%AC%E3%82%B4%E3%83%AA%E3%82%AA%E6%9A%A6"
-p gregorian.reference('en')                  #=> "http://en.wikipedia.org/wiki/Gregorian_calendar"
-p gregorian.reference('fr')                  #=> "http://en.wikipedia.org/wiki/Gregorian_calendar" (未定義でデフォルト使用)
+p gregorian.reference('ja')                  #=> "https://ja.wikipedia.org/wiki/%E3%82%B0%E3%83%AC%E3%82%B4%E3%83%AA%E3%82%AA%E6%9A%A6"
+p gregorian.reference('en')                  #=> "https://en.wikipedia.org/wiki/Gregorian_calendar"
+p gregorian.reference('fr')                  #=> "https://en.wikipedia.org/wiki/Gregorian_calendar" (未定義でデフォルト使用)
 p 'Gregorian'.calendar.label.iri             #=> "http://hosi.org/When/BasicTypes/M17n/Christian::Gregorian" (同じIRIのオブジェクト)
 
 # * 一月
@@ -37,9 +37,9 @@ p january.translate('fr')                    #=> "janvier"
 p january/'ja'                               #=> "1月"
 p january/'en'                               #=> "January"
 p january/'fr'                               #=> "janvier"
-p january.reference('ja')                    #=> "http://ja.wikipedia.org/wiki/1%E6%9C%88"
-p january.reference('en')                    #=> "http://en.wikipedia.org/wiki/January"
-p january.reference('fr')                    #=> "http://en.wikipedia.org/wiki/January" (未定義でデフォルト使用)
+p january.reference('ja')                    #=> "https://ja.wikipedia.org/wiki/1%E6%9C%88"
+p january.reference('en')                    #=> "https://en.wikipedia.org/wiki/January"
+p january.reference('fr')                    #=> "https://en.wikipedia.org/wiki/January" (未定義でデフォルト使用)
 p '1月'.month_name.iri                       #=> "http://hosi.org/When/BasicTypes/M17n/Calendar::Month::January" (同じIRIのオブジェクト)
 p 'Calendar::Month::January'.m17n.iri   #=> "http://hosi.org/When/BasicTypes/M17n/Calendar::Month::January" (同じIRIのオブジェクト)
 

data/test/scripts/8.rb

@@ -24,9 +24,9 @@ p gregorian.translate('fr')                 #=> "Gregorian" (未定義でデフ
 p gregorian/'ja'                            #=> "グレゴリオ暦"
 p gregorian/'en'                            #=> "Gregorian"
 p gregorian/'fr'                            #=> "Gregorian" (未定義でデフォルト使用)
-p gregorian.reference('ja')                 #=> "http://ja.wikipedia.org/wiki/%E3%82%B0%E3%83%AC%E3%82%B4%E3%83%AA%E3%82%AA%E6%9A%A6"
-p gregorian.reference('en')                 #=> "http://en.wikipedia.org/wiki/Gregorian_calendar"
-p gregorian.reference('fr')                 #=> "http://en.wikipedia.org/wiki/Gregorian_calendar" (未定義でデフォルト使用)
+p gregorian.reference('ja')                 #=> "https://ja.wikipedia.org/wiki/%E3%82%B0%E3%83%AC%E3%82%B4%E3%83%AA%E3%82%AA%E6%9A%A6"
+p gregorian.reference('en')                 #=> "https://en.wikipedia.org/wiki/Gregorian_calendar"
+p gregorian.reference('fr')                 #=> "https://en.wikipedia.org/wiki/Gregorian_calendar" (未定義でデフォルト使用)
 p Calendar('Gregorian').label.iri           #=> "http://hosi.org/When/BasicTypes/M17n/Christian::Gregorian" (同じIRIのオブジェクト)
 
 # * 一月
@@ -38,9 +38,9 @@ p january.translate('fr')                   #=> "janvier"
 p january/'ja'                              #=> "1月"
 p january/'en'                              #=> "January"
 p january/'fr'                              #=> "janvier"
-p january.reference('ja')                   #=> "http://ja.wikipedia.org/wiki/1%E6%9C%88"
-p january.reference('en')                   #=> "http://en.wikipedia.org/wiki/January"
-p january.reference('fr')                   #=> "http://en.wikipedia.org/wiki/January" (未定義でデフォルト使用)
+p january.reference('ja')                   #=> "https://ja.wikipedia.org/wiki/1%E6%9C%88"
+p january.reference('en')                   #=> "https://en.wikipedia.org/wiki/January"
+p january.reference('fr')                   #=> "https://en.wikipedia.org/wiki/January" (未定義でデフォルト使用)
 p MonthName('1月').iri                      #=> "http://hosi.org/When/BasicTypes/M17n/Calendar::Month::January" (同じIRIのオブジェクト)
 p M17n('Calendar::Month::January').iri #=> "http://hosi.org/When/BasicTypes/M17n/Calendar::Month::January" (同じIRIのオブジェクト)
 

data/test/scripts/geometric_complex.rb

@@ -1,41 +1,41 @@
-# -*- coding: utf-8 -*-
-=begin
-  Copyright (C) 2011-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
-
-require 'pp'
-require 'when_exe'
-include When
-
-range_null = Parts::GeometricComplex.new()
-range_1_1  = Parts::GeometricComplex.new(1)
-range_1_4  = Parts::GeometricComplex.new(1,4)
-range_2_2  = Parts::GeometricComplex.new(2)
-range_2_3  = Parts::GeometricComplex.new(2,3)
-range_2_5  = Parts::GeometricComplex.new(2,5)
-range_4_4  = Parts::GeometricComplex.new(4)
-pp range_1_4
-pp range_2_3
-range_1_4.each {|x| pp x}
-pp range_4_4
-pp range_1_4 | range_2_3
-pp range_1_4.include?(range_2_2)
-pp range_1_4.include?(range_2_3)
-range_1_5 = range_1_4 | range_2_5
-pp range_1_5
-pp range_1_4.include?(range_2_5)
-pp range_1_4 | range_4_4
-pp range_1_4.include?(range_4_4)
-reverse_all  = Parts::GeometricComplex.new(true)
-reverse_1_4  = Parts::GeometricComplex.new(1,4, true)
-reverse_2_3  = Parts::GeometricComplex.new(2,3, true)
-reverse_2_5  = Parts::GeometricComplex.new(2,5, true)
-pp reverse_all
-pp reverse_1_4
-pp reverse_2_3
-pp reverse_2_3 | range_2_3
-pp reverse_1_4 | range_2_5
-
+# -*- coding: utf-8 -*-
+=begin
+  Copyright (C) 2011-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
+
+require 'pp'
+require 'when_exe'
+include When
+
+range_null = Parts::GeometricComplex.new()
+range_1_1  = Parts::GeometricComplex.new(1)
+range_1_4  = Parts::GeometricComplex.new(1,4)
+range_2_2  = Parts::GeometricComplex.new(2)
+range_2_3  = Parts::GeometricComplex.new(2,3)
+range_2_5  = Parts::GeometricComplex.new(2,5)
+range_4_4  = Parts::GeometricComplex.new(4)
+pp range_1_4
+pp range_2_3
+range_1_4.each {|x| pp x}
+pp range_4_4
+pp range_1_4 | range_2_3
+pp range_1_4.include?(range_2_2)
+pp range_1_4.include?(range_2_3)
+range_1_5 = range_1_4 | range_2_5
+pp range_1_5
+pp range_1_4.include?(range_2_5)
+pp range_1_4 | range_4_4
+pp range_1_4.include?(range_4_4)
+reverse_all  = Parts::GeometricComplex.new(true)
+reverse_1_4  = Parts::GeometricComplex.new(1,4, true)
+reverse_2_3  = Parts::GeometricComplex.new(2,3, true)
+reverse_2_5  = Parts::GeometricComplex.new(2,5, true)
+pp reverse_all
+pp reverse_1_4
+pp reverse_2_3
+pp reverse_2_3 | range_2_3
+pp reverse_1_4 | range_2_5
+

data/test/scripts/korea.rb

@@ -1,59 +1,59 @@
-# -*- 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
-
-require 'when_exe'
-require 'when_exe/region/chinese/calendars'
-include When
-
-class When::TM::CalendarEra
-  Korea = [self, [
-    'namespace:[en=http://en.wikipedia.org/wiki/, ja=http://ja.wikipedia.org/wiki/]',
-    'locale:[=en:, ja=ja:, alias]',
-    'area:[Korea, 朝鮮]',
-    ['[秦漢]1.01.01',    '@CR',    "1-01-01^Chinese_103"],
-    ['[魏晋]239.01.01',  '@CR',  "239-01-01^Chinese0239"],
-    ['[南朝]451.01.01',  '@CR',  "451-01-01^Chinese0445"],
-    ['[隋唐]590.01.01',  '@CR',  "590-01-01^Chinese0523"],
-    ['[宣明]893.01.01',  '@CR',  "893-01-01^ChineseTwin::宣明暦"],
-    ['[大統]1309.01.01', '@CR', "1309-01-01^Chinese0939"],
-    ['[時憲]1653.01.01', '@CR', "1653-01-01^Chinese1645"],
-    ['[旧暦]1912.01.01', '@CR', "1912-01-01^ChineseLuniSolar?time_basis=+09:00"]
-  ]]
-end
-
-R = {'10-'=>'0X-', '11-'=>'0N-', '12-'=>'0D-'}
-
-def list_1st_day(range, calendar)
-  range.each do |year|
-    list  = "%4d" % year
-    kdate = first = when?("Korea#{year}.1.1")
-    loop do
-      wdate  = (calendar ^ kdate).to_s[-5..-1]
-      wdate.sub!(/1.-/) {|c| R[c]}
-      wdate.sub!(/^0/, '')
-      wdate.sub!('-', '+') if kdate.length(MONTH) == 30
-      list  += (kdate[MONTH] * 0 == 0) ? "  #{wdate} " : " (#{wdate})"
-      kdate += P1M
-      break unless year == kdate[YEAR]
-    end
-    puts list
-=begin
-    list  = "    "
-    kdate = first
-    loop do
-      wdate  = (Residue('干支') % kdate).label
-      list  += (kdate[MONTH] * 0 == 0) ? "  #{wdate} " : " (#{wdate})"
-      kdate += P1M
-      break unless year == kdate[YEAR]
-    end
-    puts list
-=end
-    puts if year % 10 == 0
- end
-end
-
-list_1st_day(1..1895, Civil)
+# -*- 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
+
+require 'when_exe'
+require 'when_exe/region/chinese/calendars'
+include When
+
+class When::TM::CalendarEra
+  Korea = [self, [
+    'namespace:[en=https://en.wikipedia.org/wiki/, ja=https://ja.wikipedia.org/wiki/]',
+    'locale:[=en:, ja=ja:, alias]',
+    'area:[Korea, 朝鮮]',
+    ['[秦漢]1.01.01',    '@CR',    "1-01-01^Chinese_103"],
+    ['[魏晋]239.01.01',  '@CR',  "239-01-01^Chinese0239"],
+    ['[南朝]451.01.01',  '@CR',  "451-01-01^Chinese0445"],
+    ['[隋唐]590.01.01',  '@CR',  "590-01-01^Chinese0523"],
+    ['[宣明]893.01.01',  '@CR',  "893-01-01^ChineseTwin::宣明暦"],
+    ['[大統]1309.01.01', '@CR', "1309-01-01^Chinese0939"],
+    ['[時憲]1653.01.01', '@CR', "1653-01-01^Chinese1645"],
+    ['[旧暦]1912.01.01', '@CR', "1912-01-01^ChineseLuniSolar?time_basis=+09:00"]
+  ]]
+end
+
+R = {'10-'=>'0X-', '11-'=>'0N-', '12-'=>'0D-'}
+
+def list_1st_day(range, calendar)
+  range.each do |year|
+    list  = "%4d" % year
+    kdate = first = when?("Korea#{year}.1.1")
+    loop do
+      wdate  = (calendar ^ kdate).to_s[-5..-1]
+      wdate.sub!(/1.-/) {|c| R[c]}
+      wdate.sub!(/^0/, '')
+      wdate.sub!('-', '+') if kdate.length(MONTH) == 30
+      list  += (kdate[MONTH] * 0 == 0) ? "  #{wdate} " : " (#{wdate})"
+      kdate += P1M
+      break unless year == kdate[YEAR]
+    end
+    puts list
+=begin
+    list  = "    "
+    kdate = first
+    loop do
+      wdate  = (Residue('干支') % kdate).label
+      list  += (kdate[MONTH] * 0 == 0) ? "  #{wdate} " : " (#{wdate})"
+      kdate += P1M
+      break unless year == kdate[YEAR]
+    end
+    puts list
+=end
+    puts if year % 10 == 0
+ end
+end
+
+list_1st_day(1..1895, Civil)

data/test/scripts/thai.rb

@@ -1,36 +1,36 @@
-# -*- 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
-
-require 'pp'
-require 'when_exe'
-include When
-
-Type = {
-  354 => 'A',
-  355 => 'B',
-  384 => 'C'
-}
-
-Pattern = {}
-
-open('scripts/thai-reviewed.txt', 'r') do |source|
-  this_year = nil
-  while (line=source.gets)
-    year, month, day = line.split(/ +/)[2..4].map {|c| c.to_i}
-    next_year = TemporalPosition(year, month, day, :frame=>Gregorian)
-    thai_year = TemporalPosition(year-638, 6,   1, :frame=>'ThaiT')
-    raise ArgumentError, "#{next_year} != #{Gregorian ^ thai_year}" unless next_year.to_i == thai_year.to_i
-    year     -= 1
-    if this_year
-      type = Type[next_year.to_i-this_year.to_i]
-      Pattern[year] = type
-      puts "%04d,%04d,%s" % [year, year-638, type || '!']
-    end
-    this_year = next_year
-  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
+
+require 'pp'
+require 'when_exe'
+include When
+
+Type = {
+  354 => 'A',
+  355 => 'B',
+  384 => 'C'
+}
+
+Pattern = {}
+
+open('scripts/thai-reviewed.txt', 'r') do |source|
+  this_year = nil
+  while (line=source.gets)
+    year, month, day = line.split(/ +/)[2..4].map {|c| c.to_i}
+    next_year = TemporalPosition(year, month, day, :frame=>Gregorian)
+    thai_year = TemporalPosition(year-638, 6,   1, :frame=>'ThaiT')
+    raise ArgumentError, "#{next_year} != #{Gregorian ^ thai_year}" unless next_year.to_i == thai_year.to_i
+    year     -= 1
+    if this_year
+      type = Type[next_year.to_i-this_year.to_i]
+      Pattern[year] = type
+      puts "%04d,%04d,%s" % [year, year-638, type || '!']
+    end
+    this_year = next_year
+  end
+end