USING: alien alien.c-types alien.enums alien.libraries
alien.libraries.finder alien.syntax classes.struct combinators
kernel math unix.types words ;

IN: curl.ffi

<< "curl" dup find-library cdecl add-library >>

LIBRARY: curl

! curl.h

FUNCTION: c-string curl_version ( ) ;

FUNCTION: c-string curl_getenv ( c-string variable ) ;

CONSTANT: CURL_WRITEFUNC_PAUSE 0x10000001

ENUM: curlfiletype
    CURLFILETYPE_FILE
    CURLFILETYPE_DIRECTORY
    CURLFILETYPE_SYMLINK
    CURLFILETYPE_DEVICE_BLOCK
    CURLFILETYPE_DEVICE_CHAR
    CURLFILETYPE_NAMEDPIPE
    CURLFILETYPE_SOCKET
    CURLFILETYPE_DOOR
    CURLFILETYPE_UNKNOWN
;

ENUM: CURLcode
    CURLE_OK
    CURLE_UNSUPPORTED_PROTOCOL
    CURLE_FAILED_INIT
    CURLE_URL_MALFORMAT
    CURLE_NOT_BUILT_IN
    CURLE_COULDNT_RESOLVE_PROXY
    CURLE_COULDNT_RESOLVE_HOST
    CURLE_COULDNT_CONNECT
    CURLE_FTYP_WEIRD_SERVER_REPLY
    CURLE_REMOTE_ACCESS_DENIED
    CURLE_FTP_ACCEPT_FAILED
    CURLE_FTP_WEIRD_PASS_REPLY
    CURLE_FTP_ACCEPT_TIMEOUT
    CURLE_FTP_WEIRD_PASV_REPLY
    CURLE_FTP_WEIRD_227_FORMAT
    CURLE_FTP_CANT_GET_HOST
    CURLE_OBSOLETE16
    CURLE_FTP_COULDNT_SET_TYPE
    CURLE_PARTIAL_FILE
    CURLE_FTP_COULDNT_RETR_FILE
    CURLE_OBSOLETE20
    CURLE_QUOTE_ERROR
    CURLE_HTTP_RETURNED_ERROR
    CURLE_WRITE_ERROR
    CURLE_OBSOLETE24
    CURLE_UPLOAD_FAILED
    CURLE_READ_ERROR
    CURLE_OUT_OF_MEMORY
    CURLE_OPERATION_TIMEOUT
    CURLE_OBSOLETE29
    CURLE_FTP_PORT_FAILED
    CURLE_FTP_COULDNT_USE_REST
    CURLE_OBSOLETE32
    CURLE_RANGE_ERROR
    CURLE_HTTP_POST_ERROR
    CURLE_SSL_CONNECT_ERROR
    CURLE_BAD_DOWNLOAD_RESUME
    CURLE_FILE_COULDNT_READ_FILE
    CURLE_LDAP_CANNOT_BIND
    CURLE_LDAP_SEARCH_FAILED
    CURLE_OBSOLETE40
    CURLE_FUNCTION_NOT_FOUND
    CURLE_ABORTED_BY_CALLBACK
    CURLE_BAD_FUNCTION_ARGUMENT
    CURLE_OBSOLETE44
    CURLE_INTERFACE_FAILED
    CURLE_OBSOLETE46
    CURLE_TOO_MANY_REDIRECTS
    CURLE_UNKNOWN_OPTION
    CURLE_TELNET_OPTION_SYNTAX
    CURLE_OBSOLETE50
    CURLE_PEER_FAILED_VERIFICATION
    CURLE_GOT_NOTHING
    CURLE_SSL_ENGINE_NOTFOUND
    CURLE_SSL_ENGINE_SETFAILED
    CURLE_SEND_ERROR
    CURLE_RECV_ERROR
    CURLE_OBSOLETE57
    CURLE_SSL_CERTPROBLEM
    CURLE_SSL_CIPHER
    CURLE_SSL_CACERT
    CURLE_BAD_CONTENT_ENCODING
    CURLE_LDAP_INVALID_URL
    CURLE_FILESIZE_EXCEEDED
    CURLE_USE_SSL_FAILED
    CURLE_SEND_FAIL_REWIND
    CURLE_SSL_ENGINE_INITFAILED
    CURLE_LOGIN_DENIED
    CURLE_TFTP_NOTFOUND
    CURLE_TFTP_PERM
    CURLE_REMOTE_DISK_FULL
    CURLE_TFTP_ILLEGAL
    CURLE_TFTP_UNKNOWNID
    CURLE_REMOTE_FILE_EXISTS
    CURLE_TFTP_NOSUCHUSER
    CURLE_CONV_FAILED
    CURLE_CONV_REQD
    CURLE_SSL_CACERT_BADFILE
    CURLE_REMOTE_FILE_NOT_FOUND
    CURLE_SSH
    CURLE_SSL_SHUTDOWN_FAILED
    CURLE_AGAIN
    CURLE_SSL_CRL_BADFILE
    CURLE_SSL_ISSUER_ERROR
    CURLE_FTP_PRET_FAILED
    CURLE_RTSP_CSEQ_ERROR
    CURLE_RTSP_SESSION_ERROR
    CURLE_FTP_BAD_FILE_LIST
    CURLE_CHUNK_FAILED
    CURLE_NO_CONNECTION_AVAILABLE
