dcal 0.0.1

checksums.yaml

@@ -0,0 +1,7 @@
+---
+!binary "U0hBMQ==":
+  metadata.gz: 929e76bf2d797ce1cdbf15b077d397d64553b887
+  data.tar.gz: 96a0f887abd1de03f012d48cf5847e2cdfaf4b8c
+!binary "U0hBNTEy":
+  metadata.gz: 294834412be578f0cd64c8b357f35f9049dfdf74dcb0f23866938f1100f366f1910d5f95c422ca514ef5885f81b4f36a522ac287da529925f44fe07014fc1b3e
+  data.tar.gz: ad815acb41453c041b765fa9da9ed62c17dcf772c22cbb93b88745a4b2e32d2894beb1fb12e72a51919e720b539b64631855a8ae598c11e431588d4e34b95461

data/.gitignore

@@ -0,0 +1,17 @@
+*.gem
+*.rbc
+.bundle
+.config
+.yardoc
+Gemfile.lock
+InstalledFiles
+_yardoc
+coverage
+doc/
+lib/bundler/man
+pkg
+rdoc
+spec/reports
+test/tmp
+test/version_tmp
+tmp

data/Gemfile

@@ -0,0 +1,3 @@
+source 'https://rubygems.org'
+
+gemspec

data/LICENSE.txt

@@ -0,0 +1,22 @@
+Copyright (c) 2012 Chun-wei Kuo
+
+MIT License
+
+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.md

@@ -0,0 +1,58 @@
+# DCal
+
+Just a stupid `cal`.
+
+## Installation
+
+Please do not install it.
+
+If you insist to do so:
+
+    $ gem install dcal
+
+## Usage
+
+The `dcal` command would be installed with the gem.
+
+It works almost like the `cal` command, but stupider.
+
+Provide it the numbers of month and year:
+
+    $ dcal 12 2012
+
+And the output would be like:
+
+```
+   December 2012
+Su Mo Tu We Th Fr Sa
+                   1
+ 2  3  4  5  6  7  8
+ 9 10 11 12 13 14 15
+16 17 18 19 20 21 22
+23 24 25 26 27 28 29
+30 31
+```
+
+No any other fancier functionality.
+
+## Compatibility
+
+Compatible with Ruby 2.0.0-dev.
+
+Please install Bundler 1.3.0+ by running:
+
+    $ gem install bundler --pre
+
+## Todo
+
+This section is intentionally left blank.
+
+## License
+
+Copyright (c) 2012 Chun-wei Kuo
+
+MIT License
+
+See [LICENSE] for futher details.
+
+[LICENSE]: https://github.com/Domon/dcal/blob/master/LICENSE.txt

data/Rakefile

@@ -0,0 +1,11 @@
+require 'bundler/gem_tasks'
+
+require 'rake/testtask'
+
+Rake::TestTask.new do |t|
+  t.libs << 'test'
+  t.pattern = 'test/**/test_*.rb'
+end
+
+desc "Run tests"
+task :default => :test

data/bin/dcal

@@ -0,0 +1,19 @@
+#!/usr/bin/env ruby
+# -*- encoding: utf-8 -*-
+
+require 'dcal'
+
+month = ARGV[0]
+year  = ARGV[1]
+
+unless month && year
+  puts "usage: cal month year"
+  exit
+end
+
+begin
+  cal = DCal::Cal.new month, year
+  print cal.output
+rescue RangeError => e
+  puts "dcal: #{e.message}"
+end

data/dcal.gemspec

@@ -0,0 +1,22 @@
+# -*- encoding: utf-8 -*-
+lib = File.expand_path('../lib', __FILE__)
+$LOAD_PATH.unshift(lib) unless $LOAD_PATH.include?(lib)
+require 'dcal/version'
+
+Gem::Specification.new do |gem|
+  gem.name          = 'dcal'
+  gem.version       = DCal::VERSION
+  gem.summary       = 'Just a stupid cal.'
+  gem.description   = 'Just a stupid cal.'
+
+  gem.license       = 'MIT'
+
+  gem.author        = 'Chun-wei Kuo'
+  gem.email         = 'Dendoh@gmail.com'
+  gem.homepage      = 'https://github.com/Domon/dcal'
+
+  gem.files         = `git ls-files`.split($/)
+  gem.executables   = gem.files.grep(%r{^bin/}).map{ |f| File.basename(f) }
+  gem.test_files    = gem.files.grep(%r{^test/})
+  gem.require_path  = 'lib'
+end

