Gecko [ www.jdcpatala.org ]

Name	Size	Permission
html_tables	[ DIR ]	drwxr-xr-x
tests	[ DIR ]	drwxr-xr-x
Makefile.frag	518 B	-rw-r--r--
Makefile.frag.w32	484 B	-rw-r--r--
array.c	171.38 KB	-rw-r--r--
assert.c	8.26 KB	-rw-r--r--
base64.c	30.55 KB	-rw-r--r--
base64.h	3.59 KB	-rw-r--r--
basic_functions.c	66.93 KB	-rw-r--r--
basic_functions.h	4.87 KB	-rw-r--r--
basic_functions.stub.php	48.85 KB	-rw-r--r--
basic_functions_arginfo.h	125.23 KB	-rw-r--r--
browscap.c	20.49 KB	-rw-r--r--
config.m4	10.98 KB	-rw-r--r--
config.w32	1.79 KB	-rw-r--r--
crc32.c	3.85 KB	-rw-r--r--
crc32.h	4.79 KB	-rw-r--r--
crc32_x86.c	11.99 KB	-rw-r--r--
crc32_x86.h	1.82 KB	-rw-r--r--
credits.c	5.71 KB	-rw-r--r--
credits.h	1.53 KB	-rw-r--r--
credits_ext.h	5.24 KB	-rw-r--r--
credits_sapi.h	835 B	-rw-r--r--
crypt.c	6.73 KB	-rw-r--r--
crypt_blowfish.c	30.75 KB	-rw-r--r--
crypt_blowfish.h	790 B	-rw-r--r--
crypt_freesec.c	21.52 KB	-rw-r--r--
crypt_freesec.h	662 B	-rw-r--r--
crypt_sha256.c	21.6 KB	-rw-r--r--
crypt_sha512.c	26.24 KB	-rw-r--r--
css.c	2.24 KB	-rw-r--r--
css.h	1.04 KB	-rw-r--r--
datetime.c	3.28 KB	-rw-r--r--
datetime.h	1.14 KB	-rw-r--r--
dir.c	14.04 KB	-rw-r--r--
dir.stub.php	528 B	-rw-r--r--
dir_arginfo.h	1.83 KB	-rw-r--r--
dl.c	8.18 KB	-rw-r--r--
dl.h	1.46 KB	-rw-r--r--
dl.stub.php	56 B	-rw-r--r--
dl_arginfo.h	269 B	-rw-r--r--
dns.c	29.37 KB	-rw-r--r--
dns_win32.c	15.09 KB	-rw-r--r--
exec.c	12.77 KB	-rw-r--r--
exec.h	1.27 KB	-rw-r--r--
file.c	65.14 KB	-rw-r--r--
file.h	3.93 KB	-rw-r--r--
filestat.c	28.38 KB	-rw-r--r--
filters.c	50.3 KB	-rw-r--r--
flock_compat.c	6 KB	-rw-r--r--
flock_compat.h	2.06 KB	-rw-r--r--
formatted_print.c	23.31 KB	-rw-r--r--
fsock.c	3.67 KB	-rw-r--r--
fsock.h	1.22 KB	-rw-r--r--
ftok.c	1.84 KB	-rw-r--r--
ftp_fopen_wrapper.c	31.54 KB	-rw-r--r--
head.c	10.66 KB	-rw-r--r--
head.h	1.53 KB	-rw-r--r--
hrtime.c	4.86 KB	-rw-r--r--
hrtime.h	2.31 KB	-rw-r--r--
html.c	44.9 KB	-rw-r--r--
html.h	2.34 KB	-rw-r--r--
html_tables.h	472.26 KB	-rw-r--r--
http.c	6.99 KB	-rw-r--r--
http_fopen_wrapper.c	32.23 KB	-rw-r--r--
image.c	44.79 KB	-rw-r--r--
incomplete_class.c	4.95 KB	-rw-r--r--
info.c	40.74 KB	-rw-r--r--
info.h	22.94 KB	-rw-r--r--
iptc.c	9.11 KB	-rw-r--r--
lcg.c	2.8 KB	-rw-r--r--
levenshtein.c	2.57 KB	-rw-r--r--
link.c	5.45 KB	-rw-r--r--
mail.c	15.13 KB	-rw-r--r--
math.c	27.18 KB	-rw-r--r--
md5.c	10.66 KB	-rw-r--r--
md5.h	2.02 KB	-rw-r--r--
metaphone.c	11.53 KB	-rw-r--r--
microtime.c	4.01 KB	-rw-r--r--
mt_rand.c	10.67 KB	-rw-r--r--
net.c	8.97 KB	-rw-r--r--
pack.c	31.65 KB	-rw-r--r--
pack.h	1.05 KB	-rw-r--r--
pageinfo.c	3.23 KB	-rw-r--r--
pageinfo.h	1.15 KB	-rw-r--r--
password.c	19.17 KB	-rw-r--r--
php_array.h	2.24 KB	-rw-r--r--
php_assert.h	1.24 KB	-rw-r--r--
php_browscap.h	1.11 KB	-rw-r--r--
php_crypt.h	1.37 KB	-rw-r--r--
php_crypt_r.c	5.74 KB	-rw-r--r--
php_crypt_r.h	1.64 KB	-rw-r--r--
php_dir.h	1.28 KB	-rw-r--r--
php_dns.h	2.58 KB	-rw-r--r--
php_ext_syslog.h	1.25 KB	-rw-r--r--
php_filestat.h	2.1 KB	-rw-r--r--
php_fopen_wrapper.c	11.47 KB	-rw-r--r--
php_fopen_wrappers.h	1.79 KB	-rw-r--r--
php_http.h	1.33 KB	-rw-r--r--
php_image.h	2.17 KB	-rw-r--r--
php_incomplete_class.h	2.15 KB	-rw-r--r--
php_lcg.h	1.31 KB	-rw-r--r--
php_mail.h	2.16 KB	-rw-r--r--
php_math.h	3.55 KB	-rw-r--r--
php_mt_rand.h	1.81 KB	-rw-r--r--
php_net.h	1.14 KB	-rw-r--r--
php_password.h	2.76 KB	-rw-r--r--
php_rand.h	3 KB	-rw-r--r--
php_random.h	1.86 KB	-rw-r--r--
php_smart_string.h	1.13 KB	-rw-r--r--
php_smart_string_public.h	1.14 KB	-rw-r--r--
php_standard.h	1.91 KB	-rw-r--r--
php_string.h	3.95 KB	-rw-r--r--
php_uuencode.h	1.18 KB	-rw-r--r--
php_var.h	3.41 KB	-rw-r--r--
php_versioning.h	1.18 KB	-rw-r--r--
proc_open.c	35.65 KB	-rw-r--r--
proc_open.h	1.67 KB	-rw-r--r--
quot_print.c	7 KB	-rw-r--r--
quot_print.h	1.23 KB	-rw-r--r--
rand.c	2.22 KB	-rw-r--r--
random.c	7.33 KB	-rw-r--r--
scanf.c	28.32 KB	-rw-r--r--
scanf.h	1.95 KB	-rw-r--r--
sha1.c	11.22 KB	-rw-r--r--
sha1.h	1.62 KB	-rw-r--r--
soundex.c	2.94 KB	-rw-r--r--
streamsfuncs.c	43.35 KB	-rw-r--r--
streamsfuncs.h	1.11 KB	-rw-r--r--
string.c	143.34 KB	-rw-r--r--
strnatcmp.c	4.28 KB	-rw-r--r--
syslog.c	6.02 KB	-rw-r--r--
type.c	10.77 KB	-rw-r--r--
uniqid.c	2.62 KB	-rw-r--r--
url.c	18.08 KB	-rw-r--r--
url.h	2.08 KB	-rw-r--r--
url_scanner_ex.c	38.41 KB	-rw-r--r--
url_scanner_ex.h	2.32 KB	-rw-r--r--
url_scanner_ex.re	27.63 KB	-rw-r--r--
user_filters.c	15.39 KB	-rw-r--r--
user_filters.stub.php	541 B	-rw-r--r--
user_filters_arginfo.h	2.45 KB	-rw-r--r--
uuencode.c	6.35 KB	-rw-r--r--
var.c	40.96 KB	-rw-r--r--
var_unserializer.c	42.18 KB	-rw-r--r--
var_unserializer.re	34.43 KB	-rw-r--r--
versioning.c	5.69 KB	-rw-r--r--
winver.h	6.23 KB	-rw-r--r--

