/*
 *                            COPYRIGHT
 *
 *  pcb-rnd, interactive printed circuit board design
 *  Copyright (C) 2018 Wojciech Krutnik
 *
 *  This program is free software; you can redistribute it and/or modify
 *  it under the terms of the GNU General Public License as published by
 *  the Free Software Foundation; either version 2 of the License, or
 *  (at your option) any later version.
 *
 *  This program is distributed in the hope that it will be useful,
 *  but WITHOUT ANY WARRANTY; without even the implied warranty of
 *  MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 *  GNU General Public License for more details.
 *
 *  You should have received a copy of the GNU General Public License
 *  along with this program; if not, write to the Free Software
 *  Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
 *
 *  Contact:
 *    Project page: http://repo.hu/projects/pcb-rnd
 *    lead developer: http://repo.hu/projects/pcb-rnd/contact.html
 *    mailing list: pcb-rnd (at) list.repo.hu (send "subscribe")
 */

/* Literature:
 * [1] C E Leiserson and F M Maley. 1985. Algorithms for routing and testing routability of planar VLSI layouts.
 *     In Proceedings of the seventeenth annual ACM symposium on Theory of computing (STOC '85).
 *     ACM, New York, NY, USA, 69-78. DOI=http://dx.doi.org/10.1145/22145.22153
 */

#include "config.h"

#include <librnd/core/plugins.h>
#include <librnd/core/actions.h>
#include "board.h"
#include "conf_core.h"
#include "data.h"
#include "event.h"
#include "list_common.h"
#include "obj_line_list.h"
#include "obj_pstk.h"
#include "obj_pstk_inlines.h"
#include "obj_subc_parent.h"
#include <librnd/core/rnd_printf.h>
#include "search.h"
#include <librnd/core/tool.h>
#include "layer_ui.h"
#include "netlist.h"

#include "sktypedefs.h"
#include "wire.h"
#include "ewire.h"
#include "ewire_point.h"
#include "pointdata.h"
#include "spoke.h"
#include <libcdtr/cdt.h>
#include <genht/htip.h>
#include <genht/htpp.h>
#include <genvector/vtp0.h>

#define SK_DEBUG


const char *pcb_sketch_route_cookie = "sketch_route plugin";


typedef struct {
	cdt_t *cdt;
	htpp_t terminals; /* key - terminal object; value - cdt point */
	vtwire_t wires;
	vtewire_t ewires;
	rnd_rtree_t *spoke_tree;
	pcb_layer_t *ui_layer_cdt;
	pcb_layer_t *ui_layer_erbs;
} sketch_t;

static htip_t sketches;
static rnd_bool_t show_spokes = rnd_true; /* TODO: make this a config node */
static rnd_bool_t check_net = rnd_false; /* TODO: make this a config node */


static point_t *sketch_get_point_at_terminal(sketch_t *sk, pcb_any_obj_t *term)
{
	return htpp_getentry(&sk->terminals, term)->value;
}

static void sketch_update_cdt_layer(sketch_t *sk)
{
	pcb_layer_t *l = sk->ui_layer_cdt;

	list_map0(&l->Line, pcb_line_t, pcb_line_free);
	if (l->line_tree)
		rnd_r_destroy_tree(&l->line_tree);
	VTEDGE_FOREACH(e, &sk->cdt->edges)
		pcb_line_new(l, e->endp[0]->pos.x, -e->endp[0]->pos.y, e->endp[1]->pos.x, -e->endp[1]->pos.y, 1, 0, pcb_no_flags());
	VTEDGE_FOREACH_END();
}

static void sketch_update_erbs_layer(sketch_t *sk)
{
	pcb_layer_t *l = sk->ui_layer_erbs;
	rnd_coord_t px, py, qx, qy;
	int i;

	list_map0(&l->Line, pcb_line_t, pcb_line_free);
	if (l->line_tree)
		rnd_r_destroy_tree(&l->line_tree);

	VTEWIRE_FOREACH(ew, &sk->ewires)
		ewire_point_t *ewp = &ew->points.array[0];
		px = ((point_t *)ewp->sp)->pos.x;
		py = -((point_t *)ewp->sp)->pos.y;
		for (i = 1; i < vtewire_point_len(&ew->points) - 1; i++) {
			ewp = &ew->points.array[i];
			spoke_pos_at_slot(ewp->sp, ewp->sp_slot, &qx, &qy);
			pcb_line_new(l, px, py, qx, qy, ew->wire->thickness, ew->wire->clearance, pcb_no_flags());
			px = qx;
			py = qy;
		}
		ewp = &ew->points.array[i];
		qx = ((point_t *)ewp->sp)->pos.x;
		qy = -((point_t *)ewp->sp)->pos.y;
		pcb_line_new(l, px, py, qx, qy, ew->wire->thickness, ew->wire->clearance, pcb_no_flags());
	VTEWIRE_FOREACH_END();

	if (show_spokes) {
		VTPOINT_FOREACH(p, &sk->cdt->points)
			pointdata_t *pd = p->data;
			if (pd != NULL) {
				px = p->pos.x;
				py = -p->pos.y;
				for (i = 0; i < 4; i++) {
					spoke_pos_at_end(&pd->spoke[i], 0, &qx, &qy);
					pcb_line_new(l, px, py, qx, qy, 1, 0, pcb_no_flags());
				}
			}
		VTPOINT_FOREACH_END();
	}
}

static void sketch_validate_erbs(sketch_t *sk, ewire_t *ew)
{
	/* TODO: check ew spokes against not supported ewires conflicts */
	/* TODO: check ewires segments, supported by ew spokes, against other spokes conflicts */
}

