/* Myers diff algorithm implementation, invented by Eugene W. Myers [1].
 * Implementations of both the Myers Divide Et Impera (using linear space)
 * and the canonical Myers algorithm (using quadratic space). */
/*
 * Copyright (c) 2020 Neels Hofmeyr <neels@hofmeyr.de>
 *
 * Permission to use, copy, modify, and distribute this software for any
 * purpose with or without fee is hereby granted, provided that the above
 * copyright notice and this permission notice appear in all copies.
 *
 * THE SOFTWARE IS PROVIDED "AS IS" AND THE AUTHOR DISCLAIMS ALL WARRANTIES
 * WITH REGARD TO THIS SOFTWARE INCLUDING ALL IMPLIED WARRANTIES OF
 * MERCHANTABILITY AND FITNESS. IN NO EVENT SHALL THE AUTHOR BE LIABLE FOR
 * ANY SPECIAL, DIRECT, INDIRECT, OR CONSEQUENTIAL DAMAGES OR ANY DAMAGES
 * WHATSOEVER RESULTING FROM LOSS OF USE, DATA OR PROFITS, WHETHER IN AN
 * ACTION OF CONTRACT, NEGLIGENCE OR OTHER TORTIOUS ACTION, ARISING OUT OF
 * OR IN CONNECTION WITH THE USE OR PERFORMANCE OF THIS SOFTWARE.
 */

#include <stdbool.h>
#include <stdint.h>
#include <stdlib.h>
#include <string.h>
#include <stdio.h>
#include <errno.h>

#include <arraylist.h>
#include <diff_main.h>

#include "diff_internal.h"
#include "diff_debug.h"

/* Myers' diff algorithm [1] is nicely explained in [2].
 * [1] http://www.xmailserver.org/diff2.pdf
 * [2] https://blog.jcoglan.com/2017/02/12/the-myers-diff-algorithm-part-1/ ff.
 *
 * Myers approaches finding the smallest diff as a graph problem.
 * The crux is that the original algorithm requires quadratic amount of memory:
 * both sides' lengths added, and that squared. So if we're diffing lines of
 * text, two files with 1000 lines each would blow up to a matrix of about
 * 2000 * 2000 ints of state, about 16 Mb of RAM to figure out 2 kb of text.
 * The solution is using Myers' "divide and conquer" extension algorithm, which
 * does the original traversal from both ends of the files to reach a middle
 * where these "snakes" touch, hence does not need to backtrace the traversal,
 * and so gets away with only keeping a single column of that huge state matrix
 * in memory.
 */

struct diff_box {
	unsigned int left_start;
	unsigned int left_end;
	unsigned int right_start;
	unsigned int right_end;
};

/* If the two contents of a file are A B C D E and X B C Y,
 * the Myers diff graph looks like:
 *
 *   k0  k1
 *    \   \
 * k-1     0 1 2 3 4 5
 *   \      A B C D E
 *     0   o-o-o-o-o-o
 *      X  | | | | | |
 *     1   o-o-o-o-o-o
 *      B  | |\| | | |
 *     2   o-o-o-o-o-o
 *      C  | | |\| | |
 *     3   o-o-o-o-o-o
 *      Y  | | | | | |\
 *     4   o-o-o-o-o-o c1
 *                  \ \
 *                 c-1 c0
 *
 * Moving right means delete an atom from the left-hand-side,
 * Moving down means add an atom from the right-hand-side.
 * Diagonals indicate identical atoms on both sides, the challenge is to use as
 * many diagonals as possible.
 *
 * The original Myers algorithm walks all the way from the top left to the
 * bottom right, remembers all steps, and then backtraces to find the shortest
 * path. However, that requires keeping the entire graph in memory, which needs
 * quadratic space.
 *
 * Myers adds a variant that uses linear space -- note, not linear time, only
 * linear space: walk forward and backward, find a meeting point in the middle,
 * and recurse on the two separate sections. This is called "divide and
 * conquer".
 *
 * d: the step number, starting with 0, a.k.a. the distance from the starting
 *    point.
 * k: relative index in the state array for the forward scan, indicating on
 *    which diagonal through the diff graph we currently are.
 * c: relative index in the state array for the backward scan, indicating the
 *    diagonal number from the bottom up.
 *
 * The "divide and conquer" traversal through the Myers graph looks like this:
 *
 *      | d=   0   1   2   3      2   1   0
 *  ----+--------------------------------------------
 *  k=  |                                      c=
 *   4  |                                       3
 *      |
 *   3  |                 3,0    5,2            2
 *      |                /          \
 *   2  |             2,0            5,3        1
 *      |            /                 \
 *   1  |         1,0     4,3 >= 4,3    5,4<--  0
 *      |        /       /          \  /
 *   0  |  -->0,0     3,3            4,4       -1
 *      |        \   /              /
 *  -1  |         0,1     1,2    3,4           -2
 *      |            \   /
 *  -2  |             0,2                      -3
 *      |                \
 *      |                 0,3
 *      |  forward->                 <-backward
 *
 * x,y pairs here are the coordinates in the Myers graph:
 * x = atom index in left-side source, y = atom index in the right-side source.
 *
 * Only one forward column and one backward column are kept in mem, each need at
 * most left.len + 1 + right.len items.  Note that each d step occupies either
 * the even or the odd items of a column: if e.g. the previous column is in the
 * odd items, the next column is formed in the even items, without overwriting
 * the previous column's results.
 *
 * Also note that from the diagonal index k and the x coordinate, the y
 * coordinate can be derived:
 *    y = x - k
 * Hence the state array only needs to keep the x coordinate, i.e. the position
 * in the left-hand file, and the y coordinate, i.e. position in the right-hand
 * file, is derived from the index in the state array.
 *
 * The two traces meet at 4,3, the first step (here found in the forward
 * traversal) where a forward position is on or past a backward traced position
 * on the same diagonal.
 *
 * This divides the problem space into:
 *
 *         0 1 2 3 4 5
 *          A B C D E
 *     0   o-o-o-o-o
 *      X  | | | | |
 *     1   o-o-o-o-o
 *      B  | |\| | |
 *     2   o-o-o-o-o
 *      C  | | |\| |
 *     3   o-o-o-o-*-o   *: forward and backward meet here
 *      Y          | |
 *     4           o-o
 *
 * Doing the same on each section lead to:
 *
 *         0 1 2 3 4 5
 *          A B C D E
 *     0   o-o
 *      X  | |
 *     1   o-b    b: backward d=1 first reaches here (sliding up the snake)
 *      B     \   f: then forward d=2 reaches here (sliding down the snake)
 *     2       o     As result, the box from b to f is found to be identical;
 *      C       \    leaving a top box from 0,0 to 1,1 and a bottom trivial
 *     3         f-o tail 3,3 to 4,3.
 *
 *     3           o-*
 *      Y            |
 *     4             o   *: forward and backward meet here
 *
 * and solving the last top left box gives:
 *
 *         0 1 2 3 4 5
 *          A B C D E           -A
 *     0   o-o                  +X
 *      X    |                   B
 *     1     o                   C
 *      B     \                 -D
 *     2       o                -E
 *      C       \               +Y
 *     3         o-o-o
 *      Y            |
 *     4             o
 *
 */

