Zero out allocated memory

modified:   app/lib/ntext.cpp
	modified:   app/main/lexer.cpp
	modified:   app/system/language.cpp
	modified:   app/system/language_posix.cpp
	modified:   app/system/preferences_stdc.cpp
	modified:   lib/real/pow.c
	modified:   lib/platform.h

.gitignore

@@ -17,3 +17,4 @@ doxygen.warn
 *.deb
 *.zip
 Makefile
+/dist

.vscode/c_cpp_properties.json

@@ -0,0 +1,19 @@
+{
+    "configurations": [
+        {
+            "name": "amiga",
+            "includePath": [
+                "/opt/amiga/m68k-amigaos/ndk-include/",
+                "/opt/amiga/m68k-amigaos/clib2/include/",
+                "${workspaceFolder}/src/lib/"
+            ],
+            "defines": ["AMIGA"],
+            "compilerPath": "/opt/amiga/bin/m68k-amigaos-gcc",
+            "cStandard": "c99",
+            "cppStandard": "c++98",
+            "intelliSenseMode": "${default}",
+            "compilerArgs": []
+        }
+    ],
+    "version": 4
+}

HISTORY

@@ -1,6 +1,12 @@
 amath release history
 
-v1.8.4 August 05 2017
+v1.9.0 January 11 2021
+- AmigaOS ARexx interface.
+
+v1.8.5 August 07 2018
+- Fix build on compilers with broken endian detection.
+
+v1.8.4 August 05 2018
 - Ignore casing in hexadecimal numbers.
 
 v1.8.3 July 21 2017
@@ -105,7 +111,7 @@ v1.5.3 October 26 2014
 v1.5.2 October 11 2014
 - Modified character handling code to comply with licenses.
 - Modified complex math code to comply with licenses.
-- Modified code base to work with Kickstart 2.04. 
+- Modified code base to work with Kickstart 2.04.
 - Square root of negative numbers now yields correct result.
 - Implemented scientific notation of numbers.
 - Infinity is now shown in division with 0.

LICENSE

@@ -1,5 +1,5 @@
 
-Copyright (c) 2014-2018 Carsten Sonne Larsen <cs@innolan.net>
+Copyright (c) 2014-2021 Carsten Sonne Larsen <cs@innolan.net>
 Copyright (c) 2007 The NetBSD Foundation, Inc.
 Copyright (c) 1990, 1993 The Regents of the University of California.
 All rights reserved.

amath.1

@@ -1,6 +1,6 @@
-.\" Copyright (c) 2014-2018 Carsten Sonne Larsen <cs@innolan.net>
+.\" Copyright (c) 2014-2021 Carsten Sonne Larsen <cs@innolan.net>
 .\" All rights reserved.
-.\" 
+.\"
 .\" Redistribution and use in source and binary forms, with or without
 .\" modification, are permitted provided that the following conditions
 .\" are met:
@@ -9,7 +9,7 @@
 .\" 2. Redistributions in binary form must reproduce the above copyright
 .\"    notice, this list of conditions and the following disclaimer in the
 .\"    documentation and/or other materials provided with the distribution.
-.\" 
+.\"
 .\" THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR
 .\" IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES
 .\" OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.
@@ -20,7 +20,7 @@
 .\" THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
 .\" (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF
 .\" THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
-.TH amath 1 "Version 1.8.4" "August 05 2018"
+.TH amath 1 "Version 1.9.0" "January 11 2021"
 .SH NAME
 amath \- Simple command line calculator
 .SH SYNOPSIS

amath.doxygen

@@ -1,7 +1,7 @@
 
 DOXYFILE_ENCODING      = UTF-8
 PROJECT_NAME           = "amath"
-PROJECT_NUMBER         = "1.8.4"
+PROJECT_NUMBER         = "1.9.0"
 PROJECT_BRIEF          = "Simple command line calculator"
 PROJECT_LOGO           =
 OUTPUT_DIRECTORY       = ../amath-doc
@@ -156,12 +156,12 @@ EXT_LINKS_IN_WINDOW    = NO
 FORMULA_FONTSIZE       = 10
 FORMULA_TRANSPARENT    = YES
 USE_MATHJAX            = NO
-SEARCHENGINE           = YES
+SEARCHENGINE           = NO
 SERVER_BASED_SEARCH    = NO
 EXTERNAL_SEARCH        = NO
 SEARCHDATA_FILE        = searchdata.xml
 
-GENERATE_MAN           = YES
+GENERATE_MAN           = NO
 MAN_OUTPUT             = man
 MAN_EXTENSION          = .3
 MAN_SUBDIR             =

arexx/test.rx

@@ -0,0 +1,4 @@
+/* Test program */
+Options RESULTS
+Address AMATH.1 '1.1+1.8'
+SAY (RESULT)

bin/amath.doc

@@ -0,0 +1,166 @@
+NAME
+       amath - Simple command line calculator
+
+SYNOPSIS
+       [ --noansi ] [ --shell | expression ]
+
+DESCRIPTION
+       amath features a case sensitive command line interface, internal IEEE
+       754 calculations with 15 significant digits, calculations with real and
+       complex numbers, variables and user defined functions, logarithmic and
+       exponential functions, trigonometric and hyperbolic function and
+       selected mathematical constants and rounding functions.
+
+OPTIONS
+       --noansi
+              Disable output of ANSI escape codes. Default is enable.
+
+       --shell
+              Open an interactive shell.
+
+OPERATORS
+       +           Mathematical addition
+       -           Mathematical subtraction
+       *           Mathematical multiplication
+       /           Mathematical division
+       ^           Mathematical exponentiation
+       =           Assignment of variable values
+       |           Absolute value of number
+
+VARIABLES AND CONSTANT
+       pi          Trigonometric constant
+       e           Euler's number
+       i           Imaginary unit
+       ins         Result of last calculation
+
+MISCELLANEOUS FUNCTIONS
+       abs         Absolute value of number
+       sgn         Mathematical signum function
+       round       Round to nearest integer number
+       trunc       Discard fraction part of number
+       floor       Mathematical floor function
+       ceil        Mathematical ceiling function
+       sqrt        Square root function (exp 1/2)
+       cbrt        Cube root function (exp 1/3)
+       lb          Binary logarithm function (base 2)
+       ln          Natural logarithm function (base e)
+       lg          Common logarithm function (base 10)
+
+TRIGONOMETRIC FUNCTIONS
+       sin         Trigonometric sine function
+       cos         Trigonometric cosine function
+       tan         Trigonometric tangent function
+       cot         Trigonometric cotangent function
+       sec         Trigonometric secant function
+       csc         Trigonometric cosecant function
+       crd         Trigonometric chord function
+       exsec       Trigonometric exsecant function
+       excsc       Trigonometric excosecant function
+       arcsin      Inverse trigonometric sine function
+       arccos      Inverse trigonometric cosine function
+       arctan      Inverse trigonometric tangent function
+       arccot      Inverse trigonometric cotangent function
+       arcsec      Inverse trigonometric secant function
+       arccsc      Inverse trigonometric cosecant function
+       arccrd      Inverse trigonometric chord function
+       arcexsec    Inverse trigonometric exsecant function
+       arcexcsc    Inverse trigonometric excosecant function
+
+HYPERBOLIC FUNCTIONS
+       sinh        Hyperbolic sine function
+       cosh        Hyperbolic cosine function
+       tanh        Hyperbolic tangent function
+       coth        Hyperbolic cotangent function
+       sech        Hyperbolic secant function
+       csch        Hyperbolic cosecant function
+       arcsinh     Inverse hyperbolic sine function
+       arccosh     Inverse hyperbolic cosine function
+       arctanh     Inverse hyperbolic tangent function
+       arccoth     Inverse hyperbolic cotangent function
+       arcsech     Inverse hyperbolic secant function
+       arccsch     Inverse hyperbolic cosecant function
+
+EARLY TRIGONOMETRIC FUNCTIONS
+       ver         Versed sine function
+       vcs         Versed cosine function
+       cvs         Coversed sine function
+       cvc         Coversed cosine function
+       hv          Haversed sine function
+       hvc         Haversed cosine function
+       hcv         Hacoversed sine function
+       hcc         Hacoversed cosine function
+       arcver      Inverse versed sine function
+       arcvcs      Inverse versed cosine function
+       arccvs      Inverse coversed sine function
+       arccvc      Inverse coversed cosine function
+       archv       Inverse haversed sine function
+       archvc      Inverse haversed cosine function
+       archcv      Inverse hacoversed sine function
+       archcc      Inverse hacoversed cosine function
+
+STATEMENTS
+       about       Show about text
+       clear       Clear console window
+       def         Define function
+       delete      Delete variable or function
+       digits      Set number of significant digits
+       eval        Evaluate arithmetic expression
+       execute     Execute statements in a file
+       functions   Show list of user defined functions
+       input       Change numeral input system
+       help        Show basic help text
+       output      Change numeral output system
+       list        Show content of a directory
+       show        Show content of a file
+       load        Load variable and functions from file
+       save        Save variable and functions to file
+       variables   Show list of variables
+       version     Show version string
+       license     Show copyright and license texts
+       memory      Show internal memory usage
+       exit        Exit program
+
+EXIT STATUS
+       amath exits 0 on success and >0 if an error occurs.
+
+EXAMPLES
+       Add two numbers:
+              $ amath 1.3 + 2.6
+
+       Find cosine of pi/2:
+              $ amath "cos(pi/2)"
+
+       Find square root of minus 25:
+              $ amath "sqrt(-25)"
+
+       Show only 5 digits in the result of a division:
+              $ amath "digits 5;34/11"
+
+       Script block with functions:
+              round(1.5461);round(-1.5461);
+              ceil(43.5461);ceil(-43.5461);
+              floor(39.9531);floor(-39.9531);
+              trunc(23.827);trunc(-23.827);
+              sqrt(100);sqrt(52.23);
+
+       Script block with user defined functions:
+              f(x)=x*2+1;
+              g(y)=y^2+y*1.5+2;
+              a=2;b=3;c=a+b;
+              f(2.2);c+1.1;
+
+BUGS
+         Please report any other bugs that you encounter via:
+         https://gitlab.com/rnger/amath/issues.
+
+HOMEPAGE
+       https://amath.innolan.net/
+
+AUTHORS
+       Written by Carsten Sonne Larsen <cs@innolan.net>. Floating point to
+       string conversion is based on software written by Ryan Juckett. The
+       code in complex calculations is derived from software written by
+       Stephen L. Moshier. The code in MemSet and MemCopy is derived from
+       software contributed to Berkeley by Mike Hibler and Chris Torek.
+
+January 11 2021                  Version 1.9.0

bin/amath.readme

@@ -0,0 +1,41 @@
+Short:        Simple command line calculator
+Author:       Carsten Larsen
+Uploader:     carsten.larsen@mail.com
+Type:         misc/math
+Version:      1.9.0
+Architecture: m68k-amigaos >= 2.04
+URL:          https://amath.innolan.net
+
+Features
+========
+
+- Case sensitive command line interface
+- Native IEEE 754 with 15 significant digits
+- Calculations with real and complex numbers
+- Variables and user defined functions
+- Logarithmic and exponential functions
+- Trigonometric and hyperbolic functions
+- Mathematical constants and rounding functions
+- Disk functions to load, save and view content
+- Comprehensive and easy to use builtin help
+- Optimized 68000, 68020 and 68030 versions
+- Unlimited number of ARexx interfaces
+- Freely distributable sources (BSD license)
+
+Usage
+=====
+
+Open amath in its own window:
+> amath
+
+Do a calculation in shell:
+> amath 1.2+1.4
+
+Get an interactive prompt in shell:
+> amath shell
+
+Show version string:
+> amath version
+
+Run regression tests:
+> amath --test

build/doc

