local url = require("socket.url")
local json = require("cjson")
local concat, insert
do
  local _obj_0 = table
  concat, insert = _obj_0.concat, _obj_0.insert
end
local floor
do
  local _obj_0 = math
  floor = _obj_0.floor
end
local unescape, escape, escape_pattern, inject_tuples, parse_query_string, encode_query_string, parse_content_disposition, parse_cookie_string, slugify, underscore, camelize, uniquify, trim, trim_all, trim_filter, key_filter, json_encodable, to_json, from_json, build_url, time_ago, time_ago_in_words, title_case, autoload, auto_table, mixin_class, mixin
do
  local u = url.unescape
  unescape = function(str)
    return (u(str))
  end
end
do
  local e = url.escape
  escape = function(str)
    return (e(str))
  end
end
do
  local punct = "[%^$()%.%[%]*+%-?%%]"
  escape_pattern = function(str)
    return (str:gsub(punct, function(p)
      return "%" .. p
    end))
  end
end
inject_tuples = function(tbl)
  for _index_0 = 1, #tbl do
    local tuple = tbl[_index_0]
    tbl[tuple[1]] = tuple[2] or true
  end
end
do
  local C, P, S, Ct
  do
    local _obj_0 = require("lpeg")
    C, P, S, Ct = _obj_0.C, _obj_0.P, _obj_0.S, _obj_0.Ct
  end
  local chunk = C((P(1) - S("=&")) ^ 1)
  local tuple = Ct(chunk / unescape * "=" * (chunk / unescape) + chunk)
  local query = S("?#") ^ -1 * Ct(tuple * (P("&") * tuple) ^ 0)
  parse_query_string = function(str)
    do
      local out = query:match(str)
      if out then
        inject_tuples(out)
      end
      return out
    end
  end
end
encode_query_string = function(t, sep)
  if sep == nil then
    sep = "&"
  end
  local i = 0
  local buf = { }
  for k, v in pairs(t) do
    if type(k) == "number" and type(v) == "table" then
      k, v = v[1], v[2]
    end
    buf[i + 1] = escape(k)
    buf[i + 2] = "="
    buf[i + 3] = escape(v)
    buf[i + 4] = sep
    i = i + 4
  end
  buf[i] = nil
  return concat(buf)
end
do
  local C, R, P, S, Ct, Cg
  do
    local _obj_0 = require("lpeg")
    C, R, P, S, Ct, Cg = _obj_0.C, _obj_0.R, _obj_0.P, _obj_0.S, _obj_0.Ct, _obj_0.Cg
  end
  local white = S(" \t") ^ 0
  local token = C((R("az", "AZ", "09") + S("._-")) ^ 1)
  local value = (token + P('"') * C((1 - S('"')) ^ 0) * P('"')) / unescape
  local param = Ct(white * token * white * P("=") * white * value)
  local patt = Ct(Cg(token, "type") * (white * P(";") * param) ^ 0)
  parse_content_disposition = function(str)
    do
      local out = patt:match(str)
      if out then
        inject_tuples(out)
      end
      return out
    end
  end
end
parse_cookie_string = function(str)
  if not (str) then
    return { }
  end
  local _tbl_0 = { }
  for key, value in str:gmatch("([^=%s]*)=([^;]*)") do
    _tbl_0[key] = unescape(value)
  end
  return _tbl_0
end
slugify = function(str)
  return (str:gsub("%s+", "-"):gsub("[^%w%-_]+", "")):lower()
end
underscore = function(str)
  local words
  do
    local _accum_0 = { }
    local _len_0 = 1
    for word in str:gmatch("%L*%l+") do
      _accum_0[_len_0] = word:lower()
      _len_0 = _len_0 + 1
    end
    words = _accum_0
  end
  return concat(words, "_")
end
do
  local patt = "[^" .. tostring(escape_pattern("_")) .. "]+"
  camelize = function(str)
    return concat((function()
      local _accum_0 = { }
      local _len_0 = 1
      for part in str:gmatch(patt) do
        _accum_0[_len_0] = part:sub(1, 1):upper() .. part:sub(2)
        _len_0 = _len_0 + 1
      end
      return _accum_0
    end)())
  end