;

ENUM: CURLoption
    { CURLOPT_FILE 10001 }
    { CURLOPT_URL 10002 }
    { CURLOPT_PORT 3 }
    { CURLOPT_PROXY 10004 }
    { CURLOPT_USERPWD 10005 }
    { CURLOPT_PROXYUSERPWD 10006 }
    { CURLOPT_RANGE 10007 }
    { CURLOPT_INFILE 10009 }
    { CURLOPT_ERRORBUFFER 10010 }
    { CURLOPT_WRITEFUNCTION 20011 }
    { CURLOPT_READFUNCTION 20012 }
    { CURLOPT_TIMEOUT 13 }
    { CURLOPT_INFILESIZE 14 }
    { CURLOPT_POSTFIELDS 10015 }
    { CURLOPT_REFERER 10016 }
    { CURLOPT_FTPPORT 10017 }
    { CURLOPT_USERAGENT 10018 }
    { CURLOPT_LOW_SPEED_LIMIT 19 }
    { CURLOPT_LOW_SPEED_TIME 20 }
    { CURLOPT_RESUME_FROM 21 }
    { CURLOPT_COOKIE 10022 }
    { CURLOPT_HTTPHEADER 10023 }
    { CURLOPT_HTTPPOST 10024 }
    { CURLOPT_SSLCERT 10025 }
    { CURLOPT_KEYPASSWD 10026 }
    { CURLOPT_CRLF 27 }
    { CURLOPT_QUOTE 10028 }
    { CURLOPT_WRITEHEADER 10029 }
    { CURLOPT_COOKIEFILE 10031 }
    { CURLOPT_SSLVERSION 32 }
    { CURLOPT_TIMECONDITION 33 }
    { CURLOPT_TIMEVALUE 34 }
    { CURLOPT_CUSTOMREQUEST 10036 }
    { CURLOPT_STDERR 10037 }
    { CURLOPT_POSTQUOTE 10039 }
    { CURLOPT_WRITEINFO 10040 }
    { CURLOPT_VERBOSE 41 }
    { CURLOPT_HEADER 42 }
    { CURLOPT_NOPROGRESS 43 }
    { CURLOPT_NOBODY 44 }
    { CURLOPT_FAILONERROR 45 }
    { CURLOPT_UPLOAD 46 }
    { CURLOPT_POST 47 }
    { CURLOPT_DIRLISTONLY 48 }
    { CURLOPT_APPEND 50 }
    { CURLOPT_NETRC 51 }
    { CURLOPT_FOLLOWLOCATION 52 }
    { CURLOPT_TRANSFERTEXT 53 }
    { CURLOPT_PUT 54 }
    { CURLOPT_PROGRESSFUNCTION 20056 }
    { CURLOPT_PROGRESSDATA 10057 }
    { CURLOPT_AUTOREFERER 58 }
    { CURLOPT_PROXYPORT 59 }
    { CURLOPT_POSTFIELDSIZE 60 }
    { CURLOPT_HTTPPROXYTUNNEL 61 }
    { CURLOPT_INTERFACE 10062 }
    { CURLOPT_KRBLEVEL 10063 }
    { CURLOPT_SSL_VERIFYPEER 64 }
    { CURLOPT_CAINFO 10065 }
    { CURLOPT_MAXREDIRS 68 }
    { CURLOPT_FILETIME 69 }
    { CURLOPT_TELNETOPTIONS 10070 }
    { CURLOPT_MAXCONNECTS 71 }
    { CURLOPT_CLOSEPOLICY 72 }
    { CURLOPT_FRESH_CONNECT 74 }
    { CURLOPT_FORBID_REUSE 75 }
    { CURLOPT_RANDOM_FILE 10076 }
    { CURLOPT_EGDSOCKET 10077 }
    { CURLOPT_CONNECTTIMEOUT 78 }
    { CURLOPT_HEADERFUNCTION 20079 }
    { CURLOPT_HTTPGET 80 }
    { CURLOPT_SSL_VERIFYHOST 81 }
    { CURLOPT_COOKIEJAR 10082 }
    { CURLOPT_SSL_CIPHER_LIST 10083 }
    { CURLOPT_HTTP_VERSION 84 }
    { CURLOPT_FTP_USE_EPSV 85 }
    { CURLOPT_SSLCERTTYPE 10086 }
    { CURLOPT_SSLKEY 10087 }
    { CURLOPT_SSLKEYTYPE 10088 }
    { CURLOPT_SSLENGINE 10089 }
    { CURLOPT_SSLENGINE_DEFAULT 90 }
    { CURLOPT_DNS_USE_GLOBAL_CACHE 91 }
    { CURLOPT_DNS_CACHE_TIMEOUT 92 }
    { CURLOPT_PREQUOTE 10093 }
    { CURLOPT_DEBUGFUNCTION 20094 }
    { CURLOPT_DEBUGDATA 10095 }
    { CURLOPT_COOKIESESSION 96 }
    { CURLOPT_CAPATH 10097 }
    { CURLOPT_BUFFERSIZE 98 }
    { CURLOPT_NOSIGNAL 99 }
    { CURLOPT_SHARE 10100 }
    { CURLOPT_PROXYTYPE 101 }
    { CURLOPT_ACCEPT_ENCODING 10102 }
    { CURLOPT_PRIVATE 10103 }
    { CURLOPT_HTTP200ALIASES 10104 }
    { CURLOPT_UNRESTRICTED_AUTH 105 }
    { CURLOPT_FTP_USE_EPRT 106 }
    { CURLOPT_HTTPAUTH 107 }
    { CURLOPT_SSL_CTX_FUNCTION 20108 }
    { CURLOPT_SSL_CTX_DATA 10109 }
    { CURLOPT_FTP_CREATE_MISSING_DIRS 110 }
    { CURLOPT_PROXYAUTH 111 }
    { CURLOPT_SERVER_RESPONSE_TIMEOUT 112 }
    { CURLOPT_IPRESOLVE 113 }
    { CURLOPT_MAXFILESIZE 114 }
    { CURLOPT_INFILESIZE_LARGE 30115 }
    { CURLOPT_RESUME_FROM_LARGE 30116 }
    { CURLOPT_MAXFILESIZE_LARGE 30117 }
    { CURLOPT_NETRC_FILE 10118 }
    { CURLOPT_USE_SSL 119 }
    { CURLOPT_POSTFIELDSIZE_LARGE 30120 }
    { CURLOPT_TCP_NODELAY 121 }
    { CURLOPT_FTPSSLAUTH 129 }
    { CURLOPT_IOCTLFUNCTION 20130 }
    { CURLOPT_IOCTLDATA 10131 }
    { CURLOPT_FTP_ACCOUNT 10134 }
    { CURLOPT_COOKIELIST 10135 }
    { CURLOPT_IGNORE_CONTENT_LENGTH 136 }
    { CURLOPT_FTP_SKIP_PASV_IP 137 }
    { CURLOPT_FTP_FILEMETHOD 138 }
    { CURLOPT_LOCALPORT 139 }
    { CURLOPT_LOCALPORTRANGE 140 }
    { CURLOPT_CONNECT_ONLY 141 }
    { CURLOPT_CONV_FROM_NETWORK_FUNCTION 20142 }
    { CURLOPT_CONV_TO_NETWORK_FUNCTION 20143 }
    { CURLOPT_CONV_FROM_UTF8_FUNCTION 20144 }
    { CURLOPT_MAX_SEND_SPEED_LARGE 30145 }
    { CURLOPT_MAX_RECV_SPEED_LARGE 30146 }
    { CURLOPT_FTP_ALTERNATIVE_TO_USER 10147 }
    { CURLOPT_SOCKOPTFUNCTION 20148 }
    { CURLOPT_SOCKOPTDATA 10149 }
    { CURLOPT_SSL_SESSIONID_CACHE 150 }
    { CURLOPT_SSH_AUTH_TYPES 151 }
    { CURLOPT_SSH_PUBLIC_KEYFILE 10152 }
    { CURLOPT_SSH_PRIVATE_KEYFILE 10153 }
    { CURLOPT_FTP_SSL_CCC 154 }
    { CURLOPT_TIMEOUT_MS 155 }
    { CURLOPT_CONNECTTIMEOUT_MS 156 }
    { CURLOPT_HTTP_TRANSFER_DECODING 157 }
    { CURLOPT_HTTP_CONTENT_DECODING 158 }
    { CURLOPT_NEWFILE_PERMS 159 }
    { CURLOPT_NEW_DIRECTORY_PERMS 160 }
    { CURLOPT_POSTREDIR 161 }
    { CURLOPT_SSH_HOST_PUBLIC_KEY_MD5 10162 }
    { CURLOPT_OPENSOCKETFUNCTION 20163 }
    { CURLOPT_OPENSOCKETDATA 10164 }
    { CURLOPT_COPYPOSTFIELD 10165 }
    { CURLOPT_PROXY_TRANSFER_MODE 166 }
    { CURLOPT_SEEKFUNCTION 20167 }
    { CURLOPT_SEEKDATA 10168 }
    { CURLOPT_CRLFILE 10169 }
    { CURLOPT_ISSUERCERT 10170 }
    { CURLOPT_ADDRESS_SCOPE 171 }
    { CURLOPT_CERTINFO 172 }
    { CURLOPT_USERNAME 10173 }
    { CURLOPT_PASSWORD 10174 }
    { CURLOPT_PROXYUSERNAME 10175 }
    { CURLOPT_PROXYPASSWORD 10176 }
    { CURLOPT_NOPROXY 10177 }
    { CURLOPT_TFTP_BLKSIZE 178 }
    { CURLOPT_SOCKS5_GSSAPI_SERVICE 10179 }
    { CURLOPT_SOCKS5_GSSAPI_NEC 10180 }
    { CURLOPT_PROTOCOLS 181 }
    { CURLOPT_REDIR_PROTOCOLS 182 }
    { CURLOPT_SSH_KNOWNHOSTS 10183 }
    { CURLOPT_SSH_KEYFUNCTION 20184 }
    { CURLOPT_SSH_KEYDATA 10185 }
    { CURLOPT_MAIL_FROM 10186 }
    { CURLOPT_MAIL_RCPT 10187 }
    { CURLOPT_FTP_USE_PRET 188 }
    { CURLOPT_RTSP_REQUEST 189 }
    { CURLOPT_RTSP_SESSION_ID 10190 }
    { CURLOPT_RTSP_STREAM_URI 10191 }
    { CURLOPT_RTSP_TRANSPORT 10192 }
    { CURLOPT_RTSP_CLIENT_CSEQ 193 }
    { CURLOPT_RTSP_SERVER_CSEQ 194 }
    { CURLOPT_INTERLEAVEDATA 10195 }
    { CURLOPT_INTERLEAVEFUNCTION 20196 }
    { CURLOPT_WILDCARDMATCH 197 }
    { CURLOPT_CHUNK_BGN_FUNCTION 20198 }
    { CURLOPT_CHUNK_END_FUNCTION 20199 }
    { CURLOPT_FNMATCH_FUNCTION 20200 }
    { CURLOPT_CHUNK_DATA 10201 }
    { CURLOPT_FNMATCH_DATA 10202 }
    { CURLOPT_RESOLVE 10203 }
    { CURLOPT_TLSAUTH_USERNAME 10204 }
    { CURLOPT_TLSAUTH_PASSWORD 10205 }
    { CURLOPT_TLSAUTH_TYPE 10206 }
    { CURLOPT_TRANSFER_ENCODING 207 }
    { CURLOPT_CLOSESOCKETFUNCTION 20208 }
    { CURLOPT_CLOSESOCKETDATA 10209 }
    { CURLOPT_GSSAPI_DELEGATION 210 }
    { CURLOPT_DNS_SERVERS 10211 }
    { CURLOPT_ACCEPTTIMEOUT_MS 212 }
    { CURLOPT_TCP_KEEPALIVE 213 }
    { CURLOPT_TCP_KEEPIDLE 214 }
    { CURLOPT_TCP_KEEPINTVL 215 }
    { CURLOPT_SSL_OPTIONS 216 }
    { CURLOPT_MAIL_AUTH 10217 }
