[Lua]在C函数中保存状态--注册表，环境表，upvalue

什么叫做在C函数中保存状态？比如你现在使用Lua调用了C函数Func1，但是Func1中有一些数据在调用完以后保存下来，供以后使用。而这些数据就是所谓的状态，也就是我们需要保存的东东。有人就会说了，Lua调用C时，把所有的需要保存的状态都返回到Lua中，当调用下一个函数时，将需要的状态当做参数再传进去，不错，是一个办法，但是很麻烦。方法一：注册表；方法二：环境；方法三：upvalue。
注册表是一个全局的table，它只能被C代码访问。通常，可以用它来保存那种需要在几个模块中共享的数据；
但是，如果需要保存一个模块的私有数据，那么应该使用环境，与Lua函数一样，每个C函数都有自己的环境table，通常情况下，一个模块内的所有函数共享同一个环境table，由此它们可以共享数据。
最后，C函数也可以拥有upvalue，upvalue是一种与特定函数相关联的Lua值。

注册表

注册表总是位于一个“伪索引”上，这个索引值由LUA_REGISTRYINDEX定义。伪索引就像是一个栈中的索引，但它所关联的值不在栈中；所完这句话，你想到了什么？C++中，使用new开辟空间，这个空间是在堆上开辟的，而指向这个堆的变量却是存放在栈上的。伪索引和这个意思差不多。Lua API中的大多数函数都能接受伪索引，但像lua_remove和lua_insert这种操作栈本身的函数却只能使用普通索引。
注册表是一个普通的Lua  table，可以使用任何Lua值（nil除外）来索引它。

[cpp]  view plain  copy

1. #include<iostream>  
2. using namespace std;  
3. #include<lua.hpp>  
4.   
5. void registryTestFunc(lua_State* L)  
6. {  
7.     lua_pushstring(L,"Hello");  
8.     lua_setfield(L,LUA_REGISTRYINDEX,"key1");  
9.     lua_getfield(L,LUA_REGISTRYINDEX,"key1");  
10.     printf("%s\n",lua_tostring(L,-1));//输出为：Hello  
11. }  
12.   
13. int main()  
14. {  
15.     lua_State* L = luaL_newstate();  
16.     registryTestFunc(L);  
17.     lua_close(L);  
18.     return 0;  
19. }  

环境表

从5.1开始，在Lua中注册的所有C函数都有自己的环境table。一个函数可以像访问注册表那样，通过一个伪索引来访问它的环境table。环境table的伪索引是LUA_ENVIRONINDEX。
这种使用环境的方法与在Lua模块中使用环境的方法差不多，都是先为模块创建一个新的table，然后使模块中的所有函数都共享这个table。只不过，在Lua中使用了一个setfenv函数，而在C模块中，只不过是设置table为LUA_ENVIRONINDEX

[cpp]  view plain  copy

1. #include<iostream>  
2. using namespace std;  
3. #include<lua.hpp>  
4. int setValue(lua_State* L)  
5. {  
6.     luaL_checkstring(L,-1);  
7.     lua_pushvalue(L,-1);  
8.     lua_setfield(L,LUA_ENVIRONINDEX,"key1");  
9.     return 0;  
10. }  
11.    
12. int getValue(lua_State* L)  
13. {  
14.     lua_getfield(L,LUA_ENVIRONINDEX,"key1");  
15.     return 1;  
16. }  
17.   
18. static luaL_Reg myfuncs[] = {   
19.     {"setValue", setValue},  
20.     {"getValue", getValue},  
21.     {NULL, NULL}   
22. };   
23.   
24. extern "C" __declspec(dllexport)  int luaopen_testenv(lua_State* L)  
25. {  
26.     lua_newtable(L);  //创建一个新的表用于环境  
27.     lua_replace(L,LUA_ENVIRONINDEX); //将刚刚创建并压入栈的新表替换为当前模块的环境表。  
28.     luaL_register(L,"testenv",myfuncs);  
29.     return 1;  
30.     //这个注册函数比以前写的注册函数要多两行代码，先要创建一个新的table，然后调用lua_replace将新的table作环境table。然后调用luaL_register时，所有新建的函数都会继承当前环境。  
31. }  

