基于PHP的Pagekit Cms轻量级建站系统 php版.zip

/* +----------------------------------------------------------------------+ | Twig Extension | +----------------------------------------------------------------------+ | Copyright (c) 2011 Derick Rethans | +----------------------------------------------------------------------+ | Redistribution and use in source and binary forms, with or without | | modification, are permitted provided that the conditions mentioned | | in the accompanying LICENSE file are met (BSD-3-Clause). | +----------------------------------------------------------------------+ | Author: Derick Rethans <derick@derickrethans.nl> | +----------------------------------------------------------------------+ */ #ifdef HAVE_CONFIG_H #include "config.h" #endif #include "php.h" #include "php_twig.h" #include "ext/standard/php_var.h" #include "ext/standard/php_string.h" #include "ext/standard/php_smart_str.h" #include "ext/spl/spl_exceptions.h" #include "Zend/zend_object_handlers.h" #include "Zend/zend_interfaces.h" #include "Zend/zend_exceptions.h" #ifndef Z_ADDREF_P #define Z_ADDREF_P(pz) (pz)->refcount++ #endif #define FREE_DTOR(z) \ zval_dtor(z); \ efree(z); #if PHP_VERSION_ID >= 50300 #define APPLY_TSRMLS_DC TSRMLS_DC #define APPLY_TSRMLS_CC TSRMLS_CC #define APPLY_TSRMLS_FETCH() #else #define APPLY_TSRMLS_DC #define APPLY_TSRMLS_CC #define APPLY_TSRMLS_FETCH() TSRMLS_FETCH() #endif ZEND_BEGIN_ARG_INFO_EX(twig_template_get_attribute_args, ZEND_SEND_BY_VAL, ZEND_RETURN_VALUE, 6) ZEND_ARG_INFO(0, template) ZEND_ARG_INFO(0, object) ZEND_ARG_INFO(0, item) ZEND_ARG_INFO(0, arguments) ZEND_ARG_INFO(0, type) ZEND_ARG_INFO(0, isDefinedTest) ZEND_END_ARG_INFO() #ifndef PHP_FE_END #define PHP_FE_END { NULL, NULL, NULL} #endif static const zend_function_entry twig_functions[] = { PHP_FE(twig_template_get_attributes, twig_template_get_attribute_args) PHP_FE_END }; PHP_RSHUTDOWN_FUNCTION(twig) { #if ZEND_DEBUG CG(unclean_shutdown) = 0; /* get rid of PHPUnit's exit() and report memleaks */ #endif return SUCCESS; } zend_module_entry twig_module_entry = { STANDARD_MODULE_HEADER, "twig", twig_functions, NULL, NULL, NULL, PHP_RSHUTDOWN(twig), NULL, PHP_TWIG_VERSION, STANDARD_MODULE_PROPERTIES }; #ifdef COMPILE_DL_TWIG ZEND_GET_MODULE(twig) #endif static int TWIG_ARRAY_KEY_EXISTS(zval *array, zval *key) { if (Z_TYPE_P(array) != IS_ARRAY) { return 0; } switch (Z_TYPE_P(key)) { case IS_NULL: return zend_hash_exists(Z_ARRVAL_P(array), "", 1); case IS_BOOL: case IS_DOUBLE: convert_to_long(key); case IS_LONG: return zend_hash_index_exists(Z_ARRVAL_P(array), Z_LVAL_P(key)); default: convert_to_string(key); return zend_symtable_exists(Z_ARRVAL_P(array), Z_STRVAL_P(key), Z_STRLEN_P(key) + 1); } } static int TWIG_INSTANCE_OF(zval *object, zend_class_entry *interface TSRMLS_DC) { if (Z_TYPE_P(object) != IS_OBJECT) { return 0; } return instanceof_function(Z_OBJCE_P(object), interface TSRMLS_CC); } static int TWIG_INSTANCE_OF_USERLAND(zval *object, char *interface TSRMLS_DC) { zend_class_entry **pce; if (Z_TYPE_P(object) != IS_OBJECT) { return 0; } if (zend_lookup_class(interface, strlen(interface), &pce TSRMLS_CC) == FAILURE) { return 0; } return instanceof_function(Z_OBJCE_P(object), *pce TSRMLS_CC); } static zval *TWIG_GET_ARRAYOBJECT_ELEMENT(zval *object, zval *offset TSRMLS_DC) { zend_class_entry *ce = Z_OBJCE_P(object); zval *retval; if (Z_TYPE_P(object) == IS_OBJECT) { SEPARATE_ARG_IF_REF(offset); zend_call_method_with_1_params(&object, ce, NULL, "offsetget", &retval, offset); zval_ptr_dtor(&offset); if (!retval) { if (!EG(exception)) { zend_error(E_ERROR, "Undefined offset for object of type %s used as array", ce->name); } return NULL; } return retval; } return NULL; } static int TWIG_ISSET_ARRAYOBJECT_ELEMENT(zval *object, zval *offset TSRMLS_DC) { zend_class_entry *ce = Z_OBJCE_P(object); zval *retval; if (Z_TYPE_P(object) == IS_OBJECT) { SEPARATE_ARG_IF_REF(offset); zend_call_method_with_1_params(&object, ce, NULL, "offsetexists", &retval, offset); zval_ptr_dtor(&offset); if (!retval) { if (!EG(exception)) { zend_error(E_ERROR, "Undefined offset for object of type %s used as array", ce->name); } return 0; } return (retval && Z_TYPE_P(retval) == IS_BOOL && Z_LVAL_P(retval)); } return 0; } static char *TWIG_STRTOLOWER(const char *str, int str_len) { char *item_dup; item_dup = estrndup(str, str_len); php_strtolower(item_dup, str_len); return item_dup; } static zval *TWIG_CALL_USER_FUNC_ARRAY(zval *object, char *function, zval *arguments TSRMLS_DC) { zend_fcall_info fci; zval ***args = NULL; int arg_count = 0; HashTable *table; HashPosition pos; int i = 0; zval *retval_ptr; zval *zfunction; if (arguments) { table = HASH_OF(arguments); args = safe_emalloc(sizeof(zval **), table->nNumOfElements, 0); zend_hash_internal_pointer_reset_ex(table, &pos); while (zend_hash_get_current_data_ex(table, (void **)&args[i], &pos) == SUCCESS) { i++; zend_hash_move_forward_ex(table, &pos); } arg_count = table->nNumOfElements; } MAKE_STD_ZVAL(zfunction); ZVAL_STRING(zfunction, function, 1); fci.size = sizeof(fci); fci.function_table = EG(function_table); fci.function_name = zfunction; fci.symbol_table = NULL; #if PHP_VERSION_ID >= 50300 fci.object_ptr = object; #else fci.object_pp = &object; #endif fci.retval_ptr_ptr = &retval_ptr; fci.param_count = arg_count; fci.params = args; fci.no_separation = 0; if (zend_call_function(&fci, NULL TSRMLS_CC) == FAILURE) { ALLOC_INIT_ZVAL(retval_ptr); ZVAL_BOOL(retval_ptr, 0); } if (args) { efree(fci.params); } FREE_DTOR(zfunction); return retval_ptr; } static int TWIG_CALL_BOOLEAN(zval *object, char *functionName TSRMLS_DC) { zval *ret; int res; ret = TWIG_CALL_USER_FUNC_ARRAY(object, functionName, NULL TSRMLS_CC); res = Z_LVAL_P(ret); zval_ptr_dtor(&ret); return res; } static zval *TWIG_GET_STATIC_PROPERTY(zval *class, char *prop_name TSRMLS_DC) { zval **tmp_zval; zend_class_entry *ce; if (class == NULL || Z_TYPE_P(class) != IS_OBJECT) { return NULL; } ce = zend_get_class_entry(class TSRMLS_CC); #if PHP_VERSION_ID >= 50400 tmp_zval = zend_std_get_static_property(ce, prop_name, strlen(prop_name), 0, NULL TSRMLS_CC); #else tmp_zval = zend_std_get_static_property(ce, prop_name, strlen(prop_name), 0 TSRMLS_CC); #endif return *tmp_zval; } static zval *TWIG_GET_ARRAY_ELEMENT_ZVAL(zval *class, zval *prop_name TSRMLS_DC) { zval **tmp_zval; if (class == NULL || Z_TYPE_P(class) != IS_ARRAY) { if (class != NULL && Z_TYPE_P(class) == IS_OBJECT && TWIG_INSTANCE_OF(class, zend_ce_arrayaccess TSRMLS_CC)) { // array access object return TWIG_GET_ARRAYOBJECT_ELEMENT(class, prop_name TSRMLS_CC); } return NULL; } switch(Z_TYPE_P(prop_name)) { case IS_NULL: zend_hash_find(HASH_OF(class), "", 1, (void**) &tmp_zval); return *tmp_zval; case IS_BOOL: case IS_DOUBLE: convert_to_long(prop_name); case IS_LONG: zend_hash_index_find(HASH_OF(class), Z_LVAL_P(prop_name), (void **) &tmp_zval); return *tmp_zval; case IS_STRING: zend_symtable_find(HASH_OF(class), Z_STRVAL_P(prop_name), Z_STRLEN_P(prop_name) + 1, (void**) &tmp_zval); return *tmp_zval; } return NULL; } static zval *TWIG_GET_ARRAY_ELEMENT(zval *class, char *prop_name, int prop_name_length TSRMLS_DC) { zval **tmp_zval; if (class == NULL/* || Z_TYPE_P(class) != IS_ARRAY*/) { return NULL; } if (class != NULL && Z_TYPE_P(class) == IS_OBJECT && TWIG_INSTANCE_OF(class, zend_ce_arrayaccess TSRMLS_CC)) { // array access object zval *tmp_name_zval; zval *tmp_ret_zval; ALLOC_INIT_ZVAL(tmp_name_zval); ZVAL_STRING(tmp_name_zval, prop_name, 1); tmp_ret_zval = TWIG_GET_ARRAYOB