/* Copyright (C) 2014 InfiniDB, Inc.
   Copyright (C) 2016 MariaDB Corporation

   This program is free software; you can redistribute it and/or
   modify it under the terms of the GNU General Public License
   as published by the Free Software Foundation; version 2 of
   the License.

   This program is distributed in the hope that it will be useful,
   but WITHOUT ANY WARRANTY; without even the implied warranty of
   MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
   GNU General Public License for more details.

   You should have received a copy of the GNU General Public License
   along with this program; if not, write to the Free Software
   Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston,
   MA 02110-1301, USA. */

/***************************************************************************
 *
 *   $Id: blockrequestprocessor.cpp 2055 2013-02-08 19:09:09Z pleblanc $
 *
 *   jrodriguez@calpont.com   *
 *                                                                         *
 ***************************************************************************/

#include <sys/time.h>
#include <sstream>
#include <string>
#include <list>
using namespace std;

#include "blockrequestprocessor.h"
#include "rwlock_local.h"
#include "dbrm.h"
#include "pp_logger.h"
#include "mcsconfig.h"

namespace dbbc
{
BlockRequestProcessor::BlockRequestProcessor(uint32_t numBlcks, int thrCount, int blocksPerRead,
                                             uint32_t deleteBlocks, uint32_t blckSz)
 : fbMgr(numBlcks, blckSz, deleteBlocks), fIOMgr(fbMgr, fBRPRequestQueue, thrCount, blocksPerRead)
{
  // pthread_mutex_init(&check_mutex, NULL);
  config::Config* fConfig = config::Config::makeConfig();
  string val = fConfig->getConfig("DBBC", "BRPTracing");
  int temp = 0;
#ifdef _MSC_VER
  int tid = GetCurrentThreadId();
#else
  pthread_t tid = pthread_self();
#endif

  if (val.length() > 0)
    temp = static_cast<int>(config::Config::fromText(val));

  if (temp > 0)
    fTrace = true;
  else
    fTrace = false;

  if (fTrace)
  {
    ostringstream brpLogFileName;
#ifdef _MSC_VER
    brpLogFileName << "C:/Calpont/log/trace/brp." << tid;
#else
    brpLogFileName << MCSLOGDIR << "/trace/brp." << tid;
#endif
    fLogFile.open(brpLogFileName.str().c_str(), ios_base::app | ios_base::ate);
  }
}

BlockRequestProcessor::~BlockRequestProcessor()
{
  // pthread_mutex_destroy(&check_mutex);
  if (fTrace)
    fLogFile.close();
}

void BlockRequestProcessor::stop()
{
  fBRPRequestQueue.stop();
  fIOMgr.stop();
}

int BlockRequestProcessor::check(const BRM::InlineLBIDRange& range, const BRM::QueryContext& ver,
                                 const BRM::VER_t txn, const int compType, uint32_t& lbidCount)
{
  uint64_t maxLbid = range.start;  // highest existent lbid
  uint64_t rangeLen = range.size;
  uint64_t idx;
  uint64_t adjSz;
  struct timespec start_tm;
  lbidCount = 0;

  if (fTrace)
    clock_gettime(CLOCK_MONOTONIC, &start_tm);

  for (idx = 0; fbMgr.exists(maxLbid, ver.currentScn) == true && idx < rangeLen; maxLbid++, idx++)
    (void)0;

  if (idx == rangeLen)  // range is already loaded
  {
    if (fTrace)
    {
      uint16_t dbroot;
      uint32_t partNum;
      uint16_t segNum;
      uint32_t fbo;
      BRM::OID_t oid;
      fdbrm.lookupLocal(maxLbid, ver.currentScn, false, oid, dbroot, partNum, segNum, fbo);
      fLogFile << oid << " " << maxLbid << " " << fbo << " " << rangeLen << " " << 0 << " " << 0 << " " << 0
               << " " << right << fixed << ((double)(start_tm.tv_sec + (1.e-9 * start_tm.tv_nsec))) << endl;
    }

    return 0;
  }

  adjSz = rangeLen - idx;
  BRM::InlineLBIDRange adjRange;
  adjRange.start = maxLbid;
  adjRange.size = adjSz;
  fileRequest rqstBlk(adjRange, ver, txn, compType);
  check(rqstBlk);

  if (rqstBlk.RequestStatus() == fileRequest::BRM_LOOKUP_ERROR)
    throw logging::IDBExcept(logging::IDBErrorInfo::instance()->errorMsg(logging::ERR_BRM_LOOKUP),
                             logging::ERR_BRM_LOOKUP);
  else if (rqstBlk.RequestStatus() == fileRequest::FS_EINVAL)
    throw logging::IDBExcept(logging::IDBErrorInfo::instance()->errorMsg(logging::ERR_O_DIRECT),
                             logging::ERR_O_DIRECT);
  else if (rqstBlk.RequestStatus() == fileRequest::FS_ENOENT)
    throw logging::IDBExcept(logging::IDBErrorInfo::instance()->errorMsg(logging::ERR_ENOENT),
                             logging::ERR_ENOENT);
  else if (rqstBlk.RequestStatus() != fileRequest::SUCCESSFUL)
    throw runtime_error(rqstBlk.RequestStatusStr());

  lbidCount = rqstBlk.BlocksRead();

  if (fTrace)
  {
    uint16_t dbroot;
    uint32_t partNum;
    uint16_t segNum;
    uint32_t fbo;
    BRM::OID_t oid;
    fdbrm.lookupLocal(maxLbid, ver.currentScn, false, oid, dbroot, partNum, segNum, fbo);
    fLogFile << oid << " " << maxLbid << " " << fbo << " " << rangeLen << " " << adjSz << " "
             << rqstBlk.BlocksRead() << " " << rqstBlk.BlocksLoaded() << " " << right << fixed
             << ((double)(start_tm.tv_sec + (1.e-9 * start_tm.tv_nsec))) << endl;
  }

  return rqstBlk.BlocksLoaded();
}  // check

int BlockRequestProcessor::check(fileRequest& rqstBlk)
{
  rqstBlk.frMutex().lock();
  rqstBlk.SetPredicate(fileRequest::SENDING);
  sendRequest(rqstBlk);  // start file read request

  while (rqstBlk.frPredicate() < fileRequest::COMPLETE)
    rqstBlk.frCond().wait(rqstBlk.frMutex());

  rqstBlk.frMutex().unlock();

  return 0;
}

// For future use.  Not currently used.
int BlockRequestProcessor::check(BRM::LBID_t lbid, const BRM::QueryContext& ver, BRM::VER_t txn, bool flg,
                                 int compType, bool& wasBlockInCache)
{
  if (fbMgr.exists(lbid, ver.currentScn) == true)
  {
    wasBlockInCache = true;
    return 0;
  }
  else
  {
    wasBlockInCache = false;
    fileRequest rqstBlk(lbid, ver, flg, txn, compType);
    int ret = check(rqstBlk);

    if (rqstBlk.RequestStatus() != fileRequest::SUCCESSFUL)
    {
      throw runtime_error(rqstBlk.RequestStatusStr());
    }

    return ret;
  }
}

int BlockRequestProcessor::getBlock(const BRM::LBID_t& lbid, const BRM::QueryContext& ver, BRM::VER_t txn,
                                    int compType, void* bufferPtr, bool vbFlg, bool& wasCached,
                                    bool* versioned, bool insertIntoCache, bool readFromCache)
{
  if (readFromCache)
  {
    HashObject_t hashObj(lbid, ver.currentScn, 0);
    wasCached = fbMgr.find(hashObj, bufferPtr);

    if (wasCached)
      return 1;
  }

  wasCached = false;
  fileRequest rqstBlk(lbid, ver, vbFlg, txn, compType, (uint8_t*)bufferPtr, insertIntoCache);
  check(rqstBlk);

  if (rqstBlk.RequestStatus() == fileRequest::BRM_LOOKUP_ERROR)
  {
    ostringstream os;
    os << "BRP::getBlock(): got a BRM lookup error.  LBID=" << lbid << " ver=" << ver << " txn=" << txn
       << " vbFlg=" << (int)vbFlg;
    primitiveprocessor::Logger logger;
    logger.logMessage(os.str(), false);
    throw logging::IDBExcept(logging::IDBErrorInfo::instance()->errorMsg(logging::ERR_BRM_LOOKUP),
                             logging::ERR_BRM_LOOKUP);
  }
  else if (rqstBlk.RequestStatus() == fileRequest::FS_EINVAL)
  {
    throw logging::IDBExcept(logging::IDBErrorInfo::instance()->errorMsg(logging::ERR_O_DIRECT),
                             logging::ERR_O_DIRECT);
  }
  else if (rqstBlk.RequestStatus() == fileRequest::FS_ENOENT)
  {
    throw logging::IDBExcept(logging::IDBErrorInfo::instance()->errorMsg(logging::ERR_ENOENT),
                             logging::ERR_ENOENT);
  }
  else if (rqstBlk.RequestStatus() != fileRequest::SUCCESSFUL)
  {
    throw runtime_error(rqstBlk.RequestStatusStr());
  }

  if (versioned)
    *versioned = rqstBlk.versioned();

  return 1;
}

int BlockRequestProcessor::getCachedBlocks(const BRM::LBID_t* lbids, const BRM::VER_t* vers, uint8_t** ptrs,
                                           bool* wasCached, uint32_t count)
{
  return fbMgr.bulkFind(lbids, vers, ptrs, wasCached, count);
}

}  // namespace dbbc
