mirror of
https://github.com/php/php-src.git
synced 2024-11-25 19:05:31 +08:00
569 lines
13 KiB
C
569 lines
13 KiB
C
/*
|
|
+----------------------------------------------------------------------+
|
|
| PHP Version 7 |
|
|
+----------------------------------------------------------------------+
|
|
| Copyright (c) 1997-2015 The PHP Group |
|
|
+----------------------------------------------------------------------+
|
|
| This source file is subject to version 3.01 of the PHP license, |
|
|
| that is bundled with this package in the file LICENSE, and is |
|
|
| available through the world-wide-web at the following url: |
|
|
| http://www.php.net/license/3_01.txt |
|
|
| If you did not receive a copy of the PHP license and are unable to |
|
|
| obtain it through the world-wide-web, please send a note to |
|
|
| license@php.net so we can mail you a copy immediately. |
|
|
+----------------------------------------------------------------------+
|
|
| Author: Andi Gutmans <andi@zend.com> |
|
|
+----------------------------------------------------------------------+
|
|
*/
|
|
|
|
/* $Id$ */
|
|
|
|
#ifdef HAVE_CONFIG_H
|
|
#include "config.h"
|
|
#endif
|
|
|
|
#include "php.h"
|
|
|
|
#if HAVE_BCMATH
|
|
|
|
#include "php_ini.h"
|
|
#include "ext/standard/info.h"
|
|
#include "php_bcmath.h"
|
|
#include "libbcmath/src/bcmath.h"
|
|
|
|
ZEND_DECLARE_MODULE_GLOBALS(bcmath)
|
|
static PHP_GINIT_FUNCTION(bcmath);
|
|
static PHP_GSHUTDOWN_FUNCTION(bcmath);
|
|
|
|
/* {{{ arginfo */
|
|
ZEND_BEGIN_ARG_INFO_EX(arginfo_bcadd, 0, 0, 2)
|
|
ZEND_ARG_INFO(0, left_operand)
|
|
ZEND_ARG_INFO(0, right_operand)
|
|
ZEND_ARG_INFO(0, scale)
|
|
ZEND_END_ARG_INFO()
|
|
|
|
ZEND_BEGIN_ARG_INFO_EX(arginfo_bcsub, 0, 0, 2)
|
|
ZEND_ARG_INFO(0, left_operand)
|
|
ZEND_ARG_INFO(0, right_operand)
|
|
ZEND_ARG_INFO(0, scale)
|
|
ZEND_END_ARG_INFO()
|
|
|
|
ZEND_BEGIN_ARG_INFO_EX(arginfo_bcmul, 0, 0, 2)
|
|
ZEND_ARG_INFO(0, left_operand)
|
|
ZEND_ARG_INFO(0, right_operand)
|
|
ZEND_ARG_INFO(0, scale)
|
|
ZEND_END_ARG_INFO()
|
|
|
|
ZEND_BEGIN_ARG_INFO_EX(arginfo_bcdiv, 0, 0, 2)
|
|
ZEND_ARG_INFO(0, left_operand)
|
|
ZEND_ARG_INFO(0, right_operand)
|
|
ZEND_ARG_INFO(0, scale)
|
|
ZEND_END_ARG_INFO()
|
|
|
|
ZEND_BEGIN_ARG_INFO(arginfo_bcmod, 0)
|
|
ZEND_ARG_INFO(0, left_operand)
|
|
ZEND_ARG_INFO(0, right_operand)
|
|
ZEND_END_ARG_INFO()
|
|
|
|
ZEND_BEGIN_ARG_INFO_EX(arginfo_bcpowmod, 0, 0, 3)
|
|
ZEND_ARG_INFO(0, x)
|
|
ZEND_ARG_INFO(0, y)
|
|
ZEND_ARG_INFO(0, mod)
|
|
ZEND_ARG_INFO(0, scale)
|
|
ZEND_END_ARG_INFO()
|
|
|
|
ZEND_BEGIN_ARG_INFO_EX(arginfo_bcpow, 0, 0, 2)
|
|
ZEND_ARG_INFO(0, x)
|
|
ZEND_ARG_INFO(0, y)
|
|
ZEND_ARG_INFO(0, scale)
|
|
ZEND_END_ARG_INFO()
|
|
|
|
ZEND_BEGIN_ARG_INFO_EX(arginfo_bcsqrt, 0, 0, 1)
|
|
ZEND_ARG_INFO(0, operand)
|
|
ZEND_ARG_INFO(0, scale)
|
|
ZEND_END_ARG_INFO()
|
|
|
|
ZEND_BEGIN_ARG_INFO_EX(arginfo_bccomp, 0, 0, 2)
|
|
ZEND_ARG_INFO(0, left_operand)
|
|
ZEND_ARG_INFO(0, right_operand)
|
|
ZEND_ARG_INFO(0, scale)
|
|
ZEND_END_ARG_INFO()
|
|
|
|
ZEND_BEGIN_ARG_INFO(arginfo_bcscale, 0)
|
|
ZEND_ARG_INFO(0, scale)
|
|
ZEND_END_ARG_INFO()
|
|
|
|
/* }}} */
|
|
|
|
const zend_function_entry bcmath_functions[] = {
|
|
PHP_FE(bcadd, arginfo_bcadd)
|
|
PHP_FE(bcsub, arginfo_bcsub)
|
|
PHP_FE(bcmul, arginfo_bcmul)
|
|
PHP_FE(bcdiv, arginfo_bcdiv)
|
|
PHP_FE(bcmod, arginfo_bcmod)
|
|
PHP_FE(bcpow, arginfo_bcpow)
|
|
PHP_FE(bcsqrt, arginfo_bcsqrt)
|
|
PHP_FE(bcscale, arginfo_bcscale)
|
|
PHP_FE(bccomp, arginfo_bccomp)
|
|
PHP_FE(bcpowmod, arginfo_bcpowmod)
|
|
PHP_FE_END
|
|
};
|
|
|
|
zend_module_entry bcmath_module_entry = {
|
|
STANDARD_MODULE_HEADER,
|
|
"bcmath",
|
|
bcmath_functions,
|
|
PHP_MINIT(bcmath),
|
|
PHP_MSHUTDOWN(bcmath),
|
|
NULL,
|
|
NULL,
|
|
PHP_MINFO(bcmath),
|
|
NO_VERSION_YET,
|
|
PHP_MODULE_GLOBALS(bcmath),
|
|
PHP_GINIT(bcmath),
|
|
PHP_GSHUTDOWN(bcmath),
|
|
NULL,
|
|
STANDARD_MODULE_PROPERTIES_EX
|
|
};
|
|
|
|
#ifdef COMPILE_DL_BCMATH
|
|
#ifdef ZTS
|
|
ZEND_TSRMLS_CACHE_DEFINE;
|
|
#endif
|
|
ZEND_GET_MODULE(bcmath)
|
|
#endif
|
|
|
|
/* {{{ PHP_INI */
|
|
PHP_INI_BEGIN()
|
|
STD_PHP_INI_ENTRY("bcmath.scale", "0", PHP_INI_ALL, OnUpdateLongGEZero, bc_precision, zend_bcmath_globals, bcmath_globals)
|
|
PHP_INI_END()
|
|
/* }}} */
|
|
|
|
/* {{{ PHP_GINIT_FUNCTION
|
|
*/
|
|
static PHP_GINIT_FUNCTION(bcmath)
|
|
{
|
|
#if defined(COMPILE_DL_BCMATH) && defined(ZTS)
|
|
ZEND_TSRMLS_CACHE_UPDATE;
|
|
#endif
|
|
bcmath_globals->bc_precision = 0;
|
|
bc_init_numbers();
|
|
}
|
|
/* }}} */
|
|
|
|
/* {{{ PHP_GSHUTDOWN_FUNCTION
|
|
*/
|
|
static PHP_GSHUTDOWN_FUNCTION(bcmath)
|
|
{
|
|
_bc_free_num_ex(&bcmath_globals->_zero_, 1);
|
|
_bc_free_num_ex(&bcmath_globals->_one_, 1);
|
|
_bc_free_num_ex(&bcmath_globals->_two_, 1);
|
|
}
|
|
/* }}} */
|
|
|
|
/* {{{ PHP_MINIT_FUNCTION
|
|
*/
|
|
PHP_MINIT_FUNCTION(bcmath)
|
|
{
|
|
REGISTER_INI_ENTRIES();
|
|
|
|
return SUCCESS;
|
|
}
|
|
/* }}} */
|
|
|
|
/* {{{ PHP_MSHUTDOWN_FUNCTION
|
|
*/
|
|
PHP_MSHUTDOWN_FUNCTION(bcmath)
|
|
{
|
|
UNREGISTER_INI_ENTRIES();
|
|
|
|
return SUCCESS;
|
|
}
|
|
/* }}} */
|
|
|
|
/* {{{ PHP_MINFO_FUNCTION
|
|
*/
|
|
PHP_MINFO_FUNCTION(bcmath)
|
|
{
|
|
php_info_print_table_start();
|
|
php_info_print_table_row(2, "BCMath support", "enabled");
|
|
php_info_print_table_end();
|
|
DISPLAY_INI_ENTRIES();
|
|
}
|
|
/* }}} */
|
|
|
|
/* {{{ php_str2num
|
|
Convert to bc_num detecting scale */
|
|
static void php_str2num(bc_num *num, char *str)
|
|
{
|
|
char *p;
|
|
|
|
if (!(p = strchr(str, '.'))) {
|
|
bc_str2num(num, str, 0);
|
|
return;
|
|
}
|
|
|
|
bc_str2num(num, str, strlen(p+1));
|
|
}
|
|
/* }}} */
|
|
|
|
/* {{{ proto string bcadd(string left_operand, string right_operand [, int scale])
|
|
Returns the sum of two arbitrary precision numbers */
|
|
PHP_FUNCTION(bcadd)
|
|
{
|
|
char *left, *right;
|
|
zend_long scale_param = 0;
|
|
bc_num first, second, result;
|
|
size_t left_len, right_len;
|
|
int scale = (int)BCG(bc_precision), argc = ZEND_NUM_ARGS();
|
|
|
|
if (zend_parse_parameters(argc, "ss|l", &left, &left_len, &right, &right_len, &scale_param) == FAILURE) {
|
|
return;
|
|
}
|
|
|
|
if (argc == 3) {
|
|
scale = (int) (scale_param < 0 ? 0 : scale_param);
|
|
}
|
|
|
|
bc_init_num(&first);
|
|
bc_init_num(&second);
|
|
bc_init_num(&result);
|
|
php_str2num(&first, left);
|
|
php_str2num(&second, right);
|
|
bc_add (first, second, &result, scale);
|
|
|
|
if (result->n_scale > scale) {
|
|
result->n_scale = scale;
|
|
}
|
|
|
|
RETVAL_STR(bc_num2str(result));
|
|
bc_free_num(&first);
|
|
bc_free_num(&second);
|
|
bc_free_num(&result);
|
|
return;
|
|
}
|
|
/* }}} */
|
|
|
|
/* {{{ proto string bcsub(string left_operand, string right_operand [, int scale])
|
|
Returns the difference between two arbitrary precision numbers */
|
|
PHP_FUNCTION(bcsub)
|
|
{
|
|
char *left, *right;
|
|
size_t left_len, right_len;
|
|
zend_long scale_param = 0;
|
|
bc_num first, second, result;
|
|
int scale = (int)BCG(bc_precision), argc = ZEND_NUM_ARGS();
|
|
|
|
if (zend_parse_parameters(argc, "ss|l", &left, &left_len, &right, &right_len, &scale_param) == FAILURE) {
|
|
return;
|
|
}
|
|
|
|
if (argc == 3) {
|
|
scale = (int) ((int)scale_param < 0 ? 0 : scale_param);
|
|
}
|
|
|
|
bc_init_num(&first);
|
|
bc_init_num(&second);
|
|
bc_init_num(&result);
|
|
php_str2num(&first, left);
|
|
php_str2num(&second, right);
|
|
bc_sub (first, second, &result, scale);
|
|
|
|
if (result->n_scale > scale) {
|
|
result->n_scale = scale;
|
|
}
|
|
|
|
RETVAL_STR(bc_num2str(result));
|
|
bc_free_num(&first);
|
|
bc_free_num(&second);
|
|
bc_free_num(&result);
|
|
return;
|
|
}
|
|
/* }}} */
|
|
|
|
/* {{{ proto string bcmul(string left_operand, string right_operand [, int scale])
|
|
Returns the multiplication of two arbitrary precision numbers */
|
|
PHP_FUNCTION(bcmul)
|
|
{
|
|
char *left, *right;
|
|
size_t left_len, right_len;
|
|
zend_long scale_param = 0;
|
|
bc_num first, second, result;
|
|
int scale = (int)BCG(bc_precision), argc = ZEND_NUM_ARGS();
|
|
|
|
if (zend_parse_parameters(argc, "ss|l", &left, &left_len, &right, &right_len, &scale_param) == FAILURE) {
|
|
return;
|
|
}
|
|
|
|
if (argc == 3) {
|
|
scale = (int) ((int)scale_param < 0 ? 0 : scale_param);
|
|
}
|
|
|
|
bc_init_num(&first);
|
|
bc_init_num(&second);
|
|
bc_init_num(&result);
|
|
php_str2num(&first, left);
|
|
php_str2num(&second, right);
|
|
bc_multiply (first, second, &result, scale);
|
|
|
|
if (result->n_scale > scale) {
|
|
result->n_scale = scale;
|
|
}
|
|
|
|
RETVAL_STR(bc_num2str(result));
|
|
bc_free_num(&first);
|
|
bc_free_num(&second);
|
|
bc_free_num(&result);
|
|
return;
|
|
}
|
|
/* }}} */
|
|
|
|
/* {{{ proto string bcdiv(string left_operand, string right_operand [, int scale])
|
|
Returns the quotient of two arbitrary precision numbers (division) */
|
|
PHP_FUNCTION(bcdiv)
|
|
{
|
|
char *left, *right;
|
|
size_t left_len, right_len;
|
|
zend_long scale_param = 0;
|
|
bc_num first, second, result;
|
|
int scale = (int)BCG(bc_precision), argc = ZEND_NUM_ARGS();
|
|
|
|
if (zend_parse_parameters(argc, "ss|l", &left, &left_len, &right, &right_len, &scale_param) == FAILURE) {
|
|
return;
|
|
}
|
|
|
|
if (argc == 3) {
|
|
scale = (int) ((int)scale_param < 0 ? 0 : scale_param);
|
|
}
|
|
|
|
bc_init_num(&first);
|
|
bc_init_num(&second);
|
|
bc_init_num(&result);
|
|
php_str2num(&first, left);
|
|
php_str2num(&second, right);
|
|
|
|
switch (bc_divide(first, second, &result, scale)) {
|
|
case 0: /* OK */
|
|
if (result->n_scale > scale) {
|
|
result->n_scale = scale;
|
|
}
|
|
RETVAL_STR(bc_num2str(result));
|
|
break;
|
|
case -1: /* division by zero */
|
|
php_error_docref(NULL, E_WARNING, "Division by zero");
|
|
break;
|
|
}
|
|
|
|
bc_free_num(&first);
|
|
bc_free_num(&second);
|
|
bc_free_num(&result);
|
|
return;
|
|
}
|
|
/* }}} */
|
|
|
|
/* {{{ proto string bcmod(string left_operand, string right_operand)
|
|
Returns the modulus of the two arbitrary precision operands */
|
|
PHP_FUNCTION(bcmod)
|
|
{
|
|
char *left, *right;
|
|
size_t left_len, right_len;
|
|
bc_num first, second, result;
|
|
|
|
if (zend_parse_parameters(ZEND_NUM_ARGS(), "ss", &left, &left_len, &right, &right_len) == FAILURE) {
|
|
return;
|
|
}
|
|
|
|
bc_init_num(&first);
|
|
bc_init_num(&second);
|
|
bc_init_num(&result);
|
|
bc_str2num(&first, left, 0);
|
|
bc_str2num(&second, right, 0);
|
|
|
|
switch (bc_modulo(first, second, &result, 0)) {
|
|
case 0:
|
|
RETVAL_STR(bc_num2str(result));
|
|
break;
|
|
case -1:
|
|
php_error_docref(NULL, E_WARNING, "Division by zero");
|
|
break;
|
|
}
|
|
|
|
bc_free_num(&first);
|
|
bc_free_num(&second);
|
|
bc_free_num(&result);
|
|
return;
|
|
}
|
|
/* }}} */
|
|
|
|
/* {{{ proto string bcpowmod(string x, string y, string mod [, int scale])
|
|
Returns the value of an arbitrary precision number raised to the power of another reduced by a modulous */
|
|
PHP_FUNCTION(bcpowmod)
|
|
{
|
|
char *left, *right, *modulous;
|
|
size_t left_len, right_len, modulous_len;
|
|
bc_num first, second, mod, result;
|
|
zend_long scale = BCG(bc_precision);
|
|
int scale_int;
|
|
|
|
if (zend_parse_parameters(ZEND_NUM_ARGS(), "sss|l", &left, &left_len, &right, &right_len, &modulous, &modulous_len, &scale) == FAILURE) {
|
|
return;
|
|
}
|
|
|
|
bc_init_num(&first);
|
|
bc_init_num(&second);
|
|
bc_init_num(&mod);
|
|
bc_init_num(&result);
|
|
php_str2num(&first, left);
|
|
php_str2num(&second, right);
|
|
php_str2num(&mod, modulous);
|
|
|
|
scale_int = (int) ((int)scale < 0 ? 0 : scale);
|
|
|
|
if (bc_raisemod(first, second, mod, &result, scale_int) != -1) {
|
|
if (result->n_scale > scale) {
|
|
result->n_scale = (int)scale;
|
|
}
|
|
RETVAL_STR(bc_num2str(result));
|
|
} else {
|
|
RETVAL_FALSE;
|
|
}
|
|
|
|
bc_free_num(&first);
|
|
bc_free_num(&second);
|
|
bc_free_num(&mod);
|
|
bc_free_num(&result);
|
|
return;
|
|
}
|
|
/* }}} */
|
|
|
|
/* {{{ proto string bcpow(string x, string y [, int scale])
|
|
Returns the value of an arbitrary precision number raised to the power of another */
|
|
PHP_FUNCTION(bcpow)
|
|
{
|
|
char *left, *right;
|
|
size_t left_len, right_len;
|
|
zend_long scale_param = 0;
|
|
bc_num first, second, result;
|
|
int scale = (int)BCG(bc_precision), argc = ZEND_NUM_ARGS();
|
|
|
|
if (zend_parse_parameters(argc, "ss|l", &left, &left_len, &right, &right_len, &scale_param) == FAILURE) {
|
|
return;
|
|
}
|
|
|
|
if (argc == 3) {
|
|
scale = (int) ((int)scale_param < 0 ? 0 : scale_param);
|
|
}
|
|
|
|
bc_init_num(&first);
|
|
bc_init_num(&second);
|
|
bc_init_num(&result);
|
|
php_str2num(&first, left);
|
|
php_str2num(&second, right);
|
|
bc_raise (first, second, &result, scale);
|
|
|
|
if (result->n_scale > scale) {
|
|
result->n_scale = scale;
|
|
}
|
|
|
|
RETVAL_STR(bc_num2str(result));
|
|
bc_free_num(&first);
|
|
bc_free_num(&second);
|
|
bc_free_num(&result);
|
|
return;
|
|
}
|
|
/* }}} */
|
|
|
|
/* {{{ proto string bcsqrt(string operand [, int scale])
|
|
Returns the square root of an arbitray precision number */
|
|
PHP_FUNCTION(bcsqrt)
|
|
{
|
|
char *left;
|
|
size_t left_len;
|
|
zend_long scale_param = 0;
|
|
bc_num result;
|
|
int scale = (int)BCG(bc_precision), argc = ZEND_NUM_ARGS();
|
|
|
|
if (zend_parse_parameters(argc, "s|l", &left, &left_len, &scale_param) == FAILURE) {
|
|
return;
|
|
}
|
|
|
|
if (argc == 2) {
|
|
scale = (int) ((int)scale_param < 0 ? 0 : scale_param);
|
|
}
|
|
|
|
bc_init_num(&result);
|
|
php_str2num(&result, left);
|
|
|
|
if (bc_sqrt (&result, scale) != 0) {
|
|
if (result->n_scale > scale) {
|
|
result->n_scale = scale;
|
|
}
|
|
RETVAL_STR(bc_num2str(result));
|
|
} else {
|
|
php_error_docref(NULL, E_WARNING, "Square root of negative number");
|
|
}
|
|
|
|
bc_free_num(&result);
|
|
return;
|
|
}
|
|
/* }}} */
|
|
|
|
/* {{{ proto int bccomp(string left_operand, string right_operand [, int scale])
|
|
Compares two arbitrary precision numbers */
|
|
PHP_FUNCTION(bccomp)
|
|
{
|
|
char *left, *right;
|
|
size_t left_len, right_len;
|
|
zend_long scale_param = 0;
|
|
bc_num first, second;
|
|
int scale = (int)BCG(bc_precision), argc = ZEND_NUM_ARGS();
|
|
|
|
if (zend_parse_parameters(argc, "ss|l", &left, &left_len, &right, &right_len, &scale_param) == FAILURE) {
|
|
return;
|
|
}
|
|
|
|
if (argc == 3) {
|
|
scale = (int) ((int)scale_param < 0 ? 0 : scale_param);
|
|
}
|
|
|
|
bc_init_num(&first);
|
|
bc_init_num(&second);
|
|
|
|
bc_str2num(&first, left, scale);
|
|
bc_str2num(&second, right, scale);
|
|
RETVAL_LONG(bc_compare(first, second));
|
|
|
|
bc_free_num(&first);
|
|
bc_free_num(&second);
|
|
return;
|
|
}
|
|
/* }}} */
|
|
|
|
/* {{{ proto bool bcscale(int scale)
|
|
Sets default scale parameter for all bc math functions */
|
|
PHP_FUNCTION(bcscale)
|
|
{
|
|
zend_long new_scale;
|
|
|
|
if (zend_parse_parameters(ZEND_NUM_ARGS(), "l", &new_scale) == FAILURE) {
|
|
return;
|
|
}
|
|
|
|
BCG(bc_precision) = ((int)new_scale < 0) ? 0 : new_scale;
|
|
|
|
RETURN_TRUE;
|
|
}
|
|
/* }}} */
|
|
|
|
|
|
#endif
|
|
|
|
/*
|
|
* Local variables:
|
|
* tab-width: 4
|
|
* c-basic-offset: 4
|
|
* End:
|
|
* vim600: sw=4 ts=4 fdm=marker
|
|
* vim<600: sw=4 ts=4
|
|
*/
|