#define xk_to_y(X, K) ((X) - (K))
#define xc_to_y(X, C, DELTA) ((X) - (C) + (DELTA))
#define k_to_c(K, DELTA) ((K) + (DELTA))
#define c_to_k(C, DELTA) ((C) - (DELTA))

/* Do one forwards step in the "divide and conquer" graph traversal.
 * left: the left side to diff.
 * right: the right side to diff against.
 * kd_forward: the traversal state for forwards traversal, modified by this
 *             function.
 *             This is carried over between invocations with increasing d.
 *             kd_forward points at the center of the state array, allowing
 *             negative indexes.
 * kd_backward: the traversal state for backwards traversal, to find a meeting
 *              point.
 *              Since forwards is done first, kd_backward will be valid for d -
 *              1, not d.
 *              kd_backward points at the center of the state array, allowing
 *              negative indexes.
 * d: Step or distance counter, indicating for what value of d the kd_forward
 *    should be populated.
 *    For d == 0, kd_forward[0] is initialized, i.e. the first invocation should
 *    be for d == 0.
 * meeting_snake: resulting meeting point, if any.
 * Return true when a meeting point has been identified.
 */
static int
diff_divide_myers_forward(bool *found_midpoint,
			  struct diff_data *left, struct diff_data *right,
			  int *kd_forward, int *kd_backward, int d,
			  struct diff_box *meeting_snake)
{
	int delta = (int)right->atoms.len - (int)left->atoms.len;
	int k;
	int x;
	int prev_x;
	int prev_y;
	int x_before_slide;
	*found_midpoint = false;

