Mono: Add properties support in scripts

modules/mono/mono_gd/gd_mono_property.cpp

@@ -0,0 +1,199 @@
+/*************************************************************************/
+/*  gd_mono_property.cpp                                                 */
+/*************************************************************************/
+/*                       This file is part of:                           */
+/*                           GODOT ENGINE                                */
+/*                      https://godotengine.org                          */
+/*************************************************************************/
+/* Copyright (c) 2007-2018 Juan Linietsky, Ariel Manzur.                 */
+/* Copyright (c) 2014-2018 Godot Engine contributors (cf. AUTHORS.md)    */
+/*                                                                       */
+/* 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 "gd_mono_property.h"
+
+#include "gd_mono_class.h"
+#include "gd_mono_marshal.h"
+
+#include <mono/metadata/attrdefs.h>
+
+GDMonoProperty::GDMonoProperty(MonoProperty *p_mono_property, GDMonoClass *p_owner) {
+	owner = p_owner;
+	mono_property = p_mono_property;
+	name = mono_property_get_name(mono_property);
+
+	MonoMethod *prop_method = mono_property_get_get_method(mono_property);
+
+	if (prop_method) {
+		MonoMethodSignature *getter_sig = mono_method_signature(prop_method);
+
+		MonoType *ret_type = mono_signature_get_return_type(getter_sig);
+
+		type.type_encoding = mono_type_get_type(ret_type);
+		MonoClass *ret_type_class = mono_class_from_mono_type(ret_type);
+		type.type_class = GDMono::get_singleton()->get_class(ret_type_class);
+	} else {
+		prop_method = mono_property_get_set_method(mono_property);
+
+		MonoMethodSignature *setter_sig = mono_method_signature(prop_method);
+
+		void *iter = NULL;
+		MonoType *param_raw_type = mono_signature_get_params(setter_sig, &iter);
+
+		type.type_encoding = mono_type_get_type(param_raw_type);
+		MonoClass *param_type_class = mono_class_from_mono_type(param_raw_type);
+		type.type_class = GDMono::get_singleton()->get_class(param_type_class);
+	}
+
+	attrs_fetched = false;
+	attributes = NULL;
+}
+
+GDMonoProperty::~GDMonoProperty() {
+	if (attributes) {
+		mono_custom_attrs_free(attributes);
+	}
+}
+
+bool GDMonoProperty::is_static() {
+	MonoMethod *prop_method = mono_property_get_get_method(mono_property);
+	if (prop_method == NULL)
+		prop_method = mono_property_get_set_method(mono_property);
+	return mono_method_get_flags(prop_method, NULL) & MONO_METHOD_ATTR_STATIC;
+}
+
+GDMonoClassMember::Visibility GDMonoProperty::get_visibility() {
+	MonoMethod *prop_method = mono_property_get_get_method(mono_property);
+	if (prop_method == NULL)
+		prop_method = mono_property_get_set_method(mono_property);
+
+	switch (mono_method_get_flags(prop_method, NULL) & MONO_METHOD_ATTR_ACCESS_MASK) {
+		case MONO_METHOD_ATTR_PRIVATE:
+			return GDMonoClassMember::PRIVATE;
+		case MONO_METHOD_ATTR_FAM_AND_ASSEM:
+			return GDMonoClassMember::PROTECTED_AND_INTERNAL;
+		case MONO_METHOD_ATTR_ASSEM:
+			return GDMonoClassMember::INTERNAL;
+		case MONO_METHOD_ATTR_FAMILY:
+			return GDMonoClassMember::PROTECTED;
+		case MONO_METHOD_ATTR_PUBLIC:
+			return GDMonoClassMember::PUBLIC;
+		default:
+			ERR_FAIL_V(GDMonoClassMember::PRIVATE);
+	}
+}
+
+bool GDMonoProperty::has_attribute(GDMonoClass *p_attr_class) {
+	ERR_FAIL_NULL_V(p_attr_class, false);
+
+	if (!attrs_fetched)
+		fetch_attributes();
+
+	if (!attributes)
+		return false;
+
+	return mono_custom_attrs_has_attr(attributes, p_attr_class->get_mono_ptr());
+}
+
+MonoObject *GDMonoProperty::get_attribute(GDMonoClass *p_attr_class) {
+	ERR_FAIL_NULL_V(p_attr_class, NULL);
+
+	if (!attrs_fetched)
+		fetch_attributes();
+
+	if (!attributes)
+		return NULL;
+
+	return mono_custom_attrs_get_attr(attributes, p_attr_class->get_mono_ptr());
+}
+
+void GDMonoProperty::fetch_attributes() {
+	ERR_FAIL_COND(attributes != NULL);
+	attributes = mono_custom_attrs_from_property(owner->get_mono_ptr(), mono_property);
+	attrs_fetched = true;
+}
+
+bool GDMonoProperty::has_getter() {
+	return mono_property_get_get_method(mono_property) != NULL;
+}
+
+bool GDMonoProperty::has_setter() {
+	return mono_property_get_set_method(mono_property) != NULL;
+}
+
+void GDMonoProperty::set_value(MonoObject *p_object, MonoObject *p_value, MonoObject **r_exc) {
+	MonoMethod *prop_method = mono_property_get_get_method(mono_property);
+
+	MonoArray *params = mono_array_new(mono_domain_get(), CACHED_CLASS_RAW(MonoObject), 1);
+	mono_array_set(params, MonoObject *, 0, p_value);
+
+	MonoObject *exc = NULL;
+	mono_runtime_invoke_array(prop_method, p_object, params, &exc);
+
+	if (exc) {
+		if (r_exc) {
+			*r_exc = exc;
+		} else {
+			GDMonoUtils::print_unhandled_exception(exc);
+		}
+	}
+}
+
+void GDMonoProperty::set_value(MonoObject *p_object, void **p_params, MonoObject **r_exc) {
+	MonoObject *exc = NULL;
+	mono_property_set_value(mono_property, p_object, p_params, &exc);
+
+	if (exc) {
+		if (r_exc) {
+			*r_exc = exc;
+		} else {
+			GDMonoUtils::print_unhandled_exception(exc);
+		}
+	}
+}
+
+MonoObject *GDMonoProperty::get_value(MonoObject *p_object, MonoObject **r_exc) {
+	MonoObject *exc = NULL;
+	MonoObject *ret = mono_property_get_value(mono_property, p_object, NULL, &exc);
+
+	if (exc) {
+		ret = NULL;
+		if (r_exc) {
+			*r_exc = exc;
+		} else {
+			GDMonoUtils::print_unhandled_exception(exc);
+		}
+	}
+
+	return ret;
+}
+
+bool GDMonoProperty::get_bool_value(MonoObject *p_object) {
+	return (bool)GDMonoMarshal::unbox<MonoBoolean>(get_value(p_object));
+}
+
+int GDMonoProperty::get_int_value(MonoObject *p_object) {
+	return GDMonoMarshal::unbox<int32_t>(get_value(p_object));
+}
+
+String GDMonoProperty::get_string_value(MonoObject *p_object) {
+	MonoObject *val = get_value(p_object);
+	return GDMonoMarshal::mono_string_to_godot((MonoString *)val);
+}