@@ -0,0 +1,32 @@
+#! /bin/sh
+
+# This file is in the public domain, so clarified as of
+# 2009-05-17 by Arthur David Olson.
+
+# Tell groff not to emit SGR escape sequences (ANSI color escapes).
+GROFF_NO_SGR=1
+export GROFF_NO_SGR
+
+echo ".am TH
+.hy 0
+.na
+..
+.rm }H
+.rm }F" | nroff -man - ${1+"$@"} | perl -ne '
+	binmode STDIN, '\'':encoding(utf8)'\'';
+	binmode STDOUT, '\'':encoding(utf8)'\'';
+	chomp;
+	s/.\010//g;
+	s/\s*$//;
+	if (/^$/) {
+		$sawblank = 1;
+		next;
+	} else {
+		if ($sawblank && $didprint) {
+			print "\n";
+			$sawblank = 0;
+		}
+		print "$_\n";
+		$didprint = 1;
+	}
+'

builddeb

@@ -1,8 +1,8 @@
 #!/bin/sh
-# 
+#
-# Copyright {c} 2014-2018 Carsten Sonne Larsen  <cs@innolan.net>
+# Copyright {c} 2014-2021 Carsten Sonne Larsen  <cs@innolan.net>
 # All rights reserved.
-# 
+#
 # Redistribution and use in source and binary forms, with or without
 # modification, are permitted provided that the following conditions
 # are met:
@@ -11,7 +11,7 @@
 # 2. Redistributions in binary form must reproduce the above copyright
 #    notice, this list of conditions and the following disclaimer in the
 #    documentation and/or other materials provided with the distribution.
-# 
+#
 # THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND CONTRIBUTORS ``AS IS'' AND
 # ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
 # IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
@@ -23,14 +23,14 @@
 # LIABILITY, OR TORT {INCLUDING NEGLIGENCE OR OTHERWISE} ARISING IN ANY WAY
 # OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
 # SUCH DAMAGE.
-# 
+#
 # Project homepage:
 # https://amath.innolan.net
-# 
+#
 
 set -e
 
