month.rb 0.10.0

data/lib/Month/previous.rb

@@ -0,0 +1,13 @@
+# Month/previous.rb
+# Month#previous
+
+require 'Month/initialize'
+require 'Month/self.previous'
+
+class Month
+
+  def previous
+    Month.previous(year, month)
+  end
+
+end

data/lib/Month/previous_month.rb

@@ -0,0 +1,13 @@
+# Month/previous_month.rb
+# Month#previous_month
+
+require 'Month/initialize'
+require 'Month/self.previous_month'
+
+class Month
+
+  def previous_month
+    Month.previous_month(year, month)
+  end
+
+end

data/lib/Month/prior.rb

@@ -0,0 +1,12 @@
+# Month/prior.rb
+# Month#prior
+
+require 'Month/self.prior'
+
+class Month
+
+  def prior
+    Month.prior(year, month)
+  end
+
+end

data/lib/Month/prior_month.rb

@@ -0,0 +1,13 @@
+# Month/prior_month.rb
+# Month#prior_month
+
+require 'Month/initialize'
+require 'Month/self.prior_month'
+
+class Month
+
+  def prior_month
+    Month.prior_month(year, month)
+  end
+
+end

data/lib/Month/self.begin_date.rb

@@ -0,0 +1,23 @@
+# Month/self.begin_date.rb
+# Month#self.begin_date
+
+require 'date'
+
+class Month
+  class << self
+
+    def begin_date(*args)
+      year, month = (
+        case args.size
+        when 0; [Date.today.year, Date.today.month]
+        when 1; [Date.today.year, args[0]]
+        when 2; [args[0], args[1]]
+        else; raise ArgumentError, "too many arguments (#{args.size} for 0, 1, or 2)"
+        end
+      )
+      fail unless (1..12).include?(month)
+      Date.new(year, month, 1)
+    end
+
+  end
+end

data/lib/Month/self.beginning.rb

@@ -0,0 +1,12 @@
+# Month/self.beginning.rb
+# Month.beginning
+
+require 'Month/self.begin_date'
+
+class Month
+  class << self
+
+    alias_method :beginning, :begin_date
+
+  end
+end

data/lib/Month/self.beginning_of_month.rb

@@ -0,0 +1,12 @@
+# Month/self.beginning_of_month.rb
+# Month#self.beginning_of_month
+
+require 'Month/self.beginning'
+
+class Month
+  class << self
+
+    alias_method :beginning_of_month, :beginning
+
+  end
+end

data/lib/Month/self.beginning_of_the_month.rb

@@ -0,0 +1,12 @@
+# Month/self.beginning_of_month.rb
+# Month#self.beginning_of_month
+
+require 'Month/self.beginning'
+
+class Month
+  class << self
+
+    alias_method :beginning_of_the_month, :beginning
+
+  end
+end

data/lib/Month/self.cdate.rb

@@ -0,0 +1,36 @@
+# Month/self.cdate.rb
+# Month.cdate
+
+require 'date'
+require 'Month/self.cdates'
+
+class Month
+  class << self
+
+    def cdate(which_day, day, *args)
+      year, month = (
+        case args.size
+        when 0; [Date.today.year, Date.today.month]
+        when 1; [Date.today.year, args[0]]
+        when 2; [args[0], args[1]]
+        else; raise ArgumentError, "too many arguments (#{args.size + 2} for 2, 3, or 4)"
+        end
+      )
+      fail unless (1..12).include?(month)
+      all = self.cdates(year, month, :day => day)
+      case which_day.to_s.downcase
+      when 'first', '1st', '1'; all[0]
+      when 'second', '2nd', '2'; all[1]
+      when 'third', '3rd', '3'; all[2]
+      when 'fourth', '4th', '4'; all[3]
+      when 'fifth', '5th', '5'; all[4]
+      when 'last', 'ultimate'; all[all.size - 1]
+      when 'second last', '2nd last', 'penultimate'; all[all.size - 2]
+      when 'third last', '3rd last'; all[all.size - 3]
+      when 'fourth last', '4th last'; all[all.size - 4]
+      else; nil
+      end
+    end
+
+  end
+end

data/lib/Month/self.cdates.rb

