warekky 0.1.0

data/.document

@@ -0,0 +1,5 @@
+README.rdoc
+lib/**/*.rb
+bin/*
+features/**/*.feature
+LICENSE

data/.gitignore

@@ -0,0 +1,21 @@
+## MAC OS
+.DS_Store
+
+## TEXTMATE
+*.tmproj
+tmtags
+
+## EMACS
+*~
+\#*
+.\#*
+
+## VIM
+*.swp
+
+## PROJECT::GENERAL
+coverage
+rdoc
+pkg
+
+## PROJECT::SPECIFIC

data/LICENSE

@@ -0,0 +1,20 @@
+Copyright (c) 2009 Takeshi AKIMA
+
+Permission is hereby granted, free of charge, to any person obtaining
+a copy of this software and associated documentation files (the
+"Software"), to deal in the Software without restriction, including
+without limitation the rights to use, copy, modify, merge, publish,
+distribute, sublicense, and/or sell copies of the Software, and to
+permit persons to whom the Software is furnished to do so, subject to
+the following conditions:
+
+The above copyright notice and this permission notice shall be
+included in all copies or substantial portions of the Software.
+
+THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
+EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
+MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
+NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE
+LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION
+OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION
+WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.

data/README.rdoc

@@ -0,0 +1,26 @@
+= warekky
+
+warekkyは和暦サポートのためのライブラリです。
+和暦の日付と西暦の日付を相互に変換できます。
+
+== Install
+ $ [sudo] gem install warekky
+
+== Simple Usage
+ $ irb
+ require 'warekky'
+ #=> true
+ 
+ Date.new(2010, 6, 10).strftime("%g%n/%m/%d")
+ #=> "H22/06/10"
+ 
+ Time.parse("H22/06/10 19:07:20")
+ #=> Thu Jun 10 19:07:20 0900 2010
+ 
+ Time.now.era.name
+ #=> "heisei"
+
+
+== Copyright
+
+Copyright (c) 2010 Takeshi AKIMA. See LICENSE for details.

data/Rakefile

@@ -0,0 +1,49 @@
+# -*- coding: utf-8 -*-
+require 'rubygems'
+require 'rake'
+
+begin
+  require 'jeweler'
+  Jeweler::Tasks.new do |gem|
+    gem.name = "warekky"
+    gem.summary = %Q{Japanese Era(年号) library and Time, Date, DateTime extensions.}
+    gem.description = %Q{Japanese Era(年号) library and Time, Date, DateTime extensions.}
+    gem.email = "akm2000@gmail.com"
+    gem.homepage = "http://github.com/akm/warekky"
+    gem.authors = ["Takeshi AKIMA"]
+    gem.add_development_dependency "rspec", ">= 1.2.9"
+    # gem is a Gem::Specification... see http://www.rubygems.org/read/chapter/20 for additional settings
+  end
+  Jeweler::GemcutterTasks.new
+rescue LoadError
+  puts "Jeweler (or a dependency) not available. Install it with: gem install jeweler"
+end
+
+require 'spec/rake/spectask'
+Spec::Rake::SpecTask.new(:spec) do |spec|
+  spec.libs << 'lib' << 'spec'
+  spec.spec_files = FileList['spec/**/*_spec.rb']
+end
+
+Spec::Rake::SpecTask.new(:rcov) do |spec|
+  spec.libs << 'lib' << 'spec'
+  spec.pattern = 'spec/**/*_spec.rb'
+  spec.rcov = true
+  spec.rcov_opts = lambda do
+    IO.readlines("spec/rcov.opts").map {|l| l.chomp.split " "}.flatten
+  end
+end
+
+task :spec => :check_dependencies
+
+task :default => :spec
+
+require 'rake/rdoctask'
+Rake::RDocTask.new do |rdoc|
+  version = File.exist?('VERSION') ? File.read('VERSION') : ""
+
+  rdoc.rdoc_dir = 'rdoc'
+  rdoc.title = "warekky #{version}"
+  rdoc.rdoc_files.include('README*')
+  rdoc.rdoc_files.include('lib/**/*.rb')
+end

data/VERSION

@@ -0,0 +1 @@
+0.1.0

data/lib/warekky/core_ext.rb

