tickle 1.2.0 → 2.0.0.rc1

data/lib/tickle/tickle.rb

@@ -19,260 +19,156 @@
 # OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION
 # WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
 
-require 'numerizer'
-
 module Tickle
+
+  require_relative "patterns.rb"
+  require 'numerizer'
+  require_relative "helpers.rb"
+  require_relative "token.rb"
+  require_relative "tickled.rb"
+
+
   class << self
+
+
     # == Configuration options
     #
-    # * +start+ - start date for future occurrences.  Must be in valid date format.
-    # * +until+ - last date to run occurrences until.  Must be in valid date format.
-    #
-    #  Use by calling Tickle.parse and passing natural language with or without options.
+    # @param [String] text The string Tickle should parse.
+    # @param [Hash] specified_options See actual defaults below.
+    # @option specified_options [Date,Time,String] :start (Time.now) Start date for future occurrences.  Must be in valid date format.
+    # @option specified_options [Date,Time,String] :until (nil) Last date to run occurrences until. Must be in valid date format.
+    # @option specified_options [true,false] :next_only (false)
+    # @option specified_options [Date,Time] :now (Time.now)
+    # @return [Hash]
     #
-    #  def get_next_occurrence
-    #      results = Tickle.parse('every Wednesday starting June 1st until Dec 15th')
-    #      return results[:next] if results
-    #  end
+    #  @example Use by calling Tickle.parse and passing natural language with or without options.
+    #    Tickle.parse("every Tuesday")
+    #    # => {:next=>2014-08-26 12:00:00 0100, :expression=>"tuesday", :starting=>2014-08-25 16:31:12 0100, :until=>nil}
     #
-    def parse(text, specified_options = {})
-      # get options and set defaults if necessary.  Ability to set now is mostly for debugging
-      default_options = {:start => Time.now, :next_only => false, :until => nil, :now => Time.now}
-      options = default_options.merge specified_options
-
-      # ensure an expression was provided
-      raise(InvalidArgumentException, 'date expression is required') unless text
-
-      # ensure the specified options are valid
-      specified_options.keys.each do |key|
-        raise(InvalidArgumentException, "#{key} is not a valid option key.") unless default_options.keys.include?(key)
-      end
-      raise(InvalidArgumentException, ':start specified is not a valid datetime.') unless  (is_date(specified_options[:start]) || Chronic.parse(specified_options[:start])) if specified_options[:start]
-
-      # check to see if a valid datetime was passed
-      return text if text.is_a?(Date) ||  text.is_a?(Time)
+    def _parse( tickled )
 
       # check to see if this event starts some other time and reset now
-      event = scan_expression(text, options)
-
-      Tickle.dwrite("start: #{@start}, until: #{@until}, now: #{options[:now].to_date}")
+      scan_expression! tickled
 
-      # => ** this is mostly for testing. Bump by 1 day if today (or in the past for testing)
-      raise(InvalidDateExpression, "the start date (#{@start.to_date}) cannot occur in the past for a future event") if @start && @start.to_date < Date.today
-      raise(InvalidDateExpression, "the start date (#{@start.to_date}) cannot occur after the end date") if @until && @start.to_date > @until.to_date
+      fail(InvalidDateExpression, "the start date (#{@start.to_date}) cannot occur in the past for a future event") if @start && @start.to_date < Date.today
+      fail(InvalidDateExpression, "the start date (#{@start.to_date}) cannot occur after the end date") if @until && @start.to_date > @until.to_date
 
       # no need to guess at expression if the start_date is in the future
       best_guess = nil
-      if @start.to_date > options[:now].to_date
+      if @start.to_date > tickled.now.to_date
         best_guess = @start
       else
         # put the text into a normal format to ease scanning using Chronic
-        event = pre_filter(event)
-
-        # split into tokens
-        @tokens = base_tokenize(event)
-
+        tickled.filtered = tickled.event.filter
+        # split into tokens and then
         # process each original word for implied word
-        post_tokenize
-
-        @tokens.each {|x| Tickle.dwrite("raw: #{x.inspect}")}
+        @tokens = post_tokenize Token.tokenize(tickled.filtered)
 
         # scan the tokens with each token scanner
-        @tokens = Repeater.scan(@tokens)
+        @tokens = Token.scan!(@tokens)
 
         # remove all tokens without a type
         @tokens.reject! {|token| token.type.nil? }
 
         # combine number and ordinals into single number
