/*
    Copyright (C) 2012-2021 Carl Hetherington <cth@carlh.net>

    This file is part of DCP-o-matic.

    DCP-o-matic 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.

    DCP-o-matic 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 DCP-o-matic.  If not, see <http://www.gnu.org/licenses/>.

*/


#define UNICODE 1

#include "cross.h"
#include "log.h"
#include "dcpomatic_log.h"
#include "config.h"
#include "exceptions.h"
#include "dcpomatic_assert.h"
#include "util.h"
#include <dcp/file.h>
#include <dcp/filesystem.h>
#include <glib.h>
extern "C" {
#include <libavformat/avio.h>
}
#include <fmt/format.h>
#include <boost/algorithm/string.hpp>
#include <boost/dll/runtime_symbol_info.hpp>
#include <windows.h>
#include <winternl.h>
#include <winioctl.h>
#include <ntdddisk.h>
#include <setupapi.h>
#include <fileapi.h>
#undef DATADIR
#include <knownfolders.h>
#include <processenv.h>
#include <shellapi.h>
#include <shlobj.h>
#include <shlwapi.h>
#include <fcntl.h>
#include <fstream>
#include <map>

#include "i18n.h"


using std::pair;
using std::cerr;
using std::cout;
using std::ifstream;
using std::list;
using std::make_pair;
using std::map;
using std::runtime_error;
using std::shared_ptr;
using std::string;
using std::vector;
using std::wstring;
using boost::optional;


static std::vector<pair<HANDLE, string>> locked_volumes;


/** @param s Number of seconds to sleep for */
void
dcpomatic_sleep_seconds(int s)
{
	Sleep(s * 1000);
}


void
dcpomatic_sleep_milliseconds(int ms)
{
	Sleep(ms);
}


/** @return A string of CPU information (model name etc.) */
string
cpu_info()
{
	string info;

	HKEY key;
	if (RegOpenKeyEx(HKEY_LOCAL_MACHINE, L"HARDWARE\\DESCRIPTION\\System\\CentralProcessor\\0", 0, KEY_READ, &key) != ERROR_SUCCESS) {
		return info;
	}

	DWORD type;
	DWORD data;
	if (RegQueryValueEx(key, L"ProcessorNameString", 0, &type, 0, &data) != ERROR_SUCCESS) {
		return info;
	}

	if (type != REG_SZ) {
		return info;
	}

	wstring value(data / sizeof(wchar_t), L'\0');
	if (RegQueryValueEx(key, L"ProcessorNameString", 0, 0, reinterpret_cast<LPBYTE>(&value[0]), &data) != ERROR_SUCCESS) {
		RegCloseKey(key);
		return info;
	}

	info = string(value.begin(), value.end());

	RegCloseKey(key);

	return info;
}