-version="1.8.4"
+version="1.9.0"
 
 build_package () {
 
@@ -103,9 +103,9 @@ chmod 0755 amath/DEBIAN/control
 echo "Format: http://www.debian.org/doc/packaging-manuals/copyright-format/1.0/"
 echo "Upstream-Name: amath"
 echo "Source: https://amath.innolan.net"
-echo 
+echo
 echo "Files:     *"
-echo "Copyright: 2014-2018 Carsten Sonne Larsen <cs@innolan.net>"
+echo "Copyright: 2014-2021 Carsten Sonne Larsen <cs@innolan.net>"
 echo "           2007 The NetBSD Foundation, Inc."
 echo "           1990, 1993 The Regents of the University of California."
 echo "License:   BSD-2-Clause"

builddebdev

@@ -1,8 +1,8 @@
 #!/bin/sh
-# 
+#
-# Copyright {c} 2014-2018 Carsten Sonne Larsen  <cs@innolan.net>
+# Copyright {c} 2014-2021 Carsten Sonne Larsen  <cs@innolan.net>
 # All rights reserved.
-# 
+#
 # Redistribution and use in source and binary forms, with or without
 # modification, are permitted provided that the following conditions
 # are met:
@@ -11,7 +11,7 @@
 # 2. Redistributions in binary form must reproduce the above copyright
 #    notice, this list of conditions and the following disclaimer in the
 #    documentation and/or other materials provided with the distribution.
-# 
+#
 # THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND CONTRIBUTORS ``AS IS'' AND
 # ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
 # IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
@@ -23,16 +23,16 @@
 # LIABILITY, OR TORT {INCLUDING NEGLIGENCE OR OTHERWISE} ARISING IN ANY WAY
 # OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
 # SUCH DAMAGE.
-# 
+#
 # Project homepage:
 # https://amath.innolan.net
-# 
+#
 
 # THIS SCRIPT IS NOT READY FOR PRODUCTION !
 
 set -e
 
-version="1.8.4"
+version="1.9.0"
 
 build_package () {
 
@@ -147,9 +147,9 @@ chmod 0755 amath/DEBIAN/control
 echo "Format: http://www.debian.org/doc/packaging-manuals/copyright-format/1.0/"
 echo "Upstream-Name: amath-dev"
 echo "Source: https://amath.innolan.net"
-echo 
+echo
 echo "Files:     *"
-echo "Copyright: 2014-2018 Carsten Sonne Larsen <cs@innolan.net>"
+echo "Copyright: 2014-2021 Carsten Sonne Larsen <cs@innolan.net>"
 echo "           2007 The NetBSD Foundation, Inc."
 echo "           1990, 1993 The Regents of the University of California."
 echo "License:   BSD-2-Clause"

builddist

@@ -1,69 +1,128 @@
 #!/bin/sh
-# 
+#
+# Build Classic AmigaOS distribtion package
 # This file is public domain
-# 
+#
 # Project homepage:
 # https://amath.innolan.net
-# 
+#
+
+# Add compiler path before invoking. Fx:
+# export PATH="/opt/m68k-amigaos/bin/:$PATH"
 
 set -e
 
-rm -f amath.lha
+distdir="dist"
-rm -Rf amath
+builddir="tmp"
-rm -Rf dist
+bindir="bin"
-mkdir dist
+stamp="202101120000"
 
+rm -Rf ${distdir}
+rm -Rf ${builddir}
+mkdir -p ${builddir}
+
+# Build binaries
 ./configure --disable-test --disable-pic --cross-compile="m68k-amigaos" CFLAGS="-m68000 -noixemul"
 make clean
 make static
-mv amath dist/amath.000
+mv amath ${builddir}/amath
 make clean
 ./configure --disable-test --disable-pic --cross-compile="m68k-amigaos" CFLAGS="-m68020 -noixemul"
 make static
-mv amath dist/amath.020
+mv amath ${builddir}/amath.020
 make clean
 ./configure --disable-test --disable-pic --cross-compile="m68k-amigaos" CFLAGS="-m68030 -noixemul"
 make static
-mv amath dist/amath.030
+mv amath ${builddir}/amath.030
 make clean
 
+# Build test binaries
 ./configure --enable-test --disable-pic --cross-compile="m68k-amigaos" CFLAGS="-m68000 -noixemul"
 make static
-mv amath dist/amath-test.000
+mv amath ${builddir}/amath-test
 make clean
 ./configure --enable-test --disable-pic --cross-compile="m68k-amigaos" CFLAGS="-m68020 -noixemul"
 make static
-mv amath dist/amath-test.020
+mv amath ${builddir}/amath-test.020
 make clean
 ./configure --enable-test --disable-pic --cross-compile="m68k-amigaos" CFLAGS="-m68030 -noixemul"
 make static
-mv amath dist/amath-test.030
+mv amath ${builddir}/amath-test.030
 make clean
 
-cd dist
+# Build catalogs
+make catalogs
+make clean
+
+# Build documentation
+#./build/doc >${builddir}/amath.doc amath.1
+groff >${builddir}/amath.html amath.1 -mandoc -Thtml
+
+# Generate hashkeys
+cd ${builddir}
 touch hashkeys
-sha1sum amath.000 >>hashkeys
+sha1sum amath >>hashkeys
 sha1sum amath.020 >>hashkeys
 sha1sum amath.030 >>hashkeys
-sha1sum amath-test.000 >>hashkeys
+sha1sum amath-test >>hashkeys
 sha1sum amath-test.020 >>hashkeys
 sha1sum amath-test.030 >>hashkeys
-sha256sum amath.000 >>hashkeys
+sha256sum amath >>hashkeys
 sha256sum amath.020 >>hashkeys
 sha256sum amath.030 >>hashkeys
-sha256sum amath-test.000 >>hashkeys
+sha256sum amath-test >>hashkeys
 sha256sum amath-test.020 >>hashkeys
 sha256sum amath-test.030 >>hashkeys
 cd ..
 
-make catalogs
+# Build distribution directory structure
-cp LICENSE dist/
+mkdir -m 775 ${distdir}
-cp HISTORY dist/
+mkdir -m 775 ${distdir}/amath
+mkdir -m 775 ${distdir}/amath/ARexx
+mkdir -m 775 ${distdir}/amath/Catalog
+mkdir -m 775 ${distdir}/amath/Catalog/english
+mkdir -m 775 ${distdir}/amath/Script
+mkdir -m 775 ${distdir}/amath/Test
 
-mkdir dist/script
+# Install icons
-cp script/* dist/script/
+install -m 664 ${bindir}/root/*.info ${distdir}/
-date -Ru >dist/build_date
+install -m 664 ${bindir}/prog/*.info ${distdir}/amath/
-#uname -srmo >dist/build_host
+install -m 664 ${bindir}/catalog/*.info ${distdir}/amath/Catalog/
+install -m 664 ${bindir}/script/*.info ${distdir}/amath/Script/
 
-mv dist amath
+# Install documentation
-#lha-ac a amath.lha amath
+install -m 664 HISTORY ${distdir}/amath/
+install -m 664 LICENSE ${distdir}/amath/
+install -m 664 ${builddir}/hashkeys ${distdir}/amath/
+install -m 664 ${builddir}/amath.html ${distdir}/amath/
+install -m 664 ${bindir}/amath.doc ${distdir}/amath/
+install -m 664 ${bindir}/amath.readme ${distdir}/amath/
+
+# Install scripts
+install -m 755 arexx/* ${distdir}/amath/ARexx/
+install -m 755 script/* ${distdir}/amath/Script/
+
+# Install binaries
+install -m 755 ${builddir}/amath ${distdir}/amath/
+install -m 755 ${builddir}/amath.020 ${distdir}/amath/
+install -m 755 ${builddir}/amath.030 ${distdir}/amath/
+install -m 755 ${builddir}/amath-test ${distdir}/amath/Test/
+install -m 755 ${builddir}/amath-test.020 ${distdir}/amath/Test/
+install -m 755 ${builddir}/amath-test.030 ${distdir}/amath/Test/
+
+# Install catalogs
+install -m 755 distcat/catalog/english/*.catalog ${distdir}/amath/Catalog/english/
+
+# Sign build with date
+date -Ru >${distdir}/amath/build_date
+#uname -srmo >${distdir}/amath/build_host
+
+for f in $(find ${distdir} -name '*'); do touch -amt ${stamp}.00 $f; done
+
+# Cleanup
+rm -Rf distcat
+rm -Rf ${builddir}
+
+# Install source
+./buildsrc
+mv amath-1.9.0 ${distdir}/

buildsrc

@@ -1,21 +1,21 @@
 #!/bin/sh
-# 
+#
+# Build source distribtion package
 # This file is public domain
-# 
+#
 # Project homepage:
 # https://amath.innolan.net
-# 
+#
 
 # DO NOT USE THIS SCRIPT UNLESS YOU KNOW WHAT YOU ARE DOING !
 
-version='1.8.4'
+version='1.9.0'
-stamp="201808050000"
+stamp="202101120000"
-srcdir="amath-rc"
+srcdir="."
 distdir="amath-${version}"
-cd ..
 
 rm -f amath-${version}.tar.gz
-rm -Rf amath-${version}
+rm -Rf ${distdir}
 
 mkdir -m 775 ${distdir}
 mkdir -m 775 ${distdir}/src/
@@ -56,6 +56,7 @@ install -m 664 ${srcdir}/LICENSE ${distdir}/
 install -m 664 ${srcdir}/README ${distdir}/
 install -m 664 ${srcdir}/amath.1 ${distdir}/
 install -m 775 ${srcdir}/configure ${distdir}/
+install -m 775 ${srcdir}/builddeb ${distdir}/
 install -m 775 ${srcdir}/builddist ${distdir}/
 install -m 775 ${srcdir}/buildwin ${distdir}/
 

buildwin

@@ -1,14 +1,14 @@
 #!/bin/sh
-# 
+#
 # This file is public domain
-# 
+#
 # Project homepage:
 # https://amath.innolan.net
-# 
+#
 
 set -e
 
-version="1.8.4"
+version="1.9.0"
 
 echo "Building amath ${version} for Windows ..."
 

catalog/english/amath-help.ct

@@ -2,19 +2,19 @@
 ## language english
 ## codeset 0
 ; #############################################################################
-; Copyright (c) 2014-2018 Carsten Sonne Larsen <cs@innolan.net>
+; Copyright (c) 2014-2021 Carsten Sonne Larsen <cs@innolan.net>
 ; All rights reserved.
-; 
+;
 ; Redistribution and use in source and binary forms, with or without
 ; modification, are permitted provided that the following conditions are met:
-; 
+;
 ; * Redistributions of source code must retain the above copyright notice, this
 ;   list of conditions and the following disclaimer.
-; 
+;
 ; * Redistributions in binary form must reproduce the above copyright notice,
 ;   this list of conditions and the following disclaimer in the documentation
 ;   and/or other materials provided with the distribution.
-; 
+;
 ; THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
 ; AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
 ; IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE

catalog/english/amath-text.ct

@@ -2,19 +2,19 @@
 ## language english
 ## codeset 0
 ; #############################################################################
-; Copyright (c) 2014-2018 Carsten Sonne Larsen <cs@innolan.net>
+; Copyright (c) 2014-2021 Carsten Sonne Larsen <cs@innolan.net>
 ; All rights reserved.
-; 
+;
 ; Redistribution and use in source and binary forms, with or without
 ; modification, are permitted provided that the following conditions are met:
-; 
+;
 ; * Redistributions of source code must retain the above copyright notice, this
 ;   list of conditions and the following disclaimer.
-; 
+;
 ; * Redistributions in binary form must reproduce the above copyright notice,
 ;   this list of conditions and the following disclaimer in the documentation
 ;   and/or other materials provided with the distribution.
-; 
+;
 ; THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
 ; AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
 ; IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE

configure

@@ -1,8 +1,8 @@
 #!/bin/sh
-# 
+#
-# Copyright {c} 2014-2018 Carsten Sonne Larsen  <cs@innolan.net>
+# Copyright {c} 2014-2021 Carsten Sonne Larsen  <cs@innolan.net>
 # All rights reserved.
-# 
+#
 # Redistribution and use in source and binary forms, with or without
 # modification, are permitted provided that the following conditions
 # are met:
@@ -11,7 +11,7 @@
 # 2. Redistributions in binary form must reproduce the above copyright
 #    notice, this list of conditions and the following disclaimer in the
 #    documentation and/or other materials provided with the distribution.
-# 
+#
 # THIS SOFTWARE IS PROVIDED BY THE AUTHOR AND CONTRIBUTORS ``AS IS'' AND
 # ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
 # IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
@@ -23,11 +23,11 @@
 # LIABILITY, OR TORT {INCLUDING NEGLIGENCE OR OTHERWISE} ARISING IN ANY WAY
 # OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
 # SUCH DAMAGE.
-# 
+#
 
 set -e
 
-version="1.8.4"
+version="1.9.0"
 
 clang=false
 debugsym=false
@@ -264,7 +264,7 @@ if $stdlibm; then
 	mflags="-DLIBM "
 	dlibm=true
 fi
-		
+
 if $openlibm; then
 	libm="-lopenlibm "
 	mflags="-DLIBM "
@@ -306,6 +306,7 @@ values.cpp
 viewer.cpp
 '
 SYSSRCS='
+amiga_arexx.cpp
 console.cpp
 console_amiga.cpp
 console_stdc.cpp
@@ -1193,10 +1194,10 @@ echo "	cd src/cplex && \${MAKE} doc"
 echo
 echo "catalogs:"
 echo "	cd build/flexcat && \${MAKE}"
-echo "	\${MKDIR}  dist/catalog/english"
+echo "	\${MKDIR}  distcat/catalog/english"
-echo "	\${FLXCAT} text/help.cd catalog/english/amath-help.ct CATALOG dist/catalog/english/amath-help.catalog"
+echo "	\${FLXCAT} text/help.cd catalog/english/amath-help.ct CATALOG distcat/catalog/english/amath-help.catalog"
-echo "	\${FLXCAT} text/ident.cd catalog/english/amath-ident.ct CATALOG dist/catalog/english/amath-ident.catalog"
+echo "	\${FLXCAT} text/ident.cd catalog/english/amath-ident.ct CATALOG distcat/catalog/english/amath-ident.catalog"
-echo "	\${FLXCAT} text/text.cd catalog/english/amath-text.ct CATALOG dist/catalog/english/amath-text.catalog"
+echo "	\${FLXCAT} text/text.cd catalog/english/amath-text.ct CATALOG distcat/catalog/english/amath-text.catalog"
 echo
 echo "shared-libs:"
 echo "	cd src/lib && \${MAKE} shared"

src/amath.h

@@ -1,5 +1,5 @@
 /*-
- * Copyright (c) 2014-2018 Carsten Sonne Larsen <cs@innolan.net>
+ * Copyright (c) 2014-2021 Carsten Sonne Larsen <cs@innolan.net>
  * All rights reserved.
  *
  * Redistribution and use in source and binary forms, with or without
@@ -24,66 +24,95 @@
  *
  * Project homepage:
  * https://amath.innolan.net
- * 
+ *
  */
 
 #ifndef AMATH_H
 #define AMATH_H
-/******************************************************************************/
+
-#ifdef  __AMIGA__
+/* Operating System */
-# ifndef AOS3
+#if defined(__MORPHOS__)
-# define AOS3
+# define SYS_NAME "MorphOS"
-# endif
-#endif
-/******************************************************************************/
-#ifdef  __AROS__
-# ifndef AROS
-# define AROS
-# endif
-#endif
-/******************************************************************************/
-#ifdef  __MORPHOS__
 # ifndef MORPHOS
 # define MORPHOS
 # endif
-#endif
+#elif defined(__amigaos4__)
-/******************************************************************************/
+# define SYS_NAME "AmigaOS 4"
-#ifdef  __amigaos4__
 # ifndef AOS4
 # define AOS4
 # endif
-#endif
+#elif defined(__AMIGA__) || defined(__amigaos3__)
-/******************************************************************************/
+# define SYS_NAME "AmigaOS 3"
-#ifdef __HAIKU__
+# ifndef AOS3
+# define AOS3
+# endif
+#elif defined(__AROS__)
+# define SYS_NAME "AROS"
+# ifndef AROS
+# define AROS
+# endif
+#elif defined(__HAIKU__)
+# define SYS_NAME "Haiku"
 # ifndef HAIKU
 # define HAIKU
 # endif
-#endif
+#elif defined(__APPLE__) && defined(__MACH__)
-/******************************************************************************/
+# define SYS_NAME "Apple"
-#ifdef __APPLE__
 # ifndef APPLE
 # define APPLE
 # endif
-#endif
+#elif defined(__FreeBSD__)
-/******************************************************************************/
+# define SYS_NAME "FreeBSD"
-#if defined(_WIN32) || defined(_WIN64)
+# ifndef FREEBSD
+# define FREEBSD
+# endif
+#elif defined(__NetBSD__)
+# define SYS_NAME "NetBSD"
+# ifndef NETBSD
+# define NETBSD
+# endif
+#elif defined(__OpenBSD__)
+# define SYS_NAME "OpenBSD"
+# ifndef OPENBSD
+# define OPENBSD
+# endif
+#elif defined(__DragonFly__)
+# define SYS_NAME "DragonFly BSD"
+# ifndef DRAGONFLY
+# define DRAGONFLY
+# endif
+#elif defined(__linux__)
+# define SYS_NAME "Linux"
+# ifndef LINUX
+# define LINUX
+# endif
+#elif defined(_WIN32)
+# define SYS_NAME "Windows"
+# ifndef WINDOWS
+# define WINDOWS
+# endif
+#elif defined(_WIN64)
+# define SYS_NAME "Windows 64 bit"
 # ifndef WINDOWS
 # define WINDOWS
 # endif
 #endif
-/******************************************************************************/
+
 #if defined(AOS3) || defined(AOS4) || defined(AROS) || defined (MORPHOS)
 # ifndef AMIGA
 # define AMIGA
 # endif
 #endif
-/******************************************************************************/
+
 #if defined(unix) || defined(__unix__) || defined(__unix)
 # ifndef UNIX
 # define UNIX
 # endif
+# ifndef SYS_NAME
+# define SYS_NAME "Unix variant"
+# endif
 #endif
-/******************************************************************************/
+
 #if defined(HAIKU) || defined(UNIX) || defined(APPLE)
 # ifndef TERMIOS
 # define TERMIOS
@@ -91,39 +120,38 @@
 # include <stdint.h>
 # include <unistd.h>
 #endif
-/******************************************************************************/
+
 #if defined(WINDOWS)
 # include <stdint.h>
 #endif
-/******************************************************************************/
+
 #if defined(AROS) || defined(MORPHOS) || defined(AOS4)
 # include <stdint.h>
 # include <sys/types.h>
 #endif
-/******************************************************************************/
+
 #if defined(AOS3)
 # include <sys/types.h>
-# define IPTR      LONG*
 # define uintptr_t uint32_t
 typedef u_int8_t   uint8_t;
 typedef u_int16_t  uint16_t;
 typedef u_int32_t  uint32_t;
 typedef u_int64_t  uint64_t;
 #endif
-/******************************************************************************/
+
 #if (__cplusplus <= 199711L && !defined(WINDOWS)) || !defined(__cplusplus)
-#ifndef nullptr
+# ifndef nullptr
-#define nullptr 0
+# define nullptr 0
-#endif
+# endif
 #elif (__cplusplus <= 199711L) && (defined(__GNUC__) || defined(__GNUG__))
-#ifndef nullptr
+# ifndef nullptr
-#define nullptr 0
+# define nullptr 0
+# endif
 #endif
-#endif
+
-/******************************************************************************/
 #define assert(x)
-/******************************************************************************/
+
-/* Compilers*/
+/* Compilers */
 #if defined(__clang__)
 /* Clang */
 # if defined(__apple_build_version__)
@@ -176,7 +204,9 @@ typedef u_int64_t  uint64_t;
 # elif (_MSC_VER == 1900)
 #  define COMP_VERS      "14.0"
 # elif (_MSC_VER > 1900)
-#  define COMP_VERS      "15.0+"
+#  define COMP_VERS      "15.x"
+# elif (_MSC_VER > 1920)
+#  define COMP_VERS      "16.0+"
 # else
 #  define str(x)         #x
 #  define MSC_VER_STR(x) str(x)
@@ -209,29 +239,29 @@ typedef u_int64_t  uint64_t;
 #  define COMP_VERS      GCC_VER_STR(__GNUC__) DOT GCC_VER_STR(__GNUC_MINOR__)
 # endif
 #endif
-/******************************************************************************/
+
 #define EMPTYSTRING ""
 #define SPACE       " "
 #define DOT         "."
-/******************************************************************************/
+
 #if defined(WINDOWS)
 #define NEWLINE     "\r\n"
 #elif defined(APPLE)
-#define NEWLINE     "\r"
+#define NEWLINE     "\n"
 #else
 #define NEWLINE     "\n"
 #endif
-/******************************************************************************/
+
 #ifndef __cplusplus
 typedef int bool;
 #define true  1
 #define false 0
 #endif
-/******************************************************************************/
+
 #define LONG_BIT    32
 #define wsize       sizeof(unsigned int)
 #define wmask       (wsize - 1)
-/******************************************************************************/
+
 #if defined(INTELCPU)  || defined(i386)    || defined(i486)  ||  \
     defined(intel)     || defined(x86)     || defined(i86pc) ||  \
     defined(__i386__)  || defined(_M_IX86)
@@ -243,18 +273,18 @@ typedef int bool;
 #if defined(__x86_64__) || defined(_M_AMD64)
 # define TXTCPU          "amd64"
 #endif
-/******************************************************************************/
+
 #if defined(__powerpc__) || defined(__powerpc64__)
 # define TXTCPU          "PowerPC"
 #endif
-/******************************************************************************/
+
 #if defined(__arm__) || defined(_M_ARM) || defined(__ARM_ARCH_6__)
 # define TXTCPU          "arm"
 #endif
 #if defined(__aarch64__) || defined(_M_ARM64)
 # define TXTCPU          "arm64"
 #endif
-/******************************************************************************/
+
 #if defined(m68060) || defined(mc68060)
 # define TXTCPU          "68060"
 #elif defined(m68040) || defined(mc68040)
@@ -268,47 +298,33 @@ typedef int bool;
 #elif defined(m68000) || defined(mc68000)
 # define TXTCPU          "68000+"
 #endif
-/******************************************************************************/
+
 #ifndef TXTCPU
 //#error what cpu is this ?!
 # define TXTCPU EMPTYSTRING
 #endif
-/******************************************************************************/
+
 #if defined(TXTCPU) && defined(__HAVE_68881__)
 # define TXTFPU SPACE    "FPU"
 #else
 # define TXTFPU EMPTYSTRING
 #endif
-/******************************************************************************/
+
 #define TXTARCH          TXTCPU TXTFPU
-#define RELDATESTAMP     "(05-08-2018)"
+#define RELDATESTAMP     "(11-01-2021)"
-#define TXTDOSVERSION    "\0$VER: amath 1.84" SPACE RELDATESTAMP SPACE TXTARCH
+#define TXTDOSVERSION    "\0$VER: amath 1.90" SPACE RELDATESTAMP SPACE TXTARCH
-#define TXTTITLE         "amath version 1.8.4"
+#define TXTTITLE         "amath version 1.9.0"
-#define TXTCOPYRIGHT     "(c) 2018 Carsten Sonne Larsen"
+#define TXTCOPYRIGHT     "(c) 2021 Carsten Sonne Larsen"
 #define TXTSTARTMSG      TXTTITLE SPACE TXTCOPYRIGHT
-/******************************************************************************/
+
 #define TXTVERSMSG       TXTTITLE SPACE RELDATESTAMP SPACE TXTARCH
 #define TXTCOMPMSG       "Compiled with " COMP_NAME SPACE COMP_VERS
-/******************************************************************************/
+
-#define CPROCNAME        "amath_console"
+#ifdef SYS_NAME
-/******************************************************************************/
+# define TXTSYSMSG       TXTCOMPMSG " for " SYS_NAME
-#if defined(AMIGA)
+# define SYSKNOWN        1
-#define AMIGADOS_NAME    "dos.library"
+#else
-#define AMIGADOS_REV     33L
+# define TXTSYSMSG       TXTCOMPMSG
-#define INTUITION_REV    37L
-#define INTUITION_NAME   "intuition.library"
-#define GRAPHICS_REV     37L
-#define GRAPHICS_NAME    "graphics.library"
-#define LOCALE_REV       38L
-#define LOCALE_NAME      "locale.library"
-#define DEVCONSOLE       "console.device"
-#define PORTCR           "RKM.console.read"
-#define PORTCW           "RKM.console.write"
-#define CATALOG_HELP     "amath-help.catalog"
-#define CATALOG_IDEN     "amath-ident.catalog"
-#define CATALOG_TEXT     "amath-text.catalog"
-#define CATALOG_KEYW     "amath-keyword.catalog"
-#define CATALOG_DEF      OC_BuiltInLanguage, "english"
 #endif
-/******************************************************************************/
+
 #endif

src/amathc.h

@@ -1,5 +1,5 @@
 /*-
- * Copyright (c) 2014-2018 Carsten Sonne Larsen <cs@innolan.net>
+ * Copyright (c) 2014-2021 Carsten Sonne Larsen <cs@innolan.net>
  * All rights reserved.
  *
  * Redistribution and use in source and binary forms, with or without
@@ -24,7 +24,7 @@
  *
  * Project homepage:
  * https://amath.innolan.net
- * 
+ *
  */
 
 #ifndef AMATHC_H

src/amatht.h

@@ -1,5 +1,5 @@
 /*-
- * Copyright (c) 2014-2018 Carsten Sonne Larsen <cs@innolan.net>
+ * Copyright (c) 2014-2021 Carsten Sonne Larsen <cs@innolan.net>
  * All rights reserved.
  *
  * Redistribution and use in source and binary forms, with or without
@@ -24,7 +24,7 @@
  *
  * Project homepage:
  * https://amath.innolan.net
- * 
+ *
  */
 
 #ifndef AMATHT_H

src/clib/alloccpy.c

@@ -1,5 +1,5 @@
 /*-
- * Copyright (c) 2014-2018 Carsten Sonne Larsen <cs@innolan.net>
+ * Copyright (c) 2014-2021 Carsten Sonne Larsen <cs@innolan.net>
  * All rights reserved.
  *
  * Redistribution and use in source and binary forms, with or without
@@ -24,7 +24,7 @@
  *
  * Project homepage:
  * https://amath.innolan.net
- * 
+ *
  */
 
 #include "amathc.h"

src/clib/amathc.3

@@ -1,6 +1,6 @@
-.\" Copyright (c) 2014-2018 Carsten Sonne Larsen <cs@innolan.net>
+.\" Copyright (c) 2014-2021 Carsten Sonne Larsen <cs@innolan.net>
 .\" All rights reserved.
-.\" 
+.\"
 .\" Redistribution and use in source and binary forms, with or without
 .\" modification, are permitted provided that the following conditions
 .\" are met:
@@ -9,7 +9,7 @@
 .\" 2. Redistributions in binary form must reproduce the above copyright
 .\"    notice, this list of conditions and the following disclaimer in the
 .\"    documentation and/or other materials provided with the distribution.
-.\" 
+.\"
 .\" THIS SOFTWARE IS PROVIDED BY THE AUTHOR ``AS IS'' AND ANY EXPRESS OR
 .\" IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED WARRANTIES
 .\" OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE DISCLAIMED.
@@ -20,7 +20,7 @@
 .\" THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
 .\" (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF
 .\" THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
-.TH "amathc.h" 3 "Version 1.8.4" "August 05 2018"
+.TH "amathc.h" 3 "Version 1.9.0" "January 11 2021"
 .SH NAME
 amathc.h \- C functions for manipulating strings and memory
 .SH SYNOPSIS
@@ -82,7 +82,7 @@ amathc.h \- C functions for manipulating strings and memory
 .PP
 .SS "unsigned int AllocAndCopy (char ** destination, const char * source)"
 .PP
-Allocate memory and copy a string into the array\&. 
+Allocate memory and copy a string into the array\&.
 .PP
 Definition at line 40 of file alloccpy\&.c\&.
 .PP
@@ -90,32 +90,32 @@ Definition at line 40 of file alloccpy\&.c\&.
 41 {
 42     char *i, *s, *d;
 43     unsigned int n, size;
-44 
+44
 45     if (source == nullptr)
 46     {
 47         *destination = nullptr;
 48         return 0;
 49     }
-50 
+50
 51     i = (char*)source;
 52     s = (char*)source;
 53     while (*i)
 54         i++;
-55 
+55
 56     n = (unsigned int)(i - s + 1);
 57     size = n;
 58     *destination = AllocMemSafe(size);
 59     d = *destination;
-60 
+60
 64     while (n--)
 65         *d++ = *s++;
-67 
+67
 68     return size;
 69 }
 .fi
 .SS "void* AllocMemSafe (size_t)"
 .PP
-Allocate memory and add it to the global memory list\&. 
+Allocate memory and add it to the global memory list\&.
 .PP
 Definition at line 86 of file mem\&.c\&.
 .PP
@@ -123,7 +123,7 @@ Definition at line 86 of file mem\&.c\&.
 87 {
 88     struct MemoryBlock* newblock;
 89     size_t allocsize;
-90 
+90
 91     if (list == nullptr)
 92     {
 93         list = (struct MemoryList*)ALLOC_MEM(sizeof(struct MemoryList));
@@ -132,13 +132,13 @@ Definition at line 86 of file mem\&.c\&.
 96             alloc_error("list", sizeof(struct MemoryList));
 97             return 0;
 98         }
-99 
+99
 100         list->first = nullptr;
 101         list->peak = 0;
 102         list->size = 0;
 103         list->count = 0;
 104     }
-105 
+105
 106 #ifdef P64BIT
 107     // Align to bytes of 8
 108     allocsize = (size + 7) & ~0x07;
@@ -146,14 +146,14 @@ Definition at line 86 of file mem\&.c\&.
 110     // Align to bytes of 4
 111     allocsize = (size + 3) & ~0x03;
 112 #endif
-113 
+113
 114     newblock = (struct MemoryBlock*)ALLOC_MEM(sizeof(struct MemoryBlock));
 115     if (!newblock)
 116     {
 117         alloc_error("block", sizeof(struct MemoryBlock));
 118         return 0;
 119     }
-120 
+120
 121     newblock->address = (struct MemoryBlock*)ALLOC_MEM(allocsize);
 122     if (!newblock->address)
 123     {
@@ -161,25 +161,25 @@ Definition at line 86 of file mem\&.c\&.
 125         alloc_error("memory", allocsize);
 126         return 0;
 127     }
-128 
+128
 129     newblock->size = allocsize;
 130     newblock->next = list->first;
 131     list->first = newblock;
 132     list->size += allocsize;
 133     list->count++;
-134 
+134
 135     if (list->size > list->peak)
 136     {
 137         list->peak = list->size;
 138     }
-139 
+139
 140     // Memory allocated
 141     return newblock->address;
 142 }
 .fi
 .SS "void DetachMemSafe (void * block)"
 .PP
-Detach an allocated memory from the global memory list\&. The memory block is only detached, not deallocated\&. 
+Detach an allocated memory from the global memory list\&. The memory block is only detached, not deallocated\&.
 .PP
 Definition at line 209 of file mem\&.c\&.
 .PP
@@ -190,19 +190,19 @@ Definition at line 209 of file mem\&.c\&.
 .fi
 .SS "void FreeAllSafe ()"
 .PP
-Deallocate all memory in the global memory list\&. 
+Deallocate all memory in the global memory list\&.
 .PP
 Definition at line 217 of file mem\&.c\&.
 .PP
 .nf
 218 {
 219     struct MemoryBlock *current, *next;
-220 
+220
 221     if (list == nullptr)
 222     {
 223         return;
 224     }
-225 
+225
 226     current = list->first;
 227     while (current != nullptr)
 228     {
@@ -211,14 +211,14 @@ Definition at line 217 of file mem\&.c\&.
 231         FREE_MEM(current);
 232         current = next;
 233     }
-234 
+234
 235     FREE_MEM(list);
 236     list = nullptr;
 237 }
 .fi
 .SS "void FreeMemSafe (void *)"
 .PP
-Deallocate memory from the global memory list\&. 
+Deallocate memory from the global memory list\&.
 .PP
 Definition at line 200 of file mem\&.c\&.
 .PP
@@ -229,7 +229,7 @@ Definition at line 200 of file mem\&.c\&.
 .fi
 .SS "void MemCopy (void * destination, const void * source, unsigned int length)"
 .PP
-Copy a block of memory, handling overlap\&. 
+Copy a block of memory, handling overlap\&.
 .PP
 Definition at line 75 of file memcpy\&.c\&.
 .PP
@@ -238,10 +238,10 @@ Definition at line 75 of file memcpy\&.c\&.
 77     char* dst = (char*) destination;
 78     const char* src = (const char*) source;
 79     unsigned int t;
-80 
+80
 81     if (length == 0 || dst == src) // nothing to do
 82         return;
-83 
+83
 84     if ((mem_ptr)dst < (mem_ptr)src)
 85     {
 86         // Copy forward
@@ -254,14 +254,14 @@ Definition at line 75 of file memcpy\&.c\&.
 96             else
 97                 t = wsize - (t & wmask);
 98             length -= t;
-99 
+99
 100             TLOOP1(*dst++ = *src++);
 101         }
-102 
+102
 103         // Copy whole words, then mop up any trailing bytes\&.
 104         t = length / wsize;
 105         TLOOP(*(word *)dst = *(word *)src; src += wsize; dst += wsize);
-106 
+106
 107         t = length & wmask;
 108         TLOOP(*dst++ = *src++);
 110     }
