c++builder 编译lua动态库

参考了网上的资料,作了一点修改,重新编译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显示出控件内容

 

  • 0
    点赞
  • 0
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值