void
run_ffprobe(boost::filesystem::path content, boost::filesystem::path out, bool err, string args)
{
	SECURITY_ATTRIBUTES security;
	security.nLength = sizeof(security);
	security.bInheritHandle = TRUE;
	security.lpSecurityDescriptor = 0;

	HANDLE child_out_read;
	HANDLE child_out_write;
	if (!CreatePipe(&child_out_read, &child_out_write, &security, 0)) {
		LOG_ERROR("ffprobe call failed (could not CreatePipe)");
		return;
	}

	if (!SetHandleInformation(child_out_read, HANDLE_FLAG_INHERIT, 0)) {
		LOG_ERROR("ffprobe call failed (could not SetHandleInformation)");
		return;
	}

	wchar_t dir[512];
	MultiByteToWideChar(CP_UTF8, 0, directory_containing_executable().string().c_str(), -1, dir, sizeof(dir));

	STARTUPINFO startup_info;
	ZeroMemory(&startup_info, sizeof(startup_info));
	startup_info.cb = sizeof(startup_info);
	if (err) {
		startup_info.hStdError = child_out_write;
	} else {
		startup_info.hStdOutput = child_out_write;
	}
	startup_info.dwFlags |= STARTF_USESTDHANDLES;

	wchar_t command[512];
	wcscpy(command, L"ffprobe.exe ");

	wchar_t tmp[512];
	MultiByteToWideChar(CP_UTF8, 0, args.c_str(), -1, tmp, sizeof(tmp));
	wcscat(command, tmp);

	wcscat(command, L" \"");

	MultiByteToWideChar(CP_UTF8, 0, dcp::filesystem::canonical(content).make_preferred().string().c_str(), -1, tmp, sizeof(tmp));
	wcscat(command, tmp);

	wcscat(command, L"\"");

	PROCESS_INFORMATION process_info;
	ZeroMemory(&process_info, sizeof(process_info));
	if (!CreateProcess(0, command, 0, 0, TRUE, CREATE_NO_WINDOW, 0, dir, &startup_info, &process_info)) {
		LOG_ERROR(N_("ffprobe call failed (could not CreateProcess)"));
		return;
	}

	dcp::File o(out, "w");
	if (!o) {
		LOG_ERROR(N_("ffprobe call failed (could not create output file)"));
		return;
	}

	CloseHandle(child_out_write);

	while (true) {
		char buffer[512];
		DWORD read;
		if (!ReadFile(child_out_read, buffer, sizeof(buffer), &read, 0) || read == 0) {
			break;
		}
		o.write(buffer, read, 1);
	}

	o.close();

	WaitForSingleObject(process_info.hProcess, INFINITE);
	CloseHandle(process_info.hProcess);
	CloseHandle(process_info.hThread);
	CloseHandle(child_out_read);
}


list<pair<string, string>>
mount_info()
{
	return {};
}


boost::filesystem::path
directory_containing_executable()
{
	return boost::dll::program_location().parent_path();
}


boost::filesystem::path
resources_path()
{
	return directory_containing_executable().parent_path();
}


boost::filesystem::path
libdcp_resources_path()
{
	if (running_tests) {
		return directory_containing_executable();
	} else {
		return resources_path();
	}
}


boost::filesystem::path
openssl_path()
{
	return directory_containing_executable() / "openssl.exe";
}


#ifdef DCPOMATIC_DISK
boost::filesystem::path
disk_writer_path()
{
	return directory_containing_executable() / "dcpomatic2_disk_writer.exe";
}
#endif


void
Waker::nudge()
{
	boost::mutex::scoped_lock lm(_mutex);
	SetThreadExecutionState(_reason == Reason::ENCODING ? ES_SYSTEM_REQUIRED : ES_DISPLAY_REQUIRED);
}


Waker::Waker(Reason reason)
	: _reason(reason)
{

}


Waker::~Waker()
{

}


void
start_tool(string executable)
{
	auto batch = directory_containing_executable() / executable;

	STARTUPINFO startup_info;
	ZeroMemory(&startup_info, sizeof(startup_info));
	startup_info.cb = sizeof(startup_info);

	PROCESS_INFORMATION process_info;
	ZeroMemory(&process_info, sizeof(process_info));

	wchar_t cmd[512];
	MultiByteToWideChar(CP_UTF8, 0, batch.string().c_str(), -1, cmd, sizeof(cmd));
	CreateProcess(0, cmd, 0, 0, FALSE, 0, 0, 0, &startup_info, &process_info);
}


void
start_batch_converter()
{
	start_tool("dcpomatic2_batch");
}


void
start_player()
{
	start_tool("dcpomatic2_player");
}


uint64_t
thread_id()
{
	return (uint64_t) GetCurrentThreadId();
}


static string
wchar_to_utf8(wchar_t const * s)
{
	int const length = (wcslen(s) + 1) * 2;
	std::vector<char> utf8(length);
	WideCharToMultiByte(CP_UTF8, 0, s, -1, utf8.data(), length, 0, 0);
	string u(utf8.data());
	return u;
}


int
avio_open_boost(AVIOContext** s, boost::filesystem::path file, int flags)
{
	return avio_open(s, wchar_to_utf8(file.c_str()).c_str(), flags);
}