data/lib/dcal.rb

@@ -0,0 +1,5 @@
+require 'dcal/version'
+require 'dcal/cal'
+
+module DCal
+end

data/lib/dcal/cal.rb

@@ -0,0 +1,55 @@
+require 'dcal/month'
+
+module DCal
+  class Cal
+    ABBR_DAYNAMES = %w(Su Mo Tu We Th Fr Sa)
+
+    def initialize(month, year)
+      @month = DCal::Month.new(month, year)
+      @year  = DCal::Year.new(year)
+    end
+
+    def output
+      title    + "\n" +
+        header + "\n" +
+        weeks  + "\n"
+    end
+    
+    def month
+      @month.month
+    end
+
+    def year
+      @year
+    end
+
+    private
+
+    def title
+      "#{@month.name} #{@year}".center(20)
+    end
+
+    def header
+      ABBR_DAYNAMES.join(" ")
+    end
+
+    def weeks
+      weeks = cells.each_slice(7).to_a
+      weeks.map { |week| week.join(" ") }.join("\n")
+    end
+
+    def cells
+      cells = Array.new(42, "  ")
+
+      days  = 1..@month.days_in_month
+      start = @month.wday_of_first_day
+
+      cells.each_index do |i|
+        day = i - start + 1
+        cells[i] = day.to_s.rjust(2) if days.cover?(day)
+      end
+
+      cells
+    end
+  end
+end

data/lib/dcal/month.rb

@@ -0,0 +1,65 @@
+require 'dcal/year'
+
+module DCal
+  class Month
+    attr_reader :month, :year
+
+    MONTHNAMES = [
+      nil,
+      "January", "February", "March",
+      "April", "May", "June",
+      "July", "August", "September",
+      "October", "November", "December"
+    ]
+
+    COMMON_YEAR_DAYS_IN_MONTH = [
+      nil, 31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31
+    ]
+
+    def initialize(month, year)
+      @month = month.to_i
+      @year  = DCal::Year.new(year.to_i)
+
+      unless (1..12).cover? @month
+        raise RangeError, "#{@month} is not a month number (1..12)"
+      end
+    end
+
+    def name
+      MONTHNAMES[@month]
+    end
+
+    def days_since_1970
+      (@year - 1970) * 365 + @year.leap_years_since_1970 + passed_days_this_year
+    end
+
+    def days_in_month
+      return 29 if @month == 2 && @year.leap?
+      COMMON_YEAR_DAYS_IN_MONTH[@month]
+    end
+
+    def wday_of_first_day
+      # 1970-01-01 is Thursday (4).
+      (days_since_1970 + 4) % 7
+    end
+
+    # For inspect
+    def to_s
+      "#{@year}-#{@month}"
+    end
+
+    # For better output in console
+    def inspect
+      "#<#{self.class.name} #{to_s}>"
+    end
+
+    private
+
+    def passed_days_this_year
+      return 0 if @month == 1
+      (1...@month).reduce(0) { |sum, m| sum + DCal::Month.new(m, @year).days_in_month }
+    end
+
+  end
+end
+

data/lib/dcal/version.rb

@@ -0,0 +1,3 @@
+module DCal
+  VERSION = '0.0.1'
+end

data/lib/dcal/year.rb

@@ -0,0 +1,50 @@
+module DCal
+  class Year
+    include Comparable
+
+    def initialize(value)
+      @value = value.to_i
+
+      unless (1970..9999).cover? @value
+        raise RangeError, "year #{@value} not in range 1970..9999"
+      end
+    end
+
+    def leap?
+      # ref: http://en.wikipedia.org/wiki/Leap_year#Algorithm
+      @value % 400 == 0 || (@value % 100 != 0 && @value % 4 == 0)
+    end
+
+    def leap_years_since_1970
+      return 0 if @value == 1970
+      (1970...@value).select { |y| DCal::Year.new(y).leap? }.size
+    end
+
+    def <=>(other)
+      if other.integer?
+        to_i <=> other
+      else
+        to_i <=> other.to_i
+      end
+    end
+
+    def -(integer)
+      to_i - integer
+    end
+
+    # For calculations
+    def to_i
+      @value
+    end
+
+    # For inspect
+    def to_s
+      @value.to_s
+    end
+
+    # For better output in console
+    def inspect
+      "#<#{self.class.name} #{to_s}>"
+    end
+  end
+end

