+
+/* {{{ http_request_pool *http_request_pool_init(http_request_pool *) */
+PHP_HTTP_API http_request_pool *_http_request_pool_init(http_request_pool *pool TSRMLS_DC)
+{
+ zend_bool free_pool;
+
+ if ((free_pool = (!pool))) {
+ pool = emalloc(sizeof(http_request_pool));
+ pool->ch = NULL;
+ }
+
+ if (!pool->ch) {
+ if (!(pool->ch = curl_multi_init())) {
+ http_error(E_WARNING, HTTP_E_CURL, "Could not initialize curl");
+ if (free_pool) {
+ efree(pool);
+ }
+ return NULL;
+ }
+ }
+
+ pool->unfinished = 0;
+ zend_llist_init(&pool->handles, sizeof(zval *), (llist_dtor_func_t) ZVAL_PTR_DTOR, 0);
+ zend_llist_init(&pool->bodies, sizeof(http_request_body *), (llist_dtor_func_t) http_request_pool_freebody, 0);
+
+ return pool;
+}
+/* }}} */
+
+/* {{{ STATUS http_request_pool_attach(http_request_pool *, zval *) */
+PHP_HTTP_API STATUS _http_request_pool_attach(http_request_pool *pool, zval *request TSRMLS_DC)
+{
+ getObjectEx(http_request_object, req, request);
+
+ if (req->attached) {
+ http_error(E_WARNING, HTTP_E_CURL, "HttpRequest object is already member of an HttpRequestPool");
+ } else {
+ CURLMcode code;
+ http_request_body *body = http_request_body_new();
+ zval *info = GET_PROP_EX(req, request, responseInfo);
+
+ if (SUCCESS != http_request_object_requesthandler(req, request, body)) {
+ efree(body);
+ http_error_ex(E_WARNING, HTTP_E_CURL, "Could not initialize HttpRequest object for attaching to the HttpRequestPool");
+ } else if (CURLM_OK != (code = curl_multi_add_handle(pool->ch, req->ch))) {
+ http_error_ex(E_WARNING, HTTP_E_CURL, "Could not attach HttpRequest object to the HttpRequestPool: %s", curl_multi_strerror(code));
+ } else {
+ req->attached = 1;
+ zval_add_ref(&request);
+ zend_llist_add_element(&pool->handles, &request);
+ zend_llist_add_element(&pool->bodies, &body);
+ return SUCCESS;
+ }
+ }
+ return FAILURE;
+}
+/* }}} */
+
+/* {{{ STATUS http_request_pool_detach(http_request_pool *, zval *) */
+PHP_HTTP_API STATUS _http_request_pool_detach(http_request_pool *pool, zval *request TSRMLS_DC)
+{
+ getObjectEx(http_request_object, req, request);
+
+ if (!req->attached) {
+ http_error(E_WARNING, HTTP_E_CURL, "HttpRequest object is not attached to an HttpRequestPool");
+ } else {
+ CURLMcode code;
+
+ if (CURLM_OK != (code = curl_multi_remove_handle(pool->ch, req->ch))) {
+ http_error_ex(E_WARNING, HTTP_E_CURL, "Could not detach HttpRequest object from the HttpRequestPool: %s", curl_multi_strerror(code));
+ } else {
+ req->attached = 0;
+ zval_ptr_dtor(&request);
+ return SUCCESS;
+ }
+ }
+ return FAILURE;
+}
+/* }}} */
+
+/* {{{ STATUS http_request_pool_send(http_request_pool *) */
+PHP_HTTP_API STATUS _http_request_pool_send(http_request_pool *pool TSRMLS_DC)
+{
+ http_request_pool_perform(pool);
+ while (pool->unfinished) {
+ if (SUCCESS != http_request_pool_select(pool)) {
+ http_error(E_WARNING, HTTP_E_CURL, "Socket error");
+ return FAILURE;
+ }
+ http_request_pool_perform(pool);
+ }
+ zend_llist_apply(&pool->handles, (llist_apply_func_t) http_request_pool_responsehandler TSRMLS_CC);
+ return SUCCESS;
+}
+/* }}} */
+
+/*#*/
+
+/* {{{ static void http_request_pool_free_body(http_request_body *) */
+static void http_request_pool_freebody(http_request_body **body)
+{
+ TSRMLS_FETCH();
+ http_request_body_free(*body);
+}
+/* }}} */
+
+/* {{{ static void http_request_pool_responsehandler(zval **) */
+static void http_request_pool_responsehandler(zval **req TSRMLS_DC)
+{
+ getObjectEx(http_request_object, obj, *req);
+ http_request_object_responsehandler(obj, *req, NULL);
+}
+/* }}} */
+
+/* {{{ static inline STATUS http_request_pool_select(http_request_pool *) */
+static inline STATUS http_request_pool_select(http_request_pool *pool)
+{
+ int MAX;
+ fd_set R, W, E;
+ struct timeval timeout = {1, 0};
+
+ FD_ZERO(&R);
+ FD_ZERO(&W);
+ FD_ZERO(&E);
+
+ curl_multi_fdset(pool->ch, &R, &W, &E, &MAX);
+ return (-1 != select(MAX + 1, &R, &W, &E, &timeout)) ? SUCCESS : FAILURE;
+}
+/* }}} */
+
+/* {{{ static inline void http_request_pool_perform(http_request_pool *) */
+static inline void http_request_pool_perform(http_request_pool *pool)
+{
+ while (CURLM_CALL_MULTI_PERFORM == curl_multi_perform(pool->ch, &pool->unfinished));
+}
+/* }}} */
+