/*
 * functions that manipulate the frame structure.
 * Copyright (C) 2000, 2001, 2002, 2003, 2004 Shawn Betts <sabetts@vcn.bc.ca>
 *
 * 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., 59 Temple
 * Place, Suite 330, Boston, MA 02111-1307 USA.
 */

#include "sdorfehs.h"

#include <string.h>
#include <err.h>

int
frame_left(rp_frame *frame)
{
	return frame->x;
}

int
frame_left_screen_edge(rp_frame *frame)
{
	return (frame_left(frame) <= screen_left(frame->vscreen->screen) +
	    defaults.padding_left);
}

int
frame_top(rp_frame *frame)
{
	return frame->y;
}

int
frame_top_screen_edge(rp_frame *frame)
{
	return (frame_top(frame) <= (screen_top(frame->vscreen->screen) +
	    defaults.padding_top));
}

int
frame_right(rp_frame *frame)
{
	return frame->x + frame->width;
}

int
frame_right_screen_edge(rp_frame *frame)
{
	return (frame_right(frame) >= screen_right(frame->vscreen->screen) -
	    defaults.padding_right);
}

int
frame_bottom(rp_frame *frame)
{
	return frame->y + frame->height;
}

int
frame_bottom_screen_edge(rp_frame *frame)
{
	return (frame_bottom(frame) >= screen_bottom(frame->vscreen->screen) -
	    defaults.padding_bottom);
}

int
frame_width(rp_frame *frame)
{
	return frame->width;
}

int
frame_height(rp_frame *frame)
{
	return frame->height;
}

void
frame_resize_left(rp_frame *frame, int amount)
{
	frame->x -= amount;
	frame->width += amount;
}

void
frame_resize_right(rp_frame *frame, int amount)
{
	frame->width += amount;
}

void
frame_resize_up(rp_frame *frame, int amount)
{
	frame->y -= amount;
	frame->height += amount;
}

void
frame_resize_down(rp_frame *frame, int amount)
{
	frame->height += amount;
}

void
mark_edge_frames(void)
{
	rp_screen *s;
	rp_vscreen *v;
	rp_frame *f;

	list_for_each_entry(s, &rp_screens, node) {
		list_for_each_entry(v, &s->vscreens, node) {
			list_for_each_entry(f, &v->frames, node) {
				f->edges = 0;

				if (frame_top_screen_edge(f))
					f->edges |= EDGE_TOP;
				if (frame_left_screen_edge(f))
					f->edges |= EDGE_LEFT;
				if (frame_right_screen_edge(f))
					f->edges |= EDGE_RIGHT;
				if (frame_bottom_screen_edge(f))
					f->edges |= EDGE_BOTTOM;
			}
		}
	}
}

static void
init_frame(rp_frame *f)
{
	f->number = 0;
	f->x = 0;
	f->y = 0;
	f->width = 0;
	f->height = 0;
	f->win_number = 0;
	f->last_access = 0;
	f->dedicated = 0;
	f->restore_win_number = EMPTY;
}

rp_frame *
frame_new(rp_vscreen *v)
{
	rp_frame *f;

	f = xmalloc(sizeof(rp_frame));
	init_frame(f);
	f->vscreen = v;
	f->number = numset_request(v->frames_numset);

	return f;
}

void
frame_free(rp_vscreen *v, rp_frame *f)
{
	numset_release(v->frames_numset, f->number);
	free(f);
}

rp_frame *
frame_copy(rp_frame *frame)
{
	rp_frame *copy;

	copy = xmalloc(sizeof(rp_frame));

	copy->vscreen = frame->vscreen;
	copy->number = frame->number;
	copy->x = frame->x;
	copy->y = frame->y;
	copy->width = frame->width;
	copy->height = frame->height;
	copy->win_number = frame->win_number;
	copy->last_access = frame->last_access;

	return copy;
}

