From bd9f81e572ea6d7a48a352fabc1e8cddcb9d39e7 Mon Sep 17 00:00:00 2001
From: "Arnold D. Robbins" <arnold@skeeve.com>
Date: Mon, 2 Oct 2017 22:00:40 +0300
Subject: Add intdiv0.awk in examples.

---
 awklib/eg/lib/intdiv0.awk | 23 +++++++++++++++++++++++
 1 file changed, 23 insertions(+)
 create mode 100644 awklib/eg/lib/intdiv0.awk

(limited to 'awklib/eg')

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
+}
-- 
cgit v1.2.3