PHP_RINIT_FUNCTION(bcmath)
{
- if (cfg_get_long("bcmath.scale", &bc_precision)==FAILURE) {
- bc_precision=0;
+ if (cfg_get_long("bcmath.scale", &bc_precision) == FAILURE) {
+ bc_precision = 0;
}
bc_init_numbers(TSRMLS_C);
Returns the sum of two arbitrary precision numbers */
PHP_FUNCTION(bcadd)
{
- pval **left, **right, **scale_param;
+ zval **left, **right, **scale_param;
bc_num first, second, result;
- int scale=bc_precision;
+ int scale = bc_precision;
switch (ZEND_NUM_ARGS()) {
case 2:
if (zend_get_parameters_ex(2, &left, &right) == FAILURE) {
- WRONG_PARAM_COUNT;
- }
+ WRONG_PARAM_COUNT;
+ }
break;
case 3:
if (zend_get_parameters_ex(3, &left, &right, &scale_param) == FAILURE) {
- WRONG_PARAM_COUNT;
- }
+ WRONG_PARAM_COUNT;
+ }
convert_to_long_ex(scale_param);
scale = (int) Z_LVAL_PP(scale_param);
break;
php_str2num(&first, Z_STRVAL_PP(left) TSRMLS_CC);
php_str2num(&second, Z_STRVAL_PP(right) TSRMLS_CC);
bc_add (first, second, &result, scale);
- if (result->n_scale > scale)
+ if (result->n_scale > scale) {
result->n_scale = scale;
+ }
Z_STRVAL_P(return_value) = bc_num2str(result);
Z_STRLEN_P(return_value) = strlen(Z_STRVAL_P(return_value));
Z_TYPE_P(return_value) = IS_STRING;
Returns the difference between two arbitrary precision numbers */
PHP_FUNCTION(bcsub)
{
- pval **left, **right, **scale_param;
+ zval **left, **right, **scale_param;
bc_num first, second, result;
- int scale=bc_precision;
+ int scale = bc_precision;
switch (ZEND_NUM_ARGS()) {
case 2:
if (zend_get_parameters_ex(2, &left, &right) == FAILURE) {
- WRONG_PARAM_COUNT;
- }
+ WRONG_PARAM_COUNT;
+ }
break;
case 3:
if (zend_get_parameters_ex(3, &left, &right, &scale_param) == FAILURE) {
- WRONG_PARAM_COUNT;
- }
+ WRONG_PARAM_COUNT;
+ }
convert_to_long_ex(scale_param);
scale = (int) Z_LVAL_PP(scale_param);
break;
php_str2num(&first, Z_STRVAL_PP(left) TSRMLS_CC);
php_str2num(&second, Z_STRVAL_PP(right) TSRMLS_CC);
bc_sub (first, second, &result, scale);
- if (result->n_scale > scale)
+ if (result->n_scale > scale) {
result->n_scale = scale;
+ }
Z_STRVAL_P(return_value) = bc_num2str(result);
Z_STRLEN_P(return_value) = strlen(Z_STRVAL_P(return_value));
Z_TYPE_P(return_value) = IS_STRING;
Returns the multiplication of two arbitrary precision numbers */
PHP_FUNCTION(bcmul)
{
- pval **left, **right, **scale_param;
+ zval **left, **right, **scale_param;
bc_num first, second, result;
- int scale=bc_precision;
+ int scale = bc_precision;
switch (ZEND_NUM_ARGS()) {
case 2:
if (zend_get_parameters_ex(2, &left, &right) == FAILURE) {
- WRONG_PARAM_COUNT;
- }
+ WRONG_PARAM_COUNT;
+ }
break;
case 3:
if (zend_get_parameters_ex(3, &left, &right, &scale_param) == FAILURE) {
- WRONG_PARAM_COUNT;
- }
+ WRONG_PARAM_COUNT;
+ }
convert_to_long_ex(scale_param);
scale = (int) Z_LVAL_PP(scale_param);
break;
php_str2num(&first, Z_STRVAL_PP(left) TSRMLS_CC);
php_str2num(&second, Z_STRVAL_PP(right) TSRMLS_CC);
bc_multiply (first, second, &result, scale TSRMLS_CC);
- if (result->n_scale > scale)
+ if (result->n_scale > scale) {
result->n_scale = scale;
+ }
Z_STRVAL_P(return_value) = bc_num2str(result);
Z_STRLEN_P(return_value) = strlen(Z_STRVAL_P(return_value));
Z_TYPE_P(return_value) = IS_STRING;
Returns the quotient of two arbitrary precision numbers (division) */
PHP_FUNCTION(bcdiv)
{
- pval **left, **right, **scale_param;
+ zval **left, **right, **scale_param;
bc_num first, second, result;
- int scale=bc_precision;
+ int scale = bc_precision;
switch (ZEND_NUM_ARGS()) {
case 2:
if (zend_get_parameters_ex(2, &left, &right) == FAILURE) {
- WRONG_PARAM_COUNT;
- }
+ WRONG_PARAM_COUNT;
+ }
break;
case 3:
if (zend_get_parameters_ex(3, &left, &right, &scale_param) == FAILURE) {
- WRONG_PARAM_COUNT;
- }
+ WRONG_PARAM_COUNT;
+ }
convert_to_long_ex(scale_param);
scale = (int) Z_LVAL_PP(scale_param);
break;
php_str2num(&second, Z_STRVAL_PP(right) TSRMLS_CC);
switch (bc_divide (first, second, &result, scale TSRMLS_CC)) {
case 0: /* OK */
- if (result->n_scale > scale)
+ if (result->n_scale > scale) {
result->n_scale = scale;
+ }
Z_STRVAL_P(return_value) = bc_num2str(result);
Z_STRLEN_P(return_value) = strlen(Z_STRVAL_P(return_value));
Z_TYPE_P(return_value) = IS_STRING;
Returns the modulus of the two arbitrary precision operands */
PHP_FUNCTION(bcmod)
{
- pval **left, **right;
+ zval **left, **right;
bc_num first, second, result;
switch (ZEND_NUM_ARGS()) {
case 2:
if (zend_get_parameters_ex(2, &left, &right) == FAILURE) {
- WRONG_PARAM_COUNT;
- }
+ WRONG_PARAM_COUNT;
+ }
break;
default:
WRONG_PARAM_COUNT;
char *left, *right, *modulous;
int left_len, right_len, modulous_len;
bc_num first, second, mod, result;
- int scale=bc_precision;
+ int scale = bc_precision;
if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "sss|l", &left, &left_len, &right, &right_len, &modulous, &modulous_len, &scale) == FAILURE) {
WRONG_PARAM_COUNT;
php_str2num(&second, right TSRMLS_CC);
php_str2num(&mod, modulous TSRMLS_CC);
bc_raisemod(first, second, mod, &result, scale TSRMLS_CC);
- if (result->n_scale > scale)
+ if (result->n_scale > scale) {
result->n_scale = scale;
+ }
Z_STRVAL_P(return_value) = bc_num2str(result);
Z_STRLEN_P(return_value) = strlen(Z_STRVAL_P(return_value));
Z_TYPE_P(return_value) = IS_STRING;
Returns the value of an arbitrary precision number raised to the power of another */
PHP_FUNCTION(bcpow)
{
- pval **left, **right, **scale_param;
+ zval **left, **right, **scale_param;
bc_num first, second, result;
- int scale=bc_precision;
+ int scale = bc_precision;
switch (ZEND_NUM_ARGS()) {
case 2:
if (zend_get_parameters_ex(2, &left, &right) == FAILURE) {
- WRONG_PARAM_COUNT;
- }
+ WRONG_PARAM_COUNT;
+ }
break;
case 3:
if (zend_get_parameters_ex(3, &left, &right, &scale_param) == FAILURE) {
- WRONG_PARAM_COUNT;
- }
+ WRONG_PARAM_COUNT;
+ }
convert_to_long_ex(scale_param);
scale = (int) Z_LVAL_PP(scale_param);
break;
php_str2num(&first, Z_STRVAL_PP(left) TSRMLS_CC);
php_str2num(&second, Z_STRVAL_PP(right) TSRMLS_CC);
bc_raise (first, second, &result, scale TSRMLS_CC);
- if (result->n_scale > scale)
+ if (result->n_scale > scale) {
result->n_scale = scale;
+ }
Z_STRVAL_P(return_value) = bc_num2str(result);
Z_STRLEN_P(return_value) = strlen(Z_STRVAL_P(return_value));
Z_TYPE_P(return_value) = IS_STRING;
Returns the square root of an arbitray precision number */
PHP_FUNCTION(bcsqrt)
{
- pval **left, **scale_param;
+ zval **left, **scale_param;
bc_num result;
- int scale=bc_precision;
+ int scale = bc_precision;
switch (ZEND_NUM_ARGS()) {
case 1:
- if (zend_get_parameters_ex(1, &left)== FAILURE) {
- WRONG_PARAM_COUNT;
- }
+ if (zend_get_parameters_ex(1, &left) == FAILURE) {
+ WRONG_PARAM_COUNT;
+ }
break;
case 2:
if (zend_get_parameters_ex(2, &left, &scale_param) == FAILURE) {
- WRONG_PARAM_COUNT;
- }
+ WRONG_PARAM_COUNT;
+ }
convert_to_long_ex(scale_param);
scale = (int) Z_LVAL_PP(scale_param);
break;
bc_init_num(&result TSRMLS_CC);
php_str2num(&result, Z_STRVAL_PP(left) TSRMLS_CC);
if (bc_sqrt (&result, scale TSRMLS_CC) != 0) {
- if (result->n_scale > scale)
+ if (result->n_scale > scale) {
result->n_scale = scale;
+ }
Z_STRVAL_P(return_value) = bc_num2str(result);
Z_STRLEN_P(return_value) = strlen(Z_STRVAL_P(return_value));
Z_TYPE_P(return_value) = IS_STRING;
Compares two arbitrary precision numbers */
PHP_FUNCTION(bccomp)
{
- pval **left, **right, **scale_param;
+ zval **left, **right, **scale_param;
bc_num first, second;
- int scale=bc_precision;
+ int scale = bc_precision;
switch (ZEND_NUM_ARGS()) {
case 2:
if (zend_get_parameters_ex(2, &left, &right) == FAILURE) {
- WRONG_PARAM_COUNT;
- }
+ WRONG_PARAM_COUNT;
+ }
break;
case 3:
if (zend_get_parameters_ex(3, &left, &right, &scale_param) == FAILURE) {
- WRONG_PARAM_COUNT;
- }
+ WRONG_PARAM_COUNT;
+ }
convert_to_long_ex(scale_param);
scale = (int) Z_LVAL_PP(scale_param);
break;
Sets default scale parameter for all bc math functions */
PHP_FUNCTION(bcscale)
{
- pval **new_scale;
+ zval **new_scale;
- if (ZEND_NUM_ARGS()!=1 || zend_get_parameters_ex(1, &new_scale)==FAILURE) {
+ if (ZEND_NUM_ARGS() != 1 || zend_get_parameters_ex(1, &new_scale) == FAILURE) {
WRONG_PARAM_COUNT;
}