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
poly.c
View File

@@ -1,7 +1,7 @@
/*
* poly - polynomial functions
*
* Copyright (C) 1999,2021 Ernest Bowen and Landon Curt Noll
* Copyright (C) 1999,2021,2023 Ernest Bowen and Landon Curt Noll
*
* Primary author: Ernest Bowen
*
@@ -33,13 +33,13 @@
#include "banned.h" /* include after system header <> includes */
BOOL
bool
evp(LISTELEM *cp, LISTELEM *x, VALUE *vres)
{
VALUE v, tmp1, tmp2;
BOOL s;
bool s;
s = FALSE;
s = false;
while (cp) {
if (s) {
mulvalue(vres, &x->e_value, &tmp1);
@@ -55,7 +55,7 @@ evp(LISTELEM *cp, LISTELEM *x, VALUE *vres)
freevalue(vres);
*vres = tmp2;
} else {
s = TRUE;
s = true;
*vres = tmp1;
}
}
@@ -65,7 +65,7 @@ evp(LISTELEM *cp, LISTELEM *x, VALUE *vres)
freevalue(vres);
*vres = tmp1;
} else {
s = TRUE;
s = true;
copyvalue(&v, vres);
}
}
@@ -75,7 +75,7 @@ evp(LISTELEM *cp, LISTELEM *x, VALUE *vres)
}
BOOL
bool
evalpoly(LIST *clist, LISTELEM *x, VALUE *vres)
{
LISTELEM *cp;
@@ -83,13 +83,13 @@ evalpoly(LIST *clist, LISTELEM *x, VALUE *vres)
cp = clist->l_first;
if (cp == NULL)
return FALSE;
return false;
if (x == NULL) {
v = cp->e_value;
if (v.v_type == V_LIST)
return evalpoly(v.v_list, x->e_next, vres);
copyvalue(&v, vres);
return TRUE;
return true;
}
return evp(clist->l_last, x, vres);
}