Code Editor : type.c

/*
   +----------------------------------------------------------------------+
   | Copyright (c) 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:           |
   | https://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.               |
   +----------------------------------------------------------------------+
   | Author: Rasmus Lerdorf <rasmus@php.net>                              |
   +----------------------------------------------------------------------+
*/

#include "php.h"
#include "php_incomplete_class.h"

/* {{{ Returns the type of the variable */
PHP_FUNCTION(gettype)
{
	zval *arg;
	zend_string *type;

ZEND_PARSE_PARAMETERS_START(1, 1)
		Z_PARAM_ZVAL(arg)
	ZEND_PARSE_PARAMETERS_END();

type = zend_zval_get_legacy_type(arg);
	if (EXPECTED(type)) {
		RETURN_INTERNED_STR(type);
	} else {
		RETURN_STRING("unknown type");
	}
}
/* }}} */

/* {{{ Returns the type of the variable resolving class names */
PHP_FUNCTION(get_debug_type)
{
	zval *arg;
	const char *name;

ZEND_PARSE_PARAMETERS_START(1, 1)
		Z_PARAM_ZVAL(arg)
	ZEND_PARSE_PARAMETERS_END();

switch (Z_TYPE_P(arg)) {
		case IS_NULL:
			RETURN_INTERNED_STR(ZSTR_KNOWN(ZEND_STR_NULL_LOWERCASE));
		case IS_FALSE:
		case IS_TRUE:
			RETURN_INTERNED_STR(ZSTR_KNOWN(ZEND_STR_BOOL));
		case IS_LONG:
			RETURN_INTERNED_STR(ZSTR_KNOWN(ZEND_STR_INT));
		case IS_DOUBLE:
			RETURN_INTERNED_STR(ZSTR_KNOWN(ZEND_STR_FLOAT));
		case IS_STRING:
			RETURN_INTERNED_STR(ZSTR_KNOWN(ZEND_STR_STRING));
		case IS_ARRAY:
			RETURN_INTERNED_STR(ZSTR_KNOWN(ZEND_STR_ARRAY));
		case IS_OBJECT:
			if (Z_OBJ_P(arg)->ce->ce_flags & ZEND_ACC_ANON_CLASS) {
				name = ZSTR_VAL(Z_OBJ_P(arg)->ce->name);
				RETURN_NEW_STR(zend_string_init(name, strlen(name), 0));
			} else {
				RETURN_STR_COPY(Z_OBJ_P(arg)->ce->name);
			}
		case IS_RESOURCE:
			name = zend_rsrc_list_get_rsrc_type(Z_RES_P(arg));
			if (name) {
				RETURN_NEW_STR(zend_strpprintf(0, "resource (%s)", name));
			} else {
				RETURN_INTERNED_STR(ZSTR_KNOWN(ZEND_STR_CLOSED_RESOURCE));
			}
		default:
			RETURN_INTERNED_STR(ZSTR_KNOWN(ZEND_STR_UNKNOWN));
	}
}
/* }}} */

