module Fugit

def determine_type(s)
  case self.parse(s)
  when ::Fugit::Cron then 'cron'
  when ::Fugit::Duration then 'in'
  when ::Time, ::EtOrbi::EoTime then 'at'
  else nil
  end
end

def do_parse(s, opts={})
  opts[:at] = opts[:in] if opts.has_key?(:in)
  result = nil
  errors = []
  %i[ cron duration nat at ]
    .each { |k|
      begin
        result ||= (opts[k] != false && self.send("do_parse_#{k}", s))
      rescue => err
        errors << err
      end }
  return result if result
  raise(
    errors.find { |r| r.class != ArgumentError } ||
    errors.first ||
    ArgumentError.new("found no time information in #{s.inspect}"))
end

def do_parse_at(s); ::Fugit::At.do_parse(s); end

def do_parse_cron(s); ::Fugit::Cron.do_parse(s); end

def do_parse_cronish(s, opts={})
  parse_cronish(s) ||
  fail(ArgumentError.new("not cron or 'natural' cron string: #{s.inspect}"))
end

def do_parse_duration(s); ::Fugit::Duration.do_parse(s); end

def do_parse_in(s); do_parse_duration(s); end

def do_parse_nat(s, opts={}); ::Fugit::Nat.do_parse(s, opts); end

def isostamp(show_date, show_time, show_usec, time)
  t = time || Time.now
  s = StringIO.new
  s << t.strftime('%Y-%m-%d') if show_date
  s << t.strftime('T%H:%M:%S') if show_time
  s << sprintf('.%06d', t.usec) if show_time && show_usec
  s << 'Z' if show_time && time.utc?
  s.string
end

def parse(s, opts={})
  opts[:at] = opts[:in] if opts.has_key?(:in)
  (opts[:cron] != false && parse_cron(s)) || # 542ms 616ms
  (opts[:duration] != false && parse_duration(s)) || # 645ms # 534ms
  (opts[:nat] != false && parse_nat(s, opts)) || # 2s # 35s
  (opts[:at] != false && parse_at(s)) || # 568ms 622ms
  nil
end

def parse_at(s); ::Fugit::At.parse(s); end

def parse_cron(s); ::Fugit::Cron.parse(s); end

def parse_cronish(s, opts={})
  r = parse_cron(s) || parse_nat(s, opts)
  r.is_a?(::Fugit::Cron) ? r : nil
end

def parse_duration(s); ::Fugit::Duration.parse(s); end

def parse_in(s); parse_duration(s); end

def parse_nat(s, opts={}); ::Fugit::Nat.parse(s, opts); end

def time_to_plain_s(t=Time.now, z=true)
  t.strftime('%Y-%m-%d %H:%M:%S') + (z && t.utc? ? ' Z' : '')
end

def time_to_s(t)
  isostamp(true, true, false, t)
end

def time_to_zone_s(t=Time.now)
  t.strftime('%Y-%m-%d %H:%M:%S %Z %z')
end