lua调用C

最新推荐文章于 2025-03-15 09:48:14 发布

原创最新推荐文章于 2025-03-15 09:48:14 发布 · 587 阅读

0 ·

CC 4.0 BY-SA版权

lua 专栏收录该内容

3 篇文章

订阅专栏

本文介绍了一个C语言与Lua脚本语言交互的例子。通过C语言实现了一个Lua可调用的函数，并展示了如何加载Lua脚本文件、调用Lua中的全局变量及函数，并返回结果到Lua。此示例涵盖C语言中Lua库的使用方法。

摘要生成于 C知道，由 DeepSeek-R1 满血版支持，前往体验 >

//----------------------------------------------------

//AUTHOR: lanyang123456

//DATE: 2014-10-23

//----------------------------------------------------

C代码：

/*clua.c*/
#include <lua.h>
#include <lualib.h>
#include <lauxlib.h>

#include <stdlib.h> /* For function exit() */
#include <stdio.h> /* For input/output */

void bail(lua_State *L, char *msg)
{
	fprintf(stderr, "\nFATAL ERROR:\n %s: %s\n\n",
            msg, lua_tostring(L, -1));
        exit(1);
}



int lua_func_from_c(lua_State *L) 
{
        printf("This is C\n");
        int argc = lua_gettop(L);    /* number of arguments */
        const char * str = lua_tostring(L,1);    /* the first argument: string */
        int num = lua_tonumber(L,2); /* the second argument: number */
        
        printf("The first argument: %s\n", str);
        printf("The second argument: %d\n", num);

        lua_getglobal(L,"global_var");
        const char * global_str = lua_tostring(L,-1);
        printf("global_var is %s\n", global_str);

        int the_second_ret = 2*num;
        lua_pushstring(L, "the first return");
        lua_pushnumber(L, the_second_ret);
        return 2;            /* tell lua how many variables are returned */
 }




int main(int argc, const char *argv[])
{
        if(argc != 2)
        {
            return 1;
        }
        lua_State *L = luaL_newstate(); /* Create new lua state variable */

        /* Load Lua libraries, otherwise, the lua function in *.lua will be nil */
        luaL_openlibs(L);
        
        /* register new lua function in C */
        lua_register(L, "lua_func_from_c", lua_func_from_c);

        if( luaL_loadfile(L,argv[1]) ) /* Only load the lua script file */
            bail(L, "luaL_loadfile() failed");

        if( lua_pcall(L,0,0,0) ) /* Run the loaded lua file */
            bail(L, "lua_pcall() failed");
        lua_close(L);                 /* Close the lua state variable */    

        return 0;
}

lua代码：

--test.lua
print("Hello world")
global_var = "this is a global string"
local first, second = lua_func_from_c("the first one", 3)
print("the first returned", first)
print("the second returned", second)

测试：

$ gcc -o test clua.c -llua -ldl -lm

这些编译选项很重要。

$ ./test test.lua
Hello world
This is C
The first argument: the first one
The second argument: 3
global_var is this is a global string
the first returned the first return
the second returned 6

参考

http://blog.youkuaiyun.com/wangbin579/article/details/7265405
http://blog.chinaunix.net/uid-16175292-id-3472702.html