@@ -0,0 +1,54 @@
+# Month/self.cdates.rb
+# Month.cdates
+
+require 'Array/extract_optionsX'
+require 'date'
+require 'Month/Constants'
+require 'Month/self.to_num'
+require 'Month/self.days'
+
+class Month
+  class << self
+
+    def cdates(*args)
+      options = args.extract_options!
+      year, month = (
+        case args.size
+        when 0; [Date.today.year, Date.today.month]
+        when 1; [Date.today.year, args[0]]
+        when 2; [args[0], args[1]]
+        else; raise ArgumentError, "too many arguments (#{args.size} for 0, 1, or 2)"
+        end
+      )
+      list_of_dates = []
+      month = self.to_num(month)
+      return nil if month.nil?
+      unless options[:day].nil?
+        if e = ISO_8601_WEEK_DAY_NAMES_LONG.to_a.index(options[:day].to_s.capitalize); weekday_number = e + 1
+        elsif e = ISO_8601_WEEK_DAY_NAMES_SHORT.to_a.index(options[:day].to_s.capitalize); weekday_number = e + 1
+        elsif e = ISO_8601_WEEK_DAY_NAMES_SHORTEST.to_a.index(options[:day].to_s.capitalize); weekday_number = e + 1
+        elsif ISO_8601_WEEK_DAY_NUMBERS_AS_STRINGS.to_a.member?(options[:day]); weekday_number = options[:day].to_i
+        elsif ISO_8601_WEEK_DAY_NUMBERS.to_a.member?(options[:day].to_i) && options[:day].class == Integer; weekday_number = options[:day].to_i
+        else; return nil
+        end
+        Date.new(year, month, 1).upto(Date.new(year, month, self.days(year, month))) do |date|
+          if options[:date_objects]
+            list_of_dates << date if date.cwday == weekday_number
+          else
+            list_of_dates << date.mday if date.cwday == weekday_number
+          end
+        end
+      else
+        Date.new(year, month, 1).upto(Date.new(year, month, self.days(year, month))) do |date|
+          if options[:date_objects]
+            list_of_dates << date
+          else
+            list_of_dates << date.mday
+          end
+        end
+      end
+      list_of_dates
+    end
+
+  end
+end

data/lib/Month/self.date.rb

@@ -0,0 +1,36 @@
+# Month/self.date.rb
+# Month.date
+
+require 'date'
+require 'Month/self.dates'
+
+class Month
+  class << self
+
+    def date(which_day, day, *args)
+      year, month = (
+        case args.size
+        when 0; [Date.today.year, Date.today.month]
+        when 1; [Date.today.year, args[0]]
+        when 2; [args[0], args[1]]
+        else; raise ArgumentError, "too many arguments (#{args.size} for 2, 3, or 4)"
+        end
+      )
+      fail unless (1..12).include?(month)
+      all = self.dates(year, month, :day => day)
+      case which_day.to_s.downcase
+      when 'first', '1st', '1'; all[0]
+      when 'second', '2nd', '2'; all[1]
+      when 'third', '3rd', '3'; all[2]
+      when 'fourth', '4th', '4'; all[3]
+      when 'fifth', '5th', '5'; all[4]
+      when 'last', 'ultimate'; all[all.size - 1]
+      when 'second last', '2nd last', 'penultimate'; all[all.size - 2]
+      when 'third last', '3rd last'; all[all.size - 3]
+      when 'fourth last', '4th last'; all[all.size - 4]
+      else; nil
+      end
+    end
+
+  end
+end

data/lib/Month/self.dates.rb

@@ -0,0 +1,54 @@
+# Month/self.dates.rb
+# Month.dates
+
+require 'Array/extract_optionsX'
+require 'date'
+require 'Month/Constants'
+require 'Month/self.to_num'
+require 'Month/self.days'
+
+class Month
+  class << self
+
+    def dates(*args)
+      options = args.extract_options!
+      year, month = (
+        case args.size
+        when 0; [Date.today.year, Date.today.month]
+        when 1; [Date.today.year, args[0]]
+        when 2; [args[0], args[1]]
+        else; raise ArgumentError, "too many arguments (#{args.size} for 0, 1, or 2)"
+        end
+      )
+      list_of_dates = []
+      month = self.to_num(month)
+      return nil if month.nil?
+      unless options[:day].nil?
+        if e = WEEK_DAY_NAMES_LONG.to_a.index(options[:day].to_s.capitalize); weekday_number = e
+        elsif e = WEEK_DAY_NAMES_SHORT.to_a.index(options[:day].to_s.capitalize); weekday_number = e 
+        elsif e = WEEK_DAY_NAMES_SHORTEST.to_a.index(options[:day].to_s.capitalize); weekday_number = e 
+        elsif WEEK_DAY_NUMBERS_AS_STRINGS.to_a.member?(options[:day]); weekday_number = options[:day].to_i
+        elsif WEEK_DAY_NUMBERS.to_a.member?(options[:day].to_i) && options[:day].class == Integer; weekday_number = options[:day].to_i
+        else; return nil
+        end
+        Date.new(year, month, 1).upto(Date.new(year, month, self.days(year, month))) do |date|
+          if options[:date_objects]
+            list_of_dates << date if date.wday == weekday_number
+          else
+            list_of_dates << date.mday if date.wday == weekday_number
+          end
+        end
+      else
+        Date.new(year, month, 1).upto(Date.new(year, month, self.days(year, month))) do |date|
+          if options[:date_objects]
+            list_of_dates << date
+          else
+            list_of_dates << date.mday
+          end
+        end
+      end
+      list_of_dates
+    end
+
+  end
+end