@@ -280,13 +280,13 @@ Definition at line 75 of file memcpy\&.c\&.
 123             else
 124                 t &= wmask;
 125             length -= t;
-126 
+126
 127             TLOOP1(*--dst = *--src);
 128         }
-129 
+129
 130         t = length / wsize;
 131         TLOOP(src -= wsize; dst -= wsize; *(word *)dst = *(word *)src);
-132 
+132
 133         t = length & wmask;
 134         TLOOP(*--dst = *--src);
 135     }
@@ -294,7 +294,7 @@ Definition at line 75 of file memcpy\&.c\&.
 .fi
 .SS "void MemSet (void * destination, int c0, unsigned int length)"
 .PP
-Fill block of memory with a constant value\&. 
+Fill block of memory with a constant value\&.
 .PP
 Definition at line 56 of file memset\&.c\&.
 .PP
@@ -303,7 +303,7 @@ Definition at line 56 of file memset\&.c\&.
 58     unsigned char* dst = (unsigned char*) dst0;
 59     unsigned int t;
 60     unsigned int c;
-61 
+61
 62     /*
 63      * If not enough words, just fill bytes\&.  A length >= 2 words
 64      * guarantees that at least one of them is `complete' after
@@ -325,7 +325,7 @@ Definition at line 56 of file memset\&.c\&.
 80             --length;
 81         }
 82     }
-83 
+83
 84     if ((c = (unsigned char)c0) != 0)
 85     { /* Fill the word\&. */
 86         c = (c << 8) | c; /* u_int is 16 bits\&. */
