diff options
| author |  Chloe Kudryavtsev <code@toast.bunkerlabs.net> | 2023-03-26 12:27:38 -0400 |
|---|---|---|
| committer | Chloe Kudryavtsev <code@toast.bunkerlabs.net> | 2023-03-26 12:27:38 -0400 |
| commit | e9a934de0a156e75f6e26d96d103350cef217524 (patch) | |
| tree | b4a308edaf646e6236adcf3065c53e0f555e5e55 /src/getinfo.c | |
| parent | jurl: initial client preview (diff) | |
native: implement getinfo slists
Diffstat (limited to '')
| -rw-r--r-- | src/getinfo.c | 31 |
1 files changed, 27 insertions, 4 deletions
diff --git a/src/getinfo.c b/src/getinfo.c index 3a1908a..542d599 100644 --- a/src/getinfo.c +++ b/src/getinfo.c @@ -128,7 +128,7 @@ JANET_CFUN(jurl_getinfo) { if (res != CURLE_OK) janet_panic("getinfo returned != CURLE_OK"); return janet_wrap_integer(out); } - case JURL_PARAMTYPE_ENUM: + case JURL_PARAMTYPE_ENUM: // TODO janet_panic("jurl_getinfo: enums not implemented"); case JURL_PARAMTYPE_OFF_T: { curl_off_t out; @@ -136,9 +136,32 @@ JANET_CFUN(jurl_getinfo) { if (res != CURLE_OK) janet_panic("getinfo returned != CURLE_OK"); return janet_wrap_integer(out); } - case JURL_PARAMTYPE_SLIST: - janet_panic("jurl_getinfo: slists not implemented"); - case JURL_PARAMTYPE_BITMASK: + case JURL_PARAMTYPE_SLIST: { + struct curl_slist *slist; + CURLcode res = curl_easy_getinfo(curl, opt->info, &slist); + if (res != CURLE_OK) janet_panic("getinfo returned != CURLE_OK"); + + // we iterate twice to avoid allocating n times + // for small n it makes no significant difference either way + // for large n it's faster to do that + int32_t len = 0; + struct curl_slist *tmp = slist; + while (tmp) { + tmp = tmp->next; + len++; + } + tmp = slist; + + JanetArray *out = janet_array(len); + while (tmp) { + janet_array_push(out, janet_cstringv(tmp->data)); + tmp = tmp->next; + } + + curl_slist_free_all(slist); + return janet_wrap_array(out); + } + case JURL_PARAMTYPE_BITMASK: // TODO janet_panic("jurl_getinfo: bitmasks not implemented"); case JURL_PARAMTYPE_BOOLEAN: { long out; |