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")))
23 void psi_error_wrapper(PSI_Token
*t
, int type
, const char *msg
, ...);
24 void psi_error(int type
, const char *fn
, unsigned ln
, const char *msg
, ...);
25 void psi_verror(int type
, const char *fn
, unsigned ln
, const char *msg
, va_list argv
);
27 static inline int psi_check_env(const char *var
) {
28 char *set
= getenv(var
);
29 return (set
&& *set
&& '0' != *set
);
32 typedef struct psi_object
{
38 static inline psi_object
*PSI_OBJ(zval
*zv
, zend_object
*zo
) {
42 return (void *) (((char *) zo
) - zo
->handlers
->offset
);
45 size_t psi_t_alignment(token_t t
);
46 size_t psi_t_size(token_t t
);
47 size_t psi_t_align(token_t t
, size_t s
);
49 int psi_internal_type(impl_type
*type
);
50 zend_internal_arg_info
*psi_internal_arginfo(impl
*impl
);
51 size_t psi_num_min_args(impl
*impl
);
53 void psi_to_void(zval
*return_value
, set_value
*set
, impl_val
*ret_val
);
54 void psi_to_bool(zval
*return_value
, set_value
*set
, impl_val
*ret_val
);
55 void psi_to_int(zval
*return_value
, set_value
*set
, impl_val
*ret_val
);
56 void psi_to_double(zval
*return_value
, set_value
*set
, impl_val
*ret_val
);
57 void psi_to_string(zval
*return_value
, set_value
*set
, impl_val
*ret_val
);
58 void psi_to_recursive(zval
*return_value
, set_value
*set
, impl_val
*r_val
);
59 void psi_to_array(zval
*return_value
, set_value
*set
, impl_val
*ret_val
);
60 void psi_to_object(zval
*return_value
, set_value
*set
, impl_val
*ret_val
);
62 void psi_call(zend_execute_data
*execute_data
, zval
*return_value
, impl
*impl
);
64 int psi_calc_num_exp(num_exp
*exp
, impl_val
*strct
, impl_val
*res
);
66 static inline zend_long
psi_long_num_exp(num_exp
*exp
, impl_val
*strct
) {
69 switch (psi_calc_num_exp(exp
, strct
, &val
)) {
70 case PSI_T_UINT8
: return val
.u8
;
71 case PSI_T_UINT16
: return val
.u16
;
72 case PSI_T_UINT32
: return val
.u32
;
73 case PSI_T_UINT64
: return val
.u64
; /* FIXME */
74 case PSI_T_INT8
: return val
.i8
;
75 case PSI_T_INT16
: return val
.i16
;
76 case PSI_T_INT32
: return val
.i32
;
77 case PSI_T_INT64
: return val
.i64
;
78 case PSI_T_FLOAT
: return val
.fval
;
79 case PSI_T_DOUBLE
: return val
.dval
;
80 EMPTY_SWITCH_DEFAULT_CASE();
85 int psi_calc_add(int t1
, impl_val
*v1
, int t2
, impl_val
*v2
, impl_val
*res
);
86 int psi_calc_sub(int t1
, impl_val
*v1
, int t2
, impl_val
*v2
, impl_val
*res
);
87 int psi_calc_mul(int t1
, impl_val
*v1
, int t2
, impl_val
*v2
, impl_val
*res
);
88 int psi_calc_div(int t1
, impl_val
*v1
, int t2
, impl_val
*v2
, impl_val
*res
);
90 ZEND_BEGIN_MODULE_GLOBALS(psi
)
94 ZEND_END_MODULE_GLOBALS(psi
);
96 #define PSI_G(v) ZEND_MODULE_GLOBALS_ACCESSOR(psi, v)
98 #if defined(ZTS) && defined(COMPILE_DL_PSI)
99 ZEND_TSRMLS_CACHE_EXTERN();
102 #endif /* PHP_PSI_H */
110 * vim600: noet sw=4 ts=4 fdm=marker
111 * vim<600: noet sw=4 ts=4