module Charta

# File lib/charta.rb, line 135
def camelcase(text, first_letter = :upper)
  ret = text.split(/[_\-]+/).map { |word| word[0..0].upcase + word[1..-1].downcase }.join
  ret = text[0..0].downcase + text[1..-1] if first_letter == :lower
  ret
end

# File lib/charta.rb, line 36
def default_feature_factory
  @default_feature_factory || (self.default_feature_factory = Factory::SimpleFeatureFactory.build)
end

# File lib/charta.rb, line 30
def default_feature_factory=(factory)
  @default_feature_factory = factory
  @geometry_factory = nil
end

# File lib/charta.rb, line 72
def empty_geometry(srid = :WGS84)
  geometry_factory.empty_geometry(srid)
end

# File lib/charta.rb, line 101
def find_srid(srname_or_srid)
  Factory::SridProvider.build.find(srname_or_srid)
end

# File lib/charta.rb, line 95
def find_system(_srname)
  nil
end

# File lib/charta.rb, line 87
def find_system_by_srid(_srid)
  nil
end

# File lib/charta.rb, line 91
def find_system_by_urn(_urn)
  nil
end

# File lib/charta.rb, line 105
def from(format, data)
  unless respond_to?("from_#{format}")
    raise "Unknown format: #{format.inspect}"
  end

  send("from_#{format}", data)
end

# File lib/charta.rb, line 121
def from_geojson(data, srid = nil)
  new_geometry(::Charta::GeoJSON.new(data, srid).to_ewkt)
end

# File lib/charta.rb, line 113
def from_gml(data, srid = nil, flatten_collection = false)
  new_geometry(::Charta::GML.new(data, srid).to_ewkt, nil, nil, flatten_collection)
end

# File lib/charta.rb, line 117
def from_kml(data, flatten_collection = false)
  new_geometry(::Charta::KML.new(data).to_ewkt, nil, nil, flatten_collection)
end

# File lib/charta.rb, line 76
def generate_ewkt(feature)
  generator = RGeo::WKRep::WKTGenerator.new(tag_format: :ewkt, emit_ewkt_srid: true)
  generator.generate(feature)
end

# File lib/charta.rb, line 40
def geometry_factory
  @geometry_factory ||= Factory::SimpleGeometryFactory.new(feature_factory: default_feature_factory)
end

# File lib/charta.rb, line 58
def make_line(points, options = {})
  options[:srid] ||= new_geometry(points.first).srid if points.any?
  options[:srid] ||= 4326

  points_coordinates = points.map do |wkt|
    p = new_geometry(wkt)

    "#{p.x} #{p.y}"
  end

  ewkt = "SRID=#{options[:srid]};LINESTRING(#{points_coordinates.join(', ')})"
  new_geometry(ewkt)
end

# File lib/charta.rb, line 45
def new_feature(coordinates, srs = nil, format = nil, _flatten_collection = true, _options = {})
  default_feature_factory.new_feature(coordinates, srs: srs, format: format)
end

# File lib/charta.rb, line 49
def new_geometry(coordinates, srs = nil, format = nil, _flatten_collection = true, _options = {})
  geometry_factory.new_geometry(coordinates, srs: srs, format: format)
end

# File lib/charta.rb, line 53
def new_point(lat, lon, srid = 4326)
  feature = Charta.new_feature("SRID=#{srid};POINT(#{lon} #{lat})")
  Point.new(feature)
end

# File lib/charta.rb, line 81
def parse_ewkt(coordinates)
  # parser = RGeo::WKRep::WKTParser.new(factory, support_ewkt: true)
  # factory.parse_wkt(coordinates)
  coordinates
end

# File lib/charta.rb, line 127
def underscore(text)
  text.gsub(/::/, '/')
      .gsub(/([A-Z]+)([A-Z][a-z])/, '\1_\2')
      .gsub(/([a-z\d])([A-Z])/, '\1_\2')
      .tr('-', '_')
      .downcase
end