#!/usr/bin/perl
# Script for OS X to copy all non-core library dependencies into the bundle, and fixup the lib naming
# Run after the executable is already in the bundle.

if( $#ARGV <= 0 ) {
   die( "Usage: bundlelibs.pl <target-binary> <target-lib-path>\n" );
}

my $BINARY=shift();
my $TARGETDIR=shift();
my $OTOOL="otool";
my $NTOOL="install_name_tool";

mkdir $TARGETDIR;

my %done=();
my @worklist = ($BINARY);

while( $#worklist >= 0 ) {
    my $target = shift @worklist;
    $done{$target} = 2;
    
    open FH, "$OTOOL -L $target|" || die "Unable to run otool";
    $skip = <FH>;

    while(<FH>){
        $lib = $_;
        $lib =~ s/^\s+([^\s]+)\s.*$/$1/s;
        if( $lib !~ /^\/System\/Library/ && $lib !~ /^\/usr\/lib/ && $lib !~ /^\@executable_path\// ) {
            $libname = $lib;
            $libname =~ s#^.*/##;
            $targetpath = "$TARGETDIR/$libname";
            $libid = "\@executable_path/../Frameworks/$libname";
            if( !$done{$libname} ) {
                $done{$libname} = 1;
                push @worklist, $targetpath;
                system( ("cp", $lib, $targetpath) ) == 0 || die "Failed to copy $lib to $targetpath";
                system( ($NTOOL, "-id", $libid, $targetpath) ) == 0 || die "Failed to set $lib ID to $libid";
                print "Copied $lib => $targetpath\n";
            }
            system( ($NTOOL, "-change", $lib, $libid, $target ) ) == 0 || die "Failed to change $lib ID to $libid";
        }
    }
    close FH;
}