	for (k = d; k >= -d; k -= 2) {
		if (k < -(int)right->atoms.len || k > (int)left->atoms.len) {
			/* This diagonal is completely outside of the Myers
			 * graph, don't calculate it. */
			if (k < 0) {
				/* We are traversing negatively, and already
				 * below the entire graph, nothing will come of
				 * this. */
				debug(" break\n");
				break;
			}
			debug(" continue\n");
			continue;
		}
		if (d == 0) {
			/* This is the initializing step. There is no prev_k
			 * yet, get the initial x from the top left of the Myers
			 * graph. */
			x = 0;
			prev_x = x;
			prev_y = xk_to_y(x, k);
		}
		/* Favoring "-" lines first means favoring moving rightwards in
		 * the Myers graph.
		 * For this, all k should derive from k - 1, only the bottom
		 * most k derive from k + 1:
		 *
		 *      | d=   0   1   2
		 *  ----+----------------
		 *  k=  |
		 *   2  |             2,0 <-- from prev_k = 2 - 1 = 1
		 *      |            /
		 *   1  |         1,0
		 *      |        /
		 *   0  |  -->0,0     3,3
		 *      |       \\   /
		 *  -1  |         0,1 <-- bottom most for d=1 from
		 *      |           \\    prev_k = -1 + 1 = 0
		 *  -2  |             0,2 <-- bottom most for d=2 from
		 *                            prev_k = -2 + 1 = -1
		 *
		 * Except when a k + 1 from a previous run already means a
		 * further advancement in the graph.
		 * If k == d, there is no k + 1 and k - 1 is the only option.
		 * If k < d, use k + 1 in case that yields a larger x. Also use
		 * k + 1 if k - 1 is outside the graph.
		 */
		else if (k > -d
			 && (k == d
			     || (k - 1 >= -(int)right->atoms.len
				 && kd_forward[k - 1] >= kd_forward[k + 1]))) {
			/* Advance from k - 1.
			 * From position prev_k, step to the right in the Myers
			 * graph: x += 1.
			 */
			int prev_k = k - 1;
			prev_x = kd_forward[prev_k];
			prev_y = xk_to_y(prev_x, prev_k);
			x = prev_x + 1;
		} else {
			/* The bottom most one.
			 * From position prev_k, step to the bottom in the Myers
			 * graph: y += 1.
			 * Incrementing y is achieved by decrementing k while
			 * keeping the same x.
			 * (since we're deriving y from y = x - k).
			 */
			int prev_k = k + 1;
			prev_x = kd_forward[prev_k];
			prev_y = xk_to_y(prev_x, prev_k);
			x = prev_x;
		}

		x_before_slide = x;
		/* Slide down any snake that we might find here. */
		while (x < left->atoms.len && xk_to_y(x, k) < right->atoms.len) {
			bool same;
			int r = diff_atom_same(&same,
					       &left->atoms.head[x],
					       &right->atoms.head[
						xk_to_y(x, k)]);
			if (r)
				return r;
			if (!same)
				break;
			x++;
		}
		kd_forward[k] = x;
#if 0
		if (x_before_slide != x) {
			debug("  down %d similar lines\n", x - x_before_slide);
		}

#if DEBUG
		{
			int fi;
			for (fi = d; fi >= k; fi--) {
				debug("kd_forward[%d] = (%d, %d)\n", fi,
				      kd_forward[fi], kd_forward[fi] - fi);
			}
		}
#endif
#endif

		if (x < 0 || x > left->atoms.len
		    || xk_to_y(x, k) < 0 || xk_to_y(x, k) > right->atoms.len)
			continue;

		/* Figured out a new forwards traversal, see if this has gone
		 * onto or even past a preceding backwards traversal.
		 *
		 * If the delta in length is odd, then d and backwards_d hit the
		 * same state indexes:
		 *      | d=   0   1   2      1   0
		 *  ----+----------------    ----------------
		 *  k=  |                              c=
		 *   4  |                               3
		 *      |
		 *   3  |                               2
		 *      |                same
		 *   2  |             2,0====5,3        1
		 *      |            /          \
		 *   1  |         1,0            5,4<-- 0
		 *      |        /              /
		 *   0  |  -->0,0     3,3====4,4       -1
		 *      |        \   /
		 *  -1  |         0,1                  -2
		 *      |            \
		 *  -2  |             0,2              -3
		 *      |
		 *
		 * If the delta is even, they end up off-by-one, i.e. on
		 * different diagonals:
		 *
		 *      | d=   0   1   2    1   0
		 *  ----+----------------  ----------------
		 *      |                            c=
		 *   3  |                             3
		 *      |
		 *   2  |             2,0 off         2
		 *      |            /   \\
		 *   1  |         1,0      4,3        1
		 *      |        /       //   \
		 *   0  |  -->0,0     3,3      4,4<-- 0
		 *      |        \   /        /
		 *  -1  |         0,1      3,4       -1
		 *      |            \   //
		 *  -2  |             0,2            -2
		 *      |
		 *
		 * So in the forward path, we can only match up diagonals when
		 * the delta is odd.
		 */
		if ((delta & 1) == 0)
			continue;
		 /* Forwards is done first, so the backwards one was still at
		  * d - 1. Can't do this for d == 0. */
		int backwards_d = d - 1;
		if (backwards_d < 0)
			continue;

		/* If both sides have the same length, forward and backward
		 * start on the same diagonal, meaning the backwards state index
		 * c == k.
		 * As soon as the lengths are not the same, the backwards
		 * traversal starts on a different diagonal, and c = k shifted
		 * by the difference in length.
		 */
		int c = k_to_c(k, delta);

		/* When the file sizes are very different, the traversal trees
		 * start on far distant diagonals.
		 * They don't necessarily meet straight on. See whether this
		 * forward value is on a diagonal that is also valid in
		 * kd_backward[], and match them if so. */
		if (c >= -backwards_d && c <= backwards_d) {
			/* Current k is on a diagonal that exists in
			 * kd_backward[]. If the two x positions have met or
			 * passed (forward walked onto or past backward), then
			 * we've found a midpoint / a mid-box.
			 *
			 * When forwards and backwards traversals meet, the
			 * endpoints of the mid-snake are not the two points in
			 * kd_forward and kd_backward, but rather the section
			 * that was slid (if any) of the current
			 * forward/backward traversal only.
			 *
			 * For example:
			 *
			 *   o
			 *    \
			 *     o
			 *      \
			 *       o
			 *        \
			 *         o
			 *          \
			 *       X o o
			 *       | | |
			 *     o-o-o o
			 *          \|
			 *           M
			 *            \
			 *             o
			 *              \
			 *               A o
			 *               | |
			 *             o-o-o
			 *
			 * The forward traversal reached M from the top and slid
			 * downwards to A.  The backward traversal already
			 * reached X, which is not a straight line from M
			 * anymore, so picking a mid-snake from M to X would
			 * yield a mistake.
			 *
			 * The correct mid-snake is between M and A. M is where
			 * the forward traversal hit the diagonal that the
			 * backward traversal has already passed, and A is what
			 * it reaches when sliding down identical lines.
			 */
			int backward_x = kd_backward[c];
			if (x >= backward_x) {
				if (x_before_slide != x) {
					/* met after sliding up a mid-snake */
					*meeting_snake = (struct diff_box){
						.left_start = x_before_slide,
						.left_end = x,
						.right_start = xc_to_y(x_before_slide,
								       c, delta),
						.right_end = xk_to_y(x, k),
					};
				} else {
					/* met after a side step, non-identical
					 * line. Mark that as box divider
					 * instead. This makes sure that
					 * myers_divide never returns the same
					 * box that came as input, avoiding
					 * "infinite" looping. */
					*meeting_snake = (struct diff_box){
						.left_start = prev_x,
						.left_end = x,
						.right_start = prev_y,
						.right_end = xk_to_y(x, k),
					};
				}
				debug("HIT x=(%u,%u) - y=(%u,%u)\n",
				      meeting_snake->left_start,
				      meeting_snake->right_start,
				      meeting_snake->left_end,
				      meeting_snake->right_end);
				debug_dump_myers_graph(left, right, NULL,
						       kd_forward, d,
						       kd_backward, d-1);
				*found_midpoint = true;
				return 0;
			}
		}
	}

	return 0;
}

/* Do one backwards step in the "divide and conquer" graph traversal.
 * left: the left side to diff.
 * right: the right side to diff against.
 * kd_forward: the traversal state for forwards traversal, to find a meeting
 *             point.
 *             Since forwards is done first, after this, both kd_forward and
 *             kd_backward will be valid for d.
 *             kd_forward points at the center of the state array, allowing
 *             negative indexes.
 * kd_backward: the traversal state for backwards traversal, to find a meeting
 *              point.
 *              This is carried over between invocations with increasing d.
 *              kd_backward points at the center of the state array, allowing
 *              negative indexes.
 * d: Step or distance counter, indicating for what value of d the kd_backward
 *    should be populated.
 *    Before the first invocation, kd_backward[0] shall point at the bottom
 *    right of the Myers graph (left.len, right.len).
 *    The first invocation will be for d == 1.
 * meeting_snake: resulting meeting point, if any.
 * Return true when a meeting point has been identified.
 */
