C/C++: LUA

lua

 

C

 

C++

 

C/C++与LUA相互交互调用

 

C/C++中嵌入LUA脚本

 

#include <stdio.h>

#include <string.h>

#include <log.h>

#include "../gs/LuaContext.hpp"

#include "../gs/LuaExecutor.hpp"

#include "../gs/LuaScriptExecutor.hpp"

/*

#include <lua.h>

#include <lualib.h>

#include <lauxlib.h>

*/

#include "../LinkedLibrary.h"

 

#define BUFSIZE 1024

 

LuaContext *luaContext;

char *strEventHandler = NULL;

 

 

/**

 * LuaGlue 函数原型

 * 

 *     int (__cdecl *)(struct lua_State *) 

 * 

 * 如果在C编译环境下，函数定义可以不严格遵循这种原型。

 */

int __lua_version(struct lua_State *L)

{

printf("int __lua_version(struct lua_State *L)\n");

 

puts(LUA_VERSION);

puts(LUA_COPYRIGHT);

puts(LUA_AUTHORS);

return 0;

}

 

int registerEvent(struct lua_State *L)

{

printf("registerEvent()\n");

return 0;

}

 

int registerEventHandler(struct lua_State *L) 

{

strEventHandler = (char *) luaContext->getStringArgument(1);

info("lua event handler %s registered\n", strEventHandler);

return 0;

}

 

void FireEvent(char* event, ...)

{

char callback[254];

sprintf(callback, "%s(\"%s\")", strEventHandler, event);

 

lua_State *luaHandle = luaContext->getLuaContext();

//lua_dostring(luaHandle, script);

luaL_dostring(luaHandle, callback);

}

 

int main(int argc, char *argv[])

{

luaContext = new LuaContext();

lua_State *L = NULL;

char line[BUFSIZE];

int len;

 

puts(LUA_VERSION);

puts(LUA_COPYRIGHT);

puts(LUA_AUTHORS);

 

/*

//luaContext = lua_open(); // #define lua_open()luaL_newstate()

L = luaL_newstate(); // 创建一个解释器句柄

 

luaL_openlibs(L); // 打开所有的Lua库

//info("lua runtime environment opened");

*/

L = luaContext->getLuaContext();

 

lua_register(L, "__lua_version", __lua_version);

luaContext->registerFunction("registerEvent", registerEvent);

luaContext->registerFunction("registerEventHandler", registerEventHandler);

 

 

printf("Type lua script from stdin terminal, and the script typed would be executed.\n");

printf("Usage: \n");

printf("\tType <Enter> to exit stdin\n");

while(fgets(line, sizeof(line), stdin) != 0) 

{

if (line[0] == '\n')

{

break;

}

len = strlen(line);

printf("lua script length: %d\n", len);

printf("executing %s\n", line);

 

//lua_dostring(L, line); 

//luaL_dostring(L, line);

LuaScriptExecutor et(luaContext, line, 0);

et.execute();

 

memset(line, 0, BUFSIZE);

}

printf("exit stdin terminal\n");

 

 

//luaL_dostring(L, "print(\"this is lua output\")");

LuaExecutor *executor = new LuaScriptExecutor(luaContext, "print(\"this is lua output\")", 0);

executor->execute();

delete executor;

 

printf("第一种方式：\n");

//luaL_loadfile(L, "test.lua"); // 调入Lua脚本文件

//luaContext->load("test.lua");

//lua_pcall(L, 0, 0, 0); //执行Lua脚本

    luaContext->execute("test.lua");

 

printf("第二种方式：\n");

//luaL_dofile(L, "test.lua");

luaContext->dexecute("test.lua");

 

printf("call lua function lua_version\n");

lua_getglobal(L, "lua_version");

//lua_pushnumber(m_pState, nParam1);

//lua_pushnumber(m_pState, nParam2);

lua_pcall(L, 0, 0, 0);

 

printf("call lua function lua_onEvent\n");

lua_getglobal(L, "lua_onEvent");

lua_pushstring(L, "Click");

lua_pcall(L, 1, 0, 0);

 

FireEvent("DoubleClick");

FireEvent("Move");

 

    delete luaContext;

    return 0;

}

 

＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝

 

运行结果：

 

[INFO] 2014-04-10 23:54:37 lua runtime environment opened

Lua 5.1

Copyright (C) 1994-2008 Lua.org, PUC-Rio

R. Ierusalimschy, L. H. de Figueiredo & W. Celes

[DEBUG] 2014-04-10 23:54:37 LuaGlue function registerEvent registered

[DEBUG] 2014-04-10 23:54:37 LuaGlue function registerEventHandler registered

Type lua script from stdin terminal, and the script typed would be executed.

Usage:

        Type <Enter> to exit stdin

 

exit stdin terminal

this is lua output

第一种方式：

[INFO] 2014-04-10 23:54:38 Loaded lua file test.lua

hello, world

hello, world

[LUA] this is lua runtime environment

register event handler lua_onEvent

[INFO] 2014-04-10 23:54:38 lua event handler lua_onEvent registered

 

[INFO] 2014-04-10 23:54:38 Executed lua file test.lua

