/******************************************************************************\
* InternalUtils.cpp                                                            *
* Miscellaneous utilities used internally by Diluculum.                        *
*                                                                              *
*                                                                              *
* Copyright (C) 2005-2013 by Leandro Motta Barros.                             *
*                                                                              *
* Permission is hereby granted, free of charge, to any person obtaining a copy *
* of this software and associated documentation files (the "Software"), to     *
* deal in the Software without restriction, including without limitation the   *
* rights to use, copy, modify, merge, publish, distribute, sublicense, and/or  *
* sell copies of the Software, and to permit persons to whom the Software is   *
* furnished to do so, subject to the following conditions:                     *
*                                                                              *
* The above copyright notice and this permission notice shall be included in   *
* all copies or substantial portions of the Software.                          *
*                                                                              *
* 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.  IN NO EVENT SHALL THE *
* AUTHORS OR COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER       *
* LIABILITY, WHETHER IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING      *
* FROM, OUT OF OR IN CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS *
* IN THE SOFTWARE.                                                             *
\******************************************************************************/


#include "InternalUtils.hpp"
#include <Diluculum/LuaUtils.hpp>
#include <cstring>
#include <boost/scoped_array.hpp>



   namespace Diluculum::Impl
   {
      // - CallFunctionOnTop ---------------------------------------------------
      LuaValueList CallFunctionOnTop (lua_State* ls, const LuaValueList& params)
      {
         int topBefore = lua_gettop (ls);

         if (lua_type (ls, -1) != LUA_TFUNCTION)
            throw TypeMismatchError ("function", luaL_typename (ls, -1));

         typedef LuaValueList::const_iterator iter_t;
         for (iter_t p = params.begin(); p != params.end(); ++p)
            PushLuaValue (ls, *p);

         int status = lua_pcall (ls, params.size(), LUA_MULTRET, 0);

         ThrowOnLuaError (ls, status);

         int numResults = lua_gettop (ls) - topBefore + 1;

         LuaValueList results;

         for (int i = numResults; i > 0; --i)
            results.push_back (ToLuaValue (ls, -i));

         lua_pop (ls, numResults);

         return results;
      }



      // - ThrowOnLuaError -----------------------------------------------------
      void ThrowOnLuaError (lua_State* ls, int statusCode)
      {
         if (statusCode != 0)
         {
            std::string errorMessage;
            if (lua_isstring (ls, -1))
            {
               errorMessage = lua_tostring (ls, -1);
               lua_pop (ls, 1);
            }
            else
            {
               errorMessage =
                  "Sorry, there is no additional information about this error.";
            }

            switch (statusCode)
            {
               case LUA_ERRRUN:
                  throw LuaRunTimeError (errorMessage.c_str());
               case LUA_ERRFILE:
                  throw LuaFileError (errorMessage.c_str());
               case LUA_ERRSYNTAX:
                  throw LuaSyntaxError (errorMessage.c_str());
               case LUA_ERRMEM:
                  throw LuaMemoryError (errorMessage.c_str());
               case LUA_ERRERR:
                  throw LuaErrorError (errorMessage.c_str());
               default:
                  throw LuaError ("Unknown Lua return code passed "
                                  "to 'Diluculum::Impl::ThrowOnLuaError()'.");
            }
         }
      }



      // - LuaFunctionWriter ---------------------------------------------------
      int LuaFunctionWriter(lua_State* luaState, const void* data, size_t size,
                            void* func)
      {
         Diluculum::LuaFunction* f =
            reinterpret_cast<Diluculum::LuaFunction*>(func);

         size_t newSize = f->getSize() + size;

         boost::scoped_array<char> buff (new char[newSize]);

         memcpy (buff.get(), f->getData(), f->getSize());
         memcpy (buff.get() + f->getSize(), data, size);

         f->setData (buff.get(), newSize);

         return 0;
      }



      // - LuaFunctionReader ---------------------------------------------------
      const char* LuaFunctionReader(lua_State* luaState, void* func,
                                    size_t* size)
      {
         Diluculum::LuaFunction* f =
            reinterpret_cast<Diluculum::LuaFunction*>(func);

         if (f->getReaderFlag())
            return 0;

         f->setReaderFlag (true); // return 0 on the next call

         *size = f->getSize();
         return reinterpret_cast<const char*>(f->getData());
      }

   } // namespace Diluculum::Impl