static int
diff_divide_myers_backward(bool *found_midpoint,
			   struct diff_data *left, struct diff_data *right,
			   int *kd_forward, int *kd_backward, int d,
			   struct diff_box *meeting_snake)
{
	int delta = (int)right->atoms.len - (int)left->atoms.len;
	int c;
	int x;
	int prev_x;
	int prev_y;
	int x_before_slide;

	*found_midpoint = false;

	for (c = d; c >= -d; c -= 2) {
		if (c < -(int)left->atoms.len || c > (int)right->atoms.len) {
			/* This diagonal is completely outside of the Myers
			 * graph, don't calculate it. */
			if (c < 0) {
				/* We are traversing negatively, and already
				 * below the entire graph, nothing will come of
				 * this. */
				break;
			}
			continue;
		}
		if (d == 0) {
			/* This is the initializing step. There is no prev_c
			 * yet, get the initial x from the bottom right of the
			 * Myers graph. */
			x = left->atoms.len;
			prev_x = x;
			prev_y = xc_to_y(x, c, delta);
		}
		/* Favoring "-" lines first means favoring moving rightwards in
		 * the Myers graph.
		 * For this, all c should derive from c - 1, only the bottom
		 * most c derive from c + 1:
		 *
		 *                                  2   1   0
		 *  ---------------------------------------------------
		 *                                               c=
		 *                                                3
		 *
		 *         from prev_c = c - 1 --> 5,2            2
		 *                                    \
		 *                                     5,3        1
		 *                                        \
		 *                                 4,3     5,4<-- 0
		 *                                    \   /
		 *  bottom most for d=1 from c + 1 --> 4,4       -1
		 *                                    /
		 *         bottom most for d=2 --> 3,4           -2
		 *
		 * Except when a c + 1 from a previous run already means a
		 * further advancement in the graph.
		 * If c == d, there is no c + 1 and c - 1 is the only option.
		 * If c < d, use c + 1 in case that yields a larger x.
		 * Also use c + 1 if c - 1 is outside the graph.
		 */
		else if (c > -d && (c == d
				    || (c - 1 >= -(int)right->atoms.len
					&& kd_backward[c - 1] <= kd_backward[c + 1]))) {
			/* A top one.
			 * From position prev_c, step upwards in the Myers
			 * graph: y -= 1.
			 * Decrementing y is achieved by incrementing c while
			 * keeping the same x. (since we're deriving y from
			 * y = x - c + delta).
			 */
			int prev_c = c - 1;
			prev_x = kd_backward[prev_c];
			prev_y = xc_to_y(prev_x, prev_c, delta);
			x = prev_x;
		} else {
			/* The bottom most one.
			 * From position prev_c, step to the left in the Myers
			 * graph: x -= 1.
			 */
			int prev_c = c + 1;
			prev_x = kd_backward[prev_c];
			prev_y = xc_to_y(prev_x, prev_c, delta);
			x = prev_x - 1;
		}

		/* Slide up any snake that we might find here (sections of
		 * identical lines on both sides). */
#if 0
		debug("c=%d x-1=%d Yb-1=%d-1=%d\n", c, x-1, xc_to_y(x, c,
								    delta),
		      xc_to_y(x, c, delta)-1);
		if (x > 0) {
			debug("  l=");
			debug_dump_atom(left, right, &left->atoms.head[x-1]);
		}
		if (xc_to_y(x, c, delta) > 0) {
			debug("  r=");
			debug_dump_atom(right, left,
				&right->atoms.head[xc_to_y(x, c, delta)-1]);
		}
#endif
		x_before_slide = x;
		while (x > 0 && xc_to_y(x, c, delta) > 0) {
			bool same;
			int r = diff_atom_same(&same,
					       &left->atoms.head[x-1],
					       &right->atoms.head[
						xc_to_y(x, c, delta)-1]);
			if (r)
				return r;
			if (!same)
				break;
			x--;
		}
		kd_backward[c] = x;
#if 0
		if (x_before_slide != x) {
			debug("  up %d similar lines\n", x_before_slide - x);
		}

		if (DEBUG) {
			int fi;
			for (fi = d; fi >= c; fi--) {
				debug("kd_backward[%d] = (%d, %d)\n",
				      fi,
				      kd_backward[fi],
				      kd_backward[fi] - fi + delta);
			}
		}
#endif

		if (x < 0 || x > left->atoms.len
		    || xc_to_y(x, c, delta) < 0
		    || xc_to_y(x, c, delta) > right->atoms.len)
			continue;

		/* Figured out a new backwards traversal, see if this has gone
		 * onto or even past a preceding forwards traversal.
		 *
		 * If the delta in length is even, then d and backwards_d hit
		 * the same state indexes -- note how this is different from in
		 * the forwards traversal, because now both d are the same:
		 *
		 *      | d=   0   1   2      2   1   0
		 *  ----+----------------    --------------------
		 *  k=  |                                  c=
		 *   4  |
		 *      |
		 *   3  |                                   3
		 *      |                same
		 *   2  |             2,0====5,2            2
		 *      |            /          \
		 *   1  |         1,0            5,3        1
		 *      |        /              /  \
		 *   0  |  -->0,0     3,3====4,3    5,4<--  0
		 *      |        \   /             /
		 *  -1  |         0,1            4,4       -1
		 *      |            \
		 *  -2  |             0,2                  -2
		 *      |
		 *                                      -3
		 * If the delta is odd, they end up off-by-one, i.e. on
		 * different diagonals.
		 * So in the backward path, we can only match up diagonals when
		 * the delta is even.
		 */
		if ((delta & 1) != 0)
			continue;
		/* Forwards was done first, now both d are the same. */
		int forwards_d = d;

		/* As soon as the lengths are not the same, the
		 * backwards traversal starts on a different diagonal,
		 * and c = k shifted by the difference in length.
		 */
		int k = c_to_k(c, delta);

		/* When the file sizes are very different, the traversal trees
		 * start on far distant diagonals.
		 * They don't necessarily meet straight on. See whether this
		 * backward value is also on a valid diagonal in kd_forward[],
		 * and match them if so. */
		if (k >= -forwards_d && k <= forwards_d) {
			/* Current c is on a diagonal that exists in
			 * kd_forward[]. If the two x positions have met or
			 * passed (backward walked onto or past forward), then
			 * we've found a midpoint / a mid-box.
			 *
			 * When forwards and backwards traversals meet, the
			 * endpoints of the mid-snake are not the two points in
			 * kd_forward and kd_backward, but rather the section
			 * that was slid (if any) of the current
			 * forward/backward traversal only.
			 *
			 * For example:
			 *
			 *   o-o-o
			 *   | |
			 *   o A
			 *   |  \
			 *   o   o
			 *        \
			 *         M
			 *         |\
			 *         o o-o-o
			 *         | | |
			 *         o o X
			 *          \
			 *           o
			 *            \
			 *             o
			 *              \
			 *               o
			 *
			 * The backward traversal reached M from the bottom and
			 * slid upwards.  The forward traversal already reached
			 * X, which is not a straight line from M anymore, so
			 * picking a mid-snake from M to X would yield a
			 * mistake.
			 *
			 * The correct mid-snake is between M and A. M is where
			 * the backward traversal hit the diagonal that the
			 * forwards traversal has already passed, and A is what
			 * it reaches when sliding up identical lines.
			 */

			int forward_x = kd_forward[k];
			if (forward_x >= x) {
				if (x_before_slide != x) {
					/* met after sliding down a mid-snake */
					*meeting_snake = (struct diff_box){
						.left_start = x,
						.left_end = x_before_slide,
						.right_start = xc_to_y(x, c, delta),
						.right_end = xk_to_y(x_before_slide, k),
					};
				} else {
					/* met after a side step, non-identical
					 * line. Mark that as box divider
					 * instead. This makes sure that
					 * myers_divide never returns the same
					 * box that came as input, avoiding
					 * "infinite" looping. */
					*meeting_snake = (struct diff_box){
						.left_start = x,
						.left_end = prev_x,
						.right_start = xc_to_y(x, c, delta),
						.right_end = prev_y,
					};
				}
				debug("HIT x=%u,%u - y=%u,%u\n",
				      meeting_snake->left_start,
				      meeting_snake->right_start,
				      meeting_snake->left_end,
				      meeting_snake->right_end);
				debug_dump_myers_graph(left, right, NULL,
						       kd_forward, d,
						       kd_backward, d);
				*found_midpoint = true;
				return 0;
			}
		}
	}
	return 0;
}

