class Lua::RefObject
The Ruby representation of non-primitive objects in Lua.
Public Class Methods
Initializes a new Lua::RefObject.
THIS METHOD IS NOT INTENDED TO BE CALLED BY CLIENTS.
TODO: Can we enforce the hiding of this? Only Lua module members should access it.
static VALUE rlua_RefObject_initialize( VALUE self, VALUE Rstate, VALUE RluaRef )
{
rlua_RefObject* pRef;
Data_Get_Struct( self, rlua_RefObject, pRef );
RLB_DEBUG_PRINT( "ref init: self:%d Rstate:%p TYPE(Rstate):%d RluaRef:%d TYPE(RluaRef):%d luaRef:%d\n",
(unsigned long)self, (unsigned long)Rstate, (unsigned long)TYPE(Rstate),
(unsigned long)RluaRef, (unsigned long)TYPE(RluaRef), NUM2INT(RluaRef) );
pRef->Rstate = Rstate;
pRef->Lref = NUM2INT(RluaRef);
rlua_State* pRState;
Data_Get_Struct( Rstate, rlua_State, pRState );
pRef->Lstate = pRState->Lstate;
return self;
}
Public Instance Methods
Returns the value indexed at key in the RefObject.
Raises RuntimeError if the RefObject is not indexable.
VALUE rlua_RefObject_getindex( VALUE self, VALUE key )
{
rlua_RefObject* pRefObject;
Data_Get_Struct( self, rlua_RefObject, pRefObject );
lua_State* L = pRefObject->getState();
lua_rawgeti( L, LUA_REGISTRYINDEX, pRefObject->Lref );
if ( !is_indexable(L, -1) )
{
lua_pop( L, 1 );
rb_raise( rb_eRuntimeError, "(getindex) Lua::RefObject not indexable" );
}
marshal_ruby_to_lua_top( L, key );
lua_gettable( L, -2 );
// marshal the result to Ruby
VALUE result = marshal_lua_to_ruby( pRefObject->Rstate, L, -1 );
lua_pop( L, 2 );
return result;
}
Assigns value to be indexed at key in the RefObject.
Returns the value for chaining.
Raises RuntimeError if the RefObject is not indexable.
VALUE rlua_RefObject_setindex( VALUE self, VALUE key, VALUE val )
{
rlua_RefObject* pRefObject;
Data_Get_Struct( self, rlua_RefObject, pRefObject );
lua_State* L = pRefObject->getState();
lua_rawgeti( L, LUA_REGISTRYINDEX, pRefObject->Lref );
if ( !is_indexable(L, -1) )
{
lua_pop( L, 1 );
rb_raise( rb_eRuntimeError, "(setindex) Lua::RefObject not indexable" );
}
marshal_ruby_to_lua_top( L, key );
marshal_ruby_to_lua_top( L, val );
lua_settable( L, -3 );
lua_pop( L, 1 );
return val; // return val for chaining
}
Returns the 'length' of the RefObject.
According to the Lua manual:
Returns the "length" of the value at the given acceptable index:
for strings, this is the string length; for tables, this is the result
of the length operator ('#'); for userdata, this is the size of the
block of memory allocated for the userdata; for other values, it is 0.
VALUE rlua_RefObject_length( VALUE self )
{
rlua_RefObject* pRefObject;
Data_Get_Struct( self, rlua_RefObject, pRefObject );
lua_State* L = pRefObject->getState();
lua_rawgeti( L, LUA_REGISTRYINDEX, pRefObject->Lref );
size_t len = lua_objlen(L, -1);
lua_pop( L, 1 );
VALUE result = INT2NUM(len);
return result;
}
Returns the metatable of the underlying Lua object. Return nil if it has no metatable.
VALUE rlua_RefObject_getmetatable( VALUE self )
{
rlua_RefObject* pRefObject;
Data_Get_Struct( self, rlua_RefObject, pRefObject );
lua_State* L = pRefObject->getState();
lua_rawgeti( L, LUA_REGISTRYINDEX, pRefObject->Lref );
if (lua_getmetatable(L, -1) == 0)
lua_pushnil( L );
VALUE result = marshal_lua_to_ruby( pRefObject->Rstate, L, -1 );
lua_pop( L, 2 );
return result;
}
Sets the metatable for this Lua::RefObject. Returns the passed metatable.
VALUE rlua_RefObject_setmetatable( VALUE self, VALUE mtable )
{
rlua_RefObject* pRefObject;
Data_Get_Struct( self, rlua_RefObject, pRefObject );
lua_State* L = pRefObject->getState();
lua_rawgeti( L, LUA_REGISTRYINDEX, pRefObject->Lref );
marshal_ruby_to_lua_top( L, mtable );
lua_setmetatable( L, -2 );
lua_pop( L, 1 );
return mtable;
}
Returns the Lua::State this Lua::RefObject belongs to.
static VALUE rlua_RefObject_state( VALUE self )
{
rlua_RefObject* pRefObject;
Data_Get_Struct( self, rlua_RefObject, pRefObject );
return pRefObject->Rstate;
}
Returns the type id of the underlying Lua object.
VALUE rlua_RefObject_type( VALUE self )
{
rlua_RefObject* pRefObject;
Data_Get_Struct( self, rlua_RefObject, pRefObject );
lua_State* L = pRefObject->getState();
lua_rawgeti( L, LUA_REGISTRYINDEX, pRefObject->Lref );
size_t len = lua_type(L, -1);
lua_pop( L, 1 );
VALUE result = INT2NUM(len);
return result;
}
Returns whether Lua:State is callable (like via __cal), which it is not.. This is to provide consistency with Lua::RefObject interface.
VALUE rlua_RefObject_is_callable( VALUE self )
{
rlua_RefObject* pRefObject;
Data_Get_Struct( self, rlua_RefObject, pRefObject );
lua_State* L = pRefObject->getState();
lua_rawgeti( L, LUA_REGISTRYINDEX, pRefObject->Lref );
VALUE result = is_callable(L, -1) ? Qtrue : Qfalse;
lua_pop( L, 1 );
return result;
}
Returns whether Lua:State is indexable (via __index), which it is. This is to provide consistency with Lua::RefObject interface.
VALUE rlua_RefObject_is_indexable( VALUE self )
{
rlua_RefObject* pRefObject;
Data_Get_Struct( self, rlua_RefObject, pRefObject );
lua_State* L = pRefObject->getState();
lua_rawgeti( L, LUA_REGISTRYINDEX, pRefObject->Lref );
VALUE result = is_indexable(L, -1) ? Qtrue : Qfalse;
lua_pop( L, 1 );
return result;
}
This method is called by Ruby when it sees an Object can't handle a message. We use it to dispatch to Lua, attempting a lookup of that value in the Lua::RefObject.
The first argument is the symbol of the message name, the rest are its args.
If the method name has an = at the end, it is treated as an
assignment, in which case it assigns the first value. It returns that
value for chaining.
If the method name has a '_' at the end, it is treated
as an method invocation, passing itself as a parameter. This is to emulate
the ':' token used in Lua.
VALUE rlua_RefObject_method_missing( int argc, VALUE* argv, VALUE self )
{
rlua_RefObject* pRefObject;
Data_Get_Struct( self, rlua_RefObject, pRefObject );
lua_State* L = pRefObject->getState();
Check_Type( argv[0], T_SYMBOL );
ID methodid = SYM2ID( argv[0] );
const char* key = rb_id2name( methodid );
lua_rawgeti( L, LUA_REGISTRYINDEX, pRefObject->Lref );
if ( !is_indexable(L, -1) )
{
lua_pop(L, 1);
rb_raise( rb_eRuntimeError, "Lua::RefObject not indexable, key='%s'", key );
}
return rlua_method_missing_dispatch( L, key, pRefObject->Rstate, argc, argv );
}
Returns whether Lua:State can create new indices (via __newindex), which it can. This is to provide consistency with Lua::RefObject interface.
VALUE rlua_RefObject_is_new_indexable( VALUE self )
{
rlua_RefObject* pRefObject;
Data_Get_Struct( self, rlua_RefObject, pRefObject );
lua_State* L = pRefObject->getState();
lua_rawgeti( L, LUA_REGISTRYINDEX, pRefObject->Lref );
VALUE result = is_new_indexable(L, -1) ? Qtrue : Qfalse;
lua_pop( L, 1 );
return result;
}
Creates a new table at the given key. Returns the new table.
Raises RuntimeError if the RefObject is not indexable.
VALUE rlua_RefObject_new_table_at( VALUE self, VALUE key )
{
rlua_RefObject* pRefObject;
Data_Get_Struct( self, rlua_RefObject, pRefObject );
lua_State* L = pRefObject->getState();
lua_rawgeti( L, LUA_REGISTRYINDEX, pRefObject->Lref );
if ( !is_indexable(L, -1) )
{
lua_pop( L, 1 );
rb_raise( rb_eRuntimeError, "(setindex) Lua::RefObject not indexable" );
}
marshal_ruby_to_lua_top( L, key );
lua_newtable( L );
VALUE result = marshal_lua_to_ruby( pRefObject->Rstate, L, -1 );
lua_settable( L, -3 );
lua_pop( L, 1 );
return result;
}
Invokes the Lua function tostring on the object and returns the resulting string.
VALUE rlua_RefObject_to_s( VALUE self )
{
rlua_RefObject* pRefObject;
Data_Get_Struct( self, rlua_RefObject, pRefObject );
lua_State* L = pRefObject->getState();
lua_rawgeti( L, LUA_REGISTRYINDEX, pRefObject->Lref );
rluaB_tostring( L );
VALUE result = marshal_lua_to_ruby( pRefObject->Rstate, L, -1 );
lua_pop( L, 2 );
return result;
}