编写C函数的技术-《lua程序设计》27章学习

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

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

1.数组操作

void lua_rawgeti(lua_State * L ,int index,int key)

void lua_rewseti(lua_State * L,int index,int key)

index表示table在栈的位置,key表示元素在table中的位置

test.lua内容

tab = {"a","b","c","c","e","f","g","h","i"}

function ShowTable(tabb)
    print("显示table")
    for k,v in pairs(tabb) do
        print(v .. ' ')
    end    
end

ShowTable(tab)

print(GetTableFromIndex(tab,6))
SetTableFromIndex(tab,2,"aaaaaaaaaa")
ShowTable(tab)

static int GetTableFromIndex(lua_State * L )
{
    //GetTableFromIndex(tab,6)
    int index = luaL_checkint(L,2);
    lua_rawgeti(L,1,index);
    const char *  ret = luaL_checkstring(L,-1);
    return 1;
}
static int SetTableFromIndex(lua_State * L )
{
    //SetTableFromIndex(tab,2,"aaaaaaaaaa")
    int index = luaL_checkint(L,2);
    const char *  szNewValue = luaL_checkstring(L,3);
    lua_pushstring(L,szNewValue);
    lua_rawseti(L,1,index);
    return 0;
}

int _tmain(int argc, _TCHAR* argv[])
{
    lua_State * L = luaL_newstate();
    luaL_openlibs(L);
    lua_register(L,"GetTableFromIndex",GetTableFromIndex);
    lua_register(L,"SetTableFromIndex",SetTableFromIndex);
    if(0 != luaL_dofile(L,"test.lua"))
    {
        cout<<"error:"<<luaL_checkstring(L,-1)<<endl;
        lua_pop(L,1);
    }
    statckDump(L,"最后");
    lua_close(L);
    system("pause");
    return 0;
}

2.字符串操作

lua_pushlstring(L,s+I,j-i+1) 把一个字符串区间为[I,j]传递给lua

下面函数将一个字符串以分隔符生成一个表例如调用 split(“he,3,66,22”) 会返回table {“he”,”3”,”66”,”22”}

test.lua

tableStrings = l_split("1111,2222,3333,4444,6666",",");
ShowTable(tableStrings)

static int l_split(lua_State * L )
{
    const char * s = luaL_checkstring(L,1);  //第一个参数要分隔的字符串
    const char * sep = luaL_checkstring(L,2);   //第二个参数分隔符
    const char * e;
    int i = 1;

    lua_newtable(L); //创建返回值 

    //遍历所有字符串分隔
    while((e = strstr(s,sep)) != NULL)
    {
        lua_pushlstring(L,s,e-s);  //压入子串
        lua_rawseti(L,-2,i++);     //修改table
        s = e + 1;  //跳过分隔符
    }
    //压入最后一个子串
    lua_pushstring(L,s);
    lua_rawseti(L,-2,i);
    return 1;
}

还有一些相关的函数 lua_pushfstring,luaL_buffinit,luaL_addchar,luaL_add 等lua帮助文件都有说明

3.在c函数中保存状态

对于一个lua函数来说，有3种地方可以保存非局部数据他们是，全局变量，函数环境和非局部的变量(closure中)

3.1注册表

注册表是位于一个”伪索引“上，这个索引值由LUA_REGISTRYINDEX定义。伪索引就像一个栈中的索引，但它所关联的值不在栈中。为了获取注册表中的key为”Key”的值，可以这么做

lua_getfield(L,LUA_REGISTRYINDEX,”KEY”)

在注册表中为了避免冲突的key尽量不要用常用的名字，在注册表中不应使用数字类型的key，因为这种key是被”引用系统“所保留的，这个系统由辅助库中的一系列函数组成，它可以在向一个table存储value时忽略如何创建一个唯一的key

int r = luaL_ref(L,LUA_REGISTRYINDEX); //弹出一个值，然后用新分配的整数key来将这个值保存到注册表中，最后返回这个key，这个key被称为”引用 “

lua_rewgeti(L,LUA_REGISTRYINDEX,r); //将与引用关联的值压入栈中

luaL_unref(L,LUA_REGISTRYINDEX,r); //释放该值和引用

3.2 C函数环境

lua5.1开始每一个c函数都有自己的一个环境table一个函数可以像访问注册表一样通过一个伪索引来访问他的环境table环境table的伪索引是LUA_ENVIRONINDEX。在在C语言中设置环境的代码如下:

int luaopen_foo(lua_State * L)
{
    lua_newtable(L);
    lua_replace(L,LUA_ENVIRONINDEX);
    luaL_register(L,<库名>,<函数列表>);
    ...

}

3.3 upvalue

注册表提供了全局变量的存储，环境提供了模块变量的存储，而upvalue机制则实现了一种类似于c语言中静态变量的机制。这种变量只在一个特定函数中可见。每当lua中创建一个函数时，都可以瘵任务数量的upvalue与这个函数关联

将这种c函数与upvalue关联称为closureg一个c closure类似于Lua closure。closure可以用同一个函数代码来创建多个closure，每个closre可以拥有不同的upvalue

static int counter(lua_State * L)
{
    int val = lua_tointeger(L,lua_upvalueindex(1));  //luaj_upvalueindex可以生成一个upvalue的伪索引，注意这个索引可以像其它栈索引一样，但不存在于栈中
    lua_pushinteger(L,++val);  
    lua_pushvalue(L,-1);
    lua_replace(L,lua_upvalueindex(1)); //更新updavalue
    return 1;
}
int newCounter_(lua_State * L)
{
    lua_pushinteger(L,0);  //创建cclosure前必须将cclosure初始值压栈
    lua_pushcclosure(L, //创建一个cclosure
        &counter, //基础函数
        1);  //upvalue个数
    return 1;
}