-        combine_multiple_numbers
-
-        @tokens.each {|x| Tickle.dwrite("processed: #{x.inspect}")}
+        @tokens = Helpers.combine_multiple_numbers(@tokens)
 
         # if we can't guess it maybe chronic can
-        best_guess = (guess || chronic_parse(event))
+        _guess = guess(@tokens, @start)
+        best_guess = _guess || chronic_parse(tickled.event) # TODO fix this call 
       end
 
-      raise(InvalidDateExpression, "the next occurrence takes place after the end date specified") if @until && best_guess.to_date > @until.to_date
-
+      fail(InvalidDateExpression, "the next occurrence takes place after the end date specified") if @until && (best_guess.to_date > @until.to_date)
       if !best_guess
         return nil
-      elsif options[:next_only] != true
-        return {:next => best_guess.to_time, :expression => event.strip, :starting => @start, :until => @until}
+      elsif !tickled.next_only?
+        return {:next => best_guess.to_time, :expression => tickled.event.filter, :starting => @start, :until => @until}
       else
         return best_guess
       end
     end
 
+
     # scans the expression for a variety of natural formats, such as 'every thursday starting tomorrow until May 15th
-    def scan_expression(text, options)
-      starting = ending = nil
-
-      start_every_regex = /^
-        (start(?:s|ing)?)                 # 0
-        \s
-        (.*)
-        (\s(?:every|each|\bon\b|repeat)   # 1
-        (?:s|ing)?)                       # 2
-        (.*)                              # 3
-      /ix
-      every_start_regex = /^(every|each|\bon\b|repeat(?:the)?)\s(.*)(\s(?:start)(?:s|ing)?)(.*)/i
-      start_ending_regex = /^
-        (start(?:s|ing)?)   # 0
-        \s+
-        (.*?)(?:\s+and)?      # 1
-        (\s
-          (?:\bend|until)
-          (?:s|ing)?
-        )                   # 2
-        (.*)                # 3
-      /ix
-      if text =~ start_every_regex
-        starting = text.match(start_every_regex)[2].strip
-        text = text.match(start_every_regex)[4].strip
-        event, ending = process_for_ending(text)
-      elsif text =~ every_start_regex
-        event = text.match(every_start_regex)[2].strip
-        text = text.match(every_start_regex)[4].strip
-        starting, ending = process_for_ending(text)
-      elsif text =~ start_ending_regex
-        md = text.match start_ending_regex
-        starting = md.captures[1]
-        ending = md.captures.last.strip
-        event = 'day'
-      else
-        event, ending = process_for_ending(text)
+    def scan_expression!(tickled)
+      starting,ending,event = nil, nil, nil
+      if (md = Patterns::START_EVERY_REGEX.match tickled)
+          starting = md[:start].strip
+          text = md[:event].strip
+          event, ending = process_for_ending(text)
+      elsif (md = Patterns::EVERY_START_REGEX.match tickled)
+          event = md[:event].strip
+          text = md[:start].strip
+          starting, ending = process_for_ending(text)
+      elsif (md = Patterns::START_ENDING_REGEX.match tickled)
+          starting = md[:start].strip
+          ending = md[:finish].strip
+          event = 'day'
+        else
+          event, ending = process_for_ending(text)
       end
-
+      tickled.starting  = starting  unless starting.nil?
+      tickled.event     = event     unless event.nil?
+      tickled.ending    = ending    unless ending.nil?
       # they gave a phrase so if we can't interpret then we need to raise an error
-      if starting
-        Tickle.dwrite("starting: #{starting}")
-        @start ||= nil # initialize the variable to quell warnings
-        @start = chronic_parse(pre_filter(starting))
+      if tickled.starting && !tickled.starting.to_s.blank?
+        @start = chronic_parse(tickled.starting,tickled, :start)
         if @start
           @start.to_time
         else
-          raise(InvalidDateExpression,"the starting date expression \"#{starting}\" could not be interpretted")
+          fail(InvalidDateExpression,"the starting date expression \"#{tickled.starting}\" could not be interpretted")
         end
       else
-        @start = options[:start].to_time rescue nil
+        @start = tickled.start && tickled.start.to_time
       end
 
-      if ending
-        @until = chronic_parse(pre_filter(ending))
+
+      if tickled.ending && !tickled.ending.blank?
+        @until = chronic_parse(tickled.ending.filter,tickled, :until)
         if @until
           @until.to_time
         else
-          raise(InvalidDateExpression,"the ending date expression \"#{ending}\" could not be interpretted")
+          fail(InvalidDateExpression,"the ending date expression \"#{tickled.ending}\" could not be interpretted")
         end
       else
