linit.c 2.0 KB

123456789101112131415161718192021222324252627282930313233343536373839404142434445464748495051525354555657585960616263646566676869707172737475767778
  1. /*
  2. ** $Id: linit.c,v 1.14.1.1 2007/12/27 13:02:25 roberto Exp $
  3. ** Initialization of libraries for lua.c
  4. ** See Copyright Notice in lua.h
  5. */
  6. #define linit_c
  7. #define LUA_LIB
  8. #define LUAC_CROSS_FILE
  9. #include "lua.h"
  10. #include "lualib.h"
  11. #include "lauxlib.h"
  12. #include "luaconf.h"
  13. #include "module.h"
  14. BUILTIN_LIB_INIT( BASE, "", luaopen_base);
  15. BUILTIN_LIB_INIT( LOADLIB, LUA_LOADLIBNAME, luaopen_package);
  16. #if defined(LUA_USE_BUILTIN_IO)
  17. BUILTIN_LIB_INIT( IO, LUA_IOLIBNAME, luaopen_io);
  18. #endif
  19. #if defined (LUA_USE_BUILTIN_STRING)
  20. extern const luaR_entry strlib[];
  21. BUILTIN_LIB_INIT( STRING, LUA_STRLIBNAME, luaopen_string);
  22. BUILTIN_LIB( STRING, LUA_STRLIBNAME, strlib);
  23. #endif
  24. #if defined(LUA_USE_BUILTIN_TABLE)
  25. extern const luaR_entry tab_funcs[];
  26. BUILTIN_LIB_INIT( TABLE, LUA_TABLIBNAME, luaopen_table);
  27. BUILTIN_LIB( TABLE, LUA_TABLIBNAME, tab_funcs);
  28. #endif
  29. #if defined(LUA_USE_BUILTIN_DEBUG) || defined(LUA_USE_BUILTIN_DEBUG_MINIMAL)
  30. extern const luaR_entry dblib[];
  31. BUILTIN_LIB_INIT( DBG, LUA_DBLIBNAME, luaopen_debug);
  32. BUILTIN_LIB( DBG, LUA_DBLIBNAME, dblib);
  33. #endif
  34. #if defined(LUA_USE_BUILTIN_OS)
  35. extern const luaR_entry syslib[];
  36. BUILTIN_LIB( OS, LUA_OSLIBNAME, syslib);
  37. #endif
  38. #if defined(LUA_USE_BUILTIN_COROUTINE)
  39. extern const luaR_entry co_funcs[];
  40. BUILTIN_LIB( CO, LUA_COLIBNAME, co_funcs);
  41. #endif
  42. #if defined(LUA_USE_BUILTIN_MATH)
  43. extern const luaR_entry math_map[];
  44. BUILTIN_LIB( MATH, LUA_MATHLIBNAME, math_map);
  45. #endif
  46. #ifdef LUA_CROSS_COMPILER
  47. const luaL_Reg lua_libs[] = {{NULL, NULL}};
  48. const luaR_table lua_rotable[] = {{NULL, NULL}};
  49. #else
  50. extern const luaL_Reg lua_libs[];
  51. #endif
  52. void luaL_openlibs (lua_State *L) {
  53. const luaL_Reg *lib = lua_libs;
  54. for (; lib->name; lib++) {
  55. if (lib->func)
  56. {
  57. lua_pushcfunction(L, lib->func);
  58. lua_pushstring(L, lib->name);
  59. lua_call(L, 1, 0);
  60. }
  61. }
  62. }