void
maybe_open_console()
{
	if (Config::instance()->win32_console()) {
		AllocConsole();

		auto handle_out = GetStdHandle(STD_OUTPUT_HANDLE);
		int hCrt = _open_osfhandle((intptr_t) handle_out, _O_TEXT);
		auto hf_out = _fdopen(hCrt, "w");
		setvbuf(hf_out, NULL, _IONBF, 1);
		*stdout = *hf_out;

		auto handle_in = GetStdHandle(STD_INPUT_HANDLE);
		hCrt = _open_osfhandle((intptr_t) handle_in, _O_TEXT);
		auto hf_in = _fdopen(hCrt, "r");
		setvbuf(hf_in, NULL, _IONBF, 128);
		*stdin = *hf_in;
	}
}


boost::filesystem::path
home_directory()
{
	PWSTR wide_path;
	auto result = SHGetKnownFolderPath(FOLDERID_Documents, 0, nullptr, &wide_path);

	if (result != S_OK) {
		CoTaskMemFree(wide_path);
		return boost::filesystem::path("c:\\");
	}

	auto path = wchar_to_utf8(wide_path);
	CoTaskMemFree(wide_path);
	return path;
}


/** @return true if this process is a 32-bit one running on a 64-bit-capable OS */
bool
running_32_on_64()
{
	BOOL p;
	IsWow64Process(GetCurrentProcess(), &p);
	return p;
}


static optional<string>
get_friendly_name(HDEVINFO device_info, SP_DEVINFO_DATA* device_info_data)
{
	wchar_t buffer[MAX_PATH];
	ZeroMemory(&buffer, sizeof(buffer));
	bool r = SetupDiGetDeviceRegistryPropertyW(
			device_info, device_info_data, SPDRP_FRIENDLYNAME, 0, reinterpret_cast<PBYTE>(buffer), sizeof(buffer), 0
			);
	if (!r) {
		return optional<string>();
	}
	return wchar_to_utf8(buffer);
}


static const GUID GUID_DEVICE_INTERFACE_DISK = {
	0x53F56307L, 0xB6BF, 0x11D0, { 0x94, 0xF2, 0x00, 0xA0, 0xC9, 0x1E, 0xFB, 0x8B }
};


static optional<int>
get_device_number(HDEVINFO device_info, SP_DEVINFO_DATA* device_info_data)
{
	/* Find the Windows path to the device */

	SP_DEVICE_INTERFACE_DATA device_interface_data;
	device_interface_data.cbSize = sizeof(SP_DEVICE_INTERFACE_DATA);

	auto r = SetupDiEnumDeviceInterfaces(device_info, device_info_data, &GUID_DEVICE_INTERFACE_DISK, 0, &device_interface_data);
	if (!r) {
		LOG_DISK("SetupDiEnumDeviceInterfaces failed ({})", GetLastError());
		return optional<int>();
	}

	/* Find out how much space we need for our SP_DEVICE_INTERFACE_DETAIL_DATA_W */
	DWORD size;
	r = SetupDiGetDeviceInterfaceDetailW(device_info, &device_interface_data, 0, 0, &size, 0);
	PSP_DEVICE_INTERFACE_DETAIL_DATA_W device_detail_data = static_cast<PSP_DEVICE_INTERFACE_DETAIL_DATA_W>(malloc(size));
	if (!device_detail_data) {
		LOG_DISK("malloc failed");
		return optional<int>();
	}

	device_detail_data->cbSize = sizeof(SP_DEVICE_INTERFACE_DETAIL_DATA_W);

	/* And get the path */
	r = SetupDiGetDeviceInterfaceDetailW(device_info, &device_interface_data, device_detail_data, size, &size, 0);
	if (!r) {
		LOG_DISK("SetupDiGetDeviceInterfaceDetailW failed");
		free(device_detail_data);
		return optional<int>();
	}

	/* Open it.  We would not be allowed GENERIC_READ access here but specifying 0 for
	   dwDesiredAccess allows us to query some metadata.
	*/
	auto device = CreateFileW(
			device_detail_data->DevicePath, 0,
			FILE_SHARE_READ | FILE_SHARE_WRITE, 0,
			OPEN_EXISTING, 0, 0
			);

	free(device_detail_data);

	if (device == INVALID_HANDLE_VALUE) {
		LOG_DISK("CreateFileW failed with {}", GetLastError());
		return optional<int>();
	}

	/* Get the device number */
	STORAGE_DEVICE_NUMBER device_number;
	r = DeviceIoControl(
			device, IOCTL_STORAGE_GET_DEVICE_NUMBER, 0, 0,
			&device_number, sizeof(device_number), &size, 0
			);

	CloseHandle(device);

	if (!r) {
		return {};
	}

	return device_number.DeviceNumber;
}