end
uniquify = function(list)
  local seen = { }
  return (function()
    local _accum_0 = { }
    local _len_0 = 1
    for _index_0 = 1, #list do
      local _continue_0 = false
      repeat
        local item = list[_index_0]
        if seen[item] then
          _continue_0 = true
          break
        end
        seen[item] = true
        local _value_0 = item
        _accum_0[_len_0] = _value_0
        _len_0 = _len_0 + 1
        _continue_0 = true
      until true
      if not _continue_0 then
        break
      end
    end
    return _accum_0
  end)()
end
trim = function(str)
  return tostring(str):match("^%s*(.-)%s*$")
end
trim_all = function(tbl)
  for k, v in pairs(tbl) do
    if type(v) == "string" then
      tbl[k] = trim(v)
    end
  end
  return tbl
end
trim_filter = function(tbl, keys, empty_val)
  if keys then
    key_filter(tbl, unpack(keys))
  end
  for k, v in pairs(tbl) do
    if type(v) == "string" then
      local trimmed = trim(v)
      if trimmed == "" then
        tbl[k] = empty_val
      else
        tbl[k] = trimmed
      end
    end
  end
  return tbl
end
key_filter = function(tbl, ...)
  local set
  do
    local _tbl_0 = { }
    local _list_0 = {
      ...
    }
    for _index_0 = 1, #_list_0 do
      local val = _list_0[_index_0]
      _tbl_0[val] = true
    end
    set = _tbl_0
  end
  for k, v in pairs(tbl) do
    if not (set[k]) then
      tbl[k] = nil
    end
  end
  return tbl
end
json_encodable = function(obj, seen)
  if seen == nil then
    seen = { }
  end
  local _exp_0 = type(obj)
  if "table" == _exp_0 then
    if not (seen[obj]) then
      seen[obj] = true
      local _tbl_0 = { }
      for k, v in pairs(obj) do
        _tbl_0[k] = json_encodable(v)
      end
      return _tbl_0
    end
  elseif "function" == _exp_0 or "userdata" == _exp_0 or "thread" == _exp_0 then
    return nil
  else
    return obj
  end
end
to_json = function(obj)
  return json.encode(json_encodable(obj))
end
from_json = function(obj)
  return json.decode(obj)
end
build_url = function(parts)
  local out = parts.path or ""
  if parts.query then
    out = out .. ("?" .. parts.query)
  end
  if parts.fragment then
    out = out .. ("#" .. parts.fragment)
  end
  do
    local host = parts.host
    if host then
      host = "//" .. host
      if parts.port then
        host = host .. (":" .. parts.port)
      end
      if parts.scheme then
        host = parts.scheme .. ":" .. host
      end
      if parts.path and out:sub(1, 1) ~= "/" then
        out = "/" .. out
      end
      out = host .. out
    end
  end
  return out
end
do
  local date
  pcall(function()
    date = require("date")
  end)
  time_ago = function(time)
    local diff = date.diff(date(true), date(time))
    local times = { }
    local days = floor(diff:spandays())
    if days >= 365 then
      local years = floor(diff:spandays() / 365)
      times.years = years
      insert(times, {
        "years",
        years
      })
      diff:addyears(-years)
      days = days - (years * 365)
    end
    if days >= 1 then
      times.days = days
      insert(times, {
        "days",
        days
      })
      diff:adddays(-days)
    end
    local hours = floor(diff:spanhours())
    if hours >= 1 then
      times.hours = hours
      insert(times, {
        "hours",
        hours
      })
      diff:addhours(-hours)
    end
    local minutes = floor(diff:spanminutes())
    if minutes >= 1 then
      times.minutes = minutes
      insert(times, {
        "minutes",
        minutes
      })
      diff:addminutes(-minutes)
    end
    local seconds = floor(diff:spanseconds())
    if seconds >= 1 or not next(times) then
      times.seconds = seconds
      insert(times, {
        "seconds",
        seconds
      })
      diff:addseconds(-seconds)
    end
    return times
  end
