/*
    Copyright (C) 2012 Carl Hetherington <cth@carlh.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., 675 Mass Ave, Cambridge, MA 02139, USA.

*/

/** @file src/server.cc
 *  @brief Class to describe a server to which we can send
 *  encoding work, and a class to implement such a server.
 */

#include <string>
#include <vector>
#include <sstream>
#include <iostream>
#include <boost/algorithm/string.hpp>
#include <boost/lexical_cast.hpp>
#include <boost/scoped_array.hpp>
#include "server.h"
#include "util.h"
#include "scaler.h"
#include "image.h"
#include "dcp_video_frame.h"
#include "config.h"
#include "subtitle.h"

#include "i18n.h"

using std::string;
using std::stringstream;
using std::multimap;
using std::vector;
using boost::shared_ptr;
using boost::algorithm::is_any_of;
using boost::algorithm::split;
using boost::thread;
using boost::bind;
using boost::scoped_array;
using libdcp::Size;

/** Create a server description from a string of metadata returned from as_metadata().
 *  @param v Metadata.
 *  @return ServerDescription, or 0.
 */
ServerDescription *
ServerDescription::create_from_metadata (string v)
{
	vector<string> b;
	split (b, v, is_any_of (N_(" ")));

	if (b.size() != 2) {
		return 0;
	}

	return new ServerDescription (b[0], atoi (b[1].c_str ()));
}

/** @return Description of this server as text */
string
ServerDescription::as_metadata () const
{
	stringstream s;
	s << _host_name << N_(" ") << _threads;
	return s.str ();
}

Server::Server (Log* log)
	: _log (log)
{

}

int
Server::process (shared_ptr<Socket> socket)
{
	uint32_t length = socket->read_uint32 ();
	scoped_array<char> buffer (new char[length]);
	socket->read (reinterpret_cast<uint8_t*> (buffer.get()), length);
	
	stringstream s (buffer.get());
	multimap<string, string> kv = read_key_value (s);

	if (get_required_string (kv, N_("encode")) != N_("please")) {
		return -1;
	}

	libdcp::Size in_size (get_required_int (kv, N_("input_width")), get_required_int (kv, N_("input_height")));
	int pixel_format_int = get_required_int (kv, N_("input_pixel_format"));
	libdcp::Size out_size (get_required_int (kv, N_("output_width")), get_required_int (kv, N_("output_height")));
	int padding = get_required_int (kv, N_("padding"));
	int subtitle_offset = get_required_int (kv, N_("subtitle_offset"));
	float subtitle_scale = get_required_float (kv, N_("subtitle_scale"));
	string scaler_id = get_required_string (kv, N_("scaler"));
	int frame = get_required_int (kv, N_("frame"));
	int frames_per_second = get_required_int (kv, N_("frames_per_second"));
	string post_process = get_optional_string (kv, N_("post_process"));
	int colour_lut_index = get_required_int (kv, N_("colour_lut"));
	int j2k_bandwidth = get_required_int (kv, N_("j2k_bandwidth"));
	Position subtitle_position (get_optional_int (kv, N_("subtitle_x")), get_optional_int (kv, N_("subtitle_y")));
	libdcp::Size subtitle_size (get_optional_int (kv, N_("subtitle_width")), get_optional_int (kv, N_("subtitle_height")));

	/* This checks that colour_lut_index is within range */
	colour_lut_index_to_name (colour_lut_index);

	PixelFormat pixel_format = (PixelFormat) pixel_format_int;
	Scaler const * scaler = Scaler::from_id (scaler_id);
	
	shared_ptr<Image> image (new SimpleImage (pixel_format, in_size, true));

	image->read_from_socket (socket);

	shared_ptr<Subtitle> sub;
	if (subtitle_size.width && subtitle_size.height) {
		shared_ptr<Image> subtitle_image (new SimpleImage (PIX_FMT_RGBA, subtitle_size, true));
		subtitle_image->read_from_socket (socket);
		sub.reset (new Subtitle (subtitle_position, subtitle_image));
	}

	DCPVideoFrame dcp_video_frame (
		image, sub, out_size, padding, subtitle_offset, subtitle_scale,
		scaler, frame, frames_per_second, post_process, colour_lut_index, j2k_bandwidth, _log
		);
	
	shared_ptr<EncodedData> encoded = dcp_video_frame.encode_locally ();
	try {
		encoded->send (socket);
	} catch (std::exception& e) {
		_log->log (String::compose (
				   N_("Send failed; frame %1, data size %2, pixel format %3, image size %4x%5, %6 components"),
				   frame, encoded->size(), image->pixel_format(), image->size().width, image->size().height, image->components()
				   )
			);
		throw;
	}

	return frame;
}

void
Server::worker_thread ()
{
	while (1) {
		boost::mutex::scoped_lock lock (_worker_mutex);
		while (_queue.empty ()) {
			_worker_condition.wait (lock);
		}

		shared_ptr<Socket> socket = _queue.front ();
		_queue.pop_front ();
		
		lock.unlock ();

		int frame = -1;

		struct timeval start;
		gettimeofday (&start, 0);
		
		try {
			frame = process (socket);
		} catch (std::exception& e) {
			_log->log (String::compose (N_("Error: %1"), e.what()));
		}
		
		socket.reset ();
		
		lock.lock ();

		if (frame >= 0) {
			struct timeval end;
			gettimeofday (&end, 0);
			_log->log (String::compose (N_("Encoded frame %1 in %2"), frame, seconds (end) - seconds (start)));
		}
		
		_worker_condition.notify_all ();
	}
}

void
Server::run (int num_threads)
{
	_log->log (String::compose (N_("Server starting with %1 threads"), num_threads));
	
	for (int i = 0; i < num_threads; ++i) {
		_worker_threads.push_back (new thread (bind (&Server::worker_thread, this)));
	}

	boost::asio::io_service io_service;
	boost::asio::ip::tcp::acceptor acceptor (io_service, boost::asio::ip::tcp::endpoint (boost::asio::ip::tcp::v4(), Config::instance()->server_port ()));
	while (1) {
		shared_ptr<Socket> socket (new Socket);
		acceptor.accept (socket->socket ());

		boost::mutex::scoped_lock lock (_worker_mutex);
		
		/* Wait until the queue has gone down a bit */
		while (int (_queue.size()) >= num_threads * 2) {
			_worker_condition.wait (lock);
		}
		
		_queue.push_back (socket);
		_worker_condition.notify_all ();
	}
}