From 6776d0066ac3bd96228fe6fc98395023562e29d7 Mon Sep 17 00:00:00 2001 From: "Arnold D. Robbins" Date: Sun, 1 Oct 2017 22:11:30 +0300 Subject: Manual updates from Antonio, mainly URL fixes. --- awklib/eg/prog/anagram.awk | 2 +- awklib/eg/prog/pi.awk | 2 +- 2 files changed, 2 insertions(+), 2 deletions(-) (limited to 'awklib') diff --git a/awklib/eg/prog/anagram.awk b/awklib/eg/prog/anagram.awk index df2768d9..4c2ce1fd 100644 --- a/awklib/eg/prog/anagram.awk +++ b/awklib/eg/prog/anagram.awk @@ -9,7 +9,7 @@ # - split() with "" as separator splits out individual characters # - asort() and asorti() functions # -# See http://savannah.gnu.org/projects/gawk. +# See https://savannah.gnu.org/projects/gawk. # # Arnold Robbins # arnold@skeeve.com diff --git a/awklib/eg/prog/pi.awk b/awklib/eg/prog/pi.awk index e1b5bc4f..91060db9 100644 --- a/awklib/eg/prog/pi.awk +++ b/awklib/eg/prog/pi.awk @@ -10,7 +10,7 @@ BEGIN { for (m = digits * 4; m > 0; --m) { d = m * 2 + 1 x = pi * m - intdiv(x, d, result) + intdiv0(x, d, result) pi = result["quotient"] pi = pi + two } -- cgit v1.2.3 From 161ab89bfe117326be4452eaca2bd7b268cf4b08 Mon Sep 17 00:00:00 2001 From: "Arnold D. Robbins" Date: Sun, 1 Oct 2017 22:20:10 +0300 Subject: Removed awklib/eg/lib/intdiv.awk. --- awklib/eg/lib/intdiv.awk | 23 ----------------------- 1 file changed, 23 deletions(-) delete mode 100644 awklib/eg/lib/intdiv.awk (limited to 'awklib') diff --git a/awklib/eg/lib/intdiv.awk b/awklib/eg/lib/intdiv.awk deleted file mode 100644 index 9de5978e..00000000 --- a/awklib/eg/lib/intdiv.awk +++ /dev/null @@ -1,23 +0,0 @@ -# intdiv0 --- do integer division - -# -# Arnold Robbins, arnold@skeeve.com, Public Domain -# July, 2014 -# -# Name changed from div() to intdiv() -# April, 2015 -# -# Changed to intdiv0() -# April, 2016 - -function intdiv0(numerator, denominator, result) -{ - split("", result) - - numerator = int(numerator) - denominator = int(denominator) - result["quotient"] = int(numerator / denominator) - result["remainder"] = int(numerator % denominator) - - return 0.0 -} -- cgit v1.2.3