end
do
  local singular = {
    years = "year",
    days = "day",
    hours = "hour",
    minutes = "minute",
    second = "second"
  }
  time_ago_in_words = function(time, parts)
    if parts == nil then
      parts = 1
    end
    local ago = type(time) == "table" and time or time_ago(time)
    local out = ""
    local i = 1
    while parts > 0 do
      parts = parts - 1
      local segment = ago[i]
      i = i + 1
      if not (segment) then
        break
      end
      local val = segment[2]
      local word = val == 1 and singular[segment[1]] or segment[1]
      if #out > 0 then
        out = out .. ", "
      end
      out = out .. (val .. " " .. word)
    end
    return out .. " ago"
  end
end
do
  local upper = string.upper
  title_case = function(str)
    return (str:gsub("%S+", function(chunk)
      return chunk:gsub("^.", string.upper)
    end))
  end
end
do
  local try_require
  try_require = function(mod_name)
    local mod
    local success, err = pcall(function()
      mod = require(mod_name)
    end)
    if not success and not err:match("module '" .. tostring(mod_name) .. "' not found:") then
      error(err)
    end
    return mod
  end
  autoload = function(prefix, t)
    if t == nil then
      t = { }
    end
    return setmetatable(t, {
      __index = function(self, mod_name)
        local mod
        mod = try_require(prefix .. "." .. mod_name)
        if not (mod) then
          mod = try_require(prefix .. "." .. underscore(mod_name))
        end
        self[mod_name] = mod
        return mod
      end
    })
  end
end
auto_table = function(fn)
  return setmetatable({ }, {
    __index = function(self, name)
      local result = fn()
      getmetatable(self).__index = result
      return result[name]
    end
  })
end
do
  local empty_func = string.dump(function() end)
  local is_filled_function
  is_filled_function = function(fn)
    return fn and string.dump(fn) ~= empty_func
  end
  local combine_before
  combine_before = function(existing, new)
    return function(...)
      new(...)
      return existing(...)
    end
  end
  mixin_class = function(target, to_mix, combine_methods)
    if combine_methods == nil then
      combine_methods = combine_before
    end
    local base = target.__base
    for member_name, member_val in pairs(to_mix.__base) do
      local _continue_0 = false
      repeat
        if member_name:match("^__") then
          _continue_0 = true
          break
        end
        do
          local existing = base[member_name]
          if existing then
            if type(existing) == "function" and type(member_val) == "function" then
              base[member_name] = combine_methods(existing, member_val)
              _continue_0 = true
              break
            end
          end
        end
        base[member_name] = member_val
        _continue_0 = true
      until true
      if not _continue_0 then
        break
      end
    end
    local new_ctor = to_mix.__init
    if is_filled_function(new_ctor) then
      local old_ctor = target.__init
      if is_filled_function(old_ctor) then
        target.__init = function(...)
          old_ctor(...)
          return new_ctor(...)
        end
      else
        target.__init = new_ctor
      end
    end
  end
end
do
  local get_local
  get_local = function(search_name, level)
    if level == nil then
      level = 1
    end
    level = level + 1
    local i = 1
    while true do
      local name, val = debug.getlocal(level, i)
      if not (name) then
        break
      end
      if name == search_name then
        return val
      end
      i = i + 1
    end
  end
  mixin = function(...)
    local target = get_local("self", 2)
    local _list_0 = {
      ...
    }
    for _index_0 = 1, #_list_0 do
      local to_mix = _list_0[_index_0]
      mixin_class(target, to_mix)
    end
  end
end
return {
  unescape = unescape,
  escape = escape,
  escape_pattern = escape_pattern,
  parse_query_string = parse_query_string,
  parse_content_disposition = parse_content_disposition,
  parse_cookie_string = parse_cookie_string,
  encode_query_string = encode_query_string,
  underscore = underscore,
  slugify = slugify,
  uniquify = uniquify,
  trim = trim,
  trim_all = trim_all,
  trim_filter = trim_filter,
  key_filter = key_filter,
  to_json = to_json,
  from_json = from_json,
  json_encodable = json_encodable,
  build_url = build_url,
  time_ago = time_ago,
  time_ago_in_words = time_ago_in_words,
  camelize = camelize,
  title_case = title_case,
  autoload = autoload,
  auto_table = auto_table,
  mixin_class = mixin_class,
  mixin = mixin
}