@@ -0,0 +1,49 @@
+require 'warekky'
+
+module Warekky
+  module CoreExt
+    def self.included(klass)
+      klass.extend(ClassMethods)
+      unless klass.respond_to?(:parse_without_warekky)
+        klass.instance_eval do
+          alias :parse_without_warekky :parse
+          alias :parse :parse_with_warekky
+        end
+      end
+      unless klass.instance_methods.include?('strftime_without_warekky')
+        klass.module_eval do
+          alias_method :strftime_without_warekky, :strftime
+          alias_method :strftime, :strftime_with_warekky
+        end
+      end
+    end
+
+    module ClassMethods
+      def eras
+        Warekky.era_group
+      end
+
+      def parse_with_warekky(str)
+        eras.parse(str, :class => self)
+      end
+    end
+
+    def strftime_with_warekky(format)
+      self.class.eras.strftime(self, format)
+    end
+    
+    def era
+      self.class.eras[self]
+    end
+    
+    def self.setup
+      [::Time, ::Date].each do |klass|
+        klass.send(:include, self)
+      end
+      ::DateTime.instance_eval do
+        alias :parse :parse_with_warekky
+      end
+    end
+
+  end
+end

data/lib/warekky/era.rb

@@ -0,0 +1,44 @@
+require 'warekky'
+
+module Warekky
+  class Era
+    attr_reader :key, :sign, :first, :last, :options
+    def initialize(key, sign, first, last, options = {})
+      @key, @sign = key.to_sym, sign.to_s.freeze
+      @first, @last = to_date(first), to_date(last)
+      @options = (options || {}).freeze
+    end
+
+    def name
+      key.to_s
+    end
+
+    def match?(d)
+      d = to_date(d)
+      (@first ? @first <= d : true) && (@last ? @last >= d : true)
+    end
+
+    def [](option_key)
+      @options[option_key]
+    end
+
+    def to_ad_year(era_year)
+      era_year = era_year.to_i
+      @first.year - 1 + era_year
+    end
+
+    def to_era_year(ad_year)
+      ad_year = ad_year.to_i
+      ad_year - @first.year + 1
+    end
+
+    private
+    def to_date(obj)
+      return nil unless obj
+      return obj if obj.is_a?(Date)
+      return Date.new(obj.year, obj.month, obj.day) if obj.is_a?(Time)
+      return obj.to_date if respond_to?(:to_date)
+      Warekky.try_without(Date, :parse, obj.to_s)
+    end
+  end
+end

data/lib/warekky/era_group.rb

