10 my @ignore = qw(vserver-packages python-devel-src);
11 my @poldek = (qw(sudo poldek -n th-x86_64-ready), "--cachedir=$pwd/poldekcache",
12 "--skip-installed", "--conf=$pwd/poldekconf/poldek.conf",
13 "-O", "ignore=" . (join " ", @ignore)
16 # if multiple packages provide some funcionality those will be selected:
23 "python-modules" => +1,
24 "python-setuptools" => +1,
30 "libstdc++-devel" => +1,
31 "libusb-compat-devel" => +1,
32 "libjpeg-devel" => +1,
34 "libsamplerate-devel" => +1,
35 "pulseaudio-devel" => +1,
36 "xorg-lib-libXrandr-devel" => +1,
42 # translate package name to provides name
44 "gcc-c++" => "libstdc++-devel",
45 "rarian-compat" => "scrollkeeper",
46 "Mesa-libGL" => "OpenGL",
47 "Mesa-libGL-devel" => "OpenGL-devel",
48 "Mesa-libGLU-devel" => "OpenGL-GLU-devel",
51 my @skip = qw(hostname git svn svnversion mt gawk);
53 @skip{ @skip } = (1) x scalar @skip;
55 # for m4 in *.m4; do R=$(rpm -qf $m4); R=${R%-*-*}; \
56 # awk -vr=$R '/^\s*(AC_DEFUN|AU_ALIAS)/ { gsub(/\].*/,""); gsub(/.*\[/,""); print r " " $0}' $m4; \
57 # done | sort | awk '{print "\t\"" $2 "\" => \"" $1 "\","}'
58 my %ac2br = do "findbr-ac2br";
61 "findkde4:44" => "kde4-kdelibs",
62 "findmsgfmt" => "gettext-tools",
63 "findpythoninterp" => "python",
71 print STDERR "\033[31;1m" . $_ . "\033[0m\n"
75 my $builddir = shift @ARGV;
84 my $msg = shift || $reason;
86 foreach my $p ( @$pkg ) {
94 $pkg = $translate{ $pkg } || $pkg;
96 return if exists $out{ $pkg };
98 print STDERR "\033[33;1madding: $pkg => $msg\033[0m\n";
104 warn "Poldek: $cmd\n";
105 my $pid = open( READ, "-|", @poldek, "--shcmd=".$cmd );
110 return @read if wantarray;
115 my $check_config_log = undef;
122 next if $checked_files{ $_ };
123 $checked_files{ $_ } = 1;
126 return unless @files;
128 my $search = join "; ", map "search -f $_", @files;
129 warn "Reason: $reason\n";
130 my @read = poldek_cmd( $search );
134 while ( $_ = shift @read ) {
135 if ( /(\d+) package\(s\) found:$/ ) {
136 foreach my $i ( 1..$1 ) {
139 $_ =~ /^(.*)-.*?-.*?$/;
145 return unless @found;
147 my $found = $found[0];
150 my %pts = map { ( $_ => ( ($i += 0.001) + ( $preferred{ $_ } || 0 ) ) ) }
152 my @pref = sort { $pts{$b} <=> $pts{$a} } @found;
153 my $pref = join ", ", map "$_ => $pts{$_}", @pref;
154 warn "Multiple found: $pref\n";
158 $found = $translate{ $found } if $translate{ $found };
167 my $read = poldek_cmd( "ls" );
170 next unless /(\S+)-.*?-.*?\.[a-z0-9_]+$/;
172 $pkglist{ lc $pkg } = $pkg;
174 $pkglist = \%pkglist;
179 my $origname = shift;
180 get_pkglist() unless $pkglist;
181 return unless defined $origname;
182 my $name = lc $origname;
191 ".*-lib$name-.*-devel",
195 for my $k ( keys %$pkglist ) {
196 if ( $k =~ /$name/ ) {
200 @select = sort @select;
202 foreach my $try ( @try ) {
203 foreach my $pkg ( @select ) {
204 if ( $pkg =~ /^$try$/ ) {
205 warn "guessed: $origname => $pkglist->{ $pkg }\n";
206 return $pkglist->{ $pkg };
210 warn "$origname not guessed\n";
217 my $cmake_get_call = 0;
218 my $cmake_pkg_list = 0;
219 while ( $_ = shift @lines ) {
221 #next if $checked{ $_ };
225 if ( /^\S+: (\S+): (?:Command )?not found$/ or /.*configure\[\d+\]: (\S+): not found$/
226 or m{which: no (\S+) in \(.*/bin.*\)}
227 or m{\S+: (\S+): command not found$}
228 or m{(?:/usr/bin/)?env: (\S+): No such file or directory}
229 or m{flock: (\S+): No such file or directory}
230 or m{Can't exec "(\S+)": No such file or directory} ) {
232 $exec = $1 if $exec =~ m{^"(.*)"$};
233 next if $skip{ $exec };
234 warn "Looking for executable $exec\n";
235 if ( $exec =~ m#^/# ) {
236 poldek_file( $exec );
238 poldek_file( "/usr/bin/$exec", "/bin/$exec" );
241 if ( /\S+\.[ch](?:pp|xx|c)?:\d+:\d+: error: (\S+): No such file or directory$/ or
242 /\S+\.[ch](?:pp|xx|c)?:\d+:\d+: fatal error: (\S+): No such file or directory$/ ) {
244 warn "Looking for C(++) header $h\n";
245 poldek_file( "/usr/include*/$h" );
248 if (m{^ImportError: No module named (\S+)$}
249 or m{^ERROR: Cannot find .+: No module named (\S+)$}
250 or m{^ERROR: Failed to import the ".+" module: No module named (\S+)$}
251 or m{^distutils.errors.DistutilsError: Could not find suitable distribution for Requirement.parse\('([^'>=]+).*'\)}
252 or m{^Couldn't find index page for '(\S+)'}
256 warn "Looking for python module $mod\n";
258 "/usr/share/python2*/$mod/__init__.py*",
259 "/usr/share/python2*/$mod.py*",
260 "/usr/lib*/python2*/$mod/__init__.py*",
261 "/usr/lib*/python2*/$mod.py*",
262 "/usr/lib*/python2*/_$mod.so",
263 "/usr/lib*/python2*/$mod.so" );
267 m{^-- Could NOT find Sphinx \(missing: SPHINX_EXECUTABLE\)}
269 add_br("sphinx-pdg");
274 m{^cannot load such file -- (\S+)} or
275 m{in `require': cannot load such file -- (\S+) \(LoadError\)}
278 warn "Looking for ruby module $mod\n";
280 "/usr/share/ruby/*/$mod.rb",
281 "/usr/share/ruby/vendor_ruby/*/$mod.rb",
282 "/usr/lib64/ruby/vendor_ruby/*/$mod.so",
286 if ( /configure(?:\.in|\.ac)?:\d+: error: possibly undefined macro: (\S+)/
287 or m{configure(?:\.in|\.ac)?:\d+: error: m4 macro `(\S+)' is not defined}
288 or m{warning: macro `(\S+)' not found in library} ) {
290 warn "Looking for autotools macro $macro\n";
291 if ( my $br = $ac2br{ $macro } ) {
298 if ( /^No package '(\S+)' found$/ or
299 /Package (\S+) was not found in the pkg-config search path/
300 or m{None of the required '(\S+?)(?:[<>=].*)?' found}
301 or m{--\s+package '(\S+?)(?:[<>=].*)?' not found}
302 or m{ERROR: cannot find a valid pkg-config package for \['(\S+?)(?:[<>=].*)?'\]}
305 warn "Looking for package $pkg\n";
306 poldek_file( "/usr/lib*/pkgconfig/$pkg.pc", "/usr/share/pkgconfig/$pkg.pc" );
309 if (/^ocamlfind: Package `(\S+)' not found - required by/
310 or m{Camlp4: Uncaught exception: DynLoader.Error \("(\S+)", "file not found in path"\)}
313 warn "Looking for ocaml package $pkg\n";
314 poldek_file( "/usr/lib*/ocaml/*/$pkg.a", "/usr/lib*/ocaml/*/$pkg");
317 if ( m{^cp: cannot stat `(/.*)': No such file or directory$} ) {
319 warn "Looking for file $f\n";
323 if ( m{ERROR: Could not find KDE4 (kde4-config)}) {
324 my $f = "/usr/bin/$1";
325 warn "Looking for file $f\n";
329 if (m{Ragel State Machine Compiler not found}) {
334 if ( m{^find-lang.sh: Error: international files not found for '}
335 or m{ gettext tools not found}
337 add_br( "gettext-tools" );
341 if ( m{ pkg-config .*not .*found}
342 or m{^checking for pkg-config\.\.\. no}
343 or m{^pkg-config unavailable, build terminated}
344 or m{^\*\*\*Error\*\*\*: You must have pkg-config >= .* installed}
345 or m{^-- Could NOT find PkgConfig \(missing: PKG_CONFIG_EXECUTABLE\)}
347 add_br( "pkgconfig" );
351 if ( m{Can't locate (.*?\.pm) in \@INC} ) {
353 warn "Looking for perl module $mod\n";
354 poldek_file( "/usr/lib*/perl*/$mod", "/usr/share/perl*/$mod" );
358 m{^(?:/usr/bin/ld: )?cannot find -l(.*?)$}
361 warn "Looking for library $lib\n";
362 poldek_file( "/usr/lib64/lib$lib.so", "/usr/lib/lib$lib.so",
363 "/usr/lib*/lib$lib.so" );
366 # full path to ldd files
368 m{^WARNING; can.*t resolve .* dependency: (.*?)$}
371 warn "Looking for library '$lib'\n";
372 poldek_file( "/usr/lib64/$lib", "/usr/lib/$lib", "/lib64/$lib", "/lib/$lib");
375 if ( m{^error: Couldn't exec (/\S+): No such file or directory$}
376 or m{^Can't open perl script "(/\S+)": No such file or directory$}
377 or m{unable to open (/\S+) \(No such file or directory\)$}
378 or m{GConf-CRITICAL \*\*: No such file `(/.\S+?)'$}
379 or m{make.*: \*\*\* No rule to make target `(/\S+)'}
380 or m{g(?:cc|\+\+): (/\S+): No such file or directory$}
381 or m{env: (/\S+): No such file or directory$}
384 warn "Looking for file $file\n";
385 poldek_file( $file );
388 if ( m{^ValueError: Couldn't find include '(.*\.gir)'} ) {
390 warn "Looking for gir file $file\n";
391 poldek_file( "/usr/share/gir-1.0/" . $file );
394 if ( m{^error: Package `(\S+)' not found in specified Vala API directories or GObject-Introspection GIR directories}
397 warn "Looking for gir file $file\n";
398 poldek_file( "/usr/share/vala/vapi/$file.vapi");
401 if ( m{failed.*http://www\.oasis-open\.org/docbook/xml/([\d\.]+/\S+\.dtd)} ) {
403 warn "Looking for docbook file $dtd\n";
404 poldek_file( "/usr/share/sgml/docbook/xml-dtd-$dtd" );
406 if ( m{http://docbook.sourceforge.net/release/xsl/current/(\S+\.xsl)} ) {
408 next if m{^\s*(/usr/bin/)?xsltproc };
409 warn "Looking for docbook file $db\n";
410 poldek_file( "/usr/share/sgml/*/$db" );
413 if ( m{LaTeX Error: File `(\S+)' not found} ) {
415 warn "Looking for tex file $tex\n";
416 poldek_file( "/usr/share/tex*/$tex" );
418 if ( m{mv: cannot move `\S+' to `(/var/lib/texmf.*?)':} ) {
420 warn "Looking for tex file $tex\n";
424 if ( m{configure: error: C\+\+ preprocessor "/lib/cpp" fails sanity check} ) {
425 add_br( "gcc-c++", "try: %undefine\t__cxx" );
427 if ( m{configure: error: C\+\+ compiler cannot create executables} ) {
428 add_br( "libstdc++-devel", "maybe try: %undefine\t__cxx" );
430 if ( m{configure: error: XML::Parser perl module is required for intltool} ) {
431 add_br( "perl-XML-Parser" );
433 if ( m{iconv: conversion from `\S+' is not supported} ) {
437 if (m{rst2man \(python-docutils\) is required to build man pages}) {
441 if ( m{ (\S+) does not appear in AM_CONDITIONAL$} ) {
443 warn "Looking for autotools macro $macro\n";
444 if ( my $br = $ac2br{ $macro } ) {
452 if ( m{configure\[\d+\]: syntax error: }
453 or m{\./configure\[\d+\]: \S+_\S+: not found}
454 or m{./configure\[\d+\]: .*unexpected}
455 or m{does not appear in AM_CONDITIONAL$}
457 warn "Need to check configure source: $reason\n";
460 if ( m{^configure: error:} ) {
461 $check_config_log = 1 unless defined $check_config_log;
464 if ( m{^CMake (?:Error|Warning) at (?:\S+/)?(\S+?)\.cmake:(\d+) } ) {
465 my ( $module, $line ) = ( lc $1, $2 );
467 if ( $module eq "findqt4" ) {
470 if ( $l =~ /qmake/ ) {
471 add_br( "qt4-qmake", $l );
472 } elsif ( $l =~ /rcc/ ) {
473 add_br( "qt4-build", $l );
474 } elsif ( $l =~ /Could NOT find (Qt\S+) header/ ) {
475 add_br( "$1-devel", $l );
477 warn "unrecognized Qt requirement: $l\n";
479 } elsif ( $module eq "cmakedeterminecxxcompiler" ) {
480 add_br( "libstdc++-devel",
481 '"try: -DCMAKE_CXX_COMPILER_WORKS=1 -DCMAKE_CXX_COMPILER="%{__cc}"' );
482 } elsif ( $br = $cmake2br{ $module . ":" . $line } ) {
484 } elsif ( $br = $cmake2br{ $module } ) {
486 } elsif ( $br = guess_package( $module =~ /find(.+)/ ) ) {
490 warn "Unrecognized cmake error: $reason\n";
493 if ( m{^\s*ERROR: (?:\S+/)?(\S+?\.cmake) not found} ) {
495 warn "Looking for cmake file: $cmake\n";
496 poldek_file( "/usr/*/cmake/*/$cmake" )
498 if ( $cmake_get_call ) {
499 if ( m{^\s*/\S+/(\S+)\.cmake:(\d+) } ) {
500 my ( $module, $line ) = ( lc $1, $2 );
502 if ( $br = $cmake2br{ $module . ":" . $line } ) {
505 } elsif ( $br = $cmake2br{ $module } ) {
508 } elsif ( $br = guess_package( $module =~ /find(.+)/ ) ) {
512 } elsif (m{Can not use "(.+)" module which has not yet been found}
513 or m{Could not find a package configuration file provided by "(.+)"}) {
516 warn "Looking for cmake file: $cmake\n";
518 "/usr/*/cmake/*/$cmake.cmake",
519 "/usr/*/cmake/*/${cmake}Config.cmake",
520 "/usr/*/cmake/*/${cmake}-config.cmake",
525 if ( m{^-- WARNING: you are using the obsolete 'PKGCONFIG' macro} ) {
526 add_br( "pkgconfig" );
528 if ( m{QT_(QT\S+)_LIBRARY \(ADVANCED\)}
529 or m{X11_(\S+)_LIB \(ADVANCED\)}
530 or m{Qt (\S+) library not found} ) {
532 my $pkg = guess_package( $find );
536 warn "Cannot quess qt package: $find\n";
540 if ( m{Unable to find a javac compiler;$} ) {
543 if ( m{Could not find (\S+) Java extension for this JVM$} ) {
545 warn "Looking for jar file: $jar\n";
546 poldek_file( "/usr/share/java/$jar.jar", "*/$jar.jar" )
550 if ( m{^-- The following OPTIONAL packages could NOT be located on your system} ) {
553 if ( $cmake_pkg_list ) {
554 if ( /\s+\* (\S+) / ) {
556 my $pkg = guess_package( $find );
560 warn "Cannot quess optional package: $find\n";
562 } elsif ( /^\s*$/ ) {
567 # CMake Error at CMakeLists.txt:86 (find_package):
568 # By not providing "FindQt5LinguistTools.cmake" in CMAKE_MODULE_PATH this
569 # project has asked CMake to find a package configuration file provided by
570 # "Qt5LinguistTools", but CMake did not find one.
572 # Could not find a package configuration file provided by "Qt5LinguistTools"
573 # with any of the following names:
575 # Qt5LinguistToolsConfig.cmake
576 # qt5linguisttools-config.cmake
578 # Add the installation prefix of "Qt5LinguistTools" to CMAKE_PREFIX_PATH or
579 # set "Qt5LinguistTools_DIR" to a directory containing one of the above
580 # files. If "Qt5LinguistTools" provides a separate development package or
581 # SDK, be sure it has been installed.
583 #CMake Warning at /usr/lib64/cmake/Qt5Core/Qt5CoreMacros.cmake:273 (find_package):
584 # Could not find a package configuration file provided by "Qt5Network" with
585 # any of the following names:
587 # Qt5NetworkConfig.cmake
588 # qt5network-config.cmake
590 # Add the installation prefix of "Qt5Network" to CMAKE_PREFIX_PATH or set
591 # "Qt5Network_DIR" to a directory containing one of the above files. If
592 # "Qt5Network" provides a separate development package or SDK, be sure it has
594 # Can not use "Network" module which has not yet been found.
596 if (m{By not providing "Find(.+)\.cmake" in CMAKE_MODULE_PATH}
597 or m{Could not find a package configuration file provided by "(.+)"
600 my $lcmake = lc $cmake;
602 warn "Looking for cmake file: $cmake\n";
604 "/usr/*/cmake/*/$cmake.cmake",
605 "/usr/*/cmake/*/${cmake}Config.cmake",
606 "/usr/*/cmake/*/${cmake}-config.cmake",
607 "/usr/*/cmake/*/${lcmake}Config.cmake",
608 "/usr/*/cmake/*/${lcmake}-config.cmake",
612 if ( m{^configure:\d+: checking for (?:"(\S+)"|(\S+))$} ) {
614 if ( @lines and $lines[0] =~ m{^configure:\d+: result: no$} ) {
615 next if $skip{ $exec };
616 warn "Looking for executable $exec\n";
617 poldek_file( $exec ) if $exec =~ m#^/#;
618 poldek_file( "/usr/bin/$exec", "/bin/$exec" );
627 return unless /^configure(\.(?:ac|in|in\.in))?$/;
630 warn "$File::Find::name\n";
635 if ( m{^\s*([A-Za-z0-9_]+)\s*(\(.*)?$} ) {
637 if ( my $br = $ac2br{ $def } ) {
638 add_br( $br, "$file: $_" );
639 } elsif ( $def !~ /^A[CM]_/ and $def =~ /^_?[A-Z]+_[A-Z_0-9a-z]+$/ ) {
640 #warn "Possible macro unrecognized: $def [[[$_]]]\n";
649 find( \&wanted, $builddir );
654 return unless /^config\.log$/;
657 warn "$File::Find::name\n";
663 if ( $check_config_log ) {
664 $check_config_log = 0;
665 find( \&wanted2, $builddir );
666 goto start_check if @lines;
669 foreach my $pkg ( sort keys %out ) {
670 print "$pkg -- $out{$pkg}\n";