-        @until = options[:until].to_time rescue nil
+        @until = 
+          if  tickled.starting && !tickled.starting.to_s.blank?
+            if tickled.until && !tickled.until.to_s.blank?
+              if tickled.until.to_time > tickled.starting.to_time
+                tickled.until.to_time
+              end
+            end
+          end
       end
 
       @next = nil
-
-      return event
+      tickled
     end
 
+
     # process the remaining expression to see if an until, end, ending is specified
     def process_for_ending(text)
-      regex = /^(.*)(\s(?:\bend|until)(?:s|ing)?)(.*)/i
-      if text =~ regex
-        return text.match(regex)[1], text.match(regex)[3]
-      else
-        return text, nil
-      end
-    end
-
-    # Normalize natural string removing prefix language
-    def pre_filter(text)
-      return nil unless text
-
-      text.gsub!(/every(\s)?/, '')
-      text.gsub!(/each(\s)?/, '')
-      text.gsub!(/repeat(s|ing)?(\s)?/, '')
-      text.gsub!(/on the(\s)?/, '')
-      text.gsub!(/([^\w\d\s])+/, '')
-      normalize_us_holidays(text.downcase.strip)
-    end
-
-    # Split the text on spaces and convert each word into
-    # a Token
-    def base_tokenize(text) #:nodoc:
-      text.split(' ').map { |word| Token.new(word) }
+      (md = Patterns::PROCESS_FOR_ENDING.match text) ?
+        [ md[:target], md[:ending] ] :
+        [text, nil]
     end
 
     # normalizes each token
-    def post_tokenize
-      @tokens.each do |token|
-        token.word = normalize(token.original)
+    def post_tokenize(tokens)
+      _tokens = tokens.map(&:clone)
+      _tokens.each do |token|
+        token.normalize!
       end
+      _tokens
     end
 
