/*
 * AUTHOR
 * N. Nielsen
 *
 * LICENSE
 * This software is in the public domain.
 *
 * The software is provided "as is", without warranty of any kind,
 * express or implied, including but not limited to the warranties
 * of merchantability, fitness for a particular purpose, and
 * noninfringement. In no event shall the author(s) be liable for any
 * claim, damages, or other liability, whether in an action of
 * contract, tort, or otherwise, arising from, out of, or in connection
 * with the software or the use or other dealings in the software.
 *
 * SUPPORT
 * Send bug reports to: <nielsen@memberwebs.com>
 */

#include "stdafx.h"
#include "rliberr.h"
#include "errutil.h"

// rlibError: -------------------------------------------------------------
//  Displays errors from rlib. Assumes we have the appropriate
//  error codes compiled in as resources

HRESULT rlibError(HWND parent, int code, r_script* script)
{
	ASSERT(code < 0);
	USES_CONVERSION;

    LPVOID lpMsgBuf;
	HRESULT hr = HRESULT_FROM_RLIB(code);
	string message;

	DWORD dwRet = ::FormatMessage(FORMAT_MESSAGE_ALLOCATE_BUFFER | FORMAT_MESSAGE_FROM_HMODULE |
								  FORMAT_MESSAGE_MAX_WIDTH_MASK, GetModuleHandle(NULL), hr,
								  MAKELANGID(LANG_NEUTRAL, SUBLANG_DEFAULT), // Default language
								  (LPTSTR)&lpMsgBuf, 0, NULL);
	if(dwRet && lpMsgBuf)
	{
		message.append((LPTSTR)lpMsgBuf);

		// Free the buffer.
		::LocalFree(lpMsgBuf);

		// If there was a specific error message then tack that on
		if(script->error)
		{
			message.append(_T("\n\n"));
			message.append(A2T(script->error));
		}

		// If there's an error line then tack that on
		if(script->errline != 0)
		{
			string line;
			line.format(_T(" (near line %d)"), script->errline);
			message.append(line);
		}

		MessageBox(parent, message.c_str(), _T("Rep Droplet"), MB_OK | MB_ICONSTOP);
	}

	return hr;
}


// errorMessage: -----------------------------------------------------------
//  Displays standard windows errors.

HRESULT errorMessage(HWND parent, HRESULT hr, LPCTSTR format, ...)
{
	string message;

	va_list ap;
	va_start(ap, format);

	message.format_v(format, ap);

	va_end(ap);

	if(FAILED(hr))
	{
	    LPVOID lpMsgBuf;

		DWORD dwRet = ::FormatMessage(FORMAT_MESSAGE_ALLOCATE_BUFFER | FORMAT_MESSAGE_FROM_SYSTEM |
									  FORMAT_MESSAGE_MAX_WIDTH_MASK, NULL, hr,
									  MAKELANGID(LANG_NEUTRAL, SUBLANG_DEFAULT), // Default language
									  (LPTSTR) &lpMsgBuf, 0, NULL);
		if(dwRet && lpMsgBuf)
		{
			message.append(_T("\n\n"));
			message.append((LPTSTR)lpMsgBuf);
			message.resize(message.size() - 2); // Take off new line

			// Free the buffer.
			::LocalFree(lpMsgBuf);
		}
	}

	MessageBox(parent, message.c_str(), _T("Rep Droplet"), MB_OK | MB_ICONSTOP);

	return hr == S_OK ? E_FAIL : hr;
}