1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
|
#!/usr/bin/perl
# David Faure <faure@kde.org> 2007
# Based on script by Laurent Montel <montel@kde.org> 2005
# This script converts KMimeType::pixmap (deprecated) to KIconLoader::loadMimeTypeIcon
# and KDEDesktopMimeType:: to KDesktopFileActions::
use File::Basename;
use lib dirname( $0 );
use functionUtilkde;
foreach my $file (@ARGV) {
functionUtilkde::substInFile {
s/(KMimeType::mimeType\([^)]*\))->pixmap\(([^)]*)\)/KIconLoader::global()->loadMimeTypeIcon($1->iconName(),$2)/sg;
# the regexp below is a bit too greedy, it also matches fileitem->pixmap()
#s/(\w*)->pixmap\(([^)]*)\)/KIconLoader::global()->loadMimeTypeIcon($1->iconName(),$2)/sg;
s/KDEDesktopMimeType::/KDesktopFileActions::/g;
s/kdedesktopmimetype\.h/kdesktopfileactions.h/g;
} $file;
}
functionUtilkde::diffFile( @ARGV );
|