@@ -0,0 +1,138 @@
+# -*- coding: utf-8 -*-
+require 'warekky'
+
+module Warekky
+  class EraGroup
+    def initialize
+      @formats = self.class.formats.dup
+    end
+
+    class_method_proxy_methods = %w[eras name_to_era era_replacements 
+      formats formats_regexp replacements_before_parse]
+    class_method_proxy_methods.each do |method_name|
+      module_eval(<<-"EOS")
+        def #{method_name}
+          self.class.#{method_name}
+        end
+      EOS
+    end
+
+    def parse(str, options = {})
+      options = {
+        :class => Date
+      }.update(options || {})
+      str = str.dup
+      replacements_before_parse.each_with_index do |dic, idx|
+        str.gsub!(replacements_regexp_before_parse[idx]){|s| dic[s]}
+      end
+      era_dic = name_to_era
+      str.gsub!(era_replacements) do
+        md = Regexp.last_match
+        h = Hash[*md.captures]
+        h.delete(nil)
+        s = h.keys.first
+        era = era_dic[s]
+        raise ArgumentError, "Era not found for #{s.inspect}" unless era
+        era.to_ad_year(h[s]).to_s
+      end
+      Warekky.try_without(options[:class], :parse, str)
+    end
+
+    def strftime(d, format)
+      return Warekky.try_without(d, :strftime, format) unless formats_regexp.match(format)
+      era = self[d]
+      era_year = era ? era.to_era_year(d.year) : d.year
+      format = format.dup
+      format.gsub!(formats_regexp) do
+        md = Regexp.last_match
+        s = md.captures.compact.first
+        rep = formats[s]
+        raise ArgumentError, "replacement not found for #{s.inspect}" unless rep
+        res = rep.call(era, era_year)
+        res
+      end
+      Warekky.try_without(d, :strftime, format)
+    end
+
+    def [](era_name_or_date_or_time)
+      return nil unless era_name_or_date_or_time
+      case era_name_or_date_or_time
+      when Symbol, String then
+        name_to_era[era_name_or_date_or_time]
+      when Time, Date then
+        eras.detect{|era| era.match?(era_name_or_date_or_time)}
+      else
+        raise ArgumentError, "#{self.class.name}#[] doesn't support #{era_name_or_date_or_time.inspect}"
+      end
+    end
+
+    def replacements_regexp_before_parse
+      @replacements_regexp_before_parse ||=
+        replacements_before_parse.map{|replacements|
+        Regexp.union(*replacements.keys.map{|s| /(#{Regexp.escape(s)})/})}
+    end
+
+    class << self
+      def eras
+        @eras ||= []
+      end
+      def name_to_era
+        unless @name_to_era
+          @name_to_era = eras.inject({}) do |d, era|
+            d[era.key] = era
+            d[era.key.to_s] = era
+            d[era.sign] = era
+            era_extra_names.each do |extra_name|
+              d[era[extra_name]] = era
+            end
+            d
+          end
+        end
+        @name_to_era
+      end
+
+      def era(first, last, key, sign, options = {})
+        key = key.to_sym
+        result = Era.new(key, sign, first, last, options).freeze
+        eras << result
+        result
+      end
+
+      def era_extra_names
+        eras.map{|era| era.options.keys}.flatten.uniq
+      end
+
+      attr_accessor :parse_regexp_builder
+      def parse_regexp(&block)
+        @parse_regexp_builder = block
+      end
+
+      def replacements_before_parse
+        @replacements_before_parse ||= []
+      end
+
+      def replace_before_parse(*replacements)
+        @replacements_before_parse = replacements
+      end
+
+      def era_replacements
+        @era_replacements ||= Regexp.union(eras.map(&parse_regexp_builder).flatten)
+      end
+
+      def formats
+        @formats ||= {}
+      end
+
+      def format(pattern, &block)
+        formats[pattern] = block
+      end
+
+      def formats_regexp
+        @formats_regexp ||=
+          Regexp.union(*formats.map{|(k,v)| /(#{Regexp.escape(k)})/})
+      end
+
+    end
+
+  end
+end

data/lib/warekky/ja.rb

@@ -0,0 +1,36 @@
+# -*- coding: utf-8 -*-
+require 'warekky'
+
+module Warekky
+  class Ja < EraGroup
+    # http://ja.wikipedia.org/wiki/明治
+    #    明治（めいじ）は、日本の元号の一つ。慶応の後、大正の前。明治元年1月1日（1868年1月25日）から
+    #    明治45年（大正元年、1912年）7月30日までの期間を指す。明治天皇在位期間とほぼ一致する。
+    #    ただし、実際に改元の詔書が出されたのは慶応4年9月8日（1868年10月23日）で、同年1月1日に遡って明治元年とすると定めた。
+    #
+    #    ※明治5年までは旧暦を使用していたため、西暦（グレゴリオ暦）の年とは厳密には一致しない。詳細は明治元年〜5年の各年の項目を参照。
+    era('1868/01/01', '1912/07/29', :meiji , 'M', :long => '明治', :short => "明") # 1 - 45
+    era('1912/07/30', '1926/12/24', :taisho, 'T', :long => '大正', :short => "大") # 1 - 15
+    era('1926/12/25', '1989/01/07', :showa , 'S', :long => '昭和', :short => "昭") # 1 - 64
+    era('1989/01/08', nil          , :heisei, 'H', :long => '平成', :short => "平") # 1 -
+
+    # strftimeで使える記号
+    format('%G'){|era, era_year| era[:long] if era} # 明治/大正/昭和/平成
+    format('%g'){|era, era_year| era.sign if era}   # M/T/S/H
+    format('%n'){|era, era_year| '%02d' % era_year} # (元号での)年度
+
+    # parseで使われる元号毎の正規表現
+    parse_regexp do |era|
+      [ /(#{Regexp.escape(era.name)})(\d{1,2})/,
+        /(#{Regexp.escape(era.sign)})(\d{1,2})/,
+        /(#{Regexp.escape(era[:short])})(\d{1,2})/,
+        /(#{Regexp.escape(era[:long])})(\d{1,2})/]
+    end
+
+    # parseを実行前に適用される置換
+    replace_before_parse(
+      {"元年" => "1年"},
+      {"年" => ".", "月" => ".", "日" => "", "時" => ":", "分" => ":", "秒" => ""}
+      )
+  end
+end

data/lib/warekky.rb

@@ -0,0 +1,49 @@
+require 'date'
+require 'time'
+
+module Warekky
+  autoload :Era, 'warekky/era'
+  autoload :EraGroup, 'warekky/era_group'
+  autoload :Ja, 'warekky/ja'
+  autoload :CoreExt, 'warekky/core_ext'
+
+  class << self
+    attr_writer :era_group
+    attr_writer :era_group_class
+
+    def era_group
+      @era_group ||= (era_group_class ? era_group_class.new : nil)
+    end
+
+    def era_group_class
+      @era_group_class = ::Warekky::Ja unless defined?(@era_group_class)
+      @era_group_class
+    end
+
+    # d: Date or Time
+    def strftime(d, format)
+      era_group ? 
+        era_group.strftime(d, format) : 
+        d.strftime(format)
+    end
+
+    def parse(str, options = {})
+      era_group ? 
+        era_group.parse(str, options) : 
+        try_without(DateTime, :parse, str)
+    end
+
+    def [](era_name_or_date_or_time)
+      era_group[era_name_or_date_or_time]
+    end
+
+    def try_without(obj, method_name, *args, &block)
+      without_m = "#{method_name}_without_warekky"
+      return obj.send(without_m, *args, &block) if obj.respond_to?(without_m)
+      obj.send(method_name, *args, &block)
+    end
+  end
+
+end
+
+Warekky::CoreExt.setup

data/spec/core_ext/with_date_spec.rb

@@ -0,0 +1,152 @@
+# -*- coding: utf-8 -*-
+require File.expand_path('../spec_helper', File.dirname(__FILE__))
+
+describe "Warekky" do
+
+  before :all do
+    Warekky.era_group_class = Warekky::Ja
+  end
+
+  describe :strftime do
+    it "without era name (元号の指定なし)" do
+      Date.new(1867,12,31).strftime('%Y.%m.%d').should == "1867.12.31"
+      Date.new(1868, 1, 1).strftime('%Y.%m.%d').should == "1868.01.01"
+    end
+
+    it "with alphabet era name (アルファベット表記の元号)" do
+      fmt = '%g%n/%m/%d'
+      Date.new(1867,12,31).strftime(fmt).should == "1867/12/31"
+      Date.new(1868, 1, 1).strftime(fmt).should == "M01/01/01"
+      Date.new(1912, 7,29).strftime(fmt).should == "M45/07/29"
+      Date.new(1912, 7,30).strftime(fmt).should == "T01/07/30"
+      Date.new(1926,12,24).strftime(fmt).should == "T15/12/24"
+      Date.new(1926,12,25).strftime(fmt).should == "S01/12/25"
+      Date.new(1989, 1, 7).strftime(fmt).should == "S64/01/07"
+      Date.new(1989, 1, 8).strftime(fmt).should == "H01/01/08"
+      Date.new(2010, 6, 9).strftime(fmt).should == "H22/06/09"
+      Date.new(2050,12,31).strftime(fmt).should == "H62/12/31"
+    end
+
+    it "with chinese charactor era name (漢字表記の元号)" do
+      fmt = '%G%n/%m/%d'
+      Date.new(1867,12,31).strftime(fmt).should == "1867/12/31"
+      Date.new(1868, 1, 1).strftime(fmt).should == "明治01/01/01"
+      Date.new(1912, 7,29).strftime(fmt).should == "明治45/07/29"
+      Date.new(1912, 7,30).strftime(fmt).should == "大正01/07/30"
+      Date.new(1926,12,24).strftime(fmt).should == "大正15/12/24"
+      Date.new(1926,12,25).strftime(fmt).should == "昭和01/12/25"
+      Date.new(1989, 1, 7).strftime(fmt).should == "昭和64/01/07"
+      Date.new(1989, 1, 8).strftime(fmt).should == "平成01/01/08"
+      Date.new(2010, 6, 9).strftime(fmt).should == "平成22/06/09"
+      Date.new(2050,12,31).strftime(fmt).should == "平成62/12/31"
+    end
+  end
+
+
+  describe :era do
+    it "should return an era for date" do
+      Date.new(1867,12,31).era.should == nil
+      Date.new(1868, 1, 1).era.name.should == 'meiji'
+      Date.new(1912, 7,29).era.name.should == 'meiji'
+      Date.new(1912, 7,30).era.name.should == 'taisho'
+      Date.new(1926,12,24).era.name.should == 'taisho'
+      Date.new(1926,12,25).era.name.should == 'showa'
+      Date.new(1989, 1, 7).era.name.should == 'showa'
+      Date.new(1989, 1, 8).era.name.should == 'heisei'
+      Date.new(2010, 6, 9).era.name.should == 'heisei'
+      Date.new(2050,12,31).era.name.should == 'heisei'
+    end
+  end
+
+  describe :parse do
+    it "without era name (元号の指定なし)" do
+      Date.parse("1867/12/31").should == Date.new(1867,12,31)
+    end
+
+    it "with alphabet era name (アルファベット表記の元号)" do
+      Date.parse("M01/01/01").should == Date.new(1868, 1, 1)
+      Date.parse("M45/07/29").should == Date.new(1912, 7,29)
+      Date.parse("T01/07/30").should == Date.new(1912, 7,30)
+      Date.parse("T15/12/24").should == Date.new(1926,12,24)
+      Date.parse("S01/12/25").should == Date.new(1926,12,25)
+      Date.parse("S64/01/07").should == Date.new(1989, 1, 7)
+      Date.parse("H01/01/08").should == Date.new(1989, 1, 8)
+      Date.parse("H22/06/09").should == Date.new(2010, 6, 9)
+      Date.parse("H62/12/31").should == Date.new(2050,12,31)
+    end
+
+    it "区切りなし" do
+      Date.parse("M010101").should == Date.new(1868, 1, 1)
+      Date.parse("M450729").should == Date.new(1912, 7,29)
+      Date.parse("T010730").should == Date.new(1912, 7,30)
+      Date.parse("T151224").should == Date.new(1926,12,24)
+      Date.parse("S011225").should == Date.new(1926,12,25)
+      Date.parse("S640107").should == Date.new(1989, 1, 7)
+      Date.parse("H010108").should == Date.new(1989, 1, 8)
+      Date.parse("H220609").should == Date.new(2010, 6, 9)
+      Date.parse("H621231").should == Date.new(2050,12,31)
+    end
+
+    it "with chinese charactor era name (漢字表記の元号)" do
+      Date.parse("明治元年1月1日").should == Date.new(1868, 1, 1)
+      Date.parse("明治1年1月1日").should == Date.new(1868, 1, 1)
+      Date.parse("明治01年01月01日").should == Date.new(1868, 1, 1)
+      Date.parse("明治45年07月29日").should == Date.new(1912, 7,29)
+      Date.parse("大正01年07月30日").should == Date.new(1912, 7,30)
+      Date.parse("大正15年12月24日").should == Date.new(1926,12,24)
+      Date.parse("昭和01年12月25日").should == Date.new(1926,12,25)
+      Date.parse("昭和64年01月07日").should == Date.new(1989, 1, 7)
+      Date.parse("平成01年01月08日").should == Date.new(1989, 1, 8)
+      Date.parse("平成22年06月09日").should == Date.new(2010, 6, 9)
+      Date.parse("平成62年12月31日").should == Date.new(2050,12,31)
+    end
+
+    it "with chinese charactor short era name (漢字省略表記の元号)" do
+      Date.parse("明元年1月1日").should == Date.new(1868, 1, 1)
+      Date.parse("明1年1月1日").should == Date.new(1868, 1, 1)
+      Date.parse("明01年01月01日").should == Date.new(1868, 1, 1)
+      Date.parse("明45年07月29日").should == Date.new(1912, 7,29)
+      Date.parse("大01年07月30日").should == Date.new(1912, 7,30)
+      Date.parse("大15年12月24日").should == Date.new(1926,12,24)
+      Date.parse("昭01年12月25日").should == Date.new(1926,12,25)
+      Date.parse("昭64年01月07日").should == Date.new(1989, 1, 7)
+      Date.parse("平01年01月08日").should == Date.new(1989, 1, 8)
+      Date.parse("平22年06月09日").should == Date.new(2010, 6, 9)
+      Date.parse("平62年12月31日").should == Date.new(2050,12,31)
+    end
+
+  end
+
+  describe :[] do
+    describe "should return an Era object" do
+      it "for era_name" do
+        [:meiji, :taisho, :showa, :heisei].each do |era|
+          Date.eras[era].class.should == Warekky::Era
+          Date.eras[era.to_s].class.should == Warekky::Era
+        end
+        Date.eras[nil].should == nil
+        Date.eras[''].should == nil
+        Date.eras[:unexist_era].should == nil
+      end
+
+      it "for era_name with kanji" do
+        %w[M T S H 明治 大正 昭和 平成 明 大 昭 平].each do |era|
+          Date.eras[era].class.should == Warekky::Era
+        end
+      end
+
+      it "for date" do
+        Date.eras[Date.new(1867,12,31)].should == nil
+        Date.eras[Date.new(1868, 1, 1)].name.should == 'meiji'
+        Date.eras[Date.new(1912, 7,29)].name.should == 'meiji'
+        Date.eras[Date.new(1912, 7,30)].name.should == 'taisho'
+        Date.eras[Date.new(1926,12,24)].name.should == 'taisho'
+        Date.eras[Date.new(1926,12,25)].name.should == 'showa'
+        Date.eras[Date.new(1989, 1, 7)].name.should == 'showa'
+        Date.eras[Date.new(1989, 1, 8)].name.should == 'heisei'
+        Date.eras[Date.new(2010, 6, 9)].name.should == 'heisei'
+        Date.eras[Date.new(2050,12,31)].name.should == 'heisei'
+      end
+    end
+  end
+end