projects / m6w6 / ext-http / blob
? search:


c0071ac430aa690e934898e922d83fae62268c07
[m6w6/ext-http] / src / 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_escaped(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_stripcslashes(Z_STRVAL_P(zv), &Z_STRLEN_P(zv));
64 }
65
66 static inline void quote_string(zval *zv, zend_bool force TSRMLS_DC)
67 {
68 int len = Z_STRLEN_P(zv);
69
70 Z_STRVAL_P(zv) = php_addcslashes(Z_STRVAL_P(zv), Z_STRLEN_P(zv), &Z_STRLEN_P(zv), 1,
71 ZEND_STRL("\0..\37\173\\\"") TSRMLS_CC);
72
73 if (force || len != Z_STRLEN_P(zv) || strpbrk(Z_STRVAL_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 }
87
88 static inline void prepare_escaped(zval *zv TSRMLS_DC)
89 {
90 if (Z_TYPE_P(zv) == IS_STRING) {
91 quote_string(zv, 0 TSRMLS_CC);
92 } else {
93 zval_dtor(zv);
94 ZVAL_EMPTY_STRING(zv);
95 }
96 }
97
98 static inline void sanitize_urlencoded(zval *zv TSRMLS_DC)
99 {
100 Z_STRLEN_P(zv) = php_raw_url_decode(Z_STRVAL_P(zv), Z_STRLEN_P(zv));
101 }
102
103 static inline void prepare_urlencoded(zval *zv TSRMLS_DC)
104 {
105 int len;
106 char *str = php_raw_url_encode(Z_STRVAL_P(zv), Z_STRLEN_P(zv), &len);
107
108 zval_dtor(zv);
109 ZVAL_STRINGL(zv, str, len, 0);
110 }
111
112 static void sanitize_dimension(zval *zv TSRMLS_DC)
113 {
114 zval *arr = NULL, *tmp = NULL, **cur = NULL;
115 char *var = NULL, *ptr = Z_STRVAL_P(zv), *end = Z_STRVAL_P(zv) + Z_STRLEN_P(zv);
116 long level = 0;
117
118 MAKE_STD_ZVAL(arr);
119 array_init(arr);
120 cur = &arr;
121
122 while (ptr < end) {
123 if (!var) {
124 var = ptr;
125 }
126
127 switch (*ptr) {
128 case '[':
129 if (++level > PG(max_input_nesting_level)) {
130 zval_ptr_dtor(&arr);
131 php_error_docref(NULL TSRMLS_CC, E_WARNING, "Max input nesting level of %ld exceeded", (long) PG(max_input_nesting_level));
132 return;
133 }
134 if (ptr - var == 0) {
135 ++var;
136 break;
137 }
138 /* no break */
139
140 case ']':
141
142 MAKE_STD_ZVAL(tmp);
143 ZVAL_NULL(tmp);
144 convert_to_array(*cur);
145
146 if (ptr - var) {
147 char chr = *ptr;
148 *ptr = '\0';
149 zend_symtable_update(Z_ARRVAL_PP(cur), var, ptr - var + 1, (void *) &tmp, sizeof(zval *), (void *) &cur);
150 *ptr = chr;
151 } else {
152 zend_hash_next_index_insert(Z_ARRVAL_PP(cur), (void *) &tmp, sizeof(zval *), (void *) &cur);
153 }
154
155 var = NULL;
156 break;
157 }
158
159 ++ptr;
160 }
161
162 if (zend_hash_num_elements(Z_ARRVAL_P(arr))) {
163 zval_dtor(zv);
164 #if PHP_VERSION_ID >= 50400
165 ZVAL_COPY_VALUE(zv, arr);
166 #else
167 zv->value = arr->value;
168 Z_TYPE_P(zv) = Z_TYPE_P(arr);
169 #endif
170 FREE_ZVAL(arr);
171 } else {
172 zval_ptr_dtor(&arr);
173 }
174 }
175
176 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);
177 static inline void shift_val(php_http_buffer_t *buf, zval *zvalue, const char *vss, size_t vsl, unsigned flags TSRMLS_DC);
178
179 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)
180 {
181 HashTable *ht = HASH_OF(zvalue);
182 HashPosition pos;
183 php_http_array_hashkey_t key = php_http_array_hashkey_init(0);
184 zval **val;
185 php_http_buffer_t prefix;
186
187 if (!ht->nApplyCount++) {
188 php_http_buffer_init(&prefix);
189 php_http_buffer_append(&prefix, keybuf->data, keybuf->used);
190
191 FOREACH_HASH_KEYVAL(pos, ht, key, val) {
192 if (key.type == HASH_KEY_IS_STRING && !*key.str) {
193 /* only public properties */
194 continue;
195 }
196
197 php_http_buffer_appends(&prefix, "[");
198 if (key.type == HASH_KEY_IS_STRING) {
199 php_http_buffer_append(&prefix, key.str, key.len - 1);
200 } else {
201 php_http_buffer_appendf(&prefix, "%lu", key.num);
202 }
203 php_http_buffer_appends(&prefix, "]");
204
205 if (Z_TYPE_PP(val) == IS_ARRAY || Z_TYPE_PP(val) == IS_OBJECT) {
206 prepare_dimension(buf, &prefix, *val, pss, psl, vss, vsl, flags TSRMLS_CC);
207 } else {
208 zval *cpy = php_http_ztyp(IS_STRING, *val);
209
210 shift_key(buf, prefix.data, prefix.used, pss, psl, flags TSRMLS_CC);
211 shift_val(buf, cpy, vss, vsl, flags TSRMLS_CC);
212 zval_ptr_dtor(&cpy);
213 }
214
215 php_http_buffer_cut(&prefix, keybuf->used, prefix.used - keybuf->used);
216 }
217 php_http_buffer_dtor(&prefix);
218 }
219 --ht->nApplyCount;
220 }
221
222 static inline void sanitize_key(unsigned flags, char *str, size_t len, zval *zv, zend_bool *rfc5987 TSRMLS_DC)
223 {
224 char *eos;
225
226 zval_dtor(zv);
227 php_trim(str, len, NULL, 0, zv, 3 TSRMLS_CC);
228
229 if (flags & PHP_HTTP_PARAMS_ESCAPED) {
230 sanitize_escaped(zv TSRMLS_CC);
231 }
232
233 if (!Z_STRLEN_P(zv)) {
234 return;
235 }
236
237 if (flags & PHP_HTTP_PARAMS_RFC5987) {
238 eos = &Z_STRVAL_P(zv)[Z_STRLEN_P(zv)-1];
239 if (*eos == '*') {
240 *eos = '\0';
241 *rfc5987 = 1;
242 Z_STRLEN_P(zv) -= 1;
243 }
244 }
245
246 if (flags & PHP_HTTP_PARAMS_URLENCODED) {
247 sanitize_urlencoded(zv TSRMLS_CC);
248 }
249
250 if (flags & PHP_HTTP_PARAMS_DIMENSION) {
251 sanitize_dimension(zv TSRMLS_CC);
252 }
253 }
254
255 static inline void sanitize_rfc5987(zval *zv, char **language, zend_bool *latin1 TSRMLS_DC)
256 {
257 char *ptr;
258
259 /* examples:
260 * iso-8850-1'de'bl%f6der%20schei%df%21
261 * utf-8'de-DE'bl%c3%b6der%20schei%c3%9f%21
262 */
263
264 switch (Z_STRVAL_P(zv)[0]) {
265 case 'I':
266 case 'i':
267 if (!strncasecmp(Z_STRVAL_P(zv), "iso-8859-1", lenof("iso-8859-1"))) {
268 *latin1 = 1;
269 ptr = Z_STRVAL_P(zv) + lenof("iso-8859-1");
270 break;
271 }
272 /* no break */
273 case 'U':
274 case 'u':
275 if (!strncasecmp(Z_STRVAL_P(zv), "utf-8", lenof("utf-8"))) {
276 *latin1 = 0;
277 ptr = Z_STRVAL_P(zv) + lenof("utf-8");
278 break;
279 }
280 /* no break */
281 default:
282 return;
283 }
284
285 /* extract language */
286 if (*ptr == '\'') {
287 for (*language = ++ptr; *ptr && *ptr != '\''; ++ptr);
288 if (!*ptr) {
289 *language = NULL;
290 return;
291 }
292 *language = estrndup(*language, ptr - *language);
293
294 /* remainder */
295 ptr = estrdup(++ptr);
296 zval_dtor(zv);
297 ZVAL_STRING(zv, ptr, 0);
298 }
299 }
300
301 static inline void sanitize_rfc5988(char *str, size_t len, zval *zv TSRMLS_DC)
302 {
303 zval_dtor(zv);
304 php_trim(str, len, " ><", 3, zv, 3 TSRMLS_CC);
305 }
306
307 static inline void prepare_rfc5988(zval *zv TSRMLS_DC)
308 {
309 if (Z_TYPE_P(zv) != IS_STRING) {
310 zval_dtor(zv);
311 ZVAL_EMPTY_STRING(zv);
312 }
313 }
314
315 static void utf8encode(zval *zv)
316 {
317 size_t pos, len = 0;
318 unsigned char *ptr = (unsigned char *) Z_STRVAL_P(zv);
319
320 while (*ptr) {
321 if (*ptr++ >= 0x80) {
322 ++len;
323 }
324 ++len;
325 }
326
327 ptr = safe_emalloc(1, len, 1);
328 for (len = 0, pos = 0; len <= Z_STRLEN_P(zv); ++len, ++pos) {
329 ptr[pos] = Z_STRVAL_P(zv)[len];
330 if ((ptr[pos]) >= 0x80) {
331 ptr[pos + 1] = 0x80 | (ptr[pos] & 0x3f);
332 ptr[pos] = 0xc0 | ((ptr[pos] >> 6) & 0x1f);
333 ++pos;
334 }
335 }
336 zval_dtor(zv);
337 ZVAL_STRINGL(zv, (char *) ptr, pos-1, 0);
338 }
339
340 static inline void sanitize_value(unsigned flags, char *str, size_t len, zval *zv, zend_bool rfc5987 TSRMLS_DC)
341 {
342 char *language = NULL;
343 zend_bool latin1 = 0;
344
345 zval_dtor(zv);
346 php_trim(str, len, NULL, 0, zv, 3 TSRMLS_CC);
347
348 if (rfc5987) {
349 sanitize_rfc5987(zv, &language, &latin1 TSRMLS_CC);
350 }
351
352 if (flags & PHP_HTTP_PARAMS_ESCAPED) {
353 sanitize_escaped(zv TSRMLS_CC);
354 }
355
356 if ((flags & PHP_HTTP_PARAMS_URLENCODED) || (rfc5987 && language)) {
357 sanitize_urlencoded(zv TSRMLS_CC);
358 }
359
360 if (rfc5987 && language) {
361 zval *tmp;
362
363 if (latin1) {
364 utf8encode(zv);
365 }
366
367 MAKE_STD_ZVAL(tmp);
368 ZVAL_COPY_VALUE(tmp, zv);
369 array_init(zv);
370 add_assoc_zval(zv, language, tmp);
371 PTR_FREE(language);
372 }
373 }
374
375 static inline void prepare_key(unsigned flags, char *old_key, size_t old_len, char **new_key, size_t *new_len TSRMLS_DC)
376 {
377 zval zv;
378
379 INIT_PZVAL(&zv);
380 ZVAL_STRINGL(&zv, old_key, old_len, 1);
381
382 if (flags & PHP_HTTP_PARAMS_URLENCODED) {
383 prepare_urlencoded(&zv TSRMLS_CC);
384 }
385
386 if (flags & PHP_HTTP_PARAMS_ESCAPED) {
387 if (flags & PHP_HTTP_PARAMS_RFC5988) {
388 prepare_rfc5988(&zv TSRMLS_CC);
389 } else {
390 prepare_escaped(&zv TSRMLS_CC);
391 }
392 }
393
394 *new_key = Z_STRVAL(zv);
395 *new_len = Z_STRLEN(zv);
396 }
397
398 static inline void prepare_value(unsigned flags, zval *zv TSRMLS_DC)
399 {
400 if (flags & PHP_HTTP_PARAMS_URLENCODED) {
401 prepare_urlencoded(zv TSRMLS_CC);
402 }
403
404 if (flags & PHP_HTTP_PARAMS_ESCAPED) {
405 prepare_escaped(zv TSRMLS_CC);
406 }
407 }
408
409 static void merge_param(HashTable *params, zval *zdata, zval ***current_param, zval ***current_args TSRMLS_DC)
410 {
411 zval **ptr, **zdata_ptr;
412 php_http_array_hashkey_t hkey = php_http_array_hashkey_init(0);
413
414 #if 0
415 {
416 zval tmp;
417 INIT_PZVAL_ARRAY(&tmp, params);
418 fprintf(stderr, "params = ");
419 zend_print_zval_r(&tmp, 1 TSRMLS_CC);
420 fprintf(stderr, "\n");
421 }
422 #endif
423
424 hkey.type = zend_hash_get_current_key_ex(Z_ARRVAL_P(zdata), &hkey.str, &hkey.len, &hkey.num, hkey.dup, NULL);
425
426 if ((hkey.type == HASH_KEY_IS_STRING && !zend_hash_exists(params, hkey.str, hkey.len))
427 || (hkey.type == HASH_KEY_IS_LONG && !zend_hash_index_exists(params, hkey.num))
428 ) {
429 zval *tmp, *arg, **args;
430
431 /* create the entry if it doesn't exist */
432 zend_hash_get_current_data(Z_ARRVAL_P(zdata), (void *) &ptr);
433 Z_ADDREF_PP(ptr);
434 MAKE_STD_ZVAL(tmp);
435 array_init(tmp);
436 add_assoc_zval_ex(tmp, ZEND_STRS("value"), *ptr);
437
438 MAKE_STD_ZVAL(arg);
439 array_init(arg);
440 zend_hash_update(Z_ARRVAL_P(tmp), "arguments", sizeof("arguments"), (void *) &arg, sizeof(zval *), (void *) &args);
441 *current_args = args;
442
443 if (hkey.type == HASH_KEY_IS_STRING) {
444 zend_hash_update(params, hkey.str, hkey.len, (void *) &tmp, sizeof(zval *), (void *) &ptr);
445 } else {
446 zend_hash_index_update(params, hkey.num, (void *) &tmp, sizeof(zval *), (void *) &ptr);
447 }
448 } else {
449 /* merge */
450 if (hkey.type == HASH_KEY_IS_STRING) {
451 zend_hash_find(params, hkey.str, hkey.len, (void *) &ptr);
452 } else {
453 zend_hash_index_find(params, hkey.num, (void *) &ptr);
454 }
455
456 zdata_ptr = &zdata;
457
458 if (Z_TYPE_PP(ptr) == IS_ARRAY
459 && SUCCESS == zend_hash_find(Z_ARRVAL_PP(ptr), "value", sizeof("value"), (void *) &ptr)
460 && SUCCESS == zend_hash_get_current_data(Z_ARRVAL_PP(zdata_ptr), (void *) &zdata_ptr)
461 ) {
462 /*
463 * params = [arr => [value => [0 => 1]]]
464 * ^- ptr
465 * zdata = [arr => [0 => NULL]]
466 * ^- zdata_ptr
467 */
468 zval **test_ptr;
469
470 while (Z_TYPE_PP(zdata_ptr) == IS_ARRAY
471 && SUCCESS == zend_hash_get_current_data(Z_ARRVAL_PP(zdata_ptr), (void *) &test_ptr)
472 ) {
473 if (Z_TYPE_PP(test_ptr) == IS_ARRAY) {
474
475 /* now find key in ptr */
476 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)) {
477 if (SUCCESS == zend_hash_find(Z_ARRVAL_PP(ptr), hkey.str, hkey.len, (void *) &ptr)) {
478 zdata_ptr = test_ptr;
479 } else {
480 Z_ADDREF_PP(test_ptr);
481 zend_hash_update(Z_ARRVAL_PP(ptr), hkey.str, hkey.len, (void *) test_ptr, sizeof(zval *), (void *) &ptr);
482 break;
483 }
484 } else {
485 if (SUCCESS == zend_hash_index_find(Z_ARRVAL_PP(ptr), hkey.num, (void *) &ptr)) {
486 zdata_ptr = test_ptr;
487 } else if (hkey.num) {
488 Z_ADDREF_PP(test_ptr);
489 zend_hash_index_update(Z_ARRVAL_PP(ptr), hkey.num, (void *) test_ptr, sizeof(zval *), (void *) &ptr);
490 break;
491 } else {
492 Z_ADDREF_PP(test_ptr);
493 zend_hash_next_index_insert(Z_ARRVAL_PP(ptr), (void *) test_ptr, sizeof(zval *), (void *) &ptr);
494 break;
495 }
496 }
497 } else {
498 /* this is the leaf */
499 Z_ADDREF_PP(test_ptr);
500 if (Z_TYPE_PP(ptr) != IS_ARRAY) {
501 zval_dtor(*ptr);
502 array_init(*ptr);
503 }
504 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)) {
505 zend_hash_update(Z_ARRVAL_PP(ptr), hkey.str, hkey.len, (void *) test_ptr, sizeof(zval *), (void *) &ptr);
506 } else if (hkey.num) {
507 zend_hash_index_update(Z_ARRVAL_PP(ptr), hkey.num, (void *) test_ptr, sizeof(zval *), (void *) &ptr);
508 } else {
509 zend_hash_next_index_insert(Z_ARRVAL_PP(ptr), (void *) test_ptr, sizeof(zval *), (void *) &ptr);
510 }
511 break;
512 }
513 }
514
515 }
516 }
517
518 /* bubble up */
519 while (Z_TYPE_PP(ptr) == IS_ARRAY && SUCCESS == zend_hash_get_current_data(Z_ARRVAL_PP(ptr), (void *) &ptr));
520 *current_param = ptr;
521 }
522
523 static void push_param(HashTable *params, php_http_params_state_t *state, const php_http_params_opts_t *opts TSRMLS_DC)
524 {
525 if (!state->current.val) {
526 return;
527 }
528
529 if (state->val.str) {
530 if (0 < (state->val.len = state->input.str - state->val.str)) {
531 sanitize_value(opts->flags, state->val.str, state->val.len, *(state->current.val), state->rfc5987 TSRMLS_CC);
532 } else {
533 ZVAL_EMPTY_STRING(*(state->current.val));
534 }
535 state->rfc5987 = 0;
536 } else if (state->arg.str) {
537 if (0 < (state->arg.len = state->input.str - state->arg.str)) {
538 zval *val, key;
539 zend_bool rfc5987 = 0;
540
541 INIT_PZVAL(&key);
542 ZVAL_NULL(&key);
543 sanitize_key(opts->flags, state->arg.str, state->arg.len, &key, &rfc5987 TSRMLS_CC);
544 state->rfc5987 = rfc5987;
545 if (Z_TYPE(key) == IS_STRING && Z_STRLEN(key)) {
546 MAKE_STD_ZVAL(val);
547 ZVAL_TRUE(val);
548
549 if (rfc5987) {
550 zval **rfc;
551
552 if (SUCCESS == zend_hash_find(Z_ARRVAL_PP(state->current.args), ZEND_STRS("*rfc5987*"), (void *) &rfc)) {
553 zend_symtable_update(Z_ARRVAL_PP(rfc), Z_STRVAL(key), Z_STRLEN(key) + 1, (void *) &val, sizeof(zval *), (void *) &state->current.val);
554 } else {
555 zval *tmp;
556
557 MAKE_STD_ZVAL(tmp);
558 array_init_size(tmp, 1);
559 zend_symtable_update(Z_ARRVAL_P(tmp), Z_STRVAL(key), Z_STRLEN(key) + 1, (void *) &val, sizeof(zval *), (void *) &state->current.val);
560 zend_symtable_update(Z_ARRVAL_PP(state->current.args), ZEND_STRS("*rfc5987*"), (void *) &tmp, sizeof(zval *), NULL);
561 }
562 } else {
563 zend_symtable_update(Z_ARRVAL_PP(state->current.args), Z_STRVAL(key), Z_STRLEN(key) + 1, (void *) &val, sizeof(zval *), (void *) &state->current.val);
564 }
565 }
566 zval_dtor(&key);
567 }
568 } else if (state->param.str) {
569 if (0 < (state->param.len = state->input.str - state->param.str)) {
570 zval *prm, *arg, *val, *key;
571 zend_bool rfc5987 = 0;
572
573 MAKE_STD_ZVAL(key);
574 ZVAL_NULL(key);
575 if (opts->flags & PHP_HTTP_PARAMS_RFC5988) {
576 sanitize_rfc5988(state->param.str, state->param.len, key TSRMLS_CC);
577 } else {
578 sanitize_key(opts->flags, state->param.str, state->param.len, key, &rfc5987 TSRMLS_CC);
579 state->rfc5987 = rfc5987;
580 }
581 if (Z_TYPE_P(key) != IS_STRING) {
582 merge_param(params, key, &state->current.val, &state->current.args TSRMLS_CC);
583 } else if (Z_STRLEN_P(key)) {
584 MAKE_STD_ZVAL(prm);
585 array_init_size(prm, 2);
586
587 MAKE_STD_ZVAL(val);
588 if (opts->defval) {
589 ZVAL_COPY_VALUE(val, opts->defval);
590 zval_copy_ctor(val);
591 } else {
592 ZVAL_TRUE(val);
593 }
594 if (rfc5987 && (opts->flags & PHP_HTTP_PARAMS_RFC5987)) {
595 zend_hash_update(Z_ARRVAL_P(prm), "*rfc5987*", sizeof("*rfc5987*"), (void *) &val, sizeof(zval *), (void *) &state->current.val);
596 } else {
597 zend_hash_update(Z_ARRVAL_P(prm), "value", sizeof("value"), (void *) &val, sizeof(zval *), (void *) &state->current.val);
598 }
599
600 MAKE_STD_ZVAL(arg);
601 array_init_size(arg, 3);
602 zend_hash_update(Z_ARRVAL_P(prm), "arguments", sizeof("arguments"), (void *) &arg, sizeof(zval *), (void *) &state->current.args);
603
604 zend_symtable_update(params, Z_STRVAL_P(key), Z_STRLEN_P(key) + 1, (void *) &prm, sizeof(zval *), (void *) &state->current.param);
605 }
606 zval_ptr_dtor(&key);
607 }
608 }
609 }
610
611 static inline zend_bool check_str(const char *chk_str, size_t chk_len, const char *sep_str, size_t sep_len) {
612 return 0 < sep_len && chk_len >= sep_len && *chk_str == *sep_str && !memcmp(chk_str + 1, sep_str + 1, sep_len - 1);
613 }
614
615 static size_t check_sep(php_http_params_state_t *state, php_http_params_token_t **separators)
616 {
617 php_http_params_token_t **sep = separators;
618
619 if (state->quotes || state->escape) {
620 return 0;
621 }
622
623 if (sep) while (*sep) {
624 if (check_str(state->input.str, state->input.len, (*sep)->str, (*sep)->len)) {
625 return (*sep)->len;
626 }
627 ++sep;
628 }
629 return 0;
630 }
631
632 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)
633 {
634 size_t sep_len;
635
636 state->input.str += skip;
637 state->input.len -= skip;
638
639 while ( (param && (sep_len = check_sep(state, param)))
640 || (arg && (sep_len = check_sep(state, arg)))
641 || (val && (sep_len = check_sep(state, val)))
642 ) {
643 state->input.str += sep_len;
644 state->input.len -= sep_len;
645 }
646 }
647
648 HashTable *php_http_params_parse(HashTable *params, const php_http_params_opts_t *opts TSRMLS_DC)
649 {
650 php_http_params_state_t state = {{NULL,0}, {NULL,0}, {NULL,0}, {NULL,0}, {NULL,NULL,NULL}, 0, 0};
651
652 state.input.str = opts->input.str;
653 state.input.len = opts->input.len;
654
655 if (!params) {
656 ALLOC_HASHTABLE(params);
657 ZEND_INIT_SYMTABLE(params);
658 }
659
660 while (state.input.len) {
661 if ((opts->flags & PHP_HTTP_PARAMS_RFC5988) && !state.arg.str) {
662 if (*state.input.str == '<') {
663 state.quotes = 1;
664 } else if (*state.input.str == '>') {
665 state.quotes = 0;
666 }
667 } else if (*state.input.str == '"' && !state.escape) {
668 state.quotes = !state.quotes;
669 } else {
670 state.escape = (*state.input.str == '\\');
671 }
672
673 if (!state.param.str) {
674 /* initialize */
675 skip_sep(0, &state, opts->param, opts->arg, opts->val TSRMLS_CC);
676 state.param.str = state.input.str;
677 } else {
678 size_t sep_len;
679 /* are we at a param separator? */
680 if (0 < (sep_len = check_sep(&state, opts->param))) {
681 push_param(params, &state, opts TSRMLS_CC);
682
683 skip_sep(sep_len, &state, opts->param, opts->arg, opts->val TSRMLS_CC);
684
685 /* start off with a new param */
686 state.param.str = state.input.str;
687 state.param.len = 0;
688 state.arg.str = NULL;
689 state.arg.len = 0;
690 state.val.str = NULL;
691 state.val.len = 0;
692
693 continue;
694
695 } else
696 /* are we at an arg separator? */
697 if (0 < (sep_len = check_sep(&state, opts->arg))) {
698 push_param(params, &state, opts TSRMLS_CC);
699
700 skip_sep(sep_len, &state, NULL, opts->arg, opts->val TSRMLS_CC);
701
702 /* continue with a new arg */
703 state.arg.str = state.input.str;
704 state.arg.len = 0;
705 state.val.str = NULL;
706 state.val.len = 0;
707
708 continue;
709
710 } else
711 /* are we at a val separator? */
712 if (0 < (sep_len = check_sep(&state, opts->val))) {
713 /* only handle separator if we're not already reading in a val */
714 if (!state.val.str) {
715 push_param(params, &state, opts TSRMLS_CC);
716
717 skip_sep(sep_len, &state, NULL, NULL, opts->val TSRMLS_CC);
718
719 state.val.str = state.input.str;
720 state.val.len = 0;
721
722 continue;
723 }
724 }
725 }
726
727 if (state.input.len) {
728 ++state.input.str;
729 --state.input.len;
730 }
731 }
732 /* finalize */
733 push_param(params, &state, opts TSRMLS_CC);
734
735 return params;
736 }
737
738 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)
739 {
740 char *str;
741 size_t len;
742
743 if (buf->used) {
744 php_http_buffer_append(buf, ass, asl);
745 }
746
747 prepare_key(flags, key_str, key_len, &str, &len TSRMLS_CC);
748 php_http_buffer_append(buf, str, len);
749 efree(str);
750 }
751
752 static inline void shift_rfc5987(php_http_buffer_t *buf, zval *zvalue, const char *vss, size_t vsl, unsigned flags TSRMLS_DC)
753 {
754 HashTable *ht = HASH_OF(zvalue);
755 zval **zdata, *tmp;
756 php_http_array_hashkey_t key = php_http_array_hashkey_init(0);
757
758 if (SUCCESS == zend_hash_get_current_data(ht, (void *) &zdata)
759 && HASH_KEY_NON_EXISTENT != (key.type = zend_hash_get_current_key_ex(ht, &key.str, &key.len, &key.num, key.dup, NULL))
760 ) {
761 php_http_array_hashkey_stringify(&key);
762 php_http_buffer_appendf(buf, "*%.*sutf-8'%.*s'",
763 (int) (vsl > INT_MAX ? INT_MAX : vsl), vss,
764 (int) (key.len > INT_MAX ? INT_MAX : key.len), key.str);
765 php_http_array_hashkey_stringfree(&key);
766
767 tmp = php_http_zsep(1, IS_STRING, *zdata);
768 prepare_value(flags | PHP_HTTP_PARAMS_URLENCODED, tmp TSRMLS_CC);
769 php_http_buffer_append(buf, Z_STRVAL_P(tmp), Z_STRLEN_P(tmp));
770 zval_ptr_dtor(&tmp);
771 }
772 }
773
774 static inline void shift_rfc5988(php_http_buffer_t *buf, char *key_str, size_t key_len, const char *ass, size_t asl, unsigned flags TSRMLS_DC)
775 {
776 char *str;
777 size_t len;
778
779 if (buf->used) {
780 php_http_buffer_append(buf, ass, asl);
781 }
782
783 prepare_key(flags, key_str, key_len, &str, &len TSRMLS_CC);
784 php_http_buffer_appends(buf, "<");
785 php_http_buffer_append(buf, str, len);
786 php_http_buffer_appends(buf, ">");
787 efree(str);
788 }
789
790 static inline void shift_rfc5988_val(php_http_buffer_t *buf, zval *zv, const char *vss, size_t vsl, unsigned flags TSRMLS_DC)
791 {
792 zval *tmp = php_http_zsep(1, IS_STRING, zv);
793
794 quote_string(tmp, 1 TSRMLS_CC);
795 php_http_buffer_append(buf, vss, vsl);
796 php_http_buffer_append(buf, Z_STRVAL_P(tmp), Z_STRLEN_P(tmp));
797
798 zval_ptr_dtor(&tmp);
799 }
800
801 static inline void shift_val(php_http_buffer_t *buf, zval *zvalue, const char *vss, size_t vsl, unsigned flags TSRMLS_DC)
802 {
803 if (Z_TYPE_P(zvalue) != IS_BOOL) {
804 zval *tmp = php_http_zsep(1, IS_STRING, zvalue);
805
806 prepare_value(flags, tmp TSRMLS_CC);
807 php_http_buffer_append(buf, vss, vsl);
808 php_http_buffer_append(buf, Z_STRVAL_P(tmp), Z_STRLEN_P(tmp));
809
810 zval_ptr_dtor(&tmp);
811 } else if (!Z_BVAL_P(zvalue)) {
812 php_http_buffer_append(buf, vss, vsl);
813 php_http_buffer_appends(buf, "0");
814 }
815 }
816
817 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)
818 {
819 if (Z_TYPE_P(zvalue) == IS_ARRAY || Z_TYPE_P(zvalue) == IS_OBJECT) {
820 HashPosition pos;
821 php_http_array_hashkey_t key = php_http_array_hashkey_init(0);
822 zval **val;
823 zend_bool rfc5987 = !strcmp(key_str, "*rfc5987*");
824
825 if (!rfc5987) {
826 shift_key(buf, key_str, key_len, ass, asl, flags TSRMLS_CC);
827 }
828 FOREACH_KEYVAL(pos, zvalue, key, val) {
829 /* did you mean recursion? */
830 php_http_array_hashkey_stringify(&key);
831 if (rfc5987 && (Z_TYPE_PP(val) == IS_ARRAY || Z_TYPE_PP(val) == IS_OBJECT)) {
832 shift_key(buf, key.str, key.len-1, ass, asl, flags TSRMLS_CC);
833 shift_rfc5987(buf, *val, vss, vsl, flags TSRMLS_CC);
834 } else {
835 shift_arg(buf, key.str, key.len-1, *val, ass, asl, vss, vsl, flags TSRMLS_CC);
836 }
837 php_http_array_hashkey_stringfree(&key);
838 }
839 } else {
840 shift_key(buf, key_str, key_len, ass, asl, flags TSRMLS_CC);
841
842 if (flags & PHP_HTTP_PARAMS_RFC5988) {
843 switch (key_len) {
844 case lenof("rel"):
845 case lenof("title"):
846 case lenof("anchor"):
847 /* some args must be quoted */
848 if (0 <= php_http_select_str(key_str, 3, "rel", "title", "anchor")) {
849 shift_rfc5988_val(buf, zvalue, vss, vsl, flags TSRMLS_CC);
850 return;
851 }
852 break;
853 }
854 }
855
856 shift_val(buf, zvalue, vss, vsl, flags TSRMLS_CC);
857 }
858 }
859
860 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, zend_bool rfc5987 TSRMLS_DC)
861 {
862 if (Z_TYPE_P(zvalue) == IS_ARRAY || Z_TYPE_P(zvalue) == IS_OBJECT) {
863 /* treat as arguments, unless we care for dimensions or rfc5987 */
864 if (flags & PHP_HTTP_PARAMS_DIMENSION) {
865 php_http_buffer_t *keybuf = php_http_buffer_from_string(key_str, key_len);
866 prepare_dimension(buf, keybuf, zvalue, pss, psl, vss, vsl, flags TSRMLS_CC);
867 php_http_buffer_free(&keybuf);
868 } else if (rfc5987) {
869 shift_key(buf, key_str, key_len, pss, psl, flags TSRMLS_CC);
870 shift_rfc5987(buf, zvalue, vss, vsl, flags TSRMLS_CC);
871 } else {
872 shift_arg(buf, key_str, key_len, zvalue, ass, asl, vss, vsl, flags TSRMLS_CC);
873 }
874 } else {
875 if (flags & PHP_HTTP_PARAMS_RFC5988) {
876 shift_rfc5988(buf, key_str, key_len, pss, psl, flags TSRMLS_CC);
877 } else {
878 shift_key(buf, key_str, key_len, pss, psl, flags TSRMLS_CC);
879 }
880 shift_val(buf, zvalue, vss, vsl, flags TSRMLS_CC);
881 }
882 }
883
884 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)
885 {
886 zval **zparam;
887 HashPosition pos, pos1;
888 php_http_array_hashkey_t key = php_http_array_hashkey_init(0), key1 = php_http_array_hashkey_init(0);
889 zend_bool rfc5987 = 0;
890
891 if (!buf) {
892 buf = php_http_buffer_init(NULL);
893 }
894
895 FOREACH_HASH_KEYVAL(pos, params, key, zparam) {
896 zval **zvalue, **zargs;
897
898 if (Z_TYPE_PP(zparam) != IS_ARRAY) {
899 zvalue = zparam;
900 } else {
901 if (SUCCESS != zend_hash_find(Z_ARRVAL_PP(zparam), ZEND_STRS("value"), (void *) &zvalue)) {
902 if (SUCCESS != zend_hash_find(Z_ARRVAL_PP(zparam), ZEND_STRS("*rfc5987*"), (void *) &zvalue)) {
903 zvalue = zparam;
904 } else {
905 rfc5987 = 1;
906 }
907 }
908 }
909
910 php_http_array_hashkey_stringify(&key);
911 shift_param(buf, key.str, key.len - 1, *zvalue, pss, psl, ass, asl, vss, vsl, flags, rfc5987 TSRMLS_CC);
912 php_http_array_hashkey_stringfree(&key);
913
914 if (Z_TYPE_PP(zparam) == IS_ARRAY && SUCCESS != zend_hash_find(Z_ARRVAL_PP(zparam), ZEND_STRS("arguments"), (void *) &zvalue)) {
915 if (zvalue == zparam) {
916 continue;
917 }
918 zvalue = zparam;
919 }
920
921 if (Z_TYPE_PP(zvalue) == IS_ARRAY) {
922 FOREACH_KEYVAL(pos1, *zvalue, key1, zargs) {
923 if (zvalue == zparam && key1.type == HASH_KEY_IS_STRING && !strcmp(key1.str, "value")) {
924 continue;
925 }
926
927 php_http_array_hashkey_stringify(&key1);
928 shift_arg(buf, key1.str, key1.len - 1, *zargs, ass, asl, vss, vsl, flags TSRMLS_CC);
929 php_http_array_hashkey_stringfree(&key1);
930 }
931 }
932 }
933
934 php_http_buffer_shrink(buf);
935 php_http_buffer_fix(buf);
936
937 return buf;
938 }
939
940 php_http_params_token_t **php_http_params_separator_init(zval *zv TSRMLS_DC)
941 {
942 zval **sep;
943 HashPosition pos;
944 php_http_params_token_t **ret, **tmp;
945
946 if (!zv) {
947 return NULL;
948 }
949
950 zv = php_http_ztyp(IS_ARRAY, zv);
951 ret = ecalloc(zend_hash_num_elements(Z_ARRVAL_P(zv)) + 1, sizeof(*ret));
952
953 tmp = ret;
954 FOREACH_VAL(pos, zv, sep) {
955 zval *zt = php_http_ztyp(IS_STRING, *sep);
956
957 if (Z_STRLEN_P(zt)) {
958 *tmp = emalloc(sizeof(**tmp));
959 (*tmp)->str = estrndup(Z_STRVAL_P(zt), (*tmp)->len = Z_STRLEN_P(zt));
960 ++tmp;
961 }
962 zval_ptr_dtor(&zt);
963 }
964 zval_ptr_dtor(&zv);
965
966 *tmp = NULL;
967 return ret;
968 }
969
970 void php_http_params_separator_free(php_http_params_token_t **separator)
971 {
972 php_http_params_token_t **sep = separator;
973 if (sep) {
974 while (*sep) {
975 PTR_FREE((*sep)->str);
976 efree(*sep);
977 ++sep;
978 }
979 efree(separator);
980 }
981 }
982
983 ZEND_BEGIN_ARG_INFO_EX(ai_HttpParams___construct, 0, 0, 0)
984 ZEND_ARG_INFO(0, params)
985 ZEND_ARG_INFO(0, param_sep)
986 ZEND_ARG_INFO(0, arg_sep)
987 ZEND_ARG_INFO(0, val_sep)
988 ZEND_ARG_INFO(0, flags)
989 ZEND_END_ARG_INFO();
990 PHP_METHOD(HttpParams, __construct)
991 {
992 zval *zcopy, *zparams = NULL, *param_sep = NULL, *arg_sep = NULL, *val_sep = NULL;
993 long flags = PHP_HTTP_PARAMS_DEFAULT;
994 zend_error_handling zeh;
995
996 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);
997
998 zend_replace_error_handling(EH_THROW, php_http_exception_runtime_class_entry, &zeh TSRMLS_CC);
999 {
1000 switch (ZEND_NUM_ARGS()) {
1001 case 5:
1002 zend_update_property_long(php_http_params_class_entry, getThis(), ZEND_STRL("flags"), flags TSRMLS_CC);
1003 /* no break */
1004 case 4:
1005 zend_update_property(php_http_params_class_entry, getThis(), ZEND_STRL("val_sep"), val_sep TSRMLS_CC);
1006 /* no break */
1007 case 3:
1008 zend_update_property(php_http_params_class_entry, getThis(), ZEND_STRL("arg_sep"), arg_sep TSRMLS_CC);
1009 /* no break */
1010 case 2:
1011 zend_update_property(php_http_params_class_entry, getThis(), ZEND_STRL("param_sep"), param_sep TSRMLS_CC);
1012 /* no break */
1013 }
1014
1015 if (zparams) {
1016 switch (Z_TYPE_P(zparams)) {
1017 case IS_OBJECT:
1018 case IS_ARRAY:
1019 zcopy = php_http_zsep(1, IS_ARRAY, zparams);
1020 zend_update_property(php_http_params_class_entry, getThis(), ZEND_STRL("params"), zcopy TSRMLS_CC);
1021 zval_ptr_dtor(&zcopy);
1022 break;
1023 default:
1024 zcopy = php_http_ztyp(IS_STRING, zparams);
1025 if (Z_STRLEN_P(zcopy)) {
1026 php_http_params_opts_t opts = {
1027 {Z_STRVAL_P(zcopy), Z_STRLEN_P(zcopy)},
1028 php_http_params_separator_init(zend_read_property(php_http_params_class_entry, getThis(), ZEND_STRL("param_sep"), 0 TSRMLS_CC) TSRMLS_CC),
1029 php_http_params_separator_init(zend_read_property(php_http_params_class_entry, getThis(), ZEND_STRL("arg_sep"), 0 TSRMLS_CC) TSRMLS_CC),
1030 php_http_params_separator_init(zend_read_property(php_http_params_class_entry, getThis(), ZEND_STRL("val_sep"), 0 TSRMLS_CC) TSRMLS_CC),
1031 NULL, flags
1032 };
1033
1034 MAKE_STD_ZVAL(zparams);
1035 array_init(zparams);
1036 php_http_params_parse(Z_ARRVAL_P(zparams), &opts TSRMLS_CC);
1037 zend_update_property(php_http_params_class_entry, getThis(), ZEND_STRL("params"), zparams TSRMLS_CC);
1038 zval_ptr_dtor(&zparams);
1039
1040 php_http_params_separator_free(opts.param);
1041 php_http_params_separator_free(opts.arg);
1042 php_http_params_separator_free(opts.val);
1043 }
1044 zval_ptr_dtor(&zcopy);
1045 break;
1046 }
1047 } else {
1048 MAKE_STD_ZVAL(zparams);
1049 array_init(zparams);
1050 zend_update_property(php_http_params_class_entry, getThis(), ZEND_STRL("params"), zparams TSRMLS_CC);
1051 zval_ptr_dtor(&zparams);
1052 }
1053 }
1054 zend_restore_error_handling(&zeh TSRMLS_CC);
1055 }
1056
1057 ZEND_BEGIN_ARG_INFO_EX(ai_HttpParams_toArray, 0, 0, 0)
1058 ZEND_END_ARG_INFO();
1059 PHP_METHOD(HttpParams, toArray)
1060 {
1061 zval *zparams;
1062
1063 if (SUCCESS != zend_parse_parameters_none()) {
1064 return;
1065 }
1066 zparams = zend_read_property(php_http_params_class_entry, getThis(), ZEND_STRL("params"), 0 TSRMLS_CC);
1067 RETURN_ZVAL(zparams, 1, 0);
1068 }
1069
1070 ZEND_BEGIN_ARG_INFO_EX(ai_HttpParams_toString, 0, 0, 0)
1071 ZEND_END_ARG_INFO();
1072 PHP_METHOD(HttpParams, toString)
1073 {
1074 zval **tmp, *zparams, *zpsep, *zasep, *zvsep, *zflags;
1075 php_http_buffer_t buf;
1076
1077 zparams = php_http_zsep(1, IS_ARRAY, zend_read_property(php_http_params_class_entry, getThis(), ZEND_STRL("params"), 0 TSRMLS_CC));
1078 zflags = php_http_ztyp(IS_LONG, zend_read_property(php_http_params_class_entry, getThis(), ZEND_STRL("flags"), 0 TSRMLS_CC));
1079
1080 zpsep = zend_read_property(php_http_params_class_entry, getThis(), ZEND_STRL("param_sep"), 0 TSRMLS_CC);
1081 if (Z_TYPE_P(zpsep) == IS_ARRAY && SUCCESS == zend_hash_get_current_data(Z_ARRVAL_P(zpsep), (void *) &tmp)) {
1082 zpsep = php_http_ztyp(IS_STRING, *tmp);
1083 } else {
1084 zpsep = php_http_ztyp(IS_STRING, zpsep);
1085 }
1086 zasep = zend_read_property(php_http_params_class_entry, getThis(), ZEND_STRL("arg_sep"), 0 TSRMLS_CC);
1087 if (Z_TYPE_P(zasep) == IS_ARRAY && SUCCESS == zend_hash_get_current_data(Z_ARRVAL_P(zasep), (void *) &tmp)) {
1088 zasep = php_http_ztyp(IS_STRING, *tmp);
1089 } else {
1090 zasep = php_http_ztyp(IS_STRING, zasep);
1091 }
1092 zvsep = zend_read_property(php_http_params_class_entry, getThis(), ZEND_STRL("val_sep"), 0 TSRMLS_CC);
1093 if (Z_TYPE_P(zvsep) == IS_ARRAY && SUCCESS == zend_hash_get_current_data(Z_ARRVAL_P(zvsep), (void *) &tmp)) {
1094 zvsep = php_http_ztyp(IS_STRING, *tmp);
1095 } else {
1096 zvsep = php_http_ztyp(IS_STRING, zvsep);
1097 }
1098
1099 php_http_buffer_init(&buf);
1100 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);
1101
1102 zval_ptr_dtor(&zparams);
1103 zval_ptr_dtor(&zpsep);
1104 zval_ptr_dtor(&zasep);
1105 zval_ptr_dtor(&zvsep);
1106 zval_ptr_dtor(&zflags);
1107
1108 RETVAL_PHP_HTTP_BUFFER_VAL(&buf);
1109 }
1110
1111 ZEND_BEGIN_ARG_INFO_EX(ai_HttpParams_offsetExists, 0, 0, 1)
1112 ZEND_ARG_INFO(0, name)
1113 ZEND_END_ARG_INFO();
1114 PHP_METHOD(HttpParams, offsetExists)
1115 {
1116 char *name_str;
1117 int name_len;
1118 zval **zparam, *zparams;
1119
1120 if (SUCCESS != zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "s", &name_str, &name_len)) {
1121 return;
1122 }
1123
1124 zparams = php_http_ztyp(IS_ARRAY, zend_read_property(php_http_params_class_entry, getThis(), ZEND_STRL("params"), 0 TSRMLS_CC));
1125
1126 if (SUCCESS == zend_symtable_find(Z_ARRVAL_P(zparams), name_str, name_len + 1, (void *) &zparam)) {
1127 RETVAL_BOOL(Z_TYPE_PP(zparam) != IS_NULL);
1128 } else {
1129 RETVAL_FALSE;
1130 }
1131 zval_ptr_dtor(&zparams);
1132 }
1133
1134 ZEND_BEGIN_ARG_INFO_EX(ai_HttpParams_offsetGet, 0, 0, 1)
1135 ZEND_ARG_INFO(0, name)
1136 ZEND_END_ARG_INFO();
1137 PHP_METHOD(HttpParams, offsetGet)
1138 {
1139 char *name_str;
1140 int name_len;
1141 zval **zparam, *zparams;
1142
1143 if (SUCCESS != zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "s", &name_str, &name_len)) {
1144 return;
1145 }
1146
1147 zparams = php_http_ztyp(IS_ARRAY, zend_read_property(php_http_params_class_entry, getThis(), ZEND_STRL("params"), 0 TSRMLS_CC));
1148
1149 if (SUCCESS == zend_symtable_find(Z_ARRVAL_P(zparams), name_str, name_len + 1, (void *) &zparam)) {
1150 RETVAL_ZVAL(*zparam, 1, 0);
1151 }
1152
1153 zval_ptr_dtor(&zparams);
1154 }
1155
1156 ZEND_BEGIN_ARG_INFO_EX(ai_HttpParams_offsetUnset, 0, 0, 1)
1157 ZEND_ARG_INFO(0, name)
1158 ZEND_END_ARG_INFO();
1159 PHP_METHOD(HttpParams, offsetUnset)
1160 {
1161 char *name_str;
1162 int name_len;
1163 zval *zparams;
1164
1165 if (SUCCESS != zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "s", &name_str, &name_len)) {
1166 return;
1167 }
1168
1169 zparams = php_http_zsep(1, IS_ARRAY, zend_read_property(php_http_params_class_entry, getThis(), ZEND_STRL("params"), 0 TSRMLS_CC));
1170
1171 zend_symtable_del(Z_ARRVAL_P(zparams), name_str, name_len + 1);
1172 zend_update_property(php_http_params_class_entry, getThis(), ZEND_STRL("params"), zparams TSRMLS_CC);
1173
1174 zval_ptr_dtor(&zparams);
1175 }
1176
1177 ZEND_BEGIN_ARG_INFO_EX(ai_HttpParams_offsetSet, 0, 0, 2)
1178 ZEND_ARG_INFO(0, name)
1179 ZEND_ARG_INFO(0, value)
1180 ZEND_END_ARG_INFO();
1181 PHP_METHOD(HttpParams, offsetSet)
1182 {
1183 zval *nvalue;
1184 char *name_str;
1185 int name_len;
1186 zval **zparam, *zparams;
1187
1188 if (SUCCESS != zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "sz", &name_str, &name_len, &nvalue)) {
1189 return;
1190 }
1191
1192 zparams = php_http_zsep(1, IS_ARRAY, zend_read_property(php_http_params_class_entry, getThis(), ZEND_STRL("params"), 0 TSRMLS_CC));
1193
1194 if (name_len) {
1195 if (Z_TYPE_P(nvalue) == IS_ARRAY) {
1196 zval *new_zparam;
1197
1198 if (SUCCESS == zend_symtable_find(Z_ARRVAL_P(zparams), name_str, name_len + 1, (void *) &zparam)) {
1199 new_zparam = php_http_zsep(1, IS_ARRAY, *zparam);
1200 array_join(Z_ARRVAL_P(nvalue), Z_ARRVAL_P(new_zparam), 0, 0);
1201 } else {
1202 new_zparam = nvalue;
1203 Z_ADDREF_P(new_zparam);
1204 }
1205 add_assoc_zval_ex(zparams, name_str, name_len + 1, new_zparam);
1206 } else {
1207 zval *tmp;
1208
1209 if (SUCCESS == zend_symtable_find(Z_ARRVAL_P(zparams), name_str, name_len + 1, (void *) &zparam)) {
1210 tmp = php_http_zsep(1, IS_ARRAY, *zparam);
1211 } else {
1212 MAKE_STD_ZVAL(tmp);
1213 array_init(tmp);
1214 }
1215
1216 Z_ADDREF_P(nvalue);
1217 add_assoc_zval_ex(tmp, ZEND_STRS("value"), nvalue);
1218 add_assoc_zval_ex(zparams, name_str, name_len + 1, tmp);
1219 }
1220 } else {
1221 zval *tmp = php_http_ztyp(IS_STRING, nvalue), *arr;
1222
1223 MAKE_STD_ZVAL(arr);
1224 array_init(arr);
1225 add_assoc_bool_ex(arr, ZEND_STRS("value"), 1);
1226 add_assoc_zval_ex(zparams, Z_STRVAL_P(tmp), Z_STRLEN_P(tmp) + 1, arr);
1227 zval_ptr_dtor(&tmp);
1228 }
1229
1230 zend_update_property(php_http_params_class_entry, getThis(), ZEND_STRL("params"), zparams TSRMLS_CC);
1231 zval_ptr_dtor(&zparams);
1232 }
1233
1234 static zend_function_entry php_http_params_methods[] = {
1235 PHP_ME(HttpParams, __construct, ai_HttpParams___construct, ZEND_ACC_PUBLIC|ZEND_ACC_CTOR|ZEND_ACC_FINAL)
1236
1237 PHP_ME(HttpParams, toArray, ai_HttpParams_toArray, ZEND_ACC_PUBLIC)
1238 PHP_ME(HttpParams, toString, ai_HttpParams_toString, ZEND_ACC_PUBLIC)
1239 ZEND_MALIAS(HttpParams, __toString, toString, ai_HttpParams_toString, ZEND_ACC_PUBLIC)
1240
1241 PHP_ME(HttpParams, offsetExists, ai_HttpParams_offsetExists, ZEND_ACC_PUBLIC)
1242 PHP_ME(HttpParams, offsetUnset, ai_HttpParams_offsetUnset, ZEND_ACC_PUBLIC)
1243 PHP_ME(HttpParams, offsetSet, ai_HttpParams_offsetSet, ZEND_ACC_PUBLIC)
1244 PHP_ME(HttpParams, offsetGet, ai_HttpParams_offsetGet, ZEND_ACC_PUBLIC)
1245
1246 EMPTY_FUNCTION_ENTRY
1247 };
1248
1249 zend_class_entry *php_http_params_class_entry;
1250
1251 PHP_MINIT_FUNCTION(http_params)
1252 {
1253 zend_class_entry ce = {0};
1254
1255 INIT_NS_CLASS_ENTRY(ce, "http", "Params", php_http_params_methods);
1256 php_http_params_class_entry = zend_register_internal_class(&ce TSRMLS_CC);
1257 php_http_params_class_entry->create_object = php_http_params_object_new;
1258 zend_class_implements(php_http_params_class_entry TSRMLS_CC, 1, zend_ce_arrayaccess);
1259
1260 zend_declare_class_constant_stringl(php_http_params_class_entry, ZEND_STRL("DEF_PARAM_SEP"), ZEND_STRL(",") TSRMLS_CC);
1261 zend_declare_class_constant_stringl(php_http_params_class_entry, ZEND_STRL("DEF_ARG_SEP"), ZEND_STRL(";") TSRMLS_CC);
1262 zend_declare_class_constant_stringl(php_http_params_class_entry, ZEND_STRL("DEF_VAL_SEP"), ZEND_STRL("=") TSRMLS_CC);
1263 zend_declare_class_constant_stringl(php_http_params_class_entry, ZEND_STRL("COOKIE_PARAM_SEP"), ZEND_STRL("") TSRMLS_CC);
1264
1265 zend_declare_class_constant_long(php_http_params_class_entry, ZEND_STRL("PARSE_RAW"), PHP_HTTP_PARAMS_RAW TSRMLS_CC);
1266 zend_declare_class_constant_long(php_http_params_class_entry, ZEND_STRL("PARSE_ESCAPED"), PHP_HTTP_PARAMS_ESCAPED TSRMLS_CC);
1267 zend_declare_class_constant_long(php_http_params_class_entry, ZEND_STRL("PARSE_URLENCODED"), PHP_HTTP_PARAMS_URLENCODED TSRMLS_CC);
1268 zend_declare_class_constant_long(php_http_params_class_entry, ZEND_STRL("PARSE_DIMENSION"), PHP_HTTP_PARAMS_DIMENSION TSRMLS_CC);
1269 zend_declare_class_constant_long(php_http_params_class_entry, ZEND_STRL("PARSE_RFC5987"), PHP_HTTP_PARAMS_RFC5987 TSRMLS_CC);
1270 zend_declare_class_constant_long(php_http_params_class_entry, ZEND_STRL("PARSE_RFC5988"), PHP_HTTP_PARAMS_RFC5988 TSRMLS_CC);
1271 zend_declare_class_constant_long(php_http_params_class_entry, ZEND_STRL("PARSE_DEFAULT"), PHP_HTTP_PARAMS_DEFAULT TSRMLS_CC);
1272 zend_declare_class_constant_long(php_http_params_class_entry, ZEND_STRL("PARSE_QUERY"), PHP_HTTP_PARAMS_QUERY TSRMLS_CC);
1273
1274 zend_declare_property_null(php_http_params_class_entry, ZEND_STRL("params"), ZEND_ACC_PUBLIC TSRMLS_CC);
1275 zend_declare_property_stringl(php_http_params_class_entry, ZEND_STRL("param_sep"), ZEND_STRL(","), ZEND_ACC_PUBLIC TSRMLS_CC);
1276 zend_declare_property_stringl(php_http_params_class_entry, ZEND_STRL("arg_sep"), ZEND_STRL(";"), ZEND_ACC_PUBLIC TSRMLS_CC);
1277 zend_declare_property_stringl(php_http_params_class_entry, ZEND_STRL("val_sep"), ZEND_STRL("="), ZEND_ACC_PUBLIC TSRMLS_CC);
1278 zend_declare_property_long(php_http_params_class_entry, ZEND_STRL("flags"), PHP_HTTP_PARAMS_DEFAULT, ZEND_ACC_PUBLIC TSRMLS_CC);
1279
1280 return SUCCESS;
1281 }
1282
1283 /*
1284 * Local variables:
1285 * tab-width: 4
1286 * c-basic-offset: 4
1287 * End:
1288 * vim600: noet sw=4 ts=4 fdm=marker
1289 * vim<600: noet sw=4 ts=4
1290 */
1291
Extended HTTP Support