/* {{{ Set the type of the variable */
PHP_FUNCTION(settype)
{
	zval *var;
	zend_string *type;
	zval tmp, *ptr;

ZEND_PARSE_PARAMETERS_START(2, 2)
		Z_PARAM_ZVAL(var)
		Z_PARAM_STR(type)
	ZEND_PARSE_PARAMETERS_END();

ZEND_ASSERT(Z_ISREF_P(var));
	if (UNEXPECTED(ZEND_REF_HAS_TYPE_SOURCES(Z_REF_P(var)))) {
		ZVAL_COPY(&tmp, Z_REFVAL_P(var));
		ptr = &tmp;
	} else {
		ptr = Z_REFVAL_P(var);
	}
	if (zend_string_equals_literal_ci(type, "integer")) {
		convert_to_long(ptr);
	} else if (zend_string_equals_literal_ci(type, "int")) {
		convert_to_long(ptr);
	} else if (zend_string_equals_literal_ci(type, "float")) {
		convert_to_double(ptr);
	} else if (zend_string_equals_literal_ci(type, "double")) { /* deprecated */
		convert_to_double(ptr);
	} else if (zend_string_equals_literal_ci(type, "string")) {
		convert_to_string(ptr);
	} else if (zend_string_equals_literal_ci(type, "array")) {
		convert_to_array(ptr);
	} else if (zend_string_equals_literal_ci(type, "object")) {
		convert_to_object(ptr);
	} else if (zend_string_equals_literal_ci(type, "bool")) {
		convert_to_boolean(ptr);
	} else if (zend_string_equals_literal_ci(type, "boolean")) {
		convert_to_boolean(ptr);
	} else if (zend_string_equals_literal_ci(type, "null")) {
		convert_to_null(ptr);
	} else {
		if (ptr == &tmp) {
			zval_ptr_dtor(&tmp);
		}
		if (zend_string_equals_literal_ci(type, "resource")) {
			zend_value_error("Cannot convert to resource type");
		} else {
			zend_argument_value_error(2, "must be a valid type");
		}
		RETURN_THROWS();
	}

if (ptr == &tmp) {
		zend_try_assign_typed_ref(Z_REF_P(var), &tmp);
	}
	RETVAL_TRUE;
}
/* }}} */

