cal-jp-holiday 1.1.0

data/History.txt

@@ -0,0 +1,15 @@
+== 1.1.0 2008-01-05
+
+* 4 minor enhancement
+  * �j���������菈���lj��iwday �������Ȃ��I�u�W�F�N�g�ɂ� mix-in �”\�ɂ����j
+  * �����R�[�h�������菈���E�w��@�\�lj�
+  * �h�L�������e�[�V�����R�����g�lj�
+  * ���W���[������ JapaneseHolidays ���� Calendar::Japanese::Holiday �ɕύX
+
+* 1 bug fix
+  * �U��ւ��x�������݂��Ȃ��N�ɂ��U��ւ��x�������݂��Ă��܂��o�O���C��
+
+== 1.0.0 2007-11-15
+
+* 1 major enhancement:
+  * �V�K�쐬

data/License.txt

@@ -0,0 +1,20 @@
+Copyright (c) 2007-2008 yy
+
+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/Manifest.txt

@@ -0,0 +1,25 @@
+History.txt
+License.txt
+Manifest.txt
+README.txt
+Rakefile
+config/hoe.rb
+config/requirements.rb
+lib/calendar-japanese-holiday.rb
+lib/calendar-japanese-holiday/version.rb
+lib/calendar/japanese/holiday.rb
+log/debug.log
+script/destroy
+script/generate
+script/txt2html
+setup.rb
+tasks/deployment.rake
+tasks/environment.rake
+tasks/website.rake
+test/test_calendar-japanese-holiday.rb
+test/test_helper.rb
+website/index.html
+website/index.txt
+website/javascripts/rounded_corners_lite.inc.js
+website/stylesheets/screen.css
+website/template.rhtml

data/README.txt

@@ -0,0 +1,84 @@
+= Calendar::Japanese::Holiday
+
+Author:: yy <http://dishhh.jp/>
+Version:: 1.1
+License:: MIT
+
+== Description
+���{�̏j�����������W���[���B
+
+Date�ATime�ADateTime �N���X�� Calendar::Japanese::Holiday ���W���[���� Mix-in ���邱�ƂŁA
+���{�̏j�������擾����@�\���lj������B
+Date�ATime�ADateTime �ȊO�̃N���X�ł����Ă� year�Amonth�Aday �����ƒN���X�ł���Η��p���邱�Ƃ��ł���B
+
+ # �x�����ǂ�����Ԃ�
+ date.holiday?
+ 
+ # �j���̖��O��Ԃ�
+ date.holiday
+ 
+ # �y�����ǂ�����Ԃ�
+ date.weekend?
+ 
+ # �j�����ǂ�����Ԃ�
+ date.national_holiday?
+ 
+ # �U�֋x�����ǂ�����Ԃ�
+ date.substitute_holiday?
+
+Holiday#holiday?() ���\�b�h�́uweekend? or national_holiday? or substitute_holiday?�v�Ɠ����B
+���̂��ߏj���݂̂𔻒肵�����ꍇ�� national_holiday?() �� substitute_holiday?() ���\�b�h���g�p����B
+
+Holiday#holiday() ���\�b�h�Ŏ擾�����j�����͓��{��}���`�o�C�g���������A
+�g�p����镶���R�[�h�̓v���b�g�t�H�[���ɉ����Ď����I�ɑI�������B
+��������ɕ����R�[�h���擾�ł��Ȃ��ꍇ�́A
+Holiday.set_nkf_opts() ���\�b�h��p���Ė����I�ɕ����R�[�h���w�肷�邱�Ƃ��ł���B
+
+���̃X�N���v�g�͎R�{�Ă���́u�j���Ή��J�����_�[�v���x�[�X�ɂ��Ă��܂��B
+
+[�u�j���Ή��J�����_�[�v]
+  http://itdict.ddo.jp/~yamamoto/Script/Calendar/
+
+== Install
+
+=== gem
+
+ sudo gem install calendar-japanese-holiday
+
+=== svn
+
+ svn co svn://rubyforge.org/var/svn/calendar-japanese-holiday/trunk ./
+
+=== tgz
+
+download: http://rubyforge.org/projects/calendar-japanese-holiday
+
+== Sample
+
+=== case 1
+ require 'calendar/japanese/holiday'
+ require 'date'
+ 
+ # Date �N���X�� Mix-in ����
+ class Date
+   include Calendar::Japanese::Holiday
+ end
+ 
+ today = Date.today
+ if today.national_holiday?
+   puts today.holiday
+ end
+
+=== case 2
+ # Time �I�u�W�F�N�g�� Mix-in ����
+ puts Time.now.extend(Calendar::Japanese::Holiday).holiday
+
+=== case 3
+ # Mix-in �����ɗ��p���� (deprecated)
+ holiday = Calendar::Japanese::Holiday.holiday_info Time.now
+ puts holiday.name if info.is_national
+
+=== case 4
+ # �����R�[�h�������I�� EUC �Ɏw�肷��
+ Calendar::Japanese::Holiday.set_opts "-e"
+ puts Date.parse("2008-01-01").extend(Calendar::Japanese::Holiday).holiday

data/Rakefile

@@ -0,0 +1,4 @@
+require 'config/requirements'
+require 'config/hoe' # setup Hoe + all gem configuration
+
+Dir['tasks/**/*.rake'].each { |rake| load rake }

data/config/hoe.rb

@@ -0,0 +1,72 @@
+require 'calendar-japanese-holiday/version'
+
+AUTHOR = 'yy'
+EMAIL = "dishhh@gmail.com"
+DESCRIPTION = "module for Japanese holiday"
+GEM_NAME = 'cal-jp-holiday' # what ppl will type to install your gem
+RUBYFORGE_PROJECT = 'cal-jp-holiday' # The unix name for your project
+HOMEPATH = "http://#{RUBYFORGE_PROJECT}.rubyforge.org"
+DOWNLOAD_PATH = "http://rubyforge.org/projects/#{RUBYFORGE_PROJECT}"
+
+@config_file = "~/.rubyforge/user-config.yml"
+@config = nil
+RUBYFORGE_USERNAME = "unknown"
+def rubyforge_username
+  unless @config
+    begin
+      @config = YAML.load(File.read(File.expand_path(@config_file)))
+    rescue
+      puts <<-EOS
+ERROR: No rubyforge config file found: #{@config_file}
+Run 'rubyforge setup' to prepare your env for access to Rubyforge
+ - See http://newgem.rubyforge.org/rubyforge.html for more details
+      EOS
+      exit
+    end
+  end
+  RUBYFORGE_USERNAME.replace @config["username"]
+end
+
+
+REV = nil 
+# UNCOMMENT IF REQUIRED: 
+# REV = `svn info`.each {|line| if line =~ /^Revision:/ then k,v = line.split(': '); break v.chomp; else next; end} rescue nil
+VERS = CalendarJapaneseHoliday::VERSION::STRING + (REV ? ".#{REV}" : "")
+RDOC_OPTS = ['--quiet', '--title', 'calendar-japanese-holiday documentation',
+    "--opname", "index.html",
+    "--line-numbers", 
+    "--main", "README",
+    "--inline-source",
+    "--charset=Shift_JIS"]
+
+class Hoe
+  def extra_deps 
+    @extra_deps.reject! { |x| Array(x).first == 'hoe' } 
+    @extra_deps
+  end 
+end
+
+# Generate all the Rake tasks
+# Run 'rake -T' to see list of generated tasks (from gem root directory)
+hoe = Hoe.new(GEM_NAME, VERS) do |p|
+  p.author = AUTHOR 
+  p.description = DESCRIPTION
+  p.email = EMAIL
+  p.summary = DESCRIPTION
+  p.url = HOMEPATH
+  p.rubyforge_name = RUBYFORGE_PROJECT if RUBYFORGE_PROJECT
+  p.test_globs = ["test/**/test_*.rb"]
+  p.clean_globs |= ['**/.*.sw?', '*.gem', '.config', '**/.DS_Store']  #An array of file patterns to delete on clean.
+  
+  # == Optional
+  p.changes = p.paragraphs_of("History.txt", 0..1).join("\n\n")
+  #p.extra_deps = []     # An array of rubygem dependencies [name, version], e.g. [ ['active_support', '>= 1.3.1'] ]
+  
+  #p.spec_extras = {}    # A hash of extra values to set in the gemspec.
+  
+end
+
+CHANGES = hoe.paragraphs_of('History.txt', 0..1).join("\\n\\n")
+PATH    = (RUBYFORGE_PROJECT == GEM_NAME) ? RUBYFORGE_PROJECT : "#{RUBYFORGE_PROJECT}/#{GEM_NAME}"
+hoe.remote_rdoc_dir = File.join(PATH.gsub(/^#{RUBYFORGE_PROJECT}\/?/,''), 'rdoc')
+hoe.rsync_args = '-av --delete --ignore-errors'

data/config/requirements.rb

@@ -0,0 +1,17 @@
+require 'fileutils'
+include FileUtils
+
+require 'rubygems'
+%w[rake hoe newgem rubigen].each do |req_gem|
+  begin
+    require req_gem
+  rescue LoadError
+    puts "This Rakefile requires the '#{req_gem}' RubyGem."
+    puts "Installation: gem install #{req_gem} -y"
+    exit
+  end
+end
+
+$:.unshift(File.join(File.dirname(__FILE__), %w[.. lib]))
+
+require 'calendar-japanese-holiday'

data/lib/calendar-japanese-holiday.rb

@@ -0,0 +1,5 @@
+$:.unshift File.dirname(__FILE__)
+
+module CalendarJapaneseHoliday
+  
+end

data/lib/calendar-japanese-holiday/version.rb

@@ -0,0 +1,9 @@
+module CalendarJapaneseHoliday #:nodoc:
+  module VERSION #:nodoc:
+    MAJOR = 1
+    MINOR = 1
+    TINY  = 0
+
+    STRING = [MAJOR, MINOR, TINY].join('.')
+  end
+end

data/lib/calendar/japanese/holiday.rb

@@ -0,0 +1,394 @@
+# calendar/japanese/holiday.rb
+
+require 'nkf'
+
+# ���[�e�B���e�B�Q
+module Util
+  # ���t����̃��[�e�B���e�B
+  module DateTimeUtil
+    # +a+ �� +b+ ���������t���ǂ����𔻒�
+    def DateTimeUtil.equals_date(a, b)
+      return (a.year == b.year and a.month == b.month and a.day == b.day)
+    end
+
+    # �j�����Z�o����
+    # Since:: 1.1
+    def DateTimeUtil.wday(date)
+      return date.wday if defined?(date.wday)
+      # Zeller(�c�F���[)�̌��� 1583�N����3999�N�܂�
+      year = date.year
+      month = date.month
+      day = date.day
+#      raise "year 1583-3999 [#{year}]" if year < 1583 or year > 3999
+      if month == 1 or month == 2
+        month += 12
+        year -= 1
+      end
+      # ������㉺�񌅂��‚ɕ���
+      head = (year / 100).to_i
+      tail = year - 100 * head
+      return ((head / 4).to_i - 2 * head + tail + (tail / 4).to_i + (2.6 * (month + 1)).to_i + day - 1) % 7 
+    end
+  end
+
+  # �v���b�g�t�H�[���Ɋւ��郆�[�e�B���e�B
+  # Since:: 1.1
+  module PlatformUtil
+    @@charcode = nil
+
+    # �l�C�e�B�u�̕����R�[�h�𔻒肷��
+    # Warning:: ���̃��\�b�h�̃��W�b�N�͂т����肷�邭�炢�K���ł�
+    def PlatformUtil.default_charcode
+      return @@charcode unless @@charcode.nil?
+      @@charcode = "euc"
+      if /win32|cygwin|mingw|darwin|hpux|aix|bccwin/ =~ RUBY_PLATFORM
+        @@charcode = "sjis"
+      end
+      return @@charcode
+    end
+  end
+end
+
+module Calendar
+  module Japanese
+
+    # ���{�̏j�����������W���[��
+    module Holiday
+      # �x�����I�u�W�F�N�g
+      class HolidayInfo
+        def initialize(date)
+          @date = date
+          @is_national = false
+          @name = ""
+          @is_substitute = false
+        end
+        # ���t�I�u�W�F�N�g
+        attr_accessor :date
+        # �j�����ǂ���
+        attr_accessor :is_national
+        # �j����
+        attr_accessor :name
+        # �U�֋x�����ǂ���
+        attr_accessor :is_substitute
+      end
+
+      # ���t +date+ �Ɋւ���j�����I�u�W�F�N�g (HolidayInfo) ���擾����
+      def Holiday.holiday_info(date)
+        holiday_info = Holiday.national_holiday_info(date)
+        if !holiday_info.is_national
+          holiday_info.is_substitute = Holiday.check_substitute_holiday(date)
+        end
+        return holiday_info
+      end
+
+      # �x�����ǂ�����Ԃ�
+      def holiday?
+        return (weekend? or national_holiday? or substitute_holiday?)
+      end
+
+      # �j������Ԃ�
+      def holiday
+        return get_holiday_info.name
+      end
+
+      # �y�����ǂ�����Ԃ�
+      def weekend?
+        weekday = Util::DateTimeUtil.wday(self)
+        return (weekday == 0 or weekday == 6)
+      end
+
+      # �����̏j�����ǂ�����Ԃ�
+      def national_holiday?
+        return get_holiday_info.is_national
+      end
+
+      # �U��ւ��x�����ǂ�����Ԃ�
+      def substitute_holiday?
+        return get_holiday_info.is_substitute
+      end
+
+      # NKF �̎��s�I�v�V������ݒ肷��
+      # Since:: 1.1
+      def Holiday.set_nkf_opts opts
+        @@nkf_opts = opts
+      end
+
+      private
+
+      # NKF �̎��s�I�v�V����
+      @@nkf_opts = nil
+
+      # NKF �̎��s�I�v�V������Ԃ�
+      def nkf_opts
+        unless @@nkf_opts.nil?
+          @@nkf_opts = "" if @@nkf_opts == "-s"
+          return @@nkf_opts
+        end
+        if "euc" == Util::PlatformUtil.default_charcode
+          @@nkf_opts = "-e"
+        else
+          @@nkf_opts = ""
+        end
+        return @@nkf_opts
+      end
+
+      # str ��K�؂ȕ����R�[�h�ɕϊ����ĕԂ�
+      def get_nkf_text str
+        if !str.empty? and !nkf_opts.empty?
+          return NKF.nkf("-S #{nkf_opts}", str)
+        end
+        return str
+      end
+
+      # date ���獑���̏j����񂪐ݒ肳�ꂽ HolidayInfo �I�u�W�F�N�g�𐶐�����
+      def Holiday.national_holiday_info(date)
+        info = HolidayInfo.new(date)
+        case date.month
+        when 1
+          if date.year <= 1948
+            if date.day == 3
+              info.name = "���n��"
+            elsif date.day == 5
+              info.name = "�V�N����"
+            elsif date.year < 1913 and date.day == 30
+              info.name = "�F���V�c��"
+            end
+          elsif date.year < 2000
+            if date.day == 1
+              info.name = "����"
+            elsif date.day == 15
+              info.name = "���l�̓�"
+            end
+          else
+            if date.day == 1
+              info.name = "����"
+            elsif date.day >= 8 and date.day <= 14 and Util::DateTimeUtil.wday(date) == 1 and date.year > 1999
+              info.name = "���l�̓�"
+            end
+          end
+        when 2
+          if date.year <= 1948
+            if date.day == 11
+              info.name = "�I����"
+            end
+          elsif date.year > 1966
+            if date.day == 11
+              info.name = "�����L�O�̓�"
+            elsif date.year == 1989
+              if date.day == 24
+                info.name = "��r�̗�"
+              end
+            end
+          end
+        when 3
+          if date.year <= 1948
+            if date.year >= 1900 and date.day == (date.year * 0.24242 - date.year / 4 + 35.84).to_i
+              info.name = "�t�G�c�ˍ�"
+            end
+          else
+            if date.year <= 2099 and date.day == (date.year * 0.24242 - date.year / 4 + 35.84).to_i
+              info.name = "�t���̓�"
+            end
+          end
+        when 4
+          if date.year <= 1948
+            if date.day == 3
+              info.name = "�_���V�c��"
+            elsif date.day == 29 and date.year > 1926
+              info.name = "�V����"
+            end
+          elsif date.year == 1959 and date.day == 10
+            info.name = "���m�e�������̋V"
+          elsif date.year < 1989
+            info.name = "�V�c�a����" if date.day == 29
+          elsif date.year < 2007
+            info.name = "�݂ǂ�̓�" if date.day == 29
+          else
+            info.name = "���a�̓�" if date.day == 29
+          end
+        when 5
+          if date.year > 1948
+            if date.day == 3
+              info.name = "���@�L�O��"
+            elsif date.day == 5
+              info.name = "���ǂ��̓�"
+            end
+            if date.year < 2007
+              if date.year > 1985 and date.day == 4 and Util::DateTimeUtil.wday(date) > 1
+                info.name = "�����̋x��"
+              end
+            else
+              info.name = "�݂ǂ�̓�" if date.day == 4
+            end
+          end
+        when 6
+          if date.day == 9 and date.year == 1993
+            info.name = "���m�e�������̋V"
+          end
+        when 7
+          if date.year < 1926 and date.year > 1912
+            if date.day == 30
+              info.name = "�����V�c��"
+            end
+          elsif date.year > 1995
+            if date.year < 2003
+              info.name = "�C�̓�" if date.day == 20
+            elsif date.day >= 15 and date.day <= 21 and Util::DateTimeUtil.wday(date) == 1
+              info.name = "�C�̓�"
+            end
+          end
+        when 8
+          if date.year < 1926 and date.year > 1912
+            if date.day == 31
+              info.name = "�V����"
+            end
+          end
+        when 9
+          if date.year < 1948
+            if date.year < 1879 and date.day == 17
+              info.name = "�_����"
+            elsif date.year >= 1900 and date.day == (date.year * 0.24204 - date.year / 4 + 39.01).to_i
+              info.name = "�H�G�c�ˍ�"
+            end
+          else
+            if date.year <= 2099 and date.day == (date.year * 0.24204 - date.year / 4 + 39.01).to_i
+              info.name = "�H���̓�"
+            elsif date.year > 1965
+              if date.year < 2003
+                info.name = "�h�V�̓�" if date.day == 15
+              elsif date.day >= 15 and date.day <= 21 and Util::DateTimeUtil.wday(date) == 1
+                info.name = "�h�V�̓�"
+              elsif date.day >= 16 and date.day <= 22 and Util::DateTimeUtil.wday(date) == 2 and 
+                  date.year <= 2099 and (date.day + 1) == (date.year * 0.24204 - date.year / 4 + 39.01).to_i
+                info.name = "�����̋x��"
+              end
+            end
+          end
+        when 10
+          if date.year <= 1947
+            if date.year >= 1879 and date.day == 17
+              info.name = "�_����"
+            elsif date.year < 1927 and date.year > 1912
+              info.name = "�V���ߏj��" if date.day == 31
+            end
+          elsif date.year > 1965
+            if date.year < 2000
+              if date.day == 10
+                info.name = "�̈�̓�"
+              end
+            else
+              if date.day >= 8 and date.day <= 14 and Util::DateTimeUtil.wday(date) == 1
+                info.name = "�̈�̓�"
+              end
+            end
+          end
+        when 11
+          if date.year <= 1947
+            if date.day == 23
+              info.name = "�V����"
+            elsif date.year == 1915
+              case date.day
+              when 10
+                info.name = "���ʃm�X"
+              when 14
+                info.name = "�另��"
+              when 16
+                info.name = "�����X�y�另�Ռ�������"
+              end
+            elsif date.year < 1912
+              info.name = "�V����" if date.day == 3
+            elsif date.year > 1926
+              if date.year == 1928
+                case date.day
+                when 10
+                  info.name = "���ʃm�X"
+                when 14
+                  info.name = "�另��"
+                when 16
+                  info.name = "�����X�y�另�Ռ�������"
+                end
+              else
+                info.name = "������" if date.day == 3
+              end
+            end
+          else
+            if date.day == 3
+              info.name = "�����̓�"
+            elsif date.day == 23
+              info.name = "�ΘJ���ӂ̓�"
+            elsif date.day == 12 and date.year == 1990
+              info.name = "���ʗ琳�a�̋V"
+            end
+          end
+        when 12
+          if date.year <= 1947
+            if date.year > 1926
+              if date.day == 25
+                info.name = "�吳�V�c��"
+              end
+            end
+          elsif date.year > 1988
+            if date.day == 23
+              info.name = "�V�c�a����"
+            end
+          end
+        else
+        end
+        info.is_national = !info.name.empty?
+        return info
+      end
+
+      # date ���U�֋x�����ǂ����𔻒肷��
+      def Holiday.check_substitute_holiday(date)
+        if Util::DateTimeUtil.wday(date) == 0 or Util::DateTimeUtil.wday(date) == 6
+          return false
+        end
+        if (date.year < 1973 or (date.year == 1973 and date.month < 3))
+          return false
+        end
+        substitute = false
+        a_date = date
+        loop do
+          unless Holiday.national_holiday_info(a_date - 1).is_national
+            break
+          end
+          if Util::DateTimeUtil.wday(a_date - 1) == 0
+            substitute = true
+            break
+          end
+          a_date -= 1
+          break if date.year < 2007
+        end
+        return substitute
+      end
+
+      # �x�������擾����
+      def get_holiday_info
+        if @holiday_info.nil? or !Util::DateTimeUtil.equals_date(self, @holiday_info.date)
+          @holiday_info = Holiday.holiday_info(self)
+          @holiday_info.name = get_nkf_text(@holiday_info.name)
+        end
+        return @holiday_info
+      end
+
+    end # class Holiday
+  end # module Japanese
+end # module Calendar
+
+#require 'date'
+#
+#class Date
+#  include Calendar::Japanese::Holiday
+#end
+#
+#class DateTime
+#  include Calendar::Japanese::Holiday
+#end
+#
+#class Time
+#  include Calendar::Japanese::Holiday
+#end
+#
+#if $0 == __FILE__
+#  puts Time.now.extend(Calendar::Japanese::Holiday).holiday
+#end