typedef map<int, vector<boost::filesystem::path>> MountPoints;


/** Take a volume path (with a trailing \) and add any disk numbers related to that volume
 *  to @ref disks.
 */
static void
add_volume_mount_points(wchar_t* volume, MountPoints& mount_points)
{
	LOG_DISK("Looking at {}", wchar_to_utf8(volume));

	wchar_t volume_path_names[512];
	vector<boost::filesystem::path> mp;
	DWORD returned;
	if (GetVolumePathNamesForVolumeNameW(volume, volume_path_names, sizeof(volume_path_names) / sizeof(wchar_t), &returned)) {
		wchar_t* p = volume_path_names;
		while (*p != L'\0') {
			mp.push_back(wchar_to_utf8(p));
			LOG_DISK("Found mount point {}", wchar_to_utf8(p));
			p += wcslen(p) + 1;
		}
	}

	/* Strip trailing \ */
	size_t const len = wcslen(volume);
	DCPOMATIC_ASSERT(len > 0);
	volume[len - 1] = L'\0';

	auto handle = CreateFileW(
			volume, 0,
			FILE_SHARE_READ | FILE_SHARE_WRITE, 0,
			OPEN_EXISTING, 0, 0
			);

	DCPOMATIC_ASSERT(handle != INVALID_HANDLE_VALUE);

	VOLUME_DISK_EXTENTS extents;
	DWORD size;
	BOOL r = DeviceIoControl(handle, IOCTL_VOLUME_GET_VOLUME_DISK_EXTENTS, 0, 0, &extents, sizeof(extents), &size, 0);
	CloseHandle(handle);
	if (!r) {
		return;
	}
	DCPOMATIC_ASSERT(extents.NumberOfDiskExtents == 1);

	mount_points[extents.Extents[0].DiskNumber] = mp;
}


MountPoints
find_mount_points()
{
	MountPoints mount_points;

	wchar_t volume_name[512];
	auto volume = FindFirstVolumeW(volume_name, sizeof(volume_name) / sizeof(wchar_t));
	if (volume == INVALID_HANDLE_VALUE) {
		return MountPoints();
	}

	add_volume_mount_points(volume_name, mount_points);
	while (true) {
		if (!FindNextVolumeW(volume, volume_name, sizeof(volume_name) / sizeof(wchar_t))) {
			break;
		}
		add_volume_mount_points(volume_name, mount_points);
	}
	FindVolumeClose(volume);

	return mount_points;
}


