使用Lua编程,扩展外部接口时,不一定要编写lua专用的dll,使用系统的,或传统的动态链接库也可以,这样更具有通用性。
基本用法:
require("alien") --1.加载alien
libc = alien.load("msvcrt.dll") -- 2.加载动态链接库
libc.puts:types("void","string") -- 3.说明参数类型
libc.puts:types{abi='cdecl',ret="void";"string"} --3.或者 说明函数调研类型,显式申明返回值
libc.puts("kasdfajdskfas;dlfjkads") -- 调用
Alien 转换Lua numbers 为 C的 numeric类型,转换nil为NULL, strings 为const char*,userdata 为 void* 指针. 而函数返回值的工作转换正好相反 ( pointer类型转换为userdata).
对于引用类型参数, Alien 在堆栈中分配空间,Lua的变量传值给函数参数(正确转换),调用函数时使用分配的空间地址调研。返回时通过lua的函数返回方式返回结果值,如:scanf
scanf = libc.scanf
scanf:types("int","string","ref int","ref double")
_,x,y = scanf("%i %lf",0) -- 后面两个参数其实没有使用传入的值
==》23 42.5
分配缓冲区(buffer):
当调用的函数时,参数需要预先分配空间时,使用alien.buffer来分配空间
如果没有指定参数,分配平台默认的参数;如果指定参数,根据参数数值分配空间。
如:
require("alien") --1.加载alien
libc = alien.load("msvcrt.dll") -- 2.加载动态链接库
libc.gets:types("pointer","string") -- 3.说明参数类型
libc.gets:types{abi='cdecl',ret="pointer";"string"} --3.或者 说明函数调研类型,显式申明返回值
buf = alien.buffer(100)
libc.gets(buf) -- 调用
=buf:tostring() -- 转换为字符串,
或者为:tostring(buf)
可以象C字符串一样,通过buf的数组下标操作字符串单元,但是这里使用的是Lua的数组风格(下标从1开始,不是从0开始)
=string.char(buf[1])
也可以通过
buf:get(offset,type),或buf:set(offset,value,type)来读取或更改数据,如buf中有4个int数据,可以这样读取或存储:
i=buf:get(1,"int"),j=buf:get(5,k=buf:get(9,l=buf:get(13,"int")
注意:get或set没有边界检查,请注意超出界限问题
使用数组
libc = alien.load("msvcrt.dll") -- 2.加载动态链接库
function sort(a,b)
return a - b
end
compare = alien.callback(sort,"int","ref int")
qsort = libc.qsort
qsort:types("void","pointer","callback")
nums = alien.array("int",{ 4,5,3,2,6,1 })
qsort(nums.buffer,nums.length,nums.size,compare)
for i,v in nums:ipairs() do print(v) end
--可以直接使用数组下标操作
=nums[1]
=nums[2]
=nums[3]
=nums[4]
=nums[5]
=nums[6]
指针解包
alien.tostring -- 把char* 转换成LUA的string
alien.toint -- 把int* 转换成Lua的numeric
alien.toshort,alien.tolong,alien.tofloat,and alien.todouble与toint类似
例如:
> fs = alien.tofloat(ptr,4)
> =#fs
4
>
标签
把userdata与metatable关联起来,以便使用lua的垃圾回收器
alien.tag(*tagname*) -- 如果没有,创建metatable的标签,如果有则返回
alien.wrap(*tagname*,...) -- 创建完整的userdata,并与metatable关联起来,命名标签,并且根据后面的参数赋值。
alien.unwrap(*tagname*,obj) -- 检测标签的对象,如果没有就抛出错误,否则返回对象
alien.rewrap(*tagname*,obj,...) -- 更新对象值
例如:
local tag_foo = alien.tag("libfoo_foo")
alien.foo.create_foo:types("pointer")
alien.foo.destroy_foo_types("void","pointer")
function new_foo()
local foo = alien.foo.create_foo()
return alien.wrap("libfoo_foo",foo)
end
tag_foo = {
__gc = function (obj)
local foo = alien.unwrap("libfoo_foo",obj)
alien.foo.destroy_foo(foo)
end
}
回调函数
在动态链接库中回调LUA函数
local function cmp(a,b)
return a - b
end
local cmp_cb = alien.callback(sort,"ref char","ref char")
local qsort = alien.default.qsort
qsort:types("void","callback")
local chars = alien.buffer("spam,spam,and spam")
qsort(chars,chars:len(),alien.sizeof("char"),cmp_cb)
assert(chars:tostring() == ",aaaadmmmnpppsss")
其他
alien.platform -- 检测操作系统 alien.sizeof(*typename*) -- 类型长度 alien.align(*typename*) alien.table(narray,nhash) -- 创建环队列
版权声明:本文内容由互联网用户自发贡献,该文观点与技术仅代表作者本人。本站仅提供信息存储空间服务,不拥有所有权,不承担相关法律责任。如发现本站有涉嫌侵权/违法违规的内容, 请发送邮件至 dio@foxmail.com 举报,一经查实,本站将立刻删除。