#!/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;

 }