From b72553f6f021186d1b1159de43872ec7ce4884cc Mon Sep 17 00:00:00 2001
From: James Turner <zakalawe@mac.com>
Date: Sat, 18 Apr 2020 18:06:35 +0100
Subject: [PATCH] Nasal: add isscalar() for Henning

---
 simgear/nasal/lib.c | 8 ++++++++
 1 file changed, 8 insertions(+)

diff --git a/simgear/nasal/lib.c b/simgear/nasal/lib.c
index 67619909..d3d2749c 100644
--- a/simgear/nasal/lib.c
+++ b/simgear/nasal/lib.c
@@ -242,6 +242,13 @@ static naRef f_typeof(naContext c, naRef me, int argc, naRef* args)
     return NEWCSTR(c, t);
 }
 
+static naRef f_isscalar(naContext c, naRef me, int argc, naRef* args)
+{
+    naRef r = argc > 0 ? args[0] : naNil();
+    if(naIsString(r) || naIsNum(r)) return naNum(1);
+    else return naNum(0);
+}
+
 static naRef f_isstr(naContext c, naRef me, int argc, naRef* args)
 {
     naRef r = argc > 0 ? args[0] : naNil();
@@ -702,6 +709,7 @@ static naCFuncItem funcs[] = {
     { "bind", f_bind },
     { "sort", f_sort },
     { "id", f_id },
+    { "isscalar", f_isscalar },
     { "isint", f_isint },
     { "isnum", f_isnum },
     { "isghost", f_isghost },