Changeset 367bf20 in nscp for modules/LUAScript

Timestamp:

04/03/08 19:47:01 (5 years ago)

Author:

Michael Medin <michael@…>

Branches:

master, 0.4.0, 0.4.1, 0.4.2, stable

Children:

9567d4b, eb30340

Parents:

b7ed6ac

Message:

2008-04-03 MickeM

• Moved COM init to "core" (from WMI module) + Added new Check command: CheckTaskSched Use like so:

CheckTaskSched +filter-exit-code==1 ShowAll MaxWarn=1 MaxCrit=1

File:

• modules/LUAScript/script_wrapper.hpp (modified) (1 diff)

modules/LUAScript/script_wrapper.hpp

@@ -57 +57 @@
   }
   std::wstring extract_string(lua_State *L) {
-    return strEx::string_to_wstring(lua_tostring( L, lua_gettop( L ) ));
+    int top = lua_gettop(L);
+    if (lua_isstring(L, top))
+      return strEx::string_to_wstring(lua_tostring( L, lua_gettop( L ) ));
+    return _T("<NOT_A_STRING>");
   }
   std::wstring pop_string(lua_State *L) {
-    std::wstring ret = strEx::string_to_wstring(lua_tostring( L, lua_gettop( L ) ));
+    std::wstring ret;
+    int top = lua_gettop(L);
+    if (lua_isstring(L, top))
+      ret = strEx::string_to_wstring(lua_tostring( L, top));
+    else if (lua_isnil(L, top))
+      ret = _T("<NIL>");
+    else if (lua_istable(L, top))
+      ret = _T("<TABLE>");
+    else if (lua_isnumber(L, top))
+      ret = _T("<NUMBER>");
+    else if (lua_iscfunction(L, top))
+      ret = _T("<C-FUNCTION>");
+    else
+      ret = _T("<UNKNOWN>");
     lua_pop(L, 1);
     return ret;