vector<Drive>
Drive::get()
{
	vector<Drive> drives;

	auto mount_points = find_mount_points();

	/* Get a `device information set' containing information about all disks */
	auto device_info = SetupDiGetClassDevsA(&GUID_DEVICE_INTERFACE_DISK, 0, 0, DIGCF_PRESENT | DIGCF_DEVICEINTERFACE);
	if (device_info == INVALID_HANDLE_VALUE) {
		LOG_DISK("SetupDiClassDevsA failed");
		return drives;
	}

	int i = 0;
	while (true) {
		/* Find out about the next disk */
		SP_DEVINFO_DATA device_info_data;
		device_info_data.cbSize = sizeof(SP_DEVINFO_DATA);
		if (!SetupDiEnumDeviceInfo(device_info, i, &device_info_data)) {
			DWORD e = GetLastError();
			if (e != ERROR_NO_MORE_ITEMS) {
				LOG_DISK("SetupDiEnumDeviceInfo failed ({})", GetLastError());
			}
			break;
		}
		++i;

		auto const friendly_name = get_friendly_name(device_info, &device_info_data);
		auto device_number = get_device_number(device_info, &device_info_data);
		if (!device_number) {
			continue;
		}

		string const physical_drive = fmt::format("\\\\.\\PHYSICALDRIVE{}", *device_number);

		HANDLE device = CreateFileA(
				physical_drive.c_str(), 0,
				FILE_SHARE_READ | FILE_SHARE_WRITE, 0,
				OPEN_EXISTING, 0, 0
				);

		if (device == INVALID_HANDLE_VALUE) {
			LOG_DISK("Could not open PHYSICALDRIVE");
			continue;
		}

		DISK_GEOMETRY geom;
		DWORD returned;
		BOOL r = DeviceIoControl(
				device, IOCTL_DISK_GET_DRIVE_GEOMETRY, 0, 0,
				&geom, sizeof(geom), &returned, 0
				);

		LOG_DISK("Having a look through {} locked volumes", locked_volumes.size());
		bool locked = false;
		for (auto const& i: locked_volumes) {
			if (i.second == physical_drive) {
				locked = true;
			}
		}

		if (r) {
			uint64_t const disk_size = geom.Cylinders.QuadPart * geom.TracksPerCylinder * geom.SectorsPerTrack * geom.BytesPerSector;
			drives.push_back(Drive(physical_drive, locked ? vector<boost::filesystem::path>() : mount_points[*device_number], disk_size, friendly_name, optional<string>()));
			LOG_DISK("Added drive {}{}", drives.back().log_summary(), locked ? "(locked by us)" : "");
		}

		CloseHandle(device);
	}

	return drives;
}


bool
Drive::unmount()
{
	LOG_DISK("Unmounting {} with {} mount points", _device, _mount_points.size());
	DCPOMATIC_ASSERT(_mount_points.size() == 1);
	string const device_name = fmt::format("\\\\.\\{}", _mount_points.front().string());
	string const truncated = device_name.substr(0, device_name.length() - 1);
	LOG_DISK("Actually opening {}", truncated);
	HANDLE device = CreateFileA(truncated.c_str(), (GENERIC_READ | GENERIC_WRITE), FILE_SHARE_READ | FILE_SHARE_WRITE, 0, OPEN_EXISTING, 0, 0);
 	if (device == INVALID_HANDLE_VALUE) {
		LOG_DISK("Could not open {} for unmount ({})", truncated, GetLastError());
		return false;
	}
	DWORD returned;
	BOOL r = DeviceIoControl(device, FSCTL_LOCK_VOLUME, 0, 0, 0, 0, &returned, 0);
	if (!r) {
		LOG_DISK("Unmount of {} failed ({})", truncated, GetLastError());
		return false;
	}

	LOG_DISK("Unmount of {} succeeded", _device);
	locked_volumes.push_back(make_pair(device, _device));

	return true;
}


boost::filesystem::path
config_path(optional<string> version)
{
	boost::filesystem::path p;
	p /= g_get_user_config_dir();
	p /= "dcpomatic2";
	if (version) {
		p /= *version;
	}
	return p;
}


void
disk_write_finished()
{
	for (auto const& i: locked_volumes) {
		CloseHandle(i.first);
	}
}


string
dcpomatic::get_process_id()
{
	return fmt::to_string(GetCurrentProcessId());
}


bool
show_in_file_manager(boost::filesystem::path, boost::filesystem::path select)
{
	std::wstringstream args;
	args << "/select," << select;
	auto const r = ShellExecute(0, L"open", L"explorer.exe", args.str().c_str(), 0, SW_SHOWDEFAULT);
	return (reinterpret_cast<int64_t>(r) <= 32);
}


ArgFixer::ArgFixer(int, char**)
{
	auto cmd_line = GetCommandLineW();
	auto wide_argv = CommandLineToArgvW(cmd_line, &_argc);

	_argv_strings.resize(_argc);
	_argv = new char*[_argc];
	for (int i = 0; i < _argc; ++i) {
		_argv_strings[i] = wchar_to_utf8(wide_argv[i]);
		_argv[i] = const_cast<char*>(_argv_strings[i].c_str());
	}
}