1 /*
2 +--------------------------------------------------------------------+
3 | PECL :: http |
4 +--------------------------------------------------------------------+
5 | Redistribution and use in source and binary forms, with or without |
6 | modification, are permitted provided that the conditions mentioned |
7 | in the accompanying LICENSE file are met. |
8 +--------------------------------------------------------------------+
9 | Copyright (c) 2004-2014, Michael Wallner <mike@php.net> |
10 +--------------------------------------------------------------------+
11 */
12
13 #include "php_http_api.h"
14
15 #include "ext/standard/php_lcg.h"
16 #include "zend_exceptions.h"
17
18 /* SLEEP */
19
php_http_sleep(double s)20 void php_http_sleep(double s)
21 {
22 #if PHP_WIN32
23 Sleep((DWORD) PHP_HTTP_MSEC(s));
24 #elif HAVE_USLEEP
25 usleep(PHP_HTTP_USEC(s));
26 #elif HAVE_NANOSLEEP
27 struct timespec req, rem;
28
29 req.tv_sec = (time_t) s;
30 req.tv_nsec = PHP_HTTP_NSEC(s) % PHP_HTTP_NANOSEC;
31
32 while (nanosleep(&req, &rem) && (errno == EINTR) && (PHP_HTTP_NSEC(rem.tv_sec) + rem.tv_nsec) > PHP_HTTP_NSEC(PHP_HTTP_DIFFSEC))) {
33 req.tv_sec = rem.tv_sec;
34 req.tv_nsec = rem.tv_nsec;
35 }
36 #else
37 struct timeval timeout;
38
39 timeout.tv_sec = (time_t) s;
40 timeout.tv_usec = PHP_HTTP_USEC(s) % PHP_HTTP_MCROSEC;
41
42 select(0, NULL, NULL, NULL, &timeout);
43 #endif
44 }
45
46
47 /* STRING UTILITIES */
48
php_http_match(const char * haystack_str,const char * needle_str,int flags)49 int php_http_match(const char *haystack_str, const char *needle_str, int flags)
50 {
51 int result = 0;
52
53 if (UNEXPECTED(!haystack_str || !needle_str)) {
54 return result;
55 }
56
57 if (UNEXPECTED(flags & PHP_HTTP_MATCH_FULL)) {
58 if (flags & PHP_HTTP_MATCH_CASE) {
59 result = !strcmp(haystack_str, needle_str);
60 } else {
61 result = !strcasecmp(haystack_str, needle_str);
62 }
63 } else {
64 const char *found;
65 char *haystack = estrdup(haystack_str), *needle = estrdup(needle_str);
66
67 if (UNEXPECTED(flags & PHP_HTTP_MATCH_CASE)) {
68 found = zend_memnstr(haystack, needle, strlen(needle), haystack+strlen(haystack));
69 } else {
70 found = php_stristr(haystack, needle, strlen(haystack), strlen(needle));
71 }
72
73 if (found) {
74 if (!(flags & PHP_HTTP_MATCH_WORD)
75 || ( (found == haystack || !PHP_HTTP_IS_CTYPE(alnum, *(found - 1)))
76 && EXPECTED(!*(found + strlen(needle)) || !PHP_HTTP_IS_CTYPE(alnum, *(found + strlen(needle))))
77 )
78 ) {
79 result = 1;
80 }
81 }
82
83 PTR_FREE(haystack);
84 PTR_FREE(needle);
85 }
86
87 return result;
88 }
89
php_http_pretty_key(char * key,size_t key_len,zend_bool uctitle,zend_bool xhyphen)90 char *php_http_pretty_key(char *key, size_t key_len, zend_bool uctitle, zend_bool xhyphen)
91 {
92 size_t i;
93 int wasalpha;
94
95 if (key && key_len) {
96 if (EXPECTED(wasalpha = PHP_HTTP_IS_CTYPE(alpha, key[0]))) {
97 if (EXPECTED(uctitle)) {
98 key[0] = PHP_HTTP_TO_CTYPE(upper, key[0]);
99 } else {
100 key[0] = PHP_HTTP_TO_CTYPE(lower, key[0]);
101 }
102 }
103 for (i = 1; i < key_len; ++i) {
104 if (EXPECTED(PHP_HTTP_IS_CTYPE(alpha, key[i]))) {
105 if (EXPECTED(wasalpha)) {
106 key[i] = PHP_HTTP_TO_CTYPE(lower, key[i]);
107 } else if (EXPECTED(uctitle)) {
108 key[i] = PHP_HTTP_TO_CTYPE(upper, key[i]);
109 wasalpha = 1;
110 } else {
111 key[i] = PHP_HTTP_TO_CTYPE(lower, key[i]);
112 wasalpha = 1;
113 }
114 } else {
115 if (EXPECTED(xhyphen && (key[i] == '_'))) {
116 key[i] = '-';
117 }
118 wasalpha = 0;
119 }
120 }
121 }
122 return key;
123 }
124
125
php_http_boundary(char * buf,size_t buf_len)126 size_t php_http_boundary(char *buf, size_t buf_len)
127 {
128 return snprintf(buf, buf_len, "%15.15F", sapi_get_request_time() * php_combined_lcg());
129 }
130
php_http_select_str(const char * cmp,int argc,...)131 int php_http_select_str(const char *cmp, int argc, ...)
132 {
133 va_list argv;
134 int match = -1;
135
136 if (cmp && argc > 0) {
137 int i;
138
139 va_start(argv, argc);
140 for (i = 0; i < argc; ++i) {
141 const char *test = va_arg(argv, const char *);
142
143 if (!strcasecmp(cmp, test)) {
144 match = i;
145 break;
146 }
147 }
148 va_end(argv);
149 }
150
151 return match;
152 }
153
154
155 /* ARRAYS */
156
php_http_array_list(HashTable * ht,unsigned argc,...)157 unsigned php_http_array_list(HashTable *ht, unsigned argc, ...)
158 {
159 unsigned argl = 0;
160 va_list argv;
161 zval *data;
162
163 va_start(argv, argc);
164 ZEND_HASH_FOREACH_VAL(ht, data) {
165 zval **argp = (zval **) va_arg(argv, zval **);
166 *argp = data;
167 ++argl;
168 } ZEND_HASH_FOREACH_END();
169 va_end(argv);
170
171 return argl;
172 }
173
php_http_array_copy_strings(zval * zp)174 void php_http_array_copy_strings(zval *zp)
175 {
176 Z_TRY_ADDREF_P(zp);
177 convert_to_string_ex(zp);
178 }
179
php_http_array_apply_append_func(zval * value,int num_args,va_list args,zend_hash_key * hash_key)180 int php_http_array_apply_append_func(zval *value, int num_args, va_list args, zend_hash_key *hash_key)
181 {
182 int flags;
183 char *key = NULL;
184 HashTable *dst;
185 zval *data = NULL;
186
187 dst = va_arg(args, HashTable *);
188 flags = va_arg(args, int);
189
190 if ((!(flags & ARRAY_JOIN_STRONLY)) || hash_key->key) {
191 if ((flags & ARRAY_JOIN_PRETTIFY) && hash_key->key) {
192 key = php_http_pretty_key(estrndup(hash_key->key->val, hash_key->key->len), hash_key->key->len, 1, 1);
193 data = zend_hash_str_find(dst, key, hash_key->key->len);
194 } else if (hash_key->key) {
195 data = zend_hash_find(dst, hash_key->key);
196 } else {
197 data = zend_hash_index_find(dst, hash_key->h);
198 }
199
200 if (flags & ARRAY_JOIN_STRINGIFY) {
201 convert_to_string_ex(value);
202 }
203 Z_TRY_ADDREF_P(value);
204
205 if (data) {
206 if (Z_TYPE_P(data) != IS_ARRAY) {
207 convert_to_array(data);
208 }
209 add_next_index_zval(data, value);
210 } else if (key) {
211 zend_hash_str_update(dst, key, hash_key->key->len, value);
212 } else if (hash_key->key) {
213 zend_hash_update(dst, hash_key->key, value);
214 } else {
215 zend_hash_index_update(dst, hash_key->h, value);
216 }
217
218 if (key) {
219 efree(key);
220 }
221 }
222
223 return ZEND_HASH_APPLY_KEEP;
224 }
225
php_http_array_apply_merge_func(zval * value,int num_args,va_list args,zend_hash_key * hash_key)226 int php_http_array_apply_merge_func(zval *value, int num_args, va_list args, zend_hash_key *hash_key)
227 {
228 int flags;
229 char *key = NULL;
230 HashTable *dst;
231
232 dst = va_arg(args, HashTable *);
233 flags = va_arg(args, int);
234
235 if ((!(flags & ARRAY_JOIN_STRONLY)) || hash_key->key) {
236 if (flags & ARRAY_JOIN_STRINGIFY) {
237 convert_to_string_ex(value);
238 }
239
240 Z_TRY_ADDREF_P(value);
241
242 if ((flags & ARRAY_JOIN_PRETTIFY) && hash_key->key) {
243 key = php_http_pretty_key(estrndup(hash_key->key->val, hash_key->key->len), hash_key->key->len, 1, 1);
244 zend_hash_str_update(dst, key, hash_key->key->len, value);
245 efree(key);
246 } else if (hash_key->key) {
247 zend_hash_update(dst, hash_key->key, value);
248 } else {
249 zend_hash_index_update(dst, hash_key->h, value);
250 }
251 }
252
253 return ZEND_HASH_APPLY_KEEP;
254 }
255
256 /* PASS CALLBACK */
257
php_http_pass_fcall_callback(void * cb_arg,const char * str,size_t len)258 size_t php_http_pass_fcall_callback(void *cb_arg, const char *str, size_t len)
259 {
260 php_http_pass_fcall_arg_t *fcd = cb_arg;
261 zval zdata;
262
263 ZVAL_STRINGL(&zdata, str, len);
264 if (SUCCESS == zend_fcall_info_argn(&fcd->fci, 2, &fcd->fcz, &zdata)) {
265 zend_fcall_info_call(&fcd->fci, &fcd->fcc, NULL, NULL);
266 zend_fcall_info_args_clear(&fcd->fci, 0);
267 }
268 zval_ptr_dtor(&zdata);
269 return len;
270 }
271
272
273 /* ZEND */
274
275 /*
276 * Local variables:
277 * tab-width: 4
278 * c-basic-offset: 4
279 * End:
280 * vim600: noet sw=4 ts=4 fdm=marker
281 * vim<600: noet sw=4 ts=4
282 */
283