mirror of
https://github.com/qemu/qemu.git
synced 2024-12-05 09:43:44 +08:00
b7d5a9c2c6
The default NetBSD package manager is pkgsrc and it installs Perl along other third party programs under custom and configurable prefix. The default prefix for binary prebuilt packages is /usr/pkg, and the Perl executable lands in /usr/pkg/bin/perl. This change switches "/usr/bin/perl" to "/usr/bin/env perl" as it's the most portable solution that should work for almost everybody. Perl's executable is detected automatically. This change switches -w option passed to the executable with more modern "use warnings;" approach. There is no functional change to the default behavior. Signed-off-by: Kamil Rytarowski <n54@gmx.com> Reviewed-by: Philippe Mathieu-Daudé <f4bug@amsat.org> Signed-off-by: Michael Tokarev <mjt@tls.msk.ru>
179 lines
4.8 KiB
Perl
Executable File
179 lines
4.8 KiB
Perl
Executable File
#!/usr/bin/env perl
|
|
|
|
use strict;
|
|
use warnings;
|
|
use Getopt::Long;
|
|
use FindBin;
|
|
|
|
my @legacy = qw(qemu_clock_ptr qemu_get_clock_ns qemu_get_clock_ms qemu_register_clock_reset_notifier qemu_unregister_clock_reset_notifier qemu_new_timer qemu_free_timer qemu_del_timer qemu_mod_timer_ns qemu_mod_timer qemu_run_timers qemu_new_timer_ns qemu_new_timer_us qemu_new_timer_ms);
|
|
my $legacyre = '\b('.join('|', @legacy).')\b';
|
|
my $option_git;
|
|
my $option_dryrun;
|
|
my $option_quiet;
|
|
my $option_rtc;
|
|
my $suffix=".tmp.$$";
|
|
my @files;
|
|
my $getfiles = 'git grep -l -E \'\b((host|rt|vm|rtc)_clock\b|qemu_\w*timer)\' | egrep \'\.[ch]$\' | egrep -v \'qemu-timer\.c$|include/qemu/timer\.h$\'';
|
|
|
|
sub Syntax
|
|
{
|
|
print STDERR <<STOP;
|
|
Usage: $FindBin::Script [options] FILE ...
|
|
|
|
Translate each FILE to the new QEMU timer API. If no files
|
|
are passed, a reasonable guess is taken.
|
|
|
|
Options:
|
|
-q, --quiet Do not show warnings etc
|
|
-d, --dry-run Do a dry run
|
|
-g, --git Generate a git commit for each change
|
|
-r, --rtc Only fix up rtc usage
|
|
-h, --help Print this message
|
|
|
|
STOP
|
|
return;
|
|
}
|
|
|
|
sub ParseOptions
|
|
{
|
|
if (!GetOptions (
|
|
"dry-run|d" => \$option_dryrun,
|
|
"git|g" => \$option_git,
|
|
"quiet|q" => \$option_quiet,
|
|
"rtc|r" => \$option_rtc,
|
|
"help|h" => sub { Syntax(); exit(0); }
|
|
))
|
|
{
|
|
Syntax();
|
|
die "Bad options";
|
|
}
|
|
|
|
if ($#ARGV >=0)
|
|
{
|
|
@files = @ARGV;
|
|
}
|
|
else
|
|
{
|
|
@files = split(/\s+/, `$getfiles`);
|
|
}
|
|
|
|
foreach my $file (@files)
|
|
{
|
|
die "Cannot find $file" unless (-f $file && -r $file);
|
|
}
|
|
}
|
|
|
|
sub DoWarn
|
|
{
|
|
my $text = shift @_;
|
|
my $line = shift @_;
|
|
return if ($option_quiet);
|
|
chomp ($line);
|
|
print STDERR "$text\n";
|
|
print STDERR "$line\n\n";
|
|
}
|
|
|
|
sub Process
|
|
{
|
|
my $ifn = shift @_;
|
|
my $ofn = $ifn.$suffix;
|
|
|
|
my $intext;
|
|
my $outtext;
|
|
my $linenum = 0;
|
|
|
|
open my $input, "<", $ifn || die "Cannot open $ifn for read: $!";
|
|
|
|
while (<$input>)
|
|
{
|
|
my $line = $_;
|
|
$intext .= $line;
|
|
$linenum++;
|
|
|
|
# fix the specific uses
|
|
unless ($option_rtc)
|
|
{
|
|
$line =~ s/\bqemu_new_timer(_[num]s)\s*\((vm_|rt_|host_)clock\b/timer_new$1(XXX_$2clock/g;
|
|
$line =~ s/\bqemu_new_timer\s*\((vm_|rt_|host_)clock\b/timer_new(XXX_$1clock/g;
|
|
$line =~ s/\bqemu_get_clock(_[num]s)\s*\((vm_|rt_|host_)clock\b/qemu_clock_get$1(XXX_$2clock/g;
|
|
}
|
|
|
|
# rtc is different
|
|
$line =~ s/\bqemu_new_timer(_[num]s)\s*\(rtc_clock\b/timer_new$1(rtc_clock/g;
|
|
$line =~ s/\bqemu_new_timer\s*\(rtc_clock\b/timer_new(rtc_clock/g;
|
|
$line =~ s/\bqemu_get_clock(_[num]s)\s*\(rtc_clock\b/qemu_clock_get$1(rtc_clock/g;
|
|
$line =~ s/\bqemu_register_clock_reset_notifier\s*\(rtc_clock\b/qemu_register_clock_reset_notifier(qemu_clock_ptr(rtc_clock)/g;
|
|
|
|
unless ($option_rtc)
|
|
{
|
|
# fix up comments
|
|
$line =~ s/\b(vm_|rt_|host_)clock\b/XXX_$1clock/g if ($line =~ m,^[/ ]+\*,);
|
|
|
|
# spurious fprintf error reporting
|
|
$line =~ s/: qemu_new_timer_ns failed/: timer_new_ns failed/g;
|
|
|
|
# these have just changed name
|
|
$line =~ s/\bqemu_mod_timer\b/timer_mod/g;
|
|
$line =~ s/\bqemu_mod_timer_(ns|us|ms)\b/timer_mod_$1/g;
|
|
$line =~ s/\bqemu_free_timer\b/timer_free/g;
|
|
$line =~ s/\bqemu_del_timer\b/timer_del/g;
|
|
}
|
|
|
|
# fix up rtc_clock
|
|
$line =~ s/QEMUClock \*rtc_clock;/QEMUClockType rtc_clock;/g;
|
|
$line =~ s/\brtc_clock = (vm_|rt_|host_)clock\b/rtc_clock = XXX_$1clock/g;
|
|
|
|
unless ($option_rtc)
|
|
{
|
|
# replace any more general uses
|
|
$line =~ s/\b(vm_|rt_|host_)clock\b/qemu_clock_ptr(XXX_$1clock)/g;
|
|
}
|
|
|
|
# fix up the place holders
|
|
$line =~ s/\bXXX_vm_clock\b/QEMU_CLOCK_VIRTUAL/g;
|
|
$line =~ s/\bXXX_rt_clock\b/QEMU_CLOCK_REALTIME/g;
|
|
$line =~ s/\bXXX_host_clock\b/QEMU_CLOCK_HOST/g;
|
|
|
|
unless ($option_rtc)
|
|
{
|
|
DoWarn("$ifn:$linenum WARNING: timer $1 not fixed up", $line) if ($line =~ /\b((vm_|rt_|host_)clock)\b/);
|
|
DoWarn("$ifn:$linenum WARNING: function $1 not fixed up", $line) if ($line =~ /\b(qemu_new_timer\w+)\b/);
|
|
DoWarn("$ifn:$linenum WARNING: legacy function $1 remains", $line) if ($line =~ /$legacyre/o);
|
|
}
|
|
|
|
$outtext .= $line;
|
|
}
|
|
|
|
close $input;
|
|
|
|
if ($intext ne $outtext)
|
|
{
|
|
print STDERR "Patching $ifn\n" unless ($option_quiet);
|
|
unless ($option_dryrun)
|
|
{
|
|
open my $output, ">", $ofn || die "Cannot open $ofn for write: $!";
|
|
print $output $outtext;
|
|
close $output;
|
|
rename ($ofn, $ifn) || die "Cannot rename temp file to $ifn: $!";
|
|
return 1;
|
|
}
|
|
}
|
|
return 0;
|
|
}
|
|
|
|
sub DoCommit
|
|
{
|
|
my $file = shift @_;
|
|
open (my $git, "| git commit -F - $file") || die "Cannot run git commit on $file: $!";
|
|
print $git "timers api: use new timer api in $file\n\nConvert $file to use new timer API.\nThis is an automated commit made by scripts/switch-timer-api\n";
|
|
close ($git);
|
|
}
|
|
|
|
ParseOptions;
|
|
|
|
foreach my $file (@files)
|
|
{
|
|
my $changed = Process ($file);
|
|
DoCommit($file) if ($changed && $option_git);
|
|
}
|