#
# Copyright (C) 2013 Christian Meier
#
# Permission is hereby granted, free of charge, to any person obtaining a copy of
# this software and associated documentation files (the "Software"), to deal in
# the Software without restriction, including without limitation the rights to
# use, copy, modify, merge, publish, distribute, sublicense, and/or sell copies of
# the Software, and to permit persons to whom the Software is furnished to do so,
# subject to the following conditions:
#
# The above copyright notice and this permission notice shall be included in all
# copies or substantial portions of the Software.
#
# THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
# IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, FITNESS
# FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR
# COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER
# IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN
# CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
#
unless defined? JRUBY_VERSION
#  require 'java'
  require 'maven/tools/model'
  require 'maven/tools/pom'
end
require 'maven/tools/visitor'
require 'fileutils'
require 'tesla_maven'

module Maven
  module Ruby
    class Maven

      attr_accessor :embedded

      private

      def launch_jruby_embedded(args)
        p File.expand_path '.'
        p java.lang.System.getProperty( 'user.dir' )
        classloader = self.class.class_world.get_realm( 'plexus.core' )
        
        cli = classloader.load_class( 'org.apache.maven.cli.PolyglotMavenCli' )

        a = java.util.ArrayList.new
        args.each { |arg| a << arg.to_s }
        unless org.apache.maven.cli.PolyglotMavenCli.main( a, self.class.class_world )
          raise 'error executing maven'
        end
      end

      def launch_jruby(args)
        java.lang.System.setProperty( "classworlds.conf",
                                      TeslaMaven.bin( "m2.conf" ) )

        java.lang.System.setProperty( 'maven.home', TeslaMaven.maven_home )
        java.lang.System.setProperty( 'tesla.ext', TeslaMaven.ext )
        java.lang.System.setProperty( 'tesla.lib', TeslaMaven.lib )
        # loading here is needed to let tesla-ruby find jruby on
        # classloader, though m2.conf does load those libs as well
        self.class.require_classpath( TeslaMaven.maven_boot )
        self.class.require_classpath( TeslaMaven.maven_lib )
        self.class.require_classpath( TeslaMaven.lib )
        # NOTE that execution will call System.exit on the java side
        org.codehaus.plexus.classworlds.launcher.Launcher.main( args )
      end

      def self.class_world
        @class_world ||= class_world!
      end

      def self.class_world!
        require_classpath( TeslaMaven.ext )
        require_classpath( TeslaMaven.lib )
        require_classpath( TeslaMaven.maven_boot )
        require_classpath( TeslaMaven.maven_lib )
        org.codehaus.plexus.classworlds.ClassWorld.new( "plexus.core",
                                                        java.lang.Thread.currentThread().getContextClassLoader())
      end

      def self.classpath_array( dir )
        Dir.glob( File.join( dir, "*jar" ) )
      end

      def self.require_classpath( dir )
        classpath_array( dir ).each do |jar|
          require jar
        end
      end

      def adjust_args( args )
        if ! defined?( JRUBY_VERSION ) &&
           ( args.index( '-f' ) || args.index( '--file' ) ).nil?

          pom = ::Maven::Tools::POM.new
          pom_file = '.pom.xml'
          if pom.to_file( pom_file )
            args = args + [ '-f', pom_file ]
          else
            args
          end
        else
          args
        end
      end

      def launch_java(*args)
        # TODO works only on unix like OS
        result = system "java -cp #{self.class.classpath_array( ::Maven.boot ).join(':')} -Dmaven.home=#{::Maven.home} -Dclassworlds.conf=#{::Maven.bin( 'm2.conf' )} org.codehaus.plexus.classworlds.launcher.Launcher #{args.join ' '}"

        if @embedded and not result
          raise 'error in executing maven'
        else
          result
        end
      end

      def options_array
        options.collect do |k,v|
          if k =~ /^-D/
            v = "=#{v}" unless v.nil?
            "#{k}#{v}"
          else
            if v.nil?
              "#{k}"
            else
              ["#{k}", "#{v}"]
            end
          end
        end.flatten
      end
      private :options_array

      public

      def self.class_world
        @class_world ||= class_world!
      end

      def initialize( project = nil, temp_pom = nil )
        super()
        if project
          f = File.expand_path( temp_pom || '.pom.xml' )
          v = ::Maven::Tools::Visitor.new( File.open( f, 'w' ) )
          # parse block and write out to temp_pom file
          v.accept_project( project )
          # tell maven to use the generated file
          options[ '-f' ] = f
          @embedded = true
        end
      end

      def options
        @options ||= {}
      end

      def verbose= v
        @verbose = v
      end

      def property(key, value = nil)
        options["-D#{key}"] = value
      end

      def verbose
        if @verbose.nil?
          @verbose = options.delete('-Dverbose').to_s != 'false'
        else
          @verbose
        end
      end

      def exec(*args)
        a = args.dup + options_array
        a = adjust_args( a.flatten )
        if a.delete( '-Dverbose=true' ) || a.delete( '-Dverbose' ) || verbose
          puts "mvn #{a.join(' ')}"
        end
        if defined? JRUBY_VERSION
          if @embedded
            puts "using jruby #{JRUBY_VERSION} embedded invokation" if verbose
            launch_jruby_embedded(a)            
          else
            puts "using jruby #{JRUBY_VERSION} invokation" if verbose
            launch_jruby(a)
          end
        else
          puts "using java invokation" if verbose
          launch_java(a)
        end
      end

      def method_missing( method, *args )
        method = method.to_s.gsub( /_/, '-' ).to_sym
        exec( [ method ] + args )
      end
    end
  end
end