1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
|
#!/usr/bin/perl -w
# Laurent Montel <montel@kde.org> (2014)
# KGlobal::locale().formatDate -> QLocale().toString
# find -iname "*.cpp"|xargs kde-dev-scripts/kf5/convert-klocale-formatdate.pl
use strict;
use File::Basename;
use lib dirname($0);
use functionUtilkde;
foreach my $file (@ARGV) {
my $modified;
open(my $FILE, "<", $file) or warn "We can't open file $file:$!\n";
my @l = map {
my $orig = $_;
if (/KLocale::global\(\)\-\>formatDate\s*\((.*)\)/) {
my $args = $1;
warn "Found KLocale::global()->formatDate : $args\n";
my $arg_regexp = qr/
^([^,]*)\s* # date
(?:,\s*([^,]*))? # option
(.*)$ # after
/x;
if ( my ($date, $option, $after) = $args =~ $arg_regexp ) {
if ( defined $option) {
warn "Option found $option\n";
}
warn "Argument ? : $date \n";
s,KLocale::global\(\)\-\>formatDate\b,QLocale().toString,;
s,KLocale::ShortDate,QLocale::ShortFormat,;
s,KLocale::LongDate,QLocale::LongFormat,;
}
}
my $regexp = qr/
^(\s*) # (1) Indentation
(.*?) # (2) Possibly "Classname *" (the ? means non-greedy)
KLocale::global\(\)\-\>formatDateTime
${functionUtilkde::paren_begin}3${functionUtilkde::paren_end} # (3) (args)
(.*)$ # (4) afterreg
/x; # /x Enables extended whitespace mode
if ( my ($indent, $before, $args, $after) = $_ =~ $regexp) {
warn "Found KLocale::global()->formatDateTime : $args\n";
my $arg_regexp = qr/
^([^,]*)\s* # date
(?:,\s*([^,]*))? # option
(.*)$ # after
/x;
if ( my ($date, $option, $afterargs) = $args =~ $arg_regexp ) {
if ( not defined $option) {
# default option in kde is QLocale::ShortFormat in QLocale it's QLocale::LongFormat
$_ = $indent . $before . "QLocale().toString($date, QLocale::ShortFormat)" . $after . "\n";
} else {
s,KLocale::global\(\)\-\>formatDateTime\b,QLocale().toString,;
s,KLocale::ShortDate,QLocale::ShortFormat,;
s,KLocale::LongDate,QLocale::LongFormat,;
}
}
}
s,KLocale::global\(\)\-\>weekStartDay\(\),QLocale().firstDayOfWeek(),g;
$modified ||= $orig ne $_;
$_;
} <$FILE>;
if ($modified) {
open (my $OUT, ">", $file);
print $OUT @l;
close ($OUT);
functionUtilkde::addIncludeInFile($file, "QLocale");
}
}
functionUtilkde::diffFile( "@ARGV" );
|