/* Integer square root approximation */
static int
shift_sqrt(int val)
{
	int i;
        for (i = 1; val > 0; val >>= 2)
		i <<= 1;
        return i;
}

#define DIFF_EFFORT_MIN 1024

/* Myers "Divide et Impera": tracing forwards from the start and backwards from
 * the end to find a midpoint that divides the problem into smaller chunks.
 * Requires only linear amounts of memory. */
int
diff_algo_myers_divide(const struct diff_algo_config *algo_config,
		       struct diff_state *state)
{
	int rc = ENOMEM;
	struct diff_data *left = &state->left;
	struct diff_data *right = &state->right;
	int *kd_buf;

	debug("\n** %s\n", __func__);
	debug("left:\n");
	debug_dump(left);
	debug("right:\n");
	debug_dump(right);

	/* Allocate two columns of a Myers graph, one for the forward and one
	 * for the backward traversal. */
	unsigned int max = left->atoms.len + right->atoms.len;
	size_t kd_len = max + 1;
	size_t kd_buf_size = kd_len << 1;

	if (state->kd_buf_size < kd_buf_size) {
		kd_buf = reallocarray(state->kd_buf, kd_buf_size,
		    sizeof(int));
		if (!kd_buf)
			return ENOMEM;
		state->kd_buf = kd_buf;
		state->kd_buf_size = kd_buf_size;
	} else
		kd_buf = state->kd_buf;
	int i;
	for (i = 0; i < kd_buf_size; i++)
		kd_buf[i] = -1;
	int *kd_forward = kd_buf;
	int *kd_backward = kd_buf + kd_len;
	int max_effort = shift_sqrt(max/2);

	if (max_effort < DIFF_EFFORT_MIN)
		max_effort = DIFF_EFFORT_MIN;

	/* The 'k' axis in Myers spans positive and negative indexes, so point
	 * the kd to the middle.
	 * It is then possible to index from -max/2 .. max/2. */
	kd_forward += max/2;
	kd_backward += max/2;