@@ -336,7 +336,7 @@ Definition at line 56 of file memset\&.c\&.
 91         c = (c << 32) | c;  /* u_int is 64 bits\&. */
 92 #endif
 93     }
-94 
+94
 95     /* Align destination by filling in bytes\&. */
 96     if ((t = (mem_ptr)dst & wmask) != 0)
 97     {
@@ -348,7 +348,7 @@ Definition at line 56 of file memset\&.c\&.
 103         }
 104         while (--t != 0);
 105     }
-106 
+106
 107     /* Fill words\&.  Length was >= 2*words so we know t >= 1 here\&. */
 108     t = length / wsize;
 109     do
@@ -357,7 +357,7 @@ Definition at line 56 of file memset\&.c\&.
 112         dst += wsize;
 113     }
 114     while (--t != 0);
-115 
+115
 116     /* Mop up trailing bytes, if any\&. */
 117     t = length & wmask;
 118     if (t != 0)
@@ -370,7 +370,7 @@ Definition at line 56 of file memset\&.c\&.
 .fi
 .SS "void MemUsage (long *, long *, long *)"
 .PP
-Get memory usage in the global memory list\&. 
+Get memory usage in the global memory list\&.
 .PP
 Definition at line 242 of file mem\&.c\&.
 .PP
@@ -383,26 +383,26 @@ Definition at line 242 of file mem\&.c\&.
 .fi
 .SS "bool StrIsEqual (const char * s1, const char * s2)"
 .PP
-Compare two null terminated strings to each other\&. 
+Compare two null terminated strings to each other\&.
 .PP
 Definition at line 50 of file strcmp\&.c\&.
 .PP
 .nf
 51 {
 52     int r;
-53 
+53
 54     while (*s1 == *s2++)
 55         if (*s1++ == '\0')
 56             return true;
-57 
+57
 58     r = (*(const unsigned char *)s1 - *(const unsigned char *)(s2 - 1));
-59 
+59
 60     return r == 0;
 61 }
 .fi
 .SS "int StrLen (const char * string)"
 .PP
-Get the length of a null terminated string\&. 
+Get the length of a null terminated string\&.
 .PP
 Definition at line 34 of file strlen\&.c\&.
 .PP
@@ -424,10 +424,10 @@ Definition at line 32 of file untag\&.c\&.
 34     const char *pos, *tmp, *tag;
 35     char* dest;
 36     int unsigned i, j, found;
-37 
+37
 38     pos = source;
 39     dest = destination;
-40 
+40
 41     while (*pos != '\0')
 42     {
 43         if (*pos != '#')
@@ -449,7 +449,7 @@ Definition at line 32 of file untag\&.c\&.
 59                     tag++;
 60                     j++;
 61                 }
-62 
+62
 63                 if (j > 1 && *(--tag) == '#')
 64                 {
 65                     // Tag found\&. Now replace\&.
@@ -461,7 +461,7 @@ Definition at line 32 of file untag\&.c\&.
 71                     break;
 72                 }
 73             }
