1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
|
-- load libtcod wrapper
if type(loadlib) == "function" then
init=loadlib
else
init=package.loadlib
end
a,b,c=init("./liblibtcod-lua.so","luaopen_libtcod")
if a == nil then
a,b,c=init("./liblibtcod-lua.dll","luaopen_libtcod")
end
a()
-- improve the wrapper
tcod = { }
for key, value in pairs(libtcod) do
if type(key) == "string" then
local library, name = key:match("^TCOD([^_]*)_(.*)")
if library ~= nil then
-- replace libtcod.TCODConsole_bla() with tcod.console.bla()
library = library:lower( )
tcod[library] = tcod[library] or { }
tcod[library][name] = value
else
library = key:match("^TCOD([^_]*)")
if library ~= nil then
-- replace libtcod.TCODConsole() with tcod.Console()
tcod[library]=value
else
tcod[key] = value
end
end
else
tcod[key] = value
end
end
-- now rename userdata imported from C++
for key,value in pairs(getmetatable(libtcod)[".get"]) do
if type(key) == "string" then
local library, name = key:match("^TCOD([^_]*)_(.*)")
if library ~= nil then
-- replace libtcod.TCODColor_grey with tcod.color.grey
library = library:lower( )
tcod[library] = tcod[library] or { }
tcod[library][name] = value()
end
end
end
function _alpha(alpha)
return tcod.Alpha + math.floor(alpha*255)*(2^8)
end
function _addAlpha(alpha)
return tcod.AddAlpha + math.floor(alpha*255)*(2^8)
end
tcod.console.Alpha=_alpha
tcod.console.AddAlpha=_addAlpha
|