-    # Clean up the specified input text by stripping unwanted characters,
-    # converting idioms to their canonical form, converting number words
-    # to numbers (three => 3), and converting ordinal words to numeric
-    # ordinals (third => 3rd)
-    def normalize(text) #:nodoc:
-      normalized_text = text.to_s.downcase
-      normalized_text = Numerizer.numerize(normalized_text)
-      normalized_text.gsub!(/['"\.]/, '')
-      normalized_text.gsub!(/([\/\-\,\@])/) { ' ' + $1 + ' ' }
-      normalized_text
-    end
-
-    # Converts natural language US Holidays into a date expression to be
-    # parsed.
-    def normalize_us_holidays(text) #:nodoc:
-      normalized_text = text.to_s.downcase
-      normalized_text.gsub!(/\bnew\syear'?s?(\s)?(day)?\b/, "january 1, #{next_appropriate_year(1, 1)}")
-      normalized_text.gsub!(/\bnew\syear'?s?(\s)?(eve)?\b/, "december 31, #{next_appropriate_year(12, 31)}")
-      normalized_text.gsub!(/\bm(artin\s)?l(uther\s)?k(ing)?(\sday)?\b/, 'third monday in january')
-      normalized_text.gsub!(/\binauguration(\sday)?\b/, 'january 20')
-      normalized_text.gsub!(/\bpresident'?s?(\sday)?\b/, 'third monday in february')
-      normalized_text.gsub!(/\bmemorial\sday\b/, '4th monday of may')
-      normalized_text.gsub!(/\bindepend(e|a)nce\sday\b/, "july 4, #{next_appropriate_year(7, 4)}")
-      normalized_text.gsub!(/\blabor\sday\b/, 'first monday in september')
-      normalized_text.gsub!(/\bcolumbus\sday\b/, 'second monday in october')
-      normalized_text.gsub!(/\bveterans?\sday\b/, "november 11, #{next_appropriate_year(11, 1)}")
-      normalized_text.gsub!(/\bthanksgiving(\sday)?\b/, 'fourth thursday in november')
-      normalized_text.gsub!(/\bchristmas\seve\b/, "december 24, #{next_appropriate_year(12, 24)}")
-      normalized_text.gsub!(/\bchristmas(\sday)?\b/, "december 25, #{next_appropriate_year(12, 25)}")
-      normalized_text.gsub!(/\bsuper\sbowl(\ssunday)?\b/, 'first sunday in february')
-      normalized_text.gsub!(/\bgroundhog(\sday)?\b/, "february 2, #{next_appropriate_year(2, 2)}")
-      normalized_text.gsub!(/\bvalentine'?s?(\sday)?\b/, "february 14, #{next_appropriate_year(2, 14)}")
-      normalized_text.gsub!(/\bs(ain)?t\spatrick'?s?(\sday)?\b/, "march 17, #{next_appropriate_year(3, 17)}")
-      normalized_text.gsub!(/\bapril\sfool'?s?(\sday)?\b/, "april 1, #{next_appropriate_year(4, 1)}")
-      normalized_text.gsub!(/\bearth\sday\b/, "april 22, #{next_appropriate_year(4, 22)}")
-      normalized_text.gsub!(/\barbor\sday\b/, 'fourth friday in april')
-      normalized_text.gsub!(/\bcinco\sde\smayo\b/, "may 5, #{next_appropriate_year(5, 5)}")
-      normalized_text.gsub!(/\bmother'?s?\sday\b/, 'second sunday in may')
-      normalized_text.gsub!(/\bflag\sday\b/, "june 14, #{next_appropriate_year(6, 14)}")
-      normalized_text.gsub!(/\bfather'?s?\sday\b/, 'third sunday in june')
-      normalized_text.gsub!(/\bhalloween\b/, "october 31, #{next_appropriate_year(10, 31)}")
-      normalized_text.gsub!(/\belection\sday\b/, 'second tuesday in november')
-      normalized_text.gsub!(/\bkwanzaa\b/, "january 1, #{next_appropriate_year(1, 1)}")
-      normalized_text
-    end
-
-    # Turns compound numbers, like 'twenty first' => 21
-    def combine_multiple_numbers
-      if [:number, :ordinal].all? {|type| token_types.include? type}
-        number = token_of_type(:number)
-        ordinal = token_of_type(:ordinal)
-        combined_original = "#{number.original} #{ordinal.original}"
-        combined_word = (number.start.to_s[0] + ordinal.word)
-        combined_value = (number.start.to_s[0] + ordinal.start.to_s)
-        new_number_token = Token.new(combined_original, combined_word, :ordinal, combined_value, 365)
-        @tokens.reject! {|token| (token.type == :number || token.type == :ordinal)}
-        @tokens << new_number_token
-      end
-    end
 
     # Returns an array of types for all tokens
     def token_types
       @tokens.map(&:type)
     end
 
+
     # Returns the next available month based on the current day of the month.
     # For example, if get_next_month(15) is called and the start date is the 10th, then it will return the 15th of this month.
     # However, if get_next_month(15) is called and the start date is the 18th, it will return the 15th of next month.
@@ -280,56 +176,38 @@ module Tickle
       month = number.to_i < @start.day ? (@start.month == 12 ? 1 : @start.month + 1) : @start.month
     end
 
+
     def next_appropriate_year(month, day)
-      start = @start || Date.today
-      year = (Date.new(start.year.to_i, month.to_i, day.to_i) == start.to_date) ? start.year + 1 : start.year
+      year = (Date.new(@start.year.to_i, month.to_i, day.to_i) == @start.to_date) ? @start.year + 1 : @start.year
       return year
     end
 
-    # Return the number of days in a specified month.
-    # If no month is specified, current month is used.
-    def days_in_month(month=nil)
-      month ||= Date.today.month
-      days_in_mon = Date.civil(Date.today.year, month, -1).day
-    end
 
     private
 
+
     # slightly modified chronic parser to ensure that the date found is in the future
     # first we check to see if an explicit date was passed and, if so, dont do anything.
     # if, however, a date expression was passed we evaluate and shift forward if needed
-    def chronic_parse(exp)
-      result = Chronic.parse(exp.ordinal_as_number)
-      result = Time.local(result.year + 1, result.month, result.day, result.hour, result.min, result.sec) if result && result.to_time < Time.now
-      Tickle.dwrite("Chronic.parse('#{exp}') # => #{result}")
+    def chronic_parse(exp, tickled, start_or_until)
+      exp = Ordinal.new exp
+      result =
+        if r = Chronic.parse(exp.ordinal_as_number, :now => tickled.now)
+          r
+        elsif r = (start_or_until && tickled[start_or_until])
+          r
+        elsif r = (start_or_until == :start && tickled.now)
+          r
+        end
+      if result && result.to_time < Time.now
+        result = Time.local(result.year + 1, result.month, result.day, result.hour, result.min, result.sec)
+      end
       result
     end
 
   end
 
-  class Token #:nodoc:
-    attr_accessor :original, :word, :type, :interval, :start
 
-    def initialize(original, word=nil, type=nil, start=nil, interval=nil)
-      @original = original
-      @word = word
-      @type = type
-      @interval = interval
-      @start = start
-    end
-
-    # Updates an existing token.  Mostly used by the repeater class.
-    def update(type, start=nil, interval=nil)
-      @start = start
-      @type = type
-      @interval = interval
-    end
-  end
-
-  # This exception is raised if an invalid argument is provided to
-  # any of Tickle's methods
-  class InvalidArgumentException < Exception
-  end
 
   # This exception is raised if there is an issue with the parsing
   # output from the date expression provided

data/lib/tickle/tickled.rb

@@ -0,0 +1,174 @@
+require 'chronic'
+require 'texttube/base'
+require_relative "filters.rb"
+require 'chronic'
+
+module Tickle
+      
+
+
+  # Contains the initial input and the result of parsing it.
+  class Tickled < TextTube::Base
+    register Filters
+
+    # @param [String] asked The string Tickle should parse.
+    # @param [Hash] options
+    # @see Tickle.parse for specific options
+    # @see ::Hash#new
+    def initialize(asked, options={}, &block)
+      fail ArgumentError, "You must pass a string to Tickled.new" if asked.nil?
+
+
+      default_options = {
+        :start      => Time.now,
+        :next_only  => false,
+        :until      => nil,
+        :now        => Time.now,
+      }
+
+      unless options.nil? || options.empty?
+        # ensure the specified options are valid
+        options.keys.each do |key|
+          fail(ArgumentError, "#{key} is not a valid option key.") unless default_options.keys.include?(key)
+        end
+
+        [:start,:until,:now].each do |key|
+          if options.has_key? key
+            test_for_correctness options[key], key
+          end
+        end
+      end
+
+      t = 
+        if asked.respond_to?(:to_time)
+          asked
+        elsif (t = Time.parse(asked) rescue nil) # a legitimate use!
+          t
+        elsif (t = Chronic.parse("#{asked}") rescue nil) # another legitimate use!
+          t
+        end
+
+      unless t.nil?
+        define_singleton_method :to_time do
+          @as_time ||= t
+        end
+      end
+
+      @opts = default_options.merge(options)
+      super(asked.to_s)
+    end
+
+
+    def asked
+      self
+    end
+
+
+    def parser= parser
+      @parser = parser
+    end
+
+    def parse!
+      @parser.parse self
+    end
+
+    def now=( value )
+      @opts[:now] = value
+    end
+
+    def now
+      @opts[:now]
+    end
+
+    def next_only=( value )
+      @opts[:next_only] = value
+    end
+
+
+    def next_only?
+      @opts[:next_only]
+    end
+
+
+    # param [Date,Time,String,nil] v The value given for the key.
+    # param [Symbol] key The name of the key being tested.
+    def test_for_correctness( v, key )
+      # Must be be a time or a string or be able to convert to a time
+      # If it is a string, must parse ok by Chronic
+      fail ArgumentError, "The value (#{v}) given for :#{key} does not appear to be a valid date or time." unless v.respond_to?(:to_time) or (v.respond_to?(:downcase) and ::Chronic.parse(v))
+    end
+
+
+    def asked
+      self
+    end
+
+
+    # @param [Date,Time,String]
+    def asked=( text )
+      #test_for_correctness text, :asked
+      @opts[:asked] = text
+    end
+
+    def start
+      @opts[:start] ||= Time.now
+    end
+
+    def start=( value )
+      @opts[:start] = test_for_correctness value, :start
+    end
+
+    def until
+      @opts[:until] ||= Tickled.new( Time.now )
+    end
+
+    def until=( value )
+      @opts[:until] = test_for_correctness value, :until
+    end
+
+
+    [:starting, :ending, :event].each do |meth|
+      define_method meth do
+        @opts[meth] 
+      end
+      define_method "#{meth}=" do |value|
+        @opts[meth] = Tickled.new value
+      end
+    end
+
+
+    def event
+      @opts[:event] ||= self
+    end
+    def event= value
+      @opts[:event] = Tickled.new value
+    end
+
+
+    def filtered=(filtered_text)
+      @filtered = filtered_text
+    end
+
+    def filtered
+      @filtered
+    end
+
+
+    def to_s
+      self
+    end
+  
+    def blank?
+      if respond_to? :empty?
+        empty? || !self
+      elsif respond_to? :localtime
+        false
+      end 
+    end
+
+#     def inspect
+#       "#{self} #{@opts.inspect}"
+#     end
+
+  end
+end