	int d;
	struct diff_box mid_snake = {};
	bool found_midpoint = false;
	for (d = 0; d <= (max/2); d++) {
		int r;
		r = diff_divide_myers_forward(&found_midpoint, left, right,
					      kd_forward, kd_backward, d,
					      &mid_snake);
		if (r)
			return r;
		if (found_midpoint)
			break;
		r = diff_divide_myers_backward(&found_midpoint, left, right,
					       kd_forward, kd_backward, d,
					       &mid_snake);
		if (r)
			return r;
		if (found_midpoint)
			break;

		/* Limit the effort spent looking for a mid snake. If files have
		 * very few lines in common, the effort spent to find nice mid
		 * snakes is just not worth it, the diff result will still be
		 * essentially minus everything on the left, plus everything on
		 * the right, with a few useless matches here and there. */
		if (d > max_effort) {
			/* pick the furthest reaching point from
			 * kd_forward and kd_backward, and use that as a
			 * midpoint, to not step into another diff algo
			 * recursion with unchanged box. */
			int delta = (int)right->atoms.len - (int)left->atoms.len;
			int x = 0;
			int y;
			int i;
			int best_forward_i = 0;
			int best_forward_distance = 0;
			int best_backward_i = 0;
			int best_backward_distance = 0;
			int distance;
			int best_forward_x;
			int best_forward_y;
			int best_backward_x;
			int best_backward_y;

			debug("~~~ HIT d = %d > max_effort = %d\n", d, max_effort);
			debug_dump_myers_graph(left, right, NULL,
					       kd_forward, d,
					       kd_backward, d);

			for (i = d; i >= -d; i -= 2) {
				if (i >= -(int)right->atoms.len && i <= (int)left->atoms.len) {
					x = kd_forward[i];
					y = xk_to_y(x, i);
					distance = x + y;
					if (distance > best_forward_distance) {
						best_forward_distance = distance;
						best_forward_i = i;
					}
				}

				if (i >= -(int)left->atoms.len && i <= (int)right->atoms.len) {
					x = kd_backward[i];
					y = xc_to_y(x, i, delta);
					distance = (right->atoms.len - x)
						+ (left->atoms.len - y);
					if (distance >= best_backward_distance) {
						best_backward_distance = distance;
						best_backward_i = i;
					}
				}
			}

			/* The myers-divide didn't meet in the middle. We just
			 * figured out the places where the forward path
			 * advanced the most, and the backward path advanced the
			 * most. Just divide at whichever one of those two is better.
			 *
			 *   o-o
			 *     |
			 *     o
			 *      \
			 *       o
			 *        \
			 *         F <-- cut here
			 *
			 *
			 *
			 *           or here --> B
			 *                        \
			 *                         o
			 *                          \
			 *                           o
			 *                           |
			 *                           o-o
			 */
			best_forward_x = kd_forward[best_forward_i];
			best_forward_y = xk_to_y(best_forward_x, best_forward_i);
			best_backward_x = kd_backward[best_backward_i];
			best_backward_y = xc_to_y(best_backward_x, best_backward_i, delta);

			if (best_forward_distance >= best_backward_distance) {
				x = best_forward_x;
				y = best_forward_y;
			} else {
				x = best_backward_x;
				y = best_backward_y;
			}

			debug("max_effort cut at x=%d y=%d\n", x, y);
			if (x < 0 || y < 0
			    || x > left->atoms.len || y > right->atoms.len)
				break;

			found_midpoint = true;
			mid_snake = (struct diff_box){
				.left_start = x,
				.left_end = x,
				.right_start = y,
				.right_end = y,
			};
			break;
		}
	}

	if (!found_midpoint) {
		/* Divide and conquer failed to find a meeting point. Use the
		 * fallback_algo defined in the algo_config (leave this to the
		 * caller). This is just paranoia/sanity, we normally should
		 * always find a midpoint.
		 */
		debug(" no midpoint \n");
		rc = DIFF_RC_USE_DIFF_ALGO_FALLBACK;
		goto return_rc;
	} else {
		debug(" mid snake L: %u to %u of %u   R: %u to %u of %u\n",
		      mid_snake.left_start, mid_snake.left_end, left->atoms.len,
		      mid_snake.right_start, mid_snake.right_end,
		      right->atoms.len);

		/* Section before the mid-snake.  */
		debug("Section before the mid-snake\n");

		struct diff_atom *left_atom = &left->atoms.head[0];
		unsigned int left_section_len = mid_snake.left_start;
		struct diff_atom *right_atom = &right->atoms.head[0];
		unsigned int right_section_len = mid_snake.right_start;

		if (left_section_len && right_section_len) {
			/* Record an unsolved chunk, the caller will apply
			 * inner_algo() on this chunk. */
			if (!diff_state_add_chunk(state, false,
						  left_atom, left_section_len,
						  right_atom,
						  right_section_len))
				goto return_rc;
		} else if (left_section_len && !right_section_len) {
			/* Only left atoms and none on the right, they form a
			 * "minus" chunk, then. */
			if (!diff_state_add_chunk(state, true,
						  left_atom, left_section_len,
						  right_atom, 0))
				goto return_rc;
		} else if (!left_section_len && right_section_len) {
			/* No left atoms, only atoms on the right, they form a
			 * "plus" chunk, then. */
			if (!diff_state_add_chunk(state, true,
						  left_atom, 0,
						  right_atom,
						  right_section_len))
				goto return_rc;
		}
		/* else: left_section_len == 0 and right_section_len == 0, i.e.
		 * nothing before the mid-snake. */

		if (mid_snake.left_end > mid_snake.left_start
		    || mid_snake.right_end > mid_snake.right_start) {
			/* The midpoint is a section of identical data on both
			 * sides, or a certain differing line: that section
			 * immediately becomes a solved chunk. */
			debug("the mid-snake\n");
			if (!diff_state_add_chunk(state, true,
				  &left->atoms.head[mid_snake.left_start],
				  mid_snake.left_end - mid_snake.left_start,
				  &right->atoms.head[mid_snake.right_start],
				  mid_snake.right_end - mid_snake.right_start))
				goto return_rc;
		}

		/* Section after the mid-snake. */
		debug("Section after the mid-snake\n");
		debug("  left_end %u  right_end %u\n",
		      mid_snake.left_end, mid_snake.right_end);
		debug("  left_count %u  right_count %u\n",
		      left->atoms.len, right->atoms.len);
		left_atom = &left->atoms.head[mid_snake.left_end];
		left_section_len = left->atoms.len - mid_snake.left_end;
		right_atom = &right->atoms.head[mid_snake.right_end];
		right_section_len = right->atoms.len - mid_snake.right_end;

		if (left_section_len && right_section_len) {
			/* Record an unsolved chunk, the caller will apply
			 * inner_algo() on this chunk. */
			if (!diff_state_add_chunk(state, false,
						  left_atom, left_section_len,
						  right_atom,
						  right_section_len))
				goto return_rc;
		} else if (left_section_len && !right_section_len) {
			/* Only left atoms and none on the right, they form a
			 * "minus" chunk, then. */
			if (!diff_state_add_chunk(state, true,
						  left_atom, left_section_len,
						  right_atom, 0))
				goto return_rc;
		} else if (!left_section_len && right_section_len) {
			/* No left atoms, only atoms on the right, they form a
			 * "plus" chunk, then. */
			if (!diff_state_add_chunk(state, true,
						  left_atom, 0,
						  right_atom,
						  right_section_len))
				goto return_rc;
		}
		/* else: left_section_len == 0 and right_section_len == 0, i.e.
		 * nothing after the mid-snake. */
	}

