module ActiveFedora::SolrQueryBuilder

def condition_to_clauses(field, values)
  values = Array(values)
  values << nil if values.empty?
  values.map do |value|
    if value.present?
      field_query(field, value)
    else
      # Check that the field is not present. In SQL: "WHERE field IS NULL"
      "-#{field}:[* TO *]"
    end
  end
end

def construct_query(field_pairs, join_with = ' AND ')
  pairs_to_clauses(field_pairs).join(join_with)
end

def construct_query_for_ids(id_array)
  ids = id_array.reject(&:blank?)
  return "id:NEVER_USE_THIS_ID" if ids.empty?
  "{!terms f=#{ActiveFedora.id_field}}#{ids.join(',')}"
end

def construct_query_for_rel(field_pairs, join_with = ' AND ')
  field_pairs = field_pairs.to_a if field_pairs.is_a? Hash
  construct_query(property_values_to_solr(field_pairs), join_with)
end

def field_query(key, value)
  "_query_:\"{!field f=#{key}}#{value.gsub('"', '\"')}\""
end

def pairs_to_clauses(pairs)
  pairs.flat_map do |field, value|
    condition_to_clauses(field, value)
  end
end

def property_values_to_solr(pairs)
  pairs.map do |(property, value)|
    [solr_field(property), value]
  end
end

def raw_query(key, value)
  Deprecation.warn(ActiveFedora::SolrQueryBuilder, 'ActiveFedora::SolrQueryBuilder.raw_query is deprecated and will be removed in ActiveFedora 10.0. Use .construct_query instead.')
  "_query_:\"{!raw f=#{key}}#{value.gsub('"', '\"')}\""
end

def solr_field(field)
  case field
  when ActiveFedora::Reflection::AssociationReflection
    field.solr_key
  else
    ActiveFedora.index_field_mapper.solr_name(field, :symbol)
  end
end

def solr_name(*args)
  Deprecation.warn(ActiveFedora::SolrQueryBuilder, 'ActiveFedora::SolrQueryBuilder.solr_name is deprecated and will be removed in ActiveFedora 10.0. Use ActiveFedora.index_field_mapper.solr_name instead.')
  ActiveFedora.index_field_mapper.solr_name(*args)
end