/*

  * Copyright (C) 2011-2012, 2014  J. Ali Harlow <ali@juiblex.co.uk>

  *

  * 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.,

  * 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.

  */

 #include "config.h"

 #ifdef MSWIN_API

 #include <windows.h>

 #ifndef ERROR_TRANSACTIONAL_OPEN_NOT_ALLOWED

 #define ERROR_TRANSACTIONAL_OPEN_NOT_ALLOWED	6832L

 #endif

 #endif

 #include <stdlib.h>

 #include <string.h>

 #include "razor.h"

 #include "razor-internal.h"

 RAZOR_EXPORT int

 razor_error_get_domain(struct razor_error *error)

 {

 	return error->domain;

 }

 RAZOR_EXPORT int

 razor_error_get_code(struct razor_error *error)

 {

 	return error->code;

 }

 void

 razor_error_set_object(struct razor_error *error, const char *object)

 {

 	if (!error)

 		return;

 	free(error->object);

 	if (object)

 		error->object = strdup(object);

 	else

 		error->object = NULL;

 	if (error->obj_str) {

 		free(error->obj_str);

 		error->obj_str = NULL;

 	}

 	if (error->msg) {

 		free(error->msg);

 		error->msg = NULL;

 	}

 }

 RAZOR_EXPORT const char *

 razor_error_get_object(struct razor_error *error)

 {

 	return error->object;

 }

 static const char *razor_error_get_obj_str(struct razor_error *error)

 {

 	if (error->obj_str)

 		return error->obj_str;

 	if (error->object) {

 		error->obj_str = razor_concat(error->object, ": ",

 					      error->str, NULL);

 		return error->obj_str;

 	}

 	return error->str;

 }

 /**

  * razor_error_get_primary_text:

  *

  * Retrieves the basic information about an error. If a summary has been set

  * then this will be returned. Otherwise the error string possibly prefixed

  * by the object will be returned instead.

  *

  * Returns: Primary text of error.

  **/

 RAZOR_EXPORT const char *

 razor_error_get_primary_text(struct razor_error *error)

 {

 	if (error->summary)

 		return error->summary;

 	return razor_error_get_obj_str(error);

 }

 /**

  * razor_error_get_secondary_text:

  *

  * Retrieves more detailed information about an error, if any. If a summary

  * has been set the error string possibly prefixed by the object will be

  * returned. Otherwise NULL will be returned.

  *

  * Returns: Secondary text of error or NULL.

  **/

 RAZOR_EXPORT const char *

 razor_error_get_secondary_text(struct razor_error *error)

 {

 	if (!error->summary)

 		return NULL;

 	return razor_error_get_obj_str(error);

 }

 RAZOR_EXPORT const char *

 razor_error_get_msg(struct razor_error *error)

 {

 	const char *primary, *secondary;

 	if (error->msg)

 		return error->msg;

 	primary = razor_error_get_primary_text(error);

 	secondary = razor_error_get_secondary_text(error);

 	if (secondary) {

 		error->msg = razor_concat(primary, "\n", secondary, NULL);

 		return error->msg;

 	} else

 		return primary;

 }

 #ifdef MSWIN_API

 struct razor_error *

 razor_error_new_mswin(const wchar_t *object, DWORD err)

 {

 	struct razor_error *error;

 	wchar_t *buf;

 	error = zalloc(sizeof *error);

 	error->domain = RAZOR_MSWIN_ERROR;

 	error->code = err;

 	if (object)

 		error->object = razor_utf16_to_utf8(object, -1);

 	switch(err) {

 	case ERROR_TRANSACTIONAL_OPEN_NOT_ALLOWED:

 		/*

 		 * Attempting to include files in a transaction on a filesystem

 		 * that doesn't support them (only NTFS?) produces this error

 		 * for which the default text isn't very informative. Try and

 		 * give more useful information.

 		 */

 		error->str = strdup("Not allowed (perhaps the filesystem "

 				    "doesn't support transactions)");

 		break;

 	default:

 		FormatMessageW(FORMAT_MESSAGE_ALLOCATE_BUFFER|

 			       FORMAT_MESSAGE_FROM_SYSTEM|

 			       FORMAT_MESSAGE_IGNORE_INSERTS,

 			       NULL, err,

 			       MAKELANGID(LANG_NEUTRAL,SUBLANG_DEFAULT),

 			       (LPWSTR)&buf, 0, NULL);

 		error->str = razor_utf16_to_utf8(buf, -1);

 		LocalFree(buf);

 		break;

 	}

 	return error;

 }

 struct razor_error *

 razor_error_new_str2(int domain, int code, const wchar_t *object,

 		     const char *str)

 {

 	struct razor_error *error;

 	error = zalloc(sizeof *error);

 	error->domain = domain;

 	error->code = code;

 	if (object)

 		error->object = razor_utf16_to_utf8(object, -1);

 	error->str = strdup(str);

 	return error;

 }

 #endif	/* MSWIN_API */

 RAZOR_EXPORT struct razor_error *

 razor_error_new_str(int domain, int code, const char *object, const char *str)

 {

 	struct razor_error *error;

 	error = zalloc(sizeof *error);

 	error->domain = domain;

 	error->code = code;

 	if (object)

 		error->object = strdup(object);

 	error->str = strdup(str);

 	return error;

 }

 RAZOR_EXPORT struct razor_error *

 razor_error_dup(struct razor_error *src, const char *summary)

 {

 	struct razor_error *error;

 	error = zalloc(sizeof *error);

 	error->domain = src->domain;

 	error->code = src->code;

 	if (summary)

 		error->summary = strdup(summary);

 	else if (src->summary)

 		error->summary = strdup(src->summary);

 	if (src->object)

 		error->object = strdup(src->object);

 	if (src->str)

 		error->str = strdup(src->str);

 	return error;

 }

 RAZOR_EXPORT void

 razor_error_free(struct razor_error *error)

 {

 	free(error->object);

 	free(error->str);

 	free(error->obj_str);

 	free(error->summary);

 	free(error->msg);

 	free(error);

 }