#include "vctrs.h"

bool (*vec_is_vector)(SEXP) = NULL;
R_len_t (*short_vec_size)(SEXP) = NULL;
SEXP (*short_vec_recycle)(SEXP, R_len_t) = NULL;

void vctrs_init_api() {
  vec_is_vector = (bool (*)(SEXP)) R_GetCCallable("vctrs", "vec_is_vector");
  short_vec_size = (R_len_t (*)(SEXP)) R_GetCCallable("vctrs", "short_vec_size");
  short_vec_recycle = (SEXP (*)(SEXP, R_len_t)) R_GetCCallable("vctrs", "short_vec_recycle");
}