From b0636daa0db080b584a11d2a26ac6fcd01125403 Mon Sep 17 00:00:00 2001
From: David Walter Seikel
Date: Wed, 26 Mar 2014 16:56:08 +1000
Subject: Add my standard isBoolean().

---
 ClientHamr/GuiLua/skang.lua | 24 ++++++++++++++++++++++++
 1 file changed, 24 insertions(+)

(limited to 'ClientHamr/GuiLua/skang.lua')

diff --git a/ClientHamr/GuiLua/skang.lua b/ClientHamr/GuiLua/skang.lua
index 418cd10..d8f0343 100644
--- a/ClientHamr/GuiLua/skang.lua
+++ b/ClientHamr/GuiLua/skang.lua
@@ -124,6 +124,30 @@ end
 local _M = moduleBegin('skang', 'David Seikel', '2014', '0.0', '2014-03-19 19:01:00')
 
 
+-- My clever boolean check, this is the third language I've written this in.  B-)
+-- true   1 yes ack  ok   one  positive absolutely affirmative  'ah ha' 'shit yeah' 'why not'
+local isTrue  = 't1aopswy'
+-- false  0 no  nack nope zero negative nah 'no way' 'get real' 'uh uh' 'fuck off' 'bugger off'
+local isFalse = 'f0bgnuz'
+isBoolean = function (aBoolean)
+    local result = false
+
+    if type(aBoolean) ~= 'nil' then
+      -- The default case, presence of a value means it's true.
+      result = true
+      if     type(aBoolean) == 'boolean'  then result = aBoolean
+      elseif type(aBoolean) == 'function' then result = aBoolean()
+      elseif type(aBoolean) == 'number'   then result = (aBoolean ~= 0)
+      elseif type(aBoolean) == 'string'   then
+	if '' == aBoolean then result = false else
+	    if 1 == string.find(string.lower(aBoolean), '^[' .. isTrue  .. ']') then result = true end
+	    if 1 == string.find(string.lower(aBoolean), '^[' .. isFalse .. ']') then result = false end
+	end
+      end
+    end
+    return result
+end
+
 
 --[[ Thing package
 
-- 
cgit v1.1