src/ScriptEngine/Machine/Contexts/COMWrapperContext.cs - develop - smwwiki/OneScript_fork

src/ScriptEngine/Machine/Contexts/COMWrapperContext.cs
336 строк11 KB
Michael Rybakin
fix #1405 для v2: значение для пропущенного параметра +рефакторинг
03 июн 2024, 17:10
03 июн 2024, 17:108556c9d
/*----------------------------------------------------------
This Source Code Form is subject to the terms of the 
Mozilla Public License, v.2.0. If a copy of the MPL 
was not distributed with this file, You can obtain one 
at http://mozilla.org/MPL/2.0/.
----------------------------------------------------------*/
//#if !__MonoCS__
using System;
using System.Collections.Generic;
using System.Linq;
using OneScript.Commons;
using OneScript.Contexts;
using OneScript.Exceptions;
using OneScript.Types;
using OneScript.Values;
using ScriptEngine.Types;
using System.Reflection;

namespace ScriptEngine.Machine.Contexts
{
    [ContextClass("COMОбъект", "COMObject", TypeUUID = "5E4FA60E-9724-494A-A5C8-5BB0A4F914E0")]
    public abstract class COMWrapperContext : PropertyNameIndexAccessor, 
        ICollectionContext<IValue>,
        IEmptyValueCheck,
        IDisposable,
        IObjectWrapper
    {
        private static readonly DateTime MIN_OLE_DATE = new DateTime(100,1,1);
        protected static readonly TypeDescriptor ComObjectType = typeof(COMWrapperContext).GetTypeFromClassMarkup();
            
        protected object Instance;

        protected COMWrapperContext(object instance)
            : base(ComObjectType)
        {
            Instance = instance;
        }

        private static Type FindTypeByName(string typeName)
        {
            foreach (var assembly in AppDomain.CurrentDomain.GetAssemblies().Reverse())
            {
                var tt = assembly.GetType(typeName, throwOnError:false, ignoreCase:true);
                if (tt != null)
                {
                    return tt;
                }
            }
            return Type.GetType(typeName, throwOnError:false, ignoreCase:true);
        }

        private static COMWrapperContext Create(string progId, IValue[] arguments)
        {
            Type type = null;
#if NETFRAMEWORK
            if (!Utils.IsMonoRuntime)
            {
                type = Type.GetTypeFromProgID(progId, throwOnError: false);
            }
            if (type == null)
            {
                type = FindTypeByName(progId);
            }
#else
            type = FindTypeByName(progId);
            if (type == null)
            {
                type = Type.GetTypeFromProgID(progId, false);
            }
#endif
            if (type == null)
            {
                throw new TypeLoadException(String.Format("Тип {0} не найден!", progId));
            }

            if (type.IsGenericType)
            {
                // В первом приближении мы заполняем параметры шаблона классом Object
                // TODO: Продумать параметры шаблонного класса
                var genericTypes = new List<Type>();
                foreach (var ga in type.GetGenericArguments())
                {
                    genericTypes.Add(typeof(object));
                }
                type = type.MakeGenericType(genericTypes.ToArray());
            }

            object instance = Activator.CreateInstance(type, MarshalArguments(arguments).values);

            return InitByInstance(type, instance);
        }

        public static COMWrapperContext Create(object instance)
        {
            return InitByInstance(instance.GetType(), instance);
        }

        private static COMWrapperContext InitByInstance(Type type, object instance)
        {
            if (TypeIsRuntimeCallableWrapper(type))
            {               
                return new UnmanagedCOMWrapperContext(instance);
            }
            else if (IsObjectType(type) || IsAStruct(type))
            {
                return new ManagedCOMWrapperContext(instance);
            }
            else
                throw new ArgumentException(String.Format("Can't create COM wrapper for type {0}", type.ToString()));
        }

        private static bool IsObjectType(Type type)
        {
            return !type.IsPrimitive && !type.IsValueType;
        }

        private static bool IsAStruct(Type type)
        {
            return !type.IsPrimitive && type.IsValueType;
        }

        private static bool TypeIsRuntimeCallableWrapper(Type type)
        {
            return type.FullName == "System.__ComObject" || type.BaseType.FullName == "System.__ComObject"; // string, cause it's hidden type
        }

        protected static (object[] values, ParameterModifier[] flags) MarshalArguments(IValue[] arguments)
        {
            var values = new object[arguments.Length];
            ParameterModifier[] flagsArray = new ParameterModifier[1];
            if (arguments.Length > 0)
            {
                var flags = new ParameterModifier(arguments.Length);
                for (int i = 0; i < arguments.Length; i++)
                {
                    values[i] = MarshalIValue(arguments[i]);
                    flags[i] = arguments[i] is IVariable;
                }

                flagsArray[0] = flags;
            }
            else
            {
                flagsArray[0] = new ParameterModifier();
            }

            return (values, flagsArray);
        }

        public static object MarshalIValue(IValue val)
        {
            object retValue;
            if (val is BslDateValue dateVal)
            {
                var date = (DateTime)dateVal;
                retValue = date < MIN_OLE_DATE ? MIN_OLE_DATE : date;
            }
            else
            {
                retValue = ContextValuesMarshaller.ConvertToClrObject(val) ?? Missing.Value;;
            }

            return retValue;
        }

        protected static object[] MarshalArgumentsStrict(IValue[] arguments, Type[] argumentsTypes)
        {
            if (argumentsTypes.Length < arguments.Length)
                throw RuntimeException.TooManyArgumentsPassed();

            object[] marshalledArgs = new object[arguments.Length];
            for (int i = 0; i < arguments.Length; i++)
            {
                marshalledArgs[i] = ContextValuesMarshaller.ConvertParam(arguments[i], argumentsTypes[i]);
            }

            return marshalledArgs;
        }

        public static object[] MarshalArgumentsStrict(System.Reflection.MethodInfo method, IValue[] arguments)
        {
            var parameters = method.GetParameters();

            object[] marshalledArgs = new object[parameters.Length];
            for (int i = 0; i < parameters.Length; i++)
            {
                if(i < arguments.Length)
                {
                    if (IsMissedArg(arguments[i]) && parameters[i].IsOptional)
                        marshalledArgs[i] = Type.Missing;
                    else
                        marshalledArgs[i] = ContextValuesMarshaller.ConvertParam(arguments[i], parameters[i].ParameterType);
                }
                else
                {
                    marshalledArgs[i] = Type.Missing;
                }
            }

            return marshalledArgs;
        }

        private static bool IsMissedArg(IValue arg)
        {
            return arg == null || arg.IsSkippedArgument();
        }

        public static IValue CreateIValue(object objParam)
        {
            if (objParam == null)
                return ValueFactory.Create();

            var type = objParam.GetType();
            if (typeof(IValue).IsAssignableFrom(type))
            {
                return (IValue)objParam;
            }
            else if (type == typeof(string))
            {
                return ValueFactory.Create((string)objParam);
            }
            else if (type == typeof(int) || type == typeof(uint) || type == typeof(byte) || type == typeof(sbyte) || type == typeof(short) || type == typeof(ushort))
            {
                return ValueFactory.Create(System.Convert.ToInt32(objParam));
            }
            else if(type == typeof(long) || type == typeof(ulong))
            {
                return ValueFactory.Create(System.Convert.ToInt64(objParam));
            }
            else if (type == typeof(double))
            {
                return ValueFactory.Create((decimal)(double)objParam);
            }
            else if (type == typeof(Single))
            {
                return ValueFactory.Create((decimal)System.Convert.ToDouble(objParam));
            }
            else if (type == typeof(decimal))
            {
                return ValueFactory.Create((decimal)objParam);
            }
            else if (type == typeof(DateTime))
            {
                var unboxed = (DateTime)objParam;
                if (unboxed == MIN_OLE_DATE)
                    unboxed = DateTime.MinValue;

                return ValueFactory.Create(unboxed);
            }
            else if (type == typeof(bool))
            {
                return ValueFactory.Create((bool)objParam);
            }
            else if (type.IsArray)
            {
                return new SafeArrayWrapper(objParam);
            }
            else if (IsObjectType(type) || IsAStruct(type))
            {
                COMWrapperContext ctx;
                try
                {
                    ctx = COMWrapperContext.Create(objParam);
                }
                catch (ArgumentException e)
                {
                    throw new RuntimeException("Тип " + type + " невозможно преобразовать в один из поддерживаемых типов", e);
                }
                return ctx;
            }
            
            else
            {
                throw new RuntimeException("Тип " + type + " невозможно преобразовать в один из поддерживаемых типов");
            }
        }

        #region ICollectionContext Members

        public virtual int Count() => 0;

        bool IEmptyValueCheck.IsEmpty => false;

        public virtual void Clear()
        {
            throw new NotImplementedException();
        }

        public abstract IEnumerator<IValue> GetEnumerator();

        public object UnderlyingObject => Instance;

        #region IEnumerable Members

        System.Collections.IEnumerator System.Collections.IEnumerable.GetEnumerator()
        {
            throw new NotImplementedException();
        }

        #endregion

        #endregion        

        #region IDisposable Members

        protected virtual void Dispose(bool manualDispose)
        {
            if (manualDispose)
            {
                GC.SuppressFinalize(this);
            }
        }

        public void Dispose()
        {
            Dispose(true);
        }

        ~COMWrapperContext()
        {
            Dispose(false);
        }

        #endregion

        public override bool DynamicMethodSignatures => true;
 
        [ScriptConstructor]
        public static COMWrapperContext Constructor(IValue[] args)
        {
            return COMWrapperContext.Create(args[0].AsString(), args.Skip(1).ToArray());
        }

    }
}
//#endif