LUA 04

#include <iostream>
#include <string>
#include <cstdio>
using namespace std;
extern "C" {
#include "lua.h" 
#include "lualib.h" 
#include "lauxlib.h"
#pragma comment(lib,"lua5.1.lib")
}
/* Lua解释器指针 */
lua_State* L;
int Print(lua_State* L)
{
lua_pushstring(L, "234567");
lua_pushstring(L, "123245");
return 2;
}
int a = 0;
int TEST(lua_State* L)
{
printf("aaaaa\n");
a = 1;
return 0;
}
int main ( int argc, char *argv[] )
{ 
/* 初始化Lua */
L = lua_open();
/* 载入Lua基本库 */ 
luaL_openlibs(L);
/* 注册函数 */
lua_register(L, "Print", Print);
lua_register(L, "TEST", TEST); 
/*
a,b = Print()
print(a,b,"r?")
TEST()
*/
/* 载入语句块 */
if(luaL_loadfile(L, "3.lua") || lua_pcall(L, 0, 0, 0))
{
printf("载入错误\n");
printf("%s\n",lua_tostring(L, -1));
goto EXIT;
}
printf("%d\n",a);
EXIT:
/* 清除Lua */ 
lua_close(L); 
/* 暂停 */ 
printf( "Press enter to exit…" ); 
getchar(); 
return 0;
}