Mercurial > hg > CbC > CbC_llvm

comparison utils/UpdateCMakeLists.pl @ 0:95c75e76d11b LLVM3.4

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
LLVM 3.4
author Kaito Tokumori <e105711@ie.u-ryukyu.ac.jp>
date Thu, 12 Dec 2013 13:56:28 +0900
parents
children
comparison
equal deleted inserted replaced
-1:000000000000 0:95c75e76d11b
1 #!/usr/bin/env perl
2 use strict;
3 use File::Find;
4 use File::Copy;
5 use Digest::MD5;
6
7 my @fileTypes = ("cpp", "c");
8 my %dirFiles;
9 my %dirCMake;
10
11 sub GetFiles {
12 my $dir = shift;
13 my $x = $dirFiles{$dir};
14 if (!defined $x) {
15 $x = [];
16 $dirFiles{$dir} = $x;
17 }
18 return $x;
19 }
20
21 sub ProcessFile {
22 my $file = $_;
23 my $dir = $File::Find::dir;
24 # Record if a CMake file was found.
25 if ($file eq "CMakeLists.txt") {
26 $dirCMake{$dir} = $File::Find::name;
27 return 0;
28 }
29 # Grab the extension of the file.
30 $file =~ /\.([^.]+)$/;
31 my $ext = $1;
32 my $files;
33 foreach my $x (@fileTypes) {
34 if ($ext eq $x) {
35 if (!defined $files) {
36 $files = GetFiles($dir);
37 }
38 push @$files, $file;
39 return 0;
40 }
41 }
42 return 0;
43 }
44
45 sub EmitCMakeList {
46 my $dir = shift;
47 my $files = $dirFiles{$dir};
48
49 if (!defined $files) {
50 return;
51 }
52
53 foreach my $file (sort @$files) {
54 print OUT " ";
55 print OUT $file;
56 print OUT "\n";
57 }
58 }
59
60 sub UpdateCMake {
61 my $cmakeList = shift;
62 my $dir = shift;
63 my $cmakeListNew = $cmakeList . ".new";
64 open(IN, $cmakeList);
65 open(OUT, ">", $cmakeListNew);
66 my $foundLibrary = 0;
67
68 while(<IN>) {
69 if (!$foundLibrary) {
70 print OUT $_;
71 if (/^add_[^_]+_library\(/ || /^add_llvm_target\(/ || /^add_[^_]+_executable\(/) {
72 $foundLibrary = 1;
73 EmitCMakeList($dir);
74 }
75 }
76 else {
77 if (/\)/) {
78 print OUT $_;
79 $foundLibrary = 0;
80 }
81 }
82 }
83
84 close(IN);
85 close(OUT);
86
87 open(FILE, $cmakeList) or
88 die("Cannot open $cmakeList when computing digest\n");
89 binmode FILE;
90 my $digestA = Digest::MD5->new->addfile(*FILE)->hexdigest;
91 close(FILE);
92
93 open(FILE, $cmakeListNew) or
94 die("Cannot open $cmakeListNew when computing digest\n");
95 binmode FILE;
96 my $digestB = Digest::MD5->new->addfile(*FILE)->hexdigest;
97 close(FILE);
98
99 if ($digestA ne $digestB) {
100 move($cmakeListNew, $cmakeList);
101 return 1;
102 }
103
104 unlink($cmakeListNew);
105 return 0;
106 }
107
108 sub UpdateCMakeFiles {
109 foreach my $dir (sort keys %dirCMake) {
110 if (UpdateCMake($dirCMake{$dir}, $dir)) {
111 print "Updated: $dir\n";
112 }
113 }
114 }
115
116 find({ wanted => \&ProcessFile, follow => 1 }, '.');
117 UpdateCMakeFiles();
118