	rc = DIFF_RC_OK;

return_rc:
	debug("** END %s\n", __func__);
	return rc;
}

/* Myers Diff tracing from the start all the way through to the end, requiring
 * quadratic amounts of memory. This can fail if the required space surpasses
 * algo_config->permitted_state_size. */
int
diff_algo_myers(const struct diff_algo_config *algo_config,
		struct diff_state *state)
{
	/* do a diff_divide_myers_forward() without a _backward(), so that it
	 * walks forward across the entire files to reach the end. Keep each
	 * run's state, and do a final backtrace. */
	int rc = ENOMEM;
	struct diff_data *left = &state->left;
	struct diff_data *right = &state->right;
	int *kd_buf;

	debug("\n** %s\n", __func__);
	debug("left:\n");
	debug_dump(left);
	debug("right:\n");
	debug_dump(right);
	debug_dump_myers_graph(left, right, NULL, NULL, 0, NULL, 0);

	/* Allocate two columns of a Myers graph, one for the forward and one
	 * for the backward traversal. */
	unsigned int max = left->atoms.len + right->atoms.len;
	size_t kd_len = max + 1 + max;
	size_t kd_buf_size = kd_len * kd_len;
	size_t kd_state_size = kd_buf_size * sizeof(int);
	debug("state size: %zu\n", kd_state_size);
	if (kd_buf_size < kd_len /* overflow? */
	    || (SIZE_MAX / kd_len ) < kd_len
	    || kd_state_size > algo_config->permitted_state_size) {
		debug("state size %zu > permitted_state_size %zu, use fallback_algo\n",
		      kd_state_size, algo_config->permitted_state_size);
		return DIFF_RC_USE_DIFF_ALGO_FALLBACK;
	}

	if (state->kd_buf_size < kd_buf_size) {
		kd_buf = reallocarray(state->kd_buf, kd_buf_size,
		    sizeof(int));
		if (!kd_buf)
			return ENOMEM;
		state->kd_buf = kd_buf;
		state->kd_buf_size = kd_buf_size;
	} else
		kd_buf = state->kd_buf;

	int i;
	for (i = 0; i < kd_buf_size; i++)
		kd_buf[i] = -1;

	/* The 'k' axis in Myers spans positive and negative indexes, so point
	 * the kd to the middle.
	 * It is then possible to index from -max .. max. */
	int *kd_origin = kd_buf + max;
	int *kd_column = kd_origin;

	int d;
	int backtrack_d = -1;
	int backtrack_k = 0;
	int k;
	int x, y;
	for (d = 0; d <= max; d++, kd_column += kd_len) {
		debug("-- %s d=%d\n", __func__, d);

		for (k = d; k >= -d; k -= 2) {
			if (k < -(int)right->atoms.len
			    || k > (int)left->atoms.len) {
				/* This diagonal is completely outside of the
				 * Myers graph, don't calculate it. */
				if (k < -(int)right->atoms.len)
					debug(" %d k <"
					      " -(int)right->atoms.len %d\n",
					      k, -(int)right->atoms.len);
				else
					debug(" %d k > left->atoms.len %d\n", k,
					      left->atoms.len);
				if (k < 0) {
					/* We are traversing negatively, and
					 * already below the entire graph,
					 * nothing will come of this. */
					debug(" break\n");
					break;
				}
				debug(" continue\n");
				continue;
			}

			if (d == 0) {
				/* This is the initializing step. There is no
				 * prev_k yet, get the initial x from the top
				 * left of the Myers graph. */
				x = 0;
			} else {
				int *kd_prev_column = kd_column - kd_len;

				/* Favoring "-" lines first means favoring
				 * moving rightwards in the Myers graph.
				 * For this, all k should derive from k - 1,
				 * only the bottom most k derive from k + 1:
				 *
				 *      | d=   0   1   2
				 *  ----+----------------
				 *  k=  |
				 *   2  |             2,0 <-- from
				 *      |            /        prev_k = 2 - 1 = 1
				 *   1  |         1,0
				 *      |        /
				 *   0  |  -->0,0     3,3
				 *      |       \\   /
				 *  -1  |         0,1 <-- bottom most for d=1
				 *      |           \\    from prev_k = -1+1 = 0
				 *  -2  |             0,2 <-- bottom most for
				 *                            d=2 from
				 *                            prev_k = -2+1 = -1
				 *
				 * Except when a k + 1 from a previous run
				 * already means a further advancement in the
				 * graph.
				 * If k == d, there is no k + 1 and k - 1 is the
				 * only option.
				 * If k < d, use k + 1 in case that yields a
				 * larger x. Also use k + 1 if k - 1 is outside
				 * the graph.
				 */
				if (k > -d
				    && (k == d
					|| (k - 1 >= -(int)right->atoms.len
					    && kd_prev_column[k - 1]
					       >= kd_prev_column[k + 1]))) {
					/* Advance from k - 1.
					 * From position prev_k, step to the
					 * right in the Myers graph: x += 1.
					 */
					int prev_k = k - 1;
					int prev_x = kd_prev_column[prev_k];
					x = prev_x + 1;
				} else {
					/* The bottom most one.
					 * From position prev_k, step to the
					 * bottom in the Myers graph: y += 1.
					 * Incrementing y is achieved by
					 * decrementing k while keeping the same
					 * x. (since we're deriving y from y =
					 * x - k).
					 */
					int prev_k = k + 1;
					int prev_x = kd_prev_column[prev_k];
					x = prev_x;
				}
			}

			/* Slide down any snake that we might find here. */
			while (x < left->atoms.len
			       && xk_to_y(x, k) < right->atoms.len) {
				bool same;
				int r = diff_atom_same(&same,
						       &left->atoms.head[x],
						       &right->atoms.head[
							xk_to_y(x, k)]);
				if (r)
					return r;
				if (!same)
					break;
				x++;
			}
			kd_column[k] = x;

			if (x == left->atoms.len
			    && xk_to_y(x, k) == right->atoms.len) {
				/* Found a path */
				backtrack_d = d;
				backtrack_k = k;
				debug("Reached the end at d = %d, k = %d\n",
				      backtrack_d, backtrack_k);
				break;
			}
		}

		if (backtrack_d >= 0)
			break;
	}

