/*****************************************************************************
#                                                                            #
#    uStreamer - Lightweight and fast MJPG-HTTP streamer.                    #
#                                                                            #
#    Copyright (C) 2018  Maxim Devaev <mdevaev@gmail.com>                    #
#                                                                            #
#    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 3 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, see <https://www.gnu.org/licenses/>.  #
#                                                                            #
*****************************************************************************/


#include <assert.h>
#ifdef NDEBUG
#	error WTF dude? Asserts are good things!
#endif

#include <stdio.h>
#include <stdbool.h>
#include <signal.h>
#include <getopt.h>

#include <pthread.h>

#include "config.h"
#include "tools.h"
#include "logging.h"
#include "device.h"
#include "encoder.h"
#include "stream.h"
#include "http.h"


static const char _SHORT_OPTS[] = "d:i:x:y:m:a:f:z:ntb:w:q:c:s:p:u:ro:e:lhv";
static const struct option _LONG_OPTS[] = {
	{"device",					required_argument,	NULL,	'd'},
	{"input",					required_argument,	NULL,	'i'},
	{"width",					required_argument,	NULL,	'x'},
	{"height",					required_argument,	NULL,	'y'},
	{"format",					required_argument,	NULL,	'm'},
	{"tv-standard",				required_argument,	NULL,	'a'},
	{"desired-fps",				required_argument,	NULL,	'f'},
	{"min-frame-size",			required_argument,	NULL,	'z'},
	{"persistent",				no_argument,		NULL,	'n'},
	{"dv-timings",				no_argument,		NULL,	't'},
	{"buffers",					required_argument,	NULL,	'b'},
	{"workers",					required_argument,	NULL,	'w'},
	{"quality",					required_argument,	NULL,	'q'},
	{"encoder",					required_argument,	NULL,	'c'},
	{"device-timeout",			required_argument,	NULL,	1000},
	{"device-error-delay",		required_argument,	NULL,	1001},

	{"brightness",				required_argument,	NULL,	2000},
	{"brightness-auto",			no_argument,		NULL,	2001},
	{"contrast",				required_argument,	NULL,	2002},
	{"saturation",				required_argument,	NULL,	2003},
	{"hue",						required_argument,	NULL,	2004},
	{"hue-auto",				no_argument,		NULL,	2005},
	{"gamma",					required_argument,	NULL,	2006},
	{"sharpness",				required_argument,	NULL,	2007},
	{"backlight-compensation",	required_argument,	NULL,	2008},
	{"white-balance",			required_argument,	NULL,	2009},
	{"white-balance-auto",		no_argument,		NULL,	2010},
	{"gain",					required_argument,	NULL,	2011},
	{"gain-auto",				no_argument,		NULL,	2012},

	{"host",					required_argument,	NULL,	's'},
	{"port",					required_argument,	NULL,	'p'},
	{"unix",					required_argument,	NULL,	'u'},
	{"unix-rm",					no_argument,		NULL,	'r'},
	{"unix-mode",				required_argument,	NULL,	'o'},
	{"drop-same-frames",		required_argument,	NULL,	'e'},
	{"slowdown",				no_argument,		NULL,	'l'},
	{"fake-width",				required_argument,	NULL,	3001},
	{"fake-height",				required_argument,	NULL,	3002},
	{"server-timeout",			required_argument,	NULL,	3003},

	{"perf",					no_argument,		NULL,	5000},
	{"verbose",					no_argument,		NULL,	5001},
	{"debug",					no_argument,		NULL,	5002},
	{"log-level",				required_argument,	NULL,	5010},
	{"help",					no_argument,		NULL,	'h'},
	{"version",					no_argument,		NULL,	'v'},
	{NULL, 0, NULL, 0},
};

static void _version(bool nl) {
	printf(VERSION);
#	ifdef WITH_OMX_ENCODER
	printf(" + OMX");
#	endif
	if (nl) {
		putchar('\n');
	}
}

