Add intdiv0.awk in examples.

1 files changed, 23 insertions, 0 deletions

diff --git a/awklib/eg/lib/intdiv0.awk b/awklib/eg/lib/intdiv0.awk
new file mode 100644
index 00000000..9de5978e
--- /dev/null
+++ b/awklib/eg/lib/intdiv0.awk
@@ -0,0 +1,23 @@
+# 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
+}