mirror of
https://github.com/mumble-voip/mumble.git
synced 2025-10-26 11:19:16 +00:00
0db712ed93
In each generated file we want to have a banner that warns of modification by hand and indicates the generator responsible for the file. This patch extends mkwrapper.pl to write such a header. It also switches mkwrapper.pl away from barewords for file-handles. Apparently those are no longer considered idiomatic Perl and they broke the "iterate over list of handles" thing this patch does.
138 lines
3.4 KiB
Perl
Executable File
138 lines
3.4 KiB
Perl
Executable File
#! /usr/bin/perl
|
|
|
|
use warnings;
|
|
use strict;
|
|
|
|
my $class;
|
|
my %return;
|
|
open(my $MI, "MurmurIce.cpp");
|
|
my @mi = <$MI>;
|
|
close($MI);
|
|
|
|
my $ice;
|
|
open(my $ICE, "Murmur.ice");
|
|
my @ice=<$ICE>;
|
|
close($ICE);
|
|
$ice = join("", @ice);
|
|
|
|
$ice =~ s/\/\*.+?\*\///gms;
|
|
$ice =~ s/^\t+//gm;
|
|
$ice =~ s/\n+/\n/gs;
|
|
$ice =~ s/^\n+//s;
|
|
|
|
$ice =~ s/"/\\"/g;
|
|
$ice =~ s/\n/\\n/g;
|
|
|
|
open(my $I, ">MurmurIceWrapper.cpp");
|
|
open(my $B, ">BasicImpl.cpp");
|
|
|
|
for my $fh ($I, $B) {
|
|
print $fh qq'
|
|
// Auto-generated by scripts/mkwrapper.pl . Do not edit manually.
|
|
|
|
';
|
|
}
|
|
|
|
open(my $MH, "murmur_ice/Murmur.h") or die "Could not open murmur_ice/Murmur.h";
|
|
|
|
sub func($$\@\@\@) {
|
|
my ($class, $func, $wrapargs, $callargs, $implargs) = @_;
|
|
|
|
|
|
print $I qq'
|
|
void ::Murmur::${class}I::${func}_async('. join(", ", @{$wrapargs}).qq') {
|
|
// qWarning() << "${func}" << meta->mp.qsIceSecretRead.isNull() << meta->mp.qsIceSecretRead.isEmpty();
|
|
#ifndef ACCESS_${class}_${func}_ALL
|
|
#ifdef ACCESS_${class}_${func}_READ
|
|
if (! meta->mp.qsIceSecretRead.isNull()) {
|
|
bool ok = ! meta->mp.qsIceSecretRead.isEmpty();
|
|
#else
|
|
if (! meta->mp.qsIceSecretRead.isNull() || ! meta->mp.qsIceSecretWrite.isNull()) {
|
|
bool ok = ! meta->mp.qsIceSecretWrite.isEmpty();
|
|
#endif
|
|
::Ice::Context::const_iterator i = current.ctx.find("secret");
|
|
ok = ok && (i != current.ctx.end());
|
|
if (ok) {
|
|
const QString &secret = u8((*i).second);
|
|
#ifdef ACCESS_${class}_${func}_READ
|
|
ok = ((secret == meta->mp.qsIceSecretRead) || (secret == meta->mp.qsIceSecretWrite));
|
|
#else
|
|
ok = (secret == meta->mp.qsIceSecretWrite);
|
|
#endif
|
|
}
|
|
if (! ok) {
|
|
cb->ice_exception(InvalidSecretException());
|
|
return;
|
|
}
|
|
}
|
|
#endif
|
|
ExecEvent *ie = new ExecEvent(boost::bind(&impl_${class}_$func, ' . join(", ", @${callargs}).qq'));
|
|
QCoreApplication::instance()->postEvent(mi, ie);
|
|
}
|
|
';
|
|
|
|
if( ! grep(/impl_${class}_$func/,@mi)) {
|
|
print $B "static void impl_${class}_$func(".join(", ", @${implargs}). ") {}\n";
|
|
}
|
|
}
|
|
|
|
|
|
while(<$MH>) {
|
|
chomp();
|
|
if (/^class AMD_(.+) : virtual public ::Ice(?:::AMDCallback|Util::Shared)/) {
|
|
$class = "AMD_".$1;
|
|
}
|
|
if (/virtual void ice_response\((.*)\) = 0;/) {
|
|
$return{$class}=$1;
|
|
}
|
|
if (/virtual void (.+)_async\(const (.+?)&,(.*) const ::Ice::Current&/) {
|
|
my $func=$1;
|
|
my $obj=$2;
|
|
my $args=$3;
|
|
|
|
next if ($func eq "getSlice");
|
|
|
|
my $class="Meta";
|
|
$class = "Server" if ($obj =~ /AMD_Server/);
|
|
|
|
my @wrapargs;
|
|
my @callargs;
|
|
my @implargs;
|
|
my $pc=0;
|
|
push @wrapargs, "const $obj &cb";
|
|
push @callargs, "cb";
|
|
push @implargs, "const $obj cb";
|
|
if ($class eq "Server") {
|
|
push @callargs, "QString::fromStdString(current.id.name).toInt()";
|
|
push @implargs, "int server_id";
|
|
} else {
|
|
push @callargs, "current.adapter";
|
|
push @implargs, "const Ice::ObjectAdapterPtr adapter";
|
|
}
|
|
foreach my $p (split(/,/,$args)) {
|
|
$pc++;
|
|
push @wrapargs, "$p p$pc";
|
|
push @callargs, "p$pc";
|
|
push @implargs, "$p p$pc";
|
|
}
|
|
# if ($class eq "Server") {
|
|
push @wrapargs, "const ::Ice::Current ¤t";
|
|
# } else {
|
|
# push @wrapargs, "const ::Ice::Current &";
|
|
# }
|
|
|
|
func($class,$func,@wrapargs,@callargs,@implargs);
|
|
}
|
|
}
|
|
|
|
print $I qq'
|
|
void ::Murmur::MetaI::getSlice_async(const ::Murmur::AMD_Meta_getSlicePtr& cb, const Ice::Current&) {
|
|
cb->ice_response(std::string("$ice"));
|
|
}
|
|
';
|
|
|
|
close($MH);
|
|
close($I);
|
|
close($B);
|
|
|