File indexing completed on 2024-04-28 09:37:05 

0001 #!/usr/bin/perl -w
0002 
0003 # Laurent Montel <montel@kde.org> (2014)
0004 # KShortcut => QKeySequence
0005 # find -iname "*.cpp" -o -iname "*.h" -o -iname "*.ui" |xargs kde-dev-scripts/kf5/convert-kshortcut.pl
0006 
0007 use strict;
0008 use File::Basename;
0009 use lib dirname($0);
0010 use functionUtilkde;
0011 
0012 foreach my $file (@ARGV) {
0013 
0014     my $modified;
0015     open(my $FILE, "<", $file) or warn "We can't open file $file:$!\n";
0016     my @l = map {
0017         my $orig = $_;
0018         s/KShortcut\s*\(\s*QKeySequence\s*\(/QKeySequence(/;
0019         s/\bsetShortcuts\s*\(\s*KShortcut\b/setShortcut(QKeySequence/;
0020         s/KShortcuts\s*\(\s*QKeySequence\s*\(/QKeySequence(/;
0021 
0022 
0023         s/\bKShortcut\b/QKeySequence/g;
0024         s/\<KShortcut\b\>/\<QKeySequence>/ if (/#include/);
0025         s/\<kshortcut.h\>/\<QKeySequence>/ if (/#include/);
0026         $modified ||= $orig ne $_;
0027         $_;
0028     } <$FILE>;
0029 
0030     if ($modified) {
0031         open (my $OUT, ">", $file);
0032         print $OUT @l;
0033         close ($OUT);
0034     }
0035 }
0036 
0037 functionUtilkde::diffFile( "@ARGV" );