Lua直接调用动态链接库（DLL或so文件)

原网址：

http://my.oschina.net/hac2009/blog/14099?catalog=67125

使用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, 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,"int"),k=buf:get(9,"int"),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", "ref int")

qsort = libc.qsort
qsort:types("void", "pointer", "int", "int", "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, "int", "ref char", "ref char")

其他

alien.platform -- 检测操作系统
alien.sizeof(*typename*) -- 类型长度
alien.align(*typename*)
alien.table(narray, nhash) -- 创建环队列
local qsort = alien.default.qsort
qsort:types("void", "pointer", "int", "int", "callback")

local chars = alien.buffer("spam, spam, and spam")
qsort(chars, chars:len(), alien.sizeof("char"), cmp_cb)
assert(chars:tostring() == " ,,aaaadmmmnpppsss")