allow calling namespaced torque functions

src/util/libbl.lua

@@ -479,6 +479,31 @@ toTsObject = function(idiS)
 	return obj
 end
 
+-- Allow bl['namespaced::function']()
+local function safeNamespaceName(name)
+	return tostring(name:gsub(':', '_'))
+end
+local nscallArgStr = '%a,%b,%c,%d,%e,%f,%g,%h'
+bl._cachedNamespaceCalls = {}
+local function tsNamespacedCallTfname(name)
+	local tfname = bl._cachedNamespaceCalls[name]
+	if not tfname then
+		tfname = '_bllua_nscall_'..safeNamespaceName(name)
+		local tfcode = 'function '..tfname..'('..nscallArgStr..'){'..
+			name..'('..nscallArgStr..');}'
+		_bllua_ts.eval(tfcode)
+		bl._cachedNamespaceCalls[name] = tfname
+	end
+	return tfname
+end
+local function tsCallGen(name)
+	return function(...)
+		local args = {...}
+		local argsS = arglistToTs(args)
+		return valFromTs(_bllua_ts.call(name, unpack(argsS)), name)
+	end
+end
+
 -- Metatable for the global bl library
 -- Allows accessing Torque objects, variables, and functions by indexing it
 local tsMeta = {
@@ -499,16 +524,12 @@ local tsMeta = {
 				local ns, rest = name:match('^([^:]+)::(.+)$')
 				if not ns then error('ts index: invalid name \''..name..'\'', 2) end
 				if not rest:find('::') and tsIsFunctionNs(ns, rest) then
-					error('ts index: can\'t call a namespaced function from lua', 2)
+					return tsCallGen(tsNamespacedCallTfname(name))
 				else
 					return valFromTs(_bllua_ts.getvar(name), name)
 				end
 			elseif tsIsFunction(name) then
-				return function(...)
-					local args = {...}
-					local argsS = arglistToTs(args)
-					return valFromTs(_bllua_ts.call(name, unpack(argsS)), name)
-				end
+				return tsCallGen(name)
 			elseif tsIsObject(name) then
 				return toTsObject(name)
 			else
@@ -549,7 +570,7 @@ function bl.object(id)
 	elseif type(id)=='string' or type(id)=='number' then
 		return toTsObject(tostring(id))
 	else
-		error('bl.toobject: id must be a ts object, number, or string', 2)
+		error('bl.object: id must be a ts object, number, or string', 2)
 	end
 end
 function bl.array(name, ...)
@@ -557,7 +578,7 @@ function bl.array(name, ...)
 	return name..table.concat(rest, '_')
 end
 function _bllua_call(fnameS, ...)
-	local args = arglistFromTs('lua:'..fnameS:lower(), {...})
+	local args = arglistFromTs('lua:'..fnameS:lower(), {...}) -- todo: allow this though bl.type
 	if not _G[fnameS] then
 		error('luacall: no global lua function named \''..fnameS..'\'') end
 	-- todo: library fields and object methods