#include "matchbox-stroke.h"

#include <regex.h>		/* for regexp stuff */

/* 
 * Code here very much based on that in libstroke. 
 */

/* largest number of points allowed to be sampled */
#define STROKE_MAX_POINTS 10000

/* number of sample points required to have a valid stroke */
#define STROKE_MIN_POINTS 50

/* maximum number of numbers in stroke */
#define STROKE_MAX_SEQUENCE 20

/* threshold of size of smaller axis needed for it to define its own
   bin size */
#define STROKE_SCALE_RATIO 4

/* minimum percentage of points in bin needed to add to sequence */
#define STROKE_BIN_COUNT_PERCENT 0.07

struct MBStrokeStroke
{
  int                  min_x, min_y, max_x, max_y;
  MBStrokeStrokePoint *first_point, *last_point;
  int                  n_points;
  int                  last_x, last_y;
  MBStroke            *stroke_app;
};


struct MBStrokeStrokePoint
{
  MBStrokeStrokePoint *next;
  int x;
  int y;
};

MBStrokeStrokePoint*
mb_stroke_stroke_point_new(int x, int y)
{
  MBStrokeStrokePoint *pt = NULL;

  pt = util_malloc0(sizeof(MBStrokeStrokePoint));

  pt->x    = x;
  pt->y    = y;
  pt->next = NULL;

  return pt;
}

MBStrokeStroke*
mb_stroke_stroke_new(MBStroke *stroke_app)
{
  MBStrokeStroke *stroke = NULL;

  stroke = util_malloc0(sizeof(MBStrokeStroke));

  stroke->min_x = 10000;
  stroke->min_y = 10000;
  stroke->max_x = -1;
  stroke->max_y = -1;
  stroke->first_point        = NULL;
  stroke->stroke_app         = stroke_app;

  stroke_app->current_stroke = stroke;

  return stroke;
}

MBStrokeStrokePoint*
mb_stroke_stroke_get_last_point(MBStrokeStroke *stroke, int *x, int *y)
{
  MBStrokeStrokePoint *pt;

  if (stroke->first_point == stroke->last_point)
    return NULL;

  for (pt = stroke->first_point; 
       pt->next != stroke->last_point;
       pt = pt->next);

  *x = pt->x;
  *y = pt->y;

  return pt;
}

static void
point_adder_cb(int x, int y, void *cookie)
{
  MBStrokeStroke      *stroke = (MBStrokeStroke*)cookie;
  MBStrokeStrokePoint *new_pt = NULL;
  
  new_pt = mb_stroke_stroke_point_new(x, y);

  stroke->last_point->next = new_pt;
  stroke->last_point       = new_pt;

  stroke->n_points++;
}

void
mb_stroke_stroke_append_point(MBStrokeStroke *stroke, int x, int y)
{
  /*  XXX TODO: 
   *   Does it make more sense to preallocate stroke points ( array )
   *   and avoid mass of mallocs etc ?
  */

  if (stroke->n_points < STROKE_MAX_POINTS) 
    {
      if (stroke->first_point == NULL)
	{
	  stroke->first_point = stroke->last_point = mb_stroke_stroke_point_new(x, y);
	}
      else
	{
	  MBStrokeStrokePoint *new_pt = NULL;

	  /* interp all points between this and last */

	  util_bresenham_line(stroke->last_point->x, 
			      stroke->last_point->y,
			      x,
			      y,
			      point_adder_cb,
			      (void*)stroke);

	  /* add last point manually  */

	  new_pt = mb_stroke_stroke_point_new(x, y);
	  stroke->last_point->next = new_pt;
	  stroke->last_point       = new_pt;

	  /* figure out bounds */

	  if (x < stroke->min_x) stroke->min_x = x;
	  if (x > stroke->max_x) stroke->max_x = x;
	  if (y < stroke->min_y) stroke->min_y = y;
	  if (y > stroke->max_y) stroke->max_y =  y;
	}
      stroke->n_points++; 
    }
}

static int 
stroke_bin (MBStrokeStrokePoint *pt, 
	    int                  bound_x_1, 
	    int                  bound_x_2,
            int                  bound_y_1, 
	    int                  bound_y_2)
{
  int bin_num = 1;
  if (pt->x > bound_x_1) bin_num += 1;
  if (pt->x > bound_x_2) bin_num += 1;
  if (pt->y > bound_y_1) bin_num += 3;
  if (pt->y > bound_y_2) bin_num += 3;

  return bin_num;
}