;

ALIAS: CURLOPT_WRITEDATA CURLOPT_FILE
ALIAS: CURLOPT_READDATA CURLOPT_INFILE
ALIAS: CURLOPT_HEADERDATA CURLOPT_WRITEHEADER
ALIAS: CURLOPT_RTSPHEADER CURLOPT_HTTPHEADER

! easy.h

TYPEDEF: void CURL
TYPEDEF: int64_t curl_off_t

FUNCTION: CURL* curl_easy_init ( ) ;

FUNCTION-ALIAS: curl_easy_setopt_long
    CURLcode curl_easy_setopt ( CURL* curl, CURLoption option, long value ) ;

FUNCTION-ALIAS: curl_easy_setopt_string
    CURLcode curl_easy_setopt ( CURL* curl, CURLoption option, c-string value ) ;

FUNCTION-ALIAS: curl_easy_setopt_pointer
    CURLcode curl_easy_setopt ( CURL* curl, CURLoption option, void* value ) ;

FUNCTION-ALIAS: curl_easy_setopt_curl_off_t
    CURLcode curl_easy_setopt ( CURL* curl, CURLoption option, curl_off_t value ) ;

FUNCTION: CURLcode curl_easy_perform ( CURL* curl ) ;

FUNCTION: void curl_easy_cleanup ( CURL* curl ) ;