static void _help(struct device_t *dev, struct encoder_t *encoder, struct http_server_t *server) {
	printf("\nuStreamer - Lightweight and fast MJPG-HTTP streamer\n");
	printf("═══════════════════════════════════════════════════\n\n");
	printf("Version: ");
	_version(false);
	printf("; license: GPLv3\n");
	printf("Copyright (C) 2018 Maxim Devaev <mdevaev@gmail.com>\n\n");
	printf("Capturing options:\n");
	printf("══════════════════\n");
	printf("    -d|--device </dev/path>  ──────── Path to V4L2 device. Default: %s.\n\n", dev->path);
	printf("    -i|--input <N>  ───────────────── Input channel. Default: %u.\n\n", dev->input);
	printf("    -x|--width <N>  ───────────────── Initial image width. Default: %u.\n\n", dev->width);
	printf("    -y|--height <N>  ──────────────── Initial image height. Default: %u.\n\n", dev->height);
	printf("    -m|--format <fmt>  ────────────── Image format.\n");
	printf("                                      Available: %s; default: YUYV.\n\n", FORMATS_STR);
	printf("    -a|--tv-standard <std>  ───────── Force TV standard.\n");
	printf("                                      Available: %s; default: disabled.\n\n", STANDARDS_STR);
	printf("    -f|--desired-fps <N>  ─────────── Desired FPS. Default: maximum as possible.\n\n");
	printf("    -z|--min-frame-size <N>  ──────── Drop frames smaller then this limit.\n");
	printf("                                      Useful if the device produces small-sized garbage frames.\n\n");
	printf("    -n|--persistent  ──────────────── Don't re-initialize device on timeout. Default: disabled.\n\n");
	printf("    -t|--dv-timings  ──────────────── Enable DV timings queriyng and events processing.\n");
	printf("                                      Supports automatic resolution changing. Default: disabled.\n\n");
	printf("    -b|--buffers <N>  ─────────────── The number of buffers to receive data from the device.\n");
	printf("                                      Each buffer may processed using an intermediate thread.\n");
	printf("                                      Default: %u (the number of CPU cores (but not more 4) + 1)\n\n", dev->n_buffers);
	printf("    -w|--workers <N>  ─────────────── The number of worker threads. Default: %u (== --buffers).\n\n", dev->n_workers);
	printf("    -q|--quality <N>  ─────────────── Set quality of JPEG encoding from 1 to 100 (best). Default: %u.\n\n", encoder->quality);
	printf("    -c|--encoder <type>  ──────────── Use specified encoder. It may affects to workers number.\n");
	printf("                                      Available: %s; default: CPU.\n\n", ENCODER_TYPES_STR);
	printf("    --device-timeout <seconds>  ───── Timeout for device querying. Default: %u\n\n", dev->timeout);
	printf("    --device-error-delay <seconds>  ─ Delay before trying to connect to the device again\n");
	printf("                                      after timeout. Default: %u\n\n", dev->error_delay);
	printf("Image control options:\n");
	printf("══════════════════════\n");
	printf("    --brightness <N>  ───────────── Set brightness. Default: no change.\n\n");
	printf("    --brightness-auto  ──────────── Enable automatic brightness control. Default: no change.\n\n");
	printf("    --contrast <N>  ─────────────── Set contrast. Default: no change.\n\n");
	printf("    --saturation <N>  ───────────── Set saturation. Default: no change.\n\n");
	printf("    --hue <N>  ──────────────────── Set hue. Default: no change.\n\n");
	printf("    --hue-auto  ─────────────────── Enable automatic hue control. Default: no change.\n\n");
	printf("    --gamma <N>  ────────────────── Set gamma. Default: no change.\n\n");
	printf("    --sharpness <N>  ────────────── Set sharpness. Default: no change.\n\n");
	printf("    --backlight-compensation <N>  ─ Set backlight compensation. Default: no change.\n\n");
	printf("    --white-balance <N>  ────────── Set white balance. Default: no change.\n\n");
	printf("    --white-balance-auto  ───────── Enable automatic white balance control. Default: no change.\n\n");
	printf("    --gain <N>  ─────────────────── Set gain. Default: no change.\n\n");
	printf("    --gain-auto  ────────────────── Enable automatic gain control. Default: no change.\n\n");
	printf("HTTP server options:\n");
	printf("════════════════════\n");
	printf("    -s|--host <address>  ──────── Listen on Hostname or IP. Default: %s\n\n", server->host);
	printf("    -p|--port <N>  ────────────── Bind to this TCP port. Default: %u\n\n", server->port);
	printf("    -u|--unix <path>  ─────────── Bind to UNIX domain socket. Default: disabled\n\n");
	printf("    -r|--unix-rm  ─────────────── Try to remove old UNIX socket file before binding. Default: disabled\n\n");
	printf("    -o|--unix-mode <mode>  ────── Set UNIX socket file permissions (like 777). Default: disabled\n\n");
	printf("    -e|--drop-same-frames <N>  ── Don't send same frames to clients, but no more than specified number.\n");
	printf("                                  It can significantly reduce the outgoing traffic, but will increase\n");
	printf("                                  the CPU loading. Don't use this option with analog signal sources\n");
	printf("                                  or webcams, it's useless. Default: disabled.\n\n");
	printf("    -l|--slowdown  ────────────── Slowdown capturing to 1 FPS or less when no stream clients connected.\n");
	printf("                                  Useful to reduce CPU cosumption. Default: disabled.\n\n");
	printf("    --fake-width <N>  ─────────── Override image width for /state. Default: disabled\n\n");
	printf("    --fake-height <N>  ────────── Override image height for /state. Default: disabled.\n\n");
	printf("    --server-timeout <seconds>  ─ Timeout for client connections. Default: %u\n\n", server->timeout);
	printf("Misc options:\n");
	printf("═════════════\n");
	printf("    --log-level <N>  ─ Verbosity level of messages from 0 (info) to 3 (debug).\n");
	printf("                       Enabling debugging messages can slow down the program.\n");
	printf("                       Available levels: 0=info, 1=performance, 2=verbose, 3=debug.\n");
	printf("                       Default: %u.\n\n", log_level);
	printf("    --perf  ────────── Enable performance messages (same as --log-level=1). Default: disabled.\n\n");
	printf("    --verbose  ─────── Enable verbose messages and lower (same as --log-level=2). Default: disabled.\n\n");
	printf("    --debug  ───────── Enable debug messages and lower (same as --log-level=3). Default: disabled.\n\n");
	printf("    -h|--help  ─────── Print this text and exit.\n\n");
	printf("    -v|--version  ──── Print version and exit.\n\n");
}

