kalendor 0.0.1

checksums.yaml

@@ -0,0 +1,7 @@
+---
+SHA1:
+  metadata.gz: ff7ade1da5a9663e8adb7a0297fb1326e62618b2
+  data.tar.gz: 69837728d8368cc77ef9c59beaf027531b4574b0
+SHA512:
+  metadata.gz: 486e1bcf993cc52e07727209de693d60e1d125a5b65d02ce1dc59fb5ed28e264017a03479c7f705a61b242d285fca1426857c800ee4b546cff6994d38b20ffc1
+  data.tar.gz: a6b49673e62ae9f9faef5e4295dc80058124339a2cece08fbf9743ac9eec0a1ef95bcebb0b738a27c6f97b018442b1e98d5c926cc4e76b0e480407b171cbf7fb

data/.gitignore

@@ -0,0 +1,34 @@
+*.gem
+*.rbc
+.bundle
+.config
+.yardoc
+Gemfile.lock
+InstalledFiles
+_yardoc
+coverage
+doc/
+lib/bundler/man
+pkg
+rdoc
+spec/reports
+test/tmp
+test/version_tmp
+tmp
+lib/lisp/scratch
+.#*
+bm.txt
+/.bundle/
+/.yardoc
+/Gemfile.lock
+/_yardoc/
+/coverage/
+/doc/
+/pkg/
+/spec/reports/
+/tmp/
+*.bundle
+*.so
+*.o
+*.a
+mkmf.log

data/.rspec

@@ -0,0 +1,2 @@
+--color
+--require spec_helper

data/Gemfile

@@ -0,0 +1,4 @@
+source 'https://rubygems.org'
+
+# Specify your gem's dependencies in kalendor.gemspec
+gemspec

data/MIT-LICENSE.txt