FUNCTION: c-string curl_easy_escape ( CURL* curl, c-string string, int length ) ;

FUNCTION: c-string curl_easy_unescape ( CURL* handle, c-string string, int length, int* outlength ) ;

: curl_easy_setopt ( curl option value -- code )
    over enum>number {
        { [ dup 30000 > ] [ drop curl_easy_setopt_curl_off_t ] }
        { [ dup 20000 > ] [ drop curl_easy_setopt_pointer ] }
        { [ dup 10000 > ] [ drop curl_easy_setopt_string ] }
        [ drop curl_easy_setopt_long ]
    } cond ;

CALLBACK: size_t write_callback ( char *buffer, size_t size, size_t nitems, void *outstream ) ;

CALLBACK: long chunk_bgn_callback ( void* transfer_info, void* ptr, int remains ) ;

CALLBACK: long chunk_end_callback ( void* ptr ) ;

CALLBACK: int fnmatch_callback ( void* ptr, c-string pattern, c-string string ) ;

CALLBACK: int seek_callback ( void* instream, curl_off_t offset, int origin ) ;

CALLBACK: size_t read_callback ( char* buffer, size_t size, size_t nitems, void* instream ) ;

ENUM: curlsocktype
    CURLSOCKTYPE_IPCXN
    CURLSOCKTYPE_ACCEPT
    CURLSOCKTYPE_LAST
