// Copyright (c) 2019 PaddlePaddle Authors. All Rights Reserved.
//
// Licensed under the Apache License, Version 2.0 (the "License");
// you may not use this file except in compliance with the License.
// You may obtain a copy of the License at
//
//     http://www.apache.org/licenses/LICENSE-2.0
//
// Unless required by applicable law or agreed to in writing, software
// distributed under the License is distributed on an "AS IS" BASIS,
// WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
// See the License for the specific language governing permissions and
// limitations under the License.

#include "lite/api/cxx_api.h"
#include <memory>
#include <mutex>  //NOLINT
#include <string>
#include "lite/api/paddle_api.h"
#include "lite/core/device_info.h"
#include "lite/core/version.h"

#ifndef LITE_ON_TINY_PUBLISH
#include "lite/api/paddle_use_passes.h"
#endif
#ifdef LITE_WITH_CUDA
#include "lite/backends/cuda/cuda_utils.h"
#endif
#if (defined LITE_WITH_X86) && (defined PADDLE_WITH_MKLML) && \
    !(defined LITE_ON_MODEL_OPTIMIZE_TOOL) && !defined(__APPLE__)
#include <omp.h>
#include "lite/backends/x86/mklml.h"
#endif
namespace paddle {
namespace lite {

void CxxPaddleApiImpl::Init(const lite_api::CxxConfig &config) {
  config_ = config;
  config_.check_valid();
  auto places = config.valid_places();
  std::vector<std::string> passes = config.get_passes_internal();
#ifdef LITE_WITH_CUDA
  // if kCUDA is included in valid places, it should be initialized first,
  // otherwise skip this step.
  for (auto &p : places) {
    if (p.target == TARGET(kCUDA)) {
      InitCudaEnv(&passes);
      break;
    }
  }
#endif

  if (!status_is_cloned_) {
#ifdef LITE_WITH_MLU
    Env<TARGET(kMLU)>::Init();
    lite::TargetWrapperMlu::SetMLURunMode(config.mlu_core_version(),
                                          config.mlu_core_number(),
                                          config.mlu_input_layout(),
                                          config.mlu_firstconv_param());
#endif  // LITE_WITH_MLU
    auto use_layout_preprocess_pass =
        config.model_dir().find("OPENCL_PRE_PRECESS");
    VLOG(1) << "use_layout_preprocess_pass:" << use_layout_preprocess_pass;
    if (places[0].target == TARGET(kOpenCL) &&
        use_layout_preprocess_pass != std::string::npos) {
      passes = {"type_layout_cast_preprocess_pass"};
      VLOG(1) << "add pass:" << passes[0];
    }
    raw_predictor_->Build(config, places, passes);
  } else {
    raw_predictor_->PrepareFeedFetch();
    CHECK(raw_predictor_) << "The Predictor can not be nullptr in Clone mode.";
  }

  mode_ = config.power_mode();
  threads_ = config.threads();
#ifdef LITE_WITH_NPU
  // Store the model-level configuration into scope for kernels, and use
  // exe_scope to store the execution-level configuration
  Context<TargetType::kNPU>::SetSubgraphModelCacheDir(
      raw_predictor_->scope(), config.subgraph_model_cache_dir());
#endif
#if (defined LITE_WITH_X86) && (defined PADDLE_WITH_MKLML) && \
    !(defined LITE_ON_MODEL_OPTIMIZE_TOOL)
  int num_threads = config.x86_math_library_num_threads();
  int real_num_threads = num_threads > 1 ? num_threads : 1;
  paddle::lite::x86::MKL_Set_Num_Threads(real_num_threads);
  omp_set_num_threads(real_num_threads);
  VLOG(3) << "set_x86_math_library_math_threads() is set successfully and the "
             "number of threads is:"
          << real_num_threads;
#endif
}

#ifdef LITE_WITH_CUDA
void CxxPaddleApiImpl::InitCudaEnv(std::vector<std::string> *passes) {
  Env<TARGET(kCUDA)>::Init();

  // init two streams for each predictor.
  if (config_.cuda_exec_stream()) {
    cuda_exec_stream_.reset(
        new lite::CudaStreamGuard(*config_.cuda_exec_stream()));
  } else {
    cuda_exec_stream_.reset(new lite::CudaStreamGuard());
  }
  if (config_.cuda_io_stream()) {
    cuda_io_stream_.reset(new lite::CudaStreamGuard(*config_.cuda_io_stream()));
  } else {
    cuda_io_stream_.reset(new lite::CudaStreamGuard());
  }

  raw_predictor_->set_cuda_exec_stream(cuda_exec_stream_->stream());
  raw_predictor_->set_cuda_io_stream(cuda_io_stream_->stream());

  // init sync events.
  if (config_.cuda_use_multi_stream()) {
    cuda_use_multi_stream_ = true;
    raw_predictor_->set_cuda_use_multi_stream(cuda_use_multi_stream_);
    passes->push_back("multi_stream_analysis_pass");
    VLOG(3) << "add pass: " << (*passes)[0];
    Env<TargetType::kCUDA>::Devs &devs = Env<TargetType::kCUDA>::Global();
    int dev_id = TargetWrapperCuda::GetCurDevice();
    for (size_t i = 0; i < lite::kMaxStream; ++i) {
      cuda_exec_streams_.emplace_back(devs[dev_id].exec_streams()[i]);
      cudaEvent_t out_event;
      TargetWrapperCuda::CreateEventWithFlags(&out_event);
      cuda_output_events_.push_back(out_event);
    }
  } else {
    cudaEvent_t out_event;
    TargetWrapperCuda::CreateEventWithFlags(&out_event);
    cuda_output_events_.push_back(out_event);
  }
  TargetWrapperCuda::CreateEventWithFlags(&cuda_input_event_);
}

void CxxPaddleApiImpl::SyncCudaInputs() {
  TargetWrapperCuda::RecordEvent(cuda_input_event_, *cuda_io_stream_->stream());
  if (cuda_use_multi_stream_) {
    for (int i = 0; i < lite::kMaxStream; ++i) {
      TargetWrapperCuda::StreamSync(*cuda_exec_streams_[i].stream(),
                                    cuda_input_event_);
    }
  } else {
    TargetWrapperCuda::StreamSync(*cuda_exec_stream_->stream(),
                                  cuda_input_event_);
  }
}

void CxxPaddleApiImpl::SyncCudaOutputs() {
  if (cuda_use_multi_stream_) {
    for (size_t i = 0; i < cuda_output_events_.size(); ++i) {
      TargetWrapperCuda::RecordEvent(cuda_output_events_[i],
                                     *cuda_exec_streams_[i].stream());
      TargetWrapperCuda::StreamSync(*cuda_io_stream_->stream(),
                                    cuda_output_events_[i]);
    }
  } else {
    TargetWrapperCuda::RecordEvent(cuda_output_events_[0],
                                   *cuda_exec_stream_->stream());
    TargetWrapperCuda::StreamSync(*cuda_io_stream_->stream(),
                                  cuda_output_events_[0]);
  }
}
#endif

std::unique_ptr<lite_api::Tensor> CxxPaddleApiImpl::GetInput(int i) {
  auto *x = raw_predictor_->GetInput(i);
#ifdef LITE_WITH_CUDA
  return std::unique_ptr<lite_api::Tensor>(
      new lite_api::Tensor(x, *cuda_io_stream_->stream()));
#else
  return std::unique_ptr<lite_api::Tensor>(new lite_api::Tensor(x));
#endif
}

std::unique_ptr<const lite_api::Tensor> CxxPaddleApiImpl::GetOutput(
    int i) const {
  const auto *x = raw_predictor_->GetOutput(i);
#ifdef LITE_WITH_CUDA
  return std::unique_ptr<lite_api::Tensor>(
      new lite_api::Tensor(x, *cuda_io_stream_->stream()));
#else
  return std::unique_ptr<lite_api::Tensor>(new lite_api::Tensor(x));
#endif
}

std::vector<std::string> CxxPaddleApiImpl::GetInputNames() {
  return raw_predictor_->GetInputNames();
}

std::vector<std::string> CxxPaddleApiImpl::GetParamNames() {
  return raw_predictor_->GetParamNames();
}

std::vector<std::string> CxxPaddleApiImpl::GetOutputNames() {
  return raw_predictor_->GetOutputNames();
}

void CxxPaddleApiImpl::Run() {
#ifdef LITE_WITH_ARM
  lite::DeviceInfo::Global().SetRunMode(mode_, threads_);
#endif
#ifdef LITE_WITH_CUDA
  SyncCudaInputs();
#endif

  raw_predictor_->Run();

#ifdef LITE_WITH_CUDA
  SyncCudaOutputs();
#endif
}

std::shared_ptr<lite_api::PaddlePredictor> CxxPaddleApiImpl::Clone() {
  std::lock_guard<std::mutex> lock(mutex_);
  auto predictor =
      std::make_shared<lite::CxxPaddleApiImpl>(raw_predictor_->Clone());
  predictor->Init(config_);
  return predictor;
}

std::shared_ptr<lite_api::PaddlePredictor> CxxPaddleApiImpl::Clone(
    const std::vector<std::string> &var_names) {
  std::lock_guard<std::mutex> lock(mutex_);
  auto predictor = std::make_shared<lite::CxxPaddleApiImpl>(
      raw_predictor_->Clone(var_names));
  predictor->Init(config_);
  return predictor;
}

std::string CxxPaddleApiImpl::GetVersion() const { return version(); }

std::unique_ptr<const lite_api::Tensor> CxxPaddleApiImpl::GetTensor(
    const std::string &name) const {
  auto *x = raw_predictor_->GetTensor(name);
  return std::unique_ptr<const lite_api::Tensor>(new lite_api::Tensor(x));
}

std::unique_ptr<lite_api::Tensor> CxxPaddleApiImpl::GetMutableTensor(
    const std::string &name) {
  return std::unique_ptr<lite_api::Tensor>(
      new lite_api::Tensor(raw_predictor_->GetMutableTensor(name)));
}

std::unique_ptr<lite_api::Tensor> CxxPaddleApiImpl::GetInputByName(
    const std::string &name) {
  return std::unique_ptr<lite_api::Tensor>(
      new lite_api::Tensor(raw_predictor_->GetInputByName(name)));
}

void CxxPaddleApiImpl::SaveOptimizedModel(const std::string &model_dir,
                                          lite_api::LiteModelType model_type,
                                          bool record_info) {
  raw_predictor_->SaveModel(model_dir, model_type, record_info);
}

CxxPaddleApiImpl::~CxxPaddleApiImpl() {
#ifdef LITE_WITH_CUDA
  TargetWrapperCuda::DestroyEvent(cuda_input_event_);
  for (size_t i = 0; i < cuda_output_events_.size(); ++i) {
    TargetWrapperCuda::DestroyEvent(cuda_output_events_[i]);
  }
#endif
}

}  // namespace lite

namespace lite_api {

template <>
std::shared_ptr<PaddlePredictor> CreatePaddlePredictor(
    const CxxConfig &config) {
  auto x = std::make_shared<lite::CxxPaddleApiImpl>();
  x->Init(config);
  return x;
}

}  // namespace lite_api
}  // namespace paddle
