No Description
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.

RcppExports.R 6.0KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778798081828384858687888990919293949596979899100101102103104105106107108109110111112113114115116117118119120121122123124125126127128129130131132133134135136137138139140141142143144145146147148149150151152153154155156157158159160161162163164165166167168169170171172173174175176177178179180181182183184185186187188189190191192193194195196197198199
  1. # Generated by using Rcpp::compileAttributes() -> do not edit by hand
  2. # Generator token: 10BE3573-1514-4C36-9D1C-5A225CD40393
  3. #' Return gdns library version
  4. #'
  5. #' @family utlity functions
  6. #' @export
  7. gdns_lib_version <- function() {
  8. .Call(`_clandnstine_gdns_lib_version`)
  9. }
  10. #' Internal version of gdns_update_resolvers
  11. #' @keywords internal
  12. int_gdns_update_resolvers <- function(gctx, resolvers) {
  13. .Call(`_clandnstine_int_gdns_update_resolvers`, gctx, resolvers)
  14. }
  15. #' Specify the number of milliseconds to wait for request to return
  16. #'
  17. #' @param gctx gdns resolver context created with [gdns_resolver()]
  18. #' @param timeout number of milliseconds (integer; i.e. not-fractional)
  19. #' @family context functions
  20. #' @export
  21. gdns_set_timeout <- function(gctx, timeout) {
  22. .Call(`_clandnstine_gdns_set_timeout`, gctx, timeout)
  23. }
  24. #' Retreive the number of milliseconds to wait for request to return
  25. #'
  26. #' @param gctx gdns resolver context created with [gdns_resolver()]
  27. #' @family context functions
  28. #' @export
  29. gdns_get_timeout <- function(gctx) {
  30. .Call(`_clandnstine_gdns_get_timeout`, gctx)
  31. }
  32. #' Set/unset context to round robin queries over the available upstreams
  33. #' when resolving with the stub resolution type.
  34. #'
  35. #' @md
  36. #' @param gctx gdns resolver context created with [gdns_resolver()]
  37. #' @param flag if `TRUE` (the default) round robin queries when using more than one stub resolver,
  38. #' @family context functions
  39. #' @export
  40. gdns_set_round_robin_upstreams <- function(gctx, flag = TRUE) {
  41. .Call(`_clandnstine_gdns_set_round_robin_upstreams`, gctx, flag)
  42. }
  43. #' Internal version of gdns_set_hosts()
  44. #' @keywords internal
  45. int_gdns_set_hosts <- function(gctx, hosts) {
  46. .Call(`_clandnstine_int_gdns_set_hosts`, gctx, hosts)
  47. }
  48. #' Internal version of set_transports()
  49. #' @keywords internal
  50. int_gdns_set_transports <- function(gctx, trans) {
  51. .Call(`_clandnstine_int_gdns_set_transports`, gctx, trans)
  52. }
  53. #' Internal version of gdns_set_resolution_type()
  54. #' @keywords internal
  55. int_gdns_set_resolution_type <- function(gctx, res_type) {
  56. .Call(`_clandnstine_int_gdns_set_resolution_type`, gctx, res_type)
  57. }
  58. #' Retreive what transports are used for DNS lookups.
  59. #'
  60. #' @param gctx gdns resolver context created with [gdns_resolver()]
  61. #' @family context functions
  62. #' @export
  63. gdns_get_transports <- function(gctx) {
  64. .Call(`_clandnstine_gdns_get_transports`, gctx)
  65. }
  66. #' Retreive the value of the localnames namespace
  67. #'
  68. #' @param gctx gdns resolver context created with [gdns_resolver()]
  69. #' @family context functions
  70. #' @export
  71. gdns_get_hosts <- function(gctx) {
  72. .Call(`_clandnstine_gdns_get_hosts`, gctx)
  73. }
  74. #' Retreive the value with which the context's upstream recursive servers and suffixes were initialized
  75. #'
  76. #' @param gctx gdns resolver context created with [gdns_resolver()]
  77. #' @family context functions
  78. #' @export
  79. gdns_get_resolvconf <- function(gctx) {
  80. .Call(`_clandnstine_gdns_get_resolvconf`, gctx)
  81. }
  82. #' Retreive the value with which the context's upstream recursive servers and suffixes were initialized
  83. #'
  84. #' @param gctx gdns resolver context created with [gdns_resolver()]
  85. #' @family context functions
  86. #' @export
  87. gdns_get_tls_ca_path <- function(gctx) {
  88. .Call(`_clandnstine_gdns_get_tls_ca_path`, gctx)
  89. }
  90. #' Retreive the file location with CA certificates for verification purposes
  91. #'
  92. #' @param gctx gdns resolver context created with [gdns_resolver()]
  93. #' @family context functions
  94. #' @export
  95. gdns_get_tls_ca_file <- function(gctx) {
  96. .Call(`_clandnstine_gdns_get_tls_ca_file`, gctx)
  97. }
  98. #' Specify where the location for CA certificates for verification purposes are located
  99. #'
  100. #' @param gctx gdns resolver context created with [gdns_resolver()]
  101. #' @param ca_path directory with Certificate Authority certificates
  102. #' @family context functions
  103. #' @export
  104. gdns_set_tls_ca_path <- function(gctx, ca_path) {
  105. .Call(`_clandnstine_gdns_set_tls_ca_path`, gctx, ca_path)
  106. }
  107. #' Specify the file with CA certificates for verification purposes
  108. #'
  109. #' @param gctx gdns resolver context created with [gdns_resolver()]
  110. #' @param ca_file file with Certificate Authority certificates
  111. #' @family context functions
  112. #' @export
  113. gdns_set_tls_ca_file <- function(gctx, ca_file) {
  114. .Call(`_clandnstine_gdns_set_tls_ca_file`, gctx, ca_file)
  115. }
  116. #' Retrieve the list of addresses in use for looking up top-level domains in use by the context.
  117. #'
  118. #' @param gctx gdns resolver context created with [gdns_resolver()]
  119. #' @keywords internal
  120. int_gdns_get_root_servers <- function(gctx) {
  121. .Call(`_clandnstine_int_gdns_get_root_servers`, gctx)
  122. }
  123. int_dns_wire_to_list <- function(buf) {
  124. .Call(`_clandnstine_int_dns_wire_to_list`, buf)
  125. }
  126. #' Test whether an object is an external pointer
  127. #'
  128. #' @param x object to test
  129. #' @keywords internal
  130. check_is_xptr <- function(s) {
  131. invisible(.Call(`_clandnstine_check_is_xptr`, s))
  132. }
  133. #' Test whether an external pointer is null
  134. #'
  135. #' @param x object to test
  136. #' @keywords internal
  137. is_null_xptr_ <- function(s) {
  138. .Call(`_clandnstine_is_null_xptr_`, s)
  139. }
  140. #' Internal version of gdns_context
  141. #' @keywords internal
  142. int_gdns_context <- function(resolvers) {
  143. .Call(`_clandnstine_int_gdns_context`, resolvers)
  144. }
  145. #' Resolve a host to an addrss
  146. #'
  147. #' @param gctx gdns resolver context created with [gdns_resolver()]
  148. #' @param host to lookup
  149. #' @family query functions
  150. #' @export
  151. #' @examples
  152. #' x <- gdns_resolver()
  153. #' gdns_get_address(x, "yahoo.com")
  154. #' x %>% gdns_get_address("yahoo.com")
  155. gdns_get_address <- function(gctx, host) {
  156. .Call(`_clandnstine_gdns_get_address`, gctx, host)
  157. }
  158. int_get_resolvers <- function(gctx) {
  159. .Call(`_clandnstine_int_get_resolvers`, gctx)
  160. }
  161. int_gdns_query <- function(gctx, name, rr, include_reporting = FALSE) {
  162. .Call(`_clandnstine_int_gdns_query`, gctx, name, rr, include_reporting)
  163. }
  164. #' Get the current resolution type setting
  165. #'
  166. #' @param gctx gdns resolver context created with [gdns_resolver()]
  167. #' @export
  168. #' @family context functions
  169. #' @examples
  170. #' x <- gdns_context()
  171. #' gdns_get_resolution_type(x)
  172. gdns_get_resolution_type <- function(gctx) {
  173. .Call(`_clandnstine_gdns_get_resolution_type`, gctx)
  174. }