44 lines
1.1 KiB
Lua
44 lines
1.1 KiB
Lua
-- Output a C++ statement that creates the given name
|
|
function sanitize(s)
|
|
s, _ = string.gsub(s, "'", "_")
|
|
return s
|
|
end
|
|
function name_to_cpp_expr(n)
|
|
function rec(n)
|
|
if not n:is_atomic() then
|
|
rec(n:get_prefix())
|
|
io.write(", ")
|
|
end
|
|
if n:is_string() then
|
|
local s = n:get_string()
|
|
io.write("\"" .. sanitize(s) .. "\"")
|
|
else
|
|
error("numeral hierarchical names are not supported in the C++ interface: " .. tostring(n))
|
|
end
|
|
end
|
|
|
|
io.write("name(")
|
|
if n:is_atomic() then
|
|
rec(n)
|
|
else
|
|
io.write("{")
|
|
rec(n)
|
|
io.write("}")
|
|
end
|
|
io.write(")")
|
|
end
|
|
|
|
-- Output a C++ constant name based on the given hierarchical name
|
|
-- It uses '_' to glue the hierarchical name parts
|
|
function name_to_cpp_decl(n)
|
|
if not n:is_atomic(n) then
|
|
name_to_cpp_decl(n:get_prefix())
|
|
io.write("_")
|
|
end
|
|
if n:is_string() then
|
|
local s = n:get_string()
|
|
io.write(sanitize(s))
|
|
else
|
|
error("numeral hierarchical names are not supported in the C++ interface: " .. tostring(n))
|
|
end
|
|
end
|