test.lua文件内容

[python]  view plain  copy

1. require "testenv"  
2. local fun1 = function()  
3.     local var = "Hello,world!!!"  
4.     testenv.setValue(var)  
5.     print(testenv.getValue()) --输出Hello,world!!!  
6. end  
7. xpcall(fun,print)  
8. os.execute("pause")  

上面先将值设置到模块环境table中。然后再从中取出来。这个和上面说的注册表有很多的相似之处。尽管可能使用环境来代替注册表，但是如果没有在不同模块之间共享数据的需要，就尽可能的不要使用注册表；使用环境创建的引用，只是在本模块中可见，这样缩小了数据的使用范围了，减小了数据被错改的可能，增加了数据的安全性。

upvalue

upvalue是和特定函数关联的，我们可以将其简单的理解为函数内的静态变量。 
注册表提供了全局变量的存储，环境提供了模块变量的存储，而upvalue机制则实现了一种类似于C语言中静态变量的机制。而这种upvalue机制，可以让我们定义一个只在特定的函数中可见的变量。每当在Lua中创建一个函数时，都可以将任意数量的upvalue与这个函数相关联。每个upvalue都可以保存一个Lua值。以后，在调用这个函数时，就可以通过伪索引来访问这些upvalue了。将这种C函数与upvalue的关联称为closure（也叫闭包，多么熟悉的名字）。一个C closure类似于Lua closure。closure可以用同一个函数代码来创建多个closure，每个closure可以拥有不同的upvalue。

[cpp]  view plain  copy

1. #include<iostream>  
2. using namespace std;  
3. #include<lua.hpp>  
4. int counter(lua_State* L)  
5. {  
6.     //获取第一个upvalue的值。  
7.     int val = lua_tointeger(L,lua_upvalueindex(1));  
8.     //将得到的结果压入栈中。  
9.     lua_pushinteger(L,++val);  
10.     //赋值一份栈顶的数据，以便于后面的替换操作。  
11.     lua_pushvalue(L,-1);  
12.     //该函数将栈顶的数据替换到upvalue(1)中的值。同时将栈顶数据弹出。  
13.     lua_replace(L,lua_upvalueindex(1));  
14.     //lua_pushinteger(L,++value)中压入的数据仍然保留在栈中并返回给Lua。  
15.     return 1;  
16. }  
17.   
18. int newCounter(lua_State* L)  
19. {  
20.     //压入一个upvalue的初始值0，该函数必须先于lua_pushcclosure之前调用。  
21.     lua_pushinteger(L,0);  
22.     //压入闭包函数，参数1表示该闭包函数的upvalue数量。该函数返回值，闭包函数始终位于栈顶。  
23.     lua_pushcclosure(L,counter,1);  
24.     return 1;  
25. }  
26.   
27. static luaL_Reg myfuncs[] = {   
28.     {"counter", counter},  
29.     {"newCounter", newCounter},  
30.     {NULL, NULL}   
31. };   
32.   
33. extern "C" __declspec(dllexport)  int luaopen_testupvalue(lua_State* L)  
34. {  
35.     luaL_register(L,"testupvalue",myfuncs);  
36.     return 1;  
37. }  

test.lua文件内容

[python]  view plain  copy

1. require "testupvalue"  
2. local fun = function()  
3.     func = testupvalue.newCounter();  
4.     print(func());  
5.     print(func());  
6.     print(func());  
7.   
8.     func = testupvalue.newCounter();  
9.     print(func());  
10.     print(func());  
11.     print(func());  
12.   
13.     --[[ 输出结果为：  
14.     1  
15.     2  
16.     3  
17.     1  
18.     2  
19.     3  
20.     --]]  
21. end  
22. xpcall(fun,print)  
23. os.execute("pause")