	debug_dump_myers_graph(left, right, kd_origin, NULL, 0, NULL, 0);

	/* backtrack. A matrix spanning from start to end of the file is ready:
	 *
	 *      | d=   0   1   2   3   4
	 *  ----+---------------------------------
	 *  k=  |
	 *   3  |
	 *      |
	 *   2  |             2,0
	 *      |            /
	 *   1  |         1,0     4,3
	 *      |        /       /   \
	 *   0  |  -->0,0     3,3     4,4 --> backtrack_d = 4, backtrack_k = 0
	 *      |        \   /   \
	 *  -1  |         0,1     3,4
	 *      |            \
	 *  -2  |             0,2
	 *      |
	 *
	 * From (4,4) backwards, find the previous position that is the largest, and remember it.
	 *
	 */
	for (d = backtrack_d, k = backtrack_k; d >= 0; d--) {
		x = kd_column[k];
		y = xk_to_y(x, k);

		/* When the best position is identified, remember it for that
		 * kd_column.
		 * That kd_column is no longer needed otherwise, so just
		 * re-purpose kd_column[0] = x and kd_column[1] = y,
		 * so that there is no need to allocate more memory.
		 */
		kd_column[0] = x;
		kd_column[1] = y;
		debug("Backtrack d=%d: xy=(%d, %d)\n",
		      d, kd_column[0], kd_column[1]);

		/* Don't access memory before kd_buf */
		if (d == 0)
			break;
		int *kd_prev_column = kd_column - kd_len;

		/* When y == 0, backtracking downwards (k-1) is the only way.
		 * When x == 0, backtracking upwards (k+1) is the only way.
		 *
		 *      | d=   0   1   2   3   4
		 *  ----+---------------------------------
		 *  k=  |
		 *   3  |
		 *      |                ..y == 0
		 *   2  |             2,0
		 *      |            /
		 *   1  |         1,0     4,3
		 *      |        /       /   \
		 *   0  |  -->0,0     3,3     4,4 --> backtrack_d = 4,
		 *      |        \   /   \            backtrack_k = 0
		 *  -1  |         0,1     3,4
		 *      |            \
		 *  -2  |             0,2__
		 *      |                  x == 0
		 */
		if (y == 0
		    || (x > 0
			&& kd_prev_column[k - 1] >= kd_prev_column[k + 1])) {
			k = k - 1;
			debug("prev k=k-1=%d x=%d y=%d\n",
			      k, kd_prev_column[k],
			      xk_to_y(kd_prev_column[k], k));
		} else {
			k = k + 1;
			debug("prev k=k+1=%d x=%d y=%d\n",
			      k, kd_prev_column[k],
			      xk_to_y(kd_prev_column[k], k));
		}
		kd_column = kd_prev_column;
	}

	/* Forwards again, this time recording the diff chunks.
	 * Definitely start from 0,0. kd_column[0] may actually point to the
	 * bottom of a snake starting at 0,0 */
	x = 0;
	y = 0;

	kd_column = kd_origin;
	for (d = 0; d <= backtrack_d; d++, kd_column += kd_len) {
		int next_x = kd_column[0];
		int next_y = kd_column[1];
		debug("Forward track from xy(%d,%d) to xy(%d,%d)\n",
		      x, y, next_x, next_y);

		struct diff_atom *left_atom = &left->atoms.head[x];
		int left_section_len = next_x - x;
		struct diff_atom *right_atom = &right->atoms.head[y];
		int right_section_len = next_y - y;

		rc = ENOMEM;
		if (left_section_len && right_section_len) {
			/* This must be a snake slide.
			 * Snake slides have a straight line leading into them
			 * (except when starting at (0,0)). Find out whether the
			 * lead-in is horizontal or vertical:
			 *
			 *     left
			 *  ---------->
			 *  |
			 * r|   o-o        o
			 * i|      \       |
			 * g|       o      o
			 * h|        \      \
			 * t|         o      o
			 *  v
			 *
			 * If left_section_len > right_section_len, the lead-in
			 * is horizontal, meaning first remove one atom from the
			 * left before sliding down the snake.
			 * If right_section_len > left_section_len, the lead-in
			 * is vetical, so add one atom from the right before
			 * sliding down the snake. */
			if (left_section_len == right_section_len + 1) {
				if (!diff_state_add_chunk(state, true,
							  left_atom, 1,
							  right_atom, 0))
					goto return_rc;
				left_atom++;
				left_section_len--;
			} else if (right_section_len == left_section_len + 1) {
				if (!diff_state_add_chunk(state, true,
							  left_atom, 0,
							  right_atom, 1))
					goto return_rc;
				right_atom++;
				right_section_len--;
			} else if (left_section_len != right_section_len) {
				/* The numbers are making no sense. Should never
				 * happen. */
				rc = DIFF_RC_USE_DIFF_ALGO_FALLBACK;
				goto return_rc;
			}

			if (!diff_state_add_chunk(state, true,
						  left_atom, left_section_len,
						  right_atom,
						  right_section_len))
				goto return_rc;
		} else if (left_section_len && !right_section_len) {
			/* Only left atoms and none on the right, they form a
			 * "minus" chunk, then. */
			if (!diff_state_add_chunk(state, true,
						  left_atom, left_section_len,
						  right_atom, 0))
				goto return_rc;
		} else if (!left_section_len && right_section_len) {
			/* No left atoms, only atoms on the right, they form a
			 * "plus" chunk, then. */
			if (!diff_state_add_chunk(state, true,
						  left_atom, 0,
						  right_atom,
						  right_section_len))
				goto return_rc;
		}

		x = next_x;
		y = next_y;
	}

	rc = DIFF_RC_OK;

return_rc:
	debug("** END %s rc=%d\n", __func__, rc);
	return rc;
}