static ewire_t *sketch_insert_ewire(sketch_t *sk, wire_t *w)
{
	int i, j;
	ewire_t *new_ew;

	new_ew = *vtewire_alloc_append(&sk->ewires, 1);
	new_ew->wire = w;
	ewire_append_point(new_ew, (spoke_t *) w->points[0].p, SIDE_TERM, 0, w->points[0].wire_node);

#ifdef SK_DEBUG
	printf("\ninserting ERBS wire:\n");
#endif

	if (w->point_num == 2) {
		ewire_append_point(new_ew, (spoke_t *) w->points[1].p, SIDE_TERM, 0, w->points[1].wire_node);
		return new_ew;
	}
	else {
		spoke_t *curr_sp, *next_sp;
		point_t prev_p, curr_p, next_p;

		for (i = 0; i < w->point_num-1; i++) {
			wire_point_t *curr_wp = &w->points[i];
			wire_point_t *next_wp = &w->points[i+1];
			pointdata_t *curr_pd = (pointdata_t *) curr_wp->p->data;
			pointdata_t *next_pd = (pointdata_t *) next_wp->p->data;
			int curr_sp_slot_num = wire_point_position(curr_wp);
			point_t curr_sp_p[4], next_sp_p[4];
			int repeat_cnt;

#ifdef SK_DEBUG
			rnd_printf("  wire point %d at (%mm, %mm); ", i, curr_wp->p->pos.x, -curr_wp->p->pos.y);
#endif

			for (j = 0; j < 4; j++) {
				spoke_pos_at_wire_point(&curr_pd->spoke[j], curr_wp, &curr_sp_p[j].pos.x, &curr_sp_p[j].pos.y);
				curr_sp_p[j].pos.y = -curr_sp_p[j].pos.y;
				spoke_pos_at_wire_point(&next_pd->spoke[j], next_wp, &next_sp_p[j].pos.x, &next_sp_p[j].pos.y);
				next_sp_p[j].pos.y = -next_sp_p[j].pos.y;
			}

			if (i == 0)
				curr_p = *curr_wp->p;
			if (i == w->point_num-2)
				next_p = *next_wp->p;

			repeat_cnt = 0;
repeat_current_point:

			/* 1. find destination spoke */
			if (i < w->point_num-2) { /* start terminal - spoke, or spoke - spoke */
				point_t *p;
				spoke_dir_t next_sp_dir;

				/* select the leftmost spoke, if point is on the right and vice-versa */
				p = &next_sp_p[0];
				next_sp_dir = 0;
				for (j = 1; j < 4; j++) {
					if (ORIENT(next_wp->side == SIDE_LEFT, &curr_p, p, &next_sp_p[j])) {
						p = &next_sp_p[j];
						next_sp_dir = j;
					}
					/* check collinear case and select the closer spoke */
					if (ORIENT_COLLINEAR(&curr_p, p, &next_sp_p[j])) {
						next_sp_dir = DIST2(&curr_p, p) < DIST2(&curr_p, &next_sp_p[j]) ? next_sp_dir : j;
						p = &next_sp_p[next_sp_dir];
					}
				}
				next_sp = &next_pd->spoke[next_sp_dir];
				next_p = next_sp_p[next_sp_dir];
			}

#ifdef SK_DEBUG
			rnd_printf("dest spoke (dir %d) at (%mm, %mm); ", next_sp->dir, next_p.pos.x, -next_p.pos.y);
#endif

			/* 2. check if the ewire should be attached to any of the remaining spokes at the current point */
			if (i > 0) { /* spoke - spoke, or spoke - end terminal */
				point_t *p;
				spoke_dir_t curr_sp_dir;

				/* if point is on the left, select the rightmost spoke (if there is any) and vice-versa */
				p = NULL;
				for (j = 0; j < 4; j++) {
					if (j == curr_sp->dir)
						continue;
					if (p == NULL) {
						if(ORIENT(curr_wp->side == SIDE_LEFT, &curr_p, &next_p, &curr_sp_p[j])) {
							p = &curr_sp_p[j];
							curr_sp_dir = j;
						}
					}
					else {
						if(ORIENT(curr_wp->side == SIDE_LEFT, &curr_p, p, &curr_sp_p[j])) {
							p = &curr_sp_p[j];
							curr_sp_dir = j;
						}
					}
				}
				if (p != NULL) {
					/* don't attach to the current point's spoke if spoke of the next point is closer */
					if (DIST2(&curr_p, &next_p) < DIST2(&curr_p, p)) {
						printf("necessary\n"); /* (not sure if this check is necessary) */
					}
					else {
						ewire_append_point(new_ew, curr_sp, curr_wp->side, curr_sp_slot_num, curr_wp->wire_node);
						spoke_insert_wire_at_slot(curr_sp, curr_sp_slot_num, new_ew);
						curr_sp = &curr_pd->spoke[curr_sp_dir];
						prev_p = curr_p;
						curr_p = *p;
#ifdef SK_DEBUG
						rnd_printf("found obstructing spoke (dir %d) at (%mm, %mm); ", curr_sp->dir, curr_p.pos.x, -curr_p.pos.y);
#endif
						if (++repeat_cnt == 4)
							break;
						goto repeat_current_point;
					}
				}
			}

			/* 3. insert point if two subsequent segments are not concave */
			/* TODO: concavity detection should propagate through the previous points, when one is found;
			 *       maybe it could be done only in sketch_validate_erbs */
			if (i > 0) {
				/* if point is on the left, check if the next point is on the right of the previous segment */
				if (!ORIENT(curr_wp->side == SIDE_LEFT, &prev_p, &curr_p, &next_p)) {
					ewire_append_point(new_ew, curr_sp, curr_wp->side, curr_sp_slot_num, curr_wp->wire_node);
					spoke_insert_wire_at_slot(curr_sp, curr_sp_slot_num, new_ew);
				}
				else {
#ifdef SK_DEBUG
						rnd_printf("found concavity, skip; ");
#endif
				}
			}

			curr_sp = next_sp;
			prev_p = curr_p;
			curr_p = next_p;
#ifdef SK_DEBUG
			rnd_printf("\n");
#endif
		}

		ewire_append_point(new_ew, (spoke_t *) w->points[w->point_num-1].p, SIDE_TERM, 0, w->points[w->point_num-1].wire_node);
		return new_ew;
	}
}

static rnd_bool sketch_check_path(point_t *from_p, edge_t *from_e, edge_t *to_e, point_t *to_p)
{
	/* TODO */
	return rnd_true;
}

