/*
  qsufsort.h -- Suffix array generation.

  Copyright 2003 Colin Percival

  For the terms under which this work may be distributed, please see
  the adjoining file "LICENSE".

  ChangeLog:
  2005-05-05 - Use the modified header struct from bspatch.h; use 32-bit
               values throughout.
                 --Benjamin Smedberg <benjamin@smedbergs.us>
  2010-05-26 - Use a paged array for V and I. The address space may be too
               fragmented for these big arrays to be contiguous.
                 --Stephen Adams <sra@chromium.org>
  2015-08-03 - Extrat qsufsort to a separate file as template.
                 --Samuel Huang <huangs@chromium.org>
  2015-08-19 - Optimize split() and search(), add comments.
                 --Samuel Huang <huangs@chromium.org>
*/

#include <algorithm>
#include <cstring>

namespace courgette {
namespace qsuf {

// ------------------------------------------------------------------------
//
// The following code is taken verbatim from 'bsdiff.c'. Please keep all the
// code formatting and variable names.  The changes from the original are:
// (1) replacing tabs with spaces,
// (2) indentation,
// (3) using 'const',
// (4) changing the V and I parameters from int* to template <typename T>.
// (5) optimizing split() and search(); fix styles.
//
// The code appears to be a rewritten version of the suffix array algorithm
// presented in "Faster Suffix Sorting" by N. Jesper Larsson and Kunihiko
// Sadakane, special cased for bytes.

template <typename T> static void split(T I, T V, int start, int end, int h) {
  // For small interval, apply selection sort.
  if (end - start < 6) {
    for (int i = start; i < end; ) {
      int skip = 1;
      int best = V[I[i] + h];
      for (int j = i + 1; j < end; j++) {
        int cur = V[I[j] + h];
        if (best > cur) {
          best = cur;
          int tmp = I[i];
          I[i] = I[j];
          I[j] = tmp;
          skip = 1;
        } else if (best == cur) {
          int tmp = I[i + skip];
          I[i + skip] = I[j];
          I[j] = tmp;
          ++skip;
        }
      }
      if (skip == 1) {
        V[I[i]] = i;
        I[i] = -1;
      } else {
        for (int j = i, jend = i + skip; j < jend; j++)
          V[I[j]] = jend - 1;
      }
      i += skip;
    }
    return;
  }

  // Split [start, end) into 3 intervals:
  //   [start, j) with secondary keys < pivot,
  //   [j, k) with secondary keys == pivot,
  //   [k, end) with secondary keys > pivot.
  int pivot = V[I[(start + end) / 2] + h];
  int j = start;
  int k = end;
  for (int i = start; i < k; ) {
    int cur = V[I[i] + h];
    if (cur < pivot) {
      if (i != j) {
        int tmp = I[i];
        I[i] = I[j];
        I[j] = tmp;
      }
      ++i;
      ++j;
    } else if (cur > pivot) {
      --k;
      int tmp = I[i];
      I[i] = I[k];
      I[k] = tmp;
    } else {
      ++i;
    }
  }

  // Recurse on the "< pivot" piece.
  if (start < j)
    split<T>(I, V, start, j, h);

  // Update the "== pivot" piece.
  if (j == k - 1) {
    V[I[j]] = j;
    I[j] = -1;
  } else {
    for (int i = j; i < k; ++i)
      V[I[i]] = k - 1;
  }

  // Recurse on the "> pivot" piece.
  if (k < end)
    split<T>(I, V, k, end, h);
}

template <class T>
static void
qsufsort(T I, T V,const unsigned char *old,int oldsize)
{
  int buckets[256];
  int i,h,len;

  for(i=0;i<256;i++) buckets[i]=0;
  for(i=0;i<oldsize;i++) buckets[old[i]]++;
  for(i=1;i<256;i++) buckets[i]+=buckets[i-1];
  for(i=255;i>0;i--) buckets[i]=buckets[i-1];
  buckets[0]=0;

  for(i=0;i<oldsize;i++) I[++buckets[old[i]]]=i;
  I[0]=oldsize;
  for(i=0;i<oldsize;i++) V[i]=buckets[old[i]];
  V[oldsize]=0;
  for(i=1;i<256;i++) if(buckets[i]==buckets[i-1]+1) I[buckets[i]]=-1;
  I[0]=-1;

  for(h=1;I[0]!=-(oldsize+1);h+=h) {
    len=0;
    for(i=0;i<oldsize+1;) {
      if(I[i]<0) {
        len-=I[i];
        i-=I[i];
      } else {
        if(len) I[i-len]=-len;
        len=V[I[i]]+1-i;
        split<T>(I,V,i,i+len,h);
        i+=len;
        len=0;
      };
    };
    if(len) I[i-len]=-len;
  };

  for(i=0;i<oldsize+1;i++) I[V[i]]=i;
}

static int
matchlen(const unsigned char *old,int oldsize,const unsigned char *newbuf,int newsize)
{
  int i;

  for(i=0;(i<oldsize)&&(i<newsize);i++)
    if(old[i]!=newbuf[i]) break;

  return i;
}

template <class T>
static int search(T I, const unsigned char *old, int oldsize,
                  const unsigned char *newbuf, int newsize, int *pos) {
  int lo = 0;
  int hi = oldsize;
  while (hi - lo >= 2) {
    int mid = (lo + hi) / 2;
    if(memcmp(old+I[mid],newbuf,std::min(oldsize-I[mid],newsize))<0) {
      lo = mid;
    } else {
      hi = mid;
    }
  }

  int x = matchlen(old + I[lo], oldsize - I[lo], newbuf, newsize);
  int y = matchlen(old + I[hi], oldsize - I[hi], newbuf, newsize);
  if(x > y) {
    *pos = I[lo];
    return x;
  }
  *pos = I[hi];
  return y;
}

//  End of 'verbatim' code.
// ------------------------------------------------------------------------

}  // namespace qsuf
}  // namespace courgette