Release v2.15.0.2

The following are the changes in this release:

    Updated BUGS about MSYS2 on Windows compiling of calc.

    Added more git related checks and sanity checks to chk_tree.

    Added ${FSANITIZE} make variable to Makefile.config to hold
    common Address Sanitizer (ASAN) optins to modern Linux and macOS.
    The Address Sanitizer is NOT enabled not compiled in by default.
    Improved comments in Makefile.local for RHEL9.2 (Linux) and for
    macOS 14.0 that, when uncommented and calc is recompiled (i.e.,
    make clobber all) will enable the Address Sanitizer (ASAN) for calc.

    Fixed memory leaks in the logn, aversin, acoversin, avercos,
    acovercos, ahaversin, ahavercos, ahacovercos, aexsec,
    aexcsc, and acrd.

    Fixed a compile error in zmath.h that impacted legacy 32-bit Big
    Endian machines.  Thanks goes to GitHub user @gromit1811 for their
    pull request.

    Fixed the check for <sys/mount.h> when forming have_sys_mount.h.
    Thanks goes to GitHub user @gromit1811 for their pull request.

    Added "STATIC bool blum_initialized = false" to zrandom.c to improve
    how the code detects if the Blum-Blum-Shub pseudo-random number
    generator is seeded or not, and how to free the state correctly.

    NOTE: There is a very minor memory leak in zrandom.c that will be
    fixed in a later release.

.gitignore

@@ -1,33 +1,54 @@
+# generic excluded patterns
+#
+# We sort the list below via: sort -u -f
+#
+*,v
+*.BAK
+*.dSYM/
+*.exe
+*.o.tmp
+*.[oa]
+*~
+.*.swp
+.DS_Store
+core*
+
 # files and directories created during the building of calc and other Makefile actions
 #
 # NOTE: While many of these might be part of a released calc tarball, they are
 #	not consider development source.  Some other file(s) and/or programs
 #	generate these files.
 #
+# We sort the list below via: sort -u -f
+#
 .dynamic
 .hsrc
 .static
-Makefile.our
-NOTES
+align32
 align32.h
+align32_tmp
+arc4random_tmp
 args.h
 cal/.all
+cal/test082.cal
 calc
 calc-static
 calc.1
+calc.spec
 calc.usage
-calcerr.c
-calcerr.h
 charbit.h
+chatbit
+chk_c
 conf.h
+const_tmp
 cscript/.all
 cscript/4dsphere
-cscript/README
 cscript/fproduct
 cscript/mersenne
 cscript/piforever
 cscript/plus
 cscript/powerterm
+cscript/README
 cscript/simple
 cscript/square
 custom/.all
@@ -35,42 +56,78 @@ custom/libcustcalc*
 debug.out
 endian
 endian_calc.h
+environ_tmp
+errcode
+errsym.h
+fposval
 fposval.h
+fposval_tmp
+fpos_tmp
+func.show
+func.sort
+getpgid_tmp
+getprid_tmp
+getsid_tmp
+gettime_tmp
+have_arc4random
 have_arc4random.h
+have_ban_pragma
 have_ban_pragma.h
+have_const
 have_const.h
+have_environ
 have_environ.h
 have_fgetsetpos.h
+have_fpos
+have_fpos_pos
 have_fpos_pos.h
+have_getpgid
 have_getpgid.h
+have_getprid
 have_getprid.h
+have_getsid
 have_getsid.h
+have_gettime
 have_gettime.h
+have_inttypes.h
 have_limits.h
+have_memmv
 have_memmv.h
+have_newstr
 have_newstr.h
+have_offscl
 have_offscl.h
+have_posscl
 have_posscl.h
+have_rusage
 have_rusage.h
+have_statfs
 have_statfs.h
+have_stdbool.h
+have_stdint.h
 have_stdlib.h
 have_stdvs
+have_strdup
 have_strdup.h
 have_string.h
+have_strlcat
 have_strlcat.h
+have_strlcpy
 have_strlcpy.h
 have_sys_mount.h
 have_sys_param.h
 have_sys_vfs.h
 have_times.h
+have_uid_t
 have_uid_t.h
 have_unistd.h
+have_unused
 have_unused.h
 have_urandom.h
+have_ustat
 have_ustat.h
+have_varvs
 help/.all
-help/COPYING
-help/COPYING-LGPL
 help/binding
 help/bindings
 help/bug
@@ -80,6 +137,8 @@ help/change
 help/changes
 help/contrib
 help/copy
+help/COPYING
+help/COPYING-LGPL
 help/cscript
 help/custom_cal
 help/errorcode
@@ -87,6 +146,7 @@ help/errorcodes
 help/full
 help/funclist
 help/funclist.c
+help/ilogn
 help/libcalc
 help/man
 help/new_custom
@@ -96,26 +156,31 @@ help/releases
 help/resource
 help/type
 help/usage
-libcalc*
-libcustcalc*
+libcalc.*
+libcustcalc.*
+ll_tmp
 longbits
 longbits.h
+Makefile.our
+memmv_tmp
+newstr_tmp
+NOTES
+offscl_tmp
+outfile
+posscl_tmp
+rusage_tmp
 sample_many
 sample_many-static
 sample_rand
 sample_rand-static
+statfs_tmp
+status.chk_c.h
+strdup_tmp
 tags
 terminal.h
+uid_tmp
+unused_tmp
+ustat_tmp
 ver_calc
+vs_tmp
 win32/
-
-# other commonly excluded patterns
-#
-*~
-*.BAK
-core*
-.DS_Store
-*.dSYM/
-*.[oa]
-.*.swp
-*,v

.lldbinit

@@ -0,0 +1,23 @@
+#
+# lldb calc
+#
+# IMPORTANT: Under macOS, use this local ./lldbinit file, your home directory file:
+#
+#	~/.lldbinit
+#
+# must contain this line (w/o the leading # and whitespace):
+#
+#	settings set target.load-cwd-lldbinit true
+#
+# Optimizing calc may make it harder to trace what calc is doing,
+# To turn off optimization while debugging, try:
+#
+#	make clobber all DEBUG="-g3"
+#
+# To debug calc with lldb from this directory, just run:
+#
+#	lldb
+#
+target create "./calc"
+process launch -tty --environment CALCPATH=./cal --environment LD_LIBRARY_PATH=. --environment DYLD_LIBRARY_PATH=. --environment CALCHELP=./help --environment CALCCUSTOMHELP=./custom -- -q -d
+b main

BUGS

@@ -101,7 +101,9 @@ Known bugs in calc:
     The output of the alg_config.cal resource file is bogus.
     We would welcome a replacement for this code.
 
-    Calc may not compile natively under Windows 11. See README.WINDOWS.
+    Calc may not compile natively under Windows 11, however with
+    MSYS2 Software Distribution (a fork of Cygwin) people compile
+    calc under Windiws just fine.  See README.WINDOWS.
 
     We are sure some more bugs exist.  When you find them, please let
     us know!  See the above for details on how to report and were to

CHANGES

@@ -1,4 +1,501 @@
-The following are the changes from calc version 2.14.3.1 to date:
+The following are the changes from calc version 2.15.0.1 to 2.15.0.2:
+
+    Updated BUGS about MSYS2 on Windows compiling of calc.
+
+    Added more git related checks and sanity checks to chk_tree.
+
+    Added ${FSANITIZE} make variable to Makefile.config to hold
+    common Address Sanitizer (ASAN) optins to modern Linux and macOS.
+    The Address Sanitizer is NOT enabled not compiled in by default.
+    Improved comments in Makefile.local for RHEL9.2 (Linux) and for
+    macOS 14.0 that, when uncommented and calc is recompiled (i.e.,
+    make clobber all) will enable the Address Sanitizer (ASAN) for calc.
+
+    Fixed memory leaks in the logn, aversin, acoversin, avercos,
+    acovercos, ahaversin, ahavercos, ahacovercos, aexsec,
+    aexcsc, and acrd.
+
+    Fixed a compile error in zmath.h that impacted legacy 32-bit Big
+    Endian machines.  Thanks goes to GitHub user @gromit1811 for their
+    pull request.
+
+    Fixed the check for <sys/mount.h> when forming have_sys_mount.h.
+    Thanks goes to GitHub user @gromit1811 for their pull request.
+
+    Added "STATIC bool blum_initialized = false" to zrandom.c to improve
+    how the code detects if the Blum-Blum-Shub pseudo-random number
+    generator is seeded or not, and how to free the state correctly.
+
+    NOTE: There is a very minor memory leak in zrandom.c that will be
+    fixed in a later release.
+
+
+The following are the changes from calc version 2.14.3.5 to 2.15.0.1:
+
+    The tarball for calc version 2.15.0.0 was missing version.h.
+    The version.h is now listed as part of the calc distribution.
+
+    Added the following new trigonometric functions:
+
+	versin(x [,eps])	versed trigonometric sine
+	coversin(x [,eps])	coversed trigonometric sine
+	vercos(x [,eps])	versed trigonometric cosine
+	covercos(x [,eps])	coversed trigonometric cosine
+	aversin(x [,eps])	inverse versed trigonometric sine
+	acoversin(x [,eps])	inverse coversed trigonometric sine
+	avercos(x [,eps])	inverse versed trigonometric cosine
+	acovercos(x [,eps])	inverse coversed trigonometric cosine
+	haversin(x [,eps])	half versed trigonometric sine
+	hacoversin(x [,eps])	half coversed trigonometric sine
+	havercos(x [,eps])	half versed trigonometric cosine
+	hacovercos(x [,eps])	half coversed trigonometric cosine
+	ahaversin(x [,eps])	inverse half versed trigonometric sine
+	ahacoversin(x [,eps])	inverse half coversed trigonometric sine
+	ahavercos(x [,eps])	inverse half versed trigonometric cosine
+	ahacovercos(x [,eps])	inverse half coversed trigonometric cosine
+	exsec(x [,eps])		exterior trigonometric secant
+	aexsec(x [,eps])	inverse exterior trigonometric secant
+	excsc(x [,eps])		exterior trigonometric cosecant
+	aexcsc(x [,eps])	inverse exterior trigonometric cosecant
+	crd(x [,eps])		trigonometric chord of a unit circle
+	acrd(x [,eps])		inverse trigonometric chord of a unit circle
+	cas(x [,eps])		trigonometric cosine plus sine
+	cis(x [,eps])		Euler's formula
+
+    As Msys2 is a fork of Cygwin, if the OSNAME is Msys, the Cygwin
+    target will be used.  Thanks to GitHub user @iahung2 for the
+    pull request.
+
+    Support for win32 and DJGPP has been dropped.  Calc version
+    2.14.3.5 was the last to make references to win32 and make
+    references to DJGPP.  Future versions of calc may work under
+    those systems, we just elected to remove the somewhat out of
+    date and awkward `win32.mkdef` and related win32 references.
+
+    If you are a win32 user, please feel free to create a win32
+    target in Makefile.target and submit as a pull request.
+    If you are a DJGPP user, please feel free to create a DJGPP
+    target in Makefile.target and submit as a pull request.
+    Until someone can test such systems, we prefer to wait
+    until someone is able to test and supply a pull request.
+
+    Added PTR_LEN (length of a pointer) and PTR_BITS (bit length
+    of a pointer) to longbits.h.
+
+    Moved calc version definition from version.c to version.h.
+
+    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.
+
+    Replaced in C source, TRUE with true, FALSE with false, and
+    BOOL with bool.
+
+    Fixed have_statfs optional executable file extension ${EXT{ in
+    the ${UTIL_PROGS} make variable.
+
+    Test if <stdint.h> exists and set HAVE_STDINT_H accordingly
+    in have_stdint.h.  Added HAVE_STDINT_H to allow one to force
+    this value.
+
+    Test if <inttypes.h> exists and set HAVE_INTTYPES_H accordingly
+    in have_inttypes.h.  Added HAVE_INTTYPES_H to allow one to force
+    this value.
+
+    Added c_chk.c to check the compiler and C include for calc
+    requirements.  If you are unable to compile this program, or
+    if this program when compiles does not exit 0, then your C
+    compiler and/or C include fails to meet calc requirements.
+    Compilers that are at least c99 MUST be able to compile this
+    program such that when run will exit 0.
+
+    The "make hsrc" file will attempt to compile and run c_chk and
+    will warn if the C compiler and/or C include fails to meet
+    calc requirements.  The "make debug" system will run c_chk -c
+    to print information about the C compiler and C include.
+    Currently failure to compile cc_chk.c or c_chk exiting non-0
+    will just print "WARNING!!" strings to stderr.
+
+    The make chk_c file also forms status.chk_c.h which either
+    defines CHK_C when the C compiler and select include files
+    appear to meet calc requirements, or undefines CHK_C
+    when it does not.
+
+    Added int.h as a central place for calc integer types and
+    integer macros.
+
+    Removed `-R release_file` and `-r release_file` command
+    line options from `ver_calc`.  Add `-h` option.  Updated
+    comments in "README.RELEASE", which serves as the contents
+    of the calc command "help release".
+
+    Added log2(x [,eps]) builtin function.  When x is an integer
+    power of 2, log2(x) will return an integer, otherwise it will
+    return the equivalent of ln(x)/ln(2).
+
+    Removed CALC2_COMPAT in favor of ckecking if MAJOR_VER < 3.
+
+    The sign element in a ZVALUE is now of type SIGN, which is either
+    SB32 when MAJOR_VER < 3, or a bool otherwise.
+
+    The len element in a ZVALUE is of type LEN.  LEN type is SB32 when
+    MAJOR_VER < 3, or a uintptr_t otherwise.
+
+    Setting an invalid epsilon via the epsilon(value) or confiv("epsilon",
+    value) triggers an error.  The epsilon value must be: 0 < epsilon < 1.
+
+    Added new logn(x, n [,eps]) builtin to compute logarithms to base n.
+
+    Verify that eps arguments (error tolerance arguments that override
+    the default epsilon value) to builtin functions have proper values.
+    Previously the eps argument had little to no value checks for
+    many builtin functions.
+
+    Document in help files for builtin functions that take eps arguments,
+    the LIMIT range for such eps values.
+
+    Removed old Makefile testing rules for make dbx and make gdb.
+
+    Improved "make run" to execute calccalc using shared libraries
+    from the local directory, and with reading of the startup scripts
+    disabled.
+
+    Changed "make prep" to perform various tests that are used to
+    help verify that calc is ready for a release.  Added the
+    update_ver tool, (formerly verupdate) and the trailblank tool
+    that existed outside of the calc source base but neverthless
+    used in the calc release process.  Both of these tools are used
+    by "make prep".
+
+    Added Makefile testing rule "make testfuncsort" to check for
+    the sort of the builtin function list.  Changed the order that
+    builtin functions are listed by "show builtin" and the help/builtin
+    to match the sorting of "LANG=C LC_ALL=C sort -d -u".
+
+    Added c_to_q(COMPLEX *c, bool cfree) to make is easier to convert
+    a COMPLEX value that is real (imag part is 0) into a NUMBER and
+    optionally free the COMPLEX value.  The func.c code now uses c_to_q().
+
+    Added q_to_c(NUMBER *q) to make it easier to convert a NUMBER
+    into an allocated COMPLEX value.
+
+    Added new vercos(x, [,eps]) for versed cosine and covercos(x, [,eps])
+    for inverse versed cosine.
+
+    Added new avercos(x, [,eps]) for inverse versed cosine and acovercos(x, [,eps])
+    for inverse coversed cosine.
+
+    Improved comments about use of the ${CALC_ENV} Makefile variable.
+    Noted in Makefile.cal where and how the ${CALC_ENV} is used.
+    Use ${CALC_ENV} Makefile variable were needed.
+
+    Modified regression test cal/regress.cal: in some cases test numbers
+    were adjusted.  Add comments indicate which test numbers apply to
+    which code.  Indicated where there is room for new tests.
+    Expanded the end of test numbers from 9999 to  99999.
+
+    To make the meaning a bit more clear in cal/regress.cal, we have
+    renamed the following test calc resource files that are related to
+    the calc regression test suite:
+
+	cal/test1700.cal -> cal/test8000.read.cal
+	cal/test2300.cal -> cal/test2300.obj_incdec.cal
+	cal/test2600.cal -> cal/test2600.numfunc.cal
+	cal/test2700.cal -> cal/test2700.isqrt.cal
+	cal/test3100.cal -> cal/test3100.matobj.cal
+	cal/test3400.cal -> cal/test3400.trig.cal
+	cal/test4000.cal -> cal/test4000.ptest.cal
+	cal/test4100.cal -> cal/test4100.redc.cal
+	cal/test4600.cal -> cal/test4600.fileop.cal
+	cal/test5100.cal -> cal/test5100.newdecl.cal
+	cal/test5200.cal -> cal/test5200.globstat.cal
+	cal/test8400.cal -> cal/test8400.quit.cal
+	cal/test8500.cal -> cal/test8500.divmod.cal
+	cal/test8600.cal -> cal/test8600.maxargs.cal
+	cal/set8700.cal -> cal/test8700.dotest.cal
+	cal/test8900.cal -> cal/test8900.special.cal
+	cal/test9300.cal -> cal/test9300.frem.cal
+
+    Added to test 94dd, read of a number of new calc resource files
+    that are not already read as a result of the calc regression test suite.
+
+    Fixed more documentation and code comments that referred to the
+    old additive 55 (a55) shuffle pseudo-random number generator.
+    We have been using the subtractive 100 shuffle pseudo-random
+    number generator in place of the additive 55 generator for a
+    while now.
+
+    Improved help files trigonometric functions.  They were corrected
+    to indicate that complex arguments are allowed: an oversight
+    from long ago when those trigonometric functions were expanded
+    to include complex arguments.  The EXAMPLE sections were expanded
+    and made consistent, where applicable, across the trigonometric
+    help files.  Documented libcalc functions in the SEE ALSO sections.
+
+    Improved "SEE ALSO" for the hyperbolic function help files.
+
+    Expanded the calc regression test suite test 34dd to test various
+    real and complex values for trigonometric functions.
+
+    Added complex multiple approximation function to commath.c so
+    that users of libcalc may directly round complex number to
+    nearest multiple of a given real number:
+
+	E_FUNC COMPLEX *cmappr(COMPLEX *c, NUMBER *e, long rnd, bool cfree);
+
+    For example:
+
+	COMPLEX *c;             /* complex number to round to nearest epsilon */
+	NUMBER *eps;            /* epsilon rounding precision */
+	COMPLEX *res;           /* c rounded to nearest epsilon */
+	long rnd = 24L;         /* a common rounding mode */
+	bool ok_to_free;        /* true ==> free c, false ==> do not free c */
+
+	...
+
+	res = cmappr(c, eps, ok_to_free);
+
+    The complex trigonometric functions tan, cot, sec, csc were
+    implemented in func.c as calls to complex sin and complex cos.
+    We added the following direct calls to comfunc.c so that users
+    of libcalc may call them directly:
+
+	E_FUNC COMPLEX *c_tan(COMPLEX *c, NUMBER *eps);
+	E_FUNC COMPLEX *c_cot(COMPLEX *c, NUMBER *eps);
+	E_FUNC COMPLEX *c_sec(COMPLEX *c, NUMBER *eps);
+	E_FUNC COMPLEX *c_cot(COMPLEX *c, NUMBER *eps);
+
+    Added help/errorcodes rule to the top level Makefile.
+
+    Added E_USERMAX symbol (== 32767) to indicate the maximum value
+    allowed for user error codes.
+
+    Improved help/error.  Added text about error code ranges and
+    range symbols.
+
+    Changed calc_errno a global int variable so that is may be directly
+    accessed by libcalc users.
+
+    Further improve help files for help/errno, help/error, help/newerror,
+    help/stoponerror and help/strerror by adding to documentation
+    of the calc error code system as well as libcalc interface
+    where applicable.
+
+    Changed #define E_USERDEF to #define E__USERDEF.
+
+    Removed use of E_USERDEF, E__BASE, E__COUNT, and E__HIGHEST
+    from custom/c_sysinfo because the c_sysinfo is just a demo
+    and this will simplify the custom/Makefile.
+
+    The include file calcerr.h is now the errsym.h include file.
+    The calcerr.tbl has been replaced by errtbl.c and errtbl.h.
+
+    The calcerr_c.awk, calcerr_c.sed, calcerr_h.awk, and
+    calcerr_h.sed files are now obsolete and have been removed.
+    The calcerr.c and calcerr.h now obsolete and are no longer built.
+
+    The calc computation error codes, symbols and messages are now in
+    a error_table[] array of struct errtbl.
+
+    An E_STRING is a string corresponds to an error code #define.
+    For example, the E_STRING for the calc error E_STRCAT,
+    is the string "E_STRING".  An E_STRING must now match
+    the regular expression: "^E_[A-Z0-9_]+$".
+
+    The old array error_table[] of error message strings has been
+    replaced by a new error_table[] array of struct errtbl.  The struct
+    errtbl array holds calc errnum error codes, the related E_STRING
+    symbol as a string, and the original related error message.
+    To add new computation error codes, add them near the bottom of the
+    error_table[] array, just before the NULL entry.
+
+    The ./errcode utility, when run, will verify the consistency of
+    the error_table[] array.
+
+    The Makefile uses ./errcode -e to generate the contents of
+    help/errorcodes file.  The help errorcodes now prints
+    information from the new cstruct errtbl error_table[] array.
+
+    The help/errorcodes.hdr and help/errorcodes.sed files are
+    now obsolete and have been removed.
+
+    The Makefile uses ./errcode -d to generate the contents of the
+    errsym.h include file.
+
+    Code that used the old array error_table[] of error message strings
+    such as:
+
+	#include "calcerr.h"
+
+	char *msg;	/* calc computation error message */
+
+	msg = error_table[errnum - E__BASE];
+
+    where errnum is the calc computation error code
+    E__BASE <= errnum <= E__HIGHEST, may now use:
+
+	#include "errtbl.h"
+	#include "errsym.h"
+
+	char *msg;	/* calc computation error message */
+
+	msg = error_table[errnum - E__BASE].errmsg;
+
+    Rename the #define E__COUNT to ECOUNT to avoid confusion
+    with "E_STRING" error symbols.
+
+    Renamed "E_1OVER0" to "E_DIVBYZERO".
+    Renamed "E_0OVER0" to "E_ZERODIVZERO".
+
+    The verify_error_table() function that does a verification
+    the error_table[] array and setup private_error_alias[] array
+    is now called by libcalc_call_me_first().
+
+    Fix comment about wrong include file in have_sys_mount.h.
+
+    Removed unused booltostr() and strtobool() macros from bool.h.
+
+    Moved define of math_error(char *, ...) from zmath.h to errtbl.h.
+    The errtbl.h include file, unless ERRCODE_SRC is defined
+    also includes attribute.h and errsym.h.
+
+    Added E_STRING to error([errnum | "E_STRING"]) builtin function.
+    Added E_STRING to errno([errnum | "E_STRING"]) builtin function.
+    Added E_STRING to strerror([errnum | "E_STRING"]) builtin function.
+    Calling these functions with an E_STRING errsym is the same as calling
+    them with the matching errnum code.
+
+    Standardized on calc computation error related E_STRING strings
+    where there are a set of related codes.  Changed "E_...digits" into
+    "E_..._digits".  For example, E_FPUTC1 became E_FPUTC_1, E_FPUTC2
+    became E_FPUTC_2, and E_FPUTC3 became E_FPUTC_3.  In a few cases
+    such as E_APPR became E_APPR_1, because there was a E_APPR2 (which
+    became E_APPR_2) and E_APPR3 (which became E_APPR_3).  To other
+    special cases, E_ILOG10 became E_IBASE10_LOG and E_ILOG2 became
+    E_IBASE2_LOG because E_ILOG10 and E_ILOG2 are both independent calc
+    computation error related E_STRING strings.  Now related sets of
+    E_STRING strings end in _ (underscore) followed by digits.
+
+    Added errsym builtin function.  The errsym(errnum | "E_STRING")
+    builtin, , when given a valid integer errnum that corresponds to a
+    calc error condition, will return an E_STRING string, AND when given
+    a valid E_STRING string that is associated with a calc error
+    condition, will return errnum integer that corresponds to a calc
+    error condition.
+
+    Supplying a non-integer numeric errnum code to error(), errno(),
+    strerror(), or errsym() will result in an error.
+
+    Added tests to the calc regression test suite (cal/regress.cal) to
+    verify that the errnum calc computation error codes and their
+    E_STRING values have not changed.
+
+    Improved the clarity of calc regression suite (regress.cal) to mostly
+    use E_STRING errsym instead of numeric errnum values for error()
+    and errno() related tests.
+
+    Fixed SEE ALSO typo in help randperm.
+
+    Fixed calc regression test 42dd to set the display value back to 20.
+
+    Added to test 95dd and test9500.trigeq.cal to the calc regression test
+    suite to perform extensive test of trigonometric functions.
+
+    Added to test 34dd, some if the missing inverse trigonometric tests.
+
+    Improved builtin function strings, as printed by help builtin,
+    that use an optional accuracy (epsilon) arg by adding a comma.
+
+
+The following are the changes from calc version 2.14.3.4 to 2.14.3.5:
+
+    Under macOS, to reduce dependency chains, we remove functions
+    and data that are unreachable by the entry point or exported
+    symbols.  In particular, the macOS linker is used with both
+    "-dead_strip" and "-dead_strip_dylibs".
+
+    The libcalc shared library is now linked with libcustcalc.
+
+    The config("triground") controls rounding for the following
+    trigonometric and hyperbolic functions:
+
+	sin, cos, tan, cot, sec, csc
+	asin, acos, atan, acot, asec, acsc
+	versin, coversin, vercos, covercos
+	aversin, acoversin, avercos, acovercos
+	haversin, hacoversin, havercos, hacovercos
+	ahaversin, hacoversin, havercos, ahacovercos
+	exsec, aexsec, excsc, aexcsc
+	crd, acrd
+	cas, cis
+	sinh, cosh, tanh, coth, sech, csch
+	asinh, acosh, atanh, acoth, asech, acsch
+
+    In addition to taking a complex root (such as via the power
+    function on a complex value), "triground" is used for:
+
+	exp, polar
+
+    For the above mentioned functions, the rounding mode used to
+    round the result to the nearest epsilon value is controlled by,
+    and defaults to:
+
+	config("triground", 24)
+
+    As with other config options, the call returns the previous mode,
+    without a 2nd argument, returns the current mode without changing it:
+
+	config("triground")
+
+    When printing an error, calc used to print the errnum (error number):
+
+	; 1/0
+		Error 10001
+
+    Calc now prints the errsym (errsym):
+
+	; 1/0
+		Error E_DIVBYZERO
+
+    Added errsym E_LN_3 for ln(0).
+    Added errsym E_LOG_5 for log(0).
+    Added errsym E_LOG2_4 for log2(0).
+    Added errsym E_LOGN_6 for logn(0,base).
+
+    Added a chk_tree tool to help look for problems such as files that are
+    result of building calc that are also part of the calc distribution,
+    and files that are part of the calc source that are missing from the
+    calc distribution, and files that are of unknown status that are either
+    result of building calc nor missing from the calc distribution.
+
+    Updated file lists in Makefile, sorting as needed.
+
+    Updated Makefile PHONY rule to include Makefile rules that are NOT files.
+
+    Reduced make chatter for rules that build lists.
+
+    Added make verifydist to verify the existence of files that are part of
+    the calc distribution.
+
+    Added make verifydist to make prep.
+
+    Added a chk_tree double check, one after make clobber, one before
+    the final make chk, to make prep.  Added double pass of chk_tree to
+    make full_debug (and thus to the make debug output).
+
+    Improved notes for install locations in Makefile.config.
+
+    Added printing of ${BUILD_ALL} to make env output.
+
+
+The following are the changes from calc version 2.14.3.0 to 2.14.3.4:
 
     Fix typo in the `make debug` Makefile rule.
 
@@ -31,18 +528,80 @@ The following are the changes from calc version 2.14.3.1 to date:
 
 	ALLOW_CUSTOM="-UCUSTOM"
 
-    Added comments in Makefile.local for how to reduce dependency chains
-    under macOS.  XXX - this doesn't yet work so don't uncomment - XXX.
-
     Dropped support of Makefile.simple and custom/Makefile.simple.
     The calc version 2.14.3.0 is the last release that supported
     the Makefile.simple and custom/Makefile.simple files.
     Now, a make that supports makefile conditional syntax is required.
+    The simple target, a target that only was used for Makefile.simple
+    was removed.
+
+    Moved makefile variables that configure calc and configure how to
+    compile calc from Makefile into a new Makefile.config file.
+
+    The Makeifle includes the Makefile.config file.
+    The cal/Makeifle includes the Makefile.config file.
+    The cscript/Makeifle includes the Makefile.config file.
+    The custom/Makeifle includes the Makefile.config file.
+    The help/Makeifle includes the Makefile.config file.
+
+    Now, the Makefile.config file will consistently configure
+    calc and how calc is compiled and built by all calc Makefiles.
+    The custom/Makefile no longer includes Makefile.
 
     The platform target section from the old Makefile has been moved
-    to a new file, Makefile.target.  The Makefile.target is shared
-    by both Makefile and custom/Makefile.  The custom/Makefile no
-    longer includes Makefile (instead it includes ../Makefile.target).
+    to a new file, Makefile.target.  Improved the format and comments
+    in target information.
+
+    The Makeifle includes the Makefile.target file.
+    The cal/Makeifle includes the Makefile.target file.
+    The cscript/Makeifle includes the Makefile.target file.
+    The custom/Makeifle includes the Makefile.target file.
+    The help/Makeifle includes the Makefile.target file.
+
+    Now, the Makefile.target file will consistently set
+    target information for all calc Makefiles.
+
+    The cal/Makeifle includes the Makefile.local file.
+    The cscript/Makeifle includes the Makefile.local file.
+    The custom/Makeifle includes the Makefile.local file.
+    The help/Makeifle includes the Makefile.local file.
+
+    Thus, one may modify or append many Makefile variables
+    in all calc Makefiles.
+
+    Removed the ${CAL_PASSDOWN}, ${HELP_PASSDOWN}, ${HELP_PASSDOWN},
+    ${CSCRIPT_PASSDOWN} Makefile variables as the new Makefile
+    include files keep Makefile variables in sync.
+
+    Fixed the ability of calc to compile when CUSTOM is undefined
+    (i.e., -UCUSTOM).  The libcustcalc is always built, regardless
+    of the $(ALLOW_CUSTOM} Makefile variable.  However when CUSTOM
+    is undefined, the bulk of custom functions are not defined.
+
+    Dropped the use of Makefile variable ${SET_INSTALL_NAME}.
+    Under macOS it was always needed, elsewhere it was not.
+
+    Added Makefile variable ${VER} to hold the calc major release version.
+    The calc major release version is a 3 level version (x.y.z).
+
+    Under macOS, the current version of both libcalc and libcustcalc
+    shared libraries are set to the current calc major release version.
+
+    Under macOS, to reduce dependency chains, we remove functions and
+    data that are unreachable by the entry point or exported symbols.
+    In particular, the macOS linker is used with "-dead_strip" by default.
+
+    While calc on macOS will execute if linker used with "-dead_strip_dylibs"
+    and CUSTOM is defined, other applications that use libcalc but not
+    libcustcalc (such as sample_many and sample_rand) will fail to execute
+    due to missile symbols.  Therefore "-dead_strip_dylibs" is not used
+    by default when ALLOW_CUSTOM is "-DCUSTOM" under macOS.
+    Thanks to GitHub user @TurtleWilly for bringing to our attention,
+    problems related to use of  "-dead_strip_dylibs".
+
+    When installing shared libraries, libcalc.x.y.z will be a link
+    to the libcalc shared library and libcustcalc.x.y.z will be a link
+    to the libcustcal shared library.
 
 
 The following are the changes from calc version 2.14.2.1 to 2.14.3.0:
@@ -738,7 +1297,7 @@ The following are the changes from calc version 2.14.0.9 to 2.14.0.10:
 
     Remove unnecessary spaces in-between or next to tabs.
 
-    Update Copyright dates to account for 2021 modifications.
+    Update copyright dates to account for 2021 modifications.
 
 
 The following are the changes from calc version 2.14.0.7 to 2.14.0.8:
@@ -2929,7 +3488,7 @@ The following are the changes from calc version 2.12.0 to 2.12.0.8:
     Added a "make uninstall" rule which will attempt to remove everything
     that was installed by a "make install".
 
-    Changed the "Copyright" line in the rpm spec file to a "License" line
+    Changed the copyright line in the rpm spec file to a "License" line
     as per new rpm v4.4 syntax.
 
     The quomod() builtin function does not allow constants for its 3rd
@@ -3701,7 +4260,7 @@ The following are the changes from calc version 2.11.5t0 to 2.11.5t1.1:
     Fixed calc path in help/script.
 
     Added read-only parameter, config("windows") to indicate if the system
-    is MS windowz WIN32 like system.
+    is MS Windows WIN32 like system.
 
     Configuration values that used to return "true" or "false" now return
     1 (a true value) or 0 (a false value).  Thus one can do:
@@ -8747,7 +9306,7 @@ Following is a list of visible changes to calc from version 1.24.7 to 1.26.1:
 
     A small bug in the library file regress.cal was fixed.
 
-## Copyright (C) 2001-2017,2021,2022  Landon Curt Noll
+## Copyright (C) 2001-2017,2021-2023  Landon Curt Noll
 ##
 ## Calc is open software; you can redistribute it and/or modify it under
 ## the terms of the version 2.1 of the GNU Lesser General Public License

HOWTO.INSTALL

@@ -9,6 +9,7 @@ and see if there is a pre-compiled version of calc that you may install.
 Open up the 'Assets' tag below a given release and download these RPMs:
 
     * calc*.rpm
+
 	- all that is needed if you just want to use calc
 
 If your platform supports rpm and matches one of the "calc*.rpm" files, you
@@ -23,6 +24,7 @@ In addition, if your platform supports rpm and matches one of the
 files for use in other programs:
 
     * calc-devel-*.rpm
+
 	- calc *.h header and *.a lib files for use in other programs
 
 Alternately to the above github link, you might try looking at the RPMs under:
@@ -81,9 +83,6 @@ than the top of the master branch.
 
 ## Step 1: Makefile considerations
 
-Look at Makefile, and adjust it to suit your needs.
-
-
 
 ### IMPORTANT: Make support of conditional syntax required:
 
@@ -100,21 +99,48 @@ The Gnu Make is not required per-se, just a modern make tool
 that supports "Conditional syntax".
 
 
+### Review Makefiles
 
-### Suggestion: Modify Makefile.local instead of Makefile:
+Review Makefile.config and Makefile.target.
+
+If you are curious, review Makefile as well, although
+there may be little in the main Makefile that you may
+want to change.
+
+Consider modifying Makefile.local by replace values or
+appending values found in Makefile.config and Makefile.target.
+
+If you are adding custom functions, review custom/Makefile
+and modify custom/Makefile as needed.
+
+
+
+### Suggestion: Modify Makefile.local
+
+All Makefiles include Makefile.local just before the
+first and default all rule.  So Makefile.local may be
+used to modify, replace or append values to Makefile variables.
 
 In most cases, to change the way that calc is made, consider
-adding lines to Makefile.local instead of modifying Makefile.
+adding lines to Makefile.local instead of modifying other Makefiles.
 
-A recommened way to adjust it is to add lines to: Makefile.local
+A recommended way to adjust it is to add lines to: Makefile.local
 using the := syntax to replace values such as:
 
     DEBUG:= -O0 -g
 
 or by using the += syntax to append to values such as:
 
-    CFLAGS+= -UCUSTOM
+    DEBUG+= -ipa
 
+You can, of course, modify other Makefiles.  We only
+suggest using Makefile.local to minimize the number
+of source files you modify.
+
+And finally, you can always just add arguments to your
+make command line instead of modifying a Makefile.  For example:
+
+    make clobber all DEBUG="-O0 -g"
 
 
 ## readline package assumed by default:
@@ -167,6 +193,8 @@ or add to Makefile.local, these lines:
     READLINE_INCLUDE=
     READLINE_LIB=
 
+See the "Suggestion: Modify Makefile.local" section above for
+information on the Makefile.local file.
 
 
 ### Windows or a Windows-like environments:
@@ -230,6 +258,8 @@ instead of Makefile" above.  For example:
 
     T:= /var/tmp/testing
 
+See the "Suggestion: Modify Makefile.local" section above for
+information on the Makefile.local file.
 
 
 ### platform target section
@@ -241,7 +271,7 @@ The current list of targets in Makefile.target are:
 - Apple macOS / Darwin target
 - FreeBSD target
 - OpenBSD target
-- Cygwin target
+- Cygwin target (as well as Msys2 / Msys OSNAME)
 - simple target
 - default target (when target is empty)
 

LIBRARY

@@ -415,11 +415,23 @@ the low order bits converted.
 
 There are two types of comparisons you can make on ZVALUEs.  This is whether
 or not they are equal, or the ordering on size of the numbers.	The zcmp
-function tests whether two ZVALUEs are equal, returning TRUE if they differ.
+function tests whether two ZVALUEs are equal, returning true if they differ.
 The zrel function tests the relative sizes of two ZVALUEs, returning -1 if
 the first one is smaller, 0 if they are the same, and 1 if the first one
 is larger.
 
+To determine if z is an integer power of 2, use zispowerof2:
+
+	ZVALUE z;		/* value to check if it is a power of */
+	FULL log2;		/* set to log base 2 of z when is_power_of_2 is true */
+	bool is_power_of_2;
+
+	is_power_of_2 = zispowerof2(z, &log2)
+
+Returns true if z an integer power of 2: set log2 to log base 2 of z.
+Returns false if z is NOT integer power of 2 and leave log2 untouched.
+The log2 arg must be a non-NULL pointer to a ZVALUE.
+
 ---------------
 USING FRACTIONS
 ---------------
@@ -453,11 +465,12 @@ a number into the corresponding NUMBER.	 The str2q function accepts input in
 integral, fractional, real, or exponential formats.  Examples of allocating
 numbers are:
 
-	NUMBER *q1, *q2, *q3;
+	NUMBER *q1, *q2, *q3, *q4;
 
 	q1 = itoq(66L);
 	q2 = iitoq(2L, 3L);
 	q3 = str2q("456.78");
+	q4 = utoq((FULL) 1234567890L);
 
 Also unlike ZVALUEs, NUMBERs are quickly copied.  This is because they contain
 a link count, which is the number of pointers there are to the NUMBER.	The
@@ -473,11 +486,13 @@ the ZVALUEs contained within the NUMBER, and then puts the NUMBER structure
 onto a free list for quick reuse.  The following is an example of allocating
 NUMBERs, copying them, adding them, and finally deleting them again.
 
-	NUMBER *q1, *q2, *q3;
+	NUMBER *q1, *q2, *q3, *q4;
 
 	q1 = itoq(111L);
 	q2 = qlink(q1);
 	q3 = qqadd(q1, q2);
+	q4 = qnum(q2, q3);
+
 	qfree(q1);
 	qfree(q2);
 	qfree(q3);
@@ -524,7 +539,7 @@ macros are:
 	qistwo(q)		(number is 2)
 	qiseven(q)		(number is an even integer)
 	qisodd(q)		(number is an odd integer)
-	qistwopower(q)	(number is a power of 2 >= 1)
+	qisreciprocal(q)	(number is 1 / an integer and q != 0)
 
 The comparisons for NUMBERs are similar to the ones for ZVALUEs.  You use the
 qcmp and qrel functions.
@@ -538,6 +553,20 @@ These have the values 0, 1, -1, and 1/2.  An example of using them is:
 	q1 = qlink(&_qonehalf_);
 	q2 = qlink(&_qone_);
 
+To determine if q is an integer power of 2, use qispowerof2:
+
+	NUMBER *q;		/* value to check if it is a power of */
+	NUMBER *qlog2;		/* set to log base 2 of q when is_power_of_2 is true */
+	bool is_power_of_2;
+
+	q = utoq((FULL) 1234567890L);
+	qlog2 = qalloc();
+	is_power_of_2 = qispowerof2(q, &qlog2);
+
+Returns true if q an integer power of 2: set *qlog2 to log base 2 of q.
+Returns false if q is NOT integer power of 2 and leave *qlog2 untouched.
+Use qalloc() to setup the qlog2 arg before calling.
+
 ---------------------
 USING COMPLEX NUMBERS
 ---------------------
@@ -605,7 +634,31 @@ only used for complex numbers.	Examples of macros are:
 	cisodd(c)	(number is has odd real and imaginary parts)
 
 There is only one comparison you can make for COMPLEX values, and that is
-for equality.  The ccmp function returns TRUE if two complex numbers differ.
+for equality.  The ccmp function returns true if two complex numbers differ.
+
+Sometimes to results of a COMPLEX based calculation is a real number.
+That is, the imaginary part of the COMPLEX is 0.  You may convert the
+COMPLEX into a new allocated NUMBER that is real part of the COMPLEX value.
+For example:
+
+	COMPLEX *c;
+	NUMBER *q;
+	bool ok_to_free;	/* true ==> free COMPLEX value, false ==> do not */
+
+	if (cisreal(c)) {
+		q = c_to_q(c, ok_to_free);
+	}
+
+The 2nd argument to c_to_q() determines if the complex argument should be freed
+or not.  Pass a false value as the 2nd arg if you wish to continue to use the
+COMPLEX value.
+
+To convert a NUMBER into a COMPLEX value, use:
+
+	COMPLEX *c;
+	NUMBER *q;
+
+	c = q_to_c(q);
 
 There are three predefined values for complex numbers.	You should clink
 them when you want to use them.	 They are _czero_, _cone_, and _conei_.
@@ -622,7 +675,7 @@ call.  This is not required, but is does bring things to a closure.
 The function libcalc_call_me_last() takes no args and returns void.  You
 need call libcalc_call_me_last() only once.
 
-## Copyright (C) 1999,2021  David I. Bell and Landon Curt Noll
+## Copyright (C) 1999,2021,2023  David I. Bell and Landon Curt Noll
 ##
 ## Calc is open software; you can redistribute it and/or modify it under
 ## the terms of the version 2.1 of the GNU Lesser General Public License

Makefile.local

@@ -1,19 +1,45 @@
 #!/usr/bin/env make
 #
-# Makefile.local - local Makefile variables
+# Makefile.local - modify, replace or append calc Makefile variables
 #
-# This file is included by Makefile after the last Makefile is set and
-# before the first make rule.  This makes this file suitable to override
-# Makefile variables.
+# Copyright (C) 2023  Landon Curt Noll
+#
+# Suggestion: Read the HOWTO.INSTALL file.
+#
+# Calc is open software; you can redistribute it and/or modify it under
+# the terms of version 2.1 of the GNU Lesser General Public License
+# as published by the Free Software Foundation.
+#
+# Calc is distributed in the hope that it will be useful, but WITHOUT
+# ANY WARRANTY; without even the implied warranty of MERCHANTABILITY
+# or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU Lesser General
+# Public License for more details.
+#
+# A copy of version 2.1 of the GNU Lesser General Public License is
+# distributed with calc under the filename COPYING-LGPL.  You should have
+# received a copy with calc; if not, write to Free Software Foundation, Inc.
+# 59 Temple Place, Suite 330, Boston, MA  02111-1307, USA.
+#
+# This calculator first developed by David I. Bell with help/mods from others.
+#
+# chongo <was here> /\oo/\	http://www.isthe.com/chongo/
+# Share and enjoy!  :-)		http://www.isthe.com/chongo/tech/comp/calc/
+
+####
+# This file is included all calc Makefiles after the last Makefile variable
+# is set and before the first make rule.  This makes this file suitable to
+# modify, replace or append Makefile variables.
 #
 # To replace a Makefile variable, use := symbols.  For example:
 #
 #	CCWERR:= -Werror
+#	DEBUG:= -O0 -g
 #
 # You can append to an existing Makefile variable using '+=' symbols.
 # For example:
 #
-#	CFLAGS+= -Ofast
+#	CCOPT+= -Ofast
+#	COMMON_CFLAGS+= -std=gnu2x
 ####
 
 ###################################################################
@@ -24,74 +50,51 @@
 ###################################################################
 
 ####
-# RHEL Diagnosing memory, thread, and crash issues:
+# Force calc to install under /usr/local
 #
-# For more info see: https://github.com/google/sanitizers/wiki/AddressSanitizer
+# PREFIX:= /usr/local
+# BINDIR:= ${PREFIX}/bin
+# LIBDIR:= ${PREFIX}/lib
+# CALC_SHAREDIR:= ${PREFIX}/share/calc
+# CALC_INCDIR:= ${PREFIX}/include/calc
+####
+
+####
+# macOS Address Sanitizer (ASAN)
 #
 # This comment block was tested under:
 #
-#	RHEL9 gcc version 11.3.1 20221121 (Red Hat 11.3.1-4) (GCC)
+# 	macOS 14.0 with Apple clang version 15.0.0 (clang-1500.0.40.1) for arm64
 #
-# with:
+# See the FSANITIZE comment block in Makefile.config for common FSANITIZE values and more info.
+#
+# To use the Address Sanitizer, uncomment this set set of lines and recompile (make clobber all):
+#
+# FSANITIZE+= -fsanitize=nullability-arg
+# FSANITIZE+= -fsanitize=nullability-assign
+# FSANITIZE+= -fsanitize=nullability-return
+# CFLAGS+= ${FSANITIZE}
+# LDFLAGS+= ${FSANITIZE}
+# DEBUG:= -O0 -g3
+####
+
+####
+# RHEL (Linux) Address Sanitizer (ASAN)
+#
+# This comment block was tested under:
+#
+#	RHEL9.2 with clang version 15.0.7 (Red Hat 15.0.7-2.el9) for x86_64
+#
+# with these RPMs installed:
 #
 # 	libasan-11.3.1-4.3.el9.x86_64 libubsan-11.3.1-4.3.el9.x86_64
 #
-# NOTE: With the above version, these are NOT supported:
+# See the FSANITIZE comment block in Makefile.config for common FSANITIZE values and more info.
 #
-#    UNSUPPORTED_FSANITIZE:= -fsanitize=nullability-arg -fsanitize=nullability-assign
+# To use the Address Sanitizer, uncomment this set set of lines and recompile (make clobber all):
 #
-# Uncomment these lines:
-#
-# DEBUG:= -O0 -g
-# FSANITIZE:= -fsanitize=undefined -fsanitize=address -fsanitize=bool -fsanitize=bounds
-# FSANITIZE+= -fsanitize=enum -fsanitize=vptr -fsanitize=integer-divide-by-zero
-# FSANITIZE+= -fsanitize=float-divide-by-zero -fsanitize=float-cast-overflow
-# FSANITIZE+= -fsanitize=nonnull-attribute -fsanitize=returns-nonnull-attribute
-# FSANITIZE+= -fsanitize=null -fsanitize=shift -fsanitize=signed-integer-overflow
-# FSANITIZE+= -fsanitize=unreachable -fsanitize=vla-bound
-# CFLAGS+= -Wno-invalid-command-line-argument ${FSANITIZE} -fno-omit-frame-pointer
-# LDFLAGS+= -Wno-invalid-command-line-argument ${FSANITIZE} -fno-omit-frame-pointer
-# CALC_ENV+= ASAN_OPTIONS=detect_stack_use_after_return=1
-####
-
-####
-# macOS Diagnosing memory, thread, and crash issues:
-#
-# For more info see: https://github.com/google/sanitizers/wiki/AddressSanitizer
-#
-# This comment block was tested under:
-#
-#	macOS 13.5 with clang version 14.0.3 (clang-1403.0.22.14.1)
-#
-# For more info for clang to Diagnosing memory, thread, and crash issues early, see:
-#
-#    https://developer.apple.com/documentation/xcode/diagnosing-memory-thread-and-crash-issues-early
-#
-# NOTE: With the above version, these are NOT supported:
-#
-#    UNSUPPORTED_FSANITIZE:= -fsanitize-nullability-return
-#
-# Uncomment these lines:
-#
-# DEBUG:= -O0 -g
-# FSANITIZE:= -fsanitize=undefined -fsanitize=address -fsanitize=bool -fsanitize=bounds
-# FSANITIZE+= -fsanitize=enum -fsanitize=vptr -fsanitize=integer-divide-by-zero
-# FSANITIZE+= -fsanitize=float-divide-by-zero -fsanitize=float-cast-overflow
-# FSANITIZE+= -fsanitize=nonnull-attribute -fsanitize=nullability-arg
-# FSANITIZE+= -fsanitize=nullability-assign -fsanitize=returns-nonnull-attribute
-# FSANITIZE+= -fsanitize=null -fsanitize=object-size -fsanitize=shift
-# FSANITIZE+= -fsanitize=signed-integer-overflow -fsanitize=unreachable -fsanitize=vla-bound
-# CFLAGS+= -Wno-invalid-command-line-argument ${FSANITIZE} -fno-omit-frame-pointer
-# LDFLAGS+= -Wno-invalid-command-line-argument ${FSANITIZE} -fno-omit-frame-pointer
-# CALC_ENV+= ASAN_OPTIONS=detect_stack_use_after_return=1
-####
-
-####
-# To reduce dependency chains under macOS:
-#
-# This comment block was tested under:
-#
-#	macOS 13.5 with clang version 14.0.3 (clang-1403.0.22.14.1)
-#
-# LDFLAGS+= -Wl,-dead_strip_dylibs -Wl,-dead_strip
-####
+# FSANITIZE+= -fsanitize=bounds
+# CFLAGS+= ${FSANITIZE}
+# LDFLAGS+= ${FSANITIZE}
+# DEBUG:= -O0 -g3
+###

Makefile.target

@@ -19,6 +19,17 @@
 # distributed with calc under the filename COPYING-LGPL.  You should have
 # received a copy with calc; if not, write to Free Software Foundation, Inc.
 # 59 Temple Place, Suite 330, Boston, MA  02111-1307, USA.
+#
+# This calculator first developed by David I. Bell with help/mods from others.
+#
+# chongo <was here> /\oo/\	http://www.isthe.com/chongo/
+# Share and enjoy!  :-)		http://www.isthe.com/chongo/tech/comp/calc/
+
+
+# SUGGESTION: Instead of modifying this file, consider adding
+#	      statements to modify, replace or append Makefile
+#	      variables in the Makefile.local file.
+
 
 #######################################################################
 # NOTE: These lines are included by both Makefile and custom/Makefile #
@@ -86,44 +97,34 @@
 #
 # Specific target overrides or modifications to default values
 
+
 ################
 # Linux target #
 ################
 
 ifeq ($(target),Linux)
+
+# default build type for this target
 #
 BLD_TYPE= calc-dynamic-only
+
+# target specific library parameters
 #
 CC_SHARE= -fPIC
 DEFAULT_LIB_INSTALL_PATH= ${PWD}:/lib:/usr/lib:${LIBDIR}:${PREFIX}/lib
 LD_SHARE= "-Wl,-rpath,${DEFAULT_LIB_INSTALL_PATH}" \
     "-Wl,-rpath-link,${DEFAULT_LIB_INSTALL_PATH}"
 LIBCALC_SHLIB= -shared "-Wl,-soname,libcalc${LIB_EXT_VERSION}"
-ifeq ($(ALLOW_CUSTOM),-DCUSTOM)
 LIBCUSTCALC_SHLIB= -shared "-Wl,-soname,libcustcalc${LIB_EXT_VERSION}"
-else
-LIBCUSTCALC_SHLIB=
-endif
+
+# static library option
 #
 CC_STATIC=
 LD_STATIC=
 LIBCALC_STATIC=
 LIBCUSTCALC_STATIC=
-#
-# If you want to add flags to all compiler and linker
-# run (via ${COMMON_CFLAGS} and ${COMMON_LDFLAGS}),
-# set ${COMMON_ADD}.
-#
-# For example to use gcc's -Werror to force warnings
-# to become errors, call make with:
-#
-#   make .. COMMON_ADD='-Werror'
-#
-# This facility requires a Gnu Makefile, or a make command
-# that understands the += make operand.
-#
-COMMON_CFLAGS+= ${COMMON_ADD}
-COMMON_LDFLAGS+= ${COMMON_ADD}
+
+# common values set for this target
 #
 #CCWARN= -Wall
 CCWARN= -Wall -Wextra -pedantic
@@ -133,73 +134,59 @@ WNO_LONG_LONG= -Wno-long-long
 CCWERR=
 CCOPT= ${DEBUG}
 CCMISC=
-#
 LCC= gcc
 CC= ${PURIFY} ${LCC} ${CCWERR}
-#
-endif
+
+endif	# ($(target),Linux)
+
 
 ###############################
 # Apple macOS / Darwin target #
 ###############################
 
+ifeq ($(target),Darwin)
+
+# default build type for this target
+#
+BLD_TYPE= calc-dynamic-only
+
 # For old Apple Power PC systems, we need to add:
 #
 #	-std=gnu99 -arch ppc
 #
 ifeq ($(arch),powerpc)
-COMMON_CFLAGS+= -std=gnu99
-COMMON_LDFLAGS+= -std=gnu99
+COMMON_ADD+= -std=gnu99
 ARCH_CFLAGS+= -arch ppc
-endif
+endif	# ($(arch),powerpc)
 
-ifeq ($(target),Darwin)
-#
-BLD_TYPE= calc-dynamic-only
+# target specific library parameters
 #
 CC_SHARE= -fPIC
 DEFAULT_LIB_INSTALL_PATH= ${PWD}:${LIBDIR}:${PREFIX}/lib
 LD_SHARE= ${ARCH_CFLAGS}
-#SET_INSTALL_NAME= no
-SET_INSTALL_NAME= yes
-ifeq ($(SET_INSTALL_NAME),yes)
-LIBCALC_SHLIB= -single_module -undefined dynamic_lookup -dynamiclib \
-    -install_name ${LIBDIR}/libcalc${LIB_EXT_VERSION} ${ARCH_CFLAGS}
-else
-LIBCALC_SHLIB= -single_module -undefined dynamic_lookup -dynamiclib \
+LIBCALC_SHLIB= -dynamiclib -undefined dynamic_lookup \
+    -install_name ${LIBDIR}/libcalc${LIB_EXT_VERSION} \
+    -current_version ${VER} \
     ${ARCH_CFLAGS}
-endif
-ifeq ($(ALLOW_CUSTOM),-DCUSTOM)
-ifeq ($(SET_INSTALL_NAME),yes)
-LIBCUSTCALC_SHLIB= -single_module -undefined dynamic_lookup -dynamiclib \
-    -install_name ${LIBDIR}/libcustcalc${LIB_EXT_VERSION} ${ARCH_CFLAGS}
-else
-LIBCUSTCALC_SHLIB= -single_module -undefined dynamic_lookup -dynamiclib \
+LIBCUSTCALC_SHLIB= -dynamiclib -undefined dynamic_lookup \
+    -install_name ${LIBDIR}/libcustcalc${LIB_EXT_VERSION} \
+    -current_version ${VER} \
     ${ARCH_CFLAGS}
-endif
-else
-LIBCUSTCALC_SHLIB=
-endif
+
+# To reduce dependency chains under macOS, we remove functions and
+# data that are unreachable by the entry point or exported symbols.
+#
+COMMON_LDFLAGS+= -Wl,-dead_strip
+COMMON_LDFLAGS+= -Wl,-dead_strip_dylibs
+
+# static library option
 #
 CC_STATIC=
 LD_STATIC= ${ARCH_CFLAGS}
 LIBCALC_STATIC=
 LIBCUSTCALC_STATIC=
-# If you want to add flags to all compiler and linker
-# run (via ${COMMON_CFLAGS} and ${COMMON_LDFLAGS}),
-# set ${COMMON_ADD}.
-#
-# For example to use clang's -fsanitize for calc testing,
-# which requires a common set of flags to be passed to
-# every compile and link, then call make with:
-#
-#   make .. COMMON_ADD='-fsanitize=undefined -fsanitize=address'
-#
-# This facility requires a Gnu Makefile, or a make command
-# that understands the += make operand.
-#
-COMMON_CFLAGS+= ${COMMON_ADD}
-COMMON_LDFLAGS+= ${COMMON_ADD}
+
+# common values set for this target
 #
 #CCWARN= -Wall
 CCWARN= -Wall -Wextra -pedantic
@@ -209,55 +196,46 @@ WNO_LONG_LONG= -Wno-long-long
 CCWERR=
 CCOPT= ${DEBUG}
 CCMISC= ${ARCH_CFLAGS}
-#
 LCC= cc
 CC= ${PURIFY} ${LCC} ${CCWERR}
-#
+
 # Darwin dynamic shared lib filenames
+#
 LIB_EXT:= .dylib
 LIB_EXT_VERSION:= .${VERSION}${LIB_EXT}
+
 # LDCONFIG not required on this platform, so we redefine it to an empty string
+#
 LDCONFIG:=
-endif
+
+endif	# ($(target),Darwin)
+
 
 ##################
 # FreeBSD target #
 ##################
 
 ifeq ($(target),FreeBSD)
+
+# default build type for this target
 #
 BLD_TYPE= calc-dynamic-only
+
+# target specific library parameters
 #
 CC_SHARE= -fPIC
 DEFAULT_LIB_INSTALL_PATH= ${PWD}:/lib:/usr/lib:${LIBDIR}:${PREFIX}/lib
 LD_SHARE= "-Wl,-rpath,${DEFAULT_LIB_INSTALL_PATH}" \
     "-Wl,-rpath-link,${DEFAULT_LIB_INSTALL_PATH}"
 LIBCALC_SHLIB= -shared "-Wl,-soname,libcalc${LIB_EXT_VERSION}"
-ifeq ($(ALLOW_CUSTOM),-DCUSTOM)
 LIBCUSTCALC_SHLIB= -shared "-Wl,-soname,libcustcalc${LIB_EXT_VERSION}"
-else
-LIBCUSTCALC_SHLIB=
-endif
-#
+
 CC_STATIC=
 LD_STATIC=
 LIBCALC_STATIC=
 LIBCUSTCALC_STATIC=
-#
-# If you want to add flags to all compiler and linker
-# run (via ${COMMON_CFLAGS} and ${COMMON_LDFLAGS}),
-# set ${COMMON_ADD}.
-#
-# For example to use gcc's -Werror to force warnings
-# to become errors, call make with:
-#
-#   make .. COMMON_ADD='-Werror'
-#
-# This facility requires a Gnu Makefile, or a make command
-# that understands the += make operand.
-#
-COMMON_CFLAGS+= ${COMMON_ADD}
-COMMON_LDFLAGS+= ${COMMON_ADD}
+
+# common values set for this target
 #
 #CCWARN= -Wall
 CCWARN= -Wall -Wextra -pedantic
@@ -267,52 +245,44 @@ WNO_LONG_LONG= -Wno-long-long
 CCWERR=
 CCOPT= ${DEBUG}
 CCMISC=
-#
 LCC= gcc
 CC= ${PURIFY} ${LCC} ${CCWERR}
+
+# We must use gmake as the FreeBSD target because under some older
+# releases of FreeBSD, make not support conditional syntax.
 #
 MAKE= gmake
-#
-endif
+
+endif	# ($(target),FreeBSD)
+
 
 ##################
 # OpenBSD target #
 ##################
 
 ifeq ($(target),OpenBSD)
+
+# default build type for this target
 #
 BLD_TYPE= calc-dynamic-only
+
+# default build type for this target
 #
 CC_SHARE= -fPIC
 DEFAULT_LIB_INSTALL_PATH= ${PWD}:/lib:/usr/lib:${LIBDIR}:${PREFIX}/lib
 LD_SHARE= "-Wl,-rpath,${DEFAULT_LIB_INSTALL_PATH}" \
     "-Wl,-rpath-link,${DEFAULT_LIB_INSTALL_PATH}"
 LIBCALC_SHLIB= -shared "-Wl,-soname,libcalc${LIB_EXT_VERSION}"
-ifeq ($(ALLOW_CUSTOM),-DCUSTOM)
 LIBCUSTCALC_SHLIB= -shared "-Wl,-soname,libcustcalc${LIB_EXT_VERSION}"
-else
-LIBCUSTCALC_SHLIB=
-endif
+
+# static library option
 #
 CC_STATIC=
 LD_STATIC=
 LIBCALC_STATIC=
 LIBCUSTCALC_STATIC=
-#
-# If you want to add flags to all compiler and linker
-# run (via ${COMMON_CFLAGS} and ${COMMON_LDFLAGS}),
-# set ${COMMON_ADD}.
-#
-# For example to use gcc's -Werror to force warnings
-# to become errors, call make with:
-#
-#   make .. COMMON_ADD='-Werror'
-#
-# This facility requires a Gnu Makefile, or a make command
-# that understands the += make operand.
-#
-COMMON_CFLAGS+= ${COMMON_ADD}
-COMMON_LDFLAGS+= ${COMMON_ADD}
+
+# common values set for this target
 #
 #CCWARN= -Wall
 CCWARN= -Wall -Wextra -pedantic
@@ -328,46 +298,34 @@ CC= ${PURIFY} ${LCC} ${CCWERR}
 #
 MAKE= gmake
 #
-endif
+endif	# ($(target),OpenBSD)
+
 
 #################
 # Cygwin target #
 #################
 
 ifeq ($(target),Cygwin)
-#
+
 BLD_TYPE= calc-static-only
+
+# target specific library parameters
 #
 CC_SHARE= -fPIC
 DEFAULT_LIB_INSTALL_PATH= ${PWD}:/lib:/usr/lib:${LIBDIR}:${PREFIX}/lib
 LD_SHARE= "-Wl,-rpath,${DEFAULT_LIB_INSTALL_PATH}" \
     "-Wl,-rpath-link,${DEFAULT_LIB_INSTALL_PATH}"
 LIBCALC_SHLIB= -shared "-Wl,-soname,libcalc${LIB_EXT_VERSION}"
-ifeq ($(ALLOW_CUSTOM),-DCUSTOM)
 LIBCUSTCALC_SHLIB= -shared "-Wl,-soname,libcustcalc${LIB_EXT_VERSION}"
-else
-LIBCUSTCALC_SHLIB=
-endif
+
+# static library option
 #
 CC_STATIC=
 LIBCALC_STATIC=
 LIBCUSTCALC_STATIC=
 LD_STATIC=
-#
-# If you want to add flags to all compiler and linker
-# run (via ${COMMON_CFLAGS} and ${COMMON_LDFLAGS}),
-# set ${COMMON_ADD}.
-#
-# For example to use gcc's -Werror to force warnings
-# to become errors, call make with:
-#
-#   make .. COMMON_ADD='-Werror'
-#
-# This facility requires a Gnu Makefile, or a make command
-# that understands the += make operand.
-#
-COMMON_CFLAGS+= ${COMMON_ADD}
-COMMON_LDFLAGS+= ${COMMON_ADD}
+
+# common values set for this target
 #
 #CCWARN= -Wall
 CCWARN= -Wall -Wextra -pedantic
@@ -377,65 +335,11 @@ WNO_LONG_LONG= -Wno-long-long
 CCWERR=
 CCOPT= ${DEBUG}
 CCMISC=
-#
 LCC= cc
 CC= ${PURIFY} ${LCC} ${CCWERR}
-#
-endif
 
-#################
-# simple target #
-#################
+endif	# ($(target),Cygwin)
 
-# NOTE: This is not a real host target.  It is just a best
-#	attempt is a generic host not otherwise found above.
-
-ifeq ($(target),simple)
-#
-BLD_TYPE= calc-static-only
-#
-CC_SHARE= -fPIC
-DEFAULT_LIB_INSTALL_PATH= ${PWD}:/lib:/usr/lib:${LIBDIR}:${PREFIX}/lib
-LD_SHARE= "-Wl,-rpath,${DEFAULT_LIB_INSTALL_PATH}" \
-    "-Wl,-rpath-link,${DEFAULT_LIB_INSTALL_PATH}"
-LIBCALC_SHLIB= -shared "-Wl,-soname,libcalc${LIB_EXT_VERSION}"
-ifeq ($(ALLOW_CUSTOM),-DCUSTOM)
-LIBCUSTCALC_SHLIB= -shared "-Wl,-soname,libcustcalc${LIB_EXT_VERSION}"
-else
-LIBCUSTCALC_SHLIB=
-endif
-#
-CC_STATIC=
-LD_STATIC=
-LIBCALC_STATIC=
-LIBCUSTCALC_STATIC=
-#
-#CCWARN= -Wall
-CCWARN= -Wall -Wextra -pedantic
-WNO_IMPLICT= -Wno-implicit
-WNO_ERROR_LONG_LONG= -Wno-error=long-long
-WNO_LONG_LONG= -Wno-long-long
-CCWERR=
-CCOPT= ${DEBUG}
-CCMISC=
-#
-LCC= cc
-CC= ${PURIFY} ${LCC} ${CCWERR}
-#
-# The simple makefile forces the use of static ${CC} flags
-#
-# ICFLAGS are given to ${CC} for intermediate programs used to help compile calc
-# CFLAGS are given to ${CC} for calc programs other than intermediate programs
-# ILDFLAGS for ${CC} in linking intermediate programs used to help compile calc
-# LDFLAGS for ${CC} in linking calc programs other than intermediate programs
-#
-ICFLAGS= ${COMMON_CFLAGS} ${CCBAN} ${CC_STATIC}
-CFLAGS= ${ICFLAGS} ${CCOPT}
-#
-ILDFLAGS= ${COMMON_LDFLAGS} ${LD_STATIC}
-LDFLAGS= ${LD_DEBUG} ${ILDFLAGS} ${LIBCALC_STATIC} ${LIBCUSTCALC_STATIC}
-#
-endif
 
 ###########################################
 # default target - (when target is empty) #
@@ -445,25 +349,47 @@ endif
 #	host target matches.
 
 ifeq ($(target),)
+
+# default build type for this target
 #
 BLD_TYPE= calc-static-only
+
+# target specific library parameters
 #
 CC_SHARE= -fPIC
 DEFAULT_LIB_INSTALL_PATH= ${PWD}:/lib:/usr/lib:${LIBDIR}:${PREFIX}/lib
 LD_SHARE= "-Wl,-rpath,${DEFAULT_LIB_INSTALL_PATH}" \
     "-Wl,-rpath-link,${DEFAULT_LIB_INSTALL_PATH}"
 LIBCALC_SHLIB= -shared "-Wl,-soname,libcalc${LIB_EXT_VERSION}"
-ifeq ($(ALLOW_CUSTOM),-DCUSTOM)
 LIBCUSTCALC_SHLIB= -shared "-Wl,-soname,libcustcalc${LIB_EXT_VERSION}"
-else
-LIBCUSTCALC_SHLIB=
-endif
+
+# static library option
 #
 CC_STATIC=
 LIBCALC_STATIC=
 LIBCUSTCALC_STATIC=
 LD_STATIC=
+
+# common values set for this target
 #
+#CCWARN= -Wall
+CCWARN= -Wall -Wextra -pedantic
+WNO_IMPLICT= -Wno-implicit
+WNO_ERROR_LONG_LONG= -Wno-error=long-long
+WNO_LONG_LONG= -Wno-long-long
+CCWERR=
+CCOPT= ${DEBUG}
+CCMISC=
+LCC= gcc
+CC= ${PURIFY} ${LCC} ${CCWERR}
+
+endif	# ($(target),)
+
+
+###########################################
+# Set the default compile flags for ${CC} #
+###########################################
+
 # If you want to add flags to all compiler and linker
 # run (via ${COMMON_CFLAGS} and ${COMMON_LDFLAGS}),
 # set ${COMMON_ADD}.
@@ -478,23 +404,6 @@ LD_STATIC=
 #
 COMMON_CFLAGS+= ${COMMON_ADD}
 COMMON_LDFLAGS+= ${COMMON_ADD}
-#
-#CCWARN= -Wall
-CCWARN= -Wall -Wextra -pedantic
-WNO_IMPLICT= -Wno-implicit
-WNO_ERROR_LONG_LONG= -Wno-error=long-long
-WNO_LONG_LONG= -Wno-long-long
-CCWERR=
-CCOPT= ${DEBUG}
-CCMISC=
-#
-LCC= gcc
-CC= ${PURIFY} ${LCC} ${CCWERR}
-endif
-
-###########################################
-# Set the default compile flags for ${CC} #
-###########################################
 
 # Required flags to compile C files for calc
 #
@@ -505,9 +414,9 @@ endif
 #
 ifeq ($(BLD_TYPE),calc-static-only)
 ICFLAGS= ${COMMON_CFLAGS} ${CCBAN} ${CC_STATIC}
-else
+else	# ($(BLD_TYPE),calc-static-only)
 ICFLAGS= ${COMMON_CFLAGS} ${CCBAN} ${CC_SHARE}
-endif
+endif	# ($(BLD_TYPE),calc-static-only)
 CFLAGS= ${ICFLAGS} ${CCOPT}
 
 # Required flags to link files for calc

README.RELEASE

@@ -32,9 +32,40 @@ neither a change to the internal representation format (a top level
 version change), nor were there new calc builtins introduced in such
 a top 3 level release.
 
-There are 3 classes of changes to the calc source tree:
 
-alpha		=> untagged GitHub commit
+The file, "version.h" defines the 4 version levels:
+
+    MAJOR_VER		/* level 1: major library version */
+    MINOR_VER		/* level 2: minor library version */
+    MAJOR_PATCH		/* level 3: major software version level */
+    MINOR_PATCH		/* level 4: minor software version level */
+
+
+The program "ver_calc" will print information about the compiled
+calc version as defined "version.h" when "ver_calc" was compiled:
+
+    usage: ./ver_calc [-h] [-V]
+
+	-h	print this message and exit non-zero
+	-V	print 3-level version (def: print 4-level version)
+
+Also "calc -v" will print the calc version as defined "version.h" when
+"calc" was compiled.
+
+The master branch:
+
+    The public repository of calc source code is:
+
+	http://github.com/lcn2/calc
+
+    On that GitHub site you may find released version of calc,
+    "production", "tested" and "alpha".  All commits on the master
+    branch that are not associated with a release are "alpha".
+
+    Any "alpha" commit is likely future code for a future
+    "tested" or "production" version of calc.
+
+alpha		==> untagged GitHub commit
 
 	Any untagged commit to the GitHub master branch should be
 	considered as alpha code that may make calc unstable.
@@ -43,7 +74,17 @@ alpha		=> untagged GitHub commit
 	there is a risk that picking up such a change could
 	negatively impact the code.
 
-tested		=> tagged GitHub pre-release commit
+	NOTE: The calc version found in "version.h", and printed
+	      by both "ver_calc [-V]" and "calc -v" for an untagged
+	      commit is the previous "tested" or "production" version
+	      of calc.  Any "alpha" changes that remain are code
+	      for some future version of calc.
+
+	      At the last stage of the release process, "version.h"
+	      will be updated as well as the top level version range
+	      listed in "CHANGES".
+
+tested		==> tagged GitHub pre-release commit
 
 	A new version of calc has been released and has recently passed
 	regression testing on at least to different platforms and chip
@@ -63,7 +104,7 @@ tested		=> tagged GitHub pre-release commit
 	 At the bottom of a given release is a "> Assets" that may
 	 be opened to reveal down-loadable files.
 
-production	=> tagged GitHub release commit
+production	==> tagged GitHub release commit
 
 	A new version of calc has been released and has undergone
 	extensive testing over time over a number of platforms.
@@ -87,14 +128,14 @@ production	=> tagged GitHub release commit
 
 A historical note and apology:
 
-In the past, some version number changes were made that did not fully
-reflect the above version number or change class.  Moreover older terms
-such as "stable" and "unstable" were misleading and did not properly
-reflect the nature of the change.  Sorry!  The purpose of this document
-is to try and bring a better level of conformity to source code updates,
-tagged releases and version numbers.
+    In the past, some version number changes were made that did not
+    fully reflect the above version number or change class.  Moreover
+    older terms such as "stable" and "unstable" were misleading and
+    did not properly reflect the nature of the change.  Sorry!  The
+    purpose of this document is to try and bring a better level of
+    conformity to source code updates, tagged releases and version numbers.
 
-## Copyright (C) 2021  Landon Curt Noll
+## Copyright (C) 2021,2023  Landon Curt Noll
 ##
 ## Calc is open software; you can redistribute it and/or modify it under
 ## the terms of the version 2.1 of the GNU Lesser General Public License

README.WINDOWS

@@ -40,6 +40,27 @@ NOTE: Compiling calc under Windows 11 is work in progress.  If you run into
       problems, consider the "Compiling with Cygwin" section below.
 
 
+=-=-=-=-=-=-=-=-=-=-=-=-=-=
+=-= Compiling with Msys =-=
+=-=-=-=-=-=-=-=-=-=-=-=-=-=
+
+The MSYS2 Software Distribution and Building Platform for Windows:
+
+    https://www.msys2.org
+
+is a fork of Cygwin.  In `Makefile.config`, when the OSNAME is "Msys",
+the Cygwin target it set.  MSYS2 Software Distribution users should be
+sure that the following command prints "Msys".
+
+    uname -o
+
+Or call make with OSNAME set as in:
+
+    make ... OSNAME=Msys
+
+Follow the "Compiling with Cygwin" instructions below.
+
+
 =-=-=-=-=-=-=-=-=-=-=-=-=-=-=
 =-= Compiling with Cygwin =-=
 =-=-=-=-=-=-=-=-=-=-=-=-=-=-=
@@ -107,97 +128,6 @@ compilation steps that GitHub user @Leoongithub recommends:
          of calc, installing calc may be of benefit so you can use calc elsewhere on your system.
 
 
-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
-=-= If all else fails, for Cygwin =-=
-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
-
-Much earlier (2001?) Thomas Jones-Low (tjoneslo at softstart dot com)
-recommended that you generate by hand all of the header files that
-by the Makefile.  This has been done for you via the makefile rule:
-
-	make win32_hsrc
-
-which uses the Makefile variables in win32.mkdef to form these header
-files under win32 directory.
-
-You will find generated versions of these files located in the win32
-sub-directory.  These files may be appropriate for your Cygwin building
-needs.
-
-In particular:
-
-    Just copy the win32/*.[ch] files up into the top level calc
-    source directory, edit them (if needed) and build using the
-    Cygwin GCC compiler and Cygwin build environment.
-
-NOTE: The use of win32_hsrc and this method has been deprecated.
-      It may go away once the Windows 11 methods are stable.
-
-
-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
-=-= compiling under DJGPP =-=
-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
-
-You might want to try using the DJGPP system to compile calc.  See:
-
-	http://www.delorie.com/djgpp/
-
-for DJGPP details and availability.
-
-To compile with DJGPP, one needs to select a number of Makefile
-variable changes.  Eli Zaretskii <eliz at is dot elta dot co dot il>
-recommends the following settings:
-
-	TERMCONTROL= -DUSE_TERMIOS
-	BYTE_ORDER= -DLITTLE_ENDIAN
-	LONG_BITS= 32
-	HAVE_FPOS_POS= -DHAVE_NO_FPOS_POS
-	FPOS_BITS= 32
-	OFF_T_BITS= 32
-	DEV_BITS= 32
-	INODE_BITS= 32
-	HAVE_USTAT= -DHAVE_NO_USTAT
-	HAVE_GETSID= -DHAVE_NO_GETSID
-	HAVE_GETPGID= -DHAVE_NO_GETPGID
-	HAVE_GETTIME= -DHAVE_NO_GETTIME
-	HAVE_GETPRID= -DHAVE_NO_GETPRID
-	HAVE_URANDOM_H= NO
-	ALIGN32= -UMUST_ALIGN32
-	HAVE_MALLOC_H= YES
-	HAVE_STDLIB_H= YES
-	HAVE_STRING_H= YES
-	HAVE_TIMES_H= NO
-	HAVE_SYS_TIMES_H= YES
-	HAVE_TIME_H= YES
-	HAVE_SYS_TIME_H= YES
-	HAVE_UNISTD_H= YES
-	BINDIR= /dev/env/DJDIR/bin
-	INCDIR= /dev/env/DJDIR/include
-	LIBDIR= /dev/env/DJDIR/lib
-	MANDIR= /dev/env/DJDIR/man/man1
-	CATDIR= /dev/env/DJDIR/man/cat1
-	NROFF= groff
-	CALCPATH= .;./cal;~/.cal;${CALC_SHAREDIR};${CUSTOMCALDIR}
-	CALCRC= ./.calcinit;~/.calcrc;${CALC_SHAREDIR}/startup
-	CALCPAGER= less.exe -ci
-	DEBUG= -O2 -gstabs+ -D_WIN32
-	HAVE_ENVIRON=-DHAVE_NO_ENVIRON
-	HAVE_ARC4RANDOM=-DHAVE_NO_ARC4RANDOM
-
-The 'Linux set' or 'gcc set' (see the Select your compiler type section)
-should work for DJGPP systems if you set the above Makefile variables.
-
-Look for Makefile comments of the form:
-
-	# Select ...something... for DJGPP.
-
-Follow those recommendations.  In cases where they conflict with
-the above Makefile list, follow the recommendation in the Makefile.
-
-NOTE: The use of DJGPP and this method has been deprecated.
-      It may go away once the Windows 11 methods are stable.
-
-
 =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
 =-= Compiling calc via virtual machine under Windows 11 =-=
 =-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=-=
@@ -230,7 +160,7 @@ NOTE: The use of calc under Windows 10 has been deprecated in favor of one
       of the Windows 11 methods above.
 
 
-## Copyright (C) 2002-2009,2021,2022  Landon Curt Noll and Thomas Jones-Low
+## Copyright (C) 2002-2009,2021-2023  Landon Curt Noll and Thomas Jones-Low
 ##
 ## Calc is open software; you can redistribute it and/or modify it under
 ## the terms of the version 2.1 of the GNU Lesser General Public License

addop.c

@@ -1,7 +1,7 @@
 /*
  * addop - add opcodes to a function being compiled
  *
- * 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
  *
@@ -37,7 +37,7 @@
 #include "symbol.h"
 
 
-#include "attribute.h"
+#include "errtbl.h"
 #include "banned.h"	/* include after system header <> includes */
 
 
@@ -136,16 +136,16 @@ showfunctions(void)
 
 /*
  * Initialize a function for definition.
- * Newflag is TRUE if we should allocate a new function structure,
+ * Newflag is true if we should allocate a new function structure,
  * instead of the usual overwriting of the template function structure.
  * The new structure is returned in the global curfunc variable.
  *
  * given:
  *	name		name of function
- *	newflag		TRUE if need new structure
+ *	newflag		true if need new structure
  */
 void
-beginfunc(char *name, BOOL newflag)
+beginfunc(char *name, bool newflag)
 {
 	register FUNC *fp;		/* current function */
 
@@ -210,7 +210,7 @@ endfunc(void)
 	if (curfunc != functemplate)
 		free(curfunc);
 	if (newname[0] != '*' && (conf->traceflags & TRACE_FNCODES)) {
-		dumpnames = TRUE;
+		dumpnames = true;
 		for (size = 0; size < fp->f_opcodecount; ) {
 			printf("%ld: ", (unsigned long)size);
 			size += dumpop(&fp->f_opcodes[size]);
@@ -322,7 +322,7 @@ freefunc(FUNC *fp)
 	}
 	if (newname[0] != '*' && (conf->traceflags & TRACE_FNCODES)) {
 		printf("Freeing function \"%s\"\n",namestr(&funcnames,index));
-		dumpnames = FALSE;
+		dumpnames = false;
 		for (i = 0; i < fp->f_opcodecount; ) {
 			printf("%ld: ", i);
 			i += dumpop(&fp->f_opcodes[i]);
@@ -411,7 +411,7 @@ void
 writeindexop(void)
 {
 	if (oldop == OP_INDEXADDR)
-		curfunc->f_opcodes[curfunc->f_opcodecount - 1] = TRUE;
+		curfunc->f_opcodes[curfunc->f_opcodecount - 1] = true;
 }
 
 
@@ -426,12 +426,12 @@ addop(long op)
 	register FUNC *fp;		/* current function */
 	NUMBER *q, *q1, *q2;
 	unsigned long count;
-	BOOL cut;
+	bool cut;
 	int diff;
 
 	fp = curfunc;
 	count = fp->f_opcodecount;
-	cut = TRUE;
+	cut = true;
 	diff = 2;
 	q = NULL;
 	if ((count + 5) >= maxopcodes) {
@@ -488,7 +488,7 @@ addop(long op)
 			oldop = OP_ELEMVALUE;
 			break;
 		default:
-			cut = FALSE;
+			cut = false;
 
 		}
 		if (cut) {
@@ -522,7 +522,7 @@ addop(long op)
 			oldoldop = OP_NOP;
 			return;
 		default:
-			cut = FALSE;
+			cut = false;
 		}
 		if (cut) {
 			fp->f_opcodecount -= diff;
@@ -547,7 +547,7 @@ addop(long op)
 			switch (op) {
 			case OP_DIV:
 				if (qiszero(q2)) {
-					cut = FALSE;
+					cut = false;
 					break;
 				}
 				q = qqdiv(q1,q2);
@@ -563,12 +563,12 @@ addop(long op)
 				break;
 			case OP_POWER:
 				if (qisfrac(q2) || qisneg(q2))
-					cut = FALSE;
+					cut = false;
 				else
 					q = qpowi(q1,q2);
 				break;
 			default:
-				cut = FALSE;
+				cut = false;
 			}
 			if (cut) {
 				qfree(q1);

assocfunc.c

@@ -1,7 +1,7 @@
 /*
  * assocfunc - association table routines
  *
- * Copyright (C) 1999-2007,2021,2022  David I. Bell
+ * Copyright (C) 1999-2007,2021-2023  David I. Bell
  *
  * Calc is open software; you can redistribute it and/or modify it under
  * the terms of the version 2.1 of the GNU Lesser General Public License
@@ -36,7 +36,7 @@
 #include "value.h"
 
 
-#include "attribute.h"
+#include "errtbl.h"
 #include "banned.h"	/* include after system header <> includes */
 
 
@@ -47,15 +47,15 @@
 
 
 S_FUNC ASSOCELEM *elemindex(ASSOC *ap, long index);
-S_FUNC BOOL compareindices(VALUE *v1, VALUE *v2, long dim);
+S_FUNC bool compareindices(VALUE *v1, VALUE *v2, long dim);
 S_FUNC void resize(ASSOC *ap, long newsize);
 S_FUNC void assoc_elemfree(ASSOCELEM *ep);
 
 
 /*
  * Return the address of the value specified by normal indexing of
- * an association.  The create flag is TRUE if a value is going to be
- * assigned into the specified indexing location.  If create is FALSE and
+ * an association.  The create flag is true if a value is going to be
+ * assigned into the specified indexing location.  If create is false and
  * the index value doesn't exist, a pointer to a NULL value is returned.
  *
  * given:
@@ -65,7 +65,7 @@ S_FUNC void assoc_elemfree(ASSOCELEM *ep);
  *	indices		table of values being indexed by
  */
 VALUE *
-associndex(ASSOC *ap, BOOL create, long dim, VALUE *indices)
+associndex(ASSOC *ap, bool create, long dim, VALUE *indices)
 {
 	ASSOCELEM **listhead;
 	ASSOCELEM *ep;
@@ -266,9 +266,9 @@ associndices(ASSOC *ap, long index)
 
 /*
  * Compare two associations to see if they are identical.
- * Returns TRUE if they are different.
+ * Returns true if they are different.
  */
-BOOL
+bool
 assoccmp(ASSOC *ap1, ASSOC *ap2)
 {
 	ASSOCELEM **table1;
@@ -280,9 +280,9 @@ assoccmp(ASSOC *ap1, ASSOC *ap2)
 	long dim;
 
 	if (ap1 == ap2)
-		return FALSE;
+		return false;
 	if (ap1->a_count != ap2->a_count)
-		return TRUE;
+		return true;
 
 	table1 = ap1->a_table;
 	size1 = ap1->a_size;
@@ -294,7 +294,7 @@ assoccmp(ASSOC *ap1, ASSOC *ap2)
 			for (ep2 = ap2->a_table[hash % size2]; ;
 				ep2 = ep2->e_next) {
 				if (ep2 == NULL)
-					return TRUE;
+					return true;
 				if (ep2->e_hash != hash)
 					continue;
 				if (ep2->e_dim != dim)
@@ -304,10 +304,10 @@ assoccmp(ASSOC *ap1, ASSOC *ap2)
 						break;
 			}
 			if (comparevalue(&ep1->e_value, &ep2->e_value))
-				return TRUE;
+				return true;
 		}
 	}
-	return FALSE;
+	return false;
 }
 
 
@@ -520,20 +520,20 @@ assocprint(ASSOC *ap, long max_print)
 
 /*
  * Compare two lists of index values to see if they are identical.
- * Returns TRUE if they are the same.
+ * Returns true if they are the same.
  */
-S_FUNC BOOL
+S_FUNC bool
 compareindices(VALUE *v1, VALUE *v2, long dim)
 {
 	int i;
 
 	for (i = 0; i < dim; i++)
 		if (v1[i].v_type != v2[i].v_type)
-			return FALSE;
+			return false;
 
 	while (dim-- > 0)
 		if (comparevalue(v1++, v2++))
-			return FALSE;
+			return false;
 
-	return TRUE;
+	return true;
 }

blkcpy.c

@@ -1,7 +1,7 @@
 /*
  * blkcpy - general values and related routines used by the calculator
  *
- * Copyright (C) 1999-2007,2021,2022  Landon Curt Noll and Ernest Bowen
+ * Copyright (C) 1999-2007,2021-2023  Landon Curt Noll and Ernest Bowen
  *
  * Primary author:  Landon Curt Noll
  *
@@ -36,7 +36,7 @@
 #include "str.h"
 
 
-#include "attribute.h"
+#include "errtbl.h"
 #include "banned.h"	/* include after system header <> includes */
 
 
@@ -56,7 +56,7 @@ copystod(VALUE *svp, long ssi, long num, VALUE *dvp, long dsi)
 {
 	BLOCK *sblk;
 	BLOCK *dblk;
-	BOOL noreloc;
+	bool noreloc;
 
 	sblk = NULL;
 	dblk = NULL;
@@ -65,9 +65,9 @@ copystod(VALUE *svp, long ssi, long num, VALUE *dvp, long dsi)
 	 * check protections
 	 */
 	if (svp->v_subtype & V_NOCOPYFROM)
-		return E_COPY13;
+		return E_COPY_13;
 	if (dvp->v_subtype & V_NOCOPYTO)
-		return E_COPY14;
+		return E_COPY_14;
 	noreloc = ((dvp->v_subtype & V_NOREALLOC) != 0);
 
 	/*
@@ -76,10 +76,10 @@ copystod(VALUE *svp, long ssi, long num, VALUE *dvp, long dsi)
 	switch(svp->v_type) {
 	case V_NBLOCK:
 		if (svp->v_nblock->subtype & V_NOCOPYFROM)
-			return E_COPY15;
+			return E_COPY_15;
 		sblk = svp->v_nblock->blk;
 		if (sblk->data == NULL)
-			return E_COPY8;
+			return E_COPY_08;
 		break;
 	case V_BLOCK:
 		sblk = svp->v_block;
@@ -92,7 +92,7 @@ copystod(VALUE *svp, long ssi, long num, VALUE *dvp, long dsi)
 	case V_LIST:
 		break;
 	default:
-		return E_COPY9;
+		return E_COPY_09;
 	}
 
 	/*
@@ -101,11 +101,11 @@ copystod(VALUE *svp, long ssi, long num, VALUE *dvp, long dsi)
 	switch(dvp->v_type) {
 	case V_NBLOCK:
 		if (dvp->v_nblock->subtype & V_NOCOPYTO)
-			return E_COPY16;
+			return E_COPY_16;
 		noreloc |=((dvp->v_nblock->subtype & V_NOREALLOC) != 0);
 		dblk = dvp->v_nblock->blk;
 		if (dblk->data == NULL)
-			return E_COPY10;
+			return E_COPY_10;
 		break;
 	case V_BLOCK:
 		noreloc = ((dvp->v_subtype & V_NOREALLOC) != 0);
@@ -118,7 +118,7 @@ copystod(VALUE *svp, long ssi, long num, VALUE *dvp, long dsi)
 	case V_LIST:
 		break;
 	default:
-		return E_COPY11;
+		return E_COPY_11;
 	}
 
 	/*
@@ -154,7 +154,7 @@ copystod(VALUE *svp, long ssi, long num, VALUE *dvp, long dsi)
 		case V_STR:
 			return copyblk2str(sblk, ssi, num, dvp->v_str, dsi);
 		}
-		return E_COPY12;
+		return E_COPY_12;
 
 	case V_STR:
 		switch(dvp->v_type) {
@@ -170,7 +170,7 @@ copystod(VALUE *svp, long ssi, long num, VALUE *dvp, long dsi)
 			return copystr2str(svp->v_str, ssi, num, dvp->v_str,
 				dsi);
 		}
-		return E_COPY12;
+		return E_COPY_12;
 
 	case V_OCTET:
 		switch(dvp->v_type) {
@@ -182,7 +182,7 @@ copystod(VALUE *svp, long ssi, long num, VALUE *dvp, long dsi)
 			return copyostr2str((char *) svp->v_octet, ssi, num,
 				dvp->v_str, dsi);
 		}
-		return E_COPY12;
+		return E_COPY_12;
 
 	case V_NUM:
 
@@ -197,10 +197,10 @@ copystod(VALUE *svp, long ssi, long num, VALUE *dvp, long dsi)
 		switch (dvp->v_type) {
 		case V_MAT:
 			/* copy to a matrix */
-			return E_COPY12;	/* not yet - XXX */
+			return E_COPY_12;	/* not yet - XXX */
 		case V_LIST:
 			/* copy to a list */
-			return E_COPY12;	/* not yet - XXX */
+			return E_COPY_12;	/* not yet - XXX */
 		}
 		break;
 	case V_FILE:
@@ -216,7 +216,7 @@ copystod(VALUE *svp, long ssi, long num, VALUE *dvp, long dsi)
 		switch (dvp->v_type) {
 		case V_NUM:
 			/* copy to a number */
-			return E_COPY12;	/* not yet - XXX */
+			return E_COPY_12;	/* not yet - XXX */
 		}
 		break;
 
@@ -249,7 +249,7 @@ copystod(VALUE *svp, long ssi, long num, VALUE *dvp, long dsi)
 		 */
 		if (dblk != NULL) {
 			/* copy to a block */
-			return E_COPY12;	/* not yet - XXX */
+			return E_COPY_12;	/* not yet - XXX */
 		}
 		switch (dvp->v_type) {
 		case V_MAT:
@@ -267,7 +267,7 @@ copystod(VALUE *svp, long ssi, long num, VALUE *dvp, long dsi)
 	/*
 	 * unsupported copy combination
 	 */
-	return E_COPY12;
+	return E_COPY_12;
 }
 
 
@@ -284,18 +284,18 @@ copymat2mat(MATRIX *smat, long ssi, long num, MATRIX *dmat, long dsi)
 	unsigned short subtype;
 
 	if (ssi > smat->m_size)
-		return E_COPY2;
+		return E_COPY_02;
 
 	if (num < 0)
 		num = smat->m_size - ssi;
 	if (ssi + num > smat->m_size)
-		return E_COPY5;
+		return E_COPY_05;
 	if (num == 0)
 		return 0;
 	if (dsi < 0)
 		dsi = 0;
 	if (dsi + num > dmat->m_size)
-		return E_COPY7;
+		return E_COPY_07;
 	vtemp = (VALUE *) malloc(num * sizeof(VALUE));
 	if (vtemp == NULL) {
 		math_error("Out of memory for mat-to-mat copy");
@@ -333,17 +333,17 @@ copyblk2mat(BLOCK *blk, long ssi, long num, MATRIX *dmat, long dsi)
 	unsigned short subtype;
 
 	if (ssi > blk->datalen)
-		return E_COPY2;
+		return E_COPY_02;
 	if (num < 0)
 		num = blk->datalen - ssi;
 	if (ssi + num > blk->datalen)
-		return E_COPY5;
+		return E_COPY_05;
 	if (num == 0)
 		return 0;
 	if (dsi < 0)
 		dsi = 0;
 	if (dsi + num > dmat->m_size)
-		return E_COPY7;
+		return E_COPY_07;
 	op = blk->data + ssi;
 	vtemp = (VALUE *) malloc(num * sizeof(VALUE));
 	if (vtemp == NULL) {
@@ -376,7 +376,7 @@ copyblk2mat(BLOCK *blk, long ssi, long num, MATRIX *dmat, long dsi)
  */
 int
 copymat2blk(MATRIX *smat, long ssi, long num, BLOCK *dblk, long dsi,
-	    BOOL noreloc)
+	    bool noreloc)
 {
 	long i;
 	long newlen;
@@ -386,21 +386,21 @@ copymat2blk(MATRIX *smat, long ssi, long num, BLOCK *dblk, long dsi,
 	OCTET *op;
 
 	if (ssi > smat->m_size)
-		return E_COPY2;
+		return E_COPY_02;
 	if (num < 0)
 		num = smat->m_size - ssi;
 	if (num == 0)
 		return 0;
 	if (ssi + num > smat->m_size)
-		return E_COPY5;
+		return E_COPY_05;
 	if (dsi < 0)
 		dsi = dblk->datalen;
 	newlen = dsi + num;
 	if (newlen <= 0)
-		return E_COPY7;
+		return E_COPY_07;
 	if (newlen >= dblk->maxsize) {
 		if (noreloc)
-			return E_COPY17;
+			return E_COPY_17;
 		newsize = (1 + newlen/dblk->blkchunk) * dblk->blkchunk;
 		newdata = (USB8*) realloc(dblk->data, newsize);
 		if (newdata == NULL) {
@@ -434,17 +434,17 @@ copymat2list(MATRIX *smat, long ssi, long num, LIST *lp, long dsi)
 	unsigned short subtype;
 
 	if (ssi > smat->m_size)
-		return E_COPY2;
+		return E_COPY_02;
 	if (num < 0)
 		num = smat->m_size - ssi;
 	if (num == 0)
 		return 0;
 	if (ssi + num > smat->m_size)
-		return E_COPY5;
+		return E_COPY_05;
 	if (dsi < 0)
 		dsi = 0;
 	if (dsi + num > lp->l_count)
-		return E_COPY7;
+		return E_COPY_07;
 	vtemp = (VALUE *) malloc(num * sizeof(VALUE));
 	if (vtemp == NULL) {
 		math_error("Out of memory for matrix-to-list copy");
@@ -484,17 +484,17 @@ copylist2mat(LIST *lp, long ssi, long num, MATRIX *dmat, long dsi)
 	unsigned short subtype;
 
 	if (ssi > lp->l_count)
-		return E_COPY2;
+		return E_COPY_02;
 	if (num < 0)
 		num = lp->l_count - ssi;
 	if (num == 0)
 		return 0;
 	if (ssi + num > lp->l_count)
-		return E_COPY5;
+		return E_COPY_05;
 	if (dsi < 0)
 		dsi = 0;
 	if (dsi + num > dmat->m_size)
-		return E_COPY7;
+		return E_COPY_07;
 	vtemp = (VALUE *) malloc(num * sizeof(VALUE));
 	if (vtemp == NULL) {
 		math_error("Out of memory for list-to-matrix copy");
@@ -534,17 +534,17 @@ copylist2list(LIST *slp, long ssi, long num, LIST *dlp, long dsi)
 	unsigned short subtype;
 
 	if (ssi > slp->l_count)
-		return E_COPY2;
+		return E_COPY_02;
 	if (num < 0)
 		num = slp->l_count - ssi;
 	if (num == 0)
 		return 0;
 	if (ssi + num > slp->l_count)
-		return E_COPY5;
+		return E_COPY_05;
 	if (dsi < 0)
 		dsi = 0;
 	if (dsi + num > dlp->l_count)
-		return E_COPY7;
+		return E_COPY_07;
 	vtemp = (VALUE *) malloc(num * sizeof(VALUE));
 	if (vtemp == NULL) {
 		math_error("Out of memory for list-to-list copy");
@@ -583,15 +583,15 @@ copyblk2file(BLOCK *sblk, long ssi, long num, FILEID id, long dsi)
 	long	numw;
 
 	if (ssi > sblk->datalen)
-		return E_COPY2;
+		return E_COPY_02;
 	if (num < 0)
 		num = sblk->datalen - ssi;
 	if (num == 0)
 		return 0;
 
-	fiop = findid(id, TRUE);
+	fiop = findid(id, true);
 	if (fiop == NULL)
-		return E_COPYF1;
+		return E_COPYF_1;
 	fp = fiop->fp;
 	if (id == 1 || id == 2) {
 		numw = idfputstr(id, (char *)sblk->data + ssi);	 /* XXX */
@@ -599,11 +599,11 @@ copyblk2file(BLOCK *sblk, long ssi, long num, FILEID id, long dsi)
 	}
 	if (dsi >= 0) {
 		if (fseek(fp, dsi, 0))
-			return E_COPYF2;
+			return E_COPYF_2;
 	}
 	numw = fwrite(sblk->data + ssi, 1, num, fp);
 	if (numw < num)
-		return E_COPYF3;
+		return E_COPYF_3;
 	fflush(fp);
 	return 0;
 }
@@ -613,7 +613,7 @@ copyblk2file(BLOCK *sblk, long ssi, long num, FILEID id, long dsi)
  * copyfile2blk - copy file to block
  */
 int
-copyfile2blk(FILEID id, long ssi, long num, BLOCK *dblk, long dsi, BOOL noreloc)
+copyfile2blk(FILEID id, long ssi, long num, BLOCK *dblk, long dsi, bool noreloc)
 {
 	FILEIO	*fiop;
 	FILE	*fp;
@@ -625,40 +625,40 @@ copyfile2blk(FILEID id, long ssi, long num, BLOCK *dblk, long dsi, BOOL noreloc)
 	OCTET	*newdata;
 
 	if (id < 3)			/* excludes copying from stdin */
-		return E_COPYF1;
-	fiop = findid(id, FALSE);
+		return E_COPYF_1;
+	fiop = findid(id, false);
 	if (fiop == NULL)
-		return E_COPYF1;
+		return E_COPYF_1;
 
 	fp = fiop->fp;
 
 	if (get_open_siz(fp, &fsize))
-		return E_COPYF2;
+		return E_COPYF_2;
 	if (zge31b(fsize)) {
 		zfree(fsize);
-		return E_COPY5;
+		return E_COPY_05;
 	}
 	filelen = ztoi(fsize);
 	zfree(fsize);
 
 	if (ssi > filelen)
-		return E_COPY2;
+		return E_COPY_02;
 	if (num < 0)
 		num = filelen - ssi;
 	if (num == 0)
 		return 0;
 	if (ssi + num > filelen)
-		return E_COPY5;
+		return E_COPY_05;
 	if (fseek(fp, ssi, 0))		/* using system fseek  XXX */
-		return E_COPYF2;
+		return E_COPYF_2;
 	if (dsi < 0)
 		dsi = dblk->datalen;
 	newlen = dsi + num;
 	if (newlen <= 0)
-		return E_COPY7;
+		return E_COPY_07;
 	if (newlen >= dblk->maxsize) {
 		if (noreloc)
-			return E_COPY17;
+			return E_COPY_17;
 		newsize = (1 + newlen/dblk->blkchunk) * dblk->blkchunk;
 		newdata = (USB8*) realloc(dblk->data, newsize);
 		if (newdata == NULL) {
@@ -670,7 +670,7 @@ copyfile2blk(FILEID id, long ssi, long num, BLOCK *dblk, long dsi, BOOL noreloc)
 	}
 	numw = fread(dblk->data + dsi, 1, num, fp);
 	if (numw < num)
-		return E_COPYF4;
+		return E_COPYF_4;
 	if (newlen > dblk->datalen)
 		dblk->datalen = newlen;
 	return 0;
@@ -691,16 +691,16 @@ copystr2file(STRING *str, long ssi, long num, FILEID id, long dsi)
 	len = str->s_len;
 
 	if (ssi >= len)
-		return E_COPY2;
+		return E_COPY_02;
 	if (num < 0)
 		num = len - ssi;
 	if (num <= 0)			/* Nothing to be copied */
 		return 0;
 	if (ssi + num > len)
-		return E_COPY5;		/* Insufficient memory in str */
-	fiop = findid(id, TRUE);
+		return E_COPY_05;		/* Insufficient memory in str */
+	fiop = findid(id, true);
 	if (fiop == NULL)
-		return E_COPYF1;
+		return E_COPYF_1;
 	fp = fiop->fp;
 	if (id == 1 || id == 2) {
 		numw = idfputstr(id, str->s_str + ssi);	 /* XXX */
@@ -708,11 +708,11 @@ copystr2file(STRING *str, long ssi, long num, FILEID id, long dsi)
 	}
 	if (dsi >= 0) {
 		if (fseek(fp, dsi, 0))
-			return E_COPYF2;
+			return E_COPYF_2;
 	}
 	numw = fwrite(str->s_str + ssi, 1, num, fp);
 	if (numw < num)
-		return E_COPYF3;
+		return E_COPYF_3;
 	fflush(fp);
 	return 0;
 }
@@ -723,28 +723,28 @@ copystr2file(STRING *str, long ssi, long num, FILEID id, long dsi)
  */
 int
 copyblk2blk(BLOCK *sblk, long ssi, long num, BLOCK *dblk, long dsi,
-	    BOOL noreloc)
+	    bool noreloc)
 {
 	long	newlen;
 	long	newsize;
 	USB8	*newdata;
 
 	if (ssi > sblk->datalen)
-		return E_COPY2;
+		return E_COPY_02;
 	if (num < 0)
 		num = sblk->datalen - ssi;
 	if (num == 0)			/* Nothing to be copied */
 		return 0;
 	if (ssi + num > sblk->datalen)
-		return E_COPY5;
+		return E_COPY_05;
 	if (dsi < 0)
 		dsi = dblk->datalen;
 	newlen = dsi + num;
 	if (newlen <= 0)
-		return E_COPY7;
+		return E_COPY_07;
 	if (newlen >= dblk->maxsize) {
 		if (noreloc)
-			return E_COPY17;
+			return E_COPY_17;
 		newsize = (1 + newlen/dblk->blkchunk) * dblk->blkchunk;
 		newdata = (USB8*) realloc(dblk->data, newsize);
 		if (newdata == NULL) {
@@ -766,7 +766,7 @@ copyblk2blk(BLOCK *sblk, long ssi, long num, BLOCK *dblk, long dsi,
  */
 int
 copystr2blk(STRING *str, long ssi, long num, BLOCK *dblk, long dsi,
-	    BOOL noreloc)
+	    bool noreloc)
 {
 	long	len;
 	long	newlen;
@@ -776,7 +776,7 @@ copystr2blk(STRING *str, long ssi, long num, BLOCK *dblk, long dsi,
 	len = str->s_len;
 
 	if (ssi >= len)
-		return E_COPY2;
+		return E_COPY_02;
 	if (num < 0)
 		num = len - ssi;
 	if (num <= 0)			/* Nothing to be copied */
@@ -785,10 +785,10 @@ copystr2blk(STRING *str, long ssi, long num, BLOCK *dblk, long dsi,
 		dsi = dblk->datalen;
 	newlen = dsi + num + 1;
 	if (newlen <= 0)
-		return E_COPY7;
+		return E_COPY_07;
 	if (newlen >= dblk->maxsize) {
 		if (noreloc)
-			return E_COPY17;
+			return E_COPY_17;
 		newsize = (1 + newlen/dblk->blkchunk) * dblk->blkchunk;
 		newdata = (USB8*) realloc(dblk->data, newsize);
 		if (newdata == NULL) {
@@ -887,7 +887,7 @@ copyostr2str(char *sstr, long ssi, long num, STRING *dstr, long dsi)
  * copyostr2blk - copy octet-specified string to block
  */
 int
-copyostr2blk(char *str,long ssi,long num,BLOCK *dblk,long dsi,BOOL noreloc)
+copyostr2blk(char *str,long ssi,long num,BLOCK *dblk,long dsi,bool noreloc)
 {
 	size_t	len;
 	size_t	newlen;
@@ -897,7 +897,7 @@ copyostr2blk(char *str,long ssi,long num,BLOCK *dblk,long dsi,BOOL noreloc)
 	len = strlen(str) + 1;
 
 	if (ssi > 0 && (size_t)ssi > len)
-		return E_COPY2;
+		return E_COPY_02;
 	if (num < 0 || (size_t)(ssi + num) > len)
 		num = len - ssi;
 	if (num <= 0)			/* Nothing to be copied */
@@ -906,10 +906,10 @@ copyostr2blk(char *str,long ssi,long num,BLOCK *dblk,long dsi,BOOL noreloc)
 		dsi = dblk->datalen;	/* Default destination index */
 	newlen = dsi + num;
 	if (newlen <= 0)
-		return E_COPY7;
+		return E_COPY_07;
 	if (newlen >= (size_t)dblk->maxsize) {
 		if (noreloc)
-			return E_COPY17;
+			return E_COPY_17;
 		newsize = (1 + newlen/dblk->blkchunk) * dblk->blkchunk;
 		newdata = (USB8*) realloc(dblk->data, newsize);
 		if (newdata == NULL) {
@@ -987,7 +987,7 @@ memmove(void *s1, CONST void *s2, MEMMOVE_SIZE_T n)
  */
 int
 copynum2blk(NUMBER *snum, long ssi, long num, BLOCK *dblk, long dsi,
-	    BOOL noreloc)
+	    bool noreloc)
 {
 	size_t	newlen;
 	size_t	newsize;
@@ -997,21 +997,21 @@ copynum2blk(NUMBER *snum, long ssi, long num, BLOCK *dblk, long dsi,
 #endif
 
 	if (ssi > snum->num.len)
-		return E_COPY2;
+		return E_COPY_02;
 	if (num < 0)
 		num = snum->num.len - ssi;
 	if (num == 0)			/* Nothing to be copied */
 		return 0;
 	if (ssi + num > snum->num.len)
-		return E_COPY5;
+		return E_COPY_05;
 	if (dsi < 0)
 		dsi = dblk->datalen;
 	newlen = dsi + (num*sizeof(HALF));
 	if (newlen <= 0)
-		return E_COPY7;
+		return E_COPY_07;
 	if (newlen >= (size_t)dblk->maxsize) {
 		if (noreloc)
-			return E_COPY17;
+			return E_COPY_17;
 		newsize = (1 + newlen/dblk->blkchunk) * dblk->blkchunk;
 		newdata = (USB8*) realloc(dblk->data, newsize);
 		if (newdata == NULL) {
@@ -1024,7 +1024,7 @@ copynum2blk(NUMBER *snum, long ssi, long num, BLOCK *dblk, long dsi,
 #if CALC_BYTE_ORDER == LITTLE_ENDIAN
 	memmove(dblk->data+dsi, (char *)(snum->num.v+ssi), num*sizeof(HALF));
 #else
-	swnum = swap_b8_in_ZVALUE(NULL, &(snum->num), FALSE);
+	swnum = swap_b8_in_ZVALUE(NULL, &(snum->num), false);
 	memmove(dblk->data+dsi, (char *)(swnum->v+ssi), num*sizeof(HALF));
 	zfree(*swnum);
 #endif
@@ -1051,18 +1051,18 @@ copyblk2num(BLOCK *sblk, long ssi, long num, NUMBER *dnum, long dsi,
 #endif
 
 	if (ssi > sblk->datalen)
-		return E_COPY2;
+		return E_COPY_02;
 	if (num < 0)
 		num = sblk->datalen - ssi;
 	if (num == 0)			/* Nothing to be copied */
 		return 0;
 	if (ssi + num > sblk->datalen)
-		return E_COPY5;
+		return E_COPY_05;
 	if (dsi < 0)
 		dsi = dnum->num.len;
 	newlen = dsi + ((num+sizeof(HALF)-1)/sizeof(HALF));
 	if (newlen <= 0)
-		return E_COPY7;
+		return E_COPY_07;
 
 	/* quasi-clone the numerator to the new size */
 	ret = qalloc();

blkcpy.h

@@ -37,21 +37,21 @@ E_FUNC int copystod(VALUE *, long, long, VALUE *, long);
 /*
  * specific copy functions
  */
-E_FUNC int copyblk2blk(BLOCK *, long, long, BLOCK *, long, BOOL);
+E_FUNC int copyblk2blk(BLOCK *, long, long, BLOCK *, long, bool);
 E_FUNC int copyblk2file(BLOCK *, long, long, FILEID, long);
 E_FUNC int copyblk2mat(BLOCK *, long, long, MATRIX *, long);
 E_FUNC int copyblk2num(BLOCK *, long, long, NUMBER *, long, NUMBER **);
 E_FUNC int copyblk2str(BLOCK *, long, long, STRING *, long);
-E_FUNC int copyfile2blk(FILEID, long, long, BLOCK *, long, BOOL);
+E_FUNC int copyfile2blk(FILEID, long, long, BLOCK *, long, bool);
 E_FUNC int copylist2list(LIST *, long, long, LIST *, long);
 E_FUNC int copylist2mat(LIST *, long, long, MATRIX *, long);
-E_FUNC int copymat2blk(MATRIX *, long, long, BLOCK *, long, BOOL);
+E_FUNC int copymat2blk(MATRIX *, long, long, BLOCK *, long, bool);
 E_FUNC int copymat2list(MATRIX *, long, long, LIST *, long);
 E_FUNC int copymat2mat(MATRIX *, long, long, MATRIX *, long);
-E_FUNC int copynum2blk(NUMBER *, long, long, BLOCK *, long, BOOL);
-E_FUNC int copyostr2blk(char *, long, long, BLOCK *, long, BOOL);
+E_FUNC int copynum2blk(NUMBER *, long, long, BLOCK *, long, bool);
+E_FUNC int copyostr2blk(char *, long, long, BLOCK *, long, bool);
 E_FUNC int copyostr2str(char *, long, long, STRING *, long);
-E_FUNC int copystr2blk(STRING *, long, long, BLOCK *, long, BOOL);
+E_FUNC int copystr2blk(STRING *, long, long, BLOCK *, long, bool);
 E_FUNC int copystr2file(STRING *, long, long, FILEID, long);
 E_FUNC int copystr2str(STRING *, long, long, STRING *, long);
 

block.c

@@ -1,7 +1,7 @@
 /*
  * block - fixed, dynamic, fifo and circular memory blocks
  *
- * Copyright (C) 1999-2007,2021,2022  Landon Curt Noll and Ernest Bowen
+ * Copyright (C) 1999-2007,2021-2023  Landon Curt Noll and Ernest Bowen
  *
  * Primary author:  Landon Curt Noll
  *
@@ -39,10 +39,9 @@
 #include "block.h"
 #include "nametype.h"
 #include "str.h"
-#include "calcerr.h"
 
 
-#include "attribute.h"
+#include "errtbl.h"
 #include "banned.h"	/* include after system header <> includes */
 
 
@@ -427,8 +426,8 @@ blk_copy(BLOCK *blk)
  *	b	second BLOCK
  *
  * returns:
- *	TRUE => BLOCKs are different
- *	FALSE => BLOCKs are the same
+ *	true => BLOCKs are different
+ *	false => BLOCKs are the same
  */
 int
 blk_cmp(BLOCK *a, BLOCK *b)
@@ -438,11 +437,11 @@ blk_cmp(BLOCK *a, BLOCK *b)
 	 */
 	if (a == b) {
 		/* pointers to the same object */
-		return FALSE;
+		return false;
 	}
 	if (a == NULL || b == NULL) {
 		/* one pointer is NULL, so they differ */
-		return TRUE;
+		return true;
 	}
 
 	/*
@@ -450,7 +449,7 @@ blk_cmp(BLOCK *a, BLOCK *b)
 	 */
 	if (a->datalen != b->datalen) {
 		/* different lengths are different */
-		return TRUE;
+		return true;
 	}
 
 	/*
@@ -460,13 +459,13 @@ blk_cmp(BLOCK *a, BLOCK *b)
 	 */
 	if (memcmp(a->data, b->data, a->datalen) != 0) {
 		/* different sections are different */
-		return TRUE;
+		return true;
 	}
 
 	/*
 	 * the blocks are the same
 	 */
-	return FALSE;
+	return false;
 }
 
 
@@ -479,7 +478,7 @@ void
 blk_print(BLOCK *blk)
 {
 	long i;
-	BOOL havetail;
+	bool havetail;
 	USB8 *ptr;
 
 	/* XXX - should use the config parameters for better print control */
@@ -653,12 +652,12 @@ removenblock(int id)
 	NBLOCK *nblk;
 
 	if (id < 0 || id >= nblockcount)
-		return E_BLKFREE3;
+		return E_BLKFREE_3;
 	nblk = nblocks[id];
 	if (nblk->blk->data == NULL)
 		return 0;
 	if (nblk->subtype & V_NOREALLOC)
-		return E_BLKFREE5;
+		return E_BLKFREE_5;
 	free(nblk->blk->data);
 	nblk->blk->data = NULL;
 	nblk->blk->maxsize = 0;

block.h

@@ -1,7 +1,7 @@
 /*
  * block - fixed, dynamic, fifo and circular memory blocks
  *
- * Copyright (C) 1999-2007,2014,2021  Landon Curt Noll and Ernest Bowen
+ * Copyright (C) 1999-2007,2014,2021,2023  Landon Curt Noll and Ernest Bowen
  *
  * Primary author:  Landon Curt Noll
  *
@@ -122,7 +122,7 @@
  *		number of octets of a block to print, 0 means all
  *
  *	config("blkverbose", boolean)
- *		TRUE => print all lines, FALSE => skip dup lines
+ *		true => print all lines, false => skip dup lines
  *
  *	config("blkbase", "base")
  *		output block base = { "hex", "octal", "char", "binary", "raw" }

bool.h

@@ -0,0 +1,65 @@
+/*
+ * bool - calc standard truth :-)
+ *
+ * Copyright (C) 2023  David I. Bell and Landon Curt Noll
+ *
+ * Primary author:  David I. Bell
+ *
+ * Calc is open software; you can redistribute it and/or modify it under
+ * the terms of the version 2.1 of the GNU Lesser General Public License
+ * as published by the Free Software Foundation.
+ *
+ * Calc is distributed in the hope that it will be useful, but WITHOUT
+ * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY
+ * or FITNESS FOR A PARTICULAR PURPOSE.	 See the GNU Lesser General
+ * Public License for more details.
+ *
+ * A copy of version 2.1 of the GNU Lesser General Public License is
+ * distributed with calc under the filename COPYING-LGPL.  You should have
+ * received a copy with calc; if not, write to Free Software Foundation, Inc.
+ * 51 Franklin Street, Fifth Floor, Boston, MA  02110-1301, USA.
+ *
+ * Under source code control:	2023/07/19 17:58:42
+ * File existed as early as:	2023
+ *
+ * chongo <was here> /\oo/\	http://www.isthe.com/chongo/
+ * Share and enjoy!  :-)	http://www.isthe.com/chongo/tech/comp/calc/
+ */
+
+
+#if !defined(INCLUDE_BOOL_H)
+#define INCLUDE_BOOL_H
+
+#include "have_stdbool.h"
+#if defined(HAVE_STDBOOL_H)
+#include <stdbool.h>
+#endif /* HAVE_STDBOOL_H */
+
+
+/*
+ * standard truth :-)
+ */
+#if !defined(HAVE_STDBOOL_H)
+
+/* fake a <stdbool.h> header file */
+typedef unsigned char bool;	/* fake boolean typedef */
+#undef true
+#define true ((bool)(1))
+#undef false
+#define false ((bool)(0))
+
+#endif /* !HAVE_STDBOOL_H */
+
+
+/*
+ * calc historic booleans
+ */
+#undef TRUE
+#define TRUE (true)
+#undef FALSE
+#define FALSE (false)
+#undef BOOL
+#define BOOL bool
+
+
+#endif /* !INCLUDE_BOOL_H*/

byteswap.c

@@ -1,7 +1,7 @@
 /*
  * byteswap - byte swapping routines
  *
- * Copyright (C) 1999,2021,2022  Landon Curt Noll
+ * Copyright (C) 1999,2021-2023  Landon Curt Noll
  *
  * Calc is open software; you can redistribute it and/or modify it under
  * the terms of the version 2.1 of the GNU Lesser General Public License
@@ -29,7 +29,7 @@
 #include "byteswap.h"
 
 
-#include "attribute.h"
+#include "errtbl.h"
 #include "banned.h"	/* include after system header <> includes */
 
 
@@ -80,7 +80,7 @@ swap_b8_in_HALFs(HALF *dest, HALF *src, LEN len)
  *	dest	- pointer to where the swapped src will be put or
  *		  NULL to allocate the storage
  *	src	- pointer to a ZVALUE to swap
- *	all	- TRUE => swap every element, FALSE => swap only the
+ *	all	- true => swap every element, false => swap only the
  *		  multi-precision storage
  *
  * returns:
@@ -90,7 +90,7 @@ swap_b8_in_HALFs(HALF *dest, HALF *src, LEN len)
  * Little Endian) the elements of a ZVALUE.
  */
 ZVALUE *
-swap_b8_in_ZVALUE(ZVALUE *dest, ZVALUE *src, BOOL all)
+swap_b8_in_ZVALUE(ZVALUE *dest, ZVALUE *src, bool all)
 {
 	/*
 	 * allocate storage if needed
@@ -128,7 +128,7 @@ swap_b8_in_ZVALUE(ZVALUE *dest, ZVALUE *src, BOOL all)
 	 */
 	if (all) {
 		SWAP_B8_IN_LEN(&dest->len, &src->len);
-		SWAP_B8_IN_BOOL(&dest->sign, &src->sign);
+		SWAP_B8_IN_bool(&dest->sign, &src->sign);
 	} else {
 		dest->len = src->len;
 		dest->sign = src->sign;
@@ -148,7 +148,7 @@ swap_b8_in_ZVALUE(ZVALUE *dest, ZVALUE *src, BOOL all)
  *	dest	- pointer to where the swapped src will be put or
  *		  NULL to allocate the storage
  *	src	- pointer to a NUMBER to swap
- *	all	- TRUE => swap every element, FALSE => swap only the
+ *	all	- true => swap every element, false => swap only the
  *		  multi-precision storage
  *
  * returns:
@@ -158,7 +158,7 @@ swap_b8_in_ZVALUE(ZVALUE *dest, ZVALUE *src, BOOL all)
  * Little Endian) the elements of a NUMBER.
  */
 NUMBER *
-swap_b8_in_NUMBER(NUMBER *dest, NUMBER *src, BOOL all)
+swap_b8_in_NUMBER(NUMBER *dest, NUMBER *src, bool all)
 {
 	/*
 	 * allocate storage if needed
@@ -212,7 +212,7 @@ swap_b8_in_NUMBER(NUMBER *dest, NUMBER *src, BOOL all)
  *	dest	- pointer to where the swapped src will be put or
  *		  NULL to allocate the storage
  *	src	- pointer to a COMPLEX to swap
- *	all	- TRUE => swap every element, FALSE => swap only the
+ *	all	- true => swap every element, false => swap only the
  *		  multi-precision storage
  *
  * returns:
@@ -222,7 +222,7 @@ swap_b8_in_NUMBER(NUMBER *dest, NUMBER *src, BOOL all)
  * Little Endian) the elements of a COMPLEX.
  */
 COMPLEX *
-swap_b8_in_COMPLEX(COMPLEX *dest, COMPLEX *src, BOOL all)
+swap_b8_in_COMPLEX(COMPLEX *dest, COMPLEX *src, bool all)
 {
 	/*
 	 * allocate storage if needed
@@ -360,7 +360,7 @@ swap_HALFs(HALF *dest, HALF *src, LEN len)
  *	dest	- pointer to where the swapped src will be put or
  *		  NULL to allocate the storage
  *	src	- pointer to a ZVALUE to swap
- *	all	- TRUE => swap every element, FALSE => swap only the
+ *	all	- true => swap every element, false => swap only the
  *		  multi-precision storage
  *
  * returns:
@@ -370,7 +370,7 @@ swap_HALFs(HALF *dest, HALF *src, LEN len)
  * Little Endian) the elements of a ZVALUE.
  */
 ZVALUE *
-swap_b16_in_ZVALUE(ZVALUE *dest, ZVALUE *src, BOOL all)
+swap_b16_in_ZVALUE(ZVALUE *dest, ZVALUE *src, bool all)
 {
 	/*
 	 * allocate storage if needed
@@ -407,7 +407,7 @@ swap_b16_in_ZVALUE(ZVALUE *dest, ZVALUE *src, BOOL all)
 	 */
 	if (all) {
 		SWAP_B16_IN_LEN(&dest->len, &src->len);
-		SWAP_B16_IN_BOOL(&dest->sign, &src->sign);
+		SWAP_B16_IN_bool(&dest->sign, &src->sign);
 	} else {
 		dest->len = src->len;
 		dest->sign = src->sign;
@@ -427,7 +427,7 @@ swap_b16_in_ZVALUE(ZVALUE *dest, ZVALUE *src, BOOL all)
  *	dest	- pointer to where the swapped src will be put or
  *		  NULL to allocate the storage
  *	src	- pointer to a NUMBER to swap
- *	all	- TRUE => swap every element, FALSE => swap only the
+ *	all	- true => swap every element, false => swap only the
  *		  multi-precision storage
  *
  * returns:
@@ -437,7 +437,7 @@ swap_b16_in_ZVALUE(ZVALUE *dest, ZVALUE *src, BOOL all)
  * Little Endian) the elements of a NUMBER.
  */
 NUMBER *
-swap_b16_in_NUMBER(NUMBER *dest, NUMBER *src, BOOL all)
+swap_b16_in_NUMBER(NUMBER *dest, NUMBER *src, bool all)
 {
 	/*
 	 * allocate storage if needed
@@ -491,7 +491,7 @@ swap_b16_in_NUMBER(NUMBER *dest, NUMBER *src, BOOL all)
  *	dest	- pointer to where the swapped src will be put or
  *		  NULL to allocate the storage
  *	src	- pointer to a COMPLEX to swap
- *	all	- TRUE => swap every element, FALSE => swap only the
+ *	all	- true => swap every element, false => swap only the
  *		  multi-precision storage
  *
  * returns:
@@ -501,7 +501,7 @@ swap_b16_in_NUMBER(NUMBER *dest, NUMBER *src, BOOL all)
  * Little Endian) the elements of a COMPLEX.
  */
 COMPLEX *
-swap_b16_in_COMPLEX(COMPLEX *dest, COMPLEX *src, BOOL all)
+swap_b16_in_COMPLEX(COMPLEX *dest, COMPLEX *src, bool all)
 {
 	/*
 	 * allocate storage if needed
@@ -555,7 +555,7 @@ swap_b16_in_COMPLEX(COMPLEX *dest, COMPLEX *src, BOOL all)
  *	dest	- pointer to where the swapped src will be put or
  *		  NULL to allocate the storage
  *	src	- pointer to a ZVALUE to swap
- *	all	- TRUE => swap every element, FALSE => swap only the
+ *	all	- true => swap every element, false => swap only the
  *		  multi-precision storage
  *
  * returns:
@@ -565,7 +565,7 @@ swap_b16_in_COMPLEX(COMPLEX *dest, COMPLEX *src, BOOL all)
  * Little Endian) the elements of a ZVALUE.
  */
 ZVALUE *
-swap_HALF_in_ZVALUE(ZVALUE *dest, ZVALUE *src, BOOL all)
+swap_HALF_in_ZVALUE(ZVALUE *dest, ZVALUE *src, bool all)
 {
 	/*
 	 * allocate storage if needed
@@ -603,7 +603,7 @@ swap_HALF_in_ZVALUE(ZVALUE *dest, ZVALUE *src, BOOL all)
 	 */
 	if (all) {
 		SWAP_HALF_IN_LEN(&dest->len, &src->len);
-		SWAP_HALF_IN_BOOL(&dest->sign, &src->sign);
+		SWAP_HALF_IN_bool(&dest->sign, &src->sign);
 	} else {
 		dest->len = src->len;
 		dest->sign = src->sign;
@@ -623,7 +623,7 @@ swap_HALF_in_ZVALUE(ZVALUE *dest, ZVALUE *src, BOOL all)
  *	dest	- pointer to where the swapped src will be put or
  *		  NULL to allocate the storage
  *	src	- pointer to a NUMBER to swap
- *	all	- TRUE => swap every element, FALSE => swap only the
+ *	all	- true => swap every element, false => swap only the
  *		  multi-precision storage
  *
  * returns:
@@ -633,7 +633,7 @@ swap_HALF_in_ZVALUE(ZVALUE *dest, ZVALUE *src, BOOL all)
  * Little Endian) the elements of a NUMBER.
  */
 NUMBER *
-swap_HALF_in_NUMBER(NUMBER *dest, NUMBER *src, BOOL all)
+swap_HALF_in_NUMBER(NUMBER *dest, NUMBER *src, bool all)
 {
 	/*
 	 * allocate storage if needed
@@ -687,7 +687,7 @@ swap_HALF_in_NUMBER(NUMBER *dest, NUMBER *src, BOOL all)
  *	dest	- pointer to where the swapped src will be put or
  *		  NULL to allocate the storage
  *	src	- pointer to a COMPLEX to swap
- *	all	- TRUE => swap every element, FALSE => swap only the
+ *	all	- true => swap every element, false => swap only the
  *		  multi-precision storage
  *
  * returns:
@@ -697,7 +697,7 @@ swap_HALF_in_NUMBER(NUMBER *dest, NUMBER *src, BOOL all)
  * Little Endian) the elements of a COMPLEX.
  */
 COMPLEX *
-swap_HALF_in_COMPLEX(COMPLEX *dest, COMPLEX *src, BOOL all)
+swap_HALF_in_COMPLEX(COMPLEX *dest, COMPLEX *src, bool all)
 {
 	/*
 	 * allocate storage if needed

cal/Makefile

@@ -4,13 +4,7 @@
 #
 # Copyright (C) 1999-2006,2017,2021-2023  Landon Curt Noll
 #
-# SRC: cal/Makefile
-#
-#	The "# SRC: ... - ..." comment line above indicates
-#	the origin of this file.
-#
-# IMPORTANT: Please see the section on Makefiles near the
-#	     bottom of the HOWTO.INSTALL file.
+# Suggestion: Read the ../HOWTO.INSTALL file.
 #
 # Calc is open software; you can redistribute it and/or modify it under
 # the terms of the version 2.1 of the GNU Lesser General Public License
@@ -29,184 +23,64 @@
 # Under source code control:	1991/07/21 05:00:54
 # File existed as early as:	1991
 #
+# This calculator first developed by David I. Bell with help/mods from others.
+#
 # chongo <was here> /\oo/\	http://www.isthe.com/chongo/
 # Share and enjoy!  :-)		http://www.isthe.com/chongo/tech/comp/calc/
-#
-# calculator by David I. Bell with help/mods from others
-# Makefile by Landon Curt Noll
 
 
-# The shell used by this Makefile
-#
-# On some systems, /bin/sh is a rather reduced shell with
-# deprecated behavior.
-#
-# If your system has a up to date, bash shell, then
-# you may wish to use:
-#
-#	SHELL= bash
-#
-# On some systems such as macOS, the bash shell is very
-# far behind to the point where is cannot be depended on.
-# On such systems, the sh may be a much better alternative
-# shell for this Makefile to use:
-#
-#	SHELL= sh
-#
-SHELL= bash
-#SHELL= sh
-#if 0	/* start of skip for non-Gnu makefiles */
-#
-ifeq ($(target),Darwin)
-SHELL:= /bin/sh
-endif
-#endif	/* end of skip for non-Gnu makefiles */
+# SUGGESTION: Instead of modifying this file, consider adding
+#	      statements to modify, replace or append Makefile
+#	      variables in the ../Makefile.local file.
 
 
-####
-# Normally, the upper level makefile will set these values.  We provide
-# a default here just in case you want to build from this directory.
-####
-
-# PREFIX - Top level location for calc
-#
-# The PREFIX is often prepended to paths within calc and calc Makefiles.
-#
-# Starting with calc v2.13.0.1, nearly all Makefile places that used
-# /usr/local now use ${PREFIX}.  An exception is the olduninstall rule
-# and, of course, this section. :-)
-#
-# NOTE: The ${PREFIX} is not the same as ${T}.  The ${T} specifies
-#	a top level directory under which calc installs things.
-#	While usually ${T} is empty, it can be specific path
-#	as if calc where "chrooted" during an install.
-#	The ${PREFIX} value, during install, is a path between
-#	the top level ${T} install directory and the object
-#	such as an include file.
-#
-# NOTE: See also, ${T}, below.
-#
-# There are some paths that do NOT call under ${PREFIX}, such as
-# ${CALCPATH}, that include paths not under ${PREFIX}, but those
-# too are exceptions to this general rule.
-#
-# When in doubt, try:
-#
-#	PREFIX= /usr/local
-#
-PREFIX= /usr/local
-#PREFIX= /usr
-#PREFIX= /usr/global
+###########################################
+# Files used or included by this Makefile #
+###########################################
 
 # Normally certain files depend on the Makefile.  If the Makefile is
 # changed, then certain steps should be redone.  If MAKE_FILE is
 # set to Makefile, then these files will depend on Makefile.  If
-# MAKE_FILE is empty, then they wont.
+# MAKE_FILE is empty, then they won't.
 #
 # If in doubt, set MAKE_FILE to Makefile
 #
 MAKE_FILE= Makefile
 
-# Where the system include (.h) files are kept
-#
-# For DJGPP, select:
-#
-#	INCDIR= /dev/env/DJDIR/include
-#
-# If in doubt, set:
-#
-#	INCDIR= /usr/include
+# Calc configuration and compile configuration values
 #
+CONFIG_MKF= ../Makefile.config
 
-#INCDIR= ${PREFIX}/include
-#INCDIR= /dev/env/DJDIR/include
-INCDIR= /usr/include
+# Host target information.
+#
+TARGET_MKF= ../Makefile.target
 
-# where to install calc related things
+# Local file that is included just prior to the first rule,
+# that allows one to override any values set in this Makefile.
 #
-# ${BINDIR}		where to install calc binary files
-# ${LIBDIR}		where calc link library (*.a) files are installed
-# ${CALC_SHAREDIR}	where to install calc help, .cal, startup, config files
-#
-# NOTE: The install rule prepends installation paths with ${T}, which
-#	by default is empty.  If ${T} is non-empty, then installation
-#	locations will be relative to the ${T} directory.
-#
-# For DJGPP, select:
-#
-#	BINDIR= /dev/env/DJDIR/bin
-#	LIBDIR= /dev/env/DJDIR/lib
-#	CALC_SHAREDIR= /dev/env/DJDIR/share/calc
-#
-# If in doubt, set:
-#
-#	BINDIR= /usr/bin
-#	LIBDIR= /usr/lib
-#	CALC_SHAREDIR= /usr/share/calc
-#
-#BINDIR= ${PREFIX}/bin
-#BINDIR= /dev/env/DJDIR/bin
-BINDIR= /usr/bin
+LOCAL_MKF= ../Makefile.local
 
-#LIBDIR= ${PREFIX}/lib
-#LIBDIR= /dev/env/DJDIR/lib
-LIBDIR= /usr/lib
+# The set of Makefiles
+#
+MK_SET= ${MAKE_FILE} ${CONFIG_MKF} ${TARGET_MKF} ${LOCAL_MKF}
 
-#CALC_SHAREDIR= ${PREFIX}/lib/calc
-#CALC_SHAREDIR= /dev/env/DJDIR/share/calc
-CALC_SHAREDIR= /usr/share/calc
 
-# By default, these values are based CALC_SHAREDIR, INCDIR, BINDIR
-# ---------------------------------------------------------------
-# ${HELPDIR}		where the help directory is installed
-# ${CALC_INCDIR}	where the calc include files are installed
-# ${SCRIPTDIR}		where calc shell scripts are installed
-#
-# NOTE: The install rule prepends installation paths with ${T}, which
-#	by default is empty.  If ${T} is non-empty, then installation
-#	locations will be relative to the ${T} directory.
-#
-# If in doubt, set:
-#
-#	HELPDIR= ${CALC_SHAREDIR}/help
-#	CALC_INCDIR= ${INCDIR}/calc
-#	SCRIPTDIR= ${BINDIR}/cscript
-#
-HELPDIR= ${CALC_SHAREDIR}/help
-CALC_INCDIR= ${INCDIR}/calc
-SCRIPTDIR= ${BINDIR}/cscript
+#######################################################
+# Calc configuration and compile configuration values #
+#######################################################
+include ${CONFIG_MKF}
+
+
+###############################
+# host target section include #
+###############################
+include ${TARGET_MKF}
+
+
+##########################################################################
+#=-=-=-=-=- Be careful if you change something below this line -=-=-=-=-=#
+##########################################################################
 
-# T - top level directory under which calc will be installed
-#
-# The calc install is performed under ${T}, the calc build is
-# performed under /.	The purpose for ${T} is to allow someone
-# to install calc somewhere other than into the system area.
-#
-# For example, if:
-#
-#     BINDIR= /usr/bin
-#     LIBDIR= /usr/lib
-#     CALC_SHAREDIR= /usr/share/calc
-#
-# and if:
-#
-#     T= /var/tmp/testing
-#
-# Then the installation locations will be:
-#
-#     calc binary files:	/var/tmp/testing/usr/bin
-#     calc link library:	/var/tmp/testing/usr/lib
-#     calc help, .cal ...:	/var/tmp/testing/usr/share/calc
-#     ... etc ...		/var/tmp/testing/...
-#
-# If ${T} is empty, calc is installed under /, which is the same
-# top of tree for which it was built.  If ${T} is non-empty, then
-# calc is installed under ${T}, as if one had to chroot under
-# ${T} for calc to operate.
-#
-# If in doubt, use T=
-#
-T=
 
 # Makefile debug
 #
@@ -240,29 +114,13 @@ H=@
 V=@:
 #V=@
 
-# standard tools
-#
-CHMOD= chmod
-CMP= cmp
-CO= co
-CP= cp
-FMT= fmt
-MKDIR= mkdir
-MV= mv
-RM= rm
-RMDIR= rmdir
-SED= sed
-SORT= sort
-TOUCH= touch
-TRUE= true
-
 # The calc files to install
 #
 # This list is produced by the detaillist rule when no WARNINGS are detected.
 #
 # Please use:
 #
-#	make calc_files_list
+#	make clobber >/dev/null && make calc_files_list
 #
 # to keep this list in nice sorted order.
 #
@@ -275,18 +133,24 @@ CALC_FILES= README alg_config.cal beer.cal bernoulli.cal \
 	natnumset.cal palindrome.cal pell.cal pi.cal pix.cal pollard.cal \
 	poly.cal prompt.cal psqrt.cal qtime.cal quat.cal randbitrun.cal \
 	randmprime.cal randombitrun.cal randomrun.cal randrun.cal regress.cal \
-	repeat.cal screen.cal seedrandom.cal set8700.cal set8700.line \
-	smallfactors.cal solve.cal specialfunctions.cal splitbits.cal \
-	statistics.cal strings.cal sumsq.cal sumtimes.cal surd.cal \
-	test1700.cal test2300.cal test2600.cal test2700.cal test3100.cal \
-	test3300.cal test3400.cal test3500.cal test4000.cal test4100.cal \
-	test4600.cal test5100.cal test5200.cal test8400.cal test8500.cal \
-	test8600.cal test8900.cal toomcook.cal unitfrac.cal varargs.cal \
-	xx_print.cal zeta2.cal
+	repeat.cal screen.cal seedrandom.cal set8700.line smallfactors.cal \
+	solve.cal specialfunctions.cal splitbits.cal statistics.cal \
+	strings.cal sumsq.cal sumtimes.cal surd.cal test2300.obj_incdec.cal \
+	test2600.numfunc.cal test2700.isqrt.cal test3100.matobj.cal \
+	test3300.det.cal test3400.trig.cal test4000.ptest.cal \
+	test4100.redc.cal test4600.fileop.cal test5100.newdecl.cal \
+	test5200.globstat.cal test8000.read.cal test8400.quit.cal \
+	test8500.divmod.cal test8600.maxargs.cal test8700.dotest.cal \
+	test8900.special.cal test9300.frem.cal test9500.trigeq.cal \
+	toomcook.cal unitfrac.cal varargs.cal write2file.cal xx_print.cal \
+	zeta2.cal
 
 # These calc files are now obsolete and are removed by the install rule.
 #
-DEAD_CALC_FILES= lucas_tbl.cal
+DEAD_CALC_FILES= lucas_tbl.cal set8700.cal test1700.cal test2300.cal test2600.cal \
+	test2700.cal test3100.cal test3300.cal test3400.cal test3500.cal test4000.cal \
+	test4100.cal test4600.cal test5100.cal test5200.cal test8400.cal test8500.cal \
+	test8600.cal test8900.cal
 
 # These files are found (but not built) in the distribution
 #
@@ -295,21 +159,38 @@ DISTLIST= ${CALC_FILES} ${MAKE_FILE}
 # These files are used to make (but not built) a calc .a link library
 #
 CALCLIBLIST=
-#
+
 # rules that are not also names of files
 #
-PHONY= all clobber distlist install
+PHONY= all distlist buildlist distdir calcliblist calc_files_list echo_inst_files \
+	clean clobber install uninstall
+
+
+############################################################
+# Allow Makefile.local to change any of the above settings #
+############################################################
+include ${LOCAL_MKF}
+
+
+###########################################
+# all - First and default Makefile target #
+###########################################
 
 all: ${CALC_FILES} ${MAKE_FILE} .all
 
+
+###############################
+# additional Makefile targets #
+###############################
+
+.PHONY: ${PHONY}
+
 # used by the upper level Makefile to determine of we have done all
 #
 .all:
 	${RM} -f .all
 	${TOUCH} .all
 
-.PHONY: ${PHONY}
-
 ##
 #
 # File list generation.	 You can ignore this section.
@@ -330,6 +211,13 @@ distlist: ${DISTLIST}
 	    fi; \
 	done
 
+buildlist:
+	${Q} for i in ${BUILD_ALL} /dev/null; do \
+	    if [ X"$$i" != X"/dev/null" ]; then \
+		echo cal/$$i; \
+	    fi; \
+	done | fgrep -v '.bak' | LANG=C ${SORT}
+
 distdir:
 	${Q} echo cal
 
@@ -382,14 +270,10 @@ clobber: clean
 	    echo ${RM} -rf .DS_Store; \
 	    ${RM} -rf .DS_Store; \
 	fi
-	-${Q} for i in ${DEAD_CALC_FILES} /dev/null; do \
+	-${Q} for i in ${DEAD_CALC_FILES} test082.cal outfile /dev/null; do \
 	    if [ "$$i" = "/dev/null" ]; then \
 		continue; \
 	    fi; \
-	    if [ -e "${T}${CALC_SHAREDIR}/$$i" ]; then \
-		echo "${RM} -f ${T}${CALC_SHAREDIR}/$$i"; \
-		${RM} -f ${T}${CALC_SHAREDIR}/$$i; \
-	    fi; \
 	    if [ -e "./$$i" ]; then \
 		echo "${RM} -f ./$$i"; \
 		${RM} -f ./$$i; \

cal/README

@@ -1130,7 +1130,7 @@ randbitrun.cal
     the number and length of identical bits runs match what is expected.
     By default, run_cnt is to test the next 65536 random values.
 
-    This tests the a55 generator.
+    This tests the subtractive 100 shuffle pseudo-random number generator.
 
 
 randmprime.cal
@@ -1177,7 +1177,7 @@ randrun.cal
     64 bit values.  By default, run_cnt is to test the next 65536
     random values.
 
-    This tests the a55 generator.
+    This tests the subtractive 100 shuffle pseudo-random number generator.
 
 repeat.cal
 
@@ -1268,18 +1268,6 @@ seedrandom.cal
     Blum primes for the modulus.
 
 
-set8700.cal
-
-    set8700_getA1() defined
-    set8700_getA2() defined
-    set8700_getvar() defined
-    set8700_f(set8700_x) defined
-    set8700_g(set8700_x) defined
-
-    Declare globals and define functions needed by dotest() (see
-    dotest.cal) to evaluate set8700.line a line at a time.
-
-
 set8700.line
 
     A line-by-line evaluation file for dotest() (see dotest.cal).
@@ -1667,15 +1655,7 @@ surd.cal
     Calculate using quadratic surds of the form: a + b * sqrt(D).
 
 
-test1700.cal
-
-    value
-
-    This resource files is used by regress.cal to test the read and
-    use keywords.
-
-
-test2600.cal
+test2600.numfunc.cal
 
     global defaultverbose
     global err
@@ -1701,7 +1681,7 @@ test2600.cal
     functions in terms of accuracy and roundoff.
 
 
-test2700.cal
+test2700.isqrt.cal
 
     global defaultverbose
     mknonnegreal()
@@ -1724,7 +1704,7 @@ test2700.cal
     complex values.
 
 
-test3100.cal
+test3100.matobj.cal
 
     obj res
     global md
@@ -1739,7 +1719,7 @@ test3100.cal
     a matrix.
 
 
-test3300.cal
+test3300.det.cal
 
     global defaultverbose
     global err
@@ -1751,7 +1731,7 @@ test3300.cal
     determinant tests.
 
 
-test3400.cal
+test3400.trig.cal
 
     global defaultverbose
     global err
@@ -1766,22 +1746,8 @@ test3400.cal
     This resource file is used by regress.cal to test trig functions.
     containing objects.
 
-test3500.cal
 
-    global defaultverbose
-    global err
-    testfrem(x, y, verbose)
-    testgcdrem(x, y, verbose)
-    testf(str, n, verbose)
-    testg(str, n, verbose)
-    testh(str, n, N, verbose)
-    test3500(verbose, n, N)
-
-    This resource file is used by regress.cal to test the functions frem,
-    fcnt, gcdrem.
-
-
-test4000.cal
+test4000.ptest.cal
 
     global defaultverbose
     global err
@@ -1814,7 +1780,7 @@ test4000.cal
     prevcand builtins.
 
 
-test4100.cal
+test4100.redc.cal
 
     global defaultverbose
     global err
@@ -1834,7 +1800,7 @@ test4100.cal
     This resource file is used by regress.cal to test REDC operations.
 
 
-test4600.cal
+test4600.fileop.cal
 
     stest(str [, verbose]) defined
     ttest([m, [n [,verbose]]]) defined
@@ -1846,7 +1812,7 @@ test4600.cal
     This resource file is used by regress.cal to test searching in files.
 
 
-test5100.cal
+test5100.newdecl.cal
 
     global a5100
     global b5100
@@ -1856,7 +1822,7 @@ test5100.cal
     declaration scope and order.
 
 
-test5200.cal
+test5200.globstat.cal
 
     global a5200
     static a5200
@@ -1868,7 +1834,7 @@ test5200.cal
     global/static bug.
 
 
-test8400.cal
+test8400.quit.cal
 
     test8400() defined
 
@@ -1876,7 +1842,7 @@ test8400.cal
     memory leaks.
 
 
-test8500.cal
+test8500.divmod.cal
 
     global err_8500
     global L_8500
@@ -1889,7 +1855,7 @@ test8500.cal
     This resource file is used by regress.cal to the // and % operators.
 
 
-test8600.cal
+test8600.maxargs.cal
 
     global min_8600
     global max_8600
@@ -1900,7 +1866,19 @@ test8600.cal
     allowing up to 1024 args to be passed to a builtin function.
 
 
-test8900.cal
+test8700.dotest.cal
+
+    set8700_getA1() defined
+    set8700_getA2() defined
+    set8700_getvar() defined
+    set8700_f(set8700_x) defined
+    set8700_g(set8700_x) defined
+
+    Declare globals and define functions needed by dotest() (see
+    dotest.cal) to evaluate set8700.line a line at a time.
+
+
+test8900.special.cal
 
     This function tests a number of calc resource functions contributed
     by Christoph Zurnieden.  These include:
@@ -1918,11 +1896,19 @@ test8900.cal
 	zeta2.cal
 
 
-unitfrac.cal
+test9300.frem.cal
 
-    unitfrac(x)
+    global defaultverbose
+    global err
+    testfrem(x, y, verbose)
+    testgcdrem(x, y, verbose)
+    testf(str, n, verbose)
+    testg(str, n, verbose)
+    testh(str, n, N, verbose)
+    test3500(verbose, n, N)
 
-    Represent a fraction as sum of distinct unit fractions.
+    This resource file is used by regress.cal to test the functions frem,
+    fcnt, gcdrem.
 
 
 toomcook.cal
@@ -1948,6 +1934,13 @@ toomcook.cal
     squaring functions act in the same way.
 
 
+unitfrac.cal
+
+    unitfrac(x)
+
+    Represent a fraction as sum of distinct unit fractions.
+
+
 varargs.cal
 
     sc(a, b, ...)
@@ -1955,6 +1948,17 @@ varargs.cal
     Example program to use 'varargs'.  Program to sum the cubes of all
     the specified numbers.
 
+write2file.cal
+
+    w2f(filename,stream,fmt,value) defined
+    wd2f(value) defined
+    wx2f(value) defined
+
+    write results to file
+
+    This resource file serves as an example of how to perform file
+    I/O. This write2file hows how to perform file I/O and is provided
+    as an illustrative example.
 
 xx_print.cal
 
@@ -1983,7 +1987,7 @@ zeta2.cal
     for information on this special zeta function.
 
 
-## Copyright (C) 2000,2014,2017,2021  David I. Bell and Landon Curt Noll
+## Copyright (C) 2000,2014,2017,2021,2023  David I. Bell and Landon Curt Noll
 ##
 ## Primary author: Landon Curt Noll
 ##

cal/ellip.cal

@@ -1,7 +1,7 @@
 /*
  * ellip - attempt to factor numbers using elliptic functions
  *
- * Copyright (C) 1999  David I. Bell
+ * Copyright (C) 1999,2023  David I. Bell
  *
  * Calc is open software; you can redistribute it and/or modify it under
  * the terms of the version 2.1 of the GNU Lesser General Public License
@@ -53,7 +53,7 @@
  *	B is the limit of the primes that make up the high power that the
  *	point is raised to for each factoring attempt (default 100).
  *	force is a flag to attempt to factor numbers even if they are
- *	thought to already be prime (default FALSE).
+ *	thought to already be prime (default false).
  *
  * Making B larger makes the power the point being raised to contain more
  * prime factors, thus increasing the chance that the order of the point

cal/randbitrun.cal

@@ -1,7 +1,7 @@
 /*
- * randbitrun - check rand bit run lengths of the a55 generator
+ * randbitrun - check rand bit run lengths of the subtractive 100 shuffle generator
  *
- * Copyright (C) 1999  Landon Curt Noll
+ * Copyright (C) 1999,2023  Landon Curt Noll
  *
  * Calc is open software; you can redistribute it and/or modify it under
  * the terms of the version 2.1 of the GNU Lesser General Public License

cal/specialfunctions.cal

@@ -1,7 +1,7 @@
 /*
  * specialfunctions - special functions (e.g.: gamma, zeta, psi)
  *
- * Copyright (C) 2013,2021 Christoph Zurnieden
+ * Copyright (C) 2013,2021,2023 Christoph Zurnieden
  *
  * Calc is open software; you can redistribute it and/or modify
  * it under the terms of the version 2.1 of the GNU Lesser General Public
@@ -802,8 +802,8 @@ define NUMBER_NEGATIVE_INFINITY()
     return -(1 / epsilon());
 }
 
-static TRUE = 1;
-static FALSE = 0;
+static true = 1;
+static false = 0;
 
 define g(prec)
 {
@@ -827,9 +827,9 @@ define __CZ__series_converged(new, old, max)
     }
     if (abs(re(new - old)) <= eps * abs(re(new))
 	&& abs(im(new - old)) <= eps * abs(im(new))) {
-	return TRUE;
+	return true;
     }
-    return FALSE;
+    return false;
 }
 
 define __CZ__ei_power(z)

cal/test2300.obj_incdec.cal

@@ -1,7 +1,7 @@
 /*
- * test2300 - 2300 series of the regress.cal test suite
+ * test_obj_incdec.2300 - test object increment/decrement for test 23dd
  *
- * Copyright (C) 1999  Landon Curt Noll
+ * Copyright (C) 1999,2023  Landon Curt Noll
  *
  * Calc is open software; you can redistribute it and/or modify it under
  * the terms of the version 2.1 of the GNU Lesser General Public License

cal/test2600.numfunc.cal

@@ -1,7 +1,7 @@
 /*
- * test2600 - 2600 series of the regress.cal test suite
+ * test2600.builtin0 - test numeric functions extensively for test 26dd
  *
- * 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
  *

cal/test2700.isqrt.cal

@@ -1,7 +1,7 @@
 /*
- * test2700 - 2700 series of the regress.cal test suite
+ * test2700.isqrt - test complex sqrt for test 27dd
  *
- * 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
  *

cal/test3100.matobj.cal

@@ -1,7 +1,7 @@
 /*
- * test3100 - 3100 series of the regress.cal test suite
+ * test3100.matobj - test matrix containing objects for test 31dd
  *
- * Copyright (C) 1999  Ernest Bowen and Landon Curt Noll
+ * Copyright (C) 1999,2023  Ernest Bowen and Landon Curt Noll
  *
  * Primary author:  Ernest Bowen
  *

cal/test3300.det.cal

@@ -1,7 +1,7 @@
 /*
- * test3300 - 3300 series of the regress.cal test suite
+ * test3300.det - test determinants of a matrix containing objects for test 31dd
  *
- * Copyright (C) 1999  Ernest Bowen and Landon Curt Noll
+ * Copyright (C) 1999,2023  Ernest Bowen and Landon Curt Noll
  *
  * Primary author:  Ernest Bowen
  *

cal/test3400.trig.cal

@@ -1,7 +1,7 @@
 /*
- * test3400 - 3400 series of the regress.cal test suite
+ * test3400.trig - test common trig functions for test 34dd
  *
- * Copyright (C) 1999  Ernest Bowen and Landon Curt Noll
+ * Copyright (C) 1999,2023  Ernest Bowen and Landon Curt Noll
  *
  * Primary author:  Ernest Bowen
  *

cal/test4000.ptest.cal

@@ -1,7 +1,7 @@
 /*
- * test4000 - 4000 series of the regress.cal test suite
+ * test4000.ptest - test ptest, nextcand, prevcand for test 40dd
  *
- * Copyright (C) 1999  Ernest Bowen and Landon Curt Noll
+ * Copyright (C) 1999,2023  Ernest Bowen and Landon Curt Noll
  *
  * Primary author:  Ernest Bowen
  *

cal/test4100.redc.cal

@@ -1,7 +1,7 @@
 /*
- * test4100 - 4100 series of the regress.cal test suite
+ * test4100.redc - test REDC operations for test 41dd
  *
- * Copyright (C) 1999  Ernest Bowen and Landon Curt Noll
+ * Copyright (C) 1999,2023  Ernest Bowen and Landon Curt Noll
  *
  * Primary author:  Ernest Bowen
  *

cal/test4600.fileop.cal

@@ -1,7 +1,7 @@
 /*
- * test4600 - 4600 series of the regress.cal test suite
+ *  test4600.fileop - 4600 series of the regress.cal test suite
  *
- * Copyright (C) 1999  Ernest Bowen and Landon Curt Noll
+ * Copyright (C) 1999,2023  Ernest Bowen and Landon Curt Noll
  *
  * Primary author:  Ernest Bowen
  *

cal/test5100.newdecl.cal

@@ -1,7 +1,7 @@
 /*
- * test5100 - 5100 series of the regress.cal test suite
+ * test5100.newdecl - test code generator declaration scope and order for test 51dd
  *
- * 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
  *

cal/test5200.globstat.cal

@@ -1,7 +1,7 @@
 /*
- * test5200 - 5200 series of the regress.cal test suite
+ * test5200.globstat - test the fix of an old global/static bug for test 52dd
  *
- * Copyright (C) 1999  Ernest Bowen and Landon Curt Noll
+ * Copyright (C) 1999,2023  Ernest Bowen and Landon Curt Noll
  *
  * Primary author:  Ernest Bowen
  *

cal/test8000.read.cal

@@ -1,7 +1,7 @@
 /*
- * test1700 - 1700 series of the regress.cal test suite
+ * test8000.read - test read operation for test 80dd
  *
- * Copyright (C) 1999  Landon Curt Noll
+ * Copyright (C) 1999,2023  Landon Curt Noll
  *
  * Calc is open software; you can redistribute it and/or modify it under
  * the terms of the version 2.1 of the GNU Lesser General Public License

cal/test8400.quit.cal

@@ -1,7 +1,7 @@
 /*
- * test8400 - 8400 series of the regress.cal test suite
+ * test8400.quit - test quit for test 84dd
  *
- * Copyright (C) 1999  Landon Curt Noll
+ * Copyright (C) 1999,2023  Landon Curt Noll
  *
  * Calc is open software; you can redistribute it and/or modify it under
  * the terms of the version 2.1 of the GNU Lesser General Public License

cal/test8500.divmod.cal

@@ -1,7 +1,7 @@
 /*
- * test8500 - 8500 series of the regress.cal test suite
+ * test8500.divmod - test // and % with various rounding mode for test 85dd
  *
- * 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
  *

cal/test8600.maxargs.cal

@@ -1,5 +1,5 @@
 /*
- * test8600 - 8600 series of the regress.cal test suite
+ * test8600.maxargs - test up to 1024 args being passed to a builtin function for test 86dd
  *
  * Copyright (C) 2000  Landon Curt Noll
  *

cal/test8700.dotest.cal

@@ -1,7 +1,7 @@
 /*
- * set8700 - environment for dotest line tests for the 8700 set of regress.cal
+ * test8700.dotest - environment for dotest line tests for test 87dd
  *
- * Copyright (C) 2006  Ernest Bowen and Landon Curt Noll
+ * Copyright (C) 2006,2023  Ernest Bowen and Landon Curt Noll
  *
  * Calc is open software; you can redistribute it and/or modify it under
  * the terms of the version 2.1 of the GNU Lesser General Public License

cal/test8900.special.cal

@@ -1,7 +1,7 @@
 /*
- * test8900 - 8900 series of the regress.cal test suite
+ * test8900.special - test calc resource functions by Christoph Zurnieden for test 89dd
  *
- * Copyright (C) 2013,2021 Christoph Zurnieden
+ * Copyright (C) 2013,2021,2023 Christoph Zurnieden
  *
  * Calc is open software; you can redistribute it and/or modify it under
  * the terms of the version 2.1 of the GNU Lesser General Public License

cal/test9300.frem.cal

@@ -1,7 +1,7 @@
 /*
- * test3500 - 3500 series of the regress.cal test suite
+ * test9300.frem - test of functions frem, fcnt, gcdrem for test 93dd
  *
- * Copyright (C) 1999  Ernest Bowen and Landon Curt Noll
+ * Copyright (C) 1999,2023  Ernest Bowen and Landon Curt Noll
  *
  * Primary author:  Ernest Bowen
  *
@@ -255,16 +255,16 @@ define testh(str,n,N,verbose)
 }
 
 /*
- * test3500 - perform all of the above tests a bunch of times
+ * test9300 - perform all of the above tests a bunch of times
  */
-define test3500(verbose, tnum, n, N)
+define test9300(verbose, tnum, n, N)
 {
 	/* set test parameters */
 	if (isnull(verbose)) {
 		verbose = defaultverbose;
 	}
 	if (isnull(tnum)) {
-		tnum = 3501;	/* default test number */
+		tnum = 9301;	/* default test number */
 	}
 	if (isnull(n)) {
 		n = 200;
@@ -276,7 +276,7 @@ define test3500(verbose, tnum, n, N)
 	/*
 	 * test a lot of stuff
 	 */
-	srand(3500e3500);
+	srand(9300e9300);
 	err += testf(strcat(str(tnum++), ": frem/fcnt"), n, verbose);
 	err += testg(strcat(str(tnum++), ": gcdrem"), n, verbose);
 	err += testh(strcat(str(tnum++),": gcdrem #2"), n, N, verbose);

cal/write2file.cal

@@ -0,0 +1,121 @@
+/*
+ * write2file - write results to file
+ *
+ * This resource file serves as an example of how to perform file I/O.
+ * This write2file hows how to perform file I/O and is provided as
+ * an illustrative example.
+ *
+ * Copyright (C) 2023  Landon Curt Noll
+ *
+ * Calc is open software; you can redistribute it and/or modify it under
+ * the terms of the version 2.1 of the GNU Lesser General Public License
+ * as published by the Free Software Foundation.
+ *
+ * Calc is distributed in the hope that it will be useful, but WITHOUT
+ * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY
+ * or FITNESS FOR A PARTICULAR PURPOSE.	 See the GNU Lesser General
+ * Public License for more details.
+ *
+ * A copy of version 2.1 of the GNU Lesser General Public License is
+ * distributed with calc under the filename COPYING-LGPL.  You should have
+ * received a copy with calc; if not, write to Free Software Foundation, Inc.
+ * 51 Franklin Street, Fifth Floor, Boston, MA  02110-1301, USA.
+ *
+ * Under source code control:	2023/08/20 13:13:11
+ * File existed as early as:	2023
+ *
+ * chongo <was here> /\oo/\	http://www.isthe.com/chongo/
+ * Share and enjoy!  :-)	http://www.isthe.com/chongo/tech/comp/calc/
+ */
+
+
+static outfilename;  /* where to write stuff */
+static outfile;      /* open file stream on which to write */
+static stderr;       /* write errors to standard error */
+
+
+/*
+ * setup
+ */
+if (!isstr(outfilename)) {
+    outfilename = "./outfile";
+}
+if (!isfile(stderr)) {
+    stderr = files(2);
+    if (!isfile(stderr)) {
+        printf("Warning: stderr as files(2) is not a file!\n");
+    }
+}
+
+
+/*
+ * try to create or open and truncate the outfile
+ */
+if (!isfile(outfile)) {
+    /* open outfilename for writing at the beginning */
+    outfile = fopen(outfilename, "w");
+
+    /* firewall - check for failing to open */
+    if (!isfile(outfile)) {
+        fprintf(stderr, "failed to open: %s error(%d): %s\n", outfilename, errno(outfile), strerror(outfile));
+    }
+}
+
+
+/*
+ * write a value to a file given a format
+ */
+define w2f(filename, stream, fmt, value) {
+
+    /* firewall */
+    if (!isfile(stderr)) {
+        printf("stderr is not an open file\n");
+        return;
+    }
+    if (!isstr(filename)) {
+        fprintf(stderr, "filename argument is not a string\n");
+        return;
+    }
+    if (!isfile(stream)) {
+        fprintf(stderr, "stream argument is not an open file\n");
+        return;
+    }
+    if (!isstr(fmt)) {
+        fprintf(stderr, "fmt argument is not a string\n");
+        return;
+    }
+    if (!isnum(value)) {
+        fprintf(stderr, "value argument is not a numeric value\n");
+        return;
+    }
+
+    /* write value in decimal */
+    fprintf(stream, fmt, value);
+    if (ferror(stream)) {
+        fprintf(stderr, "error in writing to file: %s error(%d): %s\n", filename, errno(stream), strerror(stream));
+        return;
+    }
+
+    /* flush to be sure it is completely written */
+    fflush(outfile);
+    if (ferror(outfile)) {
+        fprintf(stderr, "error in flushing to file: %s error(%d): %s\n", filename, errno(stream), strerror(stream));
+    }
+    return;
+}
+
+
+/*
+ * wd2f - write a value to an open file in decimal
+ */
+define wd2f(value) {
+    return w2f(outfilename, outfile, "%d\n", value);
+}
+
+
+/*
+ * wx2f - write a value to an open file in hexadecimal
+ */
+define wx2f(value) {
+    return w2f(outfilename, outfile, "%x\n", value);
+}

calc.c

@@ -1,9 +1,7 @@
 /*
  * calc - arbitrary precision calculator
  *
- * Copyright (C) 1999-2013,2021,2022  David I. Bell, Landon Curt Noll and Ernest Bowen
- *
- * Primary author:  David I. Bell
+ * Copyright (C) 1999-2013,2021-2023  David I. Bell, Landon Curt Noll and Ernest Bowen
  *
  * Calc is open software; you can redistribute it and/or modify it under
  * the terms of the version 2.1 of the GNU Lesser General Public License
@@ -84,7 +82,7 @@
 #include "have_unused.h"
 
 
-#include "attribute.h"
+#include "errtbl.h"
 #include "banned.h"	/* include after system header <> includes */
 
 
@@ -93,7 +91,7 @@
  */
 S_FUNC void intint(int arg);	/* interrupt routine */
 S_FUNC void calc_interrupt(char *fmt, ...);
-S_FUNC int nextcp(char **cpp, int *ip, int argc, char **argv, BOOL haveendstr);
+S_FUNC int nextcp(char **cpp, int *ip, int argc, char **argv, bool haveendstr);
 S_FUNC void set_run_state(run state);
 
 /*
@@ -111,10 +109,10 @@ main(int argc, char **argv)
 	char *cp;
 	char *endcp;
 	char *bp;
-	BOOL done = FALSE;
-	BOOL havearg;
-	BOOL haveendstr;
-	BOOL stdin_closed = FALSE;
+	bool done = false;
+	bool havearg;
+	bool haveendstr;
+	bool stdin_closed = false;
 	size_t len;
 
 	/*
@@ -135,7 +133,7 @@ main(int argc, char **argv)
 	index = 1;
 	cp = endcp = NULL;
 	maxindex = argc;
-	havecommands = FALSE;
+	havecommands = false;
 	while (index < maxindex && !done) {
 		cp = argv[index];
 		if (*cp == '\0') {
@@ -143,9 +141,9 @@ main(int argc, char **argv)
 			continue;
 		}
 		for (;;) {
-			havearg = FALSE;
+			havearg = false;
 			if (*cp != '-') {
-				done = TRUE;
+				done = true;
 				break;
 			}
 			++cp;
@@ -153,7 +151,7 @@ main(int argc, char **argv)
 				cp++;
 				while (*cp == ' ')
 					++cp;
-				done = TRUE;
+				done = true;
 				break;
 			}
 
@@ -164,9 +162,33 @@ main(int argc, char **argv)
 				switch (c) {
 				case 'C':
 #if defined(CUSTOM)
-					allow_custom = TRUE;
+
+					/*
+					 * error if libcustcalc was compiled with CUSTOM undefined
+					 */
+					if (custom_compiled() != true) {
+					    math_error("%s: calc was built with custom functions enabled, "
+						       "custom_compiled() returned: %d != %d",
+						       program, custom_compiled(), true);
+					    exit(1);
+					}
+
+					/*
+					 * indicate that custom functions are now allowed
+					 */
+					allow_custom = true;
 					break;
 #else /* CUSTOM */
+
+					/*
+					 * error if libcustcalc was compiled with CUSTOM defined
+					 */
+					if (custom_compiled() != false) {
+					    math_error("%s: calc was built with custom functions disabled, "
+						       "custom_compiled() returned: %d != %d",
+						       program, custom_compiled(), false);
+					}
+
 					/*
 					 * we are too early in processing to
 					 * call libcalc_call_me_last() -
@@ -179,13 +201,13 @@ main(int argc, char **argv)
 					exit(1);
 #endif /* CUSTOM */
 				case 'e':
-					no_env = TRUE;
+					no_env = true;
 					break;
 				case 'h':
 					want_defhelp = 1;
 					break;
 				case 'i':
-					i_flag = TRUE;
+					i_flag = true;
 					break;
 				case 'm':
 					cp++;
@@ -222,7 +244,7 @@ main(int argc, char **argv)
 						fprintf(stderr, "??? m-arg");
 						exit(4);
 					}
-					havearg = TRUE;
+					havearg = true;
 					break;
 				case 'n':
 					/*
@@ -231,22 +253,22 @@ main(int argc, char **argv)
 					 */
 					break;
 				case 'O':
-					use_old_std = TRUE;
+					use_old_std = true;
 					break;
 				case 'p':
-					p_flag = TRUE;
+					p_flag = true;
 					break;
 				case 'q':
-					q_flag = TRUE;
+					q_flag = true;
 					break;
 				case 'u':
-					u_flag = TRUE;
+					u_flag = true;
 					break;
 				case 'c':
-					c_flag = TRUE;
+					c_flag = true;
 					break;
 				case 'd':
-					d_flag = TRUE;
+					d_flag = true;
 					break;
 				case 'v':
 					/*
@@ -273,12 +295,12 @@ main(int argc, char **argv)
 					 * calc_debug:resource_debug:user_debug
 					 */
 					if (nextcp(&cp, &index, argc, argv,
-						   FALSE)) {
+						   false)) {
 					    fprintf(stderr,
 						    "-D expects argument\n");
 					    exit(5);
 					}
-					havearg = TRUE;
+					havearg = true;
 					if (*cp != ':') {
 						if (*cp < '0' || *cp > '9') {
 						    fprintf(stderr,
@@ -299,13 +321,13 @@ main(int argc, char **argv)
 						if (*cp != ':') {
 						    if (nextcp(&cp, &index,
 							       argc, argv,
-							       FALSE)
+							       false)
 								|| *cp != ':')
 							break;
 						}
 					}
 					if (nextcp(&cp, &index, argc, argv,
-						   FALSE)) {
+						   false)) {
 						fprintf(stderr,
 							"-D : expects"
 							" argument\n");
@@ -331,14 +353,14 @@ main(int argc, char **argv)
 						if (*cp != ':') {
 							if (nextcp(&cp, &index,
 								   argc, argv,
-							           FALSE)
+							           false)
 							    || *cp != ':') {
 								break;
 							}
 						}
 					}
 					if (nextcp(&cp, &index, argc, argv,
-						   FALSE)) {
+						   false)) {
 					    fprintf(stderr, "-D : : expects"
 						    " argument\n");
 					    exit(11);
@@ -371,7 +393,7 @@ main(int argc, char **argv)
 							" filename\n");
 						exit(15);
 					}
-					havearg = TRUE;
+					havearg = true;
 					if (cmdlen > 0)
 						cmdbuf[cmdlen++] = ' ';
 					strlcpy(cmdbuf + cmdlen, "read ",
@@ -455,12 +477,12 @@ main(int argc, char **argv)
 					cmdlen++;
 
 					/* -f implies -s */
-					s_flag = TRUE;
+					s_flag = true;
 					maxindex = index + 1;
 					break;
 
 				case 's':
-					s_flag = TRUE;
+					s_flag = true;
 					maxindex = index + 1;
 					break;
 				default:
@@ -520,11 +542,11 @@ main(int argc, char **argv)
 	if (havecommands) {
 		cmdbuf[cmdlen++] = '\n';
 		cmdbuf[cmdlen] = '\0';
-		if (p_flag != TRUE) {
+		if (p_flag != true) {
 			if (fclose(stdin)) {
 				perror("main(): fclose(stdin) failed:");
 			}
-			stdin_closed = TRUE;
+			stdin_closed = true;
 		}
 	}
 
@@ -535,7 +557,7 @@ main(int argc, char **argv)
 	 * unbuffered mode
 	 */
 	if (u_flag) {
-		if (stdin_closed == FALSE) {
+		if (stdin_closed == false) {
 			setbuf(stdin, NULL);
 		}
 		setbuf(stdout, NULL);
@@ -547,7 +569,7 @@ main(int argc, char **argv)
 	libcalc_call_me_first();
 	if (u_flag) {
 		if (conf->calc_debug & CALCDBG_TTY) {
-			if (stdin_closed == FALSE) {
+			if (stdin_closed == false) {
 				printf("main: stdin set to unbuffered before "
 				       "calling libcalc_call_me_first()\n");
 			} else {
@@ -623,7 +645,7 @@ main(int argc, char **argv)
 	while (run_state == RUN_RCFILES) {
 		fprintf(stderr, "Error in rcfiles\n");
 		if ((c_flag && !stoponerror) || stoponerror < 0) {
-			getcommands(FALSE);
+			getcommands(false);
 			if (inputlevel() == 0) {
 				closeinput();
 				runrcfiles();
@@ -644,7 +666,7 @@ main(int argc, char **argv)
 		if (havecommands) {
 			set_run_state(RUN_CMD_ARGS);
 			(void) openstring(cmdbuf, strlen(cmdbuf));
-			getcommands(FALSE);
+			getcommands(false);
 			closeinput();
 		}
 		set_run_state(RUN_PRE_TOP_LEVEL);
@@ -653,7 +675,7 @@ main(int argc, char **argv)
 	while (run_state == RUN_CMD_ARGS) {
 		fprintf(stderr, "Error in commands\n");
 		if ((c_flag && !stoponerror) || stoponerror < 0) {
-			getcommands(FALSE);
+			getcommands(false);
 			if (inputlevel() == 0)
 				set_run_state(RUN_PRE_TOP_LEVEL);
 			closeinput();
@@ -679,7 +701,7 @@ main(int argc, char **argv)
 				openterminal();
 			}
 			set_run_state(RUN_TOP_LEVEL);
-			getcommands(TRUE);
+			getcommands(true);
 		}
 		if (p_flag || (!i_flag && havecommands))
 			set_run_state(RUN_EXIT);
@@ -689,7 +711,7 @@ main(int argc, char **argv)
 		if (conf->calc_debug & CALCDBG_RUNSTATE)
 			printf("main: run_state = TOP_LEVEL\n");
 		if ((c_flag && !stoponerror) || stoponerror < 0) {
-			getcommands(TRUE);
+			getcommands(true);
 			if (!inputisterminal()) {
 				closeinput();
 				continue;
@@ -713,7 +735,7 @@ main(int argc, char **argv)
 					break;
 				}
 
-				stdin_tty = TRUE;
+				stdin_tty = true;
 				if (conf->calc_debug & CALCDBG_TTY)
 					printf("main: stdin_tty is %d\n",
 					       stdin_tty);
@@ -722,7 +744,7 @@ main(int argc, char **argv)
 		} else {
 			if (stdin_tty) {
 				reinitialize();
-				getcommands(TRUE);
+				getcommands(true);
 			} else if (inputisterminal() &&
 					!p_flag && (!havecommands||i_flag)) {
 				closeinput();
@@ -742,7 +764,7 @@ main(int argc, char **argv)
 					set_run_state(RUN_EXIT_WITH_ERROR);
 					break;
 				}
-				stdin_tty = TRUE;
+				stdin_tty = true;
 				if (conf->calc_debug & CALCDBG_TTY)
 					printf("main: stdin_tty is %d\n",
 					       stdin_tty);
@@ -780,7 +802,7 @@ intint(int UNUSED(arg))
 		not_reached();
 	}
 	if (abortlevel >= ABORT_MATH)
-		_math_abort_ = TRUE;
+		_math_abort_ = true;
 	printf("\n[Abort level %d]\n", abortlevel);
 }
 
@@ -818,7 +840,7 @@ calc_interrupt(char *fmt, ...)
 }
 
 S_FUNC int
-nextcp(char **cpp, int *ip, int argc, char **argv, BOOL haveendstr)
+nextcp(char **cpp, int *ip, int argc, char **argv, bool haveendstr)
 {
 	char *cp;
 	int index;

calc.h

@@ -1,7 +1,7 @@
 /*
  * calc - definitions for calculator program
  *
- * Copyright (C) 1999-2007,2014,2021  David I. Bell
+ * Copyright (C) 1999-2007,2014,2021,2023  David I. Bell
  *
  * Calc is open software; you can redistribute it and/or modify it under
  * the terms of the version 2.1 of the GNU Lesser General Public License
@@ -104,9 +104,9 @@
 E_FUNC FILEID openid(char *name, char *mode);
 E_FUNC FILEID openpathid(char *name, char *mode, char *pathlist);
 E_FUNC FILEID indexid(long index);
-E_FUNC BOOL validid(FILEID id);
-E_FUNC BOOL errorid(FILEID id);
-E_FUNC BOOL eofid(FILEID id);
+E_FUNC bool validid(FILEID id);
+E_FUNC bool errorid(FILEID id);
+E_FUNC bool eofid(FILEID id);
 E_FUNC int closeid(FILEID id);
 E_FUNC int getcharid(FILEID id);
 E_FUNC int idprintf(FILEID id, char *fmt, int count, VALUE **vals);
@@ -157,7 +157,7 @@ E_FUNC int nextchar(void);
 E_FUNC void reread(void);
 E_FUNC void resetinput(void);
 E_FUNC void setprompt(char *);
-E_FUNC BOOL inputisterminal(void);
+E_FUNC bool inputisterminal(void);
 E_FUNC int inputlevel(void);
 E_FUNC long calclevel(void);
 E_FUNC char *inputname(void);
@@ -172,12 +172,12 @@ E_FUNC NUMBER *constvalue(unsigned long index);
 E_FUNC long addnumber(char *str);
 E_FUNC long addqconstant(NUMBER *q);
 E_FUNC void initstack(void);
-E_FUNC void getcommands(BOOL toplevel);
+E_FUNC void getcommands(bool toplevel);
 E_FUNC void givehelp(char *type);
 E_FUNC void libcalc_call_me_first(void);
 E_FUNC void libcalc_call_me_last(void);
-E_FUNC BOOL calc_tty(int fd);
-E_FUNC BOOL orig_tty(int fd);
+E_FUNC bool calc_tty(int fd);
+E_FUNC bool orig_tty(int fd);
 E_FUNC void showerrors(void);
 E_FUNC char *calc_strdup(CONST char *);
 
@@ -187,7 +187,7 @@ E_FUNC char *calc_strdup(CONST char *);
 E_FUNC void initialize(void);
 E_FUNC void reinitialize(void);
 #if !defined(_WIN32) && !defined(_WIN64)
-E_FUNC int isatty(int tty);	/* TRUE if fd is a tty */
+E_FUNC int isatty(int tty);	/* true if fd is a tty */
 #endif
 E_FUNC char *version(void);	/* return version string */
 
@@ -195,33 +195,34 @@ E_FUNC char *version(void);	/* return version string */
  * global flags and definitions
  */
 EXTERN int abortlevel;	/* current level of aborts */
-EXTERN BOOL inputwait;	/* TRUE if in a terminal input wait */
+EXTERN bool inputwait;	/* true if in a terminal input wait */
 
-EXTERN int p_flag;		/* TRUE => pipe mode */
-EXTERN int q_flag;		/* TRUE => don't execute rc files */
-EXTERN int u_flag;		/* TRUE => unbuffer stdin and stdout */
-EXTERN int d_flag;		/* TRUE => disable heading, resource_debug */
-EXTERN int c_flag;		/* TRUE => continue after error if permitted */
-EXTERN int i_flag;		/* TRUE => try to go interactive after error */
-E_FUNC int s_flag;		/* TRUE => keep args as strings for argv() */
+EXTERN int p_flag;		/* true => pipe mode */
+EXTERN int q_flag;		/* true => don't execute rc files */
+EXTERN int u_flag;		/* true => unbuffer stdin and stdout */
+EXTERN int d_flag;		/* true => disable heading, resource_debug */
+EXTERN int c_flag;		/* true => continue after error if permitted */
+EXTERN int i_flag;		/* true => try to go interactive after error */
+E_FUNC int s_flag;		/* true => keep args as strings for argv() */
 EXTERN long stoponerror;	/* >0 => stop, <0 => continue, ==0 => use -c */
-EXTERN BOOL abort_now;	/* TRUE => try to go interactive */
+EXTERN bool abort_now;	/* true => try to go interactive */
 
 E_FUNC int argc_value;	/* count of argv[] strings for argv() builtin */
 E_FUNC char **argv_value;	/* argv[] strings for argv() builtin */
 
 EXTERN char *pager;		/* $PAGER or default */
-EXTERN int stdin_tty;	/* TRUE if stdin is a tty */
-EXTERN int havecommands;	/* TRUE if have cmd args) */
+EXTERN int stdin_tty;	/* true if stdin is a tty */
+EXTERN int havecommands;	/* true if have cmd args) */
 EXTERN char *program;	/* our name */
 EXTERN char *base_name;	/* basename of our name */
 EXTERN char cmdbuf[];	/* command line expression */
 EXTERN char *script_name;	/* program name or -f filename arg or NULL */
 
 EXTERN int abortlevel;	/* current level of aborts */
-EXTERN BOOL inputwait;	/* TRUE if in a terminal input wait */
+EXTERN bool inputwait;	/* true if in a terminal input wait */
 EXTERN VALUE *stack;	/* execution stack */
-EXTERN int dumpnames;	/* TRUE => dump names rather than indices */
+EXTERN int dumpnames;	/* true => dump names rather than indices */
+EXTERN int calc_errno;	/* global calc_errno value */
 
 EXTERN char *calcpath;	/* $CALCPATH or default */
 EXTERN char *calcrc;	/* $CALCRC or default */
@@ -229,13 +230,13 @@ EXTERN char *calcbindings;	/* $CALCBINDINGS or default */
 EXTERN char *home;		/* $HOME or default */
 EXTERN char *shell;		/* $SHELL or default */
 
-EXTERN int no_env;	/* TRUE (-e) => ignore env vars on startup */
+EXTERN int no_env;	/* true (-e) => ignore env vars on startup */
 EXTERN long errmax;	/* if >= 0, error when errcount exceeds errmax */
-EXTERN int use_old_std;	/* TRUE (-O) => use classic configuration */
+EXTERN int use_old_std;	/* true (-O) => use classic configuration */
 
-EXTERN int allow_read;	/* FALSE => don't open any files for reading */
-EXTERN int allow_write; 	/* FALSE => don't open any files for writing */
-EXTERN int allow_exec;	/* FALSE => may not execute any commands */
+EXTERN int allow_read;	/* false => don't open any files for reading */
+EXTERN int allow_write; 	/* false => don't open any files for writing */
+EXTERN int allow_exec;	/* false => may not execute any commands */
 
 /*
  * calc startup and run state

calc.man

@@ -501,7 +501,7 @@ version number and exit.
 
 .TP
 .B \-\-
-The double dash indicates to calc that no more option follow.
+The double dash indicates to calc that no more options follow.
 Thus calc will ignore a later argument on the command line
 even if it starts with a dash.
 This is useful when entering negative values on the command line as in:
@@ -543,7 +543,7 @@ will not evaluate any
 arguments but instead make them available
 as strings to the argv() builtin function.
 
-Sufficiently simple commands with no no characters like
+Sufficiently simple commands with no characters like
 parentheses, brackets, semicolons, '*', which have special
 interpretations in UNIX shells may be entered, possibly with
 spaces, until the terminating newline.
@@ -804,7 +804,7 @@ the rest of the file will be processed in
 Note that
 .B \-s
 .B \-f
-must at the end of the initial ``#!'' line.
+must be at the end of the initial ``#!'' line.
 Any other optional
 .B "optional_other_flags"
 must come before
@@ -973,7 +973,7 @@ Before a variable is assigned a value it has the value of zero.
 .PP
 The scope of a variable may be global, local to a file, or local to a
 procedure.
-Values may be grouped together in a matrix, or into a
+Values may be grouped together in a matrix, or into
 a list that permits stack and queue style operations.
 .PP
 For more information use the following

calc.spec.in

@@ -1,7 +1,7 @@
 #
 # calc.spec.in - template specfile for calc
 #
-# Copyright (C) 2003-2014,2021  Petteri Kettunen and Landon Curt Noll
+# Copyright (C) 2003-2014,2021,2023  Petteri Kettunen and Landon Curt Noll
 #
 # Calc is open software; you can redistribute it and/or modify it under
 # the terms of the version 2.1 of the GNU Lesser General Public License
@@ -20,23 +20,25 @@
 # Under source code control:	2003/02/16 20:21:39
 # File existed as early as:	2003
 #
-# calculator by David I. Bell with help/mods from others
-# Makefile by Petteri Kettunen with modifications from Landon Curt Noll
+# This calculator first developed by David I. Bell with help/mods from others.
+#
+# chongo <was here> /\oo/\	http://www.isthe.com/chongo/
+# Share and enjoy!  :-)		http://www.isthe.com/chongo/tech/comp/calc/
 
 # BUGS
 #  - Uninstalling calc and calc-devel leaves empty dirs /usr/include/calc
-#    and /usr/share/calc and its subdirs. In case e.g. %{_includedir}/calc
+#    and /usr/share/calc and its subdirs. In case e.g., _includedir/calc
 #    is defined in `files devel' section, then rpmbuild complains that
 #    header files are defined twice - rpmbuild bug or bug in specfile conf???
 
 Summary: Arbitrary precision calculator.
 Name: calc
 Version: <<<PROJECT_VERSION>>>
-Release: 13
+Release: 14
 License: LGPL
 Group: Applications/Engineering
-Source: http://www.isthe.com/chongo/src/calc/%{name}-%{version}.tar.bz2
-URL: http://www.isthe.com/chongo/tech/comp/calc/index.html
+Source: https://github.com/lcn2/calc/releases/download/v<<<PROJECT_VERSION>>>/%{name}-%{version}.tar.bz2
+URL: https://github.com/lcn2/calc
 Vendor: Landon Noll and Associates
 Packager: Landon Noll and Associates (http://www.isthe.com/chongo/index.html)
 Requires: ncurses >= 5.5-24, readline >= 5.1-3, less >= 358
@@ -51,7 +53,11 @@ calculator, an algorithm prototype and mathematical research
 tool. Calc comes with a rich set of builtin mathematical and
 programming functions.
 
-For the latest calc release, see the calc project home page:
+For the latest calc release, see the calc GitHub repo:
+
+    https://github.com/lcn2/calc
+
+or the calc home page:
 
     http://www.isthe.com/chongo/tech/comp/calc/index.html
 
@@ -67,7 +73,11 @@ Requires: ncurses >= 5.5-24, readline >= 5.1-3, less >= 358
 This package contains the header files and static libraries for developing
 calc (arbitrary precision calculator).
 
-For the latest calc release, see the project home page:
+For the latest calc release, see the calc GitHub repo:
+
+    https://github.com/lcn2/calc
+
+or the calc home page:
 
     http://www.isthe.com/chongo/tech/comp/calc/index.html
 
@@ -152,8 +162,10 @@ echo '-=- calc.spec beginning make clean -=-'
 %attr(644, root, root) %{_datadir}/%{name}/*.cal
 %attr(644, root, root) %{_datadir}/%{name}/set8700.line
 %attr(644, root, root) %{_libdir}/libcalc.so
+%attr(644, root, root) %{_libdir}/libcalc.so.<<<PROJECT_VER>>>
 %attr(644, root, root) %{_libdir}/libcalc.so.%{version}
 %attr(644, root, root) %{_libdir}/libcustcalc.so
+%attr(644, root, root) %{_libdir}/libcustcalc.so.<<<PROJECT_VER>>>
 %attr(644, root, root) %{_libdir}/libcustcalc.so.%{version}
 
 %files devel
@@ -165,6 +177,11 @@ echo '-=- calc.spec beginning make clean -=-'
 %attr(644, root, root) %{_libdir}/libcustcalc.a
 
 %changelog
+* Mon Aug 14 2023 Landon Curt Noll http://www.isthe.com/chongo
+- Release: 14
+- Use Source and URL based on calc GitHub repo URLs.
+- Install dynamic shared libraries with 3-digit version numbers.
+
 * Sun Mar 24 2019 Landon Curt Noll http://www.isthe.com/chongo
 - Release: 13
 - Disable compiling with the default ARCH_CFLAGS= -march=native

calcerr.tbl

@@ -1,544 +0,0 @@
-#
-# calcerr - error codes and messages
-#
-# Copyright (C) 1999-2006,2021  Ernest Bowen
-#
-# Calc is open software; you can redistribute it and/or modify it under
-# the terms of the version 2.1 of the GNU Lesser General Public License
-# as published by the Free Software Foundation.
-#
-# Calc is distributed in the hope that it will be useful, but WITHOUT
-# ANY WARRANTY; without even the implied warranty of MERCHANTABILITY
-# or FITNESS FOR A PARTICULAR PURPOSE.	See the GNU Lesser General
-# Public License for more details.
-#
-# A copy of version 2.1 of the GNU Lesser General Public License is
-# distributed with calc under the filename COPYING-LGPL.  You should have
-# received a copy with calc; if not, write to Free Software Foundation, Inc.
-# 51 Franklin Street, Fifth Floor, Boston, MA  02110-1301, USA.
-#
-# Under source code control:	1996/05/23 17:38:44
-# File existed as early as:	1996
-#
-# Share and enjoy!  :-)		http://www.isthe.com/chongo/tech/comp/calc/
-
-# This file is used to build calcerr.h include file.
-#
-# Lines should be of the form:
-#
-#	SYMBOL	meaning
-
-######################################################################
-# WARNING: The order of the lines below is critical!  If you change  #
-#	   the order, you will break code that depends on the return #
-#	   value of the errno() builtin function.		     #
-#								     #
-#	   If you need to add values to this table, ONLY add then    #
-#	   to the bottom of the file!				     #
-######################################################################
-
-
-E_1OVER0	Division by zero
-E_0OVER0	Indeterminate (0/0)
-E_ADD		Bad arguments for +
-E_SUB		Bad arguments for binary -
-E_MUL		Bad arguments for *
-E_DIV		Bad arguments for /
-E_NEG		Bad argument for unary -
-E_SQUARE	Bad argument for squaring
-E_INV		Bad argument for inverse
-E_INCV		Bad argument for ++
-E_DECV		Bad argument for --
-E_INT		Bad argument for int
-E_FRAC		Bad argument for frac
-E_CONJ		Bad argument for conj
-E_APPR		Bad first argument for appr
-E_APPR2		Bad second argument for appr
-E_APPR3		Bad third argument for appr
-E_ROUND		Bad first argument for round
-E_ROUND2	Bad second argument for round
-E_ROUND3	Bad third argument for round
-E_BROUND	Bad first argument for bround
-E_BROUND2	Bad second argument for bround
-E_BROUND3	Bad third argument for bround
-E_SQRT		Bad first argument for sqrt
-E_SQRT2		Bad second argument for sqrt
-E_SQRT3		Bad third argument for sqrt
-E_ROOT		Bad first argument for root
-E_ROOT2		Bad second argument for root
-E_ROOT3		Bad third argument for root
-E_NORM		Bad argument for norm
-E_SHIFT		Bad first argument for << or >>
-E_SHIFT2	Bad second argument for << or >>
-E_SCALE		Bad first argument for scale
-E_SCALE2	Bad second argument for scale
-E_POWI		Bad first argument for ^
-E_POWI2		Bad second argument for ^
-E_POWER		Bad first argument for power
-E_POWER2	Bad second argument for power
-E_POWER3	Bad third argument for power
-E_QUO		Bad first argument for quo or //
-E_QUO2		Bad second argument for quo or //
-E_QUO3		Bad third argument for quo
-E_MOD		Bad first argument for mod or %
-E_MOD2		Bad second argument for mod or %
-E_MOD3		Bad third argument for mod
-E_SGN		Bad argument for sgn
-E_ABS		Bad first argument for abs
-E_ABS2		Bad second argument for abs
-E_EVAL		Scan error in argument for eval
-E_STR		Non-simple type for str
-E_EXP1		Non-real epsilon for exp
-E_EXP2		Bad first argument for exp
-E_FPUTC1	Non-file first argument for fputc
-E_FPUTC2	Bad second argument for fputc
-E_FPUTC3	File not open for writing for fputc
-E_FGETC1	Non-file first argument for fgetc
-E_FGETC2	File not open for reading for fgetc
-E_FOPEN1	Non-string arguments for fopen
-E_FOPEN2	Unrecognized mode for fopen
-E_FREOPEN1	Non-file first argument for freopen
-E_FREOPEN2	Non-string or unrecognized mode for freopen
-E_FREOPEN3	Non-string third argument for freopen
-E_FCLOSE1	Non-file argument for fclose
-E_FFLUSH	Non-file argument for fflush
-E_FPUTS1	Non-file first argument for fputs
-E_FPUTS2	Non-string argument after first for fputs
-E_FPUTS3	File not open for writing for fputs
-E_FGETS1	Non-file argument for fgets
-E_FGETS2	File not open for reading for fgets
-E_FPUTSTR1	Non-file first argument for fputstr
-E_FPUTSTR2	Non-string argument after first for fputstr
-E_FPUTSTR3	File not open for writing for fputstr
-E_FGETSTR1	Non-file first argument for fgetstr
-E_FGETSTR2	File not open for reading for fgetstr
-E_FGETLINE1	Non-file  argument for fgetline
-E_FGETLINE2	File not open for reading for fgetline
-E_FGETFIELD1	Non-file argument for fgetfield
-E_FGETFIELD2	File not open for reading for fgetfield
-E_REWIND1	Non-file argument for rewind
-E_FILES		Non-integer argument for files
-E_PRINTF1	Non-string fmt argument for fprint
-E_PRINTF2	Stdout not open for writing to ???
-E_FPRINTF1	Non-file first argument for fprintf
-E_FPRINTF2	Non-string second (fmt) argument for fprintf
-E_FPRINTF3	File not open for writing for fprintf
-E_STRPRINTF1	Non-string first (fmt) argument for strprintf
-E_STRPRINTF2	Error in attempting strprintf ???
-E_FSCAN1	Non-file first argument for fscan
-E_FSCAN2	File not open for reading for fscan
-E_STRSCAN	Non-string first argument for strscan
-E_FSCANF1	Non-file first argument for fscanf
-E_FSCANF2	Non-string second (fmt) argument for fscanf
-E_FSCANF3	Non-lvalue argument after second for fscanf
-E_FSCANF4	File not open for reading or other error for fscanf
-E_STRSCANF1	Non-string first argument for strscanf
-E_STRSCANF2	Non-string second (fmt) argument for strscanf
-E_STRSCANF3	Non-lvalue argument after second for strscanf
-E_STRSCANF4	Some error in attempting strscanf ???
-E_SCANF1	Non-string first (fmt) argument for scanf
-E_SCANF2	Non-lvalue argument after first for scanf
-E_SCANF3	Some error in attempting scanf ???
-E_FTELL1	Non-file argument for ftell
-E_FTELL2	File not open or other error for ftell
-E_FSEEK1	Non-file first argument for fseek
-E_FSEEK2	Non-integer or negative second argument for fseek
-E_FSEEK3	File not open or other error for fseek
-E_FSIZE1	Non-file argument for fsize
-E_FSIZE2	File not open or other error for fsize
-E_FEOF1		Non-file argument for feof
-E_FEOF2		File not open or other error for feof
-E_FERROR1	Non-file argument for ferror
-E_FERROR2	File not open or other error for ferror
-E_UNGETC1	Non-file argument for ungetc
-E_UNGETC2	File not open for reading for ungetc
-E_UNGETC3	Bad second argument or other error for ungetc
-E_BIGEXP	Exponent too big in scanning
-E_ISATTY1	E_ISATTY1 is no longer used
-E_ISATTY2	E_ISATTY2 is no longer used
-E_ACCESS1	Non-string first argument for access
-E_ACCESS2	Bad second argument for access
-E_SEARCH1	Bad first argument for search
-E_SEARCH2	Bad second argument for search
-E_SEARCH3	Bad third argument for search
-E_SEARCH4	Bad fourth argument for search
-E_SEARCH5	Cannot find fsize or fpos for search
-E_SEARCH6	File not readable for search
-E_RSEARCH1	Bad first argument for rsearch
-E_RSEARCH2	Bad second argument for rsearch
-E_RSEARCH3	Bad third argument for rsearch
-E_RSEARCH4	Bad fourth argument for rsearch
-E_RSEARCH5	Cannot find fsize or fpos for rsearch
-E_RSEARCH6	File not readable for rsearch
-E_MANYOPEN	Too many open files
-E_REWIND2	Attempt to rewind a file that is not open
-E_STRERROR1	Bad argument type for strerror
-E_STRERROR2	Index out of range for strerror
-E_COS1		Bad epsilon for cos
-E_COS2		Bad first argument for cos
-E_SIN1		Bad epsilon for sin
-E_SIN2		Bad first argument for sin
-E_EVAL2		Non-string argument for eval
-E_ARG1		Bad epsilon for arg
-E_ARG2		Bad first argument for arg
-E_POLAR1	Non-real argument for polar
-E_POLAR2	Bad epsilon for polar
-E_FCNT		Non-integral argument for fcnt
-E_MATFILL1	Non-variable first argument for matfill
-E_MATFILL2	Non-matrix first argument-value for matfill
-E_MATDIM	Non-matrix argument for matdim
-E_MATSUM	Non-matrix argument for matsum
-E_ISIDENT	E_ISIDENT is no longer used
-E_MATTRANS1	Non-matrix argument for mattrans
-E_MATTRANS2	Non-two-dimensional matrix for mattrans
-E_DET1		Non-matrix argument for det
-E_DET2		Matrix for det not of dimension 2
-E_DET3		Non-square matrix for det
-E_MATMIN1	Non-matrix first argument for matmin
-E_MATMIN2	Non-positive-integer second argument for matmin
-E_MATMIN3	Second argument for matmin exceeds dimension
-E_MATMAX1	Non-matrix first argument for matmin
-E_MATMAX2	Second argument for matmax not positive integer
-E_MATMAX3	Second argument for matmax exceeds dimension
-E_CP1		Non-matrix argument for cp
-E_CP2		Non-one-dimensional matrix for cp
-E_CP3		Matrix size not 3 for cp
-E_DP1		Non-matrix argument for dp
-E_DP2		Non-one-dimensional matrix for dp
-E_DP3		Different-size matrices for dp
-E_STRLEN	Non-string argument for strlen
-E_STRCAT	Non-string argument for strcat
-E_SUBSTR1	Non-string first argument for strcat
-E_SUBSTR2	Non-non-negative integer second argument for strcat
-E_CHAR		Bad argument for char
-E_ORD		Non-string argument for ord
-E_INSERT1	Non-list-variable first argument for insert
-E_INSERT2	Non-integral second argument for insert
-E_PUSH		Non-list-variable first argument for push
-E_APPEND	Non-list-variable first argument for append
-E_DELETE1	Non-list-variable first argument for delete
-E_DELETE2	Non-integral second argument for delete
-E_POP		Non-list-variable argument for pop
-E_REMOVE	Non-list-variable argument for remove
-E_LN1		Bad epsilon argument for ln
-E_LN2		Non-numeric first argument for ln
-E_ERROR1	Non-integer argument for error
-E_ERROR2	Argument outside range for error
-E_EVAL3		Attempt to eval at maximum input depth
-E_EVAL4		Unable to open string for reading
-E_RM1		First argument for rm is not a non-empty string
-E_RM2		Unable to remove a file
-E_RDPERM	Operation allowed because calc mode disallows read operations
-E_WRPERM	Operation allowed because calc mode disallows write operations
-E_EXPERM	Operation allowed because calc mode disallows exec operations
-E_MIN		Unordered arguments for min
-E_MAX		Unordered arguments for max
-E_LISTMIN	Unordered items for minimum of list
-E_LISTMAX	Unordered items for maximum of list
-E_SIZE		Size undefined for argument type
-E_NO_C_ARG	Calc must be run with a -C argument to use custom function
-E_NO_CUSTOM	Calc was built with custom functions disabled
-E_UNK_CUSTOM	Custom function unknown, try: show custom
-E_BLK1		Non-integral length for block
-E_BLK2		Negative or too-large length for block
-E_BLK3		Non-integral chunksize for block
-E_BLK4		Negative or too-large chunksize for block
-E_BLKFREE1	Named block does not exist for blkfree
-E_BLKFREE2	Non-integral id specification for blkfree
-E_BLKFREE3	Block with specified id does not exist
-E_BLKFREE4	Block already freed
-E_BLKFREE5	No-realloc protection prevents blkfree
-E_BLOCKS1	Non-integer argument for blocks
-E_BLOCKS2	Non-allocated index number for blocks
-E_COPY1		Non-integer or negative source index for copy
-E_COPY2		Source index too large for copy
-E_COPY3		E_COPY3 is no longer used
-E_COPY4		Non-integer or negative number for copy
-E_COPY5		Number too large for copy
-E_COPY6		Non-integer or negative destination index for copy
-E_COPY7		Destination index too large for copy
-E_COPY8		Freed block source for copy
-E_COPY9		Unsuitable source type for copy
-E_COPY10	Freed block destination for copy
-E_COPY11	Unsuitable destination type for copy
-E_COPY12	Incompatible source and destination for copy
-E_COPY13	No-copy-from source variable
-E_COPY14	No-copy-to destination variable
-E_COPY15	No-copy-from source named block
-E_COPY16	No-copy-to destination named block
-E_COPY17	No-relocate destination for copy
-E_COPYF1	File not open for copy
-E_COPYF2	fseek or fsize failure for copy
-E_COPYF3	fwrite error for copy
-E_COPYF4	fread error for copy
-E_PROTECT1	Non-variable first argument for protect
-E_PROTECT2	Bad second argument for protect
-E_PROTECT3	Bad third argument for protect
-E_MATFILL3	No-copy-to destination for matfill
-E_MATFILL4	No-assign-from source for matfill
-E_MATTRACE1	Non-matrix argument for mattrace
-E_MATTRACE2	Non-two-dimensional argument for mattrace
-E_MATTRACE3	Non-square argument for mattrace
-E_TAN1		Bad epsilon for tan
-E_TAN2		Bad argument for tan
-E_COT1		Bad epsilon for cot
-E_COT2		Bad argument for cot
-E_SEC1		Bad epsilon for sec
-E_SEC2		Bad argument for sec
-E_CSC1		Bad epsilon for csc
-E_CSC2		Bad argument for csc
-E_SINH1		Bad epsilon for sinh
-E_SINH2		Bad argument for sinh
-E_COSH1		Bad epsilon for cosh
-E_COSH2		Bad argument for cosh
-E_TANH1		Bad epsilon for tanh
-E_TANH2		Bad argument for tanh
-E_COTH1		Bad epsilon for coth
-E_COTH2		Bad argument for coth
-E_SECH1		Bad epsilon for sech
-E_SECH2		Bad argument for sech
-E_CSCH1		Bad epsilon for csch
-E_CSCH2		Bad argument for csch
-E_ASIN1		Bad epsilon for asin
-E_ASIN2		Bad argument for asin
-E_ACOS1		Bad epsilon for acos
-E_ACOS2		Bad argument for acos
-E_ATAN1		Bad epsilon for atan
-E_ATAN2		Bad argument for atan
-E_ACOT1		Bad epsilon for acot
-E_ACOT2		Bad argument for acot
-E_ASEC1		Bad epsilon for asec
-E_ASEC2		Bad argument for asec
-E_ACSC1		Bad epsilon for acsc
-E_ACSC2		Bad argument for acsc
-E_ASINH1	Bad epsilon for asin
-E_ASINH2	Bad argument for asinh
-E_ACOSH1	Bad epsilon for acosh
-E_ACOSH2	Bad argument for acosh
-E_ATANH1	Bad epsilon for atanh
-E_ATANH2	Bad argument for atanh
-E_ACOTH1	Bad epsilon for acoth
-E_ACOTH2	Bad argument for acoth
-E_ASECH1	Bad epsilon for asech
-E_ASECH2	Bad argument for asech
-E_ACSCH1	Bad epsilon for acsch
-E_ACSCH2	Bad argument for acsch
-E_GD1		Bad epsilon for gd
-E_GD2		Bad argument for gd
-E_AGD1		Bad epsilon for agd
-E_AGD2		Bad argument for agd
-E_LOGINF	Log of zero or infinity
-E_STRADD	String addition failure
-E_STRMUL	String multiplication failure
-E_STRNEG	String reversal failure
-E_STRSUB	String subtraction failure
-E_BIT1		Bad argument type for bit
-E_BIT2		Index too large for bit
-E_SETBIT1	Non-integer second argument for setbit
-E_SETBIT2	Out-of-range index for setbit
-E_SETBIT3	Non-string first argument for setbit
-E_OR		Bad argument for or
-E_AND		Bad argument for and
-E_STROR		Allocation failure for string or
-E_STRAND	Allocation failure for string and
-E_XOR		Bad argument for xorvalue
-E_COMP		Bad argument for comp
-E_STRDIFF	Allocation failure for string diff
-E_STRCOMP	Allocation failure for string comp
-E_SEG1		Bad first argument for segment
-E_SEG2		Bad second argument for segment
-E_SEG3		Bad third argument for segment
-E_STRSEG	Failure for string segment
-E_HIGHBIT1	Bad argument type for highbit
-E_HIGHBIT2	Non-integer argument for highbit
-E_LOWBIT1	Bad argument type for lowbit
-E_LOWBIT2	Non-integer argument for lowbit
-E_CONTENT	Bad argument type for unary hash op
-E_HASHOP	Bad argument type for binary hash op
-E_HEAD1		Bad first argument for head
-E_HEAD2		Bad second argument for head
-E_STRHEAD	Failure for strhead
-E_TAIL1		Bad first argument for tail
-E_TAIL2		Bad second argument for tail
-E_STRTAIL	Failure for strtail
-E_STRSHIFT	Failure for strshift
-E_STRCMP	Non-string argument for strcmp
-E_STRNCMP	Bad argument type for strncmp
-E_XOR1		Varying types of argument for xor
-E_XOR2		Bad argument type for xor
-E_STRCPY	Bad argument type for strcpy
-E_STRNCPY	Bad argument type for strncpy
-E_BACKSLASH	Bad argument type for unary backslash
-E_SETMINUS	Bad argument type for setminus
-E_INDICES1	Bad first argument type for indices
-E_INDICES2	Bad second argument for indices
-E_EXP3		Too-large re(argument) for exp
-E_SINH3		Too-large re(argument) for sinh
-E_COSH3		Too-large re(argument) for cosh
-E_SIN3		Too-large im(argument) for sin
-E_COS3		Too-large im(argument) for cos
-E_GD3		Infinite or too-large result for gd
-E_AGD3		Infinite or too-large result for agd
-E_POWER4	Too-large value for power
-E_ROOT4		Too-large value for root
-E_DGT1		Non-real first arg for digit
-E_DGT2		Non-integral second arg for digit
-E_DGT3		Bad third arg for digit
-E_PLCS1		Bad first argument for places
-E_PLCS2		Bad second argument for places
-E_DGTS1		Bad first argument for digits
-E_DGTS2		Bad second argument for digits
-E_ILOG		Bad first argument for ilog
-E_ILOGB		Bad second argument for ilog
-E_ILOG10	Bad argument for ilog10
-E_ILOG2		Bad argument for ilog2
-E_COMB1		Non-integer second arg for comb
-E_COMB2		Too-large second arg for comb
-E_CTLN		Bad argument for catalan
-E_BERN		Bad argument for bern
-E_EULER		Bad argument for euler
-E_SLEEP		Bad argument for sleep
-E_TTY		calc_tty failure
-E_ASSIGN1	No-copy-to destination for octet assign
-E_ASSIGN2	No-copy-from source for octet assign
-E_ASSIGN3	No-change destination for octet assign
-E_ASSIGN4	Non-variable destination for assign
-E_ASSIGN5	No-assign-to destination for assign
-E_ASSIGN6	No-assign-from source for assign
-E_ASSIGN7	No-change destination for assign
-E_ASSIGN8	No-type-change destination for assign
-E_ASSIGN9	No-error-value destination for assign
-E_SWAP1		No-copy argument for octet swap
-E_SWAP2		No-assign-to-or-from argument for swap
-E_SWAP3		Non-lvalue argument for swap
-E_QUOMOD1	Non-lvalue argument 3 or 4 for quomod
-E_QUOMOD2	Non-real-number arg 1 or 2 or bad arg 5 for quomod
-E_QUOMOD3	No-assign-to argument 3 or 4 for quomod
-E_PREINC1	No-copy-to or no-change argument for octet preinc
-E_PREINC2	Non-variable argument for preinc
-E_PREINC3	No-assign-to or no-change argument for preinc
-E_PREDEC1	No-copy-to or no-change argument for octet predec
-E_PREDEC2	Non-variable argument for predec
-E_PREDEC3	No-assign-to or no-change argument for predec
-E_POSTINC1	No-copy-to or no-change argument for octet postinc
-E_POSTINC2	Non-variable argument for postinc
-E_POSTINC3	No-assign-to or no-change argument for postinc
-E_POSTDEC1	No-copy-to or no-change argument for octet postdec
-E_POSTDEC2	Non-variable argument for postdec
-E_POSTDEC3	No-assign-to or no-change argument for postdec
-E_INIT1		Error-type structure for initialization
-E_INIT2		No-copy-to structure for initialization
-E_INIT3		Too many initializer values
-E_INIT4		Attempt to initialize freed named block
-E_INIT5		Bad structure type for initialization
-E_INIT6		No-assign-to element for initialization
-E_INIT7		No-change element for initialization
-E_INIT8		No-type-change element for initialization
-E_INIT9		No-error-value element for initialization
-E_INIT10	No-assign-or-copy-from source for initialization
-E_LIST1		No-relocate for list insert
-E_LIST2		No-relocate for list delete
-E_LIST3		No-relocate for list push
-E_LIST4		No-relocate for list append
-E_LIST5		No-relocate for list pop
-E_LIST6		No-relocate for list remove
-E_MODIFY1	Non-variable first argument for modify
-E_MODIFY2	Non-string second argument for modify
-E_MODIFY3	No-change first argument for modify
-E_MODIFY4	Undefined function for modify
-E_MODIFY5	Unacceptable type first argument for modify
-E_FPATHOPEN1	Non-string arguments for fpathopen
-E_FPATHOPEN2	Unrecognized mode for fpathopen
-E_LOG1		Bad epsilon argument for log
-E_LOG2		Non-numeric first argument for log
-E_LOG3		Cannot calculate log for this value
-E_FGETFILE1	Non-file argument for fgetfile
-E_FGETFILE2	File argument for fgetfile not open for reading
-E_FGETFILE3	Unable to set file position in fgetfile
-E_ESTR		Non-representable type for estr
-E_STRCASECMP	Non-string argument for strcasecmp
-E_STRNCASECMP	Bad argument type for strncasecmp
-E_ISUPPER	Bad argument for isupper
-E_ISLOWER	Bad argument for islower
-E_ISALNUM	Bad argument for isalnum
-E_ISALPHA	Bad argument for isalpha
-E_ISASCII	Bad argument for isascii
-E_ISCNTRL	Bad argument for iscntrl
-E_ISDIGIT	Bad argument for isdigit
-E_ISGRAPH	Bad argument for isgraph
-E_ISPRINT	Bad argument for isprint
-E_ISPUNCT	Bad argument for ispunct
-E_ISSPACE	Bad argument for isspace
-E_ISXDIGIT	Bad argument for isxdigit
-E_STRTOUPPER    Bad argument type for strtoupper
-E_STRTOLOWER    Bad argument type for strtolower
-E_TAN3		Invalid value for calculating the sin numerator for tan
-E_TAN4		Invalid value for calculating the cos denominator for tan
-E_COT3		Invalid value for calculating the sin numerator for cot
-E_COT4		Invalid value for calculating the cos denominator for cot
-E_SEC3		Invalid value for calculating the cos reciprocal for sec
-E_CSC3		Invalid value for calculating the sin reciprocal for csc
-E_TANH3		Invalid value for calculating the sinh numerator for tanh
-E_TANH4		Invalid value for calculating the cosh denominator for tanh
-E_COTH3		Invalid value for calculating the sinh numerator for coth
-E_COTH4		Invalid value for calculating the cosh denominator for coth
-E_SECH3		Invalid value for calculating the cosh reciprocal for sech
-E_CSCH3		Invalid value for calculating the sinh reciprocal for csch
-E_ASIN3		Invalid value for calculating asin
-E_ACOS3		Invalid value for calculating acos
-E_ASINH3	Invalid value for calculating asinh
-E_ACOSH3	Invalid value for calculating acosn
-E_ATAN3		Invalid value for calculating atan
-E_ACOT3		Invalid value for calculating acot
-E_ASEC3		Invalid value for calculating asec
-E_ACSC3		Invalid value for calculating acsc
-E_ATANH3	Invalid value for calculating atan
-E_ACOTH3	Invalid value for calculating acot
-E_ASECH3	Invalid value for calculating asec
-E_ACSCH3	Invalid value for calculating acsc
-E_D2R1		Bad epsilon for converting degrees to radians
-E_D2R2		Bad first argument converting degrees to radians
-E_R2D1		Bad epsilon for converting radians to degrees
-E_R2D2		Bad first argument converting radians to degrees
-E_G2R1		Bad epsilon for converting gradians to radians
-E_G2R2		Bad first argument converting gradians to radians
-E_R2G1		Bad epsilon for converting radians to gradians
-E_R2G2		Bad first argument converting radians to gradians
-E_D2G1		Bad first argument converting degrees to gradians
-E_G2D1		Bad first argument converting gradians to degrees
-E_D2DMS1	Non-lvalue arguments 2, 3 or 4 for d2dms
-E_D2DMS2	Non-real-number arg 1 for d2dms
-E_D2DMS3	No-assign-to argument 2, 3 or 4 for d2dms
-E_D2DMS4	Invalid rounding arg 5 for d2dms
-E_D2DM1		Non-lvalue arguments 2 or 3 for d2dm
-E_D2DM2		Non-real-number arg 1 for d2dm
-E_D2DM3		No-assign-to argument 2 or 3 for d2dm
-E_D2DM4		Invalid rounding arg 4 for d2dm
-E_G2GMS1	Non-lvalue arguments 2, 3 or 4 for g2gms
-E_G2GMS2	Non-real-number arg 1 for g2gms
-E_G2GMS3	No-assign-to argument 2 or 3 for g2gms
-E_G2GMS4	Invalid rounding arg 5 for g2gms
-E_G2GM1		Non-lvalue arguments 2 or 3 for g2gm
-E_G2GM2		Non-real-number arg 1 for g2gm
-E_G2GM3		No-assign-to argument 2, 3 or 4 for g2gm
-E_G2GM4		Invalid rounding arg 4 for g2gm
-E_H2HMS1	Non-lvalue arguments 2, 3 or 4 for h2hms
-E_H2HMS2	Non-real-number arg 1 for h2hms
-E_H2HMS3	No-assign-to argument 2, 3 or 4 for h2hms
-E_H2HMS4	Invalid rounding arg 5 for h2hms
-E_H2HM1		Non-lvalue arguments 2 or 3 for h2hm
-E_H2HM2		Non-real-number arg 1 for h2hm
-E_H2HM3		No-assign-to argument 2 or 3 for h2hm
-E_H2HM4		Invalid rounding arg 4 for h2hm
-E_DMS2D1	Non-real-number arguments 1, 2 or 3 for dms2d
-E_DMS2D2	Invalid rounding arg 4 for dms2d
-E_DM2D1		Non-real-number arguments 1 or 2 for dm2d
-E_DM2D2		Invalid rounding arg 4 for dm2d
-E_GMS2G1	Non-real-number arguments 1, 2 or 3 for gms2g
-E_GMS2G2	Invalid rounding arg 4 for gms2g
-E_GM2G1		Non-real-number arguments 1 or 2 for gm2g
-E_GM2G2		Invalid rounding arg 4 for gm2g
-E_HMS2H1	Non-real-number arguments 1, 2 or 3 for hms2h
-E_HMS2H2	Invalid rounding arg 4 for hms2h
-E_HM2H1		Non-real-number arguments 1 or 2 for hm2h
-E_HM2H2		Invalid rounding arg 4 for hm2h

calcerr_c.awk

@@ -1,45 +0,0 @@
-#!/usr/bin/sed
-#
-# calcerr_c - help produce calcerr.c from calcerr.tbl
-#
-# Copyright (C) 1999  Landon Curt Noll
-#
-# Calc is open software; you can redistribute it and/or modify it under
-# the terms of the version 2.1 of the GNU Lesser General Public License
-# as published by the Free Software Foundation.
-#
-# Calc is distributed in the hope that it will be useful, but WITHOUT
-# ANY WARRANTY; without even the implied warranty of MERCHANTABILITY
-# or FITNESS FOR A PARTICULAR PURPOSE.	See the GNU Lesser General
-# Public License for more details.
-#
-# A copy of version 2.1 of the GNU Lesser General Public License is
-# distributed with calc under the filename COPYING-LGPL.  You should have
-# received a copy with calc; if not, write to Free Software Foundation, Inc.
-# 51 Franklin Street, Fifth Floor, Boston, MA  02110-1301, USA.
-#
-# Under source code control:	1996/05/24 03:15:35
-# File existed as early as:	1996
-#
-# chongo <was here> /\oo/\	http://www.isthe.com/chongo/
-# Share and enjoy!  :-) http://www.isthe.com/chongo/tech/comp/calc/
-#
-BEGIN {
-    printf("#include <stdio.h>\n");
-    printf("#include \"calcerr.h\"\n\n");
-    printf("#include \"have_const.h\"\n\n");
-    printf("#include \"banned.h\"\t");
-    printf("/* include after system header <> includes */\n\n");
-    printf("/*\n");
-    printf(" * names of calc error values\n");
-    printf(" */\n");
-    printf("CONST char *error_table[E__COUNT+2] = {\n");
-    printf("	\"No error\",\n");
-}
-{
-    print $0;
-}
-END {
-    printf("	NULL\n");
-    printf("};\n");
-}

calcerr_c.sed

@@ -1,30 +0,0 @@
-#!/usr/bin/sed
-#
-# calcerr_c - help produce calcerr.c from calcerr.tbl
-#
-# Copyright (C) 1999  Landon Curt Noll
-#
-# Calc is open software; you can redistribute it and/or modify it under
-# the terms of the version 2.1 of the GNU Lesser General Public License
-# as published by the Free Software Foundation.
-#
-# Calc is distributed in the hope that it will be useful, but WITHOUT
-# ANY WARRANTY; without even the implied warranty of MERCHANTABILITY
-# or FITNESS FOR A PARTICULAR PURPOSE.	See the GNU Lesser General
-# Public License for more details.
-#
-# A copy of version 2.1 of the GNU Lesser General Public License is
-# distributed with calc under the filename COPYING-LGPL.  You should have
-# received a copy with calc; if not, write to Free Software Foundation, Inc.
-# 51 Franklin Street, Fifth Floor, Boston, MA  02110-1301, USA.
-#
-# Under source code control:	1996/05/24 03:15:35
-# File existed as early as:	1996
-#
-# chongo <was here> /\oo/\	http://www.isthe.com/chongo/
-# Share and enjoy!  :-)		http://www.isthe.com/chongo/tech/comp/calc/
-#
-s/#.*//
-s/[	 ][	 ]*$//
-/^$/d
-s/[^	 ][^	 ]*[	 ][	 ]*\(.*\)$/    "\1",/

calcerr_h.awk

@@ -1,48 +0,0 @@
-#!/usr/bin/awk
-#
-# calcerr_h - help produce calcerr.h from calcerr.tbl
-#
-# Copyright (C) 1999  Landon Curt Noll
-#
-# Calc is open software; you can redistribute it and/or modify it under
-# the terms of the version 2.1 of the GNU Lesser General Public License
-# as published by the Free Software Foundation.
-#
-# Calc is distributed in the hope that it will be useful, but WITHOUT
-# ANY WARRANTY; without even the implied warranty of MERCHANTABILITY
-# or FITNESS FOR A PARTICULAR PURPOSE.	See the GNU Lesser General
-# Public License for more details.
-#
-# A copy of version 2.1 of the GNU Lesser General Public License is
-# distributed with calc under the filename COPYING-LGPL.  You should have
-# received a copy with calc; if not, write to Free Software Foundation, Inc.
-# 51 Franklin Street, Fifth Floor, Boston, MA  02110-1301, USA.
-#
-# Under source code control:	1996/05/23 17:38:44
-# File existed as early as:	1996
-#
-# chongo <was here> /\oo/\	http://www.isthe.com/chongo/
-# Share and enjoy!  :-) http://www.isthe.com/chongo/tech/comp/calc/
-#
-BEGIN {
-    ebase = 10000;
-    printf("#define E__BASE %d\t/* calc errors start above here */\n\n", ebase);
-}
-NF > 1 {
-    if (length($1) > 7) {
-	printf("#define %s\t", $1, NR);
-    } else {
-	printf("#define %s\t\t", $1, NR);
-    }
-    printf("%d\t/* ", ebase+NR);
-    for (i=2; i < NF; ++i) {
-	printf("%s ", $i);
-    }
-    printf("%s */\n", $NF);
-}
-END {
-    printf("\n#define E__HIGHEST\t%d\t/* highest calc error */\n", NR+ebase);
-    printf("#define E__COUNT\t\t%d\t/* number of calc errors */\n", NR);
-    printf("#define E_USERDEF\t20000\t/* base of user defined errors */\n\n");
-    printf("/* names of calc error values */\n");
-}

calcerr_h.sed

@@ -1,30 +0,0 @@
-#!/usr/bin/sed
-#
-# calcerr_h - help produce calcerr.h from calcerr.tbl
-#
-# Copyright (C) 1999  Landon Curt Noll
-#
-# Calc is open software; you can redistribute it and/or modify it under
-# the terms of the version 2.1 of the GNU Lesser General Public License
-# as published by the Free Software Foundation.
-#
-# Calc is distributed in the hope that it will be useful, but WITHOUT
-# ANY WARRANTY; without even the implied warranty of MERCHANTABILITY
-# or FITNESS FOR A PARTICULAR PURPOSE.	See the GNU Lesser General
-# Public License for more details.
-#
-# A copy of version 2.1 of the GNU Lesser General Public License is
-# distributed with calc under the filename COPYING-LGPL.  You should have
-# received a copy with calc; if not, write to Free Software Foundation, Inc.
-# 51 Franklin Street, Fifth Floor, Boston, MA  02110-1301, USA.
-#
-# Under source code control:	1996/05/23 17:38:44
-# File existed as early as:	1996
-#
-# chongo <was here> /\oo/\	http://www.isthe.com/chongo/
-# Share and enjoy!  :-)		http://www.isthe.com/chongo/tech/comp/calc/
-#
-s/#.*//
-s/[	 ][	 ]*$//
-/^$/d
-s/\([^	 ][^	 ]*\)[	 ][	 ]*\(.*\)$/\1 \2/

chk_c.c

@@ -0,0 +1,351 @@
+/*
+ * chk_c - chk C compiler and C include for calc requirements
+ *
+ * This program, to successfully compile, must include:
+ *
+ *	#include <stdint.h>
+ *	#include <inttypes.h>
+ *
+ * and must be able to compile all of these types:
+ *
+ *	int8_t		uint8_t
+ *	int16_t		uint16_t
+ *	int32_t		uint32_t
+ *	int64_t		uint64_t
+ *	intptr_t	uintptr_t
+ *	intmax_t	uintmax_t
+ *
+ * be able to sum values from all of those files,
+ * plus the INTX_C(val) and UINTX_C(val) composing macros,
+ * and be able to print for signed and unsigned values.
+ *
+ * If you are unable to compile this program, or if this program when
+ * compiles does not exit 0, then your C compiler and/or C include
+ * fails to meet calc requirements.
+ *
+ * Compilers that are at least c99 MUST be able to compile this program
+ * such that when run will exit 0.
+ *
+ * Copyright (C) 2023  Landon Curt Noll
+ *
+ * Calc is open software; you can redistribute it and/or modify it under
+ * the terms of the version 2.1 of the GNU Lesser General Public License
+ * as published by the Free Software Foundation.
+ *
+ * Calc is distributed in the hope that it will be useful, but WITHOUT
+ * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY
+ * or FITNESS FOR A PARTICULAR PURPOSE.	 See the GNU Lesser General
+ * Public License for more details.
+ *
+ * A copy of version 2.1 of the GNU Lesser General Public License is
+ * distributed with calc under the filename COPYING-LGPL.  You should have
+ * received a copy with calc; if not, write to Free Software Foundation, Inc.
+ * 51 Franklin Street, Fifth Floor, Boston, MA  02110-1301, USA.
+ *
+ * Under source code control:	2023/08/20 23:57:50
+ * File existed as early as:	2023
+ *
+ * chongo <was here> /\oo/\	http://www.isthe.com/chongo/
+ * Share and enjoy!  :-)	http://www.isthe.com/chongo/tech/comp/calc/
+ */
+
+#include <stdio.h>
+#include <unistd.h>
+
+#include "have_stdint.h"
+#if defined(HAVE_STDINT_H)
+#include <stdint.h>
+#endif /* HAVE_STDINT_H */
+
+#include "have_inttypes.h"
+#if defined(HAVE_INTTYPES_H)
+#include <inttypes.h>
+#endif /* HAVE_INTTYPES_H */
+
+#include "have_stdlib.h"
+#if defined(HAVE_STDLIB_H)
+#include <stdlib.h>
+#endif /* HAVE_STDLIB_H */
+
+#include "bool.h"
+
+
+/*
+ * our version
+ */
+#define CHK_C_VERSION "1.0 2023-08-20"
+
+
+/*
+ * usage:
+ */
+static char const *usage =
+    "usage: %s [-h] [-c] [-V]\n"
+    "\n"
+    "\t-h\t\toutput this message and exit\n"
+    "\t-c\t\toutput C compiler and C include info (def: no stdout output)\n"
+    "\t-V\t\tprint version string and exit\n"
+    "\n"
+    "Exit codes:\n"
+    "     0   all OK\n"
+    "     1   C compiler and C include is insufficient for calc\n"
+    "     2   -h and help string printed or -V and version string printed\n"
+    "     3   invalid command line, invalid option or option missing an argument\n"
+    " >= 10   internal error\n"
+    "\n"
+    "chk_c version: %s\n";
+
+
+#include "banned.h"	/* include after system header <> includes */
+
+
+int
+main(int argc, char *argv[])
+{
+    char *program = "((NULL))";		/* our name */
+    int opt;				/* the -option found or -1 */
+    bool c_flag = false;		/* if -h was found */
+#if defined(HAVE_STDINT_H) && defined(HAVE_INTTYPES_H)
+    int i = -1;				/* signed int test value */
+    unsigned int ui = 1;		/* unsigned int test value */
+    long l = -2L;			/* signed long test value */
+    unsigned long ul = 2UL;		/* unsigned long test value */
+    long long ll = -4LL;		/* signed long long test value */
+    unsigned long long ull = 4ULL;	/* unsigned long long test value */
+    int8_t i8 = INT8_C(-8);		/* signed 8-bit test value */
+    uint8_t ui8 = UINT8_C(8);		/* unsigned 8-bit test value */
+    int16_t i16 = INT16_C(-16);		/* signed 16-bit test value */
+    uint16_t ui16 = UINT16_C(16);	/* unsigned 16-bit test value */
+    int32_t i32 = INT32_C(-32);		/* signed 32-bit test value */
+    uint32_t ui32 = UINT32_C(32);	/* unsigned 32-bit test value */
+    int64_t i64 = INT64_C(-64);		/* signed 64-bit test value */
+    uint64_t ui64 = UINT64_C(64);	/* unsigned 64-bit test value */
+    intptr_t iptr = -128;		/* integer type capable of holding a pointer */
+    intptr_t uiptr = 128;		/* unsigned integer type capable of holding a pointer */
+    intmax_t imax = INTMAX_C(-256);	/* maximum sized signed int test value */
+    uintmax_t uimax = UINTMAX_C(256);	/* maximum sized unsigned int test value */
+    uintmax_t isum = 0;			/* sum of all test values as signed value */
+    uintmax_t uisum = 0;		/* sum of all test values as unsigned value */
+#endif /* HAVE_STDINT_H && HAVE_INTTYPES_H */
+
+    /*
+     * parse args
+     */
+    program = argv[0];
+    while ((opt = getopt(argc, argv, "hcV")) != -1) {
+	switch (opt) {
+	case 'h':
+	    fprintf(stderr, usage, program, CHK_C_VERSION);
+	    exit(2);
+	    break;
+	case 'c':
+	    c_flag = true;
+	    break;
+	case 'V':
+	    printf("%s\n", CHK_C_VERSION);
+	    exit(2);
+	    break;
+        default:
+	    fprintf(stderr, usage, program, CHK_C_VERSION);
+	    exit(3);
+	}
+    }
+    if (optind != argc) {
+	fprintf(stderr, usage, program, CHK_C_VERSION);
+	exit(3);
+    }
+
+    /*
+     * must have <stdint.h>
+     */
+#if !defined(HAVE_STDINT_H)
+    if (c_flag == true) {
+	 printf("HAVE_STDINT_H is undefined\n");
+    }
+    fprintf(stderr, "calc requires <stdint.h> include file\n");
+    exit(1);
+#else /* HAVE_STDINT_H */
+    if (c_flag == true) {
+	printf("HAVE_STDINT_H is defined\n");
+	printf("<stdint.h> successfully included\n");
+    }
+
+    /*
+     * must have <inttypes.h>
+     */
+#if !defined(HAVE_INTTYPES_H)
+    if (c_flag == true) {
+	 printf("HAVE_INTTYPES_H is undefined\n");
+    }
+    fprintf(stderr, "calc requires <inttypes.h> include file\n");
+    exit(1);
+#else /* HAVE_INTTYPES_H */
+    if (c_flag == true) {
+	printf("\nHAVE_INTTYPES_H is defined\n");
+	printf("<inttypes.h> successfully included\n");
+    }
+
+    /*
+     * check for __STDC__ defined
+     */
+#if !defined(__STDC__)
+    fprintf(stderr, "__STDC__ is not defined\n");
+    exit(1);
+#endif /* __STDC__ */
+    if (c_flag == true) {
+	printf("\n__STDC__ is defined\n");
+    }
+
+    /*
+     * check for __STDC_VERSION__ defined
+     */
+#if !defined(__STDC_VERSION__)
+    fprintf(stderr, "__STDC_VERSION__ is not defined\n");
+    exit(1);
+#endif /* __STDC_VERSION__ */
+    if (c_flag == true) {
+	printf("__STDC_VERSION__: %ld is defined\n", __STDC_VERSION__);
+    }
+
+    /*
+     * check for __STDC_VERSION__ >= 199901L for c99 or later
+     */
+#if __STDC_VERSION__ < 199901L
+    fprintf(stderr, "__STDC_VERSION__: %ld < 199901L\n", __STDC_VERSION__);
+    exit(1);
+#endif /* __STDC_VERSION__ >= 199901L */
+    if (c_flag == true) {
+	printf("__STDC_VERSION__: %ld >= 199901L\n", __STDC_VERSION__);
+    }
+
+    /*
+     * calculate sum of all test values as signed value
+     */
+    isum = i + ui + l + ul + ll + ull + i8 + ui8 + i16 + ui16 + i32 + ui32 + i64 + ui64 + iptr + uiptr + imax + uimax;
+    if (c_flag == true) {
+	printf("\nzero valued isum: %jd\n", isum);
+    }
+    if (isum != 0) {
+	fprintf(stderr, "failed to add all required integer types into a signed value\n");
+	exit(1);
+    }
+
+    /*
+     * calculate sum of all test values as unsigned value
+     */
+    uisum = i + ui + l + ul + ll + ull + i8 + ui8 + i16 + ui16 + i32 + ui32 + i64 + ui64 + iptr + uiptr + imax + uimax;
+    if (c_flag == true) {
+	printf("zero valued uisum: %ju\n", uisum);
+    }
+    if (uisum != 0) {
+	fprintf(stderr, "failed to add all required integer types into an unsigned value\n");
+	exit(1);
+    }
+
+    /*
+     * verify various 32, 64 and max PRI macros as well as MIN and MAX constants
+     */
+    if (c_flag == true) {
+	printf("\nsigned integer MIN and MAX\n");
+	printf("INT8_MIN: %+"PRId8"\n", (int8_t)INT8_MIN);
+	printf("INT8_MAX: %+"PRId8"\n", (int8_t)INT8_MAX);
+	printf("INT16_MIN: %+"PRId16"\n", (int16_t)INT16_MIN);
+	printf("INT16_MAX: %+"PRId16"\n", (int16_t)INT16_MAX);
+	printf("INT32_MIN: %+"PRId32"\n", (int32_t)INT32_MIN);
+	printf("INT32_MAX: %+"PRId32"\n", (int32_t)INT32_MAX);
+	printf("INT64_MIN: %+"PRId64"\n", (int64_t)INT64_MIN);
+	printf("INT64_MAX: %+"PRId64"\n", (int64_t)INT64_MAX);
+	printf("INTPTR_MIN: %+"PRIdMAX"\n", (intptr_t)INTPTR_MIN);
+	printf("INTPTR_MAX: %+"PRIdMAX"\n", (intptr_t)INTPTR_MAX);
+	printf("INTMAX_MIN: %+"PRIdMAX"\n", (intmax_t)INTMAX_MIN);
+	printf("INTMAX_MAX: %+"PRIdMAX"\n", (intmax_t)INTMAX_MAX);
+
+	printf("\nunsigned integer MAX\n");
+	printf("UINT8_MAX: %"PRIu8"\n", (uint8_t)UINT8_MAX);
+	printf("UINT16_MAX: %"PRIu16"\n", (uint16_t)UINT16_MAX);
+	printf("UINT32_MAX: %"PRIu32"\n", (uint32_t)UINT32_MAX);
+	printf("UINT64_MAX: %"PRIu64"\n", (uint64_t)UINT64_MAX);
+	printf("UINTPTR_MAX: %"PRIuMAX"\n", (uintptr_t)UINTPTR_MAX);
+	printf("UINTMAX_MAX: %"PRIuMAX"\n", (uintmax_t)UINTMAX_MAX);
+
+	printf("\ninteger MIN and MAX\n");
+	printf("INT8_MIN: %"PRIi8"\n", (int8_t)INT8_MIN);
+	printf("INT8_MAX: %"PRIi8"\n", (int8_t)INT8_MAX);
+	printf("INT16_MIN: %"PRIi16"\n", (int16_t)INT16_MIN);
+	printf("INT16_MAX: %"PRIi16"\n", (int16_t)INT16_MAX);
+	printf("INT32_MIN: %"PRIi32"\n", (int32_t)INT32_MIN);
+	printf("INT32_MAX: %"PRIi32"\n", (int32_t)INT32_MAX);
+	printf("INT64_MIN: %"PRIi64"\n", (int64_t)INT64_MIN);
+	printf("INT64_MAX: %"PRIi64"\n", (int64_t)INT64_MAX);
+	printf("INTPTR_MIN: %"PRIiMAX"\n", (intptr_t)INTPTR_MIN);
+	printf("INTPTR_MAX: %"PRIiMAX"\n", (intptr_t)INTPTR_MAX);
+	printf("INTMAX_MIN: %"PRIiMAX"\n", (intmax_t)INTMAX_MIN);
+	printf("INTMAX_MAX: %"PRIiMAX"\n", (intmax_t)INTMAX_MAX);
+
+	printf("\noctal MIN and MAX\n");
+	printf("INT8_MIN: %"PRIo8"\n", (int8_t)INT8_MIN);
+	printf("INT8_MAX: %"PRIo8"\n", (int8_t)INT8_MAX);
+	printf("INT16_MIN: %"PRIo16"\n", (int16_t)INT16_MIN);
+	printf("INT16_MAX: %"PRIo16"\n", (int16_t)INT16_MAX);
+	printf("INT32_MIN: %"PRIo32"\n", (int32_t)INT32_MIN);
+	printf("INT32_MAX: %"PRIo32"\n", (int32_t)INT32_MAX);
+	printf("INT64_MIN: %"PRIo64"\n", (int64_t)INT64_MIN);
+	printf("INT64_MAX: %"PRIo64"\n", (int64_t)INT64_MAX);
+	printf("INTPTR_MIN: %"PRIoMAX"\n", (intptr_t)INTPTR_MIN);
+	printf("INTPTR_MAX: %"PRIoMAX"\n", (intptr_t)INTPTR_MAX);
+	printf("INTMAX_MIN: %"PRIoMAX"\n", (intmax_t)INTMAX_MIN);
+	printf("INTMAX_MAX: %"PRIoMAX"\n", (intmax_t)INTMAX_MAX);
+
+	printf("\nhex MIN and MAX\n");
+	printf("INT8_MIN: %"PRIx8"\n", (int8_t)INT8_MIN);
+	printf("INT8_MAX: %"PRIx8"\n", (int8_t)INT8_MAX);
+	printf("INT16_MIN: %"PRIx16"\n", (int16_t)INT16_MIN);
+	printf("INT16_MAX: %"PRIx16"\n", (int16_t)INT16_MAX);
+	printf("INT32_MIN: %"PRIx32"\n", (int32_t)INT32_MIN);
+	printf("INT32_MAX: %"PRIx32"\n", (int32_t)INT32_MAX);
+	printf("INT64_MIN: %"PRIx64"\n", (int64_t)INT64_MIN);
+	printf("INT64_MAX: %"PRIx64"\n", (int64_t)INT64_MAX);
+	printf("INTPTR_MIN: %"PRIxMAX"\n", (intptr_t)INTPTR_MIN);
+	printf("INTPTR_MAX: %"PRIxMAX"\n", (intptr_t)INTPTR_MAX);
+	printf("INTMAX_MIN: %"PRIxMAX"\n", (intmax_t)INTMAX_MIN);
+	printf("INTMAX_MAX: %"PRIxMAX"\n", (intmax_t)INTMAX_MAX);
+
+	printf("\nHEX MIN and MAX\n");
+	printf("INT8_MIN: %"PRIX8"\n", (int8_t)INT8_MIN);
+	printf("INT8_MAX: %"PRIX8"\n", (int8_t)INT8_MAX);
+	printf("INT16_MIN: %"PRIX16"\n", (int16_t)INT16_MIN);
+	printf("INT16_MAX: %"PRIX16"\n", (int16_t)INT16_MAX);
+	printf("INT32_MIN: %"PRIX32"\n", (int32_t)INT32_MIN);
+	printf("INT32_MAX: %"PRIX32"\n", (int32_t)INT32_MAX);
+	printf("INT64_MIN: %"PRIX64"\n", (int64_t)INT64_MIN);
+	printf("INT64_MAX: %"PRIX64"\n", (int64_t)INT64_MAX);
+	printf("INTPTR_MIN: %"PRIXMAX"\n", (intptr_t)INTPTR_MIN);
+	printf("INTPTR_MAX: %"PRIXMAX"\n", (intptr_t)INTPTR_MAX);
+	printf("INTMAX_MIN: %"PRIXMAX"\n", (intmax_t)INTMAX_MIN);
+	printf("INTMAX_MAX: %"PRIXMAX"\n", (intmax_t)INTMAX_MAX);
+
+	printf("\nsizes\n");
+	printf("sizeof(int8_t): %lu\n", sizeof(int8_t));
+	printf("sizeof(uint8_t): %lu\n", sizeof(uint8_t));
+	printf("sizeof(int16_t): %lu\n", sizeof(int16_t));
+	printf("sizeof(uint16_t): %lu\n", sizeof(uint16_t));
+	printf("sizeof(int32_t): %lu\n", sizeof(int32_t));
+	printf("sizeof(uint32_t): %lu\n", sizeof(uint32_t));
+	printf("sizeof(int64_t): %lu\n", sizeof(int64_t));
+	printf("sizeof(uint64_t): %lu\n", sizeof(uint64_t));
+	printf("sizeof(intptr_t): %lu\n", sizeof(intptr_t));
+	printf("sizeof(uintptr_t): %lu\n", sizeof(uintptr_t));
+	printf("sizeof(intmax_t): %lu\n", sizeof(intmax_t));
+	printf("sizeof(uintmax_t): %lu\n", sizeof(uintmax_t));
+    }
+
+    /*
+     * All Done!! -- Jessica Noll, age 2
+     */
+    if (c_flag == true) {
+	printf("\nC compiler and select include files appear to support calc.\n");
+    }
+    exit(0);
+#endif /* HAVE_INTTYPES_H */
+#endif /* HAVE_STDINT_H */
+}

chk_tree

@@ -0,0 +1,350 @@
+#!/usr/bin/env bash
+#
+# chk_tree - verify that the source tree and git and Makefiles are in sync
+#
+# This tools is used by "make prep".
+#
+# Copyright (C) 2023 Landon Curt Noll
+#
+# Calc is open software; you can redistribute it and/or modify it under
+# the terms of version 2.1 of the GNU Lesser General Public License
+# as published by the Free Software Foundation.
+#
+# Calc is distributed in the hope that it will be useful, but WITHOUT
+# ANY WARRANTY; without even the implied warranty of MERCHANTABILITY
+# or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU Lesser General
+# Public License for more details.
+#
+# A copy of version 2.1 of the GNU Lesser General Public License is
+# distributed with calc under the filename COPYING-LGPL.  You should have
+# received a copy with calc; if not, write to Free Software Foundation, Inc.
+# 59 Temple Place, Suite 330, Boston, MA  02111-1307, USA.
+#
+# Under source code control:	2023/10/04 21:04:44
+# File existed as early as:	2023
+#
+# chongo <was here> /\oo/\	http://www.isthe.com/chongo/
+# Share and enjoy!  :-)		http://www.isthe.com/chongo/tech/comp/calc/
+
+# setup
+#
+EXIT_CODE=0
+
+# firewall - verify that the "make distdir" directories exist
+#
+make distdir >/dev/null 2>&1
+status="$?"
+if [[ $status -ne 0 ]]; then
+    echo "$0: ERROR: make distdir exit code: $status" 1>&2
+    EXIT_CODE=10
+    echo "$0: Warning: set EXIT_CODE: $EXIT_CODE" 1>&2
+fi
+
+# collect make distdir directory list
+#
+# We ignore make action lines.
+#
+declare -a DISTDIR
+mapfile -t DISTDIR < <(make -s distdir | grep -v '^make\[[0-9]*\]: ' | sort -u)
+if [[ ${#DISTDIR[@]} -le 0 ]]; then
+    echo "$0: ERROR: distdir is empty" 1>&2
+    EXIT_CODE=11
+    echo "$0: Warning: set EXIT_CODE: $EXIT_CODE" 1>&2
+fi
+
+# collect directories
+#
+# We ignore NOTES because it contains notes that are not part of calc source.
+# We ignore .git and GitHub because they are not part of the calc source tarball.
+#
+declare -a FINDDIR
+mapfile -t FINDDIR < <(find . -type d \
+	! -path './NOTES/*' ! -name NOTES \
+	! -path './.git/*' ! -name .git \
+	! -path './.github/*' ! -name .github | \
+	sed -e 's/^\.\///' | sort -u)
+if [[ ${#FINDDIR[@]} -le 0 ]]; then
+    echo "$0: ERROR: find dir is empty" 1>&2
+    EXIT_CODE=12
+    echo "$0: Warning: set EXIT_CODE: $EXIT_CODE" 1>&2
+fi
+
+# compare DISTDIR and FINDDIR
+#
+declare -a DIFF_DISTDIR_FINDDIR
+mapfile -t DIFF_DISTDIR_FINDDIR < <(printf '%s\n' "${DISTDIR[@]}" "${FINDDIR[@]}" |
+				    tr ' ' '\n' | sort | uniq -u)
+if [[ ${#DIFF_DISTDIR_FINDDIR[@]} -ne 0 ]]; then
+
+    # report that DISTDIR and FINDDIR differ
+    #
+    echo "$0: ERROR: distdir and find dir differ for critical directories" 1>&2
+    declare -a ONLY_FINDDIR
+    mapfile -t ONLY_FINDDIR < <(printf '%s\n' "${DISTDIR[@]}" "${DISTDIR[@]}" "${FINDDIR[@]}" |
+				tr ' ' '\n' | sort | uniq -u)
+    if [[ ${#ONLY_FINDDIR[@]} -ne 0 ]]; then
+	echo "$0: ERROR: found only in find dir: ${ONLY_FINDDIR[*]}" 1>&2
+    fi
+    declare -a ONLY_DISTDIR
+    mapfile -t ONLY_DISTDIR < <(printf '%s\n' "${FINDDIR[@]}" "${FINDDIR[@]}" "${DISTDIR[@]}" |
+				tr ' ' '\n' | sort | uniq -u)
+    if [[ ${#ONLY_DISTDIR[@]} -ne 0 ]]; then
+	echo "$0: ERROR: found only in distdir: ${ONLY_DISTDIR[*]}" 1>&2
+    fi
+    EXIT_CODE=13
+    echo "$0: Warning: set EXIT_CODE: $EXIT_CODE" 1>&2
+fi
+
+# firewall - verify that the "make distlist" files exist
+#
+make distlist >/dev/null 2>&1
+status="$?"
+if [[ $status -ne 0 ]]; then
+    echo "$0: ERROR: make distlist exit code: $status" 1>&2
+    EXIT_CODE=14
+    echo "$0: Warning: set EXIT_CODE: $EXIT_CODE" 1>&2
+fi
+
+# collect make distlist file list
+#
+declare -a DISTLIST
+mapfile -t DISTLIST < <(make -s distlist | grep -v '^make\[[0-9]*\]: ' | sort -u)
+if [[ ${#DISTLIST[@]} -le 0 ]]; then
+    echo "$0: ERROR: distlist is empty" 1>&2
+    EXIT_CODE=15
+    echo "$0: Warning: set EXIT_CODE: $EXIT_CODE" 1>&2
+fi
+declare -A DISTLIST_A
+for i in "${DISTLIST[@]}"; do
+    DISTLIST_A["$i"]="$i"
+done
+
+# case: under git control
+#
+if [[ -d .git ]]; then
+
+    # obtain the list of files under git
+    #
+    # We ignore .git and GitHub related files because they are not part of the calc source tarball.
+    #
+    declare -a GITLS
+    mapfile -t GITLS < <(git ls |
+	grep -v -E '^\.github/|^\.gitignore$|^CODE_OF_CONDUCT\.md$|^CONTRIBUTING\.md$|^SECURITY\.md$' |
+	sort -u)
+    if [[ ${#GITLS[@]} -le 0 ]]; then
+	echo "$0: ERROR: git ls is empty" 1>&2
+	EXIT_CODE=16
+	echo "$0: Warning: set EXIT_CODE: $EXIT_CODE" 1>&2
+    fi
+
+    # compare DISTLIST and GITLS
+    #
+    declare -a DIFF_DISTLIST_GITLS
+    mapfile -t DIFF_DISTLIST_GITLS < <(printf '%s\n' "${DISTLIST[@]}" "${GITLS[@]}" |
+				       tr ' ' '\n' | sort | uniq -u)
+    if [[ ${#DIFF_DISTLIST_GITLS[@]} -ne 0 ]]; then
+
+	# report that DISTLIST and GITLS differ
+	#
+	echo "$0: ERROR: distlist and git ls differ for critical files" 1>&2
+	declare -a ONLY_GITLS
+	mapfile -t ONLY_GITLS < <(printf '%s\n' "${DISTLIST[@]}" "${DISTLIST[@]}" "${GITLS[@]}" |
+				  tr ' ' '\n' | sort | uniq -u)
+	if [[ ${#ONLY_GITLS[@]} -ne 0 ]]; then
+	    echo "$0: ERROR: found only in git ls: ${ONLY_GITLS[*]}" 1>&2
+	fi
+	declare -a ONLY_DISTLIST
+	mapfile -t ONLY_DISTLIST < <(printf '%s\n' "${GITLS[@]}" "${GITLS[@]}" "${DISTLIST[@]}" |
+				     tr ' ' '\n' | sort | uniq -u)
+	if [[ ${#ONLY_DISTLIST[@]} -ne 0 ]]; then
+	    echo "$0: ERROR: found only in distlist: ${ONLY_DISTLIST[*]}" 1>&2
+	fi
+	EXIT_CODE=17
+	echo "$0: Warning: set EXIT_CODE: $EXIT_CODE" 1>&2
+    fi
+
+    # verify that there are no staged uncommitted changes under git
+    #
+    GIT_STATUS=$(git status --untracked-files=no --porcelain 2>&1)
+    if [[ -n $GIT_STATUS ]] || ! git diff --cached --quiet --exit-code; then
+	echo "$0: ERROR: there are staged uncommitted changes" 1>&2
+	git status --short
+	EXIT_CODE=18
+	echo "$0: Warning: set EXIT_CODE: $EXIT_CODE" 1>&2
+    fi
+
+    # verify that there are no uncommitted changes under git
+    #
+    if ! git diff --quiet --exit-code; then
+	echo "$0: ERROR: there are unstaged changes" 1>&2
+	git status --untracked-files=no --porcelain --short
+	EXIT_CODE=19
+	echo "$0: Warning: set EXIT_CODE: $EXIT_CODE" 1>&2
+    fi
+
+    # verify that master branch is not ahead of 'origin/master'
+    #
+    GIT_MASTER=$(git rev-list --count master)
+    GIT_ORIGIN_MASTER=$(git rev-list --count origin/master)
+    if [[ $GIT_MASTER -gt $GIT_ORIGIN_MASTER ]]; then
+	echo "$0: ERROR: master branch is behind of origin/master" 1>&2
+	git status master
+	EXIT_CODE=20
+	echo "$0: Warning: set EXIT_CODE: $EXIT_CODE" 1>&2
+    elif [[ $GIT_MASTER -lt $GIT_ORIGIN_MASTER ]]; then
+	echo "$0: ERROR: master branch is ahead of origin/master" 1>&2
+	git status master
+	EXIT_CODE=21
+	echo "$0: Warning: set EXIT_CODE: $EXIT_CODE" 1>&2
+    fi
+
+    # verify that branch is not ahead of 'origin/HEAD'
+    #
+    GIT_HEAD=$(git rev-list --count HEAD)
+    GIT_ORIGIN_HEAD=$(git rev-list --count origin/HEAD)
+    if [[ $GIT_HEAD -gt $GIT_ORIGIN_HEAD ]]; then
+	echo "$0: ERROR: HEAD is behind of origin/HEAD" 1>&2
+	git status HEAD
+	EXIT_CODE=22
+	echo "$0: Warning: set EXIT_CODE: $EXIT_CODE" 1>&2
+    elif [[ $GIT_HEAD -lt $GIT_ORIGIN_HEAD ]]; then
+	echo "$0: ERROR: HEAD is ahead of origin/HEAD" 1>&2
+	git status HEAD
+	EXIT_CODE=23
+	echo "$0: Warning: set EXIT_CODE: $EXIT_CODE" 1>&2
+    fi
+fi
+
+# collect make buildlist file list
+#
+declare -a BUILDLIST
+mapfile -t BUILDLIST < <(make -s buildlist | grep -v '^make\[[0-9]*\]: ' | sort -u)
+if [[ ${#BUILDLIST[@]} -le 0 ]]; then
+    echo "$0: ERROR: buildlist is empty" 1>&2
+    EXIT_CODE=24
+    echo "$0: Warning: set EXIT_CODE: $EXIT_CODE" 1>&2
+fi
+declare -A BUILDLIST_A
+for i in "${BUILDLIST[@]}"; do
+    BUILDLIST_A["$i"]="$i"
+done
+
+# look for something in DISTLIST that is also in BUILDLIST
+#
+# The BUILDLIST are a set of files that are result of building calc
+# and thus should NOT be part of the DISTLIST (list of files used
+# to form the calc source distribtion).
+#
+declare -a DISTLIST_ALSO_IN_BUILDLIST
+mapfile -t DISTLIST_ALSO_IN_BUILDLIST < <(
+    for i in "${DISTLIST_A[@]}"; do
+	if [[ -n "${BUILDLIST_A[$i]}" ]]; then
+	    echo "$i";
+	fi
+    done
+)
+if [[ ${#DISTLIST_ALSO_IN_BUILDLIST[@]} -ne 0 ]]; then
+
+    # report that something in DISTLIST was found in BUILDLIST
+    #
+    echo "$0: ERROR: distlist files found in buildlist" 1>&2
+    echo "$0: ERROR: distlist files found in buildlist: ${DISTLIST_ALSO_IN_BUILDLIST[*]}" 1>&2
+    EXIT_CODE=25
+    echo "$0: Warning: set EXIT_CODE: $EXIT_CODE" 1>&2
+fi
+
+# collect list of files
+#
+# We ignore NOTES because it contains notes that are not part of calc source.
+# We ignore .git and GitHub because they are not part of the calc source tarball.
+# We ignore .*.swp files as they are a result of vim sessions.
+# We ignore *.out files as they are used to collect information.
+# We ignore single letter files as they are used for temporary files.
+# We ignore files containing the any of the following in any letter case:
+#
+#	foo bar baz curds whey rmme
+#
+declare -a FINDFILE
+mapfile -t FINDFILE < <(find . -type f \
+	! -path './NOTES/*' ! -name NOTES \
+	! -path './.git/*' ! -name .git \
+	! -path './.github/*' ! -name .github \
+	! -name 'CODE_OF_CONDUCT.md' ! -name 'CONTRIBUTING.md' ! -name '.gitignore' ! -name 'SECURITY.md'  \
+	! -name '*.swp' ! -name '?' ! -iname '*.out*' \
+	! -iname '*foo*' ! -iname '*bar*' ! -iname '*baz*' \
+	! -iname '*curds*' ! -iname '*whey*' ! -iname '*rmmee' -print |
+	sed -e 's/^\.\///' | sort -u)
+if [[ ${#FINDFILE[@]} -le 0 ]]; then
+    echo "$0: ERROR: find file is empty" 1>&2
+    EXIT_CODE=26
+    echo "$0: Warning: set EXIT_CODE: $EXIT_CODE" 1>&2
+fi
+
+# look for something in FINDFILE that in neither DISTLIST nor BUILDLIST
+#
+# We look for a file that is neither a file that neither a result of building calc,
+# nor part of the calc distribution list in a file list.
+#
+# NOTE that the file list has already excluded certain files (see previous section).
+#
+# We flag any file in the list that is neither a result of building calc,
+# nor part of the calc distribution list in a file list.
+#
+declare -a UNKNOWN_FILE
+mapfile -t UNKNOWN_FILE < <(
+    for i in "${FINDFILE[@]}"; do
+
+	# skip if this is a file that is result of building calc
+	#
+	if [[ -n ${BUILDLIST_A["$i"]} ]]; then
+	    continue
+	fi
+
+	# skip if this is a file that is calc distribution list
+	#
+	if [[ -n ${DISTLIST_A["$i"]} ]]; then
+	    continue
+	fi
+
+	# print the file of unknown status
+	#
+	echo "$i"
+    done
+)
+if [[ ${#UNKNOWN_FILE[@]} -ne 0 ]]; then
+
+    # report that something in DISTLIST was found in BUILDLIST
+    #
+    echo "$0: ERROR: files that are neither built nor distlist are found" 1>&2
+    echo "$0: ERROR: distlist files found in buildlist: ${UNKNOWN_FILE[*]}" 1>&2
+    EXIT_CODE=27
+    echo "$0: Warning: set EXIT_CODE: $EXIT_CODE" 1>&2
+fi
+
+# Look for a find in distlist that would otherwise be ignored
+#
+# We ignore for trailblank and FINDFILE, filenames with a single letter, and files
+# that end in .out, and files  containing the any of the following
+# in any letter case:
+#
+#	foo bar baz curds whey rmme
+#
+# So we will object is any distlist file is one of these ignored filenames.
+#
+INVALID_DISTLIST=$(printf '%s\n' "${DISTLIST[@]}" | \
+		   tr '[:upper:]' '[:lower:]' | \
+		   sed -n -e '/^.$/p' -e '/.*foo.*/p' -e '/.*bar.*/p' -e '/.*baz.*/p' \
+			  -e '/.*curds.*/p' -e '/.*whey.*/p' -e '/.*rmme.*/p' |
+		   tr '\n' ' ')
+if [[ -n $INVALID_DISTLIST ]]; then
+    echo "$0: ERROR: distlist contains invalid filename(s): $INVALID_DISTLIST" 1>&2
+    EXIT_CODE=28
+    echo "$0: Warning: set EXIT_CODE: $EXIT_CODE" 1>&2
+fi
+
+# All Done!!! -- Jessica Noll, Age 2
+#
+if [[ $EXIT_CODE -ne 0 ]]; then
+    echo "$0: Warning: about to exit $EXIT_CODE" 1>&2
+fi
+exit "$EXIT_CODE"

cmath.h

@@ -1,7 +1,7 @@
 /*
  * cmath - data structures for extended precision complex arithmetic
  *
- * Copyright (C) 1999-2007,2014  David I. Bell
+ * Copyright (C) 1999-2007,2014,2023  David I. Bell and Landon Curt Noll
  *
  * Calc is open software; you can redistribute it and/or modify it under
  * the terms of the version 2.1 of the GNU Lesser General Public License
@@ -48,6 +48,7 @@ typedef struct {
 /*
  * Input, output, and conversion routines.
  */
+E_FUNC COMPLEX *cmappr(COMPLEX *c, NUMBER *e, long rnd, bool cfree);
 E_FUNC COMPLEX *comalloc(void);
 E_FUNC COMPLEX *qqtoc(NUMBER *q1, NUMBER *q2);
 E_FUNC void comfree(COMPLEX *c);
@@ -72,12 +73,14 @@ E_FUNC COMPLEX *c_shift(COMPLEX *c, long i);
 E_FUNC COMPLEX *c_square(COMPLEX *c);
 E_FUNC COMPLEX *c_conj(COMPLEX *c);
 E_FUNC COMPLEX *c_real(COMPLEX *c);
+E_FUNC NUMBER *c_to_q(COMPLEX *c, bool cfree);
+E_FUNC COMPLEX *q_to_c(NUMBER *q);
 E_FUNC COMPLEX *c_imag(COMPLEX *c);
 E_FUNC COMPLEX *c_neg(COMPLEX *c);
 E_FUNC COMPLEX *c_inv(COMPLEX *c);
 E_FUNC COMPLEX *c_int(COMPLEX *c);
 E_FUNC COMPLEX *c_frac(COMPLEX *c);
-E_FUNC BOOL c_cmp(COMPLEX *c1, COMPLEX *c2);
+E_FUNC bool c_cmp(COMPLEX *c1, COMPLEX *c2);
 
 
 /*
@@ -97,6 +100,7 @@ E_FUNC COMPLEX *c_root(COMPLEX *c, NUMBER *q, NUMBER *epsilon);
 E_FUNC COMPLEX *c_exp(COMPLEX *c, NUMBER *epsilon);
 E_FUNC COMPLEX *c_ln(COMPLEX *c, NUMBER *epsilon);
 E_FUNC COMPLEX *c_log(COMPLEX *c, NUMBER *epsilon);
+E_FUNC COMPLEX *c_log2(COMPLEX *c, NUMBER *epsilon);
 E_FUNC COMPLEX *c_cos(COMPLEX *c, NUMBER *epsilon);
 E_FUNC COMPLEX *c_sin(COMPLEX *c, NUMBER *epsilon);
 E_FUNC COMPLEX *c_cosh(COMPLEX *c, NUMBER *epsilon);
@@ -105,9 +109,13 @@ E_FUNC COMPLEX *c_polar(NUMBER *q1, NUMBER *q2, NUMBER *epsilon);
 E_FUNC COMPLEX *c_rel(COMPLEX *c1, COMPLEX *c2);
 E_FUNC COMPLEX *c_asin(COMPLEX *c, NUMBER *epsilon);
 E_FUNC COMPLEX *c_acos(COMPLEX *c, NUMBER *epsilon);
+E_FUNC COMPLEX *c_tan(COMPLEX *c, NUMBER *epsilon);
 E_FUNC COMPLEX *c_atan(COMPLEX *c, NUMBER *epsilon);
+E_FUNC COMPLEX *c_cot(COMPLEX *c, NUMBER *epsilon);
 E_FUNC COMPLEX *c_acot(COMPLEX *c, NUMBER *epsilon);
+E_FUNC COMPLEX *c_sec(COMPLEX *c, NUMBER *epsilon);
 E_FUNC COMPLEX *c_asec(COMPLEX *c, NUMBER *epsilon);
+E_FUNC COMPLEX *c_csc(COMPLEX *c, NUMBER *epsilon);
 E_FUNC COMPLEX *c_acsc(COMPLEX *c, NUMBER *epsilon);
 E_FUNC COMPLEX *c_asinh(COMPLEX *c, NUMBER *epsilon);
 E_FUNC COMPLEX *c_acosh(COMPLEX *c, NUMBER *epsilon);
@@ -118,14 +126,42 @@ E_FUNC COMPLEX *c_acsch(COMPLEX *c, NUMBER *epsilon);
 E_FUNC COMPLEX *c_gd(COMPLEX *c, NUMBER *epsilon);
 E_FUNC COMPLEX *c_agd(COMPLEX *c, NUMBER *epsilon);
 
+/*
+ * historical trig functions
+ */
+E_FUNC COMPLEX *c_versin(COMPLEX *c, NUMBER *epsilon);
+E_FUNC COMPLEX *c_aversin(COMPLEX *c, NUMBER *epsilon);
+E_FUNC COMPLEX *c_coversin(COMPLEX *c, NUMBER *epsilon);
+E_FUNC COMPLEX *c_acoversin(COMPLEX *c, NUMBER *epsilon);
+E_FUNC COMPLEX *c_vercos(COMPLEX *c, NUMBER *epsilon);
+E_FUNC COMPLEX *c_avercos(COMPLEX *c, NUMBER *epsilon);
+E_FUNC COMPLEX *c_covercos(COMPLEX *c, NUMBER *epsilon);
+E_FUNC COMPLEX *c_acovercos(COMPLEX *c, NUMBER *epsilon);
+E_FUNC COMPLEX *c_haversin(COMPLEX *c, NUMBER *epsilon);
+E_FUNC COMPLEX *c_ahaversin(COMPLEX *c, NUMBER *epsilon);
+E_FUNC COMPLEX *c_hacoversin(COMPLEX *c, NUMBER *epsilon);
+E_FUNC COMPLEX *c_ahacoversin(COMPLEX *c, NUMBER *epsilon);
+E_FUNC COMPLEX *c_havercos(COMPLEX *c, NUMBER *epsilon);
+E_FUNC COMPLEX *c_ahavercos(COMPLEX *c, NUMBER *epsilon);
+E_FUNC COMPLEX *c_hacovercos(COMPLEX *c, NUMBER *epsilon);
+E_FUNC COMPLEX *c_ahacovercos(COMPLEX *c, NUMBER *epsilon);
+E_FUNC COMPLEX *c_exsec(COMPLEX *c, NUMBER *epsilon);
+E_FUNC COMPLEX *c_aexsec(COMPLEX *c, NUMBER *epsilon);
+E_FUNC COMPLEX *c_excsc(COMPLEX *c, NUMBER *epsilon);
+E_FUNC COMPLEX *c_aexcsc(COMPLEX *c, NUMBER *epsilon);
+E_FUNC COMPLEX *c_crd(COMPLEX *c, NUMBER *epsilon);
+E_FUNC COMPLEX *c_acrd(COMPLEX *c, NUMBER *epsilon);
+E_FUNC COMPLEX *c_cas(COMPLEX *c, NUMBER *epsilon);
+E_FUNC COMPLEX *c_cis(COMPLEX *c, NUMBER *epsilon);
+
 
 
 /*
  * external functions
  */
-E_FUNC COMPLEX *swap_b8_in_COMPLEX(COMPLEX *dest, COMPLEX *src, BOOL all);
-E_FUNC COMPLEX *swap_b16_in_COMPLEX(COMPLEX *dest, COMPLEX *src, BOOL all);
-E_FUNC COMPLEX *swap_HALF_in_COMPLEX(COMPLEX *dest, COMPLEX *src, BOOL all);
+E_FUNC COMPLEX *swap_b8_in_COMPLEX(COMPLEX *dest, COMPLEX *src, bool all);
+E_FUNC COMPLEX *swap_b16_in_COMPLEX(COMPLEX *dest, COMPLEX *src, bool all);
+E_FUNC COMPLEX *swap_HALF_in_COMPLEX(COMPLEX *dest, COMPLEX *src, bool all);
 
 
 /*

codegen.c

@@ -1,7 +1,7 @@
 /*
  * codegen - module to generate opcodes from the input tokens
  *
- * Copyright (C) 1999-2007,2017,2021,2022  David I. Bell and Ernest Bowen
+ * Copyright (C) 1999-2007,2017,2021-2023  David I. Bell and Ernest Bowen
  *
  * Primary author:  David I. Bell
  *
@@ -51,17 +51,17 @@
 #endif
 
 
-#include "attribute.h"
+#include "errtbl.h"
 #include "banned.h"	/* include after system header <> includes */
 
 
-STATIC BOOL rdonce;	/* TRUE => do not reread this file */
+STATIC bool rdonce;	/* true => do not reread this file */
 
 FUNC *curfunc;
 
 S_FUNC int getsymvalue(char *name, VALUE *v_p);
-S_FUNC int getfilename(char *name, size_t namelen, BOOL *once);
-S_FUNC BOOL getid(char *buf);
+S_FUNC int getfilename(char *name, size_t namelen, bool *once);
+S_FUNC bool getid(char *buf);
 S_FUNC void getshowstatement(void);
 S_FUNC void getfunction(void);
 S_FUNC void ungetfunction(void);
@@ -101,7 +101,7 @@ S_FUNC int getshiftexpr(void);
 S_FUNC int getreference(void);
 S_FUNC int getincdecexpr(void);
 S_FUNC int getterm(void);
-S_FUNC int getidexpr(BOOL okmat, int autodef);
+S_FUNC int getidexpr(bool okmat, int autodef);
 S_FUNC long getinitlist(void);
 
 #define INDICALLOC 8
@@ -121,14 +121,14 @@ STATIC int maxindices;
  * The toplevel flag indicates whether we are at the top interactive level.
  */
 void
-getcommands(BOOL toplevel)
+getcommands(bool toplevel)
 {
 	char name[MAXCMD+1+1];	/* program name */
 
 	/* firewall */
 	name[0] = '\0';
 	name[MAXCMD+1] = '\0';
-	abort_now = FALSE;
+	abort_now = false;
 
 	/* getcommands */
 	if (!toplevel)
@@ -184,7 +184,7 @@ getcommands(BOOL toplevel)
 						          CALCEXT,rdonce);
 				switch (open_ret) {
 				case 0:
-					getcommands(FALSE);
+					getcommands(false);
 					closeinput();
 					continue;
 				case 1:
@@ -227,7 +227,7 @@ getcommands(BOOL toplevel)
 		default:
 			rescantoken();
 			initstack();
-			if (evaluate(FALSE))
+			if (evaluate(false))
 				updateoldvalue(curfunc);
 			freefunc(curfunc);
 			if (abort_now) {
@@ -252,18 +252,18 @@ getcommands(BOOL toplevel)
 /*
  * Evaluate a line of statements.
  * This is done by treating the current line as a function body,
- * compiling it, and then executing it.	 Returns TRUE if the line
+ * compiling it, and then executing it.	 Returns true if the line
  * successfully compiled and executed.	The last expression result
  * is saved in the f_savedvalue element of the current function.
- * The nestflag variable should be FALSE for the outermost evaluation
- * level, and TRUE for all other calls (such as the 'eval' function).
+ * The nestflag variable should be false for the outermost evaluation
+ * level, and true for all other calls (such as the 'eval' function).
  * The function name begins with an asterisk to indicate specialness.
  *
  * given:
- *	nestflag		TRUE if this is a nested evaluation
+ *	nestflag		true if this is a nested evaluation
  */
-BOOL
-evaluate(BOOL nestflag)
+bool
+evaluate(bool nestflag)
 {
 	char *funcname;
 	int loop = 1;		/* 0 => end the main while loop */
@@ -296,9 +296,9 @@ evaluate(BOOL nestflag)
 	addop(OP_RETURN);
 	checklabels();
 	if (errorcount)
-		return FALSE;
+		return false;
 	calculate(curfunc, 0);
-	return TRUE;
+	return true;
 }
 
 /*
@@ -334,7 +334,7 @@ ungetfunction(void)
 				return;
 			}
 			name = tokensymbol();
-			endscope(name, FALSE);
+			endscope(name, false);
 			continue;
 
 		case T_NEWLINE:
@@ -374,7 +374,7 @@ getfunction(void)
 		scanerror(T_SEMICOLON, "Using builtin function name");
 		return;
 	}
-	beginfunc(name, FALSE);
+	beginfunc(name, false);
 	enterfuncscope();
 	if (gettoken() != T_LEFTPAREN) {
 		scanerror(T_SEMICOLON,
@@ -466,7 +466,7 @@ getbody(LABEL *contlabel, LABEL *breaklabel, LABEL *nextcaselabel,
 	int oldmode;
 
 	oldmode = tokenmode(TM_DEFAULT);
-	while (TRUE) {
+	while (true) {
 		switch (gettoken()) {
 		case T_RIGHTBRACE:
 			(void) tokenmode(oldmode);
@@ -495,7 +495,7 @@ getdeclarations(int symtype)
 {
 	int res = 0;
 
-	while (TRUE) {
+	while (true) {
 		switch (gettoken()) {
 		case T_COMMA:
 			continue;
@@ -631,7 +631,7 @@ getstatement(LABEL *contlabel, LABEL *breaklabel,
 	LABEL label;
 	LABEL label1, label2, label3, label4;	/* locations for jumps */
 	int type;
-	BOOL printeol;
+	bool printeol;
 	int oldmode;
 
 	addopone(OP_DEBUG, linenumber());
@@ -960,7 +960,7 @@ getstatement(LABEL *contlabel, LABEL *breaklabel,
 		break;
 
 	case T_PRINT:
-		printeol = TRUE;
+		printeol = true;
 		for (;;) {
 			switch (gettoken()) {
 			case T_RIGHTPAREN:
@@ -979,14 +979,14 @@ getstatement(LABEL *contlabel, LABEL *breaklabel,
 				addop(OP_PRINTSPACE);
 				/*FALLTHRU*/
 			case T_COLON:
-				printeol = FALSE;
+				printeol = false;
 				break;
 			case T_STRING:
-				printeol = TRUE;
+				printeol = true;
 				addopone(OP_PRINTSTRING, tokenstring());
 				break;
 			default:
-				printeol = TRUE;
+				printeol = true;
 				rescantoken();
 				(void) getopassignment();
 				addopone(OP_PRINT, (long) PRINT_NORMAL);
@@ -1195,7 +1195,7 @@ getoneobj(long index, int symtype)
 	if (gettoken() == T_SYMBOL) {
 		if (symtype == SYM_UNDEFINED) {
 			rescantoken();
-			(void) getidexpr(TRUE, 1);
+			(void) getidexpr(true, 1);
 		} else {
 			symname = tokensymbol();
 			definesymbol(symname, symtype);
@@ -1278,7 +1278,7 @@ getonematrix(int symtype)
 	if (gettoken() == T_SYMBOL) {
 		if (symtype == SYM_UNDEFINED) {
 			rescantoken();
-			(void) getidexpr(FALSE, 1);
+			(void) getidexpr(false, 1);
 		} else {
 			name = tokensymbol();
 			definesymbol(name, symtype);
@@ -2141,7 +2141,7 @@ getterm(void)
 
 	case T_SYMBOL:
 		rescantoken();
-		type = getidexpr(TRUE, 0);
+		type = getidexpr(true, 0);
 		break;
 
 	case T_MULT:
@@ -2164,7 +2164,7 @@ getterm(void)
 			break;
 		}
 		rescantoken();
-		type = getidexpr(TRUE, T_GLOBAL);
+		type = getidexpr(true, T_GLOBAL);
 		break;
 
 	case T_LOCAL:
@@ -2174,7 +2174,7 @@ getterm(void)
 			break;
 		}
 		rescantoken();
-		type = getidexpr(TRUE, T_LOCAL);
+		type = getidexpr(true, T_LOCAL);
 		break;
 
 	case T_STATIC:
@@ -2184,7 +2184,7 @@ getterm(void)
 			break;
 		}
 		rescantoken();
-		type = getidexpr(TRUE, T_STATIC);
+		type = getidexpr(true, T_STATIC);
 		break;
 
 	case T_LEFTBRACKET:
@@ -2238,7 +2238,7 @@ getterm(void)
  * Returns the type of expression found.
  */
 S_FUNC int
-getidexpr(BOOL okmat, int autodef)
+getidexpr(bool okmat, int autodef)
 {
 	int type;
 	char name[SYMBOLSIZE+1];	/* symbol name */
@@ -2339,15 +2339,15 @@ getsymvalue(char *name, VALUE *v_p)
  * Read in a filename for a read or write command.
  * Both quoted and unquoted filenames are handled here.
  * The name must be terminated by an end of line or semicolon.
- * Returns TRUE if the filename was successfully parsed.
+ * Returns true if the filename was successfully parsed.
  *
  * given:
  *	name		filename to read
  *	namelen		length of filename buffer including NUL byte
- *	once		non-NULL => set to TRUE of -once read
+ *	once		non-NULL => set to true of -once read
  */
 S_FUNC int
-getfilename(char *name, size_t namelen, BOOL *once)
+getfilename(char *name, size_t namelen, bool *once)
 {
 	STRING *s;
 	char *symstr;	/* symbol string */
@@ -2532,7 +2532,7 @@ getmatargs(void)
 	 */
 	dim = 0;
 	if (gettoken() == T_RIGHTBRACKET) {
-		addoptwo(OP_INDEXADDR, (long) dim, (long) FALSE);
+		addoptwo(OP_INDEXADDR, (long) dim, (long) false);
 		return;
 	}
 	rescantoken();
@@ -2542,7 +2542,7 @@ getmatargs(void)
 		switch (gettoken()) {
 		case T_RIGHTBRACKET:
 			addoptwo(OP_INDEXADDR, (long) dim,
-					(long) FALSE);
+					(long) false);
 			return;
 		case T_COMMA:
 			break;
@@ -2580,9 +2580,9 @@ getelement(void)
 
 /*
  * Read in a single symbol name and copy its value into the given buffer.
- * Returns TRUE if a valid symbol id was found.
+ * Returns true if a valid symbol id was found.
  */
-S_FUNC BOOL
+S_FUNC bool
 getid(char *buf)
 {
 	int type;
@@ -2592,16 +2592,16 @@ getid(char *buf)
 		scanerror(T_NULL, "Reserved keyword used as symbol name");
 		type = T_SYMBOL;
 		*buf = '\0';
-		return FALSE;
+		return false;
 	}
 	if (type != T_SYMBOL) {
 		rescantoken();
 		scanerror(T_NULL, "Symbol name expected");
 		*buf = '\0';
-		return FALSE;
+		return false;
 	}
 	strlcpy(buf, tokensymbol(), SYMBOLSIZE+1);
-	return TRUE;
+	return true;
 }
 
 
@@ -2687,11 +2687,11 @@ usesymbol(char *name, int autodef)
 		if (type == SYM_GLOBAL) {
 			warning("Unnecessary global specifier");
 		}
-		addopptr(OP_GLOBALADDR, (char *) addglobal(name, FALSE));
+		addopptr(OP_GLOBALADDR, (char *) addglobal(name, false));
 		return;
 	}
 	if (autodef == T_STATIC) {
-		addopptr(OP_GLOBALADDR, (char *) addglobal(name, TRUE));
+		addopptr(OP_GLOBALADDR, (char *) addglobal(name, true));
 		return;
 	}
 	if (autodef == T_LOCAL) {
@@ -2721,7 +2721,7 @@ usesymbol(char *name, int autodef)
 		scanerror(T_NULL, "\"%s\" is undefined", name);
 		return;
 	}
-	(void) addglobal(name, FALSE);
+	(void) addglobal(name, false);
 	addopptr(OP_GLOBALADDR, (char *) findglobal(name));
 }
 
@@ -2740,7 +2740,7 @@ getcallargs(char *name)
 	long index;		/* function index */
 	long op;		/* opcode to add */
 	int argcount;		/* number of arguments */
-	BOOL addrflag;
+	bool addrflag;
 
 	op = OP_CALL;
 	index = getbuiltinfunc(name);

commath.c

@@ -1,7 +1,7 @@
 /*
  * commath - extended precision complex arithmetic primitive routines
  *
- * Copyright (C) 1999-2007,2021,2022  David I. Bell
+ * Copyright (C) 1999-2007,2021-2023  David I. Bell
  *
  * Calc is open software; you can redistribute it and/or modify it under
  * the terms of the version 2.1 of the GNU Lesser General Public License
@@ -27,7 +27,7 @@
 #include "cmath.h"
 
 
-#include "attribute.h"
+#include "errtbl.h"
 #include "banned.h"	/* include after system header <> includes */
 
 
@@ -38,6 +38,77 @@ COMPLEX _conei_ =		{ &_qzero_, &_qone_, 1 };
 STATIC COMPLEX _cnegone_ =	{ &_qnegone_, &_qzero_, 1 };
 
 
+/*
+ * cmappr - complex multiple approximation
+ *
+ * Approximate a number to nearest multiple of a given real number. Whether
+ * rounding is down, up, etc. is determined by rnd.
+ *
+ * This function is useful to round a result to the nearest epsilon:
+ *
+ *	COMPLEX *c;		(* complex number to round to nearest epsilon *)
+ *	NUMBER *eps;		(* epsilon rounding precision *)
+ *	COMPLEX *res;		(* c rounded to nearest epsilon *)
+ *	long rnd = 24L;		(* a common rounding mode *)
+ *	bool ok_to_free;	(* true ==> free c, false ==> do not free c *)
+ *
+ *	...
+ *
+ *	res = cmappr(c, eps, ok_to_free);
+ *
+ * given:
+ *	c	pointer to COMPLEX value to round
+ *	e	pointer to NUMBER multiple
+ *	rnd	rounding mode
+ *	cfree	true ==> free c, false ==> do not free c
+ *
+ * returns:
+ *	allocated pointer to COMPLEX multiple of e approximation of c
+ */
+COMPLEX *
+cmappr(COMPLEX *c, NUMBER *e, long rnd, bool cfree)
+{
+	COMPLEX *r;	/* COMPLEX multiple of e approximation of c */
+
+	/*
+	 * firewall
+	 */
+	if (c == NULL) {
+		math_error("%s: c is NULL", __func__);
+		not_reached();
+	}
+	if (e == NULL) {
+		math_error("%s: e is NULL", __func__);
+		not_reached();
+	}
+
+	/*
+	 * allocate return result
+	 */
+	r = comalloc();
+
+	/*
+	 * round c to multiple of e
+	 */
+	qfree(r->real);
+	r->real = qmappr(c->real, e, rnd);
+	qfree(r->imag);
+	r->imag = qmappr(c->imag, e, rnd);
+
+	/*
+	 * free c if requested
+	 */
+	if (cfree == true) {
+		comfree(c);
+	}
+
+	/*
+	  * return the allocated multiple of e approximation of c
+         */
+        return r;
+}
+
+
 /*
  * Add two complex numbers.
  */
@@ -396,6 +467,97 @@ c_real(COMPLEX *c)
 }
 
 
+/*
+ * c_to_q - convert a real part of a COMPLEX to a NUMBER
+ *
+ * given:
+ *	c	complex number for which the real part will be used
+ *	cfree	true ==> free c, false ==> do not free c
+ *
+ * returns:
+ *	allocated NUMBER that the equivalent of the real part of a complex number
+ *
+ * NOTE: Any imaginary part of the COMPLEX value is ignored.
+ *
+ * NOTE: To avoid a loss of value, test with cisreal(c) first:
+ *
+ *	COMPLEX *c;
+ *	NUMBER *q;
+ *	bool ok_to_free;
+ *
+ *	if (cisreal(c)) {
+ *		q = c_to_q(c, ok_to_free);
+ *	}
+ */
+NUMBER *
+c_to_q(COMPLEX *c, bool cfree)
+{
+	NUMBER *r;	/* allocated NUMBER equivalent to return */
+
+	/*
+	 * firewall
+	 */
+	if (c == NULL) {
+		math_error("%s: c is NULL", __func__);
+		not_reached();
+	}
+
+	/*
+	 * allocate a new NUMBER
+	 */
+	r = qalloc();
+
+	/*
+	 * link in the real part of the COMPLEX value
+	 */
+	r = qlink(c->real);
+
+	/*
+	 * free c if requested
+	 */
+	if (cfree == true) {
+		comfree(c);
+	}
+
+	/*
+	 * return the allocated equivalent NUMBER
+	 */
+	return r;
+}
+
+
+/*
+ * q_to_c - convert a NUMBER into an allocated COMPLEX
+ *
+ * given:
+ *	q	NUMBER to be converted
+ *
+ * returns:
+ *	allocated COMPLEX number whose real part is NUMBER and imag part is 0
+ */
+COMPLEX *
+q_to_c(NUMBER *q)
+{
+	COMPLEX *res;	/* COMPLEX number to return */
+
+	/*
+	 * allocate complex number
+	 */
+	res = comalloc();
+
+	/*
+	 * assign NUMBER to real part
+	 */
+	qfree(res->real);
+	res->real = qlink(q);
+
+	/*
+	 * return the allocated equivalent COMPLEX
+	 */
+	return res;
+}
+
+
 /*
  * Return the imaginary part of a complex number as a real.
  */
@@ -560,13 +722,13 @@ qqtoc(NUMBER *q1, NUMBER *q2)
 
 
 /*
- * Compare two complex numbers for equality, returning FALSE if they are equal,
- * and TRUE if they differ.
+ * Compare two complex numbers for equality, returning false if they are equal,
+ * and true if they differ.
  */
-BOOL
+bool
 c_cmp(COMPLEX *c1, COMPLEX *c2)
 {
-	BOOL i;
+	bool i;
 
 	i = qcmp(c1->real, c2->real);
 	if (!i)

config.c

@@ -1,7 +1,7 @@
 /*
  * config - configuration routines
  *
- * Copyright (C) 1999-2007,2021,2022  David I. Bell and Landon Curt Noll
+ * Copyright (C) 1999-2007,2021-2023  David I. Bell and Landon Curt Noll
  *
  * Primary author:  David I. Bell
  *
@@ -62,7 +62,7 @@
 #endif /* HAVE_STRDUP */
 
 
-#include "attribute.h"
+#include "errtbl.h"
 #include "banned.h"	/* include after system header <> includes */
 
 
@@ -106,6 +106,7 @@ NAMETYPE configs[] = {
 	{"cfsim",	CONFIG_CFSIM},
 	{"outround",	CONFIG_OUTROUND},
 	{"round",	CONFIG_ROUND},
+	{"triground",	CONFIG_TRIGROUND},
 	{"leadzero",	CONFIG_LEADZERO},
 	{"fullzero",	CONFIG_FULLZERO},
 	{"maxscan",	CONFIG_MAXSCAN},
@@ -147,17 +148,17 @@ CONFIG oldstd = {	/* backward compatible standard configuration */
 	20,			/* current output digits for float or exp */
 	NULL,	/* loaded in at startup - default error for real functions */
 	EPSILONPREC_DEFAULT,	/* binary precision of epsilon */
-	FALSE,			/* tracing flags */
+	false,			/* tracing flags */
 	MAXPRINT_DEFAULT,	/* number of elements to print */
 	MUL_ALG2,		/* size of number to use multiply alg 2 */
 	SQ_ALG2,		/* size of number to use square alg 2 */
 	POW_ALG2,		/* size of modulus to use REDC for powers */
 	REDC_ALG2,		/* size of modulus to use REDC algorithm 2 */
-	TRUE,			/* TRUE ==> print a tilde on approximations */
-	FALSE,			/* TRUE ==> print a space after tilde on approximations */
-	FALSE,			/* TRUE ==> print spaces around / in fractions */
-	FALSE,			/* TRUE ==> print spaces around + or - in complex values */
-	TRUE,			/* TRUE ==> print tab before numeric values */
+	true,			/* true ==> print a tilde on approximations */
+	false,			/* true ==> print a space after tilde on approximations */
+	false,			/* true ==> print spaces around / in fractions */
+	false,			/* true ==> print spaces around + or - in complex values */
+	true,			/* true ==> print tab before numeric values */
 	0,			/* quomod() default rounding mode */
 	2,			/* quotient // default rounding mode */
 	0,			/* mod % default rounding mode */
@@ -167,42 +168,43 @@ CONFIG oldstd = {	/* backward compatible standard configuration */
 	8,			/* cfsim() default rounding mode */
 	2,			/* output default rounding mode */
 	24,			/* round()/bround() default rounding mode */
-	FALSE,			/* TRUE ==> print leading 0 before decimal pt */
-	0,			/* TRUE ==> print trailing 0's */
+	24,			/* trigonometric and hyperbolic function rounding mode */
+	false,			/* true ==> print leading 0 before decimal pt */
+	0,			/* true ==> print trailing 0's */
 	MAXSCANCOUNT,		/* max scan errors before abort */
 	PROMPT1,		/* normal prompt */
 	PROMPT2,		/* prompt when inside multi-line input */
 	BLK_DEF_MAXPRINT,	/* number of octets of a block to print */
-	FALSE,			/* skip duplicate block output lines */
+	false,			/* skip duplicate block output lines */
 	BLK_BASE_HEX,		/* block octet print base */
 	BLK_FMT_HD_STYLE,	/* block output format */
 	0,			/* internal calc debug level */
 	3,			/* calc resource file debug level */
 	0,			/* user defined debug level */
-	FALSE,			/* TRUE ==> print Quit or abort executed messages */
+	false,			/* true ==> print Quit or abort executed messages */
 	CTRL_D_VIRGIN_EOF,	/* ^D only exits on virgin lines */
 	NULL,			/* our name */
 	NULL,			/* basename of our name */
 #if defined(_WIN32) || defined(_WIN64)
-	TRUE,			/* TRUE ==> running under windows */
+	true,			/* true ==> running under windows */
 #else
-	FALSE,			/* FALSE ==> not using windows */
+	false,			/* false ==> not using windows */
 #endif
 #if defined(__CYGWIN__)
-	TRUE,			/* TRUE ==> compiled under cygwin */
+	true,			/* true ==> compiled under cygwin */
 #else
-	FALSE,			/* FALSE ==> not compiled with cygwin */
+	false,			/* false ==> not compiled with cygwin */
 #endif
 #if defined(CUSTOM)
-	TRUE,			/* TRUE ==> compiled with -DCUSTOM */
+	true,			/* true ==> compiled with -DCUSTOM */
 #else
-	FALSE,			/* FALSE ==> compiled without -DCUSTOM */
+	false,			/* false ==> compiled without -DCUSTOM */
 #endif
-	&allow_custom,		/* *TRUE=> custom functions are enabled */
+	&allow_custom,		/* *true=> custom functions are enabled */
 	NULL,			/* version */
 	BASEB,			/* base for calculations */
-	TRUE,			/* TRUE ==> warn when redeclaring */
-	TRUE,			/* TRUE ==> warn when variable names collide */
+	true,			/* true ==> warn when redeclaring */
+	true,			/* true ==> warn when variable names collide */
 };
 CONFIG newstd = {	/* new non-backward compatible configuration */
 	MODE_INITIAL,		/* current output mode */
@@ -210,17 +212,17 @@ CONFIG newstd = {	/* new non-backward compatible configuration */
 	20,			/* current output digits for float or exp */
 	NULL,	/* loaded in at startup - default error for real functions */
 	EPSILONPREC_DEFAULT,	/* binary precision of epsilon */
-	FALSE,			/* tracing flags */
+	false,			/* tracing flags */
 	MAXPRINT_DEFAULT,	/* number of elements to print */
 	MUL_ALG2,		/* size of number to use multiply alg 2 */
 	SQ_ALG2,		/* size of number to use square alg 2 */
 	POW_ALG2,		/* size of modulus to use REDC for powers */
 	REDC_ALG2,		/* size of modulus to use REDC algorithm 2 */
-	TRUE,			/* TRUE ==> print a tilde on approximations */
-	FALSE,			/* TRUE ==> print spaces around / in fractions */
-	FALSE,			/* TRUE ==> print a space after tilde on approximations */
-	FALSE,			/* TRUE ==> print spaces around + or - in complex values */
-	TRUE,			/* TRUE ==> print tab before numeric values */
+	true,			/* true ==> print a tilde on approximations */
+	false,			/* true ==> print spaces around / in fractions */
+	false,			/* true ==> print a space after tilde on approximations */
+	false,			/* true ==> print spaces around + or - in complex values */
+	true,			/* true ==> print tab before numeric values */
 	0,			/* quomod() default rounding mode */
 	2,			/* quotient // default rounding mode */
 	0,			/* mod % default rounding mode */
@@ -230,42 +232,43 @@ CONFIG newstd = {	/* new non-backward compatible configuration */
 	8,			/* cfsim() default rounding mode */
 	24,			/* output default rounding mode */
 	24,			/* round()/bround() default rounding mode */
-	TRUE,			/* TRUE ==> print leading 0 before decimal pt */
-	0,			/* TRUE ==> print trailing 0's */
+	24,			/* trigonometric and hyperbolic function rounding mode */
+	true,			/* true ==> print leading 0 before decimal pt */
+	0,			/* true ==> print trailing 0's */
 	MAXSCANCOUNT,		/* max scan errors before abort */
 	"; ",			/* normal prompt */
 	";; ",			/* prompt when inside multi-line input */
 	BLK_DEF_MAXPRINT,	/* number of octets of a block to print */
-	FALSE,			/* skip duplicate block output lines */
+	false,			/* skip duplicate block output lines */
 	BLK_BASE_HEX,		/* block octet print base */
 	BLK_FMT_HD_STYLE,	/* block output format */
 	0,			/* internal calc debug level */
 	3,			/* calc resource file debug level */
 	0,			/* user defined debug level */
-	FALSE,			/* TRUE ==> print Quit or abort executed messages */
+	false,			/* true ==> print Quit or abort executed messages */
 	CTRL_D_VIRGIN_EOF,	/* ^D only exits on virgin lines */
 	NULL,			/* our name */
 	NULL,			/* basename of our name */
 #if defined(_WIN32) || defined(_WIN64)
-	TRUE,			/* TRUE ==> running under windows */
+	true,			/* true ==> running under windows */
 #else
-	FALSE,			/* FALSE ==> not using windows */
+	false,			/* false ==> not using windows */
 #endif
 #if defined(__CYGWIN__)
-	TRUE,			/* TRUE ==> compiled under cygwin */
+	true,			/* true ==> compiled under cygwin */
 #else
-	FALSE,			/* FALSE ==> not compiled with cygwin */
+	false,			/* false ==> not compiled with cygwin */
 #endif
 #if defined(CUSTOM)
-	TRUE,			/* TRUE ==> compiled with -DCUSTOM */
+	true,			/* true ==> compiled with -DCUSTOM */
 #else
-	FALSE,			/* FALSE ==> compiled without -DCUSTOM */
+	false,			/* false ==> compiled without -DCUSTOM */
 #endif
-	&allow_custom,		/* *TRUE ==> custom functions are enabled */
+	&allow_custom,		/* *true ==> custom functions are enabled */
 	NULL,			/* version */
 	BASEB,			/* base for calculations */
-	TRUE,			/* TRUE ==> warn when redeclaring */
-	TRUE,			/* TRUE ==> warn when variable names collide */
+	true,			/* true ==> warn when redeclaring */
+	true,			/* true ==> warn when variable names collide */
 };
 CONFIG *conf = NULL;	/* loaded in at startup - current configuration */
 
@@ -358,23 +361,23 @@ STATIC NAMETYPE ctrl_d[] = {
 /*
  * Possible binary config state values
  */
-#define TRUE_STRING	"true"
-#define FALSE_STRING	"false"
+#define true_STRING	"true"
+#define false_STRING	"false"
 STATIC NAMETYPE truth[] = {
-	{TRUE_STRING,	TRUE},
-	{"t",		TRUE},
-	{"on",		TRUE},
-	{"yes",		TRUE},
-	{"y",		TRUE},
-	{"set",		TRUE},
-	{"1",		TRUE},
-	{FALSE_STRING,	FALSE},
-	{"f",		FALSE},
-	{"off",		FALSE},
-	{"no",		FALSE},
-	{"n",		FALSE},
-	{"unset",	FALSE},
-	{"0",		FALSE},
+	{true_STRING,	true},
+	{"t",		true},
+	{"on",		true},
+	{"yes",		true},
+	{"y",		true},
+	{"set",		true},
+	{"1",		true},
+	{false_STRING,	false},
+	{"f",		false},
+	{"off",		false},
+	{"no",		false},
+	{"n",		false},
+	{"unset",	false},
+	{"0",		false},
 	{NULL,		0}
 };
 
@@ -761,6 +764,14 @@ setconfig(int type, VALUE *vp)
 		conf->round = len;
 		break;
 
+	case CONFIG_TRIGROUND:
+		if (getlen(vp, &len)) {
+			math_error("Illegal value for triground");
+			not_reached();
+		}
+		conf->triground = len;
+		break;
+
 	case CONFIG_LEADZERO:
 		if (vp->v_type == V_NUM) {
 			q = vp->v_num;
@@ -1308,6 +1319,10 @@ config_value(CONFIG *cfg, int type, VALUE *vp)
 		i = cfg->round;
 		break;
 
+	case CONFIG_TRIGROUND:
+		i = cfg->triground;
+		break;
+
 	case CONFIG_LEADZERO:
 		i = (cfg->leadzero ? 1 : 0);
 		break;
@@ -1468,9 +1483,9 @@ config_value(CONFIG *cfg, int type, VALUE *vp)
  *	cfg2 - 2nd CONFIG to compare
  *
  * return:
- *	TRUE if configurations differ
+ *	true if configurations differ
  */
-BOOL
+bool
 config_cmp(CONFIG *cfg1, CONFIG *cfg2)
 {
 	/*
@@ -1512,6 +1527,7 @@ config_cmp(CONFIG *cfg1, CONFIG *cfg2)
 	       cfg1->cfsim != cfg2->cfsim ||
 	       cfg1->outround != cfg2->outround ||
 	       cfg1->round != cfg2->round ||
+	       cfg1->triground != cfg2->triground ||
 	       cfg1->leadzero != cfg2->leadzero ||
 	       cfg1->fullzero != cfg2->fullzero ||
 	       cfg1->maxscancount != cfg2->maxscancount ||

config.h

@@ -1,7 +1,7 @@
 /*
  * config - configuration routines
  *
- * Copyright (C) 1999-2007,2014,2021  Landon Curt Noll and David I. Bell
+ * Copyright (C) 1999-2007,2014,2021,2023  Landon Curt Noll and David I. Bell
  *
  * Primary author:  Landon Curt Noll
  *
@@ -97,6 +97,7 @@
 #define CONFIG_TILDE_SPACE	47
 #define CONFIG_FRACTION_SPACE	48
 #define CONFIG_COMPLEX_SPACE	49
+#define CONFIG_TRIGROUND	50
 
 
 /*
@@ -120,6 +121,7 @@
  *			  config_value(), config_cmp(),
  *			  and perhaps config_copy(), config_free()
  *	config.h	- CONFIG_XYZ_SYMBOL (see above)
+ *	help/config	- document new config option
  */
 struct config {
 	int outmode;		/* current output mode */
@@ -133,11 +135,11 @@ struct config {
 	LEN sq2;		/* size of number to use square algorithm 2 */
 	LEN pow2;		/* size of modulus to use REDC for powers */
 	LEN redc2;		/* size of modulus to use REDC algorithm 2 */
-	BOOL tilde_ok;		/* OK to print a tilde on approximations */
-	BOOL tilde_space;	/* print space after tilde on approximations */
-	BOOL fraction_space;	/* TRUE => print spaces around / in fractions */
-	BOOL complex_space;	/* TRUE => print spaces around + or - in complex values */
-	BOOL tab_ok;		/* OK to print tab before numeric values */
+	bool tilde_ok;		/* OK to print a tilde on approximations */
+	bool tilde_space;	/* print space after tilde on approximations */
+	bool fraction_space;	/* true => print spaces around / in fractions */
+	bool complex_space;	/* true => print spaces around + or - in complex values */
+	bool tab_ok;		/* OK to print tab before numeric values */
 	LEN quomod;		/* quomod() default rounding mode */
 	LEN quo;		/* quotient // default rounding mode */
 	LEN mod;		/* mod % default rounding mode */
@@ -147,30 +149,31 @@ struct config {
 	LEN cfsim;		/* cfsim() default rounding mode */
 	LEN outround;		/* output default rounding mode */
 	LEN round;		/* round()/bround() default rounding mode */
-	BOOL leadzero;		/* OK to print leading 0 before decimal pt */
-	BOOL fullzero;		/* OK to print trailing 0's */
+	LEN triground;		/* trigonometric and hyperbolic function rounding mode */
+	bool leadzero;		/* OK to print leading 0 before decimal pt */
+	bool fullzero;		/* OK to print trailing 0's */
 	long maxscancount;	/* max scan errors before abort */
 	char *prompt1;		/* normal prompt */
 	char *prompt2;		/* prompt when inside multi-line input */
 	int blkmaxprint;	/* octets of a block to print, 0 => all */
-	BOOL blkverbose;	/* TRUE => print all lines if a block */
+	bool blkverbose;	/* true => print all lines if a block */
 	int blkbase;		/* block output base */
 	int blkfmt;		/* block output style */
 	long calc_debug;	/* internal debug, see CALC_DEBUG_XYZ below */
 	long resource_debug;	/* resource debug, see RSCDBG_XYZ below */
 	long user_debug;	/* user defined debug value: 0 default */
-	BOOL verbose_quit;	/* TRUE => print Quit or abort executed msg */
+	bool verbose_quit;	/* true => print Quit or abort executed msg */
 	int ctrl_d;		/* see CTRL_D_xyz below */
 	char *program;		/* our name */
 	char *base_name;	/* basename of our name */
-	BOOL windows;		/* TRUE => running under MS windows */
-	BOOL cygwin;		/* TRUE => compiled with cygwin */
-	BOOL compile_custom;	/* TRUE => compiled with -DCUSTOM */
-	BOOL *allow_custom;	/* ptr to if custom functions are allowed */
+	bool windows;		/* true => running under MS windows */
+	bool cygwin;		/* true => compiled with cygwin */
+	bool compile_custom;	/* true => compiled with -DCUSTOM */
+	bool *allow_custom;	/* ptr to if custom functions are allowed */
 	char *version;		/* calc version string */
 	int baseb;		/* base for calculations */
-	BOOL redecl_warn;	/* TRUE => warn of redeclaring variables */
-	BOOL dupvar_warn;	/* TRUE => warn of var name collisions */
+	bool redecl_warn;	/* true => warn of redeclaring variables */
+	bool dupvar_warn;	/* true => warn of var name collisions */
 };
 typedef struct config CONFIG;
 
@@ -225,7 +228,7 @@ E_FUNC void config_free(CONFIG *cfg);
 E_FUNC void config_print(CONFIG *cfg);
 E_FUNC int configtype(char*);
 E_FUNC void config_print(CONFIG*);
-E_FUNC BOOL config_cmp(CONFIG*, CONFIG*);
+E_FUNC bool config_cmp(CONFIG*, CONFIG*);
 
 
 #endif /* !INCLUDE_CONFIG_H */

const.c

@@ -1,7 +1,7 @@
 /*
  * const - constant number storage module
  *
- * Copyright (C) 1999-2007,2021,2022  David I. Bell
+ * Copyright (C) 1999-2007,2021-2023  David I. Bell
  *
  * Calc is open software; you can redistribute it and/or modify it under
  * the terms of the version 2.1 of the GNU Lesser General Public License
@@ -29,7 +29,7 @@
 #include "qmath.h"
 
 
-#include "attribute.h"
+#include "errtbl.h"
 #include "banned.h"	/* include after system header <> includes */
 
 
@@ -99,7 +99,7 @@ addqconstant(NUMBER *q)
 	HALF numlow;		/* bottom value of numerator */
 	HALF denlow;		/* bottom value of denominator */
 	long first;		/* first non-null position found */
-	BOOL havefirst;
+	bool havefirst;
 
 	if (constavail <= 0) {
 		if (consttable == NULL) {
@@ -120,7 +120,7 @@ addqconstant(NUMBER *q)
 	numlow = q->num.v[0];
 	denlow = q->den.v[0];
 	first = 0;
-	havefirst = FALSE;
+	havefirst = false;
 	tp = consttable;
 	for (index = 0; index < constcount; index++, tp++) {
 		t = *tp;
@@ -129,7 +129,7 @@ addqconstant(NUMBER *q)
 		}
 		if (t->links == 0) {
 			if (!havefirst) {
-				havefirst = TRUE;
+				havefirst = true;
 				first = index;
 			}
 			continue;
@@ -140,7 +140,7 @@ addqconstant(NUMBER *q)
 					*tp = consttable[first];
 					consttable[first] = q;
 				} else {
-					havefirst = TRUE;
+					havefirst = true;
 					first = index;
 				}
 				continue;

cscript/Makefile

@@ -4,13 +4,7 @@
 #
 # Copyright (C) 1999-2006,2014,2017,2021-2023  Landon Curt Noll
 #
-# SRC: cscript/Makefile
-#
-#	The "# SRC: ... - ..." comment line above indicates
-#	the origin of this file.
-#
-# IMPORTANT: Please see the section on Makefiles near the
-#	     bottom of the HOWTO.INSTALL file.
+# Suggestion: Read the ../HOWTO.INSTALL file.
 #
 # Calc is open software; you can redistribute it and/or modify it under
 # the terms of the version 2.1 of the GNU Lesser General Public License
@@ -29,184 +23,63 @@
 # Under source code control:	1999/11/29 11:10:26
 # File existed as early as:	1999
 #
+# This calculator first developed by David I. Bell with help/mods from others.
+#
 # chongo <was here> /\oo/\	http://www.isthe.com/chongo/
 # Share and enjoy!  :-)		http://www.isthe.com/chongo/tech/comp/calc/
-#
-# calculator by David I. Bell with help/mods from others
-# Makefile by Landon Curt Noll
 
 
-# The shell used by this Makefile
-#
-# On some systems, /bin/sh is a rather reduced shell with
-# deprecated behavior.
-#
-# If your system has a up to date, bash shell, then
-# you may wish to use:
-#
-#	SHELL= bash
-#
-# On some systems such as macOS, the bash shell is very
-# far behind to the point where is cannot be depended on.
-# On such systems, the sh may be a much better alternative
-# shell for this Makefile to use:
-#
-#	SHELL= sh
-#
-SHELL= bash
-#SHELL= sh
-#if 0	/* start of skip for non-Gnu makefiles */
-#
-ifeq ($(target),Darwin)
-SHELL:= /bin/sh
-endif
-#endif	/* end of skip for non-Gnu makefiles */
+# SUGGESTION: Instead of modifying this file, consider adding
+#	      statements to modify, replace or append Makefile
+#	      variables in the ../Makefile.local file.
 
 
-####
-# Normally, the upper level makefile will set these values.  We provide
-# a default here just in case you want to build from this directory.
-####
-
-# PREFIX - Top level location for calc
-#
-# The PREFIX is often prepended to paths within calc and calc Makefiles.
-#
-# Starting with calc v2.13.0.1, nearly all Makefile places that used
-# /usr/local now use ${PREFIX}.  An exception is the olduninstall rule
-# and, of course, this section. :-)
-#
-# NOTE: The ${PREFIX} is not the same as ${T}.  The ${T} specifies
-#	a top level directory under which calc installs things.
-#	While usually ${T} is empty, it can be specific path
-#	as if calc where "chrooted" during an install.
-#	The ${PREFIX} value, during install, is a path between
-#	the top level ${T} install directory and the object
-#	such as an include file.
-#
-# NOTE: See also, ${T}, below.
-#
-# There are some paths that do NOT call under ${PREFIX}, such as
-# ${CALCPATH}, that include paths not under ${PREFIX}, but those
-# too are exceptions to this general rule.
-#
-# When in doubt, try:
-#
-#	PREFIX= /usr/local
-#
-PREFIX= /usr/local
-#PREFIX= /usr
-#PREFIX= /usr/global
+###########################################
+# Files used or included by this Makefile #
+###########################################
 
 # Normally certain files depend on the Makefile.  If the Makefile is
 # changed, then certain steps should be redone.  If MAKE_FILE is
 # set to Makefile, then these files will depend on Makefile.  If
-# MAKE_FILE is empty, then they wont.
+# MAKE_FILE is empty, then they won't.
 #
 # If in doubt, set MAKE_FILE to Makefile
 #
 MAKE_FILE= Makefile
 
-# Where the system include (.h) files are kept
-#
-# For DJGPP, select:
-#
-#	INCDIR= /dev/env/DJDIR/include
-#
-# If in doubt, set:
-#
-#	INCDIR= /usr/include
+# Calc configuration and compile configuration values
 #
+CONFIG_MKF= ../Makefile.config
 
-#INCDIR= ${PREFIX}/include
-#INCDIR= /dev/env/DJDIR/include
-INCDIR= /usr/include
+# Host targets that are shared in common with both Makefile
+# and custom/Makefile.
+#
+TARGET_MKF= ../Makefile.target
 
-# where to install calc related things
+# Host target information.
 #
-# ${BINDIR}		where to install calc binary files
-# ${LIBDIR}		where calc link library (*.a) files are installed
-# ${CALC_SHAREDIR}	where to install calc help, .cal, startup, config files
-#
-# NOTE: The install rule prepends installation paths with ${T}, which
-#	by default is empty.  If ${T} is non-empty, then installation
-#	locations will be relative to the ${T} directory.
-#
-# For DJGPP, select:
-#
-#	BINDIR= /dev/env/DJDIR/bin
-#	LIBDIR= /dev/env/DJDIR/lib
-#	CALC_SHAREDIR= /dev/env/DJDIR/share/calc
-#
-# If in doubt, set:
-#
-#	BINDIR= /usr/bin
-#	LIBDIR= /usr/lib
-#	CALC_SHAREDIR= /usr/share/calc
-#
-#BINDIR= ${PREFIX}/bin
-#BINDIR= /dev/env/DJDIR/bin
-BINDIR= /usr/bin
+LOCAL_MKF= ../Makefile.local
 
-#LIBDIR= ${PREFIX}/lib
-#LIBDIR= /dev/env/DJDIR/lib
-LIBDIR= /usr/lib
+# The set of Makefiles
+#
+MK_SET= ${MAKE_FILE} ${CONFIG_MKF} ${TARGET_MKF} ${LOCAL_MKF}
 
-#CALC_SHAREDIR= ${PREFIX}/lib/calc
-#CALC_SHAREDIR= /dev/env/DJDIR/share/calc
-CALC_SHAREDIR= /usr/share/calc
 
-# By default, these values are based CALC_SHAREDIR, INCDIR, BINDIR
-# ---------------------------------------------------------------
-# ${HELPDIR}		where the help directory is installed
-# ${CALC_INCDIR}	where the calc include files are installed
-# ${SCRIPTDIR}		where calc shell scripts are installed
-#
-# NOTE: The install rule prepends installation paths with ${T}, which
-#	by default is empty.  If ${T} is non-empty, then installation
-#	locations will be relative to the ${T} directory.
-#
-# If in doubt, set:
-#
-#	HELPDIR= ${CALC_SHAREDIR}/help
-#	CALC_INCDIR= ${INCDIR}/calc
-#	SCRIPTDIR= ${BINDIR}/cscript
-#
-HELPDIR= ${CALC_SHAREDIR}/help
-CALC_INCDIR= ${INCDIR}/calc
-SCRIPTDIR= ${BINDIR}/cscript
+#######################################################
+# Calc configuration and compile configuration values #
+#######################################################
+include ${CONFIG_MKF}
 
-# T - top level directory under which calc will be installed
-#
-# The calc install is performed under ${T}, the calc build is
-# performed under /.	The purpose for ${T} is to allow someone
-# to install calc somewhere other than into the system area.
-#
-# For example, if:
-#
-#     BINDIR= /usr/bin
-#     LIBDIR= /usr/lib
-#     CALC_SHAREDIR= /usr/share/calc
-#
-# and if:
-#
-#     T= /var/tmp/testing
-#
-# Then the installation locations will be:
-#
-#     calc binary files:	/var/tmp/testing/usr/bin
-#     calc link library:	/var/tmp/testing/usr/lib
-#     calc help, .cal ...:	/var/tmp/testing/usr/share/calc
-#     ... etc ...		/var/tmp/testing/...
-#
-# If ${T} is empty, calc is installed under /, which is the same
-# top of tree for which it was built.  If ${T} is non-empty, then
-# calc is installed under ${T}, as if one had to chroot under
-# ${T} for calc to operate.
-#
-# If in doubt, use T=
-#
-T=
+
+###############################
+# host target section include #
+###############################
+include ${TARGET_MKF}
+
+
+##########################################################################
+#=-=-=-=-=- Be careful if you change something below this line -=-=-=-=-=#
+##########################################################################
 
 # Makefile debug
 #
@@ -240,29 +113,6 @@ H=@
 V=@:
 #V=@
 
-# standard tools
-#
-CAT= cat
-CHMOD= chmod
-CMP= cmp
-CO= co
-CP= cp
-FMT= fmt
-MKDIR= mkdir
-MV= mv
-RM= rm
-RMDIR= rmdir
-SED= sed
-SORT= sort
-TOUCH= touch
-TRUE= true
-
-# NOTE: On some shells, echo is a builtin that does
-#	not understand -n, so we call /bin/echo -n
-#	directly to get around such shells.
-#
-ECHON= /bin/echo -n
-
 # The ${SCRIPT} list is the list of calc shell script files (without the .calc
 # extension) which will be installed.
 #
@@ -292,6 +142,12 @@ DISTLIST= ${SCRIPT_SRC} ${MAKE_FILE} README.src
 #
 CALCLIBLIST=
 
+# complete list of files that may be created as part of the build process
+#
+# Used by chk_tree via make prep
+#
+BUILD_ALL= ${SCRIPT} README
+
 # complete list of targets
 #
 # NOTE: This list MUST be coordinated with the ${CSCRIPT_TARGETS} variable
@@ -299,15 +155,32 @@ CALCLIBLIST=
 #
 CSCRIPT_TARGETS= ${SCRIPT}
 TARGETS= ${CSCRIPT_TARGETS} README
-#
+
 # rules that are not also names of files
 #
-PHONY= all clobber distlist install
+PHONY= all distlist buildlist distdir calcliblist detaillist depend \
+	echo_inst_files clean clobber install uninstall
+
+
+############################################################
+# Allow Makefile.local to change any of the above settings #
+############################################################
+include ${LOCAL_MKF}
+
+
+###########################################
+# all - First and default Makefile target #
+###########################################
 
 # The reason for this Makefile
 #
 all: ${TARGETS} .all
 
+
+###############################
+# additional Makefile targets #
+###############################
+
 .PHONY: ${PHONY}
 
 README: README.src
@@ -340,6 +213,13 @@ distlist: ${DISTLIST}
 	    fi; \
 	done | LANG=C ${SORT}
 
+buildlist:
+	${Q} for i in ${BUILD_ALL} /dev/null; do \
+	    if [ X"$$i" != X"/dev/null" ]; then \
+		echo cscript/$$i; \
+	    fi; \
+	done | fgrep -v '.bak' | LANG=C ${SORT}
+
 distdir:
 	${Q} echo cscript
 

custom.c

@@ -1,7 +1,7 @@
 /*
  * custom - interface for custom software and hardware interfaces
  *
- * Copyright (C) 1999-2006,2018,2021,2022  Landon Curt Noll
+ * Copyright (C) 1999-2006,2018,2021-2023  Landon Curt Noll
  *
  * Calc is open software; you can redistribute it and/or modify it under
  * the terms of the version 2.1 of the GNU Lesser General Public License
@@ -41,6 +41,8 @@
 # include <string.h>
 #endif
 
+EXTERN CONST struct custom cust[];	/* custom interface table */
+
 #else /* CUSTOM */
 
 #include "config.h"
@@ -48,11 +50,11 @@
 #endif /* CUSTOM */
 
 
-#include "attribute.h"
+#include "errtbl.h"
 #include "banned.h"	/* include after system header <> includes */
 
 
-BOOL allow_custom = FALSE;	 /* TRUE => custom builtins allowed */
+bool allow_custom = false;	 /* true => custom builtins allowed */
 
 
 /*
@@ -66,6 +68,16 @@ custom(char *name, int count, VALUE **vals)
 
 	CONST struct custom *p;		/* current function */
 
+	/*
+	 * error if libcustcalc was compiled with CUSTOM undefined
+	 */
+	if (custom_compiled() != true) {
+	    math_error("libcustcalc was compiled with CUSTOM undefined "
+		       "custom_compiled() returned: %d != %d",
+		       custom_compiled(), true);
+	    not_reached();
+	}
+
 	/*
 	 * search the custom interface table for a function
 	 */
@@ -98,6 +110,16 @@ custom(char *name, int count, VALUE **vals)
 
 #else /* CUSTOM */
 
+	/*
+	 * error if libcustcalc was compiled with CUSTOM defined
+	 */
+	if (custom_compiled() != false) {
+	    math_error("libcustcalc was compiled with CUSTOM defined "
+		       "custom_compiled() returned: %d != %d",
+		       custom_compiled(), false);
+	    not_reached();
+	}
+
 	fprintf(stderr,
 	    "%sCalc was built with custom functions disabled\n",
 	    (conf->tab_ok ? "\t" : ""));

custom.h

@@ -73,11 +73,11 @@ struct custom {
  *
  * These are the required interfaces.  The dummy.c stubs these interfaces too.
  */
+E_FUNC bool custom_compiled(void);	/* return true if libcustcalc compiled CUSTOM defined, false otherwise */
 E_FUNC VALUE custom(char*, int, VALUE**);	/* master custom interface */
-EXTERN BOOL allow_custom;		/* TRUE => custom builtins allowed */
+EXTERN bool allow_custom;		/* true => custom builtins allowed */
 E_FUNC void showcustom(void);		/* print custom functions */
 E_FUNC void customhelp(char *);		/* direct custom help */
-EXTERN CONST struct custom cust[];	/* custom interface table */
 E_FUNC void init_custreg(void);		/* initialize custom registers */
 
 #endif /* !CUSTOM_H */

custom/HOW_TO_ADD

@@ -570,10 +570,10 @@ Step 9: Add the Make dependency tools
 	u_curds.o: ../alloc.h
 	u_curds.o: ../block.h
 	u_curds.o: ../byteswap.h
-	u_curds.o: ../calcerr.h
 	u_curds.o: ../cmath.h
 	u_curds.o: ../config.h
 	u_curds.o: ../endian_calc.h
+	u_curds.o: ../errsym.h
 	u_curds.o: ../hash.h
 	u_curds.o: ../have_const.h
 	u_curds.o: ../have_malloc.h

custom/Makefile

@@ -4,13 +4,7 @@
 #
 # Copyright (C) 1999-2006,2014,2017-2018,2021,2023  Landon Curt Noll
 #
-# SRC: custom/Makefile
-#
-#	The "# SRC: ... - ..." comment line above indicates
-#	the origin of this file.
-#
-# IMPORTANT: Please see the section on Makefiles near the
-#	     bottom of the HOWTO.INSTALL file.
+# Suggestion: Read the ../HOWTO.INSTALL file.
 #
 # Calc is open software; you can redistribute it and/or modify it under
 # the terms of the version 2.1 of the GNU Lesser General Public License
@@ -29,147 +23,63 @@
 # Under source code control:	1997/03/09 02:28:54
 # File existed as early as:	1997
 #
+# This calculator first developed by David I. Bell with help/mods from others.
+#
 # chongo <was here> /\oo/\	http://www.isthe.com/chongo/
 # Share and enjoy!  :-)		http://www.isthe.com/chongo/tech/comp/calc/
-#
-# calculator by David I. Bell with help/mods from others
-# Makefile by Landon Curt Noll
 
 
-# The shell used by this Makefile
-#
-# On some systems, /bin/sh is a rather reduced shell with
-# deprecated behavior.
-#
-# If your system has a up to date, bash shell, then
-# you may wish to use:
-#
-#	SHELL= bash
-#
-# On some systems such as macOS, the bash shell is very
-# far behind to the point where is cannot be depended on.
-# On such systems, the sh may be a much better alternative
-# shell for this Makefile to use:
-#
-#	SHELL= sh
-#
-SHELL= bash
-#SHELL= sh
-
-# Darwin shell default
-#
-ifeq ($(target),Darwin)
-SHELL:= /bin/sh
-endif	# ($(target),Darwin)
-
-# If you are using Cygwin with MinGW64 packages
-# then we will also need to use the Cygwin runtime enviroment
-# and the calc Cygwin make target.
-##
-ifeq ($(OSNAME),Cygwin)
-target:= Cygwin
-endif	# ($(OSNAME),Cygwin)
+# SUGGESTION: Instead of modifying this file, consider adding
+#	      statements to modify, replace or append Makefile
+#	      variables in the ../Makefile.local file.
 
 
-# PREFIX - Top level location for calc
+###########################################
+# Files used or included by this Makefile #
+###########################################
+
+# Normally certain files depend on the Makefile.  If the Makefile is
+# changed, then certain steps should be redone.  If MAKE_FILE is
+# set to Makefile, then these files will depend on Makefile.  If
+# MAKE_FILE is empty, then they won't.
 #
-# The PREFIX is often prepended to paths within calc and calc Makefiles.
+# If in doubt, set MAKE_FILE to Makefile
 #
-# Starting with calc v2.13.0.1, nearly all Makefile places that used
-# /usr/local now use ${PREFIX}.  An exception is the olduninstall rule
-# and, of course, this section. :-)
+MAKE_FILE= Makefile
+
+# Calc configuration and compile configuration values
 #
-# NOTE: The ${PREFIX} is not the same as ${T}.  The ${T} specifies
-#	a top level directory under which calc installs things.
-#	While usually ${T} is empty, it can be specific path
-#	as if calc where "chrooted" during an install.
-#	The ${PREFIX} value, during install, is a path between
-#	the top level ${T} install directory and the object
-#	such as an include file.
+CONFIG_MKF= ../Makefile.config
+
+# Host targets that are shared in common with both Makefile
+# and custom/Makefile.
 #
-# NOTE: See also, ${T}, below.
+TARGET_MKF= ../Makefile.target
+
+# Host target information.
 #
-# There are some paths that do NOT call under ${PREFIX}, such as
-# ${CALCPATH}, that include paths not under ${PREFIX}, but those
-# too are exceptions to this general rule.
+LOCAL_MKF= ../Makefile.local
+
+# The set of Makefiles
 #
-# When in doubt, try:
-#
-#	PREFIX= /usr/local
-#
-PREFIX= /usr/local
-#PREFIX= /usr
-#PREFIX= /usr/global
+MK_SET= ${MAKE_FILE} ${CONFIG_MKF} ${TARGET_MKF} ${LOCAL_MKF}
 
 
-# CCBAN is given to ${CC} in order to control if banned.h is in effect.
-#
-# The banned.h attempts to ban the use of certain dangerous functions
-# that, if improperly used, could compromise the computational integrity
-# if calculations.
-#
-# In the case of calc, we are motivated in part by the desire for calc
-# to correctly calculate: even during extremely long calculations.
-#
-# If UNBAN is NOT defined, then calling certain functions
-# will result in a call to a non-existent function (link error).
-#
-# While we do NOT encourage defining UNBAN, there may be
-# a system / compiler environment where re-defining a
-# function may lead to a fatal compiler complication.
-# If that happens, consider compiling as:
-#
-#	make clobber all chk CCBAN=-DUNBAN
-#
-# as see if this is a work-a-round.
-#
-# If YOU discover a need for the -DUNBAN work-a-round, PLEASE tell us!
-# Please send us a bug report.  See the file:
-#
-#	BUGS
-#
-# or the URL:
-#
-#	http://www.isthe.com/chongo/tech/comp/calc/calc-bugrept.html
-#
-# for how to send us such a bug report.
-#
-CCBAN= -UUNBAN
-#CCBAN= -DUNBAN
+#######################################################
+# Calc configuration and compile configuration values #
+#######################################################
+include ${CONFIG_MKF}
 
 
-# We do not support parallel make of calc.  We have found most
-# parallel make systems do not get the rule dependency order
-# correct, resulting in a failed attempt to compile calc.
-#
-# If you believe you have a way to get a parallel make of calc
-# to work, consider submitting a pull request with a
-# proposed change.
-#
-.NOTPARALLEL:
+###############################
+# host target section include #
+###############################
+include ${TARGET_MKF}
 
-##############################################################################
-#-=-=-=-=-=-=-=-=- Identify the target machine, if possible -=-=-=-=-=-=-=-=-#
-##############################################################################
 
-# NOTE: You can force a target value by defining target as in:
-#
-#	make ...__optional_arguments_... target=value
-
-# Try uname -s if the target was not already set on the make command line
-#
-ifeq ($(target),)
-target=$(shell uname -s 2>/dev/null)
-endif	# ($(target),)
-ifeq ($(arch),)
-arch=$(shell uname -p 2>/dev/null)
-endif	# ($(arch),)
-ifeq ($(hardware),)
-hardware=$(shell uname -m 2>/dev/null)
-endif	# ($(hardware),)
-ifeq ($(OSNAME),)
-OSNAME=$(shell uname -o 2>/dev/null)
-endif	# ($(OSNAME),)
+##################################
+# Files managed by this Makefile #
+##################################
 
 # The custom calc resource files to install
 #
@@ -214,16 +124,10 @@ CUSTOM_SRC= c_argv.c c_devnull.c c_help.c c_sysinfo.c c_pzasusb8.c \
 CUSTOM_OBJ= c_argv.o c_devnull.o c_help.o c_sysinfo.o c_pzasusb8.o \
 	c_pmodm127.o c_register.o
 
-##############################################################################
-#-=-=-=-=-=-=-=-=- You may want to change some values below -=-=-=-=-=-=-=-=-#
-##############################################################################
 
-##############################################################################
-#-=-=-=-=-=-=- Defaults in case you want to build from this dir -=-=-=-=-=-=-#
-##############################################################################
-
-# Normally, the upper level makefile will set these values.  We provide
-# a default here just in case you want to build from this directory.
+##########################################################################
+#=-=-=-=-=- Be careful if you change something below this line -=-=-=-=-=#
+##########################################################################
 
 # Makefile debug
 #
@@ -257,337 +161,6 @@ H=@
 V=@:
 #V=@
 
-####
-# Normally, the upper level makefile will set these values.  We provide
-# a default here just in case you want to build from this directory.
-####
-
-# Where the system include (.h) files are kept
-#
-# For DJGPP, select:
-#
-#	INCDIR= /dev/env/DJDIR/include
-#
-# If in doubt, set:
-#
-#	INCDIR= /usr/include
-#
-
-#INCDIR= ${PREFIX}/include
-#INCDIR= /dev/env/DJDIR/include
-INCDIR= /usr/include
-
-# where to install calc related things
-#
-# ${BINDIR}		where to install calc binary files
-# ${LIBDIR}		where calc link library (*.a) files are installed
-# ${CALC_SHAREDIR}	where to install calc help, .cal, startup, config files
-#
-# NOTE: The install rule prepends installation paths with ${T}, which
-#	by default is empty.  If ${T} is non-empty, then installation
-#	locations will be relative to the ${T} directory.
-#
-# For DJGPP, select:
-#
-#	BINDIR= /dev/env/DJDIR/bin
-#	LIBDIR= /dev/env/DJDIR/lib
-#	CALC_SHAREDIR= /dev/env/DJDIR/share/calc
-#
-# If in doubt, set:
-#
-#	BINDIR= /usr/bin
-#	LIBDIR= /usr/lib
-#	CALC_SHAREDIR= /usr/share/calc
-#
-#BINDIR= ${PREFIX}/bin
-#BINDIR= /dev/env/DJDIR/bin
-BINDIR= /usr/bin
-
-#LIBDIR= ${PREFIX}/lib
-#LIBDIR= /dev/env/DJDIR/lib
-LIBDIR= /usr/lib
-
-#CALC_SHAREDIR= ${PREFIX}/lib/calc
-#CALC_SHAREDIR= /dev/env/DJDIR/share/calc
-CALC_SHAREDIR= /usr/share/calc
-
-# By default, these values are based CALC_SHAREDIR, INCDIR, BINDIR
-# ---------------------------------------------------------------
-# ${HELPDIR}		where the help directory is installed
-# ${CALC_INCDIR}	where the calc include files are installed
-# ${CUSTOMCALDIR}	where custom *.cal files are installed
-# ${CUSTOMHELPDIR}	where custom help files are installed
-# ${CUSTOMINCDIR}	where custom .h files are installed
-# ${SCRIPTDIR}		where calc shell scripts are installed
-#
-# NOTE: The install rule prepends installation paths with ${T}, which
-#	by default is empty.  If ${T} is non-empty, then installation
-#	locations will be relative to the ${T} directory.
-#
-# If in doubt, set:
-#
-#	HELPDIR= ${CALC_SHAREDIR}/help
-#	CALC_INCDIR= ${INCDIR}/calc
-#	CUSTOMCALDIR= ${CALC_SHAREDIR}/custom
-#	CUSTOMHELPDIR= ${CALC_SHAREDIR}/custhelp
-#	CUSTOMINCDIR= ${CALC_INCDIR}/custom
-#	SCRIPTDIR= ${BINDIR}/cscript
-#
-HELPDIR= ${CALC_SHAREDIR}/help
-CALC_INCDIR= ${INCDIR}/calc
-CUSTOMCALDIR= ${CALC_SHAREDIR}/custom
-CUSTOMHELPDIR= ${CALC_SHAREDIR}/custhelp
-CUSTOMINCDIR= ${CALC_INCDIR}/custom
-SCRIPTDIR= ${BINDIR}/cscript
-
-# T - top level directory under which calc will be installed
-#
-# The calc install is performed under ${T}, the calc build is
-# performed under /.	The purpose for ${T} is to allow someone
-# to install calc somewhere other than into the system area.
-#
-# For example, if:
-#
-#     BINDIR= /usr/bin
-#     LIBDIR= /usr/lib
-#     CALC_SHAREDIR= /usr/share/calc
-#
-# and if:
-#
-#     T= /var/tmp/testing
-#
-# Then the installation locations will be:
-#
-#     calc binary files:	/var/tmp/testing/usr/bin
-#     calc link library:	/var/tmp/testing/usr/lib
-#     calc help, .cal ...:	/var/tmp/testing/usr/share/calc
-#     ... etc ...		/var/tmp/testing/...
-#
-# If ${T} is empty, calc is installed under /, which is the same
-# top of tree for which it was built.  If ${T} is non-empty, then
-# calc is installed under ${T}, as if one had to chroot under
-# ${T} for calc to operate.
-#
-# If in doubt, use T=
-#
-T=
-
-# Debug/Optimize options for ${CC} and ${LCC}
-#
-# Select DEBUG= -O2 -gstabs+ -D_WIN32 for DJGPP.
-#
-#DEBUG=
-#
-#DEBUG= -O
-#DEBUG= -O -g
-#DEBUG= -O -g3
-#
-#DEBUG= -O1
-#DEBUG= -O1 -g
-#DEBUG= -O1 -g3
-#
-#DEBUG= -O2
-#DEBUG= -O2 -g
-#DEBUG= -O2 -g3
-#DEBUG= -O2 -ipa
-#DEBUG= -O2 -g3 -ipa
-#
-#DEBUG= -O3
-#DEBUG= -O3 -g
-DEBUG= -O3 -g3
-#DEBUG= -O3 -ipa
-#DEBUG= -O3 -g3 -ipa
-#
-#DEBUG= -g
-#DEBUG= -g3
-#DEBUG= -gx
-#DEBUG= -WM,-g
-#
-#DEBUG= -O2 -gstabs+ -D_WIN32
-
-# Some systems require one to use ranlib to add a symbol table to
-# a *.a link library.  Set RANLIB to the utility that performs this
-# action.  Set RANLIB to : if your system does not need such a utility.
-#
-RANLIB=ranlib
-#RANLIB=:
-
-# Normally certain files depend on the Makefile.  If the Makefile is
-# changed, then certain steps should be redone.	 If MAKE_FILE is
-# set to Makefile, then these files will depend on Makefile.  If
-# MAKE_FILE is empty, then they wont.
-#
-# If in doubt, set MAKE_FILE to Makefile
-#
-MAKE_FILE= Makefile
-#MAKE_FILE=
-
-# If you do not wish to use purify, set PURIFY to an empty string.
-#
-# If in doubt, use PURIFY=
-#
-#PURIFY= purify
-#PURIFY= purify -m71-engine
-#PURIFY= purify -logfile=pure.out
-#PURIFY= purify -m71-engine -logfile=pure.out
-PURIFY=
-
-# If you want to use a debugging link library such as a malloc debug link
-# library, or need to add special ld flags after the calc link libraries
-# are included, set ${LD_DEBUG} below.
-#
-# If in doubt, set LD_DEBUG to empty.
-#
-#LD_DEBUG= -lmalloc_cv
-LD_DEBUG=
-
-# When doing a:
-#
-#	make check
-#	make chk
-#	make debug
-#
-# the ${CALC_ENV} is used to supply the proper environment variables
-# to calc.  Most people will simply need 'CALCPATH=./cal' to ensure
-# that these debug rules will only use calc resource files under the
-# local source directory.  The longer lines (with MALLOC_VERBOSE=1 ...)
-# are useful for SGI IRIX people who have 'WorkShop Performance Tools'
-# and who also set 'LD_DEBUG= -lmalloc_cv' above.
-#
-# If in doubt, use CALC_ENV= CALCPATH=./cal.
-#
-CALC_ENV= CALCPATH=./cal
-#CALC_ENV= CALCPATH=./cal MALLOC_VERBOSE=1 MALLOC_TRACING=1 \
-#	  MALLOC_FASTCHK=1 MALLOC_FULLWARN=1
-#CALC_ENV= CALCPATH=./cal MALLOC_VERBOSE=1 MALLOC_TRACING=1 \
-#	  MALLOC_FASTCHK=1 MALLOC_FULLWARN=1 MALLOC_CLEAR_FREE=1 \
-#	  MALLOC_CLEAR_MALLOC=1
-
-# By default, custom builtin functions may only be executed if calc
-# is given the -C option.  This is because custom builtin functions
-# may invoke non-standard or non-portable code.	 One may completely
-# disable custom builtin functions by not compiling any of code
-#
-# ALLOW_CUSTOM= -DCUSTOM	# allow custom only if -C is given
-# ALLOW_CUSTOM= -UCUSTOM	# disable custom even if -C is given
-#
-# If in doubt, use ALLOW_CUSTOM= -DCUSTOM
-#
-ALLOW_CUSTOM= -DCUSTOM
-#ALLOW_CUSTOM= -UCUSTOM
-
-
-# Some out of date operating systems require / want an executable to
-# end with a certain file extension.  Some compile systems such as
-# Cygwin build calc as calc.exe.  The EXT variable is used to denote
-# the extension required by such.
-#
-# EXT=				# normal Un*x / Linux / GNU/Linux systems
-# EXT=.exe			# Windows / Cygwin
-#
-# If in doubt, use EXT=
-#
-EXT=
-#EXT=.exe
-
-# The default calc versions
-#
-VERSION= 2.14.3.1
-
-# Names of shared libraries with versions
-#
-LIB_EXT= .so
-LIB_EXT_VERSION= ${LIB_EXT}.${VERSION}
-
-# standard tools
-#
-AR= ar
-AWK= awk
-CHMOD= chmod
-CMP= cmp
-CO= co
-CP= cp
-DIFF= diff
-FMT= fmt
-GREP= grep
-LN= ln
-LS= ls
-MAKE= make
-MAKEDEPEND= makedepend
-MKDIR= mkdir
-MV= mv
-RM= rm
-RMDIR= rmdir
-SED= sed
-SORT= sort
-TAIL= tail
-TOUCH= touch
-TRUE= true
-
-# EXTRA_CFLAGS are flags given to ${CC} when compiling C files
-# EXTRA_LDFLAGS are flags given to ${CC} when linking progs
-#
-# Both CFLAGS and LDFLAGS are left blank in this Makefile by
-# default so that users may use them on the make command line
-# to always the way that C is compiled and files are linked
-# respectively.  For example:
-#
-#	make all EXTRA_CFLAGS="-DMAGIC" EXTRA_LDFLAGS="-lmagic"
-#
-# NOTE: These should be left blank in this Makefile to make it
-#       easier to add stuff on the command line.  If you want to
-#	to change the way calc is compiled by this Makefile, change
-#	the appropriate host target section below or a flag above.
-#
-EXTRA_CFLAGS=
-EXTRA_LDFLAGS=
-
-# COMMON_CFLAGS are the common ${CC} flags used for all progs, both
-#	    intermediate and final calc and calc related progs
-#
-COMMON_CFLAGS= -DCALC_SRC ${ALLOW_CUSTOM} ${CCWARN} ${CCMISC} ${EXTRA_CFLAGS}
-
-# COMMON_LDFLAGS are the common flags used for linking all progs, both
-#	     intermediate and final calc and calc related progs
-#
-COMMON_LDFLAGS= ${EXTRA_LDFLAGS}
-
-###########################################
-# Set the default compile flags for ${CC} #
-###########################################
-
-# Required flags to compile C files for calc
-#
-# ICFLAGS are given to ${CC} for intermediate progs used to help compile calc
-# CFLAGS are given to ${CC} for calc progs other than intermediate progs
-#
-# NOTE: This does not work for: make-XYZ-only and BLD_TYPE != make-XYZ-only
-#
-ifeq ($(BLD_TYPE),calc-static-only)
-ICFLAGS= ${COMMON_CFLAGS} ${CCBAN} ${CC_STATIC}
-else	# ($(BLD_TYPE),calc-static-only)
-ICFLAGS= ${COMMON_CFLAGS} ${CCBAN} ${CC_SHARE}
-endif	# ($(BLD_TYPE),calc-static-only)
-CFLAGS= ${ICFLAGS} ${CCOPT}
-
-# Required flags to link files for calc
-#
-# ILDFLAGS for ${CC} in linking intermediate progs used to help compile calc
-# LDFLAGS for ${CC} in linking calc progs other than intermediate progs
-#
-ILDFLAGS= ${COMMON_LDFLAGS}
-LDFLAGS= ${LD_DEBUG} ${ILDFLAGS}
-
-##########################################################################
-#=-=-=-=-=- Be careful if you change something below this line -=-=-=-=-=#
-##########################################################################
-
-# Host targets that are shared in common with both Makefile
-# and custom/Makefile (if ALLOW_CUSTOM is -DCUSTOM).
-#
-TARGET_MKF= ../Makefile.target
-include ${TARGET_MKF}
-
 # These .c files are required for the main custom interface and
 # for the custom support functions for libcustcalc${LIB_EXT_VERSION}.
 #
@@ -642,19 +215,44 @@ CALC_DYNAMIC_LIBCUSTCALC= libcustcalc${LIB_EXT_VERSION}
 #
 CALC_STATIC_LIBCUSTCALC= libcustcalc.a
 
+# complete list of files that may be created as part of the build process
+#
+# Used by chk_tree via make prep
+#
+BUILD_ALL= ${REQUIRED_OBJ} ${CUSTOM_OBJ} \
+	${CALC_DYNAMIC_LIBCUSTCALC} ${CALC_STATIC_LIBCUSTCALC} \
+	.all
+
 # complete list of targets
 #
 TARGETS= ${BLD_TYPE}
 
-###
+# rules that are not also names of files
 #
-# The main reason for this Makefile	:-)
-#
-###
+PHONY= all distlist buildlist distdir calcliblist depend echo_inst_files clean \
+	clobber install uninstall
+
+
+############################################################
+# Allow Makefile.local to change any of the above settings #
+############################################################
+include ${LOCAL_MKF}
+
+
+###########################################
+# all - First and default Makefile target #
+###########################################
 
 all: ${TARGETS} ${INSTALL_H_SRC} ${CUSTOM_CALC_FILES} \
 	${CUSTOM_HELP} ${MAKE_FILE} .all
 
+
+###############################
+# additional Makefile targets #
+###############################
+
+.PHONY: ${PHONY}
+
 calc-dynamic-only: ${CUSTCALC_OBJ} ${CALC_DYNAMIC_LIBCUSTCALC}
 
 calc-static-only: ${CUSTCALC_OBJ} ${CALC_STATIC_LIBCUSTCALC}
@@ -674,12 +272,6 @@ libcustcalc${LIB_EXT_VERSION}: ${CUSTCALC_OBJ} ${MAKE_FILE}
 c_sysinfo.o: c_sysinfo.c ${MAKE_FILE}
 	${CC} ${CFLAGS} c_sysinfo.c -c
 
-##
-#
-# used by the upper level Makefile
-#
-##
-
 # to determine of we have done all
 #
 .all:
@@ -718,6 +310,13 @@ distlist: ${DISTLIST}
 	    fi; \
 	done
 
+buildlist:
+	${Q} for i in ${BUILD_ALL} /dev/null; do \
+	    if [ X"$$i" != X"/dev/null" ]; then \
+		echo custom/$$i; \
+	    fi; \
+	done | fgrep -v '.bak' | LANG=C ${SORT}
+
 distdir:
 	${Q} echo custom
 
@@ -1114,19 +713,24 @@ c_argv.o: ../alloc.h
 c_argv.o: ../attribute.h
 c_argv.o: ../banned.h
 c_argv.o: ../block.h
+c_argv.o: ../bool.h
 c_argv.o: ../byteswap.h
 c_argv.o: ../calc.h
-c_argv.o: ../calcerr.h
+c_argv.o: ../charbit.h
 c_argv.o: ../cmath.h
 c_argv.o: ../config.h
 c_argv.o: ../custom.h
 c_argv.o: ../decl.h
 c_argv.o: ../endian_calc.h
+c_argv.o: ../errsym.h
+c_argv.o: ../errtbl.h
 c_argv.o: ../hash.h
 c_argv.o: ../have_ban_pragma.h
 c_argv.o: ../have_const.h
+c_argv.o: ../have_limits.h
 c_argv.o: ../have_memmv.h
 c_argv.o: ../have_newstr.h
+c_argv.o: ../have_stdbool.h
 c_argv.o: ../have_stdlib.h
 c_argv.o: ../have_string.h
 c_argv.o: ../have_unused.h
@@ -1136,24 +740,30 @@ c_argv.o: ../qmath.h
 c_argv.o: ../sha1.h
 c_argv.o: ../str.h
 c_argv.o: ../value.h
+c_argv.o: ../version.h
 c_argv.o: ../zmath.h
 c_argv.o: c_argv.c
 c_devnull.o: ../alloc.h
 c_devnull.o: ../attribute.h
 c_devnull.o: ../banned.h
 c_devnull.o: ../block.h
+c_devnull.o: ../bool.h
 c_devnull.o: ../byteswap.h
-c_devnull.o: ../calcerr.h
+c_devnull.o: ../charbit.h
 c_devnull.o: ../cmath.h
 c_devnull.o: ../config.h
 c_devnull.o: ../custom.h
 c_devnull.o: ../decl.h
 c_devnull.o: ../endian_calc.h
+c_devnull.o: ../errsym.h
+c_devnull.o: ../errtbl.h
 c_devnull.o: ../hash.h
 c_devnull.o: ../have_ban_pragma.h
 c_devnull.o: ../have_const.h
+c_devnull.o: ../have_limits.h
 c_devnull.o: ../have_memmv.h
 c_devnull.o: ../have_newstr.h
+c_devnull.o: ../have_stdbool.h
 c_devnull.o: ../have_stdlib.h
 c_devnull.o: ../have_string.h
 c_devnull.o: ../have_unistd.h
@@ -1164,24 +774,30 @@ c_devnull.o: ../qmath.h
 c_devnull.o: ../sha1.h
 c_devnull.o: ../str.h
 c_devnull.o: ../value.h
+c_devnull.o: ../version.h
 c_devnull.o: ../zmath.h
 c_devnull.o: c_devnull.c
 c_help.o: ../alloc.h
 c_help.o: ../attribute.h
 c_help.o: ../banned.h
 c_help.o: ../block.h
+c_help.o: ../bool.h
 c_help.o: ../byteswap.h
-c_help.o: ../calcerr.h
+c_help.o: ../charbit.h
 c_help.o: ../cmath.h
 c_help.o: ../config.h
 c_help.o: ../custom.h
 c_help.o: ../decl.h
 c_help.o: ../endian_calc.h
+c_help.o: ../errsym.h
+c_help.o: ../errtbl.h
 c_help.o: ../hash.h
 c_help.o: ../have_ban_pragma.h
 c_help.o: ../have_const.h
+c_help.o: ../have_limits.h
 c_help.o: ../have_memmv.h
 c_help.o: ../have_newstr.h
+c_help.o: ../have_stdbool.h
 c_help.o: ../have_stdlib.h
 c_help.o: ../have_string.h
 c_help.o: ../have_unistd.h
@@ -1192,24 +808,30 @@ c_help.o: ../qmath.h
 c_help.o: ../sha1.h
 c_help.o: ../str.h
 c_help.o: ../value.h
+c_help.o: ../version.h
 c_help.o: ../zmath.h
 c_help.o: c_help.c
 c_pmodm127.o: ../alloc.h
 c_pmodm127.o: ../attribute.h
 c_pmodm127.o: ../banned.h
 c_pmodm127.o: ../block.h
+c_pmodm127.o: ../bool.h
 c_pmodm127.o: ../byteswap.h
-c_pmodm127.o: ../calcerr.h
+c_pmodm127.o: ../charbit.h
 c_pmodm127.o: ../cmath.h
 c_pmodm127.o: ../config.h
 c_pmodm127.o: ../custom.h
 c_pmodm127.o: ../decl.h
 c_pmodm127.o: ../endian_calc.h
+c_pmodm127.o: ../errsym.h
+c_pmodm127.o: ../errtbl.h
 c_pmodm127.o: ../hash.h
 c_pmodm127.o: ../have_ban_pragma.h
 c_pmodm127.o: ../have_const.h
+c_pmodm127.o: ../have_limits.h
 c_pmodm127.o: ../have_memmv.h
 c_pmodm127.o: ../have_newstr.h
+c_pmodm127.o: ../have_stdbool.h
 c_pmodm127.o: ../have_stdlib.h
 c_pmodm127.o: ../have_string.h
 c_pmodm127.o: ../have_unused.h
@@ -1219,24 +841,30 @@ c_pmodm127.o: ../qmath.h
 c_pmodm127.o: ../sha1.h
 c_pmodm127.o: ../str.h
 c_pmodm127.o: ../value.h
+c_pmodm127.o: ../version.h
 c_pmodm127.o: ../zmath.h
 c_pmodm127.o: c_pmodm127.c
 c_pzasusb8.o: ../alloc.h
 c_pzasusb8.o: ../attribute.h
 c_pzasusb8.o: ../banned.h
 c_pzasusb8.o: ../block.h
+c_pzasusb8.o: ../bool.h
 c_pzasusb8.o: ../byteswap.h
-c_pzasusb8.o: ../calcerr.h
+c_pzasusb8.o: ../charbit.h
 c_pzasusb8.o: ../cmath.h
 c_pzasusb8.o: ../config.h
 c_pzasusb8.o: ../custom.h
 c_pzasusb8.o: ../decl.h
 c_pzasusb8.o: ../endian_calc.h
+c_pzasusb8.o: ../errsym.h
+c_pzasusb8.o: ../errtbl.h
 c_pzasusb8.o: ../hash.h
 c_pzasusb8.o: ../have_ban_pragma.h
 c_pzasusb8.o: ../have_const.h
+c_pzasusb8.o: ../have_limits.h
 c_pzasusb8.o: ../have_memmv.h
 c_pzasusb8.o: ../have_newstr.h
+c_pzasusb8.o: ../have_stdbool.h
 c_pzasusb8.o: ../have_stdlib.h
 c_pzasusb8.o: ../have_string.h
 c_pzasusb8.o: ../have_unused.h
@@ -1246,25 +874,31 @@ c_pzasusb8.o: ../qmath.h
 c_pzasusb8.o: ../sha1.h
 c_pzasusb8.o: ../str.h
 c_pzasusb8.o: ../value.h
+c_pzasusb8.o: ../version.h
 c_pzasusb8.o: ../zmath.h
 c_pzasusb8.o: c_pzasusb8.c
 c_register.o: ../alloc.h
 c_register.o: ../attribute.h
 c_register.o: ../banned.h
 c_register.o: ../block.h
+c_register.o: ../bool.h
 c_register.o: ../byteswap.h
 c_register.o: ../calc.h
-c_register.o: ../calcerr.h
+c_register.o: ../charbit.h
 c_register.o: ../cmath.h
 c_register.o: ../config.h
 c_register.o: ../custom.h
 c_register.o: ../decl.h
 c_register.o: ../endian_calc.h
+c_register.o: ../errsym.h
+c_register.o: ../errtbl.h
 c_register.o: ../hash.h
 c_register.o: ../have_ban_pragma.h
 c_register.o: ../have_const.h
+c_register.o: ../have_limits.h
 c_register.o: ../have_memmv.h
 c_register.o: ../have_newstr.h
+c_register.o: ../have_stdbool.h
 c_register.o: ../have_stdlib.h
 c_register.o: ../have_string.h
 c_register.o: ../have_unused.h
@@ -1274,27 +908,33 @@ c_register.o: ../qmath.h
 c_register.o: ../sha1.h
 c_register.o: ../str.h
 c_register.o: ../value.h
+c_register.o: ../version.h
 c_register.o: ../zmath.h
 c_register.o: c_register.c
 c_sysinfo.o: ../alloc.h
 c_sysinfo.o: ../attribute.h
 c_sysinfo.o: ../banned.h
 c_sysinfo.o: ../block.h
+c_sysinfo.o: ../bool.h
 c_sysinfo.o: ../byteswap.h
 c_sysinfo.o: ../calc.h
-c_sysinfo.o: ../calcerr.h
+c_sysinfo.o: ../charbit.h
 c_sysinfo.o: ../cmath.h
 c_sysinfo.o: ../conf.h
 c_sysinfo.o: ../config.h
 c_sysinfo.o: ../custom.h
 c_sysinfo.o: ../decl.h
 c_sysinfo.o: ../endian_calc.h
+c_sysinfo.o: ../errsym.h
+c_sysinfo.o: ../errtbl.h
 c_sysinfo.o: ../fposval.h
 c_sysinfo.o: ../hash.h
 c_sysinfo.o: ../have_ban_pragma.h
 c_sysinfo.o: ../have_const.h
+c_sysinfo.o: ../have_limits.h
 c_sysinfo.o: ../have_memmv.h
 c_sysinfo.o: ../have_newstr.h
+c_sysinfo.o: ../have_stdbool.h
 c_sysinfo.o: ../have_stdlib.h
 c_sysinfo.o: ../have_string.h
 c_sysinfo.o: ../have_unused.h
@@ -1307,6 +947,7 @@ c_sysinfo.o: ../qmath.h
 c_sysinfo.o: ../sha1.h
 c_sysinfo.o: ../str.h
 c_sysinfo.o: ../value.h
+c_sysinfo.o: ../version.h
 c_sysinfo.o: ../zmath.h
 c_sysinfo.o: ../zrand.h
 c_sysinfo.o: ../zrandom.h
@@ -1315,18 +956,23 @@ custtbl.o: ../alloc.h
 custtbl.o: ../attribute.h
 custtbl.o: ../banned.h
 custtbl.o: ../block.h
+custtbl.o: ../bool.h
 custtbl.o: ../byteswap.h
-custtbl.o: ../calcerr.h
+custtbl.o: ../charbit.h
 custtbl.o: ../cmath.h
 custtbl.o: ../config.h
 custtbl.o: ../custom.h
 custtbl.o: ../decl.h
 custtbl.o: ../endian_calc.h
+custtbl.o: ../errsym.h
+custtbl.o: ../errtbl.h
 custtbl.o: ../hash.h
 custtbl.o: ../have_ban_pragma.h
 custtbl.o: ../have_const.h
+custtbl.o: ../have_limits.h
 custtbl.o: ../have_memmv.h
 custtbl.o: ../have_newstr.h
+custtbl.o: ../have_stdbool.h
 custtbl.o: ../have_stdlib.h
 custtbl.o: ../have_string.h
 custtbl.o: ../longbits.h
@@ -1335,5 +981,6 @@ custtbl.o: ../qmath.h
 custtbl.o: ../sha1.h
 custtbl.o: ../str.h
 custtbl.o: ../value.h
+custtbl.o: ../version.h
 custtbl.o: ../zmath.h
 custtbl.o: custtbl.c

custom/c_argv.c

@@ -1,7 +1,7 @@
 /*
  * c_argv - a custom function display info about its args
  *
- * Copyright (C) 1999-2006,2021  Landon Curt Noll
+ * Copyright (C) 1999-2006,2021,2023  Landon Curt Noll
  *
  * Calc is open software; you can redistribute it and/or modify it under
  * the terms of the version 2.1 of the GNU Lesser General Public License
@@ -25,21 +25,32 @@
  */
 
 
+/*
+ * ISO C requires a translation unit to contain at least one declaration,
+ * so we declare a global variable whose value is based on if CUSTOM is defined.
+ */
+#if defined(CUSTOM)
+int c_argv_allowed = 1;		/* CUSTOM defined */
+#else /* CUSTOM */
+int c_argv_allowed = 0;		/* CUSTOM undefined */
+#endif /* CUSTOM */
+
+
 #if defined(CUSTOM)
 
 #include <stdio.h>
 
-#include "have_const.h"
-#include "value.h"
-#include "custom.h"
+#include "../have_const.h"
+#include "../value.h"
+#include "../custom.h"
 
-#include "config.h"
-#include "calc.h"
+#include "../config.h"
+#include "../calc.h"
 
-#include "have_unused.h"
+#include "../have_unused.h"
 
 
-#include "banned.h"	/* include after system header <> includes */
+#include "../banned.h"	/* include after system header <> includes */
 
 
 /*

custom/c_devnull.c

@@ -1,7 +1,7 @@
 /*
  * c_devnull - a custom function that does nothing
  *
- * Copyright (C) 1999-2004,2021  Landon Curt Noll
+ * Copyright (C) 1999-2004,2021,2023  Landon Curt Noll
  *
  * Calc is open software; you can redistribute it and/or modify it under
  * the terms of the version 2.1 of the GNU Lesser General Public License
@@ -25,21 +25,32 @@
  */
 
 
+/*
+ * ISO C requires a translation unit to contain at least one declaration,
+ * so we declare a global variable whose value is based on if CUSTOM is defined.
+ */
+#if defined(CUSTOM)
+int c_devnull_allowed = 1;	/* CUSTOM defined */
+#else /* CUSTOM */
+int c_devnull_allowed = 0;	/* CUSTOM undefined */
+#endif /* CUSTOM */
+
+
 #if defined(CUSTOM)
 
-#include "have_unistd.h"
+#include "../have_unistd.h"
 #if defined(HAVE_UNISTD_H)
 #include <unistd.h>
 #endif
 
-#include "have_const.h"
-#include "value.h"
-#include "custom.h"
+#include "../have_const.h"
+#include "../value.h"
+#include "../custom.h"
 
-#include "have_unused.h"
+#include "../have_unused.h"
 
 
-#include "banned.h"	/* include after system header <> includes */
+#include "../banned.h"	/* include after system header <> includes */
 
 
 /*

custom/c_help.c

@@ -1,7 +1,7 @@
 /*
  * c_help - custom help function
  *
- * Copyright (C) 1999-2004,2021,2022  Landon Curt Noll
+ * Copyright (C) 1999-2004,2021-2023  Landon Curt Noll
  *
  * Calc is open software; you can redistribute it and/or modify it under
  * the terms of the version 2.1 of the GNU Lesser General Public License
@@ -25,22 +25,33 @@
  */
 
 
+/*
+ * ISO C requires a translation unit to contain at least one declaration,
+ * so we declare a global variable whose value is based on if CUSTOM is defined.
+ */
+#if defined(CUSTOM)
+int c_help_allowed = 1;		/* CUSTOM defined */
+#else /* CUSTOM */
+int c_help_allowed = 0;		/* CUSTOM undefined */
+#endif /* CUSTOM */
+
+
 #if defined(CUSTOM)
 
-#include "have_unistd.h"
+#include "../have_unistd.h"
 #if defined(HAVE_UNISTD_H)
 #include <unistd.h>
 #endif
 
-#include "have_const.h"
-#include "value.h"
-#include "custom.h"
+#include "../have_const.h"
+#include "../value.h"
+#include "../custom.h"
 
-#include "have_unused.h"
+#include "../have_unused.h"
 
 
-#include "attribute.h"
-#include "banned.h"	/* include after system header <> includes */
+#include "../errtbl.h"
+#include "../banned.h"	/* include after system header <> includes */
 
 
 /*

custom/c_pmodm127.c

@@ -1,7 +1,7 @@
 /*
  * c_pmodm127 - calculate q mod 2^(2^127-1)
  *
- * Copyright (C) 2004-2007,2021,2022  Landon Curt Noll
+ * Copyright (C) 2004-2007,2021-2023  Landon Curt Noll
  *
  * Calc is open software; you can redistribute it and/or modify it under
  * the terms of the version 2.1 of the GNU Lesser General Public License
@@ -24,20 +24,31 @@
  */
 
 
+/*
+ * ISO C requires a translation unit to contain at least one declaration,
+ * so we declare a global variable whose value is based on if CUSTOM is defined.
+ */
+#if defined(CUSTOM)
+int c_pmodm127_allowed = 1;	/* CUSTOM defined */
+#else /* CUSTOM */
+int c_pmodm127_allowed = 0;	/* CUSTOM undefined */
+#endif /* CUSTOM */
+
+
 #if defined(CUSTOM)
 
 #include <stdio.h>
 
-#include "have_const.h"
-#include "value.h"
-#include "custom.h"
-#include "zmath.h"
+#include "../have_const.h"
+#include "../value.h"
+#include "../custom.h"
+#include "../zmath.h"
 
-#include "have_unused.h"
+#include "../have_unused.h"
 
 
-#include "attribute.h"
-#include "banned.h"	/* include after system header <> includes */
+#include "../errtbl.h"
+#include "../banned.h"	/* include after system header <> includes */
 
 
 /* 2^255 */
@@ -59,7 +70,7 @@ ZVALUE p255 = {
 
 /* static declarations */
 S_FUNC void zmod5_or_zmod(ZVALUE *zp);
-STATIC BOOL havelastmod = FALSE;
+STATIC bool havelastmod = false;
 STATIC ZVALUE lastmod[1];
 STATIC ZVALUE lastmodinv[1];
 
@@ -111,14 +122,14 @@ c_pmodm127(char *UNUSED(name), int UNUSED(count), VALUE **vals)
 	if (havelastmod && zcmp(q, *lastmod)) {
 		zfree(*lastmod);
 		zfree(*lastmodinv);
-		havelastmod = FALSE;
+		havelastmod = false;
 	}
 	if (!havelastmod) {
 		zcopy(q, lastmod);
 		zbitvalue(2 * q.len * BASEB, &temp);
 		zquo(temp, q, lastmodinv, 0);
 		zfree(temp);
-		havelastmod = TRUE;
+		havelastmod = true;
 	}
 
 	/*

custom/c_pzasusb8.c

@@ -1,7 +1,7 @@
 /*
  * c_pzasusb8 - print numerator as a string of USB8s
  *
- * Copyright (C) 1999-2004,2021,2022  Ernest Bowen
+ * Copyright (C) 1999-2004,2021-2023  Ernest Bowen
  *
  * Calc is open software; you can redistribute it and/or modify it under
  * the terms of the version 2.1 of the GNU Lesser General Public License
@@ -24,20 +24,31 @@
  */
 
 
+/*
+ * ISO C requires a translation unit to contain at least one declaration,
+ * so we declare a global variable whose value is based on if CUSTOM is defined.
+ */
+#if defined(CUSTOM)
+int c_pzasusb8_allowed = 1;	/* CUSTOM defined */
+#else /* CUSTOM */
+int c_pzasusb8_allowed = 0;	/* CUSTOM undefined */
+#endif /* CUSTOM */
+
+
 #if defined(CUSTOM)
 
 #include <stdio.h>
 
-#include "have_const.h"
-#include "value.h"
-#include "custom.h"
-#include "zmath.h"
+#include "../have_const.h"
+#include "../value.h"
+#include "../custom.h"
+#include "../zmath.h"
 
-#include "have_unused.h"
+#include "../have_unused.h"
 
 
-#include "attribute.h"
-#include "banned.h"	/* include after system header <> includes */
+#include "../errtbl.h"
+#include "../banned.h"	/* include after system header <> includes */
 
 
 /*

custom/c_register.c

@@ -1,7 +1,7 @@
 /*
  * c_register - set or print a custom register value
  *
- * Copyright (C) 2007,2021,2022  Landon Curt Noll
+ * Copyright (C) 2007,2021-2023  Landon Curt Noll
  *
  * Calc is open software; you can redistribute it and/or modify it under
  * the terms of the version 2.1 of the GNU Lesser General Public License
@@ -25,22 +25,33 @@
  */
 
 
+/*
+ * ISO C requires a translation unit to contain at least one declaration,
+ * so we declare a global variable whose value is based on if CUSTOM is defined.
+ */
+#if defined(CUSTOM)
+int c_register_allowed = 1;	/* CUSTOM defined */
+#else /* CUSTOM */
+int c_register_allowed = 0;	/* CUSTOM undefined */
+#endif /* CUSTOM */
+
+
 #if defined(CUSTOM)
 
 #include <stdio.h>
 
-#include "have_const.h"
-#include "value.h"
-#include "custom.h"
+#include "../have_const.h"
+#include "../value.h"
+#include "../custom.h"
 
-#include "config.h"
-#include "calc.h"
+#include "../config.h"
+#include "../calc.h"
 
-#include "have_unused.h"
+#include "../have_unused.h"
 
 
-#include "attribute.h"
-#include "banned.h"	/* include after system header <> includes */
+#include "../errtbl.h"
+#include "../banned.h"	/* include after system header <> includes */
 
 
 /*

custom/c_sysinfo.c

@@ -1,7 +1,7 @@
 /*
  * c_sysinfo - names and values of selected #defines
  *
- * Copyright (C) 1999-2007,2021,2022  Landon Curt Noll
+ * Copyright (C) 1999-2007,2021-2023  Landon Curt Noll
  *
  * Calc is open software; you can redistribute it and/or modify it under
  * the terms of the version 2.1 of the GNU Lesser General Public License
@@ -25,40 +25,50 @@
  */
 
 
+/*
+ * ISO C requires a translation unit to contain at least one declaration,
+ * so we declare a global variable whose value is based on if CUSTOM is defined.
+ */
+#if defined(CUSTOM)
+int c_sysinfo_allowed = 1;	/* CUSTOM defined */
+#else /* CUSTOM */
+int c_sysinfo_allowed = 0;	/* CUSTOM undefined */
+#endif /* CUSTOM */
+
+
 #if defined(CUSTOM)
 
 #include <stdio.h>
 #include <ctype.h>
 
-#include "have_string.h"
+#include "../have_string.h"
 #if defined(HAVE_STRING_H)
 #include <string.h>
 #endif
 
-#include "have_const.h"
-#include "value.h"
-#include "custom.h"
+#include "../have_const.h"
+#include "../value.h"
+#include "../custom.h"
 
-#include "config.h"
-#include "lib_calc.h"
-#include "calc.h"
-#include "longbits.h"
+#include "../config.h"
+#include "../lib_calc.h"
+#include "../calc.h"
+#include "../longbits.h"
 #define CHECK_L_FORMAT
-#include "block.h"
-#include "calcerr.h"
-#include "conf.h"
-#include "endian_calc.h"
-#include "fposval.h"
-#include "hist.h"
-#include "prime.h"
-#include "zrand.h"
-#include "zrandom.h"
+#include "../block.h"
+#include "../conf.h"
+#include "../endian_calc.h"
+#include "../fposval.h"
+#include "../hist.h"
+#include "../prime.h"
+#include "../zrand.h"
+#include "../zrandom.h"
 
-#include "have_unused.h"
+#include "../have_unused.h"
 
 
-#include "attribute.h"
-#include "banned.h"	/* include after system header <> includes */
+#include "../errtbl.h"
+#include "../banned.h"	/* include after system header <> includes */
 
 
 /*
@@ -117,16 +127,8 @@ STATIC struct infoname sys_info[] = {
      EPSILON_DEFAULT, (FULL)0},
     {"ERRMAX", "default errmax value", NULL,
      (FULL)ERRMAX},
-    {"E_USERDEF", "base of user defined errors", NULL,
-     (FULL)E_USERDEF},
-    {"E__BASE", "calc errors start above here", NULL,
-     (FULL)E__BASE},
-    {"E__COUNT", "number of calc errors", NULL,
-     (FULL)E__COUNT},
-    {"E__HIGHEST", "highest calc error", NULL,
-     (FULL)E__HIGHEST},
-    {"FALSE", "boolean false", NULL,
-     (FULL)FALSE},
+    {"false", "boolean false", NULL,
+     (FULL)false},
     {"FILEPOS_BITS", "file position size in bits", NULL,
      (FULL)FILEPOS_BITS},
     {"FULL_BITS", "bits in a FULL", NULL,
@@ -137,9 +139,9 @@ STATIC struct infoname sys_info[] = {
      (FULL)0},
     {"HIST_SIZE", "Default history size", NULL,
      (FULL)HIST_SIZE},
-    {"INIT_J", "initial 1st walking a55 table index", NULL,
+    {"INIT_J", "initial 1st walking subtractive 100 shuffle table index", NULL,
      (FULL)INIT_J},
-    {"INIT_K", "initial 2nd walking a55 table index", NULL,
+    {"INIT_K", "initial 2nd walking subtractive 100 shuffle table index", NULL,
      (FULL)INIT_K},
     {"INODE_BITS", "inode number size in bits", NULL,
      (FULL)INODE_BITS},
@@ -211,7 +213,7 @@ STATIC struct infoname sys_info[] = {
      (FULL)SBYTES},
     {"SCNT", "length of subtractive 100 table in FULLs", NULL,
      (FULL)SCNT},
-    {"SEEDXORBITS", "low bits of a55 seed devoted to xor", NULL,
+    {"SEEDXORBITS", "low bits of subtractive 100 shuffle pseudo-random number generator seed devoted to xor", NULL,
      (FULL)SEEDXORBITS},
     {"SHALFS", "size of additive or shuffle entry in HALFs", NULL,
      (FULL)SHALFS},
@@ -237,8 +239,8 @@ STATIC struct infoname sys_info[] = {
      (FULL)TOPHALF},
     {"TOPLONG", "top long bit", NULL,
      (FULL)TOPLONG},
-    {"TRUE", "boolean true", NULL,
-     (FULL)TRUE},
+    {"true", "boolean true", NULL,
+     (FULL)true},
     {"USUAL_ELEMENTS", "usual number of elements for objects", NULL,
      (FULL)USUAL_ELEMENTS},
     {"REGNUM_MAX", "highest custom register number", NULL,

custom/custtbl.c

@@ -1,7 +1,7 @@
 /*
  * custtbl - custom interface table
  *
- * Copyright (C) 1999-2007,2021  Landon Curt Noll
+ * Copyright (C) 1999-2007,2021,2023  Landon Curt Noll
  *
  * Calc is open software; you can redistribute it and/or modify it under
  * the terms of the version 2.1 of the GNU Lesser General Public License
@@ -24,19 +24,38 @@
  * Share and enjoy!  :-)	http://www.isthe.com/chongo/tech/comp/calc/
  */
 
+
 #include <unistd.h>
 
-#include "have_const.h"
-#include "value.h"
-#include "custom.h"
+#include "../have_const.h"
+#include "../value.h"
+#include "../custom.h"
 
 
-#include "banned.h"	/* include after system header <> includes */
+#include "../errtbl.h"
+#include "../banned.h"	/* include after system header <> includes */
 
 
 /*
- * NOTE: See the file CUSTOM for instructions on how to add
- *	 custom functions.
+ * custom_compiled - determine if custom functions are compiled into libcustcalc
+ *
+ * returns:
+s*	true  ==> libcustcalc was compiled with CUSTOM defined
+ *	false ==> libcustcalc was compiled with CUSTOM undefined
+ */
+E_FUNC bool
+custom_compiled(void)
+{
+#if defined(CUSTOM)
+	return true;
+#else /* CUSTOM */
+	return false;
+#endif /* CUSTOM */
+}
+
+
+/*
+ * NOTE: See the file HOW_TO_ADD for instructions on how to add custom functions.
  */
 
 

errtbl.h

@@ -0,0 +1,113 @@
+/*
+ * errtbl - calc error code table entry
+ *
+ * Copyright (C) 2023  Ernest Bowen and Landon Curt Noll
+ *
+ * Calc is open software; you can redistribute it and/or modify it under
+ * the terms of the version 2.1 of the GNU Lesser General Public License
+ * as published by the Free Software Foundation.
+ *
+ * Calc is distributed in the hope that it will be useful, but WITHOUT
+ * ANY WARRANTY; without even the implied warranty of MERCHANTABILITY
+ * or FITNESS FOR A PARTICULAR PURPOSE.	See the GNU Lesser General
+ * Public License for more details.
+ *
+ * A copy of version 2.1 of the GNU Lesser General Public License is
+ * distributed with calc under the filename COPYING-LGPL.  You should have
+ * received a copy with calc; if not, write to Free Software Foundation, Inc.
+ * 51 Franklin Street, Fifth Floor, Boston, MA  02110-1301, USA.
+ *
+ * Under source code control:	2023/09/12 20:55:14
+ * File existed as early as:	2023
+ *
+ * Share and enjoy!  :-)		http://www.isthe.com/chongo/tech/comp/calc/
+ */
+
+
+#if !defined(INCLUDE_ERRTBL_H)
+#define INCLUDE_ERRTBL_H
+
+
+#include "attribute.h"
+#include "have_const.h"
+#include "bool.h"
+#include "decl.h"
+
+
+/*
+ * NOTE: See also errsym.h, the file that this code, via errcode -d, via the Makefile, creates
+ *
+ * We cannot use errsym.h when compiling for errcode (ERRCODE_SRC defined)
+ */
+#if !defined(ERRCODE_SRC)
+#include "errsym.h"
+#endif /* !ERRCODE_SRC */
+
+
+/*
+ * primary error code defines
+ */
+#define E__NONE		0	/* calc_errno cleared: libc errno codes above here */
+#define E__BASE		10000	/* calc computation error codes start above here */
+#define E__USERDEF	20000	/* user defined error codes start here */
+#define E__USERMAX	32767	/* maximum user defined error code */
+
+#define USERMAX_DIGITS 5	/* number of decimal digits in E__USERMAX */
+
+/*
+ * invalid errnum
+ */
+#define NULL_ERRNUM (-1)	/* errnum for the final table terminating NULL entry */
+
+
+/*
+ * The error routine.
+ */
+E_FUNC void math_error(char *, ...) \
+	__attribute__((format(printf, 1, 2))) __attribute__((noreturn));
+
+
+/*
+ * calc error code, error symbol and error message
+ */
+struct errtbl {
+	int errnum;		/* calc computation error codes or -1 */
+	char *errsym;		/* E_STRING - must match regexp: ^E_[A-Z0-9_]+$ or NULL */
+	char *errmsg;		/* calc error message or NULL */
+};
+
+
+/*
+ * The error_table[] array represents the calc computation error related
+ * error codes, symbols and messages.
+ *
+ * The errnum of the 1st entry error_table[0] must be E__BASE.
+ *
+ * All errnum for the following entries just be consecutive,
+ * except for the final NULL entry.
+ *
+ * The final entry must have an errnum of -1, errsym of NULL and errmsg of NULL.
+ */
+EXTERN CONST struct errtbl error_table[];	/* calc error codes, error symbols and error messages */
+
+
+/*
+ * external functions
+ */
+E_FUNC bool is_e_digits(CONST char *errsym);
+E_FUNC bool is_valid_errnum(int errnum);
+E_FUNC bool is_errnum_in_error_table(int errnum);
+E_FUNC int e_digits_2_errnum(CONST char *errsym);
+E_FUNC bool is_e_1string(CONST char *errsym);
+E_FUNC bool is_e_2string(CONST char *errsym);
+E_FUNC struct errtbl *find_errsym_in_errtbl(CONST char *errsym, CONST struct errtbl *tbl);
+E_FUNC struct errtbl *find_errnum_in_errtbl(int errnum, CONST struct errtbl *tbl);
+E_FUNC CONST struct errtbl *lookup_errnum_in_error_table(int errnum);
+E_FUNC void verify_error_table(void);
+E_FUNC int errsym_2_errnum(CONST char *errsym);
+E_FUNC char *errnum_2_errsym(int errnum, bool *palloced);
+E_FUNC char *errnum_2_errmsg(int errnum, bool *palloced);
+E_FUNC char *errsym_2_errmsg(CONST char *errsym, bool *palloced);
+
+
+#endif /* !INCLUDE_ERRTBL_H */

file.c

@@ -1,7 +1,7 @@
 /*
  * file - file I/O routines callable by users
  *
- * Copyright (C) 1999-2007,2018,2021,2022  David I. Bell and Landon Curt Noll
+ * Copyright (C) 1999-2007,2018,2021-2023  David I. Bell and Landon Curt Noll
  *
  * Primary author:  David I. Bell
  *
@@ -43,7 +43,6 @@
 #include "have_fpos_pos.h"
 #include "fposval.h"
 #include "file.h"
-#include "calcerr.h"
 #include "strl.h"
 
 #if defined(_WIN32) || defined(_WIN64)
@@ -51,7 +50,7 @@
 #endif
 
 
-#include "attribute.h"
+#include "errtbl.h"
 #include "banned.h"	/* include after system header <> includes */
 
 
@@ -73,11 +72,11 @@ E_FUNC FILE *f_open(char *name, char *mode);
  */
 STATIC FILEIO files[MAXFILES] = {
 	{FILEID_STDIN,	NULL,  (dev_t)0, (ino_t)0,
-	 "(stdin)",  TRUE, FALSE, FALSE, FALSE, 'r', "r"},
+	 "(stdin)",  true, false, false, false, 'r', "r"},
 	{FILEID_STDOUT, NULL, (dev_t)0, (ino_t)0,
-	 "(stdout)", FALSE,  TRUE, FALSE, FALSE, 'w', "w"},
+	 "(stdout)", false,  true, false, false, 'w', "w"},
 	{FILEID_STDERR, NULL, (dev_t)0, (ino_t)0,
-	 "(stderr)", FALSE,  TRUE, FALSE, FALSE, 'w', "w"}
+	 "(stderr)", false,  true, false, false, 'w', "w"}
 };
 
 
@@ -94,9 +93,9 @@ S_FUNC int get_open_pos(FILE *fp, ZVALUE *res);
 S_FUNC ZVALUE off_t2z(off_t siz);
 S_FUNC ZVALUE dev2z(dev_t dev);
 S_FUNC ZVALUE inode2z(ino_t inode);
-S_FUNC void getscanfield(FILE *fp, BOOL skip, unsigned int width,
+S_FUNC void getscanfield(FILE *fp, bool skip, unsigned int width,
 			 int scannum, char *scanptr, char **strptr);
-S_FUNC void getscanwhite(FILE *fp, BOOL skip, unsigned int width,
+S_FUNC void getscanwhite(FILE *fp, bool skip, unsigned int width,
 			 int scannum, char **strptr);
 S_FUNC int fscanfile(FILE *fp, char *fmt, int count, VALUE **vals);
 S_FUNC void freadnum(FILE *fp, VALUE *valptr);
@@ -145,8 +144,8 @@ file_init(void)
 		char *tname;
 
 		fiop->name = NULL;
-		files[idnum].reading = TRUE;
-		files[idnum].writing = TRUE;
+		files[idnum].reading = true;
+		files[idnum].writing = true;
 		files[idnum].action = 0;
 		memset(files[idnum].mode, 0, MODE_LEN+1);
 		/*
@@ -163,13 +162,13 @@ file_init(void)
 				if (fp) {
 					strlcpy(files[idnum].mode, "r",
 						sizeof(files[idnum].mode));
-					files[idnum].writing = FALSE;
+					files[idnum].writing = false;
 				} else {
 					fp = (FILE *) fdopen(i, "w");
 					if (fp) {
 						strlcpy(files[idnum].mode, "w",
 						    sizeof(files[idnum].mode));
-						files[idnum].reading = FALSE;
+						files[idnum].reading = false;
 					}
 					else
 						continue;
@@ -244,10 +243,10 @@ init_fileio(FILEIO *fiop, char *name, char *mode,
 	fiop->fp = fp;
 	fiop->dev = sbufp->st_dev;
 	fiop->inode = sbufp->st_ino;
-	fiop->reading = FALSE;
-	fiop->writing = FALSE;
-	fiop->appending = FALSE;
-	fiop->binary = FALSE;
+	fiop->reading = false;
+	fiop->writing = false;
+	fiop->appending = false;
+	fiop->binary = false;
 	fiop->action = 0;
 	memset(fiop->mode, 0, sizeof(fiop->mode));
 
@@ -264,7 +263,7 @@ init_fileio(FILEIO *fiop, char *name, char *mode,
 
 		/* note read mode */
 		strlcpy(modestr, "r", sizeof(modestr));
-		fiop->reading = TRUE;
+		fiop->reading = true;
 
 		/* note binary mode even though mode is not used / ignored */
 		if (strchr(mode, 'b') != NULL) {
@@ -273,7 +272,7 @@ init_fileio(FILEIO *fiop, char *name, char *mode,
 
 		/* note if reading and writing */
 		if (strchr(mode, '+') != NULL) {
-			fiop->writing = TRUE;
+			fiop->writing = true;
 			strlcat(modestr, "+", sizeof(modestr));
 		}
 
@@ -282,7 +281,7 @@ init_fileio(FILEIO *fiop, char *name, char *mode,
 
 		/* note write mode */
 		strlcpy(modestr, "w", sizeof(modestr));
-		fiop->writing = TRUE;
+		fiop->writing = true;
 
 		/* note binary mode even though mode is not used / ignored */
 		if (strchr(mode, 'b') != NULL) {
@@ -291,7 +290,7 @@ init_fileio(FILEIO *fiop, char *name, char *mode,
 
 		/* note if reading and writing */
 		if (strchr(mode, '+') != NULL) {
-			fiop->reading = TRUE;
+			fiop->reading = true;
 			strlcat(modestr, "+", sizeof(modestr));
 		}
 
@@ -300,8 +299,8 @@ init_fileio(FILEIO *fiop, char *name, char *mode,
 
 		/* note append mode */
 		strlcpy(modestr, "a", sizeof(modestr));
-		fiop->writing = TRUE;
-		fiop->appending = TRUE;
+		fiop->writing = true;
+		fiop->appending = true;
 
 		/* note binary mode even though mode is not used / ignored */
 		if (strchr(mode, 'b') != NULL) {
@@ -310,7 +309,7 @@ init_fileio(FILEIO *fiop, char *name, char *mode,
 
 		/* note if reading and writing */
 		if (strchr(mode, '+') != NULL) {
-			fiop->reading = TRUE;
+			fiop->reading = true;
 			strlcat(modestr, "+", sizeof(modestr));
 		}
 
@@ -591,7 +590,7 @@ findid(FILEID id, int writable)
 /*
  * Return whether or not a file id is valid.  This is used for if tests.
  */
-BOOL
+bool
 validid(FILEID id)
 {
 	return (findid(id, -1) != NULL);
@@ -616,7 +615,7 @@ indexid(long index)
 
 
 /*
- * Close the specified file id.	 Returns TRUE if there was an error.
+ * Close the specified file id.	 Returns true if there was an error.
  * Closing of stdin, stdout, or stderr is illegal, but closing of already
  * closed files is allowed.
  */
@@ -685,7 +684,7 @@ closeall(void)
 /*
  * Return whether or not an error occurred to a file.
  */
-BOOL
+bool
 errorid(FILEID id)
 {
 	FILEIO *fiop;		/* file structure */
@@ -700,7 +699,7 @@ errorid(FILEID id)
 /*
  * Return whether or not end of file occurred to a file.
  */
-BOOL
+bool
 eofid(FILEID id)
 {
 	FILEIO *fiop;		/* file structure */
@@ -777,14 +776,14 @@ readid(FILEID id, int flags, STRING **retstr)
 	char buf[READSIZE];	/* temporary buffer */
 	char *b;
 	int c;
-	BOOL nlstop, nullstop, wsstop, rmstop, done;
+	bool nlstop, nullstop, wsstop, rmstop, done;
 	FILEPOS fpos;
 	STRING *newstr;
 
 	totlen = 0;
 	str = NULL;
 
-	fiop = findid(id, FALSE);
+	fiop = findid(id, false);
 	if (fiop == NULL)
 		return 1;
 	nlstop = (flags & 1);
@@ -868,7 +867,7 @@ getcharid(FILEID id)
 	FILEIO *fiop;
 	FILEPOS fpos;
 
-	fiop = findid(id, FALSE);
+	fiop = findid(id, false);
 	if (fiop == NULL)
 		return -2;
 	if (fiop->action == 'w') {
@@ -973,12 +972,12 @@ idprintf(FILEID id, char *fmt, int count, VALUE **vals)
 	int oldmode, newmode;
 	long olddigits, newdigits;
 	long width, precision;
-	BOOL didneg, didprecision;
+	bool didneg, didprecision;
 	FILEPOS fpos;
-	BOOL printstring;
-	BOOL printchar;
+	bool printstring;
+	bool printchar;
 
-	fiop = findid(id, TRUE);
+	fiop = findid(id, true);
 	if (fiop == NULL)
 		return 1;
 	if (fiop->action == 'r') {
@@ -989,8 +988,8 @@ idprintf(FILEID id, char *fmt, int count, VALUE **vals)
 
 	fiop->action = 'w';
 
-	printstring = FALSE;
-	printchar = FALSE;
+	printstring = false;
+	printchar = false;
 
 	math_setfp(fiop->fp);
 
@@ -1003,14 +1002,14 @@ idprintf(FILEID id, char *fmt, int count, VALUE **vals)
 		/*
 		 * Here to handle formats.
 		 */
-		didneg = FALSE;
-		didprecision = FALSE;
+		didneg = false;
+		didprecision = false;
 		width = 0;
 		precision = 0;
 
 		ch = *fmt++;
 		if (ch == '-') {
-			didneg = TRUE;
+			didneg = true;
 			ch = *fmt++;
 		}
 		while ((ch >= '0') && (ch <= '9')) {
@@ -1018,7 +1017,7 @@ idprintf(FILEID id, char *fmt, int count, VALUE **vals)
 			ch = *fmt++;
 		}
 		if (ch == '.') {
-			didprecision = TRUE;
+			didprecision = true;
 			ch = *fmt++;
 			while ((ch >= '0') && (ch <= '9')) {
 				precision = precision * 10 + (ch - '0');
@@ -1037,10 +1036,10 @@ idprintf(FILEID id, char *fmt, int count, VALUE **vals)
 
 		switch (ch) {
 		case 's':
-			printstring = TRUE;
+			printstring = true;
 			/*FALLTHRU*/
 		case 'c':
-			printchar = TRUE;
+			printchar = true;
 		case 'd':
 			break;
 		case 'f':
@@ -1212,7 +1211,7 @@ idfputc(FILEID id, int ch)
 	FILEPOS fpos;
 
 	/* get the file info pointer */
-	fiop = findid(id, TRUE);
+	fiop = findid(id, true);
 	if (fiop == NULL)
 		return 1;
 	if (fiop->action == 'r') {
@@ -1247,7 +1246,7 @@ idungetc(FILEID id, int ch)
 {
 	FILEIO *fiop;
 
-	fiop = findid(id, FALSE);
+	fiop = findid(id, false);
 	if (fiop == NULL)
 		return -2;
 	if (fiop->action != 'r')
@@ -1273,7 +1272,7 @@ idfputs(FILEID id, STRING *str)
 	long len;
 
 	/* get the file info pointer */
-	fiop = findid(id, TRUE);
+	fiop = findid(id, true);
 	if (fiop == NULL)
 		return 1;
 
@@ -1310,7 +1309,7 @@ idfputstr(FILEID id, char *str)
 	FILEPOS fpos;
 
 	/* get the file info pointer */
-	fiop = findid(id, TRUE);
+	fiop = findid(id, true);
 	if (fiop == NULL)
 		return 1;
 
@@ -1992,7 +1991,7 @@ zfilesize(FILEID id)
 void
 showfiles(void)
 {
-	BOOL listed[MAXFILES];
+	bool listed[MAXFILES];
 	FILEIO *fiop;
 	FILE *fp;
 	struct stat sbuf;
@@ -2001,7 +2000,7 @@ showfiles(void)
 	int i, j;
 
 	for (i = 0; i < idnum; i++) {
-		listed[i] = FALSE;
+		listed[i] = false;
 		fiop = &files[ioindex[i]];
 		fp = fiop->fp;
 		if (fstat(fileno(fp), &sbuf) < 0) {
@@ -2027,7 +2026,7 @@ showfiles(void)
 			if (listed[j] || sizes[j] == -1)
 				continue;
 			if (inodes[j] == inodes[i]) {
-				listed[j] = TRUE;
+				listed[j] = true;
 				fiop = &files[ioindex[j]];
 				printf("\t  = ");
 				printid(fiop->id, PRINT_UNAMBIG);
@@ -2052,7 +2051,7 @@ showfiles(void)
  *	strptr		pointer to where the new field pointer may be found
  */
 S_FUNC void
-getscanfield(FILE *fp, BOOL skip, unsigned int width, int scannum,
+getscanfield(FILE *fp, bool skip, unsigned int width, int scannum,
 	     char *scanptr, char **strptr)
 {
 	char *str;		/* current string */
@@ -2061,7 +2060,7 @@ getscanfield(FILE *fp, BOOL skip, unsigned int width, int scannum,
 	char buf[READSIZE];	/* temporary buffer */
 	int c;
 	char *b;
-	BOOL comp;		/* Use complement of scanset */
+	bool comp;		/* Use complement of scanset */
 	unsigned int chnum;
 
 	totlen = 0;
@@ -2131,7 +2130,7 @@ getscanfield(FILE *fp, BOOL skip, unsigned int width, int scannum,
  *	strptr		pointer to where the new field pointer may be found
  */
 S_FUNC void
-getscanwhite(FILE *fp, BOOL skip, unsigned int width, int scannum,
+getscanwhite(FILE *fp, bool skip, unsigned int width, int scannum,
 	     char **strptr)
 {
 	char *str;		/* current string */
@@ -2140,7 +2139,7 @@ getscanwhite(FILE *fp, BOOL skip, unsigned int width, int scannum,
 	char buf[READSIZE];	/* temporary buffer */
 	int c;
 	char *b;
-	BOOL comp;		/* Use complement of scanset */
+	bool comp;		/* Use complement of scanset */
 	unsigned int chnum;
 
 	totlen = 0;
@@ -2207,8 +2206,8 @@ fscanfile(FILE *fp, char *fmt, int count, VALUE **vals)
 	int scannum;	/* Number of characters in scanlist */
 	char *scanptr;	/* Start of scanlist */
 	char *str;
-	BOOL comp;	/* True scanset is complementary */
-	BOOL skip;	/* True if string to be skipped rather than read */
+	bool comp;	/* True scanset is complementary */
+	bool skip;	/* True if string to be skipped rather than read */
 	int width;
 	VALUE *var;	/* lvalue to be assigned to */
 	unsigned short subtype;	/* for var->v_subtype */
@@ -2347,7 +2346,7 @@ fscanfid(FILEID id, char *fmt, int count, VALUE **vals)
 	FILE *fp;
 	FILEPOS fpos;
 
-	fiop = findid(id, FALSE);
+	fiop = findid(id, false);
 	if (fiop == NULL)
 		return -2;
 
@@ -2404,20 +2403,20 @@ freadnum(FILE *fp, VALUE *valptr)
 	HALF *a;
 	FULL f;
 	long decimals, exp;
-	BOOL sign, negexp, havedp, imag, exptoobig;
+	bool sign, negexp, havedp, imag, exptoobig;
 
 	decimals = 0;
 	exp = 0;
-	sign = FALSE;
-	negexp = FALSE;
-	havedp = FALSE;
-	imag = FALSE;
-	exptoobig = FALSE;
+	sign = false;
+	negexp = false;
+	havedp = false;
+	imag = false;
+	exptoobig = false;
 
 	ch = fgetc(fp);
 	if (ch == '+' || ch == '-') {
 		if (ch == '-')
-			sign = TRUE;
+			sign = true;
 		ch = fgetc(fp);
 	}
 	num.v = alloc(1);
@@ -2446,7 +2445,7 @@ freadnum(FILE *fp, VALUE *valptr)
 				decimals++;
 		}
 		else if (ch == '.')
-			havedp = TRUE;
+			havedp = true;
 		else
 			break;
 		ch = fgetc(fp);
@@ -2455,20 +2454,20 @@ freadnum(FILE *fp, VALUE *valptr)
 		ch = fgetc(fp);
 		if (ch == '+' || ch == '-') {
 			if (ch == '-')
-				negexp = TRUE;
+				negexp = true;
 			ch = fgetc(fp);
 		}
 		while (ch >= '0' && ch <= '9') {
 			if (!exptoobig) {
 				exp = (exp * 10) + ch - '0';
 				if (exp > 1000000)
-					exptoobig = TRUE;
+					exptoobig = true;
 			}
 			ch = fgetc(fp);
 		}
 	}
 	if (ch == 'i' || ch == 'I') {
-		imag = TRUE;
+		imag = true;
 	} else {
 		ungetc(ch, fp);
 	}
@@ -2648,7 +2647,7 @@ fsearch(FILEID id, char *str, ZVALUE start, ZVALUE end, ZVALUE *res)
 	long k = 0;
 
 	/* get FILEIO */
-	fiop = findid(id, FALSE);
+	fiop = findid(id, false);
 	if (fiop == NULL)
 		return -2;
 
@@ -2767,7 +2766,7 @@ frsearch(FILEID id, char *str, ZVALUE first, ZVALUE last, ZVALUE *res)
 	char *s;		/* str comparison pointer */
 
 	/* get FILEIO */
-	fiop = findid(id, FALSE);
+	fiop = findid(id, false);
 	if (fiop == NULL)
 		return -2;
 

file.h

@@ -1,7 +1,7 @@
 /*
  * file - file I/O routines callable by users
  *
- * Copyright (C) 1999-2007,2014,2021  David I. Bell and Landon Curt Noll
+ * Copyright (C) 1999-2007,2014,2021,2023  David I. Bell and Landon Curt Noll
  *
  * Primary author:  David I. Bell
  *
@@ -48,10 +48,10 @@ typedef struct {
 	dev_t dev;		/* file device */
 	ino_t inode;		/* file inode */
 	char *name;		/* file name */
-	BOOL reading;		/* TRUE if opened for reading */
-	BOOL writing;		/* TRUE if opened for writing */
-	BOOL appending;		/* TRUE if also opened for appending */
-	BOOL binary;		/* TRUE if binary mode - mode ignored/unused */
+	bool reading;		/* true if opened for reading */
+	bool writing;		/* true if opened for writing */
+	bool appending;		/* true if also opened for appending */
+	bool binary;		/* true if binary mode - mode ignored/unused */
 	char action;		/* most recent use for 'r', 'w' or 0 */
 	char mode[MODE_LEN+1];	/* open mode */
 } FILEIO;

fposval.c

@@ -114,15 +114,20 @@ main(int UNUSED(argc), char **argv)
 	/*
 	 * Big Endian
 	 */
+	/*
+	 * Use casts to (HALF *) because SWAP_HALF_IN_B* might expand to
+	 * a simple assignment and SWAP_HALF_IN_FILEPOS might get a
+	 * (HALF *) and a (FILEPOS *) which are not assignment-compatible.
+	 */
 	if (fileposlen == 64) {
 		printf("#define SWAP_HALF_IN_FILEPOS(dest, src) \\\n"
-		       "\tSWAP_HALF_IN_B64(dest, src)\n");
+		       "\tSWAP_HALF_IN_B64((HALF *)dest, (HALF *)src)\n");
 	} else if (fileposlen == 32) {
 		printf("#define SWAP_HALF_IN_FILEPOS(dest, src) \\\n"
-		       "\tSWAP_HALF_IN_B32(dest, src)\n");
+		       "\tSWAP_HALF_IN_B32((HALF *)dest, (HALF *)src)\n");
 	} else if (fileposlen%BASEB == 0) {
 		printf("#define SWAP_HALF_IN_FILEPOS(dest, src) \\\n"
-		       "\tswap_HALFs(dest, src, %d)\n",
+		       "\tswap_HALFs((HALF *)dest, (HALF *)src, %d)\n",
 		       fileposlen/BASEB);
 	} else {
 		fprintf(stderr, "%s: unexpected BIG_ENDIAN FILEPOS bit size: %d\n",

func.h

@@ -74,14 +74,15 @@ E_FUNC FUNC *curfunc;	/* NOTE: This is a function pointer, we need E_FUNC */
 /*
  * Functions to handle functions.
  */
+E_FUNC char *name_newerrorstr(int errnum);
 E_FUNC FUNC *findfunc(long index);
 E_FUNC char *namefunc(long index);
-E_FUNC BOOL evaluate(BOOL nestflag);
+E_FUNC bool evaluate(bool nestflag);
 E_FUNC long adduserfunc(char *name);
 E_FUNC void rmuserfunc(char *name);
 E_FUNC void rmalluserfunc(void);
 E_FUNC long getuserfunc(char *name);
-E_FUNC void beginfunc(char *name, BOOL newflag);
+E_FUNC void beginfunc(char *name, bool newflag);
 E_FUNC int builtinopcode(long index);
 E_FUNC char *builtinname(long index);
 E_FUNC int dumpop(unsigned long *pc);

hash.c

@@ -1,7 +1,7 @@
 /*
  * hash - one-way hash routines
  *
- * Copyright (C) 1999-2007,2021,2022  Landon Curt Noll
+ * Copyright (C) 1999-2007,2021-2023  Landon Curt Noll
  *
  * Calc is open software; you can redistribute it and/or modify it under
  * the terms of the version 2.1 of the GNU Lesser General Public License
@@ -40,7 +40,7 @@
 #include "hash.h"
 
 
-#include "attribute.h"
+#include "errtbl.h"
 #include "banned.h"	/* include after system header <> includes */
 
 
@@ -53,7 +53,7 @@ E_FUNC void MD5_init_state(HASH*);
 
 
 /*
- * hash_long can deal with BOOL's, int's, FLAGS's and LEN's
+ * hash_long can deal with bool's, int's, FLAGS's and LEN's
  */
 #define hash_bool(type, val, state) (hash_long((type), (long)(val), (state)))
 #define hash_int(type, val, state) (hash_long((type), (long)(val), (state)))
@@ -103,7 +103,7 @@ hash_init(int type, HASH *state)
 	 * clear hash value
 	 */
 	memset((void*)state, 0, sizeof(HASH));
-	state->bytes = TRUE;
+	state->bytes = true;
 
 	/*
 	 * search for the hash_setup function
@@ -194,8 +194,8 @@ hash_copy(HASH *state)
  *	b	second hash state
  *
  * returns:
- *	TRUE => hash states are different
- *	FALSE => hash states are the same
+ *	true => hash states are different
+ *	false => hash states are the same
  */
 int
 hash_cmp(HASH *a, HASH *b)
@@ -205,15 +205,15 @@ hash_cmp(HASH *a, HASH *b)
 	 */
 	if (a == b) {
 		/* pointers to the same object */
-		return FALSE;
+		return false;
 	}
 	if (a == NULL || b == NULL) {
 		/* one pointer is NULL, so they differ */
-		return TRUE;
+		return true;
 	}
 	if (a->cmp == NULL || b->cmp == NULL) {
 		/* one cmp function is NULL, so they differ */
-		return TRUE;
+		return true;
 	}
 
 	/*
@@ -221,7 +221,7 @@ hash_cmp(HASH *a, HASH *b)
 	 */
 	if (a->hashtype != b->hashtype) {
 		/* different hash types are different */
-		return TRUE;
+		return true;
 	}
 
 	/*
@@ -278,7 +278,7 @@ hash_final(HASH *state)
  * The input is a long.	 If a long is smaller than 64 bits, we will
  * hash a final 32 bits of zeros.
  *
- * This function is OK to hash BOOL's, unsigned long's, unsigned int's
+ * This function is OK to hash bool's, unsigned long's, unsigned int's
  * signed int's as well as FLAG's and LEN's.
  */
 HASH *
@@ -297,7 +297,7 @@ hash_long(int type, long longval, HASH *state)
 	 * setup for the hash_long
 	 */
 	(state->chkpt)(state);
-	state->bytes = FALSE;	/* data to be read as words */
+	state->bytes = false;	/* data to be read as words */
 
 	/*
 	 * catch the zero numeric value special case
@@ -363,7 +363,7 @@ hash_zvalue(int type, ZVALUE zval, HASH *state)
 	 * setup for the ZVALUE hash
 	 */
 	(state->chkpt)(state);
-	state->bytes = FALSE;	/* data to be read as words */
+	state->bytes = false;	/* data to be read as words */
 
 	/*
 	 * catch the zero numeric value special case
@@ -470,7 +470,7 @@ HASH *
 hash_number(int type, void *n, HASH *state)
 {
 	NUMBER *number = (NUMBER *)n;	/* n as a NUMBER pointer */
-	BOOL sign;			/* sign of the denominator */
+	bool sign;			/* sign of the denominator */
 
 	/*
 	 * initialize if state is NULL
@@ -483,7 +483,7 @@ hash_number(int type, void *n, HASH *state)
 	 * setup for the NUMBER hash
 	 */
 	(state->chkpt)(state);
-	state->bytes = FALSE;
+	state->bytes = false;
 
 	/*
 	 * process the numerator
@@ -543,7 +543,7 @@ hash_complex(int type, void *c, HASH *state)
 	 * setup for the COMPLEX hash
 	 */
 	(state->chkpt)(state);
-	state->bytes = FALSE;
+	state->bytes = false;
 
 	/*
 	 * catch the zero special case
@@ -612,7 +612,7 @@ hash_str(int type, char *str, HASH *state)
 	 */
 	if (!state->bytes) {
 		(state->chkpt)(state);
-		state->bytes = TRUE;
+		state->bytes = true;
 	}
 
 	len = strlen(str);
@@ -655,7 +655,7 @@ hash_STR(int type, STRING *str, HASH *state)
 	 */
 	if (!state->bytes) {
 		(state->chkpt)(state);
-		state->bytes = TRUE;
+		state->bytes = true;
 	}
 
 	/*
@@ -697,7 +697,7 @@ hash_usb8(int type, USB8 *byte, int len, HASH *state)
 	 */
 	if (!state->bytes) {
 		(state->chkpt)(state);
-		state->bytes = TRUE;
+		state->bytes = true;
 	}
 
 	/*
@@ -748,7 +748,7 @@ hash_value(int type, void *v, HASH *state)
 	switch (value->v_type) {
 	case V_NULL:
 		(state->chkpt)(state);
-		state->bytes = TRUE;
+		state->bytes = true;
 		break;
 
 	case V_INT:
@@ -790,7 +790,7 @@ hash_value(int type, void *v, HASH *state)
 		/* setup for the this value type */
 		(state->chkpt)(state);
 		(state->type)(value->v_type, state);
-		state->bytes = TRUE;
+		state->bytes = true;
 
 		/* hash all the elements of the matrix */
 		for (i=0; i < value->v_mat->m_size; ++i) {
@@ -798,7 +798,7 @@ hash_value(int type, void *v, HASH *state)
 			/* hash the next matrix value */
 			state = hash_value(type,
 					value->v_mat->m_table+i, state);
-			state->bytes = FALSE;	/* as if reading words */
+			state->bytes = false;	/* as if reading words */
 		}
 		break;
 
@@ -814,7 +814,7 @@ hash_value(int type, void *v, HASH *state)
 
 			/* hash the next list value */
 			state = hash_value(type, &ep->e_value, state);
-			state->bytes = FALSE;	/* as if reading words */
+			state->bytes = false;	/* as if reading words */
 		}
 		break;
 
@@ -822,7 +822,7 @@ hash_value(int type, void *v, HASH *state)
 		/* setup for the this value type */
 		(state->chkpt)(state);
 		(state->type)(value->v_type, state);
-		state->bytes = TRUE;
+		state->bytes = true;
 
 		/* hash the association */
 		assochead = value->v_assoc->a_table;
@@ -834,7 +834,7 @@ hash_value(int type, void *v, HASH *state)
 
 				/* hash the next association value */
 				state = hash_value(type, &aep->e_value, state);
-				state->bytes = FALSE; /* as if reading words */
+				state->bytes = false; /* as if reading words */
 			}
 			assochead++;
 		}
@@ -844,7 +844,7 @@ hash_value(int type, void *v, HASH *state)
 		/* setup for the this value type */
 		(state->chkpt)(state);
 		(state->type)(value->v_type, state);
-		state->bytes = TRUE;	/* reading bytes */
+		state->bytes = true;	/* reading bytes */
 
 		/* hash the object name and then the element values */
 
@@ -859,7 +859,7 @@ hash_value(int type, void *v, HASH *state)
 
 			/* hash the next object value */
 			state = hash_value(type, vp, state);
-			state->bytes = FALSE;	/* as if reading words */
+			state->bytes = false;	/* as if reading words */
 		}
 		break;
 
@@ -919,7 +919,7 @@ hash_value(int type, void *v, HASH *state)
 			(USB8 *)value->v_rand->slot, SCNT*FULL_BITS/8);
 		(state->update)(state,
 			(USB8*)value->v_rand->shuf, SHUFLEN*FULL_BITS/8);
-		state->bytes = FALSE;	/* as if reading words */
+		state->bytes = false;	/* as if reading words */
 		break;
 
 	case V_RANDOM:
@@ -934,7 +934,7 @@ hash_value(int type, void *v, HASH *state)
 			(USB8 *)&(value->v_random->buffer), BASEB/8);
 		state = hash_zvalue(type, value->v_random->r, state);
 		state = hash_zvalue(type, value->v_random->n, state);
-		state->bytes = FALSE;	/* as if reading words */
+		state->bytes = false;	/* as if reading words */
 		break;
 
 	case V_CONFIG:
@@ -967,14 +967,15 @@ hash_value(int type, void *v, HASH *state)
 		state = hash_long(type, (long)value->v_config->cfsim, state);
 		state = hash_long(type, (long)value->v_config->outround, state);
 		state = hash_long(type, (long)value->v_config->round, state);
+		state = hash_long(type, (long)value->v_config->triground, state);
 		state = hash_bool(type, value->v_config->leadzero, state);
 		state = hash_bool(type, value->v_config->fullzero, state);
 		state = hash_long(type,
 			(long)value->v_config->maxscancount, state);
 		state = hash_str(type, value->v_config->prompt1, state);
-		state->bytes = FALSE;	/* as if just read words */
+		state->bytes = false;	/* as if just read words */
 		state = hash_str(type, value->v_config->prompt2, state);
-		state->bytes = FALSE;	/* as if just read words */
+		state->bytes = false;	/* as if just read words */
 		state = hash_int(type, value->v_config->blkmaxprint, state);
 		state = hash_bool(type, value->v_config->blkverbose, state);
 		state = hash_int(type, value->v_config->blkbase, state);
@@ -994,9 +995,9 @@ hash_value(int type, void *v, HASH *state)
 		state = hash_bool(type, value->v_config->compile_custom, state);
 		if (value->v_config->allow_custom != NULL &&
 		    *(value->v_config->allow_custom)) {
-			state = hash_bool(type, TRUE, state);
+			state = hash_bool(type, true, state);
 		} else {
-			state = hash_bool(type, FALSE, state);
+			state = hash_bool(type, false, state);
 		}
 		state = hash_str(type, value->v_config->version, state);
 		state = hash_int(type, value->v_config->baseb, state);
@@ -1018,7 +1019,7 @@ hash_value(int type, void *v, HASH *state)
 		state = hash_int(type, value->v_hash->unionsize, state);
 		(state->update)(state,
 		    value->v_hash->h_union.data, state->unionsize);
-		state->bytes = FALSE;	/* as if reading words */
+		state->bytes = false;	/* as if reading words */
 		break;
 
 	case V_BLOCK:

hash.h

@@ -1,7 +1,7 @@
 /*
  * hash - one-way hash routines
  *
- * Copyright (C) 1999-2007,2014  Landon Curt Noll
+ * Copyright (C) 1999-2007,2014,2023  Landon Curt Noll
  *
  * Calc is open software; you can redistribute it and/or modify it under
  * the terms of the version 2.1 of the GNU Lesser General Public License
@@ -60,13 +60,13 @@
 typedef struct hashstate HASH;
 struct hashstate {
 	int hashtype;		/* XYZ_HASH_TYPE debug value */
-	BOOL bytes;		/* TRUE => reading bytes rather than words */
+	bool bytes;		/* true => reading bytes rather than words */
 	void (*update)(HASH*, USB8*, USB32);	/* update arbitrary length */
 	void (*chkpt)(HASH*);			/* checkpoint a state */
 	void (*note)(int, HASH*);		/* note a special value */
 	void (*type)(int, HASH*);		/* note a VALUE type */
 	ZVALUE (*final)(HASH*);		/* complete hash state */
-	int (*cmp)(HASH*,HASH*);	/* compare to states, TRUE => a!=b */
+	int (*cmp)(HASH*,HASH*);	/* compare to states, true => a!=b */
 	void (*print)(HASH*);		/* print the value of a hash */
 	int base;			/* XYZ_BASE special hash value */
 	int chunksize;			/* XYZ_CHUNKSIZE input chunk size */

help/Makefile

@@ -4,13 +4,7 @@
 #
 # Copyright (C) 1999-2006,2017,2021-2023  Landon Curt Noll
 #
-# SRC: help/Makefile
-#
-#	The "# SRC: ... - ..." comment line above indicates
-#	the origin of this file.
-#
-# IMPORTANT: Please see the section on Makefiles near the
-#	     bottom of the HOWTO.INSTALL file.
+# Suggestion: Read the ../HOWTO.INSTALL file.
 #
 # Calc is open software; you can redistribute it and/or modify it under
 # the terms of the version 2.1 of the GNU Lesser General Public License
@@ -29,184 +23,63 @@
 # Under source code control:	1991/07/23 06:47:57
 # File existed as early as:	1991
 #
+# This calculator first developed by David I. Bell with help/mods from others.
+#
 # chongo <was here> /\oo/\	http://www.isthe.com/chongo/
 # Share and enjoy!  :-)		http://www.isthe.com/chongo/tech/comp/calc/
-#
-# calculator by David I. Bell with help/mods from others
-# Makefile by Landon Curt Noll
 
 
-# The shell used by this Makefile
-#
-# On some systems, /bin/sh is a rather reduced shell with
-# deprecated behavior.
-#
-# If your system has a up to date, bash shell, then
-# you may wish to use:
-#
-#	SHELL= bash
-#
-# On some systems such as macOS, the bash shell is very
-# far behind to the point where is cannot be depended on.
-# On such systems, the sh may be a much better alternative
-# shell for this Makefile to use:
-#
-#	SHELL= sh
-#
-SHELL= bash
-#SHELL= sh
-#if 0	/* start of skip for non-Gnu makefiles */
-#
-ifeq ($(target),Darwin)
-SHELL:= /bin/sh
-endif
-#endif	/* end of skip for non-Gnu makefiles */
+# SUGGESTION: Instead of modifying this file, consider adding
+#	      statements to modify, replace or append Makefile
+#	      variables in the ../Makefile.local file.
 
 
-####
-# Normally, the upper level makefile will set these values.  We provide
-# a default here just in case you want to build from this directory.
-####
-
-# PREFIX - Top level location for calc
-#
-# The PREFIX is often prepended to paths within calc and calc Makefiles.
-#
-# Starting with calc v2.13.0.1, nearly all Makefile places that used
-# /usr/local now use ${PREFIX}.  An exception is the olduninstall rule
-# and, of course, this section. :-)
-#
-# NOTE: The ${PREFIX} is not the same as ${T}.  The ${T} specifies
-#	a top level directory under which calc installs things.
-#	While usually ${T} is empty, it can be specific path
-#	as if calc where "chrooted" during an install.
-#	The ${PREFIX} value, during install, is a path between
-#	the top level ${T} install directory and the object
-#	such as an include file.
-#
-# NOTE: See also, ${T}, below.
-#
-# There are some paths that do NOT call under ${PREFIX}, such as
-# ${CALCPATH}, that include paths not under ${PREFIX}, but those
-# too are exceptions to this general rule.
-#
-# When in doubt, try:
-#
-#	PREFIX= /usr/local
-#
-PREFIX= /usr/local
-#PREFIX= /usr
-#PREFIX= /usr/global
+###########################################
+# Files used or included by this Makefile #
+###########################################
 
 # Normally certain files depend on the Makefile.  If the Makefile is
 # changed, then certain steps should be redone.  If MAKE_FILE is
 # set to Makefile, then these files will depend on Makefile.  If
-# MAKE_FILE is empty, then they wont.
+# MAKE_FILE is empty, then they won't.
 #
 # If in doubt, set MAKE_FILE to Makefile
 #
 MAKE_FILE= Makefile
 
-# Where the system include (.h) files are kept
-#
-# For DJGPP, select:
-#
-#	INCDIR= /dev/env/DJDIR/include
-#
-# If in doubt, set:
-#
-#	INCDIR= /usr/include
+# Calc configuration and compile configuration values
 #
+CONFIG_MKF= ../Makefile.config
 
-#INCDIR= /usr/local/include
-#INCDIR= /dev/env/DJDIR/include
-INCDIR= /usr/include
+# Host targets that are shared in common with both Makefile
+# and custom/Makefile.
+#
+TARGET_MKF= ../Makefile.target
 
-# where to install calc related things
+# Host target information.
 #
-# ${BINDIR}		where to install calc binary files
-# ${LIBDIR}		where calc link library (*.a) files are installed
-# ${CALC_SHAREDIR}	where to install calc help, .cal, startup, config files
-#
-# NOTE: The install rule prepends installation paths with ${T}, which
-#	by default is empty.  If ${T} is non-empty, then installation
-#	locations will be relative to the ${T} directory.
-#
-# For DJGPP, select:
-#
-#	BINDIR= /dev/env/DJDIR/bin
-#	LIBDIR= /dev/env/DJDIR/lib
-#	CALC_SHAREDIR= /dev/env/DJDIR/share/calc
-#
-# If in doubt, set:
-#
-#	BINDIR= /usr/bin
-#	LIBDIR= /usr/lib
-#	CALC_SHAREDIR= /usr/share/calc
-#
-#BINDIR= ${PREFIX}/bin
-#BINDIR= /dev/env/DJDIR/bin
-BINDIR= /usr/bin
+LOCAL_MKF= ../Makefile.local
 
-#LIBDIR= ${PREFIX}/lib
-#LIBDIR= /dev/env/DJDIR/lib
-LIBDIR= /usr/lib
+# The set of Makefiles
+#
+MK_SET= ${MAKE_FILE} ${CONFIG_MKF} ${TARGET_MKF} ${LOCAL_MKF}
 
-#CALC_SHAREDIR= ${PREFIX}/lib/calc
-#CALC_SHAREDIR= /dev/env/DJDIR/share/calc
-CALC_SHAREDIR= /usr/share/calc
 
-# By default, these values are based CALC_SHAREDIR, INCDIR, BINDIR
-# ---------------------------------------------------------------
-# ${HELPDIR}		where the help directory is installed
-# ${CALC_INCDIR}	where the calc include files are installed
-# ${SCRIPTDIR}		where calc shell scripts are installed
-#
-# NOTE: The install rule prepends installation paths with ${T}, which
-#	by default is empty.  If ${T} is non-empty, then installation
-#	locations will be relative to the ${T} directory.
-#
-# If in doubt, set:
-#
-#	HELPDIR= ${CALC_SHAREDIR}/help
-#	CALC_INCDIR= ${INCDIR}/calc
-#	SCRIPTDIR= ${BINDIR}/cscript
-#
-HELPDIR= ${CALC_SHAREDIR}/help
-CALC_INCDIR= ${INCDIR}/calc
-SCRIPTDIR= ${BINDIR}/cscript
+#######################################################
+# Calc configuration and compile configuration values #
+#######################################################
+include ${CONFIG_MKF}
 
-# T - top level directory under which calc will be installed
-#
-# The calc install is performed under ${T}, the calc build is
-# performed under /.	The purpose for ${T} is to allow someone
-# to install calc somewhere other than into the system area.
-#
-# For example, if:
-#
-#     BINDIR= /usr/bin
-#     LIBDIR= /usr/lib
-#     CALC_SHAREDIR= /usr/share/calc
-#
-# and if:
-#
-#     T= /var/tmp/testing
-#
-# Then the installation locations will be:
-#
-#     calc binary files:	/var/tmp/testing/usr/bin
-#     calc link library:	/var/tmp/testing/usr/lib
-#     calc help, .cal ...:	/var/tmp/testing/usr/share/calc
-#     ... etc ...		/var/tmp/testing/...
-#
-# If ${T} is empty, calc is installed under /, which is the same
-# top of tree for which it was built.  If ${T} is non-empty, then
-# calc is installed under ${T}, as if one had to chroot under
-# ${T} for calc to operate.
-#
-# If in doubt, use T=
-#
-T=
+
+###############################
+# host target section include #
+###############################
+include ${TARGET_MKF}
+
+
+##########################################################################
+#=-=-=-=-=- Be careful if you change something below this line -=-=-=-=-=#
+##########################################################################
 
 # Makefile debug
 #
@@ -240,41 +113,11 @@ H=@
 V=@:
 #V=@
 
-# standard tools
-#
-CAT= cat
-CHMOD= chmod
-CMP= cmp
-CP= cp
-FMT= fmt
-GREP= grep
-ICFLAGS=
-ILDFLAGS=
-LCC= cc
-MKDIR= mkdir
-MV= mv
-RM= rm
-RMDIR= rmdir
-SED= sed
-SORT= sort
-TOUCH= touch
-TRUE= true
 
-# Some out of date operating systems require / want an executable to
-# end with a certain file extension.  Some compile systems such as
-# Cygwin build calc as calc.exe.  The EXT variable is used to denote
-# the extension required by such.
-#
-# EXT=				# normal Un*x / Linux / GNU/Linux systems
-# EXT=.exe			# Windows / Cygwin
-#
-# If in doubt, use EXT=
-#
-EXT=
-#EXT=.exe
+##################################
+# Files managed by this Makefile #
+##################################
 
-# Standard and Builtin help files
-#
 STD_HELP_FILES_1= intro overview help
 STD_HELP_FILES_2= assoc
 
@@ -356,42 +199,45 @@ BLT_HELP_FILES= ${BLT_HELP_FILES_3} ${BLT_HELP_FILES_5} \
 #
 # to keep this list in nice sorted order.
 #
-DETAIL_HELP= abs access acos acosh acot acoth acsc acsch address agd \
-	append appr arg argv arrow asec asech asin asinh assign atan atan2 \
-	atanh avg base base2 bernoulli bit blk blkcpy blkfree blocks bround \
-	btrunc calc_tty calclevel calcpath catalan ceil cfappr cfsim char \
-	cmdbuf cmp comb conj cos cosh cot coth count cp csc csch ctime d2dm \
-	d2dms d2g d2r delete den dereference det digit digits display dms2d dp \
-	epsilon errcount errmax errno error estr euler eval exp fact factor \
-	fclose fcnt feof ferror fflush fgetc fgetfield fgetfile fgetline fgets \
-	fgetstr fib files floor fopen forall fpathopen fprintf fputc fputs \
-	fputstr frac free freebernoulli freeeuler freeglobals freeredc \
-	freestatics frem freopen fscan fscanf fseek fsize ftell g2d g2gm g2gms \
-	g2r gcd gcdrem gd getenv gms2g h2hm h2hms hash head highbit hmean \
-	hms2h hnrmod hypot ilog ilog10 ilog2 im indices inputlevel insert int \
-	inverse iroot isalnum isalpha isassoc isatty isblk iscntrl isconfig \
-	isdefined isdigit iserror iseven isfile isgraph ishash isident isint \
-	islist islower ismat ismult isnull isnum isobj isobjtype isodd isprime \
+DETAIL_HELP= abs access acos acosh acot acoth acovercos acoversin \
+	acrd acsc acsch address aexcsc aexsec agd ahacovercos ahacoversin \
+	ahavercos ahaversin append appr arg argv arrow asec asech asin asinh \
+	assign atan atan2 atanh avercos aversin avg base base2 bernoulli bit \
+	blk blkcpy blkfree blocks bround btrunc calc_tty calclevel calcpath \
+	cas catalan ceil cfappr cfsim char cis cmdbuf cmp comb conj cos cosh \
+	cot coth count covercos coversin cp crd csc csch ctime d2dm d2dms d2g \
+	d2r delete den dereference det digit digits display dms2d dp epsilon \
+	errcount errmax errno error errsym estr euler eval excsc exp exsec \
+	fact factor fclose fcnt feof ferror fflush fgetc fgetfield fgetfile \
+	fgetline fgets fgetstr fib files floor fopen forall fpathopen fprintf \
+	fputc fputs fputstr frac free freebernoulli freeeuler freeglobals \
+	freeredc freestatics frem freopen fscan fscanf fseek fsize ftell g2d \
+	g2gm g2gms g2r gcd gcdrem gd getenv gms2g h2hm h2hms hacovercos \
+	hacoversin hash havercos haversin head highbit hmean hms2h hnrmod \
+	hypot ilog ilog10 ilog2 im indices inputlevel insert int inverse iroot \
+	isalnum isalpha isassoc isatty isblk iscntrl isconfig isdefined \
+	isdigit iserror iseven isfile isgraph ishash isident isint islist \
+	islower ismat ismult isnull isnum isobj isobjtype isodd isprime \
 	isprint isptr ispunct isqrt isrand israndom isreal isrel issimple \
 	isspace issq isstr istype isupper isxdigit jacobi join lcm lcmfact \
-	lfactor ln log lowbit ltol makelist matdim matfill matmax matmin \
-	matsum mattrace mattrans max memsize meq min minv mmin mne mod modify \
-	name near newerror nextcand nextprime norm null num oldvalue ord param \
-	perm pfact pi pix places pmod polar poly pop popcnt pound power \
-	prevcand prevprime printf prompt protect ptest push putenv quo quomod \
-	r2d r2g rand randbit random randombit randperm rcin rcmul rcout rcpow \
-	rcsq re remove reverse rewind rm root round rsearch runtime saveval \
-	scale scan scanf search sec sech seed segment select sgn sha1 sin sinh \
-	size sizeof sleep sort sqrt srand srandom ssq stoponerror str \
+	lfactor ln log log2 logn lowbit ltol makelist matdim matfill matmax \
+	matmin matsum mattrace mattrans max memsize meq min minv mmin mne mod \
+	modify name near newerror nextcand nextprime norm null num oldvalue \
+	ord param perm pfact pi pix places pmod polar poly pop popcnt pound \
+	power prevcand prevprime printf prompt protect ptest push putenv quo \
+	quomod r2d r2g rand randbit random randombit randperm rcin rcmul rcout \
+	rcpow rcsq re remove reverse rewind rm root round rsearch runtime \
+	saveval scale scan scanf search sec sech seed segment select sgn sha1 \
+	sin sinh size sizeof sleep sort sqrt srand srandom ssq stoponerror str \
 	strcasecmp strcat strcmp strcpy strerror strlen strncasecmp strncmp \
 	strncpy strpos strprintf strscan strscanf strtolower strtoupper substr \
-	sum swap system systime tail tan tanh test time trunc usertime version \
-	xor
+	sum swap system systime tail tan tanh test time trunc usertime vercos \
+	versin version xor
 
 # This list is of files that are clones of DETAIL_HELP files.  They are
 # built from DETAIL_HELP files.
 #
-DETAIL_CLONE= copy
+DETAIL_CLONE= copy ilogn
 
 # Singular files
 #
@@ -403,20 +249,45 @@ SINGULAR_FILES= binding bug change errorcode type
 # These files are found (but not built) in the distribution
 #
 DISTLIST= ${STD_HELP_FILES} ${DETAIL_HELP} ${MAKE_FILE} \
-	obj.file builtin.top builtin.end funclist.sed \
-	errorcodes.hdr errorcodes.sed
+	obj.file builtin.top builtin.end funclist.sed
 
 # These files are used to make (but not built) a calc .a link library
 #
 CALCLIBLIST=
+
+# complete list of files that may be created as part of the build process
 #
+# Used by chk_tree via make prep
+#
+BUILD_ALL= ${BLT_HELP_FILES} ${SINGULAR_FILES} ${DETAIL_CLONE} \
+	   full funclist${EXT} funclist.c funclist.o
+
 # rules that are not also names of files
 #
-PHONY= all clobber distlist install
+PHONY= all distlist buildlist distdir calcliblist detail_help_list \
+	echo_inst_files clean clobber install uninstall
+
+
+############################################################
+# Allow Makefile.local to change any of the above settings #
+############################################################
+include ${LOCAL_MKF}
+
+
+###########################################
+# all - First and default Makefile target #
+###########################################
 
 all: ${FULL_HELP_FILES} full ${DETAIL_HELP} ${DETAIL_CLONE} \
      ${SINGULAR_FILES} .all
 
+
+###############################
+# additional Makefile targets #
+###############################
+
+.PHONY: ${PHONY}
+
 # used by the upper level Makefile to determine of we have done all
 #
 # NOTE: Due to bogus shells found on one common system we must have
@@ -426,8 +297,6 @@ all: ${FULL_HELP_FILES} full ${DETAIL_HELP} ${DETAIL_CLONE} \
 	${RM} -f .all
 	${TOUCH} .all
 
-.PHONY: ${PHONY}
-
 bindings: ../cal/bindings
 	${RM} -f $@
 	${CP} ../cal/bindings $@
@@ -501,10 +370,9 @@ contrib: ../CONTRIB-CODE
 	    ${TRUE}; \
 	fi
 
-errorcodes: ../calcerr.h errorcodes.hdr errorcodes.sed
+errorcodes: ../errcode${EXT}
 	${RM} -f $@
-	${CAT} errorcodes.hdr > $@
-	${SED} -n -f errorcodes.sed < ../calcerr.h >> $@
+	../errcode${EXT} -e > $@
 	${CHMOD} 0444 $@
 	-@if [ -z "${Q}" ]; then \
 	    echo ''; \
@@ -642,6 +510,18 @@ releases: ../README.RELEASE
 	    ${TRUE}; \
 	fi
 
+ilogn: ilog
+	${RM} -f $@
+	${CP} ilog $@
+	${CHMOD} 0444 $@
+	-@if [ -z "${Q}" ]; then \
+	    echo ''; \
+	    echo '=-=-= skipping the ${CAT} of help/$@ =-=-='; \
+	    echo ''; \
+	else \
+	    ${TRUE}; \
+	fi
+
 full: ${FULL_HELP_FILES} ${MAKE_FILE}
 	${Q} echo "forming full"
 	${Q} ${RM} -f $@
@@ -747,6 +627,13 @@ distlist: ${DISTLIST}
 	    fi; \
 	done | fgrep -v '.bak' | LANG=C ${SORT}
 
+buildlist:
+	${Q} for i in ${BUILD_ALL} /dev/null; do \
+	    if [ X"$$i" != X"/dev/null" ]; then \
+		echo help/$$i; \
+	    fi; \
+	done | fgrep -v '.bak' | LANG=C ${SORT}
+
 distdir:
 	${Q} echo help
 
@@ -767,8 +654,7 @@ detail_help_list:
 		 ! -name archive ! -name assoc ! -name builtin.end \
 		 ! -name builtin.top ! -name command ! -name config \
 		 ! -name contrib ! -name credit ! -name custom ! -name define \
-		 ! -name environment ! -name errorcodes.hdr \
-		 ! -name errorcodes.sed ! -name expression ! -name file \
+		 ! -name environment ! -name expression ! -name file \
 		 ! -name funclist.c ! -name funclist.sed ! -name help \
 		 ! -name history ! -name interrupt ! -name intro ! -name list \
 		 ! -name mat ! -name obj.file ! -name operator \

help/abs

@@ -36,7 +36,7 @@ EXAMPLE
     5 6.40312 6.4031242374
 
 LIMITS
-    none
+    when x is complex, eps != 0
 
 LINK LIBRARY
     NUMBER *qqabs(NUMBER *x)
@@ -44,7 +44,7 @@ LINK LIBRARY
 SEE ALSO
     cmp, epsilon, hypot, norm, near, obj
 
-## Copyright (C) 1999,2021  Landon Curt Noll
+## Copyright (C) 1999,2021,2023  Landon Curt Noll
 ##
 ## Calc is open software; you can redistribute it and/or modify it under
 ## the terms of the version 2.1 of the GNU Lesser General Public License

help/acos

@@ -5,31 +5,72 @@ SYNOPSIS
     acos(x [,eps])
 
 TYPES
-    x		real, -1 <= x <= 1
-    eps		nonzero real, defaults to epsilon()
+    x		number (real or complex)
+    eps		0 < real < 1, defaults to epsilon()
 
     return	real
 
 DESCRIPTION
-    Returns the acos of x to a multiple of eps with error less in
+    Returns the inverse trigonometric cosine of x to a multiple of eps with error less in
     absolute value than .75 * eps.
 
-    v = acos(x) is the number in [0, pi] for which cos(v) = x.
+    This function is sometimes called arccos.
 
 EXAMPLE
+    ; print acos(0), acos(0.5), acos(1)
+    1.57079632679489661923 1.04719755119659774615 0
+
+    ; print acos(-0.5), acos(-1)
+    2.09439510239319549231 3.14159265358979323846
+
     ; print acos(.5, 1e-5), acos(.5, 1e-10), acos(.5, 1e-15), acos(.5, 1e-20)
     1.0472 1.0471975512 1.047197551196598 1.04719755119659774615
 
+    ; print acos(5), acos(5i)
+    2.29243166956117768776i 1.57079632679489661923-2.31243834127275262025i
+
+    ; print acos(5+5i)
+    0.79039774680951249644-2.64919617780647114961i
+
+    ; pi = pi(1e-20)
+    ; print acos(pi/6), acos(pi/3)
+    1.01972674369545025075 0.30604210861326573755i
+
+    ; print acos(4*pi/3)
+    2.11099630859669864896i
+
 LIMITS
-    none
+    0 < eps < 1
 
 LINK LIBRARY
     NUMBER *qacos(NUMBER *x, NUMBER *eps)
+    COMPLEX *c_acos(COMPLEX *c, NUMBER *epsilon)
 
 SEE ALSO
-    asin, atan, asec, acsc, acot, epsilon
+    sin, cos, tan, cot, sec, csc
+    asin, atan, acot, asec, acsc
+    versin, coversin, vercos, covercos
+    aversin, acoversin, avercos, acovercos
+    haversin, hacoversin, havercos, hacovercos
+    ahaversin, hacoversin, havercos, ahacovercos
+    exsec, aexsec, excsc, aexcsc
+    crd, acrd
+    cas, cis
+    epsilon
 
-## Copyright (C) 1999  Landon Curt Noll
+EXTERNAL RESOURCES
+    For general information on trigonometric functions, see:
+
+	https://en.wikipedia.org/wiki/Trigonometric_functions#Unit-circle_definitions
+	https://en.wikipedia.org/wiki/Versine
+	https://en.wikipedia.org/wiki/Exsecant
+	https://en.wikipedia.org/wiki/Inverse_trigonometric_functions
+	https://en.wikipedia.org/wiki/Chord_(geometry)
+	https://en.wikipedia.org/wiki/Secant_line
+	https://en.wikipedia.org/wiki/Hartley_transform#cas
+	https://en.wikipedia.org/wiki/Cis_(mathematics)
+
+## Copyright (C) 1999,2023  Landon Curt Noll
 ##
 ## Calc is open software; you can redistribute it and/or modify it under
 ## the terms of the version 2.1 of the GNU Lesser General Public License

help/acosh

@@ -6,7 +6,7 @@ SYNOPSIS
 
 TYPES
     x		real, x >= 1
-    eps		nonzero real, defaults to epsilon()
+    eps		0 < real < 1, defaults to epsilon()
 
     return	nonnegative real
 
@@ -24,15 +24,17 @@ EXAMPLE
     1.31696 1.3169578969 1.316957896924817 1.31695789692481670862
 
 LIMITS
-    none
+    0 < eps < 1
 
 LINK LIBRARY
     NUMBER *qacosh(NUMBER *x, NUMBER *eps)
 
 SEE ALSO
-    asinh, atanh, asech, acsch, acoth, epsilon
+    sinh, cosh, tanh, coth, sech, csch
+    asinh, atanh, acoth, asech, acsch
+    epsilon
 
-## Copyright (C) 1999  Landon Curt Noll
+## Copyright (C) 1999,2023  Landon Curt Noll
 ##
 ## Calc is open software; you can redistribute it and/or modify it under
 ## the terms of the version 2.1 of the GNU Lesser General Public License

help/acot

@@ -5,31 +5,72 @@ SYNOPSIS
     acot(x [,eps])
 
 TYPES
-    x		real
-    eps		nonzero real, defaults to epsilon()
+    x		number (real or complex)
+    eps		0 < real < 1, defaults to epsilon()
 
     return	real
 
 DESCRIPTION
-    Returns the acot of x to a multiple of eps with error less in
+    Returns the inverse trigonometric cotangent of x to a multiple of eps with error less in
     absolute value than .75 * eps.
 
-    v = acot(x) is the number in (0, pi) for which cot(v) = x.
+    This function is sometimes called arccot.
 
 EXAMPLE
-    ; print acot(2, 1e-5),  acot(2, 1e-10), acot(2, 1e-15), acot(2, 1e-20)
-    0.46365 0.463647609 0.463647609000806 0.46364760900080611621
+    ; print acot(0), acot(0.5), acot(1)
+    1.57079632679489661923 1.10714871779409050302 0.78539816339744830962
+
+    ; print acot(-0.5), acot(-1)
+    2.03444393579570273544 2.35619449019234492885
+
+    ; print acot(.5, 1e-5), acot(.5, 1e-10), acot(.5, 1e-15), acot(.5, 1e-20)
+    1.10715 1.1071487178 1.107148717794091 1.10714871779409050302
+
+    ; print acot(5), acot(5i)
+    0.19739555984988075837 -0.20273255405408219099i
+
+    ; print acot(5+5i)
+    0.10065855418732038003-0.09932544936725086122i
+
+    ; pi = pi(1e-20)
+    ; print acot(pi/6), acot(pi/3)
+    1.08844841969387164375 0.76234753416487458792
+
+    ; print acot(4*pi/3)
+    0.23434608748833616077
 
 LIMITS
-    none
+    0 < eps < 1
 
 LINK LIBRARY
     NUMBER *qacot(NUMBER *x, NUMBER *eps)
+    COMPLEX *c_acot(COMPLEX *c, NUMBER *epsilon)
 
 SEE ALSO
-    asin, acos, atan, asec, acsc, epsilon
+    sin, cos, tan, cot, sec, csc
+    asin, acos, atan, asec, acsc
+    versin, coversin, vercos, covercos
+    aversin, acoversin, avercos, acovercos
+    haversin, hacoversin, havercos, hacovercos
+    ahaversin, hacoversin, havercos, ahacovercos
+    exsec, aexsec, excsc, aexcsc
+    crd, acrd
+    cas, cis
+    epsilon
 
-## Copyright (C) 1999,2021  Landon Curt Noll
+EXTERNAL RESOURCES
+    For general information on trigonometric functions, see:
+
+	https://en.wikipedia.org/wiki/Trigonometric_functions#Unit-circle_definitions
+	https://en.wikipedia.org/wiki/Versine
+	https://en.wikipedia.org/wiki/Exsecant
+	https://en.wikipedia.org/wiki/Inverse_trigonometric_functions
+	https://en.wikipedia.org/wiki/Chord_(geometry)
+	https://en.wikipedia.org/wiki/Secant_line
+	https://en.wikipedia.org/wiki/Hartley_transform#cas
+	https://en.wikipedia.org/wiki/Cis_(mathematics)
+
+## Copyright (C) 1999,2021,2023  Landon Curt Noll
 ##
 ## Calc is open software; you can redistribute it and/or modify it under
 ## the terms of the version 2.1 of the GNU Lesser General Public License

help/acoth

@@ -6,7 +6,7 @@ SYNOPSIS
 
 TYPES
     x		real, with abs(x) > 1
-    eps		nonzero real, defaults to epsilon()
+    eps		0 < real < 1, defaults to epsilon()
 
     return	real
 
@@ -23,15 +23,17 @@ EXAMPLE
     0.54931 0.5493061443 0.549306144334055 0.5493061443340548457
 
 LIMITS
-    none
+    0 < eps < 1
 
 LINK LIBRARY
     NUMBER *qacoth(NUMBER *x, NUMBER *eps)
 
 SEE ALSO
-    asinh, acosh, atanh, asech, acsch, epsilon
+    sinh, cosh, tanh, coth, sech, csch
+    asinh, acosh, atanh, asech, acsch
+    epsilon
 
-## Copyright (C) 1999,2021  Landon Curt Noll
+## Copyright (C) 1999,2021,2023  Landon Curt Noll
 ##
 ## Calc is open software; you can redistribute it and/or modify it under
 ## the terms of the version 2.1 of the GNU Lesser General Public License

help/acovercos

@@ -0,0 +1,92 @@
+NAME
+    acovercos - inverse coversed trigonometric cosine
+
+SYNOPSIS
+    acovercos(x [,eps])
+
+TYPES
+    x		number (real or complex)
+    eps		0 < real < 1, defaults to epsilon()
+
+    return	number
+
+DESCRIPTION
+    Calculate the inverse coversed trigonometric cosine of x to a multiple of eps with error less in
+    absolute value than .75 * eps.
+
+    This function is sometimes called acvc, or arccovercos, is equivalent to:
+
+	acovercos(x) = asin(x - 1)
+
+EXAMPLE
+    ; print acovercos(0), acovercos(0.5), acovercos(1)
+    1.57079632679489661923 0.52359877559829887308 0
+
+    ; print acovercos(-0.5), acovercos(-1)
+    -1.57079632679489661923+0.96242365011920689498i -1.57079632679489661923+1.31695789692481670863i
+
+    ; print acovercos(.5, 1e-5), acovercos(.5, 1e-10), acovercos(.5, 1e-15), acovercos(.5, 1e-20)
+    0.5236 0.5235987756 0.523598775598299 0.52359877559829887308
+
+    ; print acovercos(5), acovercos(5i)
+    1.57079632679489661923-2.06343706889556054673i -0.19379313655493218978+2.33097465304931241744i
+
+    ; print acovercos(5+5i)
+    0.66881657532592728975+2.5513216254756988588i
+
+    ; pi = pi(1e-20)
+    ; print acovercos(pi/6), acovercos(pi/3), acovercos(4*pi/3)
+    0.49655704344777825545 -0.04721509173238348552 1.57079632679489661923-1.82724307729474887791i
+
+LIMITS
+    0 < eps < 1
+
+LINK LIBRARY
+    NUMBER *qacovercos(NUMBER *x, NUMBER *eps)
+    COMPLEX *c_acovercos(COMPLEX *x, NUMBER *eps)
+
+SEE ALSO
+    sin, cos, tan, cot, sec, csc
+    asin, acos, atan, acot, asec, acsc
+    versin, coversin, vercos, covercos
+    aversin, acoversin, avercos
+    haversin, hacoversin, havercos, hacovercos
+    ahaversin, hacoversin, havercos, ahacovercos
+    exsec, aexsec, excsc, aexcsc
+    crd, acrd
+    cas, cis
+    epsilon
+
+EXTERNAL RESOURCES
+    For general information on trigonometric functions, see:
+
+	https://en.wikipedia.org/wiki/Trigonometric_functions#Unit-circle_definitions
+	https://en.wikipedia.org/wiki/Versine
+	https://en.wikipedia.org/wiki/Exsecant
+	https://en.wikipedia.org/wiki/Inverse_trigonometric_functions
+	https://en.wikipedia.org/wiki/Chord_(geometry)
+	https://en.wikipedia.org/wiki/Secant_line
+	https://en.wikipedia.org/wiki/Hartley_transform#cas
+	https://en.wikipedia.org/wiki/Cis_(mathematics)
+
+## Copyright (C) 2023  Landon Curt Noll
+##
+## Calc is open software; you can redistribute it and/or modify it under
+## the terms of the version 2.1 of the GNU Lesser General Public License
+## as published by the Free Software Foundation.
+##
+## Calc is distributed in the hope that it will be useful, but WITHOUT
+## ANY WARRANTY; without even the implied warranty of MERCHANTABILITY
+## or FITNESS FOR A PARTICULAR PURPOSE.	 See the GNU Lesser General
+## Public License for more details.
+##
+## A copy of version 2.1 of the GNU Lesser General Public License is
+## distributed with calc under the filename COPYING-LGPL.  You should have
+## received a copy with calc; if not, write to Free Software Foundation, Inc.
+## 51 Franklin Street, Fifth Floor, Boston, MA  02110-1301, USA.
+##
+## Under source code control:	2023/09/05 23:30:08
+## File existed as early as:	2023
+##
+## chongo <was here> /\oo/\	http://www.isthe.com/chongo/
+## Share and enjoy!  :-)	http://www.isthe.com/chongo/tech/comp/calc/

help/acoversin

@@ -0,0 +1,92 @@
+NAME
+    acoversin - inverse coversed trigonometric sine
+
+SYNOPSIS
+    acoversin(x [,eps])
+
+TYPES
+    x		number (real or complex)
+    eps		0 < real < 1, defaults to epsilon()
+
+    return	number
+
+DESCRIPTION
+    Calculate the inverse coversed trigonometric sine of x to a multiple of eps with error less in
+    absolute value than .75 * eps.
+
+    This function is sometimes called acovers, or acvs, or arccoversin, is equivalent to:
+
+	acoversin(x) = asin(1 - x)
+
+EXAMPLE
+    ; print acoversin(0), acoversin(0.5), acoversin(1)
+    1.57079632679489661923 0.52359877559829887308 0
+
+    ; print acoversin(-0.5), acoversin(-1)
+    1.57079632679489661923-0.96242365011920689499i 1.57079632679489661923-1.31695789692481670863i
+
+    ; print acoversin(.5, 1e-5), acoversin(.5, 1e-10), acoversin(.5, 1e-15), acoversin(.5, 1e-20)
+    0.5236 0.5235987756 0.523598775598299 0.52359877559829887308
+
+    ; print acoversin(5), acoversin(5i)
+    -1.57079632679489661923+2.06343706889556054673i 0.19379313655493218978-2.33097465304931241744i
+
+    ; print acoversin(5+5i)
+    -0.66881657532592728975-2.5513216254756988588i
+
+    ; pi = pi(1e-20)
+    ; print acoversin(pi/6), acoversin(pi/3), acoversin(4*pi/3)
+    0.49655704344777825545 -0.04721509173238348552 -1.57079632679489661923+1.82724307729474887792i
+
+LIMITS
+    0 < eps < 1
+
+LINK LIBRARY
+    NUMBER *qacoversin(NUMBER *x, NUMBER *eps)
+    COMPLEX *c_acoversin(COMPLEX *x, NUMBER *eps)
+
+SEE ALSO
+    sin, cos, tan, cot, sec, csc
+    asin, acos, atan, acot, asec, acsc
+    versin, coversin, vercos, covercos
+    aversin, avercos, acovercos
+    haversin, hacoversin, havercos, hacovercos
+    ahaversin, hacoversin, havercos, ahacovercos
+    exsec, aexsec, excsc, aexcsc
+    crd, acrd
+    cas, cis
+    epsilon
+
+EXTERNAL RESOURCES
+    For general information on trigonometric functions, see:
+
+	https://en.wikipedia.org/wiki/Trigonometric_functions#Unit-circle_definitions
+	https://en.wikipedia.org/wiki/Versine
+	https://en.wikipedia.org/wiki/Exsecant
+	https://en.wikipedia.org/wiki/Inverse_trigonometric_functions
+	https://en.wikipedia.org/wiki/Chord_(geometry)
+	https://en.wikipedia.org/wiki/Secant_line
+	https://en.wikipedia.org/wiki/Hartley_transform#cas
+	https://en.wikipedia.org/wiki/Cis_(mathematics)
+
+## Copyright (C) 2023  Landon Curt Noll
+##
+## Calc is open software; you can redistribute it and/or modify it under
+## the terms of the version 2.1 of the GNU Lesser General Public License
+## as published by the Free Software Foundation.
+##
+## Calc is distributed in the hope that it will be useful, but WITHOUT
+## ANY WARRANTY; without even the implied warranty of MERCHANTABILITY
+## or FITNESS FOR A PARTICULAR PURPOSE.	 See the GNU Lesser General
+## Public License for more details.
+##
+## A copy of version 2.1 of the GNU Lesser General Public License is
+## distributed with calc under the filename COPYING-LGPL.  You should have
+## received a copy with calc; if not, write to Free Software Foundation, Inc.
+## 51 Franklin Street, Fifth Floor, Boston, MA  02110-1301, USA.
+##
+## Under source code control:	2023/08/31 23:07:08
+## File existed as early as:	2023
+##
+## chongo <was here> /\oo/\	http://www.isthe.com/chongo/
+## Share and enjoy!  :-)	http://www.isthe.com/chongo/tech/comp/calc/

help/acrd

@@ -0,0 +1,89 @@
+NAME
+    acrd - inverse trigonometric chord of a unit circle
+
+SYNOPSIS
+    acrd(x [,eps])
+
+TYPES
+    x		number (real or complex)
+    eps		0 < real < 1, defaults to epsilon()
+
+    return	number
+
+DESCRIPTION
+    Calculate angle of unit circle chord of length x to a multiple of eps with error less in
+    absolute value than .75 * eps.
+
+    A chord of a circle is a straight line segment whose endpoints lie on a arc of a circle.
+    A chord extended infinitely on both directions into a line would produce a secant line.
+
+    This function is sometimes called chord, is equivalent to:
+
+	acrd(x) = 2 * asin(x / 2)
+
+EXAMPLE
+    ; print acrd(1/2), acrd(5/7), acrd(42/7)
+    0.50536051028415730696 0.73041444258073348124 3.14159265358979323846-3.52549434807817210092i
+
+    ; print acrd(1, 1e-5), acrd(1, 1e-10), acrd(1, 1e-15), acrd(1, 1e-20)
+    1.0472 1.0471975512 1.047197551196598 1.04719755119659774616
+
+    ; print acrd(2 + 3i, 1e-5), acrd(2 + 3i, 1e-10)
+    1.0472+2.63392i 1.0471975512+2.6339157938i
+
+    ; pi = pi(1e-20)
+    ; print acrd(pi/6), acrd(pi/2), acrd(pi)
+    0.52977229404847186194 1.80667822153302569472 3.14159265358979323846-2.04645495709510115864i
+
+LIMITS
+    0 < eps < 1
+
+LINK LIBRARY
+    NUMBER *qacrd(NUMBER *x, NUMBER *eps)
+    COMPLEX *c_acrd(COMPLEX *x, NUMBER *eps)
+
+SEE ALSO
+    sin, cos, tan, cot, sec, csc
+    asin, acos, atan, acot, asec, acsc
+    coversin, vercos, covercos
+    aversin, acoversin, avercos, acovercos
+    haversin, hacoversin, havercos, hacovercos
+    ahaversin, hacoversin, havercos, ahacovercos
+    exsec, aexsec, excsc, aexcsc
+    crd
+    cas, cis
+    epsilon
+
+EXTERNAL RESOURCES
+    For general information on trigonometric functions, see:
+
+	https://en.wikipedia.org/wiki/Trigonometric_functions#Unit-circle_definitions
+	https://en.wikipedia.org/wiki/Versine
+	https://en.wikipedia.org/wiki/Exsecant
+	https://en.wikipedia.org/wiki/Inverse_trigonometric_functions
+	https://en.wikipedia.org/wiki/Chord_(geometry)
+	https://en.wikipedia.org/wiki/Secant_line
+	https://en.wikipedia.org/wiki/Hartley_transform#cas
+	https://en.wikipedia.org/wiki/Cis_(mathematics)
+
+## Copyright (C) 2023  Landon Curt Noll
+##
+## Calc is open software; you can redistribute it and/or modify it under
+## the terms of the version 2.1 of the GNU Lesser General Public License
+## as published by the Free Software Foundation.
+##
+## Calc is distributed in the hope that it will be useful, but WITHOUT
+## ANY WARRANTY; without even the implied warranty of MERCHANTABILITY
+## or FITNESS FOR A PARTICULAR PURPOSE.	 See the GNU Lesser General
+## Public License for more details.
+##
+## A copy of version 2.1 of the GNU Lesser General Public License is
+## distributed with calc under the filename COPYING-LGPL.  You should have
+## received a copy with calc; if not, write to Free Software Foundation, Inc.
+## 51 Franklin Street, Fifth Floor, Boston, MA  02110-1301, USA.
+##
+## Under source code control:	2023/10/02 16:49:42
+## File existed as early as:	2023
+##
+## chongo <was here> /\oo/\	http://www.isthe.com/chongo/
+## Share and enjoy!  :-)	http://www.isthe.com/chongo/tech/comp/calc/

help/acsc

@@ -5,31 +5,75 @@ SYNOPSIS
     acsc(x [,eps])
 
 TYPES
-    x		real, with absolute value >= 1
-    eps		nonzero real, defaults to epsilon()
+    x		number (real or complex)
+    eps		0 < real < 1, defaults to epsilon()
 
     return	real
 
 DESCRIPTION
-    Returns the acsc of x to a multiple of eps with error less in
+    Returns the inverse trigonometric cosecant of x to a multiple of eps with error less in
     absolute value than .75 * eps.
 
-    v = acsc(x) is the number in [-pi/2, pi/2] for which csc(v) = x.
+    This function is sometimes called arccsc.
 
 EXAMPLE
-    ; print acsc(2, 1e-5), acsc(2, 1e-10), acsc(2, 1e-15), acsc(2, 1e-20)
-    0.5236 0.5235987756 0.523598775598299 0.52359877559829887308
+    ; print acsc(0), acsc(0.5), acsc(1)
+    Error E_ACSC_3 1.57079632679489661923-1.31695789692481670863i 1.57079632679489661923
+
+    ; print acsc(-0.5), acsc(-1)
+    -1.57079632679489661923+1.31695789692481670863i -1.57079632679489661923
+
+    ; print acsc(.5, 1e-5), acsc(.5, 1e-10), acsc(.5, 1e-15)
+    1.5708-1.31696i 1.5707963268-1.3169578969i 1.570796326794897-1.316957896924817i
+
+    ; print acsc(.5, 1e-20)
+    1.57079632679489661923-1.31695789692481670863i
+
+    ; print acsc(5), acsc(5i)
+    0.20135792079033079145 -0.19869011034924140648i
+
+    ; print acsc(5+5i)
+    0.09966370285979516002-0.10033029811220500594i
+
+    ; pi = pi(1e-20)
+    ; print acsc(pi/6), acsc(pi/3)
+    1.57079632679489661923-1.26327680856656556834i 1.2694227170496051647
+
+    ; print acsc(4*pi/3)
+    0.24106031273407362824
 
 LIMITS
-    none
+    0 < eps < 1
 
 LINK LIBRARY
     NUMBER *qacsc(NUMBER *x, NUMBER *eps)
+    COMPLEX *c_acsc(COMPLEX *c, NUMBER *epsilon)
 
 SEE ALSO
-    asin, acos, atan, asec, acot, epsilon
+    sin, cos, tan, cot, sec, csc
+    asin, acos, atan, acot, asec
+    versin, coversin, vercos, covercos
+    aversin, acoversin, avercos, acovercos
+    haversin, hacoversin, havercos, hacovercos
+    ahaversin, hacoversin, havercos, ahacovercos
+    exsec, aexsec, excsc, aexcsc
+    crd, acrd
+    cas, cis
+    epsilon
 
-## Copyright (C) 1999,2021  Landon Curt Noll
+EXTERNAL RESOURCES
+    For general information on trigonometric functions, see:
+
+	https://en.wikipedia.org/wiki/Trigonometric_functions#Unit-circle_definitions
+	https://en.wikipedia.org/wiki/Versine
+	https://en.wikipedia.org/wiki/Exsecant
+	https://en.wikipedia.org/wiki/Inverse_trigonometric_functions
+	https://en.wikipedia.org/wiki/Chord_(geometry)
+	https://en.wikipedia.org/wiki/Secant_line
+	https://en.wikipedia.org/wiki/Hartley_transform#cas
+	https://en.wikipedia.org/wiki/Cis_(mathematics)
+
+## Copyright (C) 1999,2021,2023  Landon Curt Noll
 ##
 ## Calc is open software; you can redistribute it and/or modify it under
 ## the terms of the version 2.1 of the GNU Lesser General Public License

help/acsch

@@ -6,7 +6,7 @@ SYNOPSIS
 
 TYPES
     x		nonzero real
-    eps		nonzero real, defaults to epsilon()
+    eps		0 < real < 1, defaults to epsilon()
 
     return	real
 
@@ -23,15 +23,17 @@ EXAMPLE
     0.48121 0.4812118251 0.481211825059603 0.4812118250596034475
 
 LIMITS
-    none
+    0 < eps < 1
 
 LINK LIBRARY
     NUMBER *qacsch(NUMBER *x, NUMBER *eps)
 
 SEE ALSO
-    asinh, acosh, atanh, asech, acoth, epsilon
+    sinh, cosh, tanh, coth, sech, csch
+    asinh, acosh, atanh, acoth, asech
+    epsilon
 
-## Copyright (C) 1999,2021  Landon Curt Noll
+## Copyright (C) 1999,2021,2023  Landon Curt Noll
 ##
 ## Calc is open software; you can redistribute it and/or modify it under
 ## the terms of the version 2.1 of the GNU Lesser General Public License

help/aexcsc

@@ -0,0 +1,98 @@
+NAME
+    aexcsc - inverse exterior trigonometric cosecant
+
+SYNOPSIS
+    aexcsc(x [,eps])
+
+TYPES
+    x		number (real or complex)
+    eps		0 < real < 1, defaults to epsilon()
+
+    return	real
+
+DESCRIPTION
+    Returns the inverse exterior trigonometric cscant of x to a multiple of eps with error less in
+    absolute value than .75 * eps.
+
+    This function is sometimes called arcexcsc, is equivalent to:
+
+	aexcsc(x) = acsc(x + 1)
+
+EXAMPLE
+    ; print aexcsc(0), aexcsc(0.5), aexcsc(1)
+    1.57079632679489661923 0.72972765622696636345 0.52359877559829887308
+
+    ; print aexcsc(-0.5), aexcsc(-1)
+    1.57079632679489661923-1.31695789692481670863i Error E_AEXCSC_3
+
+    ; print aexcsc(.5, 1e-5), aexcsc(.5, 1e-10), aexcsc(.5, 1e-15)
+    0.72973 0.7297276562 0.729727656226966
+
+    ; print aexcsc(.5, 1e-20)
+    0.72972765622696636345
+
+    ; print aexcsc(5), aexcsc(5i)
+    0.16744807921968933055 0.03777750167037411869-0.19127650074191792629i
+
+    ; print aexcsc(5+5i)
+    0.09818639956668015454-0.08227107131216428877i
+
+    ; pi = pi(1e-20)
+    ; print aexcsc(pi/6), aexcsc(pi/3)
+    0.7159583700300961063 0.51033850088317613655
+
+    ; print aexcsc(4*pi/3)
+    0.19393657131001704582
+
+LIMITS
+    0 < eps < 1
+
+LINK LIBRARY
+    NUMBER *qaexcsc(NUMBER *x, NUMBER *eps)
+    COMPLEX *c_aexcsc(COMPLEX *c, NUMBER *epsilon)
+
+SEE ALSO
+    sin, cos, tan, cot, sec, csc
+    asin, acos, atan, acot, asec, acsc
+    versin, coversin, vercos, covercos
+    aversin, acoversin, avercos, acovercos
+    haversin, hacoversin, havercos, hacovercos
+    ahaversin, hacoversin, havercos, ahacovercos
+    exsec, aexsec, excsc
+    crd, acrd
+    cas, cis
+    epsilon
+
+EXTERNAL RESOURCES
+    For general information on trigonometric functions, see:
+
+	https://en.wikipedia.org/wiki/Trigonometric_functions#Unit-circle_definitions
+	https://en.wikipedia.org/wiki/Versine
+	https://en.wikipedia.org/wiki/Exsecant
+	https://en.wikipedia.org/wiki/Inverse_trigonometric_functions
+	https://en.wikipedia.org/wiki/Chord_(geometry)
+	https://en.wikipedia.org/wiki/Secant_line
+	https://en.wikipedia.org/wiki/Hartley_transform#cas
+	https://en.wikipedia.org/wiki/Cis_(mathematics)
+
+## Copyright (C) 2023  Landon Curt Noll
+##
+## Calc is open software; you can redistribute it and/or modify it under
+## the terms of the version 2.1 of the GNU Lesser General Public License
+## as published by the Free Software Foundation.
+##
+## Calc is distributed in the hope that it will be useful, but WITHOUT
+## ANY WARRANTY; without even the implied warranty of MERCHANTABILITY
+## or FITNESS FOR A PARTICULAR PURPOSE.	 See the GNU Lesser General
+## Public License for more details.
+##
+## A copy of version 2.1 of the GNU Lesser General Public License is
+## distributed with calc under the filename COPYING-LGPL.  You should have
+## received a copy with calc; if not, write to Free Software Foundation, Inc.
+## 51 Franklin Street, Fifth Floor, Boston, MA  02110-1301, USA.
+##
+## Under source code control:	2023/09/30 23:22:21
+## File existed as early as:	2023
+##
+## chongo <was here> /\oo/\	http://www.isthe.com/chongo/
+## Share and enjoy!  :-)	http://www.isthe.com/chongo/tech/comp/calc/

help/aexsec

@@ -0,0 +1,95 @@
+NAME
+    aexsec - inverse exterior trigonometric secant
+
+SYNOPSIS
+    aexsec(x [,eps])
+
+TYPES
+    x		number (real or complex)
+    eps		0 < real < 1, defaults to epsilon()
+
+    return	real
+
+DESCRIPTION
+    Returns the inverse trigonometric secant of x to a multiple of eps with error less in
+    absolute value than .75 * eps.
+
+    This function is sometimes called arcexsec, is equivalent to:
+
+	aexsec(x) = asec(x + 1)
+
+EXAMPLE
+    ; print aexsec(0), aexsec(0.5), aexsec(1)
+    0 0.84106867056793025578 1.04719755119659774615
+
+    ; print aexsec(-0.5), aexsec(-1)
+    1.31695789692481670863i Error E_AEXSEC_3
+
+    ; print aexsec(.5, 1e-5), aexsec(.5, 1e-10), aexsec(.5, 1e-15), aexsec(.5, 1e-20)
+    0.84107 0.8410686706 0.84106867056793 0.84106867056793025578
+
+    ; print aexsec(5), aexsec(5i)
+    1.40334824757520728868 1.53301882512452250055+0.1912765007419179263i
+
+    ; print aexsec(5+5i)
+    1.4726099272282164647+0.08227107131216428876i
+
+    ; pi = pi(1e-20)
+    ; print aexsec(pi/6), aexsec(pi/3)
+    0.85483795676480051293 1.06045782591172048268
+
+    ; print aexsec(4*pi/3)
+    1.37685975548487957341
+
+LIMITS
+    0 < eps < 1
+
+LINK LIBRARY
+    NUMBER *qaexsec(NUMBER *x, NUMBER *eps)
+    COMPLEX *c_aexsec(COMPLEX *c, NUMBER *epsilon)
+
+SEE ALSO
+    sin, cos, tan, cot, sec, csc
+    asin, acos, atan, acot, asec, acsc
+    versin, coversin, vercos, covercos
+    aversin, acoversin, avercos, acovercos
+    haversin, hacoversin, havercos, hacovercos
+    ahaversin, hacoversin, havercos, ahacovercos
+    exsec, excsc, aexcsc
+    crd, acrd
+    cas, cis
+    epsilon
+
+EXTERNAL RESOURCES
+    For general information on trigonometric functions, see:
+
+	https://en.wikipedia.org/wiki/Trigonometric_functions#Unit-circle_definitions
+	https://en.wikipedia.org/wiki/Versine
+	https://en.wikipedia.org/wiki/Exsecant
+	https://en.wikipedia.org/wiki/Inverse_trigonometric_functions
+	https://en.wikipedia.org/wiki/Chord_(geometry)
+	https://en.wikipedia.org/wiki/Secant_line
+	https://en.wikipedia.org/wiki/Hartley_transform#cas
+	https://en.wikipedia.org/wiki/Cis_(mathematics)
+
+## Copyright (C) 2023  Landon Curt Noll
+##
+## Calc is open software; you can redistribute it and/or modify it under
+## the terms of the version 2.1 of the GNU Lesser General Public License
+## as published by the Free Software Foundation.
+##
+## Calc is distributed in the hope that it will be useful, but WITHOUT
+## ANY WARRANTY; without even the implied warranty of MERCHANTABILITY
+## or FITNESS FOR A PARTICULAR PURPOSE.	 See the GNU Lesser General
+## Public License for more details.
+##
+## A copy of version 2.1 of the GNU Lesser General Public License is
+## distributed with calc under the filename COPYING-LGPL.  You should have
+## received a copy with calc; if not, write to Free Software Foundation, Inc.
+## 51 Franklin Street, Fifth Floor, Boston, MA  02110-1301, USA.
+##
+## Under source code control:	2023/10/01 00:20:20
+## File existed as early as:	2023
+##
+## chongo <was here> /\oo/\	http://www.isthe.com/chongo/
+## Share and enjoy!  :-)	http://www.isthe.com/chongo/tech/comp/calc/

help/ahacovercos

@@ -0,0 +1,95 @@
+NAME
+    ahacovercos - inverse half coversed trigonometric cosine
+
+SYNOPSIS
+    ahacovercos(x [,eps])
+
+TYPES
+    x		number (real or complex)
+    eps		0 < real < 1, defaults to epsilon()
+
+    return	number
+
+DESCRIPTION
+    Calculate the inverse half coversed trigonometric cosine of x to a multiple of eps with error less in
+    absolute value than .75 * eps.
+
+    This function is sometimes called ahacvc, or archacovercos, or archacovercosine, is equivalent to:
+
+	ahacovercos(x) = asin(2*x - 1)
+
+EXAMPLE
+    ; print ahacovercos(0), ahacovercos(0.5), ahacovercos(1)
+    -1.57079632679489661923 0 1.57079632679489661923
+
+    ; print ahacovercos(-0.5), ahacovercos(-1)
+    -1.57079632679489661923+1.31695789692481670863i -1.57079632679489661923+1.76274717403908605045i
+
+    ; print ahacovercos(.5, 1e-5), ahacovercos(.5, 1e-10), ahacovercos(.5, 1e-15), ahacovercos(.5, 1e-20)
+    0 0 0 0
+
+    ; print ahacovercos(5), ahacovercos(5i)
+    1.57079632679489661923-2.88727095035762068499i -0.09918204387849273625+3.00312524371312921749i
+
+    ; print ahacovercos(5+5i)
+    0.73144212314418701068+3.29254348147605425075i
+
+    ; pi = pi(1e-20)
+    ; print ahacovercos(pi/6), ahacovercos(pi/3)
+    0.04721509173238348552 1.57079632679489661923-0.4311526751624601302i
+
+    ; print ahacovercos(4*pi/3)
+    1.57079632679489661923-2.68696776930293700505i
+
+LIMITS
+    0 < eps < 1
+
+LINK LIBRARY
+    NUMBER *qahacovercos(NUMBER *x, NUMBER *eps)
+    COMPLEX *c_ahacovercos(COMPLEX *x, NUMBER *eps)
+
+SEE ALSO
+    sin, cos, tan, cot, sec, csc
+    asin, acos, atan, acot, asec, acsc
+    versin, coversin, vercos, covercos
+    aversin, acoversin, avercos, acovercos
+    haversin, hacoversin, havercos, hacovercos
+    ahaversin, hacoversin, havercos
+    exsec, aexsec, excsc, aexcsc
+    crd, acrd
+    cas, cis
+    epsilon
+
+EXTERNAL RESOURCES
+    For general information on trigonometric functions, see:
+
+	https://en.wikipedia.org/wiki/Trigonometric_functions#Unit-circle_definitions
+	https://en.wikipedia.org/wiki/Versine
+	https://en.wikipedia.org/wiki/Exsecant
+	https://en.wikipedia.org/wiki/Inverse_trigonometric_functions
+	https://en.wikipedia.org/wiki/Chord_(geometry)
+	https://en.wikipedia.org/wiki/Secant_line
+	https://en.wikipedia.org/wiki/Hartley_transform#cas
+	https://en.wikipedia.org/wiki/Cis_(mathematics)
+
+## Copyright (C) 2023  Landon Curt Noll
+##
+## Calc is open software; you can redistribute it and/or modify it under
+## the terms of the version 2.1 of the GNU Lesser General Public License
+## as published by the Free Software Foundation.
+##
+## Calc is distributed in the hope that it will be useful, but WITHOUT
+## ANY WARRANTY; without even the implied warranty of MERCHANTABILITY
+## or FITNESS FOR A PARTICULAR PURPOSE.	 See the GNU Lesser General
+## Public License for more details.
+##
+## A copy of version 2.1 of the GNU Lesser General Public License is
+## distributed with calc under the filename COPYING-LGPL.  You should have
+## received a copy with calc; if not, write to Free Software Foundation, Inc.
+## 51 Franklin Street, Fifth Floor, Boston, MA  02110-1301, USA.
+##
+## Under source code control:	2023/09/24 11:16:08
+## File existed as early as:	2023
+##
+## chongo <was here> /\oo/\	http://www.isthe.com/chongo/
+## Share and enjoy!  :-)	http://www.isthe.com/chongo/tech/comp/calc/