]>
git.ipfire.org Git - thirdparty/qemu.git/blob - scripts/switch-timer-api
8 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) ;
9 my $legacyre = ' \b (' . join ( '|' , @legacy ). ') \b ' ;
16 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$ \' ' ;
21 Usage: $FindBin ::Script [options] FILE ...
23 Translate each FILE to the new QEMU timer API. If no files
24 are passed, a reasonable guess is taken.
27 -q, --quiet Do not show warnings etc
28 -d, --dry-run Do a dry run
29 -g, --git Generate a git commit for each change
30 -r, --rtc Only fix up rtc usage
31 -h, --help Print this message
40 "dry-run|d" => \
$option_dryrun ,
41 "git|g" => \
$option_git ,
42 "quiet|q" => \
$option_quiet ,
43 "rtc|r" => \
$option_rtc ,
44 "help|h" => sub { Syntax
(); exit ( 0 ); }
57 @files = split ( /\s+/ , ` $getfiles ` );
60 foreach my $file ( @files )
62 die "Cannot find $file " unless (- f
$file && - r
$file );
70 return if ( $option_quiet );
72 print STDERR
" $text \n " ;
73 print STDERR
" $line \n\n " ;
79 my $ofn = $ifn . $suffix ;
85 open my $input , "<" , $ifn || die "Cannot open $ifn for read: $!" ;
93 # fix the specific uses
96 $line =~ s/\bqemu_new_timer(_[num]s)\s*\((vm_|rt_|host_)clock\b/timer_new$1(XXX_$2clock/g ;
97 $line =~ s/\bqemu_new_timer\s*\((vm_|rt_|host_)clock\b/timer_new(XXX_$1clock/g ;
98 $line =~ s/\bqemu_get_clock(_[num]s)\s*\((vm_|rt_|host_)clock\b/qemu_clock_get$1(XXX_$2clock/g ;
102 $line =~ s/\bqemu_new_timer(_[num]s)\s*\(rtc_clock\b/timer_new$1(rtc_clock/g ;
103 $line =~ s/\bqemu_new_timer\s*\(rtc_clock\b/timer_new(rtc_clock/g ;
104 $line =~ s/\bqemu_get_clock(_[num]s)\s*\(rtc_clock\b/qemu_clock_get$1(rtc_clock/g ;
105 $line =~ s/\bqemu_register_clock_reset_notifier\s*\(rtc_clock\b/qemu_register_clock_reset_notifier(qemu_clock_ptr(rtc_clock)/g ;
110 $line =~ s/\b(vm_|rt_|host_)clock\b/XXX_$1clock/g if ( $line =~ m
,^[/ ]+ \
*,);
112 # spurious fprintf error reporting
113 $line =~ s/: qemu_new_timer_ns failed/: timer_new_ns failed/g ;
115 # these have just changed name
116 $line =~ s/\bqemu_mod_timer\b/timer_mod/g ;
117 $line =~ s/\bqemu_mod_timer_(ns|us|ms)\b/timer_mod_$1/g ;
118 $line =~ s/\bqemu_free_timer\b/timer_free/g ;
119 $line =~ s/\bqemu_del_timer\b/timer_del/g ;
123 $line =~ s/QEMUClock \*rtc_clock;/QEMUClockType rtc_clock;/g ;
124 $line =~ s/\brtc_clock = (vm_|rt_|host_)clock\b/rtc_clock = XXX_$1clock/g ;
128 # replace any more general uses
129 $line =~ s/\b(vm_|rt_|host_)clock\b/qemu_clock_ptr(XXX_$1clock)/g ;
132 # fix up the place holders
133 $line =~ s/\bXXX_vm_clock\b/QEMU_CLOCK_VIRTUAL/g ;
134 $line =~ s/\bXXX_rt_clock\b/QEMU_CLOCK_REALTIME/g ;
135 $line =~ s/\bXXX_host_clock\b/QEMU_CLOCK_HOST/g ;
139 DoWarn
( " $ifn : $linenum WARNING: timer $1 not fixed up" , $line ) if ( $line =~ /\b((vm_|rt_|host_)clock)\b/ );
140 DoWarn
( " $ifn : $linenum WARNING: function $1 not fixed up" , $line ) if ( $line =~ /\b(qemu_new_timer\w+)\b/ );
141 DoWarn
( " $ifn : $linenum WARNING: legacy function $1 remains" , $line ) if ( $line =~ /$legacyre/o );
149 if ( $intext ne $outtext )
151 print STDERR
"Patching $ifn \n " unless ( $option_quiet );
152 unless ( $option_dryrun )
154 open my $output , ">" , $ofn || die "Cannot open $ofn for write: $!" ;
155 print $output $outtext ;
157 rename ( $ofn , $ifn ) || die "Cannot rename temp file to $ifn : $!" ;
167 open ( my $git , "| git commit -F - $file " ) || die "Cannot run git commit on $file : $!" ;
168 print $git "timers api: use new timer api in $file \n\n Convert $file to use new timer API. \n This is an automated commit made by scripts/switch-timer-api \n " ;
174 foreach my $file ( @files )
176 my $changed = Process
( $file );
177 DoCommit
( $file ) if ( $changed && $option_git );