/*************************************************************************/
/*  path_db.cpp                                                          */
/*************************************************************************/
/*                       This file is part of:                           */
/*                           GODOT ENGINE                                */
/*                    http://www.godotengine.org                         */
/*************************************************************************/
/* Copyright (c) 2007-2016 Juan Linietsky, Ariel Manzur.                 */
/*                                                                       */
/* Permission is hereby granted, free of charge, to any person obtaining */
/* a copy of this software and associated documentation files (the       */
/* "Software"), to deal in the Software without restriction, including   */
/* without limitation the rights to use, copy, modify, merge, publish,   */
/* distribute, sublicense, and/or sell copies of the Software, and to    */
/* permit persons to whom the Software is furnished to do so, subject to */
/* the following conditions:                                             */
/*                                                                       */
/* The above copyright notice and this permission notice shall be        */
/* included in all copies or substantial portions of the Software.       */
/*                                                                       */
/* 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 AUTHORS OR COPYRIGHT HOLDERS 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.                */
/*************************************************************************/
#include "path_db.h"
#include "print_string.h"


uint32_t NodePath::hash() const {

	if (!data)
		return 0;

	uint32_t h = data->absolute ? 1 : 0;
	int pc = data->path.size();
	const StringName *sn = data->path.ptr();
	for(int i=0;i<pc;i++) {
		h = h ^ sn[i].hash();
	}
	int spc = data->subpath.size();
	const StringName *ssn = data->subpath.ptr();
	for(int i=0;i<spc;i++) {
		h = h ^ ssn[i].hash();
	}

	h = h ^ data->property.hash();

	return h;

}

void NodePath::prepend_period() {

	if (data->path.size() && data->path[0].operator String()!=".") {
		data->path.insert(0,".");
	}
}

bool NodePath::is_absolute() const {

	if (!data)
		return false;

	return data->absolute;

}
int NodePath::get_name_count() const {

	if (!data)
		return 0;

	return data->path.size();

}
StringName NodePath::get_name(int p_idx) const {

	ERR_FAIL_COND_V(!data,StringName());
	ERR_FAIL_INDEX_V(p_idx,data->path.size(),StringName());
	return data->path[p_idx];
}

StringName NodePath::get_property() const {

	if (!data)
		return StringName();
	return data->property;
}

int NodePath::get_subname_count() const {

	if (!data)
		return 0;

	return data->subpath.size();

}
StringName NodePath::get_subname(int p_idx) const {

	ERR_FAIL_COND_V(!data,StringName());
	ERR_FAIL_INDEX_V(p_idx,data->subpath.size(),StringName());
	return data->subpath[p_idx];
}


void NodePath::unref() {

	if (data && data->refcount.unref()) {

		memdelete(data);
	}
	data=NULL;

}

bool NodePath::operator==(const NodePath& p_path) const {

	if (data==p_path.data)
		return true;

	if (!data || !p_path.data)
		return false;

	if (data->absolute != p_path.data->absolute)
		return false;

	if (data->path.size() != p_path.data->path.size())
		return false;

	if (data->subpath.size() != p_path.data->subpath.size())
		return false;

	if (data->property != p_path.data->property)
		return false;

	for (int i=0;i<data->path.size();i++) {

		if (data->path[i]!=p_path.data->path[i])
			return false;
	}

	for (int i=0;i<data->subpath.size();i++) {

		if (data->subpath[i]!=p_path.data->subpath[i])
			return false;
	}

	return true;
}
bool NodePath::operator!=(const NodePath& p_path) const {

	return (!(*this == p_path));
}


void NodePath::operator=(const NodePath& p_path) {

	if (this==&p_path)
		return;

	unref();

	if (p_path.data && p_path.data->refcount.ref()) {

		data=p_path.data;
	}
}

NodePath::operator String() const {

	if (!data)
		return String();

	String ret;
	if (data->absolute)
		ret="/";

	for (int i=0;i<data->path.size();i++) {

		if (i>0)
			ret+="/";
		ret+=data->path[i].operator String();
	}

	for (int i=0;i<data->subpath.size();i++) {

		ret+=":"+data->subpath[i].operator String();
	}

	if (data->property.operator String()!="")
		ret+=":"+String(data->property);
	return ret;
}


NodePath::NodePath(const NodePath& p_path) {

	data=NULL;

	if (p_path.data && p_path.data->refcount.ref()) {

		data=p_path.data;
	}
}

Vector<StringName> NodePath::get_names() const {

	if (data)
		return data->path;
	return Vector<StringName>();
}
Vector<StringName> NodePath::get_subnames() const{

	if (data)
		return data->subpath;
	return Vector<StringName>();

}


