woshluad.cpp

Go to the documentation of this file.

/** @file    woshluad.cpp
 *  @author  Alessandro Polo
 *  @version $Id: woshluad.cpp 4321 2011-02-22 07:29:59Z alex $
 *  @brief
 * The header for this class can be found in woshlua.h, check that file
 * for class description.
 ****************************************************************************/
/* Copyright (c) 2007-2011, WOSH - Wide Open Smart Home 
 * by Alessandro Polo - OpenSmartHome.com
 * All rights reserved.
 *
 * Redistribution and use in source and binary forms, with or without
 * modification, are permitted provided that the following conditions are met:
 *     * Redistributions of source code must retain the above copyright
 *       notice, this list of conditions and the following disclaimer.
 *     * Redistributions in binary form must reproduce the above copyright
 *       notice, this list of conditions and the following disclaimer in the
 *       documentation and/or other materials provided with the distribution.
 *     * Neither the name of the OpenSmartHome.com WOSH nor the
 *       names of its contributors may be used to endorse or promote products
 *       derived from this software without specific prior written permission.
 *
 * THIS SOFTWARE IS PROVIDED BY Alessandro Polo ''AS IS'' AND ANY
 * EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE IMPLIED
 * WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE ARE
 * DISCLAIMED. IN NO EVENT SHALL Alessandro Polo BE LIABLE FOR ANY
 * DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL DAMAGES
 * (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS OR SERVICES;
 * LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) HOWEVER CAUSED AND
 * ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT LIABILITY, OR TORT
 * (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY OUT OF THE USE OF THIS
 * SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF SUCH DAMAGE.
 ****************************************************************************/
 
 #include <framework/scripting/lua/woshlua.h>
 #include <framework/scripting/lua/luaincludes.h>
 #include <core/String.h>


using namespace std;
namespace wosh {
 namespace scripting {
  namespace lua {

//////////////////////////////////////////////////////////////////////////////////////////////////////////////
//////////////////////////////////////////////////////////////////////////////////////////////////////////////

int wosh_lua_d_render_debug( lua_Debug* ar, std::string& output ) {
    if ( ar == NULL ) return 0;
    output += String::sprintf("Event:\t%d", ar->event);
    output += String::sprintf("Name:\t%s", ar->name);
    output += String::sprintf("NameWhat:\t%s", ar->namewhat);
    output += String::sprintf("Source:\t%s [%s]", ar->source, ar->short_src);
    output += String::sprintf("CurrentLine:\t%d", ar->currentline);
    output += String::sprintf("UpValues#:\t%d", ar->nups);
    output += String::sprintf("LineDefined:\t%d", ar->linedefined);
    output += String::sprintf("LastLineDefined:\t%d", ar->lastlinedefined);
    return 1;
 }

//////////////////////////////////////////////////////////////////////////////////////////////////////////////
//////////////////////////////////////////////////////////////////////////////////////////////////////////////

int wosh_lua_d_dump_stack( lua_State* ls, std::string& output, int indent ) {
    if ( ls == NULL ) return WRET_ERR_ILLEGAL_USE;
    int top = lua_gettop(ls);
    if ( indent == 0 ) {
        output += "Elements in the Stack: " + String::toString(top) + "\n";
    }
    output += "\t";
    for (int i = 1; i <= top; ++i) {
        int t = lua_type(ls, i);
        switch (t) {

            case LUA_TNONE:
                output += "NONE\n";
                break;
            case LUA_TNIL:
                output += "NIL\n";
                break;
            case LUA_TBOOLEAN:
                output += "BOOLEAN(" + std::string((lua_toboolean(ls, i) ? "true" : "false")) + ")\n";
                break;
            case LUA_TLIGHTUSERDATA:
                output += "LIGHTUSERDATA(" ")\n";
                break;
            case LUA_TNUMBER:
                output += "NUMBER(" + String::toString(lua_tonumber(ls, i)) + ")\n";
                break;
            case LUA_TSTRING:
                output += "STRING(" + std::string(lua_tostring(ls, i)) + ")\n";
                break;
            case LUA_TTABLE:
                output += "TABLE(" ")\n";
                break;
            case LUA_TFUNCTION:
                output += "FUNCTION(" ")\n";
                break;
            case LUA_TUSERDATA:
                output += "USERDATA(" ")\n";
                break;
            case LUA_TTHREAD:
                output += "THREAD(" ")\n";
                break;
            default:  // other values
                output += "UNKNOWN(" + std::string(lua_typename(ls, t)) + ")\n";
                break;
         }
     }
    return top;
 }

//////////////////////////////////////////////////////////////////////////////////////////////////////////////
//////////////////////////////////////////////////////////////////////////////////////////////////////////////

int wosh_lua_d_dump_global( lua_State* ls, std::string& output ) {
    if ( ls == NULL ) return 0;
    int iErr = 0;
    lua_Debug ar;
    //http://pgl.yoyo.org/luai/i/lua_getinfo
    if ( iErr != 0 ) {
//      Log(LOG_CRITICAL, "load() : FAILED: %s", lua_tostring(ls, -1));
        return WRET_ERR_PARAM;
     }
    wosh_lua_d_render_debug( &ar, output );
    return 1;
 }

//////////////////////////////////////////////////////////////////////////////////////////////////////////////
//////////////////////////////////////////////////////////////////////////////////////////////////////////////

int wosh_lua_d_dump_local( lua_State* ls, int n, std::string& name, std::string& output ) {
    if ( ls == NULL ) return 0;
    lua_Debug ar;
    const char* nname = lua_getlocal(ls, &ar, n);
    if ( nname != NULL ) name.assign(nname);
    int iErr = wosh_lua_d_render_debug( &ar, output );
    return iErr;
 }

//////////////////////////////////////////////////////////////////////////////////////////////////////////////
//////////////////////////////////////////////////////////////////////////////////////////////////////////////

//lua_Hook lua_gethook (lua_State *L);
//int lua_gethookcount (lua_State *L);
//int lua_gethookmask (lua_State *L);

//////////////////////////////////////////////////////////////////////////////////////////////////////////////
//////////////////////////////////////////////////////////////////////////////////////////////////////////////

//const char *lua_getupvalue (lua_State *L, int funcindex, int n);

//////////////////////////////////////////////////////////////////////////////////////////////////////////////
//////////////////////////////////////////////////////////////////////////////////////////////////////////////

  }; // namespace lua
 }; // namespace scripting
}; // namespace wosh