/**
 * @file blockdev.cc
 *
 * Implementations for common block devices.
 */

#include "blockdev.h"

#define _XOPEN_SOURCE 600
#include <sys/types.h>
#include <sys/stat.h>
#include <unistd.h>
#include <fcntl.h>

//------------------------------------------------------------------------

BlockDevice::blockid_t BlockDevice::AllocBlocks(blockid_t n_blocks_to_alloc) {
  blockid_t blockid = n_blocks_;
  n_blocks_ += n_blocks_to_alloc;
  //fprintf(stderr, "BD Alloc %d, get %d, n_blocks %d\n", n_blocks_to_alloc, blockid, n_blocks());
  return blockid;
}

//------------------------------------------------------------------------

void RandomAccessFile::Init(const char *fname, BlockDevice::mode_t mode) {
  if (fname == NULL) {
    DEBUG_ASSERT_MSG(mode == BlockDevice::M_TEMP,
        "Null filenames are only valid for temporary files.");
    const char *tmpdir = fx_param_str(fx_root, "tmpdir", "/tmp");
    fname_.InitSprintf("%s/thor_gnp_XXXXXXXXX", tmpdir);
    fd_ = mkstemp(fname_.c_str());
  } else {
    int octal_mode;

    if (BlockDevice::can_write(mode)) {
      octal_mode = O_RDWR;
    } else {
      octal_mode = O_RDONLY;
    }
    if (BlockDevice::need_init(mode)) {
      octal_mode |= O_TRUNC;
    }
    if (!BlockDevice::need_read(mode)) {
      octal_mode |= O_CREAT;
    }

    fd_ = open(fname, octal_mode, 0666);
    fname_.Copy(fname);
  }

  if (mode == BlockDevice::M_TEMP) {
    // UNIX filesystem semantics: you can access an unlinked file, it will
    // just automatically be cleaned up later.
    // NOTE: The file will be completely hidden from ls.
    unlink(fname_.c_str());
  }

  if (fd_ <= 0) {
    FATAL("Could not open file '%s'.", fname);
  }

  posix_fadvise(fd_, 0, 0, POSIX_FADV_RANDOM);

  mode_ = mode;
}

void RandomAccessFile::Close() {
  if (fd_ >= 0) {
    close(fd_);
    fd_ = -1;
  }
}

void RandomAccessFile::Write(off_t pos, size_t len, const char *buffer) {
  off_t rv;

  mutex_.Lock();
  rv = lseek(fd_, pos, SEEK_SET);

  assert(rv >= 0);

  for (;;) {
    ssize_t written = write(fd_, buffer, len);

    len -= written;

    if (len == 0) {
      break;
    }

    DEBUG_ASSERT_MSG(written > 0, "error writing");

    buffer += written;
  }
  mutex_.Unlock();
}

void RandomAccessFile::Read(off_t pos, size_t len, char *buffer) {
  off_t rv;

  mutex_.Lock();
  rv = lseek(fd_, pos, SEEK_SET);

  assert(rv >= 0);

  for (;;) {
    ssize_t amount_read = read(fd_, buffer, len);

    len -= amount_read;

    if (len == 0) {
      break;
    }

    if (amount_read <= 0) {
      assert(amount_read == 0);
      /* end-of-file, fill with zeros */
      memset(buffer, 0, len);
      break;
    }

    buffer += amount_read;
  }
  mutex_.Unlock();
}

off_t RandomAccessFile::FindSize() const {
  struct stat s;
  fstat(fd_, &s);
  return s.st_size;
}

//------------------------------------------------------------------------

DiskBlockDevice::~DiskBlockDevice() {
}

void DiskBlockDevice::Init(
    const char *fname, mode_t mode_in, offset_t block_size) {
  mode_ = mode_in;

  file_.Init(fname, mode_);

  n_block_bytes_ = block_size;
  n_blocks_ = (file_.FindSize() + n_block_bytes_ - 1) / n_block_bytes_;
}

void DiskBlockDevice::Read(blockid_t blockid,
    offset_t begin, offset_t end, char *data) {
  DEBUG_BOUNDS(blockid, n_blocks_);
  DEBUG_BOUNDS(end, n_block_bytes_ + 1);
  DEBUG_BOUNDS(begin, end + 1);
  file_.Read(off_t(blockid) * n_block_bytes_ + begin, end - begin, data);
}

void DiskBlockDevice::Write(blockid_t blockid,
    offset_t begin, offset_t end, const char *data) {
  DEBUG_BOUNDS(blockid, n_blocks_);
  DEBUG_BOUNDS(end, n_block_bytes_ + 1);
  DEBUG_BOUNDS(begin, end + 1);
  file_.Write(off_t(blockid) * n_block_bytes_ + begin, end - begin, data);
}

//------------------------------------------------------------------------

void MemBlockDevice::Init(offset_t block_size) {
  n_blocks_ = 0;
  n_block_bytes_ = block_size;
  blocks_.Init();
  blocks_.default_value() = NULL;
}

void MemBlockDevice::Read(blockid_t blockid,
    offset_t begin, offset_t end, char *data) {
  char *mydata = blocks_.get(blockid);
  if (likely(mydata != NULL)) {
    mem::BitCopy(data, mydata + begin, end - begin);
    return;
  }
}

void MemBlockDevice::Write(blockid_t blockid,
    offset_t begin, offset_t end, const char *data) {
  char *mydata = blocks_.get(blockid);

  if (unlikely(mydata == NULL)) {
    blocks_[blockid] = mydata = mem::Alloc<char>(n_block_bytes_);
  }

  mem::BitCopy(mydata + begin, data, end - begin);
}

MemBlockDevice::~MemBlockDevice() {
  for (index_t i = 0; i < blocks_.size(); i++) {
    mem::Free(blocks_.get(i));
  }
}

//------------------------------------------------------------------------

void IoStats::Report(datanode *module) const {
  fx_format_result(module, "n_reads", "%u", n_reads_);
  //fx_format_result(module, "n_read_bytes", "%"L64"u", n_read_bytes_);
  fx_format_result(module, "n_writes", "%u", n_writes_);
  //fx_format_result(module, "n_write_bytes", "%"L64"u", n_write_bytes_);
}

void IoStats::Report(BlockDevice::offset_t n_block_bytes,
    BlockDevice::blockid_t n_blocks,
    datanode *module) const {
  Report(module);

  fx_format_result(module, "read_ratio", "%.4f",
      n_read_bytes_ / (double(n_block_bytes) * n_blocks));
  fx_format_result(module, "write_ratio", "%.4f",
      n_write_bytes_ / (double(n_block_bytes) * n_blocks));
  fx_format_result(module, "n_block_bytes", "%u", n_block_bytes);
  fx_format_result(module, "n_blocks", "%u", n_blocks);
}