EvilBeaver/OneScript: Исполняющая среда скриптов на языке 1С

src/OneScript.StandardLibrary/DelegateAction.cs
97 строк3 KB
Andrey Ovsiankin
Рефакторинг неймспейсов
30 авг 2021, 16:41
30 авг 2021, 16:41225528b
/*----------------------------------------------------------
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/.
----------------------------------------------------------*/

using System;
using System.Linq;
using OneScript.Contexts;
using OneScript.Values;
using ScriptEngine.Machine;
using ScriptEngine.Machine.Contexts;

namespace OneScript.StandardLibrary
{
    /// <summary>
    /// Делегат для выполнения метода в другом объекте
    /// </summary>
    [ContextClass("Действие","Action")]
    public class DelegateAction : ContextIValueImpl
    {
        private readonly Func<IValue[], IValue> _action;
        private const string MethodName_Ru = "Выполнить";
        private const string MethodName_En = "Execute";

        private static BslMethodInfo ExecuteMethodInfo;

        static DelegateAction()
        {
            var builder = BslMethodBuilder.Create()
                .DeclaringType(typeof(DelegateAction))
                .SetNames(MethodName_Ru, MethodName_En);

            ExecuteMethodInfo = builder.Build();
        }
        
        public DelegateAction(Func<IValue[], IValue> action)
        {
            _action = action;
        }

        public DelegateAction(Func<BslValue[], BslValue> action)
        {
            _action = parameters => (IValue)action(parameters.Cast<BslValue>().ToArray());
        }
        
        public override bool DynamicMethodSignatures => true;

        public override int FindMethod(string name)
        {
            if (string.Compare(name, MethodName_En, StringComparison.OrdinalIgnoreCase) == 0
                || string.Compare(name, MethodName_Ru, StringComparison.OrdinalIgnoreCase) == 0)
            {
                return 0;
            }

            return base.FindMethod(name);
        }

        public override int GetMethodsCount()
        {
            return 1;
        }

        public override BslMethodInfo GetMethodInfo(int methodNumber)
        {
            return BslMethodBuilder.Create()
                .SetNames(MethodName_Ru, MethodName_En)
                .Build();
        }

        public override void CallAsFunction(int methodNumber, IValue[] arguments, out IValue retValue)
        {
            retValue = _action(arguments);
        }

        public override void CallAsProcedure(int methodNumber, IValue[] arguments)
        {
            _action(arguments);
        }

        [ScriptConstructor]
        public static DelegateAction Create(IRuntimeContextInstance target, string methodName)
        {
            var method = target.FindMethod(methodName);

            Func<IValue[], IValue> action = (parameters) =>
            {
                target.CallAsFunction(method, parameters, out var retVal);
                return retVal;
            };
            
            return new DelegateAction(action);
        }
    }
}