/* {{{ Get the integer value of a variable using the optional base for the conversion */
PHP_FUNCTION(intval)
{
	zval *num;
	zend_long base = 10;

ZEND_PARSE_PARAMETERS_START(1, 2)
		Z_PARAM_ZVAL(num)
		Z_PARAM_OPTIONAL
		Z_PARAM_LONG(base)
	ZEND_PARSE_PARAMETERS_END();

if (Z_TYPE_P(num) != IS_STRING || base == 10) {
		RETVAL_LONG(zval_get_long(num));
		return;
	}

if (base == 0 || base == 2) {
		char *strval = Z_STRVAL_P(num);
		size_t strlen = Z_STRLEN_P(num);

while (isspace(*strval) && strlen) {
			strval++;
			strlen--;
		}

/* Length of 3+ covers "0b#" and "-0b" (which results in 0) */
		if (strlen > 2) {
			int offset = 0;
			if (strval[0] == '-' || strval[0] == '+') {
				offset = 1;
			}

if (strval[offset] == '0' && (strval[offset + 1] == 'b' || strval[offset + 1] == 'B')) {
				char *tmpval;
				strlen -= 2; /* Removing "0b" */
				tmpval = emalloc(strlen + 1);

/* Place the unary symbol at pos 0 if there was one */
				if (offset) {
					tmpval[0] = strval[0];
				}

/* Copy the data from after "0b" to the end of the buffer */
				memcpy(tmpval + offset, strval + offset + 2, strlen - offset);
				tmpval[strlen] = 0;

RETVAL_LONG(ZEND_STRTOL(tmpval, NULL, 2));
				efree(tmpval);
				return;
			}
		}
	}

RETVAL_LONG(ZEND_STRTOL(Z_STRVAL_P(num), NULL, base));
}
/* }}} */

