C 可变长参数运用-----编写Lua的通用调用函数

OStack程序员社区-中国程序员成长平台 › 门户 › 编程› LUA›LUA教程

原作者: [db:作者] 来自: [db:来源] 收藏邀请

1.C可变长参数

printf这个使用频繁的C语言函数的参数列表包含一个const char＊的描述串，还有一个可变长参数(...) ，如下为printf的函数声明。

int printf(const char * __restrict, ...)

在stdarg.h这个头文件中包含着对可变长参数进行操作的一些宏（x86平台为例）：

#define va_start(ap,v)( ap = (va_list)&v + _INTSIZEOF(v) )

#define va_arg(ap,t) ( *(t *)((ap += _INTSIZEOF(t)) - _INTSIZEOF(t)) )

#define va_end(ap) ( ap = (va_list)0 )

其中运行va_start(ap, v)可以使得ap指向可变长参数列表的第一个参数的地址。其中v为最后一个固定参数。

va_arg(ap,T)使ap指向可变长参数列表的下一个参数，并且用输入的类型T进行数据强转换，返回一个用户需要的参数值。

va_end(ap),置ap为NULL。

详细的可变长参数解释请参见这个博客：imjacob的专栏——c语言中的printf实现

2.C语言对Lua的通用调用函数

 1 #include <stdarg.h>
 2 
 3 void call_va(const char * func,const char *sig,...)
 4 {
 5     va_list vl;//定义一个可变长参数指针，无初始值
 6     int narg;//可变长参数的数量
 7     int nres;//Lua函数返回值的数量
 8 
 9     va_start(vl,sig);//让指针指向可变长参数的第一个参数首地址
10     lua_getglobal(L,func);//函数入栈
11 
12     //---参数入栈
13     for(narg=0;*sig;narg++)//遍历参数
14     {
15         //检查栈中空间
16         luaL_checkstack(L,1,"too many arguments");
17 
18         switch(*sig++)
19         {
20             //根据参数的约束符，按类型入栈,d-double i-int s-char*
21             case 'd':
22             lua_pushnumber(L,va_arg(vl,double));
23             break;
24             case 'i':
25             lua_pushinteger(L,va_arg(vl,int));
26             break;
27             case 's':
28             lua_pushstring(L,va_arg(vl,char*));
29             break;
30             case '>':
31             //输入参数结束
32             goto endargs;
33             default:
34             error(L,"invalid option (%c)",*(sig-1));
35         }
36     }
37     //---参数入栈
38     endargs:
39     nres=strlen(sig);//期望的Lua函数返回值数量
40 
41     //调用Lua函数
42     if(lua_pcall(L,narg,nres,0)!=0)
43     {
44         error(L,"error calling '%s':%s",func,lua_tostring(L,-1));
45     }
46 
47     //调用之后的返回值检索
48     //栈索引从栈顶往下依次是-1,-2,-3，所以第一个结果的栈索引是-nres
49     nres=-nres;
50     while(*sig)
51     {
52         //依次得到返回值的类型描述符 *sig
53         switch(*sig++)
54         {
55             case 'd':
56             if(!lua_isnumber(L,nres))
57                 error(L,"wrong result type");
58             *va_arg(vl,double*)=lua_tonumber(L,nres);
59             break;
60 
61             case 'i':
62             if(!lua_isnumber(L,nres))
63                 error(L,"wrong result type");
64             *va_arg(vl,int*)=lua_tointeger(L,nres);
65             break;
66 
67             case 's':
68             if(!lua_isstring(L,nres))
69                 error(L,"wrong result type");
70             *va_arg(vl,const char**)=lua_tostring(L,nres);
71             break;
72 
73             default:
74             error(L,"invalid option (%c)",*(sig-1));
75         }
76         //结果的参数索引＋1
77         nres++;
78     }
79     va_end(vl);
80 
81 }