这是学习tolua++的最后一篇了。在这一篇里完成一个稍微复杂一点的例子(^_^其实还是很简单)。 导出三个类CBase、CDerived1、CDerived2到lua,导出两个函数toDerived1、toDerived2。lua脚本中声明两个函数Derived1Test和Derived2Test,我们在C++中调用。Derived1Test和Derived2Test会调用toDerived*对其参数进行向下转换(从CBase转到CDerived*),然后调用派生类的方法做一些测试。 基本上和前面几个例子类似,新增加的部分是在C++中调用Lua脚本里定义的函数。这牵涉到虚拟栈的操作,后面会解释一下。 还是老样子,先把实际的头文件列出来。tlclass.h如下:
tlclass.pkg如下:
这次多定义了两个函数toDerived1和toDerived2,全局的。我们也可以把他们直接放在类中,或者一个MODULE中。module大概是类似的namespace的东西,把一堆杂七杂八的家什如变量、常量、函数、类实例等放在一起,在lua中通过"."来访问。下面是手册中的例子:
这样我们可以在lua中用mod.N,mod.var,mod.func来访问其成员。 原本toDerived*的参数是CBase*,但是从C++向Lua函数传参数的时候我调用了lua_pushlightuserdata,结果在脚本中报错,说toDerived*应当接受CBase*而非userdata。于是干脆把参数修改成void*,这下lua不再叫唤了。 好了,到了列出驱动文件的时候了。CallLuaFunc.cpp:
这次驱动文件有了点新的变化:1)两个全局导出函数;2)调用lua函数的代码。分开来看。 导出函数toDerived*很简单,只是调用dynamic_cast来向下转换而已。如果转换失败,dynamic_cast会返回null。当我们要从基类指针转换到派生类指针时,最好用dynamci_cast,直接强制转换是危险的,除非你明确的知道某个指针指向的对象是什么。 在C++中调用lua脚本的函数大概分为三步: a..找到函数并入栈;(这里是
lua_getglobal(L,
"
Derived1Test
"
);) b..参数入栈;(这里是
lua_pushlightuserdata(L,p1);) c..调用lua_pcall进行实际调用 第一步不必说了;第二步可以传递任意个任意类型的参数,lua_pushnumber,lua_pushstring,lua_pushboolean等等可以调用;第三步是调用lua_pcall,lua_pcall第一个参数是lua_State*,这是我们的工作环境了。第二参数是要传递的参数个数,我们这里是1;第三个参数是lua函数返回的结果个数,我们的lua函数不返回结果,设为0。第四个参数是比较复杂,为0时指lua_pcall会在调用失败时把原始错误信息放到栈上;其它值代表栈的索引,该索引处放了一个错误处理函数,lua_pcall失败时会根据这个索引去调用该函数。 调用失败的时候我只是简单地打印一条出错信息,这个错误码放在栈顶,我们用lua_tostring(L,-1)访问并转换为字符串。可以修改下驱动代码,比如把第二次调用传入p1,这样就可以看见错误信息。 最后我还是在C++代码中打印了下CDerived2对象的值,以验证lua和C++中访问的是同一个对象。 Lua和C++的交互都是通过栈,所以要写交互部分的代码就要不停的出栈入栈,烦死个人。不过这也是Lua灵活的地方。牛人啊,顶礼膜拜吧。 有时间要好好研究下《Programming Lua》,CSDN上有中文版的,
lua官方网站
上有英文的。虽然这个是针对5.0版本的lua,但绝大部分东西还是有用的。针对5.1.3的第二版已经出了,可惜我在网上没有找到链接,哪位看到分享一下。 下面看看lua文件callluafunc.lua吧:
lua中定义了函数Derived1Test和Derived2Test。上面的版本已经不会导致出错信息了,原始的Derived*Test函数如下:
原始的Derived*Test函数没有错误检查,所以从C++中用lua_pcall调用时可能会产生错误信息。 又想了下,这样的类型转换太复杂了,tolua++提供了转换机制,可以用的。CEGUI用的就是。 tolua++生成了一些工具函数,在tolua为名的module中。其中tolua.cast就是用来做类型转换的。只需要改动tlclass.pkg文件,加入下面的代码:
$[和$]结合,用来直接插入lua代码。我生成一个名为testHelper的table,给testHelper添加两个转换函数。 重新用tolua++编译,再编译工程。就可以在脚本中调用testHelper.toDerived*来转换了。 下面是更改后的
callluafunc.lua文件:
仅仅是将toDerived*调用转换成了testHelper.toDerived*。运行了一下,结果是正常的。
好啦好啦,就到这里啦。 通过两天的学习,我已经确定可以在项目中使用tolua++了,它是"AS IS"的,可以用于任何目的。到目前位置所演示的一些特性,可以满足我的需要。
嗯,有些未完成的东西,比如UNICODE、多线程环境下对lua的调用等,慢慢用到了再说吧。
#ifndef__TOLUACLASS_h
#define
__TOLUACLASS_h
class
CBase
{
public
:
CBase()
{}
virtual
~
CBase()
{}
virtual
void
ShowMessage()
{printf(
"
BaseClass
"
);}
static
char
*
ClassName()
{
return
"
CBase
"
;}
}
;
class
CDerived1:
public
CBase
{
public
:
CDerived1()
{}
~
CDerived1()
{}
void
ShowMessage()
{printf(
"
Derived1Class
"
);}
void
ShowDerived1()
{printf(
"
showderived11111
"
);}
}
;
class
CDerived2:
public
CBase
{
public
:
CDerived2()
{m_nNumber
=
0
;}
~
CDerived2()
{}
void
ShowMessage()
{printf(
"
Derived2Class
"
);}
void
ShowDerived2()
{printf(
"
showderived22222
"
);}
void
SetNumber(
int
num)
{m_nNumber
=
num;}
int
GetNumber()
{
return
m_nNumber;}
protected
:
int
m_nNumber;
}
;
extern
CDerived1
*
toDerived1(
void
*
p);
extern
CDerived2
*
toDerived2(
void
*
p);
#endif
$#include
"
tlclass.h
"
class
CBase
{
public
:
virtual
void
ShowMessage();
static
char
*
ClassName();
}
;
class
CDerived1:
public
CBase
{
public
:
void
ShowMessage();
void
ShowDerived1();
}
;
class
CDerived2:
public
CBase
{
public
:
void
ShowMessage();
void
ShowDerived2();
void
SetNumber(
int
num);
int
GetNumber();
}
;
CDerived1
*
toDerived1(
void
*
p);
CDerived2
*
toDerived2(
void
*
p);
modulemod
{
#define
N
extern
int
var;
int
func(...):
}
#include
"
lua.hpp
"
#include
"
tlclass.h
"
CDerived1
*
toDerived1(
void
*
p)
{
return
dynamic_cast
<
CDerived1
*>
((CBase
*
)p);
}
CDerived2
*
toDerived2(
void
*
p)
{
return
dynamic_cast
<
CDerived2
*>
((CBase
*
)p);
}
int
tolua_calllua_open(lua_State
*
);
int
_tmain(
int
argc,_TCHAR
*
argv[])
{
lua_State
*
L
=
luaL_newstate();
luaopen_base(L);
tolua_calllua_open(L);
luaL_dofile(L,
"
../scripts/CallLuaFunc.lua
"
);
//
callluafunction
CBase
*
p1
=
new
CDerived1();
CBase
*
p2
=
new
CDerived2();
//
callDerived1Test
lua_getglobal(L,
"
Derived1Test
"
);
lua_pushlightuserdata(L,p1);
if
(lua_pcall(L,
1
,
0
,
0
)
!=
0
)
{
fprintf(stderr,
"
callDerived1Testfailed:%s
"
,lua_tostring(L,
-
1
));
}
//
callDerived2Test
lua_getglobal(L,
"
Derived2Test
"
);
lua_pushlightuserdata(L,p2);
if
(lua_pcall(L,
1
,
0
,
0
)
!=
0
)
{
fprintf(stderr,
"
callDerived2Testfailed:%s
"
,lua_tostring(L,
-
1
));
}
printf(
"
ThisinfoisprintinC++! CDerived2.GetNumber()=%d
"
,((CDerived2
*
)p2)
->
GetNumber());
deletep1;
deletep2;
lua_close(L);
return
0
;
}
print(
"
nowinCallLuaFunc.lua!
"
)
--
luafunctiontotestCDerived1,CDerived2,they
'
llbecalledfromC++
functionDerived1Test(e)
d1
=
toDerived1(e);
if
d1then
d1:ShowMessage();
d1:ShowDerived1();
else
print(
"
invalidd1(nil)!
"
);
end
end
functionDerived2Test(e)
d2
=
toDerived2(e);
if
d2then
d2:ShowMessage();
d2:ShowDerived2();
d2:SetNumber(
180
);
print(d2:GetNumber());
else
print(
"
invalidd2(nil)
"
);
end
end
functionDerived1Test(e)
d1
=
toDerived1(e);
d1:ShowMessage();
d1:ShowDerived1();
end
functionDerived2Test(e)
d2
=
toDerived2(e);
d2:ShowMessage();
d2:ShowDerived2();
d2:SetNumber(
180
);
print(d2:GetNumber());
end
$[
testHelper
=
{}
functiontestHelper.toDerived1(e)
return
tolua.cast(e,
"
CDerived1
"
)
end
functiontestHelper.toDerived2(e)
return
tolua.cast(e,
"
CDerived2
"
)
end
$]
print(
"
nowinCallLuaFunc.lua!
"
)
--
luafunctiontotestCDerived1,CDerived2,they
'
llbecalledfromC++
functionDerived1Test(e)
d1
=
testHelper.toDerived1(e);
if
d1then
d1:ShowMessage();
d1:ShowDerived1();
else
print(
"
invalidd1(nil)!
"
);
end
end
functionDerived2Test(e)
d2
=
testHelper.toDerived2(e);
if
d2then
d2:ShowMessage();
d2:ShowDerived2();
d2:SetNumber(
180
);
print(d2:GetNumber());
else
print(
"
invalidd2(nil)
"
);
end
end