1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
97
98
99
100
101
102
103
104
105
106
107
108
109
110
111
112
113
114
115
116
117
118
119
120
121
122
123
124
125
126
127
128
129
130
131
132
133
134
135
136
137
138
139
140
141
142
143
144
145
146
147
|
# Generated by using Rcpp::compileAttributes() -> do not edit by hand
# Generator token: 10BE3573-1514-4C36-9D1C-5A225CD40393
sendWSMessage <- function(conn, binary, message) {
invisible(.Call('_httpuv_sendWSMessage', PACKAGE = 'httpuv', conn, binary, message))
}
closeWS <- function(conn, code, reason) {
invisible(.Call('_httpuv_closeWS', PACKAGE = 'httpuv', conn, code, reason))
}
makeTcpServer <- function(host, port, onHeaders, onBodyData, onRequest, onWSOpen, onWSMessage, onWSClose, staticPaths, staticPathOptions, quiet) {
.Call('_httpuv_makeTcpServer', PACKAGE = 'httpuv', host, port, onHeaders, onBodyData, onRequest, onWSOpen, onWSMessage, onWSClose, staticPaths, staticPathOptions, quiet)
}
makePipeServer <- function(name, mask, onHeaders, onBodyData, onRequest, onWSOpen, onWSMessage, onWSClose, staticPaths, staticPathOptions, quiet) {
.Call('_httpuv_makePipeServer', PACKAGE = 'httpuv', name, mask, onHeaders, onBodyData, onRequest, onWSOpen, onWSMessage, onWSClose, staticPaths, staticPathOptions, quiet)
}
stopServer_ <- function(handle) {
invisible(.Call('_httpuv_stopServer_', PACKAGE = 'httpuv', handle))
}
getStaticPaths_ <- function(handle) {
.Call('_httpuv_getStaticPaths_', PACKAGE = 'httpuv', handle)
}
setStaticPaths_ <- function(handle, sp) {
.Call('_httpuv_setStaticPaths_', PACKAGE = 'httpuv', handle, sp)
}
removeStaticPaths_ <- function(handle, paths) {
.Call('_httpuv_removeStaticPaths_', PACKAGE = 'httpuv', handle, paths)
}
getStaticPathOptions_ <- function(handle) {
.Call('_httpuv_getStaticPathOptions_', PACKAGE = 'httpuv', handle)
}
setStaticPathOptions_ <- function(handle, opts) {
.Call('_httpuv_setStaticPathOptions_', PACKAGE = 'httpuv', handle, opts)
}
base64encode <- function(x) {
.Call('_httpuv_base64encode', PACKAGE = 'httpuv', x)
}
#' URI encoding/decoding
#'
#' Encodes/decodes strings using URI encoding/decoding in the same way that web
#' browsers do. The precise behaviors of these functions can be found at
#' developer.mozilla.org:
#' \href{https://developer.mozilla.org/en-US/docs/Web/JavaScript/Reference/Global_Objects/encodeURI}{encodeURI},
#' \href{https://developer.mozilla.org/en-US/docs/Web/JavaScript/Reference/Global_Objects/encodeURIComponent}{encodeURIComponent},
#' \href{https://developer.mozilla.org/en-US/docs/Web/JavaScript/Reference/Global_Objects/decodeURI}{decodeURI},
#' \href{https://developer.mozilla.org/en-US/docs/Web/JavaScript/Reference/Global_Objects/decodeURIComponent}{decodeURIComponent}
#'
#' Intended as a faster replacement for [utils::URLencode()] and
#' [utils::URLdecode()].
#'
#' encodeURI differs from encodeURIComponent in that the former will not encode
#' reserved characters: \code{;,/?:@@&=+$}
#'
#' decodeURI differs from decodeURIComponent in that it will refuse to decode
#' encoded sequences that decode to a reserved character. (If in doubt, use
#' decodeURIComponent.)
#'
#' For \code{encodeURI} and \code{encodeURIComponent}, input strings will be
#' converted to UTF-8 before URL-encoding.
#'
#' @param value Character vector to be encoded or decoded.
#' @return Encoded or decoded character vector of the same length as the
#' input value. \code{decodeURI} and \code{decodeURIComponent} will return
#' strings that are UTF-8 encoded.
#'
#' @export
encodeURI <- function(value) {
.Call('_httpuv_encodeURI', PACKAGE = 'httpuv', value)
}
#' @rdname encodeURI
#' @export
encodeURIComponent <- function(value) {
.Call('_httpuv_encodeURIComponent', PACKAGE = 'httpuv', value)
}
#' @rdname encodeURI
#' @export
decodeURI <- function(value) {
.Call('_httpuv_decodeURI', PACKAGE = 'httpuv', value)
}
#' @rdname encodeURI
#' @export
decodeURIComponent <- function(value) {
.Call('_httpuv_decodeURIComponent', PACKAGE = 'httpuv', value)
}
#' Check whether an address is IPv4 or IPv6
#'
#' Given an IP address, this checks whether it is an IPv4 or IPv6 address.
#'
#' @param ip A single string representing an IP address.
#'
#' @return
#' For IPv4 addresses, \code{4}; for IPv6 addresses, \code{6}. If the address is
#' neither, \code{-1}.
#'
#' @examples
#' ipFamily("127.0.0.1") # 4
#' ipFamily("500.0.0.500") # -1
#' ipFamily("500.0.0.500") # -1
#'
#' ipFamily("::") # 6
#' ipFamily("::1") # 6
#' ipFamily("fe80::1ff:fe23:4567:890a") # 6
#' @export
ipFamily <- function(ip) {
.Call('_httpuv_ipFamily', PACKAGE = 'httpuv', ip)
}
invokeCppCallback <- function(data, callback_xptr) {
invisible(.Call('_httpuv_invokeCppCallback', PACKAGE = 'httpuv', data, callback_xptr))
}
#' Apply the value of .Random.seed to R's internal RNG state
#'
#' This function is needed in unusual cases where a C++ function calls
#' an R function which sets the value of \code{.Random.seed}. This function
#' should be called at the end of the R function to ensure that the new value
#' \code{.Random.seed} is preserved. Otherwise, Rcpp may overwrite it with a
#' previous value.
#'
#' @keywords internal
#' @export
getRNGState <- function() {
invisible(.Call('_httpuv_getRNGState', PACKAGE = 'httpuv'))
}
wsconn_address <- function(external_ptr) {
.Call('_httpuv_wsconn_address', PACKAGE = 'httpuv', external_ptr)
}
log_level <- function(level) {
.Call('_httpuv_log_level', PACKAGE = 'httpuv', level)
}
|