#ifdef SK_DEBUG
static void wire_print(wire_t *w, const char *tab)
{
	int i;
	for (i = 0; i < w->point_num; i++)
		rnd_printf("%sP%i: (%mm,%mm) %s\n", tab, i, w->points[i].p->pos.x, -w->points[i].p->pos.y,
							 w->points[i].side == SIDE_LEFT ? "LEFT" : w->points[i].side == SIDE_RIGHT ? "RIGHT" : "TERM");
}
#endif

static wire_t *sketch_find_shortest_path(wire_t *corridor)
{
	/* the algorithm is described in [1] */
	static wire_t left;
	wire_t right;
	int i, b;

	assert(corridor->points[0].side == SIDE_TERM && corridor->points[corridor->point_num-1].side == SIDE_TERM);

	wire_init(&left);
	wire_init(&right);
	wire_push_point(&left, corridor->points[0].p, SIDE_TERM);
	wire_push_point(&right, corridor->points[0].p, SIDE_TERM);

#ifdef SK_DEBUG
	printf("finding path through corridor:\n");
	wire_print(corridor, "");
#endif

	for (i = 1, b = 1; i < corridor->point_num; i++) {
		point_t *p = corridor->points[i].p;
		int side = corridor->points[i].side;

#ifdef SK_DEBUG
		printf("\ncorridor point %i\n", i);
		printf("left points:\n");
		wire_print(&left, "\t");
		printf("right points:\n");
		wire_print(&right, "\t");
#endif

		if (side & SIDE_LEFT) {
			while (left.point_num > b
						 && ORIENT_CW(left.points[left.point_num-2].p, left.points[left.point_num-1].p, p)) {
				wire_pop_point(&left);
#ifdef SK_DEBUG
				printf("\tpop left point\n");
#endif
			}

			while (right.point_num > b
						 && !ORIENT_CCW(right.points[b-1].p, right.points[b].p, p)) {
				wire_push_point(&left, right.points[b].p, right.points[b].side);
				b++;
#ifdef SK_DEBUG
				printf("\tswitch to right (b=%i)\n", b);
#endif
			}

			wire_push_point(&left, p, side);
		}
		else {
			while (right.point_num > b
						 && ORIENT_CCW(right.points[right.point_num-2].p, right.points[right.point_num-1].p, p)) {
				wire_pop_point(&right);
#ifdef SK_DEBUG
				printf("\tpop right point\n");
#endif
			}

			while (left.point_num > b
						 && !ORIENT_CW(left.points[b-1].p, left.points[b].p, p)) {
				wire_push_point(&right, left.points[b].p, left.points[b].side);
				b++;
#ifdef SK_DEBUG
				printf("\tswitch to left (b=%i)\n", b);
#endif
			}

			wire_push_point(&right, p, side);
		}
	}

#ifdef SK_DEBUG
	printf("\npath:\n");
	wire_print(&left, "\t");
#endif

	wire_uninit(&right);
	return &left;
}

#define check_wires(wlist) do { \
	WIRELIST_FOREACH(w, (wlist)); \
		(void) w; \
		if (wire_is_node_connected_with_point(_node_, wp->p)) \
			n++; \
	WIRELIST_FOREACH_END(); \
} while(0)

static int count_all_wires_coming_from_adjacent_point(pointdata_t *adj_pd, wire_point_t *wp)
{
	int n = 0;
	check_wires(adj_pd->attached_wires[0]);
	check_wires(adj_pd->attached_wires[1]);
	check_wires(adj_pd->terminal_wires);
	return n;
}

static int count_wires_coming_from_previous_point(wire_point_t *prev_wp, wire_point_t *wp, int list_num)
{
	wirelist_node_t *prev_list, *prev_list_term, *prev_list_uturn;
	int n;

	prev_list = ((pointdata_t *) prev_wp->p->data)->attached_wires[list_num];
	prev_list_term = ((pointdata_t *) prev_wp->p->data)->terminal_wires;
	prev_list_uturn = ((pointdata_t *) prev_wp->p->data)->uturn_wires;

	if (prev_wp->side == wp->side) { /* case 1: the wire was on the same side at the previous point */
		n = wirelist_get_index(prev_list, prev_wp->wire_node);
		if (n == -1) /* wire was U-turned at the previous point */
			n = wirelist_length(prev_list) + wirelist_get_index(prev_list_uturn, prev_wp->wire_node);
	}
	else if (prev_wp->side == SIDE_TERM) /* case 2: previous point was a terminal */
		n = wirelist_length(prev_list) + wirelist_length(prev_list_uturn);
	else { /* case 3: the wire was on an other side of the previous point */
		int temp;
		n = wirelist_length(prev_list);
		check_wires(prev_list_uturn);
		check_wires(prev_list_term);
		temp = wirelist_get_index(prev_list_uturn, prev_wp->wire_node);
		if (temp >= 0) /* wire coming from previous U-turn */
			n += (wirelist_length(prev_wp->wire_node) - 1);
		else {
			check_wires(prev_list_uturn);
			n += (wirelist_length(prev_wp->wire_node) - 1);
		}
	}
	return n;
}

