81d91930ef
git-svn-id: https://svn.origo.ethz.ch/eiffelstudio/trunk/Src/library/cURL@71100 8089f293-4706-0410-a29e-feb5c42a2edf
151 lines
4.2 KiB
C
151 lines
4.2 KiB
C
/*
|
|
indexing
|
|
description: "Functions used by the class CURL_FUNCTION."
|
|
copyright: "Copyright (c) 1984-2006, Eiffel Software and others"
|
|
license: "Eiffel Forum License v2 (see http://www.eiffel.com/licensing/forum.txt)"
|
|
source: "[
|
|
Eiffel Software
|
|
356 Storke Road, Goleta, CA 93117 USA
|
|
Telephone 805-685-1006, Fax 805-685-6869
|
|
Website http://www.eiffel.com
|
|
Customer support http://support.eiffel.com
|
|
]"
|
|
*/
|
|
|
|
#include <stdio.h>
|
|
#include <string.h>
|
|
|
|
/* unix-specific */
|
|
#ifndef EIF_WINNT
|
|
#include <sys/time.h>
|
|
#include <unistd.h>
|
|
#endif
|
|
|
|
#include <curl/curl.h>
|
|
|
|
#include "eif_main.h"
|
|
|
|
#ifdef EIF_THREADS
|
|
#include "eif_threads.h"
|
|
#endif
|
|
|
|
#ifndef eiffel_curl
|
|
#define eiffel_curl
|
|
|
|
typedef EIF_INTEGER (* EIF_CURL_PROGRESS_PROC) (
|
|
EIF_REFERENCE, /* CURL_FUNCTION Eiffel object */
|
|
EIF_POINTER, /* a_user_pointer */
|
|
EIF_REAL_64, /* a_dltotal */
|
|
EIF_REAL_64, /* a_dlnow */
|
|
EIF_REAL_64, /* a_ultotal */
|
|
EIF_REAL_64 /* a_ulnow */
|
|
);
|
|
|
|
typedef EIF_INTEGER (* EIF_CURL_WRITE_PROC) (
|
|
EIF_REFERENCE, /* CURL_FUNCTION Eiffel object */
|
|
EIF_POINTER, /* a_data_pointer */
|
|
EIF_INTEGER, /* a_size */
|
|
EIF_INTEGER, /* a_nmemb */
|
|
EIF_POINTER /* a_write_pointer */
|
|
);
|
|
|
|
typedef EIF_INTEGER (* EIF_CURL_DEBUG_PROC) (
|
|
EIF_REFERENCE, /* CURL_FUNCTION Eiffel object */
|
|
EIF_POINTER, /* a_curl_handle */
|
|
EIF_INTEGER, /* a_curl_infotype */
|
|
EIF_POINTER, /* a_char_pointer */
|
|
EIF_INTEGER, /* a_size */
|
|
EIF_POINTER /* a_user_pointer */
|
|
);
|
|
|
|
EIF_REFERENCE eiffel_function_object = NULL;
|
|
/* Address of Eiffel object CURL_FUNCTION */
|
|
|
|
EIF_CURL_PROGRESS_PROC eiffel_progress_function = NULL;
|
|
/* Address of Eiffel CURL_FUNCTION.progress_function */
|
|
|
|
EIF_CURL_WRITE_PROC eiffel_write_function = NULL;
|
|
/* Address of Eiffel CURL_FUNCTION.write_function */
|
|
|
|
EIF_CURL_DEBUG_PROC eiffel_debug_function = NULL;
|
|
/* Address of Eiffel CURL_FUNCTION.debug_function */
|
|
|
|
/* Set Eiffel CURL_FUNCTION object address */
|
|
void c_set_object(EIF_REFERENCE a_address)
|
|
{
|
|
eiffel_function_object = (EIF_REFERENCE) eif_adopt (a_address);
|
|
}
|
|
|
|
/* Release Eiffel CURL_FUNCTION object address */
|
|
void c_release_object()
|
|
{
|
|
eif_wean (eiffel_function_object);
|
|
}
|
|
|
|
/* Set CURL_FUNCTOIN.progress_function address */
|
|
void c_set_progress_function_address( EIF_POINTER a_address)
|
|
{
|
|
eiffel_progress_function = (EIF_CURL_PROGRESS_PROC) a_address;
|
|
}
|
|
|
|
/* Set CURL_FUNCTOIN.write_function address */
|
|
void c_set_write_function_address( EIF_POINTER a_address)
|
|
{
|
|
eiffel_write_function = (EIF_CURL_WRITE_PROC) a_address;
|
|
}
|
|
|
|
/* Set CURL_FUNCTOIN.debug_function address */
|
|
void c_set_debug_function_address (EIF_POINTER a_address)
|
|
{
|
|
eiffel_debug_function = (EIF_CURL_DEBUG_PROC) a_address;
|
|
}
|
|
|
|
/* Eiffel adapter function for CURLOPT_WRITEFUNCTION
|
|
We need this function since Eiffel function call need first parameter is EIF_REFERENCE. */
|
|
size_t curl_write_function (void *ptr, size_t size, size_t nmemb, void *data)
|
|
{
|
|
if (eiffel_function_object) {
|
|
return (size_t) ((eiffel_write_function) (
|
|
(EIF_REFERENCE) eif_access (eiffel_function_object),
|
|
(EIF_POINTER) ptr,
|
|
(EIF_INTEGER) size,
|
|
(EIF_INTEGER) nmemb,
|
|
(EIF_POINTER) data));
|
|
} else {
|
|
}
|
|
}
|
|
|
|
/* Eiffel adapter function for CURLOPT_PROGRESSFUNCTION
|
|
We need this function since Eiffel function call need first parameter is EIF_REFERENCE. */
|
|
size_t curl_progress_function (void * a_object_id, double a_dltotal, double a_dlnow, double a_ultotal, double a_ulnow)
|
|
{
|
|
if (eiffel_function_object) {
|
|
return (size_t) ((eiffel_progress_function) (
|
|
(EIF_REFERENCE) eif_access (eiffel_function_object),
|
|
(EIF_POINTER) a_object_id,
|
|
(EIF_REAL_64) a_dltotal,
|
|
(EIF_REAL_64) a_dlnow,
|
|
(EIF_REAL_64) a_ultotal,
|
|
(EIF_REAL_64) a_ulnow));
|
|
} else {
|
|
}
|
|
}
|
|
|
|
/* Eiffel adapter function for CURLOPT_DEBUGFUNCTION
|
|
We need this function since Eiffel function call need first parameter is EIF_REFERENCE. */
|
|
size_t curl_debug_function (CURL * a_curl_handle, curl_infotype a_curl_infotype, unsigned char * a_char_pointer, size_t a_size, void * a_object_id)
|
|
{
|
|
if (eiffel_function_object) {
|
|
return (size_t) ((eiffel_debug_function) (
|
|
(EIF_REFERENCE) eif_access (eiffel_function_object),
|
|
(EIF_POINTER) a_curl_handle,
|
|
(EIF_INTEGER) a_curl_infotype,
|
|
(EIF_POINTER) a_char_pointer,
|
|
(EIF_INTEGER) a_size,
|
|
(EIF_POINTER) a_object_id));
|
|
} else {
|
|
}
|
|
}
|
|
|
|
#endif
|