data/lib/Month/self.day.rb

@@ -0,0 +1,20 @@
+# Month/self.day.rb
+# Month.day
+
+require 'date'
+require 'Month/Constants'
+
+class Month
+  class << self
+
+    def day(date, month = Date.today.month, year = Date.today.year)
+      date, month, year = date.to_i, self.to_num(month), year.to_i
+      if MONTH_DAY_NUMBERS.to_a.member?(date) && MONTH_NUMBERS.to_a.member?(month) && (year.to_s =~ /\d/)
+        WEEK_DAY_NAMES_LONG[Date.new(year, month, date).wday]
+      else
+        nil
+      end
+    end
+
+  end
+end

data/lib/Month/self.day_long.rb

@@ -0,0 +1,12 @@
+# Month/self.day_long.rb
+# Month.day_long
+
+require 'Month/self.day'
+
+class Month
+  class << self
+
+    alias_method :day_long, :day
+
+  end
+end

data/lib/Month/self.day_short.rb

@@ -0,0 +1,20 @@
+# Month/self.day_short.rb
+# Month.day_short
+
+require 'date'
+require 'Month/Constants'
+
+class Month
+  class << self
+
+    def day_short(date, month = Date.today.month, year = Date.today.year)
+      date, month, year = date.to_i, self.to_num(month), year.to_i
+      if MONTH_DAY_NUMBERS.to_a.member?(date) && MONTH_NUMBERS.to_a.member?(month) && (year.to_s =~ /\d/)
+        WEEK_DAY_NAMES_SHORT[Date.new(year, month, date).wday]
+      else
+        nil
+      end
+    end
+
+  end
+end

data/lib/Month/self.day_shortest.rb

@@ -0,0 +1,20 @@
+# Month/self.day_shortest.rb
+# Month.day_shortest
+
+require 'date'
+require 'Month/Constants'
+
+class Month
+  class << self
+
+    def day_shortest(date, month = Date.today.month, year = Date.today.year)
+      date, month, year = date.to_i, self.to_num(month), year.to_i
+      if MONTH_DAY_NUMBERS.to_a.member?(date) && MONTH_NUMBERS.to_a.member?(month) && (year.to_s =~ /\d/)
+        WEEK_DAY_NAMES_SHORTEST[Date.new(year, month, date).wday]
+      else
+        nil
+      end
+    end
+
+  end
+end

data/lib/Month/self.days.rb

@@ -0,0 +1,31 @@
+# Month/self.days.rb
+# Month.days
+
+require 'date'
+require 'Month/Constants'
+require 'Month/to_num'
+
+class Month
+  class << self
+
+    def days(*args)
+      year, month = (
+        case args.size
+        when 0; [Date.today.year, Date.today.month]
+        when 1; [Date.today.year, args[0]]
+        when 2; [args[0], args[1]]
+        else; raise ArgumentError, "too many arguments (#{args.size} for 0, 1, or 2)"
+        end
+      )
+      if i = to_num(month)
+        case e = MONTH_DAYS[i - 1]
+        when Integer; e
+        else; e.call(year)
+        end
+      else
+        nil
+      end
+    end
+
+  end
+end

data/lib/Month/self.days_in_month.rb

@@ -0,0 +1,12 @@
+# Month/self.days_in_month.rb
+# Month.days_in_month
+
+require 'Month/self.days'
+
+class Month
+  class << self
+
+    alias_method :days_in_month, :days
+
+  end
+end

data/lib/Month/self.days_in_the_month.rb

@@ -0,0 +1,12 @@
+# Month/self.days_in_the_month.rb
+# Month.days_in_the_month
+
+require 'Month/self.days'
+
+class Month
+  class << self
+
+    alias_method :days_in_the_month, :days
+
+  end
+end

data/lib/Month/self.end.rb

@@ -0,0 +1,12 @@
+# Month/self.end.rb
+# Month.end
+
+require 'Month/self.end_date'
+
+class Month
+  class << self
+
+    alias_method :end, :end_date
+
+  end
+end

data/lib/Month/self.end_date.rb