static int count_uturn_wires_coming_from_previous_point(wire_point_t *prev_wp, wire_point_t *wp, int list_num)
{
	wirelist_node_t *list_uturn, *prev_list, *prev_list2, *prev_list_uturn;
	wirelist_node_t *prev_outer_node, *curr_outer_node;
	int i;

	list_uturn = ((pointdata_t *) wp->p->data)->uturn_wires;
	prev_list = ((pointdata_t *) prev_wp->p->data)->attached_wires[list_num];
	prev_list2 = ((pointdata_t *) prev_wp->p->data)->attached_wires[list_num^1];
	prev_list_uturn = ((pointdata_t *) prev_wp->p->data)->uturn_wires;

	if (prev_wp->side == wp->side) { /* case 1: the wire was on the same side at the previous point */
		i = wirelist_get_index(prev_list, prev_wp->wire_node);
		assert(i != -1);
		if (i == 0)
			return 0;
		prev_outer_node = wirelist_nth(prev_list, i-1);
		i = wire_node_index_at_connected_point(prev_outer_node, wp->p);
		assert(i != -1);
		curr_outer_node = prev_outer_node->item->points[i].wire_node;
		return wirelist_get_index(list_uturn, curr_outer_node) + 1;
	}
	else {
		if (prev_wp->side == SIDE_TERM) { /* case 2: previous point was a terminal */
			prev_outer_node = wirelist_last(prev_list_uturn);
			if (prev_outer_node == NULL) { /* no uturn wires at the previous point */
				prev_outer_node = wirelist_last(prev_list);
				if (prev_outer_node == NULL) /* no outer wires at the previous point at all */
					return 0;
			}
			/* TODO: the result of this func can be ambiguous, so this need a deeper consideration
			 * (connected point in case of uturns is both the previous and the next point) */
			i = wire_node_index_at_connected_point(prev_outer_node, wp->p);
			assert(i != -1);
			curr_outer_node = prev_outer_node->item->points[i].wire_node;
			return wirelist_get_index(list_uturn, curr_outer_node) + 1;
		}
		else { /* case 3: the wire was on an other side of the previous point */
			prev_outer_node = prev_wp->wire_node->next;
			if (prev_outer_node == NULL) { /* no inner wires at the previous point */
				prev_outer_node = wirelist_last(prev_list2);
				if (prev_outer_node == NULL) /* no wires at the previous point from the other side */
					return 0;
			}
			/* TODO: uturn wires from the previous point, that may go to the current point, are _not_ taken into account */
			i = wire_node_index_at_connected_point(prev_outer_node, wp->p);
			if(i == -1)
				return 0;
			curr_outer_node = prev_outer_node->item->points[i].wire_node;
			return wirelist_get_index(list_uturn, curr_outer_node) + 1;
		}
	}
}
#undef check_wires

static void insert_wire_at_point(wire_point_t *wp, wire_t *w, wirelist_node_t **list, int n)
{
	assert(n >= -1);
	if (n == -1) {
		*list = wirelist_prepend(*list, &w);
		wp->wire_node = *list;
	}
	else
		wp->wire_node = wirelist_insert_after_nth(*list, n, &w);
}

static wire_t *sketch_insert_wire(sketch_t *sk, wire_t *wire)
{
	wire_t *new_w;
	int i;

	new_w = *vtwire_alloc_append(&sk->wires, 1);
	wire_copy(new_w, wire);

#ifdef SK_DEBUG
	printf("\ninserting wire into sketch:\n");
#endif

	assert(new_w->point_num >= 2);
	for (i = 0; i < new_w->point_num; i++) {
		wire_point_t *wp = &new_w->points[i];
		wire_point_t *prev_wp;
		wire_point_t *next_wp;
		pointdata_t *pd = wp->p->data;
		pointdata_t *prev_pd;

		assert(pd != NULL);

		if (i > 0) {
			prev_wp = &new_w->points[i-1];
			prev_pd = prev_wp->p->data;
		}
		if (i < new_w->point_num - 1)
			next_wp = &new_w->points[i+1];

#ifdef SK_DEBUG
			rnd_printf("  add point at (%mm, %mm); ", wp->p->pos.x, -wp->p->pos.y,
								 wirelist_length(pd->terminal_wires) - 1);
#endif

		if (i == 0) { /* first point */
			assert(wp->side == SIDE_TERM);
			cdt_insert_constrained_edge(sk->cdt, wp->p, next_wp->p);
			insert_wire_at_point(wp, new_w, &pd->terminal_wires, -1);
#ifdef SK_DEBUG
			rnd_printf("start terminal; %d other wires connected\n", wirelist_length(pd->terminal_wires) - 1);
#endif
		}
		else if (i == new_w->point_num - 1) { /* last point */
			assert(wp->side == SIDE_TERM);
			insert_wire_at_point(wp, new_w, &pd->terminal_wires, -1);
#ifdef SK_DEBUG
			rnd_printf("end terminal; %d other wires connected\n", wirelist_length(pd->terminal_wires) - 1);
#endif
		}
		else { /* middle point */
			assert(wp->side != SIDE_TERM);

			cdt_insert_constrained_edge(sk->cdt, wp->p, next_wp->p);

			if (ORIENT_COLLINEAR(prev_wp->p, wp->p, next_wp->p)) { /* collinear case */
				edge_t *prev_e = get_edge_from_points(prev_wp->p, wp->p);
				edge_t *e = get_edge_from_points(wp->p, next_wp->p);
				int list_num, n;

				if (prev_e != e) { /* 3 subsequent points collinear */
					assert(prev_e->endp[1] == e->endp[0] || prev_e->endp[0] == e->endp[1]);
					list_num = ((prev_e->endp[1] == wp->p) ^ (wp->side == SIDE_RIGHT) ? 1 : 0);

					/* check if there was a wire, already attached to this point, that doesn't go through the same points
					 * as the new wire and is on the opposite wirelist at this point */
					if (pd->attached_wires[list_num^1] != NULL
							&& !wire_is_coincident_at_node(pd->attached_wires[list_num^1], prev_wp->p, next_wp->p)) {
						assert(pd->attached_wires[list_num] == NULL);
						pd->attached_wires[list_num] = pd->attached_wires[list_num^1];
						pd->attached_wires[list_num^1] = NULL;
					}

					/* find node to insert the new wire in the attached wirelist:
					 * - determine index of the last wire attached to the previous point
					 *   before the new wire as n (-1 if no wires attached to the previous point)
					 * - insert the new wire in the current point's wirelist after n-th position */
					n = -1;
					n += count_wires_coming_from_previous_point(prev_wp, wp, list_num);
					insert_wire_at_point(wp, new_w, &pd->attached_wires[list_num], n);
#ifdef SK_DEBUG
					rnd_printf("collinear; list_num=%d; n=%d; attached pos=%d; attached len=%d\n", list_num, n,
										 wirelist_length(wp->wire_node)-1, wirelist_length(pd->attached_wires[list_num]));
#endif
				}
				else { /* U-turn */
					/* this list_num is related to the previous point, not the current one
					 * (and is not used for selecting list to store the wire; only to determine uturn list index) */
					if (prev_wp->side != SIDE_TERM) {
						list_num = ((e->endp[1] == wp->p) ^ (prev_wp->side == SIDE_RIGHT) ? 1 : 0);
						list_num = prev_pd->attached_wires[list_num] == NULL ? list_num^1 : list_num;
					}
					else /* except if previous point was a terminal */
						list_num = ((e->endp[1] == wp->p) ^ (wp->side == SIDE_RIGHT) ? 1 : 0);

					/* find node to insert the new wire in the U-turn wirelist:
					 * - determine index of the wire in the previous attached wirelist
					 * - subtract wires from the current attached wirelist;
					 *   the result is the position in current U-turn wirelist */
					n = -1;
					n += count_uturn_wires_coming_from_previous_point(prev_wp, wp, list_num);
					insert_wire_at_point(wp, new_w, &pd->uturn_wires, n);
#ifdef SK_DEBUG
					rnd_printf("uturn; list_num=%d; n=%d; uturn pos=%d; uturn len=%d\n", list_num, n,
										 wirelist_length(wp->wire_node)-1, wirelist_length(pd->uturn_wires));
#endif
				}
			}
			else { /* not collinear case */
				int list_num, n;

				list_num = pd->attached_wires[1] != NULL ? 1 : 0;
				assert(pd->attached_wires[list_num^1] == NULL);

				/* find node to insert the new wire in the attached wirelist:
				 * - find point's adjacent edges which have greater angle between subsequent segments
				 *   than the new wire's edge (ie. are placed externally)
				 * - count wires at all these edges and proper wires at the new wire's edge as n
				 * - insert the new wire in the current point's wirelist after n-th position */
				n = -1;
				EDGELIST_FOREACH(e, wp->p->adj_edges)
					point_t *adj_p = EDGE_OTHER_POINT(e, wp->p);
					if (e->is_constrained
							&& (wp->side == SIDE_RIGHT ? ORIENT_CCW(prev_wp->p, wp->p, adj_p) : ORIENT_CW(prev_wp->p, wp->p, adj_p))) {
						pointdata_t *adj_pd = adj_p->data;
						assert(adj_pd != NULL);
						n += count_all_wires_coming_from_adjacent_point(adj_pd, wp);
					}
				EDGELIST_FOREACH_END();
				n += count_wires_coming_from_previous_point(prev_wp, wp, list_num);
				insert_wire_at_point(wp, new_w, &pd->attached_wires[list_num], n);
#ifdef SK_DEBUG
					rnd_printf("list_num=%d; n=%d, attached pos=%d; attached len=%d\n", list_num, n,
										 wirelist_length(wp->wire_node)-1, wirelist_length(pd->attached_wires[list_num]));
#endif
			}
		}
	}
	return new_w;
}