static int _parse_options(int argc, char *argv[], struct device_t *dev, struct encoder_t *encoder, struct http_server_t *server) {
#	define OPT_SET(_dest, _value) \
		{ _dest = _value; break; }

#	define OPT_UNSIGNED(_dest, _name, _min, _max) { \
			errno = 0; char *_end = NULL; int _tmp = strtol(optarg, &_end, 0); \
			if (errno || *_end || _tmp < _min || _tmp > _max) { \
				printf("Invalid value for '%s=%s'; min=%u; max=%u\n", _name, optarg, _min, _max); \
				return -1; \
			} \
			_dest = _tmp; \
			break; \
		}

#	define OPT_PARSE(_dest, _func, _invalid, _name) { \
			if ((_dest = _func(optarg)) == _invalid) { \
				printf("Unknown " _name ": %s\n", optarg); \
				return -1; \
			} \
			break; \
		}

#	define OPT_INT(_dest, _name, _base) { \
			errno = 0; char *_end = NULL; int _tmp = strtol(optarg, &_end, _base); \
			if (errno || *_end) { \
				printf("Invalid value for '%s=%s'\n", _name, optarg); \
				return -1; \
			} \
			_dest = _tmp; \
			break; \
		}

#	define OPT_CHMOD(_dest, _name) \
		OPT_INT(_dest, _name, 8)

