SCM DLL_PUBLIC
cl_dump_handle (SCM handle)
{
handle_post_t *hp;
SCM_ASSERT (_scm_is_handle (handle), handle, SCM_ARG1, "%curl-dump-handle");
hp = _scm_to_handle (handle);
fprintf (stderr, "<#handle %p>\n", hp);
fprintf (stderr, "\t handle %p\n", hp->handle);
fprintf (stderr, "\t postfields %p\n", hp->postfields);
fprintf (stderr, "\t postfieldsize %zu\n", hp->postfieldsize);
print_mem (hp->postfields, hp->postfieldsize);
fprintf (stderr, "\t httppost %p\n", hp->httppost);
print_httppost (hp->httppost);
fprintf (stderr, "\t httpheader %p\n", hp->httpheader);
print_slist (hp->httpheader);
fprintf (stderr, "\thttp200aliases %p\n", hp->http200aliases);
print_slist (hp->http200aliases);
fprintf (stderr, "\t mail_rcpt %p\n", hp->mail_rcpt);
print_slist (hp->mail_rcpt);
fprintf (stderr, "\t quote %p\n", hp->quote);
print_slist (hp->quote);
fprintf (stderr, "\t postquote %p\n", hp->postquote);
print_slist (hp->postquote);
fprintf (stderr, "\t prequote %p\n", hp->prequote);
print_slist (hp->prequote);
fprintf (stderr, "\t resolve %p\n", hp->resolve);
print_slist (hp->resolve);
fprintf (stderr, "\t telnetoptions %p\n", hp->telnetoptions);
print_slist (hp->telnetoptions);
fflush (stderr);
return SCM_UNDEFINED;
}
int test_scm_is_handle(void)
{
SCM handle = cl_easy_init();
int ret = _scm_is_handle(handle);
cl_easy_cleanup(handle);
return (ret == 1);
}
SCM DLL_PUBLIC
cl_easy_perform (SCM handle, SCM bvflag, SCM headerflag)
{
handle_post_t *c_handle;
SCM data;
CURLcode status;
struct scm_flag body_sf, header_sf;
SCM_ASSERT (_scm_is_handle (handle), handle, SCM_ARG1, "%curl-easy-perform");
c_handle = _scm_to_handle (handle);
body_sf.flag = scm_is_true (bvflag);
#if SCM_MAJOR_VERSION == 2
if (body_sf.flag)
data = scm_c_make_bytevector (0);
else
data = scm_c_make_string (0, SCM_MAKE_CHAR('\n'));
#else
data = scm_c_make_string (0, SCM_MAKE_CHAR('\n'));
#endif
body_sf.scm = data;
header_sf.flag = 0;
#if SCM_MAJOR_VERSION == 2
if (header_sf.flag)
data = scm_c_make_bytevector (0);
else
data = scm_c_make_string (0, SCM_MAKE_CHAR('\n'));
#else
data = scm_c_make_string (0, SCM_MAKE_CHAR('\n'));
#endif
header_sf.scm = data;
if (scm_is_true (headerflag))
{
curl_easy_setopt (c_handle->handle, CURLOPT_HEADERFUNCTION, write_callback);
curl_easy_setopt (c_handle->handle, CURLOPT_HEADERDATA, &header_sf);
curl_easy_setopt (c_handle->handle, CURLOPT_ERRORBUFFER, error_string);
}
curl_easy_setopt (c_handle->handle, CURLOPT_WRITEFUNCTION, write_callback);
curl_easy_setopt (c_handle->handle, CURLOPT_WRITEDATA, &body_sf);
curl_easy_setopt (c_handle->handle, CURLOPT_ERRORBUFFER, error_string);
/* Do the transfer, and fill c_str with the result */
status = curl_easy_perform (c_handle->handle);
if (status != CURLE_OK)
{
error_code = status;
return (SCM_BOOL_F);
}
if (scm_is_true (headerflag))
return (scm_list_2 (header_sf.scm, body_sf.scm));
return (body_sf.scm);
}
SCM DLL_PUBLIC
cl_easy_cleanup (SCM handle)
{
SCM_ASSERT (_scm_is_handle (handle), handle, SCM_ARG1, "%curl-easy-cleanup");
gc_free_handle (handle);
return SCM_UNSPECIFIED;
}
SCM DLL_PUBLIC
cl_easy_reset (SCM handle)
{
handle_post_t *c_handle;
SCM_ASSERT (_scm_is_handle (handle), handle, SCM_ARG1, "%curl-easy-reset");
c_handle = _scm_to_handle (handle);
curl_easy_reset (c_handle->handle);
return SCM_UNSPECIFIED;
}
SCM DLL_PUBLIC
cl_easy_setopt (SCM handle, SCM option, SCM param, SCM big)
{
handle_post_t *c_handle;
CURLoption c_option;
CURLcode code = CURLE_UNSUPPORTED_PROTOCOL;
SCM_ASSERT (_scm_is_handle (handle), handle, SCM_ARG1, "curl-easy-setopt");
SCM_ASSERT (scm_is_integer (option), option, SCM_ARG2, "curl-easy-setopt");
c_handle = _scm_to_handle (handle);
c_option = (CURLoption) scm_to_int (option);
if (c_option == CURLOPT_POSTFIELDS)
{
if (_scm_can_convert_to_byte_data (param))
{
size_t len;
uint8_t *m = _scm_convert_to_byte_data (param, &len);
free (c_handle->postfields);
c_handle->postfields = m;
curl_easy_setopt (c_handle->handle, CURLOPT_POSTFIELDSIZE, len);
c_handle->postfieldsize = len;
code = curl_easy_setopt (c_handle->handle, CURLOPT_POSTFIELDS, (char *) m);
}
else
scm_error (SCM_BOOL_F, "cl-easy-setopt", "CURLOPT_POSTFIELDS requires 8-bit string or bytevector data",
SCM_BOOL_F, SCM_BOOL_F);
}
else if (c_option == CURLOPT_HTTPHEADER)
{
if (_scm_can_convert_to_slist (param))
{
/* slists require special handling to free them properly, so
they are stored with the Curl handle. */
struct curl_slist *sl = _scm_convert_to_slist (param);
if (c_handle->httpheader)
curl_slist_free_all (c_handle->httpheader);
c_handle->httpheader = sl;
code = curl_easy_setopt (c_handle->handle, CURLOPT_HTTPHEADER, sl);
}
else
scm_error (SCM_BOOL_F, "cl-easy-setopt", "CURLOPT_HTTPHEADER requires a list of strings",
SCM_BOOL_F, SCM_BOOL_F);
}
else if (scm_is_integer (param))
{
if (scm_is_true (big))
code = curl_easy_setopt (c_handle->handle, c_option, scm_to_int64 (param));
else
code = curl_easy_setopt (c_handle->handle, c_option, scm_to_long (param));
}
else if (scm_is_string (param))
{
/* Strings are copied by curl, so they can be freed here. */
char *str;
str = scm_to_locale_string (param);
code = curl_easy_setopt (c_handle->handle, c_option, str);
free (str);
}
else if (_scm_can_convert_to_slist (param))
{
/* slists require special handling to free them properly, so
they are stored with the Curl handle. */
struct curl_slist *sl = _scm_convert_to_slist (param);
int ok = 1;
if (c_option == CURLOPT_HTTP200ALIASES)
{
if (c_handle->http200aliases)
curl_slist_free_all (c_handle->http200aliases);
c_handle->http200aliases = sl;
}
else if (c_option == CURLOPT_MAIL_RCPT)
{
if (c_handle->mail_rcpt)
curl_slist_free_all (c_handle->mail_rcpt);
c_handle->mail_rcpt = sl;
}
else if (c_option == CURLOPT_QUOTE)
{
if (c_handle->quote)
curl_slist_free_all (c_handle->quote);
c_handle->quote = sl;
}
else if (c_option == CURLOPT_POSTQUOTE)
{
if (c_handle->postquote)
curl_slist_free_all (c_handle->postquote);
c_handle->postquote = sl;
}
else if (c_option == CURLOPT_PREQUOTE)
{
if (c_handle->prequote)
curl_slist_free_all (c_handle->prequote);
c_handle->prequote = sl;
}
else if (c_option == CURLOPT_RESOLVE)
{
if (c_handle->resolve)
curl_slist_free_all (c_handle->resolve);
c_handle->resolve = sl;
}
else if (c_option == CURLOPT_TELNETOPTIONS)
{
if (c_handle->telnetoptions)
curl_slist_free_all (c_handle->telnetoptions);
c_handle->telnetoptions = sl;
}
else
{
// Bad slist option
ok = 0;
}
if (ok)
code = curl_easy_setopt (c_handle->handle, c_option, sl);
}
else if (_scm_can_convert_to_httppost (param))
{
if (c_option == CURLOPT_HTTPPOST)
{
struct curl_httppost *p;
p = _scm_convert_to_httppost (param);
free (c_handle->httppost);
c_handle->httppost = p;
code = curl_easy_setopt (c_handle, CURLOPT_HTTPPOST, p);
}
}
else if (scm_is_true (scm_input_port_p (param)))
{
if (c_option == CURLOPT_READDATA)
{
curl_easy_setopt (c_handle->handle, CURLOPT_READFUNCTION, read_callback);
code = curl_easy_setopt (c_handle->handle, CURLOPT_READDATA, SCM2PTR (param));
}
}
else
scm_error (SCM_BOOL_F,
"curl-easy-setopt",
"unimplemented option type",
SCM_BOOL_F,
SCM_BOOL_F);
if (code != CURLE_OK)
scm_error (SCM_BOOL_F,
"curl-easy-setopt",
"bad handle",
SCM_BOOL_F,
SCM_BOOL_F);
return SCM_UNSPECIFIED;
}
int test_scm_is_not_handle(void)
{
SCM handle = SCM_BOOL_T;
int ret = _scm_is_handle(handle);
return (ret == 0);
}