/* {{{ Get the float value of a variable */
PHP_FUNCTION(floatval)
{
	zval *num;

ZEND_PARSE_PARAMETERS_START(1, 1)
		Z_PARAM_ZVAL(num)
	ZEND_PARSE_PARAMETERS_END();

RETURN_DOUBLE(zval_get_double(num));
}
/* }}} */

/* {{{ Get the boolean value of a variable */
PHP_FUNCTION(boolval)
{
	zval *value;

ZEND_PARSE_PARAMETERS_START(1, 1)
		Z_PARAM_ZVAL(value)
	ZEND_PARSE_PARAMETERS_END();

RETURN_BOOL(zend_is_true(value));
}
/* }}} */

/* {{{ Get the string value of a variable */
PHP_FUNCTION(strval)
{
	zval *value;

ZEND_PARSE_PARAMETERS_START(1, 1)
		Z_PARAM_ZVAL(value)
	ZEND_PARSE_PARAMETERS_END();

RETVAL_STR(zval_get_string(value));
}
/* }}} */

static inline void php_is_type(INTERNAL_FUNCTION_PARAMETERS, int type)
{
	zval *arg;

ZEND_PARSE_PARAMETERS_START(1, 1)
		Z_PARAM_ZVAL(arg)
	ZEND_PARSE_PARAMETERS_END();

if (Z_TYPE_P(arg) == type) {
		if (type == IS_RESOURCE) {
			const char *type_name = zend_rsrc_list_get_rsrc_type(Z_RES_P(arg));
			if (!type_name) {
				RETURN_FALSE;
			}
		}
		RETURN_TRUE;
	} else {
		RETURN_FALSE;
	}
}

/* {{{ Returns true if variable is null
   Warning: This function is special-cased by zend_compile.c and so is usually bypassed */
PHP_FUNCTION(is_null)
{
	php_is_type(INTERNAL_FUNCTION_PARAM_PASSTHRU, IS_NULL);
}
/* }}} */

/* {{{ Returns true if variable is a resource
   Warning: This function is special-cased by zend_compile.c and so is usually bypassed */
PHP_FUNCTION(is_resource)
{
	php_is_type(INTERNAL_FUNCTION_PARAM_PASSTHRU, IS_RESOURCE);
}
/* }}} */

/* {{{ Returns true if variable is a boolean
   Warning: This function is special-cased by zend_compile.c and so is usually bypassed */
PHP_FUNCTION(is_bool)
{
	zval *arg;

ZEND_PARSE_PARAMETERS_START(1, 1)
		Z_PARAM_ZVAL(arg)
	ZEND_PARSE_PARAMETERS_END();

RETURN_BOOL(Z_TYPE_P(arg) == IS_FALSE || Z_TYPE_P(arg) == IS_TRUE);
}
/* }}} */

/* {{{ Returns true if variable is an integer
   Warning: This function is special-cased by zend_compile.c and so is usually bypassed */
PHP_FUNCTION(is_int)
{
	php_is_type(INTERNAL_FUNCTION_PARAM_PASSTHRU, IS_LONG);
}
/* }}} */

/* {{{ Returns true if variable is float point
   Warning: This function is special-cased by zend_compile.c and so is usually bypassed */
PHP_FUNCTION(is_float)
{
	php_is_type(INTERNAL_FUNCTION_PARAM_PASSTHRU, IS_DOUBLE);
}
/* }}} */

/* {{{ Returns true if variable is a string
   Warning: This function is special-cased by zend_compile.c and so is usually bypassed */
PHP_FUNCTION(is_string)
{
	php_is_type(INTERNAL_FUNCTION_PARAM_PASSTHRU, IS_STRING);
}
/* }}} */

/* {{{ Returns true if variable is an array
   Warning: This function is special-cased by zend_compile.c and so is usually bypassed */
PHP_FUNCTION(is_array)
{
	php_is_type(INTERNAL_FUNCTION_PARAM_PASSTHRU, IS_ARRAY);
}
/* }}} */

