/*

Miranda IM: the free IM client for Microsoft* Windows*

Copyright 2000-2009 Miranda ICQ/IM project,
all portions of this codebase are copyrighted to the people
listed in contributors.txt.

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., 59 Temple Place - Suite 330, Boston, MA  02111-1307, USA.
*/

#include "..\..\core\commonheaders.h"

#include "libJSON.h"

/*
	This is the implementation of the C interface to libJSON
	This file may be included in any C++ application, but it will
	be completely ignored if JSON_LIBRARY isn't defined.  The
	only reason JSON_LIBRARY should be defined is when compiling libJSON
	as a library
*/

#ifdef JSON_LIBRARY

	#include "JSONNode.h"
	#include "JSONWorker.h"
	#include <stdexcept>  //some methods throw exceptions
	#ifdef JSON_MEMORY_MANAGE
		auto_expand StringHandler;
		auto_expand_node NodeHandler;
		#define MANAGER_INSERT(x) NodeHandler.insert(x)
	#else
		#define MANAGER_INSERT(x) x
	#endif

	#ifdef JSON_SAFE
		static const json_char * EMPTY_CSTRING = JSON_TEXT("");
	#endif

	inline json_char * toCString(const json_string & str){
		const size_t len((str.length() + 1) * sizeof(json_char));
		#ifdef JSON_MEMORY_MANAGE
			return (json_char *)StringHandler.insert(memcpy(json_malloc<json_char>(len), str.c_str(), len));
		#else
			return (json_char *)memcpy(json_malloc<json_char>(len), str.c_str(), len);
		#endif
	}

	/*
		stuff that's in namespace libJSON
	*/
	void json_free(void * str){
		JSON_ASSERT_SAFE(str, JSON_TEXT("freeing null ptr"), return;);
		#ifdef JSON_MEMORY_MANAGE
			StringHandler.remove(str);
		#endif
		libjson_free<void>(str);
	}

	void json_delete(JSONNODE * node){
		JSON_ASSERT_SAFE(node, JSON_TEXT("deleting null ptr"), return;);
		#ifdef JSON_MEMORY_MANAGE
			NodeHandler.remove(node);
		#endif
		JSONNode::deleteJSONNode((JSONNode *)node);
	}

	#ifdef JSON_MEMORY_MANAGE
		void json_free_all(void){
			StringHandler.clear();
		}

		void json_delete_all(void){
			NodeHandler.clear();
		}
	#endif

	JSONNODE * json_parse(const json_char * json){
		JSON_ASSERT_SAFE(json, JSON_TEXT("null ptr to json_parse"), return 0;);
		try {
			//use this constructor to simply copy reference instead of copying the temp
			return MANAGER_INSERT(JSONNode::newJSONNode_Shallow(JSONWorker::parse(json)));
		} catch (std::invalid_argument){}
		return 0;
	}

	json_char * json_strip_white_space(const json_char * json){
		JSON_ASSERT_SAFE(json, JSON_TEXT("null ptr to json_strip_white_space"), return 0;);
		return toCString(JSONWorker::RemoveWhiteSpaceAndComments(json));
	}

	#ifdef JSON_VALIDATE
		JSONNODE * json_validate(const json_char * json){
			JSON_ASSERT_SAFE(json, JSON_TEXT("null ptr to json_validate"), return 0;);
			try {
				//use this constructor to simply copy reference instead of copying the temp
				return MANAGER_INSERT(JSONNode::newJSONNode_Shallow(JSONWorker::validate(json)));
			} catch (std::invalid_argument){}
			return 0;
		}
	#endif

	#if defined JSON_DEBUG && !defined JSON_STDERROR
		//When libjson errors, a callback allows the user to know what went wrong
		void json_register_debug_callback(json_error_callback_t callback){
			JSONDebug::register_callback(callback);
		}
	#endif

	#ifdef JSON_MUTEX_CALLBACKS
		#ifdef JSON_MUTEX_MANAGE
			void json_register_mutex_callbacks(json_mutex_callback_t lock, json_mutex_callback_t unlock, json_mutex_callback_t destroy, void * manager_lock){
				JSONNode::register_mutex_callbacks(lock, unlock, manager_lock);
				JSONNode::register_mutex_destructor(destroy);
			}

		#else
			void json_register_mutex_callbacks(json_mutex_callback_t lock, json_mutex_callback_t unlock, void * manager_lock){
				JSONNode::register_mutex_callbacks(lock, unlock, manager_lock);
			}
		#endif

		void json_set_global_mutex(void * mutex){
			JSONNode::set_global_mutex(mutex);
		}

		void json_set_mutex(JSONNODE * node, void * mutex){
			JSON_ASSERT_SAFE(node, JSON_TEXT("null node to json_set_mutex"), return;);
			((JSONNode*)node) -> set_mutex(mutex);
		}

		void json_lock(JSONNODE * node, int threadid){
			JSON_ASSERT_SAFE(node, JSON_TEXT("null node to json_lock"), return;);
			((JSONNode*)node) -> lock(threadid);
		}

		void json_unlock(JSONNODE * node, int threadid){
			JSON_ASSERT_SAFE(node, JSON_TEXT("null node to json_unlock"), return;);
			((JSONNode*)node) -> unlock(threadid);
		}
	#endif

	#ifdef JSON_MEMORY_CALLBACKS
		void json_register_memory_callbacks(json_malloc_t mal, json_realloc_t real, json_free_t fre){
			JSONMemory::registerMemoryCallbacks(mal, real, fre);
		}
	#endif


	/*
	stuff that's in class JSONNode
	*/
	//ctors
	JSONNODE * json_new_a(const json_char * name, const json_char * value){
		JSON_ASSERT_SAFE(name, JSON_TEXT("null name to json_new_a"), name = EMPTY_CSTRING;);
		JSON_ASSERT_SAFE(value, JSON_TEXT("null value to json_new_a"), value = EMPTY_CSTRING;);
		#ifdef JSON_MEMORY_CALLBACKS
			return MANAGER_INSERT(new(json_malloc<JSONNode>(1)) JSONNode(name, json_string(value)));
		#else
			return MANAGER_INSERT(new JSONNode(name, json_string(value)));
		#endif
	}

	JSONNODE * json_new_i(const json_char * name, long value){
		JSON_ASSERT_SAFE(name, JSON_TEXT("null name to json_new_i"), name = EMPTY_CSTRING;);
		#ifdef JSON_MEMORY_CALLBACKS
			return MANAGER_INSERT(new(json_malloc<JSONNode>(1)) JSONNode(name, value));
		#else
			return MANAGER_INSERT(new JSONNode(name, value));
		#endif
	}

	JSONNODE * json_new_f(const json_char * name, json_number value){
		JSON_ASSERT_SAFE(name, JSON_TEXT("null name to json_new_f"), name = EMPTY_CSTRING;);
		#ifdef JSON_MEMORY_CALLBACKS
			return MANAGER_INSERT(new(json_malloc<JSONNode>(1)) JSONNode(name, value));
		#else
			return MANAGER_INSERT(new JSONNode(name, value));
		#endif
	}

	JSONNODE * json_new_b(const json_char * name, int value){
		JSON_ASSERT_SAFE(name, JSON_TEXT("null name to json_new_b"), name = EMPTY_CSTRING;);
		#ifdef JSON_MEMORY_CALLBACKS
			return MANAGER_INSERT(new(json_malloc<JSONNode>(1)) JSONNode(name, value != 0 ));
		#else
			return MANAGER_INSERT(new JSONNode(name, (bool)value)) != 0;
		#endif
	}

	JSONNODE * json_new(char type){
		#ifdef JSON_MEMORY_CALLBACKS
			return MANAGER_INSERT(new(json_malloc<JSONNode>(1)) JSONNode(type));
		#else
			return MANAGER_INSERT(new JSONNode(type));
		#endif
	}

	JSONNODE * json_copy(const JSONNODE * orig){
		JSON_ASSERT_SAFE(orig, JSON_TEXT("null orig to json_copy"), return 0;);
		#ifdef JSON_MEMORY_CALLBACKS
			return MANAGER_INSERT(new(json_malloc<JSONNode>(1)) JSONNode(*((JSONNode*)orig)));
		#else
			return MANAGER_INSERT(new JSONNode(*((JSONNode*)orig)));
		#endif
	}

	JSONNODE * json_duplicate(const JSONNODE * orig){
		JSON_ASSERT_SAFE(orig, JSON_TEXT("null orig to json_duplicate"), return 0;);
		return MANAGER_INSERT(JSONNode::newJSONNode_Shallow(((JSONNode*)orig) -> duplicate()));
	}

	//assignment
	void json_set_a(JSONNODE * node, const json_char * value){
		JSON_ASSERT_SAFE(node, JSON_TEXT("null node to json_set_a"), return;);
		JSON_ASSERT_SAFE(value, JSON_TEXT("null value to json_set_a"), value = EMPTY_CSTRING;);
		*((JSONNode*)node) = json_string(value);
	}

	void json_set_i(JSONNODE * node, long value){
		JSON_ASSERT_SAFE(node, JSON_TEXT("null node to json_set_i"), return;);
		*((JSONNode*)node) = value;
	}

	void json_set_f(JSONNODE * node, json_number value){
		JSON_ASSERT_SAFE(node, JSON_TEXT("null node to json_set_f"), return;);
		*((JSONNode*)node) = value;
	}

	void json_set_b(JSONNODE * node, int value){
		JSON_ASSERT_SAFE(node, JSON_TEXT("null node to json_set_b"), return;);
		*((JSONNode*)node) = value != 0;
	}

	void json_set_n(JSONNODE * node, const JSONNODE * orig){
		JSON_ASSERT_SAFE(node, JSON_TEXT("null node to json_set_n"), return;);
		JSON_ASSERT_SAFE(orig, JSON_TEXT("null node to json_set_n"), return;);
		*((JSONNode*)node) = *((JSONNode*)orig);
	}

	//inspectors
	char json_type(const JSONNODE * node){
		JSON_ASSERT_SAFE(node, JSON_TEXT("null node to json_type"), return JSON_NULL;);
		return ((JSONNode*)node) -> type();
	}

	json_index_t json_size(const JSONNODE * node){
		JSON_ASSERT_SAFE(node, JSON_TEXT("null node to json_size"), return 0;);
		return ((JSONNode*)node) -> size();
	}

	int json_empty(const JSONNODE * node){
		JSON_ASSERT_SAFE(node, JSON_TEXT("null node to json_empty"), return true;);
		return (int)(((JSONNode*)node) -> empty());
	}

	json_char * json_name(const JSONNODE * node){
		JSON_ASSERT_SAFE(node, JSON_TEXT("null node to json_name"), return toCString(EMPTY_CSTRING););
		return toCString(((JSONNode*)node) -> name());
	}

	#ifdef JSON_COMMENTS
		json_char * json_get_comment(const JSONNODE * node){
			JSON_ASSERT_SAFE(node, JSON_TEXT("null node to json_get_comment"), return toCString(EMPTY_CSTRING););
			return toCString(((JSONNode*)node) -> get_comment());
		}
	#endif

	json_char * json_as_string(const JSONNODE * node){
		JSON_ASSERT_SAFE(node, JSON_TEXT("null node to json_as_string"), return toCString(EMPTY_CSTRING););
		return toCString(((JSONNode*)node) -> as_string());
	}

	long json_as_int(const JSONNODE * node){
		JSON_ASSERT_SAFE(node, JSON_TEXT("null node to json_as_int"), return 0;);
		return ((JSONNode*)node) -> as_int();
	}

	json_number json_as_float(const JSONNODE * node){
		JSON_ASSERT_SAFE(node, JSON_TEXT("null node to json_as_float"), return 0.0;);
		return ((JSONNode*)node) -> as_float();
	}

	int json_as_bool(const JSONNODE * node){
		JSON_ASSERT_SAFE(node, JSON_TEXT("null node to json_as_bool"), return false;);
		return (int)(((JSONNode*)node) -> as_bool());
	}

	JSONNODE * json_as_node(const JSONNODE * node){
		JSON_ASSERT_SAFE(node, JSON_TEXT("null node to json_as_node"), return 0;);
		return MANAGER_INSERT(JSONNode::newJSONNode_Shallow(((JSONNode*)node) -> as_node()));
	}

	JSONNODE * json_as_array(const JSONNODE * node){
		JSON_ASSERT_SAFE(node, JSON_TEXT("null node to json_as_array"), return 0;);
		return MANAGER_INSERT(JSONNode::newJSONNode_Shallow(((JSONNode*)node) -> as_array()));
	}

	#ifdef JSON_BINARY
		void * json_as_binary(const JSONNODE * node, unsigned long * size){
			JSON_ASSERT_SAFE(node, JSON_TEXT("null node to json_as_binary"), if (size){*size = 0;} return 0;);
			const std::string result = ((JSONNode*)node) -> as_binary();
			const size_t len = result.length();
			if (size) *size = len;
			#ifdef JSON_SAFE
				if (result.empty()) return 0;
			#endif
			#ifdef JSON_MEMORY_MANAGE
				return StringHandler.insert(memcpy(json_malloc<char>(len), result.data(), len));
			#else
				return memcpy(json_malloc<char>(len), result.data(), len);
			#endif
		}
	#endif

	#ifdef JSON_WRITER
		json_char * json_write(const JSONNODE * node){
			JSON_ASSERT_SAFE(node, JSON_TEXT("null node to json_write"), return toCString(EMPTY_CSTRING););
			return toCString(((JSONNode*)node) -> write());
		}

		json_char * json_write_formatted(const JSONNODE * node){
			JSON_ASSERT_SAFE(node, JSON_TEXT("null node to json_write_formatted"), return toCString(EMPTY_CSTRING););
			return toCString(((JSONNode*)node) -> write_formatted());
		}
	#endif

	//modifiers
	void json_set_name(JSONNODE * node, const json_char * name){
		JSON_ASSERT_SAFE(node, JSON_TEXT("null node to json_set_name"), return;);
		JSON_ASSERT_SAFE(name, JSON_TEXT("null name to json_set_name"), name = EMPTY_CSTRING;);
		((JSONNode*)node) -> set_name(name);
	}

	#ifdef JSON_COMMENTS
		void json_set_comment(JSONNODE * node, const json_char * comment){
			JSON_ASSERT_SAFE(node, JSON_TEXT("null node to json_set_comment"), return;);
			JSON_ASSERT_SAFE(comment, JSON_TEXT("null name to json_set_comment"), comment = EMPTY_CSTRING;);
			((JSONNode*)node) -> set_comment(comment);
		}
	#endif

	void json_clear(JSONNODE * node){
		JSON_ASSERT_SAFE(node, JSON_TEXT("null node to json_clear"), return;);
		((JSONNode*)node) -> clear();
	}

	void json_nullify(JSONNODE * node){
		JSON_ASSERT_SAFE(node, JSON_TEXT("null node to json_nullify"), return;);
		((JSONNode*)node) -> nullify();
	}

	void json_swap(JSONNODE * node, JSONNODE * node2){
		JSON_ASSERT_SAFE(node, JSON_TEXT("null node to json_swap"), return;);
		JSON_ASSERT_SAFE(node2, JSON_TEXT("null node to json_swap"), return;);
		((JSONNode*)node) -> swap(*(JSONNode*)node2);
	}

	void json_merge(JSONNODE * node, JSONNODE * node2){
		JSON_ASSERT_SAFE(node, JSON_TEXT("null node to json_merge"), return;);
		JSON_ASSERT_SAFE(node2, JSON_TEXT("null node to json_merge"), return;);
		((JSONNode*)node) -> merge(*(JSONNode*)node2);
	}

	#ifndef JSON_PREPARSE
		void json_preparse(JSONNODE * node){
			JSON_ASSERT_SAFE(node, JSON_TEXT("null node to json_preparse"), return;);
			((JSONNode*)node) -> preparse();
		}
	#endif

	#ifdef JSON_BINARY
		void json_set_binary(JSONNODE * node, const void * data, unsigned long length){
			JSON_ASSERT_SAFE(node, JSON_TEXT("null node to json_swap"), return;);
			JSON_ASSERT_SAFE(data, JSON_TEXT("null data to json_set_binary"), *((JSONNode*)node) = EMPTY_CSTRING; return;);
			((JSONNode*)node) -> set_binary((unsigned char *)data, length);
		}
	#endif

	void json_cast(JSONNODE * node, char type){
		JSON_ASSERT_SAFE(node, JSON_TEXT("null node to json_cast"), return;);
		((JSONNode*)node) -> cast(type);
	}

	//children access
	void json_reserve(JSONNODE * node, json_index_t siz){
		JSON_ASSERT_SAFE(node, JSON_TEXT("null node to json_reserve"), return;);
		((JSONNode*)node) -> reserve(siz);
	}

	JSONNODE * json_at(JSONNODE * node, unsigned int pos){
		JSON_ASSERT_SAFE(node, JSON_TEXT("null node to json_at"), return 0;);
		try {
			return &((JSONNode*)node) -> at(pos);
		} catch (std::out_of_range){}
		return 0;
	}

	JSONNODE * json_get(JSONNODE * node, const json_char * name){
		JSON_ASSERT_SAFE(node, JSON_TEXT("null node to json_get"), return 0;);
		JSON_ASSERT_SAFE(name, JSON_TEXT("null node to json_get.  Did you mean to use json_at?"), return 0;);
		try {
			return &((JSONNode*)node) -> at(name);
		} catch (std::out_of_range){}
		return 0;
	}

	#ifdef JSON_CASE_INSENSITIVE_FUNCTIONS
		JSONNODE * json_get_nocase(JSONNODE * node, const json_char * name){
			JSON_ASSERT_SAFE(node, JSON_TEXT("null node to json_at_nocase"), return 0;);
			JSON_ASSERT_SAFE(name, JSON_TEXT("null name to json_at_nocase"), return 0;);
			try {
				return &((JSONNode*)node) -> at_nocase(name);
			} catch (std::out_of_range){}
			return 0;
		}

		JSONNODE * json_pop_back_nocase(JSONNODE * node, const json_char * name){
			JSON_ASSERT_SAFE(node, JSON_TEXT("null node to json_pop_back_nocase"), return 0;);
			JSON_ASSERT_SAFE(name, JSON_TEXT("null name to json_pop_back_nocase"), return 0;);
			return MANAGER_INSERT(((JSONNode*)node) -> pop_back_nocase(name));
		}
	#endif

	void json_push_back(JSONNODE * node, JSONNODE * node2){
		JSON_ASSERT_SAFE(node, JSON_TEXT("null node to json_push_back"), return;);
		JSON_ASSERT_SAFE(node2, JSON_TEXT("null node2 to json_push_back"), return;);
		#ifdef JSON_MEMORY_MANAGE
			NodeHandler.remove(node2);
		#endif
		((JSONNode*)node) -> push_back((JSONNode*)node2);
	}

	JSONNODE * json_pop_back_at(JSONNODE * node, unsigned int pos){
		JSON_ASSERT_SAFE(node, JSON_TEXT("null node to json_pop_back_i"), return 0;);
		return MANAGER_INSERT(((JSONNode*)node) -> pop_back(pos));
	}

	JSONNODE * json_pop_back(JSONNODE * node, const json_char * name){
		JSON_ASSERT_SAFE(node, JSON_TEXT("null node to json_pop_back"), return 0;);
		JSON_ASSERT_SAFE(name, JSON_TEXT("null name to json_pop_back.  Did you mean to use json_pop_back_at?"), return 0;);
		return MANAGER_INSERT(((JSONNode*)node) -> pop_back(name));
	}

	#ifdef JSON_ITERATORS
		JSONNODE_ITERATOR json_find(JSONNODE * node, const json_char * name){
			return (JSONNODE_ITERATOR)(((JSONNode*)node) -> find(name));
		}

		#ifdef JSON_CASE_INSENSITIVE_FUNCTIONS
			JSONNODE_ITERATOR json_find_nocase(JSONNODE * node, const json_char * name){
				return (JSONNODE_ITERATOR)(((JSONNode*)node) -> find_nocase(name));
			}
		#endif

		JSONNODE_ITERATOR json_erase(JSONNODE * node, JSONNODE_ITERATOR it){
			return (JSONNODE_ITERATOR)(((JSONNode*)node) -> erase((JSONNode**)it));
		}

		JSONNODE_ITERATOR json_erase_multi(JSONNODE * node, JSONNODE_ITERATOR start, JSONNODE_ITERATOR end){
			return (JSONNODE_ITERATOR)(((JSONNode*)node) -> erase((JSONNode**)start, (JSONNode**)end));
		}

		JSONNODE_ITERATOR json_insert(JSONNODE * node, JSONNODE_ITERATOR it, JSONNODE * node2){
			#ifdef JSON_MEMORY_MANAGE
				NodeHandler.remove(node2);
			#endif
			return (JSONNODE_ITERATOR)(((JSONNode*)node) -> insert((JSONNode**)it, (JSONNode*)node2));
		}

		JSONNODE_ITERATOR json_insert_multi(JSONNODE * node, JSONNODE_ITERATOR it, JSONNODE_ITERATOR start, JSONNODE_ITERATOR end){
			return (JSONNODE_ITERATOR)(((JSONNode*)node) -> insert((JSONNode**)it, (JSONNode**)start, (JSONNode**)end));
		}

		//iterator functions
		JSONNODE_ITERATOR json_begin(JSONNODE * node){
			return (JSONNODE_ITERATOR)(((JSONNode*)node) -> begin());
		}

		JSONNODE_ITERATOR json_end(JSONNODE * node){
			return (JSONNODE_ITERATOR)(((JSONNode*)node) -> end());
		}
	#endif

	//comparison
	int json_equal(JSONNODE * node, JSONNODE * node2){
		JSON_ASSERT_SAFE(node, JSON_TEXT("null node to json_equal"), return false;);
		JSON_ASSERT_SAFE(node2, JSON_TEXT("null node2 to json_equal"), return false;);
		return (int)(*((JSONNode*)node) == *((JSONNode*)node2));
	}

#endif //JSON_LIBRARY