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

src/ScriptEngine/Machine/PropertyBag.cs
102 строки3 KB
EvilBeaver
Ненужный код удален
13 сен 2022, 10:40
13 сен 2022, 10:401687269
/*----------------------------------------------------------
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.Collections.Generic;
using System.Diagnostics;
using System.Linq;
using OneScript.Contexts;
using OneScript.Values;
using ScriptEngine.Machine.Contexts;

namespace ScriptEngine.Machine
{
    class PropertyBag : DynamicPropertiesAccessor, IAttachableContext
    {
        private readonly List<IValue> _values = new List<IValue>();
        private readonly List<BslPropertyInfo> _definitions = new List<BslPropertyInfo>();

        public void Insert(IValue value, string identifier)
        {
            Insert(value, identifier, true, true);
        }

        public int Insert(IValue value, string identifier, bool canRead, bool canWrite)
        {
            var num = RegisterProperty(identifier);

            if (num == _values.Count)
            {
                _values.Add(null);
                _definitions.Add(BslPropertyBuilder.Create()
                    .Name(identifier)
                    .CanRead(canRead)
                    .CanWrite(canWrite)
                    .SetDispatchingIndex(num)
                    .ReturnType(typeof(BslValue))
                    .Build()
                );
            }

            value ??= ValueFactory.Create();

            SetPropValue(num, value);

            return num;
        }

        public override bool IsPropReadable(int propNum)
        {
            return _definitions[propNum].CanRead;
        }

        public override bool IsPropWritable(int propNum)
        {
            return _definitions[propNum].CanWrite;
        }

        public override IValue GetPropValue(int propNum)
        {
            return _values[propNum];
        }

        public override void SetPropValue(int propNum, IValue newVal)
        {
            _values[propNum] = newVal;
        }

        public override BslPropertyInfo GetPropertyInfo(int propertyNumber)
        {
            return _definitions[propertyNumber];
        }

        public int Count => _values.Count;

        public override int GetMethodsCount()
        {
            return 0;
        }

        #region IAttachableContext Members

        public void OnAttach(out IVariable[] variables, out BslMethodInfo[] methods)
        {
            variables = new IVariable[this.Count];
            var props = GetDynamicProperties().OrderBy(x => x.Value).Select(x=>x.Key).ToArray();
            Debug.Assert(props.Length == variables.Length);

            for (var i = 0; i < variables.Length; i++)
            {
                variables[i] = Variable.CreateContextPropertyReference(this, i, props[i]);
            }

            methods = Array.Empty<BslMethodInfo>();
        }

        #endregion
    }
}