69 lines
1.6 KiB
Ruby
69 lines
1.6 KiB
Ruby
|
# Script used to transform dbus headers into sources/ddbus/c_lib.d
|
||
|
|
# Uses dstep and then fixes a bunch of things up
|
||
|
|
# This should only need to be done once but I'm including it in case things
|
||
|
|
# need to be re-done. Put dbus headers into the "dbus" folder and install dstep.
|
||
|
|
|
||
|
|
Dir["dbus/*.h"].each do |h|
|
||
|
|
system "dstep #{h} -DDBUS_INSIDE_DBUS_H -I."
|
||
|
|
end
|
||
|
|
|
||
|
|
FILES_ORDER =
|
||
|
|
[
|
||
|
|
"dbus/dbus-arch-deps.d",
|
||
|
|
"dbus/dbus-types.d",
|
||
|
|
"dbus/dbus-protocol.d",
|
||
|
|
"dbus/dbus-errors.d",
|
||
|
|
"dbus/dbus-macros.d",
|
||
|
|
"dbus/dbus-memory.d",
|
||
|
|
"dbus/dbus-shared.d",
|
||
|
|
"dbus/dbus-address.d",
|
||
|
|
"dbus/dbus-syntax.d",
|
||
|
|
"dbus/dbus-signature.d",
|
||
|
|
"dbus/dbus-misc.d",
|
||
|
|
"dbus/dbus-threads.d",
|
||
|
|
"dbus/dbus-message.d",
|
||
|
|
"dbus/dbus-connection.d",
|
||
|
|
"dbus/dbus-pending-call.d",
|
||
|
|
"dbus/dbus-server.d",
|
||
|
|
"dbus/dbus-bus.d",
|
||
|
|
"dbus/dbus.d"
|
||
|
|
]
|
||
|
|
|
||
|
|
ANON_ALIAS = /^alias _Anonymous_(\d) (.*);$/
|
||
|
|
def fixup(cont)
|
||
|
|
cont.gsub!("extern (C):",'')
|
||
|
|
cont.gsub!(/^import .*$/,'')
|
||
|
|
|
||
|
|
anons = cont.scan(ANON_ALIAS)
|
||
|
|
cont.gsub!(ANON_ALIAS,'')
|
||
|
|
anons.each do |num,name|
|
||
|
|
cont.gsub!("_Anonymous_#{num}",name)
|
||
|
|
end
|
||
|
|
|
||
|
|
# Special case for bug in translator
|
||
|
|
cont.gsub!("alias function", "alias DBusHandlerResult function")
|
||
|
|
cont.gsub!(/^alias (\S*) (\S*);$/){ |s| ($1 == $2) ? '' : s }
|
||
|
|
|
||
|
|
cont.strip
|
||
|
|
end
|
||
|
|
|
||
|
|
f = File.open("c_lib.d","w")
|
||
|
|
f.puts <<END
|
||
|
|
module ddbus.c_lib;
|
||
|
|
import core.stdc.config;
|
||
|
|
import core.stdc.stdarg;
|
||
|
|
extern (C):
|
||
|
|
END
|
||
|
|
|
||
|
|
FILES_ORDER.each do |h|
|
||
|
|
f.puts "// START #{h}"
|
||
|
|
File.open(h,'r') do |header|
|
||
|
|
contents = header.read
|
||
|
|
f.puts fixup(contents)
|
||
|
|
end
|
||
|
|
f.puts "// END #{h}"
|
||
|
|
end
|
||
|
|
|
||
|
|
# Manual Notes:
|
||
|
|
# - Put correct return result (DBusHandlerResult) for some typedefs (DBusHandleMessageFunction, DBusObjectPathMessageFunction)
|