From 1bf8a67c114568b307c1df6dfe2042e2a3eab49b Mon Sep 17 00:00:00 2001
From: "Andrew J. Schorr" <aschorr@telemetry-investments.com>
Date: Tue, 22 Jun 2021 13:45:25 -0400
Subject: Add isnumeric function.

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

(limited to 'awklib/eg/lib/isnumeric.awk')

diff --git a/awklib/eg/lib/isnumeric.awk b/awklib/eg/lib/isnumeric.awk
new file mode 100644
index 00000000..6309e76a
--- /dev/null
+++ b/awklib/eg/lib/isnumeric.awk
@@ -0,0 +1,14 @@
+# isnumeric --- check whether a value is numeric
+
+function isnumeric(x,  f)
+{
+	switch (typeof(x)) {
+	case "strnum":
+	case "number":
+		return 1
+	case "string":
+		return (split(x, f, " ") == 1) && (typeof(f[1]) == "strnum")
+	default:
+		return 0
+	}
+}
-- 
cgit v1.2.3