module Roda::RodaPlugins::Path::ClassMethods

def freeze
  path_classes.freeze
  super
end

def path(name, path=nil, opts=OPTS, &block)
  if name.is_a?(Class)
    raise RodaError, "can't provide path or options when calling path with a class" unless path.nil? && opts.empty?
    raise RodaError, "must provide a block when calling path with a class" unless block
    if self.opts[:path_class_by_name]
      name = name.name
    end
    path_classes[name] = block
    return
  end
  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.fetch(:add_script_name, self.opts[:add_script_name])
  if add_script_name || url || opts[:url_only]
    _meth = "_#{meth}"
    define_method(_meth, &block)
    private _meth
  end
  unless opts[:url_only]
    if add_script_name
      define_method(meth) do |*a, &blk|
        # Allow calling private _method to get path
        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
      # Allow calling private _method to get path
      uri << send(_meth, *a, &blk)
      File.join(uri)
    end
    define_method(url_meth, &url_block)
  end
  nil
end

def path_block(klass)
  if opts[:path_class_by_name]
    klass = klass.name
  end
  path_classes[klass]
end

def path_classes
  opts[:path_classes]
end