参考了网上的资料,作了一点修改,重新编译lua库成功,版本为lua-5.4.2,makefile文件内容如下:
# Makefile for Borland C++ 5.5
# usage:
# build lua with dll: make -f makefile.bcc
# build lua with static library: make -f makefile.bcc -DSTATIC
# write by: Mao yongjun (mao_yj@msn.com)
# makefile for building Lua
# see ../INSTALL for installation instructions
# see ../Makefile and luaconf.h for further customization
# == CHANGE THE SETTINGS BELOW TO SUIT YOUR ENVIRONMENT =======================
CC = bcc32
CFLAGS = -DNDEBUG -DNO_STRICT;_NO_VCL -Hc -w-par -O2 -b- -k- -vi -tWM -c -P-
CFLAGSEXE = -D_isatty=isatty $(CFLAGS)
CLINK = ilink32
CLFLAGS = -Gn -j -x
DLLOBJS = c0d32.obj
EXEOBJS = c0x32.obj
STDLIBS = import32.lib cw32mt.lib
LIB = tlib
RM = del /F
# == END OF USER SETTINGS. NO NEED TO CHANGE ANYTHING BELOW THIS LINE =========
LUA_D= lua_bc.dll
LUA_DA = $(LUA_D:.dll=.lib)
LUA_SA= liblua_bc.lib
!ifdef STATIC
LUA_A= $(LUA_SA)
!else
LUA_A= $(LUA_DA)
CFLAGS= -DLUA_BUILD_AS_DLL $(CFLAGS)
CFLAGSEXE= -DLUA_BUILD_AS_DLL $(CFLAGSEXE)
!endif
CORE_O= lapi.obj lcode.obj ldebug.obj ldo.obj ldump.obj lfunc.obj lgc.obj llex.obj lmem.obj \
lobject.obj lopcodes.obj lparser.obj lstate.obj lstring.obj ltable.obj ltm.obj \
lundump.obj lvm.obj lzio.obj lctype.obj
LIB_O= lauxlib.obj lbaselib.obj ldblib.obj liolib.obj lmathlib.obj loslib.obj ltablib.obj \
lstrlib.obj loadlib.obj linit.obj lctype.obj
LINK_O= $(CORE_O) $(LIB_O)
PLINK_O= +lapi.obj +lcode.obj +ldebug.obj +ldo.obj +ldump.obj +lfunc.obj +lgc.obj +llex.obj +lmem.obj \
+lobject.obj +lopcodes.obj +lparser.obj +lstate.obj +lstring.obj +ltable.obj +ltm.obj \
+lundump.obj +lvm.obj +lzio.obj \
+lauxlib.obj +lbaselib.obj +ldblib.obj +liolib.obj +lmathlib.obj +loslib.obj +ltablib.obj \
+lstrlib.obj +loadlib.obj +linit.obj +lctype.obj
LUA_T= lua_bc.exe
LUA_O= lua.obj
LUAC_T= luac_bc.exe
LUAC_O= luac.obj $(CORE_O)
ALL_O= $(CORE_O) $(LIB_O) $(LUA_O) $(LUAC_O)
ALL_A= $(LUA_A)
ALL_T= $(ALL_A) $(LUA_T) $(LUAC_T)
all: $(ALL_T)
$(RM) $(ALL_O) *.tds
o: $(ALL_O)
a: $(ALL_A)
$(LUA_DA): $(LUA_D)
$(LUA_SA): $(LINK_O)
$(LIB) $@ $(PLINK_O)
$(LUA_D): $(LINK_O)
$(CLINK) $(CLFLAGS) -Tpd -Gi $(DLLOBJS) $(LINK_O), $@, , $(STDLIBS), ,
$(LUA_T): $(LUA_O) $(LUA_A)
$(CLINK) $(CLFLAGS) -Tpe $(EXEOBJS) $(LUA_O), $@, , $(STDLIBS) $(LUA_A), ,
$(LUAC_T): $(LUAC_O) $(LUA_A)
$(CLINK) $(CLFLAGS) -Tpe $(EXEOBJS) $(LUAC_O), $@, , $(STDLIBS) $(LUA_A), ,
clean:
$(RM) $(ALL_T) $(ALL_O) $(LUA_D) *.tds
.PHONY : clean all o a
# DO NOT DELETE
lapi.obj: lapi.c lua.h luaconf.h lapi.h lobject.h llimits.h ldebug.h \
lstate.h ltm.h lzio.h lmem.h ldo.h lfunc.h lgc.h lstring.h ltable.h \
lundump.h lvm.h
$(CC) $(CFLAGS) lapi.c
lauxlib.obj: lauxlib.c lua.h luaconf.h lauxlib.h
$(CC) $(CFLAGS) lauxlib.c
lbaselib.obj: lbaselib.c lua.h luaconf.h lauxlib.h lualib.h
$(CC) $(CFLAGS) lbaselib.c
lcode.obj: lcode.c lua.h luaconf.h lcode.h llex.h lobject.h llimits.h \
lzio.h lmem.h lopcodes.h lparser.h ldebug.h lstate.h ltm.h ldo.h lgc.h \
ltable.h
$(CC) $(CFLAGS) lcode.c
ldblib.obj: ldblib.c lua.h luaconf.h lauxlib.h lualib.h
$(CC) $(CFLAGS) ldblib.c
ldebug.obj: ldebug.c lua.h luaconf.h lapi.h lobject.h llimits.h lcode.h \
llex.h lzio.h lmem.h lopcodes.h lparser.h ldebug.h lstate.h ltm.h ldo.h \
lfunc.h lstring.h lgc.h ltable.h lvm.h
$(CC) $(CFLAGS) ldebug.c
ldo.obj: ldo.c lua.h luaconf.h ldebug.h lstate.h lobject.h llimits.h ltm.h \
lzio.h lmem.h ldo.h lfunc.h lgc.h lopcodes.h lparser.h lstring.h \
ltable.h lundump.h lvm.h
$(CC) $(CFLAGS) ldo.c
ldump.obj: ldump.c lua.h luaconf.h lobject.h llimits.h lstate.h ltm.h \
lzio.h lmem.h lundump.h
$(CC) $(CFLAGS) ldump.c
lfunc.obj: lfunc.c lua.h luaconf.h lfunc.h lobject.h llimits.h lgc.h lmem.h \
lstate.h ltm.h lzio.h
$(CC) $(CFLAGS) lfunc.c
lgc.obj: lgc.c lua.h luaconf.h ldebug.h lstate.h lobject.h llimits.h ltm.h \
lzio.h lmem.h ldo.h lfunc.h lgc.h lstring.h ltable.h
$(CC) $(CFLAGS) lgc.c
linit.obj: linit.c lua.h luaconf.h lualib.h lauxlib.h
$(CC) $(CFLAGS) linit.c
liolib.obj: liolib.c lua.h luaconf.h lauxlib.h lualib.h
$(CC) $(CFLAGS) liolib.c
lctype.obj: lctype.c lua.h lctype.h
$(CC) $(CFLAGS) lctype.c
llex.obj: llex.c lua.h luaconf.h ldo.h lobject.h llimits.h lstate.h ltm.h \
lzio.h lmem.h llex.h lparser.h lstring.h lgc.h ltable.h
$(CC) $(CFLAGS) llex.c
lmathlib.obj: lmathlib.c lua.h luaconf.h lauxlib.h lualib.h
$(CC) $(CFLAGS) lmathlib.c
lmem.obj: lmem.c lua.h luaconf.h ldebug.h lstate.h lobject.h llimits.h \
ltm.h lzio.h lmem.h ldo.h
$(CC) $(CFLAGS) lmem.c
loadlib.obj: loadlib.c lua.h luaconf.h lauxlib.h lualib.h
$(CC) $(CFLAGS) loadlib.c
lobject.obj: lobject.c lua.h luaconf.h ldo.h lobject.h llimits.h lstate.h \
ltm.h lzio.h lmem.h lstring.h lgc.h lvm.h
$(CC) $(CFLAGS) lobject.c
lopcodes.obj: lopcodes.c lopcodes.h llimits.h lua.h luaconf.h
$(CC) $(CFLAGS) lopcodes.c
loslib.obj: loslib.c lua.h luaconf.h lauxlib.h lualib.h
$(CC) $(CFLAGS) loslib.c
lparser.obj: lparser.c lua.h luaconf.h lcode.h llex.h lobject.h llimits.h \
lzio.h lmem.h lopcodes.h lparser.h ldebug.h lstate.h ltm.h ldo.h \
lfunc.h lstring.h lgc.h ltable.h
$(CC) $(CFLAGS) lparser.c
lstate.obj: lstate.c lua.h luaconf.h ldebug.h lstate.h lobject.h llimits.h \
ltm.h lzio.h lmem.h ldo.h lfunc.h lgc.h llex.h lstring.h ltable.h
$(CC) $(CFLAGS) lstate.c
lstring.obj: lstring.c lua.h luaconf.h lmem.h llimits.h lobject.h lstate.h \
ltm.h lzio.h lstring.h lgc.h
$(CC) $(CFLAGS) lstring.c
lstrlib.obj: lstrlib.c lua.h luaconf.h lauxlib.h lualib.h
$(CC) $(CFLAGS) lstrlib.c
ltable.obj: ltable.c lua.h luaconf.h ldebug.h lstate.h lobject.h llimits.h \
ltm.h lzio.h lmem.h ldo.h lgc.h ltable.h
$(CC) $(CFLAGS) ltable.c
ltablib.obj: ltablib.c lua.h luaconf.h lauxlib.h lualib.h
$(CC) $(CFLAGS) ltablib.c
ltm.obj: ltm.c lua.h luaconf.h lobject.h llimits.h lstate.h ltm.h lzio.h \
lmem.h lstring.h lgc.h ltable.h
$(CC) $(CFLAGS) ltm.c
lua.obj: lua.c lua.h luaconf.h lauxlib.h lualib.h
$(CC) $(CFLAGSEXE) lua.c
luac.obj: luac.c lua.h luaconf.h lauxlib.h ldo.h lobject.h llimits.h \
lstate.h ltm.h lzio.h lmem.h lfunc.h lopcodes.h lstring.h lgc.h \
lundump.h
$(CC) $(CFLAGSEXE) luac.c
lundump.obj: lundump.c lua.h luaconf.h ldebug.h lstate.h lobject.h \
llimits.h ltm.h lzio.h lmem.h ldo.h lfunc.h lstring.h lgc.h lundump.h
$(CC) $(CFLAGS) lundump.c
lvm.obj: lvm.c lua.h luaconf.h ldebug.h lstate.h lobject.h llimits.h ltm.h \
lzio.h lmem.h ldo.h lfunc.h lgc.h lopcodes.h lstring.h ltable.h lvm.h
$(CC) $(CFLAGS) lvm.c
lzio.obj: lzio.c lua.h luaconf.h llimits.h lmem.h lstate.h lobject.h ltm.h \
lzio.h
$(CC) $(CFLAGS) lzio.c
# (end of Makefile)
将此文件,保存为makefile.bcc,放在lua的src文件夹中。打开cmd,cd到lua的src路径下,输入:makefile -f makefile.bcc将在src文件夹下生成lua_bc.dll文件
在c++builder中测试,如下:
static int msgbox(lua_State *L)
{
//从lua文件中获取字符串参数值
const char * p1 = lua_tostring(L, -1);
const char * p2 = lua_tostring(L, -2);
::MessageBox(0, UTF8_To_string(p1).c_str(), UTF8_To_string(p2).c_str(), MB_OK + MB_ICONINFORMATION);
return 1;
}
static int gettext(lua_State * L)
{
//从lua脚本中获取参数
char * szName = (char*)lua_tostring(L, -1);
TLabel * p;
for(int i=0;i< Form1->ComponentCount ;i++ )
{
if(Form1->Components[i]->Name == szName)
{
AnsiString strClassName = Form1->Components[i]->ClassType()->ClassName();
if(strClassName == "TLabel")
{
p = (TLabel*)Form1->Components[i];
break;
}
}
//TLabel * p = (TLabel*)Form1-> FindControl(szName);
}
//将结果压栈,传给lua脚本
lua_pushstring(L, p->Caption.c_str());
return 1;
}
static int settext(lua_State * L)
{
//从lua脚本中获取参数
char * szName = (char*)lua_tostring(L, -1);
const char * szText = lua_tostring(L, - 2);
TLabel * p;
for(int i=0;i< Form1->ComponentCount ;i++ )
{
if(Form1->Components[i]->Name == szName)
{
AnsiString strClassName = Form1->Components[i]->ClassType()->ClassName();
if(strClassName == "TLabel")
{
p = (TLabel*)Form1->Components[i];
p->Caption = szText;
break;
}
}
}
return 1;
}
static const luaL_Reg work[] =
{//模块映射表
{"msgbox", msgbox },
{"gettext",gettext},
{"settext",settext},
{"getpos",getpos},
{ NULL, NULL }
};
int GetLib(lua_State* L)
{//创建模块
luaL_newlib(L, work);
return 1; //return one value
}
void __fastcall TForm1::Button3Click(TObject *Sender)
{//获取控件文件内容
lua_State *L = luaL_newstate();
luaL_openlibs(L);
//注册模块
luaL_requiref(L, "testMod", GetLib, 1);
luaL_dofile(L, "getText.lua");//加载执行lua文件
lua_close(L);
}
//---------------------------------------------------------------------------
void __fastcall TForm1::Button4Click(TObject *Sender)
{//写控件文件内容
lua_State *L = luaL_newstate();
luaL_openlibs(L);
//注册模块
luaL_requiref(L, "testMod", GetLib, 1);
luaL_dofile(L, "setText.lua");//加载执行lua文件
lua_close(L);
}
getText.lua文件内容如下:
require "testMod" --引入模块
Scale.settext("12390","Label1")
setText.lua文件内容如下:
require "testMod" --引入模块
strTemp= Scale.gettext("Label1")
Scale.msgbox("提示",strTemp)--在lua显示出控件内容