drygdryg/calc
1
0
Fork 0
mirror of https://github.com/lcn2/calc.git synced 2025-08-16 01:03:29 +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

18
func.c
View File

@@ -256,7 +256,7 @@ f_eval(VALUE *vp)
enterfilescope();
temp_stoponerror = stoponerror;
stoponerror = -1;
if (evaluate(TRUE)) {
if (evaluate(true)) {
stoponerror = temp_stoponerror;
closeinput();
exitfilescope();
@@ -1219,7 +1219,7 @@ f_srandom(int count, VALUE **vals)
"srandom number seed must be an integer");
not_reached();
}
result.v_random = zsrandom1(vals[0]->v_num->num, TRUE);
result.v_random = zsrandom1(vals[0]->v_num->num, true);
break;
case V_RANDOM: /* srandom(state) */
@@ -1303,7 +1303,7 @@ f_primetest(int count, NUMBER **vals)
S_FUNC VALUE
f_setbit(int count, VALUE **vals)
{
BOOL r;
bool r;
long index;
VALUE result;
@@ -3793,7 +3793,7 @@ f_arg(int count, VALUE **vals)
S_FUNC NUMBER *
f_legtoleg(NUMBER *val1, NUMBER *val2)
{
return qlegtoleg(val1, val2, FALSE);
return qlegtoleg(val1, val2, false);
}
@@ -3932,7 +3932,7 @@ f_quomod(int count, VALUE **vals)
VALUE *v1, *v2, *v3, *v4, *v5;
VALUE result;
long rnd;
BOOL res;
bool res;
short s3, s4; /* to preserve subtypes of v3, v4 */
v1 = vals[0];
@@ -6177,7 +6177,7 @@ f_protect(int count, VALUE **vals)
VALUE *v1, *v2, *v3;
VALUE result;
BOOL have_nblock;
bool have_nblock;
/* initialize VALUE */
result.v_type = V_NULL;
@@ -7306,7 +7306,7 @@ S_FUNC VALUE
f_rm(int count, VALUE **vals)
{
VALUE result;
int force; /* TRUE -> -f was given as 1st arg */
int force; /* true -> -f was given as 1st arg */
int i;
int j;
@@ -10165,6 +10165,10 @@ STATIC CONST struct builtin builtins[] = {
"hypotenuse of right triangle within accuracy c"},
{"ilog", 2, 2, 0, OP_NOP, {.null = NULL}, {.valfunc_2 = f_ilog},
"integral log of a to integral base b"},
#if 0 /* XXX - to be added later */
{"ilogn", 2, 2, 0, OP_NOP, {.null = NULL}, {.valfunc_2 = f_ilog},
"same is ilog"},
#endif /* XXX */
{"ilog10", 1, 1, 0, OP_NOP, {.null = NULL}, {.valfunc_1 = f_ilog10},
"integral log of a number base 10"},
{"ilog2", 1, 1, 0, OP_NOP, {.null = NULL}, {.valfunc_1 = f_ilog2},