struct search_info {
	pcb_layer_t *layer;
	sketch_t *sk;
};

static rnd_r_dir_t r_search_cb(const rnd_box_t *box, void *cl)
{
	pcb_any_obj_t *obj = (pcb_any_obj_t *) box;
	struct search_info *i = (struct search_info *) cl;
	point_t *point;

	if (obj->type == PCB_OBJ_PSTK) {
		pcb_pstk_t *pstk = (pcb_pstk_t *) obj;
		if (pcb_pstk_shape_at(PCB, pstk, i->layer) == NULL)
			return RND_R_DIR_NOT_FOUND;
		point = cdt_insert_point(i->sk->cdt, pstk->x, -pstk->y);
		pointdata_create(point, obj);
	}
	/* temporary: if a non-padstack obj is _not_ a terminal, then don't triangulate it */
	/* long term (for non-terminal objects):
	 * - lines should be triangulated on their endpoints and constrained
	 * - polygons should be triangulated on vertices and edges constrained
	 * - texts - same as polygons for their bbox
	 * - arcs - same as polygons for their bbox */
	else if (obj->term != NULL) {
		coord_t cx, cy;
		pcb_obj_center(obj, &cx, &cy);
		point = cdt_insert_point(i->sk->cdt, cx, -cy);
		pointdata_create(point, obj);
	}

	if (obj->term != NULL) {
		pcb_subc_t *subc = pcb_obj_parent_subc(obj);
		if (subc != NULL && subc->refdes != NULL)
			htpp_insert(&i->sk->terminals, obj, point);
	}

	return RND_R_DIR_FOUND_CONTINUE;
}

static void sketch_create_for_layer(sketch_t *sk, pcb_layer_t *layer)
{
	rnd_box_t bbox;
	struct search_info info;
	char name[256];

	sk->cdt = malloc(sizeof(cdt_t));
	cdt_init(sk->cdt, 0, 0, PCB->hidlib.size_x, -PCB->hidlib.size_y);
	htpp_init(&sk->terminals, ptrhash, ptrkeyeq);
	sk->wires.elem_constructor = vtwire_constructor;
	sk->wires.elem_destructor = vtwire_destructor;
	sk->wires.elem_copy = NULL;
	vtwire_init(&sk->wires);
	sk->ewires.elem_constructor = vtewire_constructor;
	sk->ewires.elem_destructor = vtewire_destructor;
	sk->ewires.elem_copy = NULL;
	vtewire_init(&sk->ewires);

	sk->spoke_tree = rnd_r_create_tree();

	bbox.X1 = 0; bbox.Y1 = 0; bbox.X2 = PCB->hidlib.size_x; bbox.Y2 = PCB->hidlib.size_y;
	info.layer = layer;
	info.sk = sk;
	rnd_r_search(PCB->Data->padstack_tree, &bbox, NULL, r_search_cb, &info, NULL);
	rnd_r_search(layer->line_tree, &bbox, NULL, r_search_cb, &info, NULL);
	rnd_r_search(layer->text_tree, &bbox, NULL, r_search_cb, &info, NULL);
	rnd_r_search(layer->polygon_tree, &bbox, NULL, r_search_cb, &info, NULL);
	rnd_r_search(layer->arc_tree, &bbox, NULL, r_search_cb, &info, NULL);

	rnd_snprintf(name, sizeof(name), "%s: CDT", layer->name);
	sk->ui_layer_cdt = pcb_uilayer_alloc(pcb_sketch_route_cookie, name, &layer->meta.real.color);
	sk->ui_layer_cdt->meta.real.vis = rnd_false;
	sketch_update_cdt_layer(sk);

	rnd_snprintf(name, sizeof(name), "%s: ERBS", layer->name);
	sk->ui_layer_erbs = pcb_uilayer_alloc(pcb_sketch_route_cookie, name, &layer->meta.real.color);
	sketch_update_erbs_layer(sk);
	rnd_event(&PCB->hidlib, PCB_EVENT_LAYERS_CHANGED, NULL);
}