int 
mb_stroke_stroke_trans (MBStrokeStroke *stroke, char *sequence)
{
  /* number of bins recorded in the stroke */
  int sequence_count = 0;

  /* points-->sequence translation scratch variables */
  int prev_bin    = 0;
  int current_bin = 0;
  int bin_count   = 0;

  /* flag indicating the start of a stroke - always count it in the sequence */
  int first_bin = 1;

  /* bin boundary and size variables */
  int delta_x, delta_y;
  int bound_x_1, bound_x_2;
  int bound_y_1, bound_y_2;
  int pt_cnt = 0;

  MBStrokeStrokePoint *tmp_pt = NULL;

  /* determine size of grid */
  delta_x = stroke->max_x - stroke->min_x;
  delta_y = stroke->max_y - stroke->min_y;

  /* calculate bin boundary positions */
  bound_x_1 = stroke->min_x + (delta_x / 3);
  bound_x_2 = stroke->min_x + 2 * (delta_x / 3);

  bound_y_1 = stroke->min_y + (delta_y / 3);
  bound_y_2 = stroke->min_y + 2 * (delta_y / 3);

  if (delta_x > STROKE_SCALE_RATIO * delta_y) 
    {
      bound_y_1 = (stroke->max_y + stroke->min_y - delta_x) / 2 + (delta_x / 3);
      bound_y_2 = (stroke->max_y + stroke->min_y - delta_x) / 2 + 2 * (delta_x / 3);
    } 
  else if (delta_y > STROKE_SCALE_RATIO * delta_x) 
    {
      bound_x_1 = (stroke->max_x + stroke->min_x - delta_y) / 2 + (delta_y / 3);
      bound_x_2 = (stroke->max_x + stroke->min_x - delta_y) / 2 + 2 * (delta_y / 3);
    }

  DBG(" point count: %d\n",stroke->n_points);
  DBG(" min_x: %d\n",stroke->min_x);
  DBG(" max_x: %d\n",stroke->max_x);
  DBG(" min_y: %d\n",stroke->min_y);
  DBG(" max_y: %d\n",stroke->max_y);
  DBG(" delta_x: %d\n",delta_x);
  DBG(" delta_y: %d\n",delta_y);
  DBG(" bound_x_1: %d\n",bound_x_1);
  DBG(" bound_x_2: %d\n",bound_x_2);
  DBG(" bound_y_1: %d\n",bound_y_1);
  DBG(" bound_y_2: %d\n",bound_y_2);

  mb_stroke_ui_debug_grid(stroke->stroke_app->ui, 
			  stroke->min_x,
			  stroke->min_y,
			  stroke->max_x,
			  stroke->max_y,
			  bound_x_1,
			  bound_x_2,
			  bound_y_1,
			  bound_y_2);

  /*
    build string by placing points in bins, collapsing bins and
    discarding those with too few points...
  */

  while (stroke->first_point != NULL) 
    {


      /* figure out which bin the point falls in */
      current_bin = stroke_bin(stroke->first_point,
			       bound_x_1, bound_x_2,
			       bound_y_1, bound_y_2);

    /* if this is the first point, consider it the previous bin,
       too. */

      prev_bin = (prev_bin == 0) ? current_bin : prev_bin;

      if (prev_bin == current_bin)
	bin_count++;
      else 
	{  /* we are moving to a new bin -- consider adding to the
               sequence */
	  if ((bin_count > (stroke->n_points * STROKE_BIN_COUNT_PERCENT))
	      || (first_bin == 1)) {
	    first_bin = 0;
	    sequence[sequence_count++] = '0' + prev_bin;
	    /*        printf ("DEBUG:: adding sequence: %d\n",prev_bin);
	     */
	  }

	  /* restart counting points in the new bin */
	  bin_count=0;
	  prev_bin = current_bin;
	}

      /* move to next point, freeing current point from list */

      tmp_pt = stroke->first_point;
      stroke->first_point = stroke->first_point->next;

      if (tmp_pt)
	  free (tmp_pt);

      pt_cnt++;
    }

  stroke->last_point = NULL;

  /* add the last run of points to the sequence */
  sequence[sequence_count++] = '0' + current_bin;
  
  DBG("adding final sequence: %d\n",current_bin); 

  /* bail out on error cases */
  if ((stroke->n_points < STROKE_MIN_POINTS)
      || (sequence_count > STROKE_MAX_SEQUENCE)) 
    {
      stroke->n_points = 0;
      strcpy (sequence,"0");
      return 0;
    }

  /* add null termination and leave */
  stroke->n_points = 0;
  sequence[sequence_count] = '\0';

  return 1;
}

/* regex stuff */

struct MBStrokeRegex
{
  regex_t        *regex;
  MBStrokeRegex  *next;
  MBStrokeAction *action;
};

#define RE_ERR_MSG_LEN 255

MBStrokeRegex*
mb_stroke_regex_new(char *regex_str, char **err_msg)
{
  MBStrokeRegex *reg = NULL;
  char          *regex_str_complete;
  int            err;

  reg = util_malloc0(sizeof(MBStrokeRegex));

  regex_str_complete = alloca(strlen(regex_str)+3);
  sprintf(regex_str_complete, "^%s$", regex_str);

  reg->regex = util_malloc0(sizeof(regex_t));

  err = regcomp(reg->regex, regex_str_complete, REG_EXTENDED | REG_NOSUB);

  if (err) 
    {
      if (err_msg != NULL)
	{
	  *err_msg = util_malloc0(RE_ERR_MSG_LEN);
	  regerror(err, reg->regex, *err_msg, RE_ERR_MSG_LEN);
	}

      free(reg);

      return NULL;
    }

  return reg;
}

boolean
mb_stroke_regex_match(MBStrokeRegex *match, char *seq)
{
  return (regexec(match->regex, seq, 0, 0, 0) != REG_NOMATCH);
} 

MBStrokeRegex*
mb_stroke_regex_next(MBStrokeRegex *regex)
{
  return regex->next;
}

void
mb_stroke_regex_set_next(MBStrokeRegex *regex, MBStrokeRegex *next)
{
  regex->next = next;
}

void
mb_stroke_regex_set_action(MBStrokeRegex *regex, MBStrokeAction *action)
{
  regex->action = action;
}

MBStrokeAction *
mb_stroke_regex_get_action(MBStrokeRegex *regex)
{
  return regex->action;
}