You can not select more than 25 topics
Topics must start with a letter or number, can include dashes ('-') and can be up to 35 characters long.
93 lines
2.7 KiB
93 lines
2.7 KiB
# Generated by using Rcpp::compileAttributes() -> do not edit by hand
|
|
# Generator token: 10BE3573-1514-4C36-9D1C-5A225CD40393
|
|
|
|
#' Return gdns library version
|
|
#'
|
|
#' @export
|
|
gdns_lib_version <- function() {
|
|
.Call(`_clandnstine_gdns_lib_version`)
|
|
}
|
|
|
|
#' Internal version of gdns_update_resolvers
|
|
#' @keywords internal
|
|
int_gdns_update_resolvers <- function(gctx, resolvers) {
|
|
.Call(`_clandnstine_int_gdns_update_resolvers`, gctx, resolvers)
|
|
}
|
|
|
|
#' Specify the number of milliseconds to wait for request to return
|
|
#'
|
|
#' @param gctx gdns resolver context created with [gdns_resolver()]
|
|
#' @param timeout number of milliseconds (integer; i.e. not-fractional)
|
|
#' @export
|
|
gdns_set_timeout <- function(gctx, timeout) {
|
|
.Call(`_clandnstine_gdns_set_timeout`, gctx, timeout)
|
|
}
|
|
|
|
#' Retreive the number of milliseconds to wait for request to return
|
|
#'
|
|
#' @param gctx gdns resolver context created with [gdns_resolver()]
|
|
#' @export
|
|
gdns_get_timeout <- function(gctx) {
|
|
.Call(`_clandnstine_gdns_get_timeout`, gctx)
|
|
}
|
|
|
|
#' Set/unset context to round robin queries over the available upstreams
|
|
#' when resolving with the stub resolution type.
|
|
#'
|
|
#' @md
|
|
#' @param gctx gdns resolver context created with [gdns_resolver()]
|
|
#' @param flag if `TRUE` (the default) round robin queries when using more than one stub resolver,
|
|
#' @export
|
|
gdns_set_round_robin_upstreams <- function(gctx, flag = TRUE) {
|
|
.Call(`_clandnstine_gdns_set_round_robin_upstreams`, gctx, flag)
|
|
}
|
|
|
|
#' Internal version of gdns_set_hosts()
|
|
#' @keywords internal
|
|
int_gdns_set_hosts <- function(gctx, hosts) {
|
|
.Call(`_clandnstine_int_gdns_set_hosts`, gctx, hosts)
|
|
}
|
|
|
|
#' Test whether an object is an external pointer
|
|
#'
|
|
#' @param x object to test
|
|
#' @keywords internal
|
|
check_is_xptr <- function(s) {
|
|
invisible(.Call(`_clandnstine_check_is_xptr`, s))
|
|
}
|
|
|
|
#' Test whether an external pointer is null
|
|
#'
|
|
#' @param x object to test
|
|
#' @keywords internal
|
|
is_null_xptr_ <- function(s) {
|
|
.Call(`_clandnstine_is_null_xptr_`, s)
|
|
}
|
|
|
|
#' Internal version of gdns_resolver
|
|
#' @keywords internal
|
|
int_gdns_resolver <- function(resolvers) {
|
|
.Call(`_clandnstine_int_gdns_resolver`, resolvers)
|
|
}
|
|
|
|
#' Resolve a host to an addrss
|
|
#'
|
|
#' @param gctx gdns resolver context created with [gdns_resolver()]
|
|
#' @param host to lookup
|
|
#' @export
|
|
#' @examples
|
|
#' x <- gdns_resolver()
|
|
#' gdns_get_address(x, "yahoo.com")
|
|
#' x %>% gdns_get_address("yahoo.com")
|
|
gdns_get_address <- function(gctx, host) {
|
|
.Call(`_clandnstine_gdns_get_address`, gctx, host)
|
|
}
|
|
|
|
int_get_resolvers <- function(gctx) {
|
|
.Call(`_clandnstine_int_get_resolvers`, gctx)
|
|
}
|
|
|
|
int_gdns_query <- function(gctx, name, rr, include_reporting = FALSE) {
|
|
.Call(`_clandnstine_int_gdns_query`, gctx, name, rr, include_reporting)
|
|
}
|
|
|
|
|