static sketch_t *sketch_alloc()
{
	sketch_t *new_sk;
	new_sk = calloc(1, sizeof(sketch_t));
	return new_sk;
}

static void sketch_uninit(sketch_t *sk)
{
	if (sk->cdt != NULL) {
		VTPOINT_FOREACH(p, &sk->cdt->points)
			pointdata_free(p);
		VTPOINT_FOREACH_END();
		cdt_free(sk->cdt);
		free(sk->cdt);
		sk->cdt = NULL;
	}
	vtwire_uninit(&sk->wires);
	vtewire_uninit(&sk->ewires);
	htpp_uninit(&sk->terminals);
	rnd_r_destroy_tree(&sk->spoke_tree);
	pcb_uilayer_free(sk->ui_layer_cdt);
	pcb_uilayer_free(sk->ui_layer_erbs);
}


static sketch_t *sketches_get_sketch_at_layer(pcb_layer_t *layer)
{
	return htip_getentry(&sketches, pcb_layer_id(PCB->Data, layer))->value;
}

static void sketches_init()
{
	rnd_layer_id_t lid[PCB_MAX_LAYER];
	int i, num;

	num = pcb_layer_list(PCB, PCB_LYT_COPPER, lid, PCB_MAX_LAYER);
	htip_init(&sketches, longhash, longkeyeq);
	for (i = 0; i < num; i++) {
		sketch_t *sk = sketch_alloc();
		sketch_create_for_layer(sk, pcb_get_layer(PCB->Data, lid[i]));
		htip_insert(&sketches, lid[i], sk);
	}
}

static void sketches_uninit()
{
	htip_entry_t *e;

	for (e = htip_first(&sketches); e; e = htip_next(&sketches, e)) {
		sketch_uninit(e->value);
		free(e->value);
		htip_delentry(&sketches, e);
	}
	htip_uninit(&sketches);
}


/*** sketch line tool ***/
static void tool_skline_adjust_attached_objects(rnd_hidlib_t *hl);

struct {
	pcb_any_obj_t *start_term;
	pcb_net_t *net;
	vtp0_t lines;
	point_t *start_p;
	edgelist_node_t *visited_edges;
	triangle_t *current_t;
	wire_t corridor;
	sketch_t *sketch;
} attached_path = {0};

static pcb_attached_line_t *attached_path_new_line()
{
	pcb_attached_line_t *new_l = calloc(1, sizeof(pcb_attached_line_t));
	vtp0_append(&attached_path.lines, new_l);
	return new_l;
}

static void attached_path_next_line()
{
	int last = vtp0_len(&attached_path.lines) - 1;
	pcb_attached_line_t *next_l = attached_path_new_line();
	if (last >= 0)
		next_l->Point1 = ((pcb_attached_line_t *) attached_path.lines.array[last])->Point2;
	tool_skline_adjust_attached_objects(&PCB->hidlib);
}

static rnd_bool attached_path_init(pcb_layer_t *layer, pcb_any_obj_t *start_term)
{
	pcb_attached_line_t *start_l;
	pcb_net_term_t *term;

	term = pcb_net_find_by_obj(&PCB->netlist[PCB_NETLIST_EDITED], start_term);

	attached_path.sketch = sketches_get_sketch_at_layer(layer);
	attached_path.start_term = start_term;
	attached_path.net = term != NULL ? term->parent.net : NULL;
	if (check_net && attached_path.net == NULL)
		return rnd_false;

	vtp0_init(&attached_path.lines);
	start_l = attached_path_new_line();
	pcb_obj_center(start_term, &start_l->Point1.X, &start_l->Point1.Y);
	tool_skline_adjust_attached_objects(&PCB->hidlib);

	attached_path.start_p = sketch_get_point_at_terminal(attached_path.sketch, start_term);
	attached_path.current_t = NULL;
	attached_path.visited_edges = NULL;
	wire_init(&attached_path.corridor);
	wire_push_point(&attached_path.corridor, attached_path.start_p, SIDE_TERM);

	return rnd_true;
}

static void attached_path_uninit()
{
	int i;
	for (i = 0; i < vtp0_len(&attached_path.lines); i++)
		free(attached_path.lines.array[i]);
	vtp0_uninit(&attached_path.lines);
	edgelist_free(attached_path.visited_edges);
	attached_path.visited_edges = NULL;
	wire_uninit(&attached_path.corridor);
}

static rnd_bool line_intersects_edge(pcb_attached_line_t *line, edge_t *edge)
{
	point_t p, q;
	p.pos.x = line->Point1.X;
	p.pos.y = -line->Point1.Y;
	q.pos.x = line->Point2.X;
	q.pos.y = -line->Point2.Y;
	return LINES_INTERSECT(&p, &q, edge->endp[0], edge->endp[1]);
}

