-void psi_error(int type, const char *msg, ...)
-{
- char buf[0x1000];
- va_list argv;
-
- va_start(argv, msg);
- vslprintf(buf, 0x1000, msg, argv);
- va_end(argv);
-
- php_error(type, buf);
-}
-
-int psi_internal_type(impl_type *type)
-{
- switch (type->type) {
- case PSI_T_BOOL:
- return _IS_BOOL;
- case PSI_T_INT:
- case PSI_T_LONG:
- return IS_LONG;
- case PSI_T_FLOAT:
- case PSI_T_DOUBLE:
- return IS_DOUBLE;
- case PSI_T_STRING:
- return IS_STRING;
- case PSI_T_ARRAY:
- return IS_ARRAY;
- default:
- return 0;
- }
-}
-
-zend_internal_arg_info *psi_internal_arginfo(impl *impl)
-{
- size_t i;
- zend_internal_arg_info *aip;
- zend_internal_function_info *fi;
-
- aip = calloc(impl->func->args->count + 1, sizeof(*aip));
-
- fi = (zend_internal_function_info *) &aip[0];
- fi->required_num_args = psi_num_min_args(impl);
- fi->return_reference = impl->func->return_reference;
- fi->type_hint = psi_internal_type(impl->func->return_type);
-
- for (i = 0; i < impl->func->args->count; ++i) {
- impl_arg *iarg = impl->func->args->args[i];
- zend_internal_arg_info *ai = &aip[i+1];
-
- ai->name = iarg->var->name;
- ai->type_hint = psi_internal_type(iarg->type);
- if (iarg->var->reference) {
- ai->pass_by_reference = 1;
- }
- if (iarg->var->reference || (iarg->def && iarg->def->type == PSI_T_NULL)) {
- ai->allow_null = 1;
- }
- }
-
- return aip;
-}
-
-size_t psi_num_min_args(impl *impl)
-{
- size_t i, n = impl->func->args->count;
-
- for (i = 0; i < impl->func->args->count; ++i) {
- if (impl->func->args->args[i]->def) {
- --n;
- }
- }
- return n;
-}
-
-void psi_to_int(impl_val *ret_val, decl_arg *func, zval *return_value)
-{
- switch (real_decl_type(func->type)->type) {
- case PSI_T_FLOAT:
- case PSI_T_DOUBLE:
- RETVAL_DOUBLE(deref_impl_val(0, ret_val, func)->dval);
- convert_to_long(return_value);
- break;
- default:
- RETVAL_LONG(deref_impl_val(0, ret_val, func)->lval);
- }
-}
-
-void psi_to_double(impl_val *ret_val, decl_arg *func, zval *return_value)
-{
- RETVAL_DOUBLE(deref_impl_val(0, ret_val, func)->dval);
-}
-
-void psi_to_string(impl_val *ret_val, decl_arg *func, zval *return_value)
-{
- switch (real_decl_type(func->type)->type) {
- case PSI_T_CHAR:
- case PSI_T_SINT8:
- case PSI_T_UINT8:
- if (!func->var->pointer_level) {
- char chr = ret_val->lval;
- RETVAL_STRINGL(&chr, 1);
- } else {
- ret_val = deref_impl_val(1, ret_val, func);
- if (ret_val->ptr) {
- RETVAL_STRING(ret_val->ptr);
- } else {
- RETVAL_EMPTY_STRING();
- }
- }
- break;
- case PSI_T_FLOAT:
- case PSI_T_DOUBLE:
- RETVAL_DOUBLE(deref_impl_val(0, ret_val, func)->dval);
- convert_to_string(return_value);
- break;
- default:
- RETVAL_LONG(deref_impl_val(0, ret_val, func)->lval);
- convert_to_string(return_value);
- break;
- }
-}
-
-size_t psi_t_alignment(token_t t)
-{
- size_t align;
-#define PSI_TAS_D(T) struct PSI_TAS_ ##T { \
- char c; \
- T x; \
-}
-#define PSI_TAS_P(T) struct PSI_TAS_ ## T ## _pointer { \
- char c; \
- T *x; \
-}
-#define PSI_TAS_C(T) align = offsetof(struct PSI_TAS_ ##T, x)
-#define PSI_TAS_CASE(T) { \
- PSI_TAS_D(T); \
- PSI_TAS_C(T); \
-}
- switch (t) {
- case PSI_T_CHAR:
- PSI_TAS_CASE(char);
- break;
- case PSI_T_SINT8:
- PSI_TAS_CASE(int8_t);
- break;
- case PSI_T_UINT8:
- PSI_TAS_CASE(uint8_t);
- break;
- case PSI_T_SHORT:
- PSI_TAS_CASE(short);
- break;
- case PSI_T_SINT16:
- PSI_TAS_CASE(int16_t);
- break;
- case PSI_T_UINT16:
- PSI_TAS_CASE(uint16_t);
- break;
- case PSI_T_INT:
- PSI_TAS_CASE(int);
- break;
- case PSI_T_SINT32:
- PSI_TAS_CASE(int32_t);
- break;
- case PSI_T_UINT32:
- PSI_TAS_CASE(uint32_t);
- break;
- case PSI_T_LONG:
- PSI_TAS_CASE(long);
- break;
- case PSI_T_SINT64:
- PSI_TAS_CASE(int64_t);
- break;
- case PSI_T_UINT64:
- PSI_TAS_CASE(uint64_t);
- break;
- case PSI_T_FLOAT:
- PSI_TAS_CASE(float);
- break;
- case PSI_T_DOUBLE:
- PSI_TAS_CASE(double);
- break;
- case PSI_T_SIZE_T:
- PSI_TAS_CASE(size_t);
- break;
- case PSI_T_POINTER:
- {
- PSI_TAS_P(char);
- PSI_TAS_C(char_pointer);
- }
- break;
- EMPTY_SWITCH_DEFAULT_CASE();
- }
-
- return align;
-}
-
-size_t psi_t_size(token_t t)
-{
- size_t size;
-
- switch (t) {
- case PSI_T_CHAR:
- size = sizeof(char);
- break;
- case PSI_T_SINT8:
- case PSI_T_UINT8:
- size = 1;
- break;
- case PSI_T_SHORT:
- size = sizeof(short);
- break;
- case PSI_T_SINT16:
- case PSI_T_UINT16:
- size = 2;
- break;
- case PSI_T_INT:
- size = sizeof(int);
- break;
- case PSI_T_SINT32:
- case PSI_T_UINT32:
- size = 4;
- break;
- case PSI_T_LONG:
- size = sizeof(long);
- break;
- case PSI_T_SINT64:
- case PSI_T_UINT64:
- size = 8;
- break;
- case PSI_T_FLOAT:
- size = sizeof(float);
- break;
- case PSI_T_DOUBLE:
- size = sizeof(double);
- break;
- case PSI_T_SIZE_T:
- size = sizeof(size_t);
- break;
- case PSI_T_POINTER:
- size = sizeof(char *);
- break;
- EMPTY_SWITCH_DEFAULT_CASE();
- }
- return size;
-}
-
-size_t psi_t_align(token_t t, size_t s)
-{
- size_t a = psi_t_alignment(t);
- return ((s - 1) | (a - 1)) + 1;
-}
-
-static impl_val *iterate(impl_val *val, token_t t, unsigned i, impl_val *tmp)
-{
- size_t size = psi_t_size(t);
-
- memset(tmp, 0, sizeof(*tmp));
- memcpy(tmp, val->ptr + size * i, size);
- return tmp;
-}
-
-void psi_from_zval(impl_val *mem, decl_arg *spec, zval *zv, void **tmp)
-{
- decl_type *type = real_decl_type(spec->type);
-
- switch (type->type) {
- case PSI_T_FLOAT:
- mem->fval = (float) zval_get_double(zv);
- break;
- case PSI_T_DOUBLE:
- mem->dval = zval_get_double(zv);
- break;
- case PSI_T_CHAR:
- case PSI_T_SINT8:
- case PSI_T_UINT8:
- if (spec->var->pointer_level) {
- zend_string *zs = zval_get_string(zv);
- *tmp = mem->ptr = estrndup(zs->val, zs->len);
- zend_string_release(zs);
- break;
- }
- default:
- mem->lval = zval_get_long(zv);
- break;
- }
-}
-
-void *psi_array_to_struct(decl_struct *s, HashTable *arr)
-{
- size_t i, j = 0, size = decl_struct_size(s);
- char *mem = ecalloc(1, size + s->args->count * sizeof(void *));
-
- for (i = 0; i < s->args->count; ++i) {
- decl_struct_layout *layout = &s->layout[i];
- decl_arg *darg = s->args->args[i];
- decl_type *type = real_decl_type(darg->type);
- zval *entry = zend_hash_str_find_ind(arr, darg->var->name, strlen(darg->var->name));
-
- if (entry) {
- impl_val val;
- void *tmp = NULL;
-
- memset(&tmp, 0, sizeof(tmp));
- psi_from_zval(&val, darg, entry, &tmp);
- memcpy(mem + layout->pos, &val, layout->len);
- if (tmp) {
- ((void **)(mem + size))[j++] = tmp;
- }
- }
- }
- return mem;
-}