;

CONSTANT: CURL_SOCKOPT_OK 0
CONSTANT: CURL_SOCKOPT_ERROR 1
CONSTANT: CURL_SOCKOPT_ALREADY_CONNECTED 2

TYPEDEF: int curl_socket_t

CALLBACK: int sockopt_callback ( void* clientp, curl_socket_t curlfd, curlsocktype purpose ) ;

STRUCT: curl_sockaddr
    { family int }
    { socktype int }
    { protocol int }
    { addrlen uint }
;

CALLBACK: curl_socket_t opensocket_callback ( void* clientp, curlsocktype purpose, curl_sockaddr* address ) ;

CALLBACK: int closesocket_callback ( void* clientp, curl_socket_t item ) ;

ENUM: curlioerr
    CURLIOE_OK
    CURLIOE_UNKNOWNCMD
    CURLIOE_FAILRESTART
    CURLIOE_LAST
;

ENUM: curliocmd
    CURLIOCMD_NOP
    CURLIOCMD_RESTARTREAD
    CURLIOCMD_LAST
;

CALLBACK: curlioerr ioctl_callback ( CURL* handle, int cmd, void* clientp ) ;

CALLBACK: void* malloc_callback ( size_t size ) ;
CALLBACK: void free_callback ( void* ptr ) ;
CALLBACK: void* realloc_callback ( void* ptr, size_t size ) ;
CALLBACK: char* strdup_callback ( char* str ) ;
CALLBACK: void* calloc_callback ( size_t nmemb, size_t size ) ;

ENUM: curl_infotype
    CURLINFO_TEXT
    CURLINFO_HEADER_IN
    CURLINFO_HEADER_OUT
    CURLINFO_DATA_IN
    CURLINFO_DATA_OUT
    CURLINFO_SSL_DATA_IN
    CURLINFO_SSL_DATA_OUT
    CURLINFO_END
;

CALLBACK: int debug_callback ( CURL* handle, curl_infotype type, char* data, size_t size, void* userptr ) ;

CALLBACK: CURLcode conv_callback ( char* buffer, size_t length ) ;

CALLBACK: CURLcode ssl_ctx_callback ( CURL* curl, void* ssl_ctx, void* userptr ) ;

ENUM: curl_proxytype
    { CURLPROXY_HTTP 0 }
    { CURLPROXY_HTTP_1_0 1 }
    { CURLPROXY_SOCKS4 4 }
    { CURLPROXY_SOCKS5 5 }
    { CURLPROXY_SOCKS4A 6 }
    { CURLPROXY_SOCKS5_HOSTNAME 7 }
;

! multi.h