#ifndef ORCHESTRA_IPC_H
#define ORCHESTRA_IPC_H

#include <iostream>

#include <boost/interprocess/managed_shared_memory.hpp>
#include <boost/interprocess/ipc/message_queue.hpp>

#include "orchestra/orchestra.h"

using namespace boost::interprocess;

// Methods for inter process communication (abstracts from the shared memory implementation)

// Message Queues: Exchanging objects of type T between processes on a node

template<typename T>
class MessageQueue {
public:
  MessageQueue() {};

  ~MessageQueue() {
    message_queue::remove(name_.c_str());
  }

  MessageQueue(MessageQueue<T>&& other) noexcept
    : name_(std::move(other.name_)),
      queue_(std::move(other.queue_))
  { }

  bool connect(const std::string& name, bool create) {
    name_ = name;
    try {
      if (create) {
        message_queue::remove(name.c_str()); // remove queue if it has not been properly removed from last run
        queue_ = std::unique_ptr<message_queue>(new message_queue(create_only, name.c_str(), 100, sizeof(T)));
      } else {
        queue_ = std::unique_ptr<message_queue>(new message_queue(open_only, name.c_str()));
      }
    } catch(interprocess_exception &ex) {
      ORCH_LOG(ORCH_FATAL, "boost::interprocess exception: " << ex.what());
    }
    return true;
  };

  bool connected() {
    return queue_ != NULL;
  }

  bool send(const T* object) {
    try {
      queue_->send(object, sizeof(T), 0);
    } catch(interprocess_exception &ex) {
      ORCH_LOG(ORCH_FATAL, "boost::interprocess exception: " << ex.what());
    }
    return true;
  };

  bool receive(T* object) {
    unsigned int priority;
    message_queue::size_type recvd_size;
    try {
      queue_->receive(object, sizeof(T), recvd_size, priority);
    } catch(interprocess_exception &ex) {
      ORCH_LOG(ORCH_FATAL, "boost::interprocess exception: " << ex.what());
    }
    return true;
  }

private:
  std::string name_;
  std::unique_ptr<message_queue> queue_;
};

// Object Queues

// For communicating between object store and workers, the following
// messages can be sent:

// ALLOC: workerid, objref, size -> objhandle:
// worker requests an allocation from the object store
// GET: workerid, objref -> objhandle:
// worker requests an object from the object store
// DONE: workerid, objref -> ():
// worker tells the object store that an object has been finalized

enum ObjRequestType {ALLOC = 0, GET = 1, DONE = 2};

struct ObjRequest {
  WorkerId workerid; // worker that sends the request
  ObjRequestType type; // do we want to allocate a new object or get a handle?
  ObjRef objref; // object reference of the object to be returned/allocated
  int64_t size; // if allocate, that's the size of the object
};

typedef size_t SegmentId; // index into a memory segment table
typedef managed_shared_memory::handle_t IpcPointer;

// Object handle: Handle to object that can be passed around between processes
// that are connected to the same object store

class ObjHandle {
public:
  ObjHandle(SegmentId segmentid = 0, size_t size = 0, IpcPointer ipcpointer = IpcPointer());
  SegmentId segmentid() { return segmentid_; }
  size_t size() { return size_; }
  IpcPointer ipcpointer() { return ipcpointer_; }
private:
  SegmentId segmentid_;
  size_t size_;
  IpcPointer ipcpointer_;
};

// Memory segment pool: A collection of shared memory segments
// used in two modes:
// \item on the object store it is used with create = true, in this case the
// segments are allocated
// \item on the worker it is used in open mode, with create = false, in this case
// the segments, which have been created by the object store, are just mapped
// into memory

class MemorySegmentPool {
public:
  MemorySegmentPool(bool create = false); // can be used in two modes: create mode and open mode (see above)
  ~MemorySegmentPool();
  ObjHandle allocate(size_t nbytes); // allocate a new shared object, potentially creating a new segment (only run on object store)
  char* get_address(ObjHandle pointer); // get address of shared object
private:
  void open_segment(SegmentId segmentid, size_t size = 0); // create a segment or map an existing one into memory
  bool create_mode_;
  size_t page_size_ = mapped_region::get_page_size();
  std::vector<std::string> segment_names_;
  std::vector<std::unique_ptr<managed_shared_memory> > segments_;
};

#endif