static rnd_bool attached_path_next_point(point_t *end_p)
{
	int last = vtp0_len(&attached_path.lines) - 1;
	pcb_attached_line_t *attached_line = attached_path.lines.array[last];
	edge_t *entrance_e = NULL;
	wire_t corridor_ops;
	int i;

	wire_init(&corridor_ops);
#define RETURN(r) do { \
	wire_uninit(&corridor_ops); \
	return (r); \
} while (0)

	/* move along the attached line to find intersecting triangles which form a corridor */
	while(1) {
		if (attached_path.current_t == NULL) { /* we haven't left the first triangle yet */
			TRIANGLELIST_FOREACH(t, attached_path.start_p->adj_triangles)
				for (i = 0; i < 3; i++)
					if (t->e[i]->endp[0] != attached_path.start_p && t->e[i]->endp[1] != attached_path.start_p
							&& t->e[i] != entrance_e && line_intersects_edge(attached_line, t->e[i])) {
						if (sketch_check_path(attached_path.start_p, NULL, t->e[i], NULL) == rnd_false)
							RETURN(rnd_false);
						attached_path.current_t = t->adj_t[i];
						wire_push_point(&corridor_ops, t->p[i], SIDE_RIGHT);
						wire_push_point(&corridor_ops, t->p[(i+1)%3], SIDE_LEFT);
						entrance_e = t->e[i];
						attached_path.visited_edges = edgelist_prepend(attached_path.visited_edges, &entrance_e);
						goto next_triangle;
					}
			TRIANGLELIST_FOREACH_END();
		}
		else { /* next triangle in the corridor */
			triangle_t *t = attached_path.current_t;
			for (i = 0; i < 3; i++) {
				if (t->e[i] != entrance_e && line_intersects_edge(attached_line, t->e[i])) {
					edge_t *last_entrance_e = attached_path.visited_edges->item;
					entrance_e = t->e[i];
					attached_path.current_t = t->adj_t[i];
					if (t->e[i] != last_entrance_e) { /* going forward */
						if (sketch_check_path(NULL, attached_path.visited_edges->item, t->e[i], NULL) == rnd_false)
							RETURN(rnd_false);
						wire_push_point(&corridor_ops,
														t->p[t->e[(i+2)%3] == last_entrance_e ? (i+1)%3 : i],
														t->e[(i+1)%3] == last_entrance_e ? SIDE_RIGHT : SIDE_LEFT);
						attached_path.visited_edges = edgelist_prepend(attached_path.visited_edges, &entrance_e);
						goto next_triangle;
					}
					else { /* going backward */
						attached_path.visited_edges = edgelist_remove_front(attached_path.visited_edges);
						wire_push_point(&corridor_ops, NULL, 0); /* NULL means to remove point */
						if (attached_path.visited_edges == NULL) { /* came back to the first triangle */
							wire_push_point(&corridor_ops, NULL, 0);
							attached_path.current_t = NULL;
						}
						goto next_triangle;
					}
				}
			}
		}
		break;
next_triangle:
		continue;
	}

	if (end_p != NULL) { /* connecting to the last point? */
		if (attached_path.visited_edges == NULL) {
			if (sketch_check_path(attached_path.start_p, NULL, NULL, end_p) == rnd_false)
				RETURN(rnd_false);
		}
		else if (sketch_check_path(NULL, attached_path.visited_edges->item, NULL, end_p) == rnd_false)
			RETURN(rnd_false);
		wire_push_point(&corridor_ops, end_p, SIDE_TERM);
	}

	/* apply evaluated points additions/removals */
	for (i = 0; i < corridor_ops.point_num; i++) {
		if (corridor_ops.points[i].p != NULL)
			wire_push_point(&attached_path.corridor, corridor_ops.points[i].p, corridor_ops.points[i].side);
		else
			wire_pop_point(&attached_path.corridor);
	}

	/* remove unwanted points which could be encountered around the end point */
	if (end_p != NULL) {
		int i, n = 0;
		wire_pop_point(&attached_path.corridor); /* temporarily remove the end point */
		EDGELIST_FOREACH(e, attached_path.visited_edges)
			if (e->endp[0] == end_p || e->endp[1] == end_p)
				n++; else break;
		EDGELIST_FOREACH_END();
		for (i = 0; i < n; i++)
			wire_pop_point(&attached_path.corridor);
		if (attached_path.corridor.points[attached_path.corridor.point_num - 1].p == end_p)
			wire_pop_point(&attached_path.corridor);
		wire_push_point(&attached_path.corridor, end_p, SIDE_TERM);
	}

	attached_path_next_line();
	return rnd_true;
#undef RETURN
}

static rnd_bool attached_path_finish(pcb_any_obj_t *end_term)
{
	rnd_bool net_valid = rnd_false;

	if (check_net) {
		if(end_term != attached_path.start_term) {
			if (pcb_net_term_get_by_obj(attached_path.net, end_term) != NULL)
				net_valid = rnd_true;
		}
	}
	else
		net_valid = rnd_true;

	if (net_valid) {
		point_t *end_p;
		wire_t *path, *new_wire;

		end_p = sketch_get_point_at_terminal(attached_path.sketch, end_term);
		if (attached_path_next_point(end_p) == rnd_false)
			return rnd_false;

		path = sketch_find_shortest_path(&attached_path.corridor);
		path->thickness = conf_core.design.line_thickness;
		path->clearance = conf_core.design.clearance;
		new_wire = sketch_insert_wire(attached_path.sketch, path);
		sketch_insert_ewire(attached_path.sketch, new_wire);
		sketch_update_cdt_layer(attached_path.sketch);
		sketch_update_erbs_layer(attached_path.sketch);
		wire_uninit(path);
		return rnd_true;
	}

	return rnd_false;
}

static void tool_skline_init(void)
{
	if (htip_length(&sketches) == 0)
		sketches_init();
}

static void tool_skline_uninit(void)
{
	rnd_hid_notify_crosshair_change(&PCB->hidlib, rnd_false);
	attached_path_uninit();
	pcb_crosshair_attached_clean(&PCB->hidlib);
	pcb_crosshair.AttachedObject.Type = PCB_OBJ_VOID;
	pcb_crosshair.AttachedObject.State = PCB_CH_STATE_FIRST;
	rnd_hid_notify_crosshair_change(&PCB->hidlib, rnd_true);
}

