source: trunk/src/gui/gui_style.cc @ 350

// Copyright (C) 2012-2014 ChaosForge Ltd
// http://chaosforge.org/
//
// This file is part of NV Libraries.
// For conditions of distribution and use, see copyright notice in nv.hh

#include "nv/gui/gui_style.hh"

#include <nv/lua/lua_raw.hh>

using namespace nv;
using namespace nv::gui;

style::style()
{
}

void style::load_style( const std::string& filename )
{
        m_lua.do_file( filename );
}

bool style::get( element* e, const char* centry, std::string& s )
{
        lua::stack_guard guard( m_lua );
        if ( !resolve( e->m_id.c_str(), e->m_class.c_str(), centry, LUA_TSTRING ) ) return false;
        s = lua_tostring( m_lua, -1 );
        return true;
}

bool style::get( element* e, const char* centry, vec4& vec )
{
        lua::stack_guard guard( m_lua );
        if ( !resolve( e->m_id.c_str(), e->m_class.c_str(), centry, LUA_TTABLE ) ) return false;
        vec = vec4();
        for (size_t i = 0; i < 4; ++i )
        {
                lua_rawgeti( m_lua, -1, static_cast<int>( i+1 ) );
                if ( lua_isnil( m_lua, -1 ) ) return true;
                vec[i] = (float)lua_tonumber( m_lua, -1 );
                lua_pop( m_lua, 1 );
        }
        return true;
}

bool style::get( element* e, const char* centry, int& i )
{
        lua::stack_guard guard( m_lua );
        if ( !resolve( e->m_id.c_str(), e->m_class.c_str(), centry, LUA_TNUMBER ) ) return false;
        i = static_cast< int >( lua_tointeger( m_lua, -1 ) );
        return true;
}

bool style::get( element* e, const char* centry, double& d )
{
        lua::stack_guard guard( m_lua );
        if ( !resolve( e->m_id.c_str(), e->m_class.c_str(), centry, LUA_TNUMBER ) ) return false;
        d = lua_tonumber( m_lua, -1 );
        return true;
}

style::~style()
{
}

bool style::resolve( const char* cid, const char* cclass, const char* centry, int type )
{
        lua_getglobal( m_lua, "default" );
        int global = lua_gettop( m_lua );

        // check id
        lua_getfield( m_lua, -1, cid );
        if ( lua_istable( m_lua, -1 ) )
        {
                lua_getfield( m_lua, -1, centry );
                if ( lua_type( m_lua, -1 ) == type ) return true;
        }
        lua_settop( m_lua, global );

        // check class
        lua_getfield( m_lua, -1, cclass );
        if ( lua_istable( m_lua, -1 ) )
        {
                lua_getfield( m_lua, -1, centry );
                if ( lua_type( m_lua, -1 ) == type ) return true;
        }
        lua_settop( m_lua, global );

        // check entry
        lua_getfield( m_lua, -1, centry );
        if ( lua_type( m_lua, -1 ) == type ) return true;
        return false;
}