8 #include "ext/standard/info.h"
16 ZEND_DECLARE_MODULE_GLOBALS(psi
);
19 STD_PHP_INI_ENTRY("psi.engine", "ffi", PHP_INI_SYSTEM
, OnUpdateString
, engine
, zend_psi_globals
, psi_globals
)
20 STD_PHP_INI_ENTRY("psi.directory", "psis", PHP_INI_SYSTEM
, OnUpdateString
, directory
, zend_psi_globals
, psi_globals
)
23 void psi_error(int type
, const char *msg
, ...)
29 vslprintf(buf
, 0x1000, msg
, argv
);
35 int psi_internal_type(impl_type
*type
)
55 zend_internal_arg_info
*psi_internal_arginfo(impl
*impl
)
58 zend_internal_arg_info
*aip
;
59 zend_internal_function_info
*fi
;
61 aip
= calloc(impl
->func
->args
->count
+ 1, sizeof(*aip
));
63 fi
= (zend_internal_function_info
*) &aip
[0];
64 fi
->required_num_args
= psi_num_min_args(impl
);
65 fi
->return_reference
= impl
->func
->return_reference
;
66 fi
->type_hint
= psi_internal_type(impl
->func
->return_type
);
68 for (i
= 0; i
< impl
->func
->args
->count
; ++i
) {
69 impl_arg
*iarg
= impl
->func
->args
->args
[i
];
70 zend_internal_arg_info
*ai
= &aip
[i
+1];
72 ai
->name
= iarg
->var
->name
;
73 ai
->type_hint
= psi_internal_type(iarg
->type
);
74 if (iarg
->var
->reference
) {
75 ai
->pass_by_reference
= 1;
77 if (iarg
->var
->reference
|| (iarg
->def
&& iarg
->def
->type
== PSI_T_NULL
)) {
85 size_t psi_num_min_args(impl
*impl
)
87 size_t i
, n
= impl
->func
->args
->count
;
89 for (i
= 0; i
< impl
->func
->args
->count
; ++i
) {
90 if (impl
->func
->args
->args
[i
]->def
) {
97 void psi_to_int(impl_val
*ret_val
, decl_arg
*func
, zval
*return_value
)
99 switch (real_decl_type(func
->type
)->type
) {
102 RETVAL_DOUBLE(deref_impl_val(0, ret_val
, func
)->dval
);
103 convert_to_long(return_value
);
106 RETVAL_LONG(deref_impl_val(0, ret_val
, func
)->lval
);
110 void psi_to_double(impl_val
*ret_val
, decl_arg
*func
, zval
*return_value
)
112 RETVAL_DOUBLE(deref_impl_val(0, ret_val
, func
)->dval
);
115 void psi_to_string(impl_val
*ret_val
, decl_arg
*func
, zval
*return_value
)
117 switch (real_decl_type(func
->type
)->type
) {
121 if (!func
->var
->pointer_level
) {
122 char chr
= ret_val
->lval
;
123 RETVAL_STRINGL(&chr
, 1);
125 ret_val
= deref_impl_val(1, ret_val
, func
);
127 RETVAL_STRING(ret_val
->ptr
);
129 RETVAL_EMPTY_STRING();
135 RETVAL_DOUBLE(deref_impl_val(0, ret_val
, func
)->dval
);
136 convert_to_string(return_value
);
139 RETVAL_LONG(deref_impl_val(0, ret_val
, func
)->lval
);
140 convert_to_string(return_value
);
145 size_t psi_t_alignment(token_t t
)
148 #define PSI_TAS_D(T) struct PSI_TAS_ ##T { \
152 #define PSI_TAS_P(T) struct PSI_TAS_ ## T ## _pointer { \
156 #define PSI_TAS_C(T) align = offsetof(struct PSI_TAS_ ##T, x)
157 #define PSI_TAS_CASE(T) { \
166 PSI_TAS_CASE(int8_t);
169 PSI_TAS_CASE(uint8_t);
175 PSI_TAS_CASE(int16_t);
178 PSI_TAS_CASE(uint16_t);
184 PSI_TAS_CASE(int32_t);
187 PSI_TAS_CASE(uint32_t);
193 PSI_TAS_CASE(int64_t);
196 PSI_TAS_CASE(uint64_t);
202 PSI_TAS_CASE(double);
205 PSI_TAS_CASE(size_t);
210 PSI_TAS_C(char_pointer
);
213 EMPTY_SWITCH_DEFAULT_CASE();
219 size_t psi_t_size(token_t t
)
232 size
= sizeof(short);
253 size
= sizeof(float);
256 size
= sizeof(double);
259 size
= sizeof(size_t);
262 size
= sizeof(char *);
264 EMPTY_SWITCH_DEFAULT_CASE();
269 size_t psi_t_align(token_t t
, size_t s
)
271 size_t a
= psi_t_alignment(t
);
272 return ((s
- 1) | (a
- 1)) + 1;
275 static impl_val
*iterate(impl_val
*val
, token_t t
, unsigned i
, impl_val
*tmp
)
277 size_t size
= psi_t_size(t
);
279 memset(tmp
, 0, sizeof(*tmp
));
280 memcpy(tmp
, val
->ptr
+ size
* i
, size
);
284 void psi_to_array(impl_val
*ret_val
, decl_arg
*func
, zval
*return_value
)
289 decl_type
*type
= real_decl_type(func
->type
);
290 token_t t
= type
->type
;
291 printf("%d:%s real=%p,strct=%p\n", t
, type
->name
, type
->real
, type
->strct
);
293 array_init(return_value
);
295 if (t
== PSI_T_STRUCT
) {
296 decl_struct
*s
= type
->strct
;
297 ret_val
= deref_impl_val(func
->var
->pointer_level
, ret_val
, func
);
299 for (i
= 0; i
< s
->args
->count
; ++i
) {
300 decl_arg
*darg
= s
->args
->args
[i
];
301 decl_struct_layout layout
= s
->layout
[i
];
304 char *ptr
= (char *) ret_val
->ptr
+ layout
.pos
;
306 memset(&tmp
, 0, sizeof(tmp
));
307 memcpy(&tmp
, ptr
, layout
.len
);
308 switch (real_decl_type(darg
->type
)->type
) {
311 psi_to_int(&tmp
, darg
, &ztmp
);
314 psi_to_string(&tmp
, darg
, &ztmp
);
316 EMPTY_SWITCH_DEFAULT_CASE();
318 add_assoc_zval(return_value
, darg
->var
->name
, &ztmp
);
322 ret_val
= deref_impl_val(0, ret_val
, func
);
323 for (i
= 0; i
< func
->var
->array_size
; ++i
) {
324 impl_val
*ptr
= iterate(ret_val
, t
, i
, &tmp
);
329 ZVAL_DOUBLE(&ele
, ptr
->dval
);
332 ZVAL_LONG(&ele
, ptr
->lval
);
336 add_next_index_zval(return_value
, &ele
);
340 ZEND_RESULT_CODE
psi_parse_args(zend_execute_data
*execute_data
, impl
*impl
)
344 if (!impl
->func
->args
->count
) {
345 return zend_parse_parameters_none();
348 ZEND_PARSE_PARAMETERS_START(psi_num_min_args(impl
), impl
->func
->args
->count
)
350 iarg
= impl
->func
->args
->args
[_i
];
354 if (PSI_T_BOOL
== iarg
->type
->type
) {
356 iarg
->val
.bval
= iarg
->def
->type
== PSI_T_TRUE
? 1 : 0;
358 Z_PARAM_BOOL(iarg
->val
.bval
);
359 } else if (PSI_T_INT
== iarg
->type
->type
) {
361 iarg
->val
.lval
= zend_atol(iarg
->def
->text
, strlen(iarg
->def
->text
));
363 Z_PARAM_LONG(iarg
->val
.lval
);
364 } else if (PSI_T_FLOAT
== iarg
->type
->type
) {
366 iarg
->val
.dval
= zend_strtod(iarg
->def
->text
, NULL
);
368 Z_PARAM_DOUBLE(iarg
->val
.dval
);
369 } else if (PSI_T_STRING
== iarg
->type
->type
) {
370 struct {char *val
; size_t len
;} str
;
373 str
.len
= strlen(iarg
->def
->text
) - 2;
374 str
.val
= &iarg
->def
->text
[1];
376 Z_PARAM_STR_EX(iarg
->val
.str
, 1, 0);
378 zend_string_addref(iarg
->val
.str
);
379 } else if (iarg
->def
) {
380 iarg
->val
.str
= zend_string_init(str
.val
, str
.len
, 0);
382 } else if (PSI_T_ARRAY
== iarg
->type
->type
) {
383 /* handled as _zv in let or set */
386 error_code
= ZPP_ERROR_FAILURE
;
390 if (_i
< _max_num_args
) {
393 ZEND_PARSE_PARAMETERS_END_EX(return FAILURE
);
398 impl_val
*psi_do_let(decl_arg
*darg
)
400 impl_val
*arg_val
= &darg
->let
->out
;
401 impl_arg
*iarg
= darg
->let
->arg
;
408 if (darg
->var
->array_size
) {
409 arg_val
->ptr
= ecalloc(darg
->var
->array_size
, sizeof(*arg_val
));
410 darg
->let
->mem
= arg_val
->ptr
;
412 memset(arg_val
, 0, sizeof(*arg_val
));
416 switch (darg
->let
->val
->func
->type
) {
418 if (iarg
->type
->type
== PSI_T_BOOL
) {
419 arg_val
->cval
= iarg
->val
.cval
;
421 arg_val
->cval
= zend_is_true(iarg
->_zv
);
425 if (iarg
->type
->type
== PSI_T_INT
) {
426 arg_val
->lval
= iarg
->val
.lval
;
428 arg_val
->lval
= zval_get_long(iarg
->_zv
);
432 if (iarg
->type
->type
== PSI_T_STRING
) {
433 arg_val
->ptr
= estrdup(iarg
->val
.str
->val
);
434 darg
->let
->mem
= arg_val
->ptr
;
435 zend_string_release(iarg
->val
.str
);
437 zend_string
*zs
= zval_get_string(iarg
->_zv
);
438 arg_val
->ptr
= estrdup(zs
->val
);
439 darg
->let
->mem
= arg_val
->ptr
;
440 zend_string_release(zs
);
444 if (iarg
->type
->type
== PSI_T_STRING
) {
445 arg_val
->lval
= iarg
->val
.str
->len
;
446 zend_string_release(iarg
->val
.str
);
448 zend_string
*zs
= zval_get_string(iarg
->_zv
);
449 arg_val
->lval
= zs
->len
;
450 zend_string_release(zs
);
454 arg_val
->ptr
= calloc(1, darg
->let
->val
->func
->size
);
455 darg
->let
->mem
= arg_val
->ptr
;
457 EMPTY_SWITCH_DEFAULT_CASE();
463 void psi_do_set(zval
*return_value
, set_func
*func
, decl_vars
*vars
)
465 impl_val
*val
= (impl_val
*) &vars
->vars
[0]->arg
->let
->ptr
;
467 ZVAL_DEREF(return_value
);
468 zval_dtor(return_value
);
470 switch (func
->type
) {
471 case PSI_T_TO_STRING
:
472 psi_to_string(val
, vars
->vars
[0]->arg
, return_value
);
475 psi_to_array(val
, vars
->vars
[0]->arg
, return_value
);
477 EMPTY_SWITCH_DEFAULT_CASE();
481 void psi_do_return(impl
*impl
, impl_val
*ret_val
, zval
*return_value
)
483 switch (impl
->stmts
->ret
.list
[0]->func
->type
) {
484 case PSI_T_TO_STRING
:
485 psi_to_string(ret_val
, impl
->decl
->func
, return_value
);
488 psi_to_int(ret_val
, impl
->decl
->func
, return_value
);
491 psi_to_array(ret_val
, impl
->decl
->func
, return_value
);
493 EMPTY_SWITCH_DEFAULT_CASE();
497 void psi_do_free(free_stmt
*fre
)
501 for (i
= 0; i
< fre
->vars
->count
; ++i
) {
502 decl_var
*dvar
= fre
->vars
->vars
[i
];
504 if (dvar
->arg
&& dvar
->arg
->let
->out
.ptr
) {
505 free(dvar
->arg
->let
->out
.ptr
);
506 dvar
->arg
->let
->out
.ptr
= NULL
;
511 void psi_do_clean(impl
*impl
)
515 for (i
= 0; i
< impl
->func
->args
->count
; ++i
) {
516 impl_arg
*iarg
= impl
->func
->args
->args
[i
];
518 switch (iarg
->type
->type
) {
521 zend_string_release(iarg
->val
.str
);
527 for (i
= 0; i
< impl
->decl
->args
->count
; ++i
) {
528 decl_arg
*darg
= impl
->decl
->args
->args
[i
];
530 if (darg
->let
&& darg
->let
->mem
) {
531 efree(darg
->let
->mem
);
532 darg
->let
->mem
= NULL
;
537 PHP_MINIT_FUNCTION(psi
)
541 REGISTER_INI_ENTRIES();
543 if (!strcasecmp(PSI_G(engine
), "jit")) {
549 PSI_ContextInit(&PSI_G(context
), ops
, psi_error
);
550 PSI_ContextBuild(&PSI_G(context
), PSI_G(directory
));
554 PHP_MSHUTDOWN_FUNCTION(psi
)
556 PSI_ContextDtor(&PSI_G(context
));
558 UNREGISTER_INI_ENTRIES();
563 /* Remove if there's nothing to do at request start */
564 /* {{{ PHP_RINIT_FUNCTION
566 PHP_RINIT_FUNCTION(psi
)
568 #if defined(COMPILE_DL_PSI) && defined(ZTS)
569 ZEND_TSRMLS_CACHE_UPDATE();
575 /* Remove if there's nothing to do at request end */
576 /* {{{ PHP_RSHUTDOWN_FUNCTION
578 PHP_RSHUTDOWN_FUNCTION(psi
)
584 PHP_MINFO_FUNCTION(psi
)
586 php_info_print_table_start();
587 php_info_print_table_header(2, "psi support", "enabled");
588 php_info_print_table_end();
590 DISPLAY_INI_ENTRIES();
592 const zend_function_entry psi_functions
[] = {
596 zend_module_entry psi_module_entry
= {
597 STANDARD_MODULE_HEADER
,
602 PHP_RINIT(psi
), /* Replace with NULL if there's nothing to do at request start */
603 PHP_RSHUTDOWN(psi
), /* Replace with NULL if there's nothing to do at request end */
606 STANDARD_MODULE_PROPERTIES
609 #ifdef COMPILE_DL_PSI
611 ZEND_TSRMLS_CACHE_DEFINE();
621 * vim600: noet sw=4 ts=4 fdm=marker
622 * vim<600: noet sw=4 ts=4