flush wip
[m6w6/ext-http] / php_http_negotiate.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 int php_http_negotiate_sort(const void *first, const void *second TSRMLS_DC)
16 {
17 zval result;
18 Bucket *b1 = (Bucket *) first, *b2 = (Bucket *) second;
19
20 if (numeric_compare_function(&result, &b1->val, &b2->val)!= SUCCESS) {
21 return 0;
22 }
23 return (Z_LVAL(result) > 0 ? -1 : (Z_LVAL(result) < 0 ? 1 : 0));
24 }
25
26 #define M_PRI 5
27 #define M_SEC 2
28 #define M_ANY 1
29 #define M_NOT 0
30 #define M_ALL ~0
31 static inline unsigned php_http_negotiate_match(const char *param_str, size_t param_len, const char *supported_str, size_t supported_len, const char *sep_str, size_t sep_len)
32 {
33 unsigned match = M_NOT;
34
35 if (param_len == supported_len && !strncasecmp(param_str, supported_str, param_len)) {
36 /* that was easy */
37 match = M_ALL;
38 } else if (sep_str && sep_len) {
39 const char *param_sec = php_http_locate_str(param_str, param_len, sep_str, sep_len);
40 size_t param_pri_len = param_sec ? param_sec - param_str : param_len;
41 const char *supported_sec = php_http_locate_str(supported_str, supported_len, sep_str, sep_len);
42 size_t supported_pri_len = supported_sec ? supported_sec - supported_str : supported_len;
43 size_t cmp_len = MIN(param_pri_len, supported_pri_len);
44
45 if (((*param_str == '*') || (*supported_str == '*'))
46 || ((param_pri_len == supported_pri_len) && !strncasecmp(param_str, supported_str, param_pri_len))
47 || ((!param_sec || !supported_sec) && cmp_len && !strncasecmp(param_str, supported_str, cmp_len))
48 ) {
49 match += M_PRI;
50 }
51
52 if (param_sec && supported_sec && !strcasecmp(param_sec, supported_sec)) {
53 match += M_SEC;
54 }
55
56 if ((param_sec && *(param_sec + sep_len) == '*')
57 || (supported_sec && *(supported_sec + sep_len) == '*')
58 || ((*param_str == '*') || (*supported_str == '*'))
59 ) {
60 match += M_ANY;
61 }
62 }
63 #if 0
64 fprintf(stderr, "match: %s == %s => %u\n", supported_str, param_str, match);
65 #endif
66 return match;
67 }
68 static int php_http_negotiate_reduce(zval *p, int num_args, va_list args, zend_hash_key *hash_key)
69 {
70 unsigned best_match = 0;
71 php_http_arrkey_t key;
72 zval *value, *q = NULL;
73 zend_string *supported = zval_get_string(p);
74 HashTable *params = va_arg(args, HashTable *);
75 HashTable *result = va_arg(args, HashTable *);
76 const char *sep_str = va_arg(args, const char *);
77 size_t sep_len = va_arg(args, size_t);
78
79 ZEND_HASH_FOREACH_KEY_VAL(params, key.h, key.key, value)
80 {
81 unsigned match;
82
83 php_http_arrkey_stringify(&key, NULL);
84 match = php_http_negotiate_match(key.key->val, key.key->len, supported->val, supported->len, sep_str, sep_len);
85
86 if (match > best_match) {
87 best_match = match;
88 q = value;
89 }
90 php_http_arrkey_dtor(&key);
91 }
92 ZEND_HASH_FOREACH_END();
93
94 if (q && Z_DVAL_P(q) > 0) {
95 Z_TRY_ADDREF_P(q);
96 zend_hash_update(result, supported, q);
97 }
98
99 zend_string_release(supported);
100 return ZEND_HASH_APPLY_KEEP;
101 }
102
103 HashTable *php_http_negotiate(const char *value_str, size_t value_len, HashTable *supported, const char *primary_sep_str, size_t primary_sep_len TSRMLS_DC)
104 {
105 HashTable *result = NULL;
106
107 if (value_str && value_len) {
108 unsigned i = 0;
109 zval arr, *val, *arg, *zq;
110 HashTable params;
111 php_http_arrkey_t key;
112 php_http_params_opts_t opts;
113
114 zend_hash_init(&params, 10, NULL, ZVAL_PTR_DTOR, 0);
115 php_http_params_opts_default_get(&opts);
116 opts.input.str = estrndup(value_str, value_len);
117 opts.input.len = value_len;
118 php_http_params_parse(&params, &opts TSRMLS_CC);
119 efree(opts.input.str);
120
121 array_init(&arr);
122
123 ZEND_HASH_FOREACH_KEY_VAL(&params, key.h, key.key, val)
124 {
125 double q;
126
127 if ((arg = zend_hash_str_find(Z_ARRVAL_P(val), ZEND_STRL("arguments")))
128 && (IS_ARRAY == Z_TYPE_P(arg))
129 && (zq = zend_hash_str_find(Z_ARRVAL_P(arg), ZEND_STRL("q")))) {
130 q = zval_get_double(zq);
131 } else {
132 q = 1.0 - ++i / 100.0;
133 }
134
135 #if 0
136 fprintf(stderr, "Q: %s=%1.3f\n", key.key->val, q);
137 #endif
138
139 if (key.key) {
140 add_assoc_double_ex(&arr, key.key->val, key.key->len, q);
141 } else {
142 add_index_double(&arr, key.h, q);
143 }
144
145 }
146 ZEND_HASH_FOREACH_END();
147
148 #if 0
149 zend_print_zval_r(&arr, 1);
150 #endif
151
152 ALLOC_HASHTABLE(result);
153 zend_hash_init(result, zend_hash_num_elements(supported), NULL, ZVAL_PTR_DTOR, 0);
154 zend_hash_apply_with_arguments(supported, php_http_negotiate_reduce, 4, Z_ARRVAL(arr), result, primary_sep_str, primary_sep_len);
155 zend_hash_destroy(&params);
156 zval_dtor(&arr);
157 zend_hash_sort(result, php_http_negotiate_sort, 0);
158 }
159
160 return result;
161 }
162
163
164
165 /*
166 * Local variables:
167 * tab-width: 4
168 * c-basic-offset: 4
169 * End:
170 * vim600: noet sw=4 ts=4 fdm=marker
171 * vim<600: noet sw=4 ts=4
172 */
173
174