# -*- coding: utf-8 -*-
#
# Copyright 2013 whiteleaf. All rights reserved.
#

require "fileutils"
require "memoist"
require_relative "narou"
require_relative "helper"

class Device
  #
  # デバイスの栞をバックアップするときに使う時に include する
  #
  module BackupBookmarkUtility
    extend Memoist

    # 栞データを管理するディレクトリのパスを取得
    def get_storage_path
      File.join(Narou.get_misc_dir, "bookmark", @name)
    end
    memoize :get_storage_path
  end

  case Helper.determine_os
  when :windows
    require_relative "device/library/windows"
    extend Device::Library::Windows
  when :cygwin
    require_relative "device/library/cygwin"
    extend Device::Library::Cygwin
  when :mac
    require_relative "device/library/mac"
    extend Device::Library::Mac
  else
    require_relative "device/library/linux"
    extend Device::Library::Linux
  end

  attr_reader :name, :ebook_file_ext, :display_name

  DEVICES = {}.tap do |h|
    [Narou.get_root_dir, File.dirname(__FILE__)].each do |dir|
      next unless dir   # narou init 前だと get_root_dir は nil
      Dir.glob(File.join(dir, "device", "*.rb")).each do |path|
        name = File.basename(path, ".rb")
        unless h[name]
          if Helper.os_windows?
            # パスにマルチバイト文字が使われる可能性があるのでrequireは使えない
            eval(File.read(path, encoding: Encoding::UTF_8), binding, path)
          else
            require path
          end
          h[name] = Device.const_get(name.capitalize)
        end
      end
    end
  end

  class UnknownDevice < StandardError; end
  class SendFailure < StandardError; end
  class DontConneting < StandardError; end
  class CantEject < StandardError; end

  def self.exists?(device)
    DEVICES.include?(device.downcase)
  end

  def self.create(device_name)
    @@device_cache ||= {}
    name = device_name.downcase
    return @@device_cache[name] ||= new(name)
  end

  private_class_method :new

  def initialize(device_name)
    unless Device.exists?(device_name)
      raise UnknownDevice, "#{device_name} という端末は存在しません"
    end
    @device_module = DEVICES[device_name.downcase]
    @name = @device_module::NAME
    @display_name = @device_module::DISPLAY_NAME
    @ebook_file_ext = @device_module::EBOOK_FILE_EXT
    create_device_check_methods
  end

  def connecting?
    physical_support? && !!get_documents_path
  end

  def eject
    if ejectable?
      begin
        Device.eject(@device_module::VOLUME_NAME)
      rescue CantEject => e
        error e.message
      end
    end
  end

  def self.support_eject?
    respond_to?(:eject)
  end

  def ejectable?
    Device.support_eject? && connecting?
  end

  def find_documents_directory(device_root_dir)
    @device_module::DOCUMENTS_PATH_LIST.each do |documents_path|
      documents_directory = File.join(device_root_dir, documents_path)
      return documents_directory if File.directory?(documents_directory)
    end
    nil
  end

  def get_documents_path
    if Device.respond_to?(:get_device_root_dir)
      dir = Device.get_device_root_dir(@device_module::VOLUME_NAME)
      if dir
        return find_documents_directory(dir)
      end
    end
    nil
  end

  def ebook_file_old?(src_file)
    documents_path = get_documents_path
    if documents_path
      dst_path = File.join(documents_path, File.basename(src_file))
      if File.exist?(dst_path)
        return File.mtime(src_file) > File.mtime(dst_path)
      end
    end
    true
  end

  def copy_to_documents(src_file)
    documents_path = get_documents_path
    if documents_path
      dst_path = File.join(documents_path, File.basename(src_file))
      # Rubyでコピーするのは遅いのでOSのコマンドを叩く
      case Helper.determine_os
      when :windows
        cmd = "copy /B " + %!"#{src_file}" "#{dst_path}"!.gsub("/", "\\").encode(Encoding::Windows_31J)
        res = Helper::AsyncCommand.exec(cmd)
        unless res[2].success?
          raise SendFailure, res[1].force_encoding(Encoding::Windows_31J).encode(Encoding::UTF_8).rstrip
        end
      else
        res = Helper::AsyncCommand.exec(%!cp "#{src_file}" "#{dst_path}"!)
        unless res[2].success?
          # cp コマンドで送信失敗するとファイルがぶっ壊れたり０バイトのファイルが作られる
          # ので一旦削除しておく
          File.delete(dst_path) if File.exist?(dst_path)
          raise SendFailure, res[1].rstrip
        end
      end
      if Narou.economy?("send_delete")
        FileUtils.rm_f(src_file)
      end
      dst_path
    else
      nil
    end
  rescue SendFailure => e
    puts
    error $@.shift + ": #{e.message} (#{e.class})"
    exit Narou::EXIT_ERROR_CODE
  end

  def physical_support?
    @device_module::PHYSICAL_SUPPORT
  end

  def get_hook_module
    @device_module
  end

  def get_relative_variables
    if @device_module.const_defined?(:RELATED_VARIABLES)
      @device_module::RELATED_VARIABLES
    else
      {}
    end
  end

  def create_device_check_methods
    DEVICES.keys.each do |name|
      instance_eval <<-EOS
        def #{name}?
          #{@name.downcase == name}
        end
      EOS
    end
  end
  private :create_device_check_methods
end