geovctrs: Efficient Data Structures for Geometry Vectors

#' @importFrom wk as_wkt
#' @export
wk::as_wkt

#' @importFrom wk wkt
#' @export
wk::wkt

#' @importFrom wk new_wk_wkt
#' @export
wk::new_wk_wkt

#' @importFrom wk parse_wkt
#' @export
wk::parse_wkt

#' @importFrom wk as_wkt
#' @export
as_wkt.geovctrs_xy <- function(x, ..., precision = NULL, trim = NULL) {
  new_wk_wkt(cpp_translate_xy_wkt(x, precision = NULL %||% 16, trim = trim %||% TRUE))
}

#' @export
as_wkt.geovctrs_xyz <- function(x, ..., precision = NULL, trim = NULL) {
  new_wk_wkt(cpp_translate_xyz_wkt(x, precision = NULL %||% 16, trim = trim %||% TRUE))
}

#' @export
as_wkt.geovctrs_segment <- function(x, ..., precision = NULL, trim = NULL) {
  new_wk_wkt(cpp_translate_segment_wkt(x, precision = NULL %||% 16, trim = trim %||% TRUE))
}

#' @export
as_wkt.geovctrs_rect <- function(x, ...,  precision = NULL, trim = NULL) {
  new_wk_wkt(cpp_translate_rect_wkt(x, precision = NULL %||% 16, trim = trim %||% TRUE))
}

#' @importFrom wk vec_cast.wk_wkt
#' @method vec_cast.wk_wkt geovctrs_rect
#' @export
vec_cast.wk_wkt.geovctrs_rect <- function(x, to, ...) {
  new_wk_wkt(cpp_translate_rect_wkt(x, precision = 16, trim = TRUE))
}

#' @method vec_cast.wk_wkt geovctrs_segment
#' @export
vec_cast.wk_wkt.geovctrs_segment <- function(x, to, ...) {
  new_wk_wkt(cpp_translate_segment_wkt(x, precision = 16, trim = TRUE))
}

#' @method vec_cast.wk_wkt geovctrs_xy
#' @export
vec_cast.wk_wkt.geovctrs_xy <- function(x, to, ...) {
  new_wk_wkt(cpp_translate_xy_wkt(x, precision = 16, trim = TRUE))
}

#' @method vec_cast.wk_wkt geovctrs_xyz
#' @export
vec_cast.wk_wkt.geovctrs_xyz <- function(x, to, ...) {
  new_wk_wkt(cpp_translate_xyz_wkt(x, precision = 16, trim = TRUE))
}

#' @importFrom wk vec_ptype2.wk_wkt
#' @method vec_ptype2.wk_wkt geovctrs_xy
#' @export
vec_ptype2.wk_wkt.geovctrs_xy <- function(x, y, ..., x_arg = "x", y_arg = "y") {
  wkt()
}

#' @method vec_ptype2.wk_wkt geovctrs_xyz
#' @export
vec_ptype2.wk_wkt.geovctrs_xyz <- function(x, y, ..., x_arg = "x", y_arg = "y") {
  wkt()
}

#' @method vec_ptype2.wk_wkt geovctrs_segment
#' @export
vec_ptype2.wk_wkt.geovctrs_segment <- function(x, y, ..., x_arg = "x", y_arg = "y") {
  wkt()
}

#' @method vec_ptype2.wk_wkt geovctrs_rect
#' @export
vec_ptype2.wk_wkt.geovctrs_rect <- function(x, y, ..., x_arg = "x", y_arg = "y") {
  wkt()
}


#' @importFrom wk as_wkb
#' @export
wk::as_wkb

#' @importFrom wk wkb
#' @export
wk::wkb

#' @importFrom wk new_wk_wkb
#' @export
wk::new_wk_wkb

#' @importFrom wk parse_wkb
#' @export
wk::parse_wkb

#' @importFrom wk as_wkb
#' @export
as_wkb.geovctrs_xy <- function(x, ..., endian = NULL, bufferSize = NULL) {
  new_wk_wkb(
    cpp_translate_xy_wkb(
      x,
      endian = endian %||% wk::wk_platform_endian(),
      bufferSize = bufferSize %||% 2048
    )
  )
}

#' @export
as_wkb.geovctrs_xyz <- function(x, ..., endian = NULL, bufferSize = NULL) {
  new_wk_wkb(
    cpp_translate_xyz_wkb(
      x,
      endian = endian %||% wk::wk_platform_endian(),
      bufferSize = bufferSize %||% 2048
    )
  )
}

#' @export
as_wkb.geovctrs_segment <- function(x, ..., endian = NULL, bufferSize = NULL) {
  new_wk_wkb(
    cpp_translate_segment_wkb(
      x,
      endian = endian %||% wk::wk_platform_endian(),
      bufferSize = bufferSize %||% 2048
    )
  )
}

#' @export
as_wkb.geovctrs_rect <- function(x, ..., endian = NULL, bufferSize = NULL) {
  new_wk_wkb(
    cpp_translate_rect_wkb(
      x,
      endian = endian %||% wk::wk_platform_endian(),
      bufferSize = bufferSize %||% 2048
    )
  )
}

