php/archived-php-src
1
0
Fork 0
mirror of https://github.com/php/php-src.git synced 2026-04-11 01:53:36 +02:00
Code Issues Packages Projects Releases Wiki Activity

@- Upgraded math-funtions to use new Zend function API (Thies)

Browse Source
This commit is contained in:
Thies C. Arntzen
1999-10-13 19:43:36 +00:00
parent dea3d7527a
commit 8bafcd3aa7
1 changed files with 244 additions and 218 deletions
Download Patch File Download Diff File Expand all files Collapse all files

462
ext/standard/math.c
View File

@@ -1,33 +1,25 @@
/*
+----------------------------------------------------------------------+
| PHP HTML Embedded Scripting Language Version 3.0 |
| PHP version 4.0 |
+----------------------------------------------------------------------+
| Copyright (c) 1997,1998 PHP Development Team (See Credits file) |
| Copyright (c) 1997, 1998, 1999 The PHP Group |
+----------------------------------------------------------------------+
| This program is free software; you can redistribute it and/or modify |
| it under the terms of one of the following licenses: |
| |
| A) the GNU General Public License as published by the Free Software |
| Foundation; either version 2 of the License, or (at your option) |
| any later version. |
| |
| B) the PHP License as published by the PHP Development Team and |
| included in the distribution in the file: LICENSE |
| |
| This program is distributed in the hope that it will be useful, |
| but WITHOUT ANY WARRANTY; without even the implied warranty of |
| MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the |
| GNU General Public License for more details. |
| |
| You should have received a copy of both licenses referred to here. |
| If you did not, or have any questions about PHP licensing, please |
| contact core@php.net. |
| 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: Jim Winstead (jimw@php.net) |
| Stig Sæther Bakken <ssb@guardian.no> |
| Zeev Suraski <zeev@zend.com> |
| PHP 4.0 patches by Thies C. Arntzen (thies@digicol.de) |
+----------------------------------------------------------------------+
*/
*/
/* $Id: */
#include "php.h"
#include "phpmath.h"
@@ -39,79 +31,89 @@
#define M_PI 3.14159265358979323846
#endif
char *_php3_number_format(double, int, char ,char);
char *_php_math_number_format(double, int, char ,char);
/* {{{ proto int abs(int number)
Return the absolute value of the number */
PHP_FUNCTION(abs) {
pval *value;
PHP_FUNCTION(abs)
{
zval **value;
if (ARG_COUNT(ht)!=1||getParameters(ht,1,&value)==FAILURE) {
if (ARG_COUNT(ht)!=1||getParametersEx(1,&value)==FAILURE) {
WRONG_PARAM_COUNT;
}
if (value->type == IS_STRING) {
convert_scalar_to_number(value);
if ((*value)->type == IS_STRING) {
zval_copy_ctor(*value);
convert_scalar_to_number(*value);
}
if (value->type == IS_DOUBLE) {
RETURN_DOUBLE(fabs(value->value.dval));
if ((*value)->type == IS_DOUBLE) {
RETURN_DOUBLE(fabs((*value)->value.dval));
}
else if (value->type == IS_LONG) {
RETURN_LONG(labs(value->value.lval));
else if ((*value)->type == IS_LONG) {
RETURN_LONG(labs((*value)->value.lval));
}
RETURN_FALSE;
}
/* }}} */
/* }}} */
/* {{{ proto int ceil(double number)
Returns the next highest integer value of the number */
PHP_FUNCTION(ceil) {
pval *value;
PHP_FUNCTION(ceil)
{
zval **value;
if (ARG_COUNT(ht)!=1||getParameters(ht,1,&value)==FAILURE) {
if (ARG_COUNT(ht)!=1||getParametersEx(1,&value)==FAILURE) {
WRONG_PARAM_COUNT;
}
if (value->type == IS_STRING) {
convert_scalar_to_number(value);
if ((*value)->type == IS_STRING) {
zval_copy_ctor(*value);
convert_scalar_to_number(*value);
}
if (value->type == IS_DOUBLE) {
RETURN_LONG((long)ceil(value->value.dval));
if ((*value)->type == IS_DOUBLE) {
RETURN_LONG((long)ceil((*value)->value.dval));
}
else if (value->type == IS_LONG) {
RETURN_LONG(value->value.lval);
else if ((*value)->type == IS_LONG) {
RETURN_LONG((*value)->value.lval);
}
RETURN_FALSE;
}
/* }}} */
/* }}} */
/* {{{ proto int floor(double number)
Returns the next lowest integer value from the number */
PHP_FUNCTION(floor) {
pval *value;
zval **value;
if (ARG_COUNT(ht)!=1||getParameters(ht,1,&value)==FAILURE) {
if (ARG_COUNT(ht)!=1||getParametersEx(1,&value)==FAILURE) {
WRONG_PARAM_COUNT;
}
if (value->type == IS_STRING) {
convert_scalar_to_number(value);
if ((*value)->type == IS_STRING) {
zval_copy_ctor(*value);
convert_scalar_to_number(*value);
}
if (value->type == IS_DOUBLE) {
RETURN_LONG((long)floor(value->value.dval));
if ((*value)->type == IS_DOUBLE) {
RETURN_LONG((long)floor((*value)->value.dval));
}
else if (value->type == IS_LONG) {
RETURN_LONG(value->value.lval);
else if ((*value)->type == IS_LONG) {
RETURN_LONG((*value)->value.lval);
}
RETURN_FALSE;
}
/* }}} */
/* {{{ proto int round(double number)
Returns the rounded value of the number */
#ifndef HAVE_RINT
/* emulate rint */
@@ -127,252 +129,265 @@ inline double rint(double n)
}
#endif
/* {{{ proto int round(double number)
Returns the rounded value of the number */
PHP_FUNCTION(round)
{
pval *value;
zval **value;
if (ARG_COUNT(ht) != 1 || getParameters(ht, 1, &value) == FAILURE) {
if (ARG_COUNT(ht) != 1 || getParametersEx(1, &value) == FAILURE) {
WRONG_PARAM_COUNT;
}
if (value->type == IS_STRING) {
convert_scalar_to_number(value);
if ((*value)->type == IS_STRING) {
zval_copy_ctor(*value);
convert_scalar_to_number(*value);
}
if (value->type == IS_DOUBLE) {
RETURN_DOUBLE(rint(value->value.dval));
if ((*value)->type == IS_DOUBLE) {
RETURN_DOUBLE(rint((*value)->value.dval));
}
if (value->type == IS_LONG) {
RETURN_DOUBLE((double)value->value.lval);
if ((*value)->type == IS_LONG) {
RETURN_DOUBLE((double)(*value)->value.lval);
}
RETURN_FALSE;
}
/* }}} */
/* }}} */
/* {{{ proto double sin(double number)
Returns the sine of the number in radians */
PHP_FUNCTION(sin)
{
pval *num;
zval **num;
if (ARG_COUNT(ht) != 1 || getParameters(ht, 1, &num) == FAILURE) {
if (ARG_COUNT(ht) != 1 || getParametersEx(1, &num) == FAILURE) {
WRONG_PARAM_COUNT;
}
convert_to_double(num);
return_value->value.dval = sin(num->value.dval);
convert_to_double_ex(num);
return_value->value.dval = sin((*num)->value.dval);
return_value->type = IS_DOUBLE;
}
/* }}} */
/* }}} */
/* {{{ proto double cos(double number)
Returns the cosine of the number in radians */
PHP_FUNCTION(cos)
{
pval *num;
zval **num;
if (ARG_COUNT(ht) != 1 || getParameters(ht, 1, &num) == FAILURE) {
if (ARG_COUNT(ht) != 1 || getParametersEx(1, &num) == FAILURE) {
WRONG_PARAM_COUNT;
}
convert_to_double(num);
return_value->value.dval = cos(num->value.dval);
convert_to_double_ex(num);
return_value->value.dval = cos((*num)->value.dval);
return_value->type = IS_DOUBLE;
}
/* }}} */
/* {{{ proto double tan(double number)
Returns the tangent of the number in radians */
PHP_FUNCTION(tan)
{
pval *num;
zval **num;
if (ARG_COUNT(ht) != 1 || getParameters(ht, 1, &num) == FAILURE) {
if (ARG_COUNT(ht) != 1 || getParametersEx(1, &num) == FAILURE) {
WRONG_PARAM_COUNT;
}
convert_to_double(num);
return_value->value.dval = tan(num->value.dval);
convert_to_double_ex(num);
return_value->value.dval = tan((*num)->value.dval);
return_value->type = IS_DOUBLE;
}
/* }}} */
/* }}} */
/* {{{ proto double asin(double number)
Returns the arc sine of the number in radians */
PHP_FUNCTION(asin)
{
pval *num;
zval **num;
if (ARG_COUNT(ht) != 1 || getParameters(ht, 1, &num) == FAILURE) {
if (ARG_COUNT(ht) != 1 || getParametersEx(1, &num) == FAILURE) {
WRONG_PARAM_COUNT;
}
convert_to_double(num);
return_value->value.dval = asin(num->value.dval);
convert_to_double_ex(num);
return_value->value.dval = asin((*num)->value.dval);
return_value->type = IS_DOUBLE;
}
/* }}} */
/* }}} */
/* {{{ proto double acos(double number)
Return the arc cosine of the number in radians */
PHP_FUNCTION(acos)
{
pval *num;
zval **num;
if (ARG_COUNT(ht) != 1 || getParameters(ht, 1, &num) == FAILURE) {
if (ARG_COUNT(ht) != 1 || getParametersEx(1, &num) == FAILURE) {
WRONG_PARAM_COUNT;
}
convert_to_double(num);
return_value->value.dval = acos(num->value.dval);
convert_to_double_ex(num);
return_value->value.dval = acos((*num)->value.dval);
return_value->type = IS_DOUBLE;
}
/* }}} */
/* }}} */
/* {{{ proto double atan(double number)
Returns the arc tangent of the number in radians */
PHP_FUNCTION(atan)
{
pval *num;
zval **num;
if (ARG_COUNT(ht) != 1 || getParameters(ht, 1, &num) == FAILURE) {
if (ARG_COUNT(ht) != 1 || getParametersEx(1, &num) == FAILURE) {
WRONG_PARAM_COUNT;
}
convert_to_double(num);
return_value->value.dval = atan(num->value.dval);
convert_to_double_ex(num);
return_value->value.dval = atan((*num)->value.dval);
return_value->type = IS_DOUBLE;
}
/* }}} */
/* }}} */
/* {{{ proto double atan2(double y, double x)
Returns the arc tangent of y/x, with the resulting quadrant determined by the signs of y and x */
PHP_FUNCTION(atan2)
{
pval *num1, *num2;
zval **num1, **num2;
if (ARG_COUNT(ht) != 2 || getParameters(ht, 2, &num1, &num2) == FAILURE) {
if (ARG_COUNT(ht) != 2 || getParametersEx(2, &num1, &num2) == FAILURE) {
WRONG_PARAM_COUNT;
}
convert_to_double(num1);
convert_to_double(num2);
return_value->value.dval = atan2(num1->value.dval,num2->value.dval);
convert_to_double_ex(num1);
convert_to_double_ex(num2);
return_value->value.dval = atan2((*num1)->value.dval,(*num2)->value.dval);
return_value->type = IS_DOUBLE;
}
/* }}} */
/* }}} */
/* {{{ proto double pi(void)
Returns an approximation of pi */
PHP_FUNCTION(pi)
{
return_value->value.dval = M_PI;
return_value->type = IS_DOUBLE;
}
/* }}} */
/* }}} */
/* {{{ proto double pow(double base, double exponent)
Returns base raised to the power of expopent */
PHP_FUNCTION(pow)
{
pval *num1, *num2;
zval **num1, **num2;
if (ARG_COUNT(ht) != 2 || getParameters(ht,2,&num1,&num2) == FAILURE) {
if (ARG_COUNT(ht) != 2 || getParametersEx(2,&num1,&num2) == FAILURE) {
WRONG_PARAM_COUNT;
}
convert_to_double(num1);
convert_to_double(num2);
RETURN_DOUBLE(pow(num1->value.dval, num2->value.dval));
convert_to_double_ex(num1);
convert_to_double_ex(num2);
RETURN_DOUBLE(pow((*num1)->value.dval, (*num2)->value.dval));
}
/* }}} */
/* }}} */
/* {{{ proto double exp(double number)
Returns e raised to the power of the number */
PHP_FUNCTION(exp)
{
pval *num;
zval **num;
if (ARG_COUNT(ht) != 1 || getParameters(ht, 1, &num) == FAILURE) {
if (ARG_COUNT(ht) != 1 || getParametersEx(1, &num) == FAILURE) {
WRONG_PARAM_COUNT;
}
convert_to_double(num);
return_value->value.dval = exp(num->value.dval);
convert_to_double_ex(num);
return_value->value.dval = exp((*num)->value.dval);
return_value->type = IS_DOUBLE;
}
/* }}} */
/* }}} */
/* {{{ proto double log(double number)
Returns the natural logarithm of the number */
PHP_FUNCTION(log)
{
pval *num;
zval **num;
if (ARG_COUNT(ht) != 1 || getParameters(ht, 1, &num) == FAILURE) {
if (ARG_COUNT(ht) != 1 || getParametersEx(1, &num) == FAILURE) {
WRONG_PARAM_COUNT;
}
convert_to_double(num);
return_value->value.dval = log(num->value.dval);
convert_to_double_ex(num);
return_value->value.dval = log((*num)->value.dval);
return_value->type = IS_DOUBLE;
}
/* }}} */
/* }}} */
/* {{{ proto double log10(double number)
Returns the base-10 logarithm of the number */
PHP_FUNCTION(log10)
{
pval *num;
zval **num;
if (ARG_COUNT(ht) != 1 || getParameters(ht, 1, &num) == FAILURE) {
if (ARG_COUNT(ht) != 1 || getParametersEx(1, &num) == FAILURE) {
WRONG_PARAM_COUNT;
}
convert_to_double(num);
return_value->value.dval = log10(num->value.dval);
convert_to_double_ex(num);
return_value->value.dval = log10((*num)->value.dval);
return_value->type = IS_DOUBLE;
}
/* }}} */
/* }}} */
/* {{{ proto double sqrt(double number)
Returns the square root of the number */
PHP_FUNCTION(sqrt)
{
pval *num;
zval **num;
if (ARG_COUNT(ht) != 1 || getParameters(ht, 1, &num) == FAILURE) {
if (ARG_COUNT(ht) != 1 || getParametersEx(1, &num) == FAILURE) {
WRONG_PARAM_COUNT;
}
convert_to_double(num);
return_value->value.dval = sqrt(num->value.dval);
convert_to_double_ex(num);
return_value->value.dval = sqrt((*num)->value.dval);
return_value->type = IS_DOUBLE;
}
/* }}} */
/* }}} */
/* {{{ proto double deg2rad(double number)
Converts the number in degrees to the radian equivalent */
PHP_FUNCTION(deg2rad)
{
pval *deg;
zval **deg;
if (ARG_COUNT(ht) != 1 || getParameters(ht, 1, &deg) == FAILURE) {
if (ARG_COUNT(ht) != 1 || getParametersEx(1, &deg) == FAILURE) {
WRONG_PARAM_COUNT;
}
convert_to_double(deg);
RETVAL_DOUBLE((deg->value.dval / 180.0) * M_PI);
convert_to_double_ex(deg);
RETVAL_DOUBLE(((*deg)->value.dval / 180.0) * M_PI);
}
/* }}} */
/* }}} */
/* {{{ proto double rad2deg(double number)
Converts the radian number to the equivalent number in degrees */
PHP_FUNCTION(rad2deg)
{
pval *rad;
zval **rad;
if (ARG_COUNT(ht) != 1 || getParameters(ht, 1, &rad) == FAILURE) {
if (ARG_COUNT(ht) != 1 || getParametersEx(1, &rad) == FAILURE) {
WRONG_PARAM_COUNT;
}
convert_to_double(rad);
RETVAL_DOUBLE((rad->value.dval / M_PI) * 180);
convert_to_double_ex(rad);
RETVAL_DOUBLE(((*rad)->value.dval / M_PI) * 180);
}
/* }}} */
/* }}} */
/* {{{ _php_math_basetolong */
/*
* Convert a string representation of a base(2-36) number to a long.
*/
static long
_php3_basetolong(pval *arg, int base) {
_php_math_basetolong(zval *arg, int base) {
long mult = 1, num = 0, digit;
int i;
char c, *s;
@@ -401,13 +416,15 @@ _php3_basetolong(pval *arg, int base) {
return num;
}
/* }}} */
/* {{{ _php_math_longtobase */
/*
* Convert a long to a string containing a base(2-36) representation of
* the number.
*/
static char *
_php3_longtobase(pval *arg, int base)
_php_math_longtobase(zval *arg, int base)
{
static char digits[] = "0123456789abcdefghijklmnopqrstuvwxyz";
char *result, *ptr, *ret;
@@ -440,154 +457,160 @@ _php3_longtobase(pval *arg, int base)
return ret;
}
/* }}} */
/* {{{ proto int bindec(string binary_number)
Returns the decimal equivalent of the binary number */
PHP_FUNCTION(bindec)
{
pval *arg;
zval **arg;
long ret;
if (ARG_COUNT(ht) != 1 || getParameters(ht, 1, &arg) == FAILURE) {
if (ARG_COUNT(ht) != 1 || getParametersEx(1, &arg) == FAILURE) {
WRONG_PARAM_COUNT;
}
convert_to_string(arg);
ret = _php3_basetolong(arg, 2);
convert_to_string_ex(arg);
ret = _php_math_basetolong(*arg, 2);
RETVAL_LONG(ret);
}
/* }}} */
/* }}} */
/* {{{ proto int hexdec(string hexadimal_number)
Returns the decimal equivalent of the hexadecimal number */
PHP_FUNCTION(hexdec)
{
pval *arg;
zval **arg;
long ret;
if (ARG_COUNT(ht) != 1 || getParameters(ht, 1, &arg) == FAILURE) {
if (ARG_COUNT(ht) != 1 || getParametersEx(1, &arg) == FAILURE) {
WRONG_PARAM_COUNT;
}
convert_to_string(arg);
convert_to_string_ex(arg);
ret = _php3_basetolong(arg, 16);
ret = _php_math_basetolong(*arg, 16);
RETVAL_LONG(ret);
}
/* }}} */
/* }}} */
/* {{{ proto int octdec(string octal_number)
Returns the decimal equivalent of an octal string */
PHP_FUNCTION(octdec)
{
pval *arg;
zval **arg;
long ret;
if (ARG_COUNT(ht) != 1 || getParameters(ht, 1, &arg) == FAILURE) {
if (ARG_COUNT(ht) != 1 || getParametersEx(1, &arg) == FAILURE) {
WRONG_PARAM_COUNT;
}
convert_to_string(arg);
convert_to_string_ex(arg);
ret = _php3_basetolong(arg, 8);
ret = _php_math_basetolong(*arg, 8);
RETVAL_LONG(ret);
}
/* }}} */
/* }}} */
/* {{{ proto string decbin(int decimal_number)
Returns a string containing a binary representation of the number */
PHP_FUNCTION(decbin)
{
pval *arg;
zval **arg;
char *result;
if (ARG_COUNT(ht) != 1 || getParameters(ht, 1, &arg) == FAILURE) {
if (ARG_COUNT(ht) != 1 || getParametersEx(1, &arg) == FAILURE) {
WRONG_PARAM_COUNT;
}
convert_to_long(arg);
convert_to_long_ex(arg);
result = _php3_longtobase(arg, 2);
result = _php_math_longtobase(*arg, 2);
return_value->type = IS_STRING;
return_value->value.str.len = strlen(result);
return_value->value.str.val = result;
}
/* }}} */
/* }}} */
/* {{{ proto string decoct(int decimal_number)
Returns a string containing an octal representation of the given number */
PHP_FUNCTION(decoct)
{
pval *arg;
zval **arg;
char *result;
if (ARG_COUNT(ht) != 1 || getParameters(ht, 1, &arg) == FAILURE) {
if (ARG_COUNT(ht) != 1 || getParametersEx(1, &arg) == FAILURE) {
WRONG_PARAM_COUNT;
}
convert_to_long(arg);
convert_to_long_ex(arg);
result = _php3_longtobase(arg, 8);
result = _php_math_longtobase(*arg, 8);
return_value->type = IS_STRING;
return_value->value.str.len = strlen(result);
return_value->value.str.val = result;
}
/* }}} */
/* }}} */
/* {{{ proto string dechex(int decimal_number)
Returns a string containing a hexadecimal representation of the given number */
PHP_FUNCTION(dechex)
{
pval *arg;
zval **arg;
char *result;
if (ARG_COUNT(ht) != 1 || getParameters(ht, 1, &arg) == FAILURE) {
if (ARG_COUNT(ht) != 1 || getParametersEx(1, &arg) == FAILURE) {
WRONG_PARAM_COUNT;
}
convert_to_long(arg);
convert_to_long_ex(arg);
result = _php3_longtobase(arg, 16);
result = _php_math_longtobase(*arg, 16);
return_value->type = IS_STRING;
return_value->value.str.len = strlen(result);
return_value->value.str.val = result;
}
/* }}} */
/* {{{ proto string base_convert(string number, int frombase, int tobase)
Converts a number in a string from any base <= 36 to any base <= 36.
*/
PHP_FUNCTION(base_convert)
{
pval *number, *frombase, *tobase, temp;
zval **number, **frombase, **tobase, temp;
char *result;
if (ARG_COUNT(ht) != 3 || getParameters(ht, 3, &number, &frombase, &tobase)
== FAILURE) {
if (ARG_COUNT(ht) != 3 || getParametersEx(3, &number, &frombase, &tobase) == FAILURE) {
WRONG_PARAM_COUNT;
}
convert_to_string(number);
convert_to_long(frombase);
convert_to_long(tobase);
if (frombase->value.lval < 2 || frombase->value.lval > 36) {
php_error(E_WARNING, "base_convert: invalid `from base' (%d)",
frombase->value.lval);
convert_to_string_ex(number);
convert_to_long_ex(frombase);
convert_to_long_ex(tobase);
if ((*frombase)->value.lval < 2 || (*frombase)->value.lval > 36) {
php_error(E_WARNING, "base_convert: invalid `from base' (%d)",(*frombase)->value.lval);
RETURN_FALSE;
}
if (tobase->value.lval < 2 || tobase->value.lval > 36) {
php_error(E_WARNING, "base_convert: invalid `to base' (%d)",
tobase->value.lval);
if ((*tobase)->value.lval < 2 || (*tobase)->value.lval > 36) {
php_error(E_WARNING, "base_convert: invalid `to base' (%d)",(*tobase)->value.lval);
RETURN_FALSE;
}
temp.type = IS_LONG;
temp.value.lval = _php3_basetolong(number, frombase->value.lval);
result = _php3_longtobase(&temp, tobase->value.lval);
temp.value.lval = _php_math_basetolong(*number, (*frombase)->value.lval);
result = _php_math_longtobase(&temp, (*tobase)->value.lval);
RETVAL_STRING(result, 0);
} /* }}} */
}
/* }}} */
/* {{{ _php_math_number_format */
char *_php3_number_format(double d,int dec,char dec_point,char thousand_sep)
char *_php_math_number_format(double d,int dec,char dec_point,char thousand_sep)
{
char *tmpbuf,*resbuf;
char *s,*t; /* source, target */
@@ -647,51 +670,54 @@ char *_php3_number_format(double d,int dec,char dec_point,char thousand_sep)
return resbuf;
}
/* }}} */
/* {{{ proto string number_format(double number, [,int num_decimal_places [, string dec_seperator, string thousands_seperator)]])
Formats a number with grouped thousands */
PHP_FUNCTION(number_format)
{
pval *num,*dec,*t_s,*d_p;
zval **num,**dec,**t_s,**d_p;
char thousand_sep=',', dec_point='.';
switch(ARG_COUNT(ht)) {
case 1:
if (getParameters(ht, 1, &num)==FAILURE) {
RETURN_FALSE;
}
convert_to_double(num);
RETURN_STRING(_php3_number_format(num->value.dval,0,dec_point,thousand_sep),0);
break;
case 2:
if (getParameters(ht, 2, &num, &dec)==FAILURE) {
RETURN_FALSE;
}
convert_to_double(num);
convert_to_long(dec);
RETURN_STRING(_php3_number_format(num->value.dval,dec->value.lval,dec_point,thousand_sep),0);
break;
case 4:
if (getParameters(ht, 4, &num, &dec, &d_p, &t_s)==FAILURE) {
RETURN_FALSE;
}
convert_to_double(num);
convert_to_long(dec);
convert_to_string(d_p);
convert_to_string(t_s);
if (d_p->value.str.len==1) {
dec_point=d_p->value.str.val[0];
}
if (t_s->value.str.len==1) {
thousand_sep=t_s->value.str.val[0];
}
RETURN_STRING(_php3_number_format(num->value.dval,dec->value.lval,dec_point,thousand_sep),0);
break;
default:
WRONG_PARAM_COUNT;
break;
case 1:
if (getParametersEx(1, &num)==FAILURE) {
RETURN_FALSE;
}
convert_to_double_ex(num);
RETURN_STRING(_php_math_number_format((*num)->value.dval,0,dec_point,thousand_sep),0);
break;
case 2:
if (getParametersEx(2, &num, &dec)==FAILURE) {
RETURN_FALSE;
}
convert_to_double_ex(num);
convert_to_long_ex(dec);
RETURN_STRING(_php_math_number_format((*num)->value.dval,(*dec)->value.lval,dec_point,thousand_sep),0);
break;
case 4:
if (getParametersEx(4, &num, &dec, &d_p, &t_s)==FAILURE) {
RETURN_FALSE;
}
convert_to_double_ex(num);
convert_to_long_ex(dec);
convert_to_string_ex(d_p);
convert_to_string_ex(t_s);
if ((*d_p)->value.str.len==1) {
dec_point=(*d_p)->value.str.val[0];
}
if ((*t_s)->value.str.len==1) {
thousand_sep=(*t_s)->value.str.val[0];
}
RETURN_STRING(_php_math_number_format((*num)->value.dval,(*dec)->value.lval,dec_point,thousand_sep),0);
break;
default:
WRONG_PARAM_COUNT;
break;
}
}
/* }}} */
/*
* Local variables:
* tab-width: 4