// initial pseudocode from:
// https://www.geeksforgeeks.org/binary-heap/

#include <iostream>
#include "priorityqueue.h"
#include "json.hpp"

// priority queue class using binary heap
/*
class PriorityQueue{
  int *heapArray;   // pointer to heap array
  int max_size;     // max size of heap array
  int heap_size;    // elements in heap
public:
  // required functions
  void insert(int);
  void removeMax();
  void removeKey(int);
  void change(int*, int*);
  // helpful functions
  void heapifyUp(int, int);
  void heapifyDown(int);
  //nlohmann::json JSON();
  // other required functions (for now)
  void initiateHeap(int);
};
*/

void PriorityQueue::initiateHeap(int capacity){
    heap_size = 0;
    max_size = capacity;
    heapArray = new int[max_size];
}

void PriorityQueue::insert(int key){
  if(heap_size == max_size){
    std::cout << "PriorityQueue::insert called on full priority queue" << std::endl;
    return;
  }
  // heap starts at index 1 so when I want to insert a new node, it should be at the
  // nex index?
  int keyIndex = heap_size + 1;
  // heapify up until the heap properties are restored
  heapifyUp(key, keyIndex);
}

void PriorityQueue::removeMax(){
  // check if heap is empty
  if (heap_size <= 1) {
    std::cout << "PriorityQueue::removeMax called on an empty priority queue" << std::endl;
    return;
  }

  if (heap_size == 1) { // need to check if at root to avoid error
    heap_size--;
  } else {
    // remove the max value (at root)
    heapArray[1] = heapArray[heap_size + 1];
    heapifyDown(1);
    heap_size--; // causing that zero to appear?
  }
}

void PriorityQueue::removeKey(int key){
  for (int i = 1; i <= heap_size; i++) {
    if (heapArray[i] == key) {
      // change the key at correct index into something larger than maxValue
      heapArray[i] = heapArray[1] + 10;
      heapifyUp(heapArray[i], i);
      removeMax();
      return;
    }
  }
  std::cout << "PriorityQueue::removeKey key " << key << " not found" << std::endl;
  return;
}

void PriorityQueue::change(int *key, int *newKey){
  for (int i = 1; i <= heap_size; i++) {
    if (heapArray[i] == *key) {
      int temp = *newKey;
      *newKey = *key;
      *key = temp;
      return;
    }
  }

  std::cout << "PriorityQueue::change key " << *key << " not found" << std::endl;
  return;
}

void PriorityQueue::heapifyDown(int index){
  int lBranchIndex = 2*index;
  int rBranchIndex = 2*index + 1;

  int largerKeyIndex = index;

  if (lBranchIndex < heap_size && heapArray[lBranchIndex] > heapArray[index]) {
    largerKeyIndex = lBranchIndex;
  }

  if (rBranchIndex < heap_size && heapArray[rBranchIndex] > heapArray[largerKeyIndex]) {
    largerKeyIndex = rBranchIndex;
  }

  if (largerKeyIndex != index) {
    change(&heapArray[index], &heapArray[largerKeyIndex]);
    // apparently heapArray[largerKeyIndex] doesn't have a value?!?! fix this later
    std::cout << "when does zero appear? " << heapArray[largerKeyIndex] << std::endl;
    heapifyDown(largerKeyIndex);
    //heap_size--;
  }
}

void PriorityQueue::heapifyUp(int key, int index){
  int curIndex = index;
  int parentIndex = (curIndex)/2;
  heap_size++;
  // insert new key into the end of the array
  heapArray[curIndex] = key;

  while (curIndex != 1 && heapArray[parentIndex] < heapArray[curIndex]) {
    change(&heapArray[curIndex], &heapArray[parentIndex]);
    curIndex = (curIndex)/2;
    parentIndex = (parentIndex)/2;
  }
}

void PriorityQueue::printArray(){
  for (int i = 1; i <= heap_size; i++) {
    std::cout << heapArray[i] << " , ";
  }
  std::cout << std::endl;
}