⟨
  easyInit,
  easyCleanup,
  easySetoptStr,
  easySetoptPtr,
  easySetoptLong,
  easyPerform,
  easyGetinfoStr,
  easyGetinfoLong,
  easyGetinfoDouble,
  slistAppend,
  slistFreeAll,
  fopen,
  fclose,
  curlOptions,
  curlInfo
⟩⇐

⟨Hex2Num⟩←•Import"utils.bqn"

⟨libcurlPath⟩←•Import"config.bqn"

CurlFFI←libcurlPath⊸•FFI

curlPtr←"*:i8"
curlOption←"i32"
curlCode←"i32"

easyInit←CurlFFI curlPtr‿"curl_easy_init"
easyCleanup←CurlFFI ""‿"curl_easy_cleanup"‿(">"∾curlPtr)

easySetoptStr←CurlFFI curlCode‿"curl_easy_setopt"‿curlPtr‿curlOption‿"*u8:c8"
easySetoptPtr←CurlFFI curlCode‿"curl_easy_setopt"‿curlPtr‿curlOption‿"*:i8"
easySetoptLong←CurlFFI curlCode‿"curl_easy_setopt"‿curlPtr‿curlOption‿"i32"

easyPerform←CurlFFI curlCode‿"curl_easy_perform"‿curlPtr

easyGetinfoStr←CurlFFI curlCode‿"curl_easy_getinfo"‿curlPtr‿curlOption‿"&u8:c8"
easyGetinfoLong←CurlFFI curlCode‿"curl_easy_getinfo"‿curlPtr‿curlOption‿"&i32"
easyGetinfoDouble←CurlFFI curlCode‿"curl_easy_getinfo"‿curlPtr‿curlOption‿"&f64"

slistAppend←CurlFFI "*:i8"‿"curl_slist_append"‿"*:i8"‿"*u8:c8"
slistFreeAll←CurlFFI ""‿"curl_slist_free_all"‿">*:i8"

fopen←@•FFI "*:i8"‿"fopen"‿"*u8:c8"‿"*u8:c8"
fclose←@•FFI ""‿"fclose"‿">*:i8"

curlOptions←{
  strOffset←10000
  slistOffset←10000
  ptrOffset←10000

  # boolean options
  verbose⇐41
  header⇐42
  noprogress⇐43
  post⇐47
  followlocation⇐52
  httpget⇐80

  # long integer options
  postfieldsize⇐60  # size of the POST input data
  timeout⇐78  # timeout in seconds
  timeoutms⇐155  # timeout in milliseconds

  # string options, null-terminated
  url⇐strOffset+2
  userpwd⇐strOffset+5  # user:password
  useragent⇐strOffset+18

  # pointer options
  writedata⇐ptrOffset+1  # FILE* in which to write response content
  postfields⇐ptrOffset+15  # pointer to POST input data
  headerdata⇐ptrOffset+29  # FILE* in which to write response headers

  # linked list options
  httpHeader⇐slistOffset+23  # HTTP headers as a list of strings
}

curlInfo←{
  strOffset←Hex2Num"100000"
  longOffset←Hex2Num"200000"
  doubleOffset←Hex2Num"300000"
  slistOffset←Hex2Num"400000"
  ptrOffset←Hex2Num"400000"

  # long integer info
  responseCode⇐longOffset+2
  headerSize⇐longOffset+11  # in bytes
  requestSize⇐longOffset+12  # in bytes
  redirectCount⇐longOffset+20
  httpVersion⇐longOffset+46

  # double info
  totalTime⇐doubleOffset+3  # in seconds
  nameLookupTime⇐doubleOffset+4  # in seconds
  connectTime⇐doubleOffset+5  # in seconds

  # string info
  effectiveUrl⇐strOffset+1
  contentType⇐strOffset+18
  primaryIP⇐strOffset+32
  httpScheme⇐strOffset+49
  effectiveMethod⇐strOffset+58
}