projects / m6w6 / ext-http / blob
? search:
summary | shortlog | log | commit | commitdiff | tree | github
history | raw | HEAD
fix build with xcode clang
[m6w6/ext-http] / php_http_params.c
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-2013, Michael Wallner <mike@php.net> |
10 +--------------------------------------------------------------------+
11 */
12
13 #include "php_http_api.h"
14
15 static php_http_params_token_t def_param_sep = {",", 1}, *def_param_sep_ptr[] = {&def_param_sep, NULL};
16 static php_http_params_token_t def_arg_sep = {";", 1}, *def_arg_sep_ptr[] = {&def_arg_sep, NULL};
17 static php_http_params_token_t def_val_sep = {"=", 1}, *def_val_sep_ptr[] = {&def_val_sep, NULL};
18 static php_http_params_opts_t def_opts = {
19 {NULL, 0},
20 def_param_sep_ptr,
21 def_arg_sep_ptr,
22 def_val_sep_ptr,
23 NULL,
24 PHP_HTTP_PARAMS_DEFAULT
25 };
26
27 PHP_HTTP_API php_http_params_opts_t *php_http_params_opts_default_get(php_http_params_opts_t *opts)
28 {
29 if (!opts) {
30 opts = emalloc(sizeof(*opts));
31 }
32
33 memcpy(opts, &def_opts, sizeof(def_opts));
34
35 return opts;
36 }
37
38 typedef struct php_http_params_state {
39 php_http_params_token_t input;
40 php_http_params_token_t param;
41 php_http_params_token_t arg;
42 php_http_params_token_t val;
43 struct {
44 zval **param;
45 zval **args;
46 zval **val;
47 } current;
48 unsigned quotes:1;
49 unsigned escape:1;
50 } php_http_params_state_t;
51
52 static inline void sanitize_default(zval *zv TSRMLS_DC)
53 {
54 if (Z_STRVAL_P(zv)[0] == '"' && Z_STRVAL_P(zv)[Z_STRLEN_P(zv) - 1] == '"') {
55 size_t deq_len = Z_STRLEN_P(zv) - 2;
56 char *deq = estrndup(Z_STRVAL_P(zv) + 1, deq_len);
57
58 zval_dtor(zv);
59 ZVAL_STRINGL(zv, deq, deq_len, 0);
60 }
61
62 php_stripslashes(Z_STRVAL_P(zv), &Z_STRLEN_P(zv) TSRMLS_CC);
63 }
64
65 static inline void prepare_default(zval *zv TSRMLS_DC)
66 {
67 if (Z_TYPE_P(zv) == IS_STRING) {
68 int len = Z_STRLEN_P(zv);
69
70 Z_STRVAL_P(zv) = php_addslashes(Z_STRVAL_P(zv), Z_STRLEN_P(zv), &Z_STRLEN_P(zv), 1 TSRMLS_CC);
71
72 if (len != Z_STRLEN_P(zv)) {
73 zval tmp = *zv;
74 int len = Z_STRLEN_P(zv) + 2;
75 char *str = emalloc(len + 1);
76
77 str[0] = '"';
78 memcpy(&str[1], Z_STRVAL_P(zv), Z_STRLEN_P(zv));
79 str[len-1] = '"';
80 str[len] = '\0';
81
82 zval_dtor(&tmp);
83 ZVAL_STRINGL(zv, str, len, 0);
84 }
85 } else {
86 zval_dtor(zv);
87 ZVAL_EMPTY_STRING(zv);
88 }
89 }
90
91 static inline void sanitize_urlencoded(zval *zv TSRMLS_DC)
92 {
93 Z_STRLEN_P(zv) = php_raw_url_decode(Z_STRVAL_P(zv), Z_STRLEN_P(zv));
94 }
95
96 static inline void prepare_urlencoded(zval *zv TSRMLS_DC)
97 {
98 int len;
99 char *str = php_url_encode(Z_STRVAL_P(zv), Z_STRLEN_P(zv), &len);
100
101 zval_dtor(zv);
102 ZVAL_STRINGL(zv, str, len, 0);
103 }
104
105 static void sanitize_dimension(zval *zv TSRMLS_DC)
106 {
107 zval *arr = NULL, *tmp = NULL, **cur = NULL;
108 char *var = NULL, *ptr = Z_STRVAL_P(zv), *end = Z_STRVAL_P(zv) + Z_STRLEN_P(zv);
109 long level = 0;
110
111 MAKE_STD_ZVAL(arr);
112 array_init(arr);
113 cur = &arr;
114
115 while (ptr < end) {
116 if (!var) {
117 var = ptr;
118 }
119
120 switch (*ptr) {
121 case '[':
122 if (++level > PG(max_input_nesting_level)) {
123 zval_ptr_dtor(&arr);
124 php_http_error(HE_WARNING, PHP_HTTP_E_QUERYSTRING, "Max input nesting level of %ld exceeded", PG(max_input_nesting_level));
125 return;
126 }
127 if (ptr - var == 0) {
128 ++var;
129 break;
130 }
131 /* no break */
132
133 case ']':
134
135 MAKE_STD_ZVAL(tmp);
136 ZVAL_NULL(tmp);
137 convert_to_array(*cur);
138
139 if (ptr - var) {
140 char chr = *ptr;
141 *ptr = '\0';
142 zend_symtable_update(Z_ARRVAL_PP(cur), var, ptr - var + 1, (void *) &tmp, sizeof(zval *), (void *) &cur);
143 *ptr = chr;
144 } else {
145 zend_hash_next_index_insert(Z_ARRVAL_PP(cur), (void *) &tmp, sizeof(zval *), (void *) &cur);
146 }
147
148 var = NULL;
149 break;
150 }
151
152 ++ptr;
153 }
154
155 if (zend_hash_num_elements(Z_ARRVAL_P(arr))) {
156 zval_dtor(zv);
157 #if PHP_VERSION_ID >= 50400
158 ZVAL_COPY_VALUE(zv, arr);
159 #else
160 zv->value = arr->value;
161 Z_TYPE_P(zv) = Z_TYPE_P(arr);
162 #endif
163 FREE_ZVAL(arr);
164 } else {
165 zval_ptr_dtor(&arr);
166 }
167 }
168
169 static inline void shift_key(php_http_buffer_t *buf, char *key_str, size_t key_len, const char *ass, size_t asl, unsigned flags TSRMLS_DC);
170 static inline void shift_val(php_http_buffer_t *buf, zval *zvalue, const char *vss, size_t vsl, unsigned flags TSRMLS_DC);
171
172 static void prepare_dimension(php_http_buffer_t *buf, php_http_buffer_t *keybuf, zval *zvalue, const char *pss, size_t psl, const char *vss, size_t vsl, unsigned flags TSRMLS_DC)
173 {
174 HashTable *ht = HASH_OF(zvalue);
175 HashPosition pos;
176 php_http_array_hashkey_t key = php_http_array_hashkey_init(0);
177 zval **val;
178 php_http_buffer_t prefix;
179
180 if (!ht->nApplyCount++) {
181 php_http_buffer_init(&prefix);
182 php_http_buffer_append(&prefix, keybuf->data, keybuf->used);
183
184 FOREACH_HASH_KEYVAL(pos, ht, key, val) {
185 if (key.type == HASH_KEY_IS_STRING && !*key.str) {
186 /* only public properties */
187 continue;
188 }
189
190 php_http_buffer_appends(&prefix, "[");
191 if (key.type == HASH_KEY_IS_STRING) {
192 php_http_buffer_append(&prefix, key.str, key.len - 1);
193 } else {
194 php_http_buffer_appendf(&prefix, "%lu", key.num);
195 }
196 php_http_buffer_appends(&prefix, "]");
197
198 if (Z_TYPE_PP(val) == IS_ARRAY || Z_TYPE_PP(val) == IS_OBJECT) {
199 prepare_dimension(buf, &prefix, *val, pss, psl, vss, vsl, flags TSRMLS_CC);
200 } else {
201 zval *cpy = php_http_ztyp(IS_STRING, *val);
202
203 shift_key(buf, prefix.data, prefix.used, pss, psl, flags TSRMLS_CC);
204 shift_val(buf, cpy, vss, vsl, flags TSRMLS_CC);
205 zval_ptr_dtor(&cpy);
206 }
207
208 php_http_buffer_cut(&prefix, keybuf->used, prefix.used - keybuf->used);
209 }
210 php_http_buffer_dtor(&prefix);
211 }
212 --ht->nApplyCount;
213 }
214
215 static inline void sanitize_key(unsigned flags, char *str, size_t len, zval *zv TSRMLS_DC)
216 {
217 zval_dtor(zv);
218 php_trim(str, len, NULL, 0, zv, 3 TSRMLS_CC);
219
220 if (flags & PHP_HTTP_PARAMS_DEFAULT) {
221 sanitize_default(zv TSRMLS_CC);
222 }
223
224 if (flags & PHP_HTTP_PARAMS_URLENCODED) {
225 sanitize_urlencoded(zv TSRMLS_CC);
226 }
227
228 if (flags & PHP_HTTP_PARAMS_DIMENSION) {
229 sanitize_dimension(zv TSRMLS_CC);
230 }
231 }
232
233 static inline void sanitize_value(unsigned flags, char *str, size_t len, zval *zv TSRMLS_DC)
234 {
235 zval_dtor(zv);
236 php_trim(str, len, NULL, 0, zv, 3 TSRMLS_CC);
237
238 if (flags & PHP_HTTP_PARAMS_DEFAULT) {
239 sanitize_default(zv TSRMLS_CC);
240 }
241
242 if (flags & PHP_HTTP_PARAMS_URLENCODED) {
243 sanitize_urlencoded(zv TSRMLS_CC);
244 }
245 }
246
247 static inline void prepare_key(unsigned flags, char *old_key, size_t old_len, char **new_key, size_t *new_len TSRMLS_DC)
248 {
249 zval zv;
250
251 INIT_PZVAL(&zv);
252 ZVAL_STRINGL(&zv, old_key, old_len, 1);
253
254 if (flags & PHP_HTTP_PARAMS_URLENCODED) {
255 prepare_urlencoded(&zv TSRMLS_CC);
256 }
257
258 if (flags & PHP_HTTP_PARAMS_DEFAULT) {
259 prepare_default(&zv TSRMLS_CC);
260 }
261
262 *new_key = Z_STRVAL(zv);
263 *new_len = Z_STRLEN(zv);
264 }
265
266 static inline void prepare_value(unsigned flags, zval *zv TSRMLS_DC)
267 {
268 if (flags & PHP_HTTP_PARAMS_URLENCODED) {
269 prepare_urlencoded(zv TSRMLS_CC);
270 }
271
272 if (flags & PHP_HTTP_PARAMS_DEFAULT) {
273 prepare_default(zv TSRMLS_CC);
274 }
275 }
276
277 static void merge_param(HashTable *params, zval *zdata, zval ***current_param, zval ***current_args TSRMLS_DC)
278 {
279 zval **ptr, **zdata_ptr;
280 php_http_array_hashkey_t hkey = php_http_array_hashkey_init(0);
281
282 #if 0
283 {
284 zval tmp;
285 INIT_PZVAL_ARRAY(&tmp, params);
286 fprintf(stderr, "params = ");
287 zend_print_zval_r(&tmp, 1 TSRMLS_CC);
288 fprintf(stderr, "\n");
289 }
290 #endif
291
292 hkey.type = zend_hash_get_current_key_ex(Z_ARRVAL_P(zdata), &hkey.str, &hkey.len, &hkey.num, hkey.dup, NULL);
293
294 if ((hkey.type == HASH_KEY_IS_STRING && !zend_hash_exists(params, hkey.str, hkey.len))
295 || (hkey.type == HASH_KEY_IS_LONG && !zend_hash_index_exists(params, hkey.num))
296 ) {
297 zval *tmp, *arg, **args;
298
299 /* create the entry if it doesn't exist */
300 zend_hash_get_current_data(Z_ARRVAL_P(zdata), (void *) &ptr);
301 Z_ADDREF_PP(ptr);
302 MAKE_STD_ZVAL(tmp);
303 array_init(tmp);
304 add_assoc_zval_ex(tmp, ZEND_STRS("value"), *ptr);
305
306 MAKE_STD_ZVAL(arg);
307 array_init(arg);
308 zend_hash_update(Z_ARRVAL_P(tmp), "arguments", sizeof("arguments"), (void *) &arg, sizeof(zval *), (void *) &args);
309 *current_args = args;
310
311 if (hkey.type == HASH_KEY_IS_STRING) {
312 zend_hash_update(params, hkey.str, hkey.len, (void *) &tmp, sizeof(zval *), (void *) &ptr);
313 } else {
314 zend_hash_index_update(params, hkey.num, (void *) &tmp, sizeof(zval *), (void *) &ptr);
315 }
316 } else {
317 /* merge */
318 if (hkey.type == HASH_KEY_IS_STRING) {
319 zend_hash_find(params, hkey.str, hkey.len, (void *) &ptr);
320 } else {
321 zend_hash_index_find(params, hkey.num, (void *) &ptr);
322 }
323
324 zdata_ptr = &zdata;
325
326 if (Z_TYPE_PP(ptr) == IS_ARRAY
327 && SUCCESS == zend_hash_find(Z_ARRVAL_PP(ptr), "value", sizeof("value"), (void *) &ptr)
328 && SUCCESS == zend_hash_get_current_data(Z_ARRVAL_PP(zdata_ptr), (void *) &zdata_ptr)
329 ) {
330 /*
331 * params = [arr => [value => [0 => 1]]]
332 * ^- ptr
333 * zdata = [arr => [0 => NULL]]
334 * ^- zdata_ptr
335 */
336 zval **test_ptr;
337
338 while (Z_TYPE_PP(zdata_ptr) == IS_ARRAY
339 && SUCCESS == zend_hash_get_current_data(Z_ARRVAL_PP(zdata_ptr), (void *) &test_ptr)
340 ) {
341 if (Z_TYPE_PP(test_ptr) == IS_ARRAY) {
342
343 /* now find key in ptr */
344 if (HASH_KEY_IS_STRING == zend_hash_get_current_key_ex(Z_ARRVAL_PP(zdata_ptr), &hkey.str, &hkey.len, &hkey.num, hkey.dup, NULL)) {
345 if (SUCCESS == zend_hash_find(Z_ARRVAL_PP(ptr), hkey.str, hkey.len, (void *) &ptr)) {
346 zdata_ptr = test_ptr;
347 } else {
348 Z_ADDREF_PP(test_ptr);
349 zend_hash_update(Z_ARRVAL_PP(ptr), hkey.str, hkey.len, (void *) test_ptr, sizeof(zval *), (void *) &ptr);
350 break;
351 }
352 } else {
353 if (SUCCESS == zend_hash_index_find(Z_ARRVAL_PP(ptr), hkey.num, (void *) &ptr)) {
354 zdata_ptr = test_ptr;
355 } else if (hkey.num) {
356 Z_ADDREF_PP(test_ptr);
357 zend_hash_index_update(Z_ARRVAL_PP(ptr), hkey.num, (void *) test_ptr, sizeof(zval *), (void *) &ptr);
358 break;
359 } else {
360 Z_ADDREF_PP(test_ptr);
361 zend_hash_next_index_insert(Z_ARRVAL_PP(ptr), (void *) test_ptr, sizeof(zval *), (void *) &ptr);
362 break;
363 }
364 }
365 } else {
366 /* this is the leaf */
367 Z_ADDREF_PP(test_ptr);
368 if (Z_TYPE_PP(ptr) != IS_ARRAY) {
369 zval_dtor(*ptr);
370 array_init(*ptr);
371 }
372 if (HASH_KEY_IS_STRING == zend_hash_get_current_key_ex(Z_ARRVAL_PP(zdata_ptr), &hkey.str, &hkey.len, &hkey.num, hkey.dup, NULL)) {
373 zend_hash_update(Z_ARRVAL_PP(ptr), hkey.str, hkey.len, (void *) test_ptr, sizeof(zval *), (void *) &ptr);
374 } else if (hkey.num) {
375 zend_hash_index_update(Z_ARRVAL_PP(ptr), hkey.num, (void *) test_ptr, sizeof(zval *), (void *) &ptr);
376 } else {
377 zend_hash_next_index_insert(Z_ARRVAL_PP(ptr), (void *) test_ptr, sizeof(zval *), (void *) &ptr);
378 }
379 break;
380 }
381 }
382
383 }
384 }
385
386 /* bubble up */
387 while (Z_TYPE_PP(ptr) == IS_ARRAY && SUCCESS == zend_hash_get_current_data(Z_ARRVAL_PP(ptr), (void *) &ptr));
388 *current_param = ptr;
389 }
390
391 static void push_param(HashTable *params, php_http_params_state_t *state, const php_http_params_opts_t *opts TSRMLS_DC)
392 {
393 if (state->val.str) {
394 if (0 < (state->val.len = state->input.str - state->val.str)) {
395 sanitize_value(opts->flags, state->val.str, state->val.len, *(state->current.val) TSRMLS_CC);
396 }
397 } else if (state->arg.str) {
398 if (0 < (state->arg.len = state->input.str - state->arg.str)) {
399 zval *val, key;
400
401 INIT_PZVAL(&key);
402 ZVAL_NULL(&key);
403 sanitize_key(opts->flags, state->arg.str, state->arg.len, &key TSRMLS_CC);
404 if (Z_TYPE(key) == IS_STRING && Z_STRLEN(key)) {
405 MAKE_STD_ZVAL(val);
406 ZVAL_TRUE(val);
407 zend_symtable_update(Z_ARRVAL_PP(state->current.args), Z_STRVAL(key), Z_STRLEN(key) + 1, (void *) &val, sizeof(zval *), (void *) &state->current.val);
408 }
409 zval_dtor(&key);
410 }
411 } else if (state->param.str) {
412 if (0 < (state->param.len = state->input.str - state->param.str)) {
413 zval *prm, *arg, *val, *key;
414
415 MAKE_STD_ZVAL(key);
416 ZVAL_NULL(key);
417 sanitize_key(opts->flags, state->param.str, state->param.len, key TSRMLS_CC);
418 if (Z_TYPE_P(key) != IS_STRING) {
419 merge_param(params, key, &state->current.val, &state->current.args TSRMLS_CC);
420 } else if (Z_STRLEN_P(key)) {
421 MAKE_STD_ZVAL(prm);
422 array_init(prm);
423
424 MAKE_STD_ZVAL(val);
425 if (opts->defval) {
426 ZVAL_COPY_VALUE(val, opts->defval);
427 zval_copy_ctor(val);
428 } else {
429 ZVAL_TRUE(val);
430 }
431 zend_hash_update(Z_ARRVAL_P(prm), "value", sizeof("value"), (void *) &val, sizeof(zval *), (void *) &state->current.val);
432
433 MAKE_STD_ZVAL(arg);
434 array_init(arg);
435 zend_hash_update(Z_ARRVAL_P(prm), "arguments", sizeof("arguments"), (void *) &arg, sizeof(zval *), (void *) &state->current.args);
436
437 zend_symtable_update(params, Z_STRVAL_P(key), Z_STRLEN_P(key) + 1, (void *) &prm, sizeof(zval *), (void *) &state->current.param);
438 }
439 zval_ptr_dtor(&key);
440 }
441 }
442 }
443
444 static inline zend_bool check_str(const char *chk_str, size_t chk_len, const char *sep_str, size_t sep_len) {
445 return 0 < sep_len && chk_len >= sep_len && !memcmp(chk_str, sep_str, sep_len);
446 }
447
448 static size_t check_sep(php_http_params_state_t *state, php_http_params_token_t **separators)
449 {
450 php_http_params_token_t **sep = separators;
451
452 if (state->quotes || state->escape) {
453 return 0;
454 }
455
456 if (sep) while (*sep) {
457 if (check_str(state->input.str, state->input.len, (*sep)->str, (*sep)->len)) {
458 return (*sep)->len;
459 }
460 ++sep;
461 }
462 return 0;
463 }
464
465 static void skip_sep(size_t skip, php_http_params_state_t *state, php_http_params_token_t **param, php_http_params_token_t **arg, php_http_params_token_t **val TSRMLS_DC)
466 {
467 size_t sep_len;
468
469 state->input.str += skip;
470 state->input.len -= skip;
471
472 while ( (param && (sep_len = check_sep(state, param)))
473 || (arg && (sep_len = check_sep(state, arg)))
474 || (val && (sep_len = check_sep(state, val)))
475 ) {
476 state->input.str += sep_len;
477 state->input.len -= sep_len;
478 }
479 }
480
481 PHP_HTTP_API HashTable *php_http_params_parse(HashTable *params, const php_http_params_opts_t *opts TSRMLS_DC)
482 {
483 php_http_params_state_t state = {{NULL,0}, {NULL,0}, {NULL,0}, {NULL,0}, {NULL,NULL,NULL}, 0, 0};
484
485 state.input.str = opts->input.str;
486 state.input.len = opts->input.len;
487
488 if (!params) {
489 ALLOC_HASHTABLE(params);
490 ZEND_INIT_SYMTABLE(params);
491 }
492
493 while (state.input.len) {
494 if (*state.input.str == '"' && !state.escape) {
495 state.quotes = !state.quotes;
496 } else {
497 state.escape = (*state.input.str == '\\');
498 }
499
500 if (!state.param.str) {
501 /* initialize */
502 skip_sep(0, &state, opts->param, opts->arg, opts->val TSRMLS_CC);
503 state.param.str = state.input.str;
504 } else {
505 size_t sep_len;
506 /* are we at a param separator? */
507 if (0 < (sep_len = check_sep(&state, opts->param))) {
508 push_param(params, &state, opts TSRMLS_CC);
509
510 skip_sep(sep_len, &state, opts->param, opts->arg, opts->val TSRMLS_CC);
511
512 /* start off with a new param */
513 state.param.str = state.input.str;
514 state.param.len = 0;
515 state.arg.str = NULL;
516 state.arg.len = 0;
517 state.val.str = NULL;
518 state.val.len = 0;
519
520 continue;
521
522 } else
523 /* are we at an arg separator? */
524 if (0 < (sep_len = check_sep(&state, opts->arg))) {
525 push_param(params, &state, opts TSRMLS_CC);
526
527 skip_sep(sep_len, &state, NULL, opts->arg, opts->val TSRMLS_CC);
528
529 /* continue with a new arg */
530 state.arg.str = state.input.str;
531 state.arg.len = 0;
532 state.val.str = NULL;
533 state.val.len = 0;
534
535 continue;
536
537 } else
538 /* are we at a val separator? */
539 if (0 < (sep_len = check_sep(&state, opts->val))) {
540 /* only handle separator if we're not already reading in a val */
541 if (!state.val.str) {
542 push_param(params, &state, opts TSRMLS_CC);
543
544 skip_sep(sep_len, &state, NULL, NULL, opts->val TSRMLS_CC);
545
546 state.val.str = state.input.str;
547 state.val.len = 0;
548
549 continue;
550 }
551 }
552 }
553
554 if (state.input.len) {
555 ++state.input.str;
556 --state.input.len;
557 }
558 }
559 /* finalize */
560 push_param(params, &state, opts TSRMLS_CC);
561
562 return params;
563 }
564
565 static inline void shift_key(php_http_buffer_t *buf, char *key_str, size_t key_len, const char *ass, size_t asl, unsigned flags TSRMLS_DC)
566 {
567 char *str;
568 size_t len;
569
570 if (buf->used) {
571 php_http_buffer_append(buf, ass, asl);
572 }
573
574 prepare_key(flags, key_str, key_len, &str, &len TSRMLS_CC);
575 php_http_buffer_append(buf, str, len);
576 efree(str);
577 }
578
579 static inline void shift_val(php_http_buffer_t *buf, zval *zvalue, const char *vss, size_t vsl, unsigned flags TSRMLS_DC)
580 {
581 if (Z_TYPE_P(zvalue) != IS_BOOL) {
582 zval *tmp = php_http_zsep(1, IS_STRING, zvalue);
583
584 prepare_value(flags, tmp TSRMLS_CC);
585 php_http_buffer_append(buf, vss, vsl);
586 php_http_buffer_append(buf, Z_STRVAL_P(tmp), Z_STRLEN_P(tmp));
587
588 zval_ptr_dtor(&tmp);
589 } else if (!Z_BVAL_P(zvalue)) {
590 php_http_buffer_append(buf, vss, vsl);
591 php_http_buffer_appends(buf, "0");
592 }
593 }
594
595 static void shift_arg(php_http_buffer_t *buf, char *key_str, size_t key_len, zval *zvalue, const char *ass, size_t asl, const char *vss, size_t vsl, unsigned flags TSRMLS_DC)
596 {
597 if (Z_TYPE_P(zvalue) == IS_ARRAY || Z_TYPE_P(zvalue) == IS_OBJECT) {
598 HashPosition pos;
599 php_http_array_hashkey_t key = php_http_array_hashkey_init(0);
600 zval **val;
601
602 shift_key(buf, key_str, key_len, ass, asl, flags TSRMLS_CC);
603 FOREACH_KEYVAL(pos, zvalue, key, val) {
604 /* did you mean recursion? */
605 php_http_array_hashkey_stringify(&key);
606 shift_arg(buf, key.str, key.len-1, *val, ass, asl, vss, vsl, flags TSRMLS_CC);
607 php_http_array_hashkey_stringfree(&key);
608 }
609 } else {
610 shift_key(buf, key_str, key_len, ass, asl, flags TSRMLS_CC);
611 shift_val(buf, zvalue, vss, vsl, flags TSRMLS_CC);
612 }
613 }
614
615 static void shift_param(php_http_buffer_t *buf, char *key_str, size_t key_len, zval *zvalue, const char *pss, size_t psl, const char *ass, size_t asl, const char *vss, size_t vsl, unsigned flags TSRMLS_DC)
616 {
617 if (Z_TYPE_P(zvalue) == IS_ARRAY || Z_TYPE_P(zvalue) == IS_OBJECT) {
618 /* treat as arguments, unless we care for dimensions */
619 if (flags & PHP_HTTP_PARAMS_DIMENSION) {
620 php_http_buffer_t *keybuf = php_http_buffer_from_string(key_str, key_len);
621 prepare_dimension(buf, keybuf, zvalue, pss, psl, vss, vsl, flags TSRMLS_CC);
622 php_http_buffer_free(&keybuf);
623 } else {
624 shift_arg(buf, key_str, key_len, zvalue, ass, asl, vss, vsl, flags TSRMLS_CC);
625 }
626 } else {
627 shift_key(buf, key_str, key_len, pss, psl, flags TSRMLS_CC);
628 shift_val(buf, zvalue, vss, vsl, flags TSRMLS_CC);
629 }
630 }
631
632 PHP_HTTP_API php_http_buffer_t *php_http_params_to_string(php_http_buffer_t *buf, HashTable *params, const char *pss, size_t psl, const char *ass, size_t asl, const char *vss, size_t vsl, unsigned flags TSRMLS_DC)
633 {
634 zval **zparam;
635 HashPosition pos, pos1;
636 php_http_array_hashkey_t key = php_http_array_hashkey_init(0), key1 = php_http_array_hashkey_init(0);
637
638 if (!buf) {
639 buf = php_http_buffer_init(NULL);
640 }
641
642 FOREACH_HASH_KEYVAL(pos, params, key, zparam) {
643 zval **zvalue, **zargs;
644
645 if (Z_TYPE_PP(zparam) != IS_ARRAY || SUCCESS != zend_hash_find(Z_ARRVAL_PP(zparam), ZEND_STRS("value"), (void *) &zvalue)) {
646 zvalue = zparam;
647 }
648
649 php_http_array_hashkey_stringify(&key);
650 shift_param(buf, key.str, key.len - 1, *zvalue, pss, psl, ass, asl, vss, vsl, flags TSRMLS_CC);
651 php_http_array_hashkey_stringfree(&key);
652
653 if (Z_TYPE_PP(zparam) == IS_ARRAY && SUCCESS != zend_hash_find(Z_ARRVAL_PP(zparam), ZEND_STRS("arguments"), (void *) &zvalue)) {
654 if (zvalue == zparam) {
655 continue;
656 }
657 zvalue = zparam;
658 }
659
660 if (Z_TYPE_PP(zvalue) == IS_ARRAY) {
661 FOREACH_KEYVAL(pos1, *zvalue, key1, zargs) {
662 if (zvalue == zparam && key1.type == HASH_KEY_IS_STRING && !strcmp(key1.str, "value")) {
663 continue;
664 }
665
666 php_http_array_hashkey_stringify(&key1);
667 shift_arg(buf, key1.str, key1.len - 1, *zargs, ass, asl, vss, vsl, flags TSRMLS_CC);
668 php_http_array_hashkey_stringfree(&key1);
669 }
670 }
671 }
672
673 php_http_buffer_shrink(buf);
674 php_http_buffer_fix(buf);
675
676 return buf;
677 }
678
679 PHP_HTTP_API php_http_params_token_t **php_http_params_separator_init(zval *zv TSRMLS_DC)
680 {
681 zval **sep;
682 HashPosition pos;
683 php_http_params_token_t **ret, **tmp;
684
685 if (!zv) {
686 return NULL;
687 }
688
689 zv = php_http_ztyp(IS_ARRAY, zv);
690 ret = ecalloc(zend_hash_num_elements(Z_ARRVAL_P(zv)) + 1, sizeof(*ret));
691
692 tmp = ret;
693 FOREACH_VAL(pos, zv, sep) {
694 zval *zt = php_http_ztyp(IS_STRING, *sep);
695
696 if (Z_STRLEN_P(zt)) {
697 *tmp = emalloc(sizeof(**tmp));
698 (*tmp)->str = estrndup(Z_STRVAL_P(zt), (*tmp)->len = Z_STRLEN_P(zt));
699 ++tmp;
700 }
701 zval_ptr_dtor(&zt);
702 }
703 zval_ptr_dtor(&zv);
704
705 *tmp = NULL;
706 return ret;
707 }
708
709 PHP_HTTP_API void php_http_params_separator_free(php_http_params_token_t **separator)
710 {
711 php_http_params_token_t **sep = separator;
712 if (sep) {
713 while (*sep) {
714 STR_FREE((*sep)->str);
715 efree(*sep);
716 ++sep;
717 }
718 efree(separator);
719 }
720 }
721
722 ZEND_BEGIN_ARG_INFO_EX(ai_HttpParams___construct, 0, 0, 0)
723 ZEND_ARG_INFO(0, params)
724 ZEND_ARG_INFO(0, param_sep)
725 ZEND_ARG_INFO(0, arg_sep)
726 ZEND_ARG_INFO(0, val_sep)
727 ZEND_ARG_INFO(0, flags)
728 ZEND_END_ARG_INFO();
729 PHP_METHOD(HttpParams, __construct)
730 {
731 with_error_handling(EH_THROW, php_http_exception_class_entry) {
732 zval *zcopy, *zparams = NULL, *param_sep = NULL, *arg_sep = NULL, *val_sep = NULL;
733 long flags = PHP_HTTP_PARAMS_DEFAULT;
734
735 if (SUCCESS == zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "|z!/z/z/z/l", &zparams, &param_sep, &arg_sep, &val_sep, &flags)) {
736 switch (ZEND_NUM_ARGS()) {
737 case 5:
738 zend_update_property_long(php_http_params_class_entry, getThis(), ZEND_STRL("flags"), flags TSRMLS_CC);
739 /* no break */
740 case 4:
741 zend_update_property(php_http_params_class_entry, getThis(), ZEND_STRL("val_sep"), val_sep TSRMLS_CC);
742 /* no break */
743 case 3:
744 zend_update_property(php_http_params_class_entry, getThis(), ZEND_STRL("arg_sep"), arg_sep TSRMLS_CC);
745 /* no break */
746 case 2:
747 zend_update_property(php_http_params_class_entry, getThis(), ZEND_STRL("param_sep"), param_sep TSRMLS_CC);
748 /* no break */
749 }
750
751 if (zparams) {
752 switch (Z_TYPE_P(zparams)) {
753 case IS_OBJECT:
754 case IS_ARRAY:
755 zcopy = php_http_zsep(1, IS_ARRAY, zparams);
756 zend_update_property(php_http_params_class_entry, getThis(), ZEND_STRL("params"), zcopy TSRMLS_CC);
757 zval_ptr_dtor(&zcopy);
758 break;
759 default:
760 zcopy = php_http_ztyp(IS_STRING, zparams);
761 if (Z_STRLEN_P(zcopy)) {
762 php_http_params_opts_t opts = {
763 {Z_STRVAL_P(zcopy), Z_STRLEN_P(zcopy)},
764 php_http_params_separator_init(zend_read_property(php_http_params_class_entry, getThis(), ZEND_STRL("param_sep"), 0 TSRMLS_CC) TSRMLS_CC),
765 php_http_params_separator_init(zend_read_property(php_http_params_class_entry, getThis(), ZEND_STRL("arg_sep"), 0 TSRMLS_CC) TSRMLS_CC),
766 php_http_params_separator_init(zend_read_property(php_http_params_class_entry, getThis(), ZEND_STRL("val_sep"), 0 TSRMLS_CC) TSRMLS_CC),
767 NULL, flags
768 };
769
770 MAKE_STD_ZVAL(zparams);
771 array_init(zparams);
772 php_http_params_parse(Z_ARRVAL_P(zparams), &opts TSRMLS_CC);
773 zend_update_property(php_http_params_class_entry, getThis(), ZEND_STRL("params"), zparams TSRMLS_CC);
774 zval_ptr_dtor(&zparams);
775
776 php_http_params_separator_free(opts.param);
777 php_http_params_separator_free(opts.arg);
778 php_http_params_separator_free(opts.val);
779 }
780 zval_ptr_dtor(&zcopy);
781 break;
782 }
783 } else {
784 MAKE_STD_ZVAL(zparams);
785 array_init(zparams);
786 zend_update_property(php_http_params_class_entry, getThis(), ZEND_STRL("params"), zparams TSRMLS_CC);
787 zval_ptr_dtor(&zparams);
788 }
789 }
790 } end_error_handling();
791 }
792
793 ZEND_BEGIN_ARG_INFO_EX(ai_HttpParams_toArray, 0, 0, 0)
794 ZEND_END_ARG_INFO();
795 PHP_METHOD(HttpParams, toArray)
796 {
797 zval *zparams;
798
799 if (SUCCESS != zend_parse_parameters_none()) {
800 return;
801 }
802 zparams = zend_read_property(php_http_params_class_entry, getThis(), ZEND_STRL("params"), 0 TSRMLS_CC);
803 RETURN_ZVAL(zparams, 1, 0);
804 }
805
806 ZEND_BEGIN_ARG_INFO_EX(ai_HttpParams_toString, 0, 0, 0)
807 ZEND_END_ARG_INFO();
808 PHP_METHOD(HttpParams, toString)
809 {
810 zval **tmp, *zparams, *zpsep, *zasep, *zvsep, *zflags;
811 php_http_buffer_t buf;
812
813 zparams = php_http_zsep(1, IS_ARRAY, zend_read_property(php_http_params_class_entry, getThis(), ZEND_STRL("params"), 0 TSRMLS_CC));
814 zflags = php_http_ztyp(IS_LONG, zend_read_property(php_http_params_class_entry, getThis(), ZEND_STRL("flags"), 0 TSRMLS_CC));
815
816 zpsep = zend_read_property(php_http_params_class_entry, getThis(), ZEND_STRL("param_sep"), 0 TSRMLS_CC);
817 if (Z_TYPE_P(zpsep) == IS_ARRAY && SUCCESS == zend_hash_get_current_data(Z_ARRVAL_P(zpsep), (void *) &tmp)) {
818 zpsep = php_http_ztyp(IS_STRING, *tmp);
819 } else {
820 zpsep = php_http_ztyp(IS_STRING, zpsep);
821 }
822 zasep = zend_read_property(php_http_params_class_entry, getThis(), ZEND_STRL("arg_sep"), 0 TSRMLS_CC);
823 if (Z_TYPE_P(zasep) == IS_ARRAY && SUCCESS == zend_hash_get_current_data(Z_ARRVAL_P(zasep), (void *) &tmp)) {
824 zasep = php_http_ztyp(IS_STRING, *tmp);
825 } else {
826 zasep = php_http_ztyp(IS_STRING, zasep);
827 }
828 zvsep = zend_read_property(php_http_params_class_entry, getThis(), ZEND_STRL("val_sep"), 0 TSRMLS_CC);
829 if (Z_TYPE_P(zvsep) == IS_ARRAY && SUCCESS == zend_hash_get_current_data(Z_ARRVAL_P(zvsep), (void *) &tmp)) {
830 zvsep = php_http_ztyp(IS_STRING, *tmp);
831 } else {
832 zvsep = php_http_ztyp(IS_STRING, zvsep);
833 }
834
835 php_http_buffer_init(&buf);
836 php_http_params_to_string(&buf, Z_ARRVAL_P(zparams), Z_STRVAL_P(zpsep), Z_STRLEN_P(zpsep), Z_STRVAL_P(zasep), Z_STRLEN_P(zasep), Z_STRVAL_P(zvsep), Z_STRLEN_P(zvsep), Z_LVAL_P(zflags) TSRMLS_CC);
837
838 zval_ptr_dtor(&zparams);
839 zval_ptr_dtor(&zpsep);
840 zval_ptr_dtor(&zasep);
841 zval_ptr_dtor(&zvsep);
842 zval_ptr_dtor(&zflags);
843
844 RETVAL_PHP_HTTP_BUFFER_VAL(&buf);
845 }
846
847 ZEND_BEGIN_ARG_INFO_EX(ai_HttpParams_offsetExists, 0, 0, 1)
848 ZEND_ARG_INFO(0, name)
849 ZEND_END_ARG_INFO();
850 PHP_METHOD(HttpParams, offsetExists)
851 {
852 char *name_str;
853 int name_len;
854
855 if (SUCCESS == zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "s", &name_str, &name_len)) {
856 zval **zparam, *zparams = php_http_ztyp(IS_ARRAY, zend_read_property(php_http_params_class_entry, getThis(), ZEND_STRL("params"), 0 TSRMLS_CC));
857
858 if (SUCCESS == zend_symtable_find(Z_ARRVAL_P(zparams), name_str, name_len + 1, (void *) &zparam)) {
859 RETVAL_BOOL(Z_TYPE_PP(zparam) != IS_NULL);
860 } else {
861 RETVAL_FALSE;
862 }
863 zval_ptr_dtor(&zparams);
864 }
865 }
866
867 ZEND_BEGIN_ARG_INFO_EX(ai_HttpParams_offsetGet, 0, 0, 1)
868 ZEND_ARG_INFO(0, name)
869 ZEND_END_ARG_INFO();
870 PHP_METHOD(HttpParams, offsetGet)
871 {
872 char *name_str;
873 int name_len;
874
875 if (SUCCESS == zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "s", &name_str, &name_len)) {
876 zval **zparam, *zparams = php_http_ztyp(IS_ARRAY, zend_read_property(php_http_params_class_entry, getThis(), ZEND_STRL("params"), 0 TSRMLS_CC));
877
878 if (SUCCESS == zend_symtable_find(Z_ARRVAL_P(zparams), name_str, name_len + 1, (void *) &zparam)) {
879 RETVAL_ZVAL(*zparam, 1, 0);
880 }
881
882 zval_ptr_dtor(&zparams);
883 }
884 }
885
886 ZEND_BEGIN_ARG_INFO_EX(ai_HttpParams_offsetUnset, 0, 0, 1)
887 ZEND_ARG_INFO(0, name)
888 ZEND_END_ARG_INFO();
889 PHP_METHOD(HttpParams, offsetUnset)
890 {
891 char *name_str;
892 int name_len;
893
894 if (SUCCESS == zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "s", &name_str, &name_len)) {
895 zval *zparams = php_http_zsep(1, IS_ARRAY, zend_read_property(php_http_params_class_entry, getThis(), ZEND_STRL("params"), 0 TSRMLS_CC));
896
897 zend_symtable_del(Z_ARRVAL_P(zparams), name_str, name_len + 1);
898 zend_update_property(php_http_params_class_entry, getThis(), ZEND_STRL("params"), zparams TSRMLS_CC);
899
900 zval_ptr_dtor(&zparams);
901 }
902 }
903
904 ZEND_BEGIN_ARG_INFO_EX(ai_HttpParams_offsetSet, 0, 0, 2)
905 ZEND_ARG_INFO(0, name)
906 ZEND_ARG_INFO(0, value)
907 ZEND_END_ARG_INFO();
908 PHP_METHOD(HttpParams, offsetSet)
909 {
910 zval *nvalue;
911 char *name_str;
912 int name_len;
913
914 if (SUCCESS == zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "sz", &name_str, &name_len, &nvalue)) {
915 zval **zparam, *zparams = php_http_zsep(1, IS_ARRAY, zend_read_property(php_http_params_class_entry, getThis(), ZEND_STRL("params"), 0 TSRMLS_CC));
916
917 if (name_len) {
918 if (Z_TYPE_P(nvalue) == IS_ARRAY) {
919 zval *new_zparam;
920
921 if (SUCCESS == zend_symtable_find(Z_ARRVAL_P(zparams), name_str, name_len + 1, (void *) &zparam)) {
922 new_zparam = php_http_zsep(1, IS_ARRAY, *zparam);
923 array_join(Z_ARRVAL_P(nvalue), Z_ARRVAL_P(new_zparam), 0, 0);
924 } else {
925 new_zparam = nvalue;
926 Z_ADDREF_P(new_zparam);
927 }
928 add_assoc_zval_ex(zparams, name_str, name_len + 1, new_zparam);
929 } else {
930 zval *tmp;
931
932 if (SUCCESS == zend_symtable_find(Z_ARRVAL_P(zparams), name_str, name_len + 1, (void *) &zparam)) {
933 tmp = php_http_zsep(1, IS_ARRAY, *zparam);
934 } else {
935 MAKE_STD_ZVAL(tmp);
936 array_init(tmp);
937 }
938
939 Z_ADDREF_P(nvalue);
940 add_assoc_zval_ex(tmp, ZEND_STRS("value"), nvalue);
941 add_assoc_zval_ex(zparams, name_str, name_len + 1, tmp);
942 }
943 } else {
944 zval *tmp = php_http_ztyp(IS_STRING, nvalue), *arr;
945
946 MAKE_STD_ZVAL(arr);
947 array_init(arr);
948 add_assoc_bool_ex(arr, ZEND_STRS("value"), 1);
949 add_assoc_zval_ex(zparams, Z_STRVAL_P(tmp), Z_STRLEN_P(tmp) + 1, arr);
950 zval_ptr_dtor(&tmp);
951 }
952
953 zend_update_property(php_http_params_class_entry, getThis(), ZEND_STRL("params"), zparams TSRMLS_CC);
954 zval_ptr_dtor(&zparams);
955 }
956 }
957
958 static zend_function_entry php_http_params_methods[] = {
959 PHP_ME(HttpParams, __construct, ai_HttpParams___construct, ZEND_ACC_PUBLIC|ZEND_ACC_CTOR|ZEND_ACC_FINAL)
960
961 PHP_ME(HttpParams, toArray, ai_HttpParams_toArray, ZEND_ACC_PUBLIC)
962 PHP_ME(HttpParams, toString, ai_HttpParams_toString, ZEND_ACC_PUBLIC)
963 ZEND_MALIAS(HttpParams, __toString, toString, ai_HttpParams_toString, ZEND_ACC_PUBLIC)
964
965 PHP_ME(HttpParams, offsetExists, ai_HttpParams_offsetExists, ZEND_ACC_PUBLIC)
966 PHP_ME(HttpParams, offsetUnset, ai_HttpParams_offsetUnset, ZEND_ACC_PUBLIC)
967 PHP_ME(HttpParams, offsetSet, ai_HttpParams_offsetSet, ZEND_ACC_PUBLIC)
968 PHP_ME(HttpParams, offsetGet, ai_HttpParams_offsetGet, ZEND_ACC_PUBLIC)
969
970 EMPTY_FUNCTION_ENTRY
971 };
972
973 zend_class_entry *php_http_params_class_entry;
974
975 PHP_MINIT_FUNCTION(http_params)
976 {
977 zend_class_entry ce = {0};
978
979 INIT_NS_CLASS_ENTRY(ce, "http", "Params", php_http_params_methods);
980 php_http_params_class_entry = zend_register_internal_class_ex(&ce, php_http_object_class_entry, NULL TSRMLS_CC);
981 zend_class_implements(php_http_params_class_entry TSRMLS_CC, 1, zend_ce_arrayaccess);
982
983 zend_declare_class_constant_stringl(php_http_params_class_entry, ZEND_STRL("DEF_PARAM_SEP"), ZEND_STRL(",") TSRMLS_CC);
984 zend_declare_class_constant_stringl(php_http_params_class_entry, ZEND_STRL("DEF_ARG_SEP"), ZEND_STRL(";") TSRMLS_CC);
985 zend_declare_class_constant_stringl(php_http_params_class_entry, ZEND_STRL("DEF_VAL_SEP"), ZEND_STRL("=") TSRMLS_CC);
986 zend_declare_class_constant_stringl(php_http_params_class_entry, ZEND_STRL("COOKIE_PARAM_SEP"), ZEND_STRL("") TSRMLS_CC);
987
988 zend_declare_class_constant_long(php_http_params_class_entry, ZEND_STRL("PARSE_RAW"), PHP_HTTP_PARAMS_RAW TSRMLS_CC);
989 zend_declare_class_constant_long(php_http_params_class_entry, ZEND_STRL("PARSE_DEFAULT"), PHP_HTTP_PARAMS_DEFAULT TSRMLS_CC);
990 zend_declare_class_constant_long(php_http_params_class_entry, ZEND_STRL("PARSE_URLENCODED"), PHP_HTTP_PARAMS_URLENCODED TSRMLS_CC);
991 zend_declare_class_constant_long(php_http_params_class_entry, ZEND_STRL("PARSE_DIMENSION"), PHP_HTTP_PARAMS_DIMENSION TSRMLS_CC);
992 zend_declare_class_constant_long(php_http_params_class_entry, ZEND_STRL("PARSE_QUERY"), PHP_HTTP_PARAMS_QUERY TSRMLS_CC);
993
994 zend_declare_property_null(php_http_params_class_entry, ZEND_STRL("params"), ZEND_ACC_PUBLIC TSRMLS_CC);
995 zend_declare_property_stringl(php_http_params_class_entry, ZEND_STRL("param_sep"), ZEND_STRL(","), ZEND_ACC_PUBLIC TSRMLS_CC);
996 zend_declare_property_stringl(php_http_params_class_entry, ZEND_STRL("arg_sep"), ZEND_STRL(";"), ZEND_ACC_PUBLIC TSRMLS_CC);
997 zend_declare_property_stringl(php_http_params_class_entry, ZEND_STRL("val_sep"), ZEND_STRL("="), ZEND_ACC_PUBLIC TSRMLS_CC);
998 zend_declare_property_long(php_http_params_class_entry, ZEND_STRL("flags"), PHP_HTTP_PARAMS_DEFAULT, ZEND_ACC_PUBLIC TSRMLS_CC);
999
1000 return SUCCESS;
1001 }
1002
1003 /*
1004 * Local variables:
1005 * tab-width: 4
1006 * c-basic-offset: 4
1007 * End:
1008 * vim600: noet sw=4 ts=4 fdm=marker
1009 * vim<600: noet sw=4 ts=4
1010 */
1011
Extended HTTP Support