diff --git a/ffi.bqn b/ffi.bqn index 54ac57a..ce3aeae 100644 --- a/ffi.bqn +++ b/ffi.bqn @@ -23,29 +23,29 @@ CurlFFI←libcurlPath⊸•FFI -curlPtr←"*:i8" +curlPtr ←"*:i8" curlOption←"i32" -curlCode←"i32" +curlCode ←"i32" -easyInit←CurlFFI curlPtr‿"curl_easy_init" -easyCleanup←CurlFFI ""‿"curl_easy_cleanup"‿(">"∾curlPtr) -easyReset←CurlFFI ""‿"curl_easy_reset"‿(">"∾curlPtr) +easyInit ←CurlFFI⟨curlPtr,"curl_easy_init"⟩ +easyCleanup ←CurlFFI⟨"","curl_easy_cleanup",">"∾curlPtr⟩ +easyReset ←CurlFFI⟨"","curl_easy_reset",">"∾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" +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 +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" +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" +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" +fopen ←@•FFI⟨"*:i8","fopen","*u8:c8","*u8:c8"⟩ +fclose ←@•FFI⟨"","fclose",">*:i8"⟩ curlOptions←{ strOffset←10000