-74 
+74
 75             if (!found)
 76             {
 77                 (*dest++ = *pos++);
@@ -479,7 +479,7 @@ Written by Carsten Sonne Larsen <cs@innolan.net>. The code in MemSet and
 MemCopy is derived from software contributed to Berkeley by Mike Hibler and
 Chris Torek.
 .SH COPYRIGHT
-Copyright (c) 2014-2018 Carsten Sonne Larsen <cs@innolan.net>
+Copyright (c) 2014-2021 Carsten Sonne Larsen <cs@innolan.net>
 .br
 Copyright (c) 2007 The NetBSD Foundation, Inc.
 .br

src/clib/amathc.dox

@@ -1,10 +1,10 @@
 
 DOXYFILE_ENCODING      = UTF-8
 PROJECT_NAME           = "amathc"
-PROJECT_NUMBER         = "1.8.4"
+PROJECT_NUMBER         = "1.9.0"
 PROJECT_BRIEF          = "C functions for manipulating strings and memory"
 PROJECT_LOGO           =
-OUTPUT_DIRECTORY       = 
+OUTPUT_DIRECTORY       =
 CREATE_SUBDIRS         = NO
 ALLOW_UNICODE_NAMES    = NO
 OUTPUT_LANGUAGE        = English

src/clib/amathc.pc

@@ -5,6 +5,6 @@ libdir=${exec_prefix}/lib
 
 Name: amath C library
 Description: C functions for manipulating strings and memory
-Version: 1.8.4
+Version: 1.9.0
 Cflags: -I${includedir}
 Libs: -L${libdir} -lamathc

src/clib/mem.c

@@ -1,5 +1,5 @@
 /*-
- * Copyright (c) 2014-2018 Carsten Sonne Larsen <cs@innolan.net>
+ * Copyright (c) 2014-2021 Carsten Sonne Larsen <cs@innolan.net>
  * All rights reserved.
  *
  * Redistribution and use in source and binary forms, with or without
@@ -24,7 +24,7 @@
  *
  * Project homepage:
  * https://amath.innolan.net
- * 
+ *
  */
 
 #include "amathc.h"
@@ -35,18 +35,22 @@
 #include <exec/memory.h>
 #include <exec/semaphores.h>
 #include <clib/exec_protos.h>
-#define ALLOC_MEM(x) AllocVec(x, MEMF_ANY | MEMF_CLEAR)
+#define ALLOC_LIST(x) AllocVec(x, MEMF_ANY | MEMF_CLEAR)
-#define FREE_MEM(x) FreeVec(x)
+#define FREE_LIST(x) FreeVec(x)
-#define Debug(x,y,z)
+#define ALLOC_MEM(x, y) AllocPooledZero(x, y)
+#define FREE_MEM(x, y, z) FreePooled(x, y, z)
+#define Debug(x, y, z)
 #else
 #include <stdlib.h>
-#define ALLOC_MEM(x) calloc(1L,x)
+#define ALLOC_LIST(x) calloc(1L, x)
-#define FREE_MEM(x) free(x)
+#define FREE_LIST(x) free(x)
-#define Debug(x,y,z)
+#define ALLOC_MEM(x, y) calloc(1L, y)
+#define FREE_MEM(x, y, z) free(y)
+#define Debug(x, y, z)
 #endif
 
 #if defined(__x86_64__) || defined(__aarch64__) || \
-    defined(_M_AMD64)   || defined(_M_ARM64)    || \
+    defined(_M_AMD64) || defined(_M_ARM64) ||      \
     defined(__powerpc64__)
 #define P64BIT
 #endif
@@ -56,9 +60,9 @@
  */
 struct MemoryBlock
 {
-    struct MemoryBlock* next;
+    struct MemoryBlock *next;
     size_t size;
-    void* address;
+    void *address;
 };
 
 /**
@@ -66,7 +70,8 @@ struct MemoryBlock
  */
 struct MemoryList
 {
-    struct MemoryBlock* first;
+    struct MemoryBlock *first;
+    void *pool;
     size_t peak;
     size_t size;
     long count;
@@ -75,28 +80,56 @@ struct MemoryList
 /**
  * @brief Global list of allocated memory.
  */
-struct MemoryList* list = nullptr;
+struct MemoryList *list = nullptr;
 
-void alloc_error(char*, size_t);
+void alloc_error(char *, size_t);
-void dealloc_error(char*, void*);
+void dealloc_error(char *, void *);
+
+#if defined(AMIGA)
+
+static void MemZero(void *address, ULONG size)
+{
+    char *c = (char *)address;
+    int n = size;
+    do
+    {
+        *c++ = '\0';
+    } while (--n);
+}
+
+static void *AllocPooledZero(void *pool, size_t size)
+{
+    ULONG memSize = (ULONG)size;
+    void *memory = AllocPooled(pool, memSize);
+    if (memory != NULL)
+    {
+        MemZero(memory, memSize);
+    }
+    return memory;
+}
+
+#endif
 
 /**
  * @brief Allocate memory and add it to the global memory list.
  */
-void* AllocMemSafe(size_t size)
+void *AllocMemSafe(size_t size)
 {
-    struct MemoryBlock* newblock;
+    struct MemoryBlock *newblock;
     size_t allocsize;
 
     if (list == nullptr)
     {
-        list = (struct MemoryList*)ALLOC_MEM(sizeof(struct MemoryList));
+        list = (struct MemoryList *)ALLOC_LIST(sizeof(struct MemoryList));
         if (!list)
         {
             alloc_error("list", sizeof(struct MemoryList));
             return 0;
         }
 
+#if defined(AMIGA)
+        list->pool = CreatePool(MEMF_ANY, 4096, 512);
+#endif
         list->first = nullptr;
         list->peak = 0;
         list->size = 0;
@@ -104,24 +137,24 @@ void* AllocMemSafe(size_t size)
     }
 
 #ifdef P64BIT
-    // Align to bytes of 8
+    // Align to bytes of 8, remove 0 bytes allocations
-    allocsize = (size + 7) & ~0x07;
+    allocsize = (size + 8) & ~0x07;
 #else
-    // Align to bytes of 4
+    // Align to bytes of 4, remove 0 bytes allocations
-    allocsize = (size + 3) & ~0x03;
+    allocsize = (size + 4) & ~0x03;
 #endif
 
-    newblock = (struct MemoryBlock*)ALLOC_MEM(sizeof(struct MemoryBlock));
+    newblock = (struct MemoryBlock *)ALLOC_MEM(list->pool, sizeof(struct MemoryBlock));
-    if (!newblock)
+    if (newblock == NULL)
     {
         alloc_error("block", sizeof(struct MemoryBlock));
         return 0;
     }
 
-    newblock->address = (struct MemoryBlock*)ALLOC_MEM(allocsize);
+    newblock->address = (struct MemoryBlock *)ALLOC_MEM(list->pool, allocsize);
-    if (!newblock->address)
+    if (newblock->address == NULL)
     {
-        FREE_MEM(newblock);
+        FREE_MEM(list->pool, newblock, sizeof(struct MemoryBlock));
         alloc_error("memory", allocsize);
         return 0;
     }
@@ -141,7 +174,7 @@ void* AllocMemSafe(size_t size)
     return newblock->address;
 }
 
-void RemoveMemSafe(void* block, bool deallocate)
+void RemoveMemSafe(void *block, bool deallocate)
 {
     struct MemoryBlock *current, *previous;
 
@@ -185,19 +218,19 @@ void RemoveMemSafe(void* block, bool deallocate)
 
     if (deallocate)
     {
-        FREE_MEM(current->address);
+        FREE_MEM(list->pool, current->address, current->size);
     }
 
     current->address = nullptr;
     current->next = nullptr;
     current->size = 0;
-    FREE_MEM(current);
+    FREE_MEM(list->pool, current, sizeof(struct MemoryBlock));
 }
 
 /**
  * @brief Deallocate memory from the global memory list.
  */
-void FreeMemSafe(void* block)
+void FreeMemSafe(void *block)
 {
     RemoveMemSafe(block, true);
 }
@@ -206,7 +239,7 @@ void FreeMemSafe(void* block)
  * @brief   Detach an allocated memory from the global memory list.
  * @details The memory block is only detached, not deallocated.
  */
-void DetachMemSafe(void* block)
+void DetachMemSafe(void *block)
 {
     RemoveMemSafe(block, false);
 }
@@ -227,29 +260,34 @@ void FreeAllSafe()
     while (current != nullptr)
     {
         next = current->next;
-        FREE_MEM(current->address);
+        FREE_MEM(list->pool, current->address, current->size);
-        FREE_MEM(current);
+        FREE_MEM(list->pool, current, sizeof(struct MemoryBlock));
         current = next;
     }
 
-    FREE_MEM(list);
+#if defined(AMIGA)
+    DeletePool(list->pool);
+#endif
+
+    FREE_LIST(list);
     list = nullptr;
 }
 
 /**
  * @brief Get memory usage in the global memory list.
  */
-void MemUsage(long* blocks, long* size, long* peak)
+void MemUsage(long *blocks, long *size, long *peak)
 {
     *blocks = list->count;
     *size = (long)list->size;
-    *peak = (long)list->peak;;
+    *peak = (long)list->peak;
+    ;
 }
 
 /**
  * @brief Log a memory allocation error
  */
-void alloc_error(char* descr, size_t size)
+void alloc_error(char *descr, size_t size)
 {
     Debug("Memory allocation error (%s) with size (%d)\n", descr, size);
     //if (size == 0)
@@ -259,7 +297,7 @@ void alloc_error(char* descr, size_t size)
 /**
  * @brief Log a memory deallocation error
  */
-void dealloc_error(char* descr, void* p)
+void dealloc_error(char *descr, void *p)
 {
     Debug("Memory deallocation error (%s) address (%x)\n", descr, p);
 }

src/clib/memset.c

@@ -1,5 +1,5 @@
 /*-
- * Copyright (c) 2014-2018 Carsten Sonne Larsen <cs@innolan.net>
+ * Copyright (c) 2014-2021 Carsten Sonne Larsen <cs@innolan.net>
  * Copyright (c) 1990, 1993 The Regents of the University of California.
  * All rights reserved.
  *
@@ -28,7 +28,7 @@
  *
  * Project homepage:
  * https://amath.innolan.net
- * 
+ *
  */
 
 /**

src/clib/strcmp.c

@@ -1,5 +1,5 @@
 /*-
- * Copyright (c) 2014-2018 Carsten Sonne Larsen <cs@innolan.net>
+ * Copyright (c) 2014-2021 Carsten Sonne Larsen <cs@innolan.net>
  * Copyright (c) 1990, 1993 The Regents of the University of California.
  * All rights reserved.
  *
@@ -28,7 +28,7 @@
  *
  * Project homepage:
  * https://amath.innolan.net
- * 
+ *
  */
 
 /**

src/clib/strlen.c

@@ -1,5 +1,5 @@
 /*-
- * Copyright (c) 2014-2018 Carsten Sonne Larsen <cs@innolan.net>
+ * Copyright (c) 2014-2021 Carsten Sonne Larsen <cs@innolan.net>
  * All rights reserved.
  *
  * Redistribution and use in source and binary forms, with or without
@@ -24,7 +24,7 @@
  *
  * Project homepage:
  * https://amath.innolan.net
- * 
+ *
  */
 
 /**

src/clib/untag.c

@@ -1,5 +1,5 @@
 /*-
- * Copyright (c) 2014-2018 Carsten Sonne Larsen <cs@innolan.net>
+ * Copyright (c) 2014-2021 Carsten Sonne Larsen <cs@innolan.net>
  * All rights reserved.
  *
  * Redistribution and use in source and binary forms, with or without
@@ -24,7 +24,7 @@
  *
  * Project homepage:
  * https://amath.innolan.net
- * 
+ *
  */
 
 #include "amathc.h"

src/cplex/amathi.dox

@@ -1,10 +1,10 @@
 
 DOXYFILE_ENCODING      = UTF-8
 PROJECT_NAME           = "amathi"
-PROJECT_NUMBER         = "1.8.4"
+PROJECT_NUMBER         = "1.9.0"
 PROJECT_BRIEF          = "Complex numbers math library"
 PROJECT_LOGO           =
-OUTPUT_DIRECTORY       = 
+OUTPUT_DIRECTORY       =
 CREATE_SUBDIRS         = NO
 ALLOW_UNICODE_NAMES    = NO
 OUTPUT_LANGUAGE        = English

src/cplex/amathi.pc

@@ -5,6 +5,6 @@ libdir=${exec_prefix}/lib
 
 Name: amath complex library
 Description: Complex numbers math library
-Version: 1.8.4
+Version: 1.9.0
 Cflags: -I${includedir}
 Libs: -L${libdir} -lamathi

src/cplex/cacos.c

@@ -1,5 +1,5 @@
 /*-
- * Copyright (c) 2014-2018 Carsten Sonne Larsen <cs@innolan.net>
+ * Copyright (c) 2014-2021 Carsten Sonne Larsen <cs@innolan.net>
  * All rights reserved.
  *
  * Redistribution and use in source and binary forms, with or without
@@ -24,7 +24,7 @@
  *
  * Project homepage:
  * https://amath.innolan.net
- * 
+ *
  */
 
 #include "prim.h"

src/cplex/cacosh.c

@@ -1,5 +1,5 @@
 /*-
- * Copyright (c) 2014-2018 Carsten Sonne Larsen <cs@innolan.net>
+ * Copyright (c) 2014-2021 Carsten Sonne Larsen <cs@innolan.net>
  * All rights reserved.
  *
  * Redistribution and use in source and binary forms, with or without
@@ -24,7 +24,7 @@
  *
  * Project homepage:
  * https://amath.innolan.net
- * 
+ *
  */
 
 #include "prim.h"

src/cplex/cacot.c

@@ -1,5 +1,5 @@
 /*-
- * Copyright (c) 2014-2018 Carsten Sonne Larsen <cs@innolan.net>
+ * Copyright (c) 2014-2021 Carsten Sonne Larsen <cs@innolan.net>
  * All rights reserved.
  *
  * Redistribution and use in source and binary forms, with or without
@@ -24,7 +24,7 @@
  *
  * Project homepage:
  * https://amath.innolan.net
- * 
+ *
  */
 
 #include "prim.h"

src/cplex/cacoth.c

@@ -1,5 +1,5 @@
 /*-
- * Copyright (c) 2014-2018 Carsten Sonne Larsen <cs@innolan.net>
+ * Copyright (c) 2014-2021 Carsten Sonne Larsen <cs@innolan.net>
  * All rights reserved.
  *
  * Redistribution and use in source and binary forms, with or without
@@ -24,7 +24,7 @@
  *
  * Project homepage:
  * https://amath.innolan.net
- * 
+ *
  */
 
 #include "prim.h"

src/cplex/cacsc.c

@@ -1,5 +1,5 @@
 /*-
- * Copyright (c) 2014-2018 Carsten Sonne Larsen <cs@innolan.net>
+ * Copyright (c) 2014-2021 Carsten Sonne Larsen <cs@innolan.net>
  * All rights reserved.
  *
  * Redistribution and use in source and binary forms, with or without
@@ -24,7 +24,7 @@
  *
  * Project homepage:
  * https://amath.innolan.net
- * 
+ *
  */
 
 #include "prim.h"

src/cplex/cacsch.c

@@ -1,5 +1,5 @@
 /*-
- * Copyright (c) 2014-2018 Carsten Sonne Larsen <cs@innolan.net>
+ * Copyright (c) 2014-2021 Carsten Sonne Larsen <cs@innolan.net>
  * All rights reserved.
  *
  * Redistribution and use in source and binary forms, with or without
@@ -24,7 +24,7 @@
  *
  * Project homepage:
  * https://amath.innolan.net
- * 
+ *
  */
 
 #include "prim.h"

src/cplex/casec.c

@@ -1,5 +1,5 @@
 /*-
- * Copyright (c) 2014-2018 Carsten Sonne Larsen <cs@innolan.net>
+ * Copyright (c) 2014-2021 Carsten Sonne Larsen <cs@innolan.net>
  * All rights reserved.
  *
  * Redistribution and use in source and binary forms, with or without
@@ -24,7 +24,7 @@
  *
  * Project homepage:
  * https://amath.innolan.net
- * 
+ *
  */
 
 #include "prim.h"

src/cplex/casech.c

@@ -1,5 +1,5 @@
 /*-
- * Copyright (c) 2014-2018 Carsten Sonne Larsen <cs@innolan.net>
+ * Copyright (c) 2014-2021 Carsten Sonne Larsen <cs@innolan.net>
  * All rights reserved.
  *
  * Redistribution and use in source and binary forms, with or without
@@ -24,7 +24,7 @@
  *
  * Project homepage:
  * https://amath.innolan.net
- * 
+ *
  */
 
 #include "prim.h"

src/cplex/casin.c

@@ -1,5 +1,5 @@
 /*-
- * Copyright (c) 2014-2018 Carsten Sonne Larsen <cs@innolan.net>
+ * Copyright (c) 2014-2021 Carsten Sonne Larsen <cs@innolan.net>
  * All rights reserved.
  *
  * Redistribution and use in source and binary forms, with or without
@@ -24,7 +24,7 @@
  *
  * Project homepage:
  * https://amath.innolan.net
- * 
+ *
  */
 
 #include "prim.h"

src/cplex/casinh.c

@@ -1,5 +1,5 @@
 /*-
- * Copyright (c) 2014-2018 Carsten Sonne Larsen <cs@innolan.net>
+ * Copyright (c) 2014-2021 Carsten Sonne Larsen <cs@innolan.net>
  * All rights reserved.
  *
  * Redistribution and use in source and binary forms, with or without
@@ -24,7 +24,7 @@
  *
  * Project homepage:
  * https://amath.innolan.net
- * 
+ *
  */
 
 #include "prim.h"

src/cplex/catan.c

@@ -1,5 +1,5 @@
 /*-
- * Copyright (c) 2014-2018 Carsten Sonne Larsen <cs@innolan.net>
+ * Copyright (c) 2014-2021 Carsten Sonne Larsen <cs@innolan.net>
  * All rights reserved.
  *
  * Redistribution and use in source and binary forms, with or without
@@ -24,7 +24,7 @@
  *
  * Project homepage:
  * https://amath.innolan.net
- * 
+ *
  */
 
 #include "prim.h"

src/cplex/catanh.c

@@ -1,5 +1,5 @@
 /*-
- * Copyright (c) 2014-2018 Carsten Sonne Larsen <cs@innolan.net>
+ * Copyright (c) 2014-2021 Carsten Sonne Larsen <cs@innolan.net>
  * All rights reserved.
  *
  * Redistribution and use in source and binary forms, with or without
@@ -24,7 +24,7 @@
  *
  * Project homepage:
  * https://amath.innolan.net
- * 
+ *
  */
 
 #include "prim.h"

src/cplex/ccbrt.c

@@ -1,5 +1,5 @@
 /*-
- * Copyright (c) 2014-2018 Carsten Sonne Larsen <cs@innolan.net>
+ * Copyright (c) 2014-2021 Carsten Sonne Larsen <cs@innolan.net>
  * All rights reserved.
  *
  * Redistribution and use in source and binary forms, with or without
@@ -24,7 +24,7 @@
  *
  * Project homepage:
  * https://amath.innolan.net
- * 
+ *
  */
 
 #include "prim.h"

src/cplex/ccos.c

@@ -1,5 +1,5 @@
 /*-
- * Copyright (c) 2014-2018 Carsten Sonne Larsen <cs@innolan.net>
+ * Copyright (c) 2014-2021 Carsten Sonne Larsen <cs@innolan.net>
  * Copyright (c) 2007 The NetBSD Foundation, Inc.
  * All rights reserved.
  *
@@ -28,7 +28,7 @@
  *
  * Project homepage:
  * https://amath.innolan.net
- * 
+ *
  */
 
 #include "prim.h"

src/cplex/ccosh.c

@@ -1,5 +1,5 @@
 /*-
- * Copyright (c) 2014-2018 Carsten Sonne Larsen <cs@innolan.net>
+ * Copyright (c) 2014-2021 Carsten Sonne Larsen <cs@innolan.net>
  * Copyright (c) 2007 The NetBSD Foundation, Inc.
  * All rights reserved.
  *
@@ -31,7 +31,7 @@
  *
  * Project homepage:
  * https://amath.innolan.net
- * 
+ *
  */
 
 #include "prim.h"

src/cplex/ccot.c

@@ -1,5 +1,5 @@
 /*-
- * Copyright (c) 2014-2018 Carsten Sonne Larsen <cs@innolan.net>
+ * Copyright (c) 2014-2021 Carsten Sonne Larsen <cs@innolan.net>
  * All rights reserved.
  *
  * Redistribution and use in source and binary forms, with or without
@@ -24,7 +24,7 @@
  *
  * Project homepage:
  * https://amath.innolan.net
- * 
+ *
  */
 
 #include "prim.h"

src/cplex/ccoth.c

@@ -1,5 +1,5 @@
 /*-
- * Copyright (c) 2014-2018 Carsten Sonne Larsen <cs@innolan.net>
+ * Copyright (c) 2014-2021 Carsten Sonne Larsen <cs@innolan.net>
  * All rights reserved.
  *
  * Redistribution and use in source and binary forms, with or without
@@ -24,7 +24,7 @@
  *
  * Project homepage:
  * https://amath.innolan.net
- * 
+ *
  */
 
 #include "prim.h"

src/cplex/ccsc.c

@@ -1,5 +1,5 @@
 /*-
- * Copyright (c) 2014-2018 Carsten Sonne Larsen <cs@innolan.net>
+ * Copyright (c) 2014-2021 Carsten Sonne Larsen <cs@innolan.net>
  * All rights reserved.
  *
  * Redistribution and use in source and binary forms, with or without
@@ -24,7 +24,7 @@
  *
  * Project homepage:
  * https://amath.innolan.net
- * 
+ *
  */
 
 #include "prim.h"

src/cplex/ccsch.c

@@ -1,5 +1,5 @@
 /*-
- * Copyright (c) 2014-2018 Carsten Sonne Larsen <cs@innolan.net>
+ * Copyright (c) 2014-2021 Carsten Sonne Larsen <cs@innolan.net>
  * All rights reserved.
  *
  * Redistribution and use in source and binary forms, with or without
@@ -24,7 +24,7 @@
  *
  * Project homepage:
  * https://amath.innolan.net
- * 
+ *
  */
 
 #include "prim.h"

src/cplex/cexp.c

@@ -1,5 +1,5 @@
 /*-
- * Copyright (c) 2014-2018 Carsten Sonne Larsen <cs@innolan.net>
+ * Copyright (c) 2014-2021 Carsten Sonne Larsen <cs@innolan.net>
  * Copyright (c) 2007 The NetBSD Foundation, Inc.
  * All rights reserved.
  *
@@ -31,7 +31,7 @@
  *
  * Project homepage:
  * https://amath.innolan.net
- * 
+ *
  */
 
 #include "prim.h"

src/cplex/clog.c

@@ -1,5 +1,5 @@
 /*-
- * Copyright (c) 2014-2018 Carsten Sonne Larsen <cs@innolan.net>
+ * Copyright (c) 2014-2021 Carsten Sonne Larsen <cs@innolan.net>
  * Copyright (c) 2007 The NetBSD Foundation, Inc.
  * All rights reserved.
  *
@@ -31,7 +31,7 @@
  *
  * Project homepage:
  * https://amath.innolan.net
- * 
+ *
  */
 
 #include "prim.h"

src/cplex/clog10.c

@@ -1,5 +1,5 @@
 /*-
- * Copyright (c) 2014-2018 Carsten Sonne Larsen <cs@innolan.net>
+ * Copyright (c) 2014-2021 Carsten Sonne Larsen <cs@innolan.net>
  * All rights reserved.
  *
  * Redistribution and use in source and binary forms, with or without
@@ -24,7 +24,7 @@
  *
  * Project homepage:
  * https://amath.innolan.net
- * 
+ *
  */
 
 #include "prim.h"

src/cplex/clogb.c

@@ -1,5 +1,5 @@
 /*-
- * Copyright (c) 2014-2018 Carsten Sonne Larsen <cs@innolan.net>
+ * Copyright (c) 2014-2021 Carsten Sonne Larsen <cs@innolan.net>
  * All rights reserved.
  *
  * Redistribution and use in source and binary forms, with or without
@@ -24,7 +24,7 @@
  *
  * Project homepage:
  * https://amath.innolan.net
- * 
+ *
  */
 
 #include "prim.h"

src/cplex/cpow.c

@@ -1,5 +1,5 @@
 /*-
- * Copyright (c) 2014-2018 Carsten Sonne Larsen <cs@innolan.net>
+ * Copyright (c) 2014-2021 Carsten Sonne Larsen <cs@innolan.net>
  * Copyright (c) 2007 The NetBSD Foundation, Inc.
  * All rights reserved.
  *
@@ -31,7 +31,7 @@
  *
  * Project homepage:
  * https://amath.innolan.net
- * 
+ *
  */
 
 #include "prim.h"

src/cplex/csec.c

@@ -1,5 +1,5 @@
 /*-
- * Copyright (c) 2014-2018 Carsten Sonne Larsen <cs@innolan.net>
+ * Copyright (c) 2014-2021 Carsten Sonne Larsen <cs@innolan.net>
  * All rights reserved.
  *
  * Redistribution and use in source and binary forms, with or without
@@ -24,7 +24,7 @@
  *
  * Project homepage:
  * https://amath.innolan.net
- * 
+ *
  */
 
 #include "prim.h"

src/cplex/csech.c

@@ -1,5 +1,5 @@
 /*-
- * Copyright (c) 2014-2018 Carsten Sonne Larsen <cs@innolan.net>
+ * Copyright (c) 2014-2021 Carsten Sonne Larsen <cs@innolan.net>
  * All rights reserved.
  *
  * Redistribution and use in source and binary forms, with or without
@@ -24,7 +24,7 @@
  *
  * Project homepage:
  * https://amath.innolan.net
- * 
+ *
  */
 
 #include "prim.h"

src/cplex/csgn.c

@@ -1,5 +1,5 @@
 /*-
- * Copyright (c) 2014-2018 Carsten Sonne Larsen <cs@innolan.net>
+ * Copyright (c) 2014-2021 Carsten Sonne Larsen <cs@innolan.net>
  * All rights reserved.
  *
  * Redistribution and use in source and binary forms, with or without
@@ -24,7 +24,7 @@
  *
  * Project homepage:
  * https://amath.innolan.net
- * 
+ *
  */
 
 #include "prim.h"

src/cplex/csin.c

@@ -1,5 +1,5 @@
 /*-
- * Copyright (c) 2014-2018 Carsten Sonne Larsen <cs@innolan.net>
+ * Copyright (c) 2014-2021 Carsten Sonne Larsen <cs@innolan.net>
  * Copyright (c) 2007 The NetBSD Foundation, Inc.
  * All rights reserved.
  *
@@ -31,7 +31,7 @@
  *
  * Project homepage:
  * https://amath.innolan.net
- * 
+ *
  */
 
 #include "prim.h"

src/cplex/csinh.c

@@ -1,5 +1,5 @@
 /*-
- * Copyright (c) 2014-2018 Carsten Sonne Larsen <cs@innolan.net>
+ * Copyright (c) 2014-2021 Carsten Sonne Larsen <cs@innolan.net>
  * Copyright (c) 2007 The NetBSD Foundation, Inc.
  * All rights reserved.
  *
@@ -31,7 +31,7 @@
  *
  * Project homepage:
  * https://amath.innolan.net
- * 
+ *
  */
 
 #include "prim.h"

src/cplex/csqrt.c

@@ -1,5 +1,5 @@
 /*-
- * Copyright (c) 2014-2018 Carsten Sonne Larsen <cs@innolan.net>
+ * Copyright (c) 2014-2021 Carsten Sonne Larsen <cs@innolan.net>
  * Copyright (c) 2007 The NetBSD Foundation, Inc.
  * All rights reserved.
  *
@@ -31,7 +31,7 @@
  *
  * Project homepage:
  * https://amath.innolan.net
- * 
+ *
  */
 
 #include "prim.h"

src/cplex/ctan.c

@@ -1,5 +1,5 @@
 /*-
- * Copyright (c) 2014-2018 Carsten Sonne Larsen <cs@innolan.net>
+ * Copyright (c) 2014-2021 Carsten Sonne Larsen <cs@innolan.net>
  * Copyright (c) 2007 The NetBSD Foundation, Inc.
  * All rights reserved.
  *
@@ -31,7 +31,7 @@
  *
  * Project homepage:
  * https://amath.innolan.net
- * 
+ *
  */
 
 #include "prim.h"

src/cplex/ctanh.c

@@ -1,5 +1,5 @@
 /*-
- * Copyright (c) 2014-2018 Carsten Sonne Larsen <cs@innolan.net>
+ * Copyright (c) 2014-2021 Carsten Sonne Larsen <cs@innolan.net>
  * Copyright (c) 2007 The NetBSD Foundation, Inc.
  * All rights reserved.
  *
@@ -31,7 +31,7 @@
  *
  * Project homepage:
  * https://amath.innolan.net
- * 
+ *
  */
 
 #include "prim.h"

src/cplex/prim.c

@@ -1,5 +1,5 @@
 /*-
- * Copyright (c) 2014-2018 Carsten Sonne Larsen <cs@innolan.net>
+ * Copyright (c) 2014-2021 Carsten Sonne Larsen <cs@innolan.net>
  * All rights reserved.
  *
  * Redistribution and use in source and binary forms, with or without
@@ -24,7 +24,7 @@
  *
  * Project homepage:
  * https://amath.innolan.net
- * 
+ *
  */
 
 #include "prim.h"

src/cplex/prim.h

@@ -1,5 +1,5 @@
 /*-
- * Copyright (c) 2014-2018 Carsten Sonne Larsen <cs@innolan.net>
+ * Copyright (c) 2014-2021 Carsten Sonne Larsen <cs@innolan.net>
  * All rights reserved.
  *
  * Redistribution and use in source and binary forms, with or without
@@ -24,7 +24,7 @@
  *
  * Project homepage:
  * https://amath.innolan.net
- * 
+ *
  */
 
 #ifndef AMATH_LIB_COMPLEX_PRIM_H

src/lib/aengine.cpp

@@ -1,5 +1,5 @@
 /*-
- * Copyright (c) 2014-2018 Carsten Sonne Larsen <cs@innolan.net>
+ * Copyright (c) 2014-2021 Carsten Sonne Larsen <cs@innolan.net>
  * All rights reserved.
  *
  * Redistribution and use in source and binary forms, with or without
@@ -24,7 +24,7 @@
  *
  * Project homepage:
  * https://amath.innolan.net
- * 
+ *
  */
 
 #include "amath.h"
@@ -190,7 +190,7 @@ const char* AnsiConoleEngine::ProcessChar(const unsigned char character)
             }
             else
             {
-                out->Append(DELETE1CHARASC);                
+                out->Append(DELETE1CHARASC);
             }
             endpos--;
             linebuf->ptr = endpos;
@@ -234,7 +234,7 @@ const char* AnsiConoleEngine::ProcessChar(const unsigned char character)
         }
         else
         {
-            out->Append(DELETE1CHARASC);                
+            out->Append(DELETE1CHARASC);
         }
         cursor--;
         endpos--;

