Warning, file /sdk/kde-dev-scripts/kf5/convert-ktextbrowser.pl was not indexed or was modified since last indexation (in which case cross-reference links may be missing, inaccurate or erroneous).
0001 #!/usr/bin/perl -w 0002 0003 # Laurent Montel <montel@kde.org> (2014) 0004 # KTextBrowser => QTextBrowser 0005 # find -iname "*.cpp" -o -iname "*.h" -o -iname "*.ui" |xargs kde-dev-scripts/kf5/convert-ktextbrowser.pl 0006 0007 use strict; 0008 use File::Basename; 0009 use lib dirname($0); 0010 use functionUtilkde; 0011 0012 #TODO : * - setNotifyClick becomes setOpenLinks, isNotifyClick is set to openLinks. 0013 # * - use the signal QTextBrowser::anchorClicked for KTextBrowser::urlClick 0014 0015 foreach my $file (@ARGV) { 0016 0017 my $modified; 0018 open(my $FILE, "<", $file) or warn "We can't open file $file:$!\n"; 0019 my @l = map { 0020 my $orig = $_; 0021 s/\bKTextBrowser\b/QTextBrowser/g; 0022 s/\<KTextBrowser\b\>/\<QTextBrowser>/ if (/#include/); 0023 s/\<ktextbrowser.h\>/\<QTextBrowser>/ if (/#include/); 0024 0025 $modified ||= $orig ne $_; 0026 $_; 0027 } <$FILE>; 0028 0029 if ($modified) { 0030 open (my $OUT, ">", $file); 0031 print $OUT @l; 0032 close ($OUT); 0033 warn "QTextBrowser does not support \"whatsthis:\" urls. \n"; 0034 } 0035 } 0036 0037 functionUtilkde::diffFile( "@ARGV" );