lua 疑问

zylthinking

@starwing83
如下代码， 根据输出， 可以得出如结论：
1. luaopen_base(L); 会在栈上压入 _ENV 表
2. 一旦执行
    luaL_loadfile(L, "./c.lua");
    lua_pcall(L, 0, 0, 0);
完毕后， _ENV['prt'] 是存在的， 也就是 c.lua 中的 prt 函数注册到了 _ENV,  而且 _G 或者 _ENV['_G'] == _ENV, 这个也可以从 c.lua 最后一句，
_G["prt"](_G); 可以正确执行得出。

3.     lua_getglobal(L, "prt");
    lua_pushvalue(L, 1);
    lua_pcall(L, 1, 0, 0);
是可以正确执行的， 似乎 prt 可以从 global 中找到

4. 经实验得知，   
lua_pushnumber(L, 2);
lua_gettable(L, LUA_REGISTRYINDEX);
可以拿到  _ENV

问题是， 从 2 可知，  _ENV['prt'] 应该也能够拿到 prt, 那么为什么
    lua_pushstring(L, "prt");    // 3
    lua_pushnumber(L, 2);
    lua_gettable(L, LUA_REGISTRYINDEX);
    lua_gettable(L, -1);
    printf("===========%p\n", lua_topointer(L, -1));  // NULL
却偏偏拿到 null 呢

1.   lua_State* L = lua_newstate(MyAlloc, 0);
   
2.     if (L == NULL) {
   
3.         return 0;
   
4.     }
   
5. 
   
6.     luaopen_base(L); // 1
   
7.     printf("%s\n", lua_typename(L, lua_type(L, 1)));
   
8.     printf("%s\n", lua_typename(L, lua_type(L, -1)));
   
9.     printf("%p\n", lua_topointer(L, -1));
   
10. 
    
11.     luaopen_table(L); // 2
    
12.     luaL_openlibs(L);
    
13. 
    
14.     luaL_loadfile(L, "./c.lua");
    
15.     lua_pcall(L, 0, 0, 0);
    
16. 
    
17.     lua_getglobal(L, "prt");
    
18.     lua_pushvalue(L, 1);
    
19.     lua_pcall(L, 1, 0, 0);
    
20. 
    
21.     lua_pushstring(L, "prt");    // 3
    
22.     lua_pushnumber(L, 2);
    
23.     lua_gettable(L, LUA_REGISTRYINDEX);
    
24.     printf("---------------------%p\n", lua_topointer(L, -1));  // get _ENV
    
25.     lua_gettable(L, -1);
    
26.     printf("===========%p\n", lua_topointer(L, -1));  // should be _ENV['prt'], but get NULL
    
27. 
    
28.     printf("%s\n", lua_typename(L, lua_type(L, -1)));
    
29.     printf("%s\n", lua_typename(L, lua_type(L, -2)));
    
30. 
    
31.     check(L);
    
32. 
    
33.     lua_pushvalue(L, 1);
    
34.     lua_pcall(L, 1, 0, 0);
    
35. 
    
36. 
    
37. c.lua
    
38. 
    
39. print(_G);
    
40. print(_ENV);
    
41. function prt(t)
    
42.     for key in pairs(t) do
    
43.         print(key)
    
44.     end
    
45. end
    
46. 
    
47. _G["prt"](_G);

复制代码

输出：
table
table
0x152f5f0  // printf("%p\n", lua_topointer(L, -1));

table:0x152f5f0 //  print(_G);
table:0x152f5f0 // print(_ENV);

_ENV 内容：
prt
string
setmetatable
rawlen
tostring
pairs
tonumber
rawget
loadfile
pairsByKeys
loadstring
t
key1
collectgarbage
load
_VERSION
package
print
type
select
rawset
os
pcall
module
_G
lines
key2
next
math
xpcall
bit32
io
table
coroutine
require
assert
dofile
error
ipairs
unpack
debug
rawequa
getmetatable
-----------0x152f5f0  // 可知， 仍然是 _ENV, 此时 stack[-2] == prt, stack[-1] = _ENV
===========(nil)

hshq_cn

第25行代码，看下这个函数的参数需求，key需要在栈顶，但是你在21行压入这个key，而传入-1表明你很了解栈顶不是key，此时key在-2处，

所以，21-25行大概这样：

1. lua_pushnumber(L, 2);
   
2. lua_gettable(L, LUA_REGISTRYINDEX);
   
3. printf("---------------------%p\n", lua_topointer(L, -1));  // get _ENV
   
4. lua_pushstring(L, "prt");    // 3
   
5. lua_gettable(L, -2);

复制代码

linux_c_py_php

哈哈, 楼主啥都跟着搞啊, 前一阵我玩转了, 好久也没用过了.

zylthinking

回复 3# linux_c_py_php

是啊， 跟着领路人走嘛