@@ -0,0 +1,24 @@
+# Month/self.end_date.rb
+# Month.end_date
+
+require 'date'
+require 'Month/self.days'
+
+class Month
+  class << self
+
+    def end_date(*args)
+      year, month = (
+        case args.size
+        when 0; [Date.today.year, Date.today.month]
+        when 1; [Date.today.year, args[0]]
+        when 2; [args[0], args[1]]
+        else; raise ArgumentError, "too many arguments (#{args.size} for 0, 1, or 2)"
+        end
+      )
+      fail unless (1..12).include?(month)
+      Date.new(year, month, self.days(year, month))
+    end
+
+  end
+end

data/lib/Month/self.end_of_month.rb

@@ -0,0 +1,12 @@
+# Month/self.end_of_month.rb
+# Month#self.end_of_month
+
+require 'Month/self.end_date'
+
+class Month
+  class << self
+
+    alias_method :end_of_month, :end_date
+
+  end
+end

data/lib/Month/self.end_of_the_month.rb

@@ -0,0 +1,12 @@
+# Month/self.end_of_the_month.rb
+# Month.end_of_the_month
+
+require 'Month/self.end_date'
+
+class Month
+  class << self
+
+    alias_method :end_of_the_month, :end_date
+
+  end
+end

data/lib/Month/self.finish.rb

@@ -0,0 +1,12 @@
+# Month/self.finish.rb
+# Month.finish
+
+require 'Month/self.finish_date'
+
+class Month
+  class << self
+
+    alias_method :finish, :finish_date
+
+  end
+end

data/lib/Month/self.finish_date.rb

@@ -0,0 +1,12 @@
+# Month/self.finish_date.rb
+# Month.finish_date
+
+require 'Month/self.end_date'
+
+class Month
+  class << self
+
+    alias_method :finish_date, :end_date
+
+  end
+end

data/lib/Month/self.finish_of_month.rb

@@ -0,0 +1,12 @@
+# Month/self.finish_of_month.rb
+# Month.finish_of_month
+
+require 'Month/self.finish_date'
+
+class Month
+  class << self
+
+    alias_method :finish_of_month, :finish_date
+
+  end
+end

data/lib/Month/self.finish_of_the_month.rb

@@ -0,0 +1,12 @@
+# Month/self.finish_of_the_month.rb
+# Month.finish_of_the_month
+
+require 'Month/self.finish_date'
+
+class Month
+  class << self
+
+    alias_method :finish_of_the_month, :finish_date
+
+  end
+end

data/lib/Month/self.from_date.rb

@@ -0,0 +1,14 @@
+# Month/self.from_date.rb
+# Month.from_date
+
+# 20140606
+
+class Month
+  class << self
+
+    def from_date(date)
+      Month.new(date.year, date.month)
+    end
+
+  end
+end

data/lib/Month/self.last.rb

@@ -0,0 +1,12 @@
+# Month/self.last.rb
+# Month.last
+
+require 'Month/self.last_month'
+
+class Month
+  class << self
+
+    alias_method :last, :last_month
+
+  end
+end

data/lib/Month/self.last_month.rb

@@ -0,0 +1,12 @@
+# Month/self.last_month.rb
+# Month.last_month
+
+require 'Month/self.prev'
+
+class Month
+  class << self
+
+    alias_method :last_month, :prev
+
+  end
+end

data/lib/Month/self.last_year.rb

@@ -0,0 +1,14 @@
+# Month/self.last_year.rb
+# Month.last_year
+
+require 'Month/Constants'
+require 'Month/initialize'
+require 'Month/last_year'
+
+class Month
+
+  def self.last_year(month = Month.new)
+    month.last_year
+  end
+
+end

data/lib/Month/self.method_missing.rb

@@ -0,0 +1,20 @@
+# Month/self.method_missing.rb
+# Month.self
+
+require 'Month/self.of'
+
+class Month
+  class << self
+
+    def method_missing(method_name, *args, &block)
+      if month_object = self.of(method_name, *args, &block)
+        month_object
+      elsif days = Month.new.send(method_name, *args, &block)
+        days
+      else
+        super(method_name, *args, &block)
+      end
+    end
+
+  end
+end

data/lib/Month/self.next.rb

@@ -0,0 +1,28 @@
+# Month/self.next.rb
+# Month.next
+
+require 'date'
+require 'Month/initialize'
+
+class Month
+  class << self
+
+    def next(*args)
+      year, month = (
+        case args.size
+        when 0; [Date.today.year, Date.today.month]
+        when 1; [Date.today.year, args[0]]
+        when 2; [args[0], args[1]]
+        else; raise ArgumentError, "too many arguments (#{args.size} for 0, 1, or 2)"
+        end
+      )
+      fail unless (1..12).include?(month)
+      if month == 12
+        Month.new(year + 1, 1)
+      else
+        Month.new(year, month + 1)
+      end
+    end
+
+  end
+end