Format FFI code
This commit is contained in:
parent
772f92037f
commit
a72fe043b2
1 changed files with 16 additions and 16 deletions
32
ffi.bqn
32
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
|
||||
|
|
Loading…
Add table
Add a link
Reference in a new issue