Post.cs

using System;
using System.Collections.Generic;
using System.Security.Cryptography.X509Certificates;
using System.Threading.Tasks;
using Waher.Content;
using Waher.Script.Abstraction.Elements;
using Waher.Script.Exceptions;
using Waher.Script.Model;
 
namespace Waher.Script.Content.Functions.InputOutput
{
    public class Post : FunctionMultiVariate
    {
        public Post(ScriptNode Url, ScriptNode Data, int Start, int Length, Expression Expression)
            : base(new ScriptNode[] { Url, Data }, new ArgumentType[] { ArgumentType.Scalar, ArgumentType.Normal }, Start, Length, Expression)
        {
        }
 
        public Post(ScriptNode Url, ScriptNode Data, ScriptNode Headers, int Start, int Length, Expression Expression)
            : base(new ScriptNode[] { Url, Data, Headers }, new ArgumentType[] { ArgumentType.Scalar, ArgumentType.Normal, ArgumentType.Normal }, Start, Length, Expression)
        {
        }
 
        public Post(ScriptNode Url, ScriptNode Data, ScriptNode Headers, ScriptNode Certificate, int Start, int Length, Expression Expression)
            : base(new ScriptNode[] { Url, Data, Headers, Certificate }, new ArgumentType[] { ArgumentType.Scalar, ArgumentType.Normal, ArgumentType.Normal, ArgumentType.Normal }, Start, Length, Expression)
        {
        }
 
        public override string FunctionName => nameof(Post);
 
        public override string[] DefaultArgumentNames => new string[] { "URL", "Data", "Headers", "Certificate" };
 
        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)
        {
            Uri Url = new Uri(Arguments[0].AssociatedObjectValue?.ToString());
            object Data = Arguments[1].AssociatedObjectValue;
            List<KeyValuePair<string, string>> HeaderList = null;
            object Result;
 
            if (Arguments.Length > 2)
                HeaderList = Get.GetHeaders(Arguments[2].AssociatedObjectValue, this);
 
            if (Arguments.Length > 3)
            {
                if (!(Arguments[3].AssociatedObjectValue is X509Certificate Certificate))
                    throw new ScriptRuntimeException("Expected X.509 certificate in fourth argument.", this);
 
                Result = await InternetContent.PostAsync(Url, Data, Certificate, HeaderList?.ToArray() ?? new KeyValuePair<string, string>[0]);
            }
            else
                Result = await InternetContent.PostAsync(Url, Data, HeaderList?.ToArray() ?? new KeyValuePair<string, string>[0]);
 
            return Expression.Encapsulate(Result);
        }
    }
}