source: soft/build_system/build_system/mkcd/tags/V4_1_2_1mdk/build-hdlist @ 1

#!/usr/bin/perl -I /home/warly/files/cvs/mdk/soft/mkcd/pm
#
# 

use strict;
use URPM;
use URPM::Build;
use File::Find qw(find);

$ARGV[0] or print "\nUsage:
        build-hdlist <rpms dir 1> <rpms dir 2> ... <rpms dir n>

\n\n" and exit;
my $topdir = `pwd`;
chop $topdir;
my $tmp = $ENV{TMPDIR} || "$topdir/tmp";

my @ARCH = qw(i586 ia64 noarch ppc alpha sparc);

my ($path);

mkcd_build_hdlist(int @ARGV, 
        [ 0, 
                map { 
                        $path = $_;
                        my @rpm;
                        find({ wanted => sub{ push @rpm, $_ if -f && /(?!src).rpm$/ }, no_chdir => 1 }, $path);
                        open my $A, ">$path/list";
                        { rpms => [ 
                                map { 
                                        my $a = $_; 
                                        $a =~ s/$path//; 
                                        print $A "./$a\n";
                                        "$path/$a"
                                } @rpm ], 
                        hdlist => "$path/hdlist.cz", 
                        synthesis => "$path/synthesis.hdlist.cz" 
                        } 
                } @ARGV ], "$tmp/.bh-build_hdlist");

exit;

# stolen from mkcd 
sub mkcd_build_hdlist{
    my ($num,$hdlist,$headers_dir,$depslist,$provides,$compss) = @_;
    my $urpm = new URPM;
    for (1 .. $num){
        $hdlist->[$_]{headers} = 
           [ $urpm->parse_rpms_build_headers(
                dir => $headers_dir, 
                rpms => $hdlist->[$_]{rpms}) ];
    }

    $urpm->unresolved_provides_clean;
    for (1 .. $num){
        my $e = $hdlist->[$_];
        my ($start, $end) = $urpm->parse_headers(dir => $headers_dir, headers => $e->{headers}, callback => $hdlist->[$_]{callback});
        $urpm->compute_deps;
        if ($start >= $end){
            print "WARNING mkcd_build_hdlist: $e->{hdlist} and $e->{synthesis} are empty\n";
            next
        }
        if (length $e->{hdlist}){
            print "mkcd_build_hdlist: write $e->{hdlist}\n";
            $urpm->build_hdlist(start => $start, end => $end, dir => $headers_dir, hdlist => $e->{hdlist}, ratio => 9);
        }
        if (length $e->{synthesis}){
            print "mkcd_build_hdlist: write $e->{synthesis}\n";
            $urpm->build_synthesis(start => $start, end => $end, synthesis => $e->{synthesis})
        }
    }
    $urpm->build_base_files(depslist => $depslist, provides => $provides, compss => $compss);

    return $urpm;
}