Serialize.cs

using System;
using System.Text;
using System.Threading.Tasks;
using Waher.Persistence;
using Waher.Persistence.NeuroLedger;
using Waher.Persistence.Serialization;
using Waher.Script;
using Waher.Script.Abstraction.Elements;
using Waher.Script.Exceptions;
using Waher.Script.Model;
using Waher.Script.Objects;
 
namespace Waher.Service.NeuroLedger.Functions
{
    public class Serialize : FunctionOneVariable
    {
        public Serialize(ScriptNode Argument, int Start, int Length, Expression Expression)
            : base(Argument, Start, Length, Expression)
        {
        }
 
        public override string FunctionName => nameof(Serialize);
 
        public override string[] Aliases => new string[] { "ToBinary" };
 
        public override string[] DefaultArgumentNames => new string[] { "Object" };
 
        protected virtual ISerializer GetSerializer(Variables Variables)
        {
            return new BinarySerializer(string.Empty, Encoding.UTF8);
        }
 
        public override bool IsAsynchronous => true;
 
        public override IElement Evaluate(IElement Argument, Variables Variables)
        {
            return this.EvaluateAsync(Argument, Variables).Result;
        }
 
        public override async Task<IElement> EvaluateAsync(IElement Argument, Variables Variables)
        {
            if (!(Ledger.Provider is NeuroLedgerProvider Provider))
                throw new ScriptRuntimeException("Neuro-Ledger not initialized properly.", this);
 
            ISerializer Output = this.GetSerializer(Variables);
            IObjectSerializer Serializer = null;
            Type LastType = null;
            Type T;
            object Value;
 
            if (Argument is IVector Vector)
            {
                foreach (IElement E in Vector.ChildElements)
                {
                    Value = E.AssociatedObjectValue;
                    T = Value?.GetType() ?? typeof(object);
                    if (T != LastType)
                    {
                        LastType = T;
                        Serializer = await Provider.GetObjectSerializer(T);
                    }
 
                    Output.WriteBit(true);
                    await Serializer.Serialize(Output, true, false, Value, null);
                }
            }
            else
            {
                Value = Argument.AssociatedObjectValue;
                Serializer = await Provider.GetObjectSerializer(Value?.GetType() ?? typeof(object));
                Output.WriteBit(true);
                await Serializer.Serialize(Output, true, false, Value, null);
            }
 
            Output.WriteBit(false);
 
            byte[] Bin = Output.GetSerialization();
 
            return new ObjectValue(Bin);
        }
 
    }
}