text: /*
    +----------------------------------------------------------------------+
    | PHP Version 7                                                        |
    +----------------------------------------------------------------------+
    | Copyright (c) 1997-2017 The PHP Group                                |
    +----------------------------------------------------------------------+
    | This source file is subject to version 3.01 of the PHP license,      |
    | that is bundled with this package in the file LICENSE, and is        |
    | available through the world-wide-web at the following url:           |
    | http://www.php.net/license/3_01.txt                                  |
    | If you did not receive a copy of the PHP license and are unable to   |
    | obtain it through the world-wide-web, please send a note to          |
    | license@php.net so we can mail you a copy immediately.               |
    +----------------------------------------------------------------------+
    | Authors: Rasmus Lerdorf <rasmus@php.net>                             |
    |          Derick Rethans <derick@php.net>                             |
    |          Pierre-A. Joye <pierre@php.net>                             |
    |          Ilia Alshanetsky <iliaa@php.net>                            |
    +----------------------------------------------------------------------+
  */
  
  /* $Id: cdc5e15bb616f10210b94ecd8789e66c927a375f $ */
  
  #ifdef HAVE_CONFIG_H
  #include "config.h"
  #endif
  
  #include "php_filter.h"
  
  ZEND_DECLARE_MODULE_GLOBALS(filter)
  
  #include "filter_private.h"
  
  typedef struct filter_list_entry {
  	const char *name;
  	int    id;
  	void (*function)(PHP_INPUT_FILTER_PARAM_DECL);
  } filter_list_entry;
  
  /* {{{ filter_list */
  static const filter_list_entry filter_list[] = {
  	{ "int",             FILTER_VALIDATE_INT,           php_filter_int             },
  	{ "boolean",         FILTER_VALIDATE_BOOLEAN,       php_filter_boolean         },
  	{ "float",           FILTER_VALIDATE_FLOAT,         php_filter_float           },
  
  	{ "validate_regexp", FILTER_VALIDATE_REGEXP,        php_filter_validate_regexp },
  	{ "validate_domain", FILTER_VALIDATE_DOMAIN,        php_filter_validate_domain },
  	{ "validate_url",    FILTER_VALIDATE_URL,           php_filter_validate_url    },
  	{ "validate_email",  FILTER_VALIDATE_EMAIL,         php_filter_validate_email  },
  	{ "validate_ip",     FILTER_VALIDATE_IP,            php_filter_validate_ip     },
  	{ "validate_mac",    FILTER_VALIDATE_MAC,           php_filter_validate_mac    },
  
  	{ "string",          FILTER_SANITIZE_STRING,        php_filter_string          },
  	{ "stripped",        FILTER_SANITIZE_STRING,        php_filter_string          },
  	{ "encoded",         FILTER_SANITIZE_ENCODED,       php_filter_encoded         },
  	{ "special_chars",   FILTER_SANITIZE_SPECIAL_CHARS, php_filter_special_chars   },
  	{ "full_special_chars",   FILTER_SANITIZE_FULL_SPECIAL_CHARS, php_filter_full_special_chars   },
  	{ "unsafe_raw",      FILTER_UNSAFE_RAW,             php_filter_unsafe_raw      },
  	{ "email",           FILTER_SANITIZE_EMAIL,         php_filter_email           },
  	{ "url",             FILTER_SANITIZE_URL,           php_filter_url             },
  	{ "number_int",      FILTER_SANITIZE_NUMBER_INT,    php_filter_number_int      },
  	{ "number_float",    FILTER_SANITIZE_NUMBER_FLOAT,  php_filter_number_float    },
  	{ "magic_quotes",    FILTER_SANITIZE_MAGIC_QUOTES,  php_filter_magic_quotes    },
  
  	{ "callback",        FILTER_CALLBACK,               php_filter_callback        },
  };
  /* }}} */
  
  #ifndef PARSE_ENV
  #define PARSE_ENV 4
  #endif
  
  #ifndef PARSE_SERVER
  #define PARSE_SERVER 5
  #endif
  
  #ifndef PARSE_SESSION
  #define PARSE_SESSION 6
  #endif
  
  static unsigned int php_sapi_filter(int arg, char *var, char **val, size_t val_len, size_t *new_val_len);
  static unsigned int php_sapi_filter_init(void);
  
  /* {{{ arginfo */
  ZEND_BEGIN_ARG_INFO_EX(arginfo_filter_input, 0, 0, 2)
  	ZEND_ARG_INFO(0, type)
  	ZEND_ARG_INFO(0, variable_name)
  	ZEND_ARG_INFO(0, filter)
  	ZEND_ARG_INFO(0, options)
  ZEND_END_ARG_INFO()
  
  ZEND_BEGIN_ARG_INFO_EX(arginfo_filter_var, 0, 0, 1)
  	ZEND_ARG_INFO(0, variable)
  	ZEND_ARG_INFO(0, filter)
  	ZEND_ARG_INFO(0, options)
  ZEND_END_ARG_INFO()
  
  ZEND_BEGIN_ARG_INFO_EX(arginfo_filter_input_array, 0, 0, 1)
  	ZEND_ARG_INFO(0, type)
  	ZEND_ARG_INFO(0, definition)
  	ZEND_ARG_INFO(0, add_empty)
  ZEND_END_ARG_INFO()
  
  ZEND_BEGIN_ARG_INFO_EX(arginfo_filter_var_array, 0, 0, 1)
  	ZEND_ARG_INFO(0, data)
  	ZEND_ARG_INFO(0, definition)
  	ZEND_ARG_INFO(0, add_empty)
  ZEND_END_ARG_INFO()
  
  ZEND_BEGIN_ARG_INFO(arginfo_filter_list, 0)
  ZEND_END_ARG_INFO()
  
  ZEND_BEGIN_ARG_INFO_EX(arginfo_filter_has_var, 0, 0, 2)
  	ZEND_ARG_INFO(0, type)
  	ZEND_ARG_INFO(0, variable_name)
  ZEND_END_ARG_INFO()
  
  ZEND_BEGIN_ARG_INFO_EX(arginfo_filter_id, 0, 0, 1)
  	ZEND_ARG_INFO(0, filtername)
  ZEND_END_ARG_INFO()
  /* }}} */
  
  /* {{{ filter_functions[]
   */
  static const zend_function_entry filter_functions[] = {
  	PHP_FE(filter_input,		arginfo_filter_input)
  	PHP_FE(filter_var,		arginfo_filter_var)
  	PHP_FE(filter_input_array,	arginfo_filter_input_array)
  	PHP_FE(filter_var_array,	arginfo_filter_var_array)
  	PHP_FE(filter_list,		arginfo_filter_list)
  	PHP_FE(filter_has_var,		arginfo_filter_has_var)
  	PHP_FE(filter_id,		arginfo_filter_id)
  	PHP_FE_END
  };
  /* }}} */
  
  /* {{{ filter_module_entry
   */
  zend_module_entry filter_module_entry = {
  	STANDARD_MODULE_HEADER,
  	"filter",
  	filter_functions,
  	PHP_MINIT(filter),
  	PHP_MSHUTDOWN(filter),
  	NULL,
  	PHP_RSHUTDOWN(filter),
  	PHP_MINFO(filter),
  	PHP_FILTER_VERSION,
  	STANDARD_MODULE_PROPERTIES
  };
  /* }}} */
  
  #ifdef COMPILE_DL_FILTER
  #ifdef ZTS
  ZEND_TSRMLS_CACHE_DEFINE()
  #endif
  ZEND_GET_MODULE(filter)
  #endif
  
  static PHP_INI_MH(UpdateDefaultFilter) /* {{{ */
  {
  	int i, size = sizeof(filter_list) / sizeof(filter_list_entry);
  
  	for (i = 0; i < size; ++i) {
  		if ((strcasecmp(ZSTR_VAL(new_value), filter_list[i].name) == 0)) {
  			IF_G(default_filter) = filter_list[i].id;
  			return SUCCESS;
  		}
  	}
  	/* Fallback to the default filter */
  	IF_G(default_filter) = FILTER_DEFAULT;
  	return SUCCESS;
  }
  /* }}} */
  
  /* {{{ PHP_INI
   */
  static PHP_INI_MH(OnUpdateFlags)
  {
  	if (!new_value) {
  		IF_G(default_filter_flags) = FILTER_FLAG_NO_ENCODE_QUOTES;
  	} else {
  		IF_G(default_filter_flags) = atoi(ZSTR_VAL(new_value));
  	}
  	return SUCCESS;
  }
  
  PHP_INI_BEGIN()
  	STD_PHP_INI_ENTRY("filter.default",   "unsafe_raw", PHP_INI_SYSTEM|PHP_INI_PERDIR, UpdateDefaultFilter, default_filter, zend_filter_globals, filter_globals)
  	PHP_INI_ENTRY("filter.default_flags", NULL,     PHP_INI_SYSTEM|PHP_INI_PERDIR, OnUpdateFlags)
  PHP_INI_END()
  /* }}} */
  
  static void php_filter_init_globals(zend_filter_globals *filter_globals) /* {{{ */
  {
  #if defined(COMPILE_DL_FILTER) && defined(ZTS)
  ZEND_TSRMLS_CACHE_UPDATE();
  #endif
  	ZVAL_UNDEF(&filter_globals->post_array);
  	ZVAL_UNDEF(&filter_globals->get_array);
  	ZVAL_UNDEF(&filter_globals->cookie_array);
  	ZVAL_UNDEF(&filter_globals->env_array);
  	ZVAL_UNDEF(&filter_globals->server_array);
  	ZVAL_UNDEF(&filter_globals->session_array);
  	filter_globals->default_filter = FILTER_DEFAULT;
  }
  /* }}} */
  
  #define PARSE_REQUEST 99
  
  /* {{{ PHP_MINIT_FUNCTION
   */
  PHP_MINIT_FUNCTION(filter)
  {
  	ZEND_INIT_MODULE_GLOBALS(filter, php_filter_init_globals, NULL);
  
  	REGISTER_INI_ENTRIES();
  
  	REGISTER_LONG_CONSTANT("INPUT_POST",	PARSE_POST, 	CONST_CS | CONST_PERSISTENT);
  	REGISTER_LONG_CONSTANT("INPUT_GET",		PARSE_GET,		CONST_CS | CONST_PERSISTENT);
  	REGISTER_LONG_CONSTANT("INPUT_COOKIE",	PARSE_COOKIE, 	CONST_CS | CONST_PERSISTENT);
  	REGISTER_LONG_CONSTANT("INPUT_ENV",		PARSE_ENV,		CONST_CS | CONST_PERSISTENT);
  	REGISTER_LONG_CONSTANT("INPUT_SERVER",	PARSE_SERVER, 	CONST_CS | CONST_PERSISTENT);
  	REGISTER_LONG_CONSTANT("INPUT_SESSION", PARSE_SESSION, 	CONST_CS | CONST_PERSISTENT);
  	REGISTER_LONG_CONSTANT("INPUT_REQUEST", PARSE_REQUEST, 	CONST_CS | CONST_PERSISTENT);
  
  	REGISTER_LONG_CONSTANT("FILTER_FLAG_NONE", FILTER_FLAG_NONE, CONST_CS | CONST_PERSISTENT);
  
  	REGISTER_LONG_CONSTANT("FILTER_REQUIRE_SCALAR", FILTER_REQUIRE_SCALAR, CONST_CS | CONST_PERSISTENT);
  	REGISTER_LONG_CONSTANT("FILTER_REQUIRE_ARRAY", FILTER_REQUIRE_ARRAY, CONST_CS | CONST_PERSISTENT);
  	REGISTER_LONG_CONSTANT("FILTER_FORCE_ARRAY", FILTER_FORCE_ARRAY, CONST_CS | CONST_PERSISTENT);
  	REGISTER_LONG_CONSTANT("FILTER_NULL_ON_FAILURE", FILTER_NULL_ON_FAILURE, CONST_CS | CONST_PERSISTENT);
  
  	REGISTER_LONG_CONSTANT("FILTER_VALIDATE_INT", FILTER_VALIDATE_INT, CONST_CS | CONST_PERSISTENT);
  	REGISTER_LONG_CONSTANT("FILTER_VALIDATE_BOOLEAN", FILTER_VALIDATE_BOOLEAN, CONST_CS | CONST_PERSISTENT);
  	REGISTER_LONG_CONSTANT("FILTER_VALIDATE_FLOAT", FILTER_VALIDATE_FLOAT, CONST_CS | CONST_PERSISTENT);
  
  	REGISTER_LONG_CONSTANT("FILTER_VALIDATE_REGEXP", FILTER_VALIDATE_REGEXP, CONST_CS | CONST_PERSISTENT);
  	REGISTER_LONG_CONSTANT("FILTER_VALIDATE_DOMAIN", FILTER_VALIDATE_DOMAIN, CONST_CS | CONST_PERSISTENT);
  	REGISTER_LONG_CONSTANT("FILTER_VALIDATE_URL", FILTER_VALIDATE_URL, CONST_CS | CONST_PERSISTENT);
  	REGISTER_LONG_CONSTANT("FILTER_VALIDATE_EMAIL", FILTER_VALIDATE_EMAIL, CONST_CS | CONST_PERSISTENT);
  	REGISTER_LONG_CONSTANT("FILTER_VALIDATE_IP", FILTER_VALIDATE_IP, CONST_CS | CONST_PERSISTENT);
  	REGISTER_LONG_CONSTANT("FILTER_VALIDATE_MAC", FILTER_VALIDATE_MAC, CONST_CS | CONST_PERSISTENT);
  
  	REGISTER_LONG_CONSTANT("FILTER_DEFAULT", FILTER_DEFAULT, CONST_CS | CONST_PERSISTENT);
  	REGISTER_LONG_CONSTANT("FILTER_UNSAFE_RAW", FILTER_UNSAFE_RAW, CONST_CS | CONST_PERSISTENT);
  
  	REGISTER_LONG_CONSTANT("FILTER_SANITIZE_STRING", FILTER_SANITIZE_STRING, CONST_CS | CONST_PERSISTENT);
  	REGISTER_LONG_CONSTANT("FILTER_SANITIZE_STRIPPED", FILTER_SANITIZE_STRING, CONST_CS | CONST_PERSISTENT);
  	REGISTER_LONG_CONSTANT("FILTER_SANITIZE_ENCODED", FILTER_SANITIZE_ENCODED, CONST_CS | CONST_PERSISTENT);
  	REGISTER_LONG_CONSTANT("FILTER_SANITIZE_SPECIAL_CHARS", FILTER_SANITIZE_SPECIAL_CHARS, CONST_CS | CONST_PERSISTENT);
  	REGISTER_LONG_CONSTANT("FILTER_SANITIZE_FULL_SPECIAL_CHARS", FILTER_SANITIZE_FULL_SPECIAL_CHARS, CONST_CS | CONST_PERSISTENT);
  	REGISTER_LONG_CONSTANT("FILTER_SANITIZE_EMAIL", FILTER_SANITIZE_EMAIL, CONST_CS | CONST_PERSISTENT);
  	REGISTER_LONG_CONSTANT("FILTER_SANITIZE_URL", FILTER_SANITIZE_URL, CONST_CS | CONST_PERSISTENT);
  	REGISTER_LONG_CONSTANT("FILTER_SANITIZE_NUMBER_INT", FILTER_SANITIZE_NUMBER_INT, CONST_CS | CONST_PERSISTENT);
  	REGISTER_LONG_CONSTANT("FILTER_SANITIZE_NUMBER_FLOAT", FILTER_SANITIZE_NUMBER_FLOAT, CONST_CS | CONST_PERSISTENT);
  	REGISTER_LONG_CONSTANT("FILTER_SANITIZE_MAGIC_QUOTES", FILTER_SANITIZE_MAGIC_QUOTES, CONST_CS | CONST_PERSISTENT);
  
  	REGISTER_LONG_CONSTANT("FILTER_CALLBACK", FILTER_CALLBACK, CONST_CS | CONST_PERSISTENT);
  
  	REGISTER_LONG_CONSTANT("FILTER_FLAG_ALLOW_OCTAL", FILTER_FLAG_ALLOW_OCTAL, CONST_CS | CONST_PERSISTENT);
  	REGISTER_LONG_CONSTANT("FILTER_FLAG_ALLOW_HEX", FILTER_FLAG_ALLOW_HEX, CONST_CS | CONST_PERSISTENT);
  
  	REGISTER_LONG_CONSTANT("FILTER_FLAG_STRIP_LOW", FILTER_FLAG_STRIP_LOW, CONST_CS | CONST_PERSISTENT);
  	REGISTER_LONG_CONSTANT("FILTER_FLAG_STRIP_HIGH", FILTER_FLAG_STRIP_HIGH, CONST_CS | CONST_PERSISTENT);
  	REGISTER_LONG_CONSTANT("FILTER_FLAG_STRIP_BACKTICK", FILTER_FLAG_STRIP_BACKTICK, CONST_CS | CONST_PERSISTENT);
  	REGISTER_LONG_CONSTANT("FILTER_FLAG_ENCODE_LOW", FILTER_FLAG_ENCODE_LOW, CONST_CS | CONST_PERSISTENT);
  	REGISTER_LONG_CONSTANT("FILTER_FLAG_ENCODE_HIGH", FILTER_FLAG_ENCODE_HIGH, CONST_CS | CONST_PERSISTENT);
  	REGISTER_LONG_CONSTANT("FILTER_FLAG_ENCODE_AMP", FILTER_FLAG_ENCODE_AMP, CONST_CS | CONST_PERSISTENT);
  	REGISTER_LONG_CONSTANT("FILTER_FLAG_NO_ENCODE_QUOTES", FILTER_FLAG_NO_ENCODE_QUOTES, CONST_CS | CONST_PERSISTENT);
  	REGISTER_LONG_CONSTANT("FILTER_FLAG_EMPTY_STRING_NULL", FILTER_FLAG_EMPTY_STRING_NULL, CONST_CS | CONST_PERSISTENT);
  
  	REGISTER_LONG_CONSTANT("FILTER_FLAG_ALLOW_FRACTION", FILTER_FLAG_ALLOW_FRACTION, CONST_CS | CONST_PERSISTENT);
  	REGISTER_LONG_CONSTANT("FILTER_FLAG_ALLOW_THOUSAND", FILTER_FLAG_ALLOW_THOUSAND, CONST_CS | CONST_PERSISTENT);
  	REGISTER_LONG_CONSTANT("FILTER_FLAG_ALLOW_SCIENTIFIC", FILTER_FLAG_ALLOW_SCIENTIFIC, CONST_CS | CONST_PERSISTENT);
  
  	REGISTER_LONG_CONSTANT("FILTER_FLAG_SCHEME_REQUIRED", FILTER_FLAG_SCHEME_REQUIRED, CONST_CS | CONST_PERSISTENT);
  	REGISTER_LONG_CONSTANT("FILTER_FLAG_HOST_REQUIRED", FILTER_FLAG_HOST_REQUIRED, CONST_CS | CONST_PERSISTENT);
  	REGISTER_LONG_CONSTANT("FILTER_FLAG_PATH_REQUIRED", FILTER_FLAG_PATH_REQUIRED, CONST_CS | CONST_PERSISTENT);
  	REGISTER_LONG_CONSTANT("FILTER_FLAG_QUERY_REQUIRED", FILTER_FLAG_QUERY_REQUIRED, CONST_CS | CONST_PERSISTENT);
  
  	REGISTER_LONG_CONSTANT("FILTER_FLAG_IPV4", FILTER_FLAG_IPV4, CONST_CS | CONST_PERSISTENT);
  	REGISTER_LONG_CONSTANT("FILTER_FLAG_IPV6", FILTER_FLAG_IPV6, CONST_CS | CONST_PERSISTENT);
  	REGISTER_LONG_CONSTANT("FILTER_FLAG_NO_RES_RANGE", FILTER_FLAG_NO_RES_RANGE, CONST_CS | CONST_PERSISTENT);
  	REGISTER_LONG_CONSTANT("FILTER_FLAG_NO_PRIV_RANGE", FILTER_FLAG_NO_PRIV_RANGE, CONST_CS | CONST_PERSISTENT);
  
  	REGISTER_LONG_CONSTANT("FILTER_FLAG_HOSTNAME", FILTER_FLAG_HOSTNAME, CONST_CS | CONST_PERSISTENT);
  
  	REGISTER_LONG_CONSTANT("FILTER_FLAG_EMAIL_UNICODE", FILTER_FLAG_EMAIL_UNICODE, CONST_CS | CONST_PERSISTENT);
  
  	sapi_register_input_filter(php_sapi_filter, php_sapi_filter_init);
  
  	return SUCCESS;
  }
  /* }}} */
  
  /* {{{ PHP_MSHUTDOWN_FUNCTION
   */
  PHP_MSHUTDOWN_FUNCTION(filter)
  {
  	UNREGISTER_INI_ENTRIES();
  
  	return SUCCESS;
  }
  /* }}} */
  
  /* {{{ PHP_RSHUTDOWN_FUNCTION
   */
  #define VAR_ARRAY_COPY_DTOR(a)   \
  	if (!Z_ISUNDEF(IF_G(a))) {   \
  		zval_ptr_dtor(&IF_G(a)); \
  		ZVAL_UNDEF(&IF_G(a));    \
  	}
  
  PHP_RSHUTDOWN_FUNCTION(filter)
  {
  	VAR_ARRAY_COPY_DTOR(get_array)
  	VAR_ARRAY_COPY_DTOR(post_array)
  	VAR_ARRAY_COPY_DTOR(cookie_array)
  	VAR_ARRAY_COPY_DTOR(server_array)
  	VAR_ARRAY_COPY_DTOR(env_array)
  	VAR_ARRAY_COPY_DTOR(session_array)
  	return SUCCESS;
  }
  /* }}} */
  
  /* {{{ PHP_MINFO_FUNCTION
   */
  PHP_MINFO_FUNCTION(filter)
  {
  	php_info_print_table_start();
  	php_info_print_table_row( 2, "Input Validation and Filtering", "enabled" );
  	php_info_print_table_row( 2, "Revision", "$Id: cdc5e15bb616f10210b94ecd8789e66c927a375f $");
  	php_info_print_table_end();
  
  	DISPLAY_INI_ENTRIES();
  }
  /* }}} */
  
  static filter_list_entry php_find_filter(zend_long id) /* {{{ */
  {
  	int i, size = sizeof(filter_list) / sizeof(filter_list_entry);
  
  	for (i = 0; i < size; ++i) {
  		if (filter_list[i].id == id) {
  			return filter_list[i];
  		}
  	}
  	/* Fallback to "string" filter */
  	for (i = 0; i < size; ++i) {
  		if (filter_list[i].id == FILTER_DEFAULT) {
  			return filter_list[i];
  		}
  	}
  	/* To shut up GCC */
  	return filter_list[0];
  }
  /* }}} */
  
  static unsigned int php_sapi_filter_init(void)
  {
  	ZVAL_UNDEF(&IF_G(get_array));
  	ZVAL_UNDEF(&IF_G(post_array));
  	ZVAL_UNDEF(&IF_G(cookie_array));
  	ZVAL_UNDEF(&IF_G(server_array));
  	ZVAL_UNDEF(&IF_G(env_array));
  	ZVAL_UNDEF(&IF_G(session_array));
  	return SUCCESS;
  }
  
  static void php_zval_filter(zval *value, zend_long filter, zend_long flags, zval *options, char* charset, zend_bool copy) /* {{{ */
  {
  	filter_list_entry  filter_func;
  
  	filter_func = php_find_filter(filter);
  
  	if (!filter_func.id) {
  		/* Find default filter */
  		filter_func = php_find_filter(FILTER_DEFAULT);
  	}
  
  	if (copy) {
  		SEPARATE_ZVAL(value);
  	}
  
  	/* #49274, fatal error with object without a toString method
  	  Fails nicely instead of getting a recovarable fatal error. */
  	if (Z_TYPE_P(value) == IS_OBJECT) {
  		zend_class_entry *ce;
  
  		ce = Z_OBJCE_P(value);
  		if (!ce->__tostring) {
  			zval_ptr_dtor(value);
  			/* #67167: doesn't return null on failure for objects */
  			if (flags & FILTER_NULL_ON_FAILURE) {
  				ZVAL_NULL(value);
  			} else {
  				ZVAL_FALSE(value);
  			}
  			goto handle_default;
  		}
  	}
  
  	/* Here be strings */
  	convert_to_string(value);
  
  	filter_func.function(value, flags, options, charset);
  
  handle_default:
  	if (options && (Z_TYPE_P(options) == IS_ARRAY || Z_TYPE_P(options) == IS_OBJECT) &&
  		((flags & FILTER_NULL_ON_FAILURE && Z_TYPE_P(value) == IS_NULL) ||
  		(!(flags & FILTER_NULL_ON_FAILURE) && Z_TYPE_P(value) == IS_FALSE)) &&
  		zend_hash_str_exists(HASH_OF(options), "default", sizeof("default") - 1)) {
  		zval *tmp;
  		if ((tmp = zend_hash_str_find(HASH_OF(options), "default", sizeof("default") - 1)) != NULL) {
  			ZVAL_COPY(value, tmp);
  		}
  	}
  }
  /* }}} */
  
  static unsigned int php_sapi_filter(int arg, char *var, char **val, size_t val_len, size_t *new_val_len) /* {{{ */
  {
  	zval  new_var, raw_var;
  	zval *array_ptr = NULL, *orig_array_ptr = NULL;
  	int retval = 0;
  
  	assert(*val != NULL);
  
  #define PARSE_CASE(s,a,t)                     		\
  		case s:                               		\
  			if (Z_ISUNDEF(IF_G(a))) {         		\
  				array_init(&IF_G(a)); 				\
  			}										\
  			array_ptr = &IF_G(a);          			\
  			orig_array_ptr = &PG(http_globals)[t]; 	\
  			break;
  
  	switch (arg) {
  		PARSE_CASE(PARSE_POST,    post_array,    TRACK_VARS_POST)
  		PARSE_CASE(PARSE_GET,     get_array,     TRACK_VARS_GET)
  		PARSE_CASE(PARSE_COOKIE,  cookie_array,  TRACK_VARS_COOKIE)
  		PARSE_CASE(PARSE_SERVER,  server_array,  TRACK_VARS_SERVER)
  		PARSE_CASE(PARSE_ENV,     env_array,     TRACK_VARS_ENV)
  
  		case PARSE_STRING: /* PARSE_STRING is used by parse_str() function */
  			retval = 1;
  			break;
  	}
  
  	/*
  	 * According to rfc2965, more specific paths are listed above the less specific ones.
  	 * If we encounter a duplicate cookie name, we should skip it, since it is not possible
  	 * to have the same (plain text) cookie name for the same path and we should not overwrite
  	 * more specific cookies with the less specific ones.
  	*/
  	if (arg == PARSE_COOKIE && orig_array_ptr &&
  			zend_symtable_str_exists(Z_ARRVAL_P(orig_array_ptr), var, strlen(var))) {
  		return 0;
  	}
  
  	if (array_ptr) {
  		/* Store the RAW variable internally */
  		ZVAL_STRINGL(&raw_var, *val, val_len);
  		php_register_variable_ex(var, &raw_var, array_ptr);
  	}
  
  	if (val_len) {
  		/* Register mangled variable */
  		if (IF_G(default_filter) != FILTER_UNSAFE_RAW) {
  			ZVAL_STRINGL(&new_var, *val, val_len);
  			php_zval_filter(&new_var, IF_G(default_filter), IF_G(default_filter_flags), NULL, NULL, 0);
  		} else {
  			ZVAL_STRINGL(&new_var, *val, val_len);
  		}
  	} else { /* empty string */
  		ZVAL_EMPTY_STRING(&new_var);
  	}
  
  	if (orig_array_ptr) {
  		php_register_variable_ex(var, &new_var, orig_array_ptr);
  	}
  
  	if (retval) {
  		if (new_val_len) {
  			*new_val_len = Z_STRLEN(new_var);
  		}
  		efree(*val);
  		if (Z_STRLEN(new_var)) {
  			*val = estrndup(Z_STRVAL(new_var), Z_STRLEN(new_var));
  		} else {
  			*val = estrdup("");
  		}
  		zval_ptr_dtor(&new_var);
  	}
  
  	return retval;
  }
  /* }}} */
  
  static void php_zval_filter_recursive(zval *value, zend_long filter, zend_long flags, zval *options, char *charset, zend_bool copy) /* {{{ */
  {
  	if (Z_TYPE_P(value) == IS_ARRAY) {
  		zval *element;
  
  		if (Z_ARRVAL_P(value)->u.v.nApplyCount > 1) {
  			return;
  		}
  
  		ZEND_HASH_FOREACH_VAL(Z_ARRVAL_P(value), element) {
  			ZVAL_DEREF(element);
  			SEPARATE_ZVAL_NOREF(element);
  			if (Z_TYPE_P(element) == IS_ARRAY) {
  				Z_ARRVAL_P(element)->u.v.nApplyCount++;
  				php_zval_filter_recursive(element, filter, flags, options, charset, copy);
  				Z_ARRVAL_P(element)->u.v.nApplyCount--;
  			} else {
  				php_zval_filter(element, filter, flags, options, charset, copy);
  			}
  		} ZEND_HASH_FOREACH_END();
  	} else {
  		php_zval_filter(value, filter, flags, options, charset, copy);
  	}
  }
  /* }}} */
  
  static zval *php_filter_get_storage(zend_long arg)/* {{{ */
  
  {
  	zval *array_ptr = NULL;
  
  	switch (arg) {
  		case PARSE_GET:
  			array_ptr = &IF_G(get_array);
  			break;
  		case PARSE_POST:
  			array_ptr = &IF_G(post_array);
  			break;
  		case PARSE_COOKIE:
  			array_ptr = &IF_G(cookie_array);
  			break;
  		case PARSE_SERVER:
  			if (PG(auto_globals_jit)) {
  				zend_is_auto_global_str(ZEND_STRL("_SERVER"));
  			}
  			array_ptr = &IF_G(server_array);
  			break;
  		case PARSE_ENV:
  			if (PG(auto_globals_jit)) {
  				zend_is_auto_global_str(ZEND_STRL("_ENV"));
  			}
  			array_ptr = !Z_ISUNDEF(IF_G(env_array)) ? &IF_G(env_array) : &PG(http_globals)[TRACK_VARS_ENV];
  			break;
  		case PARSE_SESSION:
  			/* FIXME: Implement session source */
  			php_error_docref(NULL, E_WARNING, "INPUT_SESSION is not yet implemented");
  			break;
  		case PARSE_REQUEST:
  			/* FIXME: Implement request source */
  			php_error_docref(NULL, E_WARNING, "INPUT_REQUEST is not yet implemented");
  			break;
  	}
  
  	return array_ptr;
  }
  /* }}} */
  
  /* {{{ proto mixed filter_has_var(constant type, string variable_name)
   * Returns true if the variable with the name 'name' exists in source.
   */
  PHP_FUNCTION(filter_has_var)
  {
  	zend_long         arg;
  	zend_string *var;
  	zval        *array_ptr = NULL;
  
  	if (zend_parse_parameters(ZEND_NUM_ARGS(), "lS", &arg, &var) == FAILURE) {
  		RETURN_FALSE;
  	}
  
  	array_ptr = php_filter_get_storage(arg);
  
  	if (array_ptr && HASH_OF(array_ptr) && zend_hash_exists(HASH_OF(array_ptr), var)) {
  		RETURN_TRUE;
  	}
  
  	RETURN_FALSE;
  }
  /* }}} */
  
  static void php_filter_call(zval *filtered, zend_long filter, zval *filter_args, const int copy, zend_long filter_flags) /* {{{ */
  {
  	zval *options = NULL;
  	zval *option;
  	char *charset = NULL;
  
  	if (filter_args && Z_TYPE_P(filter_args) != IS_ARRAY) {
  		zend_long lval = zval_get_long(filter_args);
  
  		if (filter != -1) { /* handler for array apply */
  			/* filter_args is the filter_flags */
  			filter_flags = lval;
  
  			if (!(filter_flags & FILTER_REQUIRE_ARRAY ||  filter_flags & FILTER_FORCE_ARRAY)) {
  				filter_flags |= FILTER_REQUIRE_SCALAR;
  			}
  		} else {
  			filter = lval;
  		}
  	} else if (filter_args) {
  		if ((option = zend_hash_str_find(HASH_OF(filter_args), "filter", sizeof("filter") - 1)) != NULL) {
  			filter = zval_get_long(option);
  		}
  
  		if ((option = zend_hash_str_find(HASH_OF(filter_args), "flags", sizeof("flags") - 1)) != NULL) {
  			filter_flags = zval_get_long(option);
  
  			if (!(filter_flags & FILTER_REQUIRE_ARRAY ||  filter_flags & FILTER_FORCE_ARRAY)) {
  				filter_flags |= FILTER_REQUIRE_SCALAR;
  			}
  		}
  
  		if ((option = zend_hash_str_find(HASH_OF(filter_args), "options", sizeof("options") - 1)) != NULL) {
  			if (filter != FILTER_CALLBACK) {
  				if (Z_TYPE_P(option) == IS_ARRAY) {
  					options = option;
  				}
  			} else {
  				options = option;
  				filter_flags = 0;
  			}
  		}
  	}
  
  	if (Z_TYPE_P(filtered) == IS_ARRAY) {
  		if (filter_flags & FILTER_REQUIRE_SCALAR) {
  			if (copy) {
  				SEPARATE_ZVAL(filtered);
  			}
  			zval_ptr_dtor(filtered);
  			if (filter_flags & FILTER_NULL_ON_FAILURE) {
  				ZVAL_NULL(filtered);
  			} else {
  				ZVAL_FALSE(filtered);
  			}
  			return;
  		}
  		php_zval_filter_recursive(filtered, filter, filter_flags, options, charset, copy);
  		return;
  	}
  	if (filter_flags & FILTER_REQUIRE_ARRAY) {
  		if (copy) {
  			SEPARATE_ZVAL(filtered);
  		}
  		zval_ptr_dtor(filtered);
  		if (filter_flags & FILTER_NULL_ON_FAILURE) {
  			ZVAL_NULL(filtered);
  		} else {
  			ZVAL_FALSE(filtered);
  		}
  		return;
  	}
  
  	php_zval_filter(filtered, filter, filter_flags, options, charset, copy);
  	if (filter_flags & FILTER_FORCE_ARRAY) {
  		zval tmp;
  		ZVAL_COPY_VALUE(&tmp, filtered);
  		array_init(filtered);
  		add_next_index_zval(filtered, &tmp);
  	}
  }
  /* }}} */
  
  static void php_filter_array_handler(zval *input, zval *op, zval *return_value, zend_bool add_empty) /* {{{ */
  {
  	zend_string *arg_key;
  	zval *tmp, *arg_elm;
  
  	if (!op) {
  		zval_ptr_dtor(return_value);
  		ZVAL_DUP(return_value, input);
  		php_filter_call(return_value, FILTER_DEFAULT, NULL, 0, FILTER_REQUIRE_ARRAY);
  	} else if (Z_TYPE_P(op) == IS_LONG) {
  		zval_ptr_dtor(return_value);
  		ZVAL_DUP(return_value, input);
  		php_filter_call(return_value, Z_LVAL_P(op), NULL, 0, FILTER_REQUIRE_ARRAY);
  	} else if (Z_TYPE_P(op) == IS_ARRAY) {
  		array_init(return_value);
  
  		ZEND_HASH_FOREACH_STR_KEY_VAL(Z_ARRVAL_P(op), arg_key, arg_elm) {
  			if (arg_key == NULL) {
  				php_error_docref(NULL, E_WARNING, "Numeric keys are not allowed in the definition array");
  				zval_ptr_dtor(return_value);
  				RETURN_FALSE;
  	 		}
  			if (ZSTR_LEN(arg_key) == 0) {
  				php_error_docref(NULL, E_WARNING, "Empty keys are not allowed in the definition array");
  				zval_ptr_dtor(return_value);
  				RETURN_FALSE;
  			}
  			if ((tmp = zend_hash_find(Z_ARRVAL_P(input), arg_key)) == NULL) {
  				if (add_empty) {
  					add_assoc_null_ex(return_value, ZSTR_VAL(arg_key), ZSTR_LEN(arg_key));
  				}
  			} else {
  				zval nval;
  				ZVAL_DEREF(tmp);
  				ZVAL_DUP(&nval, tmp);
  				php_filter_call(&nval, -1, arg_elm, 0, FILTER_REQUIRE_SCALAR);
  				zend_hash_update(Z_ARRVAL_P(return_value), arg_key, &nval);
  			}
  		} ZEND_HASH_FOREACH_END();
  	} else {
  		RETURN_FALSE;
  	}
  }
  /* }}} */
  
  /* {{{ proto mixed filter_input(constant type, string variable_name [, long filter [, mixed options]])
   * Returns the filtered variable 'name'* from source `type`.
   */
  PHP_FUNCTION(filter_input)
  {
  	zend_long fetch_from, filter = FILTER_DEFAULT;
  	zval *filter_args = NULL, *tmp;
  	zval *input = NULL;
  	zend_string *var;
  
  	if (zend_parse_parameters(ZEND_NUM_ARGS(), "lS|lz", &fetch_from, &var, &filter, &filter_args) == FAILURE) {
  		return;
  	}
  
  	if (!PHP_FILTER_ID_EXISTS(filter)) {
  		RETURN_FALSE;
  	}
  
  	input = php_filter_get_storage(fetch_from);
  
  	if (!input || !HASH_OF(input) || (tmp = zend_hash_find(HASH_OF(input), var)) == NULL) {
  		zend_long filter_flags = 0;
  		zval *option, *opt, *def;
  		if (filter_args) {
  			if (Z_TYPE_P(filter_args) == IS_LONG) {
  				filter_flags = Z_LVAL_P(filter_args);
  			} else if (Z_TYPE_P(filter_args) == IS_ARRAY && (option = zend_hash_str_find(HASH_OF(filter_args), "flags", sizeof("flags") - 1)) != NULL) {
  				filter_flags = zval_get_long(option);
  			}
  			if (Z_TYPE_P(filter_args) == IS_ARRAY &&
  				(opt = zend_hash_str_find(HASH_OF(filter_args), "options", sizeof("options") - 1)) != NULL &&
  				Z_TYPE_P(opt) == IS_ARRAY &&
  				(def = zend_hash_str_find(HASH_OF(opt), "default", sizeof("default") - 1)) != NULL) {
  				ZVAL_COPY(return_value, def);
  				return;
  			}
  		}
  
  		/* The FILTER_NULL_ON_FAILURE flag inverts the usual return values of
  		 * the function: normally when validation fails false is returned, and
  		 * when the input value doesn't exist NULL is returned. With the flag
  		 * set, NULL and false should be returned, respectively. Ergo, although
  		 * the code below looks incorrect, it's actually right. */
  		if (filter_flags & FILTER_NULL_ON_FAILURE) {
  			RETURN_FALSE;
  		} else {
  			RETURN_NULL();
  		}
  	}
  
  	ZVAL_DUP(return_value, tmp);
  
  	php_filter_call(return_value, filter, filter_args, 1, FILTER_REQUIRE_SCALAR);
  }
  /* }}} */
  
  /* {{{ proto mixed filter_var(mixed variable [, long filter [, mixed options]])
   * Returns the filtered version of the variable.
   */
  PHP_FUNCTION(filter_var)
  {
  	zend_long filter = FILTER_DEFAULT;
  	zval *filter_args = NULL, *data;
  
  	if (zend_parse_parameters(ZEND_NUM_ARGS(), "z/|lz", &data, &filter, &filter_args) == FAILURE) {
  		return;
  	}
  
  	if (!PHP_FILTER_ID_EXISTS(filter)) {
  		RETURN_FALSE;
  	}
  
  	ZVAL_DUP(return_value, data);
  
  	php_filter_call(return_value, filter, filter_args, 1, FILTER_REQUIRE_SCALAR);
  }
  /* }}} */
  
  /* {{{ proto mixed filter_input_array(constant type, [, mixed options [, bool add_empty]]])
   * Returns an array with all arguments defined in 'definition'.
   */
  PHP_FUNCTION(filter_input_array)
  {
  	zend_long    fetch_from;
  	zval   *array_input = NULL, *op = NULL;
  	zend_bool add_empty = 1;
  
  	if (zend_parse_parameters(ZEND_NUM_ARGS(), "l|zb",  &fetch_from, &op, &add_empty) == FAILURE) {
  		return;
  	}
  
  	if (op && (Z_TYPE_P(op) != IS_ARRAY) && !(Z_TYPE_P(op) == IS_LONG && PHP_FILTER_ID_EXISTS(Z_LVAL_P(op)))) {
  		RETURN_FALSE;
  	}
  
  	array_input = php_filter_get_storage(fetch_from);
  
  	if (!array_input || !HASH_OF(array_input)) {
  		zend_long filter_flags = 0;
  		zval *option;
  		if (op) {
  			if (Z_TYPE_P(op) == IS_LONG) {
  				filter_flags = Z_LVAL_P(op);
  			} else if (Z_TYPE_P(op) == IS_ARRAY && (option = zend_hash_str_find(HASH_OF(op), "flags", sizeof("flags") - 1)) != NULL) {
  				filter_flags = zval_get_long(option);
  			}
  		}
  
  		/* The FILTER_NULL_ON_FAILURE flag inverts the usual return values of
  		 * the function: normally when validation fails false is returned, and
  		 * when the input value doesn't exist NULL is returned. With the flag
  		 * set, NULL and false should be returned, respectively. Ergo, although
  		 * the code below looks incorrect, it's actually right. */
  		if (filter_flags & FILTER_NULL_ON_FAILURE) {
  			RETURN_FALSE;
  		} else {
  			RETURN_NULL();
  		}
  	}
  
  	php_filter_array_handler(array_input, op, return_value, add_empty);
  }
  /* }}} */
  
  /* {{{ proto mixed filter_var_array(array data, [, mixed options [, bool add_empty]]])
   * Returns an array with all arguments defined in 'definition'.
   */
  PHP_FUNCTION(filter_var_array)
  {
  	zval *array_input = NULL, *op = NULL;
  	zend_bool add_empty = 1;
  
  	if (zend_parse_parameters(ZEND_NUM_ARGS(), "a|zb",  &array_input, &op, &add_empty) == FAILURE) {
  		return;
  	}
  
  	if (op && (Z_TYPE_P(op) != IS_ARRAY) && !(Z_TYPE_P(op) == IS_LONG && PHP_FILTER_ID_EXISTS(Z_LVAL_P(op)))) {
  		RETURN_FALSE;
  	}
  
  	php_filter_array_handler(array_input, op, return_value, add_empty);
  }
  /* }}} */
  
  /* {{{ proto filter_list()
   * Returns a list of all supported filters */
  PHP_FUNCTION(filter_list)
  {
  	int i, size = sizeof(filter_list) / sizeof(filter_list_entry);
  
  	if (zend_parse_parameters_none() == FAILURE) {
  		return;
  	}
  
  	array_init(return_value);
  	for (i = 0; i < size; ++i) {
  		add_next_index_string(return_value, (char *)filter_list[i].name);
  	}
  }
  /* }}} */
  
  /* {{{ proto filter_id(string filtername)
   * Returns the filter ID belonging to a named filter */
  PHP_FUNCTION(filter_id)
  {
  	int i;
  	size_t filter_len;
  	int size = sizeof(filter_list) / sizeof(filter_list_entry);
  	char *filter;
  
  	if (zend_parse_parameters(ZEND_NUM_ARGS(), "s", &filter, &filter_len) == FAILURE) {
  		return;
  	}
  
  	for (i = 0; i < size; ++i) {
  		if (strcmp(filter_list[i].name, filter) == 0) {
  			RETURN_LONG(filter_list[i].id);
  		}
  	}
  
  	RETURN_FALSE;
  }
  /* }}} */
  
  /*
   * Local variables:
   * tab-width: 4
   * c-basic-offset: 4
   * End:
   * vim600: noet sw=4 ts=4 fdm=marker
   * vim<600: noet sw=4 ts=4
   */
  