module Alchemy::Custom::Model::ElFinder
  module Paths
    class Base

      attr_reader :root, :path, :volume

      #
      def initialize(root, path = '.', opts = {})

        Rails.logger.debug {root.inspect}
        Rails.logger.debug {path.inspect}

        @volume = opts.delete(:volume)

        @root = root.is_a?(PathName) ? root.root : ::Pathname.new(root)

        @path = ::Pathname.new(path)
        @path = path.is_a?(PathName) ? path.path : ::Pathname.new(path)
        if absolute?
          if @path.cleanpath.to_s.start_with?(@root.to_s)
            @path = ::Pathname.new @path.to_s.slice((@root.to_s.length + 1)..-1)
          elsif @path.cleanpath.to_s.start_with?(@root.realpath.to_s)
            @path = ::Pathname.new @path.to_s.slice((@root.realpath.to_s.length + 1)..-1)
          else
            raise SecurityError, "Absolute paths are not allowed"
          end
        end
        raise SecurityError, "Paths outside the root are not allowed" if outside_of_root?

      end

      # of initialize

      #
      # def +(other)
      #   if other.is_a? ::ElFinder::Pathname
      #     other = other.path
      #   end
      #   self.class.new(@root, (@path + other).to_s)
      # end

      # of +

      #
      def is_root?
        Rails.logger.debug {"IS_ROOT?:#{@path} - #{  @path.to_s == '.'}"}
        @path.to_s == '.'
      end

      #
      def absolute?
        @path.absolute?
      end

      # of absolute?

      #
      def relative?
        @path.relative?
      end

      # of relative?

      #
      def outside_of_root?
        !cleanpath.to_s.start_with?(@root.to_s)
      end

      # of outside_of_root?

      #
      def fullpath
        @path.nil? ? @root : @root + @path
      end

      # of fullpath

      #
      def cleanpath
        fullpath.cleanpath
      end

      # of cleanpath

      #
      def realpath
        fullpath
      end

      # of realpath

      #
      def basename(*args)
        @path.basename(*args)
      end

      # of basename

      #
      def basename_sans_extension
        @path.basename(@path.extname)
      end

      # of basename

      #
      def basename(*args)
        Rails.logger.debug {"BASE_NAME:#{@path.inspect}"}
        @path.basename(*args)
      end

      # of basename

      #
      def dirname
        self.class.new(@root, @path.dirname, volume: @volume)
      end

      # of basename

      #
      def extname
        @path.nil? ? '' : @path.extname
      end

      # of extname

      #
      def to_s
        cleanpath.to_s
      end

      # of to_s
      alias_method :to_str, :to_s

      #
      def child_directories(with_directory = true)
        realpath.children(with_directory).select {|child| child.directory?}.map {|e| self.class.new(@root, e, volume: @volume)}
      end

      #
      # def children(with_directory = true)
      #   realpath.children(with_directory).map {|e| self.class.new(@root, e)}
      # end

      #
      # def touch(options = {})
      #   FileUtils.touch(cleanpath, options)
      # end

      #
      def relative_to(other)
        @path.relative_path_from(other)
      end

      #
      def unique
        return self.dup unless self.file?
        copy = 1
        begin
          new_file = self.class.new(@root, dirname + "#{basename_sans_extension} #{copy}#{extname}", volume: @volume)
          copy += 1
        end while new_file.exist?
        new_file
      end

      # of unique

      #
      def duplicate
        _basename = basename_sans_extension
        copy = 1
        if _basename.to_s =~ /^(.*) copy (\d+)$/
          _basename = $1
          copy = $2.to_i
        end
        begin
          new_file = self.class.new(@root, dirname + "#{_basename} copy #{copy}#{extname}", volume: @volume)
          copy += 1
        end while new_file.exist?
        new_file
      end

      # of duplicate

      #
      def rename(to)
        to = self.class.new(@root, to.to_s, volume: @volume)
        realpath.rename(to.fullpath.to_s)
      rescue Errno::EXDEV
        FileUtils.move(realpath.to_s, to.fullpath.to_s)
      ensure
        @path = to.path
      end

      # of rename

      # {
      #   'directory?' => {:path => 'realpath', :rescue => true},
      #   'exist?' => {:path => 'realpath', :rescue => true},
      #   'file?' => {:path => 'realpath', :rescue => true},
      #   'ftype' => {:path => 'realpath', },
      #   'mkdir' => {:path => 'fullpath', :args => '(*args)'},
      #   'mtime' => {:path => 'realpath', },
      #   'open' => {:path => 'fullpath', :args => '(*args, &block)'},
      #   'read' => {:path => 'fullpath', :args => '(*args)'},
      #   'readlink' => {:path => 'fullpath', },
      #   'readable?' => {:path => 'realpath', :rescue => true},
      #   'size' => {:path => 'realpath', },
      #   'symlink?' => {:path => 'fullpath', },
      #   'unlink' => {:path => 'realpath', },
      #   'writable?' => {:path => 'realpath', :rescue => true},
      # }.each_pair do |meth, opts|
      #   class_eval <<-METHOD, __FILE__, __LINE__ + 1
      # def #{meth}#{opts[:args]}
      #   #{opts[:path]}.#{meth}#{opts[:args]}
      #   #{"rescue Errno::ENOENT\nfalse" if opts[:rescue]}
      # end
      #   METHOD
      # end

      #
      def file?
        false
      end

      def is_image?
        false
      end

      def directory?
        true
      end

      # def is_root?
      #   false
      # end
      #
      def with_sub_dirs?
        false
      end

      #
      # def basename
      #   ''
      # end
      #
      # def parent_path
      #   self.root
      # end
      #
      # def path
      #   File.join(self.root, basename)
      # end
      #
      # ##
      # # Data Di modifica della cartella
      def mtime
        DateTime.now
      end

      #
      def children(with_directory = true)
        []
      end

      #
      # url per la thumb
      def tmb
        nil
      end

      ##
      # Nome visualizzato in interfaccia
      def name
        self.basename.to_s
      end

      def mime_type
        'directory'
      end

      def fisical_path
        ''
      end

      def global_id
        nil
      end

      def full_fill_paylod(payload)
        payload
      end

    end
  end
end