// lua.cpp : Defines the entry point for the console application.
//

#include "stdafx.h"

#include <stdio.h>
#include <stdlib.h>
#include <string.h>
#include <errno.h>
#include <assert.h>

//lua头文件
extern "C"   //在c++中调用C库
{
#include <lua.h>
#include <lualib.h>
#include <lauxlib.h>
};

#define TOSTRING(P) #P  //转成字符串

#define err_exit(num,fmt,args)  /
	do{printf("[%s:%d]"fmt"/n",__FILE__,__LINE__,##args);exit(num);} while(0)
#define err_return(num,fmt,args)  /
	do{printf("[%s:%d]"fmt"/n",__FILE__,__LINE__,##args);return(num);} while(0)

//#define exampleNum(n) num##n
//int num9=9;
//int num=exampleNum(9); //将会扩展成 int num=num9;

//lua中调用的c函数定义,实现加法
int csum(lua_State* L)
{
	int a = lua_tointeger(L,1);
	int b = lua_tointeger(L,2);
	lua_pushinteger(L,a+b);
	return 1 ;
}
int _tmain(int argc, _TCHAR* argv[])
{
	lua_State * L = luaL_newstate() ;        //创建lua运行环境
	if (L == NULL) 
	{
		printf("创建lua运行环境出错!!!/n");
	}

	luaL_openlibs(L);    //加载所有lua库,很重要,没这个语句不能用table.getn等

	int ret = 0 ;
	ret = luaL_loadfile(L,"func.lua") ;      //加载lua脚本文件
	if ( ret != 0 ) 
	{
		printf("加载lua脚本文件出错!!!/n");
	}

	ret = lua_pcall(L,0,0,0) ;				//这句的作用应该是初始化lua栈,和重新加载函数的作用建议luaL_loadfile后都调用一次
	if ( ret != 0 ) err_return(-1,"lua_pcall failed:%s",lua_tostring(L,-1)) ;  

	//lua_pushcfunction(L,csum) ;         //注册在lua中使用的c函数
	//lua_setglobal(L,"csum") ;           //绑定到lua中的名字csum  //相当于给全局变量赋值
	//lua_register(L,TOSTRING(csum),csum);   //和上面两句作用相同

	//可以注册成库的形式,比上面单个注册来的方便
	luaL_Reg Reg[] = 
	{
		{TOSTRING(csum),csum},
		{NULL,NULL},			//这里一定要的不然会有问题,因为它不知道什么时候结束
	};
	luaL_register(L,"mylib",Reg);


	lua_getglobal(L,"width");              //获取lua中定义的变量
	lua_getglobal(L,"height");
	printf("height:%ld width:%ld/n",lua_tointeger(L,-1),lua_tointeger(L,-2)) ;
	lua_pop(L,2) ;                        //恢复lua的栈    //小心bug lua_getglobal会入栈

	lua_pushinteger(L,15);                //push操作都会入栈
	lua_setglobal(L,"width");				//此操作会平衡栈,出栈
	lua_pushinteger(L,16);
	lua_setglobal(L,"height");				//设置lua中定义的变量

	lua_getglobal(L,"width");              //获取lua中定义的变量
	lua_getglobal(L,"height");
	printf("height:%ld width:%ld/n",lua_tointeger(L,-1),lua_tointeger(L,-2)) ;
	lua_pop(L,2) ;                        //恢复lua的栈    //小心bug lua_getglobal会入栈

	int a = 11 ;
	int b = 12 ;
	lua_getglobal(L,"sum");               //调用lua中的函数sum
	lua_pushinteger(L,a) ;
	lua_pushinteger(L,b) ;
	ret = lua_pcall(L,2,1,0) ;
	if ( ret != 0 ) err_return(-1,"lua_pcall failed:%s",lua_tostring(L,-1)) ;
	printf("sum:%d + %d = %ld/n",a,b,lua_tointeger(L,-1)) ;
	lua_pop(L,1) ;

	const char str1[] = "hello" ;
	const char str2[] = "world" ;
	lua_getglobal(L,"mystrcat");          //调用lua中的函数mystrcat
	lua_pushstring(L,str1) ;
	lua_pushstring(L,str2) ;
	ret = lua_pcall(L,2,1,0) ;
	if ( ret != 0 ) err_return(-1,"lua_pcall failed:%s",lua_tostring(L,-1)) ;
	printf("mystrcat:%s%s = %s/n",str1,str2,lua_tostring(L,-1)) ;
	lua_pop(L,1) ;

	lua_getglobal(L,"mysum");           //调用lua中的mysum函数,该函数调用本程序中定义的csum函数实现加法
	lua_pushinteger(L,a) ;
	lua_pushinteger(L,b) ;
	ret = lua_pcall(L,2,1,0) ;
	if ( ret != 0 ) err_return(-1,"lua_pcall failed:%s",lua_tostring(L,-1)) ;
	printf("mysum:%d + %d = %ld/n",a,b,lua_tointeger(L,-1)) ;
	lua_pop(L,1) ;

	/下面是table的用法/
	lua_getglobal(L,"retargnum");          //调用lua中的函数retargnum
	lua_newtable(L);
	lua_pushnumber(L,8);    //压入key
	lua_pushstring(L,"w");  //压入Value
	lua_settable(L,-3);     //只能一次一次的压入
	lua_pushnumber(L,7);    //压入key
	lua_pushstring(L,"w2");  //压入Value
	lua_settable(L,-3);
	ret = lua_pcall(L,1,1,0) ;
	if ( ret != 0 ) err_return(-1,"lua_pcall failed:%s",lua_tostring(L,-1)) ;
	printf("retargnum[1] ret = %s/n",lua_tostring(L,-1)) ;
	lua_pop(L,1); 
	//

	ret = luaL_loadfile(L,"func2.lua") ;      //加载lua脚本文件
	if ( ret != 0 ) 
	{
		printf("加载lua脚本文件出错!!!/n");
	}

	ret = lua_pcall(L,0,0,0) ; //如果没有这句的话retargnum将会调用以前lua的同名函数
	if ( ret != 0 ) err_return(-1,"lua_pcall failed:%s",lua_tostring(L,-1)) ;

	//覆盖了func.lua里面的retargnum
	lua_getglobal(L,"retargnum");          //调用lua中的函数retargnum
	lua_newtable(L);
	//以数字为下标的数组
	lua_pushinteger(L,8);  //push value
	lua_rawseti(L,-2,1);   //下标从1开始
	lua_pushinteger(L,7);  //push value
	lua_rawseti(L,-2,2);   //下标从1开始
	ret = lua_pcall(L,1,1,0) ;
	if ( ret != 0 ) err_return(-1,"lua_pcall failed:%s",lua_tostring(L,-1)) ;
	printf("retargnum[1] ret = %d/n",lua_tointeger(L,-1)) ;
	lua_pop(L,1); 

	lua_getglobal(L,"mysum");           //调用lua中的mysum函数,该函数调用本程序中定义的csum函数实现加法
	lua_pushinteger(L,a) ;
	lua_pushinteger(L,b) ;
	ret = lua_pcall(L,2,1,0) ;
	if ( ret != 0 ) err_return(-1,"lua_pcall failed:%s",lua_tostring(L,-1)) ;
	printf("mysum:%d + %d = %ld/n",a,b,lua_tointeger(L,-1)) ;
	lua_pop(L,1) ;

	lua_getglobal(L,"retglobalwidth");           //
	ret = lua_pcall(L,0,1,0) ;
	if ( ret != 0 ) err_return(-1,"lua_pcall failed:%s",lua_tostring(L,-1)) ;
	printf("retglobalwidth = %d/n",lua_tointeger(L,-1)) ;
	lua_pop(L,1) ;

	lua_close(L) ;   //释放lua运行环境

	getchar();
	return 0 ;
}

以下为lua文件
func.lua

 

--变量定义
width=1 ;
height=2 ;
n=0;--lua函数定义,实现加法
function sum(a,b)
    return a+b ;
end--lua函数定义,实现字符串相加
function mystrcat(a,b)
    return a..b ;
end--lua函数定义,通过调用c代码中的csum函数实现加法
function mysum(a,b)
    return mylib.csum(a,b) ;
endfunction retargnum(a)
    width1=1 ;
    return a[7];
end---------------------------------------------------------
func2.lua
function retargnum(a)
    local b = table.getn(a)
    return b;
endfunction retglobalwidth()
    return width1;
end