+++ /dev/null
-/*
- +--------------------------------------------------------------------+
- | PECL :: http |
- +--------------------------------------------------------------------+
- | Redistribution and use in source and binary forms, with or without |
- | modification, are permitted provided that the conditions mentioned |
- | in the accompanying LICENSE file are met. |
- +--------------------------------------------------------------------+
- | Copyright (c) 2004-2014, Michael Wallner <mike@php.net> |
- +--------------------------------------------------------------------+
-*/
-
-#include "php_http_api.h"
-
-#include <ext/standard/php_lcg.h>
-#include <zend_exceptions.h>
-
-/* SLEEP */
-
-void php_http_sleep(double s)
-{
-#if defined(PHP_WIN32)
- Sleep((DWORD) PHP_HTTP_MSEC(s));
-#elif defined(HAVE_USLEEP)
- usleep(PHP_HTTP_USEC(s));
-#elif defined(HAVE_NANOSLEEP)
- struct timespec req, rem;
-
- req.tv_sec = (time_t) s;
- req.tv_nsec = PHP_HTTP_NSEC(s) % PHP_HTTP_NANOSEC;
-
- while (nanosleep(&req, &rem) && (errno == EINTR) && (PHP_HTTP_NSEC(rem.tv_sec) + rem.tv_nsec) > PHP_HTTP_NSEC(PHP_HTTP_DIFFSEC))) {
- req.tv_sec = rem.tv_sec;
- req.tv_nsec = rem.tv_nsec;
- }
-#else
- struct timeval timeout;
-
- timeout.tv_sec = (time_t) s;
- timeout.tv_usec = PHP_HTTP_USEC(s) % PHP_HTTP_MCROSEC;
-
- select(0, NULL, NULL, NULL, &timeout);
-#endif
-}
-
-
-/* STRING UTILITIES */
-
-int php_http_match(const char *haystack_str, const char *needle_str, int flags)
-{
- int result = 0;
-
- if (!haystack_str || !needle_str) {
- return result;
- }
-
- if (flags & PHP_HTTP_MATCH_FULL) {
- if (flags & PHP_HTTP_MATCH_CASE) {
- result = !strcmp(haystack_str, needle_str);
- } else {
- result = !strcasecmp(haystack_str, needle_str);
- }
- } else {
- const char *found;
- char *haystack = estrdup(haystack_str), *needle = estrdup(needle_str);
-
- if (flags & PHP_HTTP_MATCH_CASE) {
- found = zend_memnstr(haystack, needle, strlen(needle), haystack+strlen(haystack));
- } else {
- found = php_stristr(haystack, needle, strlen(haystack), strlen(needle));
- }
-
- if (found) {
- if (!(flags & PHP_HTTP_MATCH_WORD)
- || ( (found == haystack || !PHP_HTTP_IS_CTYPE(alnum, *(found - 1)))
- && (!*(found + strlen(needle)) || !PHP_HTTP_IS_CTYPE(alnum, *(found + strlen(needle))))
- )
- ) {
- result = 1;
- }
- }
-
- PTR_FREE(haystack);
- PTR_FREE(needle);
- }
-
- return result;
-}
-
-char *php_http_pretty_key(register char *key, size_t key_len, zend_bool uctitle, zend_bool xhyphen)
-{
- size_t i = 1;
- int wasalpha;
-
- if (key && key_len) {
- if ((wasalpha = PHP_HTTP_IS_CTYPE(alpha, key[0]))) {
- key[0] = (char) (uctitle ? PHP_HTTP_TO_CTYPE(upper, key[0]) : PHP_HTTP_TO_CTYPE(lower, key[0]));
- }
- PHP_HTTP_DUFF(key_len,
- if (PHP_HTTP_IS_CTYPE(alpha, key[i])) {
- key[i] = (char) (((!wasalpha) && uctitle) ? PHP_HTTP_TO_CTYPE(upper, key[i]) : PHP_HTTP_TO_CTYPE(lower, key[i]));
- wasalpha = 1;
- } else {
- if (xhyphen && (key[i] == '_')) {
- key[i] = '-';
- }
- wasalpha = 0;
- }
- ++i;
- );
- }
- return key;
-}
-
-
-size_t php_http_boundary(char *buf, size_t buf_len TSRMLS_DC)
-{
- return snprintf(buf, buf_len, "%15.15F", sapi_get_request_time(TSRMLS_C) * php_combined_lcg(TSRMLS_C));
-}
-
-int php_http_select_str(const char *cmp, int argc, ...)
-{
- va_list argv;
- int match = -1;
-
- if (cmp && argc > 0) {
- int i;
-
- va_start(argv, argc);
- for (i = 0; i < argc; ++i) {
- const char *test = va_arg(argv, const char *);
-
- if (!strcasecmp(cmp, test)) {
- match = i;
- break;
- }
- }
- va_end(argv);
- }
-
- return match;
-}
-
-
-/* ARRAYS */
-
-unsigned php_http_array_list(HashTable *ht TSRMLS_DC, unsigned argc, ...)
-{
- HashPosition pos;
- unsigned argl = 0;
- va_list argv;
-
- va_start(argv, argc);
- for ( zend_hash_internal_pointer_reset_ex(ht, &pos);
- SUCCESS == zend_hash_has_more_elements_ex(ht, &pos) && (argl < argc);
- zend_hash_move_forward_ex(ht, &pos))
- {
- zval **data, ***argp = (zval ***) va_arg(argv, zval ***);
-
- if (SUCCESS == zend_hash_get_current_data_ex(ht, (void *) &data, &pos)) {
- *argp = data;
- ++argl;
- }
- }
- va_end(argv);
-
- return argl;
-}
-
-void php_http_array_copy_strings(void *zpp)
-{
- zval **zvpp = ((zval **) zpp);
-
- *zvpp = php_http_zsep(1, IS_STRING, *zvpp);
-}
-
-int php_http_array_apply_append_func(void *pDest TSRMLS_DC, int num_args, va_list args, zend_hash_key *hash_key)
-{
- int flags;
- char *key = NULL;
- HashTable *dst;
- zval **data = NULL, *value = *((zval **) pDest);
-
- dst = va_arg(args, HashTable *);
- flags = va_arg(args, int);
-
- if ((!(flags & ARRAY_JOIN_STRONLY)) || hash_key->nKeyLength) {
- if ((flags & ARRAY_JOIN_PRETTIFY) && hash_key->nKeyLength) {
- key = php_http_pretty_key(estrndup(hash_key->arKey, hash_key->nKeyLength - 1), hash_key->nKeyLength - 1, 1, 1);
- zend_hash_find(dst, key, hash_key->nKeyLength, (void *) &data);
- } else if (hash_key->nKeyLength) {
- zend_hash_quick_find(dst, hash_key->arKey, hash_key->nKeyLength, hash_key->h, (void *) &data);
- } else {
- zend_hash_index_find(dst, hash_key->h, (void *) &data);
- }
-
- if (flags & ARRAY_JOIN_STRINGIFY) {
- value = php_http_zsep(1, IS_STRING, value);
- } else {
- Z_ADDREF_P(value);
- }
-
- if (data) {
- if (Z_TYPE_PP(data) != IS_ARRAY) {
- convert_to_array(*data);
- }
- add_next_index_zval(*data, value);
- } else if (key) {
- zend_symtable_update(dst, key, hash_key->nKeyLength, &value, sizeof(zval *), NULL);
- } else if (hash_key->nKeyLength) {
- zend_hash_quick_add(dst, hash_key->arKey, hash_key->nKeyLength, hash_key->h, &value, sizeof(zval *), NULL);
- } else {
- zend_hash_index_update(dst, hash_key->h, (void *) &value, sizeof(zval *), NULL);
- }
-
- if (key) {
- efree(key);
- }
- }
-
- return ZEND_HASH_APPLY_KEEP;
-}
-
-int php_http_array_apply_merge_func(void *pDest TSRMLS_DC, int num_args, va_list args, zend_hash_key *hash_key)
-{
- int flags;
- char *key = NULL;
- HashTable *dst;
- zval *value = *((zval **) pDest);
-
- dst = va_arg(args, HashTable *);
- flags = va_arg(args, int);
-
- if ((!(flags & ARRAY_JOIN_STRONLY)) || hash_key->nKeyLength) {
- if (flags & ARRAY_JOIN_STRINGIFY) {
- value = php_http_zsep(1, IS_STRING, value);
- } else {
- Z_ADDREF_P(value);
- }
-
- if ((flags & ARRAY_JOIN_PRETTIFY) && hash_key->nKeyLength) {
- key = php_http_pretty_key(estrndup(hash_key->arKey, hash_key->nKeyLength - 1), hash_key->nKeyLength - 1, 1, 1);
- zend_hash_update(dst, key, hash_key->nKeyLength, (void *) &value, sizeof(zval *), NULL);
- efree(key);
- } else if (hash_key->nKeyLength) {
- zend_hash_quick_update(dst, hash_key->arKey, hash_key->nKeyLength, hash_key->h, (void *) &value, sizeof(zval *), NULL);
- } else {
- zend_hash_index_update(dst, hash_key->h, (void *) &value, sizeof(zval *), NULL);
- }
- }
-
- return ZEND_HASH_APPLY_KEEP;
-}
-
-/* PASS CALLBACK */
-
-size_t php_http_pass_fcall_callback(void *cb_arg, const char *str, size_t len)
-{
- php_http_pass_fcall_arg_t *fcd = cb_arg;
- zval *zdata;
- TSRMLS_FETCH_FROM_CTX(fcd->ts);
-
- MAKE_STD_ZVAL(zdata);
- ZVAL_STRINGL(zdata, str, len, 1);
- if (SUCCESS == zend_fcall_info_argn(&fcd->fci TSRMLS_CC, 2, &fcd->fcz, &zdata)) {
- zend_fcall_info_call(&fcd->fci, &fcd->fcc, NULL, NULL TSRMLS_CC);
- zend_fcall_info_args_clear(&fcd->fci, 0);
- }
- zval_ptr_dtor(&zdata);
- return len;
-}
-
-
-/* ZEND */
-
-/*
- * Local variables:
- * tab-width: 4
- * c-basic-offset: 4
- * End:
- * vim600: noet sw=4 ts=4 fdm=marker
- * vim<600: noet sw=4 ts=4
- */