/* {{{ Returns true if $array is an array whose keys are all numeric, sequential, and start at 0 */
PHP_FUNCTION(array_is_list)
{
	HashTable *array;

ZEND_PARSE_PARAMETERS_START(1, 1)
		Z_PARAM_ARRAY_HT(array)
	ZEND_PARSE_PARAMETERS_END();

RETURN_BOOL(zend_array_is_list(array));
}
/* }}} */

/* {{{ Returns true if variable is an object
   Warning: This function is special-cased by zend_compile.c and so is usually bypassed */
PHP_FUNCTION(is_object)
{
	php_is_type(INTERNAL_FUNCTION_PARAM_PASSTHRU, IS_OBJECT);
}
/* }}} */

/* {{{ Returns true if value is a number or a numeric string */
PHP_FUNCTION(is_numeric)
{
	zval *arg;

ZEND_PARSE_PARAMETERS_START(1, 1)
		Z_PARAM_ZVAL(arg)
	ZEND_PARSE_PARAMETERS_END();

switch (Z_TYPE_P(arg)) {
		case IS_LONG:
		case IS_DOUBLE:
			RETURN_TRUE;
			break;

case IS_STRING:
			if (is_numeric_string(Z_STRVAL_P(arg), Z_STRLEN_P(arg), NULL, NULL, 0)) {
				RETURN_TRUE;
			} else {
				RETURN_FALSE;
			}
			break;

default:
			RETURN_FALSE;
			break;
	}
}
/* }}} */

/* {{{ Returns true if value is a scalar */
PHP_FUNCTION(is_scalar)
{
	zval *arg;

ZEND_PARSE_PARAMETERS_START(1, 1)
		Z_PARAM_ZVAL(arg)
	ZEND_PARSE_PARAMETERS_END();

switch (Z_TYPE_P(arg)) {
		case IS_FALSE:
		case IS_TRUE:
		case IS_DOUBLE:
		case IS_LONG:
		case IS_STRING:
			RETURN_TRUE;
			break;

default:
			RETURN_FALSE;
			break;
	}
}
/* }}} */

/* {{{ Returns true if var is callable. */
PHP_FUNCTION(is_callable)
{
	zval *var, *callable_name = NULL;
	zend_string *name;
	char *error;
	bool retval;
	bool syntax_only = 0;
	int check_flags = 0;

ZEND_PARSE_PARAMETERS_START(1, 3)
		Z_PARAM_ZVAL(var)
		Z_PARAM_OPTIONAL
		Z_PARAM_BOOL(syntax_only)
		Z_PARAM_ZVAL(callable_name)
	ZEND_PARSE_PARAMETERS_END();

if (syntax_only) {
		check_flags |= IS_CALLABLE_CHECK_SYNTAX_ONLY;
	}
	if (ZEND_NUM_ARGS() > 2) {
		retval = zend_is_callable_ex(var, NULL, check_flags, &name, NULL, &error);
		ZEND_TRY_ASSIGN_REF_STR(callable_name, name);
	} else {
		retval = zend_is_callable_ex(var, NULL, check_flags, NULL, NULL, &error);
	}
	if (error) {
		/* ignore errors */
		efree(error);
	}

RETURN_BOOL(retval);
}
/* }}} */

/* {{{ Returns true if var is iterable (array or instance of Traversable). */
PHP_FUNCTION(is_iterable)
{
	zval *var;

ZEND_PARSE_PARAMETERS_START(1, 1)
		Z_PARAM_ZVAL(var)
	ZEND_PARSE_PARAMETERS_END();

RETURN_BOOL(zend_is_iterable(var));
}
/* }}} */

/* {{{ Returns true if var is countable (array or instance of Countable). */
PHP_FUNCTION(is_countable)
{
	zval *var;

ZEND_PARSE_PARAMETERS_START(1, 1)
		Z_PARAM_ZVAL(var)
	ZEND_PARSE_PARAMETERS_END();

RETURN_BOOL(zend_is_countable(var));
}
/* }}} */

${this.title}

Code Editor : type.c