#include <stdio.h>
#include <string.h>
#include <lua.h>
#include <lauxlib.h>
#include <lualib.h>
#pragma comment(lib,"C:\\Program Files\\Lua\\5.1\\lib\\lua51.lib")
int main (void)
{
char buff[256];
int error;
lua_State *L = lua_open();
//luaL_openlibs(L);
luaopen_base(L);
luaopen_table(L);
luaopen_io(L);
luaopen_string(L);
luaopen_math(L);
while (fgets(buff, sizeof(buff), stdin) != NULL) {
error = luaL_loadbuffer(L, buff, strlen(buff),"line") || lua_pcall(L, 0, 0, 0);
if (error)
{
fprintf(stderr, "%s", lua_tostring(L, -1));
lua_pop(L, 1);
}
}
lua_close(L);
return 0;
}
該版本是Lua 5.0的例子,若用於Lua 5.1做解釋器,運行到紅色處會出現
PANIC: unprotected error in call to Lua API (no calling environment)
修改後的版本為:
#include <stdio.h>
#include <string.h>
#include <lua.h>
#include <lauxlib.h>
#include <lualib.h>
#pragma comment(lib,"C:\\Program Files\\Lua\\5.1\\lib\\lua51.lib")
int main (void)
{
char buff[256];
int error;
lua_State *L = lua_open();
luaL_openlibs(L);
//luaopen_base(L);
//luaopen_table(L);
//luaopen_io(L);
//luaopen_string(L);
//luaopen_math(L);
//printf("xxxx\n");
while (fgets(buff, sizeof(buff), stdin) != NULL) {
error = luaL_loadbuffer(L, buff, strlen(buff),"line") || lua_pcall(L, 0, 0, 0);
if (error)
{
fprintf(stderr, "%s", lua_tostring(L, -1));
lua_pop(L, 1);
}
}
lua_close(L);
return 0;
}
頭文件lua.h定義了Lua提供的基礎函數。其中包括創建一個新的Lua環境的函數(如lua_open),調用Lua函數(如lua_pcall)的函數,讀取/寫入Lua環境的全局變量的函數,注冊可以被Lua代碼調用的新函數的函數,等等。所有在lua.h中被定義的都有一個lua_前綴。
頭文件lauxlib.h定義了輔助庫(auxlib)提供的函數。同樣,所有在其中定義的函數等都以luaL_打頭(例如,luaL_loadbuffer)。輔助庫利用lua.h中提供的基礎函數提供了更高層次上的抽象;所有Lua標准庫都使用了auxlib。基礎API致力於economy and orthogonality,相反auxlib致力於實現一般任務的實用性。當然,基於你的程序的需要而創建其它的抽象也是非常容易的。需要銘記在心的是,auxlib沒有存取Lua內部的權限。它完成它所有的工作都是通過正式的基本API。
Lua庫沒有定義任何全局變量。它所有的狀態保存在動態結構lua_State中,而且指向這個結構的指針作為所有Lua函數的一個參數。這樣的實現方式使得Lua能夠重入(reentrant)且為在多線程中的使用作好准備。
創建一個state並將標准庫載入之後,就可以著手解釋用戶的輸入了。對於用戶輸入的每一行(while (fgets(buff, sizeof(buff), stdin) ),C程序首先調用luaL_loadbuffer編譯這些Lua代碼。如果沒有錯誤,這個調用返回零並把編譯之後的chunk壓入棧。(記住,我們將在下一節中討論魔法般的棧)之後,C程序調用lua_pcall,它將會把chunk從棧中彈出並在保護模式下運行它。和luaL_laodbuffer一樣,lua_pcall在沒有錯誤的情況下返回零。在有錯誤的情況下,這兩個函數都將一條錯誤消息壓入棧;我們可以用lua_tostring來得到這條信息、輸出它,用lua_pop將它從棧中刪除。