]> git.pld-linux.org Git - projects/cleanbuild.git/blame - findbr
- "GCONF_SCHEMAS_INSTALL" => "GConf2-devel"
[projects/cleanbuild.git] / findbr
CommitLineData
c494424e 1#!/usr/bin/perl
2
3use strict;
4use warnings;
5use IPC::Open2;
c728428f 6use Cwd;
c494424e 7
c728428f 8my $pwd = getcwd();
c494424e 9# how to run poldek
10my @ignore = qw(vserver-packages python-devel-src);
c728428f 11my @poldek = (qw(sudo poldek -n th-x86_64-ready), "--cachedir=$pwd/poldekcache",
12 "--skip-installed", "--conf=$pwd/poldekconf/poldek.conf",
c494424e 13 "-O", "ignore=" . (join " ", @ignore)
14);
15
16# if multiple packages provide some funcionality those will be selected:
17my %preferred = (
18 "automake" => +1,
19 "autoconf" => +1,
20 "pkgconfig" => +1,
21
22 "python" => +1,
23 "python-modules" => +1,
24
25 "perl-modules" => +1,
26 "perl-Encode" => +2,
27
28 "zlib-devel" => +1,
29 "libstdc++-devel" => +1,
a75e2ecf 30 "libusb-compat-devel" => +1,
022b6e5b 31 "libjpeg-devel" => +1,
c728428f 32 "libpng-devel" => +1,
022b6e5b 33 "libsamplerate-devel" => +1,
34 "pulseaudio-devel" => +1,
35 "xorg-lib-libXrandr-devel" => +1,
c728428f 36 "sqlite-devel" => +1,
c494424e 37);
38
44dfaf2a 39# translate package name to provides name
c494424e 40my %translate = (
41 "rarian-compat" => "scrollkeeper",
022b6e5b 42 "Mesa-libGL" => "OpenGL",
43 "Mesa-libGL-devel" => "OpenGL-devel",
c494424e 44 "Mesa-libGLU-devel" => "OpenGL-GLU-devel",
45);
46
47# for m4 in *.m4; do R=$(rpm -qf $m4); R=${R%-*-*}; \
48# awk -vr=$R '/^\s*(AC_DEFUN|AU_ALIAS)/ { gsub(/\].*/,""); gsub(/.*\[/,""); print r " " $0}' $m4; \
49# done | sort | awk '{print "\t\"" $2 "\" => \"" $1 "\","}'
50my %ac2br = do "findbr-ac2br";
51
52my %cmake2br = (
53 "findkde4:44" => "kde4-kdelibs",
54 "findmsgfmt" => "gettext-devel",
55 "findpythoninterp" => "python",
56);
57
58BEGIN {
59 $SIG{__WARN__} = sub
60 {
61 local $_ = shift;
62 chomp;
63 print STDERR "\033[31;1m" . $_ . "\033[0m\n"
64 };
65}
66
67my $builddir = shift @ARGV;
68my @lines = <ARGV>;
69
70my $reason;
71
72my %out;
73sub add_br
74{
75 my $pkg = shift;
76 my $msg = shift || $reason;
77 if ( ref $pkg ) {
78 foreach my $p ( @$pkg ) {
79 add_br( $p, $msg );
80 }
81 return;
82 }
83
84 $msg =~ s/\n/ # /sg;
85
86 $pkg = $translate{ $pkg } || $pkg;
87
88 return if exists $out{ $pkg };
89 $out{ $pkg } = $msg;
90 print STDERR "\033[33;1madding: $pkg => $msg\033[0m\n";
91}
92
93sub poldek_cmd
94{
95 my $cmd = shift;
96 warn "Poldek: $cmd\n";
97 my $pid = open( READ, "-|", @poldek, "--shcmd=".$cmd );
98
99 my @read = <READ>;
100 close READ;
101
102 return @read if wantarray;
103 return \@read;
104}
105
106my $check_ac = 0;
c728428f 107my $check_config_log = undef;
c494424e 108
109my %checked_files;
110sub poldek_file
111{
112 my @files;
113 foreach ( @_ ) {
114 next if $checked_files{ $_ };
115 $checked_files{ $_ } = 1;
116 push @files, $_;
117 }
118 return unless @files;
119
120 my $search = join "; ", map "search -f $_", @files;
121 warn "Reason: $reason\n";
122 my @read = poldek_cmd( $search );
123
124 local $_;
125 my @found;
126 while ( $_ = shift @read ) {
127 if ( /(\d+) package\(s\) found:$/ ) {
128 foreach my $i ( 1..$1 ) {
129 $_ = shift @read;
130 chomp;
131 $_ =~ /^(.*)-.*?-.*?$/;
132 push @found, $1;
133 }
134 }
135 }
136
137 return unless @found;
138
139 my $found = $found[0];
140 if ( @found > 1 ) {
141 my $i = 0.0;
142 my %pts = map { ( $_ => ( ($i += 0.001) + ( $preferred{ $_ } || 0 ) ) ) }
143 reverse @found;
144 my @pref = sort { $pts{$b} <=> $pts{$a} } @found;
145 my $pref = join ", ", map "$_ => $pts{$_}", @pref;
146 warn "Multiple found: $pref\n";
147 $found = $pref[0];
148 }
149
150 $found = $translate{ $found } if $translate{ $found };
151
152 add_br( $found );
153}
154
155my $pkglist;
156sub get_pkglist
157{
158 my %pkglist;
159 my $read = poldek_cmd( "ls" );
160 foreach ( @$read ) {
161 chomp;
162 next unless /(\S+)-.*?-.*?\.[a-z0-9_]+$/;
163 my $pkg = $1;
164 $pkglist{ lc $pkg } = $pkg;
165 }
166 $pkglist = \%pkglist;
167}
168
169sub guess_package
170{
171 my $origname = shift;
172 get_pkglist() unless $pkglist;
173 return unless defined $origname;
174 my $name = lc $origname;
175 my @try = (
176 "lib$name-devel",
177 "$name-devel",
178 "$name",
179 "lib$name-.*-devel",
180 "$name-.*-devel",
181 ".*-lib$name-devel",
182 ".*-$name-devel",
183 ".*-lib$name-.*-devel",
184 ".*-$name-.*-devel",
185 );
186 my @select;
187 for my $k ( keys %$pkglist ) {
188 if ( $k =~ /$name/ ) {
189 push @select, $k;
190 }
191 }
192 @select = sort @select;
193
194 foreach my $try ( @try ) {
195 foreach my $pkg ( @select ) {
196 if ( $pkg =~ /^$try$/ ) {
197 warn "guessed: $origname => $pkglist->{ $pkg }\n";
198 return $pkglist->{ $pkg };
199 }
200 }
201 }
202 warn "$origname not guessed\n";
203 return undef;
204}
205
022b6e5b 206start_check:
207
c494424e 208my %checked;
209my $cmake_get_call = 0;
210my $cmake_pkg_list = 0;
211while ( $_ = shift @lines ) {
212 chomp;
213 #next if $checked{ $_ };
214 #$checked{ $_ } = 1;
215
216 $reason = $_;
217 if ( /^\S+: (\S+): (?:Command )?not found$/ or /.*configure\[\d+\]: (\S+): not found$/
218 or m{which: no (\S+) in \(.*/bin.*\)}
219 or m{\S+: (\S+): command not found$}
220 or m{Can't exec "(\S+)": No such file or directory} ) {
221 my $exec = $1;
c728428f 222 $exec = $1 if $exec =~ m{^"(.*)"$};
c494424e 223 next if $exec eq "hostname";
224 warn "Looking for executable $exec\n";
225 if ( $exec =~ m#^/# ) {
226 poldek_file( $exec );
227 }
228 poldek_file( "/usr/bin/$exec", "/bin/$exec" );
229 }
230
231
bfe0e7d5 232 if ( /\S+\.[ch](?:pp|xx|c)?:\d+:\d+: error: (\S+): No such file or directory$/ or
233 /\S+\.[ch](?:pp|xx|c)?:\d+:\d+: fatal error: (\S+): No such file or directory$/ ) {
c494424e 234 my $h = $1;
235 warn "Looking for C(++) header $h\n";
236 poldek_file( "/usr/include*/$h" );
237 }
238 if ( m{^ImportError: No module named (\S+)$} ) {
239 my $mod = $1;
240 $mod =~ s#\.#/#g;
241 warn "Looking for python module $mod\n";
242 poldek_file( "/usr/share/python2*/$mod/__init__.py*",
243 "/usr/share/python2*/$mod.py*",
244 "/usr/lib*/python2*/$mod.py*",
245 "/usr/lib*/python2*/_$mod.so" );
246 }
247 if ( /configure(?:\.in|\.ac)?:\d+: error: possibly undefined macro: (\S+)/
248 or m{configure(?:\.in|\.ac)?:\d+: error: m4 macro `(\S+)' is not defined} ) {
249 my $macro = $1;
250 warn "Looking for autotools macro $macro\n";
251 if ( my $br = $ac2br{ $macro } ) {
252 add_br( $br );
253 next;
c728428f 254 } else {
255 $check_ac = 1;
c494424e 256 }
257 }
258 if ( /^No package '(\S+)' found$/ or
259 /Package (\S+) was not found in the pkg-config search path/
260 or m{None of the required '(\S+?)(?:[<>=].*)?' found}
261 or m{--\s+package '(\S+?)(?:[<>=].*)?' not found}
262 ) {
263 my $pkg = $1;
264 warn "Looking for package $pkg\n";
265 poldek_file( "/usr/lib*/pkgconfig/$pkg.pc" );
266 }
267 if ( m{^cp: cannot stat `(/.*)': No such file or directory$} ) {
268 my $f = $1;
269 warn "Looking for file $f\n";
270 poldek_file( $f );
271 }
272 if ( m{^find-lang.sh: Error: international files not found for '}
273 or m{ gettext tools not found}
274 ) {
275 add_br( "gettext-devel" );
276 #exit;
277 next;
278 }
279 if ( m{ pkg-config .*not .*found}
280 or m{^checking for pkg-config\.\.\. no} ) {
281 add_br( "pkgconfig" );
282 #exit;
283 next;
284 }
285 if ( m{^Can't locate (.*?\.pm) in \@INC} ) {
286 my $mod = $1;
287 warn "Looking for perl module $mod\n";
288 poldek_file( "/usr/lib*/perl*/$mod", "/usr/share/perl*/$mod" );
289 }
c728428f 290 if ( m{^(?:/usr/bin/ld: )?cannot find -l(.*?)$} ) {
c494424e 291 my $lib = $1;
292 warn "Looking for library $lib\n";
c728428f 293 poldek_file( "/usr/lib64/lib$lib.so", "/usr/lib/lib$lib.so",
294 "/usr/lib*/lib$lib.so" );
c494424e 295 }
296 if ( m{^error: Couldn't exec (/\S+): No such file or directory$}
297 or m{^Can't open perl script "(/\S+)": No such file or directory$}
298 or m{unable to open (/\S+) \(No such file or directory\)$}
299 or m{GConf-CRITICAL \*\*: No such file `(/.\S+?)'$}
300 or m{make.*: \*\*\* No rule to make target `(/\S+)'}
301 or m{g(?:cc|\+\+): (/\S+): No such file or directory$}
c728428f 302 or m{env: (/\S+): No such file or directory$}
c494424e 303 ) {
304 my $file = $1;
305 warn "Looking for file $file\n";
306 poldek_file( $file );
307 }
c728428f 308 if ( m{^ValueError: Couldn't find include '(.*\.gir)'} ) {
309 my $file = $1;
310 warn "Looking for gir file $file\n";
311 poldek_file( "/usr/share/gir-1.0/" . $file );
312 }
c494424e 313 if ( m{failed.*http://www\.oasis-open\.org/docbook/xml/([\d\.]+/\S+\.dtd)} ) {
314 my $dtd = $1;
315 warn "Looking for docbook file $dtd\n";
316 poldek_file( "/usr/share/sgml/docbook/xml-dtd-$dtd" );
317 }
318 if ( m{http://docbook.sourceforge.net/release/xsl/current/(\S+\.xsl)} ) {
319 my $db = $1;
320 next if m{^\s*(/usr/bin/)?xsltproc };
321 warn "Looking for docbook file $db\n";
322 poldek_file( "/usr/share/sgml/*/$db" );
323 }
324 if ( m{configure: error: C\+\+ preprocessor "/lib/cpp" fails sanity check} ) {
325 add_br( "gcc-c++", "try: %undefine\t__cxx" );
326 }
327 if ( m{configure: error: C\+\+ compiler cannot create executables} ) {
328 add_br( "libstdc++-devel", "maybe try: %undefine\t__cxx" );
329 }
330 if ( m{configure: error: XML::Parser perl module is required for intltool} ) {
331 add_br( "perl-XML-Parser" );
332 }
333
bfe0e7d5 334 if ( m{ (\S+) does not appear in AM_CONDITIONAL$} ) {
335 my $macro = $1;
336 warn "Looking for autotools macro $macro\n";
337 if ( my $br = $ac2br{ $macro } ) {
338 add_br( $br );
339 next;
340 } else {
341 $check_ac = 1;
342 }
343 }
344
c494424e 345 if ( m{configure\[\d+\]: syntax error: }
a75e2ecf 346 or m{\./configure\[\d+\]: \S+_\S+: not found}
347 or m{./configure\[\d+\]: .*unexpected}
348 or m{does not appear in AM_CONDITIONAL$}
349 ) {
c494424e 350 warn "Need to check configure source: $reason\n";
351 $check_ac = 1;
352 }
022b6e5b 353 if ( m{^configure: error:} ) {
354 $check_config_log = 1 unless defined $check_config_log;
355 }
c494424e 356
357 if ( m{^CMake Error at (?:\S+/)?(\S+?)\.cmake:(\d+) } ) {
358 my ( $module, $line ) = ( lc $1, $2 );
359 my $br;
360 if ( $module eq "findqt4" ) {
361 my $l = $lines[0];
362 chomp $l;
363 if ( $l =~ /qmake/ ) {
364 add_br( "qt4-qmake", $l );
365 } elsif ( $l =~ /rcc/ ) {
366 add_br( "qt4-build", $l );
367 } elsif ( $l =~ /Could NOT find (Qt\S+) header/ ) {
368 add_br( "$1-devel", $l );
369 } else {
370 warn "unrecognized Qt requirement: $l\n";
371 }
372 } elsif ( $module eq "cmakedeterminecxxcompiler" ) {
373 add_br( "libstdc++-devel",
374 '"try: -DCMAKE_CXX_COMPILER_WORKS=1 -DCMAKE_CXX_COMPILER="%{__cc}"' );
375 } elsif ( $br = $cmake2br{ $module . ":" . $line } ) {
376 add_br( $br );
377 } elsif ( $br = $cmake2br{ $module } ) {
378 add_br( $br );
379 } elsif ( $br = guess_package( $module =~ /find(.+)/ ) ) {
380 add_br( $br );
381 } else {
382 $cmake_get_call = 1;
383 warn "Unrecognized cmake error: $reason\n";
384 }
385 }
386 if ( m{^\s*ERROR: (?:\S+/)?(\S+?\.cmake) not found} ) {
387 my $cmake = $1;
388 warn "Looking for cmake file: $cmake\n";
389 poldek_file( "/usr/*/cmake/*/$cmake" )
390 }
391 if ( $cmake_get_call ) {
392 if ( m{^\s*/\S+/(\S+)\.cmake:(\d+) } ) {
393 my ( $module, $line ) = ( lc $1, $2 );
394 my $br;
395 if ( $br = $cmake2br{ $module . ":" . $line } ) {
396 add_br( $br );
397 $cmake_get_call = 0;
398 } elsif ( $br = $cmake2br{ $module } ) {
399 add_br( $br );
400 $cmake_get_call = 0;
401 } elsif ( $br = guess_package( $module =~ /find(.+)/ ) ) {
402 add_br( $br );
403 $cmake_get_call = 0;
404 }
405 }
406 }
407 if ( m{^-- WARNING: you are using the obsolete 'PKGCONFIG' macro} ) {
408 add_br( "pkgconfig" );
409 }
410 if ( m{QT_(QT\S+)_LIBRARY \(ADVANCED\)}
411 or m{X11_(\S+)_LIB \(ADVANCED\)}
412 or m{Qt (\S+) library not found} ) {
413 my $find = $1;
414 my $pkg = guess_package( $find );
415 if ( $pkg ) {
416 add_br( $pkg );
417 } else {
418 warn "Cannot quess qt package: $find\n";
419 }
420 }
421
422 if ( m{^-- The following OPTIONAL packages could NOT be located on your system} ) {
423 $cmake_pkg_list = 1;
424 }
425 if ( $cmake_pkg_list ) {
426 if ( /\s+\* (\S+) / ) {
427 my $find = $1;
428 my $pkg = guess_package( $find );
429 if ( $pkg ) {
430 add_br( $pkg );
431 } else {
432 warn "Cannot quess optional package: $find\n";
433 }
434 } elsif ( /^\s*$/ ) {
435 $cmake_pkg_list = 0;
436 }
437 }
c728428f 438
439 if ( m{^configure:\d+: checking for (?:"(\S+)"|(\S+))$} ) {
440 my $exec = $1 || $2;
441 if ( @lines and $lines[0] =~ m{^configure:\d+: result: no$} ) {
442 next if $exec eq "hostname";
443 warn "Looking for executable $exec\n";
444 poldek_file( $exec ) if $exec =~ m#^/#;
445 poldek_file( "/usr/bin/$exec", "/bin/$exec" );
446 }
447 }
c494424e 448}
449
450
451
452sub wanted
453{
454 return unless /^configure(\.(?:ac|in|in\.in))?$/;
455 return unless -r;
456
457 warn "$File::Find::name\n";
458 open F_IN, "<", $_;
459 my $file = $_;
460 while ( <F_IN> ) {
461 chomp;
462 if ( m{^\s*([A-Za-z0-9_]+)\s*(\(.*)?$} ) {
463 my $def = $1;
464 if ( my $br = $ac2br{ $def } ) {
465 add_br( $br, "$file: $_" );
466 } elsif ( $def !~ /^A[CM]_/ and $def =~ /^_?[A-Z]+_[A-Z_0-9a-z]+$/ ) {
467 #warn "Possible macro unrecognized: $def [[[$_]]]\n";
468 }
469 }
470 }
471 close F_IN;
472}
473
474use File::Find;
475if ( $check_ac ) {
476 find( \&wanted, $builddir );
477}
478
022b6e5b 479sub wanted2
480{
481 return unless /^config\.log$/;
482 return unless -r;
483
484 warn "$File::Find::name\n";
485 open F_IN, "<", $_;
486 push @lines, <F_IN>;
487 close F_IN;
488}
489
490if ( $check_config_log ) {
491 $check_config_log = 0;
492 find( \&wanted2, $builddir );
493 goto start_check if @lines;
494}
495
c494424e 496foreach my $pkg ( sort keys %out ) {
497 print "$pkg -- $out{$pkg}\n";
498}
499# vim: ts=4 sw=4
This page took 0.115379 seconds and 4 git commands to generate.