lua_driver.bmx 501 B

12345678910111213141516171819202122232425
  1. Strict
  2. Import Pub.Lua
  3. Import BRL.StandardIO
  4. Global LuaState:Byte Ptr=luaL_newstate()
  5. luaL_openlibs LuaState
  6. Function LuaRegInt( name$,value )
  7. lua_pushinteger LuaState,value
  8. lua_setfield LuaState,LUA_GLOBALSINDEX,name
  9. End Function
  10. Function LuaRegFunc( name$,value:Byte Ptr )
  11. lua_pushcclosure LuaState,value,0
  12. lua_setfield LuaState,LUA_GLOBALSINDEX,name
  13. End Function
  14. Function LuaDumpErr()
  15. WriteStdout "ERROR~n"
  16. WriteStdout lua_tostring( LuaState,-1 )
  17. End Function