@@ -0,0 +1,22 @@
+Copyright (c) 2016 Conan Dalton conan@conandalton.net
+
+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,31 @@
+# Kalendor
+
+TODO: Write a gem description
+
+## Installation
+
+Add this line to your application's Gemfile:
+
+```ruby
+gem 'kalendor'
+```
+
+And then execute:
+
+    $ bundle
+
+Or install it yourself as:
+
+    $ gem install kalendor
+
+## Usage
+
+TODO: Write usage instructions here
+
+## Contributing
+
+1. Fork it ( https://github.com/[my-github-username]/kalendor/fork )
+2. Create your feature branch (`git checkout -b my-new-feature`)
+3. Commit your changes (`git commit -am 'Add some feature'`)
+4. Push to the branch (`git push origin my-new-feature`)
+5. Create a new Pull Request

data/Rakefile

@@ -0,0 +1,2 @@
+require "bundler/gem_tasks"
+

data/kalendor.gemspec

@@ -0,0 +1,25 @@
+lib = File.expand_path('../lib', __FILE__)
+$LOAD_PATH.unshift(lib) unless $LOAD_PATH.include?(lib)
+require 'kalendor/version'
+
+Gem::Specification.new do |spec|
+  spec.name          = "kalendor"
+  spec.version       = Kalendor::VERSION
+  spec.authors       = ["Conan Dalton"]
+  spec.email         = ["conan@conandalton.net"]
+  spec.description   = %q{Utility classes for generating sets of dates}
+  spec.summary       = %q{Utility classes for generating sets of dates}
+  spec.homepage      = "http://github.com/conanite/kalendor"
+  spec.license       = "MIT"
+
+  spec.files         = `git ls-files -z`.split("\x0")
+  spec.executables   = spec.files.grep(%r{^bin/}) { |f| File.basename(f) }
+  spec.test_files    = spec.files.grep(%r{^(test|spec|features)/})
+  spec.require_paths = ["lib"]
+
+  spec.add_dependency             'aduki'
+  spec.add_development_dependency "bundler", "~> 1.7"
+  spec.add_development_dependency "rake", "~> 10.0"
+  spec.add_development_dependency 'rspec', '>= 2.9'
+  spec.add_development_dependency 'rspec_numbering_formatter'
+end

data/lib/kalendor.rb

@@ -0,0 +1,9 @@
+require "aduki"
+require "kalendor/version"
+require "kalendor/instance"
+require "kalendor/date_helper"
+require "kalendor/factory"
+
+module Kalendor
+  module Instance ; end # marker module
+end

data/lib/kalendor/annual.rb

@@ -0,0 +1,15 @@
+module Kalendor
+  module Annual
+    include Instance
+    def get_dates from, upto
+      first = Date.new(from.year, annual_month, annual_date)
+      first = Date.new(from.year + 1, annual_month, annual_date) if first < from
+      result = []
+      while first && (first <= upto)
+        result << first
+        first = Date.new(first.year + 1, annual_month, annual_date)
+      end
+      result
+    end
+  end
+end

data/lib/kalendor/date_helper.rb

@@ -0,0 +1,85 @@
+module Kalendor
+  module DateHelper
+    MONTH_SIZES = [nil, 31, 28, 31, 30, 31, 30, 31, 31, 30, 31, 30, 31]
+
+    def array_wrap thing                ; thing.is_a?(Array) ? thing : [thing]    ; end
+    def date_set   schedule, from, upto ; Set.new(schedule.get_dates(from, upto)) ; end
+
+    def to_date d
+      if    d.is_a?(Date)           ; d
+      elsif d.respond_to?(:to_date) ; d.to_date
+      elsif d.is_a?(Array)          ; Date.new(*(d.map(&:to_i)))
+      elsif d                       ; Date.parse(d.to_s)
+      end
+    end
+
+    def build y, m, d
+      if m < 1
+        build( y - 1, m + 12, d )
+      elsif m > 12
+        build( y + 1, m - 12, d )
+      else
+        s = MONTH_SIZES[m]
+        if d < 1
+          build(y, m - 1, d + s)
+        elsif d > s
+          build(y, m + 1, d - s)
+        else
+          ::Date.new(y, m, d)
+        end
+      end
+    end
+
+    def last_day_of_month  m ; MONTH_SIZES[m]                                     ; end
+    def year               d ; d.year                                             ; end
+    def month              d ; d.month                                            ; end
+    def day                d ; d.day                                              ; end
+    def week_day           d ; d.wday                                             ; end
+
+    def last_year          d ; build(d.year - 1, d.month, d.day)                  ; end
+    def next_year          d ; d.next_year                                        ; end
+    def beginning_of_year  d ; build(d.year, 1, 1)                                ; end
+    def end_of_year        d ; build(d.year, 12, 31)                              ; end
+
+    def last_month         d ; build(d.year, m - 1, d.day)                        ; end
+    def next_month         d ; d.next_month                                       ; end
+    def beginning_of_month d ; build(d.year, d.month, 1)                          ; end
+    def end_of_month       d ; build(d.year, d.month, last_day_of_month(d.month)) ; end
+
+    def last_week          d ; d - 7                                              ; end
+    def next_week          d ; d + 7                                              ; end
+    def beginning_of_week  d ; d - ((d.wday - 1) % 7)                             ; end
+    def end_of_week        d ; d + ((7 - d.wday) % 7)                             ; end
+
+    def yesterday          d ; d - 1                                              ; end
+    def tomorrow           d ; d + 1                                              ; end
+
+    def nth_day_of_month d
+      1 + ( (d.mday - 1) / 7 )
+    end
+
+    def nth_last_day_of_month d
+      last_day = end_of_month(d).mday
+      - 1 - (last_day - d.mday) / 7
+    end
+
+    #
+    # return true if this is the nth of this day within the month,
+    # for example, if n is 2, and this is the second wednesday of the month,
+    # return true. If n is -1, and this is the last saturday of the month,
+    # return true. It doesn't matter which *day* it is, it matters whether
+    # it's the first, second, third, etc, or if it's the last, second last,
+    # third last, etc
+    #
+    def nth_day_of_month? d, n
+      case n <=> 0
+      when -1
+        nth_last_day_of_month(d) == n
+      when 0
+        raise ArgumentError.new("must be non-zero integer")
+      when 1
+        nth_day_of_month(d) == n
+      end
+    end
+  end
+end

data/lib/kalendor/date_list.rb

@@ -0,0 +1,9 @@
+require 'aduki'
+require 'kalendor'
+
+module Kalendor
+  module DateList
+    include DateHelper, Instance
+    def get_dates from, upto ; self.dates.select { |d| d >= from && d <= upto } ; end
+  end
+end

data/lib/kalendor/factory.rb

@@ -0,0 +1,57 @@
+require "aduki"
+require "kalendor/date_helper"
+require "kalendor/named"
+require "kalendor/instance/date_list"
+require "kalendor/instance/weekday"
+require "kalendor/instance/annual"
+require "kalendor/instance/month"
+require "kalendor/instance/union"
+require "kalendor/instance/intersect"
+require "kalendor/instance/subtract"
+require "kalendor/instance/interval"
+
+module Kalendor
+  class Factory
+    include DateHelper
+
+    def named name, label, kal
+      Kalendor::Named.new name: name, label: label, kalendor: kal
+    end
+
+    def annual date, month
+      Kalendor::Instance::Annual.new annual_month: month, annual_date: date
+    end
+
+    def union *schedules
+      Kalendor::Instance::Union.new schedules: schedules
+    end
+
+    def intersect *schedules
+      Kalendor::Instance::Intersect.new schedules: schedules
+    end
+
+    def subtract x, y
+      Kalendor::Instance::Subtract.new include_dates: x, exclude_dates: y
+    end
+
+    def list *dates
+      Kalendor::Instance::DateList.new dates: dates.map { |d| date d }
+    end
+
+    def interval from, upto
+      Kalendor::Instance::Interval.new interval_from: date(from), interval_upto: date(upto)
+    end
+
+    def weekday weekday, nth_of_month=nil
+      Kalendor::Instance::Weekday.new weekday: weekday, nth_of_month: nth_of_month
+    end
+
+    def month n
+      Kalendor::Instance::Month.new month: n
+    end
+
+    alias date to_date
+  end
+
+  def self.build &block ; Factory.new.instance_eval &block ; end
+end

data/lib/kalendor/instance.rb

@@ -0,0 +1,4 @@
+module Kalendor
+  module Instance
+  end
+end

data/lib/kalendor/instance/annual.rb

@@ -0,0 +1,10 @@
+require 'kalendor/annual'
+
+module Kalendor
+  module Instance
+    class Annual
+      include Aduki::Initializer, Kalendor::Annual
+      attr_accessor :annual_date, :annual_month
+    end
+  end
+end

data/lib/kalendor/instance/composite.rb

@@ -0,0 +1,7 @@
+require 'aduki'
+require 'kalendor'
+
+class Kalendor::Instance::Composite
+  include Aduki::Initializer
+  attr_accessor :schedules
+end

data/lib/kalendor/instance/date_list.rb

@@ -0,0 +1,11 @@
+require 'kalendor/date_list'
+
+module Kalendor
+  module Instance
+    class DateList
+      include Aduki::Initializer, Kalendor::DateList
+      attr_accessor :dates
+      def aduki_after_initialize ; self.dates = array_wrap(dates || []).map { |d| to_date d }.compact ; end
+    end
+  end
+end

data/lib/kalendor/instance/intersect.rb

@@ -0,0 +1,6 @@
+require "kalendor/intersect"
+require "kalendor/instance/composite"
+
+class Kalendor::Instance::Intersect < Kalendor::Instance::Composite
+  include Kalendor::Intersect
+end

data/lib/kalendor/instance/interval.rb

@@ -0,0 +1,10 @@
+require 'kalendor/interval'
+
+module Kalendor
+  module Instance
+    class Interval
+      include Aduki::Initializer, Kalendor::Interval
+      attr_accessor :interval_from, :interval_upto
+    end
+  end
+end

data/lib/kalendor/instance/month.rb

@@ -0,0 +1,10 @@
+require 'kalendor/month'
+
+module Kalendor
+  module Instance
+    class Month
+      include Aduki::Initializer, Kalendor::Month
+      attr_accessor :month
+    end
+  end
+end

data/lib/kalendor/instance/store.rb

@@ -0,0 +1,12 @@
+module Kalendor
+  module Instance
+    class Store
+      def initialize hsh={ } ; @store = hsh           ; end
+      def add            kal ; @store[kal.name] = kal ; end
+      def find          name ; @store[name]           ; end
+      def delete        name ; @store.delete[name]    ; end
+      def names              ; @store.keys            ; end
+      def list               ; @store.values          ; end
+    end
+  end
+end

data/lib/kalendor/instance/subtract.rb

@@ -0,0 +1,10 @@
+require 'kalendor/subtract'
+
+module Kalendor
+  module Instance
+    class Subtract
+      include Aduki::Initializer, Kalendor::Subtract
+      attr_accessor :include_dates, :exclude_dates
+    end
+  end
+end

data/lib/kalendor/instance/union.rb

@@ -0,0 +1,6 @@
+require "kalendor/union"
+require "kalendor/instance/composite"
+
+class Kalendor::Instance::Union < Kalendor::Instance::Composite
+  include Kalendor::Union
+end

data/lib/kalendor/instance/weekday.rb

@@ -0,0 +1,9 @@
+require 'kalendor'
+require 'kalendor/weekday'
+
+module Kalendor::Instance
+  class Weekday
+    include Aduki::Initializer, Kalendor::Weekday
+    attr_accessor :weekday, :nth_of_month
+  end
+end