/*
 * Collection of basic tools and defines
 */

#include <stdio.h>
#include <string.h>
#include "Tools.h"


time_t Tools::startTime;

void Tools::StartTimer()
{
  startTime = time(NULL);
}

double Tools::GetTime()
{
  time_t stopTime = time(NULL);
  return difftime( stopTime, startTime );
}

alpha_t * Tools::GetRandomString(unsigned min, unsigned max, unsigned &alphabetSize)
{
  unsigned len = std::rand() % (max - min) + min;
  alphabetSize = std::rand() % 26 + 1;
  alpha_t* temp = new alpha_t[len + 2];
  for (unsigned i = 0; i < len; i++)
    temp[i] = 97 + std::rand() % alphabetSize;
  temp[len] = 0u ;temp[len+1] = '\0';
  return temp;
}

ulong * Tools::bp2bitstream(alpha_t* bp)
{
  ulong len = strlen((char *)bp);
  ulong *A = new ulong[len/W + 1];
  for (ulong i = 0; i < len; i++) {
    if (bp[i] == '(') 
      SetField(A, 1, i, 1);
    else 
      SetField(A, 1, i, 0);
  }
  return A;
}

void Tools::PrintBitSequence(ulong *A, ulong len)
{
  for(ulong i = 0; i < len; i++)
    if (GetField(A, 1, i))
      std::cout << "1";
    else
      std::cout << "0";
  std::cout << "\n";
}

unsigned Tools::FloorLog2(ulong i)
{
  uint b = 0;
  if (i == 0)
    return 0;
  while (i) { 
      b++; 
      i >>= 1; 
    }
  return b - 1;
}

//Creating table to find logn in small time
unsigned * Tools::MakeTable()
{
  unsigned *table = new unsigned[512];
  for(unsigned i = 0; i < 9; i++) {
      if (i == 0)
	table[i] = 0;
      if (i >= 1 && i < (1 << 1 )) 
	table[i] = 1;
      if (i >= (1 << 1 ) && i < (1 << 2 ))
	table[i] = 2;
      if (i >= (1 << 2 ) && i < (1 << 3 ))
	table[i] = 3;
      if (i >= (1 << 3 ) && i < (1 << 4 ))
	table[i] = 4;
      if (i >= (1 << 4 ) && i < (1 << 5 ))
	table[i] = 5;
      if (i >= (1 << 5 ) && i < (1 << 6 ))
	table[i] = 6;
      if (i >= (1 << 6 ) && i < (1 << 7 ))
	table[i] = 6;
      if (i >= (1 << 7 ) && i < (1 << 8 ))
	table[i] = 7;
      if (i >= (1 << 8 ) && i < (1 << 9 ))
	table[i] = 8;
    }
  return table;
}

unsigned Tools::FastFloorLog2(unsigned i)
{
  unsigned *table = MakeTable(); unsigned u;
  if (i >> 24)    u = 22 + table[ i >> 24] ;
  if (i >> 16)    u = 14 + table[ i >> 16] ;
  if (i >> 8)     u = 6 + table[ i >> 8] ;
  u =  table[i] - 1;
  delete [] table;
  return u;
}

unsigned Tools::CeilLog2(ulong i)
{
  unsigned j = FloorLog2(i);
  if ((ulong)(1lu << j) != i)
    return j + 1;
        
  return j;
}

alpha_t *
Tools::GetFileContents(char *filename, trace_t *msize)
{
  trace_t maxSize = *msize;
  std::ifstream::pos_type posSize;
  std::ifstream file ((char *)filename, std::ios::in|std::ios::binary|std::ios::ate);
  if (file.is_open()) {
    posSize = file.tellg();
    trace_t size = posSize;
    if (maxSize != 0 && size > maxSize)
      size = maxSize;
    *msize = size / sizeof(alpha_t);
    
    char *memblock = new char [size + 1];
    file.seekg (0, std::ios::beg);
    file.read (memblock, size);
    memblock[size] = '\0';
    file.close();
    return (alpha_t *)memblock;
  }
  else
    return 0;
}

/*
  ulong Tools::ustrlen(alpha_t *text)
  {
  ulong i=0;
   
  while (text[i]>0u) i++;
  return i;
  }

  char *Tools::uctoc(alpha_t *text, bool remove)
  {
  ulong i, len = ustrlen(text);
   
  //printf("%d\n",len);
   
  char *result = new char[len+1];
   
  result[len] = '\0';
   
  for(i=0;i<len;i++)
  result[i] = (int)text[i]-128;
    
  if (remove) delete text;
      
  return result;       
  }

  alpha_t *Tools::ctouc(char *text, bool remove)
  {
  ulong i, len = strlen(text);
   
  alpha_t *result = new alpha_t[len+1];
   
  result[len] = 0u;
   
  for(i=0;i<len;i++)
  result[i] = (int)text[i]+128;
      
  if (remove) delete text;
         
  return result;       
  }

  void Tools::RemoveControlCharacters(alpha_t *data)
  {
  // Remove characters that are lexicographically smaller than default end character '#'
  // (and all characters '#')
  ulong i = 0;
  while (data[i] != '\0')
  {
  if (data[i] <= '#')
  data[i] = '_';
  i++;
  }

  }
*/

unsigned Tools::bits (ulong n)
{
  uint b = 0;
  while (n) {
    b++; n >>= 1;
  }
  return b;
}