#	define OPT_CTL(_dest) { \
			dev->ctl->_dest.value_set = true; \
			dev->ctl->_dest.auto_set = false; \
			OPT_INT(dev->ctl->_dest.value, "--"#_dest, 10); \
			break; \
		}

#	define OPT_CTL_AUTO(_dest) { \
			dev->ctl->_dest.value_set = false; \
			dev->ctl->_dest.auto_set = true; \
			break; \
		}

	int index;
	int ch;

	log_level = LOG_LEVEL_INFO;
	while ((ch = getopt_long(argc, argv, _SHORT_OPTS, _LONG_OPTS, &index)) >= 0) {
		switch (ch) {
			case 'd':	OPT_SET(dev->path, optarg);
			case 'i':	OPT_UNSIGNED(dev->input, "--input", 0, 128);
			case 'x':	OPT_UNSIGNED(dev->width, "--width", VIDEO_MIN_WIDTH, VIDEO_MAX_WIDTH);
			case 'y':	OPT_UNSIGNED(dev->height, "--height", VIDEO_MIN_HEIGHT, VIDEO_MAX_HEIGHT);
#			pragma GCC diagnostic ignored "-Wsign-compare"
#			pragma GCC diagnostic push
			case 'm':	OPT_PARSE(dev->format, device_parse_format, FORMAT_UNKNOWN, "pixel format");
#			pragma GCC diagnostic pop
			case 'a':	OPT_PARSE(dev->standard, device_parse_standard, STANDARD_UNKNOWN, "TV standard");
			case 'f':	OPT_UNSIGNED(dev->desired_fps, "--desired-fps", 0, 30);
			case 'z':	OPT_UNSIGNED(dev->min_frame_size, "--min-frame-size", 0, 8192);
			case 'n':	OPT_SET(dev->persistent, true);
			case 't':	OPT_SET(dev->dv_timings, true);
			case 'b':	OPT_UNSIGNED(dev->n_buffers, "--buffers", 1, 32);
			case 'w':	OPT_UNSIGNED(dev->n_workers, "--workers", 1, 32);
			case 'q':	OPT_UNSIGNED(encoder->quality, "--quality", 1, 100);
			case 'c':	OPT_PARSE(encoder->type, encoder_parse_type, ENCODER_TYPE_UNKNOWN, "encoder type");
			case 1000:	OPT_UNSIGNED(dev->timeout, "--device-timeout", 1, 60);
			case 1001:	OPT_UNSIGNED(dev->error_delay, "--device-error-delay", 1, 60);

			case 2000:	OPT_CTL(brightness);
			case 2001:	OPT_CTL_AUTO(brightness);
			case 2002:	OPT_CTL(contrast);
			case 2003:	OPT_CTL(saturation);
			case 2004:	OPT_CTL(hue);
			case 2005:	OPT_CTL_AUTO(hue);
			case 2006:	OPT_CTL(gamma);
			case 2007:	OPT_CTL(sharpness);
			case 2008:	OPT_CTL(backlight_compensation);
			case 2009:	OPT_CTL(white_balance);
			case 2010:	OPT_CTL_AUTO(white_balance);
			case 2011:	OPT_CTL(gain);
			case 2012:	OPT_CTL_AUTO(gain);

			case 's':	OPT_SET(server->host, optarg);
			case 'p':	OPT_UNSIGNED(server->port, "--port", 1, 65535);
			case 'u':	OPT_SET(server->unix_path, optarg);
			case 'r':	OPT_SET(server->unix_rm, true);
			case 'o':	OPT_CHMOD(server->unix_mode, "--unix-mode");
			case 'e':	OPT_UNSIGNED(server->drop_same_frames, "--drop-same-frames", 0, 30);
			case 3000:	OPT_SET(server->slowdown, true);
			case 3001:	OPT_UNSIGNED(server->fake_width, "--fake-width", 0, 1920);
			case 3002:	OPT_UNSIGNED(server->fake_height, "--fake-height", 0, 1200);
			case 3003:	OPT_UNSIGNED(server->timeout, "--server-timeout", 1, 60);

			case 5000:	OPT_SET(log_level, LOG_LEVEL_PERF);
			case 5001:	OPT_SET(log_level, LOG_LEVEL_VERBOSE);
			case 5002:	OPT_SET(log_level, LOG_LEVEL_DEBUG);
			case 5010:	OPT_UNSIGNED(log_level, "--log-level", 0, 3);
			case 'h':	_help(dev, encoder, server); return 1;
			case 'v':	_version(true); return 1;
			case 0:		break;
			default:	_help(dev, encoder, server); return -1;
		}
	}

