lua5.2调用c函数成功的例子

1. main.c

-----------------

//动态库

 

#include <stdio.h>

#include <stdlib.h>

#include <string.h>

#ifdef _cplusplus

extern "C"{

#endif

#include <lua.h>

#include <lauxlib.h>

#include <lualib.h>

 

static void checktoptype(lua_State *L){

    if(lua_isnumber(L, -1))

        printf("number");

    else if(lua_isstring(L, -1))

        printf("string");

    else if(lua_isfunction(L, -1))

        printf("function");

    else if(lua_isboolean(L, -1))

        printf("boolean");

    else if(lua_isnil(L, -1))

        printf("nil");

    else if(lua_istable(L, -1))

        printf("table");

    else

        printf("userdata or thread");

}

 

static int l_print(lua_State *L){

    int ress[100];

    int i = 1;

    int n = 0;

    for(; i <= 100; i++){

        if(lua_isnil(L,-1)||!lua_isnumber(L, -1)){

            break;

        }

        ress[i-1] = lua_tonumber(L, -1);//获取number,这个函数不删栈元素

        lua_pop(L, 1);

        n++;

    }

    //把值传给lua，调用lua中的print

    lua_getglobal(L, "print");//获取函数

    for(i = 0; i < n; i++){

        lua_pushnumber(L, ress[i]);//push参数

        //printf("stack level = %d, n = %d\n", lua_gettop(L), n);

        lua_insert(L,2);//调整输出顺序

    }

    if(lua_pcall(L, n, 0, 0)){

        printf("错误,lua_pcall！ %s",

            lua_tostring(L, -1));

        return 0;

    }

    return n;

}

 

static const struct luaL_Reg l_lib[] = {

    {"luaprint", l_print},

    {NULL, NULL}

};

 

int luaopen_llib(lua_State* L){

    luaL_openlib(L, "llib", l_lib, 0);//第二个参数，似乎可以随意写什么都行。

    //luaL_register(L, "llib", l_lib);

    return 1;

}

#ifdef _cplusplus

}

#endif

----------------

main.lua

----------------

f = function(...)

    for i,v in pairs(arg) do --另外发现lua5.2中arg失去了保存可变变量的功能

        print(i,v)

    end

end

 

f(1,2);

llib = require "llib"

llib.luaprint(12,24,36,48,59)

---------------

c动态库编译方法：gcc -fPIC -llua -lm -shared -o llib.so main.c

lua执行命令： lua main.lua