lua函数返回值 lua_call lua_getglobal lua_gettop(L)

lua函数返回值
学习目标
	lua_call与返回值
	lua_pcall
	lua_getglobal
	lua_gettop(L)		//参数个数
lua_getglobal:把全局变量 name 里的值压入堆栈
lua_call
	调用一个函数void lua_call(lua_State*L,int nargs,int nresults);//nargs是参数的个数 nresults是返回值个数
	调用一个函数请遵循以下协议
	首先,要调用的函数应该被压入堆栈;接着把需要传递给这个函数的参数按正序压栈;这是指第一个参数首先压栈.
	最后调用一下 lua_call;nargs 是你压入堆栈的参数的个数.当函数调用完毕后,所有的参数以及函数本身都会出栈.而函数
的返回值这时则被压入堆栈.返回值的个数将调整为 nresults 个,除非 nresults 被设置成 LUA_MULTRET. 在这种情况下,所有的返回值
都被压入堆栈中.lua 会保证返回值都放入栈空间中.函数返回值将按正序压栈(第一个返回值首先压栈),因此在调用结束后,最后一个
返回值将被放在栈顶.
lua_CFunction
typedef int (*lua_CFunction)(lua_State*L)
C 函数的类型
为了正确的和lua通讯,C函数必须使用下列 定义了参数以及返回值传递方法的协议:
1 c函数通过 lua 中的堆栈来接受参数,参数以正序入栈(第一个参数首先入栈)
2 因此 当函数开始的时候,lua_gettop(L) 可以返回函数收到的参数个数.第一个参数(如果有的话)在索引 1的地方
而最后一个参数在索引 lua_gettop(L)处
3 当需要向 lua 返回值的时候 c函数只需要把它们以正序压到堆栈上(第一个返回值最先压入),然后返回这些返回值的个数
在这些返回值之下的 堆栈上的东西都会被 lua 丢掉
	lua_gettop(L)		//参数个数
	lua_call(L,8,1)		//传递参数的个数 返回值的个数
	lua_getglobal(L,"add")  //把自己定义函数函数 压入栈中
#include "stdafx.h"
#include"process.h"
extern "C"
{
#include "lua.h"  
#include "lualib.h"  
#include "lauxlib.h"  
}
extern "C"
int leijia_lua(lua_State*L)
{
	int j = lua_gettop(L);//lua_call(L,8,1)	上面的压入参数个数
	int num = 0;
	printf("函数的个数%d\n", lua_gettop(L));
	for (int i=0;i<=j;i++ )
	{
		num += (int)lua_tointeger(L, i);
		//printf("%d\n", num);
	}
	printf("函数 参数个数%d 和%d\n",j,num);
	lua_pushinteger(L, 555);//栈底
	lua_pushinteger(L, 444);
	lua_pushinteger(L, 333);
	lua_pushinteger(L, 222);
	lua_pushinteger(L, 111);//栈顶
	return 5;
}
int main()
{
	lua_State*L = luaL_newstate();
	luaL_openlibs(L);
	lua_register(L, "leijia", leijia_lua);
	lua_getglobal(L, "leijia");//把自己定义函数函数 压入栈中
	lua_pushinteger(L, 1);
	lua_pushinteger(L, 2);
	lua_pushinteger(L, 3);
	lua_pushinteger(L, 4);
	lua_pushinteger(L, 5);
	lua_call(L, 5, 5);//传递参数的个数 返回值的个数
	//luaL_dostring(L, "leijia()");
 	//luaL_dofile(L, "lisaisai.txt");  
	printf("栈底%d\n", (int)lua_tointeger(L, 1));
	printf("栈底%d\n", (int)lua_tointeger(L, 2));
	printf("栈底%d\n", (int)lua_tointeger(L, 3));
	printf("栈底%d\n", (int)lua_tointeger(L, 4));
	printf("栈底%d\n", (int)lua_tointeger(L, 5));
	lua_close(L);
	system("pause");
	return 0;
}