/*
 * Copyright (C)2005-2019 Haxe Foundation
 *
 * 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.
 */

import php.Boot;
import php.Syntax;
import php.Closure;
import php.Const;
import php.NativeAssocArray;
import haxe.Constraints;

using php.Global;

@:coreApi class Reflect {
	public static function hasField(o:Dynamic, field:String):Bool {
		if (!o.is_object())
			return false;
		if (o.property_exists(field))
			return true;

		if (Boot.isClass(o)) {
			var phpClassName = Boot.castClass(o).phpClassName;
			return Global.property_exists(phpClassName, field)
				|| Global.method_exists(phpClassName, field)
				|| Global.defined('$phpClassName::$field');
		}

		return false;
	}

	public static function field(o:Dynamic, field:String):Dynamic {
		if (o.is_string()) {
			return Syntax.field(Boot.dynamicString(o), field);
		}
		if (!o.is_object())
			return null;

		if (field == '' && Const.PHP_VERSION_ID < 70100) {
			return Syntax.coalesce(Syntax.array(o)[field], null);
		}

		if (o.property_exists(field)) {
			return Syntax.field(o, field);
		}
		if (o.method_exists(field)) {
			return Boot.getInstanceClosure(o, field);
		}

		if (Boot.isClass(o)) {
			var phpClassName = Boot.castClass(o).phpClassName;
			if (Global.defined('$phpClassName::$field')) {
				return Global.constant('$phpClassName::$field');
			}
			if (Global.property_exists(phpClassName, field)) {
				return Syntax.field(o, field);
			}
			if (Global.method_exists(phpClassName, field)) {
				return Boot.getStaticClosure(phpClassName, field);
			}
		}

		return null;
	}

	public static function setField(o:Dynamic, field:String, value:Dynamic):Void {
		Syntax.setField(o, field, value);
	}

	public static function getProperty(o:Dynamic, field:String):Dynamic {
		if (o.is_object()) {
			if (Boot.isClass(o)) {
				var phpClassName = Boot.castClass(o).phpClassName;
				if (Boot.hasGetter(phpClassName, field)) {
					return Syntax.staticCall(phpClassName, 'get_$field');
				}
			} else if (Boot.hasGetter(Global.get_class(o), field)) {
				return Syntax.call(o, 'get_$field');
			}
		}

		return Reflect.field(o, field);
	}

	public static function setProperty(o:Dynamic, field:String, value:Dynamic):Void {
		if (o.is_object()) {
			if (Boot.hasSetter(Global.get_class(o), field)) {
				Syntax.call(o, 'set_$field', value);
			} else {
				Syntax.setField(o, field, value);
			}
		}
	}

	public static function callMethod(o:Dynamic, func:Function, args:Array<Dynamic>):Dynamic {
		return Global.call_user_func_array(func, @:privateAccess args.arr);
	}

	public static function fields(o:Dynamic):Array<String> {
		if (Global.is_object(o)) {
			return @:privateAccess Array.wrap(Global.get_object_vars(o).array_keys());
		}
		return [];
	}

	public static inline function isFunction(f:Dynamic):Bool {
		return Boot.isFunction(f);
	}

	public static function compare<T>(a:T, b:T):Int {
		if (a == b)
			return 0;
		if (Global.is_string(a)) {
			return Global.strcmp(cast a, cast b);
		} else {
			return ((cast a) > (cast b) ? 1 : -1);
		}
	}

	public static function compareMethods(f1:Dynamic, f2:Dynamic):Bool {
		if (Boot.isHxClosure(f1) && Boot.isHxClosure(f2)) {
			return f1.equals(f2);
		} else {
			return f1 == f2;
		}
	}

	public static function isObject(v:Dynamic):Bool {
		if (Boot.isEnumValue(v)) {
			return false;
		} else {
			return v.is_object() || v.is_string();
		}
	}

	public static inline function isEnumValue(v:Dynamic):Bool {
		return Boot.isEnumValue(v);
	}

	public static function deleteField(o:Dynamic, field:String):Bool {
		if (hasField(o, field)) {
			Global.unset(Syntax.field(o, field));
			return true;
		} else {
			return false;
		}
	}

	public static function copy<T>(o:Null<T>):Null<T> {
		if (Boot.isAnon(o)) {
			return Syntax.clone(o);
		} else {
			return null;
		}
	}

	@:overload(function(f:Array<Dynamic>->Void):Dynamic {})
	public static function makeVarArgs(f:Array<Dynamic>->Dynamic):Dynamic {
		return function() {
			return Global.call_user_func(f, @:privateAccess Array.wrap(Global.func_get_args()));
		}
	}
}