Whenever::Output::Cron

# File lib/whenever/cron.rb, line 14
def self.enumerate(item, detect_cron = true)
  if item and item.is_a?(String)
    items = 
      if detect_cron && item =~ REGEX
        [item]
      else
        item.split(',')
      end
  else
    items = item
    items = [items] unless items and items.respond_to?(:each)
  end
  items
end

# File lib/whenever/cron.rb, line 8
def initialize(time = nil, task = nil, at = nil)
  @time = time
  @task = task
  @at   = at.is_a?(String) ? (Chronic.parse(at) || 0) : (at || 0)
end

# File lib/whenever/cron.rb, line 29
def self.output(times, job)
  enumerate(times).each do |time|
    enumerate(job.at, false).each do |at|
      yield new(time, job.output, at).output
    end
  end
end

# File lib/whenever/cron.rb, line 37
def output
  [time_in_cron_syntax, task].compact.join(' ').strip
end

# File lib/whenever/cron.rb, line 41
def time_in_cron_syntax
  case @time
    when REGEX  then @time # raw cron sytax given
    when Symbol then parse_symbol
    when String then parse_as_string
    else parse_time
  end
end

# File lib/whenever/cron.rb, line 130
def comma_separated_timing(frequency, max, start = 0)
  return start     if frequency.blank? || frequency.zero?
  return '*'       if frequency == 1
  return frequency if frequency > (max * 0.5).ceil

  original_start = start

  start += frequency unless (max + 1).modulo(frequency).zero? || start > 0
  output = (start..max).step(frequency).to_a

  max_occurances = (max.to_f  / (frequency.to_f)).round
  max_occurances += 1 if original_start.zero?

  output[0, max_occurances].join(',')
end

# File lib/whenever/cron.rb, line 112
def parse_as_string
  return unless @time
  string = @time.to_s

  timing = Array.new(4, '*')
  timing[0] = @at.is_a?(Time) ? @at.min  : 0
  timing[1] = @at.is_a?(Time) ? @at.hour : 0

  return (timing << '1-5') * " " if string.downcase.index('weekday')
  return (timing << '6,0') * " " if string.downcase.index('weekend')

  %(sun mon tue wed thu fri sat).each_with_index do |day, i|
    return (timing << i) * " " if string.downcase.index(day)
  end

  raise ArgumentError, "Couldn't parse: #{@time}"
end

# File lib/whenever/cron.rb, line 52
def parse_symbol
  shortcut = case @time
    when :reboot   then '@reboot'
    when :year     then 12.months
    when :yearly, 
         :annually then '@annually'
    when :day      then 1.day
    when :daily    then '@daily'
    when :midnight then '@midnight'
    when :month    then 1.month
    when :monthly  then '@monthly'
    when :week     then 1.week
    when :weekly   then '@weekly'
    when :hour     then 1.hour
    when :hourly   then '@hourly'
  end
  
  if shortcut.is_a?(Numeric)
    @time = shortcut
    parse_time
  elsif shortcut
    if @at.is_a?(Time) || (@at.is_a?(Numeric) && @at > 0)
      raise ArgumentError, "You cannot specify an ':at' when using the shortcuts for times."
    else
      return shortcut
    end
  else
    parse_as_string
  end
end

# File lib/whenever/cron.rb, line 83
def parse_time
  timing = Array.new(5, '*')
  case @time
    when 0.seconds...1.minute
      raise ArgumentError, "Time must be in minutes or higher"
    when 1.minute...1.hour
      minute_frequency = @time / 60
      timing[0] = comma_separated_timing(minute_frequency, 59, @at || 0)
    when 1.hour...1.day
      hour_frequency = (@time / 60 / 60).round
      timing[0] = @at.is_a?(Time) ? @at.min : @at
      timing[1] = comma_separated_timing(hour_frequency, 23)
    when 1.day...1.month
      day_frequency = (@time / 24 / 60 / 60).round
      timing[0] = @at.is_a?(Time) ? @at.min  : 0
      timing[1] = @at.is_a?(Time) ? @at.hour : @at
      timing[2] = comma_separated_timing(day_frequency, 31, 1)
    when 1.month..12.months
      month_frequency = (@time / 30  / 24 / 60 / 60).round
      timing[0] = @at.is_a?(Time) ? @at.min  : 0
      timing[1] = @at.is_a?(Time) ? @at.hour : 0
      timing[2] = @at.is_a?(Time) ? @at.day  : (@at.zero? ? 1 : @at)
      timing[3] = comma_separated_timing(month_frequency, 12, 1)
    else
      return parse_as_string
  end
  timing.join(' ')
end