File indexing completed on 2024-04-21 05:41:53
0001 #!/usr/bin/perl -w 0002 0003 # Laurent Montel <montel@kde.org> (2014) 0004 # Adapt new akonadi includes 0005 # find -iname "*.cpp"|xargs kde-dev-scripts/kf5/adapt_knewstuff3_includes.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,#include \<knewstuff3\/uploaddialog.h\>,#include \<kns3\/uploaddialog.h\>,; 0019 s,#include \<knewstuff3\/downloaddialog.h\>,#include \<kns3\/downloaddialog.h\>,; 0020 s,#include \<knewstuff3\/downloadmanager.h\>,#include \<kns3\/downloadmanager.h\>,; 0021 s,#include \<knewstuff3\/downloadwidget.h\>,#include \<kns3\/downloadwidget.h\>,; 0022 s,#include \<knewstuff3\/entry.h\>,#include \<kns3\/entry.h\>,; 0023 s,#include \<knewstuff3\/knewstuffaction.h\>,#include \<kns3\/knewstuffaction.h\>,; 0024 s,#include \<knewstuff3\/knewstuffbutton.h\>,#include \<kns3\/knewstuffbutton.h\>,; 0025 0026 0027 $modified ||= $orig ne $_; 0028 $_; 0029 } <$FILE>; 0030 0031 if ($modified) { 0032 open (my $OUT, ">", $file); 0033 print $OUT @l; 0034 close ($OUT); 0035 } 0036 } 0037 0038 functionUtilkde::diffFile( "@ARGV" );