第二种方式：

hello, world

hello, world

[LUA] this is lua runtime environment

register event handler lua_onEvent

[INFO] 2014-04-10 23:54:38 lua event handler lua_onEvent registered

 

[INFO] 2014-04-10 23:54:38 Executed lua file test.lua directly

call lua function lua_version

[LUA] this is lua runtime environment

call lua function lua_onEvent

on event        Click

Click

on event        DoubleClick

DoubleClick

on event        Move

Move

[INFO] 2014-04-10 23:54:38 lua runtime environment close

 

 

C/C++中嵌入LUA脚本（C/C++与LUA相互交互调用）－2

 

/*

 *

 *

 * @author ada

 * @version 1.0

 * @since 1.0

 */

#include <log.h>

#include "../LuaRuntime.hpp"

#include "../Task.hpp"

#include "../../LinkedLibrary.h"

 

LuaRuntime *runtime = NULL;

 

int lua_create_task(struct lua_State *L)

{

LuaContext &context = runtime->getContext();

int taskId = context.getIntArgument(1);

const char *taskName = context.getStringArgument(2);

int preTaskId = context.getIntArgument(3);

int postTaskId = context.getIntArgument(4);

const char *awards = context.getStringArgument(5);

info("create task id: %d, name: %s, pre-task-id: %d, post-task-id: %d, awards: %s", taskId, taskName, preTaskId, postTaskId, awards);

 

Task task;

task.createGlobalTask(taskId, taskName, preTaskId, postTaskId, awards);

return 0;

}

 

int lua_create_instance(struct lua_State *L)

{

return 0;

}

 

int lua_create_character(struct lua_State *L)

{

return 0;

}

 

int lua_create_object(struct lua_State *L)

{

return 0;

}

 

void init_task()

{

Task task;

task.clearGlobal();

runtime->dexecute("Task.data.lua");

}

 

int lua_runtime_version()

{

puts(LUA_VERSION);

puts(LUA_COPYRIGHT);

puts(LUA_AUTHORS);

return 0;

}

 

void init()

{

///*

runtime = LuaRuntime::instance();

lua_runtime_version();

runtime->registerFunction("lua_create_task", lua_create_task);

runtime->registerFunction("lua_create_instance", lua_create_instance);

runtime->registerFunction("lua_create_character", lua_create_character);

runtime->registerFunction("lua_create_object", lua_create_object);

//*/

 

init_task();

}

 

int main(int argc, char **args) 

{

init();

    return 0;

}

 

＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝

 

#if ! defined __TASK

#define __TASK

class Task

{

private:

 

public:

void clearGlobal();

 

void createGlobalTask(int taskId, const char *taskName, int preTaskId, int postTaskId, const char *awards);

};

#endif

 

＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝

 

/*

 *

 *

 * @author ada

 * @version 1.0

 * @since 1.0

 */

#include <log.h>

#include <string>

 

#include "Task.hpp"

 

#include "../SQLException.hpp"

#include "../Mysql.hpp"

#include "../Connection.hpp"

#include "../Statement.h"

#include "../ResultSet.hpp"

 

void Task::clearGlobal()

{

Mysql *mysql = new Mysql("localhost", 3306, "liveim_test", "root", "jxcoco1128");

mysql->setEncode("gbk");

Connection *connection = NULL;

try 

{

connection = mysql->openConnection();

 

Statement *stat = connection->createStatement();

 

stat->execute("delete from global_task");

}

catch (SQLException e) 

{

error("Connection error %d: %s", e.getCode(), e.getMessage());

return;

}

info("global task cleared");

}

 

 

void Task::createGlobalTask(int taskId, const char *taskName, int preTaskId, int postTaskId, const char *awards)

{

Mysql *mysql = new Mysql("localhost", 3306, "liveim_test", "root", "jxcoco1128");

mysql->setEncode("gbk");

Connection *connection = NULL;

try 

{

connection = mysql->openConnection();

 

Statement *stat = connection->createStatement();

 

std::string sql;

sql.append("insert into global_task values(");

char c_taskId[8];

itoa(taskId, c_taskId, 10);

sql.append(c_taskId).append(", ");

sql.append("'").append(taskName).append("', ");

memset(c_taskId, 0, sizeof(c_taskId));

itoa(preTaskId, c_taskId, 10);

sql.append(c_taskId).append(", ");

memset(c_taskId, 0, sizeof(c_taskId));

itoa(postTaskId, c_taskId, 10);

sql.append(c_taskId).append(", ");

sql.append("'").append(awards).append("')");

info("sql: %s", sql.c_str());

stat->execute(sql.c_str());

}

catch (SQLException e) 

{

error("Connection error %d: %s", e.getCode(), e.getMessage());

return;

}

 

 

/*

char *s1 = "insert into global_task values(";

int sz = strlen(s1) + strlen(instance_idx) + 1;

char *sql = (char *) malloc(sz);

memset(sql, 0, sz);

strcat(sql, s1);

strcat(sql, instance_idx);

 

printf("selecct global barrier: %s\n", sql);

stat->execute(sql);

free(sql);

*/

}

 

 

＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝

 

lua_create_task(1, "欢迎来到游戏世界！先去报个到！", 0, 2, "")

lua_create_task(2, "领取装备", 0, 0, "")

lua_create_task(3, "完成任务2", 0, 0, "")

 

＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝＝

 

DEBUG=../Debug

 

PATH_VS=D:\usr\bin\Microsoft Visual Studio\VC98

CL="$(PATH_VS)\Bin\cl.exe"

LINK="$(PATH_VS)\Bin\link.exe"

 

INCLUDE="D:\usr\bin\Microsoft Visual Studio\VC98\Include"

LIB="D:\usr\bin\Microsoft Visual Studio\VC98\Lib"

 

 

INCLUDE_LIB_LOG=D:\home\admin\workstation\c\liblog

LIB_LIB_LOG=D:\home\admin\workstation\c\liblog\Debug

 

INCLUDE_MYSQL=D:\usr\srv\mysql51\include

LIB_MYSQL=D:\usr\srv\mysql51\lib\debug

 

 

INCLUDE_LUA=D:\usr\bin\Lua\5.1\include

LIB_LUA=D:\usr\bin\Lua\5.1\lib

 

 

make: clean

$(CL) /GX /W3 /I $(INCLUDE) /c /Fo$(DEBUG)/ ../SQLException.cpp

$(CL) /GX /W3 /I $(INCLUDE) /I$(INCLUDE_LIB_LOG) /I$(INCLUDE_MYSQL) /c /Fo$(DEBUG)/ ../Mysql.cpp

$(CL) /GX /W3 /I $(INCLUDE) /I$(INCLUDE_LIB_LOG) /I$(INCLUDE_MYSQL) /c /Fo$(DEBUG)/ ../Connection.cpp

$(CL) /GX /W3 /I $(INCLUDE) /I$(INCLUDE_LIB_LOG) /I$(INCLUDE_MYSQL) /c /Fo$(DEBUG)/ ../MysqlConnection.cpp

$(CL) /GX /W3 /I $(INCLUDE) /I$(INCLUDE_LIB_LOG) /I$(INCLUDE_MYSQL) /c /Fo$(DEBUG)/ ../MysqlStatement.cpp

$(CL) /GX /W3 /I $(INCLUDE) /I$(INCLUDE_LIB_LOG) /I$(INCLUDE_MYSQL) /c /Fo$(DEBUG)/ ../MysqlResultSet.cpp

$(CL) /GX /W3 /I $(INCLUDE) /I$(INCLUDE_LIB_LOG) /I$(INCLUDE_MYSQL) /c /Fo$(DEBUG)/ ../Mysql.cpp

 

$(CL) /GX /W3 /I $(INCLUDE) /I$(INCLUDE_LUA) /I$(INCLUDE_MYSQL) /I$(INCLUDE_LIB_LOG) /c /Fo$(DEBUG)/ ../gs/Task.cpp

 

$(CL) /GX /W3 /I $(INCLUDE) /I$(INCLUDE_LUA) /I$(INCLUDE_LIB_LOG) /c /Fo$(DEBUG)/ ../gs/LuaException.cpp

$(CL) /GX /W3 /I $(INCLUDE) /I$(INCLUDE_LUA) /I$(INCLUDE_LIB_LOG) /c /Fo$(DEBUG)/ ../gs/LuaContext.cpp

$(CL) /GX /W3 /I $(INCLUDE) /I$(INCLUDE_LUA) /I$(INCLUDE_LIB_LOG) /c /Fo$(DEBUG)/ ../gs/LuaScriptExecutor.cpp

$(CL) /GX /W3 /I $(INCLUDE) /I$(INCLUDE_LUA) /I$(INCLUDE_LIB_LOG) /c /Fo$(DEBUG)/ ../gs/LuaRuntime.cpp

$(CL) /GX /W3 /I $(INCLUDE) /I$(INCLUDE_LUA) /I$(INCLUDE_LIB_LOG) /c /Fo$(DEBUG)/ ../gs/data/DataBackendServer.cpp

 

 

#lib /nologo log.obj /out:./liblog.lib 

$(LINK) /LIBPATH:$(LIB) /LIBPATH:$(LIB_LIB_LOG) /LIBPATH:$(LIB_MYSQL) /LIBPATH:$(LIB_LUA) /OUT:$(DEBUG)/LuaRuntimeTest.exe $(DEBUG)/*.obj

#$(LINK) /DLL /LIBPATH:$(LIB) /OUT:$(DEBUG)/liblog.dll *.obj

#$(LINK) /DLL /LIBPATH:$(LIB) /OUT:$(DEBUG)/liblog.dll $(DEBUG)/*.obj

# $(LINK) *.obj /LIBPATH:"D:\usr\bin\Microsoft Visual Studio\VC98\Lib"

cp ../liblog.dll $(DEBUG)/

cp ./test.lua $(DEBUG)/

cp ../gs/Task.data.lua .

 

clean:

rm -Rf ./*.bak

rm -Rf ./*.o

rm -Rf ./*.obj

rm -Rf ./*.exe

rm -Rf ../Debug/*