data/test/dcal/test_cal.rb

@@ -0,0 +1,9 @@
+require 'test/unit'
+require 'dcal'
+
+class TestCal < Test::Unit::TestCase
+  def test_constants
+    assert_equal 'Su', DCal::Cal::ABBR_DAYNAMES[0]
+    assert_equal   7 , DCal::Cal::ABBR_DAYNAMES.size
+  end
+end

data/test/dcal/test_cal_new.rb

@@ -0,0 +1,20 @@
+require 'test/unit'
+require 'dcal'
+
+class TestCalNew < Test::Unit::TestCase
+  def setup
+    @cal = DCal::Cal.new 12, 2012
+  end
+
+  def test_new
+    assert_instance_of DCal::Cal, @cal
+  end
+
+  def test_month
+    assert_equal 12, @cal.month
+  end
+
+  def test_year
+    assert_equal 2012, @cal.year
+  end
+end

data/test/dcal/test_cal_output.rb

@@ -0,0 +1,47 @@
+require 'test/unit'
+require 'dcal'
+
+class TestCalOutput < Test::Unit::TestCase
+  def test_output
+    output_1_1970 = <<-OUTPUT
+    January 1970    
+Su Mo Tu We Th Fr Sa
+             1  2  3
+ 4  5  6  7  8  9 10
+11 12 13 14 15 16 17
+18 19 20 21 22 23 24
+25 26 27 28 29 30 31
+                    
+OUTPUT
+
+    output_8_1998 = <<-OUTPUT
+    August 1998     
+Su Mo Tu We Th Fr Sa
+                   1
+ 2  3  4  5  6  7  8
+ 9 10 11 12 13 14 15
+16 17 18 19 20 21 22
+23 24 25 26 27 28 29
+30 31               
+OUTPUT
+
+    output_12_2012 = <<-OUTPUT
+   December 2012    
+Su Mo Tu We Th Fr Sa
+                   1
+ 2  3  4  5  6  7  8
+ 9 10 11 12 13 14 15
+16 17 18 19 20 21 22
+23 24 25 26 27 28 29
+30 31               
+OUTPUT
+
+    cal_1_1970  = DCal::Cal.new( 1, 1970)
+    cal_8_1998  = DCal::Cal.new( 8, 1998)
+    cal_12_2012 = DCal::Cal.new(12, 2012)
+
+    assert_equal output_1_1970,  cal_1_1970.output
+    assert_equal output_8_1998,  cal_8_1998.output
+    assert_equal output_12_2012, cal_12_2012.output
+  end
+end

data/test/dcal/test_month.rb

@@ -0,0 +1,46 @@
+require 'test/unit'
+require 'dcal'
+
+class TestMonth < Test::Unit::TestCase
+  def setup
+    @month = DCal::Month.new(1, 1970)
+  end
+
+  def test_constants
+    assert_nil DCal::Month::COMMON_YEAR_DAYS_IN_MONTH[0]
+    assert_equal 31, DCal::Month::COMMON_YEAR_DAYS_IN_MONTH[1]
+    assert_equal 13 , DCal::Month::COMMON_YEAR_DAYS_IN_MONTH.size
+
+    assert_nil DCal::Month::MONTHNAMES[0]
+    assert_equal 'January', DCal::Month::MONTHNAMES[1]
+    assert_equal       13 , DCal::Month::MONTHNAMES.size
+  end
+
+  def test_new
+    assert_raise(RangeError) { DCal::Month.new(13, 2000) }
+  end
+
+  def test_name
+    assert 'January', @month.name
+  end
+
+  def test_days_since_1970
+    month_1_1970  = DCal::Month.new(1, 1970)
+    month_12_2012 = DCal::Month.new(12, 2012)
+
+    assert_equal     0, month_1_1970.days_since_1970
+    assert_equal 15675, month_12_2012.days_since_1970
+  end
+
+  def test_days_in_month
+    month_1_1970 = DCal::Month.new(1, 1970)
+    month_2_2012 = DCal::Month.new(2, 2012)
+
+    assert_equal 31, month_1_1970.days_in_month
+    assert_equal 29, month_2_2012.days_in_month
+  end
+
+  def test_inspect
+    assert_equal "#<DCal::Month 1970-1>", @month.inspect
+  end
+end

