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