drygdryg/calc
1
0
Fork 0
mirror of https://github.com/lcn2/calc.git synced 2025-08-19 01:13:27 +03:00
Code Issues Packages Projects Releases Wiki Activity

changed C source to use C booleans with backward compatibility

Browse Source 
Fix "Under source code control" date for new version.h file.

Sorted the order of symbols printed by "make env".

Test if <stdbool.h> exists and set HAVE_STDBOOL_H accordingly
in have_stdbool.h.  Added HAVE_STDBOOL_H to allow one to force
this value.

Added "bool.h" include file to support use of boolean symbols,
true and false for pre-c99 C compilers.  The "bool.h" include
file defines TRUE as true, FALSE as false, and BOOL as bool:
for backward compatibility.

The sign in a ZVALUE is now of type SIGN, whcih is either
SB32 when CALC2_COMPAT is defined, or a bool.

Replaced in C source, TRUE with true, FALSE with false, and
BOOL with bool.
This commit is contained in:
Landon Curt Noll
2023-08-19 19:20:32 -07:00
parent e18b715f3f
commit 3c18e6e25b
71 changed files with 1267 additions and 1043 deletions
Download Patch File Download Diff File Expand all files Collapse all files

22
qtrans.c
View File

@@ -1,7 +1,7 @@
/*
* qtrans - transcendental functions for real numbers
*
* Copyright (C) 1999-2007,2021,2022 David I. Bell and Ernest Bowen
* Copyright (C) 1999-2007,2021-2023 David I. Bell and Ernest Bowen
*
* Primary author: David I. Bell
*
@@ -427,7 +427,7 @@ qasin(NUMBER *q, NUMBER *epsilon)
{
NUMBER *qtmp1, *qtmp2, *epsilon1;
ZVALUE ztmp;
BOOL neg;
bool neg;
FLAG r;
if (qiszero(epsilon)) {
@@ -523,7 +523,7 @@ qatan(NUMBER *q, NUMBER *epsilon)
FULL d;
ZVALUE X, D, DD, sum, mul, term, ztmp1, ztmp2;
NUMBER *qtmp, *res;
BOOL sign;
bool sign;
if (qiszero(epsilon)) {
math_error("Zero epsilon value for arctangent");
@@ -1045,7 +1045,7 @@ qln(NUMBER *q, NUMBER *epsilon)
long m, n, k, h, d;
ZVALUE term, sum, mul, pow, X, D, B, ztmp;
NUMBER *qtmp, *res;
BOOL neg;
bool neg;
if (qiszero(q) || qiszero(epsilon)) {
math_error("logarithm of 0");
@@ -1154,7 +1154,7 @@ qln(NUMBER *q, NUMBER *epsilon)
NUMBER *
qlog(NUMBER *q, NUMBER *epsilon)
{
int need_new_ln_10 = TRUE; /* FALSE => use cached ln_10 value */
int need_new_ln_10 = true; /* false => use cached ln_10 value */
NUMBER *ln_q; /* ln(x) */
NUMBER *ret; /* base 10 logarithm of x */
@@ -1168,12 +1168,12 @@ qlog(NUMBER *q, NUMBER *epsilon)
* shortcut for small integer powers of 10
*/
if (qisint(q) && qispos(q) && !zge8192b(q->num) && ziseven(q->num)) {
BOOL is_10_power; /* TRUE ==> q is a power of 10 */
bool is_10_power; /* true ==> q is a power of 10 */
long ilog_10; /* integer log base 10 */
/* try for a quick small power of 10 log */
ilog_10 = zlog10(q->num, &is_10_power );
if (is_10_power == TRUE) {
if (is_10_power == true) {
/* is small power of 10, return log */
return itoq(ilog_10);
}
@@ -1195,19 +1195,19 @@ qlog(NUMBER *q, NUMBER *epsilon)
if (ln_10_epsilon == NULL) {
/* first time call */
ln_10_epsilon = qcopy(epsilon);
} else if (qcmp(ln_10_epsilon, epsilon) == TRUE) {
} else if (qcmp(ln_10_epsilon, epsilon) == true) {
/* replaced cached value with epsilon arg */
qfree(ln_10_epsilon);
ln_10_epsilon = qcopy(epsilon);
} else if (ln_10 != NULL) {
/* the previously computed ln(2) is OK to use */
need_new_ln_10 = FALSE;
need_new_ln_10 = false;
}
/*
* compute ln(10) if needed
*/
if (need_new_ln_10 == TRUE) {
if (need_new_ln_10 == true) {
if (ln_10 != NULL) {
qfree(ln_10);
}
@@ -1692,7 +1692,7 @@ qasinh(NUMBER *q, NUMBER *epsilon)
{
NUMBER *tmp1, *tmp2, *epsilon1;
long n;
BOOL neg;
bool neg;
if (qiszero(epsilon)) {
math_error("Zero epsilon value for asinh");