#!/usr/bin/perl

#
# $Id$
#
#  This file is part of the Virtual Leaf.
#
#  The Virtual Leaf is free software: you can redistribute it and/or modify
#  it under the terms of the GNU General Public License as published by
#  the Free Software Foundation, either version 3 of the License, or
#  (at your option) any later version.
#
#  The Virtual Leaf is distributed in the hope that it will be useful,
#  but WITHOUT ANY WARRANTY; without even the implied warranty of
#  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
#  GNU General Public License for more details.
#
#  You should have received a copy of the GNU General Public License
#  along with the Virtual Leaf.  If not, see <http://www.gnu.org/licenses/>.
#
#  Copyright 2010 Roeland Merks.
#
#

# get dependencies for executable
sub get_frameworks {
  my $exec = shift;
  my @frameworks = ();
  my $fw;
#  print "get_frameworks says: exec = $exec\n";
  open deps, "otool -L $exec |";
  # omit first line
  <deps>;

  while (<deps>) {
    # look for lines with ".framework", that do not start with / or @.
    if (/\.framework/ && !/^[ \t]*\// && !/^[ \t]*\@/) {
      chomp;
      @line = split;
      $f = $line[0];
      # get framework directory name
      @line = split(/\//,$f);
      for $d (@line) {
	if ($d =~ /\.framework/) {
	  $fw = $d; 
#          print "get_framework finds framework $d\n";
	  last;
	}
      }
      if (defined($fw)) {
#	print "get_frameworks pushes $fw on stack\n";
	push @frameworks, $fw;
      }
    } 
  }
 @frameworks;
}

$app = $ARGV[0];
$appdir = $app.".app";
if ($appdir =~ /\.app\.app/) {
  $appdir = $ARGV[0];
}
$exec = $appdir."/Contents/MacOS/$app";

@frameworks = get_frameworks( $exec );

#for $f (@frameworks) {
#  print "$f\n";
#}

# copy all frameworks to appdir/frameworks

system ("mkdir $appdir/Contents/Frameworks");
for $fw (@frameworks) {
   system "cp -R /Library/Frameworks/$fw $appdir/Contents/Frameworks/.";
}


# set identification names for the frameworks

for $fw (@frameworks) {
   $lib = $fw; $lib =~ s/\.framework//g;
   system "install_name_tool -id \@executable_path/../Frameworks/$fw/Versions/4.0/$lib $appdir/Contents/Frameworks/$fw/Versions/4.0/$lib";

   
   # tell dynamic linker where to look for the frameworks
   system "install_name_tool -change $fw/Versions/4/$lib \@executable_path/../Frameworks/$fw/Versions/4.0/$lib $appdir/Contents/MacOs/$app";
   
}


# now, set the frameworks' reciprocal dependencies right
for $fw (@frameworks) {
  $lib = $fw; $lib =~ s/\.framework//g;
  my @frameworks_of_fw = get_frameworks ( "$appdir/Contents/Frameworks/$fw/Versions/4.0/$lib" );
  for $fwfw (@frameworks_of_fw) {
#    print "$fwfw\n";
    $liblib = $fwfw; $liblib =~ s/\.framework//g;    
     system "install_name_tool -change $fwfw/Versions/4/$liblib \@executable_path/../Frameworks/$fwfw/Versions/4.0/$liblib  $appdir/Contents/Frameworks/$fw/Versions/4.0/$lib";
  }
}

# do the same for additional libs not in a framework depending on frameworks (e.g. libqwt...)
@additionallibs = ( "libqwt.dylib" );

for $lib (@additionallibs) {
  my @frameworks_of_lib = get_frameworks ( "$appdir/Contents/Frameworks/$lib" );
  for $fwfw (@frameworks_of_lib) {
    #    print "$fwfw\n";
    $liblib = $fwfw; $liblib =~ s/\.framework//g;    
    system "install_name_tool -change $fwfw/Versions/4/$liblib \@executable_path/../Frameworks/$fwfw/Versions/4.0/$liblib  $appdir/Contents/Frameworks/$lib";
  }
}
