X-Git-Url: https://git.m6w6.name/?p=m6w6%2Fext-psi;a=blobdiff_plain;f=php_psi.h;h=de06fc304eca0ab4eb083160e3b6bb9e87d4da09;hp=dd422b7a848a47b328ad336c82e2f112a7636c87;hb=c57af11984f284e7e9de5bde5c189c416004638c;hpb=756a2c4350162a9a7f930bdc0ec7718ff13ea48c diff --git a/php_psi.h b/php_psi.h index dd422b7..de06fc3 100644 --- a/php_psi.h +++ b/php_psi.h @@ -1,7 +1,33 @@ +/******************************************************************************* + Copyright (c) 2016, Michael Wallner . + All rights reserved. + + Redistribution and use in source and binary forms, with or without + modification, are permitted provided that the following conditions are met: + + * Redistributions of source code must retain the above copyright notice, + this list of conditions and the following disclaimer. + * Redistributions in binary form must reproduce the above copyright + notice, this list of conditions and the following disclaimer in the + documentation and/or other materials provided with the distribution. + + THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" + AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE + IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE + DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE LIABLE + FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL + DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR + SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER + CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, + OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE + OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE. +*******************************************************************************/ #ifndef PHP_PSI_H #define PHP_PSI_H +#include "php.h" + extern zend_module_entry psi_module_entry; #define phpext_psi_ptr &psi_module_entry @@ -19,18 +45,60 @@ extern zend_module_entry psi_module_entry; #include "TSRM.h" #endif -#include "context.h" -#include "parser.h" - -void psi_error(int type, const char *msg, ...); - static inline int psi_check_env(const char *var) { char *set = getenv(var); - return (set && *set && '0' != *set); + return (set && *set && (*set != '0' || set[1])); +} + +#include +#include "php_network.h" + +static inline int psi_fdopen(const char *desc) +{ + int fd = -1; + + if (desc) { + char *addr = strstr(desc, "://"); + + if (addr) { + addr += 3; + } + if (addr && *addr) { + struct sockaddr_storage sa = {0}; + socklen_t ss = 0; + int rc = php_network_parse_network_address_with_port(addr, + strlen(addr), (struct sockaddr *) &sa, &ss); + + if (SUCCESS == rc) { + int styp = strncmp(desc, "udp:", 4) + ? SOCK_STREAM + : SOCK_DGRAM; + int sfam = sa.ss_family == AF_INET6 + ? ((struct sockaddr_in6 *) &sa)->sin6_family + : ((struct sockaddr_in *) &sa)->sin_family; + + fd = socket(sfam, styp, 0); + + if (fd > 0 && 0 != connect(fd, (struct sockaddr *) &sa, ss)) { + perror(desc); + close(fd); + fd = -1; + } + } + } else if (!strcmp(desc, "stdout")) { + fd = STDOUT_FILENO; + } else if (!strcmp(desc, "stderr")) { + fd = STDERR_FILENO; + } else if (!(fd = atoi(desc)) || -1 == fcntl(fd, F_GETFD)) { + fd = open(desc, O_WRONLY|O_APPEND|O_CREAT|O_CLOEXEC, 0664); + } + } + return fd; } typedef struct psi_object { void *data; + void (*dtor)(void *data); size_t size; zend_object std; } psi_object; @@ -39,117 +107,30 @@ static inline psi_object *PSI_OBJ(zval *zv, zend_object *zo) { if (zv) { zo = Z_OBJ_P(zv); } - return (void *) (((char *) zo) - zo->handlers->offset); -} - -size_t psi_t_alignment(token_t t); -size_t psi_t_size(token_t t); -size_t psi_t_align(token_t t, size_t s); - -int psi_internal_type(impl_type *type); -zend_internal_arg_info *psi_internal_arginfo(impl *impl); -size_t psi_num_min_args(impl *impl); - -void psi_to_void(zval *return_value, set_value *set, impl_val *ret_val); -void psi_to_bool(zval *return_value, set_value *set, impl_val *ret_val); -void psi_to_int(zval *return_value, set_value *set, impl_val *ret_val); -void psi_to_double(zval *return_value, set_value *set, impl_val *ret_val); -void psi_to_string(zval *return_value, set_value *set, impl_val *ret_val); -void psi_to_array(zval *return_value, set_value *set, impl_val *ret_val); -void psi_to_object(zval *return_value, set_value *set, impl_val *ret_val); - -void psi_call(zend_execute_data *execute_data, zval *return_value, impl *impl); - -static inline int psi_calc_num_exp_value(num_exp *exp, impl_val *val) { - switch (exp->t) { - case PSI_T_NUMBER: - switch (is_numeric_string(exp->u.numb, strlen(exp->u.numb), (zend_long *) val, (double *) val, 0)) { - case IS_LONG: - return PSI_T_INT64; - case IS_DOUBLE: - return PSI_T_DOUBLE; - } - break; - - case PSI_T_NSNAME: - switch (exp->u.cnst->type->type) { - case PSI_T_INT: - val->i64 = zend_get_constant_str(exp->u.cnst->name, strlen(exp->u.cnst->name))->value.lval; - return PSI_T_INT64; - case PSI_T_FLOAT: - val->dval = zend_get_constant_str(exp->u.cnst->name, strlen(exp->u.cnst->name))->value.dval; - return PSI_T_DOUBLE; - default: - return 0; - } - break; - - case PSI_T_NAME: - switch (real_decl_type(exp->u.dvar->arg->type)->type) { - case PSI_T_INT8: - case PSI_T_UINT8: - case PSI_T_INT16: - case PSI_T_UINT16: - case PSI_T_INT32: - case PSI_T_UINT32: - case PSI_T_INT64: - case PSI_T_UINT64: - memcpy(val, deref_impl_val(exp->u.dvar->arg->let->ptr, exp->u.dvar), sizeof(*val)); - return real_decl_type(exp->u.dvar->arg->type)->type; - - case PSI_T_FLOAT: - case PSI_T_DOUBLE: - memcpy(val, deref_impl_val(exp->u.dvar->arg->let->ptr, exp->u.dvar), sizeof(*val)); - return real_decl_type(exp->u.dvar->arg->type)->type; - - EMPTY_SWITCH_DEFAULT_CASE(); - } - break; - - EMPTY_SWITCH_DEFAULT_CASE(); - } - return 0; -} - -static inline int psi_calc_num_exp(num_exp *exp, impl_val *val) { - impl_val num = {0}; - int num_type = psi_calc_num_exp_value(exp, &num); - - if (exp->operand) { - impl_val tmp = {0}; - int tmp_type = psi_calc_num_exp(exp->operand, &tmp); - - return exp->calculator(num_type, &num, tmp_type, &tmp, val); + if (!zo) { + return NULL; } - - memcpy(val, &num, sizeof(*val)); - return num_type; + return (void *) (((char *) zo) - zo->handlers->offset); } -static inline zend_long psi_long_num_exp(num_exp *exp) { - impl_val val = {0}; - - switch (psi_calc_num_exp(exp, &val)) { - case PSI_T_UINT8: val.u16 = val.u8; - case PSI_T_UINT16: val.u32 = val.u16; - case PSI_T_UINT32: val.u64 = val.u32; - case PSI_T_UINT64: return val.u64; - case PSI_T_INT8: val.i16 = val.i8; - case PSI_T_INT16: val.i32 = val.i16; - case PSI_T_INT32: val.i64 = val.i32; - case PSI_T_INT64: return val.i64; - case PSI_T_FLOAT: val.dval = val.fval; - case PSI_T_DOUBLE: return val.dval; - EMPTY_SWITCH_DEFAULT_CASE(); - } -} +PHP_PSI_API zend_object *psi_object_init(zend_class_entry *ce); +PHP_PSI_API zend_object *psi_object_init_ex(zend_class_entry *ce, void *data, void (*dtor)(void *)); +PHP_PSI_API zend_class_entry *psi_object_get_class_entry(); ZEND_BEGIN_MODULE_GLOBALS(psi) char *engine; char *directory; - PSI_Context context; + char *search_path; + struct psi_context_ops *ops; + struct psi_context *context; + struct { + struct psi_plist *decls; + struct psi_plist *vars; + } blacklist; ZEND_END_MODULE_GLOBALS(psi); +ZEND_EXTERN_MODULE_GLOBALS(psi); + #define PSI_G(v) ZEND_MODULE_GLOBALS_ACCESSOR(psi, v) #if defined(ZTS) && defined(COMPILE_DL_PSI)