char *
frame_dump(rp_frame *frame, rp_vscreen *vscreen)
{
	rp_window *win;
	char *tmp;
	struct sbuf *s;

	/* rather than use win_number, use the X11 window ID. */
	win = find_window_number(frame->win_number);

	s = sbuf_new(0);
	sbuf_printf(s, "(frame :number %d :x %d :y %d :width %d :height %d "
	    ":screenw %d :screenh %d :window %ld :last-access %d :dedicated %d)",
	    frame->number,
	    frame->x,
	    frame->y,
	    frame->width,
	    frame->height,
	    vscreen->screen->width,
	    vscreen->screen->height,
	    win ? win->w : 0,
	    frame->last_access,
	    frame->dedicated);

	/* Extract the string and return it, and don't forget to free s. */
	tmp = sbuf_get(s);
	free(s);
	return tmp;
}

/* Used only by frame_read */
#define read_slot(x) do { tmp = strtok_ws (NULL); x = strtol(tmp,NULL,10); } while(0)

rp_frame *
frame_read(char *str, rp_vscreen *vscreen)
{
	Window w = 0L;
	rp_window *win;
	rp_frame *f;
	char *tmp, *d;
	int s_width = -1;
	int s_height = -1;

	/* Create a blank frame. */
	f = xmalloc(sizeof(rp_frame));
	init_frame(f);
	f->vscreen = vscreen;

	PRINT_DEBUG(("parsing '%s'\n", str));

	d = xstrdup(str);
	tmp = strtok_ws(d);

	/* Verify it starts with '(frame ' */
	if (tmp == NULL || strcmp(tmp, "(frame")) {
		PRINT_DEBUG(("Doesn't start with '(frame '\n"));
		free(d);
		free(f);
		return NULL;
	}
	/* NOTE: there is no check to make sure each field was filled in. */
	tmp = strtok_ws(NULL);
	while (tmp) {
		if (!strcmp(tmp, ":number"))
			read_slot(f->number);
		else if (!strcmp(tmp, ":x"))
			read_slot(f->x);
		else if (!strcmp(tmp, ":y"))
			read_slot(f->y);
		else if (!strcmp(tmp, ":width"))
			read_slot(f->width);
		else if (!strcmp(tmp, ":height"))
			read_slot(f->height);
		else if (!strcmp(tmp, ":screenw"))
			read_slot(s_width);
		else if (!strcmp(tmp, ":screenh"))
			read_slot(s_height);
		else if (!strcmp(tmp, ":window"))
			read_slot(w);
		else if (!strcmp(tmp, ":last-access"))
			read_slot(f->last_access);
		else if (!strcmp(tmp, ":dedicated")) {
			/* f->dedicated is unsigned, so read into local variable. */
			long dedicated;

			read_slot(dedicated);
			if (dedicated <= 0)
				f->dedicated = 0;
			else
				f->dedicated = 1;
		} else if (!strcmp(tmp, ")"))
			break;
		else
			warn("unknown slot reading frame: %s", tmp);

		/* Read the next token. */
		tmp = strtok_ws(NULL);
	}
	if (tmp)
		warnx("frame has trailing garbage: %s", tmp);
	free(d);

	/* adjust x, y, width and height to a possible screen size change */
	if (s_width > 0) {
		f->x = (f->x * vscreen->screen->width) / s_width;
		f->width = (f->width * vscreen->screen->width) / s_width;
	}
	if (s_height > 0) {
		f->y = (f->y * vscreen->screen->height) / s_height;
		f->height = (f->height * vscreen->screen->height) / s_height;
	}
	/*
	 * Perform some integrity checks on what we got and fix any problems.
	 */
	if (f->number <= 0)
		f->number = 0;
	if (f->x <= 0)
		f->x = 0;
	if (f->y <= 0)
		f->y = 0;
	if (f->width <= (defaults.window_border_width * 2) + (defaults.gap * 2))
		f->width = (defaults.window_border_width * 2) +
		    (defaults.gap * 2) + 1;
	if (f->height <= (defaults.window_border_width * 2) +
	    (defaults.gap * 2))
		f->height = (defaults.window_border_width * 2) +
		    (defaults.gap * 2) + 1;
	if (f->last_access < 0)
		f->last_access = 0;

	/* Find the window with the X11 window ID. */
	win = find_window_in_list(w, &rp_mapped_window);
	if (win)
		f->win_number = win->number;
	else
		f->win_number = EMPTY;

	return f;
}

#undef read_slot