alchemy lua 配置

转换一种思路，在flash前端触发任务脚本，故研究一下lua，由于as3 不能直接调用lua，需要c来做桥梁，所以要先把alchemy配置上.

配置alchemy:http://labs.adobe.com/wiki/index.php/Alchemy:Documentation:Getting_Started#Windows

ps:修改在C:\cygwin\etc 下 profile 文件

 在 PATH="/usr/local/bin:/usr/bin:${PATH}" 后一行加上
source /cygdrive/c/alchemy/alchemy-setup

就不用每次启动alc-on 的时候在命令行输入 .

 

试了很多次，想把官方的liblua52.a 编译进swc 都没有成功

gcc LuaAlchemy.c -llua52 -O3 -Wall -swc -o LuaAlchemy.swc  --- 未成功

采用了笨的办法，把源文件重新编译成.o文件，一起编译进swc

gcc -c lapi.c

...

gcc -c lzio.c

全部把c文件编译成.o 文件 lua.c,luac.c 除外

 

LuaAlchemy.c 为自己写的c源代码，其中引用到了lua库代码

 

命令行通过gcc LuaAlchemy.o lapi.o lauxlib.o lbaselib.o ... lzio.o -O3 -Wall -swc -o LuaAlchemy.swc

最终把lua 编译进LuaAlchemy.swc

LuaAlchemy.c:

 

#include <stdio.h>#include <stdlib.h>#include <string.h>#include <errno.h>//lua头文件#include <lua.h>#include <lualib.h>#include <lauxlib.h>//测试lua解析static AS3_Val test(void* self, AS3_Val args){ char* val = NULL; AS3_ArrayValue( args, "StrType", &val ); lua_State * l = luaL_newstate() ;        //创建lua运行环境luaL_dostring int ret = 0 ; //ret = luaL_loadfile(l,"c:\\func.lua") ;      //加载lua脚本文件 ret = luaL_dostring(l,val) ;//解析lua字符串 ret = lua_pcall(l,0,0,0) ; int totalPixs = 0; lua_getglobal(l,"width");              //获取lua中定义的变量 lua_getglobal(l,"height"); int w = 0; int h = 0; int total = 0 ; w = atoi(lua_tostring(l,-1)); h = atoi(lua_tostring(l,-2)); total = w * h; lua_pop(l,1) ;                        //恢复lua的栈lua_close(l) ;                     //释放lua运行环境 return AS3_Int(total);}//加法static AS3_Val sum(void* self, AS3_Val args){ int num1; int num2; AS3_ArrayValue( args, "IntType,IntType", &num1 ,&num2); int total = 0; total = num1 + num2; return AS3_Int(total);}//调用as3 中方法static AS3_Val asFunc(void* self, AS3_Val args){ AS3_Val baNS = AS3_String("alchemy"); AS3_Val baClass = AS3_NSGetS(baNS, "TaskScript"); AS3_Val emptyParams = AS3_Array(""); AS3_Val ba = AS3_New(baClass, emptyParams); AS3_Val testScript = AS3_GetS(ba, "testScript"); AS3_Val scrParams = AS3_Array("IntType", 10001); AS3_Val str = AS3_Call(testScript, ba, scrParams); return str;}

 

flash builder 调用:

TaskScript.as :

package alchemy{ public class TaskScript {  public function TaskScript()  {  }    public function testScript(tid :int):int  {   return tid;  } }}

package{ import alchemy.TaskScript;  import cmodule.LuaAlchemy.CLibInit;  import flash.display.Sprite;  [SWF(width="800",height="600",backgroundColor="#cccccc",frameRate="60")] public class AlchemyTest extends Sprite {  public function AlchemyTest()  {   var test:CLibInit = new CLibInit();   TaskScript;   var lib:Object = test["init"]();   var str :String ="width=30;height=20;function sum(a,b) return a+b;end;function mystrcat(a,b)return a..b;end;function mysum(a,b)return csum(a,b);end;";   trace(lib.test(str));   trace(lib.sum(100000,2));   trace(lib.asFunc(1));  } }}

 

输出：

600
100002
10001

 

调试成功