4 extern zend_module_entry psi_module_entry
;
5 #define phpext_psi_ptr &psi_module_entry
7 #define PHP_PSI_VERSION "0.1.0"
10 # define PHP_PSI_API __declspec(dllexport)
11 #elif defined(__GNUC__) && __GNUC__ >= 4
12 # define PHP_PSI_API __attribute__ ((visibility("default")))
24 void psi_error(int type
, const char *msg
, ...);
26 static inline int psi_check_env(const char *var
) {
27 char *set
= getenv(var
);
28 return (set
&& *set
&& '0' != *set
);
31 typedef struct psi_object
{
37 static inline psi_object
*PSI_OBJ(zval
*zv
, zend_object
*zo
) {
41 return (void *) (((char *) zo
) - zo
->handlers
->offset
);
44 size_t psi_t_alignment(token_t t
);
45 size_t psi_t_size(token_t t
);
46 size_t psi_t_align(token_t t
, size_t s
);
48 int psi_internal_type(impl_type
*type
);
49 zend_internal_arg_info
*psi_internal_arginfo(impl
*impl
);
50 size_t psi_num_min_args(impl
*impl
);
52 void psi_to_void(zval
*return_value
, set_value
*set
, impl_val
*ret_val
);
53 void psi_to_bool(zval
*return_value
, set_value
*set
, impl_val
*ret_val
);
54 void psi_to_int(zval
*return_value
, set_value
*set
, impl_val
*ret_val
);
55 void psi_to_double(zval
*return_value
, set_value
*set
, impl_val
*ret_val
);
56 void psi_to_string(zval
*return_value
, set_value
*set
, impl_val
*ret_val
);
57 void psi_to_array(zval
*return_value
, set_value
*set
, impl_val
*ret_val
);
58 void psi_to_object(zval
*return_value
, set_value
*set
, impl_val
*ret_val
);
60 void psi_call(zend_execute_data
*execute_data
, zval
*return_value
, impl
*impl
);
62 int psi_calc_num_exp(num_exp
*exp
, impl_val
*ref
, impl_val
*res
);
64 static inline zend_long
psi_long_num_exp(num_exp
*exp
, impl_val
*ref
) {
67 switch (psi_calc_num_exp(exp
, ref
, &val
)) {
68 case PSI_T_UINT8
: return val
.u8
;
69 case PSI_T_UINT16
: return val
.u16
;
70 case PSI_T_UINT32
: return val
.u32
;
71 case PSI_T_UINT64
: return val
.u64
; /* FIXME */
72 case PSI_T_INT8
: return val
.i8
;
73 case PSI_T_INT16
: return val
.i16
;
74 case PSI_T_INT32
: return val
.i32
;
75 case PSI_T_INT64
: return val
.i64
;
76 case PSI_T_FLOAT
: return val
.fval
;
77 case PSI_T_DOUBLE
: return val
.dval
;
78 EMPTY_SWITCH_DEFAULT_CASE();
83 int psi_calc_add(int t1
, impl_val
*v1
, int t2
, impl_val
*v2
, impl_val
*res
);
84 int psi_calc_sub(int t1
, impl_val
*v1
, int t2
, impl_val
*v2
, impl_val
*res
);
85 int psi_calc_mul(int t1
, impl_val
*v1
, int t2
, impl_val
*v2
, impl_val
*res
);
86 int psi_calc_div(int t1
, impl_val
*v1
, int t2
, impl_val
*v2
, impl_val
*res
);
88 ZEND_BEGIN_MODULE_GLOBALS(psi
)
92 ZEND_END_MODULE_GLOBALS(psi
);
94 #define PSI_G(v) ZEND_MODULE_GLOBALS_ACCESSOR(psi, v)
96 #if defined(ZTS) && defined(COMPILE_DL_PSI)
97 ZEND_TSRMLS_CACHE_EXTERN();
100 #endif /* PHP_PSI_H */
108 * vim600: noet sw=4 ts=4 fdm=marker
109 * vim<600: noet sw=4 ts=4