source: trunk/src/lua/lua_gfx.cc @ 507

// Copyright (C) 2016-2016 ChaosForge Ltd
// http://chaosforge.org/
//
// This file is part of Nova libraries. 
// For conditions of distribution and use, see copying.txt file in root folder.

#include "nv/lua/lua_gfx.hh"

#include "nv/base/capi.hh"
#include "nv/lua/lua_raw.hh"
#include "nv/lua/lua_templates.hh"

using nv::lua::detail::is_color_mask;
using nv::lua::detail::to_color_mask;
using nv::lua::detail::to_pcolor_mask;
using nv::lua::detail::push_color_mask;

using nv::lua::detail::is_scissor_test;
using nv::lua::detail::to_scissor_test;
using nv::lua::detail::to_pscissor_test;
using nv::lua::detail::push_scissor_test;

using nv::lua::detail::is_clear_state;
using nv::lua::detail::to_clear_state;
using nv::lua::detail::to_pclear_state;
using nv::lua::detail::push_clear_state;

static int nlua_color_mask_tostring( lua_State * L )
{
        nv::color_mask* m = to_pcolor_mask( L, 1 );
        lua_pushfstring( L, "color_mask(%s%s%s%s)",
                m->red ? "R" : "-",
                m->red ? "G" : "-",
                m->red ? "B" : "-",
                m->red ? "A" : "-"
        );
        return 1;
}

static int nlua_color_mask_index( lua_State * L )
{
        nv::color_mask* m = to_pcolor_mask( L, 1 );
        size_t len = 0;
        const char * key = lua_tolstring( L, 2, &len );
        if ( len > 0 )
        {
                char k = key[0];
                if ( k == 'r' && ( len == 1 || nv::nvstrcmp( key, "red" ) == 0 ) )
                {
                        lua_pushboolean( L, m->red ); return 1;
                }
                if ( k == 'g' && ( len == 1 || nv::nvstrcmp( key, "green" ) == 0 ) )
                {
                        lua_pushboolean( L, m->green ); return 1;
                }
                if ( k == 'b' && ( len == 1 || nv::nvstrcmp( key, "blue" ) == 0 ) )
                {
                        lua_pushboolean( L, m->blue ); return 1;
                }
                if ( k == 'a' && ( len == 1 || nv::nvstrcmp( key, "alpha" ) == 0 ) )
                {
                        lua_pushboolean( L, m->alpha ); return 1;
                }
        }

        luaL_getmetafield( L, 1, "__functions" );
        lua_pushvalue( L, 2 );
        lua_rawget( L, -2 );
        return 1;
}

static int nlua_color_mask_newindex( lua_State * L )
{
        nv::color_mask* m = to_pcolor_mask( L, 1 );
        size_t len = 0;
        const char * key = lua_tolstring( L, 2, &len );
        if ( len > 0 )
        {
                char k = key[0];
                if ( k == 'r' && ( len == 1 || nv::nvstrcmp( key, "red" ) == 0 ) )
                {
                        m->red   = lua_toboolean( L, 3 ) != 0; return 0;
                }
                if ( k == 'g' && ( len == 1 || nv::nvstrcmp( key, "green" ) == 0 ) )
                {
                        m->green = lua_toboolean( L, 3 ) != 0; return 0;
                }
                if ( k == 'b' && ( len == 1 || nv::nvstrcmp( key, "blue" ) == 0 ) )
                {
                        m->blue  = lua_toboolean( L, 3 ) != 0; return 0;
                }
                if ( k == 'a' && ( len == 1 || nv::nvstrcmp( key, "alpha" ) == 0 ) )
                {
                        m->alpha = lua_toboolean( L, 3 ) != 0; return 0;
                }
        }
        luaL_error( L, "color_mask : unknown index - %s", lua_tostring( L, 2 ) );
        return 0;
}

static int luaopen_color_mask( lua_State * L )
{
        struct constructor
        {
                static inline nv::color_mask construct( lua_State* L, int index )
                {
                        int args = lua_gettop( L ) - index;
                        bool r = args >= 0 ? lua_toboolean( L, index + 0 ) != 0 : true;
                        bool g = args >= 1 ? lua_toboolean( L, index + 1 ) != 0 : true;
                        bool b = args >= 2 ? lua_toboolean( L, index + 2 ) != 0 : true;
                        bool a = args >= 3 ? lua_toboolean( L, index + 3 ) != 0 : true;
                        return nv::color_mask( r, g, b, a );
                }
        };

        NV_LUA_STACK_ASSERT( L, 1 );
        static const struct luaL_Reg nlua_color_mask_sf[] = {
                { "new",            nv::lua::detail::new_impl<nv::color_mask, constructor> },
                { NULL, NULL }
        };

        static const struct luaL_Reg nlua_color_mask_f[] = {
                { "clone",          nv::lua::detail::clone_impl<nv::color_mask> },
                { "tostring",       nlua_color_mask_tostring },
                { NULL, NULL }
        };

        static const struct luaL_Reg nlua_color_mask_sm[] = {
                { "__call",          nv::lua::detail::call_impl<nv::color_mask, constructor> },
                { NULL, NULL }
        };

        static const struct luaL_Reg nlua_color_mask_m[] = {
                { "__eq",       nv::lua::detail::eq_impl<nv::color_mask> },
                { "__index",    nlua_color_mask_index },
                { "__newindex", nlua_color_mask_newindex },
                { "__tostring", nlua_color_mask_tostring },
                { NULL, NULL }
        };

        luaL_newmetatable( L, nv::lua::pass_traits<nv::color_mask>::metatable() );
        nlua_register( L, nlua_color_mask_m, -1 );
        lua_createtable( L, 0, 0 );
        nlua_register( L, nlua_color_mask_f, -1 );
        lua_setfield( L, -2, "__functions" );
        lua_pop( L, 1 );

        lua_createtable( L, 0, 0 );
        nlua_register( L, nlua_color_mask_sf, -1 );
        lua_createtable( L, 0, 0 );
        nlua_register( L, nlua_color_mask_sm, -1 );
        lua_setmetatable( L, -2 );

//      nv::lua::detail::push_vec( L, T() );
//      lua_setfield( L, -2, "ZERO" );
//      nv::lua::detail::push_vec( L, nlua_vec_constructor<T, sizeof( T ) / sizeof( typename T::value_type )>::unit() );
//      lua_setfield( L, -2, "UNIT" );

        return 1;
}

static int luaopen_scissor_test( lua_State * L )
{
        NV_LUA_STACK_ASSERT( L, 1 );
        return 1;
}

static int luaopen_clear_state( lua_State * L )
{
        NV_LUA_STACK_ASSERT( L, 1 );
        return 1;
}


void nv::lua::register_gfx( lua_State* L )
{
        int stack = lua_gettop( L );
        nlua_requiref( L, "color_mask", luaopen_color_mask, 1 );
        nlua_requiref( L, "scissor_test", luaopen_scissor_test, 1 );
        nlua_requiref( L, "clear_state", luaopen_clear_state, 1 );
        lua_settop( L, stack );
}