#' @importFrom wk vec_cast.wk_wkb
#' @method vec_cast.wk_wkb geovctrs_rect
#' @export
vec_cast.wk_wkb.geovctrs_rect <- function(x, to, ...) {
  new_wk_wkb(cpp_translate_rect_wkb(x, endian = wk::wk_platform_endian(), bufferSize = 2048))
}

#' @method vec_cast.wk_wkb geovctrs_segment
#' @export
vec_cast.wk_wkb.geovctrs_segment <- function(x, to, ...) {
  new_wk_wkb(cpp_translate_segment_wkb(x, endian = wk::wk_platform_endian(), bufferSize = 2048))
}

#' @method vec_cast.wk_wkb geovctrs_xy
#' @export
vec_cast.wk_wkb.geovctrs_xy <- function(x, to, ...) {
  new_wk_wkb(cpp_translate_xy_wkb(x, endian = wk::wk_platform_endian(), bufferSize = 2048))
}

#' @method vec_cast.wk_wkb geovctrs_xyz
#' @export
vec_cast.wk_wkb.geovctrs_xyz <- function(x, to, ...) {
  new_wk_wkb(cpp_translate_xyz_wkb(x, endian = wk::wk_platform_endian(), bufferSize = 2048))
}

#' @importFrom wk vec_ptype2.wk_wkb
#' @method vec_ptype2.wk_wkb geovctrs_xy
#' @export
vec_ptype2.wk_wkb.geovctrs_xy <- function(x, y, ..., x_arg = "x", y_arg = "y") {
  wkb()
}

#' @method vec_ptype2.wk_wkb geovctrs_xyz
#' @export
vec_ptype2.wk_wkb.geovctrs_xyz <- function(x, y, ..., x_arg = "x", y_arg = "y") {
  wkb()
}

#' @method vec_ptype2.wk_wkb geovctrs_segment
#' @export
vec_ptype2.wk_wkb.geovctrs_segment <- function(x, y, ..., x_arg = "x", y_arg = "y") {
  wkb()
}

#' @method vec_ptype2.wk_wkb geovctrs_rect
#' @export
vec_ptype2.wk_wkb.geovctrs_rect <- function(x, y, ..., x_arg = "x", y_arg = "y") {
  wkb()
}


#' @importFrom wk as_wksxp
#' @export
wk::as_wksxp

#' @importFrom wk wksxp
#' @export
wk::wksxp

#' @importFrom wk new_wk_wksxp
#' @export
wk::new_wk_wksxp

#' @importFrom wk parse_wksxp
#' @export
wk::parse_wksxp

#' @importFrom wk as_wksxp
#' @export
as_wksxp.geovctrs_xy <- function(x, ...) {
  new_wk_wksxp(cpp_translate_xy_wksxp(x))
}

#' @export
as_wksxp.geovctrs_xyz <- function(x, ...) {
  new_wk_wksxp(cpp_translate_xyz_wksxp(x))
}

#' @export
as_wksxp.geovctrs_segment <- function(x, ...) {
  new_wk_wksxp(cpp_translate_segment_wksxp(x))
}

#' @export
as_wksxp.geovctrs_rect <- function(x, ...) {
  new_wk_wksxp(cpp_translate_rect_wksxp(x))
}

#' @importFrom wk vec_cast.wk_wksxp
#' @method vec_cast.wk_wksxp geovctrs_rect
#' @export
vec_cast.wk_wksxp.geovctrs_rect <- function(x, to, ...) {
  new_wk_wksxp(cpp_translate_rect_wksxp(x))
}

#' @method vec_cast.wk_wksxp geovctrs_segment
#' @export
vec_cast.wk_wksxp.geovctrs_segment <- function(x, to, ...) {
  new_wk_wksxp(cpp_translate_segment_wksxp(x))
}

#' @method vec_cast.wk_wksxp geovctrs_xy
#' @export
vec_cast.wk_wksxp.geovctrs_xy <- function(x, to, ...) {
  new_wk_wksxp(cpp_translate_xy_wksxp(x))
}

#' @method vec_cast.wk_wksxp geovctrs_xyz
#' @export
vec_cast.wk_wksxp.geovctrs_xyz <- function(x, to, ...) {
  new_wk_wksxp(cpp_translate_xyz_wksxp(x))
}

#' @importFrom wk vec_ptype2.wk_wksxp
#' @method vec_ptype2.wk_wksxp geovctrs_xy
#' @export
vec_ptype2.wk_wksxp.geovctrs_xy <- function(x, y, ..., x_arg = "x", y_arg = "y") {
  wksxp()
}

#' @method vec_ptype2.wk_wksxp geovctrs_xyz
#' @export
vec_ptype2.wk_wksxp.geovctrs_xyz <- function(x, y, ..., x_arg = "x", y_arg = "y") {
  wksxp()
}

#' @method vec_ptype2.wk_wksxp geovctrs_segment
#' @export
vec_ptype2.wk_wksxp.geovctrs_segment <- function(x, y, ..., x_arg = "x", y_arg = "y") {
  wksxp()
}

#' @method vec_ptype2.wk_wksxp geovctrs_rect
#' @export
vec_ptype2.wk_wksxp.geovctrs_rect <- function(x, y, ..., x_arg = "x", y_arg = "y") {
  wksxp()
}