#include <iostream>
#include <unistd.h>
#include <string.h>
#include <vortex.h>
#include "common.h"

const char* program_file = "kernel.bin";
uint32_t data_stride = 0xffffffff;

static void show_usage() {
   std::cout << "Vortex Driver Test." << std::endl;
   std::cout << "Usage: [-f: program] [-n stride] [-h: help]" << std::endl;
}

static void parse_args(int argc, char **argv) {
  int c;
  while ((c = getopt(argc, argv, "n:f:h?")) != -1) {
    switch (c) {
    case 'n':
      data_stride = atoi(optarg);
      break;
    case 'f':
      program_file = optarg;
      break;
    case 'h':
    case '?': {
      show_usage();
      exit(0);
    } break;
    default:
      show_usage();
      exit(-1);
    }
  }

  if (nullptr == program_file) {
    show_usage();
    exit(-1);
  }
}

int run_test(vx_device_h device, 
             vx_buffer_h buffer, 
             const kernel_arg_t& kernel_arg,
             uint32_t buf_size, 
             uint32_t num_points) {
  int ret;

  // start device
  std::cout << "start device" << std::endl;
  ret = vx_start(device);
  if (ret != 0) {
    return ret;  
  }

  // wait for completion
  std::cout << "wait for completion" << std::endl;
  ret = vx_ready_wait(device, -1);
  if (ret != 0) {
    return ret;  
  }

  // flush the destination buffer caches
  std::cout << "flush the destination buffer caches" << std::endl;
  ret = vx_flush_caches(device, kernel_arg.dst_ptr, buf_size);
  if (ret != 0) {
    return ret;  
  }

  // download destination buffer
  std::cout << "download destination buffer" << std::endl;
  ret = vx_copy_from_dev(buffer, kernel_arg.dst_ptr, buf_size, 0);
  if (ret != 0) {
    return ret;  
  }

  // verify result
  std::cout << "verify result" << std::endl;  
  {
    int errors = 0;
    auto buf_ptr = (int*)vx_host_ptr(buffer);
    for (uint32_t i = 0; i < num_points; ++i) {
      int ref = i + i; 
      int cur = buf_ptr[i];
      if (cur != ref) {
        ++errors;
      }
    }
    if (errors != 0) {
      std::cout << "Found " << errors << " errors!" << std::endl;
      std::cout << "FAILED!" << std::endl;
      return 1;  
    }
  }

  return 0;
}

vx_device_h device = nullptr;
vx_buffer_h buffer = nullptr;

void cleanup() {
  if (buffer) {
    vx_buf_release(buffer);
  }
  if (device) {
    vx_dev_close(device);
  }
}

int main(int argc, char *argv[]) {
  int ret;
  size_t value; 
  kernel_arg_t kernel_arg;
  
  // parse command arguments
  parse_args(argc, argv);

  uint32_t block_size = vx_dev_caps(VX_CAPS_CACHE_LINESIZE);
  uint32_t max_cores = vx_dev_caps(VX_CAPS_MAX_CORES);
  uint32_t max_warps = vx_dev_caps(VX_CAPS_MAX_WARPS);
  uint32_t max_threads = vx_dev_caps(VX_CAPS_MAX_THREADS);

  if (data_stride == 0xffffffff) {
    data_stride = block_size / sizeof(uint32_t);
  }

  uint32_t num_points = max_cores * max_warps * max_threads * data_stride;
  uint32_t buf_size = num_points * sizeof(uint32_t);

  std::cout << "number of workitems: " << num_points << std::endl;

  // open device connection
  std::cout << "open device connection" << std::endl;  
  ret = vx_dev_open(&device);
  if (ret != 0)
    return ret;

  // upload program
  std::cout << "upload program" << std::endl;  
  ret = vx_upload_kernel_file(device, program_file);
  if (ret != 0) {
    cleanup();
    return ret;  
  }

  // allocate device memory
  std::cout << "allocate device memory" << std::endl;  

  ret = vx_alloc_dev_mem(device, buf_size, &value);
  if (ret != 0) {
    cleanup();
    return ret;  
  }
  kernel_arg.src0_ptr = value;

  ret = vx_alloc_dev_mem(device, buf_size, &value);
  if (ret != 0) {
    cleanup();
    return ret;  
  }
  kernel_arg.src1_ptr = value;

  ret = vx_alloc_dev_mem(device, buf_size, &value);
  if (ret != 0) {
    cleanup();
    return ret;  
  }
  kernel_arg.dst_ptr = value;

  // allocate shared memory  
  std::cout << "allocate shared memory" << std::endl;    
  uint32_t alloc_size = std::max<uint32_t>(buf_size, sizeof(kernel_arg_t));
  ret = vx_alloc_shared_mem(device, alloc_size, &buffer);
  if (ret != 0) {
    cleanup();
    return ret;  
  }

  // populate source buffer values
  std::cout << "populate source buffer values" << std::endl;    
  {
    auto buf_ptr = (int*)vx_host_ptr(buffer);
    for (uint32_t i = 0; i < num_points; ++i) {
      buf_ptr[i] = i;
    }
  }

  // upload source buffers
  std::cout << "upload source buffers" << std::endl;    
  
  ret = vx_copy_to_dev(buffer, kernel_arg.src0_ptr, buf_size, 0);
  if (ret != 0) {
    cleanup();
    return ret;  
  }

  ret = vx_copy_to_dev(buffer, kernel_arg.src1_ptr, buf_size, 0);
  if (ret != 0) {
    cleanup();
    return ret;  
  }

  // upload kernel argument
  std::cout << "upload kernel argument" << std::endl;
  {
    kernel_arg.num_warps = max_warps;
    kernel_arg.num_threads = max_threads;
    kernel_arg.stride = data_stride;

    auto buf_ptr = (int*)vx_host_ptr(buffer);
    memcpy(buf_ptr, &kernel_arg, sizeof(kernel_arg_t));
    ret = vx_copy_to_dev(buffer, KERNEL_ARG_DEV_MEM_ADDR, sizeof(kernel_arg_t), 0);
    if (ret != 0) {
      cleanup();
      return ret;  
    }
  }

  // run tests
  std::cout << "run tests" << std::endl;
  ret = run_test(device, buffer, kernel_arg, buf_size, num_points);
  if (ret != 0) {
    cleanup();
    return ret;
  }
  
  ret = run_test(device, buffer, kernel_arg, buf_size, num_points);
  if (ret != 0) {
    cleanup();
    return ret;
  }

  // cleanup
  std::cout << "cleanup" << std::endl;  
  cleanup();

  std::cout << "PASSED!" << std::endl;

  return 0;
}