/*
 * CINELERRA
 * Copyright (C) 1997-2012 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 "assetedit.h"
#include "clippopup.h"
#include "assetremove.h"
#include "awindow.h"
#include "awindowgui.h"
#include "bcsignals.h"
#include "clipedit.h"
#include "clipedls.h"
#include "cwindow.h"
#include "cwindowgui.h"
#include "edit.h"
#include "edits.h"
#include "edl.h"
#include "edlsession.h"
#include "filexml.h"
#include "language.h"
#include "localsession.h"
#include "mainerror.h"
#include "mainindexes.h"
#include "mainsession.h"
#include "mwindow.h"
#include "mwindowgui.h"
#include "track.h"
#include "tracks.h"
#include "vwindow.h"
#include "vwindowgui.h"



ClipPopup::ClipPopup(MWindow *mwindow, AWindowGUI *gui)
 : BC_PopupMenu(0, 0, 0, "", 0)
{
	this->mwindow = mwindow;
	this->gui = gui;
}

ClipPopup::~ClipPopup()
{
}

void ClipPopup::create_objects()
{
	BC_MenuItem *menu_item;
	BC_SubMenu *submenu;
	add_item(info = new ClipPopupInfo(mwindow, this));
	add_item(format = new AWindowListFormat(mwindow, gui));
	add_item(new ClipPopupSort(mwindow, this));
	add_item(view = new ClipPopupView(mwindow, this));
	add_item(view_window = new ClipPopupViewWindow(mwindow, this));
	add_item(new ClipPopupCopy(mwindow, this));
	add_item(new ClipPopupNest(mwindow, this));
	add_item(new ClipPopupUnNest(mwindow, this));
	add_item(new ClipPopupPaste(mwindow, this));
	add_item(menu_item = new BC_MenuItem(_("Match...")));
	menu_item->add_submenu(submenu = new BC_SubMenu());
	submenu->add_submenuitem(new ClipMatchSize(mwindow, this));
	submenu->add_submenuitem(new ClipMatchRate(mwindow, this));
	submenu->add_submenuitem(new ClipMatchAll(mwindow, this));
	add_item(new ClipPopupDelete(mwindow, this));
}

void ClipPopup::paste_assets()
{
// Collect items into the drag vectors for temporary storage
	gui->lock_window("ClipPopup::paste_assets");
	mwindow->gui->lock_window("ClipPopup::paste_assets");
	mwindow->cwindow->gui->lock_window("ClipPopup::paste_assets");

	gui->collect_assets();
	mwindow->paste_assets(mwindow->edl->local_session->get_selectionstart(1),
		mwindow->edl->tracks->first,
		0);   // do not overwrite

	gui->unlock_window();
	mwindow->gui->unlock_window();
	mwindow->cwindow->gui->unlock_window();
}

void ClipPopup::match_size()
{
// Collect items into the drag vectors for temporary storage
	gui->collect_assets();
	mwindow->gui->lock_window("ClipPopup::match_size");
	mwindow->asset_to_size();
	mwindow->gui->unlock_window();
}

void ClipPopup::match_rate()
{
// Collect items into the drag vectors for temporary storage
	gui->collect_assets();
	mwindow->gui->lock_window("ClipPopup::match_rate");
	mwindow->asset_to_rate();
	mwindow->gui->unlock_window();
}

void ClipPopup::match_all()
{
// Collect items into the drag vectors for temporary storage
	gui->collect_assets();
	mwindow->gui->lock_window("ClipPopup::match_rate");
	mwindow->asset_to_all();
	mwindow->gui->unlock_window();
}

int ClipPopup::update()
{
	format->update();
	gui->collect_assets();
	return 0;
}


ClipPopupInfo::ClipPopupInfo(MWindow *mwindow, ClipPopup *popup)
 : BC_MenuItem(_("Info..."))
{
	this->mwindow = mwindow;
	this->popup = popup;
}

ClipPopupInfo::~ClipPopupInfo()
{
}

int ClipPopupInfo::handle_event()
{
	int cur_x, cur_y;
	popup->gui->get_abs_cursor(cur_x, cur_y, 0);

	if( mwindow->session->drag_assets->total ) {
		AssetEdit *asset_edit = mwindow->awindow->get_asset_editor();
		asset_edit->edit_asset(
			mwindow->session->drag_assets->values[0], cur_x, cur_y);
	}
	else
	if( mwindow->session->drag_clips->total ) {
		popup->gui->awindow->clip_edit->edit_clip(
			mwindow->session->drag_clips->values[0], cur_x, cur_y);
	}
	return 1;
}


ClipPopupSort::ClipPopupSort(MWindow *mwindow, ClipPopup *popup)
 : BC_MenuItem(_("Sort items"))
{
	this->mwindow = mwindow;
	this->popup = popup;
}

ClipPopupSort::~ClipPopupSort()
{
}

int ClipPopupSort::handle_event()
{
	mwindow->awindow->gui->sort_assets();
	return 1;
}


ClipPopupView::ClipPopupView(MWindow *mwindow, ClipPopup *popup)
 : BC_MenuItem(_("View"))
{
	this->mwindow = mwindow;
	this->popup = popup;
}

ClipPopupView::~ClipPopupView()
{
}

int ClipPopupView::handle_event()
{
	VWindow *vwindow = mwindow->get_viewer(1, DEFAULT_VWINDOW);

	if( mwindow->session->drag_assets->total )
		vwindow->change_source(
			mwindow->session->drag_assets->values[0]);
	else
	if( mwindow->session->drag_clips->total )
		vwindow->change_source(
			mwindow->session->drag_clips->values[0]);

	return 1;
}


ClipPopupViewWindow::ClipPopupViewWindow(MWindow *mwindow, ClipPopup *popup)
 : BC_MenuItem(_("View in new window"))
{
	this->mwindow = mwindow;
	this->popup = popup;
}

ClipPopupViewWindow::~ClipPopupViewWindow()
{
}

int ClipPopupViewWindow::handle_event()
{
	for( int i=0; i<mwindow->session->drag_assets->size(); ++i ) {
		VWindow *vwindow = mwindow->get_viewer(1);
		vwindow->gui->lock_window("ClipPopupView::handle_event 1");
		vwindow->change_source(mwindow->session->drag_assets->get(i));
		vwindow->gui->unlock_window();
	}
	for( int i=0; i<mwindow->session->drag_clips->size(); ++i ) {
		VWindow *vwindow = mwindow->get_viewer(1);
		vwindow->gui->lock_window("ClipPopupView::handle_event 2");
		vwindow->change_source(mwindow->session->drag_clips->get(i));
		vwindow->gui->unlock_window();
	}
	return 1;
}


ClipPopupCopy::ClipPopupCopy(MWindow *mwindow, ClipPopup *popup)
 : BC_MenuItem(_("Copy"))
{
	this->mwindow = mwindow;
	this->popup = popup;
}
ClipPopupCopy::~ClipPopupCopy()
{
}

int ClipPopupCopy::handle_event()
{
	MWindowGUI *gui = mwindow->gui;
	gui->lock_window("ClipPopupCopy::handle_event");
	if( mwindow->session->drag_clips->total > 0 ) {
		EDL *edl = mwindow->session->drag_clips->values[0];
		EDL *copy_edl = new EDL; // no parent or assets wont be copied
		copy_edl->create_objects();
		copy_edl->copy_all(edl);
		FileXML file;
		double start = 0, end = edl->tracks->total_length();
		copy_edl->copy(COPY_EDL, start, end, &file, "", 1);
		copy_edl->remove_user();
		const char *file_string = file.string();
		long file_length = strlen(file_string);
		gui->to_clipboard(file_string, file_length, SECONDARY_SELECTION);
		gui->to_clipboard(file_string, file_length, BC_PRIMARY_SELECTION);
	}
	gui->unlock_window(); 
	return 1;
}


ClipPopupPaste::ClipPopupPaste(MWindow *mwindow, ClipPopup *popup)
 : BC_MenuItem(_("Paste"))
{
	this->mwindow = mwindow;
	this->popup = popup;
}

ClipPopupPaste::~ClipPopupPaste()
{
}

int ClipPopupPaste::handle_event()
{
	popup->paste_assets();
	return 1;
}


ClipMatchSize::ClipMatchSize(MWindow *mwindow, ClipPopup *popup)
 : BC_MenuItem(_("Match project size"))
{
	this->mwindow = mwindow;
	this->popup = popup;
}

int ClipMatchSize::handle_event()
{
	popup->match_size();
	return 1;
}


ClipMatchRate::ClipMatchRate(MWindow *mwindow, ClipPopup *popup)
 : BC_MenuItem(_("Match frame rate"))
{
	this->mwindow = mwindow;
	this->popup = popup;
}

int ClipMatchRate::handle_event()
{
	popup->match_rate();
	return 1;
}


ClipMatchAll::ClipMatchAll(MWindow *mwindow, ClipPopup *popup)
 : BC_MenuItem(_("Match all"))
{
	this->mwindow = mwindow;
	this->popup = popup;
}

int ClipMatchAll::handle_event()
{
	popup->match_all();
	return 1;
}


ClipPopupDelete::ClipPopupDelete(MWindow *mwindow, ClipPopup *popup)
 : BC_MenuItem(_("Delete"))
{
	this->mwindow = mwindow;
	this->popup = popup;
}


ClipPopupDelete::~ClipPopupDelete()
{
}

int ClipPopupDelete::handle_event()
{
	popup->gui->unlock_window();
	mwindow->remove_assets_from_project(1, 1,
		mwindow->session->drag_assets,
		mwindow->session->drag_clips);
	popup->gui->lock_window("ClipPopupDelete::handle_event");
	return 1;
}


ClipPasteToFolder::ClipPasteToFolder(MWindow *mwindow)
 : BC_MenuItem(_("Paste Clip"))
{
	this->mwindow = mwindow;
}

int ClipPasteToFolder::handle_event()
{
	MWindowGUI *gui = mwindow->gui;
	gui->lock_window("ClipPasteToFolder::handle_event 1");
	int64_t len = gui->clipboard_len(BC_PRIMARY_SELECTION);
	if( len ) {
		char *string = new char[len];
		gui->from_clipboard(string, len, BC_PRIMARY_SELECTION);
		const char *clip_header = "<EDL VERSION=";
		if( !strncmp(clip_header, string, strlen(clip_header)) ) {
			FileXML file;
			file.read_from_string(string);
			EDL *edl = mwindow->edl;
			EDL *new_edl = new EDL(mwindow->edl);
			new_edl->create_objects();
			new_edl->load_xml(&file, LOAD_ALL);
			edl->update_assets(new_edl);
			mwindow->save_clip(new_edl, _("paste clip: "));
		}
		else {
			char *cp = strchr(string, '\n');
			if( cp-string < 32 ) *cp = 0;
			else if( len > 32 ) string[32] = 0;
			eprintf("paste buffer is not EDL:\n%s", string);
		}
		delete [] string;
	}
	else {
		eprintf("paste buffer empty");
	}
	gui->unlock_window();
	return 1;
}


ClipListMenu::ClipListMenu(MWindow *mwindow, AWindowGUI *gui)
 : BC_PopupMenu(0, 0, 0, "", 0)
{
	this->mwindow = mwindow;
	this->gui = gui;
}

ClipListMenu::~ClipListMenu()
{
}

void ClipListMenu::create_objects()
{
	add_item(format = new AWindowListFormat(mwindow, gui));
	add_item(new AWindowListSort(mwindow, gui));
	add_item(new ClipPasteToFolder(mwindow));
	update();
}

void ClipListMenu::update()
{
	format->update();
}


ClipPopupNest::ClipPopupNest(MWindow *mwindow, ClipPopup *popup)
 : BC_MenuItem(_("Nest"))
{
	this->mwindow = mwindow;
	this->popup = popup;
}
ClipPopupNest::~ClipPopupNest()
{
}

int ClipPopupNest::handle_event()
{
	MWindowGUI *gui = mwindow->gui;
	gui->lock_window("ClipPopupNest::handle_event 1");
	if( mwindow->edl->session->proxy_scale != 1 ) {
		eprintf("Nesting not allowed when proxy scale != 1");
	}
	else if( mwindow->session->drag_clips->total > 0 ) {
		EDL *edl = mwindow->edl;
		time_t dt;      time(&dt);
		struct tm dtm;  localtime_r(&dt, &dtm);
		char path[BCSTRLEN];
		sprintf(path, _("Nested_%02d%02d%02d-%02d%02d%02d"),
			dtm.tm_year+1900, dtm.tm_mon+1, dtm.tm_mday,
			dtm.tm_hour, dtm.tm_min, dtm.tm_sec);
		EDL *clip = mwindow->session->drag_clips->values[0];
		EDL *nested = edl->new_nested(clip, path);
		EDL *new_clip = edl->create_nested_clip(nested);
		new_clip->folder_no = AW_CLIP_FOLDER;
                sprintf(new_clip->local_session->clip_icon,
                        "clip_%02d%02d%02d-%02d%02d%02d.png",
                        dtm.tm_year+1900, dtm.tm_mon+1, dtm.tm_mday,
                        dtm.tm_hour, dtm.tm_min, dtm.tm_sec);
		snprintf(new_clip->local_session->clip_title,
			sizeof(new_clip->local_session->clip_title),
			_("Nested: %s"), clip->local_session->clip_title);
		strcpy(new_clip->local_session->clip_notes,
			clip->local_session->clip_notes);
		int idx = edl->clips.number_of(clip);
		if( idx >= 0 ) {
			edl->clips[idx] = new_clip;
			clip->remove_user();
		}
		else
			edl->clips.append(new_clip);
		mwindow->mainindexes->add_next_asset(0, nested);
		mwindow->mainindexes->start_build();
		popup->gui->async_update_assets();
	}
	gui->unlock_window();
	return 1;
}


ClipPopupUnNest::ClipPopupUnNest(MWindow *mwindow, ClipPopup *popup)
 : BC_MenuItem(_("UnNest"))
{
	this->mwindow = mwindow;
	this->popup = popup;
}
ClipPopupUnNest::~ClipPopupUnNest()
{
}

int ClipPopupUnNest::handle_event()
{
	EDL *nested_edl = 0;
	MWindowGUI *gui = mwindow->gui;
	gui->lock_window("ClipPopupUnNest::handle_event 1");
	if( mwindow->session->drag_clips->total > 0 ) {
		EDL *clip = mwindow->session->drag_clips->values[0];
		Track *track = clip->tracks->first;
		Edit *edit = track ? track->edits->first : 0;
		nested_edl = edit && !edit->next && !edit->asset ? edit->nested_edl : 0;
		while( nested_edl && (track=track->next)!=0 ) {
			Edit *edit = track->edits->first;
			if( !edit || edit->next ||
			    ( edit->nested_edl != nested_edl &&
			      strcmp(edit->nested_edl->path, nested_edl->path) ) )
				nested_edl = 0;
		}
		if( nested_edl ) {
			EDL *edl = mwindow->edl;
			EDL *new_clip = new EDL(edl);
			new_clip->create_objects();
			new_clip->copy_all(nested_edl);
			new_clip->folder_no = AW_CLIP_FOLDER;
			int idx = edl->clips.number_of(clip);
			if( idx >= 0 ) {
				edl->clips[idx] = new_clip;
				clip->remove_user();
			}
			else
				edl->clips.append(new_clip);
			popup->gui->async_update_assets();
		}
	}
	gui->unlock_window();
	return 1;
}