git.m6w6.name Git - m6w6/ext-psi/blob - php_psi.h

   1
   2 #ifndef PHP_PSI_H
   3 #define PHP_PSI_H
   4
   5 extern zend_module_entry psi_module_entry;
   6 #define phpext_psi_ptr &psi_module_entry
   7
   8 #define PHP_PSI_VERSION "0.1.0"
   9
  10 #ifdef PHP_WIN32
  11 #       define PHP_PSI_API __declspec(dllexport)
  12 #elif defined(__GNUC__) && __GNUC__ >= 4
  13 #       define PHP_PSI_API __attribute__ ((visibility("default")))
  14 #else
  15 #       define PHP_PSI_API
  16 #endif
  17
  18 #ifdef ZTS
  19 #include "TSRM.h"
  20 #endif
  21
  22 #include "context.h"
  23 #include "parser.h"
  24
  25 void psi_error(int type, const char *msg, ...);
  26
  27 static inline int psi_check_env(const char *var) {
  28         char *set = getenv(var);
  29         return (set && *set && '0' != *set);
  30 }
  31
  32 typedef struct psi_object {
  33         void *data;
  34         size_t size;
  35         zend_object std;
  36 } psi_object;
  37
  38 static inline psi_object *PSI_OBJ(zval *zv, zend_object *zo) {
  39         if (zv) {
  40                 zo = Z_OBJ_P(zv);
  41         }
  42         return (void *) (((char *) zo) - zo->handlers->offset);
  43 }
  44
  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);
  48
  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);
  52
  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_array(zval *return_value, set_value *set, impl_val *ret_val);
  59 void psi_to_object(zval *return_value, set_value *set, impl_val *ret_val);
  60
  61 void psi_call(zend_execute_data *execute_data, zval *return_value, impl *impl);
  62
  63 static inline int psi_calc_num_exp_value(num_exp *exp, impl_val *val) {
  64         switch (exp->t) {
  65         case PSI_T_NUMBER:
  66                 switch (is_numeric_string(exp->u.numb, strlen(exp->u.numb), (zend_long *) val, (double *) val, 0)) {
  67                 case IS_LONG:
  68                         return PSI_T_INT64;
  69                 case IS_DOUBLE:
  70                         return PSI_T_DOUBLE;
  71                 }
  72                 break;
  73
  74         case PSI_T_NSNAME:
  75                 switch (exp->u.cnst->type->type) {
  76                 case PSI_T_INT:
  77                         val->i64 = zend_get_constant_str(exp->u.cnst->name, strlen(exp->u.cnst->name))->value.lval;
  78                         return PSI_T_INT64;
  79                 case PSI_T_FLOAT:
  80                         val->dval = zend_get_constant_str(exp->u.cnst->name, strlen(exp->u.cnst->name))->value.dval;
  81                         return PSI_T_DOUBLE;
  82                 default:
  83                         return 0;
  84                 }
  85                 break;
  86
  87         case PSI_T_NAME:
  88                 switch (real_decl_type(exp->u.dvar->arg->type)->type) {
  89                 case PSI_T_INT8:
  90                 case PSI_T_UINT8:
  91                 case PSI_T_INT16:
  92                 case PSI_T_UINT16:
  93                 case PSI_T_INT32:
  94                 case PSI_T_UINT32:
  95                 case PSI_T_INT64:
  96                 case PSI_T_UINT64:
  97                         memcpy(val, deref_impl_val(exp->u.dvar->arg->let->ptr, exp->u.dvar), sizeof(*val));
  98                         return real_decl_type(exp->u.dvar->arg->type)->type;
  99
 100                 case PSI_T_FLOAT:
 101                 case PSI_T_DOUBLE:
 102                         memcpy(val, deref_impl_val(exp->u.dvar->arg->let->ptr, exp->u.dvar), sizeof(*val));
 103                         return real_decl_type(exp->u.dvar->arg->type)->type;
 104
 105                 EMPTY_SWITCH_DEFAULT_CASE();
 106                 }
 107                 break;
 108
 109         EMPTY_SWITCH_DEFAULT_CASE();
 110         }
 111         return  0;
 112 }
 113
 114 static inline int psi_calc_num_exp(num_exp *exp, impl_val *val) {
 115         impl_val num = {0};
 116         int num_type = psi_calc_num_exp_value(exp, &num);
 117
 118         if (exp->operand) {
 119                 impl_val tmp = {0};
 120                 int tmp_type = psi_calc_num_exp(exp->operand, &tmp);
 121
 122                 return exp->calculator(num_type, &num, tmp_type, &tmp, val);
 123         }
 124
 125         memcpy(val, &num, sizeof(*val));
 126         return num_type;
 127 }
 128
 129 static inline zend_long psi_long_num_exp(num_exp *exp) {
 130         impl_val val = {0};
 131
 132         switch (psi_calc_num_exp(exp, &val)) {
 133         case PSI_T_UINT8:       val.u16 = val.u8;
 134         case PSI_T_UINT16:      val.u32 = val.u16;
 135         case PSI_T_UINT32:      val.u64 = val.u32;
 136         case PSI_T_UINT64:      return val.u64;
 137         case PSI_T_INT8:        val.i16 = val.i8;
 138         case PSI_T_INT16:       val.i32 = val.i16;
 139         case PSI_T_INT32:       val.i64 = val.i32;
 140         case PSI_T_INT64:       return val.i64;
 141         case PSI_T_FLOAT:       val.dval = val.fval;
 142         case PSI_T_DOUBLE:      return val.dval;
 143         EMPTY_SWITCH_DEFAULT_CASE();
 144         }
 145 }
 146
 147 ZEND_BEGIN_MODULE_GLOBALS(psi)
 148         char *engine;
 149         char *directory;
 150         PSI_Context context;
 151 ZEND_END_MODULE_GLOBALS(psi);
 152
 153 #define PSI_G(v) ZEND_MODULE_GLOBALS_ACCESSOR(psi, v)
 154
 155 #if defined(ZTS) && defined(COMPILE_DL_PSI)
 156 ZEND_TSRMLS_CACHE_EXTERN();
 157 #endif
 158
 159 #endif  /* PHP_PSI_H */
 160
 161
 162 /*
 163  * Local variables:
 164  * tab-width: 4
 165  * c-basic-offset: 4
 166  * End:
 167  * vim600: noet sw=4 ts=4 fdm=marker
 168  * vim<600: noet sw=4 ts=4
 169  */