static void tool_skline_notify_mode(rnd_hidlib_t *hl)
{
	int type;
	void *ptr1, *ptr2, *ptr3;
	pcb_any_obj_t *term_obj;

	switch (pcb_crosshair.AttachedObject.State) {
	case PCB_CH_STATE_FIRST:
		type = pcb_search_screen(hl->tool_x, hl->tool_y, PCB_OBJ_CLASS_TERM, &ptr1, &ptr2, &ptr3);
		/* TODO: check if an object is on the current layer */
		if (type != PCB_OBJ_VOID) {
			term_obj = ptr2;
			if (term_obj->term != NULL
					&& ((type == PCB_OBJ_PSTK && pcb_pstk_shape_at(PCB, (pcb_pstk_t *) term_obj, PCB_CURRLAYER(PCB)) != NULL)
							|| type != PCB_OBJ_PSTK)
					&& attached_path_init(PCB_CURRLAYER(PCB), term_obj)) {
				pcb_crosshair_attached_clean(hl);
				pcb_crosshair.AttachedObject.Type = PCB_OBJ_LINE;
				pcb_crosshair.AttachedObject.State = PCB_CH_STATE_SECOND;
			}
			else
				rnd_message(RND_MSG_WARNING, "Sketch lines can be only drawn from a terminal\n");
		}
		break;

	case PCB_CH_STATE_SECOND:
		type = pcb_search_screen(hl->tool_x, hl->tool_y, PCB_OBJ_CLASS_TERM, &ptr1, &ptr2, &ptr3);
		/* TODO: check if an object is on the current layer */
		if (type != PCB_OBJ_VOID) {
			term_obj = ptr2;
			if (term_obj->term != NULL
					&& ((type == PCB_OBJ_PSTK && pcb_pstk_shape_at(PCB, (pcb_pstk_t *) term_obj, PCB_CURRLAYER(PCB)) != NULL)
							|| type != PCB_OBJ_PSTK)) {
				if (attached_path_finish(term_obj) == rnd_true) {
					attached_path_uninit();
					pcb_crosshair_attached_clean(hl);
					pcb_crosshair.AttachedObject.Type = PCB_OBJ_VOID;
					pcb_crosshair.AttachedObject.State = PCB_CH_STATE_FIRST;
				} else {
					rnd_message(RND_MSG_WARNING, "Cannot finish placing wire at this terminal\n");
					rnd_message(RND_MSG_WARNING, "(the terminal does not belong to the routed net or is the starting terminal)\n");
				}
				break;
			}
		}
		if (attached_path_next_point(NULL) == rnd_false)
			rnd_message(RND_MSG_WARNING, "Cannot route the wire this way\n");

		break;
	}
}

static void tool_skline_adjust_attached_objects(rnd_hidlib_t *hl)
{
	int last = vtp0_len(&attached_path.lines) - 1;
	if (last >= 0) {
		((pcb_attached_line_t *) attached_path.lines.array[last])->Point2.X = pcb_crosshair.X;
		((pcb_attached_line_t *) attached_path.lines.array[last])->Point2.Y = pcb_crosshair.Y;
	}
}

static void tool_skline_draw_attached(rnd_hidlib_t *hl)
{
	int i;
	if (pcb_crosshair.AttachedObject.Type != PCB_OBJ_VOID) {
		for (i = 0; i < vtp0_len(&attached_path.lines); i++) {
			rnd_point_t *p1 = &((pcb_attached_line_t *) attached_path.lines.array[i])->Point1;
			rnd_point_t *p2 = &((pcb_attached_line_t *) attached_path.lines.array[i])->Point2;
			rnd_render->draw_line(pcb_crosshair.GC, p1->X, p1->Y, p2->X, p2->Y);
		}
	}
}

rnd_bool tool_skline_undo_act(rnd_hidlib_t *hl)
{
	/* TODO */
	return rnd_false;
}

/* XPM */
static const char *skroute_xpm[] = {
"21 21 3 1",
" 	c None",
".	c #000000",
"+	c #6EA5D7",
"                     ",
"                     ",
"         +      +    ",
"        +........+   ",
"        .+      +.   ",
"       .          .+ ",
"      .           +.+",
"     .             + ",
"    .                ",
"  +.                 ",
" +.+                 ",
"  +                  ",
" ...  .  . ...  .....",
".   . .  . .  .   .  ",
".     .  . .  .   .  ",
" ..   . .  ...    .  ",
"  ..  ..   .  .   .  ",
"    . . .  .   .  .  ",
".   . .  . .   .  .  ",
" ...  .  . .   .  .  ",
"                     "};

static rnd_tool_t tool_skline = {
	"skline", "convert a free-hand sketch of a route to traces",
	NULL, 100, skroute_xpm, RND_TOOL_CURSOR_NAMED(NULL), RND_TLF_AUTO_TOOLBAR,
	tool_skline_init,
	tool_skline_uninit,
	tool_skline_notify_mode,
	NULL,
	tool_skline_adjust_attached_objects,
	tool_skline_draw_attached,
	tool_skline_undo_act,
	NULL,
	NULL, /* escape */

	rnd_false
};


/*** actions ***/
static const char pcb_acts_skretriangulate[] = "skretriangulate()";
static const char pcb_acth_skretriangulate[] = "Reconstruct CDT on all layer groups";
fgw_error_t pcb_act_skretriangulate(fgw_arg_t *res, int argc, fgw_arg_t *argv)
{
	sketches_uninit();
	sketches_init();

	RND_ACT_IRES(0);
	return 0;
}

static const char pcb_acts_skline[] = "skline()";
static const char pcb_acth_skline[] = "Tool for drawing sketch lines";
fgw_error_t pcb_act_skline(fgw_arg_t *res, int argc, fgw_arg_t *argv)
{
	rnd_tool_select_by_name(&PCB->hidlib, "skline");

	RND_ACT_IRES(0);
	return 0;
}

static const char pcb_acts_sktransform[] = "sktransform(rect|oct|alldir)";
static const char pcb_acth_sktransform[] = "Transform sketch to geometrical wiring";
fgw_error_t pcb_act_sktransform(fgw_arg_t *res, int argc, fgw_arg_t *argv)
{
	/* TODO */
	RND_ACT_IRES(0);
	return 0;
}

rnd_action_t sketch_route_action_list[] = {
	{"skretriangulate", pcb_act_skretriangulate, pcb_acth_skretriangulate, pcb_acts_skretriangulate},
	{"skline", pcb_act_skline, pcb_acth_skline, pcb_acts_skline},
	{"sktransform", pcb_act_sktransform, pcb_acth_sktransform, pcb_acts_sktransform}
};

int pplg_check_ver_sketch_route(int ver_needed) { return 0; }

void pplg_uninit_sketch_route(void)
{
	rnd_remove_actions_by_cookie(pcb_sketch_route_cookie);
	rnd_tool_unreg_by_cookie(pcb_sketch_route_cookie); /* should be done before pcb_tool_uninit, somehow */
	sketches_uninit();
}

int pplg_init_sketch_route(void)
{
	RND_API_CHK_VER;
	RND_REGISTER_ACTIONS(sketch_route_action_list, pcb_sketch_route_cookie)

	rnd_tool_reg(&tool_skline, pcb_sketch_route_cookie);

	return 0;
}
