defmodule Geo.PostGIS do
  @moduledoc """
    Postgis functions that can used in ecto queries
    [PostGIS Function Documentation](http://postgis.net/docs/manual-1.3/ch06.html)

    Currently only the OpenGIS functions are implemented

    ex.
      defmodule Example do
        import Ecto.Query
        import Geo.PostGIS

        def example_query(geom) do
          from location in Location, limit: 5, select: st_distance(location.geom, ^geom)
        end

      end
  """

  defmacro st_transform(wkt, srid) do
    quote do: fragment("ST_Transform(?, ?)", unquote(wkt), unquote(srid))
  end

  defmacro st_distance(geometryA, geometryB) do
    quote do: fragment("ST_Distance(?,?)", unquote(geometryA), unquote(geometryB))
  end
   
  @doc """
  Casts the 2 geometries given to geographies in order to return distance in meters
  """
  defmacro st_distance_in_meters(geometryA, geometryB) do
    quote do:
            fragment(
              "ST_Distance(?::geography, ?::geography)",
              unquote(geometryA),
              unquote(geometryB)
            )
  end

  defmacro st_distancesphere(geometryA, geometryB) do
    quote do: fragment("ST_DistanceSphere(?,?)", unquote(geometryA), unquote(geometryB))
  end

  @doc """
  Please note that ST_Distance_Sphere has been deprecated as of Postgis 2.2.
  Postgis 2.1 is no longer supported on PostgreSQL >= 9.5.
  This macro is still in place to support users of PostgreSQL <= 9.4.x.
  """
  defmacro st_distance_sphere(geometryA, geometryB) do
    quote do: fragment("ST_Distance_Sphere(?,?)", unquote(geometryA), unquote(geometryB))
  end

  defmacro st_dwithin(geometryA, geometryB, float) do
    quote do:
            fragment("ST_DWithin(?,?,?)", unquote(geometryA), unquote(geometryB), unquote(float))
  end

  @doc """
  Casts the 2 geometries given to geographies in order to check for distance in meters
  """
  defmacro st_dwithin_in_meters(geometryA, geometryB, float) do
    quote do:
            fragment(
              "ST_DWithin(?::geography, ?::geography, ?)",
              unquote(geometryA),
              unquote(geometryB),
              unquote(float)
            )
  end

  defmacro st_equals(geometryA, geometryB) do
    quote do: fragment("ST_Equals(?,?)", unquote(geometryA), unquote(geometryB))
  end

  defmacro st_disjoint(geometryA, geometryB) do
    quote do: fragment("ST_Disjoint(?,?)", unquote(geometryA), unquote(geometryB))
  end

  defmacro st_intersects(geometryA, geometryB) do
    quote do: fragment("ST_Intersects(?,?)", unquote(geometryA), unquote(geometryB))
  end

  defmacro st_touches(geometryA, geometryB) do
    quote do: fragment("ST_Touches(?,?)", unquote(geometryA), unquote(geometryB))
  end

  defmacro st_crosses(geometryA, geometryB) do
    quote do: fragment("ST_Crosess(?,?)", unquote(geometryA), unquote(geometryB))
  end

  defmacro st_within(geometryA, geometryB) do
    quote do: fragment("ST_Within(?,?)", unquote(geometryA), unquote(geometryB))
  end

  defmacro st_overlaps(geometryA, geometryB) do
    quote do: fragment("ST_Overlaps(?,?)", unquote(geometryA), unquote(geometryB))
  end

  defmacro st_contains(geometryA, geometryB) do
    quote do: fragment("ST_Contains(?,?)", unquote(geometryA), unquote(geometryB))
  end

  defmacro st_covers(geometryA, geometryB) do
    quote do: fragment("ST_Covers(?,?)", unquote(geometryA), unquote(geometryB))
  end

  defmacro st_covered_by(geometryA, geometryB) do
    quote do: fragment("ST_CoveredBy(?,?)", unquote(geometryA), unquote(geometryB))
  end

  defmacro st_relate(geometryA, geometryB, intersectionPatternMatrix) do
    quote do:
            fragment(
              "ST_Relate(?,?,?)",
              unquote(geometryA),
              unquote(geometryB),
              unquote(intersectionPatternMatrix)
            )
  end

  defmacro st_relate(geometryA, geometryB) do
    quote do: fragment("ST_Relate(?,?)", unquote(geometryA), unquote(geometryB))
  end

  defmacro st_centroid(geometry) do
    quote do: fragment("ST_Centroid(?)", unquote(geometry))
  end

  defmacro st_area(geometry) do
    quote do: fragment("ST_Area(?)", unquote(geometry))
  end

  defmacro st_length(geometry) do
    quote do: fragment("ST_Length(?)", unquote(geometry))
  end

  defmacro st_point_on_surface(geometry) do
    quote do: fragment("ST_PointOnSurface(?)", unquote(geometry))
  end

  defmacro st_boundary(geometry) do
    quote do: fragment("ST_Boundary(?)", unquote(geometry))
  end

  defmacro st_buffer(geometry, double) do
    quote do: fragment("ST_Buffer(?, ?)", unquote(geometry), unquote(double))
  end

  defmacro st_buffer(geometry, double, integer) do
    quote do: fragment("ST_Buffer(?, ?, ?)", unquote(geometry), unquote(double), unquote(integer))
  end

  defmacro st_convex_hull(geometry) do
    quote do: fragment("ST_ConvexHull(?)", unquote(geometry))
  end

  defmacro st_intersection(geometryA, geometryB) do
    quote do: fragment("ST_Intersection(?, ?)", unquote(geometryA), unquote(geometryB))
  end

  defmacro st_shift_longitude(geometry) do
    quote do: fragment("ST_Shift_Longitude(?)", unquote(geometry))
  end

  defmacro st_sym_difference(geometryA, geometryB) do
    quote do: fragment("ST_SymDifference(?,?)", unquote(geometryA), unquote(geometryB))
  end

  defmacro st_difference(geometryA, geometryB) do
    quote do: fragment("ST_Difference(?,?)", unquote(geometryA), unquote(geometryB))
  end

  defmacro st_collect(geometryList) do
    quote do: fragment("ST_Collect(?)", unquote(geometryList))
  end

  defmacro st_collect(geometryA, geometryB) do
    quote do: fragment("ST_Collect(?,?)", unquote(geometryA), unquote(geometryB))
  end

  defmacro st_union(geometryList) do
    quote do: fragment("ST_Union(?)", unquote(geometryList))
  end

  defmacro st_union(geometryA, geometryB) do
    quote do: fragment("ST_Union(?,?)", unquote(geometryA), unquote(geometryB))
  end

  defmacro st_mem_union(geometryList) do
    quote do: fragment("ST_MemUnion(?)", unquote(geometryList))
  end

  defmacro st_as_text(geometry) do
    quote do: fragment("ST_AsText(?)", unquote(geometry))
  end

  defmacro st_as_binary(geometry) do
    quote do: fragment("ST_AsBinary(?)", unquote(geometry))
  end

  defmacro st_srid(geometry) do
    quote do: fragment("ST_SRID(?)", unquote(geometry))
  end

  defmacro st_set_srid(geometry, srid) do
    quote do: fragment("ST_SetSRID(?, ?)", unquote(geometry), unquote(srid))
  end

  defmacro st_make_box_2d(geometryA, geometryB) do
    quote do: fragment("ST_MakeBox2D(?, ?)", unquote(geometryA), unquote(geometryB))
  end

  defmacro st_dimension(geometry) do
    quote do: fragment("ST_Dimension(?)", unquote(geometry))
  end

  defmacro st_envelope(geometry) do
    quote do: fragment("ST_Envelope(?)", unquote(geometry))
  end

  defmacro st_is_simple(geometry) do
    quote do: fragment("ST_IsSimple(?)", unquote(geometry))
  end

  defmacro st_is_closed(geometry) do
    quote do: fragment("ST_IsClosed(?)", unquote(geometry))
  end

  defmacro st_is_ring(geometry) do
    quote do: fragment("ST_IsRing(?)", unquote(geometry))
  end

  defmacro st_num_geometries(geometry) do
    quote do: fragment("ST_NumGeometries(?)", unquote(geometry))
  end

  defmacro st_geometry_n(geometry, int) do
    quote do: fragment("ST_GeometryN(?, ?)", unquote(geometry), unquote(int))
  end

  defmacro st_num_points(geometry) do
    quote do: fragment("ST_NumPoints(?)", unquote(geometry))
  end

  defmacro st_point_n(geometry, int) do
    quote do: fragment("ST_PointN(?, ?)", unquote(geometry), unquote(int))
  end

  defmacro st_point(x, y) do
    quote do: fragment("ST_Point(?, ?)", unquote(x), unquote(y))
  end

  defmacro st_exterior_ring(geometry) do
    quote do: fragment("ST_ExteriorRing(?)", unquote(geometry))
  end

  defmacro st_num_interior_rings(geometry) do
    quote do: fragment("ST_NumInteriorRings(?)", unquote(geometry))
  end

  defmacro st_num_interior_ring(geometry) do
    quote do: fragment("ST_NumInteriorRing(?)", unquote(geometry))
  end

  defmacro st_interior_ring_n(geometry, int) do
    quote do: fragment("ST_InteriorRingN(?, ?)", unquote(geometry), unquote(int))
  end

  defmacro st_end_point(geometry) do
    quote do: fragment("ST_EndPoint(?)", unquote(geometry))
  end

  defmacro st_start_point(geometry) do
    quote do: fragment("ST_StartPoint(?)", unquote(geometry))
  end

  defmacro st_geometry_type(geometry) do
    quote do: fragment("ST_GeometryType(?)", unquote(geometry))
  end

  defmacro st_x(geometry) do
    quote do: fragment("ST_X(?)", unquote(geometry))
  end

  defmacro st_y(geometry) do
    quote do: fragment("ST_Y(?)", unquote(geometry))
  end

  defmacro st_z(geometry) do
    quote do: fragment("ST_Z(?)", unquote(geometry))
  end

  defmacro st_m(geometry) do
    quote do: fragment("ST_M(?)", unquote(geometry))
  end

  defmacro st_geom_from_text(text, srid \\ -1) do
    quote do: fragment("ST_GeomFromText(?, ?)", unquote(text), unquote(srid))
  end

  defmacro st_point_from_text(text, srid \\ -1) do
    quote do: fragment("ST_PointFromText(?, ?)", unquote(text), unquote(srid))
  end

  defmacro st_line_from_text(text, srid \\ -1) do
    quote do: fragment("ST_LineFromText(?, ?)", unquote(text), unquote(srid))
  end

  defmacro st_linestring_from_text(text, srid \\ -1) do
    quote do: fragment("ST_LinestringFromText(?, ?)", unquote(text), unquote(srid))
  end

  defmacro st_polygon_from_text(text, srid \\ -1) do
    quote do: fragment("ST_PolygonFromText(?, ?)", unquote(text), unquote(srid))
  end

  defmacro st_m_point_from_text(text, srid \\ -1) do
    quote do: fragment("ST_MPointFromText(?, ?)", unquote(text), unquote(srid))
  end

  defmacro st_m_line_from_text(text, srid \\ -1) do
    quote do: fragment("ST_MLineFromText(?, ?)", unquote(text), unquote(srid))
  end

  defmacro st_m_poly_from_text(text, srid \\ -1) do
    quote do: fragment("ST_MPolyFromText(?, ?)", unquote(text), unquote(srid))
  end

  defmacro st_m_geom_coll_from_text(text, srid \\ -1) do
    quote do: fragment("ST_GeomCollFromText(?, ?)", unquote(text), unquote(srid))
  end

  defmacro st_m_geom_from_wkb(bytea, srid \\ -1) do
    quote do: fragment("ST_GeomFromWKB(?, ?)", unquote(bytea), unquote(srid))
  end

  defmacro st_m_geometry_from_wkb(bytea, srid \\ -1) do
    quote do: fragment("ST_GeometryFromWKB(?, ?)", unquote(bytea), unquote(srid))
  end

  defmacro st_point_from_wkb(bytea, srid \\ -1) do
    quote do: fragment("ST_PointFromWKB(?, ?)", unquote(bytea), unquote(srid))
  end

  defmacro st_line_from_wkb(bytea, srid \\ -1) do
    quote do: fragment("ST_LineFromWKB(?, ?)", unquote(bytea), unquote(srid))
  end

  defmacro st_linestring_from_wkb(bytea, srid \\ -1) do
    quote do: fragment("ST_LinestringFromWKB(?, ?)", unquote(bytea), unquote(srid))
  end

  defmacro st_poly_from_wkb(bytea, srid \\ -1) do
    quote do: fragment("ST_PolyFromWKB(?, ?)", unquote(bytea), unquote(srid))
  end

  defmacro st_polygon_from_wkb(bytea, srid \\ -1) do
    quote do: fragment("ST_PolygonFromWKB(?, ?)", unquote(bytea), unquote(srid))
  end

  defmacro st_m_point_from_wkb(bytea, srid \\ -1) do
    quote do: fragment("ST_MPointFromWKB(?, ?)", unquote(bytea), unquote(srid))
  end

  defmacro st_m_line_from_wkb(bytea, srid \\ -1) do
    quote do: fragment("ST_MLineFromWKB(?, ?)", unquote(bytea), unquote(srid))
  end

  defmacro st_m_poly_from_wkb(bytea, srid \\ -1) do
    quote do: fragment("ST_MPolyFromWKB(?, ?)", unquote(bytea), unquote(srid))
  end

  defmacro st_geom_coll_from_wkb(bytea, srid \\ -1) do
    quote do: fragment("ST_GeomCollFromWKB(?, ?)", unquote(bytea), unquote(srid))
  end

  defmacro st_bd_poly_from_text(wkt, srid) do
    quote do: fragment("ST_BdPolyFromText(?, ?)", unquote(wkt), unquote(srid))
  end

  defmacro st_bd_m_poly_from_text(wkt, srid) do
    quote do: fragment("ST_BdMPolyFromText(?, ?)", unquote(wkt), unquote(srid))
  end
end