NodePath NodePath::rel_path_to(const NodePath& p_np) const {

	ERR_FAIL_COND_V( !is_absolute(), NodePath() );
	ERR_FAIL_COND_V( !p_np.is_absolute(), NodePath() );

	Vector<StringName> src_dirs = get_names();
	Vector<StringName> dst_dirs = p_np.get_names();

	//find common parent
	int common_parent=0;

	while(true) {
		if (src_dirs.size()==common_parent)
			break;
		if (dst_dirs.size()==common_parent)
			break;
		if (src_dirs[common_parent]!=dst_dirs[common_parent])
			break;
		common_parent++;
	}

	common_parent--;

	Vector<StringName> relpath;

	for(int i=src_dirs.size()-1;i>common_parent;i--) {

		relpath.push_back("..");
	}

	for(int i=common_parent+1;i<dst_dirs.size();i++) {

		relpath.push_back(dst_dirs[i]);
	}

	if (relpath.size()==0)
		relpath.push_back(".");

	return NodePath(relpath,p_np.get_subnames(),false,p_np.get_property());
}


NodePath::NodePath(const Vector<StringName>& p_path,bool p_absolute,const String& p_property) {

	data=NULL;

	if (p_path.size()==0)
		return;

	data = memnew( Data );
	data->refcount.init();
	data->absolute=p_absolute;
	data->path=p_path;
	data->property=p_property;
}

NodePath::NodePath(const Vector<StringName>& p_path,const Vector<StringName>& p_subpath,bool p_absolute,const String& p_property) {

	data=NULL;

	if (p_path.size()==0)
		return;

	data = memnew( Data );
	data->refcount.init();
	data->absolute=p_absolute;
	data->path=p_path;
	data->subpath=p_subpath;
	data->property=p_property;
}


void NodePath::simplify() {

	if (!data)
		return;
	for(int i=0;i<data->path.size();i++) {
		if (data->path.size()==1)
			break;
		if (data->path[i].operator String()==".") {
			data->path.remove(i);
			i--;
		} else if (data->path[i].operator String()==".." && i>0 && data->path[i-1].operator String()!="." && data->path[i-1].operator String()!="..") {
			//remove both
			data->path.remove(i-1);
			data->path.remove(i-1);
			i-=2;
			if (data->path.size()==0) {
				data->path.push_back(".");
				break;
			}
		}
	}
}

NodePath NodePath::simplified() const {

	NodePath np=*this;
	np.simplify();
	return np;
}

NodePath::NodePath(const String& p_path) {

	data=NULL;

	if (p_path.length()==0)
		return;

	String path=p_path;
	StringName property;
	Vector<StringName> subpath;

	int absolute=(path[0]=='/')?1:0;;
	bool last_is_slash=true;
	int slices=0;
	int subpath_pos=path.find(":");



	if (subpath_pos!=-1) {

		int from=subpath_pos+1;

		for (int i=from;i<=path.length();i++) {

			if (path[i]==':' || path[i]==0) {

				String str = path.substr(from,i-from);
				if (path[i]==':') {
					if (str=="") {
						ERR_EXPLAIN("Invalid NodePath: "+p_path);
						ERR_FAIL();
					}
					subpath.push_back(str);
				} else {
					//property can be empty
					property=str;
				}

				from=i+1;
			}

		}

		path=path.substr(0,subpath_pos);
	}

	for (int i=absolute;i<path.length();i++) {

		if (path[i]=='/') {

			last_is_slash=true;
		} else {

			if (last_is_slash)
				slices++;

			last_is_slash=false;
		}


	}

	if (slices==0 && !absolute && !property)
		return;

	data = memnew( Data );
	data->refcount.init();
	data->absolute=absolute?true:false;
	data->property=property;
	data->subpath=subpath;

	if (slices==0)
		return;
	data->path.resize(slices);
	last_is_slash=true;
	int from=absolute;
	int slice=0;

	for (int i=absolute;i<path.length()+1;i++) {

		if (path[i]=='/' || path[i]==0) {

			if (!last_is_slash) {

				String name=path.substr(from,i-from);
				ERR_FAIL_INDEX( slice,data->path.size() );
				data->path[slice++]=name;
			}
			from=i+1;
			last_is_slash=true;
		} else {
			last_is_slash=false;
		}

	}


}

bool NodePath::is_empty() const {

	return !data;
}
NodePath::NodePath() {

	data=NULL;
}

NodePath::~NodePath() {

	unref();
}