module Roda::RodaPlugins::Path::ClassMethods

def path(name, path=nil, opts={}, &block)
  if path.is_a?(Hash)
    raise RodaError,  "cannot provide two option hashses to Roda.path" unless opts.empty?
    opts = path
    path = nil
  end
  raise RodaError,  "cannot provide both path and block to Roda.path" if path && block
  raise RodaError,  "must provide either path or block to Roda.path" unless path || block
  if path
    path = path.dup.freeze
    block = lambda{path}
  end
  meth = opts[:name] || "#{name}_path"
  url = opts[:url]
  add_script_name = opts[:add_script_name]
  if add_script_name || url || opts[:url_only]
    _meth = "_#{meth}"
    define_method(_meth, &block)
  end
  unless opts[:url_only]
    if add_script_name
      define_method(meth) do |*a, &blk|
        request.script_name.to_s + send(_meth, *a, &blk)
      end
    else
      define_method(meth, &block)
    end
  end
  if url || opts[:url_only]
    url_meth = if url.is_a?(String) || url.is_a?(Symbol)
      url
    else
      "#{name}_url"
    end
    url_block = lambda do |*a, &blk|
      r = request
      scheme = r.scheme
      port = r.port
      uri = ["#{scheme}://#{r.host}#{":#{port}" unless DEFAULT_PORTS[scheme] == port}"]
      uri << request.script_name.to_s if add_script_name
      uri << send(_meth, *a, &blk)
      File.join(uri)
    end
    define_method(url_meth, &url_block)
  end
  nil
end