data/test/dcal/test_year.rb

@@ -0,0 +1,53 @@
+require 'test/unit'
+require 'dcal'
+
+class TestYear < Test::Unit::TestCase
+  def setup
+    @year = DCal::Year.new(2012)
+  end
+
+  def test_new
+    assert_raise(RangeError) { DCal::Year.new(1900) }
+    assert_raise(RangeError) { DCal::Year.new(99999) }
+  end
+
+  def test_comparable
+    assert_equal 2012, @year
+  end
+
+  def test_substraction
+    assert_equal 2011, @year - 1
+  end
+
+  def test_to_i
+    assert_equal 2012, @year.to_i
+  end
+
+  def test_to_s
+    assert_equal "2012", @year.to_s
+  end
+
+  def test_inspect
+    assert_equal "#<DCal::Year 2012>", @year.inspect
+  end
+
+  def test_leap
+    y_1970 = DCal::Year.new(1970)
+    y_2000 = DCal::Year.new(2000)
+    y_2012 = DCal::Year.new(2012)
+    y_2100 = DCal::Year.new(2100)
+
+    assert_equal false, y_1970.leap?
+    assert_equal true , y_2000.leap?
+    assert_equal true , y_2012.leap?
+    assert_equal false, y_2100.leap?
+  end
+
+  def test_leap_years_since_1970
+    y_1970 = DCal::Year.new(1970)
+    y_2012 = DCal::Year.new(2012)
+
+    assert_equal  0, y_1970.leap_years_since_1970
+    assert_equal 10, y_2012.leap_years_since_1970
+  end
+end

metadata

@@ -0,0 +1,66 @@
+--- !ruby/object:Gem::Specification
+name: dcal
+version: !ruby/object:Gem::Version
+  version: 0.0.1
+platform: ruby
+authors:
+- Chun-wei Kuo
+autorequire: 
+bindir: bin
+cert_chain: []
+date: 2012-12-13 00:00:00.000000000 Z
+dependencies: []
+description: Just a stupid cal.
+email: Dendoh@gmail.com
+executables:
+- dcal
+extensions: []
+extra_rdoc_files: []
+files:
+- .gitignore
+- Gemfile
+- LICENSE.txt
+- README.md
+- Rakefile
+- bin/dcal
+- dcal.gemspec
+- lib/dcal.rb
+- lib/dcal/cal.rb
+- lib/dcal/month.rb
+- lib/dcal/version.rb
+- lib/dcal/year.rb
+- test/dcal/test_cal.rb
+- test/dcal/test_cal_new.rb
+- test/dcal/test_cal_output.rb
+- test/dcal/test_month.rb
+- test/dcal/test_year.rb
+homepage: https://github.com/Domon/dcal
+licenses:
+- MIT
+metadata: {}
+post_install_message: 
+rdoc_options: []
+require_paths:
+- lib
+required_ruby_version: !ruby/object:Gem::Requirement
+  requirements:
+  - - ! '>='
+    - !ruby/object:Gem::Version
+      version: '0'
+required_rubygems_version: !ruby/object:Gem::Requirement
+  requirements:
+  - - ! '>='
+    - !ruby/object:Gem::Version
+      version: '0'
+requirements: []
+rubyforge_project: 
+rubygems_version: 2.0.0.preview2.1
+signing_key: 
+specification_version: 4
+summary: Just a stupid cal.
+test_files:
+- test/dcal/test_cal.rb
+- test/dcal/test_cal_new.rb
+- test/dcal/test_cal_output.rb
+- test/dcal/test_month.rb
+- test/dcal/test_year.rb