q66
/
efl
forked from enlightenment/efl
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

elua: simplify lualian typeconv

This commit is contained in:
Daniel Kolesa 2014-11-19 11:40:49 +00:00
parent f902de616e
commit b1009770ef
1 changed files with 5 additions and 29 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

34
src/bin/elua/modules/lualian.lua
View File

@ -80,50 +80,26 @@ local build_calln = function(tps, expr, isin)
return expr
end
local typeconv_in = function(tps, expr)
if tps:type_get() == eolian.type_type.POINTER then
local base = tps:base_type_get()
local f = known_ptr_in[base:c_type_get()]
if f then return f(expr) end
return build_calln(tps, expr, true)
end
local tp = tps:name_get()
if is_num(tp) then return expr end
local f = known_in[tp]
if f then
return f(expr)
end
return build_calln(tps, expr, true)
end
local typeconv = function(tps, expr, isin)
if isin then
return typeconv_in(tps, expr)
end
if tps:type_get() == eolian.type_type.POINTER then
local base = tps:base_type_get()
local f = known_ptr_out[base:c_type_get()]
local f = (isin and known_ptr_in or known_ptr_out)[base:c_type_get()]
if f then return f(expr) end
return build_calln(tps, expr, false)
return build_calln(tps, expr, isin)
end
local tp = tps:name_get()
if is_num(tp) then
return ("tonumber(%s)"):format(expr)
return isin and expr or ("tonumber(%s)"):format(expr)
end
local f = known_out[tp]
local f = (isin and known_in or known_out)[tp]
if f then
return f(expr)
end
return build_calln(tps, expr, false)
return build_calln(tps, expr, isin)
end
local Node = util.Object:clone {