Commit | Line | Data |
---|---|---|
64da3008 | 1 | =begin comment |
3b48d85d | 2 | |
02b1e604 VK |
3 | Synchronize filename cases for extensions. |
4 | ||
d2b25974 VK |
5 | This script could be used to perform following renaming: |
6 | if there exist file, for example, "FiLeNaME.c" and | |
7 | filename.obj then it renames "filename.obj" to "FiLeNaME.obj". | |
8 | There is a problem when some compilers (e.g.Borland) generate | |
9 | such .obj files and then "make" process will not treat them | |
10 | as dependant and already maked files. | |
11 | ||
02b1e604 VK |
12 | This script takes two arguments - first and second extensions to |
13 | synchronize filename cases with. | |
3b48d85d VK |
14 | |
15 | There may be specified following options: | |
16 | --verbose <== say everything what is going on | |
17 | --recurse <== recurse subdirectories | |
18 | --dummy <== do not perform actual renaming | |
19 | --say-subdir | |
20 | Every such option can be specified with an optional "no" prefix to negate it. | |
21 | ||
22 | Typically, it is invoked as: | |
02b1e604 | 23 | perl sync_ext.pl c obj --verbose |
3b48d85d VK |
24 | |
25 | =cut | |
26 | ||
27 | use strict; | |
28 | ||
29 | my ($ext1, $ext2) = map {quotemeta} grep {!/^--/} @ARGV; | |
30 | my %opts = ( | |
31 | #defaults | |
32 | 'verbose' => 0, | |
33 | 'recurse' => 1, | |
34 | 'dummy' => 0, | |
35 | 'say-subdir' => 0, | |
36 | #options itself | |
37 | (map {/^--([\-_\w]+)=(.*)$/} @ARGV), # --opt=smth | |
38 | (map {/^no-?(.*)$/i?($1=>0):($_=>1)} map {/^--([\-_\w]+)$/} @ARGV), # --opt --no-opt --noopt | |
39 | ); | |
40 | ||
41 | my $sp = ''; | |
42 | sub xx { | |
43 | opendir DIR, '.'; | |
44 | my @t = readdir DIR; | |
45 | my @f = map {/^(.*)\.$ext1$/i} @t; | |
46 | my %f = map {lc($_)=>$_} map {/^(.*)\.$ext2$/i} @t; | |
47 | for (@f) { | |
48 | my $lc = lc($_); | |
49 | if (exists $f{$lc} and $f{$lc} ne $_) { | |
50 | print STDERR "$sp$f{$lc}.$ext2 <==> $_.$ext1\n" if $opts{verbose}; | |
51 | if ($opts{dummy}) { | |
52 | print STDERR "ren $f{$lc}.$ext2 $_.$ext2\n"; | |
53 | } | |
54 | else { | |
55 | system "ren $f{$lc}.$ext2 $_.$ext2"; | |
56 | } | |
57 | } | |
58 | } | |
59 | if ($opts{recurse}) { | |
60 | for (grep {-d&&!/^\.\.?$/} @t) { | |
61 | print STDERR "$sp\\$_\n" if $opts{'say-subdir'}; | |
62 | $sp .= ' '; | |
63 | chdir $_ or die; | |
64 | xx(); | |
65 | chdir ".." or die; | |
66 | chop $sp; | |
67 | } | |
68 | } | |
69 | } | |
70 | ||
71 | xx(); |