Encode.cs

using System;
using System.Collections.Generic;
using System.Threading.Tasks;
using Waher.Content;
using Waher.Script.Abstraction.Elements;
using Waher.Script.Exceptions;
using Waher.Script.Model;
using Waher.Script.Objects;
using Waher.Script.Objects.VectorSpaces;
 
namespace Waher.Script.Content.Functions.Encoding
{
    public class Encode : FunctionMultiVariate
    {
        public Encode(ScriptNode Object, int Start, int Length, Expression Expression)
            : base(new ScriptNode[] { Object }, argumentTypes1Normal, Start, Length, Expression)
        {
        }
 
        public Encode(ScriptNode Object, ScriptNode AcceptedTypes, int Start, int Length, Expression Expression)
            : base(new ScriptNode[] { Object, AcceptedTypes }, new ArgumentType[] { ArgumentType.Normal, ArgumentType.Vector },
                  Start, Length, Expression)
        {
        }
 
        public override string FunctionName => nameof(Encode);
 
        public override string[] DefaultArgumentNames => new string[] { "Object" };
 
        public override bool IsAsynchronous => true;
 
        public override IElement Evaluate(IElement[] Arguments, Variables Variables)
        {
            return this.EvaluateAsync(Arguments, Variables).Result;
        }
 
        public override async Task<IElement> EvaluateAsync(IElement[] Arguments, Variables Variables)
        {
            string ContentType;
            byte[] Bin;
 
            if (Arguments.Length > 1)
            {
                if (!(Arguments[1].AssociatedObjectValue is Array A))
                    throw new ScriptRuntimeException("Second parameter to Encode should be an array of acceptable content types.", this);
 
                int i, c = A.Length;
                string[] AcceptedTypes = new string[c];
 
                for (i = 0; i < c; i++)
                    AcceptedTypes[i] = (await WaitPossibleTask(A.GetValue(i)))?.ToString();
 
                KeyValuePair<byte[], string> P = await InternetContent.EncodeAsync(Arguments[0].AssociatedObjectValue, System.Text.Encoding.UTF8, AcceptedTypes);
                Bin = P.Key;
                ContentType = P.Value;
            }
            else
            {
                KeyValuePair<byte[], string> P = await InternetContent.EncodeAsync(Arguments[0].AssociatedObjectValue, System.Text.Encoding.UTF8);
                Bin = P.Key;
                ContentType = P.Value;
            }
 
            return new ObjectVector(new ObjectValue(Bin), new StringValue(ContentType));
        }
 
    }
}