1 files changed, 110 insertions, 0 deletions
diff --git a/RenderScript/src/LuaFunctionBinding.cpp b/RenderScript/src/LuaFunctionBinding.cpp
new file mode 100644
index 0000000..d81634e
--- /dev/null
+++ b/RenderScript/src/LuaFunctionBinding.cpp
@@ -0,0 +1,110 @@
+/*     Copyright 2015 Egor Yusov
+ *  
+ *  Licensed under the Apache License, Version 2.0 (the "License");
+ *  you may not use this file except in compliance with the License.
+ *  You may obtain a copy of the License at
+ * 
+ *     http://www.apache.org/licenses/LICENSE-2.0
+ * 
+ *  THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
+ *  IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY,
+ *  FITNESS FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT OF ANY PROPRIETARY RIGHTS.
+ *
+ *  In no event and under no legal theory, whether in tort (including negligence), 
+ *  contract, or otherwise, unless required by applicable law (such as deliberate 
+ *  and grossly negligent acts) or agreed to in writing, shall any Contributor be
+ *  liable for any damages, including any direct, indirect, special, incidental, 
+ *  or consequential damages of any character arising as a result of this License or 
+ *  out of the use or inability to use the software (including but not limited to damages 
+ *  for loss of goodwill, work stoppage, computer failure or malfunction, or any and 
+ *  all other commercial damages or losses), even if such Contributor has been advised 
+ *  of the possibility of such damages.
+ */
+
+#include "pch.h"
+#include "LuaFunctionBinding.h"
+#include "LuaBindings.h"
+
+namespace Diligent
+{
+    void LuaFunctionCallerBase::PushFuncStub( lua_State *L, Bool Arg )
+    {
+        PushValue( L, Arg );
+    }
+
+    void LuaFunctionCallerBase::PushFuncStub( lua_State *L, Int32 Arg )
+    {
+        PushValue<double>( L, Arg );
+    }
+
+    void LuaFunctionCallerBase::PushFuncStub( lua_State *L, Uint32 Arg )
+    {
+        PushValue<double>( L, Arg );
+    }
+
+    void LuaFunctionCallerBase::PushFuncStub( lua_State *L, Int16 Arg )
+    {
+        PushValue<double>( L, Arg );
+    }
+
+    void LuaFunctionCallerBase::PushFuncStub( lua_State *L, Uint16 Arg )
+    {
+        PushValue<double>( L, Arg );
+    }
+
+    void LuaFunctionCallerBase::PushFuncStub( lua_State *L, Int8 Arg )
+    {
+        PushValue<double>( L, Arg );
+    }
+
+    void LuaFunctionCallerBase::PushFuncStub( lua_State *L, Uint8 Arg )
+    {
+        PushValue<double>( L, Arg );
+    }
+
+    void LuaFunctionCallerBase::PushFuncStub( lua_State *L, float Arg )
+    {
+        PushValue<double>( L, Arg );
+    }
+
+    void LuaFunctionCallerBase::PushFuncStub( lua_State *L, const Char *Arg )
+    {
+        PushValue( L, Arg );
+    }
+
+    void LuaFunctionCallerBase::PushFuncStub( lua_State *L, const String &Arg )
+    {
+        PushValue( L, Arg.c_str() );
+    }
+
+    void LuaFunctionCallerBase::Run_internal( int NumArgs, const Char *FuncName )
+    {
+        // http://www.lua.org/pil/25.2.html
+
+        if( FuncName )
+        {
+            // Push onto the stack the value of the global name.
+            lua_getglobal( m_LuaState, FuncName );
+            // All arguments are now below the function, while we need to have
+            // the function below all the arguments:
+            lua_insert( m_LuaState, -NumArgs - 1 );
+        }
+        else
+        {
+            // If FuncName == 0, it is assumed that the chunk was previously loaded into the stack
+            auto StackTop = lua_gettop( m_LuaState );
+            if( StackTop < 1 )
+                LOG_ERROR( "Lua stack is empty. Load Lua chunk before calling Run()" );
+        }
+        // do the call (NumArgs arguments, 0 results)
+        // lua_pcall() pops the function and all its arguments from the stack and 
+        // pushes all the results (if any)
+        // In case of errors, the error message is pushed onto the top of the stack 
+        if( lua_pcall( m_LuaState, NumArgs, 0, 0 ) != 0 )
+        {
+            auto ErrorMsg = lua_tostring( m_LuaState, -1 );
+            LOG_ERROR_AND_THROW( "Failed to call function \"", FuncName ? FuncName : "<main chunk>", "\"\n"
+                "The following error occured:\n", ErrorMsg );
+        }
+    }
+}