Lua脚本调用C函数小结

 

Lua脚本调用C函数小结

仔细的学习了一下，发现功能的确非常强大。用脚本调用C的函数，都希望有如下特性：
1. 多输出
Lua 本身就支持函数返回多个值，语法如下：
x,y = testext.Test()

2. 可以使用类似C的结构的形式输入输出
Lua 的Table可以在形式上很好的模仿C的结构，
a = {}
a.i = 101
a.name = "jason"
a.subtable = {}
a.subtable.i = 99
相当于
struct A
{
  int i;
  string name;
  struct subtable
  {  
     int i;
  }
}
这个能力一般的脚本是不具备的。我们的应用中，很多参数都是用结构组织的，
以前使用TCL，就只能让用户平铺的输入。现在好多了. 

输出也可以，在C的函数中可以返回一个table给Lua脚本。TCL也可以返回一个Array.

不过给Lua写C函数太痛苦了，全部是基于堆栈的，而且非常的不直观，看来还需要
研究一下如何封装。网上有不少基于模版的封装，得好好看看。

测试代码如下：
Lua


local testlib = package.loadlib("testext.dll","luaopen_testext")


if(testlib)then


    testlib()


else


    -- Error


end






a = 

{}


a.i = 101


a.name = "jason hah"




a.subtable = 

{}


a.subtable.i = 99


r = testext.Complex(a)


print(r.mydata)



C


static int Complex(lua_State* L)






{


    //1. get the table from Lua Script


    int i = lua_gettop(L);


    if( i != 1)




    

{


         lua_pushstring(L, "Complex(table)" ) ;


         return 1;


    }




    if (lua_istable(L, 1))




    

{


        lua_pushstring(L,"i");


        lua_gettable(L,-2);


        if(lua_isnumber(L,-1))




        

{


            int j = lua_tonumber(L, -1);


            printf("The table.j = %d ",j);


        }


        lua_remove(L,-1);




        lua_pushstring(L,"name");


        lua_gettable(L,-2);


        if(lua_isstring(L,-1))




        

{


            char* name = lua_tostring(L, -1);


            printf("The table.name = %s ",name);


        }




        lua_remove(L,-1);


        lua_pushstring(L,"subtable");


        lua_gettable(L,-2);


        if(lua_istable(L,-1))




        

{


            lua_pushstring(L,"i");


            lua_gettable(L,-2);


            if(lua_isnumber(L,-1))




            

{


                int j = lua_tonumber(L, -1);


                printf("The table.j = %d ",j);


            }


        }


    }


    else




    

{


        lua_pushstring(L, "Complex(table)" ) ;


        return 1;


    }    


    //2. Return Another table to Lua Script


    lua_newtable(L);


    lua_pushstring(L, "mydata");


    lua_pushnumber(L,66);


    lua_settable(L,-3);    


    return 1;


}