C語(yǔ)言與Lua之間的相互調(diào)用詳解

brew install gcc

brew info gcc

gcc -v

sudo su
cd /opt
curl -R -O http://www.lua.org/ftp/lua-5.3.4.tar.gz
tar zxf lua-5.3.4.tar.gz
cd lua-5.3.4
make macosx test
make macosx install

//你需要include這幾個(gè)lua頭文件
#include  <stdio.h>
#include  "lua.h"
#include  "lualib.h"
#include  "lauxlib.h"
lua_State* L;
int
luaadd(int x, int y)
{
 int sum;
 /*函數(shù)名*/
 lua_getglobal(L,"add");
 /*參數(shù)入棧*/
 lua_pushnumber(L, x);
 /*參數(shù)入棧*/
 lua_pushnumber(L, y);
 /*開始調(diào)用函數(shù)，有2個(gè)參數(shù)，1個(gè)返回值*/
 lua_call(L, 2, 1);
 /*取出返回值*/
 sum = (int)lua_tonumber(L, -1);
 /*清除返回值的棧*/
 lua_pop(L,1);
 return sum;
}
int
main(int argc, char *argv[])
{
 int sum;
 L = luaL_newstate(); /* 創(chuàng)建lua狀態(tài)機(jī) */
 luaL_openlibs(L); /* 打開Lua狀態(tài)機(jī)中所有Lua標(biāo)準(zhǔn)庫(kù) */
 /*加載lua腳本*/
 luaL_dofile(L, "add.lua");
 /*調(diào)用C函數(shù)，這個(gè)里面會(huì)調(diào)用lua函數(shù)*/
 sum = luaadd(99, 10);
 printf("The sum is %d \n",sum);
 /*清除Lua*/
 lua_close(L);
 return 0;
}

function add(x,y)
  return x + y
end 

#include  <stdio.h>
#include  <string.h>
#include  "lua.h"
#include  "lualib.h"
#include  "lauxlib.h"
static int l_SayHello(lua_State *L)
{
 const char *d = luaL_checkstring(L, 1);//獲取參數(shù)，字符串類型
 int len = strlen(d);
 char str[100] = "hello ";
 strcat(str, d);
 lua_pushstring(L, str); /* 返回給lua的值壓棧 */
 return 1;
}
int
main(int argc, char *argv[])
{
 lua_State *L = luaL_newstate(); /* 創(chuàng)建lua狀態(tài)機(jī) */
 luaL_openlibs(L); /* 打開Lua狀態(tài)機(jī)中所有Lua標(biāo)準(zhǔn)庫(kù) */
 lua_register(L, "SayHello", l_SayHello);//注冊(cè)C函數(shù)到lua
 const char* testfunc = "print(SayHello('lijia'))";//lua中調(diào)用c函數(shù)
 if(luaL_dostring(L, testfunc)) // 執(zhí)行Lua命令。
  printf("Failed to invoke.\n");

 /*清除Lua*/
 lua_close(L);
 return 0;
}

#include <stdio.h>
#include <math.h>
#include <stdarg.h>
#include <stdlib.h>
#include <lua.h>
#include <lauxlib.h>
#include <lualib.h>
/* 所有注冊(cè)給Lua的C函數(shù)具有
 * "typedef int (*lua_CFunction) (lua_State *L);"的原型。
 */
static int l_sin(lua_State *L)
{ 
 // 如果給定虛擬棧中索引處的元素可以轉(zhuǎn)換為數(shù)字，則返回轉(zhuǎn)換后的數(shù)字，否則報(bào)錯(cuò)。
 double d = luaL_checknumber(L, 1);
 lua_pushnumber(L, sin(d)); /* push result */

 /* 這里可以看出，C可以返回給Lua多個(gè)結(jié)果，
  * 通過多次調(diào)用lua_push*()，之后return返回結(jié)果的數(shù)量。
  */
 return 1; /* number of results */
}
/* 需要一個(gè)"luaL_Reg"類型的結(jié)構(gòu)體，其中每一個(gè)元素對(duì)應(yīng)一個(gè)提供給Lua的函數(shù)。
 * 每一個(gè)元素中包含此函數(shù)在Lua中的名字，以及該函數(shù)在C庫(kù)中的函數(shù)指針。
 * 最后一個(gè)元素為“哨兵元素”（兩個(gè)"NULL"），用于告訴Lua沒有其他的函數(shù)需要注冊(cè)。
 */
static const struct luaL_Reg mylib[] = {
 {"mysin", l_sin},
 {NULL, NULL}
};
/* 此函數(shù)為C庫(kù)中的“特殊函數(shù)”。
 * 通過調(diào)用它注冊(cè)所有C庫(kù)中的函數(shù)，并將它們存儲(chǔ)在適當(dāng)?shù)奈恢谩? * 此函數(shù)的命名規(guī)則應(yīng)遵循：
 * 1、使用"luaopen_"作為前綴。
 * 2、前綴之后的名字將作為"require"的參數(shù)。
 */
extern int luaopen_mylib(lua_State* L)
{
 /* void luaL_newlib (lua_State *L, const luaL_Reg l[]);
  * 創(chuàng)建一個(gè)新的"table"，并將"l"中所列出的函數(shù)注冊(cè)為"table"的域。
  */ 
 luaL_newlib(L, mylib);

 return 1;
}

--[[ 這里"require"的參數(shù)對(duì)應(yīng)C庫(kù)中"luaopen_mylib()"中的"mylib"。
  C庫(kù)就放在"a.lua"的同級(jí)目錄，"require"可以找到。]]
local mylib = require "mylib"
-- 結(jié)果與上面的例子中相同，但是這里是通過調(diào)用C庫(kù)中的函數(shù)實(shí)現(xiàn)。
print(mylib.mysin(3.14 / 2)) --> 0.99999968293183

#include <stdio.h>
#include "lua.h"
#include "lualib.h"
#include "lauxlib.h"
int main() {
 lua_State *L = luaL_newstate();
 luaL_openlibs(L);
if (luaL_loadfile(L, "a.lua") || lua_pcall(L, 0, 0, 0)) {
  printf("%s", lua_tostring(L, -1));
 }
}