|
| 1 | +package com.azavea.stac4s.api.client |
| 2 | + |
| 3 | +import cats.data.NonEmptyVector |
| 4 | +import cats.implicits._ |
| 5 | +import eu.timepit.refined.types.string.NonEmptyString |
| 6 | +import io.circe._ |
| 7 | +import io.circe.syntax._ |
| 8 | +import io.circe.refined._ |
| 9 | + |
| 10 | +sealed abstract class Query |
| 11 | + |
| 12 | +case class Equals(value: Json) extends Query |
| 13 | +case class NotEqualTo(value: Json) extends Query |
| 14 | +case class GreaterThan(floor: Json) extends Query |
| 15 | +case class GreaterThanEqual(floor: Json) extends Query |
| 16 | +case class LessThan(ceiling: Json) extends Query |
| 17 | +case class LessThanEqual(ceiling: Json) extends Query |
| 18 | +case class StartsWith(prefix: NonEmptyString) extends Query |
| 19 | +case class EndsWith(postfix: NonEmptyString) extends Query |
| 20 | +case class Contains(substring: NonEmptyString) extends Query |
| 21 | +case class In(values: NonEmptyVector[Json]) extends Query |
| 22 | +case class Superset(values: NonEmptyVector[Json]) extends Query |
| 23 | + |
| 24 | +object Query { |
| 25 | + |
| 26 | + private def fromString(s: String, f: NonEmptyString => Query): Option[Query] = |
| 27 | + NonEmptyString.from(s).toOption.map(f) |
| 28 | + |
| 29 | + private def fromStringOrNum(js: Json, f: Json => Query): Option[Query] = |
| 30 | + js.asNumber map { _ => |
| 31 | + f(js) |
| 32 | + } orElse { js.asString map { _ => f(js) } } |
| 33 | + |
| 34 | + private def errMessage(operator: String, json: Json): String = |
| 35 | + s"Cannot construct `$operator` query with $json" |
| 36 | + |
| 37 | + def queriesFromMap(unparsed: Map[String, Json]): Either[String, List[Query]] = |
| 38 | + (unparsed.toList traverse { |
| 39 | + case (op @ "eq", json) => Right(Equals(json)) |
| 40 | + case (op @ "neq", json) => Right(NotEqualTo(json)) |
| 41 | + case (op @ "lt", json) => |
| 42 | + Either.fromOption(fromStringOrNum(json, LessThan.apply), errMessage(op, json)) |
| 43 | + case (op @ "lte", json) => |
| 44 | + Either.fromOption( |
| 45 | + fromStringOrNum(json, LessThanEqual.apply), |
| 46 | + errMessage(op, json) |
| 47 | + ) |
| 48 | + case (op @ "gt", json) => |
| 49 | + Either.fromOption( |
| 50 | + fromStringOrNum(json, GreaterThan.apply), |
| 51 | + errMessage(op, json) |
| 52 | + ) |
| 53 | + case (op @ "gte", json) => |
| 54 | + Either.fromOption( |
| 55 | + fromStringOrNum(json, GreaterThanEqual.apply), |
| 56 | + errMessage(op, json) |
| 57 | + ) |
| 58 | + case (op @ "startsWith", json) => |
| 59 | + Either.fromOption( |
| 60 | + json.asString flatMap { fromString(_, StartsWith.apply) }, |
| 61 | + errMessage(op, json) |
| 62 | + ) |
| 63 | + case (op @ "endsWith", json) => |
| 64 | + Either.fromOption( |
| 65 | + json.asString flatMap { fromString(_, EndsWith.apply) }, |
| 66 | + errMessage(op, json) |
| 67 | + ) |
| 68 | + case (op @ "contains", json) => |
| 69 | + Either.fromOption( |
| 70 | + json.asString flatMap { fromString(_, Contains.apply) }, |
| 71 | + errMessage(op, json) |
| 72 | + ) |
| 73 | + case (op @ "in", json) => |
| 74 | + Either.fromOption( |
| 75 | + json.asArray flatMap { _.toNev } map { vec => In(vec) }, |
| 76 | + errMessage(op, json) |
| 77 | + ) |
| 78 | + case (op @ "superset", json) => |
| 79 | + Either.fromOption( |
| 80 | + json.asArray flatMap { _.toNev } map { vec => Superset(vec) }, |
| 81 | + errMessage(op, json) |
| 82 | + ) |
| 83 | + case (k, _) => Left(s"$k is not a valid operator") |
| 84 | + }) |
| 85 | + |
| 86 | + implicit val encQuery: Encoder[List[Query]] = new Encoder[List[Query]] { |
| 87 | + |
| 88 | + def apply(queries: List[Query]): Json = |
| 89 | + Map( |
| 90 | + (queries map { |
| 91 | + case Equals(value) => "eq" -> value.asJson |
| 92 | + case NotEqualTo(value) => "neq" -> value.asJson |
| 93 | + case GreaterThan(floor) => "gt" -> floor.asJson |
| 94 | + case GreaterThanEqual(floor) => "gte" -> floor.asJson |
| 95 | + case LessThan(ceiling) => "lt" -> ceiling.asJson |
| 96 | + case LessThanEqual(ceiling) => "lte" -> ceiling.asJson |
| 97 | + case StartsWith(prefix) => "startsWith" -> prefix.asJson |
| 98 | + case EndsWith(postfix) => "endsWith" -> postfix.asJson |
| 99 | + case Contains(substring) => "contains" -> substring.asJson |
| 100 | + case In(values) => "in" -> values.asJson |
| 101 | + case Superset(values) => "superset" -> values.asJson |
| 102 | + }): _* |
| 103 | + ).asJson |
| 104 | + } |
| 105 | + |
| 106 | + implicit val decQueries: Decoder[List[Query]] = Decoder[JsonObject].emap { jsonObj => queriesFromMap(jsonObj.toMap) } |
| 107 | +} |
0 commit comments