Rdap.cs

using System;
using System.Net;
using System.Threading.Tasks;
using Waher.Content;
using Waher.Networking.WHOIS;
using Waher.Script.Abstraction.Elements;
using Waher.Script.Exceptions;
using Waher.Script.Model;
using Waher.Script.Objects;
 
namespace Waher.Script.Networking.Functions
{
    public class Rdap : FunctionOneScalarVariable
    {
        public Rdap(ScriptNode Argument, int Start, int Length, Expression Expression)
            : base(Argument, Start, Length, Expression)
        {
        }
 
        public override string FunctionName => nameof(Rdap);
 
        public override bool IsAsynchronous => true;
 
        public override IElement EvaluateScalar(string Argument, Variables Variables)
        {
            return this.EvaluateScalarAsync(Argument, Variables).Result;
        }
 
        public override async Task<IElement> EvaluateScalarAsync(string Argument, Variables Variables)
        {
            if (IPAddress.TryParse(Argument, out IPAddress IP))
                return await this.EvaluateScalarAsync(IP);
            else
                throw new ScriptRuntimeException("Not an IP address.", this);
        }
 
        private async Task<IElement> EvaluateScalarAsync(IPAddress IP)
        {
            Uri Uri = WhoIsClient.RdapUri(IP)
                ?? throw new ScriptRuntimeException("RDAP URI not available for " + IP.ToString(), this);
 
            object Result = await InternetContent.GetAsync(Uri);
 
            return new ObjectValue(Result);
        }
 
        public override IElement EvaluateScalar(IElement Argument, Variables Variables)
        {
            return this.EvaluateScalarAsync(Argument, Variables).Result;
        }
 
        public override async Task<IElement> EvaluateScalarAsync(IElement Argument, Variables Variables)
        {
            if (Argument.AssociatedObjectValue is IPAddress IP ||
                IPAddress.TryParse(Argument.AssociatedObjectValue?.ToString() ?? string.Empty, out IP))
            {
                return await this.EvaluateScalarAsync(IP);
            }
            else
                throw new ScriptRuntimeException("Not an IP address.", this);
        }
    }
}