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