#	undef OPT_CTL_AUTO
#	undef OPT_CTL
#	undef OPT_CHMOD
#	undef OPT_INT
#	undef OPT_PARSE
#	undef OPT_UNSIGNED
#	undef OPT_SET
	return 0;
}

struct main_context_t {
	struct stream_t			*stream;
	struct http_server_t	*server;
};

static struct main_context_t *_ctx;

static void _block_thread_signals() {
	sigset_t mask;
	assert(!sigemptyset(&mask));
	assert(!sigaddset(&mask, SIGINT));
	assert(!sigaddset(&mask, SIGTERM));
	assert(!pthread_sigmask(SIG_BLOCK, &mask, NULL));
}

static void *_stream_loop_thread(UNUSED void *arg) {
	_block_thread_signals();
	stream_loop(_ctx->stream);
	return NULL;
}

static void *_server_loop_thread(UNUSED void *arg) {
	_block_thread_signals();
	http_server_loop(_ctx->server);
	return NULL;
}

static void _signal_handler(int signum) {
	LOG_INFO_NOLOCK("===== Stopping by %s =====", (signum == SIGTERM ? "SIGTERM" : "SIGINT"));
	stream_loop_break(_ctx->stream);
	http_server_loop_break(_ctx->server);
}

static void _install_signal_handlers() {
	struct sigaction sig_act;

	MEMSET_ZERO(sig_act);
	assert(!sigemptyset(&sig_act.sa_mask));
	sig_act.sa_handler = _signal_handler;
	assert(!sigaddset(&sig_act.sa_mask, SIGINT));
	assert(!sigaddset(&sig_act.sa_mask, SIGTERM));

	LOG_INFO("Installing SIGINT handler ...");
	assert(!sigaction(SIGINT, &sig_act, NULL));

	LOG_INFO("Installing SIGTERM handler ...");
	assert(!sigaction(SIGTERM, &sig_act, NULL));

	LOG_INFO("Ignoring SIGPIPE ...");
	assert(signal(SIGPIPE, SIG_IGN) != SIG_ERR);
}

int main(int argc, char *argv[]) {
	struct device_t *dev;
	struct encoder_t *encoder;
	struct stream_t *stream;
	struct http_server_t *server;
	int exit_code = 0;

	LOGGING_INIT;

	dev = device_init();
	encoder = encoder_init();
	stream = stream_init(dev, encoder);
	server = http_server_init(stream);

	if ((exit_code = _parse_options(argc, argv, dev, encoder, server)) == 0) {
		_install_signal_handlers();
		encoder_prepare(encoder, dev);

		pthread_t stream_loop_tid;
		pthread_t server_loop_tid;
		struct main_context_t ctx;

		ctx.stream = stream;
		ctx.server = server;
		_ctx = &ctx;

		if ((exit_code = http_server_listen(server)) == 0) {
			A_THREAD_CREATE(&stream_loop_tid, _stream_loop_thread, NULL);
			A_THREAD_CREATE(&server_loop_tid, _server_loop_thread, NULL);
			A_THREAD_JOIN(server_loop_tid);
			A_THREAD_JOIN(stream_loop_tid);
		}
	}

	http_server_destroy(server);
	stream_destroy(stream);
	encoder_destroy(encoder);
	device_destroy(dev);

	LOGGING_DESTROY;
	return (exit_code < 0 ? 1 : 0);
}