File indexing completed on 2024-04-21 05:41:56

0001 #!/usr/bin/perl 
0002 
0003 # Laurent Montel <montel@kde.org>
0004 # Convert Q3CString to QByteArray or QString or DCOPCString
0005 
0006 use File::Basename;
0007 use lib dirname($0);
0008 use functionUtilkde;
0009 
0010 foreach my $file (@ARGV) {
0011     functionUtilkde::substInFile {
0012             my $value = $_;
0013             if ( $value =~ /registerAs/ ) {
0014                     s!Q3CString!DCOPCString!g;
0015             }
0016             elsif ( $value !~ /sprintf/ ) {
0017                     s!Q3CString!QByteArray!g;
0018             }
0019             else {
0020                     s!Q3CString!QString!g;
0021             }
0022     } $file;
0023 }
0024 functionUtilkde::diffFile( @ARGV );
0025