/*
 * CINELERRA
 * Copyright (C) 2008 Adam Williams <broadcast at earthling dot net>
 *
 * 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 "asset.h"
#include "assets.h"
#include "bcsignals.h"
#include "clip.h"
#include "edit.h"
#include "edits.h"
#include "edl.h"
#include "edlsession.h"
#include "filexml.h"
#include "filesystem.h"
#include "labels.h"
#include "localsession.h"
#include "plugin.h"
#include "mainsession.h"
#include "strack.h"
#include "trackcanvas.h"
#include "tracks.h"
#include "transition.h"
#include <string.h>


Edit::Edit()
{
	reset();
}

Edit::Edit(EDL *edl, Track *track)
{
	reset();
	this->edl = edl;
	this->track = track;
	if(track) this->edits = track->edits;
	id = EDL::next_id();
}

Edit::Edit(EDL *edl, Edits *edits)
{
	reset();
	this->edl = edl;
	this->edits = edits;
	if(edits) this->track = edits->track;
	id = EDL::next_id();
}

Edit::~Edit()
{
//printf("Edit::~Edit 1\n");
	if(transition) delete transition;
//printf("Edit::~Edit 2\n");
}

void Edit::reset()
{
	edl = 0;
	track = 0;
	edits = 0;
	startsource = 0;
	startproject = 0;
	length = 0;
	asset = 0;
	transition = 0;
	channel = 0;
	user_title[0] = 0;
	nested_edl = 0;
	is_plugin = 0;
	is_selected = 0;
	hard_left = 0;
	hard_right = 0;
	color = 0;
	group_id = 0;
}

Indexable* Edit::get_source()
{
	if(asset) return asset;
	if(nested_edl) return nested_edl;
	return 0;
}

int Edit::copy(int64_t start,
	int64_t end,
	FileXML *file,
	const char *output_path)
{
// variables
//printf("Edit::copy 1\n");

	int64_t endproject = startproject + length;
	int result;

	if((startproject >= start && startproject <= end) ||  // startproject in range
		 (endproject <= end && endproject >= start) ||	   // endproject in range
		 (startproject <= start && endproject >= end))    // range in project
	{
// edit is in range
		int64_t startproject_in_selection = startproject; // start of edit in selection in project
		int64_t startsource_in_selection = startsource; // start of source in selection in source
		//int64_t endsource_in_selection = startsource + length; // end of source in selection
		int64_t length_in_selection = length;             // length of edit in selection
//printf("Edit::copy 2\n");

		if(startproject < start)
		{         // start is after start of edit in project
			int64_t length_difference = start - startproject;

			startsource_in_selection += length_difference;
			startproject_in_selection += length_difference;
			length_in_selection -= length_difference;
		}
//printf("Edit::copy 3\n");

		if(endproject > end)
		{         // end is before end of edit in project
			length_in_selection = end - startproject_in_selection;
		}

//printf("Edit::copy 4\n");
		if(file)    // only if not counting
		{
			file->tag.set_title("EDIT");
			file->tag.set_property("STARTSOURCE", startsource_in_selection);
			file->tag.set_property("CHANNEL", (int64_t)channel);
			file->tag.set_property("LENGTH", length_in_selection);
			file->tag.set_property("HARD_LEFT", hard_left);
			file->tag.set_property("HARD_RIGHT", hard_right);
			file->tag.set_property("COLOR", color);
			file->tag.set_property("GROUP_ID", group_id);
			if(user_title[0]) file->tag.set_property("USER_TITLE", user_title);
//printf("Edit::copy 5\n");

			copy_properties_derived(file, length_in_selection);

			file->append_tag();
//			file->append_newline();
//printf("Edit::copy 6\n");

			if(nested_edl)
			{
				file->tag.set_title("NESTED_EDL");
				file->tag.set_property("SRC", nested_edl->path);
				file->append_tag();
				file->tag.set_title("/NESTED_EDL");
				file->append_tag();
				file->append_newline();
			}

			if(asset)
			{
//printf("Edit::copy 6 %s\n", asset->path);
				char stored_path[BCTEXTLEN];
				char asset_directory[BCTEXTLEN];
				char output_directory[BCTEXTLEN];
				FileSystem fs;

//printf("Edit::copy %d %s\n", __LINE__, asset->path);
				fs.extract_dir(asset_directory, asset->path);
//printf("Edit::copy %d %s\n", __LINE__, asset->path);

				if(output_path)
					fs.extract_dir(output_directory, output_path);
				else
					output_directory[0] = 0;
//printf("Edit::copy %s, %s %s, %s\n", asset->path, asset_directory, output_path, output_directory);

				if(output_path && !strcmp(asset_directory, output_directory))
					fs.extract_name(stored_path, asset->path);
				else
					strcpy(stored_path, asset->path);

				file->tag.set_title("FILE");
				file->tag.set_property("SRC", stored_path);
				file->append_tag();
				file->tag.set_title("/FILE");
				file->append_tag();
			}

			if(transition && startsource_in_selection == startsource)
			{
				transition->save_xml(file);
			}

//printf("Edit::copy 7\n");
			file->tag.set_title("/EDIT");
			file->append_tag();
			file->append_newline();
//printf("Edit::copy 8\n");
		}
//printf("Edit::copy 9\n");
		result = 1;
	}
	else
	{
		result = 0;
	}
//printf("Edit::copy 10\n");
	return result;
}


int64_t Edit::get_source_end(int64_t default_)
{
	return default_;
}

void Edit::insert_transition(char *title)
{
//printf("Edit::insert_transition this=%p title=%p title=%s\n", this, title, title);
	delete transition;
	transition = new Transition(edl, this, title,
		track->to_units(edl->session->default_transition_length, 1));
}

void Edit::detach_transition()
{
	if(transition) delete transition;
	transition = 0;
}

int Edit::silence()
{
	return (track->data_type != TRACK_SUBTITLE ?
		asset || nested_edl :
		*((SEdit *)this)->get_text()) ? 0 : 1;
}

void Edit::set_selected(int v)
{
	if( group_id )
		edl->tracks->set_group_selected(group_id, v);
	else
		is_selected = v >= 0 ? v : !is_selected ? 1 : 0;
}

void Edit::copy_from(Edit *edit)
{
	this->nested_edl = edl->nested_edls.get_nested(edit->nested_edl);
	this->asset = edl->assets->update(edit->asset);
	this->startsource = edit->startsource;
	this->startproject = edit->startproject;
	this->length = edit->length;
	this->hard_left = edit->hard_left;
	this->hard_right = edit->hard_right;
	this->color = edit->color;
	this->group_id = edit->group_id;
	strcpy (this->user_title, edit->user_title);

	if(edit->transition)
	{
		if(!transition) transition = new Transition(edl,
			this,
			edit->transition->title,
			edit->transition->length);
		*this->transition = *edit->transition;
	}
	this->channel = edit->channel;
}

void Edit::equivalent_output(Edit *edit, int64_t *result)
{
// End of edit changed
	if(startproject + length != edit->startproject + edit->length)
	{
		int64_t new_length = MIN(startproject + length,
			edit->startproject + edit->length);
		if(*result < 0 || new_length < *result)
			*result = new_length;
	}

	if(
// Different nested EDLs
		(edit->nested_edl && !nested_edl) ||
		(!edit->nested_edl && nested_edl) ||
// Different assets
		(edit->asset == 0 && asset != 0) ||
		(edit->asset != 0 && asset == 0) ||
// different transitions
		(edit->transition == 0 && transition != 0) ||
		(edit->transition != 0 && transition == 0) ||
// Position changed
		(startproject != edit->startproject) ||
		(startsource != edit->startsource) ||
// Transition changed
		(transition && edit->transition &&
			!transition->identical(edit->transition)) ||
// Asset changed
		(asset && edit->asset &&
			!asset->equivalent(*edit->asset, 1, 1, edl)) ||
// Nested EDL changed
		(nested_edl && edit->nested_edl &&
			strcmp(nested_edl->path, edit->nested_edl->path))
		)
	{
// Start of edit changed
		if(*result < 0 || startproject < *result) *result = startproject;
	}
}


Edit& Edit::operator=(Edit& edit)
{
//printf("Edit::operator= called\n");
	copy_from(&edit);
	return *this;
}

void Edit::synchronize_params(Edit *edit)
{
	copy_from(edit);
}


// Comparison for ResourcePixmap drawing
int Edit::identical(Edit &edit)
{
	int result = (this->nested_edl == edit.nested_edl &&
		this->asset == edit.asset &&
		this->startsource == edit.startsource &&
		this->startproject == edit.startproject &&
		this->length == edit.length &&
		this->transition == edit.transition &&
		this->channel == edit.channel);
	return result;
}

int Edit::operator==(Edit &edit)
{
	return identical(edit);
}

double Edit::frames_per_picon()
{
	return Units::round(picon_w()) / frame_w();
}

double Edit::frame_w()
{
	return track->from_units(1) *
		edl->session->sample_rate /
		edl->local_session->zoom_sample;
}

double Edit::picon_w()
{
	int w = 0, h = 0;
	if(asset) {
		w = asset->width;
		h = asset->height;
	}
	else if(nested_edl) {
		w = nested_edl->session->output_w;
		h = nested_edl->session->output_h;
	}
	return w>0 && h>0 ? ((double)edl->local_session->zoom_track*w)/h : 0;
}

int Edit::picon_h()
{
	return edl->local_session->zoom_track;
}


int Edit::dump(FILE *fp)
{
	fprintf(fp,"     EDIT %p\n", this); fflush(fp);
	fprintf(fp,"      nested_edl=%p %s asset=%p %s\n",
		nested_edl,
		nested_edl ? nested_edl->path : "",
		asset,
		asset ? asset->path : "");
	fflush(fp);
	fprintf(fp,"      channel %d, color %08x, group_id %d, is_selected %d\n",
		channel, color, group_id, is_selected);
	if(transition)
	{
		fprintf(fp,"      TRANSITION %p\n", transition);
		transition->dump(fp);
	}
	fprintf(fp,"      startsource %jd startproject %jd hard lt/rt %d/%d length %jd\n",
		startsource, startproject, hard_left, hard_right, length); fflush(fp);
	return 0;
}

int Edit::load_properties(FileXML *file, int64_t &startproject)
{
	startsource = file->tag.get_property("STARTSOURCE", (int64_t)0);
	length = file->tag.get_property("LENGTH", (int64_t)0);
	hard_left = file->tag.get_property("HARD_LEFT", (int64_t)0);
	hard_right = file->tag.get_property("HARD_RIGHT", (int64_t)0);
	color = file->tag.get_property("COLOR", 0);
	group_id = file->tag.get_property("GROUP_ID", group_id);
	user_title[0] = 0;
	file->tag.get_property("USER_TITLE", user_title);
	this->startproject = startproject;
	load_properties_derived(file);
	return 0;
}

void Edit::shift(int64_t difference)
{
	startproject += difference;
}


int Edit::shift_start(int edit_mode, int64_t newposition, int64_t oldposition,
        int edit_edits, int edit_labels, int edit_plugins, int edit_autos,
        Edits *trim_edits)
{
	int64_t startproject = this->startproject;
	int64_t startsource = this->startsource;
	int64_t length = this->length;
	int64_t source_len = get_source_end(startsource + length);
	int64_t cut_length = newposition - oldposition;
	source_len -= cut_length;

	switch( edit_mode ) {
	case MOVE_EDGE:
		startproject += cut_length;
		startsource += cut_length;
		length -= cut_length;
		break;
	case MOVE_MEDIA:
		startsource += cut_length;
		break;
	case MOVE_EDGE_MEDIA:
		startproject += cut_length;
		length -= cut_length;
		break;
	}

	if( startproject < 0 ) {
		startsource += startproject;
		length += startproject;
		startproject = 0;
	}
	if( startsource < 0 )
		startsource = 0;
	if( length > source_len )
		length = source_len;
	if( length < 0 )
		length = 0;

	int64_t start = this->startproject;
	int64_t end = start + this->length;
	if( edit_labels ) {
		double cut_len = track->from_units(cut_length);
		double start_pos = edits->track->from_units(start);
		edits->edl->labels->insert(start_pos, cut_len);
		double end_pos = edits->track->from_units(end);
		edits->edl->labels->insert(end_pos + cut_len, -cut_len);
	}
	if( edit_autos ) {
		edits->shift_keyframes_recursive(start, cut_length);
		edits->shift_keyframes_recursive(end + cut_length, -cut_length);
	}
	if( edit_plugins ) {
		edits->shift_effects_recursive(start, cut_length, 1);
		edits->shift_effects_recursive(end + cut_length, -cut_length, 1);
	}
	if( !edit_edits && startproject < start ) {
		edits->clear(startproject, start);
		cut_length = start - startproject;
		for( Edit *edit=next; edit; edit=edit->next )
			edit->startproject += cut_length;
	}

	this->startproject = startproject;
	this->startsource = startsource;
	this->length = length;

	return 0;
}

int Edit::shift_end(int edit_mode, int64_t newposition, int64_t oldposition,
        int edit_edits, int edit_labels, int edit_plugins, int edit_autos,
        Edits *trim_edits)
{
	int64_t startproject = this->startproject;
	int64_t startsource = this->startsource;
	int64_t length = this->length;
	int64_t source_len = get_source_end(startsource + length);
	int64_t cut_length = newposition - oldposition;
	source_len += cut_length;

	switch( edit_mode ) {
	case MOVE_EDGE:
		length += cut_length;
		break;
	case MOVE_MEDIA:
		startsource += cut_length;
		break;
	case MOVE_EDGE_MEDIA:
		startsource -= cut_length;
		length += cut_length;
		break;
	}
	if( startproject < 0 ) {
		startsource += startproject;
		length += startproject;
		startproject = 0;
	}
	if( startsource < 0 )
		startsource = 0;
	if( length > source_len )
		length = source_len;
	if( length < 0 )
		length = 0;

	int64_t start = this->startproject;
	int64_t end = start + this->length;
	if( edit_labels ) {
		double cut_len = track->from_units(cut_length);
		double end_pos = edits->track->from_units(end);
		if( cut_len < 0 )
			edits->edl->labels->clear(end_pos + cut_len, end_pos, 1);
		else
			edits->edl->labels->insert(end_pos, cut_len);
	}
	Track *track = edits->track;
	if( cut_length < 0 )
		track->clear(end+cut_length, end,
			0, 0, edit_autos, edit_plugins, trim_edits);
	else if( cut_length > 0 ) {
		if( edit_autos )
			track->shift_keyframes(end, cut_length);
		if( edit_plugins )
			track->shift_effects(end, cut_length, 1, trim_edits);
	}

	int64_t new_end = startproject + length;
	if( edit_edits ) {
		cut_length = new_end - end;
		for( Edit* edit=next; edit; edit=edit->next )
			edit->startproject += cut_length;
	}
	else if( new_end > end )
		edits->clear(end, new_end);

	this->startproject = startproject;
	this->startsource = startsource;
	this->length = length;

	return 0;
}


int Edit::popup_transition(float view_start, float zoom_units, int cursor_x, int cursor_y)
{
	int64_t left, right, left_unit, right_unit;
	if(!transition) return 0;
	get_handle_parameters(left, right, left_unit, right_unit, view_start, zoom_units);

	if(cursor_x > left && cursor_x < right)
	{
//		transition->popup_transition(cursor_x, cursor_y);
		return 1;
	}
	return 0;
}

int Edit::select_handle(float view_start, float zoom_units, int cursor_x, int cursor_y, int64_t &selection)
{
	int64_t left, right, left_unit, right_unit;
	get_handle_parameters(left, right, left_unit, right_unit, view_start, zoom_units);

	int64_t pixel1, pixel2;
	pixel1 = left;
	pixel2 = pixel1 + 10;

// test left edit
// cursor_x is faked in acanvas
	if(cursor_x >= pixel1 && cursor_x <= pixel2)
	{
		selection = left_unit;
		return 1;     // left handle
	}

	//int64_t endproject = startproject + length;
	pixel2 = right;
	pixel1 = pixel2 - 10;

// test right edit
	if(cursor_x >= pixel1 && cursor_x <= pixel2)
	{
		selection = right_unit;
		return 2;     // right handle
	}
	return 0;
}

void Edit::get_title(char *title)
{
	if( user_title[0] ) {
		strcpy(title, user_title);
		return;
	}
	Indexable *idxbl = asset ? (Indexable*)asset : (Indexable*)nested_edl;
	if( !idxbl ) {
		title[0] = 0;
		return;
	}
	FileSystem fs;
	fs.extract_name(title, idxbl->path);
	if( asset || track->data_type == TRACK_AUDIO ) {
		char number[BCSTRLEN];
		sprintf(number, " #%d", channel + 1);
		strcat(title, number);
	}
}