#!/System/Library/Frameworks/Ruby.framework/Versions/1.8/usr/bin/ruby -W0

# This script is called by formula_installer as a separate instance.
# Rationale: Formula can use __END__, Formula can change ENV
# Thrown exceptions are propogated back to the parent process over a pipe

STD_TRAP = trap("INT") { exit! 130 } # no backtrace thanks

at_exit do
  # the whole of everything must be run in at_exit because the formula has to
  # be the run script as __END__ must work for *that* formula.
  main
end

require 'global'

def main
  # The main Homebrew process expects to eventually see EOF on the error
  # pipe in FormulaInstaller#build. However, if any child process fails to
  # terminate (i.e, fails to close the descriptor), this won't happen, and
  # the installer will hang. Set close-on-exec to prevent this.
  # Whether it is *wise* to launch daemons from formulae is a separate
  # question altogether.
  if ENV['HOMEBREW_ERROR_PIPE']
    require 'fcntl'
    error_pipe = IO.new(ENV['HOMEBREW_ERROR_PIPE'].to_i, 'w')
    error_pipe.fcntl(Fcntl::F_SETFD, Fcntl::FD_CLOEXEC)
  end

  raise $! if $! # an exception was already thrown when parsing the formula

  trap("INT", STD_TRAP) # restore default CTRL-C handler

  require 'hardware'
  require 'keg'

  # Force any future invocations of sudo to require the user's password to be
  # re-entered. This is in-case any build script call sudo. Certainly this is
  # can be inconvenient for the user. But we need to be safe.
  system "/usr/bin/sudo -k"

  install(Formula.factory($0))
rescue Exception => e
  unless error_pipe.nil?
    Marshal.dump(e, error_pipe)
    error_pipe.close
    exit! 1
  else
    onoe e
    puts e.backtrace
    exit! 2
  end
end

def pre_superenv_hacks f
  # TODO replace with Formula DSL
  # Python etc. build but then pip can't build stuff.
  # Scons resets ENV and then can't find superenv's build-tools.
  # In some cases we should only apply in the case of an option I suggest the
  # following:
  #
  # option 'with-passenger' do
  #   env :userpaths  # for superenv
  # end
  # option 'without-foo' do
  #  env :std, :x11
  # end
  #
  # NOTE I think all ENV stuff should be specified with a DSL like this now.
  case f.name
  when 'lilypond', 'nginx'
    paths = ORIGINAL_PATHS.map{|pn| pn.realpath.to_s rescue nil } - %w{/usr/X11/bin /opt/X11/bin}
    ENV['PATH'] = "#{ENV['PATH']}:#{paths.join(':')}"
  end
  stdenvs = %w{fontforge python python3 ruby ruby-enterprise-edition jruby wine}
  ARGV.unshift '--env=std' if (stdenvs.include?(f.name) or
    f.recursive_deps.detect{|d| d.name == 'scons' }) and
    not ARGV.include? '--env=super'
end

def install f
  keg_only_deps = f.recursive_deps.uniq.select{|dep| dep.keg_only? }

  pre_superenv_hacks(f)
  require 'superenv'

  ENV.setup_build_environment unless superenv?

  keg_only_deps.each do |dep|
    opt = HOMEBREW_PREFIX/:opt/dep.name
    fixopt(dep) unless opt.directory?
    if not superenv?
      ENV.prepend_path 'PATH', "#{opt}/bin"
      ENV.prepend_path 'PKG_CONFIG_PATH', "#{opt}/lib/pkgconfig"
      ENV.prepend_path 'PKG_CONFIG_PATH', "#{opt}/share/pkgconfig"
      ENV.prepend_path 'ACLOCAL_PATH', "#{opt}/share/aclocal"
      ENV.prepend_path 'CMAKE_PREFIX_PATH', opt
      ENV.prepend 'LDFLAGS', "-L#{opt}/lib" if (opt/:lib).directory?
      ENV.prepend 'CPPFLAGS', "-I#{opt}/include" if (opt/:include).directory?
    end
  end

  if superenv?
    ENV.deps = keg_only_deps.map(&:to_s)
    ENV.x11 = f.requirements.detect{|rq| rq.class == X11Dependency }
    ENV.setup_build_environment
  end

  f.recursive_requirements.each { |req| req.modify_build_environment }

  if f.fails_with? ENV.compiler
    cs = CompilerSelector.new f
    cs.select_compiler
    cs.advise
  end

  f.brew do
    if ARGV.flag? '--git'
      system "git init"
      system "git add -A"
    end
    if ARGV.flag? '--interactive'
      ohai "Entering interactive mode"
      puts "Type `exit' to return and finalize the installation"
      puts "Install to this prefix: #{f.prefix}"

      if ARGV.flag? '--git'
        puts "This directory is now a git repo. Make your changes and then use:"
        puts "  git diff | pbcopy"
        puts "to copy the diff to the clipboard."
      end

      interactive_shell f
      nil
    else
      f.prefix.mkpath
      f.install
      FORMULA_META_FILES.each do |filename|
        next if File.directory? filename
        target_file = filename
        target_file = "#{filename}.txt" if File.exists? "#{filename}.txt"
        # Some software symlinks these files (see help2man.rb)
        target_file = Pathname.new(target_file).resolved_path
        f.prefix.install target_file => filename rescue nil
        (f.prefix+file).chmod 0644 rescue nil
      end
    end
  end
end

def fixopt f
  path = if f.linked_keg.directory? and f.linked_keg.symlink?
    f.linked_keg.readlink
  elsif f.prefix.directory?
    f.prefix
  elsif (kids = f.rack.children).size == 1
    kids.first
  else
    raise
  end
  Keg.new(path).optlink
rescue StandardError
  "#{f.opt_prefix} not present or broken\nPlease reinstall #{f}. Sorry :("
end