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 return expr
end 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) local typeconv = function(tps, expr, isin)
if isin then
return typeconv_in(tps, expr)
end
if tps:type_get() == eolian.type_type.POINTER then if tps:type_get() == eolian.type_type.POINTER then
local base = tps:base_type_get() 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 if f then return f(expr) end
return build_calln(tps, expr, false) return build_calln(tps, expr, isin)
end end
local tp = tps:name_get() local tp = tps:name_get()
if is_num(tp) then if is_num(tp) then
return ("tonumber(%s)"):format(expr) return isin and expr or ("tonumber(%s)"):format(expr)
end end
local f = known_out[tp] local f = (isin and known_in or known_out)[tp]
if f then if f then
return f(expr) return f(expr)
end end
return build_calln(tps, expr, false) return build_calln(tps, expr, isin)
end end
local Node = util.Object:clone { local Node = util.Object:clone {