27 lines
446 B
C
27 lines
446 B
C
|
#include <stdio.h>
|
||
|
|
#include <string.h>
|
||
|
|
#include <lua.h>
|
||
|
|
#include <lauxlib.h>
|
||
|
|
#include <lualib.h>
|
||
|
|
|
||
|
|
int
|
||
|
|
main(void)
|
||
|
|
{
|
||
|
|
char buff[256];
|
||
|
|
int error;
|
||
|
|
lua_State *L = lua_open();
|
||
|
|
luaL_openlibs(L);
|
||
|
|
|
||
|
|
while (fgets(buff, sizeof(buff), stdin) != NULL) {
|
||
|
|
error = lua_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;
|
||
|
|
}
|