diff options
Diffstat (limited to 'ext/standard/basic_functions.c')
| -rw-r--r-- | ext/standard/basic_functions.c | 3313 |
1 files changed, 0 insertions, 3313 deletions
diff --git a/ext/standard/basic_functions.c b/ext/standard/basic_functions.c deleted file mode 100644 index e75f0f4ff4..0000000000 --- a/ext/standard/basic_functions.c +++ /dev/null @@ -1,3313 +0,0 @@ -/* - +----------------------------------------------------------------------+ - | PHP version 4.0 | - +----------------------------------------------------------------------+ - | Copyright (c) 1997, 1998, 1999 The PHP Group | - +----------------------------------------------------------------------+ - | This source file is subject to version 2.0 of the PHP license, | - | that is bundled with this package in the file LICENSE, and is | - | available at through the world-wide-web at | - | http://www.php.net/license/2_0.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: Andi Gutmans <andi@zend.com> | - | Zeev Suraski <zeev@zend.com> | - +----------------------------------------------------------------------+ - */ - - -#include "php.h" -#include "php_ini.h" -#include "internal_functions_registry.h" -#include "php3_standard.h" -#include "zend_operators.h" -#include <stdarg.h> -#include <stdlib.h> -#include <math.h> -#include <time.h> -#include <stdio.h> -#if HAVE_UNISTD_H -#include <unistd.h> -#endif -#if HAVE_STRING_H -#include <string.h> -#else -#include <strings.h> -#endif -#include "safe_mode.h" -#if WIN32|WINNT -#include "win32/unistd.h" -#endif -#include "zend_globals.h" - -#include "php_globals.h" -#include "SAPI.h" - -#if APACHE -/* - ap_compat.h does a - #define md5 ap_md5 - which "kills" out md5 function. -*/ -#ifdef md5 -#undef md5 -#endif -#endif - -static unsigned char second_and_third_args_force_ref[] = { 3, BYREF_NONE, BYREF_FORCE, BYREF_FORCE }; -/* uncomment this if/when we actually need it - tired of seeing the warning -static unsigned char third_and_fourth_args_force_ref[] = { 4, BYREF_NONE, BYREF_NONE, BYREF_FORCE, BYREF_FORCE }; -*/ -static pval *user_compare_func_name; -static HashTable *user_shutdown_function_names; - -typedef struct _php_shutdown_function_entry { - zval **arguments; - int arg_count; -} php_shutdown_function_entry; - -/* some prototypes for local functions */ -int user_shutdown_function_dtor(php_shutdown_function_entry *shutdown_function_entry); -void php3_call_shutdown_functions(void); - -function_entry basic_functions[] = { - PHP_FE(intval, NULL) - PHP_FE(doubleval, NULL) - PHP_FE(strval, NULL) - PHP_FE(define, NULL) - PHP_FE(defined, NULL) - PHP_FE(bin2hex, NULL) - PHP_FE(toggle_short_open_tag, NULL) - PHP_FE(sleep, NULL) - PHP_FE(usleep, NULL) - - PHP_FE(ksort, first_arg_force_ref) - PHP_FE(asort, first_arg_force_ref) - PHP_FE(arsort, first_arg_force_ref) - PHP_FE(sort, first_arg_force_ref) - PHP_FE(rsort, first_arg_force_ref) - PHP_FE(usort, first_arg_force_ref) - PHP_FE(uasort, first_arg_force_ref) - PHP_FE(uksort, first_arg_force_ref) - PHP_FE(array_walk, first_arg_force_ref) - PHP_FALIAS(sizeof, count, first_arg_allow_ref) - PHP_FE(count, first_arg_allow_ref) - PHP_FE(end, first_arg_force_ref) - PHP_FE(prev, first_arg_force_ref) - PHP_FE(next, first_arg_force_ref) - PHP_FE(reset, first_arg_force_ref) - PHP_FE(current, first_arg_force_ref) - PHP_FE(key, first_arg_force_ref) - PHP_FE(each, first_arg_force_ref) - PHP_FALIAS(pos, current, first_arg_force_ref) - - PHP_FE(time, NULL) - PHP_FE(mktime, NULL) - PHP_FE(gmmktime, NULL) -#if HAVE_STRFTIME - PHP_FE(strftime, NULL) -#endif - PHP_FE(strtotime, NULL) - PHP_FE(date, NULL) - PHP_FE(gmdate, NULL) - PHP_FE(getdate, NULL) - PHP_FE(checkdate, NULL) - - PHP_FE(flush, NULL) - - PHP_FE(gettype, NULL) - PHP_FE(settype, first_arg_force_ref) - - PHP_FE(min, NULL) - PHP_FE(max, NULL) - - PHP_FE(getimagesize, NULL) - - PHP_FE(htmlspecialchars, NULL) - PHP_FE(htmlentities, NULL) - - PHP_FE(md5, NULL) - - PHP_FE(iptcparse, NULL) - PHP_FE(iptcembed, NULL) - - PHP_FE(phpinfo, NULL) - PHP_FE(phpversion, NULL) - PHP_FE(phpcredits, NULL) - - PHP_FE(strlen, NULL) - PHP_FE(strcmp, NULL) - PHP_FE(strspn, NULL) - PHP_FE(strcspn, NULL) - PHP_FE(strcasecmp, NULL) - PHP_FE(strtok, NULL) - PHP_FE(strtoupper, NULL) - PHP_FE(strtolower, NULL) - PHP_FE(strpos, NULL) - PHP_FE(strrpos, NULL) - PHP_FE(strrev, NULL) - PHP_FE(hebrev, NULL) - PHP_FE(hebrevc, NULL) - PHP_FE(nl2br, NULL) - PHP_FE(basename, NULL) - PHP_FE(dirname, NULL) - PHP_FE(stripslashes, NULL) - PHP_FE(stripcslashes, NULL) - PHP_FE(strstr, NULL) - PHP_FE(stristr, NULL) - PHP_FE(strrchr, NULL) - PHP_FE(substr, NULL) - PHP_FE(quotemeta, NULL) - PHP_FE(ucfirst, NULL) - PHP_FE(ucwords, NULL) - PHP_FE(strtr, NULL) - PHP_FE(addslashes, NULL) - PHP_FE(addcslashes, NULL) - PHP_FE(chop, NULL) - PHP_FE(str_replace, NULL) - PHP_FE(chunk_split, NULL) - PHP_FE(trim, NULL) - PHP_FE(ltrim, NULL) - PHP_FE(strip_tags, NULL) - PHP_FE(similar_text, NULL) - PHP_FE(explode, NULL) - PHP_FE(implode, NULL) - PHP_FE(setlocale, NULL) - PHP_FE(soundex, NULL) - PHP_FE(chr, NULL) - PHP_FE(ord, NULL) - PHP_FE(parse_str, NULL) - PHP_FALIAS(rtrim, chop, NULL) - PHP_FALIAS(strchr, strstr, NULL) - PHP_NAMED_FE(sprintf, php3_user_sprintf, NULL) - PHP_NAMED_FE(printf, php3_user_printf, NULL) - - PHP_FE(parse_url, NULL) - PHP_FE(urlencode, NULL) - PHP_FE(urldecode, NULL) - PHP_FE(rawurlencode, NULL) - PHP_FE(rawurldecode, NULL) - - PHP_FE(readlink, NULL) - PHP_FE(linkinfo, NULL) - PHP_FE(symlink, NULL) - PHP_FE(link, NULL) - PHP_FE(unlink, NULL) - - PHP_FE(exec, second_and_third_args_force_ref) - PHP_FE(system, second_arg_force_ref) - PHP_FE(escapeshellcmd, NULL) - PHP_FE(passthru, second_arg_force_ref) - PHP_FE(shell_exec, NULL) - - PHP_FE(rand, NULL) - PHP_FE(srand, NULL) - PHP_FE(getrandmax, NULL) - PHP_FE(mt_rand, NULL) - PHP_FE(mt_srand, NULL) - PHP_FE(mt_getrandmax, NULL) - - PHP_FE(gethostbyaddr, NULL) - PHP_FE(gethostbyname, NULL) - PHP_FE(gethostbynamel, NULL) -#if !(WIN32|WINNT)||HAVE_BINDLIB - PHP_FE(checkdnsrr, NULL) - PHP_FE(getmxrr, second_and_third_args_force_ref) -#endif - - PHP_FE(error_reporting, NULL) - - PHP_FE(getmyuid, NULL) - PHP_FE(getmypid, NULL) - PHP_FE(getmyinode, NULL) - PHP_FE(getlastmod, NULL) - /*getmyiid is here for forward compatibility with 3.1 - See pageinfo.c in 3.1 for more information*/ - /* {"getmyiid", php3_getmypid, NULL}, */ - - PHP_FE(base64_decode, NULL) - PHP_FE(base64_encode, NULL) - - PHP_FE(abs, NULL) - PHP_FE(ceil, NULL) - PHP_FE(floor, NULL) - PHP_FE(round, NULL) - PHP_FE(sin, NULL) - PHP_FE(cos, NULL) - PHP_FE(tan, NULL) - PHP_FE(asin, NULL) - PHP_FE(acos, NULL) - PHP_FE(atan, NULL) - PHP_FE(atan2, NULL) - PHP_FE(pi, NULL) - PHP_FE(pow, NULL) - PHP_FE(exp, NULL) - PHP_FE(log, NULL) - PHP_FE(log10, NULL) - PHP_FE(sqrt, NULL) - PHP_FE(deg2rad, NULL) - PHP_FE(rad2deg, NULL) - PHP_FE(bindec, NULL) - PHP_FE(hexdec, NULL) - PHP_FE(octdec, NULL) - PHP_FE(decbin, NULL) - PHP_FE(decoct, NULL) - PHP_FE(dechex, NULL) - PHP_FE(base_convert, NULL) - PHP_FE(number_format, NULL) - - PHP_FE(getenv, NULL) -#ifdef HAVE_PUTENV - PHP_FE(putenv, NULL) -#endif - - PHP_FE(microtime, NULL) - PHP_FE(gettimeofday, NULL) - PHP_FE(getrusage, NULL) - - PHP_FE(uniqid, NULL) - - PHP_FE(quoted_printable_decode, NULL) - - PHP_FE(convert_cyr_string, NULL) - PHP_FE(get_current_user, NULL) - PHP_FE(set_time_limit, NULL) - - PHP_FE(get_cfg_var, NULL) - PHP_FALIAS(magic_quotes_runtime, set_magic_quotes_runtime, NULL) - PHP_FE(set_magic_quotes_runtime, NULL) - PHP_FE(get_magic_quotes_gpc, NULL) - PHP_FE(get_magic_quotes_runtime, NULL) - - PHP_FE(is_long, first_arg_allow_ref) - PHP_FALIAS(is_int, is_long, first_arg_allow_ref) - PHP_FALIAS(is_integer, is_long, first_arg_allow_ref) - PHP_FALIAS(is_float, is_double, first_arg_allow_ref) - PHP_FE(is_double, first_arg_allow_ref) - PHP_FALIAS(is_real, is_double, first_arg_allow_ref) - PHP_FE(is_string, first_arg_allow_ref) - PHP_FE(is_array, first_arg_allow_ref) - PHP_FE(is_object, first_arg_allow_ref) - PHP_FE(get_class, NULL) - PHP_FE(get_parent_class, NULL) - PHP_FE(method_exists, NULL) - - PHP_FE(leak, NULL) - PHP_FE(error_log, NULL) - PHP_FE(call_user_func, NULL) - PHP_FE(call_user_method, NULL) - - PHP_FE(var_dump, NULL) - PHP_FE(serialize, first_arg_allow_ref) - PHP_FE(unserialize, first_arg_allow_ref) - - PHP_FE(register_shutdown_function, NULL) - - PHP_FE(highlight_file, NULL) - PHP_NAMED_FE(show_source, php3_highlight_file, NULL) - PHP_FE(highlight_string, NULL) - - PHP_FE(ob_start, NULL) - PHP_FE(ob_end_flush, NULL) - PHP_FE(ob_end_clean, NULL) - PHP_FE(ob_get_contents, NULL) - - PHP_FE(ini_get, NULL) - PHP_FE(ini_alter, NULL) - PHP_FE(ini_restore, NULL) - - PHP_FE(print_r, NULL) - - PHP_FE(setcookie, NULL) - PHP_NAMED_FE(header, PHP_FN(Header), NULL) - PHP_FE(headers_sent, NULL) - - PHP_FE(function_exists, NULL) - PHP_FE(in_array, NULL) - PHP_FE(extract, NULL) - PHP_FE(compact, NULL) - PHP_FE(array_push, first_arg_force_ref) - PHP_FE(array_pop, first_arg_force_ref) - PHP_FE(array_shift, first_arg_force_ref) - PHP_FE(array_unshift, first_arg_force_ref) - PHP_FE(array_splice, first_arg_force_ref) - PHP_FE(array_slice, NULL) - PHP_FE(array_merge, NULL) - PHP_FE(array_keys, NULL) - PHP_FE(array_values, NULL) - PHP_FE(array_count_values, NULL) - - PHP_FE(connection_aborted, NULL) - PHP_FE(connection_timeout, NULL) - PHP_FE(connection_status, NULL) - PHP_FE(ignore_user_abort, NULL) - - {NULL, NULL, NULL} -}; - - -PHP_INI_BEGIN() - PHP_INI_ENTRY1("highlight.string", "#foobar", PHP_INI_ALL, NULL, NULL) - PHP_INI_ENTRY1("test2", "testing", PHP_INI_SYSTEM, NULL, NULL) -PHP_INI_END() - - -php3_module_entry basic_functions_module = { - "Basic Functions", /* extension name */ - basic_functions, /* function list */ - PHP_MINIT(basic), /* process startup */ - PHP_MSHUTDOWN(basic), /* process shutdown */ - PHP_RINIT(basic), /* request startup */ - PHP_RSHUTDOWN(basic), /* request shutdown */ - NULL, /* extension info */ - STANDARD_MODULE_PROPERTIES -}; - -#ifdef HAVE_PUTENV -static HashTable putenv_ht; - -static int _php3_putenv_destructor(putenv_entry *pe) -{ - if (pe->previous_value) { - putenv(pe->previous_value); - } else { -# if HAVE_UNSETENV - unsetenv(pe->key); -# else - char **env; - - for (env = environ; env != NULL && *env != NULL; env++) { - if (!strncmp(*env,pe->key,pe->key_len) && (*env)[pe->key_len]=='=') { /* found it */ - *env = ""; - break; - } - } -# endif - } - efree(pe->putenv_string); - efree(pe->key); - return 1; -} -#endif - -#ifndef M_PI -#define M_PI 3.14159265358979323846 -#endif - -#define EXTR_OVERWRITE 0 -#define EXTR_SKIP 1 -#define EXTR_PREFIX_SAME 2 -#define EXTR_PREFIX_ALL 3 - -void test_class_startup(); - -PHP_MINIT_FUNCTION(basic) -{ - ELS_FETCH(); - - REGISTER_DOUBLE_CONSTANT("M_PI", M_PI, CONST_CS | CONST_PERSISTENT); - - REGISTER_LONG_CONSTANT("EXTR_OVERWRITE", EXTR_OVERWRITE, CONST_CS | CONST_PERSISTENT); - REGISTER_LONG_CONSTANT("EXTR_SKIP", EXTR_SKIP, CONST_CS | CONST_PERSISTENT); - REGISTER_LONG_CONSTANT("EXTR_PREFIX_SAME", EXTR_PREFIX_SAME, CONST_CS | CONST_PERSISTENT); - REGISTER_LONG_CONSTANT("EXTR_PREFIX_ALL", EXTR_PREFIX_ALL, CONST_CS | CONST_PERSISTENT); - - test_class_startup(); - REGISTER_INI_ENTRIES(); - - register_phpinfo_constants(INIT_FUNC_ARGS_PASSTHRU); - return SUCCESS; -} - - -PHP_MSHUTDOWN_FUNCTION(basic) -{ - UNREGISTER_INI_ENTRIES(); - return SUCCESS; -} - - -PHP_RINIT_FUNCTION(basic) -{ - strtok_string = NULL; -#ifdef HAVE_PUTENV - if (zend_hash_init(&putenv_ht, 1, NULL, (int (*)(void *)) _php3_putenv_destructor, 0) == FAILURE) { - return FAILURE; - } -#endif - user_compare_func_name=NULL; - user_shutdown_function_names=NULL; - return SUCCESS; -} - - -PHP_RSHUTDOWN_FUNCTION(basic) -{ - STR_FREE(strtok_string); -#ifdef HAVE_PUTENV - zend_hash_destroy(&putenv_ht); -#endif - - return SUCCESS; -} - -/******************** - * System Functions * - ********************/ - -PHP_FUNCTION(getenv) -{ -#if FHTTPD - int i; -#endif - pval *str; - char *ptr; - SLS_FETCH(); - - if (ARG_COUNT(ht) != 1 || getParameters(ht, 1, &str) == FAILURE) { - WRONG_PARAM_COUNT; - } - convert_to_string(str); - -#if FHTTPD - ptr=NULL; - if (str->type == IS_STRING && req){ - for(i=0;i<req->nlines;i++){ - if (req->lines[i].paramc>1){ - if (req->lines[i].params[0]){ - if (!strcmp(req->lines[i].params[0], - str->value.str.val)){ - ptr=req->lines[i].params[1]; - i=req->nlines; - } - } - } - } - } - if (!ptr) ptr = getenv(str->value.str.val); - if (ptr -#else - - if (str->type == IS_STRING && -#if APACHE - ((ptr = (char *)table_get(((request_rec *) SG(server_context))->subprocess_env, str->value.str.val)) || (ptr = getenv(str->value.str.val))) -#endif -#if CGI_BINARY - (ptr = getenv(str->value.str.val)) -#endif - -#if USE_SAPI - (ptr = sapi_rqst->getenv(sapi_rqst->scid,str->value.str.val)) -#endif -#endif - ) { - RETURN_STRING(ptr,1); - } - RETURN_FALSE; -} - - -#ifdef HAVE_PUTENV -PHP_FUNCTION(putenv) -{ - - pval *str; - - if (ARG_COUNT(ht) != 1 || getParameters(ht, 1, &str) == FAILURE) { - WRONG_PARAM_COUNT; - } - convert_to_string(str); - - if (str->value.str.val && *(str->value.str.val)) { - int ret; - char *p,**env; - putenv_entry pe; - - pe.putenv_string = estrndup(str->value.str.val,str->value.str.len); - pe.key = str->value.str.val; - if ((p=strchr(pe.key,'='))) { /* nullify the '=' if there is one */ - *p='\0'; - } - pe.key_len = strlen(pe.key); - pe.key = estrndup(pe.key,pe.key_len); - - zend_hash_del(&putenv_ht,pe.key,pe.key_len+1); - - /* find previous value */ - pe.previous_value = NULL; - for (env = environ; env != NULL && *env != NULL; env++) { - if (!strncmp(*env,pe.key,pe.key_len) && (*env)[pe.key_len]=='=') { /* found it */ - pe.previous_value = *env; - break; - } - } - - if ((ret=putenv(pe.putenv_string))==0) { /* success */ - zend_hash_add(&putenv_ht,pe.key,pe.key_len+1,(void **) &pe,sizeof(putenv_entry),NULL); - RETURN_TRUE; - } else { - efree(pe.putenv_string); - efree(pe.key); - RETURN_FALSE; - } - } -} -#endif - - -PHP_FUNCTION(error_reporting) -{ - pval *arg; - int old_error_reporting; - ELS_FETCH(); - - old_error_reporting = EG(error_reporting); - switch (ARG_COUNT(ht)) { - case 0: - break; - case 1: - if (getParameters(ht,1,&arg) == FAILURE) { - RETURN_FALSE; - } - convert_to_long(arg); - EG(error_reporting)=arg->value.lval; - break; - default: - WRONG_PARAM_COUNT; - break; - } - - RETVAL_LONG(old_error_reporting); -} - -PHP_FUNCTION(toggle_short_open_tag) -{ - /* has to be implemented within Zend */ -#if 0 - pval *value; - int ret; - - ret = php3_ini.short_open_tag; - - if (ARG_COUNT(ht)!=1 || getParameters(ht,1,&value) == FAILURE) { - WRONG_PARAM_COUNT; - } - convert_to_long(value); - php3_ini.short_open_tag = value->value.lval; - RETURN_LONG(ret); -#endif -} - -/******************* - * Basic Functions * - *******************/ - -PHP_FUNCTION(intval) -{ - pval *num, *arg_base; - int base; - - switch(ARG_COUNT(ht)) { - case 1: - if (getParameters(ht, 1, &num) == FAILURE) { - WRONG_PARAM_COUNT; - } - base = 10; - break; - case 2: - if (getParameters(ht, 2, &num, &arg_base) == FAILURE) { - WRONG_PARAM_COUNT; - } - convert_to_long(arg_base); - base = arg_base->value.lval; - break; - default: - WRONG_PARAM_COUNT; - } - - convert_to_long_base(num, base); - *return_value = *num; -} - - -PHP_FUNCTION(doubleval) -{ - pval *num; - - if (ARG_COUNT(ht) != 1 || getParameters(ht, 1, &num) == FAILURE) { - WRONG_PARAM_COUNT; - } - convert_to_double(num); - *return_value = *num; -} - - -PHP_FUNCTION(strval) -{ - pval *num; - - if (ARG_COUNT(ht) != 1 || getParameters(ht, 1, &num) == FAILURE) { - WRONG_PARAM_COUNT; - } - convert_to_string(num); - *return_value = *num; - pval_copy_constructor(return_value); -} - -static int array_key_compare(const void *a, const void *b) -{ - Bucket *first; - Bucket *second; - int min, r; - - first = *((Bucket **) a); - second = *((Bucket **) b); - - if (first->nKeyLength == 0 && second->nKeyLength == 0) { - return (first->h - second->h); - } else if (first->nKeyLength == 0) { - return -1; - } else if (second->nKeyLength == 0) { - return 1; - } - min = MIN(first->nKeyLength, second->nKeyLength); - if ((r = memcmp(first->arKey, second->arKey, min)) == 0) { - return (first->nKeyLength - second->nKeyLength); - } else { - return r; - } -} - - -PHP_FUNCTION(ksort) -{ - pval *array; - HashTable *target_hash; - - if (ARG_COUNT(ht) != 1 || getParameters(ht, 1, &array) == FAILURE) { - WRONG_PARAM_COUNT; - } - target_hash = HASH_OF(array); - if (!target_hash) { - php_error(E_WARNING, "Wrong datatype in ksort() call"); - return; - } - if (!ParameterPassedByReference(ht,1)) { - php_error(E_WARNING, "Array not passed by reference in call to ksort()"); - return; - } - if (zend_hash_sort(target_hash, array_key_compare,0) == FAILURE) { - return; - } - RETURN_TRUE; -} - - -PHP_FUNCTION(count) -{ - pval **array; - HashTable *target_hash; - - if (ARG_COUNT(ht) != 1 || getParametersEx(1, &array) == FAILURE) { - WRONG_PARAM_COUNT; - } - - target_hash = HASH_OF(*array); - if (!target_hash) { - if ((*array)->type == IS_STRING && (*array)->value.str.val==undefined_variable_string) { - RETURN_LONG(0); - } else { - RETURN_LONG(1); - } - } - - RETURN_LONG(zend_hash_num_elements(target_hash)); -} - - -/* Numbers are always smaller than strings int this function as it - * anyway doesn't make much sense to compare two different data types. - * This keeps it consistant and simple. - */ -static int array_data_compare(const void *a, const void *b) -{ - Bucket *f; - Bucket *s; - pval *first; - pval *second; - double dfirst, dsecond; - - f = *((Bucket **) a); - s = *((Bucket **) b); - - first = *((pval **) f->pData); - second = *((pval **) s->pData); - - if ((first->type == IS_LONG || first->type == IS_DOUBLE) && - (second->type == IS_LONG || second->type == IS_DOUBLE)) { - if (first->type == IS_LONG) { - dfirst = (double) first->value.lval; - } else { - dfirst = first->value.dval; - } - if (second->type == IS_LONG) { - dsecond = (double) second->value.lval; - } else { - dsecond = second->value.dval; - } - if (dfirst < dsecond) { - return -1; - } else if (dfirst == dsecond) { - return 0; - } else { - return 1; - } - } - if ((first->type == IS_LONG || first->type == IS_DOUBLE) && - second->type == IS_STRING) { - return -1; - } else if ((first->type == IS_STRING) && - (second->type == IS_LONG || second->type == IS_DOUBLE)) { - return 1; - } - if (first->type == IS_STRING && second->type == IS_STRING) { - return strcmp(first->value.str.val, second->value.str.val); - } - return 0; /* Anything else is equal as it can't be compared */ -} - -static int array_reverse_data_compare(const void *a, const void *b) -{ - return array_data_compare(a,b)*-1; -} - -PHP_FUNCTION(asort) -{ - pval *array; - HashTable *target_hash; - - if (ARG_COUNT(ht) != 1 || getParameters(ht, 1, &array) == FAILURE) { - WRONG_PARAM_COUNT; - } - target_hash = HASH_OF(array); - if (!target_hash) { - php_error(E_WARNING, "Wrong datatype in asort() call"); - return; - } - if (!ParameterPassedByReference(ht,1)) { - php_error(E_WARNING, "Array not passed by reference in call to asort()"); - return; - } - if (zend_hash_sort(target_hash, array_data_compare,0) == FAILURE) { - return; - } - RETURN_TRUE; -} - -PHP_FUNCTION(arsort) -{ - pval *array; - HashTable *target_hash; - - if (ARG_COUNT(ht) != 1 || getParameters(ht, 1, &array) == FAILURE) { - WRONG_PARAM_COUNT; - } - target_hash = HASH_OF(array); - if (!target_hash) { - php_error(E_WARNING, "Wrong datatype in arsort() call"); - return; - } - if (!ParameterPassedByReference(ht,1)) { - php_error(E_WARNING, "Array not passed by reference in call to arsort()"); - return; - } - if (zend_hash_sort(target_hash, array_reverse_data_compare,0) == FAILURE) { - return; - } - RETURN_TRUE; -} - -PHP_FUNCTION(sort) -{ - pval *array; - HashTable *target_hash; - - if (ARG_COUNT(ht) != 1 || getParameters(ht, 1, &array) == FAILURE) { - WRONG_PARAM_COUNT; - } - target_hash = HASH_OF(array); - if (!target_hash) { - php_error(E_WARNING, "Wrong datatype in sort() call"); - return; - } - if (!ParameterPassedByReference(ht,1)) { - php_error(E_WARNING, "Array not passed by reference in call to sort()"); - return; - } - if (zend_hash_sort(target_hash, array_data_compare,1) == FAILURE) { - return; - } - RETURN_TRUE; -} - -PHP_FUNCTION(rsort) -{ - pval *array; - HashTable *target_hash; - - if (ARG_COUNT(ht) != 1 || getParameters(ht, 1, &array) == FAILURE) { - WRONG_PARAM_COUNT; - } - target_hash = HASH_OF(array); - if (!target_hash) { - php_error(E_WARNING, "Wrong datatype in rsort() call"); - return; - } - if (!ParameterPassedByReference(ht,1)) { - php_error(E_WARNING, "Array not passed by reference in call to rsort()"); - return; - } - if (zend_hash_sort(target_hash, array_reverse_data_compare,1) == FAILURE) { - return; - } - RETURN_TRUE; -} - - -static int array_user_compare(const void *a, const void *b) -{ - Bucket *f; - Bucket *s; - pval **args[2]; - pval retval; - CLS_FETCH(); - - f = *((Bucket **) a); - s = *((Bucket **) b); - - args[0] = (pval **) f->pData; - args[1] = (pval **) s->pData; - - if (call_user_function_ex(CG(function_table), NULL, user_compare_func_name, &retval, 2, args, 0)==SUCCESS) { - convert_to_long(&retval); - return retval.value.lval; - } else { - return 0; - } -} - - -PHP_FUNCTION(usort) -{ - pval *array; - pval *old_compare_func; - HashTable *target_hash; - - old_compare_func = user_compare_func_name; - if (ARG_COUNT(ht) != 2 || getParameters(ht, 2, &array, &user_compare_func_name) == FAILURE) { - user_compare_func_name = old_compare_func; - WRONG_PARAM_COUNT; - } - target_hash = HASH_OF(array); - if (!target_hash) { - php_error(E_WARNING, "Wrong datatype in usort() call"); - user_compare_func_name = old_compare_func; - return; - } - convert_to_string(user_compare_func_name); - if (zend_hash_sort(target_hash, array_user_compare, 1) == FAILURE) { - user_compare_func_name = old_compare_func; - return; - } - user_compare_func_name = old_compare_func; - RETURN_TRUE; -} - -PHP_FUNCTION(uasort) -{ - pval *array; - pval *old_compare_func; - HashTable *target_hash; - - old_compare_func = user_compare_func_name; - if (ARG_COUNT(ht) != 2 || getParameters(ht, 2, &array, &user_compare_func_name) == FAILURE) { - user_compare_func_name = old_compare_func; - WRONG_PARAM_COUNT; - } - target_hash = HASH_OF(array); - if (!target_hash) { - php_error(E_WARNING, "Wrong datatype in uasort() call"); - user_compare_func_name = old_compare_func; - return; - } - convert_to_string(user_compare_func_name); - if (zend_hash_sort(target_hash, array_user_compare, 0) == FAILURE) { - user_compare_func_name = old_compare_func; - return; - } - user_compare_func_name = old_compare_func; - RETURN_TRUE; -} - - -static int array_user_key_compare(const void *a, const void *b) -{ - Bucket *f; - Bucket *s; - pval key1, key2; - pval *args[2]; - pval retval; - int status; - CLS_FETCH(); - - args[0] = &key1; - args[1] = &key2; - INIT_PZVAL(&key1); - INIT_PZVAL(&key2); - - f = *((Bucket **) a); - s = *((Bucket **) b); - - if (f->nKeyLength) { - key1.value.str.val = estrndup(f->arKey, f->nKeyLength); - key1.value.str.len = f->nKeyLength; - key1.type = IS_STRING; - } else { - key1.value.lval = f->h; - key1.type = IS_LONG; - } - if (s->nKeyLength) { - key2.value.str.val = estrndup(s->arKey, s->nKeyLength); - key2.value.str.len = s->nKeyLength; - key2.type = IS_STRING; - } else { - key2.value.lval = s->h; - key2.type = IS_LONG; - } - - status = call_user_function(CG(function_table), NULL, user_compare_func_name, &retval, 2, args); - - pval_destructor(&key1); - pval_destructor(&key2); - - if (status==SUCCESS) { - convert_to_long(&retval); - return retval.value.lval; - } else { - return 0; - } -} - - -PHP_FUNCTION(uksort) -{ - pval *array; - pval *old_compare_func; - HashTable *target_hash; - - old_compare_func = user_compare_func_name; - if (ARG_COUNT(ht) != 2 || getParameters(ht, 2, &array, &user_compare_func_name) == FAILURE) { - user_compare_func_name = old_compare_func; - WRONG_PARAM_COUNT; - } - target_hash = HASH_OF(array); - if (!target_hash) { - php_error(E_WARNING, "Wrong datatype in uksort() call"); - user_compare_func_name = old_compare_func; - return; - } - convert_to_string(user_compare_func_name); - if (zend_hash_sort(target_hash, array_user_key_compare, 0) == FAILURE) { - user_compare_func_name = old_compare_func; - return; - } - user_compare_func_name = old_compare_func; - RETURN_TRUE; -} - - -PHP_FUNCTION(end) -{ - pval *array, **entry; - HashTable *target_hash; - - if (ARG_COUNT(ht) != 1 || getParameters(ht, 1, &array) == FAILURE) { - WRONG_PARAM_COUNT; - } - target_hash = HASH_OF(array); - if (!target_hash) { - php_error(E_WARNING, "Variable passed to end() is not an array or object"); - return; - } - if (!ParameterPassedByReference(ht,1)) { - php_error(E_WARNING, "Array not passed by reference in call to end()"); - } - zend_hash_internal_pointer_end(target_hash); - if (zend_hash_get_current_data(target_hash, (void **) &entry) == FAILURE) { - RETURN_FALSE; - } - *return_value = **entry; - pval_copy_constructor(return_value); -} - - -PHP_FUNCTION(prev) -{ - pval *array, **entry; - HashTable *target_hash; - - if (ARG_COUNT(ht) != 1 || getParameters(ht, 1, &array) == FAILURE) { - WRONG_PARAM_COUNT; - } - target_hash = HASH_OF(array); - if (!target_hash) { - php_error(E_WARNING, "Variable passed to prev() is not an array or object"); - RETURN_FALSE; - } - zend_hash_move_backwards(target_hash); - if (zend_hash_get_current_data(target_hash, (void **) &entry) == FAILURE) { - RETURN_FALSE; - } - - *return_value = **entry; - pval_copy_constructor(return_value); -} - - -PHP_FUNCTION(next) -{ - pval *array, **entry; - HashTable *target_hash; - - if (ARG_COUNT(ht) != 1 || getParameters(ht, 1, &array) == FAILURE) { - WRONG_PARAM_COUNT; - } - target_hash = HASH_OF(array); - if (!target_hash) { - php_error(E_WARNING, "Variable passed to next() is not an array or object"); - RETURN_FALSE; - } - zend_hash_move_forward(target_hash); - if (zend_hash_get_current_data(target_hash, (void **) &entry) == FAILURE) { - RETURN_FALSE; - } - - *return_value = **entry; - pval_copy_constructor(return_value); -} - - -PHP_FUNCTION(each) -{ - pval *array,*entry,**entry_ptr, *tmp; - char *string_key; - ulong num_key; - pval **inserted_pointer; - HashTable *target_hash; - - if (ARG_COUNT(ht) != 1 || getParameters(ht, 1, &array) == FAILURE) { - WRONG_PARAM_COUNT; - } - target_hash = HASH_OF(array); - if (!target_hash) { - php_error(E_WARNING,"Variable passed to each() is not an array or object"); - return; - } - if (zend_hash_get_current_data(target_hash, (void **) &entry_ptr)==FAILURE) { - RETURN_FALSE; - } - array_init(return_value); - entry = *entry_ptr; - - /* add value elements */ - if (entry->EA.is_ref) { - tmp = (pval *)emalloc(sizeof(pval)); - *tmp = *entry; - pval_copy_constructor(tmp); - tmp->EA.is_ref=0; - tmp->EA.locks = 0; - tmp->refcount=0; - entry=tmp; - } - zend_hash_index_update(return_value->value.ht, 1, &entry, sizeof(pval *), NULL); - entry->refcount++; - zend_hash_update_ptr(return_value->value.ht, "value", sizeof("value"), entry, sizeof(pval *), NULL); - entry->refcount++; - - /* add the key elements */ - switch (zend_hash_get_current_key(target_hash, &string_key, &num_key)) { - case HASH_KEY_IS_STRING: - add_get_index_string(return_value,0,string_key,(void **) &inserted_pointer,0); - break; - case HASH_KEY_IS_LONG: - add_get_index_long(return_value,0,num_key, (void **) &inserted_pointer); - break; - } - zend_hash_update(return_value->value.ht, "key", sizeof("key"), inserted_pointer, sizeof(pval *), NULL); - (*inserted_pointer)->refcount++; - zend_hash_move_forward(target_hash); -} - - -PHP_FUNCTION(reset) -{ - pval *array, **entry; - HashTable *target_hash; - - if (ARG_COUNT(ht) != 1 || getParameters(ht, 1, &array) == FAILURE) { - WRONG_PARAM_COUNT; - } - target_hash = HASH_OF(array); - if (!target_hash) { - php_error(E_WARNING, "Variable passed to reset() is not an array or object"); - return; - } - zend_hash_internal_pointer_reset(target_hash); - if (zend_hash_get_current_data(target_hash, (void **) &entry) == FAILURE) { - return; - } - - *return_value = **entry; - pval_copy_constructor(return_value); - INIT_PZVAL(return_value); -} - -PHP_FUNCTION(current) -{ - pval *array, **entry; - HashTable *target_hash; - - if (ARG_COUNT(ht) != 1 || getParameters(ht, 1, &array) == FAILURE) { - WRONG_PARAM_COUNT; - } - target_hash = HASH_OF(array); - if (!target_hash) { - php_error(E_WARNING, "Variable passed to current() is not an array or object"); - return; - } - if (zend_hash_get_current_data(target_hash, (void **) &entry) == FAILURE) { - return; - } - *return_value = **entry; - pval_copy_constructor(return_value); -} - - -PHP_FUNCTION(key) -{ - pval *array; - char *string_key; - ulong num_key; - HashTable *target_hash; - - if (ARG_COUNT(ht) != 1 || getParameters(ht, 1, &array) == FAILURE) { - WRONG_PARAM_COUNT; - } - target_hash = HASH_OF(array); - if (!target_hash) { - php_error(E_WARNING, "Variable passed to key() is not an array or object"); - return; - } - if (!ParameterPassedByReference(ht,1)) { - php_error(E_WARNING, "Array not passed by reference in call to key()"); - } - switch (zend_hash_get_current_key(target_hash, &string_key, &num_key)) { - case HASH_KEY_IS_STRING: - return_value->value.str.val = string_key; - return_value->value.str.len = strlen(string_key); - return_value->type = IS_STRING; - break; - case HASH_KEY_IS_LONG: - return_value->type = IS_LONG; - return_value->value.lval = num_key; - break; - case HASH_KEY_NON_EXISTANT: - return; - } -} - -#ifdef __cplusplus -void php3_flush(HashTable *) -#else -PHP_FUNCTION(flush) -#endif -{ - SLS_FETCH(); - -#if APACHE -# if MODULE_MAGIC_NUMBER > 19970110 - rflush(((request_rec *) SG(server_context))); -# else - bflush(((request_rec *) SG(server_context))->connection->client); -# endif -#endif -#if FHTTPD - /*FIXME -- what does it flush really? the whole response?*/ -#endif -#if CGI_BINARY - fflush(stdout); -#endif -#if USE_SAPI - sapi_rqst->flush(sapi_rqst->scid); -#endif -} - - -PHP_FUNCTION(sleep) -{ - pval *num; - - if (ARG_COUNT(ht) != 1 || getParameters(ht, 1, &num) == FAILURE) { - WRONG_PARAM_COUNT; - } - convert_to_long(num); - sleep(num->value.lval); -} - -PHP_FUNCTION(usleep) -{ -#if HAVE_USLEEP - pval *num; - - if (ARG_COUNT(ht) != 1 || getParameters(ht, 1, &num) == FAILURE) { - WRONG_PARAM_COUNT; - } - convert_to_long(num); - usleep(num->value.lval); -#endif -} - -PHP_FUNCTION(gettype) -{ - pval *arg; - - if (ARG_COUNT(ht) != 1 || getParameters(ht, 1, &arg) == FAILURE) { - WRONG_PARAM_COUNT; - } - switch (arg->type) { - case IS_BOOL: - RETVAL_STRING("boolean",1); - break; - case IS_LONG: - RETVAL_STRING("integer",1); - break; - case IS_RESOURCE: - RETVAL_STRING("resource",1); - break; - case IS_DOUBLE: - RETVAL_STRING("double",1); - break; - case IS_STRING: - RETVAL_STRING("string",1); - break; - case IS_ARRAY: - RETVAL_STRING("array",1); - break; - case IS_OBJECT: - RETVAL_STRING("object",1); - break; - /* - { - char *result; - int res_len; - - res_len = sizeof("object of type ")-1 + arg->value.obj.ce->name_length; - result = (char *) emalloc(res_len+1); - sprintf(result, "object of type %s", arg->value.obj.ce->name); - RETVAL_STRINGL(result, res_len, 0); - } - */ - break; - default: - RETVAL_STRING("unknown type",1); - } -} - - -PHP_FUNCTION(settype) -{ - pval *var, *type; - char *new_type; - - if (ARG_COUNT(ht) != 2 || getParameters(ht, 2, &var, &type) == - FAILURE) { - WRONG_PARAM_COUNT; - } - convert_to_string(type); - new_type = type->value.str.val; - - if (!strcasecmp(new_type, "integer")) { - convert_to_long(var); - } else if (!strcasecmp(new_type, "double")) { - convert_to_double(var); - } else if (!strcasecmp(new_type, "string")) { - convert_to_string(var); - } else if (!strcasecmp(new_type, "array")) { - convert_to_array(var); - } else if (!strcasecmp(new_type, "object")) { - convert_to_object(var); - } else if (!strcasecmp(new_type, "boolean")) { - convert_to_boolean(var); - } else if (!strcasecmp(new_type, "resource")) { - php_error(E_WARNING, "settype: cannot convert to resource type"); - RETURN_FALSE; - } else { - php_error(E_WARNING, "settype: invalid type"); - RETURN_FALSE; - } - RETVAL_TRUE; -} - - -PHP_FUNCTION(min) -{ - int argc=ARG_COUNT(ht); - pval **result; - - if (argc<=0) { - php_error(E_WARNING, "min: must be passed at least 1 value"); - var_uninit(return_value); - return; - } - if (argc == 1) { - pval *arr; - - if (getParameters(ht, 1, &arr) == FAILURE || - arr->type != IS_ARRAY) { - WRONG_PARAM_COUNT; - } - if (zend_hash_minmax(arr->value.ht, array_data_compare, 0, (void **) &result)==SUCCESS) { - *return_value = **result; - pval_copy_constructor(return_value); - } else { - php_error(E_WARNING, "min: array must contain at least 1 element"); - var_uninit(return_value); - } - } else { - pval **args = (pval **) emalloc(sizeof(pval *)*ARG_COUNT(ht)); - pval *min, result; - int i; - - if (getParametersArray(ht, ARG_COUNT(ht), args)==FAILURE) { - efree(args); - WRONG_PARAM_COUNT; - } - - min = args[0]; - - for (i=1; i<ARG_COUNT(ht); i++) { - is_smaller_function(&result, args[i], min); - if (result.value.lval == 1) { - min = args[i]; - } - } - - *return_value = *min; - pval_copy_constructor(return_value); - - efree(args); - } -} - - -PHP_FUNCTION(max) -{ - int argc=ARG_COUNT(ht); - pval **result; - - if (argc<=0) { - php_error(E_WARNING, "max: must be passed at least 1 value"); - var_uninit(return_value); - return; - } - if (argc == 1) { - pval *arr; - - if (getParameters(ht, 1, &arr) == FAILURE || - arr->type != IS_ARRAY) { - WRONG_PARAM_COUNT; - } - if (zend_hash_minmax(arr->value.ht, array_data_compare, 1, (void **) &result)==SUCCESS) { - *return_value = **result; - pval_copy_constructor(return_value); - } else { - php_error(E_WARNING, "max: array must contain at least 1 element"); - var_uninit(return_value); - } - } else { - pval **args = (pval **) emalloc(sizeof(pval *)*ARG_COUNT(ht)); - pval *max, result; - int i; - - if (getParametersArray(ht, ARG_COUNT(ht), args)==FAILURE) { - efree(args); - WRONG_PARAM_COUNT; - } - - max = args[0]; - - for (i=1; i<ARG_COUNT(ht); i++) { - is_smaller_or_equal_function(&result, args[i], max); - if (result.value.lval == 0) { - max = args[i]; - } - } - - *return_value = *max; - pval_copy_constructor(return_value); - - efree(args); - } -} - -static pval *php_array_walk_func_name; - -static int php_array_walk(HashTable *target_hash, zval **userdata) -{ - zval **args[3], /* Arguments to userland function */ - retval, /* Return value - unused */ - *key; /* Entry key */ - char *string_key; - ulong num_key; - CLS_FETCH(); - - /* Allocate space for key */ - MAKE_STD_ZVAL(key); - - /* Set up known arguments */ - args[1] = &key; - args[2] = userdata; - - /* Iterate through hash */ - while(zend_hash_get_current_data(target_hash, (void **)&args[0]) == SUCCESS) { - /* Set up the key */ - if (zend_hash_get_current_key(target_hash, &string_key, &num_key) == HASH_KEY_IS_LONG) { - key->type = IS_LONG; - key->value.lval = num_key; - } else { - key->type = IS_STRING; - key->value.str.val = string_key; - key->value.str.len = strlen(string_key); - } - - /* Call the userland function */ - call_user_function_ex(CG(function_table), NULL, php_array_walk_func_name, - &retval, (*userdata) ? 3 : 2, args, 0); - - /* Clean up the key */ - if (zend_hash_get_current_key_type(target_hash) == HASH_KEY_IS_STRING) - efree(key->value.str.val); - - zend_hash_move_forward(target_hash); - } - efree(key); - - return 0; -} - -/* {{{ proto array_walk(array input, string funcname [, mixed userdata]) - Apply a user function to every member of an array */ -PHP_FUNCTION(array_walk) { - int argc; - zval *array, - *userdata = NULL, - *old_walk_func_name; - HashTable *target_hash; - - argc = ARG_COUNT(ht); - old_walk_func_name = php_array_walk_func_name; - if (argc < 2 || argc > 3 || - getParameters(ht, argc, &array, &php_array_walk_func_name, &userdata) == FAILURE) { - php_array_walk_func_name = old_walk_func_name; - WRONG_PARAM_COUNT; - } - target_hash = HASH_OF(array); - if (!target_hash) { - php_error(E_WARNING, "Wrong datatype in array_walk() call"); - php_array_walk_func_name = old_walk_func_name; - return; - } - convert_to_string(php_array_walk_func_name); - php_array_walk(target_hash, &userdata); - php_array_walk_func_name = old_walk_func_name; - RETURN_TRUE; -} - -#if 0 -PHP_FUNCTION(max) -{ - pval **argv; - int argc, i; - unsigned short max_type = IS_LONG; - - argc = ARG_COUNT(ht); - /* if there is one parameter and this parameter is an array of - * 2 or more elements, use that array - */ - if (argc == 1) { - argv = (pval **)emalloc(sizeof(pval *) * argc); - if (getParametersArray(ht, argc, argv) == FAILURE || - argv[0]->type != IS_ARRAY) { - WRONG_PARAM_COUNT; - } - if (argv[0]->value.ht->nNumOfElements < 2) { - php_error(E_WARNING, - "min: array must contain at least 2 elements"); - RETURN_FALSE; - } - /* replace the function parameters with the array */ - ht = argv[0]->value.ht; - argc = zend_hash_num_elements(ht); - efree(argv); - } else if (argc < 2) { - WRONG_PARAM_COUNT; - } - argv = (pval **)emalloc(sizeof(pval *) * argc); - if (getParametersArray(ht, argc, argv) == FAILURE) { - efree(argv); - WRONG_PARAM_COUNT; - } - /* figure out what types to compare - * if the arguments contain a double, convert all of them to a double - * else convert all of them to long - */ - for (i = 0; i < argc; i++) { - if (argv[i]->type == IS_DOUBLE) { - max_type = IS_DOUBLE; - break; - } - } - if (max_type == IS_LONG) { - convert_to_long(argv[0]); - return_value->value.lval = argv[0]->value.lval; - for (i = 1; i < argc; i++) { - convert_to_long(argv[i]); - if (argv[i]->value.lval > return_value->value.lval) { - return_value->value.lval = argv[i]->value.lval; - } - } - } else { - convert_to_double(argv[0]); - return_value->value.dval = argv[0]->value.dval; - for (i = 1; i < argc; i++) { - convert_to_double(argv[i]); - if (argv[i]->value.dval > return_value->value.dval) { - return_value->value.dval = argv[i]->value.dval; - } - } - } - efree(argv); - return_value->type = max_type; -} -#endif - -PHP_FUNCTION(get_current_user) -{ - RETURN_STRING(_php3_get_current_user(),1); -} - - -PHP_FUNCTION(get_cfg_var) -{ - pval *varname; - char *value; - - if (ARG_COUNT(ht)!=1 || getParameters(ht, 1, &varname)==FAILURE) { - WRONG_PARAM_COUNT; - } - - convert_to_string(varname); - - if (cfg_get_string(varname->value.str.val,&value)==FAILURE) { - RETURN_FALSE; - } - RETURN_STRING(value,1); -} - -PHP_FUNCTION(set_magic_quotes_runtime) -{ - pval *new_setting; - PLS_FETCH(); - - if (ARG_COUNT(ht)!=1 || getParameters(ht, 1, &new_setting)==FAILURE) { - RETURN_FALSE; - } - convert_to_boolean(new_setting); - - PG(magic_quotes_runtime) = (zend_bool) new_setting->value.lval; - RETURN_TRUE; -} - -PHP_FUNCTION(get_magic_quotes_runtime) -{ - PLS_FETCH(); - - RETURN_LONG(PG(magic_quotes_runtime)); -} - -PHP_FUNCTION(get_magic_quotes_gpc) -{ - PLS_FETCH(); - - RETURN_LONG(PG(magic_quotes_gpc)); -} - - -void php3_is_type(INTERNAL_FUNCTION_PARAMETERS,int type) -{ - pval **arg; - - if (ARG_COUNT(ht)!=1 || getParametersEx(1, &arg)==FAILURE) { - RETURN_FALSE; - } - if ((*arg)->type == type) { - RETURN_TRUE; - } else { - RETURN_FALSE; - } -} - - -PHP_FUNCTION(is_long) -{ - php3_is_type(INTERNAL_FUNCTION_PARAM_PASSTHRU, IS_LONG); -} - -PHP_FUNCTION(is_double) -{ - php3_is_type(INTERNAL_FUNCTION_PARAM_PASSTHRU, IS_DOUBLE); -} - -PHP_FUNCTION(is_string) -{ - php3_is_type(INTERNAL_FUNCTION_PARAM_PASSTHRU, IS_STRING); -} - -PHP_FUNCTION(is_array) -{ - php3_is_type(INTERNAL_FUNCTION_PARAM_PASSTHRU, IS_ARRAY); -} - -PHP_FUNCTION(is_object) -{ - php3_is_type(INTERNAL_FUNCTION_PARAM_PASSTHRU, IS_OBJECT); -} - -/* {{{ proto string get_class(object object) - Retrieves the class name ... -*/ -PHP_FUNCTION(get_class) -{ - pval *arg; - - if (ARG_COUNT(ht)!=1 || getParameters(ht, 1, &arg)==FAILURE) { - RETURN_FALSE; - } - if (arg->type != IS_OBJECT) { - RETURN_FALSE; - } - RETURN_STRINGL(arg->value.obj.ce->name, arg->value.obj.ce->name_length, 1); -} -/* }}} */ - -/* {{{ proto string get_parent_class(object object) - Retrieves the parent class name ... -*/ -PHP_FUNCTION(get_parent_class) -{ - pval *arg; - - if (ARG_COUNT(ht)!=1 || getParameters(ht, 1, &arg)==FAILURE) { - RETURN_FALSE; - } - if ((arg->type != IS_OBJECT) || !arg->value.obj.ce->parent) { - RETURN_FALSE; - } - RETURN_STRINGL(arg->value.obj.ce->parent->name, arg->value.obj.ce->parent->name_length, 1); -} -/* }}} */ - -/* {{{ proto bool method_exists(object object, string method) - Checks if the class method exists ... -*/ -PHP_FUNCTION(method_exists) -{ - pval *arg1, *arg2; - - if (ARG_COUNT(ht)!=2 || getParameters(ht, 2, &arg1, &arg2)==FAILURE) { - RETURN_FALSE; - } - if (arg1->type != IS_OBJECT) { - RETURN_FALSE; - } - convert_to_string(arg2); - if(zend_hash_exists(&arg1->value.obj.ce->function_table, arg2->value.str.val, arg2->value.str.len+1)) { - RETURN_TRUE; - } else { - RETURN_FALSE; - } -} -/* }}} */ - -PHP_FUNCTION(leak) -{ - int leakbytes=3; - pval *leak; - - if (ARG_COUNT(ht)>=1) { - if (getParameters(ht, 1, &leak)==SUCCESS) { - convert_to_long(leak); - leakbytes = leak->value.lval; - } - } - - emalloc(leakbytes); -} - -/* - 1st arg = error message - 2nd arg = error option - 3rd arg = optional parameters (email address or tcp address) - 4th arg = used for additional headers if email - - error options - 0 = send to php_error_log (uses syslog or file depending on ini setting) - 1 = send via email to 3rd parameter 4th option = additional headers - 2 = send via tcp/ip to 3rd parameter (name or ip:port) - 3 = save to file in 3rd parameter -*/ - -PHP_FUNCTION(error_log) -{ - pval *string, *erropt = NULL, *option = NULL, *emailhead = NULL; - int opt_err = 0; - char *message, *opt=NULL, *headers=NULL; - - switch(ARG_COUNT(ht)) { - case 1: - if (getParameters(ht,1,&string) == FAILURE) { - php_error(E_WARNING,"Invalid argument 1 in error_log"); - RETURN_FALSE; - } - break; - case 2: - if (getParameters(ht,2,&string,&erropt) == FAILURE) { - php_error(E_WARNING,"Invalid arguments in error_log"); - RETURN_FALSE; - } - convert_to_long(erropt); - opt_err=erropt->value.lval; - break; - case 3: - if (getParameters(ht,3,&string,&erropt,&option) == FAILURE){ - php_error(E_WARNING,"Invalid arguments in error_log"); - RETURN_FALSE; - } - convert_to_long(erropt); - opt_err=erropt->value.lval; - convert_to_string(option); - opt=option->value.str.val; - break; - case 4: - if (getParameters(ht,4,&string,&erropt,&option,&emailhead) == FAILURE){ - php_error(E_WARNING,"Invalid arguments in error_log"); - RETURN_FALSE; - } - break; - default: - WRONG_PARAM_COUNT; - } - - convert_to_string(string); - message=string->value.str.val; - if (erropt != NULL) { - convert_to_long(erropt); - opt_err=erropt->value.lval; - } - if (option != NULL) { - convert_to_string(option); - opt=option->value.str.val; - } - if (emailhead != NULL) { - convert_to_string(emailhead); - headers=emailhead->value.str.val; - } - - if (_php_error_log(opt_err,message,opt,headers)==FAILURE) { - RETURN_FALSE; - } - - RETURN_TRUE; -} - -PHPAPI int _php_error_log(int opt_err,char *message,char *opt,char *headers){ - FILE *logfile; - int issock=0, socketd=0;; - - switch(opt_err){ - case 1: /*send an email*/ - { -#if HAVE_SENDMAIL - if (!_php3_mail(opt,"PHP3 error_log message",message,headers)){ - return FAILURE; - } -#else - php_error(E_WARNING,"Mail option not available!"); - return FAILURE; -#endif - } - break; - case 2: /*send to an address */ - php_error(E_WARNING,"TCP/IP option not available!"); - return FAILURE; - break; - case 3: /*save to a file*/ - logfile=php3_fopen_wrapper(opt,"a", (IGNORE_URL|ENFORCE_SAFE_MODE), &issock, &socketd); - if(!logfile) { - php_error(E_WARNING,"error_log: Unable to write to %s",opt); - return FAILURE; - } - fwrite(message,strlen(message),1,logfile); - fclose(logfile); - break; - default: - php3_log_err(message); - break; - } - return SUCCESS; -} - - -PHP_FUNCTION(call_user_func) -{ - pval ***params; - pval retval; - int arg_count=ARG_COUNT(ht); - CLS_FETCH(); - - if (arg_count<1) { - WRONG_PARAM_COUNT; - } - params = (pval ***) emalloc(sizeof(pval **)*arg_count); - - if (getParametersArrayEx(arg_count, params)==FAILURE) { - efree(params); - RETURN_FALSE; - } - SEPARATE_ZVAL(params[0]); - convert_to_string(*params[0]); - if (call_user_function_ex(CG(function_table), NULL, *params[0], &retval, arg_count-1, params+1, 1)==SUCCESS) { - *return_value = retval; - } else { - php_error(E_WARNING,"Unable to call %s() - function does not exist", (*params[0])->value.str.val); - } - efree(params); -} - - -PHP_FUNCTION(call_user_method) -{ - pval ***params; - pval retval; - int arg_count=ARG_COUNT(ht); - CLS_FETCH(); - - if (arg_count<2) { - WRONG_PARAM_COUNT; - } - params = (pval ***) emalloc(sizeof(pval **)*arg_count); - - if (getParametersArrayEx(arg_count, params)==FAILURE) { - efree(params); - RETURN_FALSE; - } - if ((*params[1])->type != IS_OBJECT) { - php_error(E_WARNING,"2nd argument is not an object\n"); - efree(params); - RETURN_FALSE; - } - SEPARATE_ZVAL(params[0]); - SEPARATE_ZVAL(params[1]); - convert_to_string(*params[0]); - if (call_user_function_ex(CG(function_table), *params[1], *params[0], &retval, arg_count-2, params+2, 1)==SUCCESS) { - *return_value = retval; - } else { - php_error(E_WARNING,"Unable to call %s() - function does not exist", (*params[0])->value.str.val); - } - efree(params); -} - - -int user_shutdown_function_dtor(php_shutdown_function_entry *shutdown_function_entry) -{ - pval retval; - int i; - CLS_FETCH(); - - if (call_user_function(CG(function_table), NULL, shutdown_function_entry->arguments[0], &retval, shutdown_function_entry->arg_count-1, shutdown_function_entry->arguments+1)==SUCCESS) { - pval_destructor(&retval); - } - for (i=0; i<shutdown_function_entry->arg_count; i++) { - zval_ptr_dtor(&shutdown_function_entry->arguments[i]); - } - efree(shutdown_function_entry->arguments); - return 1; -} - - -void php3_call_shutdown_functions(void) -{ - if (user_shutdown_function_names) { - zend_hash_destroy(user_shutdown_function_names); - efree(user_shutdown_function_names); - } -} - -/* {{{ proto void register_shutdown_function(string function_name) - Register a user-level function to be called on request termination */ -PHP_FUNCTION(register_shutdown_function) -{ - php_shutdown_function_entry shutdown_function_entry; - int i; - - shutdown_function_entry.arg_count = ARG_COUNT(ht); - - if (shutdown_function_entry.arg_count<1) { - WRONG_PARAM_COUNT; - } - shutdown_function_entry.arguments = (pval **) emalloc(sizeof(pval *)*shutdown_function_entry.arg_count); - - if (getParametersArray(ht, shutdown_function_entry.arg_count, shutdown_function_entry.arguments)==FAILURE) { - RETURN_FALSE; - } - convert_to_string(shutdown_function_entry.arguments[0]); - if (!user_shutdown_function_names) { - user_shutdown_function_names = (HashTable *) emalloc(sizeof(HashTable)); - zend_hash_init(user_shutdown_function_names, 0, NULL, (int (*)(void *))user_shutdown_function_dtor, 0); - } - - for (i=0; i<shutdown_function_entry.arg_count; i++) { - shutdown_function_entry.arguments[i]->refcount++; - } - zend_hash_next_index_insert(user_shutdown_function_names, &shutdown_function_entry, sizeof(php_shutdown_function_entry), NULL); -} -/* }}} */ - - -ZEND_API void php_get_highlight_struct(zend_syntax_highlighter_ini *syntax_highlighter_ini) -{ - syntax_highlighter_ini->highlight_comment = INI_STR("highlight.comment"); - syntax_highlighter_ini->highlight_default = INI_STR("highlight.default"); - syntax_highlighter_ini->highlight_html = INI_STR("highlight.html"); - syntax_highlighter_ini->highlight_keyword = INI_STR("highlight.keyword"); - syntax_highlighter_ini->highlight_string = INI_STR("highlight.string"); -} - - -/* {{{ proto void highlight_file(string file_name) - Syntax highlight a source file */ -PHP_FUNCTION(highlight_file) -{ - pval *filename; - zend_syntax_highlighter_ini syntax_highlighter_ini; - - - if (ARG_COUNT(ht)!=1 || getParameters(ht, 1, &filename)==FAILURE) { - WRONG_PARAM_COUNT; - } - convert_to_string(filename); - - php_get_highlight_struct(&syntax_highlighter_ini); - - if (highlight_file(filename->value.str.val, &syntax_highlighter_ini)==FAILURE) { - RETURN_FALSE; - } - RETURN_TRUE; -} -/* }}} */ - - -/* {{{ proto void highlight_string(string string) - Syntax highlight a string */ -PHP_FUNCTION(highlight_string) -{ - pval *expr; - zend_syntax_highlighter_ini syntax_highlighter_ini; - - if (ARG_COUNT(ht)!=1 || getParameters(ht, 1, &expr)==FAILURE) { - WRONG_PARAM_COUNT; - } - - convert_to_string(expr); - - php_get_highlight_struct(&syntax_highlighter_ini); - - if (highlight_string(expr, &syntax_highlighter_ini)==FAILURE) { - RETURN_FALSE; - } - RETURN_TRUE; -} -/* }}} */ - - -pval test_class_get_property(zend_property_reference *property_reference) -{ - pval result; - zend_overloaded_element *overloaded_property; - zend_llist_element *element; - - - printf("Reading a property from a TestClass object:\n"); - - for (element=property_reference->elements_list.head; element; element=element->next) { - overloaded_property = (zend_overloaded_element *) element->data; - switch (overloaded_property->type) { - case IS_ARRAY: - printf("Array offset: "); - break; - case IS_OBJECT: - printf("Object property: "); - break; - } - switch (overloaded_property->element.type) { - case IS_LONG: - printf("%ld (numeric)\n", overloaded_property->element.value.lval); - break; - case IS_STRING: - printf("'%s'\n", overloaded_property->element.value.str.val); - break; - } - pval_destructor(&overloaded_property->element); - } - - result.value.str.val = estrndup("testing", 7); - result.value.str.len = 7; - result.type = IS_STRING; - return result; -} - - -int test_class_set_property(zend_property_reference *property_reference, pval *value) -{ - zend_overloaded_element *overloaded_property; - zend_llist_element *element; - - printf("Writing to a property from a TestClass object:\n"); - printf("Writing '"); - zend_print_variable(value); - printf("'\n"); - - for (element=property_reference->elements_list.head; element; element=element->next) { - overloaded_property = (zend_overloaded_element *) element->data; - switch (overloaded_property->type) { - case IS_ARRAY: - printf("Array offset: "); - break; - case IS_OBJECT: - printf("Object property: "); - break; - } - switch (overloaded_property->element.type) { - case IS_LONG: - printf("%ld (numeric)\n", overloaded_property->element.value.lval); - break; - case IS_STRING: - printf("'%s'\n", overloaded_property->element.value.str.val); - break; - } - pval_destructor(&overloaded_property->element); - } - - return 0; -} - - - -void test_class_call_function(INTERNAL_FUNCTION_PARAMETERS, zend_property_reference *property_reference) -{ - zend_overloaded_element *overloaded_property; - zend_llist_element *element; - - - printf("Reading a property from a TestClass object:\n"); - - for (element=property_reference->elements_list.head; element; element=element->next) { - overloaded_property = (zend_overloaded_element *) element->data; - switch (overloaded_property->type) { - case IS_ARRAY: - printf("Array offset: "); - break; - case IS_OBJECT: - printf("Object property: "); - break; - case IS_METHOD: - printf("Overloaded method: "); - } - switch (overloaded_property->element.type) { - case IS_LONG: - printf("%ld (numeric)\n", overloaded_property->element.value.lval); - break; - case IS_STRING: - printf("'%s'\n", overloaded_property->element.value.str.val); - break; - } - pval_destructor(&overloaded_property->element); - } - - printf("%d arguments\n", ARG_COUNT(ht)); - return_value->value.str.val = estrndup("testing", 7); - return_value->value.str.len = 7; - return_value->type = IS_STRING; -} - - -void test_class_startup() -{ - zend_class_entry test_class_entry; - - INIT_OVERLOADED_CLASS_ENTRY(test_class_entry, "OverloadedTestClass", NULL, - test_class_call_function, - test_class_get_property, - test_class_set_property); - - register_internal_class(&test_class_entry); -} - - -PHP_FUNCTION(ob_start) -{ - php_start_ob_buffering(); -} - - -PHP_FUNCTION(ob_end_flush) -{ - php_end_ob_buffering(1); -} - - -PHP_FUNCTION(ob_end_clean) -{ - php_end_ob_buffering(0); -} - - -PHP_FUNCTION(ob_get_contents) -{ - if (php_ob_get_buffer(return_value)==FAILURE) { - RETURN_FALSE; - } -} - - -PHP_FUNCTION(ini_get) -{ - pval *varname; - - if (ARG_COUNT(ht)!=1 || getParameters(ht, 1, &varname)==FAILURE) { - WRONG_PARAM_COUNT; - } - - return_value->value.str.val = php_ini_string(varname->value.str.val, varname->value.str.len+1, 0); - - if (!return_value->value.str.val) { - RETURN_FALSE; - } - - return_value->value.str.len = strlen(return_value->value.str.val); - return_value->type = IS_STRING; - pval_copy_constructor(return_value); -} - - -PHP_FUNCTION(ini_alter) -{ - pval *varname, *new_value; - char *old_value; - - if (ARG_COUNT(ht)!=2 || getParameters(ht, 2, &varname, &new_value)==FAILURE) { - WRONG_PARAM_COUNT; - } - - old_value = php_ini_string(varname->value.str.val, varname->value.str.len+1, 0); - - - convert_to_string(new_value); - - if (php_alter_ini_entry(varname->value.str.val, varname->value.str.len+1, new_value->value.str.val, new_value->value.str.len, PHP_INI_USER)==FAILURE) { - RETURN_FALSE; - } - if (old_value) { - RETURN_STRING(old_value, 1); - } else { - RETURN_FALSE; - } -} - - - -PHP_FUNCTION(ini_restore) -{ - pval *varname; - - if (ARG_COUNT(ht)!=1 || getParameters(ht, 1, &varname)==FAILURE) { - WRONG_PARAM_COUNT; - } - - convert_to_string(varname); - - php_restore_ini_entry(varname->value.str.val, varname->value.str.len); -} - - -PHP_FUNCTION(print_r) -{ - pval *expr; - - if (ARG_COUNT(ht)!=1 || getParameters(ht, 1, &expr)==FAILURE) { - WRONG_PARAM_COUNT; - } - - zend_print_pval_r(expr, 0); - RETURN_TRUE; -} - - -/* This should go back to PHP */ -PHP_FUNCTION(define) -{ - pval *var, *val, *non_cs; - int case_sensitive; - zend_constant c; - ELS_FETCH(); - - switch(ARG_COUNT(ht)) { - case 2: - if (getParameters(ht, 2, &var, &val)==FAILURE) { - RETURN_FALSE; - } - case_sensitive = CONST_CS; - break; - case 3: - if (getParameters(ht, 3, &var, &val, &non_cs)==FAILURE) { - RETURN_FALSE; - } - convert_to_long(non_cs); - if (non_cs->value.lval) { - case_sensitive = 0; - } else { - case_sensitive = CONST_CS; - } - break; - default: - WRONG_PARAM_COUNT; - break; - } - switch(val->type) { - case IS_LONG: - case IS_DOUBLE: - case IS_STRING: - case IS_BOOL: - case IS_RESOURCE: - break; - default: - php_error(E_WARNING,"Constants may only evaluate to scalar values"); - RETURN_FALSE; - break; - } - convert_to_string(var); - - c.value = *val; - pval_copy_constructor(&c.value); - c.flags = case_sensitive | ~CONST_PERSISTENT; /* non persistent */ - c.name = php3_strndup(var->value.str.val, var->value.str.len); - c.name_len = var->value.str.len+1; - zend_register_constant(&c ELS_CC); - RETURN_TRUE; -} - - -PHP_FUNCTION(defined) -{ - pval *var; - pval c; - - if (ARG_COUNT(ht)!=1 || getParameters(ht, 1, &var)==FAILURE) { - WRONG_PARAM_COUNT; - } - - convert_to_string(var); - if (zend_get_constant(var->value.str.val, var->value.str.len, &c)) { - pval_destructor(&c); - RETURN_LONG(1); - } else { - RETURN_LONG(0); - } -} - -/* {{{ proto int connection_aborted(void) - Returns true if client disconnected */ -PHP_FUNCTION(connection_aborted) -{ - PLS_FETCH(); - - RETURN_LONG(PG(connection_status)&PHP_CONNECTION_ABORTED); -} -/* }}} */ - -/* {{{ proto int connection_timeout(void) - Returns true if script timed out */ -PHP_FUNCTION(connection_timeout) -{ - PLS_FETCH(); - - RETURN_LONG(PG(connection_status)&PHP_CONNECTION_TIMEOUT); -} -/* }}} */ - -/* {{{ proto int connection_status(void) - Returns the connection status bitfield */ -PHP_FUNCTION(connection_status) -{ - PLS_FETCH(); - - RETURN_LONG(PG(connection_status)); -} -/* }}} */ - -/* {{{ proto int ignore_user_abort(boolean value) - Set whether we want to ignore a user abort event or not */ -PHP_FUNCTION(ignore_user_abort) -{ - pval *arg; - int old_setting; - PLS_FETCH(); - - old_setting = PG(ignore_user_abort); - switch (ARG_COUNT(ht)) { - case 0: - break; - case 1: - if (getParameters(ht,1,&arg) == FAILURE) { - RETURN_FALSE; - } - convert_to_boolean(arg); - PG(ignore_user_abort) = (zend_bool) arg->value.lval; - break; - default: - WRONG_PARAM_COUNT; - break; - } - RETURN_LONG(old_setting); -} -/* }}} */ - -/* {{{ proto bool function_exists(string function_name) - Checks if a given function has been defined */ -PHP_FUNCTION(function_exists) -{ - pval *fname; - pval *tmp; - char *lcname; - CLS_FETCH(); - - if (ARG_COUNT(ht)!=1 || getParameters(ht, 1, &fname)==FAILURE) { - WRONG_PARAM_COUNT; - } - - lcname = estrdup(fname->value.str.val); - zend_str_tolower(lcname, fname->value.str.len); - if (zend_hash_find(CG(function_table), lcname, - fname->value.str.len+1, (void**)&tmp) == FAILURE) { - efree(lcname); - RETURN_FALSE; - } else { - efree(lcname); - RETURN_TRUE; - } -} - -/* }}} */ - - -/* {{{ proto bool in_array(mixed needle, array haystack) - Checks if the given value exists in the array */ -PHP_FUNCTION(in_array) -{ - zval *value, /* value to check for */ - *array, /* array to check in */ - **entry_ptr, /* pointer to array entry */ - *entry, /* actual array entry */ - res; /* comparison result */ - HashTable *target_hash; /* array hashtable */ - - if (ARG_COUNT(ht) != 2 || getParameters(ht, 2, &value, &array) == FAILURE) { - WRONG_PARAM_COUNT; - } - - if (value->type == IS_ARRAY || value->type == IS_OBJECT) { - zend_error(E_WARNING, "Wrong datatype for first argument in call to in_array()"); - return; - } - - if (array->type != IS_ARRAY) { - zend_error(E_WARNING, "Wrong datatype for second argument in call to in_array()"); - return; - } - - target_hash = HASH_OF(array); - zend_hash_internal_pointer_reset(target_hash); - while(zend_hash_get_current_data(target_hash, (void **)&entry_ptr) == SUCCESS) { - entry = *entry_ptr; - is_equal_function(&res, value, entry); - if (zval_is_true(&res)) { - RETURN_TRUE; - } - - zend_hash_move_forward(target_hash); - } - - RETURN_FALSE; -} -/* }}} */ - - -/* {{{ int _valid_var_name(char *varname) */ -static int _valid_var_name(char *varname) -{ - int len, i; - - if (!varname) - return 0; - - len = strlen(varname); - - if (!isalpha((int)varname[0]) && varname[0] != '_') - return 0; - - if (len > 1) { - for(i=1; i<len; i++) { - if (!isalnum((int)varname[i]) && varname[i] != '_') { - return 0; - } - } - } - - return 1; -} -/* }}} */ - - -/* {{{ proto void extract(array var_array, int extract_type [, string prefix]) - Imports variables into symbol table from an array */ -PHP_FUNCTION(extract) -{ - zval *var_array, *etype, *prefix; - zval **entry_ptr, *entry, *exist; - zval *data; - char *varname, *finalname; - ulong lkey; - int res, extype; - ELS_FETCH(); - - switch(ARG_COUNT(ht)) { - case 1: - if (getParameters(ht, 1, &var_array) == FAILURE) { - WRONG_PARAM_COUNT; - } - extype = EXTR_OVERWRITE; - break; - - case 2: - if (getParameters(ht, 2, &var_array, &etype) == FAILURE) { - WRONG_PARAM_COUNT; - } - convert_to_long(etype); - extype = etype->value.lval; - if (extype > EXTR_SKIP && extype <= EXTR_PREFIX_ALL) { - WRONG_PARAM_COUNT; - } - break; - - case 3: - if (getParameters(ht, 3, &var_array, &etype, &prefix) == FAILURE) { - WRONG_PARAM_COUNT; - } - convert_to_long(etype); - extype = etype->value.lval; - break; - - default: - WRONG_PARAM_COUNT; - break; - } - - if (extype < EXTR_OVERWRITE || extype > EXTR_PREFIX_ALL) { - zend_error(E_WARNING, "Wrong argument in call to extract()"); - return; - } - - if (var_array->type != IS_ARRAY) { - zend_error(E_WARNING, "Wrong datatype in call to extract()"); - return; - } - - zend_hash_internal_pointer_reset(var_array->value.ht); - while(zend_hash_get_current_data(var_array->value.ht, (void **)&entry_ptr) == SUCCESS) { - entry = *entry_ptr; - - if (zend_hash_get_current_key(var_array->value.ht, &varname, &lkey) == - HASH_KEY_IS_STRING) { - - if (_valid_var_name(varname)) { - finalname = NULL; - - res = zend_hash_find(EG(active_symbol_table), - varname, strlen(varname)+1, (void**)&exist); - switch (extype) { - case EXTR_OVERWRITE: - finalname = estrdup(varname); - break; - - case EXTR_PREFIX_SAME: - if (res != SUCCESS) - finalname = estrdup(varname); - /* break omitted intentionally */ - - case EXTR_PREFIX_ALL: - if (!finalname) { - finalname = emalloc(strlen(varname) + prefix->value.str.len + 2); - strcpy(finalname, prefix->value.str.val); - strcat(finalname, "_"); - strcat(finalname, varname); - } - break; - - default: - if (res != SUCCESS) - finalname = estrdup(varname); - break; - } - - if (finalname) { - data = (zval *)emalloc(sizeof(zval)); - *data = *entry; - zval_copy_ctor(data); - INIT_PZVAL(data); - - zend_hash_update(EG(active_symbol_table), finalname, - strlen(finalname)+1, &data, sizeof(zval *), NULL); - efree(finalname); - } - } - - efree(varname); - } - - zend_hash_move_forward(var_array->value.ht); - } -} -/* }}} */ - - -/* {{{ void _compact_var(HashTable *eg_active_symbol_table, zval *return_value, zval *entry) */ -static void _compact_var(HashTable *eg_active_symbol_table, zval *return_value, zval *entry) -{ - zval **value_ptr, *value, *data; - - if (entry->type == IS_STRING) { - if (zend_hash_find(eg_active_symbol_table, entry->value.str.val, - entry->value.str.len+1, (void **)&value_ptr) != FAILURE) { - value = *value_ptr; - data = (zval *)emalloc(sizeof(zval)); - *data = *value; - zval_copy_ctor(data); - INIT_PZVAL(data); - - zend_hash_update(return_value->value.ht, entry->value.str.val, - entry->value.str.len+1, &data, sizeof(zval *), NULL); - } - } - else if (entry->type == IS_ARRAY) { - zend_hash_internal_pointer_reset(entry->value.ht); - - while(zend_hash_get_current_data(entry->value.ht, (void**)&value_ptr) == SUCCESS) { - value = *value_ptr; - - _compact_var(eg_active_symbol_table, return_value, value); - zend_hash_move_forward(entry->value.ht); - } - } -} -/* }}} */ - - -/* {{{ proto array compact(string var_name | array var_names [, ... ]) - Creates a hash containing variables and their values */ -PHP_FUNCTION(compact) -{ - zval **args; /* function arguments array */ - int i; - ELS_FETCH(); - - args = (zval **)emalloc(ARG_COUNT(ht) * sizeof(zval *)); - - if (getParametersArray(ht, ARG_COUNT(ht), args) == FAILURE) { - efree(args); - WRONG_PARAM_COUNT; - } - - array_init(return_value); - - for (i=0; i<ARG_COUNT(ht); i++) - { - _compact_var(EG(active_symbol_table), return_value, args[i]); - } - - efree(args); -} -/* }}} */ - - -/* HashTable* _phpi_splice(HashTable *in_hash, int offset, int length, - zval **list, int list_count, HashTable **removed) */ -HashTable* _phpi_splice(HashTable *in_hash, int offset, int length, - zval **list, int list_count, HashTable **removed) -{ - HashTable *out_hash = NULL; /* Output hashtable */ - int num_in, /* Number of entries in the input hashtable */ - pos, /* Current position in the hashtable */ - i; /* Loop counter */ - Bucket *p; /* Pointer to hash bucket */ - zval *entry; /* Hash entry */ - - /* If input hash doesn't exist, we have nothing to do */ - if (!in_hash) - return NULL; - - /* Get number of entries in the input hash */ - num_in = zend_hash_num_elements(in_hash); - - /* Clamp the offset.. */ - if (offset > num_in) - offset = num_in; - else if (offset < 0 && (offset=num_in+offset) < 0) - offset = 0; - - /* ..and the length */ - if (length < 0) - length = num_in-offset+length; - else if(offset+length > num_in) - length = num_in-offset; - - /* Create and initialize output hash */ - out_hash = (HashTable *)emalloc(sizeof(HashTable)); - zend_hash_init(out_hash, 0, NULL, PVAL_PTR_DTOR, 0); - - /* Start at the beginning of the input hash and copy - entries to output hash until offset is reached */ - for (pos=0, p=in_hash->pListHead; pos<offset && p ; pos++, p=p->pListNext) { - /* Get entry and increase reference count */ - entry = *((zval **)p->pData); - entry->refcount++; - - /* Update output hash depending on key type */ - if (p->nKeyLength) - zend_hash_update(out_hash, p->arKey, p->nKeyLength, &entry, sizeof(zval *), NULL); - else - zend_hash_next_index_insert(out_hash, &entry, sizeof(zval *), NULL); - } - - /* If hash for removed entries exists, go until offset+length - and copy the entries to it */ - if (removed != NULL) { - for( ; pos<offset+length && p; pos++, p=p->pListNext) { - entry = *((zval **)p->pData); - entry->refcount++; - if (p->nKeyLength) - zend_hash_update(*removed, p->arKey, p->nKeyLength, &entry, sizeof(zval *), NULL); - else - zend_hash_next_index_insert(*removed, &entry, sizeof(zval *), NULL); - } - } else /* otherwise just skip those entries */ - for( ; pos<offset+length && p; pos++, p=p->pListNext); - - /* If there are entries to insert.. */ - if (list != NULL) { - /* ..for each one, create a new zval, copy entry into it - and copy it into the output hash */ - for (i=0; i<list_count; i++) { - entry = list[i]; - entry->refcount++; - zend_hash_next_index_insert(out_hash, &entry, sizeof(zval *), NULL); - } - } - - /* Copy the remaining input hash entries to the output hash */ - for ( ; p ; p=p->pListNext) { - entry = *((zval **)p->pData); - entry->refcount++; - if (p->nKeyLength) - zend_hash_update(out_hash, p->arKey, p->nKeyLength, &entry, sizeof(zval *), NULL); - else - zend_hash_next_index_insert(out_hash, &entry, sizeof(zval *), NULL); - } - - zend_hash_internal_pointer_reset(out_hash); - return out_hash; -} -/* }}} */ - - -/* {{{ proto int array_push(array stack, mixed var [, ...]) - Pushes elements onto the end of the array */ -PHP_FUNCTION(array_push) -{ - zval **args, /* Function arguments array */ - *stack, /* Input array */ - *new_var; /* Variable to be pushed */ - int i, /* Loop counter */ - argc; /* Number of function arguments */ - - /* Get the argument count and check it */ - argc = ARG_COUNT(ht); - if (argc < 2) { - WRONG_PARAM_COUNT; - } - - /* Allocate arguments array and get the arguments, checking for errors. */ - args = (zval **)emalloc(argc * sizeof(zval *)); - if (getParametersArray(ht, argc, args) == FAILURE) { - efree(args); - WRONG_PARAM_COUNT; - } - - /* Get first argument and check that it's an array */ - stack = args[0]; - if (stack->type != IS_ARRAY) { - zend_error(E_WARNING, "First argument to push() needs to be an array"); - RETURN_FALSE; - } - - /* For each subsequent argument, make it a reference, increase refcount, - and add it to the end of the array */ - for (i=1; i<argc; i++) { - new_var = args[i]; - new_var->refcount++; - - zend_hash_next_index_insert(stack->value.ht, &new_var, sizeof(zval *), NULL); - } - - /* Clean up and return the number of values in the stack */ - efree(args); - RETVAL_LONG(zend_hash_num_elements(stack->value.ht)); -} -/* }}} */ - - -/* {{{ void _phpi_pop(INTERNAL_FUNCTION_PARAMETERS, int which_end) */ -static void _phpi_pop(INTERNAL_FUNCTION_PARAMETERS, int off_the_end) -{ - zval *stack, /* Input stack */ - **val; /* Value to be popped */ - HashTable *new_hash; /* New stack */ - - /* Get the arguments and do error-checking */ - if (ARG_COUNT(ht) != 1 || getParameters(ht, 1, &stack) == FAILURE) { - WRONG_PARAM_COUNT; - } - - if (stack->type != IS_ARRAY) { - zend_error(E_WARNING, "The argument needs to be an array"); - return; - } - - if (zend_hash_num_elements(stack->value.ht) == 0) { - return; - } - - /* Get the first or last value and copy it into the return value */ - if (off_the_end) - zend_hash_internal_pointer_end(stack->value.ht); - else - zend_hash_internal_pointer_reset(stack->value.ht); - zend_hash_get_current_data(stack->value.ht, (void **)&val); - *return_value = **val; - zval_copy_ctor(return_value); - INIT_PZVAL(return_value); - - /* Delete the first or last value */ - new_hash = _phpi_splice(stack->value.ht, (off_the_end) ? -1 : 0, 1, NULL, 0, NULL); - zend_hash_destroy(stack->value.ht); - efree(stack->value.ht); - stack->value.ht = new_hash; -} -/* }}} */ - - -/* {{{ proto mixed array_pop(array stack) - Pops an element off the end of the array */ -PHP_FUNCTION(array_pop) -{ - _phpi_pop(INTERNAL_FUNCTION_PARAM_PASSTHRU, 1); -} -/* }}} */ - - -/* {{{ proto mixed array_shift(array stack) - Pops an element off the beginning of the array */ -PHP_FUNCTION(array_shift) -{ - _phpi_pop(INTERNAL_FUNCTION_PARAM_PASSTHRU, 0); -} -/* }}} */ - - -/* {{{ proto int array_unshift(array stack, mixed var [, ...]) - Pushes elements onto the beginning of the array */ -PHP_FUNCTION(array_unshift) -{ - zval **args, /* Function arguments array */ - *stack; /* Input stack */ - HashTable *new_hash; /* New hashtable for the stack */ - int argc; /* Number of function arguments */ - - - /* Get the argument count and check it */ - argc = ARG_COUNT(ht); - if (argc < 2) { - WRONG_PARAM_COUNT; - } - - /* Allocate arguments array and get the arguments, checking for errors. */ - args = (zval **)emalloc(argc * sizeof(zval *)); - if (getParametersArray(ht, argc, args) == FAILURE) { - efree(args); - WRONG_PARAM_COUNT; - } - - /* Get first argument and check that it's an array */ - stack = args[0]; - if (stack->type != IS_ARRAY) { - zend_error(E_WARNING, "First argument to push() needs to be an array"); - RETURN_FALSE; - } - - /* Use splice to insert the elements at the beginning. Destroy old - hashtable and replace it with new one */ - new_hash = _phpi_splice(stack->value.ht, 0, 0, &args[1], argc-1, NULL); - zend_hash_destroy(stack->value.ht); - efree(stack->value.ht); - stack->value.ht = new_hash; - - /* Clean up and return the number of elements in the stack */ - efree(args); - RETVAL_LONG(zend_hash_num_elements(stack->value.ht)); -} -/* }}} */ - - -/* {{{ proto array array_splice(array input, int offset [, int length, mixed var [, ...] ]) - Removes the elements designated by offset and length and replace them with - var's if supplied */ -PHP_FUNCTION(array_splice) -{ - zval **args, /* Function arguments array */ - *array, /* Input array */ - **repl = NULL; /* Replacement elements */ - HashTable *new_hash = NULL; /* Output array's hash */ - Bucket *p; /* Bucket used for traversing hash */ - int argc, /* Number of function arguments */ - i, - offset, - length, - repl_num = 0; /* Number of replacement elements */ - - /* Get the argument count and check it */ - argc = ARG_COUNT(ht); - if (argc < 2 || argc > 4) { - WRONG_PARAM_COUNT; - } - - /* Allocate arguments array and get the arguments, checking for errors. */ - args = (zval **)emalloc(argc * sizeof(zval *)); - if (getParametersArray(ht, argc, args) == FAILURE) { - efree(args); - WRONG_PARAM_COUNT; - } - - /* Get first argument and check that it's an array */ - array = args[0]; - if (array->type != IS_ARRAY) { - zend_error(E_WARNING, "First argument to splice() should be an array"); - efree(args); - return; - } - - /* Get the next two arguments. If length is omitted, - it's assumed to be until the end of the array */ - convert_to_long(args[1]); - offset = args[1]->value.lval; - if (argc > 2) { - convert_to_long(args[2]); - length = args[2]->value.lval; - } else - length = zend_hash_num_elements(array->value.ht); - - if (argc == 4) { - /* Make sure the last argument, if passed, is an array */ - convert_to_array(args[3]); - - /* Create the array of replacement elements */ - repl_num = zend_hash_num_elements(args[3]->value.ht); - repl = (zval **)emalloc(repl_num * sizeof(zval *)); - for (p=args[3]->value.ht->pListHead, i=0; p; p=p->pListNext, i++) { - repl[i] = *((zval **)p->pData); - } - } - - /* Initialize return value */ - array_init(return_value); - - /* Perform splice */ - new_hash = _phpi_splice(array->value.ht, offset, length, - repl, repl_num, - &return_value->value.ht); - - /* Replace input array's hashtable with the new one */ - zend_hash_destroy(array->value.ht); - efree(array->value.ht); - array->value.ht = new_hash; - - /* Clean up */ - if (argc == 4) - efree(repl); - efree(args); -} -/* }}} */ - - -/* {{{ proto array array_slice(array input, int offset [, int length]) - Returns elements specified by offset and length */ -PHP_FUNCTION(array_slice) -{ - zval *input, /* Input array */ - *offset, /* Offset to get elements from */ - *length, /* How many elements to get */ - **entry; /* An array entry */ - int offset_val, /* Value of the offset argument */ - length_val, /* Value of the length argument */ - num_in, /* Number of elements in the input array */ - pos, /* Current position in the array */ - argc; /* Number of function arguments */ - - char *string_key; - ulong num_key; - - - /* Get the arguments and do error-checking */ - argc = ARG_COUNT(ht); - if (argc < 2 || argc > 3 || getParameters(ht, argc, &input, &offset, &length)) { - WRONG_PARAM_COUNT; - } - - if (input->type != IS_ARRAY) { - zend_error(E_WARNING, "First argument to slice() should be an array"); - return; - } - - /* Make sure offset and length are integers and assume - we want all entries from offset to the end if length - is not passed */ - convert_to_long(offset); - offset_val = offset->value.lval; - if (argc == 3) { - convert_to_long(length); - length_val = length->value.lval; - } else - length_val = zend_hash_num_elements(input->value.ht); - - /* Initialize returned array */ - array_init(return_value); - - /* Get number of entries in the input hash */ - num_in = zend_hash_num_elements(input->value.ht); - - /* Clamp the offset.. */ - if (offset_val > num_in) - return; - else if (offset_val < 0 && (offset_val=num_in+offset_val) < 0) - offset_val = 0; - - /* ..and the length */ - if (length_val < 0) - length_val = num_in-offset_val+length_val; - else if(offset_val+length_val > num_in) - length_val = num_in-offset_val; - - if (length_val == 0) - return; - - /* Start at the beginning and go until we hit offset */ - pos = 0; - zend_hash_internal_pointer_reset(input->value.ht); - while(pos < offset_val && - zend_hash_get_current_data(input->value.ht, (void **)&entry) == SUCCESS) { - pos++; - zend_hash_move_forward(input->value.ht); - } - - /* Copy elements from input array to the one that's returned */ - while(pos < offset_val+length_val && - zend_hash_get_current_data(input->value.ht, (void **)&entry) == SUCCESS) { - - (*entry)->refcount++; - - switch (zend_hash_get_current_key(input->value.ht, &string_key, &num_key)) { - case HASH_KEY_IS_STRING: - zend_hash_update(return_value->value.ht, string_key, strlen(string_key)+1, - entry, sizeof(zval *), NULL); - efree(string_key); - break; - - case HASH_KEY_IS_LONG: - zend_hash_next_index_insert(return_value->value.ht, - entry, sizeof(zval *), NULL); - break; - } - pos++; - zend_hash_move_forward(input->value.ht); - } -} -/* }}} */ - - -/* {{{ proto array array_merge(array arr1, array arr2 [, ...]) - Merges elements from passed arrays into one array */ -PHP_FUNCTION(array_merge) -{ - zval **args = NULL, - **entry; - HashTable *hash; - int argc, - i; - char *string_key; - ulong num_key; - - /* Get the argument count and check it */ - argc = ARG_COUNT(ht); - if (argc < 2) { - WRONG_PARAM_COUNT; - } - - /* Allocate arguments array and get the arguments, checking for errors. */ - args = (zval **)emalloc(argc * sizeof(zval *)); - if (getParametersArray(ht, argc, args) == FAILURE) { - efree(args); - WRONG_PARAM_COUNT; - } - - array_init(return_value); - - for (i=0; i<argc; i++) { - if (args[i]->type != IS_ARRAY) { - zend_error(E_WARNING, "Skipping argument #%d to array_merge(), since it's not an array", i+1); - continue; - } - hash = args[i]->value.ht; - - zend_hash_internal_pointer_reset(hash); - while(zend_hash_get_current_data(hash, (void **)&entry) == SUCCESS) { - (*entry)->refcount++; - - switch (zend_hash_get_current_key(hash, &string_key, &num_key)) { - case HASH_KEY_IS_STRING: - zend_hash_update(return_value->value.ht, string_key, strlen(string_key)+1, - entry, sizeof(zval *), NULL); - efree(string_key); - break; - - case HASH_KEY_IS_LONG: - zend_hash_next_index_insert(return_value->value.ht, - entry, sizeof(zval *), NULL); - break; - } - - zend_hash_move_forward(hash); - } - } - - efree(args); -} -/* }}} */ - - -/* {{{ proto array array_keys(array input [, mixed search_value]) - Return just the keys from the input array, optionally only - for the specified search_value */ -PHP_FUNCTION(array_keys) -{ - zval *input, /* Input array */ - *search_value, /* Value to search for */ - **entry, /* An entry in the input array */ - res, /* Result of comparison */ - *new_val; /* New value */ - int add_key; /* Flag to indicate whether a key should be added */ - char *string_key; /* String key */ - ulong num_key; /* Numeric key */ - - search_value = NULL; - - /* Get arguments and do error-checking */ - if (ARG_COUNT(ht) < 1 || ARG_COUNT(ht) > 2 || - getParameters(ht, ARG_COUNT(ht), &input, &search_value) == FAILURE) { - WRONG_PARAM_COUNT; - } - - if (input->type != IS_ARRAY) { - zend_error(E_WARNING, "First argument to array_keys() should be an array"); - return; - } - - /* Initialize return array */ - array_init(return_value); - add_key = 1; - - /* Go through input array and add keys to the return array */ - zend_hash_internal_pointer_reset(input->value.ht); - while(zend_hash_get_current_data(input->value.ht, (void **)&entry) == SUCCESS) { - if (search_value != NULL) { - is_equal_function(&res, search_value, *entry); - add_key = zval_is_true(&res); - } - - if (add_key) { - new_val = (zval *)emalloc(sizeof(zval)); - INIT_PZVAL(new_val); - - switch (zend_hash_get_current_key(input->value.ht, &string_key, &num_key)) { - case HASH_KEY_IS_STRING: - new_val->type = IS_STRING; - new_val->value.str.val = string_key; - new_val->value.str.len = strlen(string_key); - zend_hash_next_index_insert(return_value->value.ht, &new_val, - sizeof(zval *), NULL); - break; - - case HASH_KEY_IS_LONG: - new_val->type = IS_LONG; - new_val->value.lval = num_key; - zend_hash_next_index_insert(return_value->value.ht, &new_val, - sizeof(zval *), NULL); - break; - } - } - - zend_hash_move_forward(input->value.ht); - } -} -/* }}} */ - - -/* {{{ proto array array_values(array input) - Return just the values from the input array */ -PHP_FUNCTION(array_values) -{ - zval *input, /* Input array */ - **entry; /* An entry in the input array */ - - /* Get arguments and do error-checking */ - if (ARG_COUNT(ht) != 1 || getParameters(ht, ARG_COUNT(ht), &input) == FAILURE) { - WRONG_PARAM_COUNT; - } - - if (input->type != IS_ARRAY) { - zend_error(E_WARNING, "Argument to array_values() should be an array"); - return; - } - - /* Initialize return array */ - array_init(return_value); - - /* Go through input array and add values to the return array */ - zend_hash_internal_pointer_reset(input->value.ht); - while(zend_hash_get_current_data(input->value.ht, (void **)&entry) == SUCCESS) { - - (*entry)->refcount++; - zend_hash_next_index_insert(return_value->value.ht, entry, - sizeof(zval *), NULL); - - zend_hash_move_forward(input->value.ht); - } -} -/* }}} */ - -/* {{{ proto array array_count_values(array input) - Return the value as key and the frequency of that value in <input> as value */ -PHP_FUNCTION(array_count_values) -{ - zval **input, /* Input array */ - **entry; /* An entry in the input array */ - zval **tmp; - HashTable *myht; - - /* Get arguments and do error-checking */ - if (ARG_COUNT(ht) != 1 || getParametersEx(1, &input) == FAILURE) { - WRONG_PARAM_COUNT; - } - - if ((*input)->type != IS_ARRAY) { - zend_error(E_WARNING, "Argument to array_count_values() should be an array"); - return; - } - - /* Initialize return array */ - array_init(return_value); - - /* Go through input array and add values to the return array */ - myht = (*input)->value.ht; - zend_hash_internal_pointer_reset(myht); - while (zend_hash_get_current_data(myht, (void **)&entry) == SUCCESS) { - if ((*entry)->type == IS_LONG) { - if (zend_hash_index_find(return_value->value.ht, - (*entry)->value.lval, - (void**)&tmp) == FAILURE) { - zval *data; - MAKE_STD_ZVAL(data); - data->type = IS_LONG; - data->value.lval = 1; - zend_hash_index_update(return_value->value.ht,(*entry)->value.lval, &data, sizeof(data), NULL); - } else { - (*tmp)->value.lval++; - } - } else if ((*entry)->type == IS_STRING) { - if (zend_hash_find(return_value->value.ht, - (*entry)->value.str.val, - (*entry)->value.str.len+1, - (void**)&tmp) == FAILURE) { - zval *data; - MAKE_STD_ZVAL(data); - data->type = IS_LONG; - data->value.lval = 1; - zend_hash_update(return_value->value.ht,(*entry)->value.str.val,(*entry)->value.str.len + 1, &data, sizeof(data), NULL); - } else { - (*tmp)->value.lval++; - } - } else { - zend_error(E_WARNING, "Can only count STRING and INTEGER values!"); - } - - zend_hash_move_forward(myht); - } -} -/* }}} */ - - -/* - * Local variables: - * tab-width: 4 - * c-basic-offset: 4 - * End: - */ |