Lua Module

SuperStrict

Import Axe.Lua

Function luaPrint%( l@ Ptr )
    For Local i:Int = 1 To lua_gettop( l ) ' The lua stack goes from 1 to lua_gettop( l ) -- it does not start at zero
        Select lua_type( l, i )                                     ' gets the type of the variable
            Case LUA_TBOOLEAN
                Print lua_toboolean( l, i )                         ' true/false
            Case LUA_TNUMBER
                Print lua_tonumber( l, i )                          ' double
            Case LUA_TSTRING
                Print String.FromCString( lua_tostring( l, i ) )    ' print a string - lua_tostring is an auxiliary function
                                                                    ' you should use lua_tolstring in your own code for safety
            Default
                ' other types exist, but for the sake of not writing too much code, they're excluded
        End Select
    Next
    Return 0        ' zero arguments are returned -- if you pushed anything on the stack, you'd specify the
                    ' amount of values you wanted to return
End Function

Local state@ Ptr = luaL_newstate( )         ' Create the state

lua_register( state, "print", luaPrint )    ' Register the function

lua_dofile( state, "luatest.lua" )          ' Execute a script

lua_close( state )                          ' Close the state

Input "Done>"                               ' Pause

print("foo", false, 5.4321)

Strict

Import Axe.Lua

Local st@ Ptr = luaL_newstate( )

' basically, this is how you interact with tables

lua_pushstring( st, "varname" ) ' put the table in varname
lua_newtable( st ) ' create a new table
lua_pushstring( st, "key" ) ' push the key
lua_pushstring( st, "value" ) ' push the new value
lua_settable( st, -3 ) ' set table["key"] to "value"
lua_settable( st, LUA_GLOBALSINDEX ) ' set varname's value as the table

lua_close( st )

' Push the key onto the stack
lua_pushstring( st, "key" )
' Tell lua to get the value from the table and push it onto the stack (it will still be in the table) -- it automatically pops the key
lua_gettable( st, stack index )
' Get the value that was pushed onto the stack
value = lua_tostring/tonumber/toboolean( st, -1 )
' Remove the popped value from the stack
lua_pop( st, 1 )

lua_pushstring( st, "function name" )
lua_gettable( st, LUA_GLOBALSINDEX )
' push any arguments onto the stack
' call the function
Local err:Int = lua_pcall( st, numargs, numresults, 0 or an error handler function index )
' get any results -- if err is <> 0 then the pushed result will be an error message (string)

test = {}

function test.oob()
    print("you tested")
end

lua_pushstring( state, "test.oob" )
lua_gettable( state, LUA_GLOBALSINDEX )
Local err:Int = lua_pcall( state, 0, 0, 0)
If err <> 0 Then Print "Error!"

lua_pushstring( state, "test" )
lua_gettable( state, LUA_GLOBALSINDEX )
lua_pushstring( state, "oob" )
lua_gettable( state, -1 )
Local err:Int = lua_pcall( state, 0, 0, 0)
If err <> 0 Then Print "Error!"

' get the table
lua_pushstring( l, "test" )
lua_gettable( l, LUA_GLOBALSINDEX )

' get the function from the table
lua_pushstring( l, "oob" )
' note: -2 is the table, -1 is the key
lua_gettable( l, -2 )

' call the function
lua_pcall( l, 0, 0, 0 )

' pop the 'test' table from the stack since it's no longer needed
lua_pop( 1 )

luaopen_base(lua_state:Byte Ptr)
luaopen_table(lua_state:Byte Ptr)
luaopen_io(lua_state:Byte Ptr)
luaopen_string(lua_state:Byte Ptr)
luaopen_math(lua_state:Byte Ptr)
luaopen_debug(lua_state:Byte Ptr)