src/lib/aengine.h

@@ -1,5 +1,5 @@
 /*-
- * Copyright (c) 2014-2018 Carsten Sonne Larsen <cs@innolan.net>
+ * Copyright (c) 2014-2021 Carsten Sonne Larsen <cs@innolan.net>
  * All rights reserved.
  *
  * Redistribution and use in source and binary forms, with or without
@@ -24,7 +24,7 @@
  *
  * Project homepage:
  * https://amath.innolan.net
- * 
+ *
  */
 
 #ifndef AMATH_ANSI_CONSOLE_ENGINE

src/lib/amatha.pc

@@ -5,6 +5,6 @@ libdir=${exec_prefix}/lib
 
 Name: amath application library
 Description: C++ library for handling numbers
-Version: 1.8.4
+Version: 1.9.0
 Cflags: -I${includedir}
 Libs: -L${libdir} -lamathapp -lamathr -lamathi -lamathc

src/lib/bigint.cpp

@@ -1,5 +1,5 @@
 /*-
- * Copyright (c) 2014-2018 Carsten Sonne Larsen <cs@innolan.net>
+ * Copyright (c) 2014-2021 Carsten Sonne Larsen <cs@innolan.net>
  * All rights reserved.
  *
  * Redistribution and use in source and binary forms, with or without
@@ -24,7 +24,7 @@
  *
  * Project homepage:
  * https://amath.innolan.net
- * 
+ *
  */
 
 /*

src/lib/bigint.h

@@ -1,5 +1,5 @@
 /*-
- * Copyright (c) 2014-2018 Carsten Sonne Larsen <cs@innolan.net>
+ * Copyright (c) 2014-2021 Carsten Sonne Larsen <cs@innolan.net>
  * All rights reserved.
  *
  * Redistribution and use in source and binary forms, with or without
@@ -24,7 +24,7 @@
  *
  * Project homepage:
  * https://amath.innolan.net
- * 
+ *
  */
 
 /*

src/lib/charbuf.cpp

@@ -1,5 +1,5 @@
 /*-
- * Copyright (c) 2014-2018 Carsten Sonne Larsen <cs@innolan.net>
+ * Copyright (c) 2014-2021 Carsten Sonne Larsen <cs@innolan.net>
  * All rights reserved.
  *
  * Redistribution and use in source and binary forms, with or without
@@ -24,7 +24,7 @@
  *
  * Project homepage:
  * https://amath.innolan.net
- * 
+ *
  */
 
 #include "amath.h"
@@ -66,7 +66,7 @@ void CharBuffer::ClearBuffer()
 {
     if (buf != nullptr)
     {
-        delete [] buf;
+        delete[] buf;
     }
 
     buf = nullptr;
@@ -78,7 +78,7 @@ void CharBuffer::ClearBuffer()
  * @brief Release memory, allocate and copy source.
  *
  */
-void CharBuffer::ClearAndCopy(const char* source)
+void CharBuffer::ClearAndCopy(const char *source)
 {
     ClearBuffer();
     cursize = AllocAndCopy(&buf, source);
@@ -125,7 +125,7 @@ void CharBuffer::EnsureSize(unsigned int size)
         }
         else if (buf == ptr)
         { // Already allocated but buffer is empty.
-            delete [] buf;
+            delete[] buf;
             buf = new char[cursize];
             ptr = buf;
         }
@@ -134,9 +134,9 @@ void CharBuffer::EnsureSize(unsigned int size)
             // Make at least double size
             cursize = cursize < tempsize * 2 ? tempsize * 2 : cursize;
             unsigned int offset = (unsigned int)(ptr - buf);
-            char* temp = new char[cursize];
+            char *temp = new char[cursize];
             MemCopy(temp, buf, tempsize);
-            delete [] buf;
+            delete[] buf;
             buf = temp;
             ptr = buf + offset;
         }
@@ -156,9 +156,9 @@ void CharBuffer::EnsureSize(unsigned int blocksize, unsigned int blocks)
         else
         {
             unsigned int tptr = (unsigned int)(ptr - buf);
-            char* temp = new char[blocksize * blocks];
+            char *temp = new char[blocksize * blocks];
             MemCopy(temp, buf, cursize);
-            delete [] buf;
+            delete[] buf;
             cursize = blocksize * blocks;
             buf = temp;
             ptr = buf + tptr;
@@ -173,7 +173,7 @@ void CharBuffer::EnsureGrowth(unsigned int size)
 
 bool CharBuffer::IsEmpty() const
 {
-    char* i = buf;
+    char *i = buf;
 
     if (i == nullptr || buf == ptr)
         return true;
@@ -185,20 +185,19 @@ bool CharBuffer::IsEmpty() const
             return false;
 
         i++;
-    }
+    } while (i != ptr);
-    while (i != ptr);
 
     return true;
 }
 
-bool CharBuffer::Is(const char* string) const
+bool CharBuffer::Is(const char *string) const
 {
     return StrIsEqual(GetString(), string);
 }
 
 bool CharBuffer::Contains(const char c) const
 {
-    char* i = buf;
+    char *i = buf;
 
     if (i == nullptr || buf == ptr)
         return false;
@@ -209,8 +208,7 @@ bool CharBuffer::Contains(const char c) const
             return true;
 
         i++;
-    }
+    } while (i != ptr);
-    while (i != ptr);
 
     return false;
 }
@@ -230,14 +228,15 @@ void CharBuffer::DeleteLastChar()
     ptr--;
 }
 
-void CharBuffer::Copy(CharBuffer* source)
+void CharBuffer::Copy(CharBuffer *source)
 {
     EnsureSize(source->cursize);
-    const char* s = source->GetString();
+    const char *s = source->GetString();
 
     ptr = buf;
     // ReSharper disable once CppPossiblyErroneousEmptyStatements
-    while ((*ptr++ = *s++));
+    while ((*ptr++ = *s++))
+        ;
 
     ptr--;
 }
@@ -259,14 +258,49 @@ void CharBuffer::Append(const char c, unsigned int count)
         *ptr++ = c;
 }
 
-void CharBuffer::Append(const char* source)
+void CharBuffer::Append(const char *source)
 {
     // ReSharper disable once CppPossiblyErroneousEmptyStatements
-    while ((*ptr++ = *source++));
+    while ((*ptr++ = *source++))
+        ;
 
     ptr--;
 }
 
+void CharBuffer::AppendNumber(signed long value)
+{
+    static const char *alphaNumerics = "0123456789";
+    unsigned int count = 0;
+    unsigned long current = value;
+    char chars[12];
+    char *p = chars;
+    bool negative = false;
+
+    if (value < 0)
+    {
+        current = -value;
+        negative = true;
+    }
+
+    do
+    {
+        unsigned long remainder = current % 10;
+        *p++ = alphaNumerics[remainder];
+        current /= 10;
+        count++;
+    } while (current >= 1);
+
+    p--;
+
+    if (negative)
+    {
+        *ptr++ = '-';
+    }
+
+    while (count-- != 0)
+        *ptr++ = *p--;
+}
+
 bool CharBuffer::RemoveTrailing(const char c)
 {
     if (ptr == buf)
@@ -283,10 +317,10 @@ bool CharBuffer::RemoveTrailing(const char c)
     return false;
 }
 
-bool CharBuffer::RemoveTrailing(const char* string)
+bool CharBuffer::RemoveTrailing(const char *string)
 {
     int len = StrLen(string) * sizeof(char);
-    char* s = ptr - len;
+    char *s = ptr - len;
     if (s < buf)
     {
         return false;
@@ -303,8 +337,21 @@ bool CharBuffer::RemoveTrailing(const char* string)
     return false;
 }
 
-char* CharBuffer::GetString() const
+char *CharBuffer::GetString() const
 {
     *ptr = '\0';
     return buf;
 }
+
+void CharBuffer::CopyTo(char *string)
+{
+    char *q = buf;
+    char *p = string;
+
+    *ptr = '\0';
+
+    while ((*p++ = *q++))
+        ;
+
+    *p = '\0';
+}

src/lib/charbuf.h

@@ -1,5 +1,5 @@
 /*-
- * Copyright (c) 2014-2018 Carsten Sonne Larsen <cs@innolan.net>
+ * Copyright (c) 2014-2021 Carsten Sonne Larsen <cs@innolan.net>
  * All rights reserved.
  *
  * Redistribution and use in source and binary forms, with or without
@@ -24,7 +24,7 @@
  *
  * Project homepage:
  * https://amath.innolan.net
- * 
+ *
  */
 
 #ifndef AMATH_CHAR_BUFFER_H
@@ -69,11 +69,14 @@ public:
     void Append(const char* source);
     void Append(const char c);
     void Append(const char c, unsigned int count);
+    void AppendNumber(signed long value);
 
     void DeleteLastChar();
     bool RemoveTrailing(const char c);
     bool RemoveTrailing(const char* string);
     char* GetString() const;
+    void CopyTo(char *string);
+
 
 private:
     friend class AnsiConoleEngine;

src/lib/charval.h

@@ -1,5 +1,5 @@
 /*-
- * Copyright (c) 2014-2018 Carsten Sonne Larsen <cs@innolan.net>
+ * Copyright (c) 2014-2021 Carsten Sonne Larsen <cs@innolan.net>
  * All rights reserved.
  *
  * Redistribution and use in source and binary forms, with or without
@@ -24,7 +24,7 @@
  *
  * Project homepage:
  * https://amath.innolan.net
- * 
+ *
  */
 
 #ifndef AMATH_CHAR_VALIDATOR_H

src/lib/cplex.cpp

@@ -1,5 +1,5 @@
 /*-
- * Copyright (c) 2014-2018 Carsten Sonne Larsen <cs@innolan.net>
+ * Copyright (c) 2014-2021 Carsten Sonne Larsen <cs@innolan.net>
  * All rights reserved.
  *
  * Redistribution and use in source and binary forms, with or without
@@ -24,7 +24,7 @@
  *
  * Project homepage:
  * https://amath.innolan.net
- * 
+ *
  */
 
 #include "mathr.h"
@@ -139,7 +139,7 @@ bool ComplexNumber::IsInfinite()
     double b = cimag(z);
 
     // Handle subnormal values
-    bool subInf = 
+    bool subInf =
         (a > 0 && a <= 1e-308) || (a < 0 && a >= -1e-308) ||
         (b > 0 && b <= 1e-308) || (b < 0 && b >= -1e-308);
 

src/lib/cplex.h

@@ -1,5 +1,5 @@
 /*-
- * Copyright (c) 2014-2018 Carsten Sonne Larsen <cs@innolan.net>
+ * Copyright (c) 2014-2021 Carsten Sonne Larsen <cs@innolan.net>
  * All rights reserved.
  *
  * Redistribution and use in source and binary forms, with or without
@@ -24,7 +24,7 @@
  *
  * Project homepage:
  * https://amath.innolan.net
- * 
+ *
  */
 
 #ifndef AMATH_COMPLEX_NUMBER_H

src/lib/nnumb.cpp

@@ -1,5 +1,5 @@
 /*-
- * Copyright (c) 2014-2018 Carsten Sonne Larsen <cs@innolan.net>
+ * Copyright (c) 2014-2021 Carsten Sonne Larsen <cs@innolan.net>
  * All rights reserved.
  *
  * Redistribution and use in source and binary forms, with or without
@@ -24,7 +24,7 @@
  *
  * Project homepage:
  * https://amath.innolan.net
- * 
+ *
  */
 
 #include "numb.h"
@@ -202,12 +202,12 @@ Number* NonNumber::Secant()
 
 /**
  * @brief Trigonometric tangent function
- * 
+ *
  * Tangent of +INF and -INF is NaN (with signals).
  * Tangent of NaN is NaN.
- * 
+ *
  * Signals are not implemented.
- * 
+ *
  */
 Number* NonNumber::Tangent()
 {

src/lib/nnumb.h

@@ -1,5 +1,5 @@
 /*-
- * Copyright (c) 2014-2018 Carsten Sonne Larsen <cs@innolan.net>
+ * Copyright (c) 2014-2021 Carsten Sonne Larsen <cs@innolan.net>
  * All rights reserved.
  *
  * Redistribution and use in source and binary forms, with or without
@@ -24,7 +24,7 @@
  *
  * Project homepage:
  * https://amath.innolan.net
- * 
+ *
  */
 
 #ifndef AMATH_NON_NUMBER_H

src/lib/ntext.cpp

@@ -1,5 +1,5 @@
 /*-
- * Copyright (c) 2014-2018 Carsten Sonne Larsen <cs@innolan.net>
+ * Copyright (c) 2014-2021 Carsten Sonne Larsen <cs@innolan.net>
  * All rights reserved.
  *
  * Redistribution and use in source and binary forms, with or without
@@ -24,7 +24,7 @@
  *
  * Project homepage:
  * https://amath.innolan.net
- * 
+ *
  */
 
 #include "ntext.h"