mirror of
https://github.com/bkaradzic/bgfx.git
synced 2026-02-17 20:52:36 +01:00
Add D language bindings generator (#1907)
This commit is contained in:
Ari Vuollet
committed by
Бранимир Караџић
Бранимир Караџић
parent
9bfe1f1c60
commit
8431576b80
@@ -415,6 +415,7 @@ function gen.write(codes, outputfile)
|
||||
local out = assert(io.open(outputfile, "wb"))
|
||||
out:write(codes)
|
||||
out:close()
|
||||
print("Generating: " .. outputfile)
|
||||
end
|
||||
|
||||
if (...) == nil then
|
||||
|
||||
414
scripts/bindings-d.lua
Normal file
414
scripts/bindings-d.lua
Normal file
@@ -0,0 +1,414 @@
|
||||
local codegen = require "codegen"
|
||||
local idl = codegen.idl "bgfx.idl"
|
||||
|
||||
local d_types_template = [[
|
||||
/*
|
||||
*
|
||||
* AUTO GENERATED! DO NOT EDIT!
|
||||
*
|
||||
*/
|
||||
|
||||
module bindbc.bgfx.types;
|
||||
|
||||
public import core.stdc.stdarg : va_list;
|
||||
|
||||
extern(C) @nogc nothrow:
|
||||
|
||||
$version
|
||||
|
||||
alias bgfx_view_id_t = ushort;
|
||||
|
||||
$types
|
||||
]]
|
||||
|
||||
local d_funcs_template = [[
|
||||
/*
|
||||
*
|
||||
* AUTO GENERATED! DO NOT EDIT!
|
||||
*
|
||||
*/
|
||||
|
||||
module bindbc.bgfx.funcs;
|
||||
|
||||
private import bindbc.bgfx.types;
|
||||
|
||||
extern(C) @nogc nothrow:
|
||||
|
||||
version(BindBgfx_Static)
|
||||
{
|
||||
$funcs_static
|
||||
}
|
||||
else
|
||||
{
|
||||
__gshared
|
||||
{
|
||||
$funcs_dynamic
|
||||
}
|
||||
}
|
||||
]]
|
||||
|
||||
local function hasPrefix(str, prefix)
|
||||
return prefix == "" or str:sub(1, #prefix) == prefix
|
||||
end
|
||||
|
||||
local function hasSuffix(str, suffix)
|
||||
return suffix == "" or str:sub(-#suffix) == suffix
|
||||
end
|
||||
|
||||
local function to_underscorecase(name)
|
||||
local tmp = {}
|
||||
for v in name:gmatch "[_%u][%l%d]*" do
|
||||
if v:byte() == 95 then -- '_'
|
||||
v = v:sub(2) -- remove _
|
||||
end
|
||||
tmp[#tmp+1] = v
|
||||
end
|
||||
return table.concat(tmp, "_")
|
||||
end
|
||||
|
||||
local function convert_array(member)
|
||||
if string.find(member.array, "::") then
|
||||
local name = "bgfx_" .. to_underscorecase(string.gsub(member.array, "::.*", "")):lower() .. "_t"
|
||||
return "[" .. name .. ".BGFX_" .. to_underscorecase(member.array):upper() .. "]"
|
||||
else
|
||||
return member.array
|
||||
end
|
||||
end
|
||||
|
||||
local function convert_type(arg)
|
||||
local ctype = arg.ctype:gsub("%s%*", "*")
|
||||
if arg.fulltype == "bx::AllocatorI*" or arg.fulltype == "CallbackI*" or arg.fulltype == "ReleaseFn" then
|
||||
ctype = "void*"
|
||||
elseif hasPrefix(ctype, "uint64_t") then
|
||||
ctype = ctype:gsub("uint64_t", "ulong")
|
||||
elseif hasPrefix(ctype, "int64_t") then
|
||||
ctype = ctype:gsub("int64_t", "long")
|
||||
elseif hasPrefix(ctype, "uint32_t") then
|
||||
ctype = ctype:gsub("uint32_t", "uint")
|
||||
elseif hasPrefix(ctype, "int32_t") then
|
||||
ctype = ctype:gsub("int32_t", "int")
|
||||
elseif hasPrefix(ctype, "uint16_t") then
|
||||
ctype = ctype:gsub("uint16_t", "ushort")
|
||||
elseif hasPrefix(ctype, "uint8_t") then
|
||||
ctype = ctype:gsub("uint8_t", "byte")
|
||||
elseif hasPrefix(ctype, "uintptr_t") then
|
||||
ctype = ctype:gsub("uintptr_t", "ulong")
|
||||
elseif hasPrefix(ctype, "const ") and hasSuffix(ctype, "*") then
|
||||
ctype = "const(" .. string.sub(ctype:gsub("const ", "", 1), 1, -2) .. ")*"
|
||||
end
|
||||
|
||||
if arg.array ~= nil then
|
||||
ctype = ctype .. convert_array(arg)
|
||||
end
|
||||
|
||||
return ctype
|
||||
end
|
||||
|
||||
local function convert_struct_type(arg)
|
||||
return convert_type(arg)
|
||||
end
|
||||
|
||||
local function convert_ret_type(arg)
|
||||
return convert_type(arg)
|
||||
end
|
||||
|
||||
local function convert_name(arg)
|
||||
if arg == "debug" then
|
||||
return arg .. "_"
|
||||
end
|
||||
return arg
|
||||
end
|
||||
|
||||
local function convert_struct_member(member)
|
||||
return convert_struct_type(member) .. " " .. convert_name(member.name)
|
||||
end
|
||||
|
||||
local function gen_version()
|
||||
return "enum uint BGFX_API_VERSION = " .. (idl._version or 0) .. ";"
|
||||
end
|
||||
|
||||
local converter = {}
|
||||
local yield = coroutine.yield
|
||||
local gen = {}
|
||||
|
||||
function gen.gen(template)
|
||||
local indent = ""
|
||||
local idx = 1;
|
||||
local r = template:gsub("$([a-zA-Z_]+)", function(what)
|
||||
local tmp = {}
|
||||
|
||||
local ind_end = template:find("$"..what, idx, true)
|
||||
local ind_start = ind_end
|
||||
for j = 1, ind_end-1 do
|
||||
local i = 1+ind_end-1-j
|
||||
local c = string.sub(template, i, i)
|
||||
if c ~= ' ' and c ~= '\t' then
|
||||
ind_start = i
|
||||
break
|
||||
end
|
||||
end
|
||||
|
||||
indent = string.sub(template, ind_start+1, ind_end-1)
|
||||
|
||||
local what_idl = what:gsub("funcs_dynamic", "funcs"):gsub("funcs_static", "funcs")
|
||||
|
||||
if (what == "version") then
|
||||
return gen_version()
|
||||
end
|
||||
|
||||
for _, object in ipairs(idl[what_idl]) do
|
||||
local co = coroutine.create(converter[what])
|
||||
local any
|
||||
while true do
|
||||
local ok, v = coroutine.resume(co, object)
|
||||
assert(ok, debug.traceback(co, v))
|
||||
if not v then
|
||||
break
|
||||
end
|
||||
table.insert(tmp, v)
|
||||
any = true
|
||||
end
|
||||
if any and tmp[#tmp] ~= "" then
|
||||
table.insert(tmp, "")
|
||||
end
|
||||
end
|
||||
return table.concat(tmp, "\n" .. indent)
|
||||
end)
|
||||
return r
|
||||
end
|
||||
|
||||
function gen.gen_types()
|
||||
return gen.gen(d_types_template)
|
||||
end
|
||||
|
||||
function gen.gen_funcs()
|
||||
return gen.gen(d_funcs_template)
|
||||
end
|
||||
|
||||
function converter.types(typ)
|
||||
if typ.comments ~= nil then
|
||||
if #typ.comments == 1 then
|
||||
yield("/// " .. typ.comments[1])
|
||||
else
|
||||
yield("/**")
|
||||
for _, comment in ipairs(typ.comments) do
|
||||
yield(" * " .. comment)
|
||||
end
|
||||
yield(" */")
|
||||
end
|
||||
end
|
||||
|
||||
if typ.handle then
|
||||
yield("struct " .. typ.cname .. " { ushort idx; }")
|
||||
elseif typ.enum then
|
||||
local prefix = "BGFX_" .. to_underscorecase(string.gsub(typ.name, "::Enum", "")):upper()
|
||||
yield("enum " .. typ.cname)
|
||||
yield("{")
|
||||
for idx, enum in ipairs(typ.enum) do
|
||||
local comments = ""
|
||||
if enum.comment ~= nil then
|
||||
if #enum.comment == 1 then
|
||||
comments = " /// " .. enum.comment[1];
|
||||
else
|
||||
yield("\t/**")
|
||||
for _, comment in ipairs(enum.comment) do
|
||||
yield("\t * " .. comment)
|
||||
end
|
||||
yield("\t */")
|
||||
end
|
||||
end
|
||||
|
||||
local enumname
|
||||
if enum.underscore then
|
||||
enumname = to_underscorecase(enum.name):upper()
|
||||
else
|
||||
enumname = enum.name:upper()
|
||||
end
|
||||
|
||||
yield("\t" .. prefix .. "_" .. enumname .. "," .. comments)
|
||||
end
|
||||
yield("");
|
||||
--yield("\t" .. prefix .. "_COUNT = " .. #typ.enum)
|
||||
yield("\t" .. prefix .. "_COUNT")
|
||||
yield("}")
|
||||
|
||||
elseif typ.bits ~= nil then
|
||||
local prefix = "BGFX_" .. to_underscorecase(typ.name):upper()
|
||||
local enumType = "uint"
|
||||
format = "%u"
|
||||
if typ.bits == 64 then
|
||||
format = "0x%016x"
|
||||
enumType = "ulong"
|
||||
elseif typ.bits == 32 then
|
||||
format = "0x%08x"
|
||||
enumType = "uint"
|
||||
elseif typ.bits == 16 then
|
||||
format = "0x%04x"
|
||||
enumType = "ushort"
|
||||
elseif typ.bits == 8 then
|
||||
format = "0x%02x"
|
||||
enumType = "ubyte"
|
||||
end
|
||||
|
||||
for idx, flag in ipairs(typ.flag) do
|
||||
local value = flag.value
|
||||
if value ~= nil then
|
||||
value = string.format(flag.format or format, value)
|
||||
else
|
||||
for _, name in ipairs(flag) do
|
||||
local fixedname = prefix .. "_" .. to_underscorecase(name):upper()
|
||||
if value ~= nil then
|
||||
value = value .. " | " .. fixedname
|
||||
else
|
||||
value = fixedname
|
||||
end
|
||||
end
|
||||
end
|
||||
local comments = ""
|
||||
if flag.comment ~= nil then
|
||||
if #flag.comment == 1 then
|
||||
comments = " /// " .. flag.comment[1]
|
||||
else
|
||||
yield("/**")
|
||||
for _, comment in ipairs(flag.comment) do
|
||||
yield(" * " .. comment)
|
||||
end
|
||||
yield(" */")
|
||||
end
|
||||
end
|
||||
yield("enum " .. enumType .. " " .. prefix .. "_" .. to_underscorecase(flag.name):upper() .. " = " .. value .. ";" .. comments)
|
||||
end
|
||||
|
||||
if typ.shift then
|
||||
local name = prefix .. "_SHIFT"
|
||||
local value = typ.shift
|
||||
local comments = ""
|
||||
if typ.desc then
|
||||
comments = string.format(" /// %s bit shift", typ.desc)
|
||||
end
|
||||
yield("enum " .. enumType .. " " .. name .. " = " .. value .. ";" .. comments)
|
||||
end
|
||||
if typ.range then
|
||||
local name = prefix .. "_MASK"
|
||||
local value = string.format(format, typ.mask)
|
||||
local comments = ""
|
||||
if typ.desc then
|
||||
comments = string.format(" /// %s bit mask", typ.desc)
|
||||
end
|
||||
yield("enum " .. enumType .. " " .. name .. " = " .. value .. ";" .. comments)
|
||||
end
|
||||
|
||||
if typ.helper then
|
||||
yield(string.format(
|
||||
"%s %s (%s v) { return (v << %s) & %s; }",
|
||||
enumType,
|
||||
prefix,
|
||||
enumType,
|
||||
(prefix .. "_SHIFT"),
|
||||
(prefix .. "_MASK")))
|
||||
end
|
||||
elseif typ.struct ~= nil then
|
||||
yield("struct " .. typ.cname)
|
||||
yield("{")
|
||||
|
||||
for _, member in ipairs(typ.struct) do
|
||||
local comments = ""
|
||||
if member.comment ~= nil then
|
||||
if #member.comment == 1 then
|
||||
comments = " /// " .. member.comment[1]
|
||||
else
|
||||
yield("\n\t/**")
|
||||
for _, comment in ipairs(member.comment) do
|
||||
yield("\t * " .. comment)
|
||||
end
|
||||
yield("\t */")
|
||||
end
|
||||
end
|
||||
yield("\t" .. convert_struct_member(member) .. ";" .. comments)
|
||||
end
|
||||
|
||||
yield("}")
|
||||
end
|
||||
end
|
||||
|
||||
function converter.funcs_static(func)
|
||||
return converter.funcs(func, true)
|
||||
end
|
||||
|
||||
function converter.funcs_dynamic(func)
|
||||
return converter.funcs(func, false)
|
||||
end
|
||||
|
||||
function converter.funcs(func, static)
|
||||
if func.cpponly then
|
||||
return
|
||||
end
|
||||
|
||||
if func.comments ~= nil then
|
||||
yield("/**")
|
||||
for _, line in ipairs(func.comments) do
|
||||
local line = line:gsub("@remarks", "Remarks:")
|
||||
line = line:gsub("@remark", "Remarks:")
|
||||
line = line:gsub("@(%l)(%l+)", function(a, b) return a:upper()..b..":" end)
|
||||
yield(" * " .. line)
|
||||
end
|
||||
|
||||
local hasParamsComments = false
|
||||
for _, arg in ipairs(func.args) do
|
||||
if arg.comment ~= nil then
|
||||
hasParamsComments = true
|
||||
break
|
||||
end
|
||||
end
|
||||
|
||||
if hasParamsComments then
|
||||
yield(" * Params:")
|
||||
end
|
||||
|
||||
for _, arg in ipairs(func.args) do
|
||||
if arg.comment ~= nil then
|
||||
yield(" * " .. convert_name(arg.name) .. " = " .. arg.comment[1])
|
||||
for i, comment in ipairs(arg.comment) do
|
||||
if (i > 1) then
|
||||
yield(" * " .. comment)
|
||||
end
|
||||
end
|
||||
end
|
||||
end
|
||||
|
||||
yield(" */")
|
||||
end
|
||||
|
||||
local args = {}
|
||||
if func.this ~= nil then
|
||||
args[1] = convert_type(func.this_type) .. " _this"
|
||||
end
|
||||
for _, arg in ipairs(func.args) do
|
||||
table.insert(args, convert_type(arg) .. " " .. convert_name(arg.name))
|
||||
end
|
||||
|
||||
if static then
|
||||
yield(convert_ret_type(func.ret) .. " bgfx_" .. func.cname .. "(" .. table.concat(args, ", ") .. ");")
|
||||
else
|
||||
yield("alias da_bgfx_" .. func.cname .. " = " .. convert_ret_type(func.ret) .. " function(" .. table.concat(args, ", ") .. ");")
|
||||
yield("da_bgfx_" .. func.cname .. " bgfx_" .. func.cname .. ";")
|
||||
end
|
||||
end
|
||||
|
||||
-- printtable("idl types", idl.types)
|
||||
-- printtable("idl funcs", idl.funcs)
|
||||
|
||||
function gen.write(codes, outputfile)
|
||||
local out = assert(io.open(outputfile, "wb"))
|
||||
out:write(codes)
|
||||
out:close()
|
||||
print("Generating: " .. outputfile)
|
||||
end
|
||||
|
||||
if (...) == nil then
|
||||
-- run `lua bindings-d.lua` in command line
|
||||
print(gen.gen_types())
|
||||
print(gen.gen_funcs())
|
||||
end
|
||||
|
||||
return gen
|
||||
@@ -69,6 +69,10 @@ newaction {
|
||||
do
|
||||
local csgen = require "bindings-cs"
|
||||
csgen.write(csgen.gen(), "../bindings/cs/bgfx.cs")
|
||||
|
||||
local dgen = require "bindings-d"
|
||||
dgen.write(dgen.gen_types(), "../bindings/d/types.d")
|
||||
dgen.write(dgen.gen_funcs(), "../bindings/d/funcs.d")
|
||||
end